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 @2012-01-25@ 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.SWF](http://hackage.haskell.org/package/amazonka-swf/docs/Network-AWS-SWF.html) +See [Amazonka.SWF](http://hackage.haskell.org/package/amazonka-swf/docs/Amazonka-SWF.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-swf.cabal b/amazonka-swf.cabal --- a/amazonka-swf.cabal +++ b/amazonka-swf.cabal @@ -1,116 +1,237 @@ -name: amazonka-swf -version: 1.6.1 -synopsis: Amazon Simple Workflow Service 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-swf +version: 2.0 +synopsis: Amazon Simple Workflow Service 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.SWF" or - to get started. + Derived from API version @2012-01-25@ 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.SWF.Lens" and are + suitable for use with a lens package such as or . + . + See "Amazonka.SWF" and the to get started. source-repository head - type: git - location: git://github.com/brendanhay/amazonka.git - subdir: amazonka-swf + type: git + location: git://github.com/brendanhay/amazonka.git + subdir: amazonka-swf 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.SWF - , Network.AWS.SWF.CountClosedWorkflowExecutions - , Network.AWS.SWF.CountOpenWorkflowExecutions - , Network.AWS.SWF.CountPendingActivityTasks - , Network.AWS.SWF.CountPendingDecisionTasks - , Network.AWS.SWF.DeprecateActivityType - , Network.AWS.SWF.DeprecateDomain - , Network.AWS.SWF.DeprecateWorkflowType - , Network.AWS.SWF.DescribeActivityType - , Network.AWS.SWF.DescribeDomain - , Network.AWS.SWF.DescribeWorkflowExecution - , Network.AWS.SWF.DescribeWorkflowType - , Network.AWS.SWF.GetWorkflowExecutionHistory - , Network.AWS.SWF.ListActivityTypes - , Network.AWS.SWF.ListClosedWorkflowExecutions - , Network.AWS.SWF.ListDomains - , Network.AWS.SWF.ListOpenWorkflowExecutions - , Network.AWS.SWF.ListWorkflowTypes - , Network.AWS.SWF.PollForActivityTask - , Network.AWS.SWF.PollForDecisionTask - , Network.AWS.SWF.RecordActivityTaskHeartbeat - , Network.AWS.SWF.RegisterActivityType - , Network.AWS.SWF.RegisterDomain - , Network.AWS.SWF.RegisterWorkflowType - , Network.AWS.SWF.RequestCancelWorkflowExecution - , Network.AWS.SWF.RespondActivityTaskCanceled - , Network.AWS.SWF.RespondActivityTaskCompleted - , Network.AWS.SWF.RespondActivityTaskFailed - , Network.AWS.SWF.RespondDecisionTaskCompleted - , Network.AWS.SWF.SignalWorkflowExecution - , Network.AWS.SWF.StartWorkflowExecution - , Network.AWS.SWF.TerminateWorkflowExecution - , Network.AWS.SWF.Types - , Network.AWS.SWF.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.SWF.Types.Product - , Network.AWS.SWF.Types.Sum + exposed-modules: + Amazonka.SWF + Amazonka.SWF.CountClosedWorkflowExecutions + Amazonka.SWF.CountOpenWorkflowExecutions + Amazonka.SWF.CountPendingActivityTasks + Amazonka.SWF.CountPendingDecisionTasks + Amazonka.SWF.DeprecateActivityType + Amazonka.SWF.DeprecateDomain + Amazonka.SWF.DeprecateWorkflowType + Amazonka.SWF.DescribeActivityType + Amazonka.SWF.DescribeDomain + Amazonka.SWF.DescribeWorkflowExecution + Amazonka.SWF.DescribeWorkflowType + Amazonka.SWF.GetWorkflowExecutionHistory + Amazonka.SWF.Lens + Amazonka.SWF.ListActivityTypes + Amazonka.SWF.ListClosedWorkflowExecutions + Amazonka.SWF.ListDomains + Amazonka.SWF.ListOpenWorkflowExecutions + Amazonka.SWF.ListTagsForResource + Amazonka.SWF.ListWorkflowTypes + Amazonka.SWF.PollForActivityTask + Amazonka.SWF.PollForDecisionTask + Amazonka.SWF.RecordActivityTaskHeartbeat + Amazonka.SWF.RegisterActivityType + Amazonka.SWF.RegisterDomain + Amazonka.SWF.RegisterWorkflowType + Amazonka.SWF.RequestCancelWorkflowExecution + Amazonka.SWF.RespondActivityTaskCanceled + Amazonka.SWF.RespondActivityTaskCompleted + Amazonka.SWF.RespondActivityTaskFailed + Amazonka.SWF.RespondDecisionTaskCompleted + Amazonka.SWF.SignalWorkflowExecution + Amazonka.SWF.StartWorkflowExecution + Amazonka.SWF.TagResource + Amazonka.SWF.TerminateWorkflowExecution + Amazonka.SWF.Types + Amazonka.SWF.Types.ActivityTaskCanceledEventAttributes + Amazonka.SWF.Types.ActivityTaskCancelRequestedEventAttributes + Amazonka.SWF.Types.ActivityTaskCompletedEventAttributes + Amazonka.SWF.Types.ActivityTaskFailedEventAttributes + Amazonka.SWF.Types.ActivityTaskScheduledEventAttributes + Amazonka.SWF.Types.ActivityTaskStartedEventAttributes + Amazonka.SWF.Types.ActivityTaskTimedOutEventAttributes + Amazonka.SWF.Types.ActivityTaskTimeoutType + Amazonka.SWF.Types.ActivityType + Amazonka.SWF.Types.ActivityTypeConfiguration + Amazonka.SWF.Types.ActivityTypeInfo + Amazonka.SWF.Types.CancelTimerDecisionAttributes + Amazonka.SWF.Types.CancelTimerFailedCause + Amazonka.SWF.Types.CancelTimerFailedEventAttributes + Amazonka.SWF.Types.CancelWorkflowExecutionDecisionAttributes + Amazonka.SWF.Types.CancelWorkflowExecutionFailedCause + Amazonka.SWF.Types.CancelWorkflowExecutionFailedEventAttributes + Amazonka.SWF.Types.ChildPolicy + Amazonka.SWF.Types.ChildWorkflowExecutionCanceledEventAttributes + Amazonka.SWF.Types.ChildWorkflowExecutionCompletedEventAttributes + Amazonka.SWF.Types.ChildWorkflowExecutionFailedEventAttributes + Amazonka.SWF.Types.ChildWorkflowExecutionStartedEventAttributes + Amazonka.SWF.Types.ChildWorkflowExecutionTerminatedEventAttributes + Amazonka.SWF.Types.ChildWorkflowExecutionTimedOutEventAttributes + Amazonka.SWF.Types.CloseStatus + Amazonka.SWF.Types.CloseStatusFilter + Amazonka.SWF.Types.CompleteWorkflowExecutionDecisionAttributes + Amazonka.SWF.Types.CompleteWorkflowExecutionFailedCause + Amazonka.SWF.Types.CompleteWorkflowExecutionFailedEventAttributes + Amazonka.SWF.Types.ContinueAsNewWorkflowExecutionDecisionAttributes + Amazonka.SWF.Types.ContinueAsNewWorkflowExecutionFailedCause + Amazonka.SWF.Types.ContinueAsNewWorkflowExecutionFailedEventAttributes + Amazonka.SWF.Types.Decision + Amazonka.SWF.Types.DecisionTaskCompletedEventAttributes + Amazonka.SWF.Types.DecisionTaskScheduledEventAttributes + Amazonka.SWF.Types.DecisionTaskStartedEventAttributes + Amazonka.SWF.Types.DecisionTaskTimedOutEventAttributes + Amazonka.SWF.Types.DecisionTaskTimeoutType + Amazonka.SWF.Types.DecisionType + Amazonka.SWF.Types.DomainConfiguration + Amazonka.SWF.Types.DomainInfo + Amazonka.SWF.Types.EventType + Amazonka.SWF.Types.ExecutionStatus + Amazonka.SWF.Types.ExecutionTimeFilter + Amazonka.SWF.Types.ExternalWorkflowExecutionCancelRequestedEventAttributes + Amazonka.SWF.Types.ExternalWorkflowExecutionSignaledEventAttributes + Amazonka.SWF.Types.FailWorkflowExecutionDecisionAttributes + Amazonka.SWF.Types.FailWorkflowExecutionFailedCause + Amazonka.SWF.Types.FailWorkflowExecutionFailedEventAttributes + Amazonka.SWF.Types.HistoryEvent + Amazonka.SWF.Types.LambdaFunctionCompletedEventAttributes + Amazonka.SWF.Types.LambdaFunctionFailedEventAttributes + Amazonka.SWF.Types.LambdaFunctionScheduledEventAttributes + Amazonka.SWF.Types.LambdaFunctionStartedEventAttributes + Amazonka.SWF.Types.LambdaFunctionTimedOutEventAttributes + Amazonka.SWF.Types.LambdaFunctionTimeoutType + Amazonka.SWF.Types.MarkerRecordedEventAttributes + Amazonka.SWF.Types.PendingTaskCount + Amazonka.SWF.Types.RecordMarkerDecisionAttributes + Amazonka.SWF.Types.RecordMarkerFailedCause + Amazonka.SWF.Types.RecordMarkerFailedEventAttributes + Amazonka.SWF.Types.RegistrationStatus + Amazonka.SWF.Types.RequestCancelActivityTaskDecisionAttributes + Amazonka.SWF.Types.RequestCancelActivityTaskFailedCause + Amazonka.SWF.Types.RequestCancelActivityTaskFailedEventAttributes + Amazonka.SWF.Types.RequestCancelExternalWorkflowExecutionDecisionAttributes + Amazonka.SWF.Types.RequestCancelExternalWorkflowExecutionFailedCause + Amazonka.SWF.Types.RequestCancelExternalWorkflowExecutionFailedEventAttributes + Amazonka.SWF.Types.RequestCancelExternalWorkflowExecutionInitiatedEventAttributes + Amazonka.SWF.Types.ResourceTag + Amazonka.SWF.Types.ScheduleActivityTaskDecisionAttributes + Amazonka.SWF.Types.ScheduleActivityTaskFailedCause + Amazonka.SWF.Types.ScheduleActivityTaskFailedEventAttributes + Amazonka.SWF.Types.ScheduleLambdaFunctionDecisionAttributes + Amazonka.SWF.Types.ScheduleLambdaFunctionFailedCause + Amazonka.SWF.Types.ScheduleLambdaFunctionFailedEventAttributes + Amazonka.SWF.Types.SignalExternalWorkflowExecutionDecisionAttributes + Amazonka.SWF.Types.SignalExternalWorkflowExecutionFailedCause + Amazonka.SWF.Types.SignalExternalWorkflowExecutionFailedEventAttributes + Amazonka.SWF.Types.SignalExternalWorkflowExecutionInitiatedEventAttributes + Amazonka.SWF.Types.StartChildWorkflowExecutionDecisionAttributes + Amazonka.SWF.Types.StartChildWorkflowExecutionFailedCause + Amazonka.SWF.Types.StartChildWorkflowExecutionFailedEventAttributes + Amazonka.SWF.Types.StartChildWorkflowExecutionInitiatedEventAttributes + Amazonka.SWF.Types.StartLambdaFunctionFailedCause + Amazonka.SWF.Types.StartLambdaFunctionFailedEventAttributes + Amazonka.SWF.Types.StartTimerDecisionAttributes + Amazonka.SWF.Types.StartTimerFailedCause + Amazonka.SWF.Types.StartTimerFailedEventAttributes + Amazonka.SWF.Types.TagFilter + Amazonka.SWF.Types.TaskList + Amazonka.SWF.Types.TimerCanceledEventAttributes + Amazonka.SWF.Types.TimerFiredEventAttributes + Amazonka.SWF.Types.TimerStartedEventAttributes + Amazonka.SWF.Types.WorkflowExecution + Amazonka.SWF.Types.WorkflowExecutionCanceledEventAttributes + Amazonka.SWF.Types.WorkflowExecutionCancelRequestedCause + Amazonka.SWF.Types.WorkflowExecutionCancelRequestedEventAttributes + Amazonka.SWF.Types.WorkflowExecutionCompletedEventAttributes + Amazonka.SWF.Types.WorkflowExecutionConfiguration + Amazonka.SWF.Types.WorkflowExecutionContinuedAsNewEventAttributes + Amazonka.SWF.Types.WorkflowExecutionCount + Amazonka.SWF.Types.WorkflowExecutionFailedEventAttributes + Amazonka.SWF.Types.WorkflowExecutionFilter + Amazonka.SWF.Types.WorkflowExecutionInfo + Amazonka.SWF.Types.WorkflowExecutionInfos + Amazonka.SWF.Types.WorkflowExecutionOpenCounts + Amazonka.SWF.Types.WorkflowExecutionSignaledEventAttributes + Amazonka.SWF.Types.WorkflowExecutionStartedEventAttributes + Amazonka.SWF.Types.WorkflowExecutionTerminatedCause + Amazonka.SWF.Types.WorkflowExecutionTerminatedEventAttributes + Amazonka.SWF.Types.WorkflowExecutionTimedOutEventAttributes + Amazonka.SWF.Types.WorkflowExecutionTimeoutType + Amazonka.SWF.Types.WorkflowType + Amazonka.SWF.Types.WorkflowTypeConfiguration + Amazonka.SWF.Types.WorkflowTypeFilter + Amazonka.SWF.Types.WorkflowTypeInfo + Amazonka.SWF.UndeprecateActivityType + Amazonka.SWF.UndeprecateDomain + Amazonka.SWF.UndeprecateWorkflowType + Amazonka.SWF.UntagResource + Amazonka.SWF.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-swf-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.SWF - , Test.AWS.Gen.SWF - , Test.AWS.SWF.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.Gen.SWF + Test.Amazonka.SWF + Test.Amazonka.SWF.Internal - build-depends: - amazonka-core == 1.6.1.* - , amazonka-test == 1.6.1.* - , amazonka-swf - , base - , bytestring - , tasty - , tasty-hunit - , text - , time - , unordered-containers + build-depends: + , amazonka-core >=2.0 && <2.1 + , amazonka-swf + , amazonka-test >=2.0 && <2.1 + , base + , bytestring + , case-insensitive + , tasty + , tasty-hunit + , text + , time + , unordered-containers diff --git a/fixture/CountClosedWorkflowExecutions.yaml b/fixture/CountClosedWorkflowExecutions.yaml --- a/fixture/CountClosedWorkflowExecutions.yaml +++ b/fixture/CountClosedWorkflowExecutions.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/CountOpenWorkflowExecutions.yaml b/fixture/CountOpenWorkflowExecutions.yaml --- a/fixture/CountOpenWorkflowExecutions.yaml +++ b/fixture/CountOpenWorkflowExecutions.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/CountPendingActivityTasks.yaml b/fixture/CountPendingActivityTasks.yaml --- a/fixture/CountPendingActivityTasks.yaml +++ b/fixture/CountPendingActivityTasks.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/CountPendingDecisionTasks.yaml b/fixture/CountPendingDecisionTasks.yaml --- a/fixture/CountPendingDecisionTasks.yaml +++ b/fixture/CountPendingDecisionTasks.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/DeprecateActivityType.yaml b/fixture/DeprecateActivityType.yaml --- a/fixture/DeprecateActivityType.yaml +++ b/fixture/DeprecateActivityType.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/DeprecateDomain.yaml b/fixture/DeprecateDomain.yaml --- a/fixture/DeprecateDomain.yaml +++ b/fixture/DeprecateDomain.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/DeprecateWorkflowType.yaml b/fixture/DeprecateWorkflowType.yaml --- a/fixture/DeprecateWorkflowType.yaml +++ b/fixture/DeprecateWorkflowType.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/DescribeActivityType.yaml b/fixture/DescribeActivityType.yaml --- a/fixture/DescribeActivityType.yaml +++ b/fixture/DescribeActivityType.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/DescribeDomain.yaml b/fixture/DescribeDomain.yaml --- a/fixture/DescribeDomain.yaml +++ b/fixture/DescribeDomain.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/DescribeWorkflowExecution.yaml b/fixture/DescribeWorkflowExecution.yaml --- a/fixture/DescribeWorkflowExecution.yaml +++ b/fixture/DescribeWorkflowExecution.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/DescribeWorkflowType.yaml b/fixture/DescribeWorkflowType.yaml --- a/fixture/DescribeWorkflowType.yaml +++ b/fixture/DescribeWorkflowType.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/GetWorkflowExecutionHistory.yaml b/fixture/GetWorkflowExecutionHistory.yaml --- a/fixture/GetWorkflowExecutionHistory.yaml +++ b/fixture/GetWorkflowExecutionHistory.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/ListActivityTypes.yaml b/fixture/ListActivityTypes.yaml --- a/fixture/ListActivityTypes.yaml +++ b/fixture/ListActivityTypes.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/ListClosedWorkflowExecutions.yaml b/fixture/ListClosedWorkflowExecutions.yaml --- a/fixture/ListClosedWorkflowExecutions.yaml +++ b/fixture/ListClosedWorkflowExecutions.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/ListDomains.yaml b/fixture/ListDomains.yaml --- a/fixture/ListDomains.yaml +++ b/fixture/ListDomains.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/ListOpenWorkflowExecutions.yaml b/fixture/ListOpenWorkflowExecutions.yaml --- a/fixture/ListOpenWorkflowExecutions.yaml +++ b/fixture/ListOpenWorkflowExecutions.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/ListTagsForResource.yaml b/fixture/ListTagsForResource.yaml new file mode 100644 --- /dev/null +++ b/fixture/ListTagsForResource.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/ListTagsForResourceResponse.proto b/fixture/ListTagsForResourceResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ListTagsForResourceResponse.proto diff --git a/fixture/ListWorkflowTypes.yaml b/fixture/ListWorkflowTypes.yaml --- a/fixture/ListWorkflowTypes.yaml +++ b/fixture/ListWorkflowTypes.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/PollForActivityTask.yaml b/fixture/PollForActivityTask.yaml --- a/fixture/PollForActivityTask.yaml +++ b/fixture/PollForActivityTask.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/PollForActivityTaskResponse.proto b/fixture/PollForActivityTaskResponse.proto --- a/fixture/PollForActivityTaskResponse.proto +++ b/fixture/PollForActivityTaskResponse.proto @@ -1,14 +0,0 @@ -{ - "workflowExecution": { - "workflowId": "20110927-T-1", - "runId": "cfa2bd33-31b0-4b75-b131-255bb0d97b3f" - }, - "taskToken": "AAAAKgAAAAEAAAAAAAAAATZDvCYwk/hP/X1ZGdJhb+T6OWzcBx2DPhsIi5HF4aGQI4OXrDE7Ny3uM+aiAhGrmeNyVAa4yNIBQuoZuJA5G+BoaB0JuHFBOynHDTnm7ayNH43KhMkfdrDG4elfHSz3m/EtbLnFGueAr7+3NKDG6x4sTKg3cZpOtSguSx05yI1X3AtscS8ATcLB2Y3Aub1YonN/i/k67voca/GFsSiwSz3AAnJj1IPvrujgIj9KUvckwRPC5ET7d33XJcRp+gHYzZsBLVBaRmV3gEYAnp2ICslFn4YSjGy+dFXCNpOa4G1O8pczCbFUGbQ3+5wf0RSaa/xMq2pfdBKnuFp0wp8kw1k+5ZsbtDZeZn8g5GyKCLiLms/xD0OxugGGUe5ZlAoHEkTWGxZj/G32P7cMoCgrcACfFPdx1LNYYEre7YiGiyjGnfW2t5mW7VK9Np28vcXVbdpH4JNEB9OuB1xqL8N8ifPVtc72uxB1i9XEdq/8rkXasSEw4TubB2FwgqnuJstmfEhpOdb5HfhR6OwmnHuk9eszO/fUkGucTUXQP2hhB+Gz", - "startedEventId": 11, - "input": "5634-0056-4367-0923,12/12,437", - "activityType": { - "version": "1.0", - "name": "activityVerify" - }, - "activityId": "verification-27" -} diff --git a/fixture/PollForDecisionTask.yaml b/fixture/PollForDecisionTask.yaml --- a/fixture/PollForDecisionTask.yaml +++ b/fixture/PollForDecisionTask.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/PollForDecisionTaskResponse.proto b/fixture/PollForDecisionTaskResponse.proto --- a/fixture/PollForDecisionTaskResponse.proto +++ b/fixture/PollForDecisionTaskResponse.proto @@ -1,48 +0,0 @@ -{ - "previousStartedEventId": 0, - "workflowExecution": { - "workflowId": "20110927-T-1", - "runId": "06b8f87a-24b3-40b6-9ceb-9676f28e9493" - }, - "startedEventId": 3, - "workflowType": { - "version": "1.0", - "name": "customerOrderWorkflow" - }, - "events": [ - { - "eventId": 3, - "decisionTaskStartedEventAttributes": { - "scheduledEventId": 2, - "identity": "Decider01" - }, - "eventTimestamp": 1326593394.566, - "eventType": "DecisionTaskStarted" - }, - { - "eventId": 1, - "eventType": "WorkflowExecutionStarted", - "workflowExecutionStartedEventAttributes": { - "taskList": { - "name": "specialTaskList" - }, - "parentInitiatedEventId": 0, - "taskStartToCloseTimeout": "600", - "childPolicy": "TERMINATE", - "executionStartToCloseTimeout": "3600", - "input": "arbitrary-string-that-is-meaningful-to-the-workflow", - "workflowType": { - "version": "1.0", - "name": "customerOrderWorkflow" - }, - "tagList": [ - "music purchase", - "digital", - "ricoh-the-dog" - ] - }, - "eventTimestamp": 1326592619.474 - } - ], - "taskToken": "AAAAKgAAAAEAAAAAAAAAATZDvCYwk\/hP\/X1ZGdJhb+T6OWzcBx2DPhsIi5HF4aGQI4OXrDE7Ny3uM+aiAhGrmeNyVAa4yNIBQuoZuJA5G+BoaB0JuHFBOynHDTnm7ayNH43KhMkfdrDG4elfHSz3m\/EtbLnFGueAr7+3NKDG6x4sTKg3cZpOtSguSx05yI1X3AtscS8ATcLB2Y3Aub1YonN\/i\/k67voca\/GFsSiwSz3AAnJj1IPvrujgIj9KUvckwRPC5ET7d33XJcRp+gHYzZsBLVBaRmV3gEYAnp2ICslFn4YSjGy+dFXCNpOa4G1O8pczCbFUGbQ3+5wf0RSaa\/xMq2pfdBKnuFp0wp8kw1k+5ZsbtDZeZn8g5GyKCLiLms\/xD0OxugGGUe5ZlAoHEkTWGxZj\/G32P7cMoCgrcACfFPdx1LNYYEre7YiGiyjGnfW2t5mW7VK9Np28vcXVbdpH4JNEB9OuB1xqL8N8ifPVtc72uxB1i9XEdq\/8rkXasSEw4TubB2FwgqnuJstmfEhpOdb5HfhR6OwmnHuk9eszO\/fUkGucTUXQP2hhB+Gz" -} diff --git a/fixture/RecordActivityTaskHeartbeat.yaml b/fixture/RecordActivityTaskHeartbeat.yaml --- a/fixture/RecordActivityTaskHeartbeat.yaml +++ b/fixture/RecordActivityTaskHeartbeat.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/RegisterActivityType.yaml b/fixture/RegisterActivityType.yaml --- a/fixture/RegisterActivityType.yaml +++ b/fixture/RegisterActivityType.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/RegisterDomain.yaml b/fixture/RegisterDomain.yaml --- a/fixture/RegisterDomain.yaml +++ b/fixture/RegisterDomain.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/RegisterWorkflowType.yaml b/fixture/RegisterWorkflowType.yaml --- a/fixture/RegisterWorkflowType.yaml +++ b/fixture/RegisterWorkflowType.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/RequestCancelWorkflowExecution.yaml b/fixture/RequestCancelWorkflowExecution.yaml --- a/fixture/RequestCancelWorkflowExecution.yaml +++ b/fixture/RequestCancelWorkflowExecution.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/RespondActivityTaskCanceled.yaml b/fixture/RespondActivityTaskCanceled.yaml --- a/fixture/RespondActivityTaskCanceled.yaml +++ b/fixture/RespondActivityTaskCanceled.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/RespondActivityTaskCompleted.yaml b/fixture/RespondActivityTaskCompleted.yaml --- a/fixture/RespondActivityTaskCompleted.yaml +++ b/fixture/RespondActivityTaskCompleted.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/RespondActivityTaskFailed.yaml b/fixture/RespondActivityTaskFailed.yaml --- a/fixture/RespondActivityTaskFailed.yaml +++ b/fixture/RespondActivityTaskFailed.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/RespondDecisionTaskCompleted.yaml b/fixture/RespondDecisionTaskCompleted.yaml --- a/fixture/RespondDecisionTaskCompleted.yaml +++ b/fixture/RespondDecisionTaskCompleted.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/SignalWorkflowExecution.yaml b/fixture/SignalWorkflowExecution.yaml --- a/fixture/SignalWorkflowExecution.yaml +++ b/fixture/SignalWorkflowExecution.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/StartWorkflowExecution.yaml b/fixture/StartWorkflowExecution.yaml --- a/fixture/StartWorkflowExecution.yaml +++ b/fixture/StartWorkflowExecution.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/TagResource.yaml b/fixture/TagResource.yaml new file mode 100644 --- /dev/null +++ b/fixture/TagResource.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/TagResourceResponse.proto b/fixture/TagResourceResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/TagResourceResponse.proto diff --git a/fixture/TerminateWorkflowExecution.yaml b/fixture/TerminateWorkflowExecution.yaml --- a/fixture/TerminateWorkflowExecution.yaml +++ b/fixture/TerminateWorkflowExecution.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/UndeprecateActivityType.yaml b/fixture/UndeprecateActivityType.yaml new file mode 100644 --- /dev/null +++ b/fixture/UndeprecateActivityType.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/UndeprecateActivityTypeResponse.proto b/fixture/UndeprecateActivityTypeResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UndeprecateActivityTypeResponse.proto diff --git a/fixture/UndeprecateDomain.yaml b/fixture/UndeprecateDomain.yaml new file mode 100644 --- /dev/null +++ b/fixture/UndeprecateDomain.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/UndeprecateDomainResponse.proto b/fixture/UndeprecateDomainResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UndeprecateDomainResponse.proto diff --git a/fixture/UndeprecateWorkflowType.yaml b/fixture/UndeprecateWorkflowType.yaml new file mode 100644 --- /dev/null +++ b/fixture/UndeprecateWorkflowType.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/UndeprecateWorkflowTypeResponse.proto b/fixture/UndeprecateWorkflowTypeResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UndeprecateWorkflowTypeResponse.proto diff --git a/fixture/UntagResource.yaml b/fixture/UntagResource.yaml new file mode 100644 --- /dev/null +++ b/fixture/UntagResource.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/swf/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: swf.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/UntagResourceResponse.proto b/fixture/UntagResourceResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/UntagResourceResponse.proto diff --git a/gen/Amazonka/SWF.hs b/gen/Amazonka/SWF.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF.hs @@ -0,0 +1,809 @@ +{-# OPTIONS_GHC -fno-warn-duplicate-exports #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- | +-- Module : Amazonka.SWF +-- 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 @2012-01-25@ of the AWS service descriptions, licensed under Apache 2.0. +-- +-- Amazon Simple Workflow Service +-- +-- The Amazon Simple Workflow Service (Amazon SWF) makes it easy to build +-- applications that use Amazon\'s cloud to coordinate work across +-- distributed components. In Amazon SWF, a /task/ represents a logical +-- unit of work that is performed by a component of your workflow. +-- Coordinating tasks in a workflow involves managing intertask +-- dependencies, scheduling, and concurrency in accordance with the logical +-- flow of the application. +-- +-- Amazon SWF gives you full control over implementing tasks and +-- coordinating them without worrying about underlying complexities such as +-- tracking their progress and maintaining their state. +-- +-- This documentation serves as reference only. For a broader overview of +-- the Amazon SWF programming model, see the +-- // +-- . +module Amazonka.SWF + ( -- * Service Configuration + defaultService, + + -- * Errors + -- $errors + + -- ** DefaultUndefinedFault + _DefaultUndefinedFault, + + -- ** DomainAlreadyExistsFault + _DomainAlreadyExistsFault, + + -- ** DomainDeprecatedFault + _DomainDeprecatedFault, + + -- ** LimitExceededFault + _LimitExceededFault, + + -- ** OperationNotPermittedFault + _OperationNotPermittedFault, + + -- ** TooManyTagsFault + _TooManyTagsFault, + + -- ** TypeAlreadyExistsFault + _TypeAlreadyExistsFault, + + -- ** TypeDeprecatedFault + _TypeDeprecatedFault, + + -- ** UnknownResourceFault + _UnknownResourceFault, + + -- ** WorkflowExecutionAlreadyStartedFault + _WorkflowExecutionAlreadyStartedFault, + + -- * Waiters + -- $waiters + + -- * Operations + -- $operations + + -- ** CountClosedWorkflowExecutions + CountClosedWorkflowExecutions (CountClosedWorkflowExecutions'), + newCountClosedWorkflowExecutions, + WorkflowExecutionCount (WorkflowExecutionCount'), + newWorkflowExecutionCount, + + -- ** CountOpenWorkflowExecutions + CountOpenWorkflowExecutions (CountOpenWorkflowExecutions'), + newCountOpenWorkflowExecutions, + WorkflowExecutionCount (WorkflowExecutionCount'), + newWorkflowExecutionCount, + + -- ** CountPendingActivityTasks + CountPendingActivityTasks (CountPendingActivityTasks'), + newCountPendingActivityTasks, + PendingTaskCount (PendingTaskCount'), + newPendingTaskCount, + + -- ** CountPendingDecisionTasks + CountPendingDecisionTasks (CountPendingDecisionTasks'), + newCountPendingDecisionTasks, + PendingTaskCount (PendingTaskCount'), + newPendingTaskCount, + + -- ** DeprecateActivityType + DeprecateActivityType (DeprecateActivityType'), + newDeprecateActivityType, + DeprecateActivityTypeResponse (DeprecateActivityTypeResponse'), + newDeprecateActivityTypeResponse, + + -- ** DeprecateDomain + DeprecateDomain (DeprecateDomain'), + newDeprecateDomain, + DeprecateDomainResponse (DeprecateDomainResponse'), + newDeprecateDomainResponse, + + -- ** DeprecateWorkflowType + DeprecateWorkflowType (DeprecateWorkflowType'), + newDeprecateWorkflowType, + DeprecateWorkflowTypeResponse (DeprecateWorkflowTypeResponse'), + newDeprecateWorkflowTypeResponse, + + -- ** DescribeActivityType + DescribeActivityType (DescribeActivityType'), + newDescribeActivityType, + DescribeActivityTypeResponse (DescribeActivityTypeResponse'), + newDescribeActivityTypeResponse, + + -- ** DescribeDomain + DescribeDomain (DescribeDomain'), + newDescribeDomain, + DescribeDomainResponse (DescribeDomainResponse'), + newDescribeDomainResponse, + + -- ** DescribeWorkflowExecution + DescribeWorkflowExecution (DescribeWorkflowExecution'), + newDescribeWorkflowExecution, + DescribeWorkflowExecutionResponse (DescribeWorkflowExecutionResponse'), + newDescribeWorkflowExecutionResponse, + + -- ** DescribeWorkflowType + DescribeWorkflowType (DescribeWorkflowType'), + newDescribeWorkflowType, + DescribeWorkflowTypeResponse (DescribeWorkflowTypeResponse'), + newDescribeWorkflowTypeResponse, + + -- ** GetWorkflowExecutionHistory (Paginated) + GetWorkflowExecutionHistory (GetWorkflowExecutionHistory'), + newGetWorkflowExecutionHistory, + GetWorkflowExecutionHistoryResponse (GetWorkflowExecutionHistoryResponse'), + newGetWorkflowExecutionHistoryResponse, + + -- ** ListActivityTypes (Paginated) + ListActivityTypes (ListActivityTypes'), + newListActivityTypes, + ListActivityTypesResponse (ListActivityTypesResponse'), + newListActivityTypesResponse, + + -- ** ListClosedWorkflowExecutions (Paginated) + ListClosedWorkflowExecutions (ListClosedWorkflowExecutions'), + newListClosedWorkflowExecutions, + WorkflowExecutionInfos (WorkflowExecutionInfos'), + newWorkflowExecutionInfos, + + -- ** ListDomains (Paginated) + ListDomains (ListDomains'), + newListDomains, + ListDomainsResponse (ListDomainsResponse'), + newListDomainsResponse, + + -- ** ListOpenWorkflowExecutions (Paginated) + ListOpenWorkflowExecutions (ListOpenWorkflowExecutions'), + newListOpenWorkflowExecutions, + WorkflowExecutionInfos (WorkflowExecutionInfos'), + newWorkflowExecutionInfos, + + -- ** ListTagsForResource + ListTagsForResource (ListTagsForResource'), + newListTagsForResource, + ListTagsForResourceResponse (ListTagsForResourceResponse'), + newListTagsForResourceResponse, + + -- ** ListWorkflowTypes (Paginated) + ListWorkflowTypes (ListWorkflowTypes'), + newListWorkflowTypes, + ListWorkflowTypesResponse (ListWorkflowTypesResponse'), + newListWorkflowTypesResponse, + + -- ** PollForActivityTask + PollForActivityTask (PollForActivityTask'), + newPollForActivityTask, + PollForActivityTaskResponse (PollForActivityTaskResponse'), + newPollForActivityTaskResponse, + + -- ** PollForDecisionTask (Paginated) + PollForDecisionTask (PollForDecisionTask'), + newPollForDecisionTask, + PollForDecisionTaskResponse (PollForDecisionTaskResponse'), + newPollForDecisionTaskResponse, + + -- ** RecordActivityTaskHeartbeat + RecordActivityTaskHeartbeat (RecordActivityTaskHeartbeat'), + newRecordActivityTaskHeartbeat, + RecordActivityTaskHeartbeatResponse (RecordActivityTaskHeartbeatResponse'), + newRecordActivityTaskHeartbeatResponse, + + -- ** RegisterActivityType + RegisterActivityType (RegisterActivityType'), + newRegisterActivityType, + RegisterActivityTypeResponse (RegisterActivityTypeResponse'), + newRegisterActivityTypeResponse, + + -- ** RegisterDomain + RegisterDomain (RegisterDomain'), + newRegisterDomain, + RegisterDomainResponse (RegisterDomainResponse'), + newRegisterDomainResponse, + + -- ** RegisterWorkflowType + RegisterWorkflowType (RegisterWorkflowType'), + newRegisterWorkflowType, + RegisterWorkflowTypeResponse (RegisterWorkflowTypeResponse'), + newRegisterWorkflowTypeResponse, + + -- ** RequestCancelWorkflowExecution + RequestCancelWorkflowExecution (RequestCancelWorkflowExecution'), + newRequestCancelWorkflowExecution, + RequestCancelWorkflowExecutionResponse (RequestCancelWorkflowExecutionResponse'), + newRequestCancelWorkflowExecutionResponse, + + -- ** RespondActivityTaskCanceled + RespondActivityTaskCanceled (RespondActivityTaskCanceled'), + newRespondActivityTaskCanceled, + RespondActivityTaskCanceledResponse (RespondActivityTaskCanceledResponse'), + newRespondActivityTaskCanceledResponse, + + -- ** RespondActivityTaskCompleted + RespondActivityTaskCompleted (RespondActivityTaskCompleted'), + newRespondActivityTaskCompleted, + RespondActivityTaskCompletedResponse (RespondActivityTaskCompletedResponse'), + newRespondActivityTaskCompletedResponse, + + -- ** RespondActivityTaskFailed + RespondActivityTaskFailed (RespondActivityTaskFailed'), + newRespondActivityTaskFailed, + RespondActivityTaskFailedResponse (RespondActivityTaskFailedResponse'), + newRespondActivityTaskFailedResponse, + + -- ** RespondDecisionTaskCompleted + RespondDecisionTaskCompleted (RespondDecisionTaskCompleted'), + newRespondDecisionTaskCompleted, + RespondDecisionTaskCompletedResponse (RespondDecisionTaskCompletedResponse'), + newRespondDecisionTaskCompletedResponse, + + -- ** SignalWorkflowExecution + SignalWorkflowExecution (SignalWorkflowExecution'), + newSignalWorkflowExecution, + SignalWorkflowExecutionResponse (SignalWorkflowExecutionResponse'), + newSignalWorkflowExecutionResponse, + + -- ** StartWorkflowExecution + StartWorkflowExecution (StartWorkflowExecution'), + newStartWorkflowExecution, + StartWorkflowExecutionResponse (StartWorkflowExecutionResponse'), + newStartWorkflowExecutionResponse, + + -- ** TagResource + TagResource (TagResource'), + newTagResource, + TagResourceResponse (TagResourceResponse'), + newTagResourceResponse, + + -- ** TerminateWorkflowExecution + TerminateWorkflowExecution (TerminateWorkflowExecution'), + newTerminateWorkflowExecution, + TerminateWorkflowExecutionResponse (TerminateWorkflowExecutionResponse'), + newTerminateWorkflowExecutionResponse, + + -- ** UndeprecateActivityType + UndeprecateActivityType (UndeprecateActivityType'), + newUndeprecateActivityType, + UndeprecateActivityTypeResponse (UndeprecateActivityTypeResponse'), + newUndeprecateActivityTypeResponse, + + -- ** UndeprecateDomain + UndeprecateDomain (UndeprecateDomain'), + newUndeprecateDomain, + UndeprecateDomainResponse (UndeprecateDomainResponse'), + newUndeprecateDomainResponse, + + -- ** UndeprecateWorkflowType + UndeprecateWorkflowType (UndeprecateWorkflowType'), + newUndeprecateWorkflowType, + UndeprecateWorkflowTypeResponse (UndeprecateWorkflowTypeResponse'), + newUndeprecateWorkflowTypeResponse, + + -- ** UntagResource + UntagResource (UntagResource'), + newUntagResource, + UntagResourceResponse (UntagResourceResponse'), + newUntagResourceResponse, + + -- * Types + + -- ** ActivityTaskTimeoutType + ActivityTaskTimeoutType (..), + + -- ** CancelTimerFailedCause + CancelTimerFailedCause (..), + + -- ** CancelWorkflowExecutionFailedCause + CancelWorkflowExecutionFailedCause (..), + + -- ** ChildPolicy + ChildPolicy (..), + + -- ** CloseStatus + CloseStatus (..), + + -- ** CompleteWorkflowExecutionFailedCause + CompleteWorkflowExecutionFailedCause (..), + + -- ** ContinueAsNewWorkflowExecutionFailedCause + ContinueAsNewWorkflowExecutionFailedCause (..), + + -- ** DecisionTaskTimeoutType + DecisionTaskTimeoutType (..), + + -- ** DecisionType + DecisionType (..), + + -- ** EventType + EventType (..), + + -- ** ExecutionStatus + ExecutionStatus (..), + + -- ** FailWorkflowExecutionFailedCause + FailWorkflowExecutionFailedCause (..), + + -- ** LambdaFunctionTimeoutType + LambdaFunctionTimeoutType (..), + + -- ** RecordMarkerFailedCause + RecordMarkerFailedCause (..), + + -- ** RegistrationStatus + RegistrationStatus (..), + + -- ** RequestCancelActivityTaskFailedCause + RequestCancelActivityTaskFailedCause (..), + + -- ** RequestCancelExternalWorkflowExecutionFailedCause + RequestCancelExternalWorkflowExecutionFailedCause (..), + + -- ** ScheduleActivityTaskFailedCause + ScheduleActivityTaskFailedCause (..), + + -- ** ScheduleLambdaFunctionFailedCause + ScheduleLambdaFunctionFailedCause (..), + + -- ** SignalExternalWorkflowExecutionFailedCause + SignalExternalWorkflowExecutionFailedCause (..), + + -- ** StartChildWorkflowExecutionFailedCause + StartChildWorkflowExecutionFailedCause (..), + + -- ** StartLambdaFunctionFailedCause + StartLambdaFunctionFailedCause (..), + + -- ** StartTimerFailedCause + StartTimerFailedCause (..), + + -- ** WorkflowExecutionCancelRequestedCause + WorkflowExecutionCancelRequestedCause (..), + + -- ** WorkflowExecutionTerminatedCause + WorkflowExecutionTerminatedCause (..), + + -- ** WorkflowExecutionTimeoutType + WorkflowExecutionTimeoutType (..), + + -- ** ActivityTaskCancelRequestedEventAttributes + ActivityTaskCancelRequestedEventAttributes (ActivityTaskCancelRequestedEventAttributes'), + newActivityTaskCancelRequestedEventAttributes, + + -- ** ActivityTaskCanceledEventAttributes + ActivityTaskCanceledEventAttributes (ActivityTaskCanceledEventAttributes'), + newActivityTaskCanceledEventAttributes, + + -- ** ActivityTaskCompletedEventAttributes + ActivityTaskCompletedEventAttributes (ActivityTaskCompletedEventAttributes'), + newActivityTaskCompletedEventAttributes, + + -- ** ActivityTaskFailedEventAttributes + ActivityTaskFailedEventAttributes (ActivityTaskFailedEventAttributes'), + newActivityTaskFailedEventAttributes, + + -- ** ActivityTaskScheduledEventAttributes + ActivityTaskScheduledEventAttributes (ActivityTaskScheduledEventAttributes'), + newActivityTaskScheduledEventAttributes, + + -- ** ActivityTaskStartedEventAttributes + ActivityTaskStartedEventAttributes (ActivityTaskStartedEventAttributes'), + newActivityTaskStartedEventAttributes, + + -- ** ActivityTaskTimedOutEventAttributes + ActivityTaskTimedOutEventAttributes (ActivityTaskTimedOutEventAttributes'), + newActivityTaskTimedOutEventAttributes, + + -- ** ActivityType + ActivityType (ActivityType'), + newActivityType, + + -- ** ActivityTypeConfiguration + ActivityTypeConfiguration (ActivityTypeConfiguration'), + newActivityTypeConfiguration, + + -- ** ActivityTypeInfo + ActivityTypeInfo (ActivityTypeInfo'), + newActivityTypeInfo, + + -- ** CancelTimerDecisionAttributes + CancelTimerDecisionAttributes (CancelTimerDecisionAttributes'), + newCancelTimerDecisionAttributes, + + -- ** CancelTimerFailedEventAttributes + CancelTimerFailedEventAttributes (CancelTimerFailedEventAttributes'), + newCancelTimerFailedEventAttributes, + + -- ** CancelWorkflowExecutionDecisionAttributes + CancelWorkflowExecutionDecisionAttributes (CancelWorkflowExecutionDecisionAttributes'), + newCancelWorkflowExecutionDecisionAttributes, + + -- ** CancelWorkflowExecutionFailedEventAttributes + CancelWorkflowExecutionFailedEventAttributes (CancelWorkflowExecutionFailedEventAttributes'), + newCancelWorkflowExecutionFailedEventAttributes, + + -- ** ChildWorkflowExecutionCanceledEventAttributes + ChildWorkflowExecutionCanceledEventAttributes (ChildWorkflowExecutionCanceledEventAttributes'), + newChildWorkflowExecutionCanceledEventAttributes, + + -- ** ChildWorkflowExecutionCompletedEventAttributes + ChildWorkflowExecutionCompletedEventAttributes (ChildWorkflowExecutionCompletedEventAttributes'), + newChildWorkflowExecutionCompletedEventAttributes, + + -- ** ChildWorkflowExecutionFailedEventAttributes + ChildWorkflowExecutionFailedEventAttributes (ChildWorkflowExecutionFailedEventAttributes'), + newChildWorkflowExecutionFailedEventAttributes, + + -- ** ChildWorkflowExecutionStartedEventAttributes + ChildWorkflowExecutionStartedEventAttributes (ChildWorkflowExecutionStartedEventAttributes'), + newChildWorkflowExecutionStartedEventAttributes, + + -- ** ChildWorkflowExecutionTerminatedEventAttributes + ChildWorkflowExecutionTerminatedEventAttributes (ChildWorkflowExecutionTerminatedEventAttributes'), + newChildWorkflowExecutionTerminatedEventAttributes, + + -- ** ChildWorkflowExecutionTimedOutEventAttributes + ChildWorkflowExecutionTimedOutEventAttributes (ChildWorkflowExecutionTimedOutEventAttributes'), + newChildWorkflowExecutionTimedOutEventAttributes, + + -- ** CloseStatusFilter + CloseStatusFilter (CloseStatusFilter'), + newCloseStatusFilter, + + -- ** CompleteWorkflowExecutionDecisionAttributes + CompleteWorkflowExecutionDecisionAttributes (CompleteWorkflowExecutionDecisionAttributes'), + newCompleteWorkflowExecutionDecisionAttributes, + + -- ** CompleteWorkflowExecutionFailedEventAttributes + CompleteWorkflowExecutionFailedEventAttributes (CompleteWorkflowExecutionFailedEventAttributes'), + newCompleteWorkflowExecutionFailedEventAttributes, + + -- ** ContinueAsNewWorkflowExecutionDecisionAttributes + ContinueAsNewWorkflowExecutionDecisionAttributes (ContinueAsNewWorkflowExecutionDecisionAttributes'), + newContinueAsNewWorkflowExecutionDecisionAttributes, + + -- ** ContinueAsNewWorkflowExecutionFailedEventAttributes + ContinueAsNewWorkflowExecutionFailedEventAttributes (ContinueAsNewWorkflowExecutionFailedEventAttributes'), + newContinueAsNewWorkflowExecutionFailedEventAttributes, + + -- ** Decision + Decision (Decision'), + newDecision, + + -- ** DecisionTaskCompletedEventAttributes + DecisionTaskCompletedEventAttributes (DecisionTaskCompletedEventAttributes'), + newDecisionTaskCompletedEventAttributes, + + -- ** DecisionTaskScheduledEventAttributes + DecisionTaskScheduledEventAttributes (DecisionTaskScheduledEventAttributes'), + newDecisionTaskScheduledEventAttributes, + + -- ** DecisionTaskStartedEventAttributes + DecisionTaskStartedEventAttributes (DecisionTaskStartedEventAttributes'), + newDecisionTaskStartedEventAttributes, + + -- ** DecisionTaskTimedOutEventAttributes + DecisionTaskTimedOutEventAttributes (DecisionTaskTimedOutEventAttributes'), + newDecisionTaskTimedOutEventAttributes, + + -- ** DomainConfiguration + DomainConfiguration (DomainConfiguration'), + newDomainConfiguration, + + -- ** DomainInfo + DomainInfo (DomainInfo'), + newDomainInfo, + + -- ** ExecutionTimeFilter + ExecutionTimeFilter (ExecutionTimeFilter'), + newExecutionTimeFilter, + + -- ** ExternalWorkflowExecutionCancelRequestedEventAttributes + ExternalWorkflowExecutionCancelRequestedEventAttributes (ExternalWorkflowExecutionCancelRequestedEventAttributes'), + newExternalWorkflowExecutionCancelRequestedEventAttributes, + + -- ** ExternalWorkflowExecutionSignaledEventAttributes + ExternalWorkflowExecutionSignaledEventAttributes (ExternalWorkflowExecutionSignaledEventAttributes'), + newExternalWorkflowExecutionSignaledEventAttributes, + + -- ** FailWorkflowExecutionDecisionAttributes + FailWorkflowExecutionDecisionAttributes (FailWorkflowExecutionDecisionAttributes'), + newFailWorkflowExecutionDecisionAttributes, + + -- ** FailWorkflowExecutionFailedEventAttributes + FailWorkflowExecutionFailedEventAttributes (FailWorkflowExecutionFailedEventAttributes'), + newFailWorkflowExecutionFailedEventAttributes, + + -- ** HistoryEvent + HistoryEvent (HistoryEvent'), + newHistoryEvent, + + -- ** LambdaFunctionCompletedEventAttributes + LambdaFunctionCompletedEventAttributes (LambdaFunctionCompletedEventAttributes'), + newLambdaFunctionCompletedEventAttributes, + + -- ** LambdaFunctionFailedEventAttributes + LambdaFunctionFailedEventAttributes (LambdaFunctionFailedEventAttributes'), + newLambdaFunctionFailedEventAttributes, + + -- ** LambdaFunctionScheduledEventAttributes + LambdaFunctionScheduledEventAttributes (LambdaFunctionScheduledEventAttributes'), + newLambdaFunctionScheduledEventAttributes, + + -- ** LambdaFunctionStartedEventAttributes + LambdaFunctionStartedEventAttributes (LambdaFunctionStartedEventAttributes'), + newLambdaFunctionStartedEventAttributes, + + -- ** LambdaFunctionTimedOutEventAttributes + LambdaFunctionTimedOutEventAttributes (LambdaFunctionTimedOutEventAttributes'), + newLambdaFunctionTimedOutEventAttributes, + + -- ** MarkerRecordedEventAttributes + MarkerRecordedEventAttributes (MarkerRecordedEventAttributes'), + newMarkerRecordedEventAttributes, + + -- ** PendingTaskCount + PendingTaskCount (PendingTaskCount'), + newPendingTaskCount, + + -- ** RecordMarkerDecisionAttributes + RecordMarkerDecisionAttributes (RecordMarkerDecisionAttributes'), + newRecordMarkerDecisionAttributes, + + -- ** RecordMarkerFailedEventAttributes + RecordMarkerFailedEventAttributes (RecordMarkerFailedEventAttributes'), + newRecordMarkerFailedEventAttributes, + + -- ** RequestCancelActivityTaskDecisionAttributes + RequestCancelActivityTaskDecisionAttributes (RequestCancelActivityTaskDecisionAttributes'), + newRequestCancelActivityTaskDecisionAttributes, + + -- ** RequestCancelActivityTaskFailedEventAttributes + RequestCancelActivityTaskFailedEventAttributes (RequestCancelActivityTaskFailedEventAttributes'), + newRequestCancelActivityTaskFailedEventAttributes, + + -- ** RequestCancelExternalWorkflowExecutionDecisionAttributes + RequestCancelExternalWorkflowExecutionDecisionAttributes (RequestCancelExternalWorkflowExecutionDecisionAttributes'), + newRequestCancelExternalWorkflowExecutionDecisionAttributes, + + -- ** RequestCancelExternalWorkflowExecutionFailedEventAttributes + RequestCancelExternalWorkflowExecutionFailedEventAttributes (RequestCancelExternalWorkflowExecutionFailedEventAttributes'), + newRequestCancelExternalWorkflowExecutionFailedEventAttributes, + + -- ** RequestCancelExternalWorkflowExecutionInitiatedEventAttributes + RequestCancelExternalWorkflowExecutionInitiatedEventAttributes (RequestCancelExternalWorkflowExecutionInitiatedEventAttributes'), + newRequestCancelExternalWorkflowExecutionInitiatedEventAttributes, + + -- ** ResourceTag + ResourceTag (ResourceTag'), + newResourceTag, + + -- ** ScheduleActivityTaskDecisionAttributes + ScheduleActivityTaskDecisionAttributes (ScheduleActivityTaskDecisionAttributes'), + newScheduleActivityTaskDecisionAttributes, + + -- ** ScheduleActivityTaskFailedEventAttributes + ScheduleActivityTaskFailedEventAttributes (ScheduleActivityTaskFailedEventAttributes'), + newScheduleActivityTaskFailedEventAttributes, + + -- ** ScheduleLambdaFunctionDecisionAttributes + ScheduleLambdaFunctionDecisionAttributes (ScheduleLambdaFunctionDecisionAttributes'), + newScheduleLambdaFunctionDecisionAttributes, + + -- ** ScheduleLambdaFunctionFailedEventAttributes + ScheduleLambdaFunctionFailedEventAttributes (ScheduleLambdaFunctionFailedEventAttributes'), + newScheduleLambdaFunctionFailedEventAttributes, + + -- ** SignalExternalWorkflowExecutionDecisionAttributes + SignalExternalWorkflowExecutionDecisionAttributes (SignalExternalWorkflowExecutionDecisionAttributes'), + newSignalExternalWorkflowExecutionDecisionAttributes, + + -- ** SignalExternalWorkflowExecutionFailedEventAttributes + SignalExternalWorkflowExecutionFailedEventAttributes (SignalExternalWorkflowExecutionFailedEventAttributes'), + newSignalExternalWorkflowExecutionFailedEventAttributes, + + -- ** SignalExternalWorkflowExecutionInitiatedEventAttributes + SignalExternalWorkflowExecutionInitiatedEventAttributes (SignalExternalWorkflowExecutionInitiatedEventAttributes'), + newSignalExternalWorkflowExecutionInitiatedEventAttributes, + + -- ** StartChildWorkflowExecutionDecisionAttributes + StartChildWorkflowExecutionDecisionAttributes (StartChildWorkflowExecutionDecisionAttributes'), + newStartChildWorkflowExecutionDecisionAttributes, + + -- ** StartChildWorkflowExecutionFailedEventAttributes + StartChildWorkflowExecutionFailedEventAttributes (StartChildWorkflowExecutionFailedEventAttributes'), + newStartChildWorkflowExecutionFailedEventAttributes, + + -- ** StartChildWorkflowExecutionInitiatedEventAttributes + StartChildWorkflowExecutionInitiatedEventAttributes (StartChildWorkflowExecutionInitiatedEventAttributes'), + newStartChildWorkflowExecutionInitiatedEventAttributes, + + -- ** StartLambdaFunctionFailedEventAttributes + StartLambdaFunctionFailedEventAttributes (StartLambdaFunctionFailedEventAttributes'), + newStartLambdaFunctionFailedEventAttributes, + + -- ** StartTimerDecisionAttributes + StartTimerDecisionAttributes (StartTimerDecisionAttributes'), + newStartTimerDecisionAttributes, + + -- ** StartTimerFailedEventAttributes + StartTimerFailedEventAttributes (StartTimerFailedEventAttributes'), + newStartTimerFailedEventAttributes, + + -- ** TagFilter + TagFilter (TagFilter'), + newTagFilter, + + -- ** TaskList + TaskList (TaskList'), + newTaskList, + + -- ** TimerCanceledEventAttributes + TimerCanceledEventAttributes (TimerCanceledEventAttributes'), + newTimerCanceledEventAttributes, + + -- ** TimerFiredEventAttributes + TimerFiredEventAttributes (TimerFiredEventAttributes'), + newTimerFiredEventAttributes, + + -- ** TimerStartedEventAttributes + TimerStartedEventAttributes (TimerStartedEventAttributes'), + newTimerStartedEventAttributes, + + -- ** WorkflowExecution + WorkflowExecution (WorkflowExecution'), + newWorkflowExecution, + + -- ** WorkflowExecutionCancelRequestedEventAttributes + WorkflowExecutionCancelRequestedEventAttributes (WorkflowExecutionCancelRequestedEventAttributes'), + newWorkflowExecutionCancelRequestedEventAttributes, + + -- ** WorkflowExecutionCanceledEventAttributes + WorkflowExecutionCanceledEventAttributes (WorkflowExecutionCanceledEventAttributes'), + newWorkflowExecutionCanceledEventAttributes, + + -- ** WorkflowExecutionCompletedEventAttributes + WorkflowExecutionCompletedEventAttributes (WorkflowExecutionCompletedEventAttributes'), + newWorkflowExecutionCompletedEventAttributes, + + -- ** WorkflowExecutionConfiguration + WorkflowExecutionConfiguration (WorkflowExecutionConfiguration'), + newWorkflowExecutionConfiguration, + + -- ** WorkflowExecutionContinuedAsNewEventAttributes + WorkflowExecutionContinuedAsNewEventAttributes (WorkflowExecutionContinuedAsNewEventAttributes'), + newWorkflowExecutionContinuedAsNewEventAttributes, + + -- ** WorkflowExecutionCount + WorkflowExecutionCount (WorkflowExecutionCount'), + newWorkflowExecutionCount, + + -- ** WorkflowExecutionFailedEventAttributes + WorkflowExecutionFailedEventAttributes (WorkflowExecutionFailedEventAttributes'), + newWorkflowExecutionFailedEventAttributes, + + -- ** WorkflowExecutionFilter + WorkflowExecutionFilter (WorkflowExecutionFilter'), + newWorkflowExecutionFilter, + + -- ** WorkflowExecutionInfo + WorkflowExecutionInfo (WorkflowExecutionInfo'), + newWorkflowExecutionInfo, + + -- ** WorkflowExecutionInfos + WorkflowExecutionInfos (WorkflowExecutionInfos'), + newWorkflowExecutionInfos, + + -- ** WorkflowExecutionOpenCounts + WorkflowExecutionOpenCounts (WorkflowExecutionOpenCounts'), + newWorkflowExecutionOpenCounts, + + -- ** WorkflowExecutionSignaledEventAttributes + WorkflowExecutionSignaledEventAttributes (WorkflowExecutionSignaledEventAttributes'), + newWorkflowExecutionSignaledEventAttributes, + + -- ** WorkflowExecutionStartedEventAttributes + WorkflowExecutionStartedEventAttributes (WorkflowExecutionStartedEventAttributes'), + newWorkflowExecutionStartedEventAttributes, + + -- ** WorkflowExecutionTerminatedEventAttributes + WorkflowExecutionTerminatedEventAttributes (WorkflowExecutionTerminatedEventAttributes'), + newWorkflowExecutionTerminatedEventAttributes, + + -- ** WorkflowExecutionTimedOutEventAttributes + WorkflowExecutionTimedOutEventAttributes (WorkflowExecutionTimedOutEventAttributes'), + newWorkflowExecutionTimedOutEventAttributes, + + -- ** WorkflowType + WorkflowType (WorkflowType'), + newWorkflowType, + + -- ** WorkflowTypeConfiguration + WorkflowTypeConfiguration (WorkflowTypeConfiguration'), + newWorkflowTypeConfiguration, + + -- ** WorkflowTypeFilter + WorkflowTypeFilter (WorkflowTypeFilter'), + newWorkflowTypeFilter, + + -- ** WorkflowTypeInfo + WorkflowTypeInfo (WorkflowTypeInfo'), + newWorkflowTypeInfo, + ) +where + +import Amazonka.SWF.CountClosedWorkflowExecutions +import Amazonka.SWF.CountOpenWorkflowExecutions +import Amazonka.SWF.CountPendingActivityTasks +import Amazonka.SWF.CountPendingDecisionTasks +import Amazonka.SWF.DeprecateActivityType +import Amazonka.SWF.DeprecateDomain +import Amazonka.SWF.DeprecateWorkflowType +import Amazonka.SWF.DescribeActivityType +import Amazonka.SWF.DescribeDomain +import Amazonka.SWF.DescribeWorkflowExecution +import Amazonka.SWF.DescribeWorkflowType +import Amazonka.SWF.GetWorkflowExecutionHistory +import Amazonka.SWF.Lens +import Amazonka.SWF.ListActivityTypes +import Amazonka.SWF.ListClosedWorkflowExecutions +import Amazonka.SWF.ListDomains +import Amazonka.SWF.ListOpenWorkflowExecutions +import Amazonka.SWF.ListTagsForResource +import Amazonka.SWF.ListWorkflowTypes +import Amazonka.SWF.PollForActivityTask +import Amazonka.SWF.PollForDecisionTask +import Amazonka.SWF.RecordActivityTaskHeartbeat +import Amazonka.SWF.RegisterActivityType +import Amazonka.SWF.RegisterDomain +import Amazonka.SWF.RegisterWorkflowType +import Amazonka.SWF.RequestCancelWorkflowExecution +import Amazonka.SWF.RespondActivityTaskCanceled +import Amazonka.SWF.RespondActivityTaskCompleted +import Amazonka.SWF.RespondActivityTaskFailed +import Amazonka.SWF.RespondDecisionTaskCompleted +import Amazonka.SWF.SignalWorkflowExecution +import Amazonka.SWF.StartWorkflowExecution +import Amazonka.SWF.TagResource +import Amazonka.SWF.TerminateWorkflowExecution +import Amazonka.SWF.Types +import Amazonka.SWF.UndeprecateActivityType +import Amazonka.SWF.UndeprecateDomain +import Amazonka.SWF.UndeprecateWorkflowType +import Amazonka.SWF.UntagResource +import Amazonka.SWF.Waiters + +-- $errors +-- Error matchers are designed for use with the functions provided by +-- . +-- This allows catching (and rethrowing) service specific errors returned +-- by 'SWF'. + +-- $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/SWF/CountClosedWorkflowExecutions.hs b/gen/Amazonka/SWF/CountClosedWorkflowExecutions.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/CountClosedWorkflowExecutions.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.SWF.CountClosedWorkflowExecutions +-- 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 number of closed workflow executions within the given domain +-- that meet the specified filtering criteria. +-- +-- This operation is eventually consistent. The results are best effort and +-- may not exactly reflect recent updates and changes. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the following parameters by using a @Condition@ element +-- with the appropriate keys. +-- +-- - @tagFilter.tag@: String constraint. The key is +-- @swf:tagFilter.tag@. +-- +-- - @typeFilter.name@: String constraint. The key is +-- @swf:typeFilter.name@. +-- +-- - @typeFilter.version@: String constraint. The key is +-- @swf:typeFilter.version@. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.CountClosedWorkflowExecutions + ( -- * Creating a Request + CountClosedWorkflowExecutions (..), + newCountClosedWorkflowExecutions, + + -- * Request Lenses + countClosedWorkflowExecutions_closeStatusFilter, + countClosedWorkflowExecutions_closeTimeFilter, + countClosedWorkflowExecutions_executionFilter, + countClosedWorkflowExecutions_startTimeFilter, + countClosedWorkflowExecutions_tagFilter, + countClosedWorkflowExecutions_typeFilter, + countClosedWorkflowExecutions_domain, + + -- * Destructuring the Response + WorkflowExecutionCount (..), + newWorkflowExecutionCount, + + -- * Response Lenses + workflowExecutionCount_truncated, + workflowExecutionCount_count, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newCountClosedWorkflowExecutions' smart constructor. +data CountClosedWorkflowExecutions = CountClosedWorkflowExecutions' + { -- | If specified, only workflow executions that match this close status are + -- counted. This filter has an affect only if @executionStatus@ is + -- specified as @CLOSED@. + -- + -- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are + -- mutually exclusive. You can specify at most one of these in a request. + closeStatusFilter :: Prelude.Maybe CloseStatusFilter, + -- | If specified, only workflow executions that meet the close time criteria + -- of the filter are counted. + -- + -- @startTimeFilter@ and @closeTimeFilter@ are mutually exclusive. You must + -- specify one of these in a request but not both. + closeTimeFilter :: Prelude.Maybe ExecutionTimeFilter, + -- | If specified, only workflow executions matching the @WorkflowId@ in the + -- filter are counted. + -- + -- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are + -- mutually exclusive. You can specify at most one of these in a request. + executionFilter :: Prelude.Maybe WorkflowExecutionFilter, + -- | If specified, only workflow executions that meet the start time criteria + -- of the filter are counted. + -- + -- @startTimeFilter@ and @closeTimeFilter@ are mutually exclusive. You must + -- specify one of these in a request but not both. + startTimeFilter :: Prelude.Maybe ExecutionTimeFilter, + -- | If specified, only executions that have a tag that matches the filter + -- are counted. + -- + -- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are + -- mutually exclusive. You can specify at most one of these in a request. + tagFilter :: Prelude.Maybe TagFilter, + -- | If specified, indicates the type of the workflow executions to be + -- counted. + -- + -- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are + -- mutually exclusive. You can specify at most one of these in a request. + typeFilter :: Prelude.Maybe WorkflowTypeFilter, + -- | The name of the domain containing the workflow executions to count. + domain :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CountClosedWorkflowExecutions' 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: +-- +-- 'closeStatusFilter', 'countClosedWorkflowExecutions_closeStatusFilter' - If specified, only workflow executions that match this close status are +-- counted. This filter has an affect only if @executionStatus@ is +-- specified as @CLOSED@. +-- +-- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are +-- mutually exclusive. You can specify at most one of these in a request. +-- +-- 'closeTimeFilter', 'countClosedWorkflowExecutions_closeTimeFilter' - If specified, only workflow executions that meet the close time criteria +-- of the filter are counted. +-- +-- @startTimeFilter@ and @closeTimeFilter@ are mutually exclusive. You must +-- specify one of these in a request but not both. +-- +-- 'executionFilter', 'countClosedWorkflowExecutions_executionFilter' - If specified, only workflow executions matching the @WorkflowId@ in the +-- filter are counted. +-- +-- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are +-- mutually exclusive. You can specify at most one of these in a request. +-- +-- 'startTimeFilter', 'countClosedWorkflowExecutions_startTimeFilter' - If specified, only workflow executions that meet the start time criteria +-- of the filter are counted. +-- +-- @startTimeFilter@ and @closeTimeFilter@ are mutually exclusive. You must +-- specify one of these in a request but not both. +-- +-- 'tagFilter', 'countClosedWorkflowExecutions_tagFilter' - If specified, only executions that have a tag that matches the filter +-- are counted. +-- +-- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are +-- mutually exclusive. You can specify at most one of these in a request. +-- +-- 'typeFilter', 'countClosedWorkflowExecutions_typeFilter' - If specified, indicates the type of the workflow executions to be +-- counted. +-- +-- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are +-- mutually exclusive. You can specify at most one of these in a request. +-- +-- 'domain', 'countClosedWorkflowExecutions_domain' - The name of the domain containing the workflow executions to count. +newCountClosedWorkflowExecutions :: + -- | 'domain' + Prelude.Text -> + CountClosedWorkflowExecutions +newCountClosedWorkflowExecutions pDomain_ = + CountClosedWorkflowExecutions' + { closeStatusFilter = + Prelude.Nothing, + closeTimeFilter = Prelude.Nothing, + executionFilter = Prelude.Nothing, + startTimeFilter = Prelude.Nothing, + tagFilter = Prelude.Nothing, + typeFilter = Prelude.Nothing, + domain = pDomain_ + } + +-- | If specified, only workflow executions that match this close status are +-- counted. This filter has an affect only if @executionStatus@ is +-- specified as @CLOSED@. +-- +-- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are +-- mutually exclusive. You can specify at most one of these in a request. +countClosedWorkflowExecutions_closeStatusFilter :: Lens.Lens' CountClosedWorkflowExecutions (Prelude.Maybe CloseStatusFilter) +countClosedWorkflowExecutions_closeStatusFilter = Lens.lens (\CountClosedWorkflowExecutions' {closeStatusFilter} -> closeStatusFilter) (\s@CountClosedWorkflowExecutions' {} a -> s {closeStatusFilter = a} :: CountClosedWorkflowExecutions) + +-- | If specified, only workflow executions that meet the close time criteria +-- of the filter are counted. +-- +-- @startTimeFilter@ and @closeTimeFilter@ are mutually exclusive. You must +-- specify one of these in a request but not both. +countClosedWorkflowExecutions_closeTimeFilter :: Lens.Lens' CountClosedWorkflowExecutions (Prelude.Maybe ExecutionTimeFilter) +countClosedWorkflowExecutions_closeTimeFilter = Lens.lens (\CountClosedWorkflowExecutions' {closeTimeFilter} -> closeTimeFilter) (\s@CountClosedWorkflowExecutions' {} a -> s {closeTimeFilter = a} :: CountClosedWorkflowExecutions) + +-- | If specified, only workflow executions matching the @WorkflowId@ in the +-- filter are counted. +-- +-- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are +-- mutually exclusive. You can specify at most one of these in a request. +countClosedWorkflowExecutions_executionFilter :: Lens.Lens' CountClosedWorkflowExecutions (Prelude.Maybe WorkflowExecutionFilter) +countClosedWorkflowExecutions_executionFilter = Lens.lens (\CountClosedWorkflowExecutions' {executionFilter} -> executionFilter) (\s@CountClosedWorkflowExecutions' {} a -> s {executionFilter = a} :: CountClosedWorkflowExecutions) + +-- | If specified, only workflow executions that meet the start time criteria +-- of the filter are counted. +-- +-- @startTimeFilter@ and @closeTimeFilter@ are mutually exclusive. You must +-- specify one of these in a request but not both. +countClosedWorkflowExecutions_startTimeFilter :: Lens.Lens' CountClosedWorkflowExecutions (Prelude.Maybe ExecutionTimeFilter) +countClosedWorkflowExecutions_startTimeFilter = Lens.lens (\CountClosedWorkflowExecutions' {startTimeFilter} -> startTimeFilter) (\s@CountClosedWorkflowExecutions' {} a -> s {startTimeFilter = a} :: CountClosedWorkflowExecutions) + +-- | If specified, only executions that have a tag that matches the filter +-- are counted. +-- +-- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are +-- mutually exclusive. You can specify at most one of these in a request. +countClosedWorkflowExecutions_tagFilter :: Lens.Lens' CountClosedWorkflowExecutions (Prelude.Maybe TagFilter) +countClosedWorkflowExecutions_tagFilter = Lens.lens (\CountClosedWorkflowExecutions' {tagFilter} -> tagFilter) (\s@CountClosedWorkflowExecutions' {} a -> s {tagFilter = a} :: CountClosedWorkflowExecutions) + +-- | If specified, indicates the type of the workflow executions to be +-- counted. +-- +-- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are +-- mutually exclusive. You can specify at most one of these in a request. +countClosedWorkflowExecutions_typeFilter :: Lens.Lens' CountClosedWorkflowExecutions (Prelude.Maybe WorkflowTypeFilter) +countClosedWorkflowExecutions_typeFilter = Lens.lens (\CountClosedWorkflowExecutions' {typeFilter} -> typeFilter) (\s@CountClosedWorkflowExecutions' {} a -> s {typeFilter = a} :: CountClosedWorkflowExecutions) + +-- | The name of the domain containing the workflow executions to count. +countClosedWorkflowExecutions_domain :: Lens.Lens' CountClosedWorkflowExecutions Prelude.Text +countClosedWorkflowExecutions_domain = Lens.lens (\CountClosedWorkflowExecutions' {domain} -> domain) (\s@CountClosedWorkflowExecutions' {} a -> s {domain = a} :: CountClosedWorkflowExecutions) + +instance + Core.AWSRequest + CountClosedWorkflowExecutions + where + type + AWSResponse CountClosedWorkflowExecutions = + WorkflowExecutionCount + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + (\s h x -> Data.eitherParseJSON x) + +instance + Prelude.Hashable + CountClosedWorkflowExecutions + where + hashWithSalt _salt CountClosedWorkflowExecutions' {..} = + _salt + `Prelude.hashWithSalt` closeStatusFilter + `Prelude.hashWithSalt` closeTimeFilter + `Prelude.hashWithSalt` executionFilter + `Prelude.hashWithSalt` startTimeFilter + `Prelude.hashWithSalt` tagFilter + `Prelude.hashWithSalt` typeFilter + `Prelude.hashWithSalt` domain + +instance Prelude.NFData CountClosedWorkflowExecutions where + rnf CountClosedWorkflowExecutions' {..} = + Prelude.rnf closeStatusFilter + `Prelude.seq` Prelude.rnf closeTimeFilter + `Prelude.seq` Prelude.rnf executionFilter + `Prelude.seq` Prelude.rnf startTimeFilter + `Prelude.seq` Prelude.rnf tagFilter + `Prelude.seq` Prelude.rnf typeFilter + `Prelude.seq` Prelude.rnf domain + +instance Data.ToHeaders CountClosedWorkflowExecutions where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.CountClosedWorkflowExecutions" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON CountClosedWorkflowExecutions where + toJSON CountClosedWorkflowExecutions' {..} = + Data.object + ( Prelude.catMaybes + [ ("closeStatusFilter" Data..=) + Prelude.<$> closeStatusFilter, + ("closeTimeFilter" Data..=) + Prelude.<$> closeTimeFilter, + ("executionFilter" Data..=) + Prelude.<$> executionFilter, + ("startTimeFilter" Data..=) + Prelude.<$> startTimeFilter, + ("tagFilter" Data..=) Prelude.<$> tagFilter, + ("typeFilter" Data..=) Prelude.<$> typeFilter, + Prelude.Just ("domain" Data..= domain) + ] + ) + +instance Data.ToPath CountClosedWorkflowExecutions where + toPath = Prelude.const "/" + +instance Data.ToQuery CountClosedWorkflowExecutions where + toQuery = Prelude.const Prelude.mempty diff --git a/gen/Amazonka/SWF/CountOpenWorkflowExecutions.hs b/gen/Amazonka/SWF/CountOpenWorkflowExecutions.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/CountOpenWorkflowExecutions.hs @@ -0,0 +1,254 @@ +{-# 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.SWF.CountOpenWorkflowExecutions +-- 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 number of open workflow executions within the given domain +-- that meet the specified filtering criteria. +-- +-- This operation is eventually consistent. The results are best effort and +-- may not exactly reflect recent updates and changes. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the following parameters by using a @Condition@ element +-- with the appropriate keys. +-- +-- - @tagFilter.tag@: String constraint. The key is +-- @swf:tagFilter.tag@. +-- +-- - @typeFilter.name@: String constraint. The key is +-- @swf:typeFilter.name@. +-- +-- - @typeFilter.version@: String constraint. The key is +-- @swf:typeFilter.version@. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.CountOpenWorkflowExecutions + ( -- * Creating a Request + CountOpenWorkflowExecutions (..), + newCountOpenWorkflowExecutions, + + -- * Request Lenses + countOpenWorkflowExecutions_executionFilter, + countOpenWorkflowExecutions_tagFilter, + countOpenWorkflowExecutions_typeFilter, + countOpenWorkflowExecutions_domain, + countOpenWorkflowExecutions_startTimeFilter, + + -- * Destructuring the Response + WorkflowExecutionCount (..), + newWorkflowExecutionCount, + + -- * Response Lenses + workflowExecutionCount_truncated, + workflowExecutionCount_count, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newCountOpenWorkflowExecutions' smart constructor. +data CountOpenWorkflowExecutions = CountOpenWorkflowExecutions' + { -- | If specified, only workflow executions matching the @WorkflowId@ in the + -- filter are counted. + -- + -- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. + -- You can specify at most one of these in a request. + executionFilter :: Prelude.Maybe WorkflowExecutionFilter, + -- | If specified, only executions that have a tag that matches the filter + -- are counted. + -- + -- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. + -- You can specify at most one of these in a request. + tagFilter :: Prelude.Maybe TagFilter, + -- | Specifies the type of the workflow executions to be counted. + -- + -- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. + -- You can specify at most one of these in a request. + typeFilter :: Prelude.Maybe WorkflowTypeFilter, + -- | The name of the domain containing the workflow executions to count. + domain :: Prelude.Text, + -- | Specifies the start time criteria that workflow executions must meet in + -- order to be counted. + startTimeFilter :: ExecutionTimeFilter + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CountOpenWorkflowExecutions' 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: +-- +-- 'executionFilter', 'countOpenWorkflowExecutions_executionFilter' - If specified, only workflow executions matching the @WorkflowId@ in the +-- filter are counted. +-- +-- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. +-- You can specify at most one of these in a request. +-- +-- 'tagFilter', 'countOpenWorkflowExecutions_tagFilter' - If specified, only executions that have a tag that matches the filter +-- are counted. +-- +-- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. +-- You can specify at most one of these in a request. +-- +-- 'typeFilter', 'countOpenWorkflowExecutions_typeFilter' - Specifies the type of the workflow executions to be counted. +-- +-- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. +-- You can specify at most one of these in a request. +-- +-- 'domain', 'countOpenWorkflowExecutions_domain' - The name of the domain containing the workflow executions to count. +-- +-- 'startTimeFilter', 'countOpenWorkflowExecutions_startTimeFilter' - Specifies the start time criteria that workflow executions must meet in +-- order to be counted. +newCountOpenWorkflowExecutions :: + -- | 'domain' + Prelude.Text -> + -- | 'startTimeFilter' + ExecutionTimeFilter -> + CountOpenWorkflowExecutions +newCountOpenWorkflowExecutions + pDomain_ + pStartTimeFilter_ = + CountOpenWorkflowExecutions' + { executionFilter = + Prelude.Nothing, + tagFilter = Prelude.Nothing, + typeFilter = Prelude.Nothing, + domain = pDomain_, + startTimeFilter = pStartTimeFilter_ + } + +-- | If specified, only workflow executions matching the @WorkflowId@ in the +-- filter are counted. +-- +-- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. +-- You can specify at most one of these in a request. +countOpenWorkflowExecutions_executionFilter :: Lens.Lens' CountOpenWorkflowExecutions (Prelude.Maybe WorkflowExecutionFilter) +countOpenWorkflowExecutions_executionFilter = Lens.lens (\CountOpenWorkflowExecutions' {executionFilter} -> executionFilter) (\s@CountOpenWorkflowExecutions' {} a -> s {executionFilter = a} :: CountOpenWorkflowExecutions) + +-- | If specified, only executions that have a tag that matches the filter +-- are counted. +-- +-- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. +-- You can specify at most one of these in a request. +countOpenWorkflowExecutions_tagFilter :: Lens.Lens' CountOpenWorkflowExecutions (Prelude.Maybe TagFilter) +countOpenWorkflowExecutions_tagFilter = Lens.lens (\CountOpenWorkflowExecutions' {tagFilter} -> tagFilter) (\s@CountOpenWorkflowExecutions' {} a -> s {tagFilter = a} :: CountOpenWorkflowExecutions) + +-- | Specifies the type of the workflow executions to be counted. +-- +-- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. +-- You can specify at most one of these in a request. +countOpenWorkflowExecutions_typeFilter :: Lens.Lens' CountOpenWorkflowExecutions (Prelude.Maybe WorkflowTypeFilter) +countOpenWorkflowExecutions_typeFilter = Lens.lens (\CountOpenWorkflowExecutions' {typeFilter} -> typeFilter) (\s@CountOpenWorkflowExecutions' {} a -> s {typeFilter = a} :: CountOpenWorkflowExecutions) + +-- | The name of the domain containing the workflow executions to count. +countOpenWorkflowExecutions_domain :: Lens.Lens' CountOpenWorkflowExecutions Prelude.Text +countOpenWorkflowExecutions_domain = Lens.lens (\CountOpenWorkflowExecutions' {domain} -> domain) (\s@CountOpenWorkflowExecutions' {} a -> s {domain = a} :: CountOpenWorkflowExecutions) + +-- | Specifies the start time criteria that workflow executions must meet in +-- order to be counted. +countOpenWorkflowExecutions_startTimeFilter :: Lens.Lens' CountOpenWorkflowExecutions ExecutionTimeFilter +countOpenWorkflowExecutions_startTimeFilter = Lens.lens (\CountOpenWorkflowExecutions' {startTimeFilter} -> startTimeFilter) (\s@CountOpenWorkflowExecutions' {} a -> s {startTimeFilter = a} :: CountOpenWorkflowExecutions) + +instance Core.AWSRequest CountOpenWorkflowExecutions where + type + AWSResponse CountOpenWorkflowExecutions = + WorkflowExecutionCount + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + (\s h x -> Data.eitherParseJSON x) + +instance Prelude.Hashable CountOpenWorkflowExecutions where + hashWithSalt _salt CountOpenWorkflowExecutions' {..} = + _salt + `Prelude.hashWithSalt` executionFilter + `Prelude.hashWithSalt` tagFilter + `Prelude.hashWithSalt` typeFilter + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` startTimeFilter + +instance Prelude.NFData CountOpenWorkflowExecutions where + rnf CountOpenWorkflowExecutions' {..} = + Prelude.rnf executionFilter + `Prelude.seq` Prelude.rnf tagFilter + `Prelude.seq` Prelude.rnf typeFilter + `Prelude.seq` Prelude.rnf domain + `Prelude.seq` Prelude.rnf startTimeFilter + +instance Data.ToHeaders CountOpenWorkflowExecutions where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.CountOpenWorkflowExecutions" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON CountOpenWorkflowExecutions where + toJSON CountOpenWorkflowExecutions' {..} = + Data.object + ( Prelude.catMaybes + [ ("executionFilter" Data..=) + Prelude.<$> executionFilter, + ("tagFilter" Data..=) Prelude.<$> tagFilter, + ("typeFilter" Data..=) Prelude.<$> typeFilter, + Prelude.Just ("domain" Data..= domain), + Prelude.Just + ("startTimeFilter" Data..= startTimeFilter) + ] + ) + +instance Data.ToPath CountOpenWorkflowExecutions where + toPath = Prelude.const "/" + +instance Data.ToQuery CountOpenWorkflowExecutions where + toQuery = Prelude.const Prelude.mempty diff --git a/gen/Amazonka/SWF/CountPendingActivityTasks.hs b/gen/Amazonka/SWF/CountPendingActivityTasks.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/CountPendingActivityTasks.hs @@ -0,0 +1,165 @@ +{-# 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.SWF.CountPendingActivityTasks +-- 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 number of activity tasks in the specified task +-- list. The count returned is an approximation and isn\'t guaranteed to be +-- exact. If you specify a task list that no activity task was ever +-- scheduled in then @0@ is returned. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the @taskList.name@ parameter by using a @Condition@ +-- element with the @swf:taskList.name@ key to allow the action to +-- access only certain task lists. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.CountPendingActivityTasks + ( -- * Creating a Request + CountPendingActivityTasks (..), + newCountPendingActivityTasks, + + -- * Request Lenses + countPendingActivityTasks_domain, + countPendingActivityTasks_taskList, + + -- * Destructuring the Response + PendingTaskCount (..), + newPendingTaskCount, + + -- * Response Lenses + pendingTaskCount_truncated, + pendingTaskCount_count, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newCountPendingActivityTasks' smart constructor. +data CountPendingActivityTasks = CountPendingActivityTasks' + { -- | The name of the domain that contains the task list. + domain :: Prelude.Text, + -- | The name of the task list. + taskList :: TaskList + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CountPendingActivityTasks' 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: +-- +-- 'domain', 'countPendingActivityTasks_domain' - The name of the domain that contains the task list. +-- +-- 'taskList', 'countPendingActivityTasks_taskList' - The name of the task list. +newCountPendingActivityTasks :: + -- | 'domain' + Prelude.Text -> + -- | 'taskList' + TaskList -> + CountPendingActivityTasks +newCountPendingActivityTasks pDomain_ pTaskList_ = + CountPendingActivityTasks' + { domain = pDomain_, + taskList = pTaskList_ + } + +-- | The name of the domain that contains the task list. +countPendingActivityTasks_domain :: Lens.Lens' CountPendingActivityTasks Prelude.Text +countPendingActivityTasks_domain = Lens.lens (\CountPendingActivityTasks' {domain} -> domain) (\s@CountPendingActivityTasks' {} a -> s {domain = a} :: CountPendingActivityTasks) + +-- | The name of the task list. +countPendingActivityTasks_taskList :: Lens.Lens' CountPendingActivityTasks TaskList +countPendingActivityTasks_taskList = Lens.lens (\CountPendingActivityTasks' {taskList} -> taskList) (\s@CountPendingActivityTasks' {} a -> s {taskList = a} :: CountPendingActivityTasks) + +instance Core.AWSRequest CountPendingActivityTasks where + type + AWSResponse CountPendingActivityTasks = + PendingTaskCount + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + (\s h x -> Data.eitherParseJSON x) + +instance Prelude.Hashable CountPendingActivityTasks where + hashWithSalt _salt CountPendingActivityTasks' {..} = + _salt + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` taskList + +instance Prelude.NFData CountPendingActivityTasks where + rnf CountPendingActivityTasks' {..} = + Prelude.rnf domain + `Prelude.seq` Prelude.rnf taskList + +instance Data.ToHeaders CountPendingActivityTasks where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.CountPendingActivityTasks" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON CountPendingActivityTasks where + toJSON CountPendingActivityTasks' {..} = + Data.object + ( Prelude.catMaybes + [ Prelude.Just ("domain" Data..= domain), + Prelude.Just ("taskList" Data..= taskList) + ] + ) + +instance Data.ToPath CountPendingActivityTasks where + toPath = Prelude.const "/" + +instance Data.ToQuery CountPendingActivityTasks where + toQuery = Prelude.const Prelude.mempty diff --git a/gen/Amazonka/SWF/CountPendingDecisionTasks.hs b/gen/Amazonka/SWF/CountPendingDecisionTasks.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/CountPendingDecisionTasks.hs @@ -0,0 +1,165 @@ +{-# 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.SWF.CountPendingDecisionTasks +-- 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 number of decision tasks in the specified task +-- list. The count returned is an approximation and isn\'t guaranteed to be +-- exact. If you specify a task list that no decision task was ever +-- scheduled in then @0@ is returned. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the @taskList.name@ parameter by using a @Condition@ +-- element with the @swf:taskList.name@ key to allow the action to +-- access only certain task lists. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.CountPendingDecisionTasks + ( -- * Creating a Request + CountPendingDecisionTasks (..), + newCountPendingDecisionTasks, + + -- * Request Lenses + countPendingDecisionTasks_domain, + countPendingDecisionTasks_taskList, + + -- * Destructuring the Response + PendingTaskCount (..), + newPendingTaskCount, + + -- * Response Lenses + pendingTaskCount_truncated, + pendingTaskCount_count, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newCountPendingDecisionTasks' smart constructor. +data CountPendingDecisionTasks = CountPendingDecisionTasks' + { -- | The name of the domain that contains the task list. + domain :: Prelude.Text, + -- | The name of the task list. + taskList :: TaskList + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CountPendingDecisionTasks' 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: +-- +-- 'domain', 'countPendingDecisionTasks_domain' - The name of the domain that contains the task list. +-- +-- 'taskList', 'countPendingDecisionTasks_taskList' - The name of the task list. +newCountPendingDecisionTasks :: + -- | 'domain' + Prelude.Text -> + -- | 'taskList' + TaskList -> + CountPendingDecisionTasks +newCountPendingDecisionTasks pDomain_ pTaskList_ = + CountPendingDecisionTasks' + { domain = pDomain_, + taskList = pTaskList_ + } + +-- | The name of the domain that contains the task list. +countPendingDecisionTasks_domain :: Lens.Lens' CountPendingDecisionTasks Prelude.Text +countPendingDecisionTasks_domain = Lens.lens (\CountPendingDecisionTasks' {domain} -> domain) (\s@CountPendingDecisionTasks' {} a -> s {domain = a} :: CountPendingDecisionTasks) + +-- | The name of the task list. +countPendingDecisionTasks_taskList :: Lens.Lens' CountPendingDecisionTasks TaskList +countPendingDecisionTasks_taskList = Lens.lens (\CountPendingDecisionTasks' {taskList} -> taskList) (\s@CountPendingDecisionTasks' {} a -> s {taskList = a} :: CountPendingDecisionTasks) + +instance Core.AWSRequest CountPendingDecisionTasks where + type + AWSResponse CountPendingDecisionTasks = + PendingTaskCount + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + (\s h x -> Data.eitherParseJSON x) + +instance Prelude.Hashable CountPendingDecisionTasks where + hashWithSalt _salt CountPendingDecisionTasks' {..} = + _salt + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` taskList + +instance Prelude.NFData CountPendingDecisionTasks where + rnf CountPendingDecisionTasks' {..} = + Prelude.rnf domain + `Prelude.seq` Prelude.rnf taskList + +instance Data.ToHeaders CountPendingDecisionTasks where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.CountPendingDecisionTasks" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON CountPendingDecisionTasks where + toJSON CountPendingDecisionTasks' {..} = + Data.object + ( Prelude.catMaybes + [ Prelude.Just ("domain" Data..= domain), + Prelude.Just ("taskList" Data..= taskList) + ] + ) + +instance Data.ToPath CountPendingDecisionTasks where + toPath = Prelude.const "/" + +instance Data.ToQuery CountPendingDecisionTasks where + toQuery = Prelude.const Prelude.mempty diff --git a/gen/Amazonka/SWF/DeprecateActivityType.hs b/gen/Amazonka/SWF/DeprecateActivityType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/DeprecateActivityType.hs @@ -0,0 +1,186 @@ +{-# 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.SWF.DeprecateActivityType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deprecates the specified /activity type/. After an activity type has +-- been deprecated, you cannot create new tasks of that activity type. +-- Tasks of this type that were scheduled before the type was deprecated +-- continue to run. +-- +-- This operation is eventually consistent. The results are best effort and +-- may not exactly reflect recent updates and changes. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the following parameters by using a @Condition@ element +-- with the appropriate keys. +-- +-- - @activityType.name@: String constraint. The key is +-- @swf:activityType.name@. +-- +-- - @activityType.version@: String constraint. The key is +-- @swf:activityType.version@. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.DeprecateActivityType + ( -- * Creating a Request + DeprecateActivityType (..), + newDeprecateActivityType, + + -- * Request Lenses + deprecateActivityType_domain, + deprecateActivityType_activityType, + + -- * Destructuring the Response + DeprecateActivityTypeResponse (..), + newDeprecateActivityTypeResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newDeprecateActivityType' smart constructor. +data DeprecateActivityType = DeprecateActivityType' + { -- | The name of the domain in which the activity type is registered. + domain :: Prelude.Text, + -- | The activity type to deprecate. + activityType :: ActivityType + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeprecateActivityType' 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: +-- +-- 'domain', 'deprecateActivityType_domain' - The name of the domain in which the activity type is registered. +-- +-- 'activityType', 'deprecateActivityType_activityType' - The activity type to deprecate. +newDeprecateActivityType :: + -- | 'domain' + Prelude.Text -> + -- | 'activityType' + ActivityType -> + DeprecateActivityType +newDeprecateActivityType pDomain_ pActivityType_ = + DeprecateActivityType' + { domain = pDomain_, + activityType = pActivityType_ + } + +-- | The name of the domain in which the activity type is registered. +deprecateActivityType_domain :: Lens.Lens' DeprecateActivityType Prelude.Text +deprecateActivityType_domain = Lens.lens (\DeprecateActivityType' {domain} -> domain) (\s@DeprecateActivityType' {} a -> s {domain = a} :: DeprecateActivityType) + +-- | The activity type to deprecate. +deprecateActivityType_activityType :: Lens.Lens' DeprecateActivityType ActivityType +deprecateActivityType_activityType = Lens.lens (\DeprecateActivityType' {activityType} -> activityType) (\s@DeprecateActivityType' {} a -> s {activityType = a} :: DeprecateActivityType) + +instance Core.AWSRequest DeprecateActivityType where + type + AWSResponse DeprecateActivityType = + DeprecateActivityTypeResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull DeprecateActivityTypeResponse' + +instance Prelude.Hashable DeprecateActivityType where + hashWithSalt _salt DeprecateActivityType' {..} = + _salt + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` activityType + +instance Prelude.NFData DeprecateActivityType where + rnf DeprecateActivityType' {..} = + Prelude.rnf domain + `Prelude.seq` Prelude.rnf activityType + +instance Data.ToHeaders DeprecateActivityType where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.DeprecateActivityType" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON DeprecateActivityType where + toJSON DeprecateActivityType' {..} = + Data.object + ( Prelude.catMaybes + [ Prelude.Just ("domain" Data..= domain), + Prelude.Just ("activityType" Data..= activityType) + ] + ) + +instance Data.ToPath DeprecateActivityType where + toPath = Prelude.const "/" + +instance Data.ToQuery DeprecateActivityType where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newDeprecateActivityTypeResponse' smart constructor. +data DeprecateActivityTypeResponse = DeprecateActivityTypeResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeprecateActivityTypeResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newDeprecateActivityTypeResponse :: + DeprecateActivityTypeResponse +newDeprecateActivityTypeResponse = + DeprecateActivityTypeResponse' + +instance Prelude.NFData DeprecateActivityTypeResponse where + rnf _ = () diff --git a/gen/Amazonka/SWF/DeprecateDomain.hs b/gen/Amazonka/SWF/DeprecateDomain.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/DeprecateDomain.hs @@ -0,0 +1,160 @@ +{-# 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.SWF.DeprecateDomain +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deprecates the specified domain. After a domain has been deprecated it +-- cannot be used to create new workflow executions or register new types. +-- However, you can still use visibility actions on this domain. +-- Deprecating a domain also deprecates all activity and workflow types +-- registered in the domain. Executions that were started before the domain +-- was deprecated continues to run. +-- +-- This operation is eventually consistent. The results are best effort and +-- may not exactly reflect recent updates and changes. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.DeprecateDomain + ( -- * Creating a Request + DeprecateDomain (..), + newDeprecateDomain, + + -- * Request Lenses + deprecateDomain_name, + + -- * Destructuring the Response + DeprecateDomainResponse (..), + newDeprecateDomainResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newDeprecateDomain' smart constructor. +data DeprecateDomain = DeprecateDomain' + { -- | The name of the domain to deprecate. + name :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeprecateDomain' 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', 'deprecateDomain_name' - The name of the domain to deprecate. +newDeprecateDomain :: + -- | 'name' + Prelude.Text -> + DeprecateDomain +newDeprecateDomain pName_ = + DeprecateDomain' {name = pName_} + +-- | The name of the domain to deprecate. +deprecateDomain_name :: Lens.Lens' DeprecateDomain Prelude.Text +deprecateDomain_name = Lens.lens (\DeprecateDomain' {name} -> name) (\s@DeprecateDomain' {} a -> s {name = a} :: DeprecateDomain) + +instance Core.AWSRequest DeprecateDomain where + type + AWSResponse DeprecateDomain = + DeprecateDomainResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull DeprecateDomainResponse' + +instance Prelude.Hashable DeprecateDomain where + hashWithSalt _salt DeprecateDomain' {..} = + _salt `Prelude.hashWithSalt` name + +instance Prelude.NFData DeprecateDomain where + rnf DeprecateDomain' {..} = Prelude.rnf name + +instance Data.ToHeaders DeprecateDomain where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.DeprecateDomain" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON DeprecateDomain where + toJSON DeprecateDomain' {..} = + Data.object + ( Prelude.catMaybes + [Prelude.Just ("name" Data..= name)] + ) + +instance Data.ToPath DeprecateDomain where + toPath = Prelude.const "/" + +instance Data.ToQuery DeprecateDomain where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newDeprecateDomainResponse' smart constructor. +data DeprecateDomainResponse = DeprecateDomainResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeprecateDomainResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newDeprecateDomainResponse :: + DeprecateDomainResponse +newDeprecateDomainResponse = DeprecateDomainResponse' + +instance Prelude.NFData DeprecateDomainResponse where + rnf _ = () diff --git a/gen/Amazonka/SWF/DeprecateWorkflowType.hs b/gen/Amazonka/SWF/DeprecateWorkflowType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/DeprecateWorkflowType.hs @@ -0,0 +1,187 @@ +{-# 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.SWF.DeprecateWorkflowType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deprecates the specified /workflow type/. After a workflow type has been +-- deprecated, you cannot create new executions of that type. Executions +-- that were started before the type was deprecated continues to run. A +-- deprecated workflow type may still be used when calling visibility +-- actions. +-- +-- This operation is eventually consistent. The results are best effort and +-- may not exactly reflect recent updates and changes. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the following parameters by using a @Condition@ element +-- with the appropriate keys. +-- +-- - @workflowType.name@: String constraint. The key is +-- @swf:workflowType.name@. +-- +-- - @workflowType.version@: String constraint. The key is +-- @swf:workflowType.version@. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.DeprecateWorkflowType + ( -- * Creating a Request + DeprecateWorkflowType (..), + newDeprecateWorkflowType, + + -- * Request Lenses + deprecateWorkflowType_domain, + deprecateWorkflowType_workflowType, + + -- * Destructuring the Response + DeprecateWorkflowTypeResponse (..), + newDeprecateWorkflowTypeResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newDeprecateWorkflowType' smart constructor. +data DeprecateWorkflowType = DeprecateWorkflowType' + { -- | The name of the domain in which the workflow type is registered. + domain :: Prelude.Text, + -- | The workflow type to deprecate. + workflowType :: WorkflowType + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeprecateWorkflowType' 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: +-- +-- 'domain', 'deprecateWorkflowType_domain' - The name of the domain in which the workflow type is registered. +-- +-- 'workflowType', 'deprecateWorkflowType_workflowType' - The workflow type to deprecate. +newDeprecateWorkflowType :: + -- | 'domain' + Prelude.Text -> + -- | 'workflowType' + WorkflowType -> + DeprecateWorkflowType +newDeprecateWorkflowType pDomain_ pWorkflowType_ = + DeprecateWorkflowType' + { domain = pDomain_, + workflowType = pWorkflowType_ + } + +-- | The name of the domain in which the workflow type is registered. +deprecateWorkflowType_domain :: Lens.Lens' DeprecateWorkflowType Prelude.Text +deprecateWorkflowType_domain = Lens.lens (\DeprecateWorkflowType' {domain} -> domain) (\s@DeprecateWorkflowType' {} a -> s {domain = a} :: DeprecateWorkflowType) + +-- | The workflow type to deprecate. +deprecateWorkflowType_workflowType :: Lens.Lens' DeprecateWorkflowType WorkflowType +deprecateWorkflowType_workflowType = Lens.lens (\DeprecateWorkflowType' {workflowType} -> workflowType) (\s@DeprecateWorkflowType' {} a -> s {workflowType = a} :: DeprecateWorkflowType) + +instance Core.AWSRequest DeprecateWorkflowType where + type + AWSResponse DeprecateWorkflowType = + DeprecateWorkflowTypeResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull DeprecateWorkflowTypeResponse' + +instance Prelude.Hashable DeprecateWorkflowType where + hashWithSalt _salt DeprecateWorkflowType' {..} = + _salt + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` workflowType + +instance Prelude.NFData DeprecateWorkflowType where + rnf DeprecateWorkflowType' {..} = + Prelude.rnf domain + `Prelude.seq` Prelude.rnf workflowType + +instance Data.ToHeaders DeprecateWorkflowType where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.DeprecateWorkflowType" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON DeprecateWorkflowType where + toJSON DeprecateWorkflowType' {..} = + Data.object + ( Prelude.catMaybes + [ Prelude.Just ("domain" Data..= domain), + Prelude.Just ("workflowType" Data..= workflowType) + ] + ) + +instance Data.ToPath DeprecateWorkflowType where + toPath = Prelude.const "/" + +instance Data.ToQuery DeprecateWorkflowType where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newDeprecateWorkflowTypeResponse' smart constructor. +data DeprecateWorkflowTypeResponse = DeprecateWorkflowTypeResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DeprecateWorkflowTypeResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newDeprecateWorkflowTypeResponse :: + DeprecateWorkflowTypeResponse +newDeprecateWorkflowTypeResponse = + DeprecateWorkflowTypeResponse' + +instance Prelude.NFData DeprecateWorkflowTypeResponse where + rnf _ = () diff --git a/gen/Amazonka/SWF/DescribeActivityType.hs b/gen/Amazonka/SWF/DescribeActivityType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/DescribeActivityType.hs @@ -0,0 +1,274 @@ +{-# 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.SWF.DescribeActivityType +-- 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 the specified activity type. This includes +-- configuration settings provided when the type was registered and other +-- general information about the type. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the following parameters by using a @Condition@ element +-- with the appropriate keys. +-- +-- - @activityType.name@: String constraint. The key is +-- @swf:activityType.name@. +-- +-- - @activityType.version@: String constraint. The key is +-- @swf:activityType.version@. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.DescribeActivityType + ( -- * Creating a Request + DescribeActivityType (..), + newDescribeActivityType, + + -- * Request Lenses + describeActivityType_domain, + describeActivityType_activityType, + + -- * Destructuring the Response + DescribeActivityTypeResponse (..), + newDescribeActivityTypeResponse, + + -- * Response Lenses + describeActivityTypeResponse_httpStatus, + describeActivityTypeResponse_typeInfo, + describeActivityTypeResponse_configuration, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newDescribeActivityType' smart constructor. +data DescribeActivityType = DescribeActivityType' + { -- | The name of the domain in which the activity type is registered. + domain :: Prelude.Text, + -- | The activity type to get information about. Activity types are + -- identified by the @name@ and @version@ that were supplied when the + -- activity was registered. + activityType :: ActivityType + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeActivityType' 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: +-- +-- 'domain', 'describeActivityType_domain' - The name of the domain in which the activity type is registered. +-- +-- 'activityType', 'describeActivityType_activityType' - The activity type to get information about. Activity types are +-- identified by the @name@ and @version@ that were supplied when the +-- activity was registered. +newDescribeActivityType :: + -- | 'domain' + Prelude.Text -> + -- | 'activityType' + ActivityType -> + DescribeActivityType +newDescribeActivityType pDomain_ pActivityType_ = + DescribeActivityType' + { domain = pDomain_, + activityType = pActivityType_ + } + +-- | The name of the domain in which the activity type is registered. +describeActivityType_domain :: Lens.Lens' DescribeActivityType Prelude.Text +describeActivityType_domain = Lens.lens (\DescribeActivityType' {domain} -> domain) (\s@DescribeActivityType' {} a -> s {domain = a} :: DescribeActivityType) + +-- | The activity type to get information about. Activity types are +-- identified by the @name@ and @version@ that were supplied when the +-- activity was registered. +describeActivityType_activityType :: Lens.Lens' DescribeActivityType ActivityType +describeActivityType_activityType = Lens.lens (\DescribeActivityType' {activityType} -> activityType) (\s@DescribeActivityType' {} a -> s {activityType = a} :: DescribeActivityType) + +instance Core.AWSRequest DescribeActivityType where + type + AWSResponse DescribeActivityType = + DescribeActivityTypeResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + DescribeActivityTypeResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + Prelude.<*> (x Data..:> "typeInfo") + Prelude.<*> (x Data..:> "configuration") + ) + +instance Prelude.Hashable DescribeActivityType where + hashWithSalt _salt DescribeActivityType' {..} = + _salt + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` activityType + +instance Prelude.NFData DescribeActivityType where + rnf DescribeActivityType' {..} = + Prelude.rnf domain + `Prelude.seq` Prelude.rnf activityType + +instance Data.ToHeaders DescribeActivityType where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.DescribeActivityType" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON DescribeActivityType where + toJSON DescribeActivityType' {..} = + Data.object + ( Prelude.catMaybes + [ Prelude.Just ("domain" Data..= domain), + Prelude.Just ("activityType" Data..= activityType) + ] + ) + +instance Data.ToPath DescribeActivityType where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeActivityType where + toQuery = Prelude.const Prelude.mempty + +-- | Detailed information about an activity type. +-- +-- /See:/ 'newDescribeActivityTypeResponse' smart constructor. +data DescribeActivityTypeResponse = DescribeActivityTypeResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int, + -- | General information about the activity type. + -- + -- The status of activity type (returned in the ActivityTypeInfo structure) + -- can be one of the following. + -- + -- - @REGISTERED@ – The type is registered and available. Workers + -- supporting this type should be running. + -- + -- - @DEPRECATED@ – The type was deprecated using DeprecateActivityType, + -- but is still in use. You should keep workers supporting this type + -- running. You cannot create new tasks of this type. + typeInfo :: ActivityTypeInfo, + -- | The configuration settings registered with the activity type. + configuration :: ActivityTypeConfiguration + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeActivityTypeResponse' 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', 'describeActivityTypeResponse_httpStatus' - The response's http status code. +-- +-- 'typeInfo', 'describeActivityTypeResponse_typeInfo' - General information about the activity type. +-- +-- The status of activity type (returned in the ActivityTypeInfo structure) +-- can be one of the following. +-- +-- - @REGISTERED@ – The type is registered and available. Workers +-- supporting this type should be running. +-- +-- - @DEPRECATED@ – The type was deprecated using DeprecateActivityType, +-- but is still in use. You should keep workers supporting this type +-- running. You cannot create new tasks of this type. +-- +-- 'configuration', 'describeActivityTypeResponse_configuration' - The configuration settings registered with the activity type. +newDescribeActivityTypeResponse :: + -- | 'httpStatus' + Prelude.Int -> + -- | 'typeInfo' + ActivityTypeInfo -> + -- | 'configuration' + ActivityTypeConfiguration -> + DescribeActivityTypeResponse +newDescribeActivityTypeResponse + pHttpStatus_ + pTypeInfo_ + pConfiguration_ = + DescribeActivityTypeResponse' + { httpStatus = + pHttpStatus_, + typeInfo = pTypeInfo_, + configuration = pConfiguration_ + } + +-- | The response's http status code. +describeActivityTypeResponse_httpStatus :: Lens.Lens' DescribeActivityTypeResponse Prelude.Int +describeActivityTypeResponse_httpStatus = Lens.lens (\DescribeActivityTypeResponse' {httpStatus} -> httpStatus) (\s@DescribeActivityTypeResponse' {} a -> s {httpStatus = a} :: DescribeActivityTypeResponse) + +-- | General information about the activity type. +-- +-- The status of activity type (returned in the ActivityTypeInfo structure) +-- can be one of the following. +-- +-- - @REGISTERED@ – The type is registered and available. Workers +-- supporting this type should be running. +-- +-- - @DEPRECATED@ – The type was deprecated using DeprecateActivityType, +-- but is still in use. You should keep workers supporting this type +-- running. You cannot create new tasks of this type. +describeActivityTypeResponse_typeInfo :: Lens.Lens' DescribeActivityTypeResponse ActivityTypeInfo +describeActivityTypeResponse_typeInfo = Lens.lens (\DescribeActivityTypeResponse' {typeInfo} -> typeInfo) (\s@DescribeActivityTypeResponse' {} a -> s {typeInfo = a} :: DescribeActivityTypeResponse) + +-- | The configuration settings registered with the activity type. +describeActivityTypeResponse_configuration :: Lens.Lens' DescribeActivityTypeResponse ActivityTypeConfiguration +describeActivityTypeResponse_configuration = Lens.lens (\DescribeActivityTypeResponse' {configuration} -> configuration) (\s@DescribeActivityTypeResponse' {} a -> s {configuration = a} :: DescribeActivityTypeResponse) + +instance Prelude.NFData DescribeActivityTypeResponse where + rnf DescribeActivityTypeResponse' {..} = + Prelude.rnf httpStatus + `Prelude.seq` Prelude.rnf typeInfo + `Prelude.seq` Prelude.rnf configuration diff --git a/gen/Amazonka/SWF/DescribeDomain.hs b/gen/Amazonka/SWF/DescribeDomain.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/DescribeDomain.hs @@ -0,0 +1,215 @@ +{-# 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.SWF.DescribeDomain +-- 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 the specified domain, including description +-- and status. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.DescribeDomain + ( -- * Creating a Request + DescribeDomain (..), + newDescribeDomain, + + -- * Request Lenses + describeDomain_name, + + -- * Destructuring the Response + DescribeDomainResponse (..), + newDescribeDomainResponse, + + -- * Response Lenses + describeDomainResponse_httpStatus, + describeDomainResponse_domainInfo, + describeDomainResponse_configuration, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newDescribeDomain' smart constructor. +data DescribeDomain = DescribeDomain' + { -- | The name of the domain to describe. + name :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeDomain' 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', 'describeDomain_name' - The name of the domain to describe. +newDescribeDomain :: + -- | 'name' + Prelude.Text -> + DescribeDomain +newDescribeDomain pName_ = + DescribeDomain' {name = pName_} + +-- | The name of the domain to describe. +describeDomain_name :: Lens.Lens' DescribeDomain Prelude.Text +describeDomain_name = Lens.lens (\DescribeDomain' {name} -> name) (\s@DescribeDomain' {} a -> s {name = a} :: DescribeDomain) + +instance Core.AWSRequest DescribeDomain where + type + AWSResponse DescribeDomain = + DescribeDomainResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + DescribeDomainResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + Prelude.<*> (x Data..:> "domainInfo") + Prelude.<*> (x Data..:> "configuration") + ) + +instance Prelude.Hashable DescribeDomain where + hashWithSalt _salt DescribeDomain' {..} = + _salt `Prelude.hashWithSalt` name + +instance Prelude.NFData DescribeDomain where + rnf DescribeDomain' {..} = Prelude.rnf name + +instance Data.ToHeaders DescribeDomain where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.DescribeDomain" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON DescribeDomain where + toJSON DescribeDomain' {..} = + Data.object + ( Prelude.catMaybes + [Prelude.Just ("name" Data..= name)] + ) + +instance Data.ToPath DescribeDomain where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeDomain where + toQuery = Prelude.const Prelude.mempty + +-- | Contains details of a domain. +-- +-- /See:/ 'newDescribeDomainResponse' smart constructor. +data DescribeDomainResponse = DescribeDomainResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int, + -- | The basic information about a domain, such as its name, status, and + -- description. + domainInfo :: DomainInfo, + -- | The domain configuration. Currently, this includes only the domain\'s + -- retention period. + configuration :: DomainConfiguration + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeDomainResponse' 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', 'describeDomainResponse_httpStatus' - The response's http status code. +-- +-- 'domainInfo', 'describeDomainResponse_domainInfo' - The basic information about a domain, such as its name, status, and +-- description. +-- +-- 'configuration', 'describeDomainResponse_configuration' - The domain configuration. Currently, this includes only the domain\'s +-- retention period. +newDescribeDomainResponse :: + -- | 'httpStatus' + Prelude.Int -> + -- | 'domainInfo' + DomainInfo -> + -- | 'configuration' + DomainConfiguration -> + DescribeDomainResponse +newDescribeDomainResponse + pHttpStatus_ + pDomainInfo_ + pConfiguration_ = + DescribeDomainResponse' + { httpStatus = pHttpStatus_, + domainInfo = pDomainInfo_, + configuration = pConfiguration_ + } + +-- | The response's http status code. +describeDomainResponse_httpStatus :: Lens.Lens' DescribeDomainResponse Prelude.Int +describeDomainResponse_httpStatus = Lens.lens (\DescribeDomainResponse' {httpStatus} -> httpStatus) (\s@DescribeDomainResponse' {} a -> s {httpStatus = a} :: DescribeDomainResponse) + +-- | The basic information about a domain, such as its name, status, and +-- description. +describeDomainResponse_domainInfo :: Lens.Lens' DescribeDomainResponse DomainInfo +describeDomainResponse_domainInfo = Lens.lens (\DescribeDomainResponse' {domainInfo} -> domainInfo) (\s@DescribeDomainResponse' {} a -> s {domainInfo = a} :: DescribeDomainResponse) + +-- | The domain configuration. Currently, this includes only the domain\'s +-- retention period. +describeDomainResponse_configuration :: Lens.Lens' DescribeDomainResponse DomainConfiguration +describeDomainResponse_configuration = Lens.lens (\DescribeDomainResponse' {configuration} -> configuration) (\s@DescribeDomainResponse' {} a -> s {configuration = a} :: DescribeDomainResponse) + +instance Prelude.NFData DescribeDomainResponse where + rnf DescribeDomainResponse' {..} = + Prelude.rnf httpStatus + `Prelude.seq` Prelude.rnf domainInfo + `Prelude.seq` Prelude.rnf configuration diff --git a/gen/Amazonka/SWF/DescribeWorkflowExecution.hs b/gen/Amazonka/SWF/DescribeWorkflowExecution.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/DescribeWorkflowExecution.hs @@ -0,0 +1,297 @@ +{-# 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.SWF.DescribeWorkflowExecution +-- 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 the specified workflow execution including its +-- type and some statistics. +-- +-- This operation is eventually consistent. The results are best effort and +-- may not exactly reflect recent updates and changes. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.DescribeWorkflowExecution + ( -- * Creating a Request + DescribeWorkflowExecution (..), + newDescribeWorkflowExecution, + + -- * Request Lenses + describeWorkflowExecution_domain, + describeWorkflowExecution_execution, + + -- * Destructuring the Response + DescribeWorkflowExecutionResponse (..), + newDescribeWorkflowExecutionResponse, + + -- * Response Lenses + describeWorkflowExecutionResponse_latestActivityTaskTimestamp, + describeWorkflowExecutionResponse_latestExecutionContext, + describeWorkflowExecutionResponse_httpStatus, + describeWorkflowExecutionResponse_executionInfo, + describeWorkflowExecutionResponse_executionConfiguration, + describeWorkflowExecutionResponse_openCounts, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newDescribeWorkflowExecution' smart constructor. +data DescribeWorkflowExecution = DescribeWorkflowExecution' + { -- | The name of the domain containing the workflow execution. + domain :: Prelude.Text, + -- | The workflow execution to describe. + execution :: WorkflowExecution + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeWorkflowExecution' 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: +-- +-- 'domain', 'describeWorkflowExecution_domain' - The name of the domain containing the workflow execution. +-- +-- 'execution', 'describeWorkflowExecution_execution' - The workflow execution to describe. +newDescribeWorkflowExecution :: + -- | 'domain' + Prelude.Text -> + -- | 'execution' + WorkflowExecution -> + DescribeWorkflowExecution +newDescribeWorkflowExecution pDomain_ pExecution_ = + DescribeWorkflowExecution' + { domain = pDomain_, + execution = pExecution_ + } + +-- | The name of the domain containing the workflow execution. +describeWorkflowExecution_domain :: Lens.Lens' DescribeWorkflowExecution Prelude.Text +describeWorkflowExecution_domain = Lens.lens (\DescribeWorkflowExecution' {domain} -> domain) (\s@DescribeWorkflowExecution' {} a -> s {domain = a} :: DescribeWorkflowExecution) + +-- | The workflow execution to describe. +describeWorkflowExecution_execution :: Lens.Lens' DescribeWorkflowExecution WorkflowExecution +describeWorkflowExecution_execution = Lens.lens (\DescribeWorkflowExecution' {execution} -> execution) (\s@DescribeWorkflowExecution' {} a -> s {execution = a} :: DescribeWorkflowExecution) + +instance Core.AWSRequest DescribeWorkflowExecution where + type + AWSResponse DescribeWorkflowExecution = + DescribeWorkflowExecutionResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + DescribeWorkflowExecutionResponse' + Prelude.<$> (x Data..?> "latestActivityTaskTimestamp") + Prelude.<*> (x Data..?> "latestExecutionContext") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + Prelude.<*> (x Data..:> "executionInfo") + Prelude.<*> (x Data..:> "executionConfiguration") + Prelude.<*> (x Data..:> "openCounts") + ) + +instance Prelude.Hashable DescribeWorkflowExecution where + hashWithSalt _salt DescribeWorkflowExecution' {..} = + _salt + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` execution + +instance Prelude.NFData DescribeWorkflowExecution where + rnf DescribeWorkflowExecution' {..} = + Prelude.rnf domain + `Prelude.seq` Prelude.rnf execution + +instance Data.ToHeaders DescribeWorkflowExecution where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.DescribeWorkflowExecution" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON DescribeWorkflowExecution where + toJSON DescribeWorkflowExecution' {..} = + Data.object + ( Prelude.catMaybes + [ Prelude.Just ("domain" Data..= domain), + Prelude.Just ("execution" Data..= execution) + ] + ) + +instance Data.ToPath DescribeWorkflowExecution where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeWorkflowExecution where + toQuery = Prelude.const Prelude.mempty + +-- | Contains details about a workflow execution. +-- +-- /See:/ 'newDescribeWorkflowExecutionResponse' smart constructor. +data DescribeWorkflowExecutionResponse = DescribeWorkflowExecutionResponse' + { -- | The time when the last activity task was scheduled for this workflow + -- execution. You can use this information to determine if the workflow has + -- not made progress for an unusually long period of time and might require + -- a corrective action. + latestActivityTaskTimestamp :: Prelude.Maybe Data.POSIX, + -- | The latest executionContext provided by the decider for this workflow + -- execution. A decider can provide an executionContext (a free-form + -- string) when closing a decision task using RespondDecisionTaskCompleted. + latestExecutionContext :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int, + -- | Information about the workflow execution. + executionInfo :: WorkflowExecutionInfo, + -- | The configuration settings for this workflow execution including timeout + -- values, tasklist etc. + executionConfiguration :: WorkflowExecutionConfiguration, + -- | The number of tasks for this workflow execution. This includes open and + -- closed tasks of all types. + openCounts :: WorkflowExecutionOpenCounts + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeWorkflowExecutionResponse' 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: +-- +-- 'latestActivityTaskTimestamp', 'describeWorkflowExecutionResponse_latestActivityTaskTimestamp' - The time when the last activity task was scheduled for this workflow +-- execution. You can use this information to determine if the workflow has +-- not made progress for an unusually long period of time and might require +-- a corrective action. +-- +-- 'latestExecutionContext', 'describeWorkflowExecutionResponse_latestExecutionContext' - The latest executionContext provided by the decider for this workflow +-- execution. A decider can provide an executionContext (a free-form +-- string) when closing a decision task using RespondDecisionTaskCompleted. +-- +-- 'httpStatus', 'describeWorkflowExecutionResponse_httpStatus' - The response's http status code. +-- +-- 'executionInfo', 'describeWorkflowExecutionResponse_executionInfo' - Information about the workflow execution. +-- +-- 'executionConfiguration', 'describeWorkflowExecutionResponse_executionConfiguration' - The configuration settings for this workflow execution including timeout +-- values, tasklist etc. +-- +-- 'openCounts', 'describeWorkflowExecutionResponse_openCounts' - The number of tasks for this workflow execution. This includes open and +-- closed tasks of all types. +newDescribeWorkflowExecutionResponse :: + -- | 'httpStatus' + Prelude.Int -> + -- | 'executionInfo' + WorkflowExecutionInfo -> + -- | 'executionConfiguration' + WorkflowExecutionConfiguration -> + -- | 'openCounts' + WorkflowExecutionOpenCounts -> + DescribeWorkflowExecutionResponse +newDescribeWorkflowExecutionResponse + pHttpStatus_ + pExecutionInfo_ + pExecutionConfiguration_ + pOpenCounts_ = + DescribeWorkflowExecutionResponse' + { latestActivityTaskTimestamp = + Prelude.Nothing, + latestExecutionContext = Prelude.Nothing, + httpStatus = pHttpStatus_, + executionInfo = pExecutionInfo_, + executionConfiguration = + pExecutionConfiguration_, + openCounts = pOpenCounts_ + } + +-- | The time when the last activity task was scheduled for this workflow +-- execution. You can use this information to determine if the workflow has +-- not made progress for an unusually long period of time and might require +-- a corrective action. +describeWorkflowExecutionResponse_latestActivityTaskTimestamp :: Lens.Lens' DescribeWorkflowExecutionResponse (Prelude.Maybe Prelude.UTCTime) +describeWorkflowExecutionResponse_latestActivityTaskTimestamp = Lens.lens (\DescribeWorkflowExecutionResponse' {latestActivityTaskTimestamp} -> latestActivityTaskTimestamp) (\s@DescribeWorkflowExecutionResponse' {} a -> s {latestActivityTaskTimestamp = a} :: DescribeWorkflowExecutionResponse) Prelude.. Lens.mapping Data._Time + +-- | The latest executionContext provided by the decider for this workflow +-- execution. A decider can provide an executionContext (a free-form +-- string) when closing a decision task using RespondDecisionTaskCompleted. +describeWorkflowExecutionResponse_latestExecutionContext :: Lens.Lens' DescribeWorkflowExecutionResponse (Prelude.Maybe Prelude.Text) +describeWorkflowExecutionResponse_latestExecutionContext = Lens.lens (\DescribeWorkflowExecutionResponse' {latestExecutionContext} -> latestExecutionContext) (\s@DescribeWorkflowExecutionResponse' {} a -> s {latestExecutionContext = a} :: DescribeWorkflowExecutionResponse) + +-- | The response's http status code. +describeWorkflowExecutionResponse_httpStatus :: Lens.Lens' DescribeWorkflowExecutionResponse Prelude.Int +describeWorkflowExecutionResponse_httpStatus = Lens.lens (\DescribeWorkflowExecutionResponse' {httpStatus} -> httpStatus) (\s@DescribeWorkflowExecutionResponse' {} a -> s {httpStatus = a} :: DescribeWorkflowExecutionResponse) + +-- | Information about the workflow execution. +describeWorkflowExecutionResponse_executionInfo :: Lens.Lens' DescribeWorkflowExecutionResponse WorkflowExecutionInfo +describeWorkflowExecutionResponse_executionInfo = Lens.lens (\DescribeWorkflowExecutionResponse' {executionInfo} -> executionInfo) (\s@DescribeWorkflowExecutionResponse' {} a -> s {executionInfo = a} :: DescribeWorkflowExecutionResponse) + +-- | The configuration settings for this workflow execution including timeout +-- values, tasklist etc. +describeWorkflowExecutionResponse_executionConfiguration :: Lens.Lens' DescribeWorkflowExecutionResponse WorkflowExecutionConfiguration +describeWorkflowExecutionResponse_executionConfiguration = Lens.lens (\DescribeWorkflowExecutionResponse' {executionConfiguration} -> executionConfiguration) (\s@DescribeWorkflowExecutionResponse' {} a -> s {executionConfiguration = a} :: DescribeWorkflowExecutionResponse) + +-- | The number of tasks for this workflow execution. This includes open and +-- closed tasks of all types. +describeWorkflowExecutionResponse_openCounts :: Lens.Lens' DescribeWorkflowExecutionResponse WorkflowExecutionOpenCounts +describeWorkflowExecutionResponse_openCounts = Lens.lens (\DescribeWorkflowExecutionResponse' {openCounts} -> openCounts) (\s@DescribeWorkflowExecutionResponse' {} a -> s {openCounts = a} :: DescribeWorkflowExecutionResponse) + +instance + Prelude.NFData + DescribeWorkflowExecutionResponse + where + rnf DescribeWorkflowExecutionResponse' {..} = + Prelude.rnf latestActivityTaskTimestamp + `Prelude.seq` Prelude.rnf latestExecutionContext + `Prelude.seq` Prelude.rnf httpStatus + `Prelude.seq` Prelude.rnf executionInfo + `Prelude.seq` Prelude.rnf executionConfiguration + `Prelude.seq` Prelude.rnf openCounts diff --git a/gen/Amazonka/SWF/DescribeWorkflowType.hs b/gen/Amazonka/SWF/DescribeWorkflowType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/DescribeWorkflowType.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.SWF.DescribeWorkflowType +-- 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 the specified /workflow type/. This includes +-- configuration settings specified when the type was registered and other +-- information such as creation date, current status, etc. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the following parameters by using a @Condition@ element +-- with the appropriate keys. +-- +-- - @workflowType.name@: String constraint. The key is +-- @swf:workflowType.name@. +-- +-- - @workflowType.version@: String constraint. The key is +-- @swf:workflowType.version@. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.DescribeWorkflowType + ( -- * Creating a Request + DescribeWorkflowType (..), + newDescribeWorkflowType, + + -- * Request Lenses + describeWorkflowType_domain, + describeWorkflowType_workflowType, + + -- * Destructuring the Response + DescribeWorkflowTypeResponse (..), + newDescribeWorkflowTypeResponse, + + -- * Response Lenses + describeWorkflowTypeResponse_httpStatus, + describeWorkflowTypeResponse_typeInfo, + describeWorkflowTypeResponse_configuration, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newDescribeWorkflowType' smart constructor. +data DescribeWorkflowType = DescribeWorkflowType' + { -- | The name of the domain in which this workflow type is registered. + domain :: Prelude.Text, + -- | The workflow type to describe. + workflowType :: WorkflowType + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeWorkflowType' 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: +-- +-- 'domain', 'describeWorkflowType_domain' - The name of the domain in which this workflow type is registered. +-- +-- 'workflowType', 'describeWorkflowType_workflowType' - The workflow type to describe. +newDescribeWorkflowType :: + -- | 'domain' + Prelude.Text -> + -- | 'workflowType' + WorkflowType -> + DescribeWorkflowType +newDescribeWorkflowType pDomain_ pWorkflowType_ = + DescribeWorkflowType' + { domain = pDomain_, + workflowType = pWorkflowType_ + } + +-- | The name of the domain in which this workflow type is registered. +describeWorkflowType_domain :: Lens.Lens' DescribeWorkflowType Prelude.Text +describeWorkflowType_domain = Lens.lens (\DescribeWorkflowType' {domain} -> domain) (\s@DescribeWorkflowType' {} a -> s {domain = a} :: DescribeWorkflowType) + +-- | The workflow type to describe. +describeWorkflowType_workflowType :: Lens.Lens' DescribeWorkflowType WorkflowType +describeWorkflowType_workflowType = Lens.lens (\DescribeWorkflowType' {workflowType} -> workflowType) (\s@DescribeWorkflowType' {} a -> s {workflowType = a} :: DescribeWorkflowType) + +instance Core.AWSRequest DescribeWorkflowType where + type + AWSResponse DescribeWorkflowType = + DescribeWorkflowTypeResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + DescribeWorkflowTypeResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + Prelude.<*> (x Data..:> "typeInfo") + Prelude.<*> (x Data..:> "configuration") + ) + +instance Prelude.Hashable DescribeWorkflowType where + hashWithSalt _salt DescribeWorkflowType' {..} = + _salt + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` workflowType + +instance Prelude.NFData DescribeWorkflowType where + rnf DescribeWorkflowType' {..} = + Prelude.rnf domain + `Prelude.seq` Prelude.rnf workflowType + +instance Data.ToHeaders DescribeWorkflowType where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.DescribeWorkflowType" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON DescribeWorkflowType where + toJSON DescribeWorkflowType' {..} = + Data.object + ( Prelude.catMaybes + [ Prelude.Just ("domain" Data..= domain), + Prelude.Just ("workflowType" Data..= workflowType) + ] + ) + +instance Data.ToPath DescribeWorkflowType where + toPath = Prelude.const "/" + +instance Data.ToQuery DescribeWorkflowType where + toQuery = Prelude.const Prelude.mempty + +-- | Contains details about a workflow type. +-- +-- /See:/ 'newDescribeWorkflowTypeResponse' smart constructor. +data DescribeWorkflowTypeResponse = DescribeWorkflowTypeResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int, + -- | General information about the workflow type. + -- + -- The status of the workflow type (returned in the WorkflowTypeInfo + -- structure) can be one of the following. + -- + -- - @REGISTERED@ – The type is registered and available. Workers + -- supporting this type should be running. + -- + -- - @DEPRECATED@ – The type was deprecated using DeprecateWorkflowType, + -- but is still in use. You should keep workers supporting this type + -- running. You cannot create new workflow executions of this type. + typeInfo :: WorkflowTypeInfo, + -- | Configuration settings of the workflow type registered through + -- RegisterWorkflowType + configuration :: WorkflowTypeConfiguration + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DescribeWorkflowTypeResponse' 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', 'describeWorkflowTypeResponse_httpStatus' - The response's http status code. +-- +-- 'typeInfo', 'describeWorkflowTypeResponse_typeInfo' - General information about the workflow type. +-- +-- The status of the workflow type (returned in the WorkflowTypeInfo +-- structure) can be one of the following. +-- +-- - @REGISTERED@ – The type is registered and available. Workers +-- supporting this type should be running. +-- +-- - @DEPRECATED@ – The type was deprecated using DeprecateWorkflowType, +-- but is still in use. You should keep workers supporting this type +-- running. You cannot create new workflow executions of this type. +-- +-- 'configuration', 'describeWorkflowTypeResponse_configuration' - Configuration settings of the workflow type registered through +-- RegisterWorkflowType +newDescribeWorkflowTypeResponse :: + -- | 'httpStatus' + Prelude.Int -> + -- | 'typeInfo' + WorkflowTypeInfo -> + -- | 'configuration' + WorkflowTypeConfiguration -> + DescribeWorkflowTypeResponse +newDescribeWorkflowTypeResponse + pHttpStatus_ + pTypeInfo_ + pConfiguration_ = + DescribeWorkflowTypeResponse' + { httpStatus = + pHttpStatus_, + typeInfo = pTypeInfo_, + configuration = pConfiguration_ + } + +-- | The response's http status code. +describeWorkflowTypeResponse_httpStatus :: Lens.Lens' DescribeWorkflowTypeResponse Prelude.Int +describeWorkflowTypeResponse_httpStatus = Lens.lens (\DescribeWorkflowTypeResponse' {httpStatus} -> httpStatus) (\s@DescribeWorkflowTypeResponse' {} a -> s {httpStatus = a} :: DescribeWorkflowTypeResponse) + +-- | General information about the workflow type. +-- +-- The status of the workflow type (returned in the WorkflowTypeInfo +-- structure) can be one of the following. +-- +-- - @REGISTERED@ – The type is registered and available. Workers +-- supporting this type should be running. +-- +-- - @DEPRECATED@ – The type was deprecated using DeprecateWorkflowType, +-- but is still in use. You should keep workers supporting this type +-- running. You cannot create new workflow executions of this type. +describeWorkflowTypeResponse_typeInfo :: Lens.Lens' DescribeWorkflowTypeResponse WorkflowTypeInfo +describeWorkflowTypeResponse_typeInfo = Lens.lens (\DescribeWorkflowTypeResponse' {typeInfo} -> typeInfo) (\s@DescribeWorkflowTypeResponse' {} a -> s {typeInfo = a} :: DescribeWorkflowTypeResponse) + +-- | Configuration settings of the workflow type registered through +-- RegisterWorkflowType +describeWorkflowTypeResponse_configuration :: Lens.Lens' DescribeWorkflowTypeResponse WorkflowTypeConfiguration +describeWorkflowTypeResponse_configuration = Lens.lens (\DescribeWorkflowTypeResponse' {configuration} -> configuration) (\s@DescribeWorkflowTypeResponse' {} a -> s {configuration = a} :: DescribeWorkflowTypeResponse) + +instance Prelude.NFData DescribeWorkflowTypeResponse where + rnf DescribeWorkflowTypeResponse' {..} = + Prelude.rnf httpStatus + `Prelude.seq` Prelude.rnf typeInfo + `Prelude.seq` Prelude.rnf configuration diff --git a/gen/Amazonka/SWF/GetWorkflowExecutionHistory.hs b/gen/Amazonka/SWF/GetWorkflowExecutionHistory.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/GetWorkflowExecutionHistory.hs @@ -0,0 +1,347 @@ +{-# 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.SWF.GetWorkflowExecutionHistory +-- 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 history of the specified workflow execution. The results may +-- be split into multiple pages. To retrieve subsequent pages, make the +-- call again using the @nextPageToken@ returned by the initial call. +-- +-- This operation is eventually consistent. The results are best effort and +-- may not exactly reflect recent updates and changes. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- This operation returns paginated results. +module Amazonka.SWF.GetWorkflowExecutionHistory + ( -- * Creating a Request + GetWorkflowExecutionHistory (..), + newGetWorkflowExecutionHistory, + + -- * Request Lenses + getWorkflowExecutionHistory_maximumPageSize, + getWorkflowExecutionHistory_nextPageToken, + getWorkflowExecutionHistory_reverseOrder, + getWorkflowExecutionHistory_domain, + getWorkflowExecutionHistory_execution, + + -- * Destructuring the Response + GetWorkflowExecutionHistoryResponse (..), + newGetWorkflowExecutionHistoryResponse, + + -- * Response Lenses + getWorkflowExecutionHistoryResponse_nextPageToken, + getWorkflowExecutionHistoryResponse_httpStatus, + getWorkflowExecutionHistoryResponse_events, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newGetWorkflowExecutionHistory' smart constructor. +data GetWorkflowExecutionHistory = GetWorkflowExecutionHistory' + { -- | The maximum number of results that are returned per call. Use + -- @nextPageToken@ to obtain further pages of results. + maximumPageSize :: Prelude.Maybe Prelude.Natural, + -- | If @NextPageToken@ is returned there are more results available. The + -- value of @NextPageToken@ is a unique pagination token for each page. + -- Make the call again using the returned token to retrieve the next page. + -- Keep all other arguments unchanged. Each pagination token expires after + -- 60 seconds. Using an expired pagination token will return a @400@ error: + -- \"@Specified token has exceeded its maximum lifetime@\". + -- + -- The configured @maximumPageSize@ determines how many results can be + -- returned in a single call. + nextPageToken :: Prelude.Maybe Prelude.Text, + -- | When set to @true@, returns the events in reverse order. By default the + -- results are returned in ascending order of the @eventTimeStamp@ of the + -- events. + reverseOrder :: Prelude.Maybe Prelude.Bool, + -- | The name of the domain containing the workflow execution. + domain :: Prelude.Text, + -- | Specifies the workflow execution for which to return the history. + execution :: WorkflowExecution + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GetWorkflowExecutionHistory' 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: +-- +-- 'maximumPageSize', 'getWorkflowExecutionHistory_maximumPageSize' - The maximum number of results that are returned per call. Use +-- @nextPageToken@ to obtain further pages of results. +-- +-- 'nextPageToken', 'getWorkflowExecutionHistory_nextPageToken' - If @NextPageToken@ is returned there are more results available. The +-- value of @NextPageToken@ is a unique pagination token for each page. +-- Make the call again using the returned token to retrieve the next page. +-- Keep all other arguments unchanged. Each pagination token expires after +-- 60 seconds. Using an expired pagination token will return a @400@ error: +-- \"@Specified token has exceeded its maximum lifetime@\". +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +-- +-- 'reverseOrder', 'getWorkflowExecutionHistory_reverseOrder' - When set to @true@, returns the events in reverse order. By default the +-- results are returned in ascending order of the @eventTimeStamp@ of the +-- events. +-- +-- 'domain', 'getWorkflowExecutionHistory_domain' - The name of the domain containing the workflow execution. +-- +-- 'execution', 'getWorkflowExecutionHistory_execution' - Specifies the workflow execution for which to return the history. +newGetWorkflowExecutionHistory :: + -- | 'domain' + Prelude.Text -> + -- | 'execution' + WorkflowExecution -> + GetWorkflowExecutionHistory +newGetWorkflowExecutionHistory pDomain_ pExecution_ = + GetWorkflowExecutionHistory' + { maximumPageSize = + Prelude.Nothing, + nextPageToken = Prelude.Nothing, + reverseOrder = Prelude.Nothing, + domain = pDomain_, + execution = pExecution_ + } + +-- | The maximum number of results that are returned per call. Use +-- @nextPageToken@ to obtain further pages of results. +getWorkflowExecutionHistory_maximumPageSize :: Lens.Lens' GetWorkflowExecutionHistory (Prelude.Maybe Prelude.Natural) +getWorkflowExecutionHistory_maximumPageSize = Lens.lens (\GetWorkflowExecutionHistory' {maximumPageSize} -> maximumPageSize) (\s@GetWorkflowExecutionHistory' {} a -> s {maximumPageSize = a} :: GetWorkflowExecutionHistory) + +-- | If @NextPageToken@ is returned there are more results available. The +-- value of @NextPageToken@ is a unique pagination token for each page. +-- Make the call again using the returned token to retrieve the next page. +-- Keep all other arguments unchanged. Each pagination token expires after +-- 60 seconds. Using an expired pagination token will return a @400@ error: +-- \"@Specified token has exceeded its maximum lifetime@\". +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +getWorkflowExecutionHistory_nextPageToken :: Lens.Lens' GetWorkflowExecutionHistory (Prelude.Maybe Prelude.Text) +getWorkflowExecutionHistory_nextPageToken = Lens.lens (\GetWorkflowExecutionHistory' {nextPageToken} -> nextPageToken) (\s@GetWorkflowExecutionHistory' {} a -> s {nextPageToken = a} :: GetWorkflowExecutionHistory) + +-- | When set to @true@, returns the events in reverse order. By default the +-- results are returned in ascending order of the @eventTimeStamp@ of the +-- events. +getWorkflowExecutionHistory_reverseOrder :: Lens.Lens' GetWorkflowExecutionHistory (Prelude.Maybe Prelude.Bool) +getWorkflowExecutionHistory_reverseOrder = Lens.lens (\GetWorkflowExecutionHistory' {reverseOrder} -> reverseOrder) (\s@GetWorkflowExecutionHistory' {} a -> s {reverseOrder = a} :: GetWorkflowExecutionHistory) + +-- | The name of the domain containing the workflow execution. +getWorkflowExecutionHistory_domain :: Lens.Lens' GetWorkflowExecutionHistory Prelude.Text +getWorkflowExecutionHistory_domain = Lens.lens (\GetWorkflowExecutionHistory' {domain} -> domain) (\s@GetWorkflowExecutionHistory' {} a -> s {domain = a} :: GetWorkflowExecutionHistory) + +-- | Specifies the workflow execution for which to return the history. +getWorkflowExecutionHistory_execution :: Lens.Lens' GetWorkflowExecutionHistory WorkflowExecution +getWorkflowExecutionHistory_execution = Lens.lens (\GetWorkflowExecutionHistory' {execution} -> execution) (\s@GetWorkflowExecutionHistory' {} a -> s {execution = a} :: GetWorkflowExecutionHistory) + +instance Core.AWSPager GetWorkflowExecutionHistory where + page rq rs + | Core.stop + ( rs + Lens.^? getWorkflowExecutionHistoryResponse_nextPageToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + ( rs + Lens.^. getWorkflowExecutionHistoryResponse_events + ) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& getWorkflowExecutionHistory_nextPageToken + Lens..~ rs + Lens.^? getWorkflowExecutionHistoryResponse_nextPageToken + Prelude.. Lens._Just + +instance Core.AWSRequest GetWorkflowExecutionHistory where + type + AWSResponse GetWorkflowExecutionHistory = + GetWorkflowExecutionHistoryResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + GetWorkflowExecutionHistoryResponse' + Prelude.<$> (x Data..?> "nextPageToken") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + Prelude.<*> (x Data..?> "events" Core..!@ Prelude.mempty) + ) + +instance Prelude.Hashable GetWorkflowExecutionHistory where + hashWithSalt _salt GetWorkflowExecutionHistory' {..} = + _salt + `Prelude.hashWithSalt` maximumPageSize + `Prelude.hashWithSalt` nextPageToken + `Prelude.hashWithSalt` reverseOrder + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` execution + +instance Prelude.NFData GetWorkflowExecutionHistory where + rnf GetWorkflowExecutionHistory' {..} = + Prelude.rnf maximumPageSize + `Prelude.seq` Prelude.rnf nextPageToken + `Prelude.seq` Prelude.rnf reverseOrder + `Prelude.seq` Prelude.rnf domain + `Prelude.seq` Prelude.rnf execution + +instance Data.ToHeaders GetWorkflowExecutionHistory where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.GetWorkflowExecutionHistory" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON GetWorkflowExecutionHistory where + toJSON GetWorkflowExecutionHistory' {..} = + Data.object + ( Prelude.catMaybes + [ ("maximumPageSize" Data..=) + Prelude.<$> maximumPageSize, + ("nextPageToken" Data..=) Prelude.<$> nextPageToken, + ("reverseOrder" Data..=) Prelude.<$> reverseOrder, + Prelude.Just ("domain" Data..= domain), + Prelude.Just ("execution" Data..= execution) + ] + ) + +instance Data.ToPath GetWorkflowExecutionHistory where + toPath = Prelude.const "/" + +instance Data.ToQuery GetWorkflowExecutionHistory where + toQuery = Prelude.const Prelude.mempty + +-- | Paginated representation of a workflow history for a workflow execution. +-- This is the up to date, complete and authoritative record of the events +-- related to all tasks and events in the life of the workflow execution. +-- +-- /See:/ 'newGetWorkflowExecutionHistoryResponse' smart constructor. +data GetWorkflowExecutionHistoryResponse = GetWorkflowExecutionHistoryResponse' + { -- | If a @NextPageToken@ was returned by a previous call, there are more + -- results available. To retrieve the next page of results, make the call + -- again using the returned token in @nextPageToken@. Keep all other + -- arguments unchanged. + -- + -- The configured @maximumPageSize@ determines how many results can be + -- returned in a single call. + nextPageToken :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int, + -- | The list of history events. + events :: [HistoryEvent] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'GetWorkflowExecutionHistoryResponse' 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: +-- +-- 'nextPageToken', 'getWorkflowExecutionHistoryResponse_nextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more +-- results available. To retrieve the next page of results, make the call +-- again using the returned token in @nextPageToken@. Keep all other +-- arguments unchanged. +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +-- +-- 'httpStatus', 'getWorkflowExecutionHistoryResponse_httpStatus' - The response's http status code. +-- +-- 'events', 'getWorkflowExecutionHistoryResponse_events' - The list of history events. +newGetWorkflowExecutionHistoryResponse :: + -- | 'httpStatus' + Prelude.Int -> + GetWorkflowExecutionHistoryResponse +newGetWorkflowExecutionHistoryResponse pHttpStatus_ = + GetWorkflowExecutionHistoryResponse' + { nextPageToken = + Prelude.Nothing, + httpStatus = pHttpStatus_, + events = Prelude.mempty + } + +-- | If a @NextPageToken@ was returned by a previous call, there are more +-- results available. To retrieve the next page of results, make the call +-- again using the returned token in @nextPageToken@. Keep all other +-- arguments unchanged. +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +getWorkflowExecutionHistoryResponse_nextPageToken :: Lens.Lens' GetWorkflowExecutionHistoryResponse (Prelude.Maybe Prelude.Text) +getWorkflowExecutionHistoryResponse_nextPageToken = Lens.lens (\GetWorkflowExecutionHistoryResponse' {nextPageToken} -> nextPageToken) (\s@GetWorkflowExecutionHistoryResponse' {} a -> s {nextPageToken = a} :: GetWorkflowExecutionHistoryResponse) + +-- | The response's http status code. +getWorkflowExecutionHistoryResponse_httpStatus :: Lens.Lens' GetWorkflowExecutionHistoryResponse Prelude.Int +getWorkflowExecutionHistoryResponse_httpStatus = Lens.lens (\GetWorkflowExecutionHistoryResponse' {httpStatus} -> httpStatus) (\s@GetWorkflowExecutionHistoryResponse' {} a -> s {httpStatus = a} :: GetWorkflowExecutionHistoryResponse) + +-- | The list of history events. +getWorkflowExecutionHistoryResponse_events :: Lens.Lens' GetWorkflowExecutionHistoryResponse [HistoryEvent] +getWorkflowExecutionHistoryResponse_events = Lens.lens (\GetWorkflowExecutionHistoryResponse' {events} -> events) (\s@GetWorkflowExecutionHistoryResponse' {} a -> s {events = a} :: GetWorkflowExecutionHistoryResponse) Prelude.. Lens.coerced + +instance + Prelude.NFData + GetWorkflowExecutionHistoryResponse + where + rnf GetWorkflowExecutionHistoryResponse' {..} = + Prelude.rnf nextPageToken + `Prelude.seq` Prelude.rnf httpStatus + `Prelude.seq` Prelude.rnf events diff --git a/gen/Amazonka/SWF/Lens.hs b/gen/Amazonka/SWF/Lens.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Lens.hs @@ -0,0 +1,1021 @@ +{-# 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.SWF.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.SWF.Lens + ( -- * Operations + + -- ** CountClosedWorkflowExecutions + countClosedWorkflowExecutions_closeStatusFilter, + countClosedWorkflowExecutions_closeTimeFilter, + countClosedWorkflowExecutions_executionFilter, + countClosedWorkflowExecutions_startTimeFilter, + countClosedWorkflowExecutions_tagFilter, + countClosedWorkflowExecutions_typeFilter, + countClosedWorkflowExecutions_domain, + workflowExecutionCount_truncated, + workflowExecutionCount_count, + + -- ** CountOpenWorkflowExecutions + countOpenWorkflowExecutions_executionFilter, + countOpenWorkflowExecutions_tagFilter, + countOpenWorkflowExecutions_typeFilter, + countOpenWorkflowExecutions_domain, + countOpenWorkflowExecutions_startTimeFilter, + workflowExecutionCount_truncated, + workflowExecutionCount_count, + + -- ** CountPendingActivityTasks + countPendingActivityTasks_domain, + countPendingActivityTasks_taskList, + pendingTaskCount_truncated, + pendingTaskCount_count, + + -- ** CountPendingDecisionTasks + countPendingDecisionTasks_domain, + countPendingDecisionTasks_taskList, + pendingTaskCount_truncated, + pendingTaskCount_count, + + -- ** DeprecateActivityType + deprecateActivityType_domain, + deprecateActivityType_activityType, + + -- ** DeprecateDomain + deprecateDomain_name, + + -- ** DeprecateWorkflowType + deprecateWorkflowType_domain, + deprecateWorkflowType_workflowType, + + -- ** DescribeActivityType + describeActivityType_domain, + describeActivityType_activityType, + describeActivityTypeResponse_httpStatus, + describeActivityTypeResponse_typeInfo, + describeActivityTypeResponse_configuration, + + -- ** DescribeDomain + describeDomain_name, + describeDomainResponse_httpStatus, + describeDomainResponse_domainInfo, + describeDomainResponse_configuration, + + -- ** DescribeWorkflowExecution + describeWorkflowExecution_domain, + describeWorkflowExecution_execution, + describeWorkflowExecutionResponse_latestActivityTaskTimestamp, + describeWorkflowExecutionResponse_latestExecutionContext, + describeWorkflowExecutionResponse_httpStatus, + describeWorkflowExecutionResponse_executionInfo, + describeWorkflowExecutionResponse_executionConfiguration, + describeWorkflowExecutionResponse_openCounts, + + -- ** DescribeWorkflowType + describeWorkflowType_domain, + describeWorkflowType_workflowType, + describeWorkflowTypeResponse_httpStatus, + describeWorkflowTypeResponse_typeInfo, + describeWorkflowTypeResponse_configuration, + + -- ** GetWorkflowExecutionHistory + getWorkflowExecutionHistory_maximumPageSize, + getWorkflowExecutionHistory_nextPageToken, + getWorkflowExecutionHistory_reverseOrder, + getWorkflowExecutionHistory_domain, + getWorkflowExecutionHistory_execution, + getWorkflowExecutionHistoryResponse_nextPageToken, + getWorkflowExecutionHistoryResponse_httpStatus, + getWorkflowExecutionHistoryResponse_events, + + -- ** ListActivityTypes + listActivityTypes_maximumPageSize, + listActivityTypes_name, + listActivityTypes_nextPageToken, + listActivityTypes_reverseOrder, + listActivityTypes_domain, + listActivityTypes_registrationStatus, + listActivityTypesResponse_nextPageToken, + listActivityTypesResponse_httpStatus, + listActivityTypesResponse_typeInfos, + + -- ** ListClosedWorkflowExecutions + listClosedWorkflowExecutions_closeStatusFilter, + listClosedWorkflowExecutions_closeTimeFilter, + listClosedWorkflowExecutions_executionFilter, + listClosedWorkflowExecutions_maximumPageSize, + listClosedWorkflowExecutions_nextPageToken, + listClosedWorkflowExecutions_reverseOrder, + listClosedWorkflowExecutions_startTimeFilter, + listClosedWorkflowExecutions_tagFilter, + listClosedWorkflowExecutions_typeFilter, + listClosedWorkflowExecutions_domain, + workflowExecutionInfos_nextPageToken, + workflowExecutionInfos_executionInfos, + + -- ** ListDomains + listDomains_maximumPageSize, + listDomains_nextPageToken, + listDomains_reverseOrder, + listDomains_registrationStatus, + listDomainsResponse_nextPageToken, + listDomainsResponse_httpStatus, + listDomainsResponse_domainInfos, + + -- ** ListOpenWorkflowExecutions + listOpenWorkflowExecutions_executionFilter, + listOpenWorkflowExecutions_maximumPageSize, + listOpenWorkflowExecutions_nextPageToken, + listOpenWorkflowExecutions_reverseOrder, + listOpenWorkflowExecutions_tagFilter, + listOpenWorkflowExecutions_typeFilter, + listOpenWorkflowExecutions_domain, + listOpenWorkflowExecutions_startTimeFilter, + workflowExecutionInfos_nextPageToken, + workflowExecutionInfos_executionInfos, + + -- ** ListTagsForResource + listTagsForResource_resourceArn, + listTagsForResourceResponse_tags, + listTagsForResourceResponse_httpStatus, + + -- ** ListWorkflowTypes + listWorkflowTypes_maximumPageSize, + listWorkflowTypes_name, + listWorkflowTypes_nextPageToken, + listWorkflowTypes_reverseOrder, + listWorkflowTypes_domain, + listWorkflowTypes_registrationStatus, + listWorkflowTypesResponse_nextPageToken, + listWorkflowTypesResponse_httpStatus, + listWorkflowTypesResponse_typeInfos, + + -- ** PollForActivityTask + pollForActivityTask_identity, + pollForActivityTask_domain, + pollForActivityTask_taskList, + pollForActivityTaskResponse_activityId, + pollForActivityTaskResponse_activityType, + pollForActivityTaskResponse_input, + pollForActivityTaskResponse_taskToken, + pollForActivityTaskResponse_workflowExecution, + pollForActivityTaskResponse_httpStatus, + pollForActivityTaskResponse_startedEventId, + + -- ** PollForDecisionTask + pollForDecisionTask_identity, + pollForDecisionTask_maximumPageSize, + pollForDecisionTask_nextPageToken, + pollForDecisionTask_reverseOrder, + pollForDecisionTask_domain, + pollForDecisionTask_taskList, + pollForDecisionTaskResponse_events, + pollForDecisionTaskResponse_nextPageToken, + pollForDecisionTaskResponse_previousStartedEventId, + pollForDecisionTaskResponse_taskToken, + pollForDecisionTaskResponse_workflowExecution, + pollForDecisionTaskResponse_workflowType, + pollForDecisionTaskResponse_httpStatus, + pollForDecisionTaskResponse_startedEventId, + + -- ** RecordActivityTaskHeartbeat + recordActivityTaskHeartbeat_details, + recordActivityTaskHeartbeat_taskToken, + recordActivityTaskHeartbeatResponse_httpStatus, + recordActivityTaskHeartbeatResponse_cancelRequested, + + -- ** RegisterActivityType + registerActivityType_defaultTaskHeartbeatTimeout, + registerActivityType_defaultTaskList, + registerActivityType_defaultTaskPriority, + registerActivityType_defaultTaskScheduleToCloseTimeout, + registerActivityType_defaultTaskScheduleToStartTimeout, + registerActivityType_defaultTaskStartToCloseTimeout, + registerActivityType_description, + registerActivityType_domain, + registerActivityType_name, + registerActivityType_version, + + -- ** RegisterDomain + registerDomain_description, + registerDomain_tags, + registerDomain_name, + registerDomain_workflowExecutionRetentionPeriodInDays, + + -- ** RegisterWorkflowType + registerWorkflowType_defaultChildPolicy, + registerWorkflowType_defaultExecutionStartToCloseTimeout, + registerWorkflowType_defaultLambdaRole, + registerWorkflowType_defaultTaskList, + registerWorkflowType_defaultTaskPriority, + registerWorkflowType_defaultTaskStartToCloseTimeout, + registerWorkflowType_description, + registerWorkflowType_domain, + registerWorkflowType_name, + registerWorkflowType_version, + + -- ** RequestCancelWorkflowExecution + requestCancelWorkflowExecution_runId, + requestCancelWorkflowExecution_domain, + requestCancelWorkflowExecution_workflowId, + + -- ** RespondActivityTaskCanceled + respondActivityTaskCanceled_details, + respondActivityTaskCanceled_taskToken, + + -- ** RespondActivityTaskCompleted + respondActivityTaskCompleted_result, + respondActivityTaskCompleted_taskToken, + + -- ** RespondActivityTaskFailed + respondActivityTaskFailed_details, + respondActivityTaskFailed_reason, + respondActivityTaskFailed_taskToken, + + -- ** RespondDecisionTaskCompleted + respondDecisionTaskCompleted_decisions, + respondDecisionTaskCompleted_executionContext, + respondDecisionTaskCompleted_taskToken, + + -- ** SignalWorkflowExecution + signalWorkflowExecution_input, + signalWorkflowExecution_runId, + signalWorkflowExecution_domain, + signalWorkflowExecution_workflowId, + signalWorkflowExecution_signalName, + + -- ** StartWorkflowExecution + startWorkflowExecution_childPolicy, + startWorkflowExecution_executionStartToCloseTimeout, + startWorkflowExecution_input, + startWorkflowExecution_lambdaRole, + startWorkflowExecution_tagList, + startWorkflowExecution_taskList, + startWorkflowExecution_taskPriority, + startWorkflowExecution_taskStartToCloseTimeout, + startWorkflowExecution_domain, + startWorkflowExecution_workflowId, + startWorkflowExecution_workflowType, + startWorkflowExecutionResponse_runId, + startWorkflowExecutionResponse_httpStatus, + + -- ** TagResource + tagResource_resourceArn, + tagResource_tags, + + -- ** TerminateWorkflowExecution + terminateWorkflowExecution_childPolicy, + terminateWorkflowExecution_details, + terminateWorkflowExecution_reason, + terminateWorkflowExecution_runId, + terminateWorkflowExecution_domain, + terminateWorkflowExecution_workflowId, + + -- ** UndeprecateActivityType + undeprecateActivityType_domain, + undeprecateActivityType_activityType, + + -- ** UndeprecateDomain + undeprecateDomain_name, + + -- ** UndeprecateWorkflowType + undeprecateWorkflowType_domain, + undeprecateWorkflowType_workflowType, + + -- ** UntagResource + untagResource_resourceArn, + untagResource_tagKeys, + + -- * Types + + -- ** ActivityTaskCancelRequestedEventAttributes + activityTaskCancelRequestedEventAttributes_decisionTaskCompletedEventId, + activityTaskCancelRequestedEventAttributes_activityId, + + -- ** ActivityTaskCanceledEventAttributes + activityTaskCanceledEventAttributes_details, + activityTaskCanceledEventAttributes_latestCancelRequestedEventId, + activityTaskCanceledEventAttributes_scheduledEventId, + activityTaskCanceledEventAttributes_startedEventId, + + -- ** ActivityTaskCompletedEventAttributes + activityTaskCompletedEventAttributes_result, + activityTaskCompletedEventAttributes_scheduledEventId, + activityTaskCompletedEventAttributes_startedEventId, + + -- ** ActivityTaskFailedEventAttributes + activityTaskFailedEventAttributes_details, + activityTaskFailedEventAttributes_reason, + activityTaskFailedEventAttributes_scheduledEventId, + activityTaskFailedEventAttributes_startedEventId, + + -- ** ActivityTaskScheduledEventAttributes + activityTaskScheduledEventAttributes_control, + activityTaskScheduledEventAttributes_heartbeatTimeout, + activityTaskScheduledEventAttributes_input, + activityTaskScheduledEventAttributes_scheduleToCloseTimeout, + activityTaskScheduledEventAttributes_scheduleToStartTimeout, + activityTaskScheduledEventAttributes_startToCloseTimeout, + activityTaskScheduledEventAttributes_taskPriority, + activityTaskScheduledEventAttributes_activityType, + activityTaskScheduledEventAttributes_activityId, + activityTaskScheduledEventAttributes_taskList, + activityTaskScheduledEventAttributes_decisionTaskCompletedEventId, + + -- ** ActivityTaskStartedEventAttributes + activityTaskStartedEventAttributes_identity, + activityTaskStartedEventAttributes_scheduledEventId, + + -- ** ActivityTaskTimedOutEventAttributes + activityTaskTimedOutEventAttributes_details, + activityTaskTimedOutEventAttributes_timeoutType, + activityTaskTimedOutEventAttributes_scheduledEventId, + activityTaskTimedOutEventAttributes_startedEventId, + + -- ** ActivityType + activityType_name, + activityType_version, + + -- ** ActivityTypeConfiguration + activityTypeConfiguration_defaultTaskHeartbeatTimeout, + activityTypeConfiguration_defaultTaskList, + activityTypeConfiguration_defaultTaskPriority, + activityTypeConfiguration_defaultTaskScheduleToCloseTimeout, + activityTypeConfiguration_defaultTaskScheduleToStartTimeout, + activityTypeConfiguration_defaultTaskStartToCloseTimeout, + + -- ** ActivityTypeInfo + activityTypeInfo_deprecationDate, + activityTypeInfo_description, + activityTypeInfo_activityType, + activityTypeInfo_status, + activityTypeInfo_creationDate, + + -- ** CancelTimerDecisionAttributes + cancelTimerDecisionAttributes_timerId, + + -- ** CancelTimerFailedEventAttributes + cancelTimerFailedEventAttributes_timerId, + cancelTimerFailedEventAttributes_cause, + cancelTimerFailedEventAttributes_decisionTaskCompletedEventId, + + -- ** CancelWorkflowExecutionDecisionAttributes + cancelWorkflowExecutionDecisionAttributes_details, + + -- ** CancelWorkflowExecutionFailedEventAttributes + cancelWorkflowExecutionFailedEventAttributes_cause, + cancelWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId, + + -- ** ChildWorkflowExecutionCanceledEventAttributes + childWorkflowExecutionCanceledEventAttributes_details, + childWorkflowExecutionCanceledEventAttributes_workflowExecution, + childWorkflowExecutionCanceledEventAttributes_workflowType, + childWorkflowExecutionCanceledEventAttributes_initiatedEventId, + childWorkflowExecutionCanceledEventAttributes_startedEventId, + + -- ** ChildWorkflowExecutionCompletedEventAttributes + childWorkflowExecutionCompletedEventAttributes_result, + childWorkflowExecutionCompletedEventAttributes_workflowExecution, + childWorkflowExecutionCompletedEventAttributes_workflowType, + childWorkflowExecutionCompletedEventAttributes_initiatedEventId, + childWorkflowExecutionCompletedEventAttributes_startedEventId, + + -- ** ChildWorkflowExecutionFailedEventAttributes + childWorkflowExecutionFailedEventAttributes_details, + childWorkflowExecutionFailedEventAttributes_reason, + childWorkflowExecutionFailedEventAttributes_workflowExecution, + childWorkflowExecutionFailedEventAttributes_workflowType, + childWorkflowExecutionFailedEventAttributes_initiatedEventId, + childWorkflowExecutionFailedEventAttributes_startedEventId, + + -- ** ChildWorkflowExecutionStartedEventAttributes + childWorkflowExecutionStartedEventAttributes_workflowExecution, + childWorkflowExecutionStartedEventAttributes_workflowType, + childWorkflowExecutionStartedEventAttributes_initiatedEventId, + + -- ** ChildWorkflowExecutionTerminatedEventAttributes + childWorkflowExecutionTerminatedEventAttributes_workflowExecution, + childWorkflowExecutionTerminatedEventAttributes_workflowType, + childWorkflowExecutionTerminatedEventAttributes_initiatedEventId, + childWorkflowExecutionTerminatedEventAttributes_startedEventId, + + -- ** ChildWorkflowExecutionTimedOutEventAttributes + childWorkflowExecutionTimedOutEventAttributes_workflowExecution, + childWorkflowExecutionTimedOutEventAttributes_workflowType, + childWorkflowExecutionTimedOutEventAttributes_timeoutType, + childWorkflowExecutionTimedOutEventAttributes_initiatedEventId, + childWorkflowExecutionTimedOutEventAttributes_startedEventId, + + -- ** CloseStatusFilter + closeStatusFilter_status, + + -- ** CompleteWorkflowExecutionDecisionAttributes + completeWorkflowExecutionDecisionAttributes_result, + + -- ** CompleteWorkflowExecutionFailedEventAttributes + completeWorkflowExecutionFailedEventAttributes_cause, + completeWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId, + + -- ** ContinueAsNewWorkflowExecutionDecisionAttributes + continueAsNewWorkflowExecutionDecisionAttributes_childPolicy, + continueAsNewWorkflowExecutionDecisionAttributes_executionStartToCloseTimeout, + continueAsNewWorkflowExecutionDecisionAttributes_input, + continueAsNewWorkflowExecutionDecisionAttributes_lambdaRole, + continueAsNewWorkflowExecutionDecisionAttributes_tagList, + continueAsNewWorkflowExecutionDecisionAttributes_taskList, + continueAsNewWorkflowExecutionDecisionAttributes_taskPriority, + continueAsNewWorkflowExecutionDecisionAttributes_taskStartToCloseTimeout, + continueAsNewWorkflowExecutionDecisionAttributes_workflowTypeVersion, + + -- ** ContinueAsNewWorkflowExecutionFailedEventAttributes + continueAsNewWorkflowExecutionFailedEventAttributes_cause, + continueAsNewWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId, + + -- ** Decision + decision_cancelTimerDecisionAttributes, + decision_cancelWorkflowExecutionDecisionAttributes, + decision_completeWorkflowExecutionDecisionAttributes, + decision_continueAsNewWorkflowExecutionDecisionAttributes, + decision_failWorkflowExecutionDecisionAttributes, + decision_recordMarkerDecisionAttributes, + decision_requestCancelActivityTaskDecisionAttributes, + decision_requestCancelExternalWorkflowExecutionDecisionAttributes, + decision_scheduleActivityTaskDecisionAttributes, + decision_scheduleLambdaFunctionDecisionAttributes, + decision_signalExternalWorkflowExecutionDecisionAttributes, + decision_startChildWorkflowExecutionDecisionAttributes, + decision_startTimerDecisionAttributes, + decision_decisionType, + + -- ** DecisionTaskCompletedEventAttributes + decisionTaskCompletedEventAttributes_executionContext, + decisionTaskCompletedEventAttributes_scheduledEventId, + decisionTaskCompletedEventAttributes_startedEventId, + + -- ** DecisionTaskScheduledEventAttributes + decisionTaskScheduledEventAttributes_startToCloseTimeout, + decisionTaskScheduledEventAttributes_taskPriority, + decisionTaskScheduledEventAttributes_taskList, + + -- ** DecisionTaskStartedEventAttributes + decisionTaskStartedEventAttributes_identity, + decisionTaskStartedEventAttributes_scheduledEventId, + + -- ** DecisionTaskTimedOutEventAttributes + decisionTaskTimedOutEventAttributes_timeoutType, + decisionTaskTimedOutEventAttributes_scheduledEventId, + decisionTaskTimedOutEventAttributes_startedEventId, + + -- ** DomainConfiguration + domainConfiguration_workflowExecutionRetentionPeriodInDays, + + -- ** DomainInfo + domainInfo_arn, + domainInfo_description, + domainInfo_name, + domainInfo_status, + + -- ** ExecutionTimeFilter + executionTimeFilter_latestDate, + executionTimeFilter_oldestDate, + + -- ** ExternalWorkflowExecutionCancelRequestedEventAttributes + externalWorkflowExecutionCancelRequestedEventAttributes_workflowExecution, + externalWorkflowExecutionCancelRequestedEventAttributes_initiatedEventId, + + -- ** ExternalWorkflowExecutionSignaledEventAttributes + externalWorkflowExecutionSignaledEventAttributes_workflowExecution, + externalWorkflowExecutionSignaledEventAttributes_initiatedEventId, + + -- ** FailWorkflowExecutionDecisionAttributes + failWorkflowExecutionDecisionAttributes_details, + failWorkflowExecutionDecisionAttributes_reason, + + -- ** FailWorkflowExecutionFailedEventAttributes + failWorkflowExecutionFailedEventAttributes_cause, + failWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId, + + -- ** HistoryEvent + historyEvent_activityTaskCancelRequestedEventAttributes, + historyEvent_activityTaskCanceledEventAttributes, + historyEvent_activityTaskCompletedEventAttributes, + historyEvent_activityTaskFailedEventAttributes, + historyEvent_activityTaskScheduledEventAttributes, + historyEvent_activityTaskStartedEventAttributes, + historyEvent_activityTaskTimedOutEventAttributes, + historyEvent_cancelTimerFailedEventAttributes, + historyEvent_cancelWorkflowExecutionFailedEventAttributes, + historyEvent_childWorkflowExecutionCanceledEventAttributes, + historyEvent_childWorkflowExecutionCompletedEventAttributes, + historyEvent_childWorkflowExecutionFailedEventAttributes, + historyEvent_childWorkflowExecutionStartedEventAttributes, + historyEvent_childWorkflowExecutionTerminatedEventAttributes, + historyEvent_childWorkflowExecutionTimedOutEventAttributes, + historyEvent_completeWorkflowExecutionFailedEventAttributes, + historyEvent_continueAsNewWorkflowExecutionFailedEventAttributes, + historyEvent_decisionTaskCompletedEventAttributes, + historyEvent_decisionTaskScheduledEventAttributes, + historyEvent_decisionTaskStartedEventAttributes, + historyEvent_decisionTaskTimedOutEventAttributes, + historyEvent_externalWorkflowExecutionCancelRequestedEventAttributes, + historyEvent_externalWorkflowExecutionSignaledEventAttributes, + historyEvent_failWorkflowExecutionFailedEventAttributes, + historyEvent_lambdaFunctionCompletedEventAttributes, + historyEvent_lambdaFunctionFailedEventAttributes, + historyEvent_lambdaFunctionScheduledEventAttributes, + historyEvent_lambdaFunctionStartedEventAttributes, + historyEvent_lambdaFunctionTimedOutEventAttributes, + historyEvent_markerRecordedEventAttributes, + historyEvent_recordMarkerFailedEventAttributes, + historyEvent_requestCancelActivityTaskFailedEventAttributes, + historyEvent_requestCancelExternalWorkflowExecutionFailedEventAttributes, + historyEvent_requestCancelExternalWorkflowExecutionInitiatedEventAttributes, + historyEvent_scheduleActivityTaskFailedEventAttributes, + historyEvent_scheduleLambdaFunctionFailedEventAttributes, + historyEvent_signalExternalWorkflowExecutionFailedEventAttributes, + historyEvent_signalExternalWorkflowExecutionInitiatedEventAttributes, + historyEvent_startChildWorkflowExecutionFailedEventAttributes, + historyEvent_startChildWorkflowExecutionInitiatedEventAttributes, + historyEvent_startLambdaFunctionFailedEventAttributes, + historyEvent_startTimerFailedEventAttributes, + historyEvent_timerCanceledEventAttributes, + historyEvent_timerFiredEventAttributes, + historyEvent_timerStartedEventAttributes, + historyEvent_workflowExecutionCancelRequestedEventAttributes, + historyEvent_workflowExecutionCanceledEventAttributes, + historyEvent_workflowExecutionCompletedEventAttributes, + historyEvent_workflowExecutionContinuedAsNewEventAttributes, + historyEvent_workflowExecutionFailedEventAttributes, + historyEvent_workflowExecutionSignaledEventAttributes, + historyEvent_workflowExecutionStartedEventAttributes, + historyEvent_workflowExecutionTerminatedEventAttributes, + historyEvent_workflowExecutionTimedOutEventAttributes, + historyEvent_eventTimestamp, + historyEvent_eventType, + historyEvent_eventId, + + -- ** LambdaFunctionCompletedEventAttributes + lambdaFunctionCompletedEventAttributes_result, + lambdaFunctionCompletedEventAttributes_scheduledEventId, + lambdaFunctionCompletedEventAttributes_startedEventId, + + -- ** LambdaFunctionFailedEventAttributes + lambdaFunctionFailedEventAttributes_details, + lambdaFunctionFailedEventAttributes_reason, + lambdaFunctionFailedEventAttributes_scheduledEventId, + lambdaFunctionFailedEventAttributes_startedEventId, + + -- ** LambdaFunctionScheduledEventAttributes + lambdaFunctionScheduledEventAttributes_control, + lambdaFunctionScheduledEventAttributes_input, + lambdaFunctionScheduledEventAttributes_startToCloseTimeout, + lambdaFunctionScheduledEventAttributes_id, + lambdaFunctionScheduledEventAttributes_name, + lambdaFunctionScheduledEventAttributes_decisionTaskCompletedEventId, + + -- ** LambdaFunctionStartedEventAttributes + lambdaFunctionStartedEventAttributes_scheduledEventId, + + -- ** LambdaFunctionTimedOutEventAttributes + lambdaFunctionTimedOutEventAttributes_timeoutType, + lambdaFunctionTimedOutEventAttributes_scheduledEventId, + lambdaFunctionTimedOutEventAttributes_startedEventId, + + -- ** MarkerRecordedEventAttributes + markerRecordedEventAttributes_details, + markerRecordedEventAttributes_markerName, + markerRecordedEventAttributes_decisionTaskCompletedEventId, + + -- ** PendingTaskCount + pendingTaskCount_truncated, + pendingTaskCount_count, + + -- ** RecordMarkerDecisionAttributes + recordMarkerDecisionAttributes_details, + recordMarkerDecisionAttributes_markerName, + + -- ** RecordMarkerFailedEventAttributes + recordMarkerFailedEventAttributes_markerName, + recordMarkerFailedEventAttributes_cause, + recordMarkerFailedEventAttributes_decisionTaskCompletedEventId, + + -- ** RequestCancelActivityTaskDecisionAttributes + requestCancelActivityTaskDecisionAttributes_activityId, + + -- ** RequestCancelActivityTaskFailedEventAttributes + requestCancelActivityTaskFailedEventAttributes_activityId, + requestCancelActivityTaskFailedEventAttributes_cause, + requestCancelActivityTaskFailedEventAttributes_decisionTaskCompletedEventId, + + -- ** RequestCancelExternalWorkflowExecutionDecisionAttributes + requestCancelExternalWorkflowExecutionDecisionAttributes_control, + requestCancelExternalWorkflowExecutionDecisionAttributes_runId, + requestCancelExternalWorkflowExecutionDecisionAttributes_workflowId, + + -- ** RequestCancelExternalWorkflowExecutionFailedEventAttributes + requestCancelExternalWorkflowExecutionFailedEventAttributes_control, + requestCancelExternalWorkflowExecutionFailedEventAttributes_runId, + requestCancelExternalWorkflowExecutionFailedEventAttributes_workflowId, + requestCancelExternalWorkflowExecutionFailedEventAttributes_cause, + requestCancelExternalWorkflowExecutionFailedEventAttributes_initiatedEventId, + requestCancelExternalWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId, + + -- ** RequestCancelExternalWorkflowExecutionInitiatedEventAttributes + requestCancelExternalWorkflowExecutionInitiatedEventAttributes_control, + requestCancelExternalWorkflowExecutionInitiatedEventAttributes_runId, + requestCancelExternalWorkflowExecutionInitiatedEventAttributes_workflowId, + requestCancelExternalWorkflowExecutionInitiatedEventAttributes_decisionTaskCompletedEventId, + + -- ** ResourceTag + resourceTag_value, + resourceTag_key, + + -- ** ScheduleActivityTaskDecisionAttributes + scheduleActivityTaskDecisionAttributes_control, + scheduleActivityTaskDecisionAttributes_heartbeatTimeout, + scheduleActivityTaskDecisionAttributes_input, + scheduleActivityTaskDecisionAttributes_scheduleToCloseTimeout, + scheduleActivityTaskDecisionAttributes_scheduleToStartTimeout, + scheduleActivityTaskDecisionAttributes_startToCloseTimeout, + scheduleActivityTaskDecisionAttributes_taskList, + scheduleActivityTaskDecisionAttributes_taskPriority, + scheduleActivityTaskDecisionAttributes_activityType, + scheduleActivityTaskDecisionAttributes_activityId, + + -- ** ScheduleActivityTaskFailedEventAttributes + scheduleActivityTaskFailedEventAttributes_activityType, + scheduleActivityTaskFailedEventAttributes_activityId, + scheduleActivityTaskFailedEventAttributes_cause, + scheduleActivityTaskFailedEventAttributes_decisionTaskCompletedEventId, + + -- ** ScheduleLambdaFunctionDecisionAttributes + scheduleLambdaFunctionDecisionAttributes_control, + scheduleLambdaFunctionDecisionAttributes_input, + scheduleLambdaFunctionDecisionAttributes_startToCloseTimeout, + scheduleLambdaFunctionDecisionAttributes_id, + scheduleLambdaFunctionDecisionAttributes_name, + + -- ** ScheduleLambdaFunctionFailedEventAttributes + scheduleLambdaFunctionFailedEventAttributes_id, + scheduleLambdaFunctionFailedEventAttributes_name, + scheduleLambdaFunctionFailedEventAttributes_cause, + scheduleLambdaFunctionFailedEventAttributes_decisionTaskCompletedEventId, + + -- ** SignalExternalWorkflowExecutionDecisionAttributes + signalExternalWorkflowExecutionDecisionAttributes_control, + signalExternalWorkflowExecutionDecisionAttributes_input, + signalExternalWorkflowExecutionDecisionAttributes_runId, + signalExternalWorkflowExecutionDecisionAttributes_workflowId, + signalExternalWorkflowExecutionDecisionAttributes_signalName, + + -- ** SignalExternalWorkflowExecutionFailedEventAttributes + signalExternalWorkflowExecutionFailedEventAttributes_control, + signalExternalWorkflowExecutionFailedEventAttributes_runId, + signalExternalWorkflowExecutionFailedEventAttributes_workflowId, + signalExternalWorkflowExecutionFailedEventAttributes_cause, + signalExternalWorkflowExecutionFailedEventAttributes_initiatedEventId, + signalExternalWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId, + + -- ** SignalExternalWorkflowExecutionInitiatedEventAttributes + signalExternalWorkflowExecutionInitiatedEventAttributes_control, + signalExternalWorkflowExecutionInitiatedEventAttributes_input, + signalExternalWorkflowExecutionInitiatedEventAttributes_runId, + signalExternalWorkflowExecutionInitiatedEventAttributes_workflowId, + signalExternalWorkflowExecutionInitiatedEventAttributes_signalName, + signalExternalWorkflowExecutionInitiatedEventAttributes_decisionTaskCompletedEventId, + + -- ** StartChildWorkflowExecutionDecisionAttributes + startChildWorkflowExecutionDecisionAttributes_childPolicy, + startChildWorkflowExecutionDecisionAttributes_control, + startChildWorkflowExecutionDecisionAttributes_executionStartToCloseTimeout, + startChildWorkflowExecutionDecisionAttributes_input, + startChildWorkflowExecutionDecisionAttributes_lambdaRole, + startChildWorkflowExecutionDecisionAttributes_tagList, + startChildWorkflowExecutionDecisionAttributes_taskList, + startChildWorkflowExecutionDecisionAttributes_taskPriority, + startChildWorkflowExecutionDecisionAttributes_taskStartToCloseTimeout, + startChildWorkflowExecutionDecisionAttributes_workflowType, + startChildWorkflowExecutionDecisionAttributes_workflowId, + + -- ** StartChildWorkflowExecutionFailedEventAttributes + startChildWorkflowExecutionFailedEventAttributes_control, + startChildWorkflowExecutionFailedEventAttributes_workflowType, + startChildWorkflowExecutionFailedEventAttributes_cause, + startChildWorkflowExecutionFailedEventAttributes_workflowId, + startChildWorkflowExecutionFailedEventAttributes_initiatedEventId, + startChildWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId, + + -- ** StartChildWorkflowExecutionInitiatedEventAttributes + startChildWorkflowExecutionInitiatedEventAttributes_control, + startChildWorkflowExecutionInitiatedEventAttributes_executionStartToCloseTimeout, + startChildWorkflowExecutionInitiatedEventAttributes_input, + startChildWorkflowExecutionInitiatedEventAttributes_lambdaRole, + startChildWorkflowExecutionInitiatedEventAttributes_tagList, + startChildWorkflowExecutionInitiatedEventAttributes_taskPriority, + startChildWorkflowExecutionInitiatedEventAttributes_taskStartToCloseTimeout, + startChildWorkflowExecutionInitiatedEventAttributes_workflowId, + startChildWorkflowExecutionInitiatedEventAttributes_workflowType, + startChildWorkflowExecutionInitiatedEventAttributes_taskList, + startChildWorkflowExecutionInitiatedEventAttributes_decisionTaskCompletedEventId, + startChildWorkflowExecutionInitiatedEventAttributes_childPolicy, + + -- ** StartLambdaFunctionFailedEventAttributes + startLambdaFunctionFailedEventAttributes_cause, + startLambdaFunctionFailedEventAttributes_message, + startLambdaFunctionFailedEventAttributes_scheduledEventId, + + -- ** StartTimerDecisionAttributes + startTimerDecisionAttributes_control, + startTimerDecisionAttributes_timerId, + startTimerDecisionAttributes_startToFireTimeout, + + -- ** StartTimerFailedEventAttributes + startTimerFailedEventAttributes_timerId, + startTimerFailedEventAttributes_cause, + startTimerFailedEventAttributes_decisionTaskCompletedEventId, + + -- ** TagFilter + tagFilter_tag, + + -- ** TaskList + taskList_name, + + -- ** TimerCanceledEventAttributes + timerCanceledEventAttributes_timerId, + timerCanceledEventAttributes_startedEventId, + timerCanceledEventAttributes_decisionTaskCompletedEventId, + + -- ** TimerFiredEventAttributes + timerFiredEventAttributes_timerId, + timerFiredEventAttributes_startedEventId, + + -- ** TimerStartedEventAttributes + timerStartedEventAttributes_control, + timerStartedEventAttributes_timerId, + timerStartedEventAttributes_startToFireTimeout, + timerStartedEventAttributes_decisionTaskCompletedEventId, + + -- ** WorkflowExecution + workflowExecution_workflowId, + workflowExecution_runId, + + -- ** WorkflowExecutionCancelRequestedEventAttributes + workflowExecutionCancelRequestedEventAttributes_cause, + workflowExecutionCancelRequestedEventAttributes_externalInitiatedEventId, + workflowExecutionCancelRequestedEventAttributes_externalWorkflowExecution, + + -- ** WorkflowExecutionCanceledEventAttributes + workflowExecutionCanceledEventAttributes_details, + workflowExecutionCanceledEventAttributes_decisionTaskCompletedEventId, + + -- ** WorkflowExecutionCompletedEventAttributes + workflowExecutionCompletedEventAttributes_result, + workflowExecutionCompletedEventAttributes_decisionTaskCompletedEventId, + + -- ** WorkflowExecutionConfiguration + workflowExecutionConfiguration_lambdaRole, + workflowExecutionConfiguration_taskPriority, + workflowExecutionConfiguration_taskStartToCloseTimeout, + workflowExecutionConfiguration_executionStartToCloseTimeout, + workflowExecutionConfiguration_taskList, + workflowExecutionConfiguration_childPolicy, + + -- ** WorkflowExecutionContinuedAsNewEventAttributes + workflowExecutionContinuedAsNewEventAttributes_executionStartToCloseTimeout, + workflowExecutionContinuedAsNewEventAttributes_input, + workflowExecutionContinuedAsNewEventAttributes_lambdaRole, + workflowExecutionContinuedAsNewEventAttributes_tagList, + workflowExecutionContinuedAsNewEventAttributes_taskPriority, + workflowExecutionContinuedAsNewEventAttributes_taskStartToCloseTimeout, + workflowExecutionContinuedAsNewEventAttributes_decisionTaskCompletedEventId, + workflowExecutionContinuedAsNewEventAttributes_newExecutionRunId, + workflowExecutionContinuedAsNewEventAttributes_taskList, + workflowExecutionContinuedAsNewEventAttributes_childPolicy, + workflowExecutionContinuedAsNewEventAttributes_workflowType, + + -- ** WorkflowExecutionCount + workflowExecutionCount_truncated, + workflowExecutionCount_count, + + -- ** WorkflowExecutionFailedEventAttributes + workflowExecutionFailedEventAttributes_details, + workflowExecutionFailedEventAttributes_reason, + workflowExecutionFailedEventAttributes_decisionTaskCompletedEventId, + + -- ** WorkflowExecutionFilter + workflowExecutionFilter_workflowId, + + -- ** WorkflowExecutionInfo + workflowExecutionInfo_cancelRequested, + workflowExecutionInfo_closeStatus, + workflowExecutionInfo_closeTimestamp, + workflowExecutionInfo_parent, + workflowExecutionInfo_tagList, + workflowExecutionInfo_execution, + workflowExecutionInfo_workflowType, + workflowExecutionInfo_startTimestamp, + workflowExecutionInfo_executionStatus, + + -- ** WorkflowExecutionInfos + workflowExecutionInfos_nextPageToken, + workflowExecutionInfos_executionInfos, + + -- ** WorkflowExecutionOpenCounts + workflowExecutionOpenCounts_openLambdaFunctions, + workflowExecutionOpenCounts_openActivityTasks, + workflowExecutionOpenCounts_openDecisionTasks, + workflowExecutionOpenCounts_openTimers, + workflowExecutionOpenCounts_openChildWorkflowExecutions, + + -- ** WorkflowExecutionSignaledEventAttributes + workflowExecutionSignaledEventAttributes_externalInitiatedEventId, + workflowExecutionSignaledEventAttributes_externalWorkflowExecution, + workflowExecutionSignaledEventAttributes_input, + workflowExecutionSignaledEventAttributes_signalName, + + -- ** WorkflowExecutionStartedEventAttributes + workflowExecutionStartedEventAttributes_continuedExecutionRunId, + workflowExecutionStartedEventAttributes_executionStartToCloseTimeout, + workflowExecutionStartedEventAttributes_input, + workflowExecutionStartedEventAttributes_lambdaRole, + workflowExecutionStartedEventAttributes_parentInitiatedEventId, + workflowExecutionStartedEventAttributes_parentWorkflowExecution, + workflowExecutionStartedEventAttributes_tagList, + workflowExecutionStartedEventAttributes_taskPriority, + workflowExecutionStartedEventAttributes_taskStartToCloseTimeout, + workflowExecutionStartedEventAttributes_childPolicy, + workflowExecutionStartedEventAttributes_taskList, + workflowExecutionStartedEventAttributes_workflowType, + + -- ** WorkflowExecutionTerminatedEventAttributes + workflowExecutionTerminatedEventAttributes_cause, + workflowExecutionTerminatedEventAttributes_details, + workflowExecutionTerminatedEventAttributes_reason, + workflowExecutionTerminatedEventAttributes_childPolicy, + + -- ** WorkflowExecutionTimedOutEventAttributes + workflowExecutionTimedOutEventAttributes_timeoutType, + workflowExecutionTimedOutEventAttributes_childPolicy, + + -- ** WorkflowType + workflowType_name, + workflowType_version, + + -- ** WorkflowTypeConfiguration + workflowTypeConfiguration_defaultChildPolicy, + workflowTypeConfiguration_defaultExecutionStartToCloseTimeout, + workflowTypeConfiguration_defaultLambdaRole, + workflowTypeConfiguration_defaultTaskList, + workflowTypeConfiguration_defaultTaskPriority, + workflowTypeConfiguration_defaultTaskStartToCloseTimeout, + + -- ** WorkflowTypeFilter + workflowTypeFilter_version, + workflowTypeFilter_name, + + -- ** WorkflowTypeInfo + workflowTypeInfo_deprecationDate, + workflowTypeInfo_description, + workflowTypeInfo_workflowType, + workflowTypeInfo_status, + workflowTypeInfo_creationDate, + ) +where + +import Amazonka.SWF.CountClosedWorkflowExecutions +import Amazonka.SWF.CountOpenWorkflowExecutions +import Amazonka.SWF.CountPendingActivityTasks +import Amazonka.SWF.CountPendingDecisionTasks +import Amazonka.SWF.DeprecateActivityType +import Amazonka.SWF.DeprecateDomain +import Amazonka.SWF.DeprecateWorkflowType +import Amazonka.SWF.DescribeActivityType +import Amazonka.SWF.DescribeDomain +import Amazonka.SWF.DescribeWorkflowExecution +import Amazonka.SWF.DescribeWorkflowType +import Amazonka.SWF.GetWorkflowExecutionHistory +import Amazonka.SWF.ListActivityTypes +import Amazonka.SWF.ListClosedWorkflowExecutions +import Amazonka.SWF.ListDomains +import Amazonka.SWF.ListOpenWorkflowExecutions +import Amazonka.SWF.ListTagsForResource +import Amazonka.SWF.ListWorkflowTypes +import Amazonka.SWF.PollForActivityTask +import Amazonka.SWF.PollForDecisionTask +import Amazonka.SWF.RecordActivityTaskHeartbeat +import Amazonka.SWF.RegisterActivityType +import Amazonka.SWF.RegisterDomain +import Amazonka.SWF.RegisterWorkflowType +import Amazonka.SWF.RequestCancelWorkflowExecution +import Amazonka.SWF.RespondActivityTaskCanceled +import Amazonka.SWF.RespondActivityTaskCompleted +import Amazonka.SWF.RespondActivityTaskFailed +import Amazonka.SWF.RespondDecisionTaskCompleted +import Amazonka.SWF.SignalWorkflowExecution +import Amazonka.SWF.StartWorkflowExecution +import Amazonka.SWF.TagResource +import Amazonka.SWF.TerminateWorkflowExecution +import Amazonka.SWF.Types.ActivityTaskCancelRequestedEventAttributes +import Amazonka.SWF.Types.ActivityTaskCanceledEventAttributes +import Amazonka.SWF.Types.ActivityTaskCompletedEventAttributes +import Amazonka.SWF.Types.ActivityTaskFailedEventAttributes +import Amazonka.SWF.Types.ActivityTaskScheduledEventAttributes +import Amazonka.SWF.Types.ActivityTaskStartedEventAttributes +import Amazonka.SWF.Types.ActivityTaskTimedOutEventAttributes +import Amazonka.SWF.Types.ActivityType +import Amazonka.SWF.Types.ActivityTypeConfiguration +import Amazonka.SWF.Types.ActivityTypeInfo +import Amazonka.SWF.Types.CancelTimerDecisionAttributes +import Amazonka.SWF.Types.CancelTimerFailedEventAttributes +import Amazonka.SWF.Types.CancelWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.CancelWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionCanceledEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionCompletedEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionStartedEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionTerminatedEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionTimedOutEventAttributes +import Amazonka.SWF.Types.CloseStatusFilter +import Amazonka.SWF.Types.CompleteWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.CompleteWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.ContinueAsNewWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.ContinueAsNewWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.Decision +import Amazonka.SWF.Types.DecisionTaskCompletedEventAttributes +import Amazonka.SWF.Types.DecisionTaskScheduledEventAttributes +import Amazonka.SWF.Types.DecisionTaskStartedEventAttributes +import Amazonka.SWF.Types.DecisionTaskTimedOutEventAttributes +import Amazonka.SWF.Types.DomainConfiguration +import Amazonka.SWF.Types.DomainInfo +import Amazonka.SWF.Types.ExecutionTimeFilter +import Amazonka.SWF.Types.ExternalWorkflowExecutionCancelRequestedEventAttributes +import Amazonka.SWF.Types.ExternalWorkflowExecutionSignaledEventAttributes +import Amazonka.SWF.Types.FailWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.FailWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.HistoryEvent +import Amazonka.SWF.Types.LambdaFunctionCompletedEventAttributes +import Amazonka.SWF.Types.LambdaFunctionFailedEventAttributes +import Amazonka.SWF.Types.LambdaFunctionScheduledEventAttributes +import Amazonka.SWF.Types.LambdaFunctionStartedEventAttributes +import Amazonka.SWF.Types.LambdaFunctionTimedOutEventAttributes +import Amazonka.SWF.Types.MarkerRecordedEventAttributes +import Amazonka.SWF.Types.PendingTaskCount +import Amazonka.SWF.Types.RecordMarkerDecisionAttributes +import Amazonka.SWF.Types.RecordMarkerFailedEventAttributes +import Amazonka.SWF.Types.RequestCancelActivityTaskDecisionAttributes +import Amazonka.SWF.Types.RequestCancelActivityTaskFailedEventAttributes +import Amazonka.SWF.Types.RequestCancelExternalWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.RequestCancelExternalWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.RequestCancelExternalWorkflowExecutionInitiatedEventAttributes +import Amazonka.SWF.Types.ResourceTag +import Amazonka.SWF.Types.ScheduleActivityTaskDecisionAttributes +import Amazonka.SWF.Types.ScheduleActivityTaskFailedEventAttributes +import Amazonka.SWF.Types.ScheduleLambdaFunctionDecisionAttributes +import Amazonka.SWF.Types.ScheduleLambdaFunctionFailedEventAttributes +import Amazonka.SWF.Types.SignalExternalWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.SignalExternalWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.SignalExternalWorkflowExecutionInitiatedEventAttributes +import Amazonka.SWF.Types.StartChildWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.StartChildWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.StartChildWorkflowExecutionInitiatedEventAttributes +import Amazonka.SWF.Types.StartLambdaFunctionFailedEventAttributes +import Amazonka.SWF.Types.StartTimerDecisionAttributes +import Amazonka.SWF.Types.StartTimerFailedEventAttributes +import Amazonka.SWF.Types.TagFilter +import Amazonka.SWF.Types.TaskList +import Amazonka.SWF.Types.TimerCanceledEventAttributes +import Amazonka.SWF.Types.TimerFiredEventAttributes +import Amazonka.SWF.Types.TimerStartedEventAttributes +import Amazonka.SWF.Types.WorkflowExecution +import Amazonka.SWF.Types.WorkflowExecutionCancelRequestedEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionCanceledEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionCompletedEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionConfiguration +import Amazonka.SWF.Types.WorkflowExecutionContinuedAsNewEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionCount +import Amazonka.SWF.Types.WorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionFilter +import Amazonka.SWF.Types.WorkflowExecutionInfo +import Amazonka.SWF.Types.WorkflowExecutionInfos +import Amazonka.SWF.Types.WorkflowExecutionOpenCounts +import Amazonka.SWF.Types.WorkflowExecutionSignaledEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionStartedEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionTerminatedEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionTimedOutEventAttributes +import Amazonka.SWF.Types.WorkflowType +import Amazonka.SWF.Types.WorkflowTypeConfiguration +import Amazonka.SWF.Types.WorkflowTypeFilter +import Amazonka.SWF.Types.WorkflowTypeInfo +import Amazonka.SWF.UndeprecateActivityType +import Amazonka.SWF.UndeprecateDomain +import Amazonka.SWF.UndeprecateWorkflowType +import Amazonka.SWF.UntagResource diff --git a/gen/Amazonka/SWF/ListActivityTypes.hs b/gen/Amazonka/SWF/ListActivityTypes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/ListActivityTypes.hs @@ -0,0 +1,354 @@ +{-# 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.SWF.ListActivityTypes +-- 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 all activities registered in the specified +-- domain that match the specified name and registration status. The result +-- includes information like creation date, current status of the activity, +-- etc. The results may be split into multiple pages. To retrieve +-- subsequent pages, make the call again using the @nextPageToken@ returned +-- by the initial call. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- This operation returns paginated results. +module Amazonka.SWF.ListActivityTypes + ( -- * Creating a Request + ListActivityTypes (..), + newListActivityTypes, + + -- * Request Lenses + listActivityTypes_maximumPageSize, + listActivityTypes_name, + listActivityTypes_nextPageToken, + listActivityTypes_reverseOrder, + listActivityTypes_domain, + listActivityTypes_registrationStatus, + + -- * Destructuring the Response + ListActivityTypesResponse (..), + newListActivityTypesResponse, + + -- * Response Lenses + listActivityTypesResponse_nextPageToken, + listActivityTypesResponse_httpStatus, + listActivityTypesResponse_typeInfos, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newListActivityTypes' smart constructor. +data ListActivityTypes = ListActivityTypes' + { -- | The maximum number of results that are returned per call. Use + -- @nextPageToken@ to obtain further pages of results. + maximumPageSize :: Prelude.Maybe Prelude.Natural, + -- | If specified, only lists the activity types that have this name. + name :: Prelude.Maybe Prelude.Text, + -- | If @NextPageToken@ is returned there are more results available. The + -- value of @NextPageToken@ is a unique pagination token for each page. + -- Make the call again using the returned token to retrieve the next page. + -- Keep all other arguments unchanged. Each pagination token expires after + -- 60 seconds. Using an expired pagination token will return a @400@ error: + -- \"@Specified token has exceeded its maximum lifetime@\". + -- + -- The configured @maximumPageSize@ determines how many results can be + -- returned in a single call. + nextPageToken :: Prelude.Maybe Prelude.Text, + -- | When set to @true@, returns the results in reverse order. By default, + -- the results are returned in ascending alphabetical order by @name@ of + -- the activity types. + reverseOrder :: Prelude.Maybe Prelude.Bool, + -- | The name of the domain in which the activity types have been registered. + domain :: Prelude.Text, + -- | Specifies the registration status of the activity types to list. + registrationStatus :: RegistrationStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListActivityTypes' 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: +-- +-- 'maximumPageSize', 'listActivityTypes_maximumPageSize' - The maximum number of results that are returned per call. Use +-- @nextPageToken@ to obtain further pages of results. +-- +-- 'name', 'listActivityTypes_name' - If specified, only lists the activity types that have this name. +-- +-- 'nextPageToken', 'listActivityTypes_nextPageToken' - If @NextPageToken@ is returned there are more results available. The +-- value of @NextPageToken@ is a unique pagination token for each page. +-- Make the call again using the returned token to retrieve the next page. +-- Keep all other arguments unchanged. Each pagination token expires after +-- 60 seconds. Using an expired pagination token will return a @400@ error: +-- \"@Specified token has exceeded its maximum lifetime@\". +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +-- +-- 'reverseOrder', 'listActivityTypes_reverseOrder' - When set to @true@, returns the results in reverse order. By default, +-- the results are returned in ascending alphabetical order by @name@ of +-- the activity types. +-- +-- 'domain', 'listActivityTypes_domain' - The name of the domain in which the activity types have been registered. +-- +-- 'registrationStatus', 'listActivityTypes_registrationStatus' - Specifies the registration status of the activity types to list. +newListActivityTypes :: + -- | 'domain' + Prelude.Text -> + -- | 'registrationStatus' + RegistrationStatus -> + ListActivityTypes +newListActivityTypes pDomain_ pRegistrationStatus_ = + ListActivityTypes' + { maximumPageSize = + Prelude.Nothing, + name = Prelude.Nothing, + nextPageToken = Prelude.Nothing, + reverseOrder = Prelude.Nothing, + domain = pDomain_, + registrationStatus = pRegistrationStatus_ + } + +-- | The maximum number of results that are returned per call. Use +-- @nextPageToken@ to obtain further pages of results. +listActivityTypes_maximumPageSize :: Lens.Lens' ListActivityTypes (Prelude.Maybe Prelude.Natural) +listActivityTypes_maximumPageSize = Lens.lens (\ListActivityTypes' {maximumPageSize} -> maximumPageSize) (\s@ListActivityTypes' {} a -> s {maximumPageSize = a} :: ListActivityTypes) + +-- | If specified, only lists the activity types that have this name. +listActivityTypes_name :: Lens.Lens' ListActivityTypes (Prelude.Maybe Prelude.Text) +listActivityTypes_name = Lens.lens (\ListActivityTypes' {name} -> name) (\s@ListActivityTypes' {} a -> s {name = a} :: ListActivityTypes) + +-- | If @NextPageToken@ is returned there are more results available. The +-- value of @NextPageToken@ is a unique pagination token for each page. +-- Make the call again using the returned token to retrieve the next page. +-- Keep all other arguments unchanged. Each pagination token expires after +-- 60 seconds. Using an expired pagination token will return a @400@ error: +-- \"@Specified token has exceeded its maximum lifetime@\". +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +listActivityTypes_nextPageToken :: Lens.Lens' ListActivityTypes (Prelude.Maybe Prelude.Text) +listActivityTypes_nextPageToken = Lens.lens (\ListActivityTypes' {nextPageToken} -> nextPageToken) (\s@ListActivityTypes' {} a -> s {nextPageToken = a} :: ListActivityTypes) + +-- | When set to @true@, returns the results in reverse order. By default, +-- the results are returned in ascending alphabetical order by @name@ of +-- the activity types. +listActivityTypes_reverseOrder :: Lens.Lens' ListActivityTypes (Prelude.Maybe Prelude.Bool) +listActivityTypes_reverseOrder = Lens.lens (\ListActivityTypes' {reverseOrder} -> reverseOrder) (\s@ListActivityTypes' {} a -> s {reverseOrder = a} :: ListActivityTypes) + +-- | The name of the domain in which the activity types have been registered. +listActivityTypes_domain :: Lens.Lens' ListActivityTypes Prelude.Text +listActivityTypes_domain = Lens.lens (\ListActivityTypes' {domain} -> domain) (\s@ListActivityTypes' {} a -> s {domain = a} :: ListActivityTypes) + +-- | Specifies the registration status of the activity types to list. +listActivityTypes_registrationStatus :: Lens.Lens' ListActivityTypes RegistrationStatus +listActivityTypes_registrationStatus = Lens.lens (\ListActivityTypes' {registrationStatus} -> registrationStatus) (\s@ListActivityTypes' {} a -> s {registrationStatus = a} :: ListActivityTypes) + +instance Core.AWSPager ListActivityTypes where + page rq rs + | Core.stop + ( rs + Lens.^? listActivityTypesResponse_nextPageToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + (rs Lens.^. listActivityTypesResponse_typeInfos) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& listActivityTypes_nextPageToken + Lens..~ rs + Lens.^? listActivityTypesResponse_nextPageToken + Prelude.. Lens._Just + +instance Core.AWSRequest ListActivityTypes where + type + AWSResponse ListActivityTypes = + ListActivityTypesResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + ListActivityTypesResponse' + Prelude.<$> (x Data..?> "nextPageToken") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + Prelude.<*> (x Data..?> "typeInfos" Core..!@ Prelude.mempty) + ) + +instance Prelude.Hashable ListActivityTypes where + hashWithSalt _salt ListActivityTypes' {..} = + _salt + `Prelude.hashWithSalt` maximumPageSize + `Prelude.hashWithSalt` name + `Prelude.hashWithSalt` nextPageToken + `Prelude.hashWithSalt` reverseOrder + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` registrationStatus + +instance Prelude.NFData ListActivityTypes where + rnf ListActivityTypes' {..} = + Prelude.rnf maximumPageSize + `Prelude.seq` Prelude.rnf name + `Prelude.seq` Prelude.rnf nextPageToken + `Prelude.seq` Prelude.rnf reverseOrder + `Prelude.seq` Prelude.rnf domain + `Prelude.seq` Prelude.rnf registrationStatus + +instance Data.ToHeaders ListActivityTypes where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.ListActivityTypes" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON ListActivityTypes where + toJSON ListActivityTypes' {..} = + Data.object + ( Prelude.catMaybes + [ ("maximumPageSize" Data..=) + Prelude.<$> maximumPageSize, + ("name" Data..=) Prelude.<$> name, + ("nextPageToken" Data..=) Prelude.<$> nextPageToken, + ("reverseOrder" Data..=) Prelude.<$> reverseOrder, + Prelude.Just ("domain" Data..= domain), + Prelude.Just + ("registrationStatus" Data..= registrationStatus) + ] + ) + +instance Data.ToPath ListActivityTypes where + toPath = Prelude.const "/" + +instance Data.ToQuery ListActivityTypes where + toQuery = Prelude.const Prelude.mempty + +-- | Contains a paginated list of activity type information structures. +-- +-- /See:/ 'newListActivityTypesResponse' smart constructor. +data ListActivityTypesResponse = ListActivityTypesResponse' + { -- | If a @NextPageToken@ was returned by a previous call, there are more + -- results available. To retrieve the next page of results, make the call + -- again using the returned token in @nextPageToken@. Keep all other + -- arguments unchanged. + -- + -- The configured @maximumPageSize@ determines how many results can be + -- returned in a single call. + nextPageToken :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int, + -- | List of activity type information. + typeInfos :: [ActivityTypeInfo] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListActivityTypesResponse' 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: +-- +-- 'nextPageToken', 'listActivityTypesResponse_nextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more +-- results available. To retrieve the next page of results, make the call +-- again using the returned token in @nextPageToken@. Keep all other +-- arguments unchanged. +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +-- +-- 'httpStatus', 'listActivityTypesResponse_httpStatus' - The response's http status code. +-- +-- 'typeInfos', 'listActivityTypesResponse_typeInfos' - List of activity type information. +newListActivityTypesResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListActivityTypesResponse +newListActivityTypesResponse pHttpStatus_ = + ListActivityTypesResponse' + { nextPageToken = + Prelude.Nothing, + httpStatus = pHttpStatus_, + typeInfos = Prelude.mempty + } + +-- | If a @NextPageToken@ was returned by a previous call, there are more +-- results available. To retrieve the next page of results, make the call +-- again using the returned token in @nextPageToken@. Keep all other +-- arguments unchanged. +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +listActivityTypesResponse_nextPageToken :: Lens.Lens' ListActivityTypesResponse (Prelude.Maybe Prelude.Text) +listActivityTypesResponse_nextPageToken = Lens.lens (\ListActivityTypesResponse' {nextPageToken} -> nextPageToken) (\s@ListActivityTypesResponse' {} a -> s {nextPageToken = a} :: ListActivityTypesResponse) + +-- | The response's http status code. +listActivityTypesResponse_httpStatus :: Lens.Lens' ListActivityTypesResponse Prelude.Int +listActivityTypesResponse_httpStatus = Lens.lens (\ListActivityTypesResponse' {httpStatus} -> httpStatus) (\s@ListActivityTypesResponse' {} a -> s {httpStatus = a} :: ListActivityTypesResponse) + +-- | List of activity type information. +listActivityTypesResponse_typeInfos :: Lens.Lens' ListActivityTypesResponse [ActivityTypeInfo] +listActivityTypesResponse_typeInfos = Lens.lens (\ListActivityTypesResponse' {typeInfos} -> typeInfos) (\s@ListActivityTypesResponse' {} a -> s {typeInfos = a} :: ListActivityTypesResponse) Prelude.. Lens.coerced + +instance Prelude.NFData ListActivityTypesResponse where + rnf ListActivityTypesResponse' {..} = + Prelude.rnf nextPageToken + `Prelude.seq` Prelude.rnf httpStatus + `Prelude.seq` Prelude.rnf typeInfos diff --git a/gen/Amazonka/SWF/ListClosedWorkflowExecutions.hs b/gen/Amazonka/SWF/ListClosedWorkflowExecutions.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/ListClosedWorkflowExecutions.hs @@ -0,0 +1,425 @@ +{-# 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.SWF.ListClosedWorkflowExecutions +-- 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 closed workflow executions in the specified domain +-- that meet the filtering criteria. The results may be split into multiple +-- pages. To retrieve subsequent pages, make the call again using the +-- nextPageToken returned by the initial call. +-- +-- This operation is eventually consistent. The results are best effort and +-- may not exactly reflect recent updates and changes. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the following parameters by using a @Condition@ element +-- with the appropriate keys. +-- +-- - @tagFilter.tag@: String constraint. The key is +-- @swf:tagFilter.tag@. +-- +-- - @typeFilter.name@: String constraint. The key is +-- @swf:typeFilter.name@. +-- +-- - @typeFilter.version@: String constraint. The key is +-- @swf:typeFilter.version@. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- This operation returns paginated results. +module Amazonka.SWF.ListClosedWorkflowExecutions + ( -- * Creating a Request + ListClosedWorkflowExecutions (..), + newListClosedWorkflowExecutions, + + -- * Request Lenses + listClosedWorkflowExecutions_closeStatusFilter, + listClosedWorkflowExecutions_closeTimeFilter, + listClosedWorkflowExecutions_executionFilter, + listClosedWorkflowExecutions_maximumPageSize, + listClosedWorkflowExecutions_nextPageToken, + listClosedWorkflowExecutions_reverseOrder, + listClosedWorkflowExecutions_startTimeFilter, + listClosedWorkflowExecutions_tagFilter, + listClosedWorkflowExecutions_typeFilter, + listClosedWorkflowExecutions_domain, + + -- * Destructuring the Response + WorkflowExecutionInfos (..), + newWorkflowExecutionInfos, + + -- * Response Lenses + workflowExecutionInfos_nextPageToken, + workflowExecutionInfos_executionInfos, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newListClosedWorkflowExecutions' smart constructor. +data ListClosedWorkflowExecutions = ListClosedWorkflowExecutions' + { -- | If specified, only workflow executions that match this /close status/ + -- are listed. For example, if TERMINATED is specified, then only + -- TERMINATED workflow executions are listed. + -- + -- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are + -- mutually exclusive. You can specify at most one of these in a request. + closeStatusFilter :: Prelude.Maybe CloseStatusFilter, + -- | If specified, the workflow executions are included in the returned + -- results based on whether their close times are within the range + -- specified by this filter. Also, if this parameter is specified, the + -- returned results are ordered by their close times. + -- + -- @startTimeFilter@ and @closeTimeFilter@ are mutually exclusive. You must + -- specify one of these in a request but not both. + closeTimeFilter :: Prelude.Maybe ExecutionTimeFilter, + -- | If specified, only workflow executions matching the workflow ID + -- specified in the filter are returned. + -- + -- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are + -- mutually exclusive. You can specify at most one of these in a request. + executionFilter :: Prelude.Maybe WorkflowExecutionFilter, + -- | The maximum number of results that are returned per call. Use + -- @nextPageToken@ to obtain further pages of results. + maximumPageSize :: Prelude.Maybe Prelude.Natural, + -- | If @NextPageToken@ is returned there are more results available. The + -- value of @NextPageToken@ is a unique pagination token for each page. + -- Make the call again using the returned token to retrieve the next page. + -- Keep all other arguments unchanged. Each pagination token expires after + -- 60 seconds. Using an expired pagination token will return a @400@ error: + -- \"@Specified token has exceeded its maximum lifetime@\". + -- + -- The configured @maximumPageSize@ determines how many results can be + -- returned in a single call. + nextPageToken :: Prelude.Maybe Prelude.Text, + -- | When set to @true@, returns the results in reverse order. By default the + -- results are returned in descending order of the start or the close time + -- of the executions. + reverseOrder :: Prelude.Maybe Prelude.Bool, + -- | If specified, the workflow executions are included in the returned + -- results based on whether their start times are within the range + -- specified by this filter. Also, if this parameter is specified, the + -- returned results are ordered by their start times. + -- + -- @startTimeFilter@ and @closeTimeFilter@ are mutually exclusive. You must + -- specify one of these in a request but not both. + startTimeFilter :: Prelude.Maybe ExecutionTimeFilter, + -- | If specified, only executions that have the matching tag are listed. + -- + -- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are + -- mutually exclusive. You can specify at most one of these in a request. + tagFilter :: Prelude.Maybe TagFilter, + -- | If specified, only executions of the type specified in the filter are + -- returned. + -- + -- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are + -- mutually exclusive. You can specify at most one of these in a request. + typeFilter :: Prelude.Maybe WorkflowTypeFilter, + -- | The name of the domain that contains the workflow executions to list. + domain :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListClosedWorkflowExecutions' 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: +-- +-- 'closeStatusFilter', 'listClosedWorkflowExecutions_closeStatusFilter' - If specified, only workflow executions that match this /close status/ +-- are listed. For example, if TERMINATED is specified, then only +-- TERMINATED workflow executions are listed. +-- +-- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are +-- mutually exclusive. You can specify at most one of these in a request. +-- +-- 'closeTimeFilter', 'listClosedWorkflowExecutions_closeTimeFilter' - If specified, the workflow executions are included in the returned +-- results based on whether their close times are within the range +-- specified by this filter. Also, if this parameter is specified, the +-- returned results are ordered by their close times. +-- +-- @startTimeFilter@ and @closeTimeFilter@ are mutually exclusive. You must +-- specify one of these in a request but not both. +-- +-- 'executionFilter', 'listClosedWorkflowExecutions_executionFilter' - If specified, only workflow executions matching the workflow ID +-- specified in the filter are returned. +-- +-- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are +-- mutually exclusive. You can specify at most one of these in a request. +-- +-- 'maximumPageSize', 'listClosedWorkflowExecutions_maximumPageSize' - The maximum number of results that are returned per call. Use +-- @nextPageToken@ to obtain further pages of results. +-- +-- 'nextPageToken', 'listClosedWorkflowExecutions_nextPageToken' - If @NextPageToken@ is returned there are more results available. The +-- value of @NextPageToken@ is a unique pagination token for each page. +-- Make the call again using the returned token to retrieve the next page. +-- Keep all other arguments unchanged. Each pagination token expires after +-- 60 seconds. Using an expired pagination token will return a @400@ error: +-- \"@Specified token has exceeded its maximum lifetime@\". +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +-- +-- 'reverseOrder', 'listClosedWorkflowExecutions_reverseOrder' - When set to @true@, returns the results in reverse order. By default the +-- results are returned in descending order of the start or the close time +-- of the executions. +-- +-- 'startTimeFilter', 'listClosedWorkflowExecutions_startTimeFilter' - If specified, the workflow executions are included in the returned +-- results based on whether their start times are within the range +-- specified by this filter. Also, if this parameter is specified, the +-- returned results are ordered by their start times. +-- +-- @startTimeFilter@ and @closeTimeFilter@ are mutually exclusive. You must +-- specify one of these in a request but not both. +-- +-- 'tagFilter', 'listClosedWorkflowExecutions_tagFilter' - If specified, only executions that have the matching tag are listed. +-- +-- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are +-- mutually exclusive. You can specify at most one of these in a request. +-- +-- 'typeFilter', 'listClosedWorkflowExecutions_typeFilter' - If specified, only executions of the type specified in the filter are +-- returned. +-- +-- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are +-- mutually exclusive. You can specify at most one of these in a request. +-- +-- 'domain', 'listClosedWorkflowExecutions_domain' - The name of the domain that contains the workflow executions to list. +newListClosedWorkflowExecutions :: + -- | 'domain' + Prelude.Text -> + ListClosedWorkflowExecutions +newListClosedWorkflowExecutions pDomain_ = + ListClosedWorkflowExecutions' + { closeStatusFilter = + Prelude.Nothing, + closeTimeFilter = Prelude.Nothing, + executionFilter = Prelude.Nothing, + maximumPageSize = Prelude.Nothing, + nextPageToken = Prelude.Nothing, + reverseOrder = Prelude.Nothing, + startTimeFilter = Prelude.Nothing, + tagFilter = Prelude.Nothing, + typeFilter = Prelude.Nothing, + domain = pDomain_ + } + +-- | If specified, only workflow executions that match this /close status/ +-- are listed. For example, if TERMINATED is specified, then only +-- TERMINATED workflow executions are listed. +-- +-- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are +-- mutually exclusive. You can specify at most one of these in a request. +listClosedWorkflowExecutions_closeStatusFilter :: Lens.Lens' ListClosedWorkflowExecutions (Prelude.Maybe CloseStatusFilter) +listClosedWorkflowExecutions_closeStatusFilter = Lens.lens (\ListClosedWorkflowExecutions' {closeStatusFilter} -> closeStatusFilter) (\s@ListClosedWorkflowExecutions' {} a -> s {closeStatusFilter = a} :: ListClosedWorkflowExecutions) + +-- | If specified, the workflow executions are included in the returned +-- results based on whether their close times are within the range +-- specified by this filter. Also, if this parameter is specified, the +-- returned results are ordered by their close times. +-- +-- @startTimeFilter@ and @closeTimeFilter@ are mutually exclusive. You must +-- specify one of these in a request but not both. +listClosedWorkflowExecutions_closeTimeFilter :: Lens.Lens' ListClosedWorkflowExecutions (Prelude.Maybe ExecutionTimeFilter) +listClosedWorkflowExecutions_closeTimeFilter = Lens.lens (\ListClosedWorkflowExecutions' {closeTimeFilter} -> closeTimeFilter) (\s@ListClosedWorkflowExecutions' {} a -> s {closeTimeFilter = a} :: ListClosedWorkflowExecutions) + +-- | If specified, only workflow executions matching the workflow ID +-- specified in the filter are returned. +-- +-- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are +-- mutually exclusive. You can specify at most one of these in a request. +listClosedWorkflowExecutions_executionFilter :: Lens.Lens' ListClosedWorkflowExecutions (Prelude.Maybe WorkflowExecutionFilter) +listClosedWorkflowExecutions_executionFilter = Lens.lens (\ListClosedWorkflowExecutions' {executionFilter} -> executionFilter) (\s@ListClosedWorkflowExecutions' {} a -> s {executionFilter = a} :: ListClosedWorkflowExecutions) + +-- | The maximum number of results that are returned per call. Use +-- @nextPageToken@ to obtain further pages of results. +listClosedWorkflowExecutions_maximumPageSize :: Lens.Lens' ListClosedWorkflowExecutions (Prelude.Maybe Prelude.Natural) +listClosedWorkflowExecutions_maximumPageSize = Lens.lens (\ListClosedWorkflowExecutions' {maximumPageSize} -> maximumPageSize) (\s@ListClosedWorkflowExecutions' {} a -> s {maximumPageSize = a} :: ListClosedWorkflowExecutions) + +-- | If @NextPageToken@ is returned there are more results available. The +-- value of @NextPageToken@ is a unique pagination token for each page. +-- Make the call again using the returned token to retrieve the next page. +-- Keep all other arguments unchanged. Each pagination token expires after +-- 60 seconds. Using an expired pagination token will return a @400@ error: +-- \"@Specified token has exceeded its maximum lifetime@\". +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +listClosedWorkflowExecutions_nextPageToken :: Lens.Lens' ListClosedWorkflowExecutions (Prelude.Maybe Prelude.Text) +listClosedWorkflowExecutions_nextPageToken = Lens.lens (\ListClosedWorkflowExecutions' {nextPageToken} -> nextPageToken) (\s@ListClosedWorkflowExecutions' {} a -> s {nextPageToken = a} :: ListClosedWorkflowExecutions) + +-- | When set to @true@, returns the results in reverse order. By default the +-- results are returned in descending order of the start or the close time +-- of the executions. +listClosedWorkflowExecutions_reverseOrder :: Lens.Lens' ListClosedWorkflowExecutions (Prelude.Maybe Prelude.Bool) +listClosedWorkflowExecutions_reverseOrder = Lens.lens (\ListClosedWorkflowExecutions' {reverseOrder} -> reverseOrder) (\s@ListClosedWorkflowExecutions' {} a -> s {reverseOrder = a} :: ListClosedWorkflowExecutions) + +-- | If specified, the workflow executions are included in the returned +-- results based on whether their start times are within the range +-- specified by this filter. Also, if this parameter is specified, the +-- returned results are ordered by their start times. +-- +-- @startTimeFilter@ and @closeTimeFilter@ are mutually exclusive. You must +-- specify one of these in a request but not both. +listClosedWorkflowExecutions_startTimeFilter :: Lens.Lens' ListClosedWorkflowExecutions (Prelude.Maybe ExecutionTimeFilter) +listClosedWorkflowExecutions_startTimeFilter = Lens.lens (\ListClosedWorkflowExecutions' {startTimeFilter} -> startTimeFilter) (\s@ListClosedWorkflowExecutions' {} a -> s {startTimeFilter = a} :: ListClosedWorkflowExecutions) + +-- | If specified, only executions that have the matching tag are listed. +-- +-- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are +-- mutually exclusive. You can specify at most one of these in a request. +listClosedWorkflowExecutions_tagFilter :: Lens.Lens' ListClosedWorkflowExecutions (Prelude.Maybe TagFilter) +listClosedWorkflowExecutions_tagFilter = Lens.lens (\ListClosedWorkflowExecutions' {tagFilter} -> tagFilter) (\s@ListClosedWorkflowExecutions' {} a -> s {tagFilter = a} :: ListClosedWorkflowExecutions) + +-- | If specified, only executions of the type specified in the filter are +-- returned. +-- +-- @closeStatusFilter@, @executionFilter@, @typeFilter@ and @tagFilter@ are +-- mutually exclusive. You can specify at most one of these in a request. +listClosedWorkflowExecutions_typeFilter :: Lens.Lens' ListClosedWorkflowExecutions (Prelude.Maybe WorkflowTypeFilter) +listClosedWorkflowExecutions_typeFilter = Lens.lens (\ListClosedWorkflowExecutions' {typeFilter} -> typeFilter) (\s@ListClosedWorkflowExecutions' {} a -> s {typeFilter = a} :: ListClosedWorkflowExecutions) + +-- | The name of the domain that contains the workflow executions to list. +listClosedWorkflowExecutions_domain :: Lens.Lens' ListClosedWorkflowExecutions Prelude.Text +listClosedWorkflowExecutions_domain = Lens.lens (\ListClosedWorkflowExecutions' {domain} -> domain) (\s@ListClosedWorkflowExecutions' {} a -> s {domain = a} :: ListClosedWorkflowExecutions) + +instance Core.AWSPager ListClosedWorkflowExecutions where + page rq rs + | Core.stop + ( rs + Lens.^? workflowExecutionInfos_nextPageToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + (rs Lens.^. workflowExecutionInfos_executionInfos) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& listClosedWorkflowExecutions_nextPageToken + Lens..~ rs + Lens.^? workflowExecutionInfos_nextPageToken + Prelude.. Lens._Just + +instance Core.AWSRequest ListClosedWorkflowExecutions where + type + AWSResponse ListClosedWorkflowExecutions = + WorkflowExecutionInfos + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + (\s h x -> Data.eitherParseJSON x) + +instance + Prelude.Hashable + ListClosedWorkflowExecutions + where + hashWithSalt _salt ListClosedWorkflowExecutions' {..} = + _salt + `Prelude.hashWithSalt` closeStatusFilter + `Prelude.hashWithSalt` closeTimeFilter + `Prelude.hashWithSalt` executionFilter + `Prelude.hashWithSalt` maximumPageSize + `Prelude.hashWithSalt` nextPageToken + `Prelude.hashWithSalt` reverseOrder + `Prelude.hashWithSalt` startTimeFilter + `Prelude.hashWithSalt` tagFilter + `Prelude.hashWithSalt` typeFilter + `Prelude.hashWithSalt` domain + +instance Prelude.NFData ListClosedWorkflowExecutions where + rnf ListClosedWorkflowExecutions' {..} = + Prelude.rnf closeStatusFilter + `Prelude.seq` Prelude.rnf closeTimeFilter + `Prelude.seq` Prelude.rnf executionFilter + `Prelude.seq` Prelude.rnf maximumPageSize + `Prelude.seq` Prelude.rnf nextPageToken + `Prelude.seq` Prelude.rnf reverseOrder + `Prelude.seq` Prelude.rnf startTimeFilter + `Prelude.seq` Prelude.rnf tagFilter + `Prelude.seq` Prelude.rnf typeFilter + `Prelude.seq` Prelude.rnf domain + +instance Data.ToHeaders ListClosedWorkflowExecutions where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.ListClosedWorkflowExecutions" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON ListClosedWorkflowExecutions where + toJSON ListClosedWorkflowExecutions' {..} = + Data.object + ( Prelude.catMaybes + [ ("closeStatusFilter" Data..=) + Prelude.<$> closeStatusFilter, + ("closeTimeFilter" Data..=) + Prelude.<$> closeTimeFilter, + ("executionFilter" Data..=) + Prelude.<$> executionFilter, + ("maximumPageSize" Data..=) + Prelude.<$> maximumPageSize, + ("nextPageToken" Data..=) Prelude.<$> nextPageToken, + ("reverseOrder" Data..=) Prelude.<$> reverseOrder, + ("startTimeFilter" Data..=) + Prelude.<$> startTimeFilter, + ("tagFilter" Data..=) Prelude.<$> tagFilter, + ("typeFilter" Data..=) Prelude.<$> typeFilter, + Prelude.Just ("domain" Data..= domain) + ] + ) + +instance Data.ToPath ListClosedWorkflowExecutions where + toPath = Prelude.const "/" + +instance Data.ToQuery ListClosedWorkflowExecutions where + toQuery = Prelude.const Prelude.mempty diff --git a/gen/Amazonka/SWF/ListDomains.hs b/gen/Amazonka/SWF/ListDomains.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/ListDomains.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.SWF.ListDomains +-- 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 list of domains registered in the account. The results may +-- be split into multiple pages. To retrieve subsequent pages, make the +-- call again using the nextPageToken returned by the initial call. +-- +-- This operation is eventually consistent. The results are best effort and +-- may not exactly reflect recent updates and changes. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. The element must be set to +-- @arn:aws:swf::AccountID:domain\/*@, where /AccountID/ is the account +-- ID, with no dashes. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- This operation returns paginated results. +module Amazonka.SWF.ListDomains + ( -- * Creating a Request + ListDomains (..), + newListDomains, + + -- * Request Lenses + listDomains_maximumPageSize, + listDomains_nextPageToken, + listDomains_reverseOrder, + listDomains_registrationStatus, + + -- * Destructuring the Response + ListDomainsResponse (..), + newListDomainsResponse, + + -- * Response Lenses + listDomainsResponse_nextPageToken, + listDomainsResponse_httpStatus, + listDomainsResponse_domainInfos, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newListDomains' smart constructor. +data ListDomains = ListDomains' + { -- | The maximum number of results that are returned per call. Use + -- @nextPageToken@ to obtain further pages of results. + maximumPageSize :: Prelude.Maybe Prelude.Natural, + -- | If @NextPageToken@ is returned there are more results available. The + -- value of @NextPageToken@ is a unique pagination token for each page. + -- Make the call again using the returned token to retrieve the next page. + -- Keep all other arguments unchanged. Each pagination token expires after + -- 60 seconds. Using an expired pagination token will return a @400@ error: + -- \"@Specified token has exceeded its maximum lifetime@\". + -- + -- The configured @maximumPageSize@ determines how many results can be + -- returned in a single call. + nextPageToken :: Prelude.Maybe Prelude.Text, + -- | When set to @true@, returns the results in reverse order. By default, + -- the results are returned in ascending alphabetical order by @name@ of + -- the domains. + reverseOrder :: Prelude.Maybe Prelude.Bool, + -- | Specifies the registration status of the domains to list. + registrationStatus :: RegistrationStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListDomains' 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: +-- +-- 'maximumPageSize', 'listDomains_maximumPageSize' - The maximum number of results that are returned per call. Use +-- @nextPageToken@ to obtain further pages of results. +-- +-- 'nextPageToken', 'listDomains_nextPageToken' - If @NextPageToken@ is returned there are more results available. The +-- value of @NextPageToken@ is a unique pagination token for each page. +-- Make the call again using the returned token to retrieve the next page. +-- Keep all other arguments unchanged. Each pagination token expires after +-- 60 seconds. Using an expired pagination token will return a @400@ error: +-- \"@Specified token has exceeded its maximum lifetime@\". +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +-- +-- 'reverseOrder', 'listDomains_reverseOrder' - When set to @true@, returns the results in reverse order. By default, +-- the results are returned in ascending alphabetical order by @name@ of +-- the domains. +-- +-- 'registrationStatus', 'listDomains_registrationStatus' - Specifies the registration status of the domains to list. +newListDomains :: + -- | 'registrationStatus' + RegistrationStatus -> + ListDomains +newListDomains pRegistrationStatus_ = + ListDomains' + { maximumPageSize = Prelude.Nothing, + nextPageToken = Prelude.Nothing, + reverseOrder = Prelude.Nothing, + registrationStatus = pRegistrationStatus_ + } + +-- | The maximum number of results that are returned per call. Use +-- @nextPageToken@ to obtain further pages of results. +listDomains_maximumPageSize :: Lens.Lens' ListDomains (Prelude.Maybe Prelude.Natural) +listDomains_maximumPageSize = Lens.lens (\ListDomains' {maximumPageSize} -> maximumPageSize) (\s@ListDomains' {} a -> s {maximumPageSize = a} :: ListDomains) + +-- | If @NextPageToken@ is returned there are more results available. The +-- value of @NextPageToken@ is a unique pagination token for each page. +-- Make the call again using the returned token to retrieve the next page. +-- Keep all other arguments unchanged. Each pagination token expires after +-- 60 seconds. Using an expired pagination token will return a @400@ error: +-- \"@Specified token has exceeded its maximum lifetime@\". +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +listDomains_nextPageToken :: Lens.Lens' ListDomains (Prelude.Maybe Prelude.Text) +listDomains_nextPageToken = Lens.lens (\ListDomains' {nextPageToken} -> nextPageToken) (\s@ListDomains' {} a -> s {nextPageToken = a} :: ListDomains) + +-- | When set to @true@, returns the results in reverse order. By default, +-- the results are returned in ascending alphabetical order by @name@ of +-- the domains. +listDomains_reverseOrder :: Lens.Lens' ListDomains (Prelude.Maybe Prelude.Bool) +listDomains_reverseOrder = Lens.lens (\ListDomains' {reverseOrder} -> reverseOrder) (\s@ListDomains' {} a -> s {reverseOrder = a} :: ListDomains) + +-- | Specifies the registration status of the domains to list. +listDomains_registrationStatus :: Lens.Lens' ListDomains RegistrationStatus +listDomains_registrationStatus = Lens.lens (\ListDomains' {registrationStatus} -> registrationStatus) (\s@ListDomains' {} a -> s {registrationStatus = a} :: ListDomains) + +instance Core.AWSPager ListDomains where + page rq rs + | Core.stop + ( rs + Lens.^? listDomainsResponse_nextPageToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + (rs Lens.^. listDomainsResponse_domainInfos) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& listDomains_nextPageToken + Lens..~ rs + Lens.^? listDomainsResponse_nextPageToken + Prelude.. Lens._Just + +instance Core.AWSRequest ListDomains where + type AWSResponse ListDomains = ListDomainsResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + ListDomainsResponse' + Prelude.<$> (x Data..?> "nextPageToken") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + Prelude.<*> (x Data..?> "domainInfos" Core..!@ Prelude.mempty) + ) + +instance Prelude.Hashable ListDomains where + hashWithSalt _salt ListDomains' {..} = + _salt + `Prelude.hashWithSalt` maximumPageSize + `Prelude.hashWithSalt` nextPageToken + `Prelude.hashWithSalt` reverseOrder + `Prelude.hashWithSalt` registrationStatus + +instance Prelude.NFData ListDomains where + rnf ListDomains' {..} = + Prelude.rnf maximumPageSize + `Prelude.seq` Prelude.rnf nextPageToken + `Prelude.seq` Prelude.rnf reverseOrder + `Prelude.seq` Prelude.rnf registrationStatus + +instance Data.ToHeaders ListDomains where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.ListDomains" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON ListDomains where + toJSON ListDomains' {..} = + Data.object + ( Prelude.catMaybes + [ ("maximumPageSize" Data..=) + Prelude.<$> maximumPageSize, + ("nextPageToken" Data..=) Prelude.<$> nextPageToken, + ("reverseOrder" Data..=) Prelude.<$> reverseOrder, + Prelude.Just + ("registrationStatus" Data..= registrationStatus) + ] + ) + +instance Data.ToPath ListDomains where + toPath = Prelude.const "/" + +instance Data.ToQuery ListDomains where + toQuery = Prelude.const Prelude.mempty + +-- | Contains a paginated collection of DomainInfo structures. +-- +-- /See:/ 'newListDomainsResponse' smart constructor. +data ListDomainsResponse = ListDomainsResponse' + { -- | If a @NextPageToken@ was returned by a previous call, there are more + -- results available. To retrieve the next page of results, make the call + -- again using the returned token in @nextPageToken@. Keep all other + -- arguments unchanged. + -- + -- The configured @maximumPageSize@ determines how many results can be + -- returned in a single call. + nextPageToken :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int, + -- | A list of DomainInfo structures. + domainInfos :: [DomainInfo] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListDomainsResponse' 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: +-- +-- 'nextPageToken', 'listDomainsResponse_nextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more +-- results available. To retrieve the next page of results, make the call +-- again using the returned token in @nextPageToken@. Keep all other +-- arguments unchanged. +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +-- +-- 'httpStatus', 'listDomainsResponse_httpStatus' - The response's http status code. +-- +-- 'domainInfos', 'listDomainsResponse_domainInfos' - A list of DomainInfo structures. +newListDomainsResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListDomainsResponse +newListDomainsResponse pHttpStatus_ = + ListDomainsResponse' + { nextPageToken = + Prelude.Nothing, + httpStatus = pHttpStatus_, + domainInfos = Prelude.mempty + } + +-- | If a @NextPageToken@ was returned by a previous call, there are more +-- results available. To retrieve the next page of results, make the call +-- again using the returned token in @nextPageToken@. Keep all other +-- arguments unchanged. +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +listDomainsResponse_nextPageToken :: Lens.Lens' ListDomainsResponse (Prelude.Maybe Prelude.Text) +listDomainsResponse_nextPageToken = Lens.lens (\ListDomainsResponse' {nextPageToken} -> nextPageToken) (\s@ListDomainsResponse' {} a -> s {nextPageToken = a} :: ListDomainsResponse) + +-- | The response's http status code. +listDomainsResponse_httpStatus :: Lens.Lens' ListDomainsResponse Prelude.Int +listDomainsResponse_httpStatus = Lens.lens (\ListDomainsResponse' {httpStatus} -> httpStatus) (\s@ListDomainsResponse' {} a -> s {httpStatus = a} :: ListDomainsResponse) + +-- | A list of DomainInfo structures. +listDomainsResponse_domainInfos :: Lens.Lens' ListDomainsResponse [DomainInfo] +listDomainsResponse_domainInfos = Lens.lens (\ListDomainsResponse' {domainInfos} -> domainInfos) (\s@ListDomainsResponse' {} a -> s {domainInfos = a} :: ListDomainsResponse) Prelude.. Lens.coerced + +instance Prelude.NFData ListDomainsResponse where + rnf ListDomainsResponse' {..} = + Prelude.rnf nextPageToken + `Prelude.seq` Prelude.rnf httpStatus + `Prelude.seq` Prelude.rnf domainInfos diff --git a/gen/Amazonka/SWF/ListOpenWorkflowExecutions.hs b/gen/Amazonka/SWF/ListOpenWorkflowExecutions.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/ListOpenWorkflowExecutions.hs @@ -0,0 +1,350 @@ +{-# 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.SWF.ListOpenWorkflowExecutions +-- 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 open workflow executions in the specified domain that +-- meet the filtering criteria. The results may be split into multiple +-- pages. To retrieve subsequent pages, make the call again using the +-- nextPageToken returned by the initial call. +-- +-- This operation is eventually consistent. The results are best effort and +-- may not exactly reflect recent updates and changes. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the following parameters by using a @Condition@ element +-- with the appropriate keys. +-- +-- - @tagFilter.tag@: String constraint. The key is +-- @swf:tagFilter.tag@. +-- +-- - @typeFilter.name@: String constraint. The key is +-- @swf:typeFilter.name@. +-- +-- - @typeFilter.version@: String constraint. The key is +-- @swf:typeFilter.version@. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- This operation returns paginated results. +module Amazonka.SWF.ListOpenWorkflowExecutions + ( -- * Creating a Request + ListOpenWorkflowExecutions (..), + newListOpenWorkflowExecutions, + + -- * Request Lenses + listOpenWorkflowExecutions_executionFilter, + listOpenWorkflowExecutions_maximumPageSize, + listOpenWorkflowExecutions_nextPageToken, + listOpenWorkflowExecutions_reverseOrder, + listOpenWorkflowExecutions_tagFilter, + listOpenWorkflowExecutions_typeFilter, + listOpenWorkflowExecutions_domain, + listOpenWorkflowExecutions_startTimeFilter, + + -- * Destructuring the Response + WorkflowExecutionInfos (..), + newWorkflowExecutionInfos, + + -- * Response Lenses + workflowExecutionInfos_nextPageToken, + workflowExecutionInfos_executionInfos, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newListOpenWorkflowExecutions' smart constructor. +data ListOpenWorkflowExecutions = ListOpenWorkflowExecutions' + { -- | If specified, only workflow executions matching the workflow ID + -- specified in the filter are returned. + -- + -- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. + -- You can specify at most one of these in a request. + executionFilter :: Prelude.Maybe WorkflowExecutionFilter, + -- | The maximum number of results that are returned per call. Use + -- @nextPageToken@ to obtain further pages of results. + maximumPageSize :: Prelude.Maybe Prelude.Natural, + -- | If @NextPageToken@ is returned there are more results available. The + -- value of @NextPageToken@ is a unique pagination token for each page. + -- Make the call again using the returned token to retrieve the next page. + -- Keep all other arguments unchanged. Each pagination token expires after + -- 60 seconds. Using an expired pagination token will return a @400@ error: + -- \"@Specified token has exceeded its maximum lifetime@\". + -- + -- The configured @maximumPageSize@ determines how many results can be + -- returned in a single call. + nextPageToken :: Prelude.Maybe Prelude.Text, + -- | When set to @true@, returns the results in reverse order. By default the + -- results are returned in descending order of the start time of the + -- executions. + reverseOrder :: Prelude.Maybe Prelude.Bool, + -- | If specified, only executions that have the matching tag are listed. + -- + -- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. + -- You can specify at most one of these in a request. + tagFilter :: Prelude.Maybe TagFilter, + -- | If specified, only executions of the type specified in the filter are + -- returned. + -- + -- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. + -- You can specify at most one of these in a request. + typeFilter :: Prelude.Maybe WorkflowTypeFilter, + -- | The name of the domain that contains the workflow executions to list. + domain :: Prelude.Text, + -- | Workflow executions are included in the returned results based on + -- whether their start times are within the range specified by this filter. + startTimeFilter :: ExecutionTimeFilter + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListOpenWorkflowExecutions' 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: +-- +-- 'executionFilter', 'listOpenWorkflowExecutions_executionFilter' - If specified, only workflow executions matching the workflow ID +-- specified in the filter are returned. +-- +-- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. +-- You can specify at most one of these in a request. +-- +-- 'maximumPageSize', 'listOpenWorkflowExecutions_maximumPageSize' - The maximum number of results that are returned per call. Use +-- @nextPageToken@ to obtain further pages of results. +-- +-- 'nextPageToken', 'listOpenWorkflowExecutions_nextPageToken' - If @NextPageToken@ is returned there are more results available. The +-- value of @NextPageToken@ is a unique pagination token for each page. +-- Make the call again using the returned token to retrieve the next page. +-- Keep all other arguments unchanged. Each pagination token expires after +-- 60 seconds. Using an expired pagination token will return a @400@ error: +-- \"@Specified token has exceeded its maximum lifetime@\". +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +-- +-- 'reverseOrder', 'listOpenWorkflowExecutions_reverseOrder' - When set to @true@, returns the results in reverse order. By default the +-- results are returned in descending order of the start time of the +-- executions. +-- +-- 'tagFilter', 'listOpenWorkflowExecutions_tagFilter' - If specified, only executions that have the matching tag are listed. +-- +-- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. +-- You can specify at most one of these in a request. +-- +-- 'typeFilter', 'listOpenWorkflowExecutions_typeFilter' - If specified, only executions of the type specified in the filter are +-- returned. +-- +-- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. +-- You can specify at most one of these in a request. +-- +-- 'domain', 'listOpenWorkflowExecutions_domain' - The name of the domain that contains the workflow executions to list. +-- +-- 'startTimeFilter', 'listOpenWorkflowExecutions_startTimeFilter' - Workflow executions are included in the returned results based on +-- whether their start times are within the range specified by this filter. +newListOpenWorkflowExecutions :: + -- | 'domain' + Prelude.Text -> + -- | 'startTimeFilter' + ExecutionTimeFilter -> + ListOpenWorkflowExecutions +newListOpenWorkflowExecutions + pDomain_ + pStartTimeFilter_ = + ListOpenWorkflowExecutions' + { executionFilter = + Prelude.Nothing, + maximumPageSize = Prelude.Nothing, + nextPageToken = Prelude.Nothing, + reverseOrder = Prelude.Nothing, + tagFilter = Prelude.Nothing, + typeFilter = Prelude.Nothing, + domain = pDomain_, + startTimeFilter = pStartTimeFilter_ + } + +-- | If specified, only workflow executions matching the workflow ID +-- specified in the filter are returned. +-- +-- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. +-- You can specify at most one of these in a request. +listOpenWorkflowExecutions_executionFilter :: Lens.Lens' ListOpenWorkflowExecutions (Prelude.Maybe WorkflowExecutionFilter) +listOpenWorkflowExecutions_executionFilter = Lens.lens (\ListOpenWorkflowExecutions' {executionFilter} -> executionFilter) (\s@ListOpenWorkflowExecutions' {} a -> s {executionFilter = a} :: ListOpenWorkflowExecutions) + +-- | The maximum number of results that are returned per call. Use +-- @nextPageToken@ to obtain further pages of results. +listOpenWorkflowExecutions_maximumPageSize :: Lens.Lens' ListOpenWorkflowExecutions (Prelude.Maybe Prelude.Natural) +listOpenWorkflowExecutions_maximumPageSize = Lens.lens (\ListOpenWorkflowExecutions' {maximumPageSize} -> maximumPageSize) (\s@ListOpenWorkflowExecutions' {} a -> s {maximumPageSize = a} :: ListOpenWorkflowExecutions) + +-- | If @NextPageToken@ is returned there are more results available. The +-- value of @NextPageToken@ is a unique pagination token for each page. +-- Make the call again using the returned token to retrieve the next page. +-- Keep all other arguments unchanged. Each pagination token expires after +-- 60 seconds. Using an expired pagination token will return a @400@ error: +-- \"@Specified token has exceeded its maximum lifetime@\". +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +listOpenWorkflowExecutions_nextPageToken :: Lens.Lens' ListOpenWorkflowExecutions (Prelude.Maybe Prelude.Text) +listOpenWorkflowExecutions_nextPageToken = Lens.lens (\ListOpenWorkflowExecutions' {nextPageToken} -> nextPageToken) (\s@ListOpenWorkflowExecutions' {} a -> s {nextPageToken = a} :: ListOpenWorkflowExecutions) + +-- | When set to @true@, returns the results in reverse order. By default the +-- results are returned in descending order of the start time of the +-- executions. +listOpenWorkflowExecutions_reverseOrder :: Lens.Lens' ListOpenWorkflowExecutions (Prelude.Maybe Prelude.Bool) +listOpenWorkflowExecutions_reverseOrder = Lens.lens (\ListOpenWorkflowExecutions' {reverseOrder} -> reverseOrder) (\s@ListOpenWorkflowExecutions' {} a -> s {reverseOrder = a} :: ListOpenWorkflowExecutions) + +-- | If specified, only executions that have the matching tag are listed. +-- +-- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. +-- You can specify at most one of these in a request. +listOpenWorkflowExecutions_tagFilter :: Lens.Lens' ListOpenWorkflowExecutions (Prelude.Maybe TagFilter) +listOpenWorkflowExecutions_tagFilter = Lens.lens (\ListOpenWorkflowExecutions' {tagFilter} -> tagFilter) (\s@ListOpenWorkflowExecutions' {} a -> s {tagFilter = a} :: ListOpenWorkflowExecutions) + +-- | If specified, only executions of the type specified in the filter are +-- returned. +-- +-- @executionFilter@, @typeFilter@ and @tagFilter@ are mutually exclusive. +-- You can specify at most one of these in a request. +listOpenWorkflowExecutions_typeFilter :: Lens.Lens' ListOpenWorkflowExecutions (Prelude.Maybe WorkflowTypeFilter) +listOpenWorkflowExecutions_typeFilter = Lens.lens (\ListOpenWorkflowExecutions' {typeFilter} -> typeFilter) (\s@ListOpenWorkflowExecutions' {} a -> s {typeFilter = a} :: ListOpenWorkflowExecutions) + +-- | The name of the domain that contains the workflow executions to list. +listOpenWorkflowExecutions_domain :: Lens.Lens' ListOpenWorkflowExecutions Prelude.Text +listOpenWorkflowExecutions_domain = Lens.lens (\ListOpenWorkflowExecutions' {domain} -> domain) (\s@ListOpenWorkflowExecutions' {} a -> s {domain = a} :: ListOpenWorkflowExecutions) + +-- | Workflow executions are included in the returned results based on +-- whether their start times are within the range specified by this filter. +listOpenWorkflowExecutions_startTimeFilter :: Lens.Lens' ListOpenWorkflowExecutions ExecutionTimeFilter +listOpenWorkflowExecutions_startTimeFilter = Lens.lens (\ListOpenWorkflowExecutions' {startTimeFilter} -> startTimeFilter) (\s@ListOpenWorkflowExecutions' {} a -> s {startTimeFilter = a} :: ListOpenWorkflowExecutions) + +instance Core.AWSPager ListOpenWorkflowExecutions where + page rq rs + | Core.stop + ( rs + Lens.^? workflowExecutionInfos_nextPageToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + (rs Lens.^. workflowExecutionInfos_executionInfos) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& listOpenWorkflowExecutions_nextPageToken + Lens..~ rs + Lens.^? workflowExecutionInfos_nextPageToken + Prelude.. Lens._Just + +instance Core.AWSRequest ListOpenWorkflowExecutions where + type + AWSResponse ListOpenWorkflowExecutions = + WorkflowExecutionInfos + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + (\s h x -> Data.eitherParseJSON x) + +instance Prelude.Hashable ListOpenWorkflowExecutions where + hashWithSalt _salt ListOpenWorkflowExecutions' {..} = + _salt + `Prelude.hashWithSalt` executionFilter + `Prelude.hashWithSalt` maximumPageSize + `Prelude.hashWithSalt` nextPageToken + `Prelude.hashWithSalt` reverseOrder + `Prelude.hashWithSalt` tagFilter + `Prelude.hashWithSalt` typeFilter + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` startTimeFilter + +instance Prelude.NFData ListOpenWorkflowExecutions where + rnf ListOpenWorkflowExecutions' {..} = + Prelude.rnf executionFilter + `Prelude.seq` Prelude.rnf maximumPageSize + `Prelude.seq` Prelude.rnf nextPageToken + `Prelude.seq` Prelude.rnf reverseOrder + `Prelude.seq` Prelude.rnf tagFilter + `Prelude.seq` Prelude.rnf typeFilter + `Prelude.seq` Prelude.rnf domain + `Prelude.seq` Prelude.rnf startTimeFilter + +instance Data.ToHeaders ListOpenWorkflowExecutions where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.ListOpenWorkflowExecutions" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON ListOpenWorkflowExecutions where + toJSON ListOpenWorkflowExecutions' {..} = + Data.object + ( Prelude.catMaybes + [ ("executionFilter" Data..=) + Prelude.<$> executionFilter, + ("maximumPageSize" Data..=) + Prelude.<$> maximumPageSize, + ("nextPageToken" Data..=) Prelude.<$> nextPageToken, + ("reverseOrder" Data..=) Prelude.<$> reverseOrder, + ("tagFilter" Data..=) Prelude.<$> tagFilter, + ("typeFilter" Data..=) Prelude.<$> typeFilter, + Prelude.Just ("domain" Data..= domain), + Prelude.Just + ("startTimeFilter" Data..= startTimeFilter) + ] + ) + +instance Data.ToPath ListOpenWorkflowExecutions where + toPath = Prelude.const "/" + +instance Data.ToQuery ListOpenWorkflowExecutions where + toQuery = Prelude.const Prelude.mempty diff --git a/gen/Amazonka/SWF/ListTagsForResource.hs b/gen/Amazonka/SWF/ListTagsForResource.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/ListTagsForResource.hs @@ -0,0 +1,169 @@ +{-# 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.SWF.ListTagsForResource +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- List tags for a given domain. +module Amazonka.SWF.ListTagsForResource + ( -- * Creating a Request + ListTagsForResource (..), + newListTagsForResource, + + -- * Request Lenses + listTagsForResource_resourceArn, + + -- * Destructuring the Response + ListTagsForResourceResponse (..), + newListTagsForResourceResponse, + + -- * Response Lenses + listTagsForResourceResponse_tags, + listTagsForResourceResponse_httpStatus, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newListTagsForResource' smart constructor. +data ListTagsForResource = ListTagsForResource' + { -- | The Amazon Resource Name (ARN) for the Amazon SWF domain. + resourceArn :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListTagsForResource' 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: +-- +-- 'resourceArn', 'listTagsForResource_resourceArn' - The Amazon Resource Name (ARN) for the Amazon SWF domain. +newListTagsForResource :: + -- | 'resourceArn' + Prelude.Text -> + ListTagsForResource +newListTagsForResource pResourceArn_ = + ListTagsForResource' {resourceArn = pResourceArn_} + +-- | The Amazon Resource Name (ARN) for the Amazon SWF domain. +listTagsForResource_resourceArn :: Lens.Lens' ListTagsForResource Prelude.Text +listTagsForResource_resourceArn = Lens.lens (\ListTagsForResource' {resourceArn} -> resourceArn) (\s@ListTagsForResource' {} a -> s {resourceArn = a} :: ListTagsForResource) + +instance Core.AWSRequest ListTagsForResource where + type + AWSResponse ListTagsForResource = + ListTagsForResourceResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + ListTagsForResourceResponse' + Prelude.<$> (x Data..?> "tags" Core..!@ Prelude.mempty) + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable ListTagsForResource where + hashWithSalt _salt ListTagsForResource' {..} = + _salt `Prelude.hashWithSalt` resourceArn + +instance Prelude.NFData ListTagsForResource where + rnf ListTagsForResource' {..} = + Prelude.rnf resourceArn + +instance Data.ToHeaders ListTagsForResource where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.ListTagsForResource" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON ListTagsForResource where + toJSON ListTagsForResource' {..} = + Data.object + ( Prelude.catMaybes + [Prelude.Just ("resourceArn" Data..= resourceArn)] + ) + +instance Data.ToPath ListTagsForResource where + toPath = Prelude.const "/" + +instance Data.ToQuery ListTagsForResource where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newListTagsForResourceResponse' smart constructor. +data ListTagsForResourceResponse = ListTagsForResourceResponse' + { -- | An array of tags associated with the domain. + tags :: Prelude.Maybe [ResourceTag], + -- | The response's http status code. + httpStatus :: Prelude.Int + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListTagsForResourceResponse' 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: +-- +-- 'tags', 'listTagsForResourceResponse_tags' - An array of tags associated with the domain. +-- +-- 'httpStatus', 'listTagsForResourceResponse_httpStatus' - The response's http status code. +newListTagsForResourceResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListTagsForResourceResponse +newListTagsForResourceResponse pHttpStatus_ = + ListTagsForResourceResponse' + { tags = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | An array of tags associated with the domain. +listTagsForResourceResponse_tags :: Lens.Lens' ListTagsForResourceResponse (Prelude.Maybe [ResourceTag]) +listTagsForResourceResponse_tags = Lens.lens (\ListTagsForResourceResponse' {tags} -> tags) (\s@ListTagsForResourceResponse' {} a -> s {tags = a} :: ListTagsForResourceResponse) Prelude.. Lens.mapping Lens.coerced + +-- | The response's http status code. +listTagsForResourceResponse_httpStatus :: Lens.Lens' ListTagsForResourceResponse Prelude.Int +listTagsForResourceResponse_httpStatus = Lens.lens (\ListTagsForResourceResponse' {httpStatus} -> httpStatus) (\s@ListTagsForResourceResponse' {} a -> s {httpStatus = a} :: ListTagsForResourceResponse) + +instance Prelude.NFData ListTagsForResourceResponse where + rnf ListTagsForResourceResponse' {..} = + Prelude.rnf tags + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/SWF/ListWorkflowTypes.hs b/gen/Amazonka/SWF/ListWorkflowTypes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/ListWorkflowTypes.hs @@ -0,0 +1,352 @@ +{-# 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.SWF.ListWorkflowTypes +-- 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 workflow types in the specified domain. The +-- results may be split into multiple pages that can be retrieved by making +-- the call repeatedly. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- This operation returns paginated results. +module Amazonka.SWF.ListWorkflowTypes + ( -- * Creating a Request + ListWorkflowTypes (..), + newListWorkflowTypes, + + -- * Request Lenses + listWorkflowTypes_maximumPageSize, + listWorkflowTypes_name, + listWorkflowTypes_nextPageToken, + listWorkflowTypes_reverseOrder, + listWorkflowTypes_domain, + listWorkflowTypes_registrationStatus, + + -- * Destructuring the Response + ListWorkflowTypesResponse (..), + newListWorkflowTypesResponse, + + -- * Response Lenses + listWorkflowTypesResponse_nextPageToken, + listWorkflowTypesResponse_httpStatus, + listWorkflowTypesResponse_typeInfos, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newListWorkflowTypes' smart constructor. +data ListWorkflowTypes = ListWorkflowTypes' + { -- | The maximum number of results that are returned per call. Use + -- @nextPageToken@ to obtain further pages of results. + maximumPageSize :: Prelude.Maybe Prelude.Natural, + -- | If specified, lists the workflow type with this name. + name :: Prelude.Maybe Prelude.Text, + -- | If @NextPageToken@ is returned there are more results available. The + -- value of @NextPageToken@ is a unique pagination token for each page. + -- Make the call again using the returned token to retrieve the next page. + -- Keep all other arguments unchanged. Each pagination token expires after + -- 60 seconds. Using an expired pagination token will return a @400@ error: + -- \"@Specified token has exceeded its maximum lifetime@\". + -- + -- The configured @maximumPageSize@ determines how many results can be + -- returned in a single call. + nextPageToken :: Prelude.Maybe Prelude.Text, + -- | When set to @true@, returns the results in reverse order. By default the + -- results are returned in ascending alphabetical order of the @name@ of + -- the workflow types. + reverseOrder :: Prelude.Maybe Prelude.Bool, + -- | The name of the domain in which the workflow types have been registered. + domain :: Prelude.Text, + -- | Specifies the registration status of the workflow types to list. + registrationStatus :: RegistrationStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListWorkflowTypes' 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: +-- +-- 'maximumPageSize', 'listWorkflowTypes_maximumPageSize' - The maximum number of results that are returned per call. Use +-- @nextPageToken@ to obtain further pages of results. +-- +-- 'name', 'listWorkflowTypes_name' - If specified, lists the workflow type with this name. +-- +-- 'nextPageToken', 'listWorkflowTypes_nextPageToken' - If @NextPageToken@ is returned there are more results available. The +-- value of @NextPageToken@ is a unique pagination token for each page. +-- Make the call again using the returned token to retrieve the next page. +-- Keep all other arguments unchanged. Each pagination token expires after +-- 60 seconds. Using an expired pagination token will return a @400@ error: +-- \"@Specified token has exceeded its maximum lifetime@\". +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +-- +-- 'reverseOrder', 'listWorkflowTypes_reverseOrder' - When set to @true@, returns the results in reverse order. By default the +-- results are returned in ascending alphabetical order of the @name@ of +-- the workflow types. +-- +-- 'domain', 'listWorkflowTypes_domain' - The name of the domain in which the workflow types have been registered. +-- +-- 'registrationStatus', 'listWorkflowTypes_registrationStatus' - Specifies the registration status of the workflow types to list. +newListWorkflowTypes :: + -- | 'domain' + Prelude.Text -> + -- | 'registrationStatus' + RegistrationStatus -> + ListWorkflowTypes +newListWorkflowTypes pDomain_ pRegistrationStatus_ = + ListWorkflowTypes' + { maximumPageSize = + Prelude.Nothing, + name = Prelude.Nothing, + nextPageToken = Prelude.Nothing, + reverseOrder = Prelude.Nothing, + domain = pDomain_, + registrationStatus = pRegistrationStatus_ + } + +-- | The maximum number of results that are returned per call. Use +-- @nextPageToken@ to obtain further pages of results. +listWorkflowTypes_maximumPageSize :: Lens.Lens' ListWorkflowTypes (Prelude.Maybe Prelude.Natural) +listWorkflowTypes_maximumPageSize = Lens.lens (\ListWorkflowTypes' {maximumPageSize} -> maximumPageSize) (\s@ListWorkflowTypes' {} a -> s {maximumPageSize = a} :: ListWorkflowTypes) + +-- | If specified, lists the workflow type with this name. +listWorkflowTypes_name :: Lens.Lens' ListWorkflowTypes (Prelude.Maybe Prelude.Text) +listWorkflowTypes_name = Lens.lens (\ListWorkflowTypes' {name} -> name) (\s@ListWorkflowTypes' {} a -> s {name = a} :: ListWorkflowTypes) + +-- | If @NextPageToken@ is returned there are more results available. The +-- value of @NextPageToken@ is a unique pagination token for each page. +-- Make the call again using the returned token to retrieve the next page. +-- Keep all other arguments unchanged. Each pagination token expires after +-- 60 seconds. Using an expired pagination token will return a @400@ error: +-- \"@Specified token has exceeded its maximum lifetime@\". +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +listWorkflowTypes_nextPageToken :: Lens.Lens' ListWorkflowTypes (Prelude.Maybe Prelude.Text) +listWorkflowTypes_nextPageToken = Lens.lens (\ListWorkflowTypes' {nextPageToken} -> nextPageToken) (\s@ListWorkflowTypes' {} a -> s {nextPageToken = a} :: ListWorkflowTypes) + +-- | When set to @true@, returns the results in reverse order. By default the +-- results are returned in ascending alphabetical order of the @name@ of +-- the workflow types. +listWorkflowTypes_reverseOrder :: Lens.Lens' ListWorkflowTypes (Prelude.Maybe Prelude.Bool) +listWorkflowTypes_reverseOrder = Lens.lens (\ListWorkflowTypes' {reverseOrder} -> reverseOrder) (\s@ListWorkflowTypes' {} a -> s {reverseOrder = a} :: ListWorkflowTypes) + +-- | The name of the domain in which the workflow types have been registered. +listWorkflowTypes_domain :: Lens.Lens' ListWorkflowTypes Prelude.Text +listWorkflowTypes_domain = Lens.lens (\ListWorkflowTypes' {domain} -> domain) (\s@ListWorkflowTypes' {} a -> s {domain = a} :: ListWorkflowTypes) + +-- | Specifies the registration status of the workflow types to list. +listWorkflowTypes_registrationStatus :: Lens.Lens' ListWorkflowTypes RegistrationStatus +listWorkflowTypes_registrationStatus = Lens.lens (\ListWorkflowTypes' {registrationStatus} -> registrationStatus) (\s@ListWorkflowTypes' {} a -> s {registrationStatus = a} :: ListWorkflowTypes) + +instance Core.AWSPager ListWorkflowTypes where + page rq rs + | Core.stop + ( rs + Lens.^? listWorkflowTypesResponse_nextPageToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + (rs Lens.^. listWorkflowTypesResponse_typeInfos) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& listWorkflowTypes_nextPageToken + Lens..~ rs + Lens.^? listWorkflowTypesResponse_nextPageToken + Prelude.. Lens._Just + +instance Core.AWSRequest ListWorkflowTypes where + type + AWSResponse ListWorkflowTypes = + ListWorkflowTypesResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + ListWorkflowTypesResponse' + Prelude.<$> (x Data..?> "nextPageToken") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + Prelude.<*> (x Data..?> "typeInfos" Core..!@ Prelude.mempty) + ) + +instance Prelude.Hashable ListWorkflowTypes where + hashWithSalt _salt ListWorkflowTypes' {..} = + _salt + `Prelude.hashWithSalt` maximumPageSize + `Prelude.hashWithSalt` name + `Prelude.hashWithSalt` nextPageToken + `Prelude.hashWithSalt` reverseOrder + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` registrationStatus + +instance Prelude.NFData ListWorkflowTypes where + rnf ListWorkflowTypes' {..} = + Prelude.rnf maximumPageSize + `Prelude.seq` Prelude.rnf name + `Prelude.seq` Prelude.rnf nextPageToken + `Prelude.seq` Prelude.rnf reverseOrder + `Prelude.seq` Prelude.rnf domain + `Prelude.seq` Prelude.rnf registrationStatus + +instance Data.ToHeaders ListWorkflowTypes where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.ListWorkflowTypes" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON ListWorkflowTypes where + toJSON ListWorkflowTypes' {..} = + Data.object + ( Prelude.catMaybes + [ ("maximumPageSize" Data..=) + Prelude.<$> maximumPageSize, + ("name" Data..=) Prelude.<$> name, + ("nextPageToken" Data..=) Prelude.<$> nextPageToken, + ("reverseOrder" Data..=) Prelude.<$> reverseOrder, + Prelude.Just ("domain" Data..= domain), + Prelude.Just + ("registrationStatus" Data..= registrationStatus) + ] + ) + +instance Data.ToPath ListWorkflowTypes where + toPath = Prelude.const "/" + +instance Data.ToQuery ListWorkflowTypes where + toQuery = Prelude.const Prelude.mempty + +-- | Contains a paginated list of information structures about workflow +-- types. +-- +-- /See:/ 'newListWorkflowTypesResponse' smart constructor. +data ListWorkflowTypesResponse = ListWorkflowTypesResponse' + { -- | If a @NextPageToken@ was returned by a previous call, there are more + -- results available. To retrieve the next page of results, make the call + -- again using the returned token in @nextPageToken@. Keep all other + -- arguments unchanged. + -- + -- The configured @maximumPageSize@ determines how many results can be + -- returned in a single call. + nextPageToken :: Prelude.Maybe Prelude.Text, + -- | The response's http status code. + httpStatus :: Prelude.Int, + -- | The list of workflow type information. + typeInfos :: [WorkflowTypeInfo] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ListWorkflowTypesResponse' 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: +-- +-- 'nextPageToken', 'listWorkflowTypesResponse_nextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more +-- results available. To retrieve the next page of results, make the call +-- again using the returned token in @nextPageToken@. Keep all other +-- arguments unchanged. +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +-- +-- 'httpStatus', 'listWorkflowTypesResponse_httpStatus' - The response's http status code. +-- +-- 'typeInfos', 'listWorkflowTypesResponse_typeInfos' - The list of workflow type information. +newListWorkflowTypesResponse :: + -- | 'httpStatus' + Prelude.Int -> + ListWorkflowTypesResponse +newListWorkflowTypesResponse pHttpStatus_ = + ListWorkflowTypesResponse' + { nextPageToken = + Prelude.Nothing, + httpStatus = pHttpStatus_, + typeInfos = Prelude.mempty + } + +-- | If a @NextPageToken@ was returned by a previous call, there are more +-- results available. To retrieve the next page of results, make the call +-- again using the returned token in @nextPageToken@. Keep all other +-- arguments unchanged. +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +listWorkflowTypesResponse_nextPageToken :: Lens.Lens' ListWorkflowTypesResponse (Prelude.Maybe Prelude.Text) +listWorkflowTypesResponse_nextPageToken = Lens.lens (\ListWorkflowTypesResponse' {nextPageToken} -> nextPageToken) (\s@ListWorkflowTypesResponse' {} a -> s {nextPageToken = a} :: ListWorkflowTypesResponse) + +-- | The response's http status code. +listWorkflowTypesResponse_httpStatus :: Lens.Lens' ListWorkflowTypesResponse Prelude.Int +listWorkflowTypesResponse_httpStatus = Lens.lens (\ListWorkflowTypesResponse' {httpStatus} -> httpStatus) (\s@ListWorkflowTypesResponse' {} a -> s {httpStatus = a} :: ListWorkflowTypesResponse) + +-- | The list of workflow type information. +listWorkflowTypesResponse_typeInfos :: Lens.Lens' ListWorkflowTypesResponse [WorkflowTypeInfo] +listWorkflowTypesResponse_typeInfos = Lens.lens (\ListWorkflowTypesResponse' {typeInfos} -> typeInfos) (\s@ListWorkflowTypesResponse' {} a -> s {typeInfos = a} :: ListWorkflowTypesResponse) Prelude.. Lens.coerced + +instance Prelude.NFData ListWorkflowTypesResponse where + rnf ListWorkflowTypesResponse' {..} = + Prelude.rnf nextPageToken + `Prelude.seq` Prelude.rnf httpStatus + `Prelude.seq` Prelude.rnf typeInfos diff --git a/gen/Amazonka/SWF/PollForActivityTask.hs b/gen/Amazonka/SWF/PollForActivityTask.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/PollForActivityTask.hs @@ -0,0 +1,337 @@ +{-# 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.SWF.PollForActivityTask +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Used by workers to get an ActivityTask from the specified activity +-- @taskList@. This initiates a long poll, where the service holds the HTTP +-- connection open and responds as soon as a task becomes available. The +-- maximum time the service holds on to the request before responding is 60 +-- seconds. If no task is available within 60 seconds, the poll returns an +-- empty result. An empty result, in this context, means that an +-- ActivityTask is returned, but that the value of taskToken is an empty +-- string. If a task is returned, the worker should use its type to +-- identify and process it correctly. +-- +-- Workers should set their client side socket timeout to at least 70 +-- seconds (10 seconds higher than the maximum time service may hold the +-- poll request). +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the @taskList.name@ parameter by using a @Condition@ +-- element with the @swf:taskList.name@ key to allow the action to +-- access only certain task lists. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.PollForActivityTask + ( -- * Creating a Request + PollForActivityTask (..), + newPollForActivityTask, + + -- * Request Lenses + pollForActivityTask_identity, + pollForActivityTask_domain, + pollForActivityTask_taskList, + + -- * Destructuring the Response + PollForActivityTaskResponse (..), + newPollForActivityTaskResponse, + + -- * Response Lenses + pollForActivityTaskResponse_activityId, + pollForActivityTaskResponse_activityType, + pollForActivityTaskResponse_input, + pollForActivityTaskResponse_taskToken, + pollForActivityTaskResponse_workflowExecution, + pollForActivityTaskResponse_httpStatus, + pollForActivityTaskResponse_startedEventId, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newPollForActivityTask' smart constructor. +data PollForActivityTask = PollForActivityTask' + { -- | Identity of the worker making the request, recorded in the + -- @ActivityTaskStarted@ event in the workflow history. This enables + -- diagnostic tracing when problems arise. The form of this identity is + -- user defined. + identity :: Prelude.Maybe Prelude.Text, + -- | The name of the domain that contains the task lists being polled. + domain :: Prelude.Text, + -- | Specifies the task list to poll for activity tasks. + -- + -- The specified string must not start or end with whitespace. It must not + -- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control + -- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not + -- /be/ the literal string @arn@. + taskList :: TaskList + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'PollForActivityTask' 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: +-- +-- 'identity', 'pollForActivityTask_identity' - Identity of the worker making the request, recorded in the +-- @ActivityTaskStarted@ event in the workflow history. This enables +-- diagnostic tracing when problems arise. The form of this identity is +-- user defined. +-- +-- 'domain', 'pollForActivityTask_domain' - The name of the domain that contains the task lists being polled. +-- +-- 'taskList', 'pollForActivityTask_taskList' - Specifies the task list to poll for activity tasks. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +newPollForActivityTask :: + -- | 'domain' + Prelude.Text -> + -- | 'taskList' + TaskList -> + PollForActivityTask +newPollForActivityTask pDomain_ pTaskList_ = + PollForActivityTask' + { identity = Prelude.Nothing, + domain = pDomain_, + taskList = pTaskList_ + } + +-- | Identity of the worker making the request, recorded in the +-- @ActivityTaskStarted@ event in the workflow history. This enables +-- diagnostic tracing when problems arise. The form of this identity is +-- user defined. +pollForActivityTask_identity :: Lens.Lens' PollForActivityTask (Prelude.Maybe Prelude.Text) +pollForActivityTask_identity = Lens.lens (\PollForActivityTask' {identity} -> identity) (\s@PollForActivityTask' {} a -> s {identity = a} :: PollForActivityTask) + +-- | The name of the domain that contains the task lists being polled. +pollForActivityTask_domain :: Lens.Lens' PollForActivityTask Prelude.Text +pollForActivityTask_domain = Lens.lens (\PollForActivityTask' {domain} -> domain) (\s@PollForActivityTask' {} a -> s {domain = a} :: PollForActivityTask) + +-- | Specifies the task list to poll for activity tasks. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +pollForActivityTask_taskList :: Lens.Lens' PollForActivityTask TaskList +pollForActivityTask_taskList = Lens.lens (\PollForActivityTask' {taskList} -> taskList) (\s@PollForActivityTask' {} a -> s {taskList = a} :: PollForActivityTask) + +instance Core.AWSRequest PollForActivityTask where + type + AWSResponse PollForActivityTask = + PollForActivityTaskResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + PollForActivityTaskResponse' + Prelude.<$> (x Data..?> "activityId") + Prelude.<*> (x Data..?> "activityType") + Prelude.<*> (x Data..?> "input") + Prelude.<*> (x Data..?> "taskToken") + Prelude.<*> (x Data..?> "workflowExecution") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + Prelude.<*> (x Data..:> "startedEventId") + ) + +instance Prelude.Hashable PollForActivityTask where + hashWithSalt _salt PollForActivityTask' {..} = + _salt + `Prelude.hashWithSalt` identity + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` taskList + +instance Prelude.NFData PollForActivityTask where + rnf PollForActivityTask' {..} = + Prelude.rnf identity + `Prelude.seq` Prelude.rnf domain + `Prelude.seq` Prelude.rnf taskList + +instance Data.ToHeaders PollForActivityTask where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.PollForActivityTask" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON PollForActivityTask where + toJSON PollForActivityTask' {..} = + Data.object + ( Prelude.catMaybes + [ ("identity" Data..=) Prelude.<$> identity, + Prelude.Just ("domain" Data..= domain), + Prelude.Just ("taskList" Data..= taskList) + ] + ) + +instance Data.ToPath PollForActivityTask where + toPath = Prelude.const "/" + +instance Data.ToQuery PollForActivityTask where + toQuery = Prelude.const Prelude.mempty + +-- | Unit of work sent to an activity worker. +-- +-- /See:/ 'newPollForActivityTaskResponse' smart constructor. +data PollForActivityTaskResponse = PollForActivityTaskResponse' + { -- | The unique ID of the task. + activityId :: Prelude.Maybe Prelude.Text, + -- | The type of this activity task. + activityType :: Prelude.Maybe ActivityType, + -- | The inputs provided when the activity task was scheduled. The form of + -- the input is user defined and should be meaningful to the activity + -- implementation. + input :: Prelude.Maybe Prelude.Text, + -- | The opaque string used as a handle on the task. This token is used by + -- workers to communicate progress and response information back to the + -- system about the task. + taskToken :: Prelude.Maybe Prelude.Text, + -- | The workflow execution that started this activity task. + workflowExecution :: Prelude.Maybe WorkflowExecution, + -- | The response's http status code. + httpStatus :: Prelude.Int, + -- | The ID of the @ActivityTaskStarted@ event recorded in the history. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'PollForActivityTaskResponse' 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: +-- +-- 'activityId', 'pollForActivityTaskResponse_activityId' - The unique ID of the task. +-- +-- 'activityType', 'pollForActivityTaskResponse_activityType' - The type of this activity task. +-- +-- 'input', 'pollForActivityTaskResponse_input' - The inputs provided when the activity task was scheduled. The form of +-- the input is user defined and should be meaningful to the activity +-- implementation. +-- +-- 'taskToken', 'pollForActivityTaskResponse_taskToken' - The opaque string used as a handle on the task. This token is used by +-- workers to communicate progress and response information back to the +-- system about the task. +-- +-- 'workflowExecution', 'pollForActivityTaskResponse_workflowExecution' - The workflow execution that started this activity task. +-- +-- 'httpStatus', 'pollForActivityTaskResponse_httpStatus' - The response's http status code. +-- +-- 'startedEventId', 'pollForActivityTaskResponse_startedEventId' - The ID of the @ActivityTaskStarted@ event recorded in the history. +newPollForActivityTaskResponse :: + -- | 'httpStatus' + Prelude.Int -> + -- | 'startedEventId' + Prelude.Integer -> + PollForActivityTaskResponse +newPollForActivityTaskResponse + pHttpStatus_ + pStartedEventId_ = + PollForActivityTaskResponse' + { activityId = + Prelude.Nothing, + activityType = Prelude.Nothing, + input = Prelude.Nothing, + taskToken = Prelude.Nothing, + workflowExecution = Prelude.Nothing, + httpStatus = pHttpStatus_, + startedEventId = pStartedEventId_ + } + +-- | The unique ID of the task. +pollForActivityTaskResponse_activityId :: Lens.Lens' PollForActivityTaskResponse (Prelude.Maybe Prelude.Text) +pollForActivityTaskResponse_activityId = Lens.lens (\PollForActivityTaskResponse' {activityId} -> activityId) (\s@PollForActivityTaskResponse' {} a -> s {activityId = a} :: PollForActivityTaskResponse) + +-- | The type of this activity task. +pollForActivityTaskResponse_activityType :: Lens.Lens' PollForActivityTaskResponse (Prelude.Maybe ActivityType) +pollForActivityTaskResponse_activityType = Lens.lens (\PollForActivityTaskResponse' {activityType} -> activityType) (\s@PollForActivityTaskResponse' {} a -> s {activityType = a} :: PollForActivityTaskResponse) + +-- | The inputs provided when the activity task was scheduled. The form of +-- the input is user defined and should be meaningful to the activity +-- implementation. +pollForActivityTaskResponse_input :: Lens.Lens' PollForActivityTaskResponse (Prelude.Maybe Prelude.Text) +pollForActivityTaskResponse_input = Lens.lens (\PollForActivityTaskResponse' {input} -> input) (\s@PollForActivityTaskResponse' {} a -> s {input = a} :: PollForActivityTaskResponse) + +-- | The opaque string used as a handle on the task. This token is used by +-- workers to communicate progress and response information back to the +-- system about the task. +pollForActivityTaskResponse_taskToken :: Lens.Lens' PollForActivityTaskResponse (Prelude.Maybe Prelude.Text) +pollForActivityTaskResponse_taskToken = Lens.lens (\PollForActivityTaskResponse' {taskToken} -> taskToken) (\s@PollForActivityTaskResponse' {} a -> s {taskToken = a} :: PollForActivityTaskResponse) + +-- | The workflow execution that started this activity task. +pollForActivityTaskResponse_workflowExecution :: Lens.Lens' PollForActivityTaskResponse (Prelude.Maybe WorkflowExecution) +pollForActivityTaskResponse_workflowExecution = Lens.lens (\PollForActivityTaskResponse' {workflowExecution} -> workflowExecution) (\s@PollForActivityTaskResponse' {} a -> s {workflowExecution = a} :: PollForActivityTaskResponse) + +-- | The response's http status code. +pollForActivityTaskResponse_httpStatus :: Lens.Lens' PollForActivityTaskResponse Prelude.Int +pollForActivityTaskResponse_httpStatus = Lens.lens (\PollForActivityTaskResponse' {httpStatus} -> httpStatus) (\s@PollForActivityTaskResponse' {} a -> s {httpStatus = a} :: PollForActivityTaskResponse) + +-- | The ID of the @ActivityTaskStarted@ event recorded in the history. +pollForActivityTaskResponse_startedEventId :: Lens.Lens' PollForActivityTaskResponse Prelude.Integer +pollForActivityTaskResponse_startedEventId = Lens.lens (\PollForActivityTaskResponse' {startedEventId} -> startedEventId) (\s@PollForActivityTaskResponse' {} a -> s {startedEventId = a} :: PollForActivityTaskResponse) + +instance Prelude.NFData PollForActivityTaskResponse where + rnf PollForActivityTaskResponse' {..} = + Prelude.rnf activityId + `Prelude.seq` Prelude.rnf activityType + `Prelude.seq` Prelude.rnf input + `Prelude.seq` Prelude.rnf taskToken + `Prelude.seq` Prelude.rnf workflowExecution + `Prelude.seq` Prelude.rnf httpStatus + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/PollForDecisionTask.hs b/gen/Amazonka/SWF/PollForDecisionTask.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/PollForDecisionTask.hs @@ -0,0 +1,511 @@ +{-# 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.SWF.PollForDecisionTask +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Used by deciders to get a DecisionTask from the specified decision +-- @taskList@. A decision task may be returned for any open workflow +-- execution that is using the specified task list. The task includes a +-- paginated view of the history of the workflow execution. The decider +-- should use the workflow type and the history to determine how to +-- properly handle the task. +-- +-- This action initiates a long poll, where the service holds the HTTP +-- connection open and responds as soon a task becomes available. If no +-- decision task is available in the specified task list before the timeout +-- of 60 seconds expires, an empty result is returned. An empty result, in +-- this context, means that a DecisionTask is returned, but that the value +-- of taskToken is an empty string. +-- +-- Deciders should set their client side socket timeout to at least 70 +-- seconds (10 seconds higher than the timeout). +-- +-- Because the number of workflow history events for a single workflow +-- execution might be very large, the result returned might be split up +-- across a number of pages. To retrieve subsequent pages, make additional +-- calls to @PollForDecisionTask@ using the @nextPageToken@ returned by the +-- initial call. Note that you do /not/ call @GetWorkflowExecutionHistory@ +-- with this @nextPageToken@. Instead, call @PollForDecisionTask@ again. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the @taskList.name@ parameter by using a @Condition@ +-- element with the @swf:taskList.name@ key to allow the action to +-- access only certain task lists. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- This operation returns paginated results. +module Amazonka.SWF.PollForDecisionTask + ( -- * Creating a Request + PollForDecisionTask (..), + newPollForDecisionTask, + + -- * Request Lenses + pollForDecisionTask_identity, + pollForDecisionTask_maximumPageSize, + pollForDecisionTask_nextPageToken, + pollForDecisionTask_reverseOrder, + pollForDecisionTask_domain, + pollForDecisionTask_taskList, + + -- * Destructuring the Response + PollForDecisionTaskResponse (..), + newPollForDecisionTaskResponse, + + -- * Response Lenses + pollForDecisionTaskResponse_events, + pollForDecisionTaskResponse_nextPageToken, + pollForDecisionTaskResponse_previousStartedEventId, + pollForDecisionTaskResponse_taskToken, + pollForDecisionTaskResponse_workflowExecution, + pollForDecisionTaskResponse_workflowType, + pollForDecisionTaskResponse_httpStatus, + pollForDecisionTaskResponse_startedEventId, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newPollForDecisionTask' smart constructor. +data PollForDecisionTask = PollForDecisionTask' + { -- | Identity of the decider making the request, which is recorded in the + -- DecisionTaskStarted event in the workflow history. This enables + -- diagnostic tracing when problems arise. The form of this identity is + -- user defined. + identity :: Prelude.Maybe Prelude.Text, + -- | The maximum number of results that are returned per call. Use + -- @nextPageToken@ to obtain further pages of results. + -- + -- This is an upper limit only; the actual number of results returned per + -- call may be fewer than the specified maximum. + maximumPageSize :: Prelude.Maybe Prelude.Natural, + -- | If @NextPageToken@ is returned there are more results available. The + -- value of @NextPageToken@ is a unique pagination token for each page. + -- Make the call again using the returned token to retrieve the next page. + -- Keep all other arguments unchanged. Each pagination token expires after + -- 60 seconds. Using an expired pagination token will return a @400@ error: + -- \"@Specified token has exceeded its maximum lifetime@\". + -- + -- The configured @maximumPageSize@ determines how many results can be + -- returned in a single call. + -- + -- The @nextPageToken@ returned by this action cannot be used with + -- GetWorkflowExecutionHistory to get the next page. You must call + -- PollForDecisionTask again (with the @nextPageToken@) to retrieve the + -- next page of history records. Calling PollForDecisionTask with a + -- @nextPageToken@ doesn\'t return a new decision task. + nextPageToken :: Prelude.Maybe Prelude.Text, + -- | When set to @true@, returns the events in reverse order. By default the + -- results are returned in ascending order of the @eventTimestamp@ of the + -- events. + reverseOrder :: Prelude.Maybe Prelude.Bool, + -- | The name of the domain containing the task lists to poll. + domain :: Prelude.Text, + -- | Specifies the task list to poll for decision tasks. + -- + -- The specified string must not start or end with whitespace. It must not + -- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control + -- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not + -- /be/ the literal string @arn@. + taskList :: TaskList + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'PollForDecisionTask' 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: +-- +-- 'identity', 'pollForDecisionTask_identity' - Identity of the decider making the request, which is recorded in the +-- DecisionTaskStarted event in the workflow history. This enables +-- diagnostic tracing when problems arise. The form of this identity is +-- user defined. +-- +-- 'maximumPageSize', 'pollForDecisionTask_maximumPageSize' - The maximum number of results that are returned per call. Use +-- @nextPageToken@ to obtain further pages of results. +-- +-- This is an upper limit only; the actual number of results returned per +-- call may be fewer than the specified maximum. +-- +-- 'nextPageToken', 'pollForDecisionTask_nextPageToken' - If @NextPageToken@ is returned there are more results available. The +-- value of @NextPageToken@ is a unique pagination token for each page. +-- Make the call again using the returned token to retrieve the next page. +-- Keep all other arguments unchanged. Each pagination token expires after +-- 60 seconds. Using an expired pagination token will return a @400@ error: +-- \"@Specified token has exceeded its maximum lifetime@\". +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +-- +-- The @nextPageToken@ returned by this action cannot be used with +-- GetWorkflowExecutionHistory to get the next page. You must call +-- PollForDecisionTask again (with the @nextPageToken@) to retrieve the +-- next page of history records. Calling PollForDecisionTask with a +-- @nextPageToken@ doesn\'t return a new decision task. +-- +-- 'reverseOrder', 'pollForDecisionTask_reverseOrder' - When set to @true@, returns the events in reverse order. By default the +-- results are returned in ascending order of the @eventTimestamp@ of the +-- events. +-- +-- 'domain', 'pollForDecisionTask_domain' - The name of the domain containing the task lists to poll. +-- +-- 'taskList', 'pollForDecisionTask_taskList' - Specifies the task list to poll for decision tasks. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +newPollForDecisionTask :: + -- | 'domain' + Prelude.Text -> + -- | 'taskList' + TaskList -> + PollForDecisionTask +newPollForDecisionTask pDomain_ pTaskList_ = + PollForDecisionTask' + { identity = Prelude.Nothing, + maximumPageSize = Prelude.Nothing, + nextPageToken = Prelude.Nothing, + reverseOrder = Prelude.Nothing, + domain = pDomain_, + taskList = pTaskList_ + } + +-- | Identity of the decider making the request, which is recorded in the +-- DecisionTaskStarted event in the workflow history. This enables +-- diagnostic tracing when problems arise. The form of this identity is +-- user defined. +pollForDecisionTask_identity :: Lens.Lens' PollForDecisionTask (Prelude.Maybe Prelude.Text) +pollForDecisionTask_identity = Lens.lens (\PollForDecisionTask' {identity} -> identity) (\s@PollForDecisionTask' {} a -> s {identity = a} :: PollForDecisionTask) + +-- | The maximum number of results that are returned per call. Use +-- @nextPageToken@ to obtain further pages of results. +-- +-- This is an upper limit only; the actual number of results returned per +-- call may be fewer than the specified maximum. +pollForDecisionTask_maximumPageSize :: Lens.Lens' PollForDecisionTask (Prelude.Maybe Prelude.Natural) +pollForDecisionTask_maximumPageSize = Lens.lens (\PollForDecisionTask' {maximumPageSize} -> maximumPageSize) (\s@PollForDecisionTask' {} a -> s {maximumPageSize = a} :: PollForDecisionTask) + +-- | If @NextPageToken@ is returned there are more results available. The +-- value of @NextPageToken@ is a unique pagination token for each page. +-- Make the call again using the returned token to retrieve the next page. +-- Keep all other arguments unchanged. Each pagination token expires after +-- 60 seconds. Using an expired pagination token will return a @400@ error: +-- \"@Specified token has exceeded its maximum lifetime@\". +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +-- +-- The @nextPageToken@ returned by this action cannot be used with +-- GetWorkflowExecutionHistory to get the next page. You must call +-- PollForDecisionTask again (with the @nextPageToken@) to retrieve the +-- next page of history records. Calling PollForDecisionTask with a +-- @nextPageToken@ doesn\'t return a new decision task. +pollForDecisionTask_nextPageToken :: Lens.Lens' PollForDecisionTask (Prelude.Maybe Prelude.Text) +pollForDecisionTask_nextPageToken = Lens.lens (\PollForDecisionTask' {nextPageToken} -> nextPageToken) (\s@PollForDecisionTask' {} a -> s {nextPageToken = a} :: PollForDecisionTask) + +-- | When set to @true@, returns the events in reverse order. By default the +-- results are returned in ascending order of the @eventTimestamp@ of the +-- events. +pollForDecisionTask_reverseOrder :: Lens.Lens' PollForDecisionTask (Prelude.Maybe Prelude.Bool) +pollForDecisionTask_reverseOrder = Lens.lens (\PollForDecisionTask' {reverseOrder} -> reverseOrder) (\s@PollForDecisionTask' {} a -> s {reverseOrder = a} :: PollForDecisionTask) + +-- | The name of the domain containing the task lists to poll. +pollForDecisionTask_domain :: Lens.Lens' PollForDecisionTask Prelude.Text +pollForDecisionTask_domain = Lens.lens (\PollForDecisionTask' {domain} -> domain) (\s@PollForDecisionTask' {} a -> s {domain = a} :: PollForDecisionTask) + +-- | Specifies the task list to poll for decision tasks. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +pollForDecisionTask_taskList :: Lens.Lens' PollForDecisionTask TaskList +pollForDecisionTask_taskList = Lens.lens (\PollForDecisionTask' {taskList} -> taskList) (\s@PollForDecisionTask' {} a -> s {taskList = a} :: PollForDecisionTask) + +instance Core.AWSPager PollForDecisionTask where + page rq rs + | Core.stop + ( rs + Lens.^? pollForDecisionTaskResponse_nextPageToken + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Core.stop + ( rs + Lens.^? pollForDecisionTaskResponse_events + Prelude.. Lens._Just + ) = + Prelude.Nothing + | Prelude.otherwise = + Prelude.Just + Prelude.$ rq + Prelude.& pollForDecisionTask_nextPageToken + Lens..~ rs + Lens.^? pollForDecisionTaskResponse_nextPageToken + Prelude.. Lens._Just + +instance Core.AWSRequest PollForDecisionTask where + type + AWSResponse PollForDecisionTask = + PollForDecisionTaskResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + PollForDecisionTaskResponse' + Prelude.<$> (x Data..?> "events" Core..!@ Prelude.mempty) + Prelude.<*> (x Data..?> "nextPageToken") + Prelude.<*> (x Data..?> "previousStartedEventId") + Prelude.<*> (x Data..?> "taskToken") + Prelude.<*> (x Data..?> "workflowExecution") + Prelude.<*> (x Data..?> "workflowType") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + Prelude.<*> (x Data..:> "startedEventId") + ) + +instance Prelude.Hashable PollForDecisionTask where + hashWithSalt _salt PollForDecisionTask' {..} = + _salt + `Prelude.hashWithSalt` identity + `Prelude.hashWithSalt` maximumPageSize + `Prelude.hashWithSalt` nextPageToken + `Prelude.hashWithSalt` reverseOrder + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` taskList + +instance Prelude.NFData PollForDecisionTask where + rnf PollForDecisionTask' {..} = + Prelude.rnf identity + `Prelude.seq` Prelude.rnf maximumPageSize + `Prelude.seq` Prelude.rnf nextPageToken + `Prelude.seq` Prelude.rnf reverseOrder + `Prelude.seq` Prelude.rnf domain + `Prelude.seq` Prelude.rnf taskList + +instance Data.ToHeaders PollForDecisionTask where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.PollForDecisionTask" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON PollForDecisionTask where + toJSON PollForDecisionTask' {..} = + Data.object + ( Prelude.catMaybes + [ ("identity" Data..=) Prelude.<$> identity, + ("maximumPageSize" Data..=) + Prelude.<$> maximumPageSize, + ("nextPageToken" Data..=) Prelude.<$> nextPageToken, + ("reverseOrder" Data..=) Prelude.<$> reverseOrder, + Prelude.Just ("domain" Data..= domain), + Prelude.Just ("taskList" Data..= taskList) + ] + ) + +instance Data.ToPath PollForDecisionTask where + toPath = Prelude.const "/" + +instance Data.ToQuery PollForDecisionTask where + toQuery = Prelude.const Prelude.mempty + +-- | A structure that represents a decision task. Decision tasks are sent to +-- deciders in order for them to make decisions. +-- +-- /See:/ 'newPollForDecisionTaskResponse' smart constructor. +data PollForDecisionTaskResponse = PollForDecisionTaskResponse' + { -- | A paginated list of history events of the workflow execution. The + -- decider uses this during the processing of the decision task. + events :: Prelude.Maybe [HistoryEvent], + -- | If a @NextPageToken@ was returned by a previous call, there are more + -- results available. To retrieve the next page of results, make the call + -- again using the returned token in @nextPageToken@. Keep all other + -- arguments unchanged. + -- + -- The configured @maximumPageSize@ determines how many results can be + -- returned in a single call. + nextPageToken :: Prelude.Maybe Prelude.Text, + -- | The ID of the DecisionTaskStarted event of the previous decision task of + -- this workflow execution that was processed by the decider. This can be + -- used to determine the events in the history new since the last decision + -- task received by the decider. + previousStartedEventId :: Prelude.Maybe Prelude.Integer, + -- | The opaque string used as a handle on the task. This token is used by + -- workers to communicate progress and response information back to the + -- system about the task. + taskToken :: Prelude.Maybe Prelude.Text, + -- | The workflow execution for which this decision task was created. + workflowExecution :: Prelude.Maybe WorkflowExecution, + -- | The type of the workflow execution for which this decision task was + -- created. + workflowType :: Prelude.Maybe WorkflowType, + -- | The response's http status code. + httpStatus :: Prelude.Int, + -- | The ID of the @DecisionTaskStarted@ event recorded in the history. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'PollForDecisionTaskResponse' 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: +-- +-- 'events', 'pollForDecisionTaskResponse_events' - A paginated list of history events of the workflow execution. The +-- decider uses this during the processing of the decision task. +-- +-- 'nextPageToken', 'pollForDecisionTaskResponse_nextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more +-- results available. To retrieve the next page of results, make the call +-- again using the returned token in @nextPageToken@. Keep all other +-- arguments unchanged. +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +-- +-- 'previousStartedEventId', 'pollForDecisionTaskResponse_previousStartedEventId' - The ID of the DecisionTaskStarted event of the previous decision task of +-- this workflow execution that was processed by the decider. This can be +-- used to determine the events in the history new since the last decision +-- task received by the decider. +-- +-- 'taskToken', 'pollForDecisionTaskResponse_taskToken' - The opaque string used as a handle on the task. This token is used by +-- workers to communicate progress and response information back to the +-- system about the task. +-- +-- 'workflowExecution', 'pollForDecisionTaskResponse_workflowExecution' - The workflow execution for which this decision task was created. +-- +-- 'workflowType', 'pollForDecisionTaskResponse_workflowType' - The type of the workflow execution for which this decision task was +-- created. +-- +-- 'httpStatus', 'pollForDecisionTaskResponse_httpStatus' - The response's http status code. +-- +-- 'startedEventId', 'pollForDecisionTaskResponse_startedEventId' - The ID of the @DecisionTaskStarted@ event recorded in the history. +newPollForDecisionTaskResponse :: + -- | 'httpStatus' + Prelude.Int -> + -- | 'startedEventId' + Prelude.Integer -> + PollForDecisionTaskResponse +newPollForDecisionTaskResponse + pHttpStatus_ + pStartedEventId_ = + PollForDecisionTaskResponse' + { events = + Prelude.Nothing, + nextPageToken = Prelude.Nothing, + previousStartedEventId = Prelude.Nothing, + taskToken = Prelude.Nothing, + workflowExecution = Prelude.Nothing, + workflowType = Prelude.Nothing, + httpStatus = pHttpStatus_, + startedEventId = pStartedEventId_ + } + +-- | A paginated list of history events of the workflow execution. The +-- decider uses this during the processing of the decision task. +pollForDecisionTaskResponse_events :: Lens.Lens' PollForDecisionTaskResponse (Prelude.Maybe [HistoryEvent]) +pollForDecisionTaskResponse_events = Lens.lens (\PollForDecisionTaskResponse' {events} -> events) (\s@PollForDecisionTaskResponse' {} a -> s {events = a} :: PollForDecisionTaskResponse) Prelude.. Lens.mapping Lens.coerced + +-- | If a @NextPageToken@ was returned by a previous call, there are more +-- results available. To retrieve the next page of results, make the call +-- again using the returned token in @nextPageToken@. Keep all other +-- arguments unchanged. +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +pollForDecisionTaskResponse_nextPageToken :: Lens.Lens' PollForDecisionTaskResponse (Prelude.Maybe Prelude.Text) +pollForDecisionTaskResponse_nextPageToken = Lens.lens (\PollForDecisionTaskResponse' {nextPageToken} -> nextPageToken) (\s@PollForDecisionTaskResponse' {} a -> s {nextPageToken = a} :: PollForDecisionTaskResponse) + +-- | The ID of the DecisionTaskStarted event of the previous decision task of +-- this workflow execution that was processed by the decider. This can be +-- used to determine the events in the history new since the last decision +-- task received by the decider. +pollForDecisionTaskResponse_previousStartedEventId :: Lens.Lens' PollForDecisionTaskResponse (Prelude.Maybe Prelude.Integer) +pollForDecisionTaskResponse_previousStartedEventId = Lens.lens (\PollForDecisionTaskResponse' {previousStartedEventId} -> previousStartedEventId) (\s@PollForDecisionTaskResponse' {} a -> s {previousStartedEventId = a} :: PollForDecisionTaskResponse) + +-- | The opaque string used as a handle on the task. This token is used by +-- workers to communicate progress and response information back to the +-- system about the task. +pollForDecisionTaskResponse_taskToken :: Lens.Lens' PollForDecisionTaskResponse (Prelude.Maybe Prelude.Text) +pollForDecisionTaskResponse_taskToken = Lens.lens (\PollForDecisionTaskResponse' {taskToken} -> taskToken) (\s@PollForDecisionTaskResponse' {} a -> s {taskToken = a} :: PollForDecisionTaskResponse) + +-- | The workflow execution for which this decision task was created. +pollForDecisionTaskResponse_workflowExecution :: Lens.Lens' PollForDecisionTaskResponse (Prelude.Maybe WorkflowExecution) +pollForDecisionTaskResponse_workflowExecution = Lens.lens (\PollForDecisionTaskResponse' {workflowExecution} -> workflowExecution) (\s@PollForDecisionTaskResponse' {} a -> s {workflowExecution = a} :: PollForDecisionTaskResponse) + +-- | The type of the workflow execution for which this decision task was +-- created. +pollForDecisionTaskResponse_workflowType :: Lens.Lens' PollForDecisionTaskResponse (Prelude.Maybe WorkflowType) +pollForDecisionTaskResponse_workflowType = Lens.lens (\PollForDecisionTaskResponse' {workflowType} -> workflowType) (\s@PollForDecisionTaskResponse' {} a -> s {workflowType = a} :: PollForDecisionTaskResponse) + +-- | The response's http status code. +pollForDecisionTaskResponse_httpStatus :: Lens.Lens' PollForDecisionTaskResponse Prelude.Int +pollForDecisionTaskResponse_httpStatus = Lens.lens (\PollForDecisionTaskResponse' {httpStatus} -> httpStatus) (\s@PollForDecisionTaskResponse' {} a -> s {httpStatus = a} :: PollForDecisionTaskResponse) + +-- | The ID of the @DecisionTaskStarted@ event recorded in the history. +pollForDecisionTaskResponse_startedEventId :: Lens.Lens' PollForDecisionTaskResponse Prelude.Integer +pollForDecisionTaskResponse_startedEventId = Lens.lens (\PollForDecisionTaskResponse' {startedEventId} -> startedEventId) (\s@PollForDecisionTaskResponse' {} a -> s {startedEventId = a} :: PollForDecisionTaskResponse) + +instance Prelude.NFData PollForDecisionTaskResponse where + rnf PollForDecisionTaskResponse' {..} = + Prelude.rnf events + `Prelude.seq` Prelude.rnf nextPageToken + `Prelude.seq` Prelude.rnf previousStartedEventId + `Prelude.seq` Prelude.rnf taskToken + `Prelude.seq` Prelude.rnf workflowExecution + `Prelude.seq` Prelude.rnf workflowType + `Prelude.seq` Prelude.rnf httpStatus + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/RecordActivityTaskHeartbeat.hs b/gen/Amazonka/SWF/RecordActivityTaskHeartbeat.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/RecordActivityTaskHeartbeat.hs @@ -0,0 +1,260 @@ +{-# 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.SWF.RecordActivityTaskHeartbeat +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Used by activity workers to report to the service that the ActivityTask +-- represented by the specified @taskToken@ is still making progress. The +-- worker can also specify details of the progress, for example percent +-- complete, using the @details@ parameter. This action can also be used by +-- the worker as a mechanism to check if cancellation is being requested +-- for the activity task. If a cancellation is being attempted for the +-- specified task, then the boolean @cancelRequested@ flag returned by the +-- service is set to @true@. +-- +-- This action resets the @taskHeartbeatTimeout@ clock. The +-- @taskHeartbeatTimeout@ is specified in RegisterActivityType. +-- +-- This action doesn\'t in itself create an event in the workflow execution +-- history. However, if the task times out, the workflow execution history +-- contains a @ActivityTaskTimedOut@ event that contains the information +-- from the last heartbeat generated by the activity worker. +-- +-- The @taskStartToCloseTimeout@ of an activity type is the maximum +-- duration of an activity task, regardless of the number of +-- RecordActivityTaskHeartbeat requests received. The +-- @taskStartToCloseTimeout@ is also specified in RegisterActivityType. +-- +-- This operation is only useful for long-lived activities to report +-- liveliness of the task and to determine if a cancellation is being +-- attempted. +-- +-- If the @cancelRequested@ flag returns @true@, a cancellation is being +-- attempted. If the worker can cancel the activity, it should respond with +-- RespondActivityTaskCanceled. Otherwise, it should ignore the +-- cancellation request. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.RecordActivityTaskHeartbeat + ( -- * Creating a Request + RecordActivityTaskHeartbeat (..), + newRecordActivityTaskHeartbeat, + + -- * Request Lenses + recordActivityTaskHeartbeat_details, + recordActivityTaskHeartbeat_taskToken, + + -- * Destructuring the Response + RecordActivityTaskHeartbeatResponse (..), + newRecordActivityTaskHeartbeatResponse, + + -- * Response Lenses + recordActivityTaskHeartbeatResponse_httpStatus, + recordActivityTaskHeartbeatResponse_cancelRequested, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newRecordActivityTaskHeartbeat' smart constructor. +data RecordActivityTaskHeartbeat = RecordActivityTaskHeartbeat' + { -- | If specified, contains details about the progress of the task. + details :: Prelude.Maybe Prelude.Text, + -- | The @taskToken@ of the ActivityTask. + -- + -- @taskToken@ is generated by the service and should be treated as an + -- opaque value. If the task is passed to another process, its @taskToken@ + -- must also be passed. This enables it to provide its progress and respond + -- with results. + taskToken :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RecordActivityTaskHeartbeat' 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: +-- +-- 'details', 'recordActivityTaskHeartbeat_details' - If specified, contains details about the progress of the task. +-- +-- 'taskToken', 'recordActivityTaskHeartbeat_taskToken' - The @taskToken@ of the ActivityTask. +-- +-- @taskToken@ is generated by the service and should be treated as an +-- opaque value. If the task is passed to another process, its @taskToken@ +-- must also be passed. This enables it to provide its progress and respond +-- with results. +newRecordActivityTaskHeartbeat :: + -- | 'taskToken' + Prelude.Text -> + RecordActivityTaskHeartbeat +newRecordActivityTaskHeartbeat pTaskToken_ = + RecordActivityTaskHeartbeat' + { details = + Prelude.Nothing, + taskToken = pTaskToken_ + } + +-- | If specified, contains details about the progress of the task. +recordActivityTaskHeartbeat_details :: Lens.Lens' RecordActivityTaskHeartbeat (Prelude.Maybe Prelude.Text) +recordActivityTaskHeartbeat_details = Lens.lens (\RecordActivityTaskHeartbeat' {details} -> details) (\s@RecordActivityTaskHeartbeat' {} a -> s {details = a} :: RecordActivityTaskHeartbeat) + +-- | The @taskToken@ of the ActivityTask. +-- +-- @taskToken@ is generated by the service and should be treated as an +-- opaque value. If the task is passed to another process, its @taskToken@ +-- must also be passed. This enables it to provide its progress and respond +-- with results. +recordActivityTaskHeartbeat_taskToken :: Lens.Lens' RecordActivityTaskHeartbeat Prelude.Text +recordActivityTaskHeartbeat_taskToken = Lens.lens (\RecordActivityTaskHeartbeat' {taskToken} -> taskToken) (\s@RecordActivityTaskHeartbeat' {} a -> s {taskToken = a} :: RecordActivityTaskHeartbeat) + +instance Core.AWSRequest RecordActivityTaskHeartbeat where + type + AWSResponse RecordActivityTaskHeartbeat = + RecordActivityTaskHeartbeatResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + RecordActivityTaskHeartbeatResponse' + Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) + Prelude.<*> (x Data..:> "cancelRequested") + ) + +instance Prelude.Hashable RecordActivityTaskHeartbeat where + hashWithSalt _salt RecordActivityTaskHeartbeat' {..} = + _salt + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` taskToken + +instance Prelude.NFData RecordActivityTaskHeartbeat where + rnf RecordActivityTaskHeartbeat' {..} = + Prelude.rnf details + `Prelude.seq` Prelude.rnf taskToken + +instance Data.ToHeaders RecordActivityTaskHeartbeat where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.RecordActivityTaskHeartbeat" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON RecordActivityTaskHeartbeat where + toJSON RecordActivityTaskHeartbeat' {..} = + Data.object + ( Prelude.catMaybes + [ ("details" Data..=) Prelude.<$> details, + Prelude.Just ("taskToken" Data..= taskToken) + ] + ) + +instance Data.ToPath RecordActivityTaskHeartbeat where + toPath = Prelude.const "/" + +instance Data.ToQuery RecordActivityTaskHeartbeat where + toQuery = Prelude.const Prelude.mempty + +-- | Status information about an activity task. +-- +-- /See:/ 'newRecordActivityTaskHeartbeatResponse' smart constructor. +data RecordActivityTaskHeartbeatResponse = RecordActivityTaskHeartbeatResponse' + { -- | The response's http status code. + httpStatus :: Prelude.Int, + -- | Set to @true@ if cancellation of the task is requested. + cancelRequested :: Prelude.Bool + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RecordActivityTaskHeartbeatResponse' 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', 'recordActivityTaskHeartbeatResponse_httpStatus' - The response's http status code. +-- +-- 'cancelRequested', 'recordActivityTaskHeartbeatResponse_cancelRequested' - Set to @true@ if cancellation of the task is requested. +newRecordActivityTaskHeartbeatResponse :: + -- | 'httpStatus' + Prelude.Int -> + -- | 'cancelRequested' + Prelude.Bool -> + RecordActivityTaskHeartbeatResponse +newRecordActivityTaskHeartbeatResponse + pHttpStatus_ + pCancelRequested_ = + RecordActivityTaskHeartbeatResponse' + { httpStatus = + pHttpStatus_, + cancelRequested = pCancelRequested_ + } + +-- | The response's http status code. +recordActivityTaskHeartbeatResponse_httpStatus :: Lens.Lens' RecordActivityTaskHeartbeatResponse Prelude.Int +recordActivityTaskHeartbeatResponse_httpStatus = Lens.lens (\RecordActivityTaskHeartbeatResponse' {httpStatus} -> httpStatus) (\s@RecordActivityTaskHeartbeatResponse' {} a -> s {httpStatus = a} :: RecordActivityTaskHeartbeatResponse) + +-- | Set to @true@ if cancellation of the task is requested. +recordActivityTaskHeartbeatResponse_cancelRequested :: Lens.Lens' RecordActivityTaskHeartbeatResponse Prelude.Bool +recordActivityTaskHeartbeatResponse_cancelRequested = Lens.lens (\RecordActivityTaskHeartbeatResponse' {cancelRequested} -> cancelRequested) (\s@RecordActivityTaskHeartbeatResponse' {} a -> s {cancelRequested = a} :: RecordActivityTaskHeartbeatResponse) + +instance + Prelude.NFData + RecordActivityTaskHeartbeatResponse + where + rnf RecordActivityTaskHeartbeatResponse' {..} = + Prelude.rnf httpStatus + `Prelude.seq` Prelude.rnf cancelRequested diff --git a/gen/Amazonka/SWF/RegisterActivityType.hs b/gen/Amazonka/SWF/RegisterActivityType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/RegisterActivityType.hs @@ -0,0 +1,449 @@ +{-# 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.SWF.RegisterActivityType +-- 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 a new /activity type/ along with its configuration settings in +-- the specified domain. +-- +-- A @TypeAlreadyExists@ fault is returned if the type already exists in +-- the domain. You cannot change any configuration settings of the type +-- after its registration, and it must be registered as a new version. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the following parameters by using a @Condition@ element +-- with the appropriate keys. +-- +-- - @defaultTaskList.name@: String constraint. The key is +-- @swf:defaultTaskList.name@. +-- +-- - @name@: String constraint. The key is @swf:name@. +-- +-- - @version@: String constraint. The key is @swf:version@. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.RegisterActivityType + ( -- * Creating a Request + RegisterActivityType (..), + newRegisterActivityType, + + -- * Request Lenses + registerActivityType_defaultTaskHeartbeatTimeout, + registerActivityType_defaultTaskList, + registerActivityType_defaultTaskPriority, + registerActivityType_defaultTaskScheduleToCloseTimeout, + registerActivityType_defaultTaskScheduleToStartTimeout, + registerActivityType_defaultTaskStartToCloseTimeout, + registerActivityType_description, + registerActivityType_domain, + registerActivityType_name, + registerActivityType_version, + + -- * Destructuring the Response + RegisterActivityTypeResponse (..), + newRegisterActivityTypeResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newRegisterActivityType' smart constructor. +data RegisterActivityType = RegisterActivityType' + { -- | If set, specifies the default maximum time before which a worker + -- processing a task of this type must report progress by calling + -- RecordActivityTaskHeartbeat. If the timeout is exceeded, the activity + -- task is automatically timed out. This default can be overridden when + -- scheduling an activity task using the @ScheduleActivityTask@ Decision. + -- If the activity worker subsequently attempts to record a heartbeat or + -- returns a result, the activity worker receives an @UnknownResource@ + -- fault. In this case, Amazon SWF no longer considers the activity task to + -- be valid; the activity worker should clean up the activity task. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + defaultTaskHeartbeatTimeout :: Prelude.Maybe Prelude.Text, + -- | If set, specifies the default task list to use for scheduling tasks of + -- this activity type. This default task list is used if a task list isn\'t + -- provided when a task is scheduled through the @ScheduleActivityTask@ + -- Decision. + defaultTaskList :: Prelude.Maybe TaskList, + -- | The default task priority to assign to the activity type. If not + -- assigned, then @0@ is used. Valid values are integers that range from + -- Java\'s @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ + -- (2147483647). Higher numbers indicate higher priority. + -- + -- For more information about setting task priority, see + -- + -- in the /in the /Amazon SWF Developer Guide/./. + defaultTaskPriority :: Prelude.Maybe Prelude.Text, + -- | If set, specifies the default maximum duration for a task of this + -- activity type. This default can be overridden when scheduling an + -- activity task using the @ScheduleActivityTask@ Decision. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + defaultTaskScheduleToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | If set, specifies the default maximum duration that a task of this + -- activity type can wait before being assigned to a worker. This default + -- can be overridden when scheduling an activity task using the + -- @ScheduleActivityTask@ Decision. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + defaultTaskScheduleToStartTimeout :: Prelude.Maybe Prelude.Text, + -- | If set, specifies the default maximum duration that a worker can take to + -- process tasks of this activity type. This default can be overridden when + -- scheduling an activity task using the @ScheduleActivityTask@ Decision. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + defaultTaskStartToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | A textual description of the activity type. + description :: Prelude.Maybe Prelude.Text, + -- | The name of the domain in which this activity is to be registered. + domain :: Prelude.Text, + -- | The name of the activity type within the domain. + -- + -- The specified string must not start or end with whitespace. It must not + -- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control + -- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not + -- /be/ the literal string @arn@. + name :: Prelude.Text, + -- | The version of the activity type. + -- + -- The activity type consists of the name and version, the combination of + -- which must be unique within the domain. + -- + -- The specified string must not start or end with whitespace. It must not + -- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control + -- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not + -- /be/ the literal string @arn@. + version :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RegisterActivityType' 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: +-- +-- 'defaultTaskHeartbeatTimeout', 'registerActivityType_defaultTaskHeartbeatTimeout' - If set, specifies the default maximum time before which a worker +-- processing a task of this type must report progress by calling +-- RecordActivityTaskHeartbeat. If the timeout is exceeded, the activity +-- task is automatically timed out. This default can be overridden when +-- scheduling an activity task using the @ScheduleActivityTask@ Decision. +-- If the activity worker subsequently attempts to record a heartbeat or +-- returns a result, the activity worker receives an @UnknownResource@ +-- fault. In this case, Amazon SWF no longer considers the activity task to +-- be valid; the activity worker should clean up the activity task. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'defaultTaskList', 'registerActivityType_defaultTaskList' - If set, specifies the default task list to use for scheduling tasks of +-- this activity type. This default task list is used if a task list isn\'t +-- provided when a task is scheduled through the @ScheduleActivityTask@ +-- Decision. +-- +-- 'defaultTaskPriority', 'registerActivityType_defaultTaskPriority' - The default task priority to assign to the activity type. If not +-- assigned, then @0@ is used. Valid values are integers that range from +-- Java\'s @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ +-- (2147483647). Higher numbers indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /in the /Amazon SWF Developer Guide/./. +-- +-- 'defaultTaskScheduleToCloseTimeout', 'registerActivityType_defaultTaskScheduleToCloseTimeout' - If set, specifies the default maximum duration for a task of this +-- activity type. This default can be overridden when scheduling an +-- activity task using the @ScheduleActivityTask@ Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'defaultTaskScheduleToStartTimeout', 'registerActivityType_defaultTaskScheduleToStartTimeout' - If set, specifies the default maximum duration that a task of this +-- activity type can wait before being assigned to a worker. This default +-- can be overridden when scheduling an activity task using the +-- @ScheduleActivityTask@ Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'defaultTaskStartToCloseTimeout', 'registerActivityType_defaultTaskStartToCloseTimeout' - If set, specifies the default maximum duration that a worker can take to +-- process tasks of this activity type. This default can be overridden when +-- scheduling an activity task using the @ScheduleActivityTask@ Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'description', 'registerActivityType_description' - A textual description of the activity type. +-- +-- 'domain', 'registerActivityType_domain' - The name of the domain in which this activity is to be registered. +-- +-- 'name', 'registerActivityType_name' - The name of the activity type within the domain. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +-- +-- 'version', 'registerActivityType_version' - The version of the activity type. +-- +-- The activity type consists of the name and version, the combination of +-- which must be unique within the domain. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +newRegisterActivityType :: + -- | 'domain' + Prelude.Text -> + -- | 'name' + Prelude.Text -> + -- | 'version' + Prelude.Text -> + RegisterActivityType +newRegisterActivityType pDomain_ pName_ pVersion_ = + RegisterActivityType' + { defaultTaskHeartbeatTimeout = + Prelude.Nothing, + defaultTaskList = Prelude.Nothing, + defaultTaskPriority = Prelude.Nothing, + defaultTaskScheduleToCloseTimeout = Prelude.Nothing, + defaultTaskScheduleToStartTimeout = Prelude.Nothing, + defaultTaskStartToCloseTimeout = Prelude.Nothing, + description = Prelude.Nothing, + domain = pDomain_, + name = pName_, + version = pVersion_ + } + +-- | If set, specifies the default maximum time before which a worker +-- processing a task of this type must report progress by calling +-- RecordActivityTaskHeartbeat. If the timeout is exceeded, the activity +-- task is automatically timed out. This default can be overridden when +-- scheduling an activity task using the @ScheduleActivityTask@ Decision. +-- If the activity worker subsequently attempts to record a heartbeat or +-- returns a result, the activity worker receives an @UnknownResource@ +-- fault. In this case, Amazon SWF no longer considers the activity task to +-- be valid; the activity worker should clean up the activity task. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +registerActivityType_defaultTaskHeartbeatTimeout :: Lens.Lens' RegisterActivityType (Prelude.Maybe Prelude.Text) +registerActivityType_defaultTaskHeartbeatTimeout = Lens.lens (\RegisterActivityType' {defaultTaskHeartbeatTimeout} -> defaultTaskHeartbeatTimeout) (\s@RegisterActivityType' {} a -> s {defaultTaskHeartbeatTimeout = a} :: RegisterActivityType) + +-- | If set, specifies the default task list to use for scheduling tasks of +-- this activity type. This default task list is used if a task list isn\'t +-- provided when a task is scheduled through the @ScheduleActivityTask@ +-- Decision. +registerActivityType_defaultTaskList :: Lens.Lens' RegisterActivityType (Prelude.Maybe TaskList) +registerActivityType_defaultTaskList = Lens.lens (\RegisterActivityType' {defaultTaskList} -> defaultTaskList) (\s@RegisterActivityType' {} a -> s {defaultTaskList = a} :: RegisterActivityType) + +-- | The default task priority to assign to the activity type. If not +-- assigned, then @0@ is used. Valid values are integers that range from +-- Java\'s @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ +-- (2147483647). Higher numbers indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /in the /Amazon SWF Developer Guide/./. +registerActivityType_defaultTaskPriority :: Lens.Lens' RegisterActivityType (Prelude.Maybe Prelude.Text) +registerActivityType_defaultTaskPriority = Lens.lens (\RegisterActivityType' {defaultTaskPriority} -> defaultTaskPriority) (\s@RegisterActivityType' {} a -> s {defaultTaskPriority = a} :: RegisterActivityType) + +-- | If set, specifies the default maximum duration for a task of this +-- activity type. This default can be overridden when scheduling an +-- activity task using the @ScheduleActivityTask@ Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +registerActivityType_defaultTaskScheduleToCloseTimeout :: Lens.Lens' RegisterActivityType (Prelude.Maybe Prelude.Text) +registerActivityType_defaultTaskScheduleToCloseTimeout = Lens.lens (\RegisterActivityType' {defaultTaskScheduleToCloseTimeout} -> defaultTaskScheduleToCloseTimeout) (\s@RegisterActivityType' {} a -> s {defaultTaskScheduleToCloseTimeout = a} :: RegisterActivityType) + +-- | If set, specifies the default maximum duration that a task of this +-- activity type can wait before being assigned to a worker. This default +-- can be overridden when scheduling an activity task using the +-- @ScheduleActivityTask@ Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +registerActivityType_defaultTaskScheduleToStartTimeout :: Lens.Lens' RegisterActivityType (Prelude.Maybe Prelude.Text) +registerActivityType_defaultTaskScheduleToStartTimeout = Lens.lens (\RegisterActivityType' {defaultTaskScheduleToStartTimeout} -> defaultTaskScheduleToStartTimeout) (\s@RegisterActivityType' {} a -> s {defaultTaskScheduleToStartTimeout = a} :: RegisterActivityType) + +-- | If set, specifies the default maximum duration that a worker can take to +-- process tasks of this activity type. This default can be overridden when +-- scheduling an activity task using the @ScheduleActivityTask@ Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +registerActivityType_defaultTaskStartToCloseTimeout :: Lens.Lens' RegisterActivityType (Prelude.Maybe Prelude.Text) +registerActivityType_defaultTaskStartToCloseTimeout = Lens.lens (\RegisterActivityType' {defaultTaskStartToCloseTimeout} -> defaultTaskStartToCloseTimeout) (\s@RegisterActivityType' {} a -> s {defaultTaskStartToCloseTimeout = a} :: RegisterActivityType) + +-- | A textual description of the activity type. +registerActivityType_description :: Lens.Lens' RegisterActivityType (Prelude.Maybe Prelude.Text) +registerActivityType_description = Lens.lens (\RegisterActivityType' {description} -> description) (\s@RegisterActivityType' {} a -> s {description = a} :: RegisterActivityType) + +-- | The name of the domain in which this activity is to be registered. +registerActivityType_domain :: Lens.Lens' RegisterActivityType Prelude.Text +registerActivityType_domain = Lens.lens (\RegisterActivityType' {domain} -> domain) (\s@RegisterActivityType' {} a -> s {domain = a} :: RegisterActivityType) + +-- | The name of the activity type within the domain. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +registerActivityType_name :: Lens.Lens' RegisterActivityType Prelude.Text +registerActivityType_name = Lens.lens (\RegisterActivityType' {name} -> name) (\s@RegisterActivityType' {} a -> s {name = a} :: RegisterActivityType) + +-- | The version of the activity type. +-- +-- The activity type consists of the name and version, the combination of +-- which must be unique within the domain. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +registerActivityType_version :: Lens.Lens' RegisterActivityType Prelude.Text +registerActivityType_version = Lens.lens (\RegisterActivityType' {version} -> version) (\s@RegisterActivityType' {} a -> s {version = a} :: RegisterActivityType) + +instance Core.AWSRequest RegisterActivityType where + type + AWSResponse RegisterActivityType = + RegisterActivityTypeResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull RegisterActivityTypeResponse' + +instance Prelude.Hashable RegisterActivityType where + hashWithSalt _salt RegisterActivityType' {..} = + _salt + `Prelude.hashWithSalt` defaultTaskHeartbeatTimeout + `Prelude.hashWithSalt` defaultTaskList + `Prelude.hashWithSalt` defaultTaskPriority + `Prelude.hashWithSalt` defaultTaskScheduleToCloseTimeout + `Prelude.hashWithSalt` defaultTaskScheduleToStartTimeout + `Prelude.hashWithSalt` defaultTaskStartToCloseTimeout + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` name + `Prelude.hashWithSalt` version + +instance Prelude.NFData RegisterActivityType where + rnf RegisterActivityType' {..} = + Prelude.rnf defaultTaskHeartbeatTimeout + `Prelude.seq` Prelude.rnf defaultTaskList + `Prelude.seq` Prelude.rnf defaultTaskPriority + `Prelude.seq` Prelude.rnf defaultTaskScheduleToCloseTimeout + `Prelude.seq` Prelude.rnf defaultTaskScheduleToStartTimeout + `Prelude.seq` Prelude.rnf defaultTaskStartToCloseTimeout + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf domain + `Prelude.seq` Prelude.rnf name + `Prelude.seq` Prelude.rnf version + +instance Data.ToHeaders RegisterActivityType where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.RegisterActivityType" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON RegisterActivityType where + toJSON RegisterActivityType' {..} = + Data.object + ( Prelude.catMaybes + [ ("defaultTaskHeartbeatTimeout" Data..=) + Prelude.<$> defaultTaskHeartbeatTimeout, + ("defaultTaskList" Data..=) + Prelude.<$> defaultTaskList, + ("defaultTaskPriority" Data..=) + Prelude.<$> defaultTaskPriority, + ("defaultTaskScheduleToCloseTimeout" Data..=) + Prelude.<$> defaultTaskScheduleToCloseTimeout, + ("defaultTaskScheduleToStartTimeout" Data..=) + Prelude.<$> defaultTaskScheduleToStartTimeout, + ("defaultTaskStartToCloseTimeout" Data..=) + Prelude.<$> defaultTaskStartToCloseTimeout, + ("description" Data..=) Prelude.<$> description, + Prelude.Just ("domain" Data..= domain), + Prelude.Just ("name" Data..= name), + Prelude.Just ("version" Data..= version) + ] + ) + +instance Data.ToPath RegisterActivityType where + toPath = Prelude.const "/" + +instance Data.ToQuery RegisterActivityType where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newRegisterActivityTypeResponse' smart constructor. +data RegisterActivityTypeResponse = RegisterActivityTypeResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RegisterActivityTypeResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newRegisterActivityTypeResponse :: + RegisterActivityTypeResponse +newRegisterActivityTypeResponse = + RegisterActivityTypeResponse' + +instance Prelude.NFData RegisterActivityTypeResponse where + rnf _ = () diff --git a/gen/Amazonka/SWF/RegisterDomain.hs b/gen/Amazonka/SWF/RegisterDomain.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/RegisterDomain.hs @@ -0,0 +1,268 @@ +{-# 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.SWF.RegisterDomain +-- 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 a new domain. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - You cannot use an IAM policy to control domain access for this +-- action. The name of the domain being registered is available as the +-- resource of this action. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.RegisterDomain + ( -- * Creating a Request + RegisterDomain (..), + newRegisterDomain, + + -- * Request Lenses + registerDomain_description, + registerDomain_tags, + registerDomain_name, + registerDomain_workflowExecutionRetentionPeriodInDays, + + -- * Destructuring the Response + RegisterDomainResponse (..), + newRegisterDomainResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newRegisterDomain' smart constructor. +data RegisterDomain = RegisterDomain' + { -- | A text description of the domain. + description :: Prelude.Maybe Prelude.Text, + -- | Tags to be added when registering a domain. + -- + -- Tags may only contain unicode letters, digits, whitespace, or these + -- symbols: @_ . : \/ = + - \@@. + tags :: Prelude.Maybe [ResourceTag], + -- | Name of the domain to register. The name must be unique in the region + -- that the domain is registered in. + -- + -- The specified string must not start or end with whitespace. It must not + -- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control + -- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not + -- /be/ the literal string @arn@. + name :: Prelude.Text, + -- | The duration (in days) that records and histories of workflow executions + -- on the domain should be kept by the service. After the retention period, + -- the workflow execution isn\'t available in the results of visibility + -- calls. + -- + -- If you pass the value @NONE@ or @0@ (zero), then the workflow execution + -- history isn\'t retained. As soon as the workflow execution completes, + -- the execution record and its history are deleted. + -- + -- The maximum workflow execution retention period is 90 days. For more + -- information about Amazon SWF service limits, see: + -- + -- in the /Amazon SWF Developer Guide/. + workflowExecutionRetentionPeriodInDays :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RegisterDomain' 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', 'registerDomain_description' - A text description of the domain. +-- +-- 'tags', 'registerDomain_tags' - Tags to be added when registering a domain. +-- +-- Tags may only contain unicode letters, digits, whitespace, or these +-- symbols: @_ . : \/ = + - \@@. +-- +-- 'name', 'registerDomain_name' - Name of the domain to register. The name must be unique in the region +-- that the domain is registered in. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +-- +-- 'workflowExecutionRetentionPeriodInDays', 'registerDomain_workflowExecutionRetentionPeriodInDays' - The duration (in days) that records and histories of workflow executions +-- on the domain should be kept by the service. After the retention period, +-- the workflow execution isn\'t available in the results of visibility +-- calls. +-- +-- If you pass the value @NONE@ or @0@ (zero), then the workflow execution +-- history isn\'t retained. As soon as the workflow execution completes, +-- the execution record and its history are deleted. +-- +-- The maximum workflow execution retention period is 90 days. For more +-- information about Amazon SWF service limits, see: +-- +-- in the /Amazon SWF Developer Guide/. +newRegisterDomain :: + -- | 'name' + Prelude.Text -> + -- | 'workflowExecutionRetentionPeriodInDays' + Prelude.Text -> + RegisterDomain +newRegisterDomain + pName_ + pWorkflowExecutionRetentionPeriodInDays_ = + RegisterDomain' + { description = Prelude.Nothing, + tags = Prelude.Nothing, + name = pName_, + workflowExecutionRetentionPeriodInDays = + pWorkflowExecutionRetentionPeriodInDays_ + } + +-- | A text description of the domain. +registerDomain_description :: Lens.Lens' RegisterDomain (Prelude.Maybe Prelude.Text) +registerDomain_description = Lens.lens (\RegisterDomain' {description} -> description) (\s@RegisterDomain' {} a -> s {description = a} :: RegisterDomain) + +-- | Tags to be added when registering a domain. +-- +-- Tags may only contain unicode letters, digits, whitespace, or these +-- symbols: @_ . : \/ = + - \@@. +registerDomain_tags :: Lens.Lens' RegisterDomain (Prelude.Maybe [ResourceTag]) +registerDomain_tags = Lens.lens (\RegisterDomain' {tags} -> tags) (\s@RegisterDomain' {} a -> s {tags = a} :: RegisterDomain) Prelude.. Lens.mapping Lens.coerced + +-- | Name of the domain to register. The name must be unique in the region +-- that the domain is registered in. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +registerDomain_name :: Lens.Lens' RegisterDomain Prelude.Text +registerDomain_name = Lens.lens (\RegisterDomain' {name} -> name) (\s@RegisterDomain' {} a -> s {name = a} :: RegisterDomain) + +-- | The duration (in days) that records and histories of workflow executions +-- on the domain should be kept by the service. After the retention period, +-- the workflow execution isn\'t available in the results of visibility +-- calls. +-- +-- If you pass the value @NONE@ or @0@ (zero), then the workflow execution +-- history isn\'t retained. As soon as the workflow execution completes, +-- the execution record and its history are deleted. +-- +-- The maximum workflow execution retention period is 90 days. For more +-- information about Amazon SWF service limits, see: +-- +-- in the /Amazon SWF Developer Guide/. +registerDomain_workflowExecutionRetentionPeriodInDays :: Lens.Lens' RegisterDomain Prelude.Text +registerDomain_workflowExecutionRetentionPeriodInDays = Lens.lens (\RegisterDomain' {workflowExecutionRetentionPeriodInDays} -> workflowExecutionRetentionPeriodInDays) (\s@RegisterDomain' {} a -> s {workflowExecutionRetentionPeriodInDays = a} :: RegisterDomain) + +instance Core.AWSRequest RegisterDomain where + type + AWSResponse RegisterDomain = + RegisterDomainResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull RegisterDomainResponse' + +instance Prelude.Hashable RegisterDomain where + hashWithSalt _salt RegisterDomain' {..} = + _salt + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` tags + `Prelude.hashWithSalt` name + `Prelude.hashWithSalt` workflowExecutionRetentionPeriodInDays + +instance Prelude.NFData RegisterDomain where + rnf RegisterDomain' {..} = + Prelude.rnf description + `Prelude.seq` Prelude.rnf tags + `Prelude.seq` Prelude.rnf name + `Prelude.seq` Prelude.rnf workflowExecutionRetentionPeriodInDays + +instance Data.ToHeaders RegisterDomain where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.RegisterDomain" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON RegisterDomain where + toJSON RegisterDomain' {..} = + Data.object + ( Prelude.catMaybes + [ ("description" Data..=) Prelude.<$> description, + ("tags" Data..=) Prelude.<$> tags, + Prelude.Just ("name" Data..= name), + Prelude.Just + ( "workflowExecutionRetentionPeriodInDays" + Data..= workflowExecutionRetentionPeriodInDays + ) + ] + ) + +instance Data.ToPath RegisterDomain where + toPath = Prelude.const "/" + +instance Data.ToQuery RegisterDomain where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newRegisterDomainResponse' smart constructor. +data RegisterDomainResponse = RegisterDomainResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RegisterDomainResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newRegisterDomainResponse :: + RegisterDomainResponse +newRegisterDomainResponse = RegisterDomainResponse' + +instance Prelude.NFData RegisterDomainResponse where + rnf _ = () diff --git a/gen/Amazonka/SWF/RegisterWorkflowType.hs b/gen/Amazonka/SWF/RegisterWorkflowType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/RegisterWorkflowType.hs @@ -0,0 +1,495 @@ +{-# 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.SWF.RegisterWorkflowType +-- 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 a new /workflow type/ and its configuration settings in the +-- specified domain. +-- +-- The retention period for the workflow history is set by the +-- RegisterDomain action. +-- +-- If the type already exists, then a @TypeAlreadyExists@ fault is +-- returned. You cannot change the configuration settings of a workflow +-- type once it is registered and it must be registered as a new version. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the following parameters by using a @Condition@ element +-- with the appropriate keys. +-- +-- - @defaultTaskList.name@: String constraint. The key is +-- @swf:defaultTaskList.name@. +-- +-- - @name@: String constraint. The key is @swf:name@. +-- +-- - @version@: String constraint. The key is @swf:version@. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.RegisterWorkflowType + ( -- * Creating a Request + RegisterWorkflowType (..), + newRegisterWorkflowType, + + -- * Request Lenses + registerWorkflowType_defaultChildPolicy, + registerWorkflowType_defaultExecutionStartToCloseTimeout, + registerWorkflowType_defaultLambdaRole, + registerWorkflowType_defaultTaskList, + registerWorkflowType_defaultTaskPriority, + registerWorkflowType_defaultTaskStartToCloseTimeout, + registerWorkflowType_description, + registerWorkflowType_domain, + registerWorkflowType_name, + registerWorkflowType_version, + + -- * Destructuring the Response + RegisterWorkflowTypeResponse (..), + newRegisterWorkflowTypeResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newRegisterWorkflowType' smart constructor. +data RegisterWorkflowType = RegisterWorkflowType' + { -- | If set, specifies the default policy to use for the child workflow + -- executions when a workflow execution of this type is terminated, by + -- calling the TerminateWorkflowExecution action explicitly or due to an + -- expired timeout. This default can be overridden when starting a workflow + -- execution using the StartWorkflowExecution action or the + -- @StartChildWorkflowExecution@ Decision. + -- + -- The supported child policies are: + -- + -- - @TERMINATE@ – The child executions are terminated. + -- + -- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child + -- execution by recording a @WorkflowExecutionCancelRequested@ event in + -- its history. It is up to the decider to take appropriate actions + -- when it receives an execution history with this event. + -- + -- - @ABANDON@ – No action is taken. The child executions continue to + -- run. + defaultChildPolicy :: Prelude.Maybe ChildPolicy, + -- | If set, specifies the default maximum duration for executions of this + -- workflow type. You can override this default when starting an execution + -- through the StartWorkflowExecution Action or + -- @StartChildWorkflowExecution@ Decision. + -- + -- The duration is specified in seconds; an integer greater than or equal + -- to 0. Unlike some of the other timeout parameters in Amazon SWF, you + -- cannot specify a value of \"NONE\" for + -- @defaultExecutionStartToCloseTimeout@; there is a one-year max limit on + -- the time that a workflow execution can run. Exceeding this limit always + -- causes the workflow execution to time out. + defaultExecutionStartToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The default IAM role attached to this workflow type. + -- + -- Executions of this workflow type need IAM roles to invoke Lambda + -- functions. If you don\'t specify an IAM role when you start this + -- workflow type, the default Lambda role is attached to the execution. For + -- more information, see + -- + -- in the /Amazon SWF Developer Guide/. + defaultLambdaRole :: Prelude.Maybe Prelude.Text, + -- | If set, specifies the default task list to use for scheduling decision + -- tasks for executions of this workflow type. This default is used only if + -- a task list isn\'t provided when starting the execution through the + -- StartWorkflowExecution Action or @StartChildWorkflowExecution@ Decision. + defaultTaskList :: Prelude.Maybe TaskList, + -- | The default task priority to assign to the workflow type. If not + -- assigned, then @0@ is used. Valid values are integers that range from + -- Java\'s @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ + -- (2147483647). Higher numbers indicate higher priority. + -- + -- For more information about setting task priority, see + -- + -- in the /Amazon SWF Developer Guide/. + defaultTaskPriority :: Prelude.Maybe Prelude.Text, + -- | If set, specifies the default maximum duration of decision tasks for + -- this workflow type. This default can be overridden when starting a + -- workflow execution using the StartWorkflowExecution action or the + -- @StartChildWorkflowExecution@ Decision. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + defaultTaskStartToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | Textual description of the workflow type. + description :: Prelude.Maybe Prelude.Text, + -- | The name of the domain in which to register the workflow type. + domain :: Prelude.Text, + -- | The name of the workflow type. + -- + -- The specified string must not start or end with whitespace. It must not + -- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control + -- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not + -- /be/ the literal string @arn@. + name :: Prelude.Text, + -- | The version of the workflow type. + -- + -- The workflow type consists of the name and version, the combination of + -- which must be unique within the domain. To get a list of all currently + -- registered workflow types, use the ListWorkflowTypes action. + -- + -- The specified string must not start or end with whitespace. It must not + -- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control + -- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not + -- /be/ the literal string @arn@. + version :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RegisterWorkflowType' 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: +-- +-- 'defaultChildPolicy', 'registerWorkflowType_defaultChildPolicy' - If set, specifies the default policy to use for the child workflow +-- executions when a workflow execution of this type is terminated, by +-- calling the TerminateWorkflowExecution action explicitly or due to an +-- expired timeout. This default can be overridden when starting a workflow +-- execution using the StartWorkflowExecution action or the +-- @StartChildWorkflowExecution@ Decision. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +-- +-- 'defaultExecutionStartToCloseTimeout', 'registerWorkflowType_defaultExecutionStartToCloseTimeout' - If set, specifies the default maximum duration for executions of this +-- workflow type. You can override this default when starting an execution +-- through the StartWorkflowExecution Action or +-- @StartChildWorkflowExecution@ Decision. +-- +-- The duration is specified in seconds; an integer greater than or equal +-- to 0. Unlike some of the other timeout parameters in Amazon SWF, you +-- cannot specify a value of \"NONE\" for +-- @defaultExecutionStartToCloseTimeout@; there is a one-year max limit on +-- the time that a workflow execution can run. Exceeding this limit always +-- causes the workflow execution to time out. +-- +-- 'defaultLambdaRole', 'registerWorkflowType_defaultLambdaRole' - The default IAM role attached to this workflow type. +-- +-- Executions of this workflow type need IAM roles to invoke Lambda +-- functions. If you don\'t specify an IAM role when you start this +-- workflow type, the default Lambda role is attached to the execution. For +-- more information, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'defaultTaskList', 'registerWorkflowType_defaultTaskList' - If set, specifies the default task list to use for scheduling decision +-- tasks for executions of this workflow type. This default is used only if +-- a task list isn\'t provided when starting the execution through the +-- StartWorkflowExecution Action or @StartChildWorkflowExecution@ Decision. +-- +-- 'defaultTaskPriority', 'registerWorkflowType_defaultTaskPriority' - The default task priority to assign to the workflow type. If not +-- assigned, then @0@ is used. Valid values are integers that range from +-- Java\'s @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ +-- (2147483647). Higher numbers indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'defaultTaskStartToCloseTimeout', 'registerWorkflowType_defaultTaskStartToCloseTimeout' - If set, specifies the default maximum duration of decision tasks for +-- this workflow type. This default can be overridden when starting a +-- workflow execution using the StartWorkflowExecution action or the +-- @StartChildWorkflowExecution@ Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'description', 'registerWorkflowType_description' - Textual description of the workflow type. +-- +-- 'domain', 'registerWorkflowType_domain' - The name of the domain in which to register the workflow type. +-- +-- 'name', 'registerWorkflowType_name' - The name of the workflow type. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +-- +-- 'version', 'registerWorkflowType_version' - The version of the workflow type. +-- +-- The workflow type consists of the name and version, the combination of +-- which must be unique within the domain. To get a list of all currently +-- registered workflow types, use the ListWorkflowTypes action. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +newRegisterWorkflowType :: + -- | 'domain' + Prelude.Text -> + -- | 'name' + Prelude.Text -> + -- | 'version' + Prelude.Text -> + RegisterWorkflowType +newRegisterWorkflowType pDomain_ pName_ pVersion_ = + RegisterWorkflowType' + { defaultChildPolicy = + Prelude.Nothing, + defaultExecutionStartToCloseTimeout = + Prelude.Nothing, + defaultLambdaRole = Prelude.Nothing, + defaultTaskList = Prelude.Nothing, + defaultTaskPriority = Prelude.Nothing, + defaultTaskStartToCloseTimeout = Prelude.Nothing, + description = Prelude.Nothing, + domain = pDomain_, + name = pName_, + version = pVersion_ + } + +-- | If set, specifies the default policy to use for the child workflow +-- executions when a workflow execution of this type is terminated, by +-- calling the TerminateWorkflowExecution action explicitly or due to an +-- expired timeout. This default can be overridden when starting a workflow +-- execution using the StartWorkflowExecution action or the +-- @StartChildWorkflowExecution@ Decision. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +registerWorkflowType_defaultChildPolicy :: Lens.Lens' RegisterWorkflowType (Prelude.Maybe ChildPolicy) +registerWorkflowType_defaultChildPolicy = Lens.lens (\RegisterWorkflowType' {defaultChildPolicy} -> defaultChildPolicy) (\s@RegisterWorkflowType' {} a -> s {defaultChildPolicy = a} :: RegisterWorkflowType) + +-- | If set, specifies the default maximum duration for executions of this +-- workflow type. You can override this default when starting an execution +-- through the StartWorkflowExecution Action or +-- @StartChildWorkflowExecution@ Decision. +-- +-- The duration is specified in seconds; an integer greater than or equal +-- to 0. Unlike some of the other timeout parameters in Amazon SWF, you +-- cannot specify a value of \"NONE\" for +-- @defaultExecutionStartToCloseTimeout@; there is a one-year max limit on +-- the time that a workflow execution can run. Exceeding this limit always +-- causes the workflow execution to time out. +registerWorkflowType_defaultExecutionStartToCloseTimeout :: Lens.Lens' RegisterWorkflowType (Prelude.Maybe Prelude.Text) +registerWorkflowType_defaultExecutionStartToCloseTimeout = Lens.lens (\RegisterWorkflowType' {defaultExecutionStartToCloseTimeout} -> defaultExecutionStartToCloseTimeout) (\s@RegisterWorkflowType' {} a -> s {defaultExecutionStartToCloseTimeout = a} :: RegisterWorkflowType) + +-- | The default IAM role attached to this workflow type. +-- +-- Executions of this workflow type need IAM roles to invoke Lambda +-- functions. If you don\'t specify an IAM role when you start this +-- workflow type, the default Lambda role is attached to the execution. For +-- more information, see +-- +-- in the /Amazon SWF Developer Guide/. +registerWorkflowType_defaultLambdaRole :: Lens.Lens' RegisterWorkflowType (Prelude.Maybe Prelude.Text) +registerWorkflowType_defaultLambdaRole = Lens.lens (\RegisterWorkflowType' {defaultLambdaRole} -> defaultLambdaRole) (\s@RegisterWorkflowType' {} a -> s {defaultLambdaRole = a} :: RegisterWorkflowType) + +-- | If set, specifies the default task list to use for scheduling decision +-- tasks for executions of this workflow type. This default is used only if +-- a task list isn\'t provided when starting the execution through the +-- StartWorkflowExecution Action or @StartChildWorkflowExecution@ Decision. +registerWorkflowType_defaultTaskList :: Lens.Lens' RegisterWorkflowType (Prelude.Maybe TaskList) +registerWorkflowType_defaultTaskList = Lens.lens (\RegisterWorkflowType' {defaultTaskList} -> defaultTaskList) (\s@RegisterWorkflowType' {} a -> s {defaultTaskList = a} :: RegisterWorkflowType) + +-- | The default task priority to assign to the workflow type. If not +-- assigned, then @0@ is used. Valid values are integers that range from +-- Java\'s @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ +-- (2147483647). Higher numbers indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +registerWorkflowType_defaultTaskPriority :: Lens.Lens' RegisterWorkflowType (Prelude.Maybe Prelude.Text) +registerWorkflowType_defaultTaskPriority = Lens.lens (\RegisterWorkflowType' {defaultTaskPriority} -> defaultTaskPriority) (\s@RegisterWorkflowType' {} a -> s {defaultTaskPriority = a} :: RegisterWorkflowType) + +-- | If set, specifies the default maximum duration of decision tasks for +-- this workflow type. This default can be overridden when starting a +-- workflow execution using the StartWorkflowExecution action or the +-- @StartChildWorkflowExecution@ Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +registerWorkflowType_defaultTaskStartToCloseTimeout :: Lens.Lens' RegisterWorkflowType (Prelude.Maybe Prelude.Text) +registerWorkflowType_defaultTaskStartToCloseTimeout = Lens.lens (\RegisterWorkflowType' {defaultTaskStartToCloseTimeout} -> defaultTaskStartToCloseTimeout) (\s@RegisterWorkflowType' {} a -> s {defaultTaskStartToCloseTimeout = a} :: RegisterWorkflowType) + +-- | Textual description of the workflow type. +registerWorkflowType_description :: Lens.Lens' RegisterWorkflowType (Prelude.Maybe Prelude.Text) +registerWorkflowType_description = Lens.lens (\RegisterWorkflowType' {description} -> description) (\s@RegisterWorkflowType' {} a -> s {description = a} :: RegisterWorkflowType) + +-- | The name of the domain in which to register the workflow type. +registerWorkflowType_domain :: Lens.Lens' RegisterWorkflowType Prelude.Text +registerWorkflowType_domain = Lens.lens (\RegisterWorkflowType' {domain} -> domain) (\s@RegisterWorkflowType' {} a -> s {domain = a} :: RegisterWorkflowType) + +-- | The name of the workflow type. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +registerWorkflowType_name :: Lens.Lens' RegisterWorkflowType Prelude.Text +registerWorkflowType_name = Lens.lens (\RegisterWorkflowType' {name} -> name) (\s@RegisterWorkflowType' {} a -> s {name = a} :: RegisterWorkflowType) + +-- | The version of the workflow type. +-- +-- The workflow type consists of the name and version, the combination of +-- which must be unique within the domain. To get a list of all currently +-- registered workflow types, use the ListWorkflowTypes action. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +registerWorkflowType_version :: Lens.Lens' RegisterWorkflowType Prelude.Text +registerWorkflowType_version = Lens.lens (\RegisterWorkflowType' {version} -> version) (\s@RegisterWorkflowType' {} a -> s {version = a} :: RegisterWorkflowType) + +instance Core.AWSRequest RegisterWorkflowType where + type + AWSResponse RegisterWorkflowType = + RegisterWorkflowTypeResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull RegisterWorkflowTypeResponse' + +instance Prelude.Hashable RegisterWorkflowType where + hashWithSalt _salt RegisterWorkflowType' {..} = + _salt + `Prelude.hashWithSalt` defaultChildPolicy + `Prelude.hashWithSalt` defaultExecutionStartToCloseTimeout + `Prelude.hashWithSalt` defaultLambdaRole + `Prelude.hashWithSalt` defaultTaskList + `Prelude.hashWithSalt` defaultTaskPriority + `Prelude.hashWithSalt` defaultTaskStartToCloseTimeout + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` name + `Prelude.hashWithSalt` version + +instance Prelude.NFData RegisterWorkflowType where + rnf RegisterWorkflowType' {..} = + Prelude.rnf defaultChildPolicy + `Prelude.seq` Prelude.rnf defaultExecutionStartToCloseTimeout + `Prelude.seq` Prelude.rnf defaultLambdaRole + `Prelude.seq` Prelude.rnf defaultTaskList + `Prelude.seq` Prelude.rnf defaultTaskPriority + `Prelude.seq` Prelude.rnf defaultTaskStartToCloseTimeout + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf domain + `Prelude.seq` Prelude.rnf name + `Prelude.seq` Prelude.rnf version + +instance Data.ToHeaders RegisterWorkflowType where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.RegisterWorkflowType" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON RegisterWorkflowType where + toJSON RegisterWorkflowType' {..} = + Data.object + ( Prelude.catMaybes + [ ("defaultChildPolicy" Data..=) + Prelude.<$> defaultChildPolicy, + ("defaultExecutionStartToCloseTimeout" Data..=) + Prelude.<$> defaultExecutionStartToCloseTimeout, + ("defaultLambdaRole" Data..=) + Prelude.<$> defaultLambdaRole, + ("defaultTaskList" Data..=) + Prelude.<$> defaultTaskList, + ("defaultTaskPriority" Data..=) + Prelude.<$> defaultTaskPriority, + ("defaultTaskStartToCloseTimeout" Data..=) + Prelude.<$> defaultTaskStartToCloseTimeout, + ("description" Data..=) Prelude.<$> description, + Prelude.Just ("domain" Data..= domain), + Prelude.Just ("name" Data..= name), + Prelude.Just ("version" Data..= version) + ] + ) + +instance Data.ToPath RegisterWorkflowType where + toPath = Prelude.const "/" + +instance Data.ToQuery RegisterWorkflowType where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newRegisterWorkflowTypeResponse' smart constructor. +data RegisterWorkflowTypeResponse = RegisterWorkflowTypeResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RegisterWorkflowTypeResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newRegisterWorkflowTypeResponse :: + RegisterWorkflowTypeResponse +newRegisterWorkflowTypeResponse = + RegisterWorkflowTypeResponse' + +instance Prelude.NFData RegisterWorkflowTypeResponse where + rnf _ = () diff --git a/gen/Amazonka/SWF/RequestCancelWorkflowExecution.hs b/gen/Amazonka/SWF/RequestCancelWorkflowExecution.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/RequestCancelWorkflowExecution.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.SWF.RequestCancelWorkflowExecution +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Records a @WorkflowExecutionCancelRequested@ event in the currently +-- running workflow execution identified by the given domain, workflowId, +-- and runId. This logically requests the cancellation of the workflow +-- execution as a whole. It is up to the decider to take appropriate +-- actions when it receives an execution history with this event. +-- +-- If the runId isn\'t specified, the @WorkflowExecutionCancelRequested@ +-- event is recorded in the history of the current open workflow execution +-- with the specified workflowId in the domain. +-- +-- Because this action allows the workflow to properly clean up and +-- gracefully close, it should be used instead of +-- TerminateWorkflowExecution when possible. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.RequestCancelWorkflowExecution + ( -- * Creating a Request + RequestCancelWorkflowExecution (..), + newRequestCancelWorkflowExecution, + + -- * Request Lenses + requestCancelWorkflowExecution_runId, + requestCancelWorkflowExecution_domain, + requestCancelWorkflowExecution_workflowId, + + -- * Destructuring the Response + RequestCancelWorkflowExecutionResponse (..), + newRequestCancelWorkflowExecutionResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newRequestCancelWorkflowExecution' smart constructor. +data RequestCancelWorkflowExecution = RequestCancelWorkflowExecution' + { -- | The runId of the workflow execution to cancel. + runId :: Prelude.Maybe Prelude.Text, + -- | The name of the domain containing the workflow execution to cancel. + domain :: Prelude.Text, + -- | The workflowId of the workflow execution to cancel. + workflowId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RequestCancelWorkflowExecution' 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: +-- +-- 'runId', 'requestCancelWorkflowExecution_runId' - The runId of the workflow execution to cancel. +-- +-- 'domain', 'requestCancelWorkflowExecution_domain' - The name of the domain containing the workflow execution to cancel. +-- +-- 'workflowId', 'requestCancelWorkflowExecution_workflowId' - The workflowId of the workflow execution to cancel. +newRequestCancelWorkflowExecution :: + -- | 'domain' + Prelude.Text -> + -- | 'workflowId' + Prelude.Text -> + RequestCancelWorkflowExecution +newRequestCancelWorkflowExecution + pDomain_ + pWorkflowId_ = + RequestCancelWorkflowExecution' + { runId = + Prelude.Nothing, + domain = pDomain_, + workflowId = pWorkflowId_ + } + +-- | The runId of the workflow execution to cancel. +requestCancelWorkflowExecution_runId :: Lens.Lens' RequestCancelWorkflowExecution (Prelude.Maybe Prelude.Text) +requestCancelWorkflowExecution_runId = Lens.lens (\RequestCancelWorkflowExecution' {runId} -> runId) (\s@RequestCancelWorkflowExecution' {} a -> s {runId = a} :: RequestCancelWorkflowExecution) + +-- | The name of the domain containing the workflow execution to cancel. +requestCancelWorkflowExecution_domain :: Lens.Lens' RequestCancelWorkflowExecution Prelude.Text +requestCancelWorkflowExecution_domain = Lens.lens (\RequestCancelWorkflowExecution' {domain} -> domain) (\s@RequestCancelWorkflowExecution' {} a -> s {domain = a} :: RequestCancelWorkflowExecution) + +-- | The workflowId of the workflow execution to cancel. +requestCancelWorkflowExecution_workflowId :: Lens.Lens' RequestCancelWorkflowExecution Prelude.Text +requestCancelWorkflowExecution_workflowId = Lens.lens (\RequestCancelWorkflowExecution' {workflowId} -> workflowId) (\s@RequestCancelWorkflowExecution' {} a -> s {workflowId = a} :: RequestCancelWorkflowExecution) + +instance + Core.AWSRequest + RequestCancelWorkflowExecution + where + type + AWSResponse RequestCancelWorkflowExecution = + RequestCancelWorkflowExecutionResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull + RequestCancelWorkflowExecutionResponse' + +instance + Prelude.Hashable + RequestCancelWorkflowExecution + where + hashWithSalt + _salt + RequestCancelWorkflowExecution' {..} = + _salt + `Prelude.hashWithSalt` runId + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` workflowId + +instance + Prelude.NFData + RequestCancelWorkflowExecution + where + rnf RequestCancelWorkflowExecution' {..} = + Prelude.rnf runId + `Prelude.seq` Prelude.rnf domain + `Prelude.seq` Prelude.rnf workflowId + +instance + Data.ToHeaders + RequestCancelWorkflowExecution + where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.RequestCancelWorkflowExecution" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON RequestCancelWorkflowExecution where + toJSON RequestCancelWorkflowExecution' {..} = + Data.object + ( Prelude.catMaybes + [ ("runId" Data..=) Prelude.<$> runId, + Prelude.Just ("domain" Data..= domain), + Prelude.Just ("workflowId" Data..= workflowId) + ] + ) + +instance Data.ToPath RequestCancelWorkflowExecution where + toPath = Prelude.const "/" + +instance Data.ToQuery RequestCancelWorkflowExecution where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newRequestCancelWorkflowExecutionResponse' smart constructor. +data RequestCancelWorkflowExecutionResponse = RequestCancelWorkflowExecutionResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RequestCancelWorkflowExecutionResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newRequestCancelWorkflowExecutionResponse :: + RequestCancelWorkflowExecutionResponse +newRequestCancelWorkflowExecutionResponse = + RequestCancelWorkflowExecutionResponse' + +instance + Prelude.NFData + RequestCancelWorkflowExecutionResponse + where + rnf _ = () diff --git a/gen/Amazonka/SWF/RespondActivityTaskCanceled.hs b/gen/Amazonka/SWF/RespondActivityTaskCanceled.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/RespondActivityTaskCanceled.hs @@ -0,0 +1,207 @@ +{-# 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.SWF.RespondActivityTaskCanceled +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Used by workers to tell the service that the ActivityTask identified by +-- the @taskToken@ was successfully canceled. Additional @details@ can be +-- provided using the @details@ argument. +-- +-- These @details@ (if provided) appear in the @ActivityTaskCanceled@ event +-- added to the workflow history. +-- +-- Only use this operation if the @canceled@ flag of a +-- RecordActivityTaskHeartbeat request returns @true@ and if the activity +-- can be safely undone or abandoned. +-- +-- A task is considered open from the time that it is scheduled until it is +-- closed. Therefore a task is reported as open while a worker is +-- processing it. A task is closed after it has been specified in a call to +-- RespondActivityTaskCompleted, RespondActivityTaskCanceled, +-- RespondActivityTaskFailed, or the task has +-- . +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.RespondActivityTaskCanceled + ( -- * Creating a Request + RespondActivityTaskCanceled (..), + newRespondActivityTaskCanceled, + + -- * Request Lenses + respondActivityTaskCanceled_details, + respondActivityTaskCanceled_taskToken, + + -- * Destructuring the Response + RespondActivityTaskCanceledResponse (..), + newRespondActivityTaskCanceledResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newRespondActivityTaskCanceled' smart constructor. +data RespondActivityTaskCanceled = RespondActivityTaskCanceled' + { -- | Information about the cancellation. + details :: Prelude.Maybe Prelude.Text, + -- | The @taskToken@ of the ActivityTask. + -- + -- @taskToken@ is generated by the service and should be treated as an + -- opaque value. If the task is passed to another process, its @taskToken@ + -- must also be passed. This enables it to provide its progress and respond + -- with results. + taskToken :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RespondActivityTaskCanceled' 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: +-- +-- 'details', 'respondActivityTaskCanceled_details' - Information about the cancellation. +-- +-- 'taskToken', 'respondActivityTaskCanceled_taskToken' - The @taskToken@ of the ActivityTask. +-- +-- @taskToken@ is generated by the service and should be treated as an +-- opaque value. If the task is passed to another process, its @taskToken@ +-- must also be passed. This enables it to provide its progress and respond +-- with results. +newRespondActivityTaskCanceled :: + -- | 'taskToken' + Prelude.Text -> + RespondActivityTaskCanceled +newRespondActivityTaskCanceled pTaskToken_ = + RespondActivityTaskCanceled' + { details = + Prelude.Nothing, + taskToken = pTaskToken_ + } + +-- | Information about the cancellation. +respondActivityTaskCanceled_details :: Lens.Lens' RespondActivityTaskCanceled (Prelude.Maybe Prelude.Text) +respondActivityTaskCanceled_details = Lens.lens (\RespondActivityTaskCanceled' {details} -> details) (\s@RespondActivityTaskCanceled' {} a -> s {details = a} :: RespondActivityTaskCanceled) + +-- | The @taskToken@ of the ActivityTask. +-- +-- @taskToken@ is generated by the service and should be treated as an +-- opaque value. If the task is passed to another process, its @taskToken@ +-- must also be passed. This enables it to provide its progress and respond +-- with results. +respondActivityTaskCanceled_taskToken :: Lens.Lens' RespondActivityTaskCanceled Prelude.Text +respondActivityTaskCanceled_taskToken = Lens.lens (\RespondActivityTaskCanceled' {taskToken} -> taskToken) (\s@RespondActivityTaskCanceled' {} a -> s {taskToken = a} :: RespondActivityTaskCanceled) + +instance Core.AWSRequest RespondActivityTaskCanceled where + type + AWSResponse RespondActivityTaskCanceled = + RespondActivityTaskCanceledResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull + RespondActivityTaskCanceledResponse' + +instance Prelude.Hashable RespondActivityTaskCanceled where + hashWithSalt _salt RespondActivityTaskCanceled' {..} = + _salt + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` taskToken + +instance Prelude.NFData RespondActivityTaskCanceled where + rnf RespondActivityTaskCanceled' {..} = + Prelude.rnf details + `Prelude.seq` Prelude.rnf taskToken + +instance Data.ToHeaders RespondActivityTaskCanceled where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.RespondActivityTaskCanceled" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON RespondActivityTaskCanceled where + toJSON RespondActivityTaskCanceled' {..} = + Data.object + ( Prelude.catMaybes + [ ("details" Data..=) Prelude.<$> details, + Prelude.Just ("taskToken" Data..= taskToken) + ] + ) + +instance Data.ToPath RespondActivityTaskCanceled where + toPath = Prelude.const "/" + +instance Data.ToQuery RespondActivityTaskCanceled where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newRespondActivityTaskCanceledResponse' smart constructor. +data RespondActivityTaskCanceledResponse = RespondActivityTaskCanceledResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RespondActivityTaskCanceledResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newRespondActivityTaskCanceledResponse :: + RespondActivityTaskCanceledResponse +newRespondActivityTaskCanceledResponse = + RespondActivityTaskCanceledResponse' + +instance + Prelude.NFData + RespondActivityTaskCanceledResponse + where + rnf _ = () diff --git a/gen/Amazonka/SWF/RespondActivityTaskCompleted.hs b/gen/Amazonka/SWF/RespondActivityTaskCompleted.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/RespondActivityTaskCompleted.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.SWF.RespondActivityTaskCompleted +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Used by workers to tell the service that the ActivityTask identified by +-- the @taskToken@ completed successfully with a @result@ (if provided). +-- The @result@ appears in the @ActivityTaskCompleted@ event in the +-- workflow history. +-- +-- If the requested task doesn\'t complete successfully, use +-- RespondActivityTaskFailed instead. If the worker finds that the task is +-- canceled through the @canceled@ flag returned by +-- RecordActivityTaskHeartbeat, it should cancel the task, clean up and +-- then call RespondActivityTaskCanceled. +-- +-- A task is considered open from the time that it is scheduled until it is +-- closed. Therefore a task is reported as open while a worker is +-- processing it. A task is closed after it has been specified in a call to +-- RespondActivityTaskCompleted, RespondActivityTaskCanceled, +-- RespondActivityTaskFailed, or the task has +-- . +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.RespondActivityTaskCompleted + ( -- * Creating a Request + RespondActivityTaskCompleted (..), + newRespondActivityTaskCompleted, + + -- * Request Lenses + respondActivityTaskCompleted_result, + respondActivityTaskCompleted_taskToken, + + -- * Destructuring the Response + RespondActivityTaskCompletedResponse (..), + newRespondActivityTaskCompletedResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newRespondActivityTaskCompleted' smart constructor. +data RespondActivityTaskCompleted = RespondActivityTaskCompleted' + { -- | The result of the activity task. It is a free form string that is + -- implementation specific. + result :: Prelude.Maybe Prelude.Text, + -- | The @taskToken@ of the ActivityTask. + -- + -- @taskToken@ is generated by the service and should be treated as an + -- opaque value. If the task is passed to another process, its @taskToken@ + -- must also be passed. This enables it to provide its progress and respond + -- with results. + taskToken :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RespondActivityTaskCompleted' 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: +-- +-- 'result', 'respondActivityTaskCompleted_result' - The result of the activity task. It is a free form string that is +-- implementation specific. +-- +-- 'taskToken', 'respondActivityTaskCompleted_taskToken' - The @taskToken@ of the ActivityTask. +-- +-- @taskToken@ is generated by the service and should be treated as an +-- opaque value. If the task is passed to another process, its @taskToken@ +-- must also be passed. This enables it to provide its progress and respond +-- with results. +newRespondActivityTaskCompleted :: + -- | 'taskToken' + Prelude.Text -> + RespondActivityTaskCompleted +newRespondActivityTaskCompleted pTaskToken_ = + RespondActivityTaskCompleted' + { result = + Prelude.Nothing, + taskToken = pTaskToken_ + } + +-- | The result of the activity task. It is a free form string that is +-- implementation specific. +respondActivityTaskCompleted_result :: Lens.Lens' RespondActivityTaskCompleted (Prelude.Maybe Prelude.Text) +respondActivityTaskCompleted_result = Lens.lens (\RespondActivityTaskCompleted' {result} -> result) (\s@RespondActivityTaskCompleted' {} a -> s {result = a} :: RespondActivityTaskCompleted) + +-- | The @taskToken@ of the ActivityTask. +-- +-- @taskToken@ is generated by the service and should be treated as an +-- opaque value. If the task is passed to another process, its @taskToken@ +-- must also be passed. This enables it to provide its progress and respond +-- with results. +respondActivityTaskCompleted_taskToken :: Lens.Lens' RespondActivityTaskCompleted Prelude.Text +respondActivityTaskCompleted_taskToken = Lens.lens (\RespondActivityTaskCompleted' {taskToken} -> taskToken) (\s@RespondActivityTaskCompleted' {} a -> s {taskToken = a} :: RespondActivityTaskCompleted) + +instance Core.AWSRequest RespondActivityTaskCompleted where + type + AWSResponse RespondActivityTaskCompleted = + RespondActivityTaskCompletedResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull + RespondActivityTaskCompletedResponse' + +instance + Prelude.Hashable + RespondActivityTaskCompleted + where + hashWithSalt _salt RespondActivityTaskCompleted' {..} = + _salt + `Prelude.hashWithSalt` result + `Prelude.hashWithSalt` taskToken + +instance Prelude.NFData RespondActivityTaskCompleted where + rnf RespondActivityTaskCompleted' {..} = + Prelude.rnf result + `Prelude.seq` Prelude.rnf taskToken + +instance Data.ToHeaders RespondActivityTaskCompleted where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.RespondActivityTaskCompleted" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON RespondActivityTaskCompleted where + toJSON RespondActivityTaskCompleted' {..} = + Data.object + ( Prelude.catMaybes + [ ("result" Data..=) Prelude.<$> result, + Prelude.Just ("taskToken" Data..= taskToken) + ] + ) + +instance Data.ToPath RespondActivityTaskCompleted where + toPath = Prelude.const "/" + +instance Data.ToQuery RespondActivityTaskCompleted where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newRespondActivityTaskCompletedResponse' smart constructor. +data RespondActivityTaskCompletedResponse = RespondActivityTaskCompletedResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RespondActivityTaskCompletedResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newRespondActivityTaskCompletedResponse :: + RespondActivityTaskCompletedResponse +newRespondActivityTaskCompletedResponse = + RespondActivityTaskCompletedResponse' + +instance + Prelude.NFData + RespondActivityTaskCompletedResponse + where + rnf _ = () diff --git a/gen/Amazonka/SWF/RespondActivityTaskFailed.hs b/gen/Amazonka/SWF/RespondActivityTaskFailed.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/RespondActivityTaskFailed.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.SWF.RespondActivityTaskFailed +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Used by workers to tell the service that the ActivityTask identified by +-- the @taskToken@ has failed with @reason@ (if specified). The @reason@ +-- and @details@ appear in the @ActivityTaskFailed@ event added to the +-- workflow history. +-- +-- A task is considered open from the time that it is scheduled until it is +-- closed. Therefore a task is reported as open while a worker is +-- processing it. A task is closed after it has been specified in a call to +-- RespondActivityTaskCompleted, RespondActivityTaskCanceled, +-- RespondActivityTaskFailed, or the task has +-- . +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.RespondActivityTaskFailed + ( -- * Creating a Request + RespondActivityTaskFailed (..), + newRespondActivityTaskFailed, + + -- * Request Lenses + respondActivityTaskFailed_details, + respondActivityTaskFailed_reason, + respondActivityTaskFailed_taskToken, + + -- * Destructuring the Response + RespondActivityTaskFailedResponse (..), + newRespondActivityTaskFailedResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newRespondActivityTaskFailed' smart constructor. +data RespondActivityTaskFailed = RespondActivityTaskFailed' + { -- | Detailed information about the failure. + details :: Prelude.Maybe Prelude.Text, + -- | Description of the error that may assist in diagnostics. + reason :: Prelude.Maybe Prelude.Text, + -- | The @taskToken@ of the ActivityTask. + -- + -- @taskToken@ is generated by the service and should be treated as an + -- opaque value. If the task is passed to another process, its @taskToken@ + -- must also be passed. This enables it to provide its progress and respond + -- with results. + taskToken :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RespondActivityTaskFailed' 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: +-- +-- 'details', 'respondActivityTaskFailed_details' - Detailed information about the failure. +-- +-- 'reason', 'respondActivityTaskFailed_reason' - Description of the error that may assist in diagnostics. +-- +-- 'taskToken', 'respondActivityTaskFailed_taskToken' - The @taskToken@ of the ActivityTask. +-- +-- @taskToken@ is generated by the service and should be treated as an +-- opaque value. If the task is passed to another process, its @taskToken@ +-- must also be passed. This enables it to provide its progress and respond +-- with results. +newRespondActivityTaskFailed :: + -- | 'taskToken' + Prelude.Text -> + RespondActivityTaskFailed +newRespondActivityTaskFailed pTaskToken_ = + RespondActivityTaskFailed' + { details = + Prelude.Nothing, + reason = Prelude.Nothing, + taskToken = pTaskToken_ + } + +-- | Detailed information about the failure. +respondActivityTaskFailed_details :: Lens.Lens' RespondActivityTaskFailed (Prelude.Maybe Prelude.Text) +respondActivityTaskFailed_details = Lens.lens (\RespondActivityTaskFailed' {details} -> details) (\s@RespondActivityTaskFailed' {} a -> s {details = a} :: RespondActivityTaskFailed) + +-- | Description of the error that may assist in diagnostics. +respondActivityTaskFailed_reason :: Lens.Lens' RespondActivityTaskFailed (Prelude.Maybe Prelude.Text) +respondActivityTaskFailed_reason = Lens.lens (\RespondActivityTaskFailed' {reason} -> reason) (\s@RespondActivityTaskFailed' {} a -> s {reason = a} :: RespondActivityTaskFailed) + +-- | The @taskToken@ of the ActivityTask. +-- +-- @taskToken@ is generated by the service and should be treated as an +-- opaque value. If the task is passed to another process, its @taskToken@ +-- must also be passed. This enables it to provide its progress and respond +-- with results. +respondActivityTaskFailed_taskToken :: Lens.Lens' RespondActivityTaskFailed Prelude.Text +respondActivityTaskFailed_taskToken = Lens.lens (\RespondActivityTaskFailed' {taskToken} -> taskToken) (\s@RespondActivityTaskFailed' {} a -> s {taskToken = a} :: RespondActivityTaskFailed) + +instance Core.AWSRequest RespondActivityTaskFailed where + type + AWSResponse RespondActivityTaskFailed = + RespondActivityTaskFailedResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull + RespondActivityTaskFailedResponse' + +instance Prelude.Hashable RespondActivityTaskFailed where + hashWithSalt _salt RespondActivityTaskFailed' {..} = + _salt + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` reason + `Prelude.hashWithSalt` taskToken + +instance Prelude.NFData RespondActivityTaskFailed where + rnf RespondActivityTaskFailed' {..} = + Prelude.rnf details + `Prelude.seq` Prelude.rnf reason + `Prelude.seq` Prelude.rnf taskToken + +instance Data.ToHeaders RespondActivityTaskFailed where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.RespondActivityTaskFailed" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON RespondActivityTaskFailed where + toJSON RespondActivityTaskFailed' {..} = + Data.object + ( Prelude.catMaybes + [ ("details" Data..=) Prelude.<$> details, + ("reason" Data..=) Prelude.<$> reason, + Prelude.Just ("taskToken" Data..= taskToken) + ] + ) + +instance Data.ToPath RespondActivityTaskFailed where + toPath = Prelude.const "/" + +instance Data.ToQuery RespondActivityTaskFailed where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newRespondActivityTaskFailedResponse' smart constructor. +data RespondActivityTaskFailedResponse = RespondActivityTaskFailedResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RespondActivityTaskFailedResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newRespondActivityTaskFailedResponse :: + RespondActivityTaskFailedResponse +newRespondActivityTaskFailedResponse = + RespondActivityTaskFailedResponse' + +instance + Prelude.NFData + RespondActivityTaskFailedResponse + where + rnf _ = () diff --git a/gen/Amazonka/SWF/RespondDecisionTaskCompleted.hs b/gen/Amazonka/SWF/RespondDecisionTaskCompleted.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/RespondDecisionTaskCompleted.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.SWF.RespondDecisionTaskCompleted +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Used by deciders to tell the service that the DecisionTask identified by +-- the @taskToken@ has successfully completed. The @decisions@ argument +-- specifies the list of decisions made while processing the task. +-- +-- A @DecisionTaskCompleted@ event is added to the workflow history. The +-- @executionContext@ specified is attached to the event in the workflow +-- execution history. +-- +-- __Access Control__ +-- +-- If an IAM policy grants permission to use +-- @RespondDecisionTaskCompleted@, it can express permissions for the list +-- of decisions in the @decisions@ parameter. Each of the decisions has one +-- or more parameters, much like a regular API call. To allow for policies +-- to be as readable as possible, you can express permissions on decisions +-- as if they were actual API calls, including applying conditions to some +-- parameters. For more information, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.RespondDecisionTaskCompleted + ( -- * Creating a Request + RespondDecisionTaskCompleted (..), + newRespondDecisionTaskCompleted, + + -- * Request Lenses + respondDecisionTaskCompleted_decisions, + respondDecisionTaskCompleted_executionContext, + respondDecisionTaskCompleted_taskToken, + + -- * Destructuring the Response + RespondDecisionTaskCompletedResponse (..), + newRespondDecisionTaskCompletedResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | Input data for a TaskCompleted response to a decision task. +-- +-- /See:/ 'newRespondDecisionTaskCompleted' smart constructor. +data RespondDecisionTaskCompleted = RespondDecisionTaskCompleted' + { -- | The list of decisions (possibly empty) made by the decider while + -- processing this decision task. See the docs for the Decision structure + -- for details. + decisions :: Prelude.Maybe [Decision], + -- | User defined context to add to workflow execution. + executionContext :: Prelude.Maybe Prelude.Text, + -- | The @taskToken@ from the DecisionTask. + -- + -- @taskToken@ is generated by the service and should be treated as an + -- opaque value. If the task is passed to another process, its @taskToken@ + -- must also be passed. This enables it to provide its progress and respond + -- with results. + taskToken :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RespondDecisionTaskCompleted' 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: +-- +-- 'decisions', 'respondDecisionTaskCompleted_decisions' - The list of decisions (possibly empty) made by the decider while +-- processing this decision task. See the docs for the Decision structure +-- for details. +-- +-- 'executionContext', 'respondDecisionTaskCompleted_executionContext' - User defined context to add to workflow execution. +-- +-- 'taskToken', 'respondDecisionTaskCompleted_taskToken' - The @taskToken@ from the DecisionTask. +-- +-- @taskToken@ is generated by the service and should be treated as an +-- opaque value. If the task is passed to another process, its @taskToken@ +-- must also be passed. This enables it to provide its progress and respond +-- with results. +newRespondDecisionTaskCompleted :: + -- | 'taskToken' + Prelude.Text -> + RespondDecisionTaskCompleted +newRespondDecisionTaskCompleted pTaskToken_ = + RespondDecisionTaskCompleted' + { decisions = + Prelude.Nothing, + executionContext = Prelude.Nothing, + taskToken = pTaskToken_ + } + +-- | The list of decisions (possibly empty) made by the decider while +-- processing this decision task. See the docs for the Decision structure +-- for details. +respondDecisionTaskCompleted_decisions :: Lens.Lens' RespondDecisionTaskCompleted (Prelude.Maybe [Decision]) +respondDecisionTaskCompleted_decisions = Lens.lens (\RespondDecisionTaskCompleted' {decisions} -> decisions) (\s@RespondDecisionTaskCompleted' {} a -> s {decisions = a} :: RespondDecisionTaskCompleted) Prelude.. Lens.mapping Lens.coerced + +-- | User defined context to add to workflow execution. +respondDecisionTaskCompleted_executionContext :: Lens.Lens' RespondDecisionTaskCompleted (Prelude.Maybe Prelude.Text) +respondDecisionTaskCompleted_executionContext = Lens.lens (\RespondDecisionTaskCompleted' {executionContext} -> executionContext) (\s@RespondDecisionTaskCompleted' {} a -> s {executionContext = a} :: RespondDecisionTaskCompleted) + +-- | The @taskToken@ from the DecisionTask. +-- +-- @taskToken@ is generated by the service and should be treated as an +-- opaque value. If the task is passed to another process, its @taskToken@ +-- must also be passed. This enables it to provide its progress and respond +-- with results. +respondDecisionTaskCompleted_taskToken :: Lens.Lens' RespondDecisionTaskCompleted Prelude.Text +respondDecisionTaskCompleted_taskToken = Lens.lens (\RespondDecisionTaskCompleted' {taskToken} -> taskToken) (\s@RespondDecisionTaskCompleted' {} a -> s {taskToken = a} :: RespondDecisionTaskCompleted) + +instance Core.AWSRequest RespondDecisionTaskCompleted where + type + AWSResponse RespondDecisionTaskCompleted = + RespondDecisionTaskCompletedResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull + RespondDecisionTaskCompletedResponse' + +instance + Prelude.Hashable + RespondDecisionTaskCompleted + where + hashWithSalt _salt RespondDecisionTaskCompleted' {..} = + _salt + `Prelude.hashWithSalt` decisions + `Prelude.hashWithSalt` executionContext + `Prelude.hashWithSalt` taskToken + +instance Prelude.NFData RespondDecisionTaskCompleted where + rnf RespondDecisionTaskCompleted' {..} = + Prelude.rnf decisions + `Prelude.seq` Prelude.rnf executionContext + `Prelude.seq` Prelude.rnf taskToken + +instance Data.ToHeaders RespondDecisionTaskCompleted where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.RespondDecisionTaskCompleted" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON RespondDecisionTaskCompleted where + toJSON RespondDecisionTaskCompleted' {..} = + Data.object + ( Prelude.catMaybes + [ ("decisions" Data..=) Prelude.<$> decisions, + ("executionContext" Data..=) + Prelude.<$> executionContext, + Prelude.Just ("taskToken" Data..= taskToken) + ] + ) + +instance Data.ToPath RespondDecisionTaskCompleted where + toPath = Prelude.const "/" + +instance Data.ToQuery RespondDecisionTaskCompleted where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newRespondDecisionTaskCompletedResponse' smart constructor. +data RespondDecisionTaskCompletedResponse = RespondDecisionTaskCompletedResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RespondDecisionTaskCompletedResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newRespondDecisionTaskCompletedResponse :: + RespondDecisionTaskCompletedResponse +newRespondDecisionTaskCompletedResponse = + RespondDecisionTaskCompletedResponse' + +instance + Prelude.NFData + RespondDecisionTaskCompletedResponse + where + rnf _ = () diff --git a/gen/Amazonka/SWF/SignalWorkflowExecution.hs b/gen/Amazonka/SWF/SignalWorkflowExecution.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/SignalWorkflowExecution.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.SWF.SignalWorkflowExecution +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Records a @WorkflowExecutionSignaled@ event in the workflow execution +-- history and creates a decision task for the workflow execution +-- identified by the given domain, workflowId and runId. The event is +-- recorded with the specified user defined signalName and input (if +-- provided). +-- +-- If a runId isn\'t specified, then the @WorkflowExecutionSignaled@ event +-- is recorded in the history of the current open workflow with the +-- matching workflowId in the domain. +-- +-- If the specified workflow execution isn\'t open, this method fails with +-- @UnknownResource@. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.SignalWorkflowExecution + ( -- * Creating a Request + SignalWorkflowExecution (..), + newSignalWorkflowExecution, + + -- * Request Lenses + signalWorkflowExecution_input, + signalWorkflowExecution_runId, + signalWorkflowExecution_domain, + signalWorkflowExecution_workflowId, + signalWorkflowExecution_signalName, + + -- * Destructuring the Response + SignalWorkflowExecutionResponse (..), + newSignalWorkflowExecutionResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newSignalWorkflowExecution' smart constructor. +data SignalWorkflowExecution = SignalWorkflowExecution' + { -- | Data to attach to the @WorkflowExecutionSignaled@ event in the target + -- workflow execution\'s history. + input :: Prelude.Maybe Prelude.Text, + -- | The runId of the workflow execution to signal. + runId :: Prelude.Maybe Prelude.Text, + -- | The name of the domain containing the workflow execution to signal. + domain :: Prelude.Text, + -- | The workflowId of the workflow execution to signal. + workflowId :: Prelude.Text, + -- | The name of the signal. This name must be meaningful to the target + -- workflow. + signalName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SignalWorkflowExecution' 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: +-- +-- 'input', 'signalWorkflowExecution_input' - Data to attach to the @WorkflowExecutionSignaled@ event in the target +-- workflow execution\'s history. +-- +-- 'runId', 'signalWorkflowExecution_runId' - The runId of the workflow execution to signal. +-- +-- 'domain', 'signalWorkflowExecution_domain' - The name of the domain containing the workflow execution to signal. +-- +-- 'workflowId', 'signalWorkflowExecution_workflowId' - The workflowId of the workflow execution to signal. +-- +-- 'signalName', 'signalWorkflowExecution_signalName' - The name of the signal. This name must be meaningful to the target +-- workflow. +newSignalWorkflowExecution :: + -- | 'domain' + Prelude.Text -> + -- | 'workflowId' + Prelude.Text -> + -- | 'signalName' + Prelude.Text -> + SignalWorkflowExecution +newSignalWorkflowExecution + pDomain_ + pWorkflowId_ + pSignalName_ = + SignalWorkflowExecution' + { input = Prelude.Nothing, + runId = Prelude.Nothing, + domain = pDomain_, + workflowId = pWorkflowId_, + signalName = pSignalName_ + } + +-- | Data to attach to the @WorkflowExecutionSignaled@ event in the target +-- workflow execution\'s history. +signalWorkflowExecution_input :: Lens.Lens' SignalWorkflowExecution (Prelude.Maybe Prelude.Text) +signalWorkflowExecution_input = Lens.lens (\SignalWorkflowExecution' {input} -> input) (\s@SignalWorkflowExecution' {} a -> s {input = a} :: SignalWorkflowExecution) + +-- | The runId of the workflow execution to signal. +signalWorkflowExecution_runId :: Lens.Lens' SignalWorkflowExecution (Prelude.Maybe Prelude.Text) +signalWorkflowExecution_runId = Lens.lens (\SignalWorkflowExecution' {runId} -> runId) (\s@SignalWorkflowExecution' {} a -> s {runId = a} :: SignalWorkflowExecution) + +-- | The name of the domain containing the workflow execution to signal. +signalWorkflowExecution_domain :: Lens.Lens' SignalWorkflowExecution Prelude.Text +signalWorkflowExecution_domain = Lens.lens (\SignalWorkflowExecution' {domain} -> domain) (\s@SignalWorkflowExecution' {} a -> s {domain = a} :: SignalWorkflowExecution) + +-- | The workflowId of the workflow execution to signal. +signalWorkflowExecution_workflowId :: Lens.Lens' SignalWorkflowExecution Prelude.Text +signalWorkflowExecution_workflowId = Lens.lens (\SignalWorkflowExecution' {workflowId} -> workflowId) (\s@SignalWorkflowExecution' {} a -> s {workflowId = a} :: SignalWorkflowExecution) + +-- | The name of the signal. This name must be meaningful to the target +-- workflow. +signalWorkflowExecution_signalName :: Lens.Lens' SignalWorkflowExecution Prelude.Text +signalWorkflowExecution_signalName = Lens.lens (\SignalWorkflowExecution' {signalName} -> signalName) (\s@SignalWorkflowExecution' {} a -> s {signalName = a} :: SignalWorkflowExecution) + +instance Core.AWSRequest SignalWorkflowExecution where + type + AWSResponse SignalWorkflowExecution = + SignalWorkflowExecutionResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull + SignalWorkflowExecutionResponse' + +instance Prelude.Hashable SignalWorkflowExecution where + hashWithSalt _salt SignalWorkflowExecution' {..} = + _salt + `Prelude.hashWithSalt` input + `Prelude.hashWithSalt` runId + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` workflowId + `Prelude.hashWithSalt` signalName + +instance Prelude.NFData SignalWorkflowExecution where + rnf SignalWorkflowExecution' {..} = + Prelude.rnf input + `Prelude.seq` Prelude.rnf runId + `Prelude.seq` Prelude.rnf domain + `Prelude.seq` Prelude.rnf workflowId + `Prelude.seq` Prelude.rnf signalName + +instance Data.ToHeaders SignalWorkflowExecution where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.SignalWorkflowExecution" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON SignalWorkflowExecution where + toJSON SignalWorkflowExecution' {..} = + Data.object + ( Prelude.catMaybes + [ ("input" Data..=) Prelude.<$> input, + ("runId" Data..=) Prelude.<$> runId, + Prelude.Just ("domain" Data..= domain), + Prelude.Just ("workflowId" Data..= workflowId), + Prelude.Just ("signalName" Data..= signalName) + ] + ) + +instance Data.ToPath SignalWorkflowExecution where + toPath = Prelude.const "/" + +instance Data.ToQuery SignalWorkflowExecution where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newSignalWorkflowExecutionResponse' smart constructor. +data SignalWorkflowExecutionResponse = SignalWorkflowExecutionResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SignalWorkflowExecutionResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newSignalWorkflowExecutionResponse :: + SignalWorkflowExecutionResponse +newSignalWorkflowExecutionResponse = + SignalWorkflowExecutionResponse' + +instance + Prelude.NFData + SignalWorkflowExecutionResponse + where + rnf _ = () diff --git a/gen/Amazonka/SWF/StartWorkflowExecution.hs b/gen/Amazonka/SWF/StartWorkflowExecution.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/StartWorkflowExecution.hs @@ -0,0 +1,633 @@ +{-# 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.SWF.StartWorkflowExecution +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Starts an execution of the workflow type in the specified domain using +-- the provided @workflowId@ and input data. +-- +-- This action returns the newly started workflow execution. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the following parameters by using a @Condition@ element +-- with the appropriate keys. +-- +-- - @tagList.member.0@: The key is @swf:tagList.member.0@. +-- +-- - @tagList.member.1@: The key is @swf:tagList.member.1@. +-- +-- - @tagList.member.2@: The key is @swf:tagList.member.2@. +-- +-- - @tagList.member.3@: The key is @swf:tagList.member.3@. +-- +-- - @tagList.member.4@: The key is @swf:tagList.member.4@. +-- +-- - @taskList@: String constraint. The key is @swf:taskList.name@. +-- +-- - @workflowType.name@: String constraint. The key is +-- @swf:workflowType.name@. +-- +-- - @workflowType.version@: String constraint. The key is +-- @swf:workflowType.version@. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.StartWorkflowExecution + ( -- * Creating a Request + StartWorkflowExecution (..), + newStartWorkflowExecution, + + -- * Request Lenses + startWorkflowExecution_childPolicy, + startWorkflowExecution_executionStartToCloseTimeout, + startWorkflowExecution_input, + startWorkflowExecution_lambdaRole, + startWorkflowExecution_tagList, + startWorkflowExecution_taskList, + startWorkflowExecution_taskPriority, + startWorkflowExecution_taskStartToCloseTimeout, + startWorkflowExecution_domain, + startWorkflowExecution_workflowId, + startWorkflowExecution_workflowType, + + -- * Destructuring the Response + StartWorkflowExecutionResponse (..), + newStartWorkflowExecutionResponse, + + -- * Response Lenses + startWorkflowExecutionResponse_runId, + startWorkflowExecutionResponse_httpStatus, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newStartWorkflowExecution' smart constructor. +data StartWorkflowExecution = StartWorkflowExecution' + { -- | If set, specifies the policy to use for the child workflow executions of + -- this workflow execution if it is terminated, by calling the + -- TerminateWorkflowExecution action explicitly or due to an expired + -- timeout. This policy overrides the default child policy specified when + -- registering the workflow type using RegisterWorkflowType. + -- + -- The supported child policies are: + -- + -- - @TERMINATE@ – The child executions are terminated. + -- + -- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child + -- execution by recording a @WorkflowExecutionCancelRequested@ event in + -- its history. It is up to the decider to take appropriate actions + -- when it receives an execution history with this event. + -- + -- - @ABANDON@ – No action is taken. The child executions continue to + -- run. + -- + -- A child policy for this workflow execution must be specified either as a + -- default for the workflow type or through this parameter. If neither this + -- parameter is set nor a default child policy was specified at + -- registration time then a fault is returned. + childPolicy :: Prelude.Maybe ChildPolicy, + -- | The total duration for this workflow execution. This overrides the + -- defaultExecutionStartToCloseTimeout specified when registering the + -- workflow type. + -- + -- The duration is specified in seconds; an integer greater than or equal + -- to @0@. Exceeding this limit causes the workflow execution to time out. + -- Unlike some of the other timeout parameters in Amazon SWF, you cannot + -- specify a value of \"NONE\" for this timeout; there is a one-year max + -- limit on the time that a workflow execution can run. + -- + -- An execution start-to-close timeout must be specified either through + -- this parameter or as a default when the workflow type is registered. If + -- neither this parameter nor a default execution start-to-close timeout is + -- specified, a fault is returned. + executionStartToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The input for the workflow execution. This is a free form string which + -- should be meaningful to the workflow you are starting. This @input@ is + -- made available to the new workflow execution in the + -- @WorkflowExecutionStarted@ history event. + input :: Prelude.Maybe Prelude.Text, + -- | The IAM role to attach to this workflow execution. + -- + -- Executions of this workflow type need IAM roles to invoke Lambda + -- functions. If you don\'t attach an IAM role, any attempt to schedule a + -- Lambda task fails. This results in a @ScheduleLambdaFunctionFailed@ + -- history event. For more information, see + -- + -- in the /Amazon SWF Developer Guide/. + lambdaRole :: Prelude.Maybe Prelude.Text, + -- | The list of tags to associate with the workflow execution. You can + -- specify a maximum of 5 tags. You can list workflow executions with a + -- specific tag by calling ListOpenWorkflowExecutions or + -- ListClosedWorkflowExecutions and specifying a TagFilter. + tagList :: Prelude.Maybe [Prelude.Text], + -- | The task list to use for the decision tasks generated for this workflow + -- execution. This overrides the @defaultTaskList@ specified when + -- registering the workflow type. + -- + -- A task list for this workflow execution must be specified either as a + -- default for the workflow type or through this parameter. If neither this + -- parameter is set nor a default task list was specified at registration + -- time then a fault is returned. + -- + -- The specified string must not start or end with whitespace. It must not + -- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control + -- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not + -- /be/ the literal string @arn@. + taskList :: Prelude.Maybe TaskList, + -- | The task priority to use for this workflow execution. This overrides any + -- default priority that was assigned when the workflow type was + -- registered. If not set, then the default task priority for the workflow + -- type is used. Valid values are integers that range from Java\'s + -- @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). + -- Higher numbers indicate higher priority. + -- + -- For more information about setting task priority, see + -- + -- in the /Amazon SWF Developer Guide/. + taskPriority :: Prelude.Maybe Prelude.Text, + -- | Specifies the maximum duration of decision tasks for this workflow + -- execution. This parameter overrides the @defaultTaskStartToCloseTimout@ + -- specified when registering the workflow type using RegisterWorkflowType. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + -- + -- A task start-to-close timeout for this workflow execution must be + -- specified either as a default for the workflow type or through this + -- parameter. If neither this parameter is set nor a default task + -- start-to-close timeout was specified at registration time then a fault + -- is returned. + taskStartToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The name of the domain in which the workflow execution is created. + domain :: Prelude.Text, + -- | The user defined identifier associated with the workflow execution. You + -- can use this to associate a custom identifier with the workflow + -- execution. You may specify the same identifier if a workflow execution + -- is logically a /restart/ of a previous execution. You cannot have two + -- open workflow executions with the same @workflowId@ at the same time + -- within the same domain. + -- + -- The specified string must not start or end with whitespace. It must not + -- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control + -- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not + -- /be/ the literal string @arn@. + workflowId :: Prelude.Text, + -- | The type of the workflow to start. + workflowType :: WorkflowType + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StartWorkflowExecution' 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: +-- +-- 'childPolicy', 'startWorkflowExecution_childPolicy' - If set, specifies the policy to use for the child workflow executions of +-- this workflow execution if it is terminated, by calling the +-- TerminateWorkflowExecution action explicitly or due to an expired +-- timeout. This policy overrides the default child policy specified when +-- registering the workflow type using RegisterWorkflowType. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +-- +-- A child policy for this workflow execution must be specified either as a +-- default for the workflow type or through this parameter. If neither this +-- parameter is set nor a default child policy was specified at +-- registration time then a fault is returned. +-- +-- 'executionStartToCloseTimeout', 'startWorkflowExecution_executionStartToCloseTimeout' - The total duration for this workflow execution. This overrides the +-- defaultExecutionStartToCloseTimeout specified when registering the +-- workflow type. +-- +-- The duration is specified in seconds; an integer greater than or equal +-- to @0@. Exceeding this limit causes the workflow execution to time out. +-- Unlike some of the other timeout parameters in Amazon SWF, you cannot +-- specify a value of \"NONE\" for this timeout; there is a one-year max +-- limit on the time that a workflow execution can run. +-- +-- An execution start-to-close timeout must be specified either through +-- this parameter or as a default when the workflow type is registered. If +-- neither this parameter nor a default execution start-to-close timeout is +-- specified, a fault is returned. +-- +-- 'input', 'startWorkflowExecution_input' - The input for the workflow execution. This is a free form string which +-- should be meaningful to the workflow you are starting. This @input@ is +-- made available to the new workflow execution in the +-- @WorkflowExecutionStarted@ history event. +-- +-- 'lambdaRole', 'startWorkflowExecution_lambdaRole' - The IAM role to attach to this workflow execution. +-- +-- Executions of this workflow type need IAM roles to invoke Lambda +-- functions. If you don\'t attach an IAM role, any attempt to schedule a +-- Lambda task fails. This results in a @ScheduleLambdaFunctionFailed@ +-- history event. For more information, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'tagList', 'startWorkflowExecution_tagList' - The list of tags to associate with the workflow execution. You can +-- specify a maximum of 5 tags. You can list workflow executions with a +-- specific tag by calling ListOpenWorkflowExecutions or +-- ListClosedWorkflowExecutions and specifying a TagFilter. +-- +-- 'taskList', 'startWorkflowExecution_taskList' - The task list to use for the decision tasks generated for this workflow +-- execution. This overrides the @defaultTaskList@ specified when +-- registering the workflow type. +-- +-- A task list for this workflow execution must be specified either as a +-- default for the workflow type or through this parameter. If neither this +-- parameter is set nor a default task list was specified at registration +-- time then a fault is returned. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +-- +-- 'taskPriority', 'startWorkflowExecution_taskPriority' - The task priority to use for this workflow execution. This overrides any +-- default priority that was assigned when the workflow type was +-- registered. If not set, then the default task priority for the workflow +-- type is used. Valid values are integers that range from Java\'s +-- @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). +-- Higher numbers indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'taskStartToCloseTimeout', 'startWorkflowExecution_taskStartToCloseTimeout' - Specifies the maximum duration of decision tasks for this workflow +-- execution. This parameter overrides the @defaultTaskStartToCloseTimout@ +-- specified when registering the workflow type using RegisterWorkflowType. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- A task start-to-close timeout for this workflow execution must be +-- specified either as a default for the workflow type or through this +-- parameter. If neither this parameter is set nor a default task +-- start-to-close timeout was specified at registration time then a fault +-- is returned. +-- +-- 'domain', 'startWorkflowExecution_domain' - The name of the domain in which the workflow execution is created. +-- +-- 'workflowId', 'startWorkflowExecution_workflowId' - The user defined identifier associated with the workflow execution. You +-- can use this to associate a custom identifier with the workflow +-- execution. You may specify the same identifier if a workflow execution +-- is logically a /restart/ of a previous execution. You cannot have two +-- open workflow executions with the same @workflowId@ at the same time +-- within the same domain. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +-- +-- 'workflowType', 'startWorkflowExecution_workflowType' - The type of the workflow to start. +newStartWorkflowExecution :: + -- | 'domain' + Prelude.Text -> + -- | 'workflowId' + Prelude.Text -> + -- | 'workflowType' + WorkflowType -> + StartWorkflowExecution +newStartWorkflowExecution + pDomain_ + pWorkflowId_ + pWorkflowType_ = + StartWorkflowExecution' + { childPolicy = + Prelude.Nothing, + executionStartToCloseTimeout = Prelude.Nothing, + input = Prelude.Nothing, + lambdaRole = Prelude.Nothing, + tagList = Prelude.Nothing, + taskList = Prelude.Nothing, + taskPriority = Prelude.Nothing, + taskStartToCloseTimeout = Prelude.Nothing, + domain = pDomain_, + workflowId = pWorkflowId_, + workflowType = pWorkflowType_ + } + +-- | If set, specifies the policy to use for the child workflow executions of +-- this workflow execution if it is terminated, by calling the +-- TerminateWorkflowExecution action explicitly or due to an expired +-- timeout. This policy overrides the default child policy specified when +-- registering the workflow type using RegisterWorkflowType. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +-- +-- A child policy for this workflow execution must be specified either as a +-- default for the workflow type or through this parameter. If neither this +-- parameter is set nor a default child policy was specified at +-- registration time then a fault is returned. +startWorkflowExecution_childPolicy :: Lens.Lens' StartWorkflowExecution (Prelude.Maybe ChildPolicy) +startWorkflowExecution_childPolicy = Lens.lens (\StartWorkflowExecution' {childPolicy} -> childPolicy) (\s@StartWorkflowExecution' {} a -> s {childPolicy = a} :: StartWorkflowExecution) + +-- | The total duration for this workflow execution. This overrides the +-- defaultExecutionStartToCloseTimeout specified when registering the +-- workflow type. +-- +-- The duration is specified in seconds; an integer greater than or equal +-- to @0@. Exceeding this limit causes the workflow execution to time out. +-- Unlike some of the other timeout parameters in Amazon SWF, you cannot +-- specify a value of \"NONE\" for this timeout; there is a one-year max +-- limit on the time that a workflow execution can run. +-- +-- An execution start-to-close timeout must be specified either through +-- this parameter or as a default when the workflow type is registered. If +-- neither this parameter nor a default execution start-to-close timeout is +-- specified, a fault is returned. +startWorkflowExecution_executionStartToCloseTimeout :: Lens.Lens' StartWorkflowExecution (Prelude.Maybe Prelude.Text) +startWorkflowExecution_executionStartToCloseTimeout = Lens.lens (\StartWorkflowExecution' {executionStartToCloseTimeout} -> executionStartToCloseTimeout) (\s@StartWorkflowExecution' {} a -> s {executionStartToCloseTimeout = a} :: StartWorkflowExecution) + +-- | The input for the workflow execution. This is a free form string which +-- should be meaningful to the workflow you are starting. This @input@ is +-- made available to the new workflow execution in the +-- @WorkflowExecutionStarted@ history event. +startWorkflowExecution_input :: Lens.Lens' StartWorkflowExecution (Prelude.Maybe Prelude.Text) +startWorkflowExecution_input = Lens.lens (\StartWorkflowExecution' {input} -> input) (\s@StartWorkflowExecution' {} a -> s {input = a} :: StartWorkflowExecution) + +-- | The IAM role to attach to this workflow execution. +-- +-- Executions of this workflow type need IAM roles to invoke Lambda +-- functions. If you don\'t attach an IAM role, any attempt to schedule a +-- Lambda task fails. This results in a @ScheduleLambdaFunctionFailed@ +-- history event. For more information, see +-- +-- in the /Amazon SWF Developer Guide/. +startWorkflowExecution_lambdaRole :: Lens.Lens' StartWorkflowExecution (Prelude.Maybe Prelude.Text) +startWorkflowExecution_lambdaRole = Lens.lens (\StartWorkflowExecution' {lambdaRole} -> lambdaRole) (\s@StartWorkflowExecution' {} a -> s {lambdaRole = a} :: StartWorkflowExecution) + +-- | The list of tags to associate with the workflow execution. You can +-- specify a maximum of 5 tags. You can list workflow executions with a +-- specific tag by calling ListOpenWorkflowExecutions or +-- ListClosedWorkflowExecutions and specifying a TagFilter. +startWorkflowExecution_tagList :: Lens.Lens' StartWorkflowExecution (Prelude.Maybe [Prelude.Text]) +startWorkflowExecution_tagList = Lens.lens (\StartWorkflowExecution' {tagList} -> tagList) (\s@StartWorkflowExecution' {} a -> s {tagList = a} :: StartWorkflowExecution) Prelude.. Lens.mapping Lens.coerced + +-- | The task list to use for the decision tasks generated for this workflow +-- execution. This overrides the @defaultTaskList@ specified when +-- registering the workflow type. +-- +-- A task list for this workflow execution must be specified either as a +-- default for the workflow type or through this parameter. If neither this +-- parameter is set nor a default task list was specified at registration +-- time then a fault is returned. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +startWorkflowExecution_taskList :: Lens.Lens' StartWorkflowExecution (Prelude.Maybe TaskList) +startWorkflowExecution_taskList = Lens.lens (\StartWorkflowExecution' {taskList} -> taskList) (\s@StartWorkflowExecution' {} a -> s {taskList = a} :: StartWorkflowExecution) + +-- | The task priority to use for this workflow execution. This overrides any +-- default priority that was assigned when the workflow type was +-- registered. If not set, then the default task priority for the workflow +-- type is used. Valid values are integers that range from Java\'s +-- @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). +-- Higher numbers indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +startWorkflowExecution_taskPriority :: Lens.Lens' StartWorkflowExecution (Prelude.Maybe Prelude.Text) +startWorkflowExecution_taskPriority = Lens.lens (\StartWorkflowExecution' {taskPriority} -> taskPriority) (\s@StartWorkflowExecution' {} a -> s {taskPriority = a} :: StartWorkflowExecution) + +-- | Specifies the maximum duration of decision tasks for this workflow +-- execution. This parameter overrides the @defaultTaskStartToCloseTimout@ +-- specified when registering the workflow type using RegisterWorkflowType. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- A task start-to-close timeout for this workflow execution must be +-- specified either as a default for the workflow type or through this +-- parameter. If neither this parameter is set nor a default task +-- start-to-close timeout was specified at registration time then a fault +-- is returned. +startWorkflowExecution_taskStartToCloseTimeout :: Lens.Lens' StartWorkflowExecution (Prelude.Maybe Prelude.Text) +startWorkflowExecution_taskStartToCloseTimeout = Lens.lens (\StartWorkflowExecution' {taskStartToCloseTimeout} -> taskStartToCloseTimeout) (\s@StartWorkflowExecution' {} a -> s {taskStartToCloseTimeout = a} :: StartWorkflowExecution) + +-- | The name of the domain in which the workflow execution is created. +startWorkflowExecution_domain :: Lens.Lens' StartWorkflowExecution Prelude.Text +startWorkflowExecution_domain = Lens.lens (\StartWorkflowExecution' {domain} -> domain) (\s@StartWorkflowExecution' {} a -> s {domain = a} :: StartWorkflowExecution) + +-- | The user defined identifier associated with the workflow execution. You +-- can use this to associate a custom identifier with the workflow +-- execution. You may specify the same identifier if a workflow execution +-- is logically a /restart/ of a previous execution. You cannot have two +-- open workflow executions with the same @workflowId@ at the same time +-- within the same domain. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- /be/ the literal string @arn@. +startWorkflowExecution_workflowId :: Lens.Lens' StartWorkflowExecution Prelude.Text +startWorkflowExecution_workflowId = Lens.lens (\StartWorkflowExecution' {workflowId} -> workflowId) (\s@StartWorkflowExecution' {} a -> s {workflowId = a} :: StartWorkflowExecution) + +-- | The type of the workflow to start. +startWorkflowExecution_workflowType :: Lens.Lens' StartWorkflowExecution WorkflowType +startWorkflowExecution_workflowType = Lens.lens (\StartWorkflowExecution' {workflowType} -> workflowType) (\s@StartWorkflowExecution' {} a -> s {workflowType = a} :: StartWorkflowExecution) + +instance Core.AWSRequest StartWorkflowExecution where + type + AWSResponse StartWorkflowExecution = + StartWorkflowExecutionResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveJSON + ( \s h x -> + StartWorkflowExecutionResponse' + Prelude.<$> (x Data..?> "runId") + Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) + ) + +instance Prelude.Hashable StartWorkflowExecution where + hashWithSalt _salt StartWorkflowExecution' {..} = + _salt + `Prelude.hashWithSalt` childPolicy + `Prelude.hashWithSalt` executionStartToCloseTimeout + `Prelude.hashWithSalt` input + `Prelude.hashWithSalt` lambdaRole + `Prelude.hashWithSalt` tagList + `Prelude.hashWithSalt` taskList + `Prelude.hashWithSalt` taskPriority + `Prelude.hashWithSalt` taskStartToCloseTimeout + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` workflowId + `Prelude.hashWithSalt` workflowType + +instance Prelude.NFData StartWorkflowExecution where + rnf StartWorkflowExecution' {..} = + Prelude.rnf childPolicy + `Prelude.seq` Prelude.rnf executionStartToCloseTimeout + `Prelude.seq` Prelude.rnf input + `Prelude.seq` Prelude.rnf lambdaRole + `Prelude.seq` Prelude.rnf tagList + `Prelude.seq` Prelude.rnf taskList + `Prelude.seq` Prelude.rnf taskPriority + `Prelude.seq` Prelude.rnf taskStartToCloseTimeout + `Prelude.seq` Prelude.rnf domain + `Prelude.seq` Prelude.rnf workflowId + `Prelude.seq` Prelude.rnf workflowType + +instance Data.ToHeaders StartWorkflowExecution where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.StartWorkflowExecution" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON StartWorkflowExecution where + toJSON StartWorkflowExecution' {..} = + Data.object + ( Prelude.catMaybes + [ ("childPolicy" Data..=) Prelude.<$> childPolicy, + ("executionStartToCloseTimeout" Data..=) + Prelude.<$> executionStartToCloseTimeout, + ("input" Data..=) Prelude.<$> input, + ("lambdaRole" Data..=) Prelude.<$> lambdaRole, + ("tagList" Data..=) Prelude.<$> tagList, + ("taskList" Data..=) Prelude.<$> taskList, + ("taskPriority" Data..=) Prelude.<$> taskPriority, + ("taskStartToCloseTimeout" Data..=) + Prelude.<$> taskStartToCloseTimeout, + Prelude.Just ("domain" Data..= domain), + Prelude.Just ("workflowId" Data..= workflowId), + Prelude.Just ("workflowType" Data..= workflowType) + ] + ) + +instance Data.ToPath StartWorkflowExecution where + toPath = Prelude.const "/" + +instance Data.ToQuery StartWorkflowExecution where + toQuery = Prelude.const Prelude.mempty + +-- | Specifies the @runId@ of a workflow execution. +-- +-- /See:/ 'newStartWorkflowExecutionResponse' smart constructor. +data StartWorkflowExecutionResponse = StartWorkflowExecutionResponse' + { -- | The @runId@ of a workflow execution. This ID is generated by the service + -- and can be used to uniquely identify the workflow execution within a + -- domain. + runId :: 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 'StartWorkflowExecutionResponse' 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: +-- +-- 'runId', 'startWorkflowExecutionResponse_runId' - The @runId@ of a workflow execution. This ID is generated by the service +-- and can be used to uniquely identify the workflow execution within a +-- domain. +-- +-- 'httpStatus', 'startWorkflowExecutionResponse_httpStatus' - The response's http status code. +newStartWorkflowExecutionResponse :: + -- | 'httpStatus' + Prelude.Int -> + StartWorkflowExecutionResponse +newStartWorkflowExecutionResponse pHttpStatus_ = + StartWorkflowExecutionResponse' + { runId = + Prelude.Nothing, + httpStatus = pHttpStatus_ + } + +-- | The @runId@ of a workflow execution. This ID is generated by the service +-- and can be used to uniquely identify the workflow execution within a +-- domain. +startWorkflowExecutionResponse_runId :: Lens.Lens' StartWorkflowExecutionResponse (Prelude.Maybe Prelude.Text) +startWorkflowExecutionResponse_runId = Lens.lens (\StartWorkflowExecutionResponse' {runId} -> runId) (\s@StartWorkflowExecutionResponse' {} a -> s {runId = a} :: StartWorkflowExecutionResponse) + +-- | The response's http status code. +startWorkflowExecutionResponse_httpStatus :: Lens.Lens' StartWorkflowExecutionResponse Prelude.Int +startWorkflowExecutionResponse_httpStatus = Lens.lens (\StartWorkflowExecutionResponse' {httpStatus} -> httpStatus) (\s@StartWorkflowExecutionResponse' {} a -> s {httpStatus = a} :: StartWorkflowExecutionResponse) + +instance + Prelude.NFData + StartWorkflowExecutionResponse + where + rnf StartWorkflowExecutionResponse' {..} = + Prelude.rnf runId + `Prelude.seq` Prelude.rnf httpStatus diff --git a/gen/Amazonka/SWF/TagResource.hs b/gen/Amazonka/SWF/TagResource.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/TagResource.hs @@ -0,0 +1,158 @@ +{-# 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.SWF.TagResource +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Add a tag to a Amazon SWF domain. +-- +-- Amazon SWF supports a maximum of 50 tags per resource. +module Amazonka.SWF.TagResource + ( -- * Creating a Request + TagResource (..), + newTagResource, + + -- * Request Lenses + tagResource_resourceArn, + tagResource_tags, + + -- * Destructuring the Response + TagResourceResponse (..), + newTagResourceResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newTagResource' smart constructor. +data TagResource = TagResource' + { -- | The Amazon Resource Name (ARN) for the Amazon SWF domain. + resourceArn :: Prelude.Text, + -- | The list of tags to add to a domain. + -- + -- Tags may only contain unicode letters, digits, whitespace, or these + -- symbols: @_ . : \/ = + - \@@. + tags :: [ResourceTag] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TagResource' 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: +-- +-- 'resourceArn', 'tagResource_resourceArn' - The Amazon Resource Name (ARN) for the Amazon SWF domain. +-- +-- 'tags', 'tagResource_tags' - The list of tags to add to a domain. +-- +-- Tags may only contain unicode letters, digits, whitespace, or these +-- symbols: @_ . : \/ = + - \@@. +newTagResource :: + -- | 'resourceArn' + Prelude.Text -> + TagResource +newTagResource pResourceArn_ = + TagResource' + { resourceArn = pResourceArn_, + tags = Prelude.mempty + } + +-- | The Amazon Resource Name (ARN) for the Amazon SWF domain. +tagResource_resourceArn :: Lens.Lens' TagResource Prelude.Text +tagResource_resourceArn = Lens.lens (\TagResource' {resourceArn} -> resourceArn) (\s@TagResource' {} a -> s {resourceArn = a} :: TagResource) + +-- | The list of tags to add to a domain. +-- +-- Tags may only contain unicode letters, digits, whitespace, or these +-- symbols: @_ . : \/ = + - \@@. +tagResource_tags :: Lens.Lens' TagResource [ResourceTag] +tagResource_tags = Lens.lens (\TagResource' {tags} -> tags) (\s@TagResource' {} a -> s {tags = a} :: TagResource) Prelude.. Lens.coerced + +instance Core.AWSRequest TagResource where + type AWSResponse TagResource = TagResourceResponse + request overrides = + Request.postJSON (overrides defaultService) + response = Response.receiveNull TagResourceResponse' + +instance Prelude.Hashable TagResource where + hashWithSalt _salt TagResource' {..} = + _salt + `Prelude.hashWithSalt` resourceArn + `Prelude.hashWithSalt` tags + +instance Prelude.NFData TagResource where + rnf TagResource' {..} = + Prelude.rnf resourceArn + `Prelude.seq` Prelude.rnf tags + +instance Data.ToHeaders TagResource where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.TagResource" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON TagResource where + toJSON TagResource' {..} = + Data.object + ( Prelude.catMaybes + [ Prelude.Just ("resourceArn" Data..= resourceArn), + Prelude.Just ("tags" Data..= tags) + ] + ) + +instance Data.ToPath TagResource where + toPath = Prelude.const "/" + +instance Data.ToQuery TagResource where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newTagResourceResponse' smart constructor. +data TagResourceResponse = TagResourceResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TagResourceResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newTagResourceResponse :: + TagResourceResponse +newTagResourceResponse = TagResourceResponse' + +instance Prelude.NFData TagResourceResponse where + rnf _ = () diff --git a/gen/Amazonka/SWF/TerminateWorkflowExecution.hs b/gen/Amazonka/SWF/TerminateWorkflowExecution.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/TerminateWorkflowExecution.hs @@ -0,0 +1,305 @@ +{-# 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.SWF.TerminateWorkflowExecution +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Records a @WorkflowExecutionTerminated@ event and forces closure of the +-- workflow execution identified by the given domain, runId, and +-- workflowId. The child policy, registered with the workflow type or +-- specified when starting this execution, is applied to any open child +-- workflow executions of this workflow execution. +-- +-- If the identified workflow execution was in progress, it is terminated +-- immediately. +-- +-- If a runId isn\'t specified, then the @WorkflowExecutionTerminated@ +-- event is recorded in the history of the current open workflow with the +-- matching workflowId in the domain. +-- +-- You should consider using RequestCancelWorkflowExecution action instead +-- because it allows the workflow to gracefully close while +-- TerminateWorkflowExecution doesn\'t. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.TerminateWorkflowExecution + ( -- * Creating a Request + TerminateWorkflowExecution (..), + newTerminateWorkflowExecution, + + -- * Request Lenses + terminateWorkflowExecution_childPolicy, + terminateWorkflowExecution_details, + terminateWorkflowExecution_reason, + terminateWorkflowExecution_runId, + terminateWorkflowExecution_domain, + terminateWorkflowExecution_workflowId, + + -- * Destructuring the Response + TerminateWorkflowExecutionResponse (..), + newTerminateWorkflowExecutionResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newTerminateWorkflowExecution' smart constructor. +data TerminateWorkflowExecution = TerminateWorkflowExecution' + { -- | If set, specifies the policy to use for the child workflow executions of + -- the workflow execution being terminated. This policy overrides the child + -- policy specified for the workflow execution at registration time or when + -- starting the execution. + -- + -- The supported child policies are: + -- + -- - @TERMINATE@ – The child executions are terminated. + -- + -- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child + -- execution by recording a @WorkflowExecutionCancelRequested@ event in + -- its history. It is up to the decider to take appropriate actions + -- when it receives an execution history with this event. + -- + -- - @ABANDON@ – No action is taken. The child executions continue to + -- run. + -- + -- A child policy for this workflow execution must be specified either as a + -- default for the workflow type or through this parameter. If neither this + -- parameter is set nor a default child policy was specified at + -- registration time then a fault is returned. + childPolicy :: Prelude.Maybe ChildPolicy, + -- | Details for terminating the workflow execution. + details :: Prelude.Maybe Prelude.Text, + -- | A descriptive reason for terminating the workflow execution. + reason :: Prelude.Maybe Prelude.Text, + -- | The runId of the workflow execution to terminate. + runId :: Prelude.Maybe Prelude.Text, + -- | The domain of the workflow execution to terminate. + domain :: Prelude.Text, + -- | The workflowId of the workflow execution to terminate. + workflowId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TerminateWorkflowExecution' 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: +-- +-- 'childPolicy', 'terminateWorkflowExecution_childPolicy' - If set, specifies the policy to use for the child workflow executions of +-- the workflow execution being terminated. This policy overrides the child +-- policy specified for the workflow execution at registration time or when +-- starting the execution. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +-- +-- A child policy for this workflow execution must be specified either as a +-- default for the workflow type or through this parameter. If neither this +-- parameter is set nor a default child policy was specified at +-- registration time then a fault is returned. +-- +-- 'details', 'terminateWorkflowExecution_details' - Details for terminating the workflow execution. +-- +-- 'reason', 'terminateWorkflowExecution_reason' - A descriptive reason for terminating the workflow execution. +-- +-- 'runId', 'terminateWorkflowExecution_runId' - The runId of the workflow execution to terminate. +-- +-- 'domain', 'terminateWorkflowExecution_domain' - The domain of the workflow execution to terminate. +-- +-- 'workflowId', 'terminateWorkflowExecution_workflowId' - The workflowId of the workflow execution to terminate. +newTerminateWorkflowExecution :: + -- | 'domain' + Prelude.Text -> + -- | 'workflowId' + Prelude.Text -> + TerminateWorkflowExecution +newTerminateWorkflowExecution pDomain_ pWorkflowId_ = + TerminateWorkflowExecution' + { childPolicy = + Prelude.Nothing, + details = Prelude.Nothing, + reason = Prelude.Nothing, + runId = Prelude.Nothing, + domain = pDomain_, + workflowId = pWorkflowId_ + } + +-- | If set, specifies the policy to use for the child workflow executions of +-- the workflow execution being terminated. This policy overrides the child +-- policy specified for the workflow execution at registration time or when +-- starting the execution. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +-- +-- A child policy for this workflow execution must be specified either as a +-- default for the workflow type or through this parameter. If neither this +-- parameter is set nor a default child policy was specified at +-- registration time then a fault is returned. +terminateWorkflowExecution_childPolicy :: Lens.Lens' TerminateWorkflowExecution (Prelude.Maybe ChildPolicy) +terminateWorkflowExecution_childPolicy = Lens.lens (\TerminateWorkflowExecution' {childPolicy} -> childPolicy) (\s@TerminateWorkflowExecution' {} a -> s {childPolicy = a} :: TerminateWorkflowExecution) + +-- | Details for terminating the workflow execution. +terminateWorkflowExecution_details :: Lens.Lens' TerminateWorkflowExecution (Prelude.Maybe Prelude.Text) +terminateWorkflowExecution_details = Lens.lens (\TerminateWorkflowExecution' {details} -> details) (\s@TerminateWorkflowExecution' {} a -> s {details = a} :: TerminateWorkflowExecution) + +-- | A descriptive reason for terminating the workflow execution. +terminateWorkflowExecution_reason :: Lens.Lens' TerminateWorkflowExecution (Prelude.Maybe Prelude.Text) +terminateWorkflowExecution_reason = Lens.lens (\TerminateWorkflowExecution' {reason} -> reason) (\s@TerminateWorkflowExecution' {} a -> s {reason = a} :: TerminateWorkflowExecution) + +-- | The runId of the workflow execution to terminate. +terminateWorkflowExecution_runId :: Lens.Lens' TerminateWorkflowExecution (Prelude.Maybe Prelude.Text) +terminateWorkflowExecution_runId = Lens.lens (\TerminateWorkflowExecution' {runId} -> runId) (\s@TerminateWorkflowExecution' {} a -> s {runId = a} :: TerminateWorkflowExecution) + +-- | The domain of the workflow execution to terminate. +terminateWorkflowExecution_domain :: Lens.Lens' TerminateWorkflowExecution Prelude.Text +terminateWorkflowExecution_domain = Lens.lens (\TerminateWorkflowExecution' {domain} -> domain) (\s@TerminateWorkflowExecution' {} a -> s {domain = a} :: TerminateWorkflowExecution) + +-- | The workflowId of the workflow execution to terminate. +terminateWorkflowExecution_workflowId :: Lens.Lens' TerminateWorkflowExecution Prelude.Text +terminateWorkflowExecution_workflowId = Lens.lens (\TerminateWorkflowExecution' {workflowId} -> workflowId) (\s@TerminateWorkflowExecution' {} a -> s {workflowId = a} :: TerminateWorkflowExecution) + +instance Core.AWSRequest TerminateWorkflowExecution where + type + AWSResponse TerminateWorkflowExecution = + TerminateWorkflowExecutionResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull + TerminateWorkflowExecutionResponse' + +instance Prelude.Hashable TerminateWorkflowExecution where + hashWithSalt _salt TerminateWorkflowExecution' {..} = + _salt + `Prelude.hashWithSalt` childPolicy + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` reason + `Prelude.hashWithSalt` runId + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` workflowId + +instance Prelude.NFData TerminateWorkflowExecution where + rnf TerminateWorkflowExecution' {..} = + Prelude.rnf childPolicy + `Prelude.seq` Prelude.rnf details + `Prelude.seq` Prelude.rnf reason + `Prelude.seq` Prelude.rnf runId + `Prelude.seq` Prelude.rnf domain + `Prelude.seq` Prelude.rnf workflowId + +instance Data.ToHeaders TerminateWorkflowExecution where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.TerminateWorkflowExecution" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON TerminateWorkflowExecution where + toJSON TerminateWorkflowExecution' {..} = + Data.object + ( Prelude.catMaybes + [ ("childPolicy" Data..=) Prelude.<$> childPolicy, + ("details" Data..=) Prelude.<$> details, + ("reason" Data..=) Prelude.<$> reason, + ("runId" Data..=) Prelude.<$> runId, + Prelude.Just ("domain" Data..= domain), + Prelude.Just ("workflowId" Data..= workflowId) + ] + ) + +instance Data.ToPath TerminateWorkflowExecution where + toPath = Prelude.const "/" + +instance Data.ToQuery TerminateWorkflowExecution where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newTerminateWorkflowExecutionResponse' smart constructor. +data TerminateWorkflowExecutionResponse = TerminateWorkflowExecutionResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TerminateWorkflowExecutionResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newTerminateWorkflowExecutionResponse :: + TerminateWorkflowExecutionResponse +newTerminateWorkflowExecutionResponse = + TerminateWorkflowExecutionResponse' + +instance + Prelude.NFData + TerminateWorkflowExecutionResponse + where + rnf _ = () diff --git a/gen/Amazonka/SWF/Types.hs b/gen/Amazonka/SWF/Types.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types.hs @@ -0,0 +1,1168 @@ +{-# 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.SWF.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.SWF.Types + ( -- * Service Configuration + defaultService, + + -- * Errors + _DefaultUndefinedFault, + _DomainAlreadyExistsFault, + _DomainDeprecatedFault, + _LimitExceededFault, + _OperationNotPermittedFault, + _TooManyTagsFault, + _TypeAlreadyExistsFault, + _TypeDeprecatedFault, + _UnknownResourceFault, + _WorkflowExecutionAlreadyStartedFault, + + -- * ActivityTaskTimeoutType + ActivityTaskTimeoutType (..), + + -- * CancelTimerFailedCause + CancelTimerFailedCause (..), + + -- * CancelWorkflowExecutionFailedCause + CancelWorkflowExecutionFailedCause (..), + + -- * ChildPolicy + ChildPolicy (..), + + -- * CloseStatus + CloseStatus (..), + + -- * CompleteWorkflowExecutionFailedCause + CompleteWorkflowExecutionFailedCause (..), + + -- * ContinueAsNewWorkflowExecutionFailedCause + ContinueAsNewWorkflowExecutionFailedCause (..), + + -- * DecisionTaskTimeoutType + DecisionTaskTimeoutType (..), + + -- * DecisionType + DecisionType (..), + + -- * EventType + EventType (..), + + -- * ExecutionStatus + ExecutionStatus (..), + + -- * FailWorkflowExecutionFailedCause + FailWorkflowExecutionFailedCause (..), + + -- * LambdaFunctionTimeoutType + LambdaFunctionTimeoutType (..), + + -- * RecordMarkerFailedCause + RecordMarkerFailedCause (..), + + -- * RegistrationStatus + RegistrationStatus (..), + + -- * RequestCancelActivityTaskFailedCause + RequestCancelActivityTaskFailedCause (..), + + -- * RequestCancelExternalWorkflowExecutionFailedCause + RequestCancelExternalWorkflowExecutionFailedCause (..), + + -- * ScheduleActivityTaskFailedCause + ScheduleActivityTaskFailedCause (..), + + -- * ScheduleLambdaFunctionFailedCause + ScheduleLambdaFunctionFailedCause (..), + + -- * SignalExternalWorkflowExecutionFailedCause + SignalExternalWorkflowExecutionFailedCause (..), + + -- * StartChildWorkflowExecutionFailedCause + StartChildWorkflowExecutionFailedCause (..), + + -- * StartLambdaFunctionFailedCause + StartLambdaFunctionFailedCause (..), + + -- * StartTimerFailedCause + StartTimerFailedCause (..), + + -- * WorkflowExecutionCancelRequestedCause + WorkflowExecutionCancelRequestedCause (..), + + -- * WorkflowExecutionTerminatedCause + WorkflowExecutionTerminatedCause (..), + + -- * WorkflowExecutionTimeoutType + WorkflowExecutionTimeoutType (..), + + -- * ActivityTaskCancelRequestedEventAttributes + ActivityTaskCancelRequestedEventAttributes (..), + newActivityTaskCancelRequestedEventAttributes, + activityTaskCancelRequestedEventAttributes_decisionTaskCompletedEventId, + activityTaskCancelRequestedEventAttributes_activityId, + + -- * ActivityTaskCanceledEventAttributes + ActivityTaskCanceledEventAttributes (..), + newActivityTaskCanceledEventAttributes, + activityTaskCanceledEventAttributes_details, + activityTaskCanceledEventAttributes_latestCancelRequestedEventId, + activityTaskCanceledEventAttributes_scheduledEventId, + activityTaskCanceledEventAttributes_startedEventId, + + -- * ActivityTaskCompletedEventAttributes + ActivityTaskCompletedEventAttributes (..), + newActivityTaskCompletedEventAttributes, + activityTaskCompletedEventAttributes_result, + activityTaskCompletedEventAttributes_scheduledEventId, + activityTaskCompletedEventAttributes_startedEventId, + + -- * ActivityTaskFailedEventAttributes + ActivityTaskFailedEventAttributes (..), + newActivityTaskFailedEventAttributes, + activityTaskFailedEventAttributes_details, + activityTaskFailedEventAttributes_reason, + activityTaskFailedEventAttributes_scheduledEventId, + activityTaskFailedEventAttributes_startedEventId, + + -- * ActivityTaskScheduledEventAttributes + ActivityTaskScheduledEventAttributes (..), + newActivityTaskScheduledEventAttributes, + activityTaskScheduledEventAttributes_control, + activityTaskScheduledEventAttributes_heartbeatTimeout, + activityTaskScheduledEventAttributes_input, + activityTaskScheduledEventAttributes_scheduleToCloseTimeout, + activityTaskScheduledEventAttributes_scheduleToStartTimeout, + activityTaskScheduledEventAttributes_startToCloseTimeout, + activityTaskScheduledEventAttributes_taskPriority, + activityTaskScheduledEventAttributes_activityType, + activityTaskScheduledEventAttributes_activityId, + activityTaskScheduledEventAttributes_taskList, + activityTaskScheduledEventAttributes_decisionTaskCompletedEventId, + + -- * ActivityTaskStartedEventAttributes + ActivityTaskStartedEventAttributes (..), + newActivityTaskStartedEventAttributes, + activityTaskStartedEventAttributes_identity, + activityTaskStartedEventAttributes_scheduledEventId, + + -- * ActivityTaskTimedOutEventAttributes + ActivityTaskTimedOutEventAttributes (..), + newActivityTaskTimedOutEventAttributes, + activityTaskTimedOutEventAttributes_details, + activityTaskTimedOutEventAttributes_timeoutType, + activityTaskTimedOutEventAttributes_scheduledEventId, + activityTaskTimedOutEventAttributes_startedEventId, + + -- * ActivityType + ActivityType (..), + newActivityType, + activityType_name, + activityType_version, + + -- * ActivityTypeConfiguration + ActivityTypeConfiguration (..), + newActivityTypeConfiguration, + activityTypeConfiguration_defaultTaskHeartbeatTimeout, + activityTypeConfiguration_defaultTaskList, + activityTypeConfiguration_defaultTaskPriority, + activityTypeConfiguration_defaultTaskScheduleToCloseTimeout, + activityTypeConfiguration_defaultTaskScheduleToStartTimeout, + activityTypeConfiguration_defaultTaskStartToCloseTimeout, + + -- * ActivityTypeInfo + ActivityTypeInfo (..), + newActivityTypeInfo, + activityTypeInfo_deprecationDate, + activityTypeInfo_description, + activityTypeInfo_activityType, + activityTypeInfo_status, + activityTypeInfo_creationDate, + + -- * CancelTimerDecisionAttributes + CancelTimerDecisionAttributes (..), + newCancelTimerDecisionAttributes, + cancelTimerDecisionAttributes_timerId, + + -- * CancelTimerFailedEventAttributes + CancelTimerFailedEventAttributes (..), + newCancelTimerFailedEventAttributes, + cancelTimerFailedEventAttributes_timerId, + cancelTimerFailedEventAttributes_cause, + cancelTimerFailedEventAttributes_decisionTaskCompletedEventId, + + -- * CancelWorkflowExecutionDecisionAttributes + CancelWorkflowExecutionDecisionAttributes (..), + newCancelWorkflowExecutionDecisionAttributes, + cancelWorkflowExecutionDecisionAttributes_details, + + -- * CancelWorkflowExecutionFailedEventAttributes + CancelWorkflowExecutionFailedEventAttributes (..), + newCancelWorkflowExecutionFailedEventAttributes, + cancelWorkflowExecutionFailedEventAttributes_cause, + cancelWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId, + + -- * ChildWorkflowExecutionCanceledEventAttributes + ChildWorkflowExecutionCanceledEventAttributes (..), + newChildWorkflowExecutionCanceledEventAttributes, + childWorkflowExecutionCanceledEventAttributes_details, + childWorkflowExecutionCanceledEventAttributes_workflowExecution, + childWorkflowExecutionCanceledEventAttributes_workflowType, + childWorkflowExecutionCanceledEventAttributes_initiatedEventId, + childWorkflowExecutionCanceledEventAttributes_startedEventId, + + -- * ChildWorkflowExecutionCompletedEventAttributes + ChildWorkflowExecutionCompletedEventAttributes (..), + newChildWorkflowExecutionCompletedEventAttributes, + childWorkflowExecutionCompletedEventAttributes_result, + childWorkflowExecutionCompletedEventAttributes_workflowExecution, + childWorkflowExecutionCompletedEventAttributes_workflowType, + childWorkflowExecutionCompletedEventAttributes_initiatedEventId, + childWorkflowExecutionCompletedEventAttributes_startedEventId, + + -- * ChildWorkflowExecutionFailedEventAttributes + ChildWorkflowExecutionFailedEventAttributes (..), + newChildWorkflowExecutionFailedEventAttributes, + childWorkflowExecutionFailedEventAttributes_details, + childWorkflowExecutionFailedEventAttributes_reason, + childWorkflowExecutionFailedEventAttributes_workflowExecution, + childWorkflowExecutionFailedEventAttributes_workflowType, + childWorkflowExecutionFailedEventAttributes_initiatedEventId, + childWorkflowExecutionFailedEventAttributes_startedEventId, + + -- * ChildWorkflowExecutionStartedEventAttributes + ChildWorkflowExecutionStartedEventAttributes (..), + newChildWorkflowExecutionStartedEventAttributes, + childWorkflowExecutionStartedEventAttributes_workflowExecution, + childWorkflowExecutionStartedEventAttributes_workflowType, + childWorkflowExecutionStartedEventAttributes_initiatedEventId, + + -- * ChildWorkflowExecutionTerminatedEventAttributes + ChildWorkflowExecutionTerminatedEventAttributes (..), + newChildWorkflowExecutionTerminatedEventAttributes, + childWorkflowExecutionTerminatedEventAttributes_workflowExecution, + childWorkflowExecutionTerminatedEventAttributes_workflowType, + childWorkflowExecutionTerminatedEventAttributes_initiatedEventId, + childWorkflowExecutionTerminatedEventAttributes_startedEventId, + + -- * ChildWorkflowExecutionTimedOutEventAttributes + ChildWorkflowExecutionTimedOutEventAttributes (..), + newChildWorkflowExecutionTimedOutEventAttributes, + childWorkflowExecutionTimedOutEventAttributes_workflowExecution, + childWorkflowExecutionTimedOutEventAttributes_workflowType, + childWorkflowExecutionTimedOutEventAttributes_timeoutType, + childWorkflowExecutionTimedOutEventAttributes_initiatedEventId, + childWorkflowExecutionTimedOutEventAttributes_startedEventId, + + -- * CloseStatusFilter + CloseStatusFilter (..), + newCloseStatusFilter, + closeStatusFilter_status, + + -- * CompleteWorkflowExecutionDecisionAttributes + CompleteWorkflowExecutionDecisionAttributes (..), + newCompleteWorkflowExecutionDecisionAttributes, + completeWorkflowExecutionDecisionAttributes_result, + + -- * CompleteWorkflowExecutionFailedEventAttributes + CompleteWorkflowExecutionFailedEventAttributes (..), + newCompleteWorkflowExecutionFailedEventAttributes, + completeWorkflowExecutionFailedEventAttributes_cause, + completeWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId, + + -- * ContinueAsNewWorkflowExecutionDecisionAttributes + ContinueAsNewWorkflowExecutionDecisionAttributes (..), + newContinueAsNewWorkflowExecutionDecisionAttributes, + continueAsNewWorkflowExecutionDecisionAttributes_childPolicy, + continueAsNewWorkflowExecutionDecisionAttributes_executionStartToCloseTimeout, + continueAsNewWorkflowExecutionDecisionAttributes_input, + continueAsNewWorkflowExecutionDecisionAttributes_lambdaRole, + continueAsNewWorkflowExecutionDecisionAttributes_tagList, + continueAsNewWorkflowExecutionDecisionAttributes_taskList, + continueAsNewWorkflowExecutionDecisionAttributes_taskPriority, + continueAsNewWorkflowExecutionDecisionAttributes_taskStartToCloseTimeout, + continueAsNewWorkflowExecutionDecisionAttributes_workflowTypeVersion, + + -- * ContinueAsNewWorkflowExecutionFailedEventAttributes + ContinueAsNewWorkflowExecutionFailedEventAttributes (..), + newContinueAsNewWorkflowExecutionFailedEventAttributes, + continueAsNewWorkflowExecutionFailedEventAttributes_cause, + continueAsNewWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId, + + -- * Decision + Decision (..), + newDecision, + decision_cancelTimerDecisionAttributes, + decision_cancelWorkflowExecutionDecisionAttributes, + decision_completeWorkflowExecutionDecisionAttributes, + decision_continueAsNewWorkflowExecutionDecisionAttributes, + decision_failWorkflowExecutionDecisionAttributes, + decision_recordMarkerDecisionAttributes, + decision_requestCancelActivityTaskDecisionAttributes, + decision_requestCancelExternalWorkflowExecutionDecisionAttributes, + decision_scheduleActivityTaskDecisionAttributes, + decision_scheduleLambdaFunctionDecisionAttributes, + decision_signalExternalWorkflowExecutionDecisionAttributes, + decision_startChildWorkflowExecutionDecisionAttributes, + decision_startTimerDecisionAttributes, + decision_decisionType, + + -- * DecisionTaskCompletedEventAttributes + DecisionTaskCompletedEventAttributes (..), + newDecisionTaskCompletedEventAttributes, + decisionTaskCompletedEventAttributes_executionContext, + decisionTaskCompletedEventAttributes_scheduledEventId, + decisionTaskCompletedEventAttributes_startedEventId, + + -- * DecisionTaskScheduledEventAttributes + DecisionTaskScheduledEventAttributes (..), + newDecisionTaskScheduledEventAttributes, + decisionTaskScheduledEventAttributes_startToCloseTimeout, + decisionTaskScheduledEventAttributes_taskPriority, + decisionTaskScheduledEventAttributes_taskList, + + -- * DecisionTaskStartedEventAttributes + DecisionTaskStartedEventAttributes (..), + newDecisionTaskStartedEventAttributes, + decisionTaskStartedEventAttributes_identity, + decisionTaskStartedEventAttributes_scheduledEventId, + + -- * DecisionTaskTimedOutEventAttributes + DecisionTaskTimedOutEventAttributes (..), + newDecisionTaskTimedOutEventAttributes, + decisionTaskTimedOutEventAttributes_timeoutType, + decisionTaskTimedOutEventAttributes_scheduledEventId, + decisionTaskTimedOutEventAttributes_startedEventId, + + -- * DomainConfiguration + DomainConfiguration (..), + newDomainConfiguration, + domainConfiguration_workflowExecutionRetentionPeriodInDays, + + -- * DomainInfo + DomainInfo (..), + newDomainInfo, + domainInfo_arn, + domainInfo_description, + domainInfo_name, + domainInfo_status, + + -- * ExecutionTimeFilter + ExecutionTimeFilter (..), + newExecutionTimeFilter, + executionTimeFilter_latestDate, + executionTimeFilter_oldestDate, + + -- * ExternalWorkflowExecutionCancelRequestedEventAttributes + ExternalWorkflowExecutionCancelRequestedEventAttributes (..), + newExternalWorkflowExecutionCancelRequestedEventAttributes, + externalWorkflowExecutionCancelRequestedEventAttributes_workflowExecution, + externalWorkflowExecutionCancelRequestedEventAttributes_initiatedEventId, + + -- * ExternalWorkflowExecutionSignaledEventAttributes + ExternalWorkflowExecutionSignaledEventAttributes (..), + newExternalWorkflowExecutionSignaledEventAttributes, + externalWorkflowExecutionSignaledEventAttributes_workflowExecution, + externalWorkflowExecutionSignaledEventAttributes_initiatedEventId, + + -- * FailWorkflowExecutionDecisionAttributes + FailWorkflowExecutionDecisionAttributes (..), + newFailWorkflowExecutionDecisionAttributes, + failWorkflowExecutionDecisionAttributes_details, + failWorkflowExecutionDecisionAttributes_reason, + + -- * FailWorkflowExecutionFailedEventAttributes + FailWorkflowExecutionFailedEventAttributes (..), + newFailWorkflowExecutionFailedEventAttributes, + failWorkflowExecutionFailedEventAttributes_cause, + failWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId, + + -- * HistoryEvent + HistoryEvent (..), + newHistoryEvent, + historyEvent_activityTaskCancelRequestedEventAttributes, + historyEvent_activityTaskCanceledEventAttributes, + historyEvent_activityTaskCompletedEventAttributes, + historyEvent_activityTaskFailedEventAttributes, + historyEvent_activityTaskScheduledEventAttributes, + historyEvent_activityTaskStartedEventAttributes, + historyEvent_activityTaskTimedOutEventAttributes, + historyEvent_cancelTimerFailedEventAttributes, + historyEvent_cancelWorkflowExecutionFailedEventAttributes, + historyEvent_childWorkflowExecutionCanceledEventAttributes, + historyEvent_childWorkflowExecutionCompletedEventAttributes, + historyEvent_childWorkflowExecutionFailedEventAttributes, + historyEvent_childWorkflowExecutionStartedEventAttributes, + historyEvent_childWorkflowExecutionTerminatedEventAttributes, + historyEvent_childWorkflowExecutionTimedOutEventAttributes, + historyEvent_completeWorkflowExecutionFailedEventAttributes, + historyEvent_continueAsNewWorkflowExecutionFailedEventAttributes, + historyEvent_decisionTaskCompletedEventAttributes, + historyEvent_decisionTaskScheduledEventAttributes, + historyEvent_decisionTaskStartedEventAttributes, + historyEvent_decisionTaskTimedOutEventAttributes, + historyEvent_externalWorkflowExecutionCancelRequestedEventAttributes, + historyEvent_externalWorkflowExecutionSignaledEventAttributes, + historyEvent_failWorkflowExecutionFailedEventAttributes, + historyEvent_lambdaFunctionCompletedEventAttributes, + historyEvent_lambdaFunctionFailedEventAttributes, + historyEvent_lambdaFunctionScheduledEventAttributes, + historyEvent_lambdaFunctionStartedEventAttributes, + historyEvent_lambdaFunctionTimedOutEventAttributes, + historyEvent_markerRecordedEventAttributes, + historyEvent_recordMarkerFailedEventAttributes, + historyEvent_requestCancelActivityTaskFailedEventAttributes, + historyEvent_requestCancelExternalWorkflowExecutionFailedEventAttributes, + historyEvent_requestCancelExternalWorkflowExecutionInitiatedEventAttributes, + historyEvent_scheduleActivityTaskFailedEventAttributes, + historyEvent_scheduleLambdaFunctionFailedEventAttributes, + historyEvent_signalExternalWorkflowExecutionFailedEventAttributes, + historyEvent_signalExternalWorkflowExecutionInitiatedEventAttributes, + historyEvent_startChildWorkflowExecutionFailedEventAttributes, + historyEvent_startChildWorkflowExecutionInitiatedEventAttributes, + historyEvent_startLambdaFunctionFailedEventAttributes, + historyEvent_startTimerFailedEventAttributes, + historyEvent_timerCanceledEventAttributes, + historyEvent_timerFiredEventAttributes, + historyEvent_timerStartedEventAttributes, + historyEvent_workflowExecutionCancelRequestedEventAttributes, + historyEvent_workflowExecutionCanceledEventAttributes, + historyEvent_workflowExecutionCompletedEventAttributes, + historyEvent_workflowExecutionContinuedAsNewEventAttributes, + historyEvent_workflowExecutionFailedEventAttributes, + historyEvent_workflowExecutionSignaledEventAttributes, + historyEvent_workflowExecutionStartedEventAttributes, + historyEvent_workflowExecutionTerminatedEventAttributes, + historyEvent_workflowExecutionTimedOutEventAttributes, + historyEvent_eventTimestamp, + historyEvent_eventType, + historyEvent_eventId, + + -- * LambdaFunctionCompletedEventAttributes + LambdaFunctionCompletedEventAttributes (..), + newLambdaFunctionCompletedEventAttributes, + lambdaFunctionCompletedEventAttributes_result, + lambdaFunctionCompletedEventAttributes_scheduledEventId, + lambdaFunctionCompletedEventAttributes_startedEventId, + + -- * LambdaFunctionFailedEventAttributes + LambdaFunctionFailedEventAttributes (..), + newLambdaFunctionFailedEventAttributes, + lambdaFunctionFailedEventAttributes_details, + lambdaFunctionFailedEventAttributes_reason, + lambdaFunctionFailedEventAttributes_scheduledEventId, + lambdaFunctionFailedEventAttributes_startedEventId, + + -- * LambdaFunctionScheduledEventAttributes + LambdaFunctionScheduledEventAttributes (..), + newLambdaFunctionScheduledEventAttributes, + lambdaFunctionScheduledEventAttributes_control, + lambdaFunctionScheduledEventAttributes_input, + lambdaFunctionScheduledEventAttributes_startToCloseTimeout, + lambdaFunctionScheduledEventAttributes_id, + lambdaFunctionScheduledEventAttributes_name, + lambdaFunctionScheduledEventAttributes_decisionTaskCompletedEventId, + + -- * LambdaFunctionStartedEventAttributes + LambdaFunctionStartedEventAttributes (..), + newLambdaFunctionStartedEventAttributes, + lambdaFunctionStartedEventAttributes_scheduledEventId, + + -- * LambdaFunctionTimedOutEventAttributes + LambdaFunctionTimedOutEventAttributes (..), + newLambdaFunctionTimedOutEventAttributes, + lambdaFunctionTimedOutEventAttributes_timeoutType, + lambdaFunctionTimedOutEventAttributes_scheduledEventId, + lambdaFunctionTimedOutEventAttributes_startedEventId, + + -- * MarkerRecordedEventAttributes + MarkerRecordedEventAttributes (..), + newMarkerRecordedEventAttributes, + markerRecordedEventAttributes_details, + markerRecordedEventAttributes_markerName, + markerRecordedEventAttributes_decisionTaskCompletedEventId, + + -- * PendingTaskCount + PendingTaskCount (..), + newPendingTaskCount, + pendingTaskCount_truncated, + pendingTaskCount_count, + + -- * RecordMarkerDecisionAttributes + RecordMarkerDecisionAttributes (..), + newRecordMarkerDecisionAttributes, + recordMarkerDecisionAttributes_details, + recordMarkerDecisionAttributes_markerName, + + -- * RecordMarkerFailedEventAttributes + RecordMarkerFailedEventAttributes (..), + newRecordMarkerFailedEventAttributes, + recordMarkerFailedEventAttributes_markerName, + recordMarkerFailedEventAttributes_cause, + recordMarkerFailedEventAttributes_decisionTaskCompletedEventId, + + -- * RequestCancelActivityTaskDecisionAttributes + RequestCancelActivityTaskDecisionAttributes (..), + newRequestCancelActivityTaskDecisionAttributes, + requestCancelActivityTaskDecisionAttributes_activityId, + + -- * RequestCancelActivityTaskFailedEventAttributes + RequestCancelActivityTaskFailedEventAttributes (..), + newRequestCancelActivityTaskFailedEventAttributes, + requestCancelActivityTaskFailedEventAttributes_activityId, + requestCancelActivityTaskFailedEventAttributes_cause, + requestCancelActivityTaskFailedEventAttributes_decisionTaskCompletedEventId, + + -- * RequestCancelExternalWorkflowExecutionDecisionAttributes + RequestCancelExternalWorkflowExecutionDecisionAttributes (..), + newRequestCancelExternalWorkflowExecutionDecisionAttributes, + requestCancelExternalWorkflowExecutionDecisionAttributes_control, + requestCancelExternalWorkflowExecutionDecisionAttributes_runId, + requestCancelExternalWorkflowExecutionDecisionAttributes_workflowId, + + -- * RequestCancelExternalWorkflowExecutionFailedEventAttributes + RequestCancelExternalWorkflowExecutionFailedEventAttributes (..), + newRequestCancelExternalWorkflowExecutionFailedEventAttributes, + requestCancelExternalWorkflowExecutionFailedEventAttributes_control, + requestCancelExternalWorkflowExecutionFailedEventAttributes_runId, + requestCancelExternalWorkflowExecutionFailedEventAttributes_workflowId, + requestCancelExternalWorkflowExecutionFailedEventAttributes_cause, + requestCancelExternalWorkflowExecutionFailedEventAttributes_initiatedEventId, + requestCancelExternalWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId, + + -- * RequestCancelExternalWorkflowExecutionInitiatedEventAttributes + RequestCancelExternalWorkflowExecutionInitiatedEventAttributes (..), + newRequestCancelExternalWorkflowExecutionInitiatedEventAttributes, + requestCancelExternalWorkflowExecutionInitiatedEventAttributes_control, + requestCancelExternalWorkflowExecutionInitiatedEventAttributes_runId, + requestCancelExternalWorkflowExecutionInitiatedEventAttributes_workflowId, + requestCancelExternalWorkflowExecutionInitiatedEventAttributes_decisionTaskCompletedEventId, + + -- * ResourceTag + ResourceTag (..), + newResourceTag, + resourceTag_value, + resourceTag_key, + + -- * ScheduleActivityTaskDecisionAttributes + ScheduleActivityTaskDecisionAttributes (..), + newScheduleActivityTaskDecisionAttributes, + scheduleActivityTaskDecisionAttributes_control, + scheduleActivityTaskDecisionAttributes_heartbeatTimeout, + scheduleActivityTaskDecisionAttributes_input, + scheduleActivityTaskDecisionAttributes_scheduleToCloseTimeout, + scheduleActivityTaskDecisionAttributes_scheduleToStartTimeout, + scheduleActivityTaskDecisionAttributes_startToCloseTimeout, + scheduleActivityTaskDecisionAttributes_taskList, + scheduleActivityTaskDecisionAttributes_taskPriority, + scheduleActivityTaskDecisionAttributes_activityType, + scheduleActivityTaskDecisionAttributes_activityId, + + -- * ScheduleActivityTaskFailedEventAttributes + ScheduleActivityTaskFailedEventAttributes (..), + newScheduleActivityTaskFailedEventAttributes, + scheduleActivityTaskFailedEventAttributes_activityType, + scheduleActivityTaskFailedEventAttributes_activityId, + scheduleActivityTaskFailedEventAttributes_cause, + scheduleActivityTaskFailedEventAttributes_decisionTaskCompletedEventId, + + -- * ScheduleLambdaFunctionDecisionAttributes + ScheduleLambdaFunctionDecisionAttributes (..), + newScheduleLambdaFunctionDecisionAttributes, + scheduleLambdaFunctionDecisionAttributes_control, + scheduleLambdaFunctionDecisionAttributes_input, + scheduleLambdaFunctionDecisionAttributes_startToCloseTimeout, + scheduleLambdaFunctionDecisionAttributes_id, + scheduleLambdaFunctionDecisionAttributes_name, + + -- * ScheduleLambdaFunctionFailedEventAttributes + ScheduleLambdaFunctionFailedEventAttributes (..), + newScheduleLambdaFunctionFailedEventAttributes, + scheduleLambdaFunctionFailedEventAttributes_id, + scheduleLambdaFunctionFailedEventAttributes_name, + scheduleLambdaFunctionFailedEventAttributes_cause, + scheduleLambdaFunctionFailedEventAttributes_decisionTaskCompletedEventId, + + -- * SignalExternalWorkflowExecutionDecisionAttributes + SignalExternalWorkflowExecutionDecisionAttributes (..), + newSignalExternalWorkflowExecutionDecisionAttributes, + signalExternalWorkflowExecutionDecisionAttributes_control, + signalExternalWorkflowExecutionDecisionAttributes_input, + signalExternalWorkflowExecutionDecisionAttributes_runId, + signalExternalWorkflowExecutionDecisionAttributes_workflowId, + signalExternalWorkflowExecutionDecisionAttributes_signalName, + + -- * SignalExternalWorkflowExecutionFailedEventAttributes + SignalExternalWorkflowExecutionFailedEventAttributes (..), + newSignalExternalWorkflowExecutionFailedEventAttributes, + signalExternalWorkflowExecutionFailedEventAttributes_control, + signalExternalWorkflowExecutionFailedEventAttributes_runId, + signalExternalWorkflowExecutionFailedEventAttributes_workflowId, + signalExternalWorkflowExecutionFailedEventAttributes_cause, + signalExternalWorkflowExecutionFailedEventAttributes_initiatedEventId, + signalExternalWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId, + + -- * SignalExternalWorkflowExecutionInitiatedEventAttributes + SignalExternalWorkflowExecutionInitiatedEventAttributes (..), + newSignalExternalWorkflowExecutionInitiatedEventAttributes, + signalExternalWorkflowExecutionInitiatedEventAttributes_control, + signalExternalWorkflowExecutionInitiatedEventAttributes_input, + signalExternalWorkflowExecutionInitiatedEventAttributes_runId, + signalExternalWorkflowExecutionInitiatedEventAttributes_workflowId, + signalExternalWorkflowExecutionInitiatedEventAttributes_signalName, + signalExternalWorkflowExecutionInitiatedEventAttributes_decisionTaskCompletedEventId, + + -- * StartChildWorkflowExecutionDecisionAttributes + StartChildWorkflowExecutionDecisionAttributes (..), + newStartChildWorkflowExecutionDecisionAttributes, + startChildWorkflowExecutionDecisionAttributes_childPolicy, + startChildWorkflowExecutionDecisionAttributes_control, + startChildWorkflowExecutionDecisionAttributes_executionStartToCloseTimeout, + startChildWorkflowExecutionDecisionAttributes_input, + startChildWorkflowExecutionDecisionAttributes_lambdaRole, + startChildWorkflowExecutionDecisionAttributes_tagList, + startChildWorkflowExecutionDecisionAttributes_taskList, + startChildWorkflowExecutionDecisionAttributes_taskPriority, + startChildWorkflowExecutionDecisionAttributes_taskStartToCloseTimeout, + startChildWorkflowExecutionDecisionAttributes_workflowType, + startChildWorkflowExecutionDecisionAttributes_workflowId, + + -- * StartChildWorkflowExecutionFailedEventAttributes + StartChildWorkflowExecutionFailedEventAttributes (..), + newStartChildWorkflowExecutionFailedEventAttributes, + startChildWorkflowExecutionFailedEventAttributes_control, + startChildWorkflowExecutionFailedEventAttributes_workflowType, + startChildWorkflowExecutionFailedEventAttributes_cause, + startChildWorkflowExecutionFailedEventAttributes_workflowId, + startChildWorkflowExecutionFailedEventAttributes_initiatedEventId, + startChildWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId, + + -- * StartChildWorkflowExecutionInitiatedEventAttributes + StartChildWorkflowExecutionInitiatedEventAttributes (..), + newStartChildWorkflowExecutionInitiatedEventAttributes, + startChildWorkflowExecutionInitiatedEventAttributes_control, + startChildWorkflowExecutionInitiatedEventAttributes_executionStartToCloseTimeout, + startChildWorkflowExecutionInitiatedEventAttributes_input, + startChildWorkflowExecutionInitiatedEventAttributes_lambdaRole, + startChildWorkflowExecutionInitiatedEventAttributes_tagList, + startChildWorkflowExecutionInitiatedEventAttributes_taskPriority, + startChildWorkflowExecutionInitiatedEventAttributes_taskStartToCloseTimeout, + startChildWorkflowExecutionInitiatedEventAttributes_workflowId, + startChildWorkflowExecutionInitiatedEventAttributes_workflowType, + startChildWorkflowExecutionInitiatedEventAttributes_taskList, + startChildWorkflowExecutionInitiatedEventAttributes_decisionTaskCompletedEventId, + startChildWorkflowExecutionInitiatedEventAttributes_childPolicy, + + -- * StartLambdaFunctionFailedEventAttributes + StartLambdaFunctionFailedEventAttributes (..), + newStartLambdaFunctionFailedEventAttributes, + startLambdaFunctionFailedEventAttributes_cause, + startLambdaFunctionFailedEventAttributes_message, + startLambdaFunctionFailedEventAttributes_scheduledEventId, + + -- * StartTimerDecisionAttributes + StartTimerDecisionAttributes (..), + newStartTimerDecisionAttributes, + startTimerDecisionAttributes_control, + startTimerDecisionAttributes_timerId, + startTimerDecisionAttributes_startToFireTimeout, + + -- * StartTimerFailedEventAttributes + StartTimerFailedEventAttributes (..), + newStartTimerFailedEventAttributes, + startTimerFailedEventAttributes_timerId, + startTimerFailedEventAttributes_cause, + startTimerFailedEventAttributes_decisionTaskCompletedEventId, + + -- * TagFilter + TagFilter (..), + newTagFilter, + tagFilter_tag, + + -- * TaskList + TaskList (..), + newTaskList, + taskList_name, + + -- * TimerCanceledEventAttributes + TimerCanceledEventAttributes (..), + newTimerCanceledEventAttributes, + timerCanceledEventAttributes_timerId, + timerCanceledEventAttributes_startedEventId, + timerCanceledEventAttributes_decisionTaskCompletedEventId, + + -- * TimerFiredEventAttributes + TimerFiredEventAttributes (..), + newTimerFiredEventAttributes, + timerFiredEventAttributes_timerId, + timerFiredEventAttributes_startedEventId, + + -- * TimerStartedEventAttributes + TimerStartedEventAttributes (..), + newTimerStartedEventAttributes, + timerStartedEventAttributes_control, + timerStartedEventAttributes_timerId, + timerStartedEventAttributes_startToFireTimeout, + timerStartedEventAttributes_decisionTaskCompletedEventId, + + -- * WorkflowExecution + WorkflowExecution (..), + newWorkflowExecution, + workflowExecution_workflowId, + workflowExecution_runId, + + -- * WorkflowExecutionCancelRequestedEventAttributes + WorkflowExecutionCancelRequestedEventAttributes (..), + newWorkflowExecutionCancelRequestedEventAttributes, + workflowExecutionCancelRequestedEventAttributes_cause, + workflowExecutionCancelRequestedEventAttributes_externalInitiatedEventId, + workflowExecutionCancelRequestedEventAttributes_externalWorkflowExecution, + + -- * WorkflowExecutionCanceledEventAttributes + WorkflowExecutionCanceledEventAttributes (..), + newWorkflowExecutionCanceledEventAttributes, + workflowExecutionCanceledEventAttributes_details, + workflowExecutionCanceledEventAttributes_decisionTaskCompletedEventId, + + -- * WorkflowExecutionCompletedEventAttributes + WorkflowExecutionCompletedEventAttributes (..), + newWorkflowExecutionCompletedEventAttributes, + workflowExecutionCompletedEventAttributes_result, + workflowExecutionCompletedEventAttributes_decisionTaskCompletedEventId, + + -- * WorkflowExecutionConfiguration + WorkflowExecutionConfiguration (..), + newWorkflowExecutionConfiguration, + workflowExecutionConfiguration_lambdaRole, + workflowExecutionConfiguration_taskPriority, + workflowExecutionConfiguration_taskStartToCloseTimeout, + workflowExecutionConfiguration_executionStartToCloseTimeout, + workflowExecutionConfiguration_taskList, + workflowExecutionConfiguration_childPolicy, + + -- * WorkflowExecutionContinuedAsNewEventAttributes + WorkflowExecutionContinuedAsNewEventAttributes (..), + newWorkflowExecutionContinuedAsNewEventAttributes, + workflowExecutionContinuedAsNewEventAttributes_executionStartToCloseTimeout, + workflowExecutionContinuedAsNewEventAttributes_input, + workflowExecutionContinuedAsNewEventAttributes_lambdaRole, + workflowExecutionContinuedAsNewEventAttributes_tagList, + workflowExecutionContinuedAsNewEventAttributes_taskPriority, + workflowExecutionContinuedAsNewEventAttributes_taskStartToCloseTimeout, + workflowExecutionContinuedAsNewEventAttributes_decisionTaskCompletedEventId, + workflowExecutionContinuedAsNewEventAttributes_newExecutionRunId, + workflowExecutionContinuedAsNewEventAttributes_taskList, + workflowExecutionContinuedAsNewEventAttributes_childPolicy, + workflowExecutionContinuedAsNewEventAttributes_workflowType, + + -- * WorkflowExecutionCount + WorkflowExecutionCount (..), + newWorkflowExecutionCount, + workflowExecutionCount_truncated, + workflowExecutionCount_count, + + -- * WorkflowExecutionFailedEventAttributes + WorkflowExecutionFailedEventAttributes (..), + newWorkflowExecutionFailedEventAttributes, + workflowExecutionFailedEventAttributes_details, + workflowExecutionFailedEventAttributes_reason, + workflowExecutionFailedEventAttributes_decisionTaskCompletedEventId, + + -- * WorkflowExecutionFilter + WorkflowExecutionFilter (..), + newWorkflowExecutionFilter, + workflowExecutionFilter_workflowId, + + -- * WorkflowExecutionInfo + WorkflowExecutionInfo (..), + newWorkflowExecutionInfo, + workflowExecutionInfo_cancelRequested, + workflowExecutionInfo_closeStatus, + workflowExecutionInfo_closeTimestamp, + workflowExecutionInfo_parent, + workflowExecutionInfo_tagList, + workflowExecutionInfo_execution, + workflowExecutionInfo_workflowType, + workflowExecutionInfo_startTimestamp, + workflowExecutionInfo_executionStatus, + + -- * WorkflowExecutionInfos + WorkflowExecutionInfos (..), + newWorkflowExecutionInfos, + workflowExecutionInfos_nextPageToken, + workflowExecutionInfos_executionInfos, + + -- * WorkflowExecutionOpenCounts + WorkflowExecutionOpenCounts (..), + newWorkflowExecutionOpenCounts, + workflowExecutionOpenCounts_openLambdaFunctions, + workflowExecutionOpenCounts_openActivityTasks, + workflowExecutionOpenCounts_openDecisionTasks, + workflowExecutionOpenCounts_openTimers, + workflowExecutionOpenCounts_openChildWorkflowExecutions, + + -- * WorkflowExecutionSignaledEventAttributes + WorkflowExecutionSignaledEventAttributes (..), + newWorkflowExecutionSignaledEventAttributes, + workflowExecutionSignaledEventAttributes_externalInitiatedEventId, + workflowExecutionSignaledEventAttributes_externalWorkflowExecution, + workflowExecutionSignaledEventAttributes_input, + workflowExecutionSignaledEventAttributes_signalName, + + -- * WorkflowExecutionStartedEventAttributes + WorkflowExecutionStartedEventAttributes (..), + newWorkflowExecutionStartedEventAttributes, + workflowExecutionStartedEventAttributes_continuedExecutionRunId, + workflowExecutionStartedEventAttributes_executionStartToCloseTimeout, + workflowExecutionStartedEventAttributes_input, + workflowExecutionStartedEventAttributes_lambdaRole, + workflowExecutionStartedEventAttributes_parentInitiatedEventId, + workflowExecutionStartedEventAttributes_parentWorkflowExecution, + workflowExecutionStartedEventAttributes_tagList, + workflowExecutionStartedEventAttributes_taskPriority, + workflowExecutionStartedEventAttributes_taskStartToCloseTimeout, + workflowExecutionStartedEventAttributes_childPolicy, + workflowExecutionStartedEventAttributes_taskList, + workflowExecutionStartedEventAttributes_workflowType, + + -- * WorkflowExecutionTerminatedEventAttributes + WorkflowExecutionTerminatedEventAttributes (..), + newWorkflowExecutionTerminatedEventAttributes, + workflowExecutionTerminatedEventAttributes_cause, + workflowExecutionTerminatedEventAttributes_details, + workflowExecutionTerminatedEventAttributes_reason, + workflowExecutionTerminatedEventAttributes_childPolicy, + + -- * WorkflowExecutionTimedOutEventAttributes + WorkflowExecutionTimedOutEventAttributes (..), + newWorkflowExecutionTimedOutEventAttributes, + workflowExecutionTimedOutEventAttributes_timeoutType, + workflowExecutionTimedOutEventAttributes_childPolicy, + + -- * WorkflowType + WorkflowType (..), + newWorkflowType, + workflowType_name, + workflowType_version, + + -- * WorkflowTypeConfiguration + WorkflowTypeConfiguration (..), + newWorkflowTypeConfiguration, + workflowTypeConfiguration_defaultChildPolicy, + workflowTypeConfiguration_defaultExecutionStartToCloseTimeout, + workflowTypeConfiguration_defaultLambdaRole, + workflowTypeConfiguration_defaultTaskList, + workflowTypeConfiguration_defaultTaskPriority, + workflowTypeConfiguration_defaultTaskStartToCloseTimeout, + + -- * WorkflowTypeFilter + WorkflowTypeFilter (..), + newWorkflowTypeFilter, + workflowTypeFilter_version, + workflowTypeFilter_name, + + -- * WorkflowTypeInfo + WorkflowTypeInfo (..), + newWorkflowTypeInfo, + workflowTypeInfo_deprecationDate, + workflowTypeInfo_description, + workflowTypeInfo_workflowType, + workflowTypeInfo_status, + workflowTypeInfo_creationDate, + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Core.Lens.Internal as Lens +import qualified Amazonka.Prelude as Prelude +import Amazonka.SWF.Types.ActivityTaskCancelRequestedEventAttributes +import Amazonka.SWF.Types.ActivityTaskCanceledEventAttributes +import Amazonka.SWF.Types.ActivityTaskCompletedEventAttributes +import Amazonka.SWF.Types.ActivityTaskFailedEventAttributes +import Amazonka.SWF.Types.ActivityTaskScheduledEventAttributes +import Amazonka.SWF.Types.ActivityTaskStartedEventAttributes +import Amazonka.SWF.Types.ActivityTaskTimedOutEventAttributes +import Amazonka.SWF.Types.ActivityTaskTimeoutType +import Amazonka.SWF.Types.ActivityType +import Amazonka.SWF.Types.ActivityTypeConfiguration +import Amazonka.SWF.Types.ActivityTypeInfo +import Amazonka.SWF.Types.CancelTimerDecisionAttributes +import Amazonka.SWF.Types.CancelTimerFailedCause +import Amazonka.SWF.Types.CancelTimerFailedEventAttributes +import Amazonka.SWF.Types.CancelWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.CancelWorkflowExecutionFailedCause +import Amazonka.SWF.Types.CancelWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.ChildPolicy +import Amazonka.SWF.Types.ChildWorkflowExecutionCanceledEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionCompletedEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionStartedEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionTerminatedEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionTimedOutEventAttributes +import Amazonka.SWF.Types.CloseStatus +import Amazonka.SWF.Types.CloseStatusFilter +import Amazonka.SWF.Types.CompleteWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.CompleteWorkflowExecutionFailedCause +import Amazonka.SWF.Types.CompleteWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.ContinueAsNewWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.ContinueAsNewWorkflowExecutionFailedCause +import Amazonka.SWF.Types.ContinueAsNewWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.Decision +import Amazonka.SWF.Types.DecisionTaskCompletedEventAttributes +import Amazonka.SWF.Types.DecisionTaskScheduledEventAttributes +import Amazonka.SWF.Types.DecisionTaskStartedEventAttributes +import Amazonka.SWF.Types.DecisionTaskTimedOutEventAttributes +import Amazonka.SWF.Types.DecisionTaskTimeoutType +import Amazonka.SWF.Types.DecisionType +import Amazonka.SWF.Types.DomainConfiguration +import Amazonka.SWF.Types.DomainInfo +import Amazonka.SWF.Types.EventType +import Amazonka.SWF.Types.ExecutionStatus +import Amazonka.SWF.Types.ExecutionTimeFilter +import Amazonka.SWF.Types.ExternalWorkflowExecutionCancelRequestedEventAttributes +import Amazonka.SWF.Types.ExternalWorkflowExecutionSignaledEventAttributes +import Amazonka.SWF.Types.FailWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.FailWorkflowExecutionFailedCause +import Amazonka.SWF.Types.FailWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.HistoryEvent +import Amazonka.SWF.Types.LambdaFunctionCompletedEventAttributes +import Amazonka.SWF.Types.LambdaFunctionFailedEventAttributes +import Amazonka.SWF.Types.LambdaFunctionScheduledEventAttributes +import Amazonka.SWF.Types.LambdaFunctionStartedEventAttributes +import Amazonka.SWF.Types.LambdaFunctionTimedOutEventAttributes +import Amazonka.SWF.Types.LambdaFunctionTimeoutType +import Amazonka.SWF.Types.MarkerRecordedEventAttributes +import Amazonka.SWF.Types.PendingTaskCount +import Amazonka.SWF.Types.RecordMarkerDecisionAttributes +import Amazonka.SWF.Types.RecordMarkerFailedCause +import Amazonka.SWF.Types.RecordMarkerFailedEventAttributes +import Amazonka.SWF.Types.RegistrationStatus +import Amazonka.SWF.Types.RequestCancelActivityTaskDecisionAttributes +import Amazonka.SWF.Types.RequestCancelActivityTaskFailedCause +import Amazonka.SWF.Types.RequestCancelActivityTaskFailedEventAttributes +import Amazonka.SWF.Types.RequestCancelExternalWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.RequestCancelExternalWorkflowExecutionFailedCause +import Amazonka.SWF.Types.RequestCancelExternalWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.RequestCancelExternalWorkflowExecutionInitiatedEventAttributes +import Amazonka.SWF.Types.ResourceTag +import Amazonka.SWF.Types.ScheduleActivityTaskDecisionAttributes +import Amazonka.SWF.Types.ScheduleActivityTaskFailedCause +import Amazonka.SWF.Types.ScheduleActivityTaskFailedEventAttributes +import Amazonka.SWF.Types.ScheduleLambdaFunctionDecisionAttributes +import Amazonka.SWF.Types.ScheduleLambdaFunctionFailedCause +import Amazonka.SWF.Types.ScheduleLambdaFunctionFailedEventAttributes +import Amazonka.SWF.Types.SignalExternalWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.SignalExternalWorkflowExecutionFailedCause +import Amazonka.SWF.Types.SignalExternalWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.SignalExternalWorkflowExecutionInitiatedEventAttributes +import Amazonka.SWF.Types.StartChildWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.StartChildWorkflowExecutionFailedCause +import Amazonka.SWF.Types.StartChildWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.StartChildWorkflowExecutionInitiatedEventAttributes +import Amazonka.SWF.Types.StartLambdaFunctionFailedCause +import Amazonka.SWF.Types.StartLambdaFunctionFailedEventAttributes +import Amazonka.SWF.Types.StartTimerDecisionAttributes +import Amazonka.SWF.Types.StartTimerFailedCause +import Amazonka.SWF.Types.StartTimerFailedEventAttributes +import Amazonka.SWF.Types.TagFilter +import Amazonka.SWF.Types.TaskList +import Amazonka.SWF.Types.TimerCanceledEventAttributes +import Amazonka.SWF.Types.TimerFiredEventAttributes +import Amazonka.SWF.Types.TimerStartedEventAttributes +import Amazonka.SWF.Types.WorkflowExecution +import Amazonka.SWF.Types.WorkflowExecutionCancelRequestedCause +import Amazonka.SWF.Types.WorkflowExecutionCancelRequestedEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionCanceledEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionCompletedEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionConfiguration +import Amazonka.SWF.Types.WorkflowExecutionContinuedAsNewEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionCount +import Amazonka.SWF.Types.WorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionFilter +import Amazonka.SWF.Types.WorkflowExecutionInfo +import Amazonka.SWF.Types.WorkflowExecutionInfos +import Amazonka.SWF.Types.WorkflowExecutionOpenCounts +import Amazonka.SWF.Types.WorkflowExecutionSignaledEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionStartedEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionTerminatedCause +import Amazonka.SWF.Types.WorkflowExecutionTerminatedEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionTimedOutEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionTimeoutType +import Amazonka.SWF.Types.WorkflowType +import Amazonka.SWF.Types.WorkflowTypeConfiguration +import Amazonka.SWF.Types.WorkflowTypeFilter +import Amazonka.SWF.Types.WorkflowTypeInfo +import qualified Amazonka.Sign.V4 as Sign + +-- | API version @2012-01-25@ of the Amazon Simple Workflow Service SDK configuration. +defaultService :: Core.Service +defaultService = + Core.Service + { Core.abbrev = "SWF", + Core.signer = Sign.v4, + Core.endpointPrefix = "swf", + Core.signingName = "swf", + Core.version = "2012-01-25", + Core.s3AddressingStyle = Core.S3AddressingStyleAuto, + Core.endpoint = Core.defaultEndpoint defaultService, + Core.timeout = Prelude.Just 70, + Core.check = Core.statusSuccess, + Core.error = Core.parseJSONError "SWF", + 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 @StartWorkflowExecution@ API action was called without the required +-- parameters set. +-- +-- Some workflow execution parameters, such as the decision @taskList@, +-- must be set to start the execution. However, these parameters might have +-- been set as defaults when the workflow type was registered. In this +-- case, you can omit these parameters from the @StartWorkflowExecution@ +-- call and Amazon SWF uses the values defined in the workflow type. +-- +-- If these parameters aren\'t set and no default parameters were defined +-- in the workflow type, this error is displayed. +_DefaultUndefinedFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_DefaultUndefinedFault = + Core._MatchServiceError + defaultService + "DefaultUndefinedFault" + +-- | Returned if the domain already exists. You may get this fault if you are +-- registering a domain that is either already registered or deprecated, or +-- if you undeprecate a domain that is currently registered. +_DomainAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_DomainAlreadyExistsFault = + Core._MatchServiceError + defaultService + "DomainAlreadyExistsFault" + +-- | Returned when the specified domain has been deprecated. +_DomainDeprecatedFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_DomainDeprecatedFault = + Core._MatchServiceError + defaultService + "DomainDeprecatedFault" + +-- | Returned by any operation if a system imposed limitation has been +-- reached. To address this fault you should either clean up unused +-- resources or increase the limit by contacting AWS. +_LimitExceededFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_LimitExceededFault = + Core._MatchServiceError + defaultService + "LimitExceededFault" + +-- | Returned when the caller doesn\'t have sufficient permissions to invoke +-- the action. +_OperationNotPermittedFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_OperationNotPermittedFault = + Core._MatchServiceError + defaultService + "OperationNotPermittedFault" + +-- | You\'ve exceeded the number of tags allowed for a domain. +_TooManyTagsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_TooManyTagsFault = + Core._MatchServiceError + defaultService + "TooManyTagsFault" + +-- | Returned if the type already exists in the specified domain. You may get +-- this fault if you are registering a type that is either already +-- registered or deprecated, or if you undeprecate a type that is currently +-- registered. +_TypeAlreadyExistsFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_TypeAlreadyExistsFault = + Core._MatchServiceError + defaultService + "TypeAlreadyExistsFault" + +-- | Returned when the specified activity or workflow type was already +-- deprecated. +_TypeDeprecatedFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_TypeDeprecatedFault = + Core._MatchServiceError + defaultService + "TypeDeprecatedFault" + +-- | Returned when the named resource cannot be found with in the scope of +-- this operation (region or domain). This could happen if the named +-- resource was never created or is no longer available for this operation. +_UnknownResourceFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_UnknownResourceFault = + Core._MatchServiceError + defaultService + "UnknownResourceFault" + +-- | Returned by StartWorkflowExecution when an open execution with the same +-- workflowId is already running in the specified domain. +_WorkflowExecutionAlreadyStartedFault :: (Core.AsError a) => Lens.Fold a Core.ServiceError +_WorkflowExecutionAlreadyStartedFault = + Core._MatchServiceError + defaultService + "WorkflowExecutionAlreadyStartedFault" diff --git a/gen/Amazonka/SWF/Types/ActivityTaskCancelRequestedEventAttributes.hs b/gen/Amazonka/SWF/Types/ActivityTaskCancelRequestedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ActivityTaskCancelRequestedEventAttributes.hs @@ -0,0 +1,114 @@ +{-# 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.SWF.Types.ActivityTaskCancelRequestedEventAttributes +-- 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.SWF.Types.ActivityTaskCancelRequestedEventAttributes 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 + +-- | Provides the details of the @ActivityTaskCancelRequested@ event. +-- +-- /See:/ 'newActivityTaskCancelRequestedEventAttributes' smart constructor. +data ActivityTaskCancelRequestedEventAttributes = ActivityTaskCancelRequestedEventAttributes' + { -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @RequestCancelActivityTask@ decision + -- for this cancellation request. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + decisionTaskCompletedEventId :: Prelude.Integer, + -- | The unique ID of the task. + activityId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ActivityTaskCancelRequestedEventAttributes' 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: +-- +-- 'decisionTaskCompletedEventId', 'activityTaskCancelRequestedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @RequestCancelActivityTask@ decision +-- for this cancellation request. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +-- +-- 'activityId', 'activityTaskCancelRequestedEventAttributes_activityId' - The unique ID of the task. +newActivityTaskCancelRequestedEventAttributes :: + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + -- | 'activityId' + Prelude.Text -> + ActivityTaskCancelRequestedEventAttributes +newActivityTaskCancelRequestedEventAttributes + pDecisionTaskCompletedEventId_ + pActivityId_ = + ActivityTaskCancelRequestedEventAttributes' + { decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_, + activityId = pActivityId_ + } + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @RequestCancelActivityTask@ decision +-- for this cancellation request. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +activityTaskCancelRequestedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' ActivityTaskCancelRequestedEventAttributes Prelude.Integer +activityTaskCancelRequestedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\ActivityTaskCancelRequestedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@ActivityTaskCancelRequestedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: ActivityTaskCancelRequestedEventAttributes) + +-- | The unique ID of the task. +activityTaskCancelRequestedEventAttributes_activityId :: Lens.Lens' ActivityTaskCancelRequestedEventAttributes Prelude.Text +activityTaskCancelRequestedEventAttributes_activityId = Lens.lens (\ActivityTaskCancelRequestedEventAttributes' {activityId} -> activityId) (\s@ActivityTaskCancelRequestedEventAttributes' {} a -> s {activityId = a} :: ActivityTaskCancelRequestedEventAttributes) + +instance + Data.FromJSON + ActivityTaskCancelRequestedEventAttributes + where + parseJSON = + Data.withObject + "ActivityTaskCancelRequestedEventAttributes" + ( \x -> + ActivityTaskCancelRequestedEventAttributes' + Prelude.<$> (x Data..: "decisionTaskCompletedEventId") + Prelude.<*> (x Data..: "activityId") + ) + +instance + Prelude.Hashable + ActivityTaskCancelRequestedEventAttributes + where + hashWithSalt + _salt + ActivityTaskCancelRequestedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` decisionTaskCompletedEventId + `Prelude.hashWithSalt` activityId + +instance + Prelude.NFData + ActivityTaskCancelRequestedEventAttributes + where + rnf ActivityTaskCancelRequestedEventAttributes' {..} = + Prelude.rnf decisionTaskCompletedEventId + `Prelude.seq` Prelude.rnf activityId diff --git a/gen/Amazonka/SWF/Types/ActivityTaskCanceledEventAttributes.hs b/gen/Amazonka/SWF/Types/ActivityTaskCanceledEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ActivityTaskCanceledEventAttributes.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.SWF.Types.ActivityTaskCanceledEventAttributes +-- 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.SWF.Types.ActivityTaskCanceledEventAttributes 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 + +-- | Provides the details of the @ActivityTaskCanceled@ event. +-- +-- /See:/ 'newActivityTaskCanceledEventAttributes' smart constructor. +data ActivityTaskCanceledEventAttributes = ActivityTaskCanceledEventAttributes' + { -- | Details of the cancellation. + details :: Prelude.Maybe Prelude.Text, + -- | If set, contains the ID of the last @ActivityTaskCancelRequested@ event + -- recorded for this activity task. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + latestCancelRequestedEventId :: Prelude.Maybe Prelude.Integer, + -- | The ID of the @ActivityTaskScheduled@ event that was recorded when this + -- activity task was scheduled. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + scheduledEventId :: Prelude.Integer, + -- | The ID of the @ActivityTaskStarted@ event recorded when this activity + -- task was started. This information can be useful for diagnosing problems + -- by tracing back the chain of events leading up to this event. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ActivityTaskCanceledEventAttributes' 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: +-- +-- 'details', 'activityTaskCanceledEventAttributes_details' - Details of the cancellation. +-- +-- 'latestCancelRequestedEventId', 'activityTaskCanceledEventAttributes_latestCancelRequestedEventId' - If set, contains the ID of the last @ActivityTaskCancelRequested@ event +-- recorded for this activity task. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +-- +-- 'scheduledEventId', 'activityTaskCanceledEventAttributes_scheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this +-- activity task was scheduled. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +-- +-- 'startedEventId', 'activityTaskCanceledEventAttributes_startedEventId' - The ID of the @ActivityTaskStarted@ event recorded when this activity +-- task was started. This information can be useful for diagnosing problems +-- by tracing back the chain of events leading up to this event. +newActivityTaskCanceledEventAttributes :: + -- | 'scheduledEventId' + Prelude.Integer -> + -- | 'startedEventId' + Prelude.Integer -> + ActivityTaskCanceledEventAttributes +newActivityTaskCanceledEventAttributes + pScheduledEventId_ + pStartedEventId_ = + ActivityTaskCanceledEventAttributes' + { details = + Prelude.Nothing, + latestCancelRequestedEventId = + Prelude.Nothing, + scheduledEventId = pScheduledEventId_, + startedEventId = pStartedEventId_ + } + +-- | Details of the cancellation. +activityTaskCanceledEventAttributes_details :: Lens.Lens' ActivityTaskCanceledEventAttributes (Prelude.Maybe Prelude.Text) +activityTaskCanceledEventAttributes_details = Lens.lens (\ActivityTaskCanceledEventAttributes' {details} -> details) (\s@ActivityTaskCanceledEventAttributes' {} a -> s {details = a} :: ActivityTaskCanceledEventAttributes) + +-- | If set, contains the ID of the last @ActivityTaskCancelRequested@ event +-- recorded for this activity task. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +activityTaskCanceledEventAttributes_latestCancelRequestedEventId :: Lens.Lens' ActivityTaskCanceledEventAttributes (Prelude.Maybe Prelude.Integer) +activityTaskCanceledEventAttributes_latestCancelRequestedEventId = Lens.lens (\ActivityTaskCanceledEventAttributes' {latestCancelRequestedEventId} -> latestCancelRequestedEventId) (\s@ActivityTaskCanceledEventAttributes' {} a -> s {latestCancelRequestedEventId = a} :: ActivityTaskCanceledEventAttributes) + +-- | The ID of the @ActivityTaskScheduled@ event that was recorded when this +-- activity task was scheduled. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +activityTaskCanceledEventAttributes_scheduledEventId :: Lens.Lens' ActivityTaskCanceledEventAttributes Prelude.Integer +activityTaskCanceledEventAttributes_scheduledEventId = Lens.lens (\ActivityTaskCanceledEventAttributes' {scheduledEventId} -> scheduledEventId) (\s@ActivityTaskCanceledEventAttributes' {} a -> s {scheduledEventId = a} :: ActivityTaskCanceledEventAttributes) + +-- | The ID of the @ActivityTaskStarted@ event recorded when this activity +-- task was started. This information can be useful for diagnosing problems +-- by tracing back the chain of events leading up to this event. +activityTaskCanceledEventAttributes_startedEventId :: Lens.Lens' ActivityTaskCanceledEventAttributes Prelude.Integer +activityTaskCanceledEventAttributes_startedEventId = Lens.lens (\ActivityTaskCanceledEventAttributes' {startedEventId} -> startedEventId) (\s@ActivityTaskCanceledEventAttributes' {} a -> s {startedEventId = a} :: ActivityTaskCanceledEventAttributes) + +instance + Data.FromJSON + ActivityTaskCanceledEventAttributes + where + parseJSON = + Data.withObject + "ActivityTaskCanceledEventAttributes" + ( \x -> + ActivityTaskCanceledEventAttributes' + Prelude.<$> (x Data..:? "details") + Prelude.<*> (x Data..:? "latestCancelRequestedEventId") + Prelude.<*> (x Data..: "scheduledEventId") + Prelude.<*> (x Data..: "startedEventId") + ) + +instance + Prelude.Hashable + ActivityTaskCanceledEventAttributes + where + hashWithSalt + _salt + ActivityTaskCanceledEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` latestCancelRequestedEventId + `Prelude.hashWithSalt` scheduledEventId + `Prelude.hashWithSalt` startedEventId + +instance + Prelude.NFData + ActivityTaskCanceledEventAttributes + where + rnf ActivityTaskCanceledEventAttributes' {..} = + Prelude.rnf details + `Prelude.seq` Prelude.rnf latestCancelRequestedEventId + `Prelude.seq` Prelude.rnf scheduledEventId + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/Types/ActivityTaskCompletedEventAttributes.hs b/gen/Amazonka/SWF/Types/ActivityTaskCompletedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ActivityTaskCompletedEventAttributes.hs @@ -0,0 +1,129 @@ +{-# 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.SWF.Types.ActivityTaskCompletedEventAttributes +-- 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.SWF.Types.ActivityTaskCompletedEventAttributes 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 + +-- | Provides the details of the @ActivityTaskCompleted@ event. +-- +-- /See:/ 'newActivityTaskCompletedEventAttributes' smart constructor. +data ActivityTaskCompletedEventAttributes = ActivityTaskCompletedEventAttributes' + { -- | The results of the activity task. + result :: Prelude.Maybe Prelude.Text, + -- | The ID of the @ActivityTaskScheduled@ event that was recorded when this + -- activity task was scheduled. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + scheduledEventId :: Prelude.Integer, + -- | The ID of the @ActivityTaskStarted@ event recorded when this activity + -- task was started. This information can be useful for diagnosing problems + -- by tracing back the chain of events leading up to this event. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ActivityTaskCompletedEventAttributes' 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: +-- +-- 'result', 'activityTaskCompletedEventAttributes_result' - The results of the activity task. +-- +-- 'scheduledEventId', 'activityTaskCompletedEventAttributes_scheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this +-- activity task was scheduled. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +-- +-- 'startedEventId', 'activityTaskCompletedEventAttributes_startedEventId' - The ID of the @ActivityTaskStarted@ event recorded when this activity +-- task was started. This information can be useful for diagnosing problems +-- by tracing back the chain of events leading up to this event. +newActivityTaskCompletedEventAttributes :: + -- | 'scheduledEventId' + Prelude.Integer -> + -- | 'startedEventId' + Prelude.Integer -> + ActivityTaskCompletedEventAttributes +newActivityTaskCompletedEventAttributes + pScheduledEventId_ + pStartedEventId_ = + ActivityTaskCompletedEventAttributes' + { result = + Prelude.Nothing, + scheduledEventId = pScheduledEventId_, + startedEventId = pStartedEventId_ + } + +-- | The results of the activity task. +activityTaskCompletedEventAttributes_result :: Lens.Lens' ActivityTaskCompletedEventAttributes (Prelude.Maybe Prelude.Text) +activityTaskCompletedEventAttributes_result = Lens.lens (\ActivityTaskCompletedEventAttributes' {result} -> result) (\s@ActivityTaskCompletedEventAttributes' {} a -> s {result = a} :: ActivityTaskCompletedEventAttributes) + +-- | The ID of the @ActivityTaskScheduled@ event that was recorded when this +-- activity task was scheduled. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +activityTaskCompletedEventAttributes_scheduledEventId :: Lens.Lens' ActivityTaskCompletedEventAttributes Prelude.Integer +activityTaskCompletedEventAttributes_scheduledEventId = Lens.lens (\ActivityTaskCompletedEventAttributes' {scheduledEventId} -> scheduledEventId) (\s@ActivityTaskCompletedEventAttributes' {} a -> s {scheduledEventId = a} :: ActivityTaskCompletedEventAttributes) + +-- | The ID of the @ActivityTaskStarted@ event recorded when this activity +-- task was started. This information can be useful for diagnosing problems +-- by tracing back the chain of events leading up to this event. +activityTaskCompletedEventAttributes_startedEventId :: Lens.Lens' ActivityTaskCompletedEventAttributes Prelude.Integer +activityTaskCompletedEventAttributes_startedEventId = Lens.lens (\ActivityTaskCompletedEventAttributes' {startedEventId} -> startedEventId) (\s@ActivityTaskCompletedEventAttributes' {} a -> s {startedEventId = a} :: ActivityTaskCompletedEventAttributes) + +instance + Data.FromJSON + ActivityTaskCompletedEventAttributes + where + parseJSON = + Data.withObject + "ActivityTaskCompletedEventAttributes" + ( \x -> + ActivityTaskCompletedEventAttributes' + Prelude.<$> (x Data..:? "result") + Prelude.<*> (x Data..: "scheduledEventId") + Prelude.<*> (x Data..: "startedEventId") + ) + +instance + Prelude.Hashable + ActivityTaskCompletedEventAttributes + where + hashWithSalt + _salt + ActivityTaskCompletedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` result + `Prelude.hashWithSalt` scheduledEventId + `Prelude.hashWithSalt` startedEventId + +instance + Prelude.NFData + ActivityTaskCompletedEventAttributes + where + rnf ActivityTaskCompletedEventAttributes' {..} = + Prelude.rnf result + `Prelude.seq` Prelude.rnf scheduledEventId + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/Types/ActivityTaskFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/ActivityTaskFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ActivityTaskFailedEventAttributes.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.SWF.Types.ActivityTaskFailedEventAttributes +-- 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.SWF.Types.ActivityTaskFailedEventAttributes 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 + +-- | Provides the details of the @ActivityTaskFailed@ event. +-- +-- /See:/ 'newActivityTaskFailedEventAttributes' smart constructor. +data ActivityTaskFailedEventAttributes = ActivityTaskFailedEventAttributes' + { -- | The details of the failure. + details :: Prelude.Maybe Prelude.Text, + -- | The reason provided for the failure. + reason :: Prelude.Maybe Prelude.Text, + -- | The ID of the @ActivityTaskScheduled@ event that was recorded when this + -- activity task was scheduled. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + scheduledEventId :: Prelude.Integer, + -- | The ID of the @ActivityTaskStarted@ event recorded when this activity + -- task was started. This information can be useful for diagnosing problems + -- by tracing back the chain of events leading up to this event. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ActivityTaskFailedEventAttributes' 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: +-- +-- 'details', 'activityTaskFailedEventAttributes_details' - The details of the failure. +-- +-- 'reason', 'activityTaskFailedEventAttributes_reason' - The reason provided for the failure. +-- +-- 'scheduledEventId', 'activityTaskFailedEventAttributes_scheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this +-- activity task was scheduled. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +-- +-- 'startedEventId', 'activityTaskFailedEventAttributes_startedEventId' - The ID of the @ActivityTaskStarted@ event recorded when this activity +-- task was started. This information can be useful for diagnosing problems +-- by tracing back the chain of events leading up to this event. +newActivityTaskFailedEventAttributes :: + -- | 'scheduledEventId' + Prelude.Integer -> + -- | 'startedEventId' + Prelude.Integer -> + ActivityTaskFailedEventAttributes +newActivityTaskFailedEventAttributes + pScheduledEventId_ + pStartedEventId_ = + ActivityTaskFailedEventAttributes' + { details = + Prelude.Nothing, + reason = Prelude.Nothing, + scheduledEventId = pScheduledEventId_, + startedEventId = pStartedEventId_ + } + +-- | The details of the failure. +activityTaskFailedEventAttributes_details :: Lens.Lens' ActivityTaskFailedEventAttributes (Prelude.Maybe Prelude.Text) +activityTaskFailedEventAttributes_details = Lens.lens (\ActivityTaskFailedEventAttributes' {details} -> details) (\s@ActivityTaskFailedEventAttributes' {} a -> s {details = a} :: ActivityTaskFailedEventAttributes) + +-- | The reason provided for the failure. +activityTaskFailedEventAttributes_reason :: Lens.Lens' ActivityTaskFailedEventAttributes (Prelude.Maybe Prelude.Text) +activityTaskFailedEventAttributes_reason = Lens.lens (\ActivityTaskFailedEventAttributes' {reason} -> reason) (\s@ActivityTaskFailedEventAttributes' {} a -> s {reason = a} :: ActivityTaskFailedEventAttributes) + +-- | The ID of the @ActivityTaskScheduled@ event that was recorded when this +-- activity task was scheduled. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +activityTaskFailedEventAttributes_scheduledEventId :: Lens.Lens' ActivityTaskFailedEventAttributes Prelude.Integer +activityTaskFailedEventAttributes_scheduledEventId = Lens.lens (\ActivityTaskFailedEventAttributes' {scheduledEventId} -> scheduledEventId) (\s@ActivityTaskFailedEventAttributes' {} a -> s {scheduledEventId = a} :: ActivityTaskFailedEventAttributes) + +-- | The ID of the @ActivityTaskStarted@ event recorded when this activity +-- task was started. This information can be useful for diagnosing problems +-- by tracing back the chain of events leading up to this event. +activityTaskFailedEventAttributes_startedEventId :: Lens.Lens' ActivityTaskFailedEventAttributes Prelude.Integer +activityTaskFailedEventAttributes_startedEventId = Lens.lens (\ActivityTaskFailedEventAttributes' {startedEventId} -> startedEventId) (\s@ActivityTaskFailedEventAttributes' {} a -> s {startedEventId = a} :: ActivityTaskFailedEventAttributes) + +instance + Data.FromJSON + ActivityTaskFailedEventAttributes + where + parseJSON = + Data.withObject + "ActivityTaskFailedEventAttributes" + ( \x -> + ActivityTaskFailedEventAttributes' + Prelude.<$> (x Data..:? "details") + Prelude.<*> (x Data..:? "reason") + Prelude.<*> (x Data..: "scheduledEventId") + Prelude.<*> (x Data..: "startedEventId") + ) + +instance + Prelude.Hashable + ActivityTaskFailedEventAttributes + where + hashWithSalt + _salt + ActivityTaskFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` reason + `Prelude.hashWithSalt` scheduledEventId + `Prelude.hashWithSalt` startedEventId + +instance + Prelude.NFData + ActivityTaskFailedEventAttributes + where + rnf ActivityTaskFailedEventAttributes' {..} = + Prelude.rnf details + `Prelude.seq` Prelude.rnf reason + `Prelude.seq` Prelude.rnf scheduledEventId + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/Types/ActivityTaskScheduledEventAttributes.hs b/gen/Amazonka/SWF/Types/ActivityTaskScheduledEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ActivityTaskScheduledEventAttributes.hs @@ -0,0 +1,281 @@ +{-# 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.SWF.Types.ActivityTaskScheduledEventAttributes +-- 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.SWF.Types.ActivityTaskScheduledEventAttributes 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 +import Amazonka.SWF.Types.ActivityType +import Amazonka.SWF.Types.TaskList + +-- | Provides the details of the @ActivityTaskScheduled@ event. +-- +-- /See:/ 'newActivityTaskScheduledEventAttributes' smart constructor. +data ActivityTaskScheduledEventAttributes = ActivityTaskScheduledEventAttributes' + { -- | Data attached to the event that can be used by the decider in subsequent + -- workflow tasks. This data isn\'t sent to the activity. + control :: Prelude.Maybe Prelude.Text, + -- | The maximum time before which the worker processing this task must + -- report progress by calling RecordActivityTaskHeartbeat. If the timeout + -- is exceeded, the activity task is automatically timed out. If the worker + -- subsequently attempts to record a heartbeat or return a result, it is + -- ignored. + heartbeatTimeout :: Prelude.Maybe Prelude.Text, + -- | The input provided to the activity task. + input :: Prelude.Maybe Prelude.Text, + -- | The maximum amount of time for this activity task. + scheduleToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The maximum amount of time the activity task can wait to be assigned to + -- a worker. + scheduleToStartTimeout :: Prelude.Maybe Prelude.Text, + -- | The maximum amount of time a worker may take to process the activity + -- task. + startToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The priority to assign to the scheduled activity task. If set, this + -- overrides any default priority value that was assigned when the activity + -- type was registered. + -- + -- Valid values are integers that range from Java\'s @Integer.MIN_VALUE@ + -- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers + -- indicate higher priority. + -- + -- For more information about setting task priority, see + -- + -- in the /Amazon SWF Developer Guide/. + taskPriority :: Prelude.Maybe Prelude.Text, + -- | The type of the activity task. + activityType :: ActivityType, + -- | The unique ID of the activity task. + activityId :: Prelude.Text, + -- | The task list in which the activity task has been scheduled. + taskList :: TaskList, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision that resulted in the scheduling of this activity task. This + -- information can be useful for diagnosing problems by tracing back the + -- chain of events leading up to this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ActivityTaskScheduledEventAttributes' 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: +-- +-- 'control', 'activityTaskScheduledEventAttributes_control' - Data attached to the event that can be used by the decider in subsequent +-- workflow tasks. This data isn\'t sent to the activity. +-- +-- 'heartbeatTimeout', 'activityTaskScheduledEventAttributes_heartbeatTimeout' - The maximum time before which the worker processing this task must +-- report progress by calling RecordActivityTaskHeartbeat. If the timeout +-- is exceeded, the activity task is automatically timed out. If the worker +-- subsequently attempts to record a heartbeat or return a result, it is +-- ignored. +-- +-- 'input', 'activityTaskScheduledEventAttributes_input' - The input provided to the activity task. +-- +-- 'scheduleToCloseTimeout', 'activityTaskScheduledEventAttributes_scheduleToCloseTimeout' - The maximum amount of time for this activity task. +-- +-- 'scheduleToStartTimeout', 'activityTaskScheduledEventAttributes_scheduleToStartTimeout' - The maximum amount of time the activity task can wait to be assigned to +-- a worker. +-- +-- 'startToCloseTimeout', 'activityTaskScheduledEventAttributes_startToCloseTimeout' - The maximum amount of time a worker may take to process the activity +-- task. +-- +-- 'taskPriority', 'activityTaskScheduledEventAttributes_taskPriority' - The priority to assign to the scheduled activity task. If set, this +-- overrides any default priority value that was assigned when the activity +-- type was registered. +-- +-- Valid values are integers that range from Java\'s @Integer.MIN_VALUE@ +-- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers +-- indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'activityType', 'activityTaskScheduledEventAttributes_activityType' - The type of the activity task. +-- +-- 'activityId', 'activityTaskScheduledEventAttributes_activityId' - The unique ID of the activity task. +-- +-- 'taskList', 'activityTaskScheduledEventAttributes_taskList' - The task list in which the activity task has been scheduled. +-- +-- 'decisionTaskCompletedEventId', 'activityTaskScheduledEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision that resulted in the scheduling of this activity task. This +-- information can be useful for diagnosing problems by tracing back the +-- chain of events leading up to this event. +newActivityTaskScheduledEventAttributes :: + -- | 'activityType' + ActivityType -> + -- | 'activityId' + Prelude.Text -> + -- | 'taskList' + TaskList -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + ActivityTaskScheduledEventAttributes +newActivityTaskScheduledEventAttributes + pActivityType_ + pActivityId_ + pTaskList_ + pDecisionTaskCompletedEventId_ = + ActivityTaskScheduledEventAttributes' + { control = + Prelude.Nothing, + heartbeatTimeout = Prelude.Nothing, + input = Prelude.Nothing, + scheduleToCloseTimeout = + Prelude.Nothing, + scheduleToStartTimeout = + Prelude.Nothing, + startToCloseTimeout = Prelude.Nothing, + taskPriority = Prelude.Nothing, + activityType = pActivityType_, + activityId = pActivityId_, + taskList = pTaskList_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | Data attached to the event that can be used by the decider in subsequent +-- workflow tasks. This data isn\'t sent to the activity. +activityTaskScheduledEventAttributes_control :: Lens.Lens' ActivityTaskScheduledEventAttributes (Prelude.Maybe Prelude.Text) +activityTaskScheduledEventAttributes_control = Lens.lens (\ActivityTaskScheduledEventAttributes' {control} -> control) (\s@ActivityTaskScheduledEventAttributes' {} a -> s {control = a} :: ActivityTaskScheduledEventAttributes) + +-- | The maximum time before which the worker processing this task must +-- report progress by calling RecordActivityTaskHeartbeat. If the timeout +-- is exceeded, the activity task is automatically timed out. If the worker +-- subsequently attempts to record a heartbeat or return a result, it is +-- ignored. +activityTaskScheduledEventAttributes_heartbeatTimeout :: Lens.Lens' ActivityTaskScheduledEventAttributes (Prelude.Maybe Prelude.Text) +activityTaskScheduledEventAttributes_heartbeatTimeout = Lens.lens (\ActivityTaskScheduledEventAttributes' {heartbeatTimeout} -> heartbeatTimeout) (\s@ActivityTaskScheduledEventAttributes' {} a -> s {heartbeatTimeout = a} :: ActivityTaskScheduledEventAttributes) + +-- | The input provided to the activity task. +activityTaskScheduledEventAttributes_input :: Lens.Lens' ActivityTaskScheduledEventAttributes (Prelude.Maybe Prelude.Text) +activityTaskScheduledEventAttributes_input = Lens.lens (\ActivityTaskScheduledEventAttributes' {input} -> input) (\s@ActivityTaskScheduledEventAttributes' {} a -> s {input = a} :: ActivityTaskScheduledEventAttributes) + +-- | The maximum amount of time for this activity task. +activityTaskScheduledEventAttributes_scheduleToCloseTimeout :: Lens.Lens' ActivityTaskScheduledEventAttributes (Prelude.Maybe Prelude.Text) +activityTaskScheduledEventAttributes_scheduleToCloseTimeout = Lens.lens (\ActivityTaskScheduledEventAttributes' {scheduleToCloseTimeout} -> scheduleToCloseTimeout) (\s@ActivityTaskScheduledEventAttributes' {} a -> s {scheduleToCloseTimeout = a} :: ActivityTaskScheduledEventAttributes) + +-- | The maximum amount of time the activity task can wait to be assigned to +-- a worker. +activityTaskScheduledEventAttributes_scheduleToStartTimeout :: Lens.Lens' ActivityTaskScheduledEventAttributes (Prelude.Maybe Prelude.Text) +activityTaskScheduledEventAttributes_scheduleToStartTimeout = Lens.lens (\ActivityTaskScheduledEventAttributes' {scheduleToStartTimeout} -> scheduleToStartTimeout) (\s@ActivityTaskScheduledEventAttributes' {} a -> s {scheduleToStartTimeout = a} :: ActivityTaskScheduledEventAttributes) + +-- | The maximum amount of time a worker may take to process the activity +-- task. +activityTaskScheduledEventAttributes_startToCloseTimeout :: Lens.Lens' ActivityTaskScheduledEventAttributes (Prelude.Maybe Prelude.Text) +activityTaskScheduledEventAttributes_startToCloseTimeout = Lens.lens (\ActivityTaskScheduledEventAttributes' {startToCloseTimeout} -> startToCloseTimeout) (\s@ActivityTaskScheduledEventAttributes' {} a -> s {startToCloseTimeout = a} :: ActivityTaskScheduledEventAttributes) + +-- | The priority to assign to the scheduled activity task. If set, this +-- overrides any default priority value that was assigned when the activity +-- type was registered. +-- +-- Valid values are integers that range from Java\'s @Integer.MIN_VALUE@ +-- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers +-- indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +activityTaskScheduledEventAttributes_taskPriority :: Lens.Lens' ActivityTaskScheduledEventAttributes (Prelude.Maybe Prelude.Text) +activityTaskScheduledEventAttributes_taskPriority = Lens.lens (\ActivityTaskScheduledEventAttributes' {taskPriority} -> taskPriority) (\s@ActivityTaskScheduledEventAttributes' {} a -> s {taskPriority = a} :: ActivityTaskScheduledEventAttributes) + +-- | The type of the activity task. +activityTaskScheduledEventAttributes_activityType :: Lens.Lens' ActivityTaskScheduledEventAttributes ActivityType +activityTaskScheduledEventAttributes_activityType = Lens.lens (\ActivityTaskScheduledEventAttributes' {activityType} -> activityType) (\s@ActivityTaskScheduledEventAttributes' {} a -> s {activityType = a} :: ActivityTaskScheduledEventAttributes) + +-- | The unique ID of the activity task. +activityTaskScheduledEventAttributes_activityId :: Lens.Lens' ActivityTaskScheduledEventAttributes Prelude.Text +activityTaskScheduledEventAttributes_activityId = Lens.lens (\ActivityTaskScheduledEventAttributes' {activityId} -> activityId) (\s@ActivityTaskScheduledEventAttributes' {} a -> s {activityId = a} :: ActivityTaskScheduledEventAttributes) + +-- | The task list in which the activity task has been scheduled. +activityTaskScheduledEventAttributes_taskList :: Lens.Lens' ActivityTaskScheduledEventAttributes TaskList +activityTaskScheduledEventAttributes_taskList = Lens.lens (\ActivityTaskScheduledEventAttributes' {taskList} -> taskList) (\s@ActivityTaskScheduledEventAttributes' {} a -> s {taskList = a} :: ActivityTaskScheduledEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision that resulted in the scheduling of this activity task. This +-- information can be useful for diagnosing problems by tracing back the +-- chain of events leading up to this event. +activityTaskScheduledEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' ActivityTaskScheduledEventAttributes Prelude.Integer +activityTaskScheduledEventAttributes_decisionTaskCompletedEventId = Lens.lens (\ActivityTaskScheduledEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@ActivityTaskScheduledEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: ActivityTaskScheduledEventAttributes) + +instance + Data.FromJSON + ActivityTaskScheduledEventAttributes + where + parseJSON = + Data.withObject + "ActivityTaskScheduledEventAttributes" + ( \x -> + ActivityTaskScheduledEventAttributes' + Prelude.<$> (x Data..:? "control") + Prelude.<*> (x Data..:? "heartbeatTimeout") + Prelude.<*> (x Data..:? "input") + Prelude.<*> (x Data..:? "scheduleToCloseTimeout") + Prelude.<*> (x Data..:? "scheduleToStartTimeout") + Prelude.<*> (x Data..:? "startToCloseTimeout") + Prelude.<*> (x Data..:? "taskPriority") + Prelude.<*> (x Data..: "activityType") + Prelude.<*> (x Data..: "activityId") + Prelude.<*> (x Data..: "taskList") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + ActivityTaskScheduledEventAttributes + where + hashWithSalt + _salt + ActivityTaskScheduledEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` control + `Prelude.hashWithSalt` heartbeatTimeout + `Prelude.hashWithSalt` input + `Prelude.hashWithSalt` scheduleToCloseTimeout + `Prelude.hashWithSalt` scheduleToStartTimeout + `Prelude.hashWithSalt` startToCloseTimeout + `Prelude.hashWithSalt` taskPriority + `Prelude.hashWithSalt` activityType + `Prelude.hashWithSalt` activityId + `Prelude.hashWithSalt` taskList + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + ActivityTaskScheduledEventAttributes + where + rnf ActivityTaskScheduledEventAttributes' {..} = + Prelude.rnf control + `Prelude.seq` Prelude.rnf heartbeatTimeout + `Prelude.seq` Prelude.rnf input + `Prelude.seq` Prelude.rnf scheduleToCloseTimeout + `Prelude.seq` Prelude.rnf scheduleToStartTimeout + `Prelude.seq` Prelude.rnf startToCloseTimeout + `Prelude.seq` Prelude.rnf taskPriority + `Prelude.seq` Prelude.rnf activityType + `Prelude.seq` Prelude.rnf activityId + `Prelude.seq` Prelude.rnf taskList + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/ActivityTaskStartedEventAttributes.hs b/gen/Amazonka/SWF/Types/ActivityTaskStartedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ActivityTaskStartedEventAttributes.hs @@ -0,0 +1,114 @@ +{-# 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.SWF.Types.ActivityTaskStartedEventAttributes +-- 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.SWF.Types.ActivityTaskStartedEventAttributes 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 + +-- | Provides the details of the @ActivityTaskStarted@ event. +-- +-- /See:/ 'newActivityTaskStartedEventAttributes' smart constructor. +data ActivityTaskStartedEventAttributes = ActivityTaskStartedEventAttributes' + { -- | Identity of the worker that was assigned this task. This aids + -- diagnostics when problems arise. The form of this identity is user + -- defined. + identity :: Prelude.Maybe Prelude.Text, + -- | The ID of the @ActivityTaskScheduled@ event that was recorded when this + -- activity task was scheduled. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + scheduledEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ActivityTaskStartedEventAttributes' 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: +-- +-- 'identity', 'activityTaskStartedEventAttributes_identity' - Identity of the worker that was assigned this task. This aids +-- diagnostics when problems arise. The form of this identity is user +-- defined. +-- +-- 'scheduledEventId', 'activityTaskStartedEventAttributes_scheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this +-- activity task was scheduled. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +newActivityTaskStartedEventAttributes :: + -- | 'scheduledEventId' + Prelude.Integer -> + ActivityTaskStartedEventAttributes +newActivityTaskStartedEventAttributes + pScheduledEventId_ = + ActivityTaskStartedEventAttributes' + { identity = + Prelude.Nothing, + scheduledEventId = pScheduledEventId_ + } + +-- | Identity of the worker that was assigned this task. This aids +-- diagnostics when problems arise. The form of this identity is user +-- defined. +activityTaskStartedEventAttributes_identity :: Lens.Lens' ActivityTaskStartedEventAttributes (Prelude.Maybe Prelude.Text) +activityTaskStartedEventAttributes_identity = Lens.lens (\ActivityTaskStartedEventAttributes' {identity} -> identity) (\s@ActivityTaskStartedEventAttributes' {} a -> s {identity = a} :: ActivityTaskStartedEventAttributes) + +-- | The ID of the @ActivityTaskScheduled@ event that was recorded when this +-- activity task was scheduled. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +activityTaskStartedEventAttributes_scheduledEventId :: Lens.Lens' ActivityTaskStartedEventAttributes Prelude.Integer +activityTaskStartedEventAttributes_scheduledEventId = Lens.lens (\ActivityTaskStartedEventAttributes' {scheduledEventId} -> scheduledEventId) (\s@ActivityTaskStartedEventAttributes' {} a -> s {scheduledEventId = a} :: ActivityTaskStartedEventAttributes) + +instance + Data.FromJSON + ActivityTaskStartedEventAttributes + where + parseJSON = + Data.withObject + "ActivityTaskStartedEventAttributes" + ( \x -> + ActivityTaskStartedEventAttributes' + Prelude.<$> (x Data..:? "identity") + Prelude.<*> (x Data..: "scheduledEventId") + ) + +instance + Prelude.Hashable + ActivityTaskStartedEventAttributes + where + hashWithSalt + _salt + ActivityTaskStartedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` identity + `Prelude.hashWithSalt` scheduledEventId + +instance + Prelude.NFData + ActivityTaskStartedEventAttributes + where + rnf ActivityTaskStartedEventAttributes' {..} = + Prelude.rnf identity + `Prelude.seq` Prelude.rnf scheduledEventId diff --git a/gen/Amazonka/SWF/Types/ActivityTaskTimedOutEventAttributes.hs b/gen/Amazonka/SWF/Types/ActivityTaskTimedOutEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ActivityTaskTimedOutEventAttributes.hs @@ -0,0 +1,148 @@ +{-# 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.SWF.Types.ActivityTaskTimedOutEventAttributes +-- 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.SWF.Types.ActivityTaskTimedOutEventAttributes 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 +import Amazonka.SWF.Types.ActivityTaskTimeoutType + +-- | Provides the details of the @ActivityTaskTimedOut@ event. +-- +-- /See:/ 'newActivityTaskTimedOutEventAttributes' smart constructor. +data ActivityTaskTimedOutEventAttributes = ActivityTaskTimedOutEventAttributes' + { -- | Contains the content of the @details@ parameter for the last call made + -- by the activity to @RecordActivityTaskHeartbeat@. + details :: Prelude.Maybe Prelude.Text, + -- | The type of the timeout that caused this event. + timeoutType :: ActivityTaskTimeoutType, + -- | The ID of the @ActivityTaskScheduled@ event that was recorded when this + -- activity task was scheduled. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + scheduledEventId :: Prelude.Integer, + -- | The ID of the @ActivityTaskStarted@ event recorded when this activity + -- task was started. This information can be useful for diagnosing problems + -- by tracing back the chain of events leading up to this event. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ActivityTaskTimedOutEventAttributes' 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: +-- +-- 'details', 'activityTaskTimedOutEventAttributes_details' - Contains the content of the @details@ parameter for the last call made +-- by the activity to @RecordActivityTaskHeartbeat@. +-- +-- 'timeoutType', 'activityTaskTimedOutEventAttributes_timeoutType' - The type of the timeout that caused this event. +-- +-- 'scheduledEventId', 'activityTaskTimedOutEventAttributes_scheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this +-- activity task was scheduled. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +-- +-- 'startedEventId', 'activityTaskTimedOutEventAttributes_startedEventId' - The ID of the @ActivityTaskStarted@ event recorded when this activity +-- task was started. This information can be useful for diagnosing problems +-- by tracing back the chain of events leading up to this event. +newActivityTaskTimedOutEventAttributes :: + -- | 'timeoutType' + ActivityTaskTimeoutType -> + -- | 'scheduledEventId' + Prelude.Integer -> + -- | 'startedEventId' + Prelude.Integer -> + ActivityTaskTimedOutEventAttributes +newActivityTaskTimedOutEventAttributes + pTimeoutType_ + pScheduledEventId_ + pStartedEventId_ = + ActivityTaskTimedOutEventAttributes' + { details = + Prelude.Nothing, + timeoutType = pTimeoutType_, + scheduledEventId = pScheduledEventId_, + startedEventId = pStartedEventId_ + } + +-- | Contains the content of the @details@ parameter for the last call made +-- by the activity to @RecordActivityTaskHeartbeat@. +activityTaskTimedOutEventAttributes_details :: Lens.Lens' ActivityTaskTimedOutEventAttributes (Prelude.Maybe Prelude.Text) +activityTaskTimedOutEventAttributes_details = Lens.lens (\ActivityTaskTimedOutEventAttributes' {details} -> details) (\s@ActivityTaskTimedOutEventAttributes' {} a -> s {details = a} :: ActivityTaskTimedOutEventAttributes) + +-- | The type of the timeout that caused this event. +activityTaskTimedOutEventAttributes_timeoutType :: Lens.Lens' ActivityTaskTimedOutEventAttributes ActivityTaskTimeoutType +activityTaskTimedOutEventAttributes_timeoutType = Lens.lens (\ActivityTaskTimedOutEventAttributes' {timeoutType} -> timeoutType) (\s@ActivityTaskTimedOutEventAttributes' {} a -> s {timeoutType = a} :: ActivityTaskTimedOutEventAttributes) + +-- | The ID of the @ActivityTaskScheduled@ event that was recorded when this +-- activity task was scheduled. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +activityTaskTimedOutEventAttributes_scheduledEventId :: Lens.Lens' ActivityTaskTimedOutEventAttributes Prelude.Integer +activityTaskTimedOutEventAttributes_scheduledEventId = Lens.lens (\ActivityTaskTimedOutEventAttributes' {scheduledEventId} -> scheduledEventId) (\s@ActivityTaskTimedOutEventAttributes' {} a -> s {scheduledEventId = a} :: ActivityTaskTimedOutEventAttributes) + +-- | The ID of the @ActivityTaskStarted@ event recorded when this activity +-- task was started. This information can be useful for diagnosing problems +-- by tracing back the chain of events leading up to this event. +activityTaskTimedOutEventAttributes_startedEventId :: Lens.Lens' ActivityTaskTimedOutEventAttributes Prelude.Integer +activityTaskTimedOutEventAttributes_startedEventId = Lens.lens (\ActivityTaskTimedOutEventAttributes' {startedEventId} -> startedEventId) (\s@ActivityTaskTimedOutEventAttributes' {} a -> s {startedEventId = a} :: ActivityTaskTimedOutEventAttributes) + +instance + Data.FromJSON + ActivityTaskTimedOutEventAttributes + where + parseJSON = + Data.withObject + "ActivityTaskTimedOutEventAttributes" + ( \x -> + ActivityTaskTimedOutEventAttributes' + Prelude.<$> (x Data..:? "details") + Prelude.<*> (x Data..: "timeoutType") + Prelude.<*> (x Data..: "scheduledEventId") + Prelude.<*> (x Data..: "startedEventId") + ) + +instance + Prelude.Hashable + ActivityTaskTimedOutEventAttributes + where + hashWithSalt + _salt + ActivityTaskTimedOutEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` timeoutType + `Prelude.hashWithSalt` scheduledEventId + `Prelude.hashWithSalt` startedEventId + +instance + Prelude.NFData + ActivityTaskTimedOutEventAttributes + where + rnf ActivityTaskTimedOutEventAttributes' {..} = + Prelude.rnf details + `Prelude.seq` Prelude.rnf timeoutType + `Prelude.seq` Prelude.rnf scheduledEventId + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/Types/ActivityTaskTimeoutType.hs b/gen/Amazonka/SWF/Types/ActivityTaskTimeoutType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ActivityTaskTimeoutType.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.SWF.Types.ActivityTaskTimeoutType +-- 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.SWF.Types.ActivityTaskTimeoutType + ( ActivityTaskTimeoutType + ( .., + ActivityTaskTimeoutType_HEARTBEAT, + ActivityTaskTimeoutType_SCHEDULE_TO_CLOSE, + ActivityTaskTimeoutType_SCHEDULE_TO_START, + ActivityTaskTimeoutType_START_TO_CLOSE + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ActivityTaskTimeoutType = ActivityTaskTimeoutType' + { fromActivityTaskTimeoutType :: + 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 ActivityTaskTimeoutType_HEARTBEAT :: ActivityTaskTimeoutType +pattern ActivityTaskTimeoutType_HEARTBEAT = ActivityTaskTimeoutType' "HEARTBEAT" + +pattern ActivityTaskTimeoutType_SCHEDULE_TO_CLOSE :: ActivityTaskTimeoutType +pattern ActivityTaskTimeoutType_SCHEDULE_TO_CLOSE = ActivityTaskTimeoutType' "SCHEDULE_TO_CLOSE" + +pattern ActivityTaskTimeoutType_SCHEDULE_TO_START :: ActivityTaskTimeoutType +pattern ActivityTaskTimeoutType_SCHEDULE_TO_START = ActivityTaskTimeoutType' "SCHEDULE_TO_START" + +pattern ActivityTaskTimeoutType_START_TO_CLOSE :: ActivityTaskTimeoutType +pattern ActivityTaskTimeoutType_START_TO_CLOSE = ActivityTaskTimeoutType' "START_TO_CLOSE" + +{-# COMPLETE + ActivityTaskTimeoutType_HEARTBEAT, + ActivityTaskTimeoutType_SCHEDULE_TO_CLOSE, + ActivityTaskTimeoutType_SCHEDULE_TO_START, + ActivityTaskTimeoutType_START_TO_CLOSE, + ActivityTaskTimeoutType' + #-} diff --git a/gen/Amazonka/SWF/Types/ActivityType.hs b/gen/Amazonka/SWF/Types/ActivityType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ActivityType.hs @@ -0,0 +1,111 @@ +{-# 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.SWF.Types.ActivityType +-- 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.SWF.Types.ActivityType 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 + +-- | Represents an activity type. +-- +-- /See:/ 'newActivityType' smart constructor. +data ActivityType = ActivityType' + { -- | The name of this activity. + -- + -- The combination of activity type name and version must be unique within + -- a domain. + name :: Prelude.Text, + -- | The version of this activity. + -- + -- The combination of activity type name and version must be unique with in + -- a domain. + version :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ActivityType' 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', 'activityType_name' - The name of this activity. +-- +-- The combination of activity type name and version must be unique within +-- a domain. +-- +-- 'version', 'activityType_version' - The version of this activity. +-- +-- The combination of activity type name and version must be unique with in +-- a domain. +newActivityType :: + -- | 'name' + Prelude.Text -> + -- | 'version' + Prelude.Text -> + ActivityType +newActivityType pName_ pVersion_ = + ActivityType' {name = pName_, version = pVersion_} + +-- | The name of this activity. +-- +-- The combination of activity type name and version must be unique within +-- a domain. +activityType_name :: Lens.Lens' ActivityType Prelude.Text +activityType_name = Lens.lens (\ActivityType' {name} -> name) (\s@ActivityType' {} a -> s {name = a} :: ActivityType) + +-- | The version of this activity. +-- +-- The combination of activity type name and version must be unique with in +-- a domain. +activityType_version :: Lens.Lens' ActivityType Prelude.Text +activityType_version = Lens.lens (\ActivityType' {version} -> version) (\s@ActivityType' {} a -> s {version = a} :: ActivityType) + +instance Data.FromJSON ActivityType where + parseJSON = + Data.withObject + "ActivityType" + ( \x -> + ActivityType' + Prelude.<$> (x Data..: "name") + Prelude.<*> (x Data..: "version") + ) + +instance Prelude.Hashable ActivityType where + hashWithSalt _salt ActivityType' {..} = + _salt + `Prelude.hashWithSalt` name + `Prelude.hashWithSalt` version + +instance Prelude.NFData ActivityType where + rnf ActivityType' {..} = + Prelude.rnf name `Prelude.seq` Prelude.rnf version + +instance Data.ToJSON ActivityType where + toJSON ActivityType' {..} = + Data.object + ( Prelude.catMaybes + [ Prelude.Just ("name" Data..= name), + Prelude.Just ("version" Data..= version) + ] + ) diff --git a/gen/Amazonka/SWF/Types/ActivityTypeConfiguration.hs b/gen/Amazonka/SWF/Types/ActivityTypeConfiguration.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ActivityTypeConfiguration.hs @@ -0,0 +1,262 @@ +{-# 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.SWF.Types.ActivityTypeConfiguration +-- 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.SWF.Types.ActivityTypeConfiguration 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 +import Amazonka.SWF.Types.TaskList + +-- | Configuration settings registered with the activity type. +-- +-- /See:/ 'newActivityTypeConfiguration' smart constructor. +data ActivityTypeConfiguration = ActivityTypeConfiguration' + { -- | The default maximum time, in seconds, before which a worker processing a + -- task must report progress by calling RecordActivityTaskHeartbeat. + -- + -- You can specify this value only when /registering/ an activity type. The + -- registered default value can be overridden when you schedule a task + -- through the @ScheduleActivityTask@ Decision. If the activity worker + -- subsequently attempts to record a heartbeat or returns a result, the + -- activity worker receives an @UnknownResource@ fault. In this case, + -- Amazon SWF no longer considers the activity task to be valid; the + -- activity worker should clean up the activity task. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + defaultTaskHeartbeatTimeout :: Prelude.Maybe Prelude.Text, + -- | The default task list specified for this activity type at registration. + -- This default is used if a task list isn\'t provided when a task is + -- scheduled through the @ScheduleActivityTask@ Decision. You can override + -- the default registered task list when scheduling a task through the + -- @ScheduleActivityTask@ Decision. + defaultTaskList :: Prelude.Maybe TaskList, + -- | The default task priority for tasks of this activity type, specified at + -- registration. If not set, then @0@ is used as the default priority. This + -- default can be overridden when scheduling an activity task. + -- + -- Valid values are integers that range from Java\'s @Integer.MIN_VALUE@ + -- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers + -- indicate higher priority. + -- + -- For more information about setting task priority, see + -- + -- in the /Amazon SWF Developer Guide/. + defaultTaskPriority :: Prelude.Maybe Prelude.Text, + -- | The default maximum duration, specified when registering the activity + -- type, for tasks of this activity type. You can override this default + -- when scheduling a task through the @ScheduleActivityTask@ Decision. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + defaultTaskScheduleToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The default maximum duration, specified when registering the activity + -- type, that a task of an activity type can wait before being assigned to + -- a worker. You can override this default when scheduling a task through + -- the @ScheduleActivityTask@ Decision. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + defaultTaskScheduleToStartTimeout :: Prelude.Maybe Prelude.Text, + -- | The default maximum duration for tasks of an activity type specified + -- when registering the activity type. You can override this default when + -- scheduling a task through the @ScheduleActivityTask@ Decision. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + defaultTaskStartToCloseTimeout :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ActivityTypeConfiguration' 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: +-- +-- 'defaultTaskHeartbeatTimeout', 'activityTypeConfiguration_defaultTaskHeartbeatTimeout' - The default maximum time, in seconds, before which a worker processing a +-- task must report progress by calling RecordActivityTaskHeartbeat. +-- +-- You can specify this value only when /registering/ an activity type. The +-- registered default value can be overridden when you schedule a task +-- through the @ScheduleActivityTask@ Decision. If the activity worker +-- subsequently attempts to record a heartbeat or returns a result, the +-- activity worker receives an @UnknownResource@ fault. In this case, +-- Amazon SWF no longer considers the activity task to be valid; the +-- activity worker should clean up the activity task. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'defaultTaskList', 'activityTypeConfiguration_defaultTaskList' - The default task list specified for this activity type at registration. +-- This default is used if a task list isn\'t provided when a task is +-- scheduled through the @ScheduleActivityTask@ Decision. You can override +-- the default registered task list when scheduling a task through the +-- @ScheduleActivityTask@ Decision. +-- +-- 'defaultTaskPriority', 'activityTypeConfiguration_defaultTaskPriority' - The default task priority for tasks of this activity type, specified at +-- registration. If not set, then @0@ is used as the default priority. This +-- default can be overridden when scheduling an activity task. +-- +-- Valid values are integers that range from Java\'s @Integer.MIN_VALUE@ +-- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers +-- indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'defaultTaskScheduleToCloseTimeout', 'activityTypeConfiguration_defaultTaskScheduleToCloseTimeout' - The default maximum duration, specified when registering the activity +-- type, for tasks of this activity type. You can override this default +-- when scheduling a task through the @ScheduleActivityTask@ Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'defaultTaskScheduleToStartTimeout', 'activityTypeConfiguration_defaultTaskScheduleToStartTimeout' - The default maximum duration, specified when registering the activity +-- type, that a task of an activity type can wait before being assigned to +-- a worker. You can override this default when scheduling a task through +-- the @ScheduleActivityTask@ Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'defaultTaskStartToCloseTimeout', 'activityTypeConfiguration_defaultTaskStartToCloseTimeout' - The default maximum duration for tasks of an activity type specified +-- when registering the activity type. You can override this default when +-- scheduling a task through the @ScheduleActivityTask@ Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +newActivityTypeConfiguration :: + ActivityTypeConfiguration +newActivityTypeConfiguration = + ActivityTypeConfiguration' + { defaultTaskHeartbeatTimeout = + Prelude.Nothing, + defaultTaskList = Prelude.Nothing, + defaultTaskPriority = Prelude.Nothing, + defaultTaskScheduleToCloseTimeout = + Prelude.Nothing, + defaultTaskScheduleToStartTimeout = + Prelude.Nothing, + defaultTaskStartToCloseTimeout = Prelude.Nothing + } + +-- | The default maximum time, in seconds, before which a worker processing a +-- task must report progress by calling RecordActivityTaskHeartbeat. +-- +-- You can specify this value only when /registering/ an activity type. The +-- registered default value can be overridden when you schedule a task +-- through the @ScheduleActivityTask@ Decision. If the activity worker +-- subsequently attempts to record a heartbeat or returns a result, the +-- activity worker receives an @UnknownResource@ fault. In this case, +-- Amazon SWF no longer considers the activity task to be valid; the +-- activity worker should clean up the activity task. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +activityTypeConfiguration_defaultTaskHeartbeatTimeout :: Lens.Lens' ActivityTypeConfiguration (Prelude.Maybe Prelude.Text) +activityTypeConfiguration_defaultTaskHeartbeatTimeout = Lens.lens (\ActivityTypeConfiguration' {defaultTaskHeartbeatTimeout} -> defaultTaskHeartbeatTimeout) (\s@ActivityTypeConfiguration' {} a -> s {defaultTaskHeartbeatTimeout = a} :: ActivityTypeConfiguration) + +-- | The default task list specified for this activity type at registration. +-- This default is used if a task list isn\'t provided when a task is +-- scheduled through the @ScheduleActivityTask@ Decision. You can override +-- the default registered task list when scheduling a task through the +-- @ScheduleActivityTask@ Decision. +activityTypeConfiguration_defaultTaskList :: Lens.Lens' ActivityTypeConfiguration (Prelude.Maybe TaskList) +activityTypeConfiguration_defaultTaskList = Lens.lens (\ActivityTypeConfiguration' {defaultTaskList} -> defaultTaskList) (\s@ActivityTypeConfiguration' {} a -> s {defaultTaskList = a} :: ActivityTypeConfiguration) + +-- | The default task priority for tasks of this activity type, specified at +-- registration. If not set, then @0@ is used as the default priority. This +-- default can be overridden when scheduling an activity task. +-- +-- Valid values are integers that range from Java\'s @Integer.MIN_VALUE@ +-- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers +-- indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +activityTypeConfiguration_defaultTaskPriority :: Lens.Lens' ActivityTypeConfiguration (Prelude.Maybe Prelude.Text) +activityTypeConfiguration_defaultTaskPriority = Lens.lens (\ActivityTypeConfiguration' {defaultTaskPriority} -> defaultTaskPriority) (\s@ActivityTypeConfiguration' {} a -> s {defaultTaskPriority = a} :: ActivityTypeConfiguration) + +-- | The default maximum duration, specified when registering the activity +-- type, for tasks of this activity type. You can override this default +-- when scheduling a task through the @ScheduleActivityTask@ Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +activityTypeConfiguration_defaultTaskScheduleToCloseTimeout :: Lens.Lens' ActivityTypeConfiguration (Prelude.Maybe Prelude.Text) +activityTypeConfiguration_defaultTaskScheduleToCloseTimeout = Lens.lens (\ActivityTypeConfiguration' {defaultTaskScheduleToCloseTimeout} -> defaultTaskScheduleToCloseTimeout) (\s@ActivityTypeConfiguration' {} a -> s {defaultTaskScheduleToCloseTimeout = a} :: ActivityTypeConfiguration) + +-- | The default maximum duration, specified when registering the activity +-- type, that a task of an activity type can wait before being assigned to +-- a worker. You can override this default when scheduling a task through +-- the @ScheduleActivityTask@ Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +activityTypeConfiguration_defaultTaskScheduleToStartTimeout :: Lens.Lens' ActivityTypeConfiguration (Prelude.Maybe Prelude.Text) +activityTypeConfiguration_defaultTaskScheduleToStartTimeout = Lens.lens (\ActivityTypeConfiguration' {defaultTaskScheduleToStartTimeout} -> defaultTaskScheduleToStartTimeout) (\s@ActivityTypeConfiguration' {} a -> s {defaultTaskScheduleToStartTimeout = a} :: ActivityTypeConfiguration) + +-- | The default maximum duration for tasks of an activity type specified +-- when registering the activity type. You can override this default when +-- scheduling a task through the @ScheduleActivityTask@ Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +activityTypeConfiguration_defaultTaskStartToCloseTimeout :: Lens.Lens' ActivityTypeConfiguration (Prelude.Maybe Prelude.Text) +activityTypeConfiguration_defaultTaskStartToCloseTimeout = Lens.lens (\ActivityTypeConfiguration' {defaultTaskStartToCloseTimeout} -> defaultTaskStartToCloseTimeout) (\s@ActivityTypeConfiguration' {} a -> s {defaultTaskStartToCloseTimeout = a} :: ActivityTypeConfiguration) + +instance Data.FromJSON ActivityTypeConfiguration where + parseJSON = + Data.withObject + "ActivityTypeConfiguration" + ( \x -> + ActivityTypeConfiguration' + Prelude.<$> (x Data..:? "defaultTaskHeartbeatTimeout") + Prelude.<*> (x Data..:? "defaultTaskList") + Prelude.<*> (x Data..:? "defaultTaskPriority") + Prelude.<*> (x Data..:? "defaultTaskScheduleToCloseTimeout") + Prelude.<*> (x Data..:? "defaultTaskScheduleToStartTimeout") + Prelude.<*> (x Data..:? "defaultTaskStartToCloseTimeout") + ) + +instance Prelude.Hashable ActivityTypeConfiguration where + hashWithSalt _salt ActivityTypeConfiguration' {..} = + _salt + `Prelude.hashWithSalt` defaultTaskHeartbeatTimeout + `Prelude.hashWithSalt` defaultTaskList + `Prelude.hashWithSalt` defaultTaskPriority + `Prelude.hashWithSalt` defaultTaskScheduleToCloseTimeout + `Prelude.hashWithSalt` defaultTaskScheduleToStartTimeout + `Prelude.hashWithSalt` defaultTaskStartToCloseTimeout + +instance Prelude.NFData ActivityTypeConfiguration where + rnf ActivityTypeConfiguration' {..} = + Prelude.rnf defaultTaskHeartbeatTimeout + `Prelude.seq` Prelude.rnf defaultTaskList + `Prelude.seq` Prelude.rnf defaultTaskPriority + `Prelude.seq` Prelude.rnf defaultTaskScheduleToCloseTimeout + `Prelude.seq` Prelude.rnf defaultTaskScheduleToStartTimeout + `Prelude.seq` Prelude.rnf defaultTaskStartToCloseTimeout diff --git a/gen/Amazonka/SWF/Types/ActivityTypeInfo.hs b/gen/Amazonka/SWF/Types/ActivityTypeInfo.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ActivityTypeInfo.hs @@ -0,0 +1,135 @@ +{-# 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.SWF.Types.ActivityTypeInfo +-- 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.SWF.Types.ActivityTypeInfo 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 +import Amazonka.SWF.Types.ActivityType +import Amazonka.SWF.Types.RegistrationStatus + +-- | Detailed information about an activity type. +-- +-- /See:/ 'newActivityTypeInfo' smart constructor. +data ActivityTypeInfo = ActivityTypeInfo' + { -- | If DEPRECATED, the date and time DeprecateActivityType was called. + deprecationDate :: Prelude.Maybe Data.POSIX, + -- | The description of the activity type provided in RegisterActivityType. + description :: Prelude.Maybe Prelude.Text, + -- | The ActivityType type structure representing the activity type. + activityType :: ActivityType, + -- | The current status of the activity type. + status :: RegistrationStatus, + -- | The date and time this activity type was created through + -- RegisterActivityType. + creationDate :: Data.POSIX + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ActivityTypeInfo' 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: +-- +-- 'deprecationDate', 'activityTypeInfo_deprecationDate' - If DEPRECATED, the date and time DeprecateActivityType was called. +-- +-- 'description', 'activityTypeInfo_description' - The description of the activity type provided in RegisterActivityType. +-- +-- 'activityType', 'activityTypeInfo_activityType' - The ActivityType type structure representing the activity type. +-- +-- 'status', 'activityTypeInfo_status' - The current status of the activity type. +-- +-- 'creationDate', 'activityTypeInfo_creationDate' - The date and time this activity type was created through +-- RegisterActivityType. +newActivityTypeInfo :: + -- | 'activityType' + ActivityType -> + -- | 'status' + RegistrationStatus -> + -- | 'creationDate' + Prelude.UTCTime -> + ActivityTypeInfo +newActivityTypeInfo + pActivityType_ + pStatus_ + pCreationDate_ = + ActivityTypeInfo' + { deprecationDate = + Prelude.Nothing, + description = Prelude.Nothing, + activityType = pActivityType_, + status = pStatus_, + creationDate = Data._Time Lens.# pCreationDate_ + } + +-- | If DEPRECATED, the date and time DeprecateActivityType was called. +activityTypeInfo_deprecationDate :: Lens.Lens' ActivityTypeInfo (Prelude.Maybe Prelude.UTCTime) +activityTypeInfo_deprecationDate = Lens.lens (\ActivityTypeInfo' {deprecationDate} -> deprecationDate) (\s@ActivityTypeInfo' {} a -> s {deprecationDate = a} :: ActivityTypeInfo) Prelude.. Lens.mapping Data._Time + +-- | The description of the activity type provided in RegisterActivityType. +activityTypeInfo_description :: Lens.Lens' ActivityTypeInfo (Prelude.Maybe Prelude.Text) +activityTypeInfo_description = Lens.lens (\ActivityTypeInfo' {description} -> description) (\s@ActivityTypeInfo' {} a -> s {description = a} :: ActivityTypeInfo) + +-- | The ActivityType type structure representing the activity type. +activityTypeInfo_activityType :: Lens.Lens' ActivityTypeInfo ActivityType +activityTypeInfo_activityType = Lens.lens (\ActivityTypeInfo' {activityType} -> activityType) (\s@ActivityTypeInfo' {} a -> s {activityType = a} :: ActivityTypeInfo) + +-- | The current status of the activity type. +activityTypeInfo_status :: Lens.Lens' ActivityTypeInfo RegistrationStatus +activityTypeInfo_status = Lens.lens (\ActivityTypeInfo' {status} -> status) (\s@ActivityTypeInfo' {} a -> s {status = a} :: ActivityTypeInfo) + +-- | The date and time this activity type was created through +-- RegisterActivityType. +activityTypeInfo_creationDate :: Lens.Lens' ActivityTypeInfo Prelude.UTCTime +activityTypeInfo_creationDate = Lens.lens (\ActivityTypeInfo' {creationDate} -> creationDate) (\s@ActivityTypeInfo' {} a -> s {creationDate = a} :: ActivityTypeInfo) Prelude.. Data._Time + +instance Data.FromJSON ActivityTypeInfo where + parseJSON = + Data.withObject + "ActivityTypeInfo" + ( \x -> + ActivityTypeInfo' + Prelude.<$> (x Data..:? "deprecationDate") + Prelude.<*> (x Data..:? "description") + Prelude.<*> (x Data..: "activityType") + Prelude.<*> (x Data..: "status") + Prelude.<*> (x Data..: "creationDate") + ) + +instance Prelude.Hashable ActivityTypeInfo where + hashWithSalt _salt ActivityTypeInfo' {..} = + _salt + `Prelude.hashWithSalt` deprecationDate + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` activityType + `Prelude.hashWithSalt` status + `Prelude.hashWithSalt` creationDate + +instance Prelude.NFData ActivityTypeInfo where + rnf ActivityTypeInfo' {..} = + Prelude.rnf deprecationDate + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf activityType + `Prelude.seq` Prelude.rnf status + `Prelude.seq` Prelude.rnf creationDate diff --git a/gen/Amazonka/SWF/Types/CancelTimerDecisionAttributes.hs b/gen/Amazonka/SWF/Types/CancelTimerDecisionAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/CancelTimerDecisionAttributes.hs @@ -0,0 +1,92 @@ +{-# 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.SWF.Types.CancelTimerDecisionAttributes +-- 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.SWF.Types.CancelTimerDecisionAttributes 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 + +-- | Provides the details of the @CancelTimer@ decision. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this decision\'s access to Amazon +-- SWF resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- /See:/ 'newCancelTimerDecisionAttributes' smart constructor. +data CancelTimerDecisionAttributes = CancelTimerDecisionAttributes' + { -- | The unique ID of the timer to cancel. + timerId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CancelTimerDecisionAttributes' 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: +-- +-- 'timerId', 'cancelTimerDecisionAttributes_timerId' - The unique ID of the timer to cancel. +newCancelTimerDecisionAttributes :: + -- | 'timerId' + Prelude.Text -> + CancelTimerDecisionAttributes +newCancelTimerDecisionAttributes pTimerId_ = + CancelTimerDecisionAttributes' {timerId = pTimerId_} + +-- | The unique ID of the timer to cancel. +cancelTimerDecisionAttributes_timerId :: Lens.Lens' CancelTimerDecisionAttributes Prelude.Text +cancelTimerDecisionAttributes_timerId = Lens.lens (\CancelTimerDecisionAttributes' {timerId} -> timerId) (\s@CancelTimerDecisionAttributes' {} a -> s {timerId = a} :: CancelTimerDecisionAttributes) + +instance + Prelude.Hashable + CancelTimerDecisionAttributes + where + hashWithSalt _salt CancelTimerDecisionAttributes' {..} = + _salt `Prelude.hashWithSalt` timerId + +instance Prelude.NFData CancelTimerDecisionAttributes where + rnf CancelTimerDecisionAttributes' {..} = + Prelude.rnf timerId + +instance Data.ToJSON CancelTimerDecisionAttributes where + toJSON CancelTimerDecisionAttributes' {..} = + Data.object + ( Prelude.catMaybes + [Prelude.Just ("timerId" Data..= timerId)] + ) diff --git a/gen/Amazonka/SWF/Types/CancelTimerFailedCause.hs b/gen/Amazonka/SWF/Types/CancelTimerFailedCause.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/CancelTimerFailedCause.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.SWF.Types.CancelTimerFailedCause +-- 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.SWF.Types.CancelTimerFailedCause + ( CancelTimerFailedCause + ( .., + CancelTimerFailedCause_OPERATION_NOT_PERMITTED, + CancelTimerFailedCause_TIMER_ID_UNKNOWN + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype CancelTimerFailedCause = CancelTimerFailedCause' + { fromCancelTimerFailedCause :: + 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 CancelTimerFailedCause_OPERATION_NOT_PERMITTED :: CancelTimerFailedCause +pattern CancelTimerFailedCause_OPERATION_NOT_PERMITTED = CancelTimerFailedCause' "OPERATION_NOT_PERMITTED" + +pattern CancelTimerFailedCause_TIMER_ID_UNKNOWN :: CancelTimerFailedCause +pattern CancelTimerFailedCause_TIMER_ID_UNKNOWN = CancelTimerFailedCause' "TIMER_ID_UNKNOWN" + +{-# COMPLETE + CancelTimerFailedCause_OPERATION_NOT_PERMITTED, + CancelTimerFailedCause_TIMER_ID_UNKNOWN, + CancelTimerFailedCause' + #-} diff --git a/gen/Amazonka/SWF/Types/CancelTimerFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/CancelTimerFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/CancelTimerFailedEventAttributes.hs @@ -0,0 +1,149 @@ +{-# 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.SWF.Types.CancelTimerFailedEventAttributes +-- 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.SWF.Types.CancelTimerFailedEventAttributes 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 +import Amazonka.SWF.Types.CancelTimerFailedCause + +-- | Provides the details of the @CancelTimerFailed@ event. +-- +-- /See:/ 'newCancelTimerFailedEventAttributes' smart constructor. +data CancelTimerFailedEventAttributes = CancelTimerFailedEventAttributes' + { -- | The timerId provided in the @CancelTimer@ decision that failed. + timerId :: Prelude.Text, + -- | The cause of the failure. This information is generated by the system + -- and can be useful for diagnostic purposes. + -- + -- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed + -- because it lacked sufficient permissions. For details and example IAM + -- policies, see + -- + -- in the /Amazon SWF Developer Guide/. + cause :: CancelTimerFailedCause, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @CancelTimer@ decision to cancel this + -- timer. This information can be useful for diagnosing problems by tracing + -- back the chain of events leading up to this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CancelTimerFailedEventAttributes' 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: +-- +-- 'timerId', 'cancelTimerFailedEventAttributes_timerId' - The timerId provided in the @CancelTimer@ decision that failed. +-- +-- 'cause', 'cancelTimerFailedEventAttributes_cause' - The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'decisionTaskCompletedEventId', 'cancelTimerFailedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @CancelTimer@ decision to cancel this +-- timer. This information can be useful for diagnosing problems by tracing +-- back the chain of events leading up to this event. +newCancelTimerFailedEventAttributes :: + -- | 'timerId' + Prelude.Text -> + -- | 'cause' + CancelTimerFailedCause -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + CancelTimerFailedEventAttributes +newCancelTimerFailedEventAttributes + pTimerId_ + pCause_ + pDecisionTaskCompletedEventId_ = + CancelTimerFailedEventAttributes' + { timerId = + pTimerId_, + cause = pCause_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The timerId provided in the @CancelTimer@ decision that failed. +cancelTimerFailedEventAttributes_timerId :: Lens.Lens' CancelTimerFailedEventAttributes Prelude.Text +cancelTimerFailedEventAttributes_timerId = Lens.lens (\CancelTimerFailedEventAttributes' {timerId} -> timerId) (\s@CancelTimerFailedEventAttributes' {} a -> s {timerId = a} :: CancelTimerFailedEventAttributes) + +-- | The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +cancelTimerFailedEventAttributes_cause :: Lens.Lens' CancelTimerFailedEventAttributes CancelTimerFailedCause +cancelTimerFailedEventAttributes_cause = Lens.lens (\CancelTimerFailedEventAttributes' {cause} -> cause) (\s@CancelTimerFailedEventAttributes' {} a -> s {cause = a} :: CancelTimerFailedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @CancelTimer@ decision to cancel this +-- timer. This information can be useful for diagnosing problems by tracing +-- back the chain of events leading up to this event. +cancelTimerFailedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' CancelTimerFailedEventAttributes Prelude.Integer +cancelTimerFailedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\CancelTimerFailedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@CancelTimerFailedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: CancelTimerFailedEventAttributes) + +instance + Data.FromJSON + CancelTimerFailedEventAttributes + where + parseJSON = + Data.withObject + "CancelTimerFailedEventAttributes" + ( \x -> + CancelTimerFailedEventAttributes' + Prelude.<$> (x Data..: "timerId") + Prelude.<*> (x Data..: "cause") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + CancelTimerFailedEventAttributes + where + hashWithSalt + _salt + CancelTimerFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` timerId + `Prelude.hashWithSalt` cause + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + CancelTimerFailedEventAttributes + where + rnf CancelTimerFailedEventAttributes' {..} = + Prelude.rnf timerId + `Prelude.seq` Prelude.rnf cause + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/CancelWorkflowExecutionDecisionAttributes.hs b/gen/Amazonka/SWF/Types/CancelWorkflowExecutionDecisionAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/CancelWorkflowExecutionDecisionAttributes.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.SWF.Types.CancelWorkflowExecutionDecisionAttributes +-- 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.SWF.Types.CancelWorkflowExecutionDecisionAttributes 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 + +-- | Provides the details of the @CancelWorkflowExecution@ decision. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this decision\'s access to Amazon +-- SWF resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- /See:/ 'newCancelWorkflowExecutionDecisionAttributes' smart constructor. +data CancelWorkflowExecutionDecisionAttributes = CancelWorkflowExecutionDecisionAttributes' + { -- | Details of the cancellation. + details :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CancelWorkflowExecutionDecisionAttributes' 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: +-- +-- 'details', 'cancelWorkflowExecutionDecisionAttributes_details' - Details of the cancellation. +newCancelWorkflowExecutionDecisionAttributes :: + CancelWorkflowExecutionDecisionAttributes +newCancelWorkflowExecutionDecisionAttributes = + CancelWorkflowExecutionDecisionAttributes' + { details = + Prelude.Nothing + } + +-- | Details of the cancellation. +cancelWorkflowExecutionDecisionAttributes_details :: Lens.Lens' CancelWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +cancelWorkflowExecutionDecisionAttributes_details = Lens.lens (\CancelWorkflowExecutionDecisionAttributes' {details} -> details) (\s@CancelWorkflowExecutionDecisionAttributes' {} a -> s {details = a} :: CancelWorkflowExecutionDecisionAttributes) + +instance + Prelude.Hashable + CancelWorkflowExecutionDecisionAttributes + where + hashWithSalt + _salt + CancelWorkflowExecutionDecisionAttributes' {..} = + _salt `Prelude.hashWithSalt` details + +instance + Prelude.NFData + CancelWorkflowExecutionDecisionAttributes + where + rnf CancelWorkflowExecutionDecisionAttributes' {..} = + Prelude.rnf details + +instance + Data.ToJSON + CancelWorkflowExecutionDecisionAttributes + where + toJSON CancelWorkflowExecutionDecisionAttributes' {..} = + Data.object + ( Prelude.catMaybes + [("details" Data..=) Prelude.<$> details] + ) diff --git a/gen/Amazonka/SWF/Types/CancelWorkflowExecutionFailedCause.hs b/gen/Amazonka/SWF/Types/CancelWorkflowExecutionFailedCause.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/CancelWorkflowExecutionFailedCause.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.SWF.Types.CancelWorkflowExecutionFailedCause +-- 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.SWF.Types.CancelWorkflowExecutionFailedCause + ( CancelWorkflowExecutionFailedCause + ( .., + CancelWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED, + CancelWorkflowExecutionFailedCause_UNHANDLED_DECISION + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype CancelWorkflowExecutionFailedCause = CancelWorkflowExecutionFailedCause' + { fromCancelWorkflowExecutionFailedCause :: + 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 CancelWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED :: CancelWorkflowExecutionFailedCause +pattern CancelWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED = CancelWorkflowExecutionFailedCause' "OPERATION_NOT_PERMITTED" + +pattern CancelWorkflowExecutionFailedCause_UNHANDLED_DECISION :: CancelWorkflowExecutionFailedCause +pattern CancelWorkflowExecutionFailedCause_UNHANDLED_DECISION = CancelWorkflowExecutionFailedCause' "UNHANDLED_DECISION" + +{-# COMPLETE + CancelWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED, + CancelWorkflowExecutionFailedCause_UNHANDLED_DECISION, + CancelWorkflowExecutionFailedCause' + #-} diff --git a/gen/Amazonka/SWF/Types/CancelWorkflowExecutionFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/CancelWorkflowExecutionFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/CancelWorkflowExecutionFailedEventAttributes.hs @@ -0,0 +1,137 @@ +{-# 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.SWF.Types.CancelWorkflowExecutionFailedEventAttributes +-- 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.SWF.Types.CancelWorkflowExecutionFailedEventAttributes 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 +import Amazonka.SWF.Types.CancelWorkflowExecutionFailedCause + +-- | Provides the details of the @CancelWorkflowExecutionFailed@ event. +-- +-- /See:/ 'newCancelWorkflowExecutionFailedEventAttributes' smart constructor. +data CancelWorkflowExecutionFailedEventAttributes = CancelWorkflowExecutionFailedEventAttributes' + { -- | The cause of the failure. This information is generated by the system + -- and can be useful for diagnostic purposes. + -- + -- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed + -- because it lacked sufficient permissions. For details and example IAM + -- policies, see + -- + -- in the /Amazon SWF Developer Guide/. + cause :: CancelWorkflowExecutionFailedCause, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @CancelWorkflowExecution@ decision + -- for this cancellation request. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CancelWorkflowExecutionFailedEventAttributes' 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: +-- +-- 'cause', 'cancelWorkflowExecutionFailedEventAttributes_cause' - The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'decisionTaskCompletedEventId', 'cancelWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @CancelWorkflowExecution@ decision +-- for this cancellation request. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +newCancelWorkflowExecutionFailedEventAttributes :: + -- | 'cause' + CancelWorkflowExecutionFailedCause -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + CancelWorkflowExecutionFailedEventAttributes +newCancelWorkflowExecutionFailedEventAttributes + pCause_ + pDecisionTaskCompletedEventId_ = + CancelWorkflowExecutionFailedEventAttributes' + { cause = + pCause_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +cancelWorkflowExecutionFailedEventAttributes_cause :: Lens.Lens' CancelWorkflowExecutionFailedEventAttributes CancelWorkflowExecutionFailedCause +cancelWorkflowExecutionFailedEventAttributes_cause = Lens.lens (\CancelWorkflowExecutionFailedEventAttributes' {cause} -> cause) (\s@CancelWorkflowExecutionFailedEventAttributes' {} a -> s {cause = a} :: CancelWorkflowExecutionFailedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @CancelWorkflowExecution@ decision +-- for this cancellation request. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +cancelWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' CancelWorkflowExecutionFailedEventAttributes Prelude.Integer +cancelWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\CancelWorkflowExecutionFailedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@CancelWorkflowExecutionFailedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: CancelWorkflowExecutionFailedEventAttributes) + +instance + Data.FromJSON + CancelWorkflowExecutionFailedEventAttributes + where + parseJSON = + Data.withObject + "CancelWorkflowExecutionFailedEventAttributes" + ( \x -> + CancelWorkflowExecutionFailedEventAttributes' + Prelude.<$> (x Data..: "cause") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + CancelWorkflowExecutionFailedEventAttributes + where + hashWithSalt + _salt + CancelWorkflowExecutionFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` cause + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + CancelWorkflowExecutionFailedEventAttributes + where + rnf CancelWorkflowExecutionFailedEventAttributes' {..} = + Prelude.rnf cause + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/ChildPolicy.hs b/gen/Amazonka/SWF/Types/ChildPolicy.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ChildPolicy.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.SWF.Types.ChildPolicy +-- 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.SWF.Types.ChildPolicy + ( ChildPolicy + ( .., + ChildPolicy_ABANDON, + ChildPolicy_REQUEST_CANCEL, + ChildPolicy_TERMINATE + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ChildPolicy = ChildPolicy' + { fromChildPolicy :: + 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 ChildPolicy_ABANDON :: ChildPolicy +pattern ChildPolicy_ABANDON = ChildPolicy' "ABANDON" + +pattern ChildPolicy_REQUEST_CANCEL :: ChildPolicy +pattern ChildPolicy_REQUEST_CANCEL = ChildPolicy' "REQUEST_CANCEL" + +pattern ChildPolicy_TERMINATE :: ChildPolicy +pattern ChildPolicy_TERMINATE = ChildPolicy' "TERMINATE" + +{-# COMPLETE + ChildPolicy_ABANDON, + ChildPolicy_REQUEST_CANCEL, + ChildPolicy_TERMINATE, + ChildPolicy' + #-} diff --git a/gen/Amazonka/SWF/Types/ChildWorkflowExecutionCanceledEventAttributes.hs b/gen/Amazonka/SWF/Types/ChildWorkflowExecutionCanceledEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ChildWorkflowExecutionCanceledEventAttributes.hs @@ -0,0 +1,169 @@ +{-# 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.SWF.Types.ChildWorkflowExecutionCanceledEventAttributes +-- 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.SWF.Types.ChildWorkflowExecutionCanceledEventAttributes 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 +import Amazonka.SWF.Types.WorkflowExecution +import Amazonka.SWF.Types.WorkflowType + +-- | Provide details of the @ChildWorkflowExecutionCanceled@ event. +-- +-- /See:/ 'newChildWorkflowExecutionCanceledEventAttributes' smart constructor. +data ChildWorkflowExecutionCanceledEventAttributes = ChildWorkflowExecutionCanceledEventAttributes' + { -- | Details of the cancellation (if provided). + details :: Prelude.Maybe Prelude.Text, + -- | The child workflow execution that was canceled. + workflowExecution :: WorkflowExecution, + -- | The type of the child workflow execution. + workflowType :: WorkflowType, + -- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding + -- to the @StartChildWorkflowExecution@ Decision to start this child + -- workflow execution. This information can be useful for diagnosing + -- problems by tracing back the chain of events leading up to this event. + initiatedEventId :: Prelude.Integer, + -- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this + -- child workflow execution was started. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ChildWorkflowExecutionCanceledEventAttributes' 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: +-- +-- 'details', 'childWorkflowExecutionCanceledEventAttributes_details' - Details of the cancellation (if provided). +-- +-- 'workflowExecution', 'childWorkflowExecutionCanceledEventAttributes_workflowExecution' - The child workflow execution that was canceled. +-- +-- 'workflowType', 'childWorkflowExecutionCanceledEventAttributes_workflowType' - The type of the child workflow execution. +-- +-- 'initiatedEventId', 'childWorkflowExecutionCanceledEventAttributes_initiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding +-- to the @StartChildWorkflowExecution@ Decision to start this child +-- workflow execution. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +-- +-- 'startedEventId', 'childWorkflowExecutionCanceledEventAttributes_startedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this +-- child workflow execution was started. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +newChildWorkflowExecutionCanceledEventAttributes :: + -- | 'workflowExecution' + WorkflowExecution -> + -- | 'workflowType' + WorkflowType -> + -- | 'initiatedEventId' + Prelude.Integer -> + -- | 'startedEventId' + Prelude.Integer -> + ChildWorkflowExecutionCanceledEventAttributes +newChildWorkflowExecutionCanceledEventAttributes + pWorkflowExecution_ + pWorkflowType_ + pInitiatedEventId_ + pStartedEventId_ = + ChildWorkflowExecutionCanceledEventAttributes' + { details = + Prelude.Nothing, + workflowExecution = + pWorkflowExecution_, + workflowType = + pWorkflowType_, + initiatedEventId = + pInitiatedEventId_, + startedEventId = + pStartedEventId_ + } + +-- | Details of the cancellation (if provided). +childWorkflowExecutionCanceledEventAttributes_details :: Lens.Lens' ChildWorkflowExecutionCanceledEventAttributes (Prelude.Maybe Prelude.Text) +childWorkflowExecutionCanceledEventAttributes_details = Lens.lens (\ChildWorkflowExecutionCanceledEventAttributes' {details} -> details) (\s@ChildWorkflowExecutionCanceledEventAttributes' {} a -> s {details = a} :: ChildWorkflowExecutionCanceledEventAttributes) + +-- | The child workflow execution that was canceled. +childWorkflowExecutionCanceledEventAttributes_workflowExecution :: Lens.Lens' ChildWorkflowExecutionCanceledEventAttributes WorkflowExecution +childWorkflowExecutionCanceledEventAttributes_workflowExecution = Lens.lens (\ChildWorkflowExecutionCanceledEventAttributes' {workflowExecution} -> workflowExecution) (\s@ChildWorkflowExecutionCanceledEventAttributes' {} a -> s {workflowExecution = a} :: ChildWorkflowExecutionCanceledEventAttributes) + +-- | The type of the child workflow execution. +childWorkflowExecutionCanceledEventAttributes_workflowType :: Lens.Lens' ChildWorkflowExecutionCanceledEventAttributes WorkflowType +childWorkflowExecutionCanceledEventAttributes_workflowType = Lens.lens (\ChildWorkflowExecutionCanceledEventAttributes' {workflowType} -> workflowType) (\s@ChildWorkflowExecutionCanceledEventAttributes' {} a -> s {workflowType = a} :: ChildWorkflowExecutionCanceledEventAttributes) + +-- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding +-- to the @StartChildWorkflowExecution@ Decision to start this child +-- workflow execution. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +childWorkflowExecutionCanceledEventAttributes_initiatedEventId :: Lens.Lens' ChildWorkflowExecutionCanceledEventAttributes Prelude.Integer +childWorkflowExecutionCanceledEventAttributes_initiatedEventId = Lens.lens (\ChildWorkflowExecutionCanceledEventAttributes' {initiatedEventId} -> initiatedEventId) (\s@ChildWorkflowExecutionCanceledEventAttributes' {} a -> s {initiatedEventId = a} :: ChildWorkflowExecutionCanceledEventAttributes) + +-- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this +-- child workflow execution was started. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +childWorkflowExecutionCanceledEventAttributes_startedEventId :: Lens.Lens' ChildWorkflowExecutionCanceledEventAttributes Prelude.Integer +childWorkflowExecutionCanceledEventAttributes_startedEventId = Lens.lens (\ChildWorkflowExecutionCanceledEventAttributes' {startedEventId} -> startedEventId) (\s@ChildWorkflowExecutionCanceledEventAttributes' {} a -> s {startedEventId = a} :: ChildWorkflowExecutionCanceledEventAttributes) + +instance + Data.FromJSON + ChildWorkflowExecutionCanceledEventAttributes + where + parseJSON = + Data.withObject + "ChildWorkflowExecutionCanceledEventAttributes" + ( \x -> + ChildWorkflowExecutionCanceledEventAttributes' + Prelude.<$> (x Data..:? "details") + Prelude.<*> (x Data..: "workflowExecution") + Prelude.<*> (x Data..: "workflowType") + Prelude.<*> (x Data..: "initiatedEventId") + Prelude.<*> (x Data..: "startedEventId") + ) + +instance + Prelude.Hashable + ChildWorkflowExecutionCanceledEventAttributes + where + hashWithSalt + _salt + ChildWorkflowExecutionCanceledEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` workflowExecution + `Prelude.hashWithSalt` workflowType + `Prelude.hashWithSalt` initiatedEventId + `Prelude.hashWithSalt` startedEventId + +instance + Prelude.NFData + ChildWorkflowExecutionCanceledEventAttributes + where + rnf + ChildWorkflowExecutionCanceledEventAttributes' {..} = + Prelude.rnf details + `Prelude.seq` Prelude.rnf workflowExecution + `Prelude.seq` Prelude.rnf workflowType + `Prelude.seq` Prelude.rnf initiatedEventId + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/Types/ChildWorkflowExecutionCompletedEventAttributes.hs b/gen/Amazonka/SWF/Types/ChildWorkflowExecutionCompletedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ChildWorkflowExecutionCompletedEventAttributes.hs @@ -0,0 +1,169 @@ +{-# 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.SWF.Types.ChildWorkflowExecutionCompletedEventAttributes +-- 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.SWF.Types.ChildWorkflowExecutionCompletedEventAttributes 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 +import Amazonka.SWF.Types.WorkflowExecution +import Amazonka.SWF.Types.WorkflowType + +-- | Provides the details of the @ChildWorkflowExecutionCompleted@ event. +-- +-- /See:/ 'newChildWorkflowExecutionCompletedEventAttributes' smart constructor. +data ChildWorkflowExecutionCompletedEventAttributes = ChildWorkflowExecutionCompletedEventAttributes' + { -- | The result of the child workflow execution. + result :: Prelude.Maybe Prelude.Text, + -- | The child workflow execution that was completed. + workflowExecution :: WorkflowExecution, + -- | The type of the child workflow execution. + workflowType :: WorkflowType, + -- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding + -- to the @StartChildWorkflowExecution@ Decision to start this child + -- workflow execution. This information can be useful for diagnosing + -- problems by tracing back the chain of events leading up to this event. + initiatedEventId :: Prelude.Integer, + -- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this + -- child workflow execution was started. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ChildWorkflowExecutionCompletedEventAttributes' 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: +-- +-- 'result', 'childWorkflowExecutionCompletedEventAttributes_result' - The result of the child workflow execution. +-- +-- 'workflowExecution', 'childWorkflowExecutionCompletedEventAttributes_workflowExecution' - The child workflow execution that was completed. +-- +-- 'workflowType', 'childWorkflowExecutionCompletedEventAttributes_workflowType' - The type of the child workflow execution. +-- +-- 'initiatedEventId', 'childWorkflowExecutionCompletedEventAttributes_initiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding +-- to the @StartChildWorkflowExecution@ Decision to start this child +-- workflow execution. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +-- +-- 'startedEventId', 'childWorkflowExecutionCompletedEventAttributes_startedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this +-- child workflow execution was started. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +newChildWorkflowExecutionCompletedEventAttributes :: + -- | 'workflowExecution' + WorkflowExecution -> + -- | 'workflowType' + WorkflowType -> + -- | 'initiatedEventId' + Prelude.Integer -> + -- | 'startedEventId' + Prelude.Integer -> + ChildWorkflowExecutionCompletedEventAttributes +newChildWorkflowExecutionCompletedEventAttributes + pWorkflowExecution_ + pWorkflowType_ + pInitiatedEventId_ + pStartedEventId_ = + ChildWorkflowExecutionCompletedEventAttributes' + { result = + Prelude.Nothing, + workflowExecution = + pWorkflowExecution_, + workflowType = + pWorkflowType_, + initiatedEventId = + pInitiatedEventId_, + startedEventId = + pStartedEventId_ + } + +-- | The result of the child workflow execution. +childWorkflowExecutionCompletedEventAttributes_result :: Lens.Lens' ChildWorkflowExecutionCompletedEventAttributes (Prelude.Maybe Prelude.Text) +childWorkflowExecutionCompletedEventAttributes_result = Lens.lens (\ChildWorkflowExecutionCompletedEventAttributes' {result} -> result) (\s@ChildWorkflowExecutionCompletedEventAttributes' {} a -> s {result = a} :: ChildWorkflowExecutionCompletedEventAttributes) + +-- | The child workflow execution that was completed. +childWorkflowExecutionCompletedEventAttributes_workflowExecution :: Lens.Lens' ChildWorkflowExecutionCompletedEventAttributes WorkflowExecution +childWorkflowExecutionCompletedEventAttributes_workflowExecution = Lens.lens (\ChildWorkflowExecutionCompletedEventAttributes' {workflowExecution} -> workflowExecution) (\s@ChildWorkflowExecutionCompletedEventAttributes' {} a -> s {workflowExecution = a} :: ChildWorkflowExecutionCompletedEventAttributes) + +-- | The type of the child workflow execution. +childWorkflowExecutionCompletedEventAttributes_workflowType :: Lens.Lens' ChildWorkflowExecutionCompletedEventAttributes WorkflowType +childWorkflowExecutionCompletedEventAttributes_workflowType = Lens.lens (\ChildWorkflowExecutionCompletedEventAttributes' {workflowType} -> workflowType) (\s@ChildWorkflowExecutionCompletedEventAttributes' {} a -> s {workflowType = a} :: ChildWorkflowExecutionCompletedEventAttributes) + +-- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding +-- to the @StartChildWorkflowExecution@ Decision to start this child +-- workflow execution. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +childWorkflowExecutionCompletedEventAttributes_initiatedEventId :: Lens.Lens' ChildWorkflowExecutionCompletedEventAttributes Prelude.Integer +childWorkflowExecutionCompletedEventAttributes_initiatedEventId = Lens.lens (\ChildWorkflowExecutionCompletedEventAttributes' {initiatedEventId} -> initiatedEventId) (\s@ChildWorkflowExecutionCompletedEventAttributes' {} a -> s {initiatedEventId = a} :: ChildWorkflowExecutionCompletedEventAttributes) + +-- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this +-- child workflow execution was started. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +childWorkflowExecutionCompletedEventAttributes_startedEventId :: Lens.Lens' ChildWorkflowExecutionCompletedEventAttributes Prelude.Integer +childWorkflowExecutionCompletedEventAttributes_startedEventId = Lens.lens (\ChildWorkflowExecutionCompletedEventAttributes' {startedEventId} -> startedEventId) (\s@ChildWorkflowExecutionCompletedEventAttributes' {} a -> s {startedEventId = a} :: ChildWorkflowExecutionCompletedEventAttributes) + +instance + Data.FromJSON + ChildWorkflowExecutionCompletedEventAttributes + where + parseJSON = + Data.withObject + "ChildWorkflowExecutionCompletedEventAttributes" + ( \x -> + ChildWorkflowExecutionCompletedEventAttributes' + Prelude.<$> (x Data..:? "result") + Prelude.<*> (x Data..: "workflowExecution") + Prelude.<*> (x Data..: "workflowType") + Prelude.<*> (x Data..: "initiatedEventId") + Prelude.<*> (x Data..: "startedEventId") + ) + +instance + Prelude.Hashable + ChildWorkflowExecutionCompletedEventAttributes + where + hashWithSalt + _salt + ChildWorkflowExecutionCompletedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` result + `Prelude.hashWithSalt` workflowExecution + `Prelude.hashWithSalt` workflowType + `Prelude.hashWithSalt` initiatedEventId + `Prelude.hashWithSalt` startedEventId + +instance + Prelude.NFData + ChildWorkflowExecutionCompletedEventAttributes + where + rnf + ChildWorkflowExecutionCompletedEventAttributes' {..} = + Prelude.rnf result + `Prelude.seq` Prelude.rnf workflowExecution + `Prelude.seq` Prelude.rnf workflowType + `Prelude.seq` Prelude.rnf initiatedEventId + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/Types/ChildWorkflowExecutionFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/ChildWorkflowExecutionFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ChildWorkflowExecutionFailedEventAttributes.hs @@ -0,0 +1,179 @@ +{-# 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.SWF.Types.ChildWorkflowExecutionFailedEventAttributes +-- 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.SWF.Types.ChildWorkflowExecutionFailedEventAttributes 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 +import Amazonka.SWF.Types.WorkflowExecution +import Amazonka.SWF.Types.WorkflowType + +-- | Provides the details of the @ChildWorkflowExecutionFailed@ event. +-- +-- /See:/ 'newChildWorkflowExecutionFailedEventAttributes' smart constructor. +data ChildWorkflowExecutionFailedEventAttributes = ChildWorkflowExecutionFailedEventAttributes' + { -- | The details of the failure (if provided). + details :: Prelude.Maybe Prelude.Text, + -- | The reason for the failure (if provided). + reason :: Prelude.Maybe Prelude.Text, + -- | The child workflow execution that failed. + workflowExecution :: WorkflowExecution, + -- | The type of the child workflow execution. + workflowType :: WorkflowType, + -- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding + -- to the @StartChildWorkflowExecution@ Decision to start this child + -- workflow execution. This information can be useful for diagnosing + -- problems by tracing back the chain of events leading up to this event. + initiatedEventId :: Prelude.Integer, + -- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this + -- child workflow execution was started. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ChildWorkflowExecutionFailedEventAttributes' 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: +-- +-- 'details', 'childWorkflowExecutionFailedEventAttributes_details' - The details of the failure (if provided). +-- +-- 'reason', 'childWorkflowExecutionFailedEventAttributes_reason' - The reason for the failure (if provided). +-- +-- 'workflowExecution', 'childWorkflowExecutionFailedEventAttributes_workflowExecution' - The child workflow execution that failed. +-- +-- 'workflowType', 'childWorkflowExecutionFailedEventAttributes_workflowType' - The type of the child workflow execution. +-- +-- 'initiatedEventId', 'childWorkflowExecutionFailedEventAttributes_initiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding +-- to the @StartChildWorkflowExecution@ Decision to start this child +-- workflow execution. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +-- +-- 'startedEventId', 'childWorkflowExecutionFailedEventAttributes_startedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this +-- child workflow execution was started. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +newChildWorkflowExecutionFailedEventAttributes :: + -- | 'workflowExecution' + WorkflowExecution -> + -- | 'workflowType' + WorkflowType -> + -- | 'initiatedEventId' + Prelude.Integer -> + -- | 'startedEventId' + Prelude.Integer -> + ChildWorkflowExecutionFailedEventAttributes +newChildWorkflowExecutionFailedEventAttributes + pWorkflowExecution_ + pWorkflowType_ + pInitiatedEventId_ + pStartedEventId_ = + ChildWorkflowExecutionFailedEventAttributes' + { details = + Prelude.Nothing, + reason = Prelude.Nothing, + workflowExecution = + pWorkflowExecution_, + workflowType = pWorkflowType_, + initiatedEventId = + pInitiatedEventId_, + startedEventId = + pStartedEventId_ + } + +-- | The details of the failure (if provided). +childWorkflowExecutionFailedEventAttributes_details :: Lens.Lens' ChildWorkflowExecutionFailedEventAttributes (Prelude.Maybe Prelude.Text) +childWorkflowExecutionFailedEventAttributes_details = Lens.lens (\ChildWorkflowExecutionFailedEventAttributes' {details} -> details) (\s@ChildWorkflowExecutionFailedEventAttributes' {} a -> s {details = a} :: ChildWorkflowExecutionFailedEventAttributes) + +-- | The reason for the failure (if provided). +childWorkflowExecutionFailedEventAttributes_reason :: Lens.Lens' ChildWorkflowExecutionFailedEventAttributes (Prelude.Maybe Prelude.Text) +childWorkflowExecutionFailedEventAttributes_reason = Lens.lens (\ChildWorkflowExecutionFailedEventAttributes' {reason} -> reason) (\s@ChildWorkflowExecutionFailedEventAttributes' {} a -> s {reason = a} :: ChildWorkflowExecutionFailedEventAttributes) + +-- | The child workflow execution that failed. +childWorkflowExecutionFailedEventAttributes_workflowExecution :: Lens.Lens' ChildWorkflowExecutionFailedEventAttributes WorkflowExecution +childWorkflowExecutionFailedEventAttributes_workflowExecution = Lens.lens (\ChildWorkflowExecutionFailedEventAttributes' {workflowExecution} -> workflowExecution) (\s@ChildWorkflowExecutionFailedEventAttributes' {} a -> s {workflowExecution = a} :: ChildWorkflowExecutionFailedEventAttributes) + +-- | The type of the child workflow execution. +childWorkflowExecutionFailedEventAttributes_workflowType :: Lens.Lens' ChildWorkflowExecutionFailedEventAttributes WorkflowType +childWorkflowExecutionFailedEventAttributes_workflowType = Lens.lens (\ChildWorkflowExecutionFailedEventAttributes' {workflowType} -> workflowType) (\s@ChildWorkflowExecutionFailedEventAttributes' {} a -> s {workflowType = a} :: ChildWorkflowExecutionFailedEventAttributes) + +-- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding +-- to the @StartChildWorkflowExecution@ Decision to start this child +-- workflow execution. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +childWorkflowExecutionFailedEventAttributes_initiatedEventId :: Lens.Lens' ChildWorkflowExecutionFailedEventAttributes Prelude.Integer +childWorkflowExecutionFailedEventAttributes_initiatedEventId = Lens.lens (\ChildWorkflowExecutionFailedEventAttributes' {initiatedEventId} -> initiatedEventId) (\s@ChildWorkflowExecutionFailedEventAttributes' {} a -> s {initiatedEventId = a} :: ChildWorkflowExecutionFailedEventAttributes) + +-- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this +-- child workflow execution was started. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +childWorkflowExecutionFailedEventAttributes_startedEventId :: Lens.Lens' ChildWorkflowExecutionFailedEventAttributes Prelude.Integer +childWorkflowExecutionFailedEventAttributes_startedEventId = Lens.lens (\ChildWorkflowExecutionFailedEventAttributes' {startedEventId} -> startedEventId) (\s@ChildWorkflowExecutionFailedEventAttributes' {} a -> s {startedEventId = a} :: ChildWorkflowExecutionFailedEventAttributes) + +instance + Data.FromJSON + ChildWorkflowExecutionFailedEventAttributes + where + parseJSON = + Data.withObject + "ChildWorkflowExecutionFailedEventAttributes" + ( \x -> + ChildWorkflowExecutionFailedEventAttributes' + Prelude.<$> (x Data..:? "details") + Prelude.<*> (x Data..:? "reason") + Prelude.<*> (x Data..: "workflowExecution") + Prelude.<*> (x Data..: "workflowType") + Prelude.<*> (x Data..: "initiatedEventId") + Prelude.<*> (x Data..: "startedEventId") + ) + +instance + Prelude.Hashable + ChildWorkflowExecutionFailedEventAttributes + where + hashWithSalt + _salt + ChildWorkflowExecutionFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` reason + `Prelude.hashWithSalt` workflowExecution + `Prelude.hashWithSalt` workflowType + `Prelude.hashWithSalt` initiatedEventId + `Prelude.hashWithSalt` startedEventId + +instance + Prelude.NFData + ChildWorkflowExecutionFailedEventAttributes + where + rnf ChildWorkflowExecutionFailedEventAttributes' {..} = + Prelude.rnf details + `Prelude.seq` Prelude.rnf reason + `Prelude.seq` Prelude.rnf workflowExecution + `Prelude.seq` Prelude.rnf workflowType + `Prelude.seq` Prelude.rnf initiatedEventId + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/Types/ChildWorkflowExecutionStartedEventAttributes.hs b/gen/Amazonka/SWF/Types/ChildWorkflowExecutionStartedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ChildWorkflowExecutionStartedEventAttributes.hs @@ -0,0 +1,129 @@ +{-# 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.SWF.Types.ChildWorkflowExecutionStartedEventAttributes +-- 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.SWF.Types.ChildWorkflowExecutionStartedEventAttributes 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 +import Amazonka.SWF.Types.WorkflowExecution +import Amazonka.SWF.Types.WorkflowType + +-- | Provides the details of the @ChildWorkflowExecutionStarted@ event. +-- +-- /See:/ 'newChildWorkflowExecutionStartedEventAttributes' smart constructor. +data ChildWorkflowExecutionStartedEventAttributes = ChildWorkflowExecutionStartedEventAttributes' + { -- | The child workflow execution that was started. + workflowExecution :: WorkflowExecution, + -- | The type of the child workflow execution. + workflowType :: WorkflowType, + -- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding + -- to the @StartChildWorkflowExecution@ Decision to start this child + -- workflow execution. This information can be useful for diagnosing + -- problems by tracing back the chain of events leading up to this event. + initiatedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ChildWorkflowExecutionStartedEventAttributes' 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: +-- +-- 'workflowExecution', 'childWorkflowExecutionStartedEventAttributes_workflowExecution' - The child workflow execution that was started. +-- +-- 'workflowType', 'childWorkflowExecutionStartedEventAttributes_workflowType' - The type of the child workflow execution. +-- +-- 'initiatedEventId', 'childWorkflowExecutionStartedEventAttributes_initiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding +-- to the @StartChildWorkflowExecution@ Decision to start this child +-- workflow execution. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +newChildWorkflowExecutionStartedEventAttributes :: + -- | 'workflowExecution' + WorkflowExecution -> + -- | 'workflowType' + WorkflowType -> + -- | 'initiatedEventId' + Prelude.Integer -> + ChildWorkflowExecutionStartedEventAttributes +newChildWorkflowExecutionStartedEventAttributes + pWorkflowExecution_ + pWorkflowType_ + pInitiatedEventId_ = + ChildWorkflowExecutionStartedEventAttributes' + { workflowExecution = + pWorkflowExecution_, + workflowType = pWorkflowType_, + initiatedEventId = + pInitiatedEventId_ + } + +-- | The child workflow execution that was started. +childWorkflowExecutionStartedEventAttributes_workflowExecution :: Lens.Lens' ChildWorkflowExecutionStartedEventAttributes WorkflowExecution +childWorkflowExecutionStartedEventAttributes_workflowExecution = Lens.lens (\ChildWorkflowExecutionStartedEventAttributes' {workflowExecution} -> workflowExecution) (\s@ChildWorkflowExecutionStartedEventAttributes' {} a -> s {workflowExecution = a} :: ChildWorkflowExecutionStartedEventAttributes) + +-- | The type of the child workflow execution. +childWorkflowExecutionStartedEventAttributes_workflowType :: Lens.Lens' ChildWorkflowExecutionStartedEventAttributes WorkflowType +childWorkflowExecutionStartedEventAttributes_workflowType = Lens.lens (\ChildWorkflowExecutionStartedEventAttributes' {workflowType} -> workflowType) (\s@ChildWorkflowExecutionStartedEventAttributes' {} a -> s {workflowType = a} :: ChildWorkflowExecutionStartedEventAttributes) + +-- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding +-- to the @StartChildWorkflowExecution@ Decision to start this child +-- workflow execution. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +childWorkflowExecutionStartedEventAttributes_initiatedEventId :: Lens.Lens' ChildWorkflowExecutionStartedEventAttributes Prelude.Integer +childWorkflowExecutionStartedEventAttributes_initiatedEventId = Lens.lens (\ChildWorkflowExecutionStartedEventAttributes' {initiatedEventId} -> initiatedEventId) (\s@ChildWorkflowExecutionStartedEventAttributes' {} a -> s {initiatedEventId = a} :: ChildWorkflowExecutionStartedEventAttributes) + +instance + Data.FromJSON + ChildWorkflowExecutionStartedEventAttributes + where + parseJSON = + Data.withObject + "ChildWorkflowExecutionStartedEventAttributes" + ( \x -> + ChildWorkflowExecutionStartedEventAttributes' + Prelude.<$> (x Data..: "workflowExecution") + Prelude.<*> (x Data..: "workflowType") + Prelude.<*> (x Data..: "initiatedEventId") + ) + +instance + Prelude.Hashable + ChildWorkflowExecutionStartedEventAttributes + where + hashWithSalt + _salt + ChildWorkflowExecutionStartedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` workflowExecution + `Prelude.hashWithSalt` workflowType + `Prelude.hashWithSalt` initiatedEventId + +instance + Prelude.NFData + ChildWorkflowExecutionStartedEventAttributes + where + rnf ChildWorkflowExecutionStartedEventAttributes' {..} = + Prelude.rnf workflowExecution + `Prelude.seq` Prelude.rnf workflowType + `Prelude.seq` Prelude.rnf initiatedEventId diff --git a/gen/Amazonka/SWF/Types/ChildWorkflowExecutionTerminatedEventAttributes.hs b/gen/Amazonka/SWF/Types/ChildWorkflowExecutionTerminatedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ChildWorkflowExecutionTerminatedEventAttributes.hs @@ -0,0 +1,156 @@ +{-# 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.SWF.Types.ChildWorkflowExecutionTerminatedEventAttributes +-- 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.SWF.Types.ChildWorkflowExecutionTerminatedEventAttributes 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 +import Amazonka.SWF.Types.WorkflowExecution +import Amazonka.SWF.Types.WorkflowType + +-- | Provides the details of the @ChildWorkflowExecutionTerminated@ event. +-- +-- /See:/ 'newChildWorkflowExecutionTerminatedEventAttributes' smart constructor. +data ChildWorkflowExecutionTerminatedEventAttributes = ChildWorkflowExecutionTerminatedEventAttributes' + { -- | The child workflow execution that was terminated. + workflowExecution :: WorkflowExecution, + -- | The type of the child workflow execution. + workflowType :: WorkflowType, + -- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding + -- to the @StartChildWorkflowExecution@ Decision to start this child + -- workflow execution. This information can be useful for diagnosing + -- problems by tracing back the chain of events leading up to this event. + initiatedEventId :: Prelude.Integer, + -- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this + -- child workflow execution was started. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ChildWorkflowExecutionTerminatedEventAttributes' 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: +-- +-- 'workflowExecution', 'childWorkflowExecutionTerminatedEventAttributes_workflowExecution' - The child workflow execution that was terminated. +-- +-- 'workflowType', 'childWorkflowExecutionTerminatedEventAttributes_workflowType' - The type of the child workflow execution. +-- +-- 'initiatedEventId', 'childWorkflowExecutionTerminatedEventAttributes_initiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding +-- to the @StartChildWorkflowExecution@ Decision to start this child +-- workflow execution. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +-- +-- 'startedEventId', 'childWorkflowExecutionTerminatedEventAttributes_startedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this +-- child workflow execution was started. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +newChildWorkflowExecutionTerminatedEventAttributes :: + -- | 'workflowExecution' + WorkflowExecution -> + -- | 'workflowType' + WorkflowType -> + -- | 'initiatedEventId' + Prelude.Integer -> + -- | 'startedEventId' + Prelude.Integer -> + ChildWorkflowExecutionTerminatedEventAttributes +newChildWorkflowExecutionTerminatedEventAttributes + pWorkflowExecution_ + pWorkflowType_ + pInitiatedEventId_ + pStartedEventId_ = + ChildWorkflowExecutionTerminatedEventAttributes' + { workflowExecution = + pWorkflowExecution_, + workflowType = + pWorkflowType_, + initiatedEventId = + pInitiatedEventId_, + startedEventId = + pStartedEventId_ + } + +-- | The child workflow execution that was terminated. +childWorkflowExecutionTerminatedEventAttributes_workflowExecution :: Lens.Lens' ChildWorkflowExecutionTerminatedEventAttributes WorkflowExecution +childWorkflowExecutionTerminatedEventAttributes_workflowExecution = Lens.lens (\ChildWorkflowExecutionTerminatedEventAttributes' {workflowExecution} -> workflowExecution) (\s@ChildWorkflowExecutionTerminatedEventAttributes' {} a -> s {workflowExecution = a} :: ChildWorkflowExecutionTerminatedEventAttributes) + +-- | The type of the child workflow execution. +childWorkflowExecutionTerminatedEventAttributes_workflowType :: Lens.Lens' ChildWorkflowExecutionTerminatedEventAttributes WorkflowType +childWorkflowExecutionTerminatedEventAttributes_workflowType = Lens.lens (\ChildWorkflowExecutionTerminatedEventAttributes' {workflowType} -> workflowType) (\s@ChildWorkflowExecutionTerminatedEventAttributes' {} a -> s {workflowType = a} :: ChildWorkflowExecutionTerminatedEventAttributes) + +-- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding +-- to the @StartChildWorkflowExecution@ Decision to start this child +-- workflow execution. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +childWorkflowExecutionTerminatedEventAttributes_initiatedEventId :: Lens.Lens' ChildWorkflowExecutionTerminatedEventAttributes Prelude.Integer +childWorkflowExecutionTerminatedEventAttributes_initiatedEventId = Lens.lens (\ChildWorkflowExecutionTerminatedEventAttributes' {initiatedEventId} -> initiatedEventId) (\s@ChildWorkflowExecutionTerminatedEventAttributes' {} a -> s {initiatedEventId = a} :: ChildWorkflowExecutionTerminatedEventAttributes) + +-- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this +-- child workflow execution was started. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +childWorkflowExecutionTerminatedEventAttributes_startedEventId :: Lens.Lens' ChildWorkflowExecutionTerminatedEventAttributes Prelude.Integer +childWorkflowExecutionTerminatedEventAttributes_startedEventId = Lens.lens (\ChildWorkflowExecutionTerminatedEventAttributes' {startedEventId} -> startedEventId) (\s@ChildWorkflowExecutionTerminatedEventAttributes' {} a -> s {startedEventId = a} :: ChildWorkflowExecutionTerminatedEventAttributes) + +instance + Data.FromJSON + ChildWorkflowExecutionTerminatedEventAttributes + where + parseJSON = + Data.withObject + "ChildWorkflowExecutionTerminatedEventAttributes" + ( \x -> + ChildWorkflowExecutionTerminatedEventAttributes' + Prelude.<$> (x Data..: "workflowExecution") + Prelude.<*> (x Data..: "workflowType") + Prelude.<*> (x Data..: "initiatedEventId") + Prelude.<*> (x Data..: "startedEventId") + ) + +instance + Prelude.Hashable + ChildWorkflowExecutionTerminatedEventAttributes + where + hashWithSalt + _salt + ChildWorkflowExecutionTerminatedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` workflowExecution + `Prelude.hashWithSalt` workflowType + `Prelude.hashWithSalt` initiatedEventId + `Prelude.hashWithSalt` startedEventId + +instance + Prelude.NFData + ChildWorkflowExecutionTerminatedEventAttributes + where + rnf + ChildWorkflowExecutionTerminatedEventAttributes' {..} = + Prelude.rnf workflowExecution + `Prelude.seq` Prelude.rnf workflowType + `Prelude.seq` Prelude.rnf initiatedEventId + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/Types/ChildWorkflowExecutionTimedOutEventAttributes.hs b/gen/Amazonka/SWF/Types/ChildWorkflowExecutionTimedOutEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ChildWorkflowExecutionTimedOutEventAttributes.hs @@ -0,0 +1,175 @@ +{-# 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.SWF.Types.ChildWorkflowExecutionTimedOutEventAttributes +-- 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.SWF.Types.ChildWorkflowExecutionTimedOutEventAttributes 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 +import Amazonka.SWF.Types.WorkflowExecution +import Amazonka.SWF.Types.WorkflowExecutionTimeoutType +import Amazonka.SWF.Types.WorkflowType + +-- | Provides the details of the @ChildWorkflowExecutionTimedOut@ event. +-- +-- /See:/ 'newChildWorkflowExecutionTimedOutEventAttributes' smart constructor. +data ChildWorkflowExecutionTimedOutEventAttributes = ChildWorkflowExecutionTimedOutEventAttributes' + { -- | The child workflow execution that timed out. + workflowExecution :: WorkflowExecution, + -- | The type of the child workflow execution. + workflowType :: WorkflowType, + -- | The type of the timeout that caused the child workflow execution to time + -- out. + timeoutType :: WorkflowExecutionTimeoutType, + -- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding + -- to the @StartChildWorkflowExecution@ Decision to start this child + -- workflow execution. This information can be useful for diagnosing + -- problems by tracing back the chain of events leading up to this event. + initiatedEventId :: Prelude.Integer, + -- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this + -- child workflow execution was started. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ChildWorkflowExecutionTimedOutEventAttributes' 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: +-- +-- 'workflowExecution', 'childWorkflowExecutionTimedOutEventAttributes_workflowExecution' - The child workflow execution that timed out. +-- +-- 'workflowType', 'childWorkflowExecutionTimedOutEventAttributes_workflowType' - The type of the child workflow execution. +-- +-- 'timeoutType', 'childWorkflowExecutionTimedOutEventAttributes_timeoutType' - The type of the timeout that caused the child workflow execution to time +-- out. +-- +-- 'initiatedEventId', 'childWorkflowExecutionTimedOutEventAttributes_initiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding +-- to the @StartChildWorkflowExecution@ Decision to start this child +-- workflow execution. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +-- +-- 'startedEventId', 'childWorkflowExecutionTimedOutEventAttributes_startedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this +-- child workflow execution was started. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +newChildWorkflowExecutionTimedOutEventAttributes :: + -- | 'workflowExecution' + WorkflowExecution -> + -- | 'workflowType' + WorkflowType -> + -- | 'timeoutType' + WorkflowExecutionTimeoutType -> + -- | 'initiatedEventId' + Prelude.Integer -> + -- | 'startedEventId' + Prelude.Integer -> + ChildWorkflowExecutionTimedOutEventAttributes +newChildWorkflowExecutionTimedOutEventAttributes + pWorkflowExecution_ + pWorkflowType_ + pTimeoutType_ + pInitiatedEventId_ + pStartedEventId_ = + ChildWorkflowExecutionTimedOutEventAttributes' + { workflowExecution = + pWorkflowExecution_, + workflowType = + pWorkflowType_, + timeoutType = pTimeoutType_, + initiatedEventId = + pInitiatedEventId_, + startedEventId = + pStartedEventId_ + } + +-- | The child workflow execution that timed out. +childWorkflowExecutionTimedOutEventAttributes_workflowExecution :: Lens.Lens' ChildWorkflowExecutionTimedOutEventAttributes WorkflowExecution +childWorkflowExecutionTimedOutEventAttributes_workflowExecution = Lens.lens (\ChildWorkflowExecutionTimedOutEventAttributes' {workflowExecution} -> workflowExecution) (\s@ChildWorkflowExecutionTimedOutEventAttributes' {} a -> s {workflowExecution = a} :: ChildWorkflowExecutionTimedOutEventAttributes) + +-- | The type of the child workflow execution. +childWorkflowExecutionTimedOutEventAttributes_workflowType :: Lens.Lens' ChildWorkflowExecutionTimedOutEventAttributes WorkflowType +childWorkflowExecutionTimedOutEventAttributes_workflowType = Lens.lens (\ChildWorkflowExecutionTimedOutEventAttributes' {workflowType} -> workflowType) (\s@ChildWorkflowExecutionTimedOutEventAttributes' {} a -> s {workflowType = a} :: ChildWorkflowExecutionTimedOutEventAttributes) + +-- | The type of the timeout that caused the child workflow execution to time +-- out. +childWorkflowExecutionTimedOutEventAttributes_timeoutType :: Lens.Lens' ChildWorkflowExecutionTimedOutEventAttributes WorkflowExecutionTimeoutType +childWorkflowExecutionTimedOutEventAttributes_timeoutType = Lens.lens (\ChildWorkflowExecutionTimedOutEventAttributes' {timeoutType} -> timeoutType) (\s@ChildWorkflowExecutionTimedOutEventAttributes' {} a -> s {timeoutType = a} :: ChildWorkflowExecutionTimedOutEventAttributes) + +-- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding +-- to the @StartChildWorkflowExecution@ Decision to start this child +-- workflow execution. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +childWorkflowExecutionTimedOutEventAttributes_initiatedEventId :: Lens.Lens' ChildWorkflowExecutionTimedOutEventAttributes Prelude.Integer +childWorkflowExecutionTimedOutEventAttributes_initiatedEventId = Lens.lens (\ChildWorkflowExecutionTimedOutEventAttributes' {initiatedEventId} -> initiatedEventId) (\s@ChildWorkflowExecutionTimedOutEventAttributes' {} a -> s {initiatedEventId = a} :: ChildWorkflowExecutionTimedOutEventAttributes) + +-- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this +-- child workflow execution was started. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +childWorkflowExecutionTimedOutEventAttributes_startedEventId :: Lens.Lens' ChildWorkflowExecutionTimedOutEventAttributes Prelude.Integer +childWorkflowExecutionTimedOutEventAttributes_startedEventId = Lens.lens (\ChildWorkflowExecutionTimedOutEventAttributes' {startedEventId} -> startedEventId) (\s@ChildWorkflowExecutionTimedOutEventAttributes' {} a -> s {startedEventId = a} :: ChildWorkflowExecutionTimedOutEventAttributes) + +instance + Data.FromJSON + ChildWorkflowExecutionTimedOutEventAttributes + where + parseJSON = + Data.withObject + "ChildWorkflowExecutionTimedOutEventAttributes" + ( \x -> + ChildWorkflowExecutionTimedOutEventAttributes' + Prelude.<$> (x Data..: "workflowExecution") + Prelude.<*> (x Data..: "workflowType") + Prelude.<*> (x Data..: "timeoutType") + Prelude.<*> (x Data..: "initiatedEventId") + Prelude.<*> (x Data..: "startedEventId") + ) + +instance + Prelude.Hashable + ChildWorkflowExecutionTimedOutEventAttributes + where + hashWithSalt + _salt + ChildWorkflowExecutionTimedOutEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` workflowExecution + `Prelude.hashWithSalt` workflowType + `Prelude.hashWithSalt` timeoutType + `Prelude.hashWithSalt` initiatedEventId + `Prelude.hashWithSalt` startedEventId + +instance + Prelude.NFData + ChildWorkflowExecutionTimedOutEventAttributes + where + rnf + ChildWorkflowExecutionTimedOutEventAttributes' {..} = + Prelude.rnf workflowExecution + `Prelude.seq` Prelude.rnf workflowType + `Prelude.seq` Prelude.rnf timeoutType + `Prelude.seq` Prelude.rnf initiatedEventId + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/Types/CloseStatus.hs b/gen/Amazonka/SWF/Types/CloseStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/CloseStatus.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.SWF.Types.CloseStatus +-- 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.SWF.Types.CloseStatus + ( CloseStatus + ( .., + CloseStatus_CANCELED, + CloseStatus_COMPLETED, + CloseStatus_CONTINUED_AS_NEW, + CloseStatus_FAILED, + CloseStatus_TERMINATED, + CloseStatus_TIMED_OUT + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype CloseStatus = CloseStatus' + { fromCloseStatus :: + 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 CloseStatus_CANCELED :: CloseStatus +pattern CloseStatus_CANCELED = CloseStatus' "CANCELED" + +pattern CloseStatus_COMPLETED :: CloseStatus +pattern CloseStatus_COMPLETED = CloseStatus' "COMPLETED" + +pattern CloseStatus_CONTINUED_AS_NEW :: CloseStatus +pattern CloseStatus_CONTINUED_AS_NEW = CloseStatus' "CONTINUED_AS_NEW" + +pattern CloseStatus_FAILED :: CloseStatus +pattern CloseStatus_FAILED = CloseStatus' "FAILED" + +pattern CloseStatus_TERMINATED :: CloseStatus +pattern CloseStatus_TERMINATED = CloseStatus' "TERMINATED" + +pattern CloseStatus_TIMED_OUT :: CloseStatus +pattern CloseStatus_TIMED_OUT = CloseStatus' "TIMED_OUT" + +{-# COMPLETE + CloseStatus_CANCELED, + CloseStatus_COMPLETED, + CloseStatus_CONTINUED_AS_NEW, + CloseStatus_FAILED, + CloseStatus_TERMINATED, + CloseStatus_TIMED_OUT, + CloseStatus' + #-} diff --git a/gen/Amazonka/SWF/Types/CloseStatusFilter.hs b/gen/Amazonka/SWF/Types/CloseStatusFilter.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/CloseStatusFilter.hs @@ -0,0 +1,73 @@ +{-# 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.SWF.Types.CloseStatusFilter +-- 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.SWF.Types.CloseStatusFilter 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 +import Amazonka.SWF.Types.CloseStatus + +-- | Used to filter the closed workflow executions in visibility APIs by +-- their close status. +-- +-- /See:/ 'newCloseStatusFilter' smart constructor. +data CloseStatusFilter = CloseStatusFilter' + { -- | The close status that must match the close status of an execution for it + -- to meet the criteria of this filter. + status :: CloseStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CloseStatusFilter' 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', 'closeStatusFilter_status' - The close status that must match the close status of an execution for it +-- to meet the criteria of this filter. +newCloseStatusFilter :: + -- | 'status' + CloseStatus -> + CloseStatusFilter +newCloseStatusFilter pStatus_ = + CloseStatusFilter' {status = pStatus_} + +-- | The close status that must match the close status of an execution for it +-- to meet the criteria of this filter. +closeStatusFilter_status :: Lens.Lens' CloseStatusFilter CloseStatus +closeStatusFilter_status = Lens.lens (\CloseStatusFilter' {status} -> status) (\s@CloseStatusFilter' {} a -> s {status = a} :: CloseStatusFilter) + +instance Prelude.Hashable CloseStatusFilter where + hashWithSalt _salt CloseStatusFilter' {..} = + _salt `Prelude.hashWithSalt` status + +instance Prelude.NFData CloseStatusFilter where + rnf CloseStatusFilter' {..} = Prelude.rnf status + +instance Data.ToJSON CloseStatusFilter where + toJSON CloseStatusFilter' {..} = + Data.object + ( Prelude.catMaybes + [Prelude.Just ("status" Data..= status)] + ) diff --git a/gen/Amazonka/SWF/Types/CompleteWorkflowExecutionDecisionAttributes.hs b/gen/Amazonka/SWF/Types/CompleteWorkflowExecutionDecisionAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/CompleteWorkflowExecutionDecisionAttributes.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.SWF.Types.CompleteWorkflowExecutionDecisionAttributes +-- 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.SWF.Types.CompleteWorkflowExecutionDecisionAttributes 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 + +-- | Provides the details of the @CompleteWorkflowExecution@ decision. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this decision\'s access to Amazon +-- SWF resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- /See:/ 'newCompleteWorkflowExecutionDecisionAttributes' smart constructor. +data CompleteWorkflowExecutionDecisionAttributes = CompleteWorkflowExecutionDecisionAttributes' + { -- | The result of the workflow execution. The form of the result is + -- implementation defined. + result :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CompleteWorkflowExecutionDecisionAttributes' 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: +-- +-- 'result', 'completeWorkflowExecutionDecisionAttributes_result' - The result of the workflow execution. The form of the result is +-- implementation defined. +newCompleteWorkflowExecutionDecisionAttributes :: + CompleteWorkflowExecutionDecisionAttributes +newCompleteWorkflowExecutionDecisionAttributes = + CompleteWorkflowExecutionDecisionAttributes' + { result = + Prelude.Nothing + } + +-- | The result of the workflow execution. The form of the result is +-- implementation defined. +completeWorkflowExecutionDecisionAttributes_result :: Lens.Lens' CompleteWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +completeWorkflowExecutionDecisionAttributes_result = Lens.lens (\CompleteWorkflowExecutionDecisionAttributes' {result} -> result) (\s@CompleteWorkflowExecutionDecisionAttributes' {} a -> s {result = a} :: CompleteWorkflowExecutionDecisionAttributes) + +instance + Prelude.Hashable + CompleteWorkflowExecutionDecisionAttributes + where + hashWithSalt + _salt + CompleteWorkflowExecutionDecisionAttributes' {..} = + _salt `Prelude.hashWithSalt` result + +instance + Prelude.NFData + CompleteWorkflowExecutionDecisionAttributes + where + rnf CompleteWorkflowExecutionDecisionAttributes' {..} = + Prelude.rnf result + +instance + Data.ToJSON + CompleteWorkflowExecutionDecisionAttributes + where + toJSON + CompleteWorkflowExecutionDecisionAttributes' {..} = + Data.object + ( Prelude.catMaybes + [("result" Data..=) Prelude.<$> result] + ) diff --git a/gen/Amazonka/SWF/Types/CompleteWorkflowExecutionFailedCause.hs b/gen/Amazonka/SWF/Types/CompleteWorkflowExecutionFailedCause.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/CompleteWorkflowExecutionFailedCause.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.SWF.Types.CompleteWorkflowExecutionFailedCause +-- 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.SWF.Types.CompleteWorkflowExecutionFailedCause + ( CompleteWorkflowExecutionFailedCause + ( .., + CompleteWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED, + CompleteWorkflowExecutionFailedCause_UNHANDLED_DECISION + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype CompleteWorkflowExecutionFailedCause = CompleteWorkflowExecutionFailedCause' + { fromCompleteWorkflowExecutionFailedCause :: + 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 CompleteWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED :: CompleteWorkflowExecutionFailedCause +pattern CompleteWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED = CompleteWorkflowExecutionFailedCause' "OPERATION_NOT_PERMITTED" + +pattern CompleteWorkflowExecutionFailedCause_UNHANDLED_DECISION :: CompleteWorkflowExecutionFailedCause +pattern CompleteWorkflowExecutionFailedCause_UNHANDLED_DECISION = CompleteWorkflowExecutionFailedCause' "UNHANDLED_DECISION" + +{-# COMPLETE + CompleteWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED, + CompleteWorkflowExecutionFailedCause_UNHANDLED_DECISION, + CompleteWorkflowExecutionFailedCause' + #-} diff --git a/gen/Amazonka/SWF/Types/CompleteWorkflowExecutionFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/CompleteWorkflowExecutionFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/CompleteWorkflowExecutionFailedEventAttributes.hs @@ -0,0 +1,138 @@ +{-# 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.SWF.Types.CompleteWorkflowExecutionFailedEventAttributes +-- 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.SWF.Types.CompleteWorkflowExecutionFailedEventAttributes 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 +import Amazonka.SWF.Types.CompleteWorkflowExecutionFailedCause + +-- | Provides the details of the @CompleteWorkflowExecutionFailed@ event. +-- +-- /See:/ 'newCompleteWorkflowExecutionFailedEventAttributes' smart constructor. +data CompleteWorkflowExecutionFailedEventAttributes = CompleteWorkflowExecutionFailedEventAttributes' + { -- | The cause of the failure. This information is generated by the system + -- and can be useful for diagnostic purposes. + -- + -- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed + -- because it lacked sufficient permissions. For details and example IAM + -- policies, see + -- + -- in the /Amazon SWF Developer Guide/. + cause :: CompleteWorkflowExecutionFailedCause, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @CompleteWorkflowExecution@ decision + -- to complete this execution. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'CompleteWorkflowExecutionFailedEventAttributes' 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: +-- +-- 'cause', 'completeWorkflowExecutionFailedEventAttributes_cause' - The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'decisionTaskCompletedEventId', 'completeWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @CompleteWorkflowExecution@ decision +-- to complete this execution. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +newCompleteWorkflowExecutionFailedEventAttributes :: + -- | 'cause' + CompleteWorkflowExecutionFailedCause -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + CompleteWorkflowExecutionFailedEventAttributes +newCompleteWorkflowExecutionFailedEventAttributes + pCause_ + pDecisionTaskCompletedEventId_ = + CompleteWorkflowExecutionFailedEventAttributes' + { cause = + pCause_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +completeWorkflowExecutionFailedEventAttributes_cause :: Lens.Lens' CompleteWorkflowExecutionFailedEventAttributes CompleteWorkflowExecutionFailedCause +completeWorkflowExecutionFailedEventAttributes_cause = Lens.lens (\CompleteWorkflowExecutionFailedEventAttributes' {cause} -> cause) (\s@CompleteWorkflowExecutionFailedEventAttributes' {} a -> s {cause = a} :: CompleteWorkflowExecutionFailedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @CompleteWorkflowExecution@ decision +-- to complete this execution. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +completeWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' CompleteWorkflowExecutionFailedEventAttributes Prelude.Integer +completeWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\CompleteWorkflowExecutionFailedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@CompleteWorkflowExecutionFailedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: CompleteWorkflowExecutionFailedEventAttributes) + +instance + Data.FromJSON + CompleteWorkflowExecutionFailedEventAttributes + where + parseJSON = + Data.withObject + "CompleteWorkflowExecutionFailedEventAttributes" + ( \x -> + CompleteWorkflowExecutionFailedEventAttributes' + Prelude.<$> (x Data..: "cause") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + CompleteWorkflowExecutionFailedEventAttributes + where + hashWithSalt + _salt + CompleteWorkflowExecutionFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` cause + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + CompleteWorkflowExecutionFailedEventAttributes + where + rnf + CompleteWorkflowExecutionFailedEventAttributes' {..} = + Prelude.rnf cause + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/ContinueAsNewWorkflowExecutionDecisionAttributes.hs b/gen/Amazonka/SWF/Types/ContinueAsNewWorkflowExecutionDecisionAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ContinueAsNewWorkflowExecutionDecisionAttributes.hs @@ -0,0 +1,388 @@ +{-# 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.SWF.Types.ContinueAsNewWorkflowExecutionDecisionAttributes +-- 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.SWF.Types.ContinueAsNewWorkflowExecutionDecisionAttributes 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 +import Amazonka.SWF.Types.ChildPolicy +import Amazonka.SWF.Types.TaskList + +-- | Provides the details of the @ContinueAsNewWorkflowExecution@ decision. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this decision\'s access to Amazon +-- SWF resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the following parameters by using a @Condition@ element +-- with the appropriate keys. +-- +-- - @tag@ – A tag used to identify the workflow execution +-- +-- - @taskList@ – String constraint. The key is @swf:taskList.name@. +-- +-- - @workflowType.version@ – String constraint. The key is +-- @swf:workflowType.version@. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- /See:/ 'newContinueAsNewWorkflowExecutionDecisionAttributes' smart constructor. +data ContinueAsNewWorkflowExecutionDecisionAttributes = ContinueAsNewWorkflowExecutionDecisionAttributes' + { -- | If set, specifies the policy to use for the child workflow executions of + -- the new execution if it is terminated by calling the + -- TerminateWorkflowExecution action explicitly or due to an expired + -- timeout. This policy overrides the default child policy specified when + -- registering the workflow type using RegisterWorkflowType. + -- + -- The supported child policies are: + -- + -- - @TERMINATE@ – The child executions are terminated. + -- + -- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child + -- execution by recording a @WorkflowExecutionCancelRequested@ event in + -- its history. It is up to the decider to take appropriate actions + -- when it receives an execution history with this event. + -- + -- - @ABANDON@ – No action is taken. The child executions continue to + -- run. + -- + -- A child policy for this workflow execution must be specified either as a + -- default for the workflow type or through this parameter. If neither this + -- parameter is set nor a default child policy was specified at + -- registration time then a fault is returned. + childPolicy :: Prelude.Maybe ChildPolicy, + -- | If set, specifies the total duration for this workflow execution. This + -- overrides the @defaultExecutionStartToCloseTimeout@ specified when + -- registering the workflow type. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + -- + -- An execution start-to-close timeout for this workflow execution must be + -- specified either as a default for the workflow type or through this + -- field. If neither this field is set nor a default execution + -- start-to-close timeout was specified at registration time then a fault + -- is returned. + executionStartToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The input provided to the new workflow execution. + input :: Prelude.Maybe Prelude.Text, + -- | The IAM role to attach to the new (continued) execution. + lambdaRole :: Prelude.Maybe Prelude.Text, + -- | The list of tags to associate with the new workflow execution. A maximum + -- of 5 tags can be specified. You can list workflow executions with a + -- specific tag by calling ListOpenWorkflowExecutions or + -- ListClosedWorkflowExecutions and specifying a TagFilter. + tagList :: Prelude.Maybe [Prelude.Text], + -- | The task list to use for the decisions of the new (continued) workflow + -- execution. + taskList :: Prelude.Maybe TaskList, + -- | The task priority that, if set, specifies the priority for the decision + -- tasks for this workflow execution. This overrides the + -- defaultTaskPriority specified when registering the workflow type. Valid + -- values are integers that range from Java\'s @Integer.MIN_VALUE@ + -- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers + -- indicate higher priority. + -- + -- For more information about setting task priority, see + -- + -- in the /Amazon SWF Developer Guide/. + taskPriority :: Prelude.Maybe Prelude.Text, + -- | Specifies the maximum duration of decision tasks for the new workflow + -- execution. This parameter overrides the @defaultTaskStartToCloseTimout@ + -- specified when registering the workflow type using RegisterWorkflowType. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + -- + -- A task start-to-close timeout for the new workflow execution must be + -- specified either as a default for the workflow type or through this + -- parameter. If neither this parameter is set nor a default task + -- start-to-close timeout was specified at registration time then a fault + -- is returned. + taskStartToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The version of the workflow to start. + workflowTypeVersion :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ContinueAsNewWorkflowExecutionDecisionAttributes' 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: +-- +-- 'childPolicy', 'continueAsNewWorkflowExecutionDecisionAttributes_childPolicy' - If set, specifies the policy to use for the child workflow executions of +-- the new execution if it is terminated by calling the +-- TerminateWorkflowExecution action explicitly or due to an expired +-- timeout. This policy overrides the default child policy specified when +-- registering the workflow type using RegisterWorkflowType. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +-- +-- A child policy for this workflow execution must be specified either as a +-- default for the workflow type or through this parameter. If neither this +-- parameter is set nor a default child policy was specified at +-- registration time then a fault is returned. +-- +-- 'executionStartToCloseTimeout', 'continueAsNewWorkflowExecutionDecisionAttributes_executionStartToCloseTimeout' - If set, specifies the total duration for this workflow execution. This +-- overrides the @defaultExecutionStartToCloseTimeout@ specified when +-- registering the workflow type. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- An execution start-to-close timeout for this workflow execution must be +-- specified either as a default for the workflow type or through this +-- field. If neither this field is set nor a default execution +-- start-to-close timeout was specified at registration time then a fault +-- is returned. +-- +-- 'input', 'continueAsNewWorkflowExecutionDecisionAttributes_input' - The input provided to the new workflow execution. +-- +-- 'lambdaRole', 'continueAsNewWorkflowExecutionDecisionAttributes_lambdaRole' - The IAM role to attach to the new (continued) execution. +-- +-- 'tagList', 'continueAsNewWorkflowExecutionDecisionAttributes_tagList' - The list of tags to associate with the new workflow execution. A maximum +-- of 5 tags can be specified. You can list workflow executions with a +-- specific tag by calling ListOpenWorkflowExecutions or +-- ListClosedWorkflowExecutions and specifying a TagFilter. +-- +-- 'taskList', 'continueAsNewWorkflowExecutionDecisionAttributes_taskList' - The task list to use for the decisions of the new (continued) workflow +-- execution. +-- +-- 'taskPriority', 'continueAsNewWorkflowExecutionDecisionAttributes_taskPriority' - The task priority that, if set, specifies the priority for the decision +-- tasks for this workflow execution. This overrides the +-- defaultTaskPriority specified when registering the workflow type. Valid +-- values are integers that range from Java\'s @Integer.MIN_VALUE@ +-- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers +-- indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'taskStartToCloseTimeout', 'continueAsNewWorkflowExecutionDecisionAttributes_taskStartToCloseTimeout' - Specifies the maximum duration of decision tasks for the new workflow +-- execution. This parameter overrides the @defaultTaskStartToCloseTimout@ +-- specified when registering the workflow type using RegisterWorkflowType. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- A task start-to-close timeout for the new workflow execution must be +-- specified either as a default for the workflow type or through this +-- parameter. If neither this parameter is set nor a default task +-- start-to-close timeout was specified at registration time then a fault +-- is returned. +-- +-- 'workflowTypeVersion', 'continueAsNewWorkflowExecutionDecisionAttributes_workflowTypeVersion' - The version of the workflow to start. +newContinueAsNewWorkflowExecutionDecisionAttributes :: + ContinueAsNewWorkflowExecutionDecisionAttributes +newContinueAsNewWorkflowExecutionDecisionAttributes = + ContinueAsNewWorkflowExecutionDecisionAttributes' + { childPolicy = + Prelude.Nothing, + executionStartToCloseTimeout = + Prelude.Nothing, + input = Prelude.Nothing, + lambdaRole = + Prelude.Nothing, + tagList = Prelude.Nothing, + taskList = + Prelude.Nothing, + taskPriority = + Prelude.Nothing, + taskStartToCloseTimeout = + Prelude.Nothing, + workflowTypeVersion = + Prelude.Nothing + } + +-- | If set, specifies the policy to use for the child workflow executions of +-- the new execution if it is terminated by calling the +-- TerminateWorkflowExecution action explicitly or due to an expired +-- timeout. This policy overrides the default child policy specified when +-- registering the workflow type using RegisterWorkflowType. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +-- +-- A child policy for this workflow execution must be specified either as a +-- default for the workflow type or through this parameter. If neither this +-- parameter is set nor a default child policy was specified at +-- registration time then a fault is returned. +continueAsNewWorkflowExecutionDecisionAttributes_childPolicy :: Lens.Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Prelude.Maybe ChildPolicy) +continueAsNewWorkflowExecutionDecisionAttributes_childPolicy = Lens.lens (\ContinueAsNewWorkflowExecutionDecisionAttributes' {childPolicy} -> childPolicy) (\s@ContinueAsNewWorkflowExecutionDecisionAttributes' {} a -> s {childPolicy = a} :: ContinueAsNewWorkflowExecutionDecisionAttributes) + +-- | If set, specifies the total duration for this workflow execution. This +-- overrides the @defaultExecutionStartToCloseTimeout@ specified when +-- registering the workflow type. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- An execution start-to-close timeout for this workflow execution must be +-- specified either as a default for the workflow type or through this +-- field. If neither this field is set nor a default execution +-- start-to-close timeout was specified at registration time then a fault +-- is returned. +continueAsNewWorkflowExecutionDecisionAttributes_executionStartToCloseTimeout :: Lens.Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +continueAsNewWorkflowExecutionDecisionAttributes_executionStartToCloseTimeout = Lens.lens (\ContinueAsNewWorkflowExecutionDecisionAttributes' {executionStartToCloseTimeout} -> executionStartToCloseTimeout) (\s@ContinueAsNewWorkflowExecutionDecisionAttributes' {} a -> s {executionStartToCloseTimeout = a} :: ContinueAsNewWorkflowExecutionDecisionAttributes) + +-- | The input provided to the new workflow execution. +continueAsNewWorkflowExecutionDecisionAttributes_input :: Lens.Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +continueAsNewWorkflowExecutionDecisionAttributes_input = Lens.lens (\ContinueAsNewWorkflowExecutionDecisionAttributes' {input} -> input) (\s@ContinueAsNewWorkflowExecutionDecisionAttributes' {} a -> s {input = a} :: ContinueAsNewWorkflowExecutionDecisionAttributes) + +-- | The IAM role to attach to the new (continued) execution. +continueAsNewWorkflowExecutionDecisionAttributes_lambdaRole :: Lens.Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +continueAsNewWorkflowExecutionDecisionAttributes_lambdaRole = Lens.lens (\ContinueAsNewWorkflowExecutionDecisionAttributes' {lambdaRole} -> lambdaRole) (\s@ContinueAsNewWorkflowExecutionDecisionAttributes' {} a -> s {lambdaRole = a} :: ContinueAsNewWorkflowExecutionDecisionAttributes) + +-- | The list of tags to associate with the new workflow execution. A maximum +-- of 5 tags can be specified. You can list workflow executions with a +-- specific tag by calling ListOpenWorkflowExecutions or +-- ListClosedWorkflowExecutions and specifying a TagFilter. +continueAsNewWorkflowExecutionDecisionAttributes_tagList :: Lens.Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Prelude.Maybe [Prelude.Text]) +continueAsNewWorkflowExecutionDecisionAttributes_tagList = Lens.lens (\ContinueAsNewWorkflowExecutionDecisionAttributes' {tagList} -> tagList) (\s@ContinueAsNewWorkflowExecutionDecisionAttributes' {} a -> s {tagList = a} :: ContinueAsNewWorkflowExecutionDecisionAttributes) Prelude.. Lens.mapping Lens.coerced + +-- | The task list to use for the decisions of the new (continued) workflow +-- execution. +continueAsNewWorkflowExecutionDecisionAttributes_taskList :: Lens.Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Prelude.Maybe TaskList) +continueAsNewWorkflowExecutionDecisionAttributes_taskList = Lens.lens (\ContinueAsNewWorkflowExecutionDecisionAttributes' {taskList} -> taskList) (\s@ContinueAsNewWorkflowExecutionDecisionAttributes' {} a -> s {taskList = a} :: ContinueAsNewWorkflowExecutionDecisionAttributes) + +-- | The task priority that, if set, specifies the priority for the decision +-- tasks for this workflow execution. This overrides the +-- defaultTaskPriority specified when registering the workflow type. Valid +-- values are integers that range from Java\'s @Integer.MIN_VALUE@ +-- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers +-- indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +continueAsNewWorkflowExecutionDecisionAttributes_taskPriority :: Lens.Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +continueAsNewWorkflowExecutionDecisionAttributes_taskPriority = Lens.lens (\ContinueAsNewWorkflowExecutionDecisionAttributes' {taskPriority} -> taskPriority) (\s@ContinueAsNewWorkflowExecutionDecisionAttributes' {} a -> s {taskPriority = a} :: ContinueAsNewWorkflowExecutionDecisionAttributes) + +-- | Specifies the maximum duration of decision tasks for the new workflow +-- execution. This parameter overrides the @defaultTaskStartToCloseTimout@ +-- specified when registering the workflow type using RegisterWorkflowType. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- A task start-to-close timeout for the new workflow execution must be +-- specified either as a default for the workflow type or through this +-- parameter. If neither this parameter is set nor a default task +-- start-to-close timeout was specified at registration time then a fault +-- is returned. +continueAsNewWorkflowExecutionDecisionAttributes_taskStartToCloseTimeout :: Lens.Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +continueAsNewWorkflowExecutionDecisionAttributes_taskStartToCloseTimeout = Lens.lens (\ContinueAsNewWorkflowExecutionDecisionAttributes' {taskStartToCloseTimeout} -> taskStartToCloseTimeout) (\s@ContinueAsNewWorkflowExecutionDecisionAttributes' {} a -> s {taskStartToCloseTimeout = a} :: ContinueAsNewWorkflowExecutionDecisionAttributes) + +-- | The version of the workflow to start. +continueAsNewWorkflowExecutionDecisionAttributes_workflowTypeVersion :: Lens.Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +continueAsNewWorkflowExecutionDecisionAttributes_workflowTypeVersion = Lens.lens (\ContinueAsNewWorkflowExecutionDecisionAttributes' {workflowTypeVersion} -> workflowTypeVersion) (\s@ContinueAsNewWorkflowExecutionDecisionAttributes' {} a -> s {workflowTypeVersion = a} :: ContinueAsNewWorkflowExecutionDecisionAttributes) + +instance + Prelude.Hashable + ContinueAsNewWorkflowExecutionDecisionAttributes + where + hashWithSalt + _salt + ContinueAsNewWorkflowExecutionDecisionAttributes' {..} = + _salt + `Prelude.hashWithSalt` childPolicy + `Prelude.hashWithSalt` executionStartToCloseTimeout + `Prelude.hashWithSalt` input + `Prelude.hashWithSalt` lambdaRole + `Prelude.hashWithSalt` tagList + `Prelude.hashWithSalt` taskList + `Prelude.hashWithSalt` taskPriority + `Prelude.hashWithSalt` taskStartToCloseTimeout + `Prelude.hashWithSalt` workflowTypeVersion + +instance + Prelude.NFData + ContinueAsNewWorkflowExecutionDecisionAttributes + where + rnf + ContinueAsNewWorkflowExecutionDecisionAttributes' {..} = + Prelude.rnf childPolicy + `Prelude.seq` Prelude.rnf executionStartToCloseTimeout + `Prelude.seq` Prelude.rnf input + `Prelude.seq` Prelude.rnf lambdaRole + `Prelude.seq` Prelude.rnf tagList + `Prelude.seq` Prelude.rnf taskList + `Prelude.seq` Prelude.rnf taskPriority + `Prelude.seq` Prelude.rnf taskStartToCloseTimeout + `Prelude.seq` Prelude.rnf workflowTypeVersion + +instance + Data.ToJSON + ContinueAsNewWorkflowExecutionDecisionAttributes + where + toJSON + ContinueAsNewWorkflowExecutionDecisionAttributes' {..} = + Data.object + ( Prelude.catMaybes + [ ("childPolicy" Data..=) Prelude.<$> childPolicy, + ("executionStartToCloseTimeout" Data..=) + Prelude.<$> executionStartToCloseTimeout, + ("input" Data..=) Prelude.<$> input, + ("lambdaRole" Data..=) Prelude.<$> lambdaRole, + ("tagList" Data..=) Prelude.<$> tagList, + ("taskList" Data..=) Prelude.<$> taskList, + ("taskPriority" Data..=) Prelude.<$> taskPriority, + ("taskStartToCloseTimeout" Data..=) + Prelude.<$> taskStartToCloseTimeout, + ("workflowTypeVersion" Data..=) + Prelude.<$> workflowTypeVersion + ] + ) diff --git a/gen/Amazonka/SWF/Types/ContinueAsNewWorkflowExecutionFailedCause.hs b/gen/Amazonka/SWF/Types/ContinueAsNewWorkflowExecutionFailedCause.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ContinueAsNewWorkflowExecutionFailedCause.hs @@ -0,0 +1,106 @@ +{-# 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.SWF.Types.ContinueAsNewWorkflowExecutionFailedCause +-- 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.SWF.Types.ContinueAsNewWorkflowExecutionFailedCause + ( ContinueAsNewWorkflowExecutionFailedCause + ( .., + ContinueAsNewWorkflowExecutionFailedCause_CONTINUE_AS_NEW_WORKFLOW_EXECUTION_RATE_EXCEEDED, + ContinueAsNewWorkflowExecutionFailedCause_DEFAULT_CHILD_POLICY_UNDEFINED, + ContinueAsNewWorkflowExecutionFailedCause_DEFAULT_EXECUTION_START_TO_CLOSE_TIMEOUT_UNDEFINED, + ContinueAsNewWorkflowExecutionFailedCause_DEFAULT_TASK_LIST_UNDEFINED, + ContinueAsNewWorkflowExecutionFailedCause_DEFAULT_TASK_START_TO_CLOSE_TIMEOUT_UNDEFINED, + ContinueAsNewWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED, + ContinueAsNewWorkflowExecutionFailedCause_UNHANDLED_DECISION, + ContinueAsNewWorkflowExecutionFailedCause_WORKFLOW_TYPE_DEPRECATED, + ContinueAsNewWorkflowExecutionFailedCause_WORKFLOW_TYPE_DOES_NOT_EXIST + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ContinueAsNewWorkflowExecutionFailedCause = ContinueAsNewWorkflowExecutionFailedCause' + { fromContinueAsNewWorkflowExecutionFailedCause :: + 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 ContinueAsNewWorkflowExecutionFailedCause_CONTINUE_AS_NEW_WORKFLOW_EXECUTION_RATE_EXCEEDED :: ContinueAsNewWorkflowExecutionFailedCause +pattern ContinueAsNewWorkflowExecutionFailedCause_CONTINUE_AS_NEW_WORKFLOW_EXECUTION_RATE_EXCEEDED = ContinueAsNewWorkflowExecutionFailedCause' "CONTINUE_AS_NEW_WORKFLOW_EXECUTION_RATE_EXCEEDED" + +pattern ContinueAsNewWorkflowExecutionFailedCause_DEFAULT_CHILD_POLICY_UNDEFINED :: ContinueAsNewWorkflowExecutionFailedCause +pattern ContinueAsNewWorkflowExecutionFailedCause_DEFAULT_CHILD_POLICY_UNDEFINED = ContinueAsNewWorkflowExecutionFailedCause' "DEFAULT_CHILD_POLICY_UNDEFINED" + +pattern ContinueAsNewWorkflowExecutionFailedCause_DEFAULT_EXECUTION_START_TO_CLOSE_TIMEOUT_UNDEFINED :: ContinueAsNewWorkflowExecutionFailedCause +pattern ContinueAsNewWorkflowExecutionFailedCause_DEFAULT_EXECUTION_START_TO_CLOSE_TIMEOUT_UNDEFINED = ContinueAsNewWorkflowExecutionFailedCause' "DEFAULT_EXECUTION_START_TO_CLOSE_TIMEOUT_UNDEFINED" + +pattern ContinueAsNewWorkflowExecutionFailedCause_DEFAULT_TASK_LIST_UNDEFINED :: ContinueAsNewWorkflowExecutionFailedCause +pattern ContinueAsNewWorkflowExecutionFailedCause_DEFAULT_TASK_LIST_UNDEFINED = ContinueAsNewWorkflowExecutionFailedCause' "DEFAULT_TASK_LIST_UNDEFINED" + +pattern ContinueAsNewWorkflowExecutionFailedCause_DEFAULT_TASK_START_TO_CLOSE_TIMEOUT_UNDEFINED :: ContinueAsNewWorkflowExecutionFailedCause +pattern ContinueAsNewWorkflowExecutionFailedCause_DEFAULT_TASK_START_TO_CLOSE_TIMEOUT_UNDEFINED = ContinueAsNewWorkflowExecutionFailedCause' "DEFAULT_TASK_START_TO_CLOSE_TIMEOUT_UNDEFINED" + +pattern ContinueAsNewWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED :: ContinueAsNewWorkflowExecutionFailedCause +pattern ContinueAsNewWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED = ContinueAsNewWorkflowExecutionFailedCause' "OPERATION_NOT_PERMITTED" + +pattern ContinueAsNewWorkflowExecutionFailedCause_UNHANDLED_DECISION :: ContinueAsNewWorkflowExecutionFailedCause +pattern ContinueAsNewWorkflowExecutionFailedCause_UNHANDLED_DECISION = ContinueAsNewWorkflowExecutionFailedCause' "UNHANDLED_DECISION" + +pattern ContinueAsNewWorkflowExecutionFailedCause_WORKFLOW_TYPE_DEPRECATED :: ContinueAsNewWorkflowExecutionFailedCause +pattern ContinueAsNewWorkflowExecutionFailedCause_WORKFLOW_TYPE_DEPRECATED = ContinueAsNewWorkflowExecutionFailedCause' "WORKFLOW_TYPE_DEPRECATED" + +pattern ContinueAsNewWorkflowExecutionFailedCause_WORKFLOW_TYPE_DOES_NOT_EXIST :: ContinueAsNewWorkflowExecutionFailedCause +pattern ContinueAsNewWorkflowExecutionFailedCause_WORKFLOW_TYPE_DOES_NOT_EXIST = ContinueAsNewWorkflowExecutionFailedCause' "WORKFLOW_TYPE_DOES_NOT_EXIST" + +{-# COMPLETE + ContinueAsNewWorkflowExecutionFailedCause_CONTINUE_AS_NEW_WORKFLOW_EXECUTION_RATE_EXCEEDED, + ContinueAsNewWorkflowExecutionFailedCause_DEFAULT_CHILD_POLICY_UNDEFINED, + ContinueAsNewWorkflowExecutionFailedCause_DEFAULT_EXECUTION_START_TO_CLOSE_TIMEOUT_UNDEFINED, + ContinueAsNewWorkflowExecutionFailedCause_DEFAULT_TASK_LIST_UNDEFINED, + ContinueAsNewWorkflowExecutionFailedCause_DEFAULT_TASK_START_TO_CLOSE_TIMEOUT_UNDEFINED, + ContinueAsNewWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED, + ContinueAsNewWorkflowExecutionFailedCause_UNHANDLED_DECISION, + ContinueAsNewWorkflowExecutionFailedCause_WORKFLOW_TYPE_DEPRECATED, + ContinueAsNewWorkflowExecutionFailedCause_WORKFLOW_TYPE_DOES_NOT_EXIST, + ContinueAsNewWorkflowExecutionFailedCause' + #-} diff --git a/gen/Amazonka/SWF/Types/ContinueAsNewWorkflowExecutionFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/ContinueAsNewWorkflowExecutionFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ContinueAsNewWorkflowExecutionFailedEventAttributes.hs @@ -0,0 +1,139 @@ +{-# 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.SWF.Types.ContinueAsNewWorkflowExecutionFailedEventAttributes +-- 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.SWF.Types.ContinueAsNewWorkflowExecutionFailedEventAttributes 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 +import Amazonka.SWF.Types.ContinueAsNewWorkflowExecutionFailedCause + +-- | Provides the details of the @ContinueAsNewWorkflowExecutionFailed@ +-- event. +-- +-- /See:/ 'newContinueAsNewWorkflowExecutionFailedEventAttributes' smart constructor. +data ContinueAsNewWorkflowExecutionFailedEventAttributes = ContinueAsNewWorkflowExecutionFailedEventAttributes' + { -- | The cause of the failure. This information is generated by the system + -- and can be useful for diagnostic purposes. + -- + -- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed + -- because it lacked sufficient permissions. For details and example IAM + -- policies, see + -- + -- in the /Amazon SWF Developer Guide/. + cause :: ContinueAsNewWorkflowExecutionFailedCause, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @ContinueAsNewWorkflowExecution@ + -- decision that started this execution. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ContinueAsNewWorkflowExecutionFailedEventAttributes' 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: +-- +-- 'cause', 'continueAsNewWorkflowExecutionFailedEventAttributes_cause' - The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'decisionTaskCompletedEventId', 'continueAsNewWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @ContinueAsNewWorkflowExecution@ +-- decision that started this execution. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +newContinueAsNewWorkflowExecutionFailedEventAttributes :: + -- | 'cause' + ContinueAsNewWorkflowExecutionFailedCause -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + ContinueAsNewWorkflowExecutionFailedEventAttributes +newContinueAsNewWorkflowExecutionFailedEventAttributes + pCause_ + pDecisionTaskCompletedEventId_ = + ContinueAsNewWorkflowExecutionFailedEventAttributes' + { cause = + pCause_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +continueAsNewWorkflowExecutionFailedEventAttributes_cause :: Lens.Lens' ContinueAsNewWorkflowExecutionFailedEventAttributes ContinueAsNewWorkflowExecutionFailedCause +continueAsNewWorkflowExecutionFailedEventAttributes_cause = Lens.lens (\ContinueAsNewWorkflowExecutionFailedEventAttributes' {cause} -> cause) (\s@ContinueAsNewWorkflowExecutionFailedEventAttributes' {} a -> s {cause = a} :: ContinueAsNewWorkflowExecutionFailedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @ContinueAsNewWorkflowExecution@ +-- decision that started this execution. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +continueAsNewWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' ContinueAsNewWorkflowExecutionFailedEventAttributes Prelude.Integer +continueAsNewWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\ContinueAsNewWorkflowExecutionFailedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@ContinueAsNewWorkflowExecutionFailedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: ContinueAsNewWorkflowExecutionFailedEventAttributes) + +instance + Data.FromJSON + ContinueAsNewWorkflowExecutionFailedEventAttributes + where + parseJSON = + Data.withObject + "ContinueAsNewWorkflowExecutionFailedEventAttributes" + ( \x -> + ContinueAsNewWorkflowExecutionFailedEventAttributes' + Prelude.<$> (x Data..: "cause") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + ContinueAsNewWorkflowExecutionFailedEventAttributes + where + hashWithSalt + _salt + ContinueAsNewWorkflowExecutionFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` cause + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + ContinueAsNewWorkflowExecutionFailedEventAttributes + where + rnf + ContinueAsNewWorkflowExecutionFailedEventAttributes' {..} = + Prelude.rnf cause + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/Decision.hs b/gen/Amazonka/SWF/Types/Decision.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/Decision.hs @@ -0,0 +1,501 @@ +{-# 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.SWF.Types.Decision +-- 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.SWF.Types.Decision 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 +import Amazonka.SWF.Types.CancelTimerDecisionAttributes +import Amazonka.SWF.Types.CancelWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.CompleteWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.ContinueAsNewWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.DecisionType +import Amazonka.SWF.Types.FailWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.RecordMarkerDecisionAttributes +import Amazonka.SWF.Types.RequestCancelActivityTaskDecisionAttributes +import Amazonka.SWF.Types.RequestCancelExternalWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.ScheduleActivityTaskDecisionAttributes +import Amazonka.SWF.Types.ScheduleLambdaFunctionDecisionAttributes +import Amazonka.SWF.Types.SignalExternalWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.StartChildWorkflowExecutionDecisionAttributes +import Amazonka.SWF.Types.StartTimerDecisionAttributes + +-- | Specifies a decision made by the decider. A decision can be one of these +-- types: +-- +-- - @CancelTimer@ – Cancels a previously started timer and records a +-- @TimerCanceled@ event in the history. +-- +-- - @CancelWorkflowExecution@ – Closes the workflow execution and +-- records a @WorkflowExecutionCanceled@ event in the history. +-- +-- - @CompleteWorkflowExecution@ – Closes the workflow execution and +-- records a @WorkflowExecutionCompleted@ event in the history . +-- +-- - @ContinueAsNewWorkflowExecution@ – Closes the workflow execution and +-- starts a new workflow execution of the same type using the same +-- workflow ID and a unique run Id. A @WorkflowExecutionContinuedAsNew@ +-- event is recorded in the history. +-- +-- - @FailWorkflowExecution@ – Closes the workflow execution and records +-- a @WorkflowExecutionFailed@ event in the history. +-- +-- - @RecordMarker@ – Records a @MarkerRecorded@ event in the history. +-- Markers can be used for adding custom information in the history for +-- instance to let deciders know that they don\'t need to look at the +-- history beyond the marker event. +-- +-- - @RequestCancelActivityTask@ – Attempts to cancel a previously +-- scheduled activity task. If the activity task was scheduled but has +-- not been assigned to a worker, then it is canceled. If the activity +-- task was already assigned to a worker, then the worker is informed +-- that cancellation has been requested in the response to +-- RecordActivityTaskHeartbeat. +-- +-- - @RequestCancelExternalWorkflowExecution@ – Requests that a request +-- be made to cancel the specified external workflow execution and +-- records a @RequestCancelExternalWorkflowExecutionInitiated@ event in +-- the history. +-- +-- - @ScheduleActivityTask@ – Schedules an activity task. +-- +-- - @SignalExternalWorkflowExecution@ – Requests a signal to be +-- delivered to the specified external workflow execution and records a +-- @SignalExternalWorkflowExecutionInitiated@ event in the history. +-- +-- - @StartChildWorkflowExecution@ – Requests that a child workflow +-- execution be started and records a +-- @StartChildWorkflowExecutionInitiated@ event in the history. The +-- child workflow execution is a separate workflow execution with its +-- own history. +-- +-- - @StartTimer@ – Starts a timer for this workflow execution and +-- records a @TimerStarted@ event in the history. This timer fires +-- after the specified delay and record a @TimerFired@ event. +-- +-- __Access Control__ +-- +-- If you grant permission to use @RespondDecisionTaskCompleted@, you can +-- use IAM policies to express permissions for the list of decisions +-- returned by this action as if they were members of the API. Treating +-- decisions as a pseudo API maintains a uniform conceptual model and helps +-- keep policies readable. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- __Decision Failure__ +-- +-- Decisions can fail for several reasons +-- +-- - The ordering of decisions should follow a logical flow. Some +-- decisions might not make sense in the current context of the +-- workflow execution and therefore fails. +-- +-- - A limit on your account was reached. +-- +-- - The decision lacks sufficient permissions. +-- +-- One of the following events might be added to the history to indicate an +-- error. The event attribute\'s @cause@ parameter indicates the cause. If +-- @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed because +-- it lacked sufficient permissions. For details and example IAM policies, +-- see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- - @ScheduleActivityTaskFailed@ – A @ScheduleActivityTask@ decision +-- failed. This could happen if the activity type specified in the +-- decision isn\'t registered, is in a deprecated state, or the +-- decision isn\'t properly configured. +-- +-- - @RequestCancelActivityTaskFailed@ – A @RequestCancelActivityTask@ +-- decision failed. This could happen if there is no open activity task +-- with the specified activityId. +-- +-- - @StartTimerFailed@ – A @StartTimer@ decision failed. This could +-- happen if there is another open timer with the same timerId. +-- +-- - @CancelTimerFailed@ – A @CancelTimer@ decision failed. This could +-- happen if there is no open timer with the specified timerId. +-- +-- - @StartChildWorkflowExecutionFailed@ – A +-- @StartChildWorkflowExecution@ decision failed. This could happen if +-- the workflow type specified isn\'t registered, is deprecated, or the +-- decision isn\'t properly configured. +-- +-- - @SignalExternalWorkflowExecutionFailed@ – A +-- @SignalExternalWorkflowExecution@ decision failed. This could happen +-- if the @workflowID@ specified in the decision was incorrect. +-- +-- - @RequestCancelExternalWorkflowExecutionFailed@ – A +-- @RequestCancelExternalWorkflowExecution@ decision failed. This could +-- happen if the @workflowID@ specified in the decision was incorrect. +-- +-- - @CancelWorkflowExecutionFailed@ – A @CancelWorkflowExecution@ +-- decision failed. This could happen if there is an unhandled decision +-- task pending in the workflow execution. +-- +-- - @CompleteWorkflowExecutionFailed@ – A @CompleteWorkflowExecution@ +-- decision failed. This could happen if there is an unhandled decision +-- task pending in the workflow execution. +-- +-- - @ContinueAsNewWorkflowExecutionFailed@ – A +-- @ContinueAsNewWorkflowExecution@ decision failed. This could happen +-- if there is an unhandled decision task pending in the workflow +-- execution or the ContinueAsNewWorkflowExecution decision was not +-- configured correctly. +-- +-- - @FailWorkflowExecutionFailed@ – A @FailWorkflowExecution@ decision +-- failed. This could happen if there is an unhandled decision task +-- pending in the workflow execution. +-- +-- The preceding error events might occur due to an error in the decider +-- logic, which might put the workflow execution in an unstable state The +-- cause field in the event structure for the error event indicates the +-- cause of the error. +-- +-- A workflow execution may be closed by the decider by returning one of +-- the following decisions when completing a decision task: +-- @CompleteWorkflowExecution@, @FailWorkflowExecution@, +-- @CancelWorkflowExecution@ and @ContinueAsNewWorkflowExecution@. An +-- @UnhandledDecision@ fault is returned if a workflow closing decision is +-- specified and a signal or activity event had been added to the history +-- while the decision task was being performed by the decider. Unlike the +-- above situations which are logic issues, this fault is always possible +-- because of race conditions in a distributed system. The right action +-- here is to call RespondDecisionTaskCompleted without any decisions. This +-- would result in another decision task with these new events included in +-- the history. The decider should handle the new events and may decide to +-- close the workflow execution. +-- +-- __How to Code a Decision__ +-- +-- You code a decision by first setting the decision type field to one of +-- the above decision values, and then set the corresponding attributes +-- field shown below: +-- +-- - @ @@ScheduleActivityTaskDecisionAttributes@@ @ +-- +-- - @ @@RequestCancelActivityTaskDecisionAttributes@@ @ +-- +-- - @ @@CompleteWorkflowExecutionDecisionAttributes@@ @ +-- +-- - @ @@FailWorkflowExecutionDecisionAttributes@@ @ +-- +-- - @ @@CancelWorkflowExecutionDecisionAttributes@@ @ +-- +-- - @ @@ContinueAsNewWorkflowExecutionDecisionAttributes@@ @ +-- +-- - @ @@RecordMarkerDecisionAttributes@@ @ +-- +-- - @ @@StartTimerDecisionAttributes@@ @ +-- +-- - @ @@CancelTimerDecisionAttributes@@ @ +-- +-- - @ @@SignalExternalWorkflowExecutionDecisionAttributes@@ @ +-- +-- - @ @@RequestCancelExternalWorkflowExecutionDecisionAttributes@@ @ +-- +-- - @ @@StartChildWorkflowExecutionDecisionAttributes@@ @ +-- +-- /See:/ 'newDecision' smart constructor. +data Decision = Decision' + { -- | Provides the details of the @CancelTimer@ decision. It isn\'t set for + -- other decision types. + cancelTimerDecisionAttributes :: Prelude.Maybe CancelTimerDecisionAttributes, + -- | Provides the details of the @CancelWorkflowExecution@ decision. It + -- isn\'t set for other decision types. + cancelWorkflowExecutionDecisionAttributes :: Prelude.Maybe CancelWorkflowExecutionDecisionAttributes, + -- | Provides the details of the @CompleteWorkflowExecution@ decision. It + -- isn\'t set for other decision types. + completeWorkflowExecutionDecisionAttributes :: Prelude.Maybe CompleteWorkflowExecutionDecisionAttributes, + -- | Provides the details of the @ContinueAsNewWorkflowExecution@ decision. + -- It isn\'t set for other decision types. + continueAsNewWorkflowExecutionDecisionAttributes :: Prelude.Maybe ContinueAsNewWorkflowExecutionDecisionAttributes, + -- | Provides the details of the @FailWorkflowExecution@ decision. It isn\'t + -- set for other decision types. + failWorkflowExecutionDecisionAttributes :: Prelude.Maybe FailWorkflowExecutionDecisionAttributes, + -- | Provides the details of the @RecordMarker@ decision. It isn\'t set for + -- other decision types. + recordMarkerDecisionAttributes :: Prelude.Maybe RecordMarkerDecisionAttributes, + -- | Provides the details of the @RequestCancelActivityTask@ decision. It + -- isn\'t set for other decision types. + requestCancelActivityTaskDecisionAttributes :: Prelude.Maybe RequestCancelActivityTaskDecisionAttributes, + -- | Provides the details of the @RequestCancelExternalWorkflowExecution@ + -- decision. It isn\'t set for other decision types. + requestCancelExternalWorkflowExecutionDecisionAttributes :: Prelude.Maybe RequestCancelExternalWorkflowExecutionDecisionAttributes, + -- | Provides the details of the @ScheduleActivityTask@ decision. It isn\'t + -- set for other decision types. + scheduleActivityTaskDecisionAttributes :: Prelude.Maybe ScheduleActivityTaskDecisionAttributes, + -- | Provides the details of the @ScheduleLambdaFunction@ decision. It isn\'t + -- set for other decision types. + scheduleLambdaFunctionDecisionAttributes :: Prelude.Maybe ScheduleLambdaFunctionDecisionAttributes, + -- | Provides the details of the @SignalExternalWorkflowExecution@ decision. + -- It isn\'t set for other decision types. + signalExternalWorkflowExecutionDecisionAttributes :: Prelude.Maybe SignalExternalWorkflowExecutionDecisionAttributes, + -- | Provides the details of the @StartChildWorkflowExecution@ decision. It + -- isn\'t set for other decision types. + startChildWorkflowExecutionDecisionAttributes :: Prelude.Maybe StartChildWorkflowExecutionDecisionAttributes, + -- | Provides the details of the @StartTimer@ decision. It isn\'t set for + -- other decision types. + startTimerDecisionAttributes :: Prelude.Maybe StartTimerDecisionAttributes, + -- | Specifies the type of the decision. + decisionType :: DecisionType + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'Decision' 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: +-- +-- 'cancelTimerDecisionAttributes', 'decision_cancelTimerDecisionAttributes' - Provides the details of the @CancelTimer@ decision. It isn\'t set for +-- other decision types. +-- +-- 'cancelWorkflowExecutionDecisionAttributes', 'decision_cancelWorkflowExecutionDecisionAttributes' - Provides the details of the @CancelWorkflowExecution@ decision. It +-- isn\'t set for other decision types. +-- +-- 'completeWorkflowExecutionDecisionAttributes', 'decision_completeWorkflowExecutionDecisionAttributes' - Provides the details of the @CompleteWorkflowExecution@ decision. It +-- isn\'t set for other decision types. +-- +-- 'continueAsNewWorkflowExecutionDecisionAttributes', 'decision_continueAsNewWorkflowExecutionDecisionAttributes' - Provides the details of the @ContinueAsNewWorkflowExecution@ decision. +-- It isn\'t set for other decision types. +-- +-- 'failWorkflowExecutionDecisionAttributes', 'decision_failWorkflowExecutionDecisionAttributes' - Provides the details of the @FailWorkflowExecution@ decision. It isn\'t +-- set for other decision types. +-- +-- 'recordMarkerDecisionAttributes', 'decision_recordMarkerDecisionAttributes' - Provides the details of the @RecordMarker@ decision. It isn\'t set for +-- other decision types. +-- +-- 'requestCancelActivityTaskDecisionAttributes', 'decision_requestCancelActivityTaskDecisionAttributes' - Provides the details of the @RequestCancelActivityTask@ decision. It +-- isn\'t set for other decision types. +-- +-- 'requestCancelExternalWorkflowExecutionDecisionAttributes', 'decision_requestCancelExternalWorkflowExecutionDecisionAttributes' - Provides the details of the @RequestCancelExternalWorkflowExecution@ +-- decision. It isn\'t set for other decision types. +-- +-- 'scheduleActivityTaskDecisionAttributes', 'decision_scheduleActivityTaskDecisionAttributes' - Provides the details of the @ScheduleActivityTask@ decision. It isn\'t +-- set for other decision types. +-- +-- 'scheduleLambdaFunctionDecisionAttributes', 'decision_scheduleLambdaFunctionDecisionAttributes' - Provides the details of the @ScheduleLambdaFunction@ decision. It isn\'t +-- set for other decision types. +-- +-- 'signalExternalWorkflowExecutionDecisionAttributes', 'decision_signalExternalWorkflowExecutionDecisionAttributes' - Provides the details of the @SignalExternalWorkflowExecution@ decision. +-- It isn\'t set for other decision types. +-- +-- 'startChildWorkflowExecutionDecisionAttributes', 'decision_startChildWorkflowExecutionDecisionAttributes' - Provides the details of the @StartChildWorkflowExecution@ decision. It +-- isn\'t set for other decision types. +-- +-- 'startTimerDecisionAttributes', 'decision_startTimerDecisionAttributes' - Provides the details of the @StartTimer@ decision. It isn\'t set for +-- other decision types. +-- +-- 'decisionType', 'decision_decisionType' - Specifies the type of the decision. +newDecision :: + -- | 'decisionType' + DecisionType -> + Decision +newDecision pDecisionType_ = + Decision' + { cancelTimerDecisionAttributes = + Prelude.Nothing, + cancelWorkflowExecutionDecisionAttributes = + Prelude.Nothing, + completeWorkflowExecutionDecisionAttributes = + Prelude.Nothing, + continueAsNewWorkflowExecutionDecisionAttributes = + Prelude.Nothing, + failWorkflowExecutionDecisionAttributes = + Prelude.Nothing, + recordMarkerDecisionAttributes = Prelude.Nothing, + requestCancelActivityTaskDecisionAttributes = + Prelude.Nothing, + requestCancelExternalWorkflowExecutionDecisionAttributes = + Prelude.Nothing, + scheduleActivityTaskDecisionAttributes = + Prelude.Nothing, + scheduleLambdaFunctionDecisionAttributes = + Prelude.Nothing, + signalExternalWorkflowExecutionDecisionAttributes = + Prelude.Nothing, + startChildWorkflowExecutionDecisionAttributes = + Prelude.Nothing, + startTimerDecisionAttributes = Prelude.Nothing, + decisionType = pDecisionType_ + } + +-- | Provides the details of the @CancelTimer@ decision. It isn\'t set for +-- other decision types. +decision_cancelTimerDecisionAttributes :: Lens.Lens' Decision (Prelude.Maybe CancelTimerDecisionAttributes) +decision_cancelTimerDecisionAttributes = Lens.lens (\Decision' {cancelTimerDecisionAttributes} -> cancelTimerDecisionAttributes) (\s@Decision' {} a -> s {cancelTimerDecisionAttributes = a} :: Decision) + +-- | Provides the details of the @CancelWorkflowExecution@ decision. It +-- isn\'t set for other decision types. +decision_cancelWorkflowExecutionDecisionAttributes :: Lens.Lens' Decision (Prelude.Maybe CancelWorkflowExecutionDecisionAttributes) +decision_cancelWorkflowExecutionDecisionAttributes = Lens.lens (\Decision' {cancelWorkflowExecutionDecisionAttributes} -> cancelWorkflowExecutionDecisionAttributes) (\s@Decision' {} a -> s {cancelWorkflowExecutionDecisionAttributes = a} :: Decision) + +-- | Provides the details of the @CompleteWorkflowExecution@ decision. It +-- isn\'t set for other decision types. +decision_completeWorkflowExecutionDecisionAttributes :: Lens.Lens' Decision (Prelude.Maybe CompleteWorkflowExecutionDecisionAttributes) +decision_completeWorkflowExecutionDecisionAttributes = Lens.lens (\Decision' {completeWorkflowExecutionDecisionAttributes} -> completeWorkflowExecutionDecisionAttributes) (\s@Decision' {} a -> s {completeWorkflowExecutionDecisionAttributes = a} :: Decision) + +-- | Provides the details of the @ContinueAsNewWorkflowExecution@ decision. +-- It isn\'t set for other decision types. +decision_continueAsNewWorkflowExecutionDecisionAttributes :: Lens.Lens' Decision (Prelude.Maybe ContinueAsNewWorkflowExecutionDecisionAttributes) +decision_continueAsNewWorkflowExecutionDecisionAttributes = Lens.lens (\Decision' {continueAsNewWorkflowExecutionDecisionAttributes} -> continueAsNewWorkflowExecutionDecisionAttributes) (\s@Decision' {} a -> s {continueAsNewWorkflowExecutionDecisionAttributes = a} :: Decision) + +-- | Provides the details of the @FailWorkflowExecution@ decision. It isn\'t +-- set for other decision types. +decision_failWorkflowExecutionDecisionAttributes :: Lens.Lens' Decision (Prelude.Maybe FailWorkflowExecutionDecisionAttributes) +decision_failWorkflowExecutionDecisionAttributes = Lens.lens (\Decision' {failWorkflowExecutionDecisionAttributes} -> failWorkflowExecutionDecisionAttributes) (\s@Decision' {} a -> s {failWorkflowExecutionDecisionAttributes = a} :: Decision) + +-- | Provides the details of the @RecordMarker@ decision. It isn\'t set for +-- other decision types. +decision_recordMarkerDecisionAttributes :: Lens.Lens' Decision (Prelude.Maybe RecordMarkerDecisionAttributes) +decision_recordMarkerDecisionAttributes = Lens.lens (\Decision' {recordMarkerDecisionAttributes} -> recordMarkerDecisionAttributes) (\s@Decision' {} a -> s {recordMarkerDecisionAttributes = a} :: Decision) + +-- | Provides the details of the @RequestCancelActivityTask@ decision. It +-- isn\'t set for other decision types. +decision_requestCancelActivityTaskDecisionAttributes :: Lens.Lens' Decision (Prelude.Maybe RequestCancelActivityTaskDecisionAttributes) +decision_requestCancelActivityTaskDecisionAttributes = Lens.lens (\Decision' {requestCancelActivityTaskDecisionAttributes} -> requestCancelActivityTaskDecisionAttributes) (\s@Decision' {} a -> s {requestCancelActivityTaskDecisionAttributes = a} :: Decision) + +-- | Provides the details of the @RequestCancelExternalWorkflowExecution@ +-- decision. It isn\'t set for other decision types. +decision_requestCancelExternalWorkflowExecutionDecisionAttributes :: Lens.Lens' Decision (Prelude.Maybe RequestCancelExternalWorkflowExecutionDecisionAttributes) +decision_requestCancelExternalWorkflowExecutionDecisionAttributes = Lens.lens (\Decision' {requestCancelExternalWorkflowExecutionDecisionAttributes} -> requestCancelExternalWorkflowExecutionDecisionAttributes) (\s@Decision' {} a -> s {requestCancelExternalWorkflowExecutionDecisionAttributes = a} :: Decision) + +-- | Provides the details of the @ScheduleActivityTask@ decision. It isn\'t +-- set for other decision types. +decision_scheduleActivityTaskDecisionAttributes :: Lens.Lens' Decision (Prelude.Maybe ScheduleActivityTaskDecisionAttributes) +decision_scheduleActivityTaskDecisionAttributes = Lens.lens (\Decision' {scheduleActivityTaskDecisionAttributes} -> scheduleActivityTaskDecisionAttributes) (\s@Decision' {} a -> s {scheduleActivityTaskDecisionAttributes = a} :: Decision) + +-- | Provides the details of the @ScheduleLambdaFunction@ decision. It isn\'t +-- set for other decision types. +decision_scheduleLambdaFunctionDecisionAttributes :: Lens.Lens' Decision (Prelude.Maybe ScheduleLambdaFunctionDecisionAttributes) +decision_scheduleLambdaFunctionDecisionAttributes = Lens.lens (\Decision' {scheduleLambdaFunctionDecisionAttributes} -> scheduleLambdaFunctionDecisionAttributes) (\s@Decision' {} a -> s {scheduleLambdaFunctionDecisionAttributes = a} :: Decision) + +-- | Provides the details of the @SignalExternalWorkflowExecution@ decision. +-- It isn\'t set for other decision types. +decision_signalExternalWorkflowExecutionDecisionAttributes :: Lens.Lens' Decision (Prelude.Maybe SignalExternalWorkflowExecutionDecisionAttributes) +decision_signalExternalWorkflowExecutionDecisionAttributes = Lens.lens (\Decision' {signalExternalWorkflowExecutionDecisionAttributes} -> signalExternalWorkflowExecutionDecisionAttributes) (\s@Decision' {} a -> s {signalExternalWorkflowExecutionDecisionAttributes = a} :: Decision) + +-- | Provides the details of the @StartChildWorkflowExecution@ decision. It +-- isn\'t set for other decision types. +decision_startChildWorkflowExecutionDecisionAttributes :: Lens.Lens' Decision (Prelude.Maybe StartChildWorkflowExecutionDecisionAttributes) +decision_startChildWorkflowExecutionDecisionAttributes = Lens.lens (\Decision' {startChildWorkflowExecutionDecisionAttributes} -> startChildWorkflowExecutionDecisionAttributes) (\s@Decision' {} a -> s {startChildWorkflowExecutionDecisionAttributes = a} :: Decision) + +-- | Provides the details of the @StartTimer@ decision. It isn\'t set for +-- other decision types. +decision_startTimerDecisionAttributes :: Lens.Lens' Decision (Prelude.Maybe StartTimerDecisionAttributes) +decision_startTimerDecisionAttributes = Lens.lens (\Decision' {startTimerDecisionAttributes} -> startTimerDecisionAttributes) (\s@Decision' {} a -> s {startTimerDecisionAttributes = a} :: Decision) + +-- | Specifies the type of the decision. +decision_decisionType :: Lens.Lens' Decision DecisionType +decision_decisionType = Lens.lens (\Decision' {decisionType} -> decisionType) (\s@Decision' {} a -> s {decisionType = a} :: Decision) + +instance Prelude.Hashable Decision where + hashWithSalt _salt Decision' {..} = + _salt + `Prelude.hashWithSalt` cancelTimerDecisionAttributes + `Prelude.hashWithSalt` cancelWorkflowExecutionDecisionAttributes + `Prelude.hashWithSalt` completeWorkflowExecutionDecisionAttributes + `Prelude.hashWithSalt` continueAsNewWorkflowExecutionDecisionAttributes + `Prelude.hashWithSalt` failWorkflowExecutionDecisionAttributes + `Prelude.hashWithSalt` recordMarkerDecisionAttributes + `Prelude.hashWithSalt` requestCancelActivityTaskDecisionAttributes + `Prelude.hashWithSalt` requestCancelExternalWorkflowExecutionDecisionAttributes + `Prelude.hashWithSalt` scheduleActivityTaskDecisionAttributes + `Prelude.hashWithSalt` scheduleLambdaFunctionDecisionAttributes + `Prelude.hashWithSalt` signalExternalWorkflowExecutionDecisionAttributes + `Prelude.hashWithSalt` startChildWorkflowExecutionDecisionAttributes + `Prelude.hashWithSalt` startTimerDecisionAttributes + `Prelude.hashWithSalt` decisionType + +instance Prelude.NFData Decision where + rnf Decision' {..} = + Prelude.rnf cancelTimerDecisionAttributes + `Prelude.seq` Prelude.rnf cancelWorkflowExecutionDecisionAttributes + `Prelude.seq` Prelude.rnf + completeWorkflowExecutionDecisionAttributes + `Prelude.seq` Prelude.rnf + continueAsNewWorkflowExecutionDecisionAttributes + `Prelude.seq` Prelude.rnf failWorkflowExecutionDecisionAttributes + `Prelude.seq` Prelude.rnf recordMarkerDecisionAttributes + `Prelude.seq` Prelude.rnf + requestCancelActivityTaskDecisionAttributes + `Prelude.seq` Prelude.rnf + requestCancelExternalWorkflowExecutionDecisionAttributes + `Prelude.seq` Prelude.rnf scheduleActivityTaskDecisionAttributes + `Prelude.seq` Prelude.rnf + scheduleLambdaFunctionDecisionAttributes + `Prelude.seq` Prelude.rnf + signalExternalWorkflowExecutionDecisionAttributes + `Prelude.seq` Prelude.rnf + startChildWorkflowExecutionDecisionAttributes + `Prelude.seq` Prelude.rnf startTimerDecisionAttributes + `Prelude.seq` Prelude.rnf decisionType + +instance Data.ToJSON Decision where + toJSON Decision' {..} = + Data.object + ( Prelude.catMaybes + [ ("cancelTimerDecisionAttributes" Data..=) + Prelude.<$> cancelTimerDecisionAttributes, + ("cancelWorkflowExecutionDecisionAttributes" Data..=) + Prelude.<$> cancelWorkflowExecutionDecisionAttributes, + ( "completeWorkflowExecutionDecisionAttributes" + Data..= + ) + Prelude.<$> completeWorkflowExecutionDecisionAttributes, + ( "continueAsNewWorkflowExecutionDecisionAttributes" + Data..= + ) + Prelude.<$> continueAsNewWorkflowExecutionDecisionAttributes, + ("failWorkflowExecutionDecisionAttributes" Data..=) + Prelude.<$> failWorkflowExecutionDecisionAttributes, + ("recordMarkerDecisionAttributes" Data..=) + Prelude.<$> recordMarkerDecisionAttributes, + ( "requestCancelActivityTaskDecisionAttributes" + Data..= + ) + Prelude.<$> requestCancelActivityTaskDecisionAttributes, + ( "requestCancelExternalWorkflowExecutionDecisionAttributes" + Data..= + ) + Prelude.<$> requestCancelExternalWorkflowExecutionDecisionAttributes, + ("scheduleActivityTaskDecisionAttributes" Data..=) + Prelude.<$> scheduleActivityTaskDecisionAttributes, + ("scheduleLambdaFunctionDecisionAttributes" Data..=) + Prelude.<$> scheduleLambdaFunctionDecisionAttributes, + ( "signalExternalWorkflowExecutionDecisionAttributes" + Data..= + ) + Prelude.<$> signalExternalWorkflowExecutionDecisionAttributes, + ( "startChildWorkflowExecutionDecisionAttributes" + Data..= + ) + Prelude.<$> startChildWorkflowExecutionDecisionAttributes, + ("startTimerDecisionAttributes" Data..=) + Prelude.<$> startTimerDecisionAttributes, + Prelude.Just ("decisionType" Data..= decisionType) + ] + ) diff --git a/gen/Amazonka/SWF/Types/DecisionTaskCompletedEventAttributes.hs b/gen/Amazonka/SWF/Types/DecisionTaskCompletedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/DecisionTaskCompletedEventAttributes.hs @@ -0,0 +1,129 @@ +{-# 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.SWF.Types.DecisionTaskCompletedEventAttributes +-- 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.SWF.Types.DecisionTaskCompletedEventAttributes 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 + +-- | Provides the details of the @DecisionTaskCompleted@ event. +-- +-- /See:/ 'newDecisionTaskCompletedEventAttributes' smart constructor. +data DecisionTaskCompletedEventAttributes = DecisionTaskCompletedEventAttributes' + { -- | User defined context for the workflow execution. + executionContext :: Prelude.Maybe Prelude.Text, + -- | The ID of the @DecisionTaskScheduled@ event that was recorded when this + -- decision task was scheduled. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + scheduledEventId :: Prelude.Integer, + -- | The ID of the @DecisionTaskStarted@ event recorded when this decision + -- task was started. This information can be useful for diagnosing problems + -- by tracing back the chain of events leading up to this event. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DecisionTaskCompletedEventAttributes' 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: +-- +-- 'executionContext', 'decisionTaskCompletedEventAttributes_executionContext' - User defined context for the workflow execution. +-- +-- 'scheduledEventId', 'decisionTaskCompletedEventAttributes_scheduledEventId' - The ID of the @DecisionTaskScheduled@ event that was recorded when this +-- decision task was scheduled. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +-- +-- 'startedEventId', 'decisionTaskCompletedEventAttributes_startedEventId' - The ID of the @DecisionTaskStarted@ event recorded when this decision +-- task was started. This information can be useful for diagnosing problems +-- by tracing back the chain of events leading up to this event. +newDecisionTaskCompletedEventAttributes :: + -- | 'scheduledEventId' + Prelude.Integer -> + -- | 'startedEventId' + Prelude.Integer -> + DecisionTaskCompletedEventAttributes +newDecisionTaskCompletedEventAttributes + pScheduledEventId_ + pStartedEventId_ = + DecisionTaskCompletedEventAttributes' + { executionContext = + Prelude.Nothing, + scheduledEventId = pScheduledEventId_, + startedEventId = pStartedEventId_ + } + +-- | User defined context for the workflow execution. +decisionTaskCompletedEventAttributes_executionContext :: Lens.Lens' DecisionTaskCompletedEventAttributes (Prelude.Maybe Prelude.Text) +decisionTaskCompletedEventAttributes_executionContext = Lens.lens (\DecisionTaskCompletedEventAttributes' {executionContext} -> executionContext) (\s@DecisionTaskCompletedEventAttributes' {} a -> s {executionContext = a} :: DecisionTaskCompletedEventAttributes) + +-- | The ID of the @DecisionTaskScheduled@ event that was recorded when this +-- decision task was scheduled. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +decisionTaskCompletedEventAttributes_scheduledEventId :: Lens.Lens' DecisionTaskCompletedEventAttributes Prelude.Integer +decisionTaskCompletedEventAttributes_scheduledEventId = Lens.lens (\DecisionTaskCompletedEventAttributes' {scheduledEventId} -> scheduledEventId) (\s@DecisionTaskCompletedEventAttributes' {} a -> s {scheduledEventId = a} :: DecisionTaskCompletedEventAttributes) + +-- | The ID of the @DecisionTaskStarted@ event recorded when this decision +-- task was started. This information can be useful for diagnosing problems +-- by tracing back the chain of events leading up to this event. +decisionTaskCompletedEventAttributes_startedEventId :: Lens.Lens' DecisionTaskCompletedEventAttributes Prelude.Integer +decisionTaskCompletedEventAttributes_startedEventId = Lens.lens (\DecisionTaskCompletedEventAttributes' {startedEventId} -> startedEventId) (\s@DecisionTaskCompletedEventAttributes' {} a -> s {startedEventId = a} :: DecisionTaskCompletedEventAttributes) + +instance + Data.FromJSON + DecisionTaskCompletedEventAttributes + where + parseJSON = + Data.withObject + "DecisionTaskCompletedEventAttributes" + ( \x -> + DecisionTaskCompletedEventAttributes' + Prelude.<$> (x Data..:? "executionContext") + Prelude.<*> (x Data..: "scheduledEventId") + Prelude.<*> (x Data..: "startedEventId") + ) + +instance + Prelude.Hashable + DecisionTaskCompletedEventAttributes + where + hashWithSalt + _salt + DecisionTaskCompletedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` executionContext + `Prelude.hashWithSalt` scheduledEventId + `Prelude.hashWithSalt` startedEventId + +instance + Prelude.NFData + DecisionTaskCompletedEventAttributes + where + rnf DecisionTaskCompletedEventAttributes' {..} = + Prelude.rnf executionContext + `Prelude.seq` Prelude.rnf scheduledEventId + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/Types/DecisionTaskScheduledEventAttributes.hs b/gen/Amazonka/SWF/Types/DecisionTaskScheduledEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/DecisionTaskScheduledEventAttributes.hs @@ -0,0 +1,144 @@ +{-# 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.SWF.Types.DecisionTaskScheduledEventAttributes +-- 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.SWF.Types.DecisionTaskScheduledEventAttributes 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 +import Amazonka.SWF.Types.TaskList + +-- | Provides details about the @DecisionTaskScheduled@ event. +-- +-- /See:/ 'newDecisionTaskScheduledEventAttributes' smart constructor. +data DecisionTaskScheduledEventAttributes = DecisionTaskScheduledEventAttributes' + { -- | The maximum duration for this decision task. The task is considered + -- timed out if it doesn\'t completed within this duration. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + startToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | A task priority that, if set, specifies the priority for this decision + -- task. Valid values are integers that range from Java\'s + -- @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). + -- Higher numbers indicate higher priority. + -- + -- For more information about setting task priority, see + -- + -- in the /Amazon SWF Developer Guide/. + taskPriority :: Prelude.Maybe Prelude.Text, + -- | The name of the task list in which the decision task was scheduled. + taskList :: TaskList + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DecisionTaskScheduledEventAttributes' 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: +-- +-- 'startToCloseTimeout', 'decisionTaskScheduledEventAttributes_startToCloseTimeout' - The maximum duration for this decision task. The task is considered +-- timed out if it doesn\'t completed within this duration. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'taskPriority', 'decisionTaskScheduledEventAttributes_taskPriority' - A task priority that, if set, specifies the priority for this decision +-- task. Valid values are integers that range from Java\'s +-- @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). +-- Higher numbers indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'taskList', 'decisionTaskScheduledEventAttributes_taskList' - The name of the task list in which the decision task was scheduled. +newDecisionTaskScheduledEventAttributes :: + -- | 'taskList' + TaskList -> + DecisionTaskScheduledEventAttributes +newDecisionTaskScheduledEventAttributes pTaskList_ = + DecisionTaskScheduledEventAttributes' + { startToCloseTimeout = + Prelude.Nothing, + taskPriority = Prelude.Nothing, + taskList = pTaskList_ + } + +-- | The maximum duration for this decision task. The task is considered +-- timed out if it doesn\'t completed within this duration. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +decisionTaskScheduledEventAttributes_startToCloseTimeout :: Lens.Lens' DecisionTaskScheduledEventAttributes (Prelude.Maybe Prelude.Text) +decisionTaskScheduledEventAttributes_startToCloseTimeout = Lens.lens (\DecisionTaskScheduledEventAttributes' {startToCloseTimeout} -> startToCloseTimeout) (\s@DecisionTaskScheduledEventAttributes' {} a -> s {startToCloseTimeout = a} :: DecisionTaskScheduledEventAttributes) + +-- | A task priority that, if set, specifies the priority for this decision +-- task. Valid values are integers that range from Java\'s +-- @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). +-- Higher numbers indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +decisionTaskScheduledEventAttributes_taskPriority :: Lens.Lens' DecisionTaskScheduledEventAttributes (Prelude.Maybe Prelude.Text) +decisionTaskScheduledEventAttributes_taskPriority = Lens.lens (\DecisionTaskScheduledEventAttributes' {taskPriority} -> taskPriority) (\s@DecisionTaskScheduledEventAttributes' {} a -> s {taskPriority = a} :: DecisionTaskScheduledEventAttributes) + +-- | The name of the task list in which the decision task was scheduled. +decisionTaskScheduledEventAttributes_taskList :: Lens.Lens' DecisionTaskScheduledEventAttributes TaskList +decisionTaskScheduledEventAttributes_taskList = Lens.lens (\DecisionTaskScheduledEventAttributes' {taskList} -> taskList) (\s@DecisionTaskScheduledEventAttributes' {} a -> s {taskList = a} :: DecisionTaskScheduledEventAttributes) + +instance + Data.FromJSON + DecisionTaskScheduledEventAttributes + where + parseJSON = + Data.withObject + "DecisionTaskScheduledEventAttributes" + ( \x -> + DecisionTaskScheduledEventAttributes' + Prelude.<$> (x Data..:? "startToCloseTimeout") + Prelude.<*> (x Data..:? "taskPriority") + Prelude.<*> (x Data..: "taskList") + ) + +instance + Prelude.Hashable + DecisionTaskScheduledEventAttributes + where + hashWithSalt + _salt + DecisionTaskScheduledEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` startToCloseTimeout + `Prelude.hashWithSalt` taskPriority + `Prelude.hashWithSalt` taskList + +instance + Prelude.NFData + DecisionTaskScheduledEventAttributes + where + rnf DecisionTaskScheduledEventAttributes' {..} = + Prelude.rnf startToCloseTimeout + `Prelude.seq` Prelude.rnf taskPriority + `Prelude.seq` Prelude.rnf taskList diff --git a/gen/Amazonka/SWF/Types/DecisionTaskStartedEventAttributes.hs b/gen/Amazonka/SWF/Types/DecisionTaskStartedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/DecisionTaskStartedEventAttributes.hs @@ -0,0 +1,111 @@ +{-# 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.SWF.Types.DecisionTaskStartedEventAttributes +-- 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.SWF.Types.DecisionTaskStartedEventAttributes 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 + +-- | Provides the details of the @DecisionTaskStarted@ event. +-- +-- /See:/ 'newDecisionTaskStartedEventAttributes' smart constructor. +data DecisionTaskStartedEventAttributes = DecisionTaskStartedEventAttributes' + { -- | Identity of the decider making the request. This enables diagnostic + -- tracing when problems arise. The form of this identity is user defined. + identity :: Prelude.Maybe Prelude.Text, + -- | The ID of the @DecisionTaskScheduled@ event that was recorded when this + -- decision task was scheduled. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + scheduledEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DecisionTaskStartedEventAttributes' 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: +-- +-- 'identity', 'decisionTaskStartedEventAttributes_identity' - Identity of the decider making the request. This enables diagnostic +-- tracing when problems arise. The form of this identity is user defined. +-- +-- 'scheduledEventId', 'decisionTaskStartedEventAttributes_scheduledEventId' - The ID of the @DecisionTaskScheduled@ event that was recorded when this +-- decision task was scheduled. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +newDecisionTaskStartedEventAttributes :: + -- | 'scheduledEventId' + Prelude.Integer -> + DecisionTaskStartedEventAttributes +newDecisionTaskStartedEventAttributes + pScheduledEventId_ = + DecisionTaskStartedEventAttributes' + { identity = + Prelude.Nothing, + scheduledEventId = pScheduledEventId_ + } + +-- | Identity of the decider making the request. This enables diagnostic +-- tracing when problems arise. The form of this identity is user defined. +decisionTaskStartedEventAttributes_identity :: Lens.Lens' DecisionTaskStartedEventAttributes (Prelude.Maybe Prelude.Text) +decisionTaskStartedEventAttributes_identity = Lens.lens (\DecisionTaskStartedEventAttributes' {identity} -> identity) (\s@DecisionTaskStartedEventAttributes' {} a -> s {identity = a} :: DecisionTaskStartedEventAttributes) + +-- | The ID of the @DecisionTaskScheduled@ event that was recorded when this +-- decision task was scheduled. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +decisionTaskStartedEventAttributes_scheduledEventId :: Lens.Lens' DecisionTaskStartedEventAttributes Prelude.Integer +decisionTaskStartedEventAttributes_scheduledEventId = Lens.lens (\DecisionTaskStartedEventAttributes' {scheduledEventId} -> scheduledEventId) (\s@DecisionTaskStartedEventAttributes' {} a -> s {scheduledEventId = a} :: DecisionTaskStartedEventAttributes) + +instance + Data.FromJSON + DecisionTaskStartedEventAttributes + where + parseJSON = + Data.withObject + "DecisionTaskStartedEventAttributes" + ( \x -> + DecisionTaskStartedEventAttributes' + Prelude.<$> (x Data..:? "identity") + Prelude.<*> (x Data..: "scheduledEventId") + ) + +instance + Prelude.Hashable + DecisionTaskStartedEventAttributes + where + hashWithSalt + _salt + DecisionTaskStartedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` identity + `Prelude.hashWithSalt` scheduledEventId + +instance + Prelude.NFData + DecisionTaskStartedEventAttributes + where + rnf DecisionTaskStartedEventAttributes' {..} = + Prelude.rnf identity + `Prelude.seq` Prelude.rnf scheduledEventId diff --git a/gen/Amazonka/SWF/Types/DecisionTaskTimedOutEventAttributes.hs b/gen/Amazonka/SWF/Types/DecisionTaskTimedOutEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/DecisionTaskTimedOutEventAttributes.hs @@ -0,0 +1,136 @@ +{-# 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.SWF.Types.DecisionTaskTimedOutEventAttributes +-- 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.SWF.Types.DecisionTaskTimedOutEventAttributes 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 +import Amazonka.SWF.Types.DecisionTaskTimeoutType + +-- | Provides the details of the @DecisionTaskTimedOut@ event. +-- +-- /See:/ 'newDecisionTaskTimedOutEventAttributes' smart constructor. +data DecisionTaskTimedOutEventAttributes = DecisionTaskTimedOutEventAttributes' + { -- | The type of timeout that expired before the decision task could be + -- completed. + timeoutType :: DecisionTaskTimeoutType, + -- | The ID of the @DecisionTaskScheduled@ event that was recorded when this + -- decision task was scheduled. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + scheduledEventId :: Prelude.Integer, + -- | The ID of the @DecisionTaskStarted@ event recorded when this decision + -- task was started. This information can be useful for diagnosing problems + -- by tracing back the chain of events leading up to this event. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DecisionTaskTimedOutEventAttributes' 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: +-- +-- 'timeoutType', 'decisionTaskTimedOutEventAttributes_timeoutType' - The type of timeout that expired before the decision task could be +-- completed. +-- +-- 'scheduledEventId', 'decisionTaskTimedOutEventAttributes_scheduledEventId' - The ID of the @DecisionTaskScheduled@ event that was recorded when this +-- decision task was scheduled. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +-- +-- 'startedEventId', 'decisionTaskTimedOutEventAttributes_startedEventId' - The ID of the @DecisionTaskStarted@ event recorded when this decision +-- task was started. This information can be useful for diagnosing problems +-- by tracing back the chain of events leading up to this event. +newDecisionTaskTimedOutEventAttributes :: + -- | 'timeoutType' + DecisionTaskTimeoutType -> + -- | 'scheduledEventId' + Prelude.Integer -> + -- | 'startedEventId' + Prelude.Integer -> + DecisionTaskTimedOutEventAttributes +newDecisionTaskTimedOutEventAttributes + pTimeoutType_ + pScheduledEventId_ + pStartedEventId_ = + DecisionTaskTimedOutEventAttributes' + { timeoutType = + pTimeoutType_, + scheduledEventId = pScheduledEventId_, + startedEventId = pStartedEventId_ + } + +-- | The type of timeout that expired before the decision task could be +-- completed. +decisionTaskTimedOutEventAttributes_timeoutType :: Lens.Lens' DecisionTaskTimedOutEventAttributes DecisionTaskTimeoutType +decisionTaskTimedOutEventAttributes_timeoutType = Lens.lens (\DecisionTaskTimedOutEventAttributes' {timeoutType} -> timeoutType) (\s@DecisionTaskTimedOutEventAttributes' {} a -> s {timeoutType = a} :: DecisionTaskTimedOutEventAttributes) + +-- | The ID of the @DecisionTaskScheduled@ event that was recorded when this +-- decision task was scheduled. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +decisionTaskTimedOutEventAttributes_scheduledEventId :: Lens.Lens' DecisionTaskTimedOutEventAttributes Prelude.Integer +decisionTaskTimedOutEventAttributes_scheduledEventId = Lens.lens (\DecisionTaskTimedOutEventAttributes' {scheduledEventId} -> scheduledEventId) (\s@DecisionTaskTimedOutEventAttributes' {} a -> s {scheduledEventId = a} :: DecisionTaskTimedOutEventAttributes) + +-- | The ID of the @DecisionTaskStarted@ event recorded when this decision +-- task was started. This information can be useful for diagnosing problems +-- by tracing back the chain of events leading up to this event. +decisionTaskTimedOutEventAttributes_startedEventId :: Lens.Lens' DecisionTaskTimedOutEventAttributes Prelude.Integer +decisionTaskTimedOutEventAttributes_startedEventId = Lens.lens (\DecisionTaskTimedOutEventAttributes' {startedEventId} -> startedEventId) (\s@DecisionTaskTimedOutEventAttributes' {} a -> s {startedEventId = a} :: DecisionTaskTimedOutEventAttributes) + +instance + Data.FromJSON + DecisionTaskTimedOutEventAttributes + where + parseJSON = + Data.withObject + "DecisionTaskTimedOutEventAttributes" + ( \x -> + DecisionTaskTimedOutEventAttributes' + Prelude.<$> (x Data..: "timeoutType") + Prelude.<*> (x Data..: "scheduledEventId") + Prelude.<*> (x Data..: "startedEventId") + ) + +instance + Prelude.Hashable + DecisionTaskTimedOutEventAttributes + where + hashWithSalt + _salt + DecisionTaskTimedOutEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` timeoutType + `Prelude.hashWithSalt` scheduledEventId + `Prelude.hashWithSalt` startedEventId + +instance + Prelude.NFData + DecisionTaskTimedOutEventAttributes + where + rnf DecisionTaskTimedOutEventAttributes' {..} = + Prelude.rnf timeoutType + `Prelude.seq` Prelude.rnf scheduledEventId + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/Types/DecisionTaskTimeoutType.hs b/gen/Amazonka/SWF/Types/DecisionTaskTimeoutType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/DecisionTaskTimeoutType.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.SWF.Types.DecisionTaskTimeoutType +-- 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.SWF.Types.DecisionTaskTimeoutType + ( DecisionTaskTimeoutType + ( .., + DecisionTaskTimeoutType_START_TO_CLOSE + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype DecisionTaskTimeoutType = DecisionTaskTimeoutType' + { fromDecisionTaskTimeoutType :: + 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 DecisionTaskTimeoutType_START_TO_CLOSE :: DecisionTaskTimeoutType +pattern DecisionTaskTimeoutType_START_TO_CLOSE = DecisionTaskTimeoutType' "START_TO_CLOSE" + +{-# COMPLETE + DecisionTaskTimeoutType_START_TO_CLOSE, + DecisionTaskTimeoutType' + #-} diff --git a/gen/Amazonka/SWF/Types/DecisionType.hs b/gen/Amazonka/SWF/Types/DecisionType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/DecisionType.hs @@ -0,0 +1,126 @@ +{-# 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.SWF.Types.DecisionType +-- 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.SWF.Types.DecisionType + ( DecisionType + ( .., + DecisionType_CancelTimer, + DecisionType_CancelWorkflowExecution, + DecisionType_CompleteWorkflowExecution, + DecisionType_ContinueAsNewWorkflowExecution, + DecisionType_FailWorkflowExecution, + DecisionType_RecordMarker, + DecisionType_RequestCancelActivityTask, + DecisionType_RequestCancelExternalWorkflowExecution, + DecisionType_ScheduleActivityTask, + DecisionType_ScheduleLambdaFunction, + DecisionType_SignalExternalWorkflowExecution, + DecisionType_StartChildWorkflowExecution, + DecisionType_StartTimer + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype DecisionType = DecisionType' + { fromDecisionType :: + 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 DecisionType_CancelTimer :: DecisionType +pattern DecisionType_CancelTimer = DecisionType' "CancelTimer" + +pattern DecisionType_CancelWorkflowExecution :: DecisionType +pattern DecisionType_CancelWorkflowExecution = DecisionType' "CancelWorkflowExecution" + +pattern DecisionType_CompleteWorkflowExecution :: DecisionType +pattern DecisionType_CompleteWorkflowExecution = DecisionType' "CompleteWorkflowExecution" + +pattern DecisionType_ContinueAsNewWorkflowExecution :: DecisionType +pattern DecisionType_ContinueAsNewWorkflowExecution = DecisionType' "ContinueAsNewWorkflowExecution" + +pattern DecisionType_FailWorkflowExecution :: DecisionType +pattern DecisionType_FailWorkflowExecution = DecisionType' "FailWorkflowExecution" + +pattern DecisionType_RecordMarker :: DecisionType +pattern DecisionType_RecordMarker = DecisionType' "RecordMarker" + +pattern DecisionType_RequestCancelActivityTask :: DecisionType +pattern DecisionType_RequestCancelActivityTask = DecisionType' "RequestCancelActivityTask" + +pattern DecisionType_RequestCancelExternalWorkflowExecution :: DecisionType +pattern DecisionType_RequestCancelExternalWorkflowExecution = DecisionType' "RequestCancelExternalWorkflowExecution" + +pattern DecisionType_ScheduleActivityTask :: DecisionType +pattern DecisionType_ScheduleActivityTask = DecisionType' "ScheduleActivityTask" + +pattern DecisionType_ScheduleLambdaFunction :: DecisionType +pattern DecisionType_ScheduleLambdaFunction = DecisionType' "ScheduleLambdaFunction" + +pattern DecisionType_SignalExternalWorkflowExecution :: DecisionType +pattern DecisionType_SignalExternalWorkflowExecution = DecisionType' "SignalExternalWorkflowExecution" + +pattern DecisionType_StartChildWorkflowExecution :: DecisionType +pattern DecisionType_StartChildWorkflowExecution = DecisionType' "StartChildWorkflowExecution" + +pattern DecisionType_StartTimer :: DecisionType +pattern DecisionType_StartTimer = DecisionType' "StartTimer" + +{-# COMPLETE + DecisionType_CancelTimer, + DecisionType_CancelWorkflowExecution, + DecisionType_CompleteWorkflowExecution, + DecisionType_ContinueAsNewWorkflowExecution, + DecisionType_FailWorkflowExecution, + DecisionType_RecordMarker, + DecisionType_RequestCancelActivityTask, + DecisionType_RequestCancelExternalWorkflowExecution, + DecisionType_ScheduleActivityTask, + DecisionType_ScheduleLambdaFunction, + DecisionType_SignalExternalWorkflowExecution, + DecisionType_StartChildWorkflowExecution, + DecisionType_StartTimer, + DecisionType' + #-} diff --git a/gen/Amazonka/SWF/Types/DomainConfiguration.hs b/gen/Amazonka/SWF/Types/DomainConfiguration.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/DomainConfiguration.hs @@ -0,0 +1,76 @@ +{-# 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.SWF.Types.DomainConfiguration +-- 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.SWF.Types.DomainConfiguration 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 the configuration settings of a domain. +-- +-- /See:/ 'newDomainConfiguration' smart constructor. +data DomainConfiguration = DomainConfiguration' + { -- | The retention period for workflow executions in this domain. + workflowExecutionRetentionPeriodInDays :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DomainConfiguration' 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: +-- +-- 'workflowExecutionRetentionPeriodInDays', 'domainConfiguration_workflowExecutionRetentionPeriodInDays' - The retention period for workflow executions in this domain. +newDomainConfiguration :: + -- | 'workflowExecutionRetentionPeriodInDays' + Prelude.Text -> + DomainConfiguration +newDomainConfiguration + pWorkflowExecutionRetentionPeriodInDays_ = + DomainConfiguration' + { workflowExecutionRetentionPeriodInDays = + pWorkflowExecutionRetentionPeriodInDays_ + } + +-- | The retention period for workflow executions in this domain. +domainConfiguration_workflowExecutionRetentionPeriodInDays :: Lens.Lens' DomainConfiguration Prelude.Text +domainConfiguration_workflowExecutionRetentionPeriodInDays = Lens.lens (\DomainConfiguration' {workflowExecutionRetentionPeriodInDays} -> workflowExecutionRetentionPeriodInDays) (\s@DomainConfiguration' {} a -> s {workflowExecutionRetentionPeriodInDays = a} :: DomainConfiguration) + +instance Data.FromJSON DomainConfiguration where + parseJSON = + Data.withObject + "DomainConfiguration" + ( \x -> + DomainConfiguration' + Prelude.<$> (x Data..: "workflowExecutionRetentionPeriodInDays") + ) + +instance Prelude.Hashable DomainConfiguration where + hashWithSalt _salt DomainConfiguration' {..} = + _salt + `Prelude.hashWithSalt` workflowExecutionRetentionPeriodInDays + +instance Prelude.NFData DomainConfiguration where + rnf DomainConfiguration' {..} = + Prelude.rnf workflowExecutionRetentionPeriodInDays diff --git a/gen/Amazonka/SWF/Types/DomainInfo.hs b/gen/Amazonka/SWF/Types/DomainInfo.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/DomainInfo.hs @@ -0,0 +1,137 @@ +{-# 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.SWF.Types.DomainInfo +-- 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.SWF.Types.DomainInfo 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 +import Amazonka.SWF.Types.RegistrationStatus + +-- | Contains general information about a domain. +-- +-- /See:/ 'newDomainInfo' smart constructor. +data DomainInfo = DomainInfo' + { -- | The ARN of the domain. + arn :: Prelude.Maybe Prelude.Text, + -- | The description of the domain provided through RegisterDomain. + description :: Prelude.Maybe Prelude.Text, + -- | The name of the domain. This name is unique within the account. + name :: Prelude.Text, + -- | The status of the domain: + -- + -- - @REGISTERED@ – The domain is properly registered and available. You + -- can use this domain for registering types and creating new workflow + -- executions. + -- + -- - @DEPRECATED@ – The domain was deprecated using DeprecateDomain, but + -- is still in use. You should not create new workflow executions in + -- this domain. + status :: RegistrationStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'DomainInfo' 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', 'domainInfo_arn' - The ARN of the domain. +-- +-- 'description', 'domainInfo_description' - The description of the domain provided through RegisterDomain. +-- +-- 'name', 'domainInfo_name' - The name of the domain. This name is unique within the account. +-- +-- 'status', 'domainInfo_status' - The status of the domain: +-- +-- - @REGISTERED@ – The domain is properly registered and available. You +-- can use this domain for registering types and creating new workflow +-- executions. +-- +-- - @DEPRECATED@ – The domain was deprecated using DeprecateDomain, but +-- is still in use. You should not create new workflow executions in +-- this domain. +newDomainInfo :: + -- | 'name' + Prelude.Text -> + -- | 'status' + RegistrationStatus -> + DomainInfo +newDomainInfo pName_ pStatus_ = + DomainInfo' + { arn = Prelude.Nothing, + description = Prelude.Nothing, + name = pName_, + status = pStatus_ + } + +-- | The ARN of the domain. +domainInfo_arn :: Lens.Lens' DomainInfo (Prelude.Maybe Prelude.Text) +domainInfo_arn = Lens.lens (\DomainInfo' {arn} -> arn) (\s@DomainInfo' {} a -> s {arn = a} :: DomainInfo) + +-- | The description of the domain provided through RegisterDomain. +domainInfo_description :: Lens.Lens' DomainInfo (Prelude.Maybe Prelude.Text) +domainInfo_description = Lens.lens (\DomainInfo' {description} -> description) (\s@DomainInfo' {} a -> s {description = a} :: DomainInfo) + +-- | The name of the domain. This name is unique within the account. +domainInfo_name :: Lens.Lens' DomainInfo Prelude.Text +domainInfo_name = Lens.lens (\DomainInfo' {name} -> name) (\s@DomainInfo' {} a -> s {name = a} :: DomainInfo) + +-- | The status of the domain: +-- +-- - @REGISTERED@ – The domain is properly registered and available. You +-- can use this domain for registering types and creating new workflow +-- executions. +-- +-- - @DEPRECATED@ – The domain was deprecated using DeprecateDomain, but +-- is still in use. You should not create new workflow executions in +-- this domain. +domainInfo_status :: Lens.Lens' DomainInfo RegistrationStatus +domainInfo_status = Lens.lens (\DomainInfo' {status} -> status) (\s@DomainInfo' {} a -> s {status = a} :: DomainInfo) + +instance Data.FromJSON DomainInfo where + parseJSON = + Data.withObject + "DomainInfo" + ( \x -> + DomainInfo' + Prelude.<$> (x Data..:? "arn") + Prelude.<*> (x Data..:? "description") + Prelude.<*> (x Data..: "name") + Prelude.<*> (x Data..: "status") + ) + +instance Prelude.Hashable DomainInfo where + hashWithSalt _salt DomainInfo' {..} = + _salt + `Prelude.hashWithSalt` arn + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` name + `Prelude.hashWithSalt` status + +instance Prelude.NFData DomainInfo where + rnf DomainInfo' {..} = + Prelude.rnf arn + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf name + `Prelude.seq` Prelude.rnf status diff --git a/gen/Amazonka/SWF/Types/EventType.hs b/gen/Amazonka/SWF/Types/EventType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/EventType.hs @@ -0,0 +1,331 @@ +{-# 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.SWF.Types.EventType +-- 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.SWF.Types.EventType + ( EventType + ( .., + EventType_ActivityTaskCancelRequested, + EventType_ActivityTaskCanceled, + EventType_ActivityTaskCompleted, + EventType_ActivityTaskFailed, + EventType_ActivityTaskScheduled, + EventType_ActivityTaskStarted, + EventType_ActivityTaskTimedOut, + EventType_CancelTimerFailed, + EventType_CancelWorkflowExecutionFailed, + EventType_ChildWorkflowExecutionCanceled, + EventType_ChildWorkflowExecutionCompleted, + EventType_ChildWorkflowExecutionFailed, + EventType_ChildWorkflowExecutionStarted, + EventType_ChildWorkflowExecutionTerminated, + EventType_ChildWorkflowExecutionTimedOut, + EventType_CompleteWorkflowExecutionFailed, + EventType_ContinueAsNewWorkflowExecutionFailed, + EventType_DecisionTaskCompleted, + EventType_DecisionTaskScheduled, + EventType_DecisionTaskStarted, + EventType_DecisionTaskTimedOut, + EventType_ExternalWorkflowExecutionCancelRequested, + EventType_ExternalWorkflowExecutionSignaled, + EventType_FailWorkflowExecutionFailed, + EventType_LambdaFunctionCompleted, + EventType_LambdaFunctionFailed, + EventType_LambdaFunctionScheduled, + EventType_LambdaFunctionStarted, + EventType_LambdaFunctionTimedOut, + EventType_MarkerRecorded, + EventType_RecordMarkerFailed, + EventType_RequestCancelActivityTaskFailed, + EventType_RequestCancelExternalWorkflowExecutionFailed, + EventType_RequestCancelExternalWorkflowExecutionInitiated, + EventType_ScheduleActivityTaskFailed, + EventType_ScheduleLambdaFunctionFailed, + EventType_SignalExternalWorkflowExecutionFailed, + EventType_SignalExternalWorkflowExecutionInitiated, + EventType_StartChildWorkflowExecutionFailed, + EventType_StartChildWorkflowExecutionInitiated, + EventType_StartLambdaFunctionFailed, + EventType_StartTimerFailed, + EventType_TimerCanceled, + EventType_TimerFired, + EventType_TimerStarted, + EventType_WorkflowExecutionCancelRequested, + EventType_WorkflowExecutionCanceled, + EventType_WorkflowExecutionCompleted, + EventType_WorkflowExecutionContinuedAsNew, + EventType_WorkflowExecutionFailed, + EventType_WorkflowExecutionSignaled, + EventType_WorkflowExecutionStarted, + EventType_WorkflowExecutionTerminated, + EventType_WorkflowExecutionTimedOut + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype EventType = EventType' + { fromEventType :: + 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 EventType_ActivityTaskCancelRequested :: EventType +pattern EventType_ActivityTaskCancelRequested = EventType' "ActivityTaskCancelRequested" + +pattern EventType_ActivityTaskCanceled :: EventType +pattern EventType_ActivityTaskCanceled = EventType' "ActivityTaskCanceled" + +pattern EventType_ActivityTaskCompleted :: EventType +pattern EventType_ActivityTaskCompleted = EventType' "ActivityTaskCompleted" + +pattern EventType_ActivityTaskFailed :: EventType +pattern EventType_ActivityTaskFailed = EventType' "ActivityTaskFailed" + +pattern EventType_ActivityTaskScheduled :: EventType +pattern EventType_ActivityTaskScheduled = EventType' "ActivityTaskScheduled" + +pattern EventType_ActivityTaskStarted :: EventType +pattern EventType_ActivityTaskStarted = EventType' "ActivityTaskStarted" + +pattern EventType_ActivityTaskTimedOut :: EventType +pattern EventType_ActivityTaskTimedOut = EventType' "ActivityTaskTimedOut" + +pattern EventType_CancelTimerFailed :: EventType +pattern EventType_CancelTimerFailed = EventType' "CancelTimerFailed" + +pattern EventType_CancelWorkflowExecutionFailed :: EventType +pattern EventType_CancelWorkflowExecutionFailed = EventType' "CancelWorkflowExecutionFailed" + +pattern EventType_ChildWorkflowExecutionCanceled :: EventType +pattern EventType_ChildWorkflowExecutionCanceled = EventType' "ChildWorkflowExecutionCanceled" + +pattern EventType_ChildWorkflowExecutionCompleted :: EventType +pattern EventType_ChildWorkflowExecutionCompleted = EventType' "ChildWorkflowExecutionCompleted" + +pattern EventType_ChildWorkflowExecutionFailed :: EventType +pattern EventType_ChildWorkflowExecutionFailed = EventType' "ChildWorkflowExecutionFailed" + +pattern EventType_ChildWorkflowExecutionStarted :: EventType +pattern EventType_ChildWorkflowExecutionStarted = EventType' "ChildWorkflowExecutionStarted" + +pattern EventType_ChildWorkflowExecutionTerminated :: EventType +pattern EventType_ChildWorkflowExecutionTerminated = EventType' "ChildWorkflowExecutionTerminated" + +pattern EventType_ChildWorkflowExecutionTimedOut :: EventType +pattern EventType_ChildWorkflowExecutionTimedOut = EventType' "ChildWorkflowExecutionTimedOut" + +pattern EventType_CompleteWorkflowExecutionFailed :: EventType +pattern EventType_CompleteWorkflowExecutionFailed = EventType' "CompleteWorkflowExecutionFailed" + +pattern EventType_ContinueAsNewWorkflowExecutionFailed :: EventType +pattern EventType_ContinueAsNewWorkflowExecutionFailed = EventType' "ContinueAsNewWorkflowExecutionFailed" + +pattern EventType_DecisionTaskCompleted :: EventType +pattern EventType_DecisionTaskCompleted = EventType' "DecisionTaskCompleted" + +pattern EventType_DecisionTaskScheduled :: EventType +pattern EventType_DecisionTaskScheduled = EventType' "DecisionTaskScheduled" + +pattern EventType_DecisionTaskStarted :: EventType +pattern EventType_DecisionTaskStarted = EventType' "DecisionTaskStarted" + +pattern EventType_DecisionTaskTimedOut :: EventType +pattern EventType_DecisionTaskTimedOut = EventType' "DecisionTaskTimedOut" + +pattern EventType_ExternalWorkflowExecutionCancelRequested :: EventType +pattern EventType_ExternalWorkflowExecutionCancelRequested = EventType' "ExternalWorkflowExecutionCancelRequested" + +pattern EventType_ExternalWorkflowExecutionSignaled :: EventType +pattern EventType_ExternalWorkflowExecutionSignaled = EventType' "ExternalWorkflowExecutionSignaled" + +pattern EventType_FailWorkflowExecutionFailed :: EventType +pattern EventType_FailWorkflowExecutionFailed = EventType' "FailWorkflowExecutionFailed" + +pattern EventType_LambdaFunctionCompleted :: EventType +pattern EventType_LambdaFunctionCompleted = EventType' "LambdaFunctionCompleted" + +pattern EventType_LambdaFunctionFailed :: EventType +pattern EventType_LambdaFunctionFailed = EventType' "LambdaFunctionFailed" + +pattern EventType_LambdaFunctionScheduled :: EventType +pattern EventType_LambdaFunctionScheduled = EventType' "LambdaFunctionScheduled" + +pattern EventType_LambdaFunctionStarted :: EventType +pattern EventType_LambdaFunctionStarted = EventType' "LambdaFunctionStarted" + +pattern EventType_LambdaFunctionTimedOut :: EventType +pattern EventType_LambdaFunctionTimedOut = EventType' "LambdaFunctionTimedOut" + +pattern EventType_MarkerRecorded :: EventType +pattern EventType_MarkerRecorded = EventType' "MarkerRecorded" + +pattern EventType_RecordMarkerFailed :: EventType +pattern EventType_RecordMarkerFailed = EventType' "RecordMarkerFailed" + +pattern EventType_RequestCancelActivityTaskFailed :: EventType +pattern EventType_RequestCancelActivityTaskFailed = EventType' "RequestCancelActivityTaskFailed" + +pattern EventType_RequestCancelExternalWorkflowExecutionFailed :: EventType +pattern EventType_RequestCancelExternalWorkflowExecutionFailed = EventType' "RequestCancelExternalWorkflowExecutionFailed" + +pattern EventType_RequestCancelExternalWorkflowExecutionInitiated :: EventType +pattern EventType_RequestCancelExternalWorkflowExecutionInitiated = EventType' "RequestCancelExternalWorkflowExecutionInitiated" + +pattern EventType_ScheduleActivityTaskFailed :: EventType +pattern EventType_ScheduleActivityTaskFailed = EventType' "ScheduleActivityTaskFailed" + +pattern EventType_ScheduleLambdaFunctionFailed :: EventType +pattern EventType_ScheduleLambdaFunctionFailed = EventType' "ScheduleLambdaFunctionFailed" + +pattern EventType_SignalExternalWorkflowExecutionFailed :: EventType +pattern EventType_SignalExternalWorkflowExecutionFailed = EventType' "SignalExternalWorkflowExecutionFailed" + +pattern EventType_SignalExternalWorkflowExecutionInitiated :: EventType +pattern EventType_SignalExternalWorkflowExecutionInitiated = EventType' "SignalExternalWorkflowExecutionInitiated" + +pattern EventType_StartChildWorkflowExecutionFailed :: EventType +pattern EventType_StartChildWorkflowExecutionFailed = EventType' "StartChildWorkflowExecutionFailed" + +pattern EventType_StartChildWorkflowExecutionInitiated :: EventType +pattern EventType_StartChildWorkflowExecutionInitiated = EventType' "StartChildWorkflowExecutionInitiated" + +pattern EventType_StartLambdaFunctionFailed :: EventType +pattern EventType_StartLambdaFunctionFailed = EventType' "StartLambdaFunctionFailed" + +pattern EventType_StartTimerFailed :: EventType +pattern EventType_StartTimerFailed = EventType' "StartTimerFailed" + +pattern EventType_TimerCanceled :: EventType +pattern EventType_TimerCanceled = EventType' "TimerCanceled" + +pattern EventType_TimerFired :: EventType +pattern EventType_TimerFired = EventType' "TimerFired" + +pattern EventType_TimerStarted :: EventType +pattern EventType_TimerStarted = EventType' "TimerStarted" + +pattern EventType_WorkflowExecutionCancelRequested :: EventType +pattern EventType_WorkflowExecutionCancelRequested = EventType' "WorkflowExecutionCancelRequested" + +pattern EventType_WorkflowExecutionCanceled :: EventType +pattern EventType_WorkflowExecutionCanceled = EventType' "WorkflowExecutionCanceled" + +pattern EventType_WorkflowExecutionCompleted :: EventType +pattern EventType_WorkflowExecutionCompleted = EventType' "WorkflowExecutionCompleted" + +pattern EventType_WorkflowExecutionContinuedAsNew :: EventType +pattern EventType_WorkflowExecutionContinuedAsNew = EventType' "WorkflowExecutionContinuedAsNew" + +pattern EventType_WorkflowExecutionFailed :: EventType +pattern EventType_WorkflowExecutionFailed = EventType' "WorkflowExecutionFailed" + +pattern EventType_WorkflowExecutionSignaled :: EventType +pattern EventType_WorkflowExecutionSignaled = EventType' "WorkflowExecutionSignaled" + +pattern EventType_WorkflowExecutionStarted :: EventType +pattern EventType_WorkflowExecutionStarted = EventType' "WorkflowExecutionStarted" + +pattern EventType_WorkflowExecutionTerminated :: EventType +pattern EventType_WorkflowExecutionTerminated = EventType' "WorkflowExecutionTerminated" + +pattern EventType_WorkflowExecutionTimedOut :: EventType +pattern EventType_WorkflowExecutionTimedOut = EventType' "WorkflowExecutionTimedOut" + +{-# COMPLETE + EventType_ActivityTaskCancelRequested, + EventType_ActivityTaskCanceled, + EventType_ActivityTaskCompleted, + EventType_ActivityTaskFailed, + EventType_ActivityTaskScheduled, + EventType_ActivityTaskStarted, + EventType_ActivityTaskTimedOut, + EventType_CancelTimerFailed, + EventType_CancelWorkflowExecutionFailed, + EventType_ChildWorkflowExecutionCanceled, + EventType_ChildWorkflowExecutionCompleted, + EventType_ChildWorkflowExecutionFailed, + EventType_ChildWorkflowExecutionStarted, + EventType_ChildWorkflowExecutionTerminated, + EventType_ChildWorkflowExecutionTimedOut, + EventType_CompleteWorkflowExecutionFailed, + EventType_ContinueAsNewWorkflowExecutionFailed, + EventType_DecisionTaskCompleted, + EventType_DecisionTaskScheduled, + EventType_DecisionTaskStarted, + EventType_DecisionTaskTimedOut, + EventType_ExternalWorkflowExecutionCancelRequested, + EventType_ExternalWorkflowExecutionSignaled, + EventType_FailWorkflowExecutionFailed, + EventType_LambdaFunctionCompleted, + EventType_LambdaFunctionFailed, + EventType_LambdaFunctionScheduled, + EventType_LambdaFunctionStarted, + EventType_LambdaFunctionTimedOut, + EventType_MarkerRecorded, + EventType_RecordMarkerFailed, + EventType_RequestCancelActivityTaskFailed, + EventType_RequestCancelExternalWorkflowExecutionFailed, + EventType_RequestCancelExternalWorkflowExecutionInitiated, + EventType_ScheduleActivityTaskFailed, + EventType_ScheduleLambdaFunctionFailed, + EventType_SignalExternalWorkflowExecutionFailed, + EventType_SignalExternalWorkflowExecutionInitiated, + EventType_StartChildWorkflowExecutionFailed, + EventType_StartChildWorkflowExecutionInitiated, + EventType_StartLambdaFunctionFailed, + EventType_StartTimerFailed, + EventType_TimerCanceled, + EventType_TimerFired, + EventType_TimerStarted, + EventType_WorkflowExecutionCancelRequested, + EventType_WorkflowExecutionCanceled, + EventType_WorkflowExecutionCompleted, + EventType_WorkflowExecutionContinuedAsNew, + EventType_WorkflowExecutionFailed, + EventType_WorkflowExecutionSignaled, + EventType_WorkflowExecutionStarted, + EventType_WorkflowExecutionTerminated, + EventType_WorkflowExecutionTimedOut, + EventType' + #-} diff --git a/gen/Amazonka/SWF/Types/ExecutionStatus.hs b/gen/Amazonka/SWF/Types/ExecutionStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ExecutionStatus.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.SWF.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.SWF.Types.ExecutionStatus + ( ExecutionStatus + ( .., + ExecutionStatus_CLOSED, + ExecutionStatus_OPEN + ), + ) +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_CLOSED :: ExecutionStatus +pattern ExecutionStatus_CLOSED = ExecutionStatus' "CLOSED" + +pattern ExecutionStatus_OPEN :: ExecutionStatus +pattern ExecutionStatus_OPEN = ExecutionStatus' "OPEN" + +{-# COMPLETE + ExecutionStatus_CLOSED, + ExecutionStatus_OPEN, + ExecutionStatus' + #-} diff --git a/gen/Amazonka/SWF/Types/ExecutionTimeFilter.hs b/gen/Amazonka/SWF/Types/ExecutionTimeFilter.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ExecutionTimeFilter.hs @@ -0,0 +1,89 @@ +{-# 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.SWF.Types.ExecutionTimeFilter +-- 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.SWF.Types.ExecutionTimeFilter 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 + +-- | Used to filter the workflow executions in visibility APIs by various +-- time-based rules. Each parameter, if specified, defines a rule that must +-- be satisfied by each returned query result. The parameter values are in +-- the . For +-- example: @\"oldestDate\": 1325376070.@ +-- +-- /See:/ 'newExecutionTimeFilter' smart constructor. +data ExecutionTimeFilter = ExecutionTimeFilter' + { -- | Specifies the latest start or close date and time to return. + latestDate :: Prelude.Maybe Data.POSIX, + -- | Specifies the oldest start or close date and time to return. + oldestDate :: Data.POSIX + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ExecutionTimeFilter' 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: +-- +-- 'latestDate', 'executionTimeFilter_latestDate' - Specifies the latest start or close date and time to return. +-- +-- 'oldestDate', 'executionTimeFilter_oldestDate' - Specifies the oldest start or close date and time to return. +newExecutionTimeFilter :: + -- | 'oldestDate' + Prelude.UTCTime -> + ExecutionTimeFilter +newExecutionTimeFilter pOldestDate_ = + ExecutionTimeFilter' + { latestDate = Prelude.Nothing, + oldestDate = Data._Time Lens.# pOldestDate_ + } + +-- | Specifies the latest start or close date and time to return. +executionTimeFilter_latestDate :: Lens.Lens' ExecutionTimeFilter (Prelude.Maybe Prelude.UTCTime) +executionTimeFilter_latestDate = Lens.lens (\ExecutionTimeFilter' {latestDate} -> latestDate) (\s@ExecutionTimeFilter' {} a -> s {latestDate = a} :: ExecutionTimeFilter) Prelude.. Lens.mapping Data._Time + +-- | Specifies the oldest start or close date and time to return. +executionTimeFilter_oldestDate :: Lens.Lens' ExecutionTimeFilter Prelude.UTCTime +executionTimeFilter_oldestDate = Lens.lens (\ExecutionTimeFilter' {oldestDate} -> oldestDate) (\s@ExecutionTimeFilter' {} a -> s {oldestDate = a} :: ExecutionTimeFilter) Prelude.. Data._Time + +instance Prelude.Hashable ExecutionTimeFilter where + hashWithSalt _salt ExecutionTimeFilter' {..} = + _salt + `Prelude.hashWithSalt` latestDate + `Prelude.hashWithSalt` oldestDate + +instance Prelude.NFData ExecutionTimeFilter where + rnf ExecutionTimeFilter' {..} = + Prelude.rnf latestDate + `Prelude.seq` Prelude.rnf oldestDate + +instance Data.ToJSON ExecutionTimeFilter where + toJSON ExecutionTimeFilter' {..} = + Data.object + ( Prelude.catMaybes + [ ("latestDate" Data..=) Prelude.<$> latestDate, + Prelude.Just ("oldestDate" Data..= oldestDate) + ] + ) diff --git a/gen/Amazonka/SWF/Types/ExternalWorkflowExecutionCancelRequestedEventAttributes.hs b/gen/Amazonka/SWF/Types/ExternalWorkflowExecutionCancelRequestedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ExternalWorkflowExecutionCancelRequestedEventAttributes.hs @@ -0,0 +1,121 @@ +{-# 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.SWF.Types.ExternalWorkflowExecutionCancelRequestedEventAttributes +-- 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.SWF.Types.ExternalWorkflowExecutionCancelRequestedEventAttributes 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 +import Amazonka.SWF.Types.WorkflowExecution + +-- | Provides the details of the @ExternalWorkflowExecutionCancelRequested@ +-- event. +-- +-- /See:/ 'newExternalWorkflowExecutionCancelRequestedEventAttributes' smart constructor. +data ExternalWorkflowExecutionCancelRequestedEventAttributes = ExternalWorkflowExecutionCancelRequestedEventAttributes' + { -- | The external workflow execution to which the cancellation request was + -- delivered. + workflowExecution :: WorkflowExecution, + -- | The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event + -- corresponding to the @RequestCancelExternalWorkflowExecution@ decision + -- to cancel this external workflow execution. This information can be + -- useful for diagnosing problems by tracing back the chain of events + -- leading up to this event. + initiatedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ExternalWorkflowExecutionCancelRequestedEventAttributes' 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: +-- +-- 'workflowExecution', 'externalWorkflowExecutionCancelRequestedEventAttributes_workflowExecution' - The external workflow execution to which the cancellation request was +-- delivered. +-- +-- 'initiatedEventId', 'externalWorkflowExecutionCancelRequestedEventAttributes_initiatedEventId' - The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event +-- corresponding to the @RequestCancelExternalWorkflowExecution@ decision +-- to cancel this external workflow execution. This information can be +-- useful for diagnosing problems by tracing back the chain of events +-- leading up to this event. +newExternalWorkflowExecutionCancelRequestedEventAttributes :: + -- | 'workflowExecution' + WorkflowExecution -> + -- | 'initiatedEventId' + Prelude.Integer -> + ExternalWorkflowExecutionCancelRequestedEventAttributes +newExternalWorkflowExecutionCancelRequestedEventAttributes + pWorkflowExecution_ + pInitiatedEventId_ = + ExternalWorkflowExecutionCancelRequestedEventAttributes' + { workflowExecution = + pWorkflowExecution_, + initiatedEventId = + pInitiatedEventId_ + } + +-- | The external workflow execution to which the cancellation request was +-- delivered. +externalWorkflowExecutionCancelRequestedEventAttributes_workflowExecution :: Lens.Lens' ExternalWorkflowExecutionCancelRequestedEventAttributes WorkflowExecution +externalWorkflowExecutionCancelRequestedEventAttributes_workflowExecution = Lens.lens (\ExternalWorkflowExecutionCancelRequestedEventAttributes' {workflowExecution} -> workflowExecution) (\s@ExternalWorkflowExecutionCancelRequestedEventAttributes' {} a -> s {workflowExecution = a} :: ExternalWorkflowExecutionCancelRequestedEventAttributes) + +-- | The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event +-- corresponding to the @RequestCancelExternalWorkflowExecution@ decision +-- to cancel this external workflow execution. This information can be +-- useful for diagnosing problems by tracing back the chain of events +-- leading up to this event. +externalWorkflowExecutionCancelRequestedEventAttributes_initiatedEventId :: Lens.Lens' ExternalWorkflowExecutionCancelRequestedEventAttributes Prelude.Integer +externalWorkflowExecutionCancelRequestedEventAttributes_initiatedEventId = Lens.lens (\ExternalWorkflowExecutionCancelRequestedEventAttributes' {initiatedEventId} -> initiatedEventId) (\s@ExternalWorkflowExecutionCancelRequestedEventAttributes' {} a -> s {initiatedEventId = a} :: ExternalWorkflowExecutionCancelRequestedEventAttributes) + +instance + Data.FromJSON + ExternalWorkflowExecutionCancelRequestedEventAttributes + where + parseJSON = + Data.withObject + "ExternalWorkflowExecutionCancelRequestedEventAttributes" + ( \x -> + ExternalWorkflowExecutionCancelRequestedEventAttributes' + Prelude.<$> (x Data..: "workflowExecution") + Prelude.<*> (x Data..: "initiatedEventId") + ) + +instance + Prelude.Hashable + ExternalWorkflowExecutionCancelRequestedEventAttributes + where + hashWithSalt + _salt + ExternalWorkflowExecutionCancelRequestedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` workflowExecution + `Prelude.hashWithSalt` initiatedEventId + +instance + Prelude.NFData + ExternalWorkflowExecutionCancelRequestedEventAttributes + where + rnf + ExternalWorkflowExecutionCancelRequestedEventAttributes' {..} = + Prelude.rnf workflowExecution + `Prelude.seq` Prelude.rnf initiatedEventId diff --git a/gen/Amazonka/SWF/Types/ExternalWorkflowExecutionSignaledEventAttributes.hs b/gen/Amazonka/SWF/Types/ExternalWorkflowExecutionSignaledEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ExternalWorkflowExecutionSignaledEventAttributes.hs @@ -0,0 +1,114 @@ +{-# 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.SWF.Types.ExternalWorkflowExecutionSignaledEventAttributes +-- 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.SWF.Types.ExternalWorkflowExecutionSignaledEventAttributes 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 +import Amazonka.SWF.Types.WorkflowExecution + +-- | Provides the details of the @ExternalWorkflowExecutionSignaled@ event. +-- +-- /See:/ 'newExternalWorkflowExecutionSignaledEventAttributes' smart constructor. +data ExternalWorkflowExecutionSignaledEventAttributes = ExternalWorkflowExecutionSignaledEventAttributes' + { -- | The external workflow execution that the signal was delivered to. + workflowExecution :: WorkflowExecution, + -- | The ID of the @SignalExternalWorkflowExecutionInitiated@ event + -- corresponding to the @SignalExternalWorkflowExecution@ decision to + -- request this signal. This information can be useful for diagnosing + -- problems by tracing back the chain of events leading up to this event. + initiatedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ExternalWorkflowExecutionSignaledEventAttributes' 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: +-- +-- 'workflowExecution', 'externalWorkflowExecutionSignaledEventAttributes_workflowExecution' - The external workflow execution that the signal was delivered to. +-- +-- 'initiatedEventId', 'externalWorkflowExecutionSignaledEventAttributes_initiatedEventId' - The ID of the @SignalExternalWorkflowExecutionInitiated@ event +-- corresponding to the @SignalExternalWorkflowExecution@ decision to +-- request this signal. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +newExternalWorkflowExecutionSignaledEventAttributes :: + -- | 'workflowExecution' + WorkflowExecution -> + -- | 'initiatedEventId' + Prelude.Integer -> + ExternalWorkflowExecutionSignaledEventAttributes +newExternalWorkflowExecutionSignaledEventAttributes + pWorkflowExecution_ + pInitiatedEventId_ = + ExternalWorkflowExecutionSignaledEventAttributes' + { workflowExecution = + pWorkflowExecution_, + initiatedEventId = + pInitiatedEventId_ + } + +-- | The external workflow execution that the signal was delivered to. +externalWorkflowExecutionSignaledEventAttributes_workflowExecution :: Lens.Lens' ExternalWorkflowExecutionSignaledEventAttributes WorkflowExecution +externalWorkflowExecutionSignaledEventAttributes_workflowExecution = Lens.lens (\ExternalWorkflowExecutionSignaledEventAttributes' {workflowExecution} -> workflowExecution) (\s@ExternalWorkflowExecutionSignaledEventAttributes' {} a -> s {workflowExecution = a} :: ExternalWorkflowExecutionSignaledEventAttributes) + +-- | The ID of the @SignalExternalWorkflowExecutionInitiated@ event +-- corresponding to the @SignalExternalWorkflowExecution@ decision to +-- request this signal. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +externalWorkflowExecutionSignaledEventAttributes_initiatedEventId :: Lens.Lens' ExternalWorkflowExecutionSignaledEventAttributes Prelude.Integer +externalWorkflowExecutionSignaledEventAttributes_initiatedEventId = Lens.lens (\ExternalWorkflowExecutionSignaledEventAttributes' {initiatedEventId} -> initiatedEventId) (\s@ExternalWorkflowExecutionSignaledEventAttributes' {} a -> s {initiatedEventId = a} :: ExternalWorkflowExecutionSignaledEventAttributes) + +instance + Data.FromJSON + ExternalWorkflowExecutionSignaledEventAttributes + where + parseJSON = + Data.withObject + "ExternalWorkflowExecutionSignaledEventAttributes" + ( \x -> + ExternalWorkflowExecutionSignaledEventAttributes' + Prelude.<$> (x Data..: "workflowExecution") + Prelude.<*> (x Data..: "initiatedEventId") + ) + +instance + Prelude.Hashable + ExternalWorkflowExecutionSignaledEventAttributes + where + hashWithSalt + _salt + ExternalWorkflowExecutionSignaledEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` workflowExecution + `Prelude.hashWithSalt` initiatedEventId + +instance + Prelude.NFData + ExternalWorkflowExecutionSignaledEventAttributes + where + rnf + ExternalWorkflowExecutionSignaledEventAttributes' {..} = + Prelude.rnf workflowExecution + `Prelude.seq` Prelude.rnf initiatedEventId diff --git a/gen/Amazonka/SWF/Types/FailWorkflowExecutionDecisionAttributes.hs b/gen/Amazonka/SWF/Types/FailWorkflowExecutionDecisionAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/FailWorkflowExecutionDecisionAttributes.hs @@ -0,0 +1,115 @@ +{-# 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.SWF.Types.FailWorkflowExecutionDecisionAttributes +-- 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.SWF.Types.FailWorkflowExecutionDecisionAttributes 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 + +-- | Provides the details of the @FailWorkflowExecution@ decision. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this decision\'s access to Amazon +-- SWF resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- /See:/ 'newFailWorkflowExecutionDecisionAttributes' smart constructor. +data FailWorkflowExecutionDecisionAttributes = FailWorkflowExecutionDecisionAttributes' + { -- | Details of the failure. + details :: Prelude.Maybe Prelude.Text, + -- | A descriptive reason for the failure that may help in diagnostics. + reason :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'FailWorkflowExecutionDecisionAttributes' 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: +-- +-- 'details', 'failWorkflowExecutionDecisionAttributes_details' - Details of the failure. +-- +-- 'reason', 'failWorkflowExecutionDecisionAttributes_reason' - A descriptive reason for the failure that may help in diagnostics. +newFailWorkflowExecutionDecisionAttributes :: + FailWorkflowExecutionDecisionAttributes +newFailWorkflowExecutionDecisionAttributes = + FailWorkflowExecutionDecisionAttributes' + { details = + Prelude.Nothing, + reason = Prelude.Nothing + } + +-- | Details of the failure. +failWorkflowExecutionDecisionAttributes_details :: Lens.Lens' FailWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +failWorkflowExecutionDecisionAttributes_details = Lens.lens (\FailWorkflowExecutionDecisionAttributes' {details} -> details) (\s@FailWorkflowExecutionDecisionAttributes' {} a -> s {details = a} :: FailWorkflowExecutionDecisionAttributes) + +-- | A descriptive reason for the failure that may help in diagnostics. +failWorkflowExecutionDecisionAttributes_reason :: Lens.Lens' FailWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +failWorkflowExecutionDecisionAttributes_reason = Lens.lens (\FailWorkflowExecutionDecisionAttributes' {reason} -> reason) (\s@FailWorkflowExecutionDecisionAttributes' {} a -> s {reason = a} :: FailWorkflowExecutionDecisionAttributes) + +instance + Prelude.Hashable + FailWorkflowExecutionDecisionAttributes + where + hashWithSalt + _salt + FailWorkflowExecutionDecisionAttributes' {..} = + _salt + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` reason + +instance + Prelude.NFData + FailWorkflowExecutionDecisionAttributes + where + rnf FailWorkflowExecutionDecisionAttributes' {..} = + Prelude.rnf details + `Prelude.seq` Prelude.rnf reason + +instance + Data.ToJSON + FailWorkflowExecutionDecisionAttributes + where + toJSON FailWorkflowExecutionDecisionAttributes' {..} = + Data.object + ( Prelude.catMaybes + [ ("details" Data..=) Prelude.<$> details, + ("reason" Data..=) Prelude.<$> reason + ] + ) diff --git a/gen/Amazonka/SWF/Types/FailWorkflowExecutionFailedCause.hs b/gen/Amazonka/SWF/Types/FailWorkflowExecutionFailedCause.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/FailWorkflowExecutionFailedCause.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.SWF.Types.FailWorkflowExecutionFailedCause +-- 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.SWF.Types.FailWorkflowExecutionFailedCause + ( FailWorkflowExecutionFailedCause + ( .., + FailWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED, + FailWorkflowExecutionFailedCause_UNHANDLED_DECISION + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype FailWorkflowExecutionFailedCause = FailWorkflowExecutionFailedCause' + { fromFailWorkflowExecutionFailedCause :: + 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 FailWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED :: FailWorkflowExecutionFailedCause +pattern FailWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED = FailWorkflowExecutionFailedCause' "OPERATION_NOT_PERMITTED" + +pattern FailWorkflowExecutionFailedCause_UNHANDLED_DECISION :: FailWorkflowExecutionFailedCause +pattern FailWorkflowExecutionFailedCause_UNHANDLED_DECISION = FailWorkflowExecutionFailedCause' "UNHANDLED_DECISION" + +{-# COMPLETE + FailWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED, + FailWorkflowExecutionFailedCause_UNHANDLED_DECISION, + FailWorkflowExecutionFailedCause' + #-} diff --git a/gen/Amazonka/SWF/Types/FailWorkflowExecutionFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/FailWorkflowExecutionFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/FailWorkflowExecutionFailedEventAttributes.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.SWF.Types.FailWorkflowExecutionFailedEventAttributes +-- 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.SWF.Types.FailWorkflowExecutionFailedEventAttributes 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 +import Amazonka.SWF.Types.FailWorkflowExecutionFailedCause + +-- | Provides the details of the @FailWorkflowExecutionFailed@ event. +-- +-- /See:/ 'newFailWorkflowExecutionFailedEventAttributes' smart constructor. +data FailWorkflowExecutionFailedEventAttributes = FailWorkflowExecutionFailedEventAttributes' + { -- | The cause of the failure. This information is generated by the system + -- and can be useful for diagnostic purposes. + -- + -- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed + -- because it lacked sufficient permissions. For details and example IAM + -- policies, see + -- + -- in the /Amazon SWF Developer Guide/. + cause :: FailWorkflowExecutionFailedCause, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @FailWorkflowExecution@ decision to + -- fail this execution. This information can be useful for diagnosing + -- problems by tracing back the chain of events leading up to this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'FailWorkflowExecutionFailedEventAttributes' 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: +-- +-- 'cause', 'failWorkflowExecutionFailedEventAttributes_cause' - The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'decisionTaskCompletedEventId', 'failWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @FailWorkflowExecution@ decision to +-- fail this execution. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +newFailWorkflowExecutionFailedEventAttributes :: + -- | 'cause' + FailWorkflowExecutionFailedCause -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + FailWorkflowExecutionFailedEventAttributes +newFailWorkflowExecutionFailedEventAttributes + pCause_ + pDecisionTaskCompletedEventId_ = + FailWorkflowExecutionFailedEventAttributes' + { cause = + pCause_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +failWorkflowExecutionFailedEventAttributes_cause :: Lens.Lens' FailWorkflowExecutionFailedEventAttributes FailWorkflowExecutionFailedCause +failWorkflowExecutionFailedEventAttributes_cause = Lens.lens (\FailWorkflowExecutionFailedEventAttributes' {cause} -> cause) (\s@FailWorkflowExecutionFailedEventAttributes' {} a -> s {cause = a} :: FailWorkflowExecutionFailedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @FailWorkflowExecution@ decision to +-- fail this execution. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +failWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' FailWorkflowExecutionFailedEventAttributes Prelude.Integer +failWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\FailWorkflowExecutionFailedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@FailWorkflowExecutionFailedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: FailWorkflowExecutionFailedEventAttributes) + +instance + Data.FromJSON + FailWorkflowExecutionFailedEventAttributes + where + parseJSON = + Data.withObject + "FailWorkflowExecutionFailedEventAttributes" + ( \x -> + FailWorkflowExecutionFailedEventAttributes' + Prelude.<$> (x Data..: "cause") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + FailWorkflowExecutionFailedEventAttributes + where + hashWithSalt + _salt + FailWorkflowExecutionFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` cause + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + FailWorkflowExecutionFailedEventAttributes + where + rnf FailWorkflowExecutionFailedEventAttributes' {..} = + Prelude.rnf cause + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/HistoryEvent.hs b/gen/Amazonka/SWF/Types/HistoryEvent.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/HistoryEvent.hs @@ -0,0 +1,1428 @@ +{-# 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.SWF.Types.HistoryEvent +-- 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.SWF.Types.HistoryEvent 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 +import Amazonka.SWF.Types.ActivityTaskCancelRequestedEventAttributes +import Amazonka.SWF.Types.ActivityTaskCanceledEventAttributes +import Amazonka.SWF.Types.ActivityTaskCompletedEventAttributes +import Amazonka.SWF.Types.ActivityTaskFailedEventAttributes +import Amazonka.SWF.Types.ActivityTaskScheduledEventAttributes +import Amazonka.SWF.Types.ActivityTaskStartedEventAttributes +import Amazonka.SWF.Types.ActivityTaskTimedOutEventAttributes +import Amazonka.SWF.Types.CancelTimerFailedEventAttributes +import Amazonka.SWF.Types.CancelWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionCanceledEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionCompletedEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionStartedEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionTerminatedEventAttributes +import Amazonka.SWF.Types.ChildWorkflowExecutionTimedOutEventAttributes +import Amazonka.SWF.Types.CompleteWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.ContinueAsNewWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.DecisionTaskCompletedEventAttributes +import Amazonka.SWF.Types.DecisionTaskScheduledEventAttributes +import Amazonka.SWF.Types.DecisionTaskStartedEventAttributes +import Amazonka.SWF.Types.DecisionTaskTimedOutEventAttributes +import Amazonka.SWF.Types.EventType +import Amazonka.SWF.Types.ExternalWorkflowExecutionCancelRequestedEventAttributes +import Amazonka.SWF.Types.ExternalWorkflowExecutionSignaledEventAttributes +import Amazonka.SWF.Types.FailWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.LambdaFunctionCompletedEventAttributes +import Amazonka.SWF.Types.LambdaFunctionFailedEventAttributes +import Amazonka.SWF.Types.LambdaFunctionScheduledEventAttributes +import Amazonka.SWF.Types.LambdaFunctionStartedEventAttributes +import Amazonka.SWF.Types.LambdaFunctionTimedOutEventAttributes +import Amazonka.SWF.Types.MarkerRecordedEventAttributes +import Amazonka.SWF.Types.RecordMarkerFailedEventAttributes +import Amazonka.SWF.Types.RequestCancelActivityTaskFailedEventAttributes +import Amazonka.SWF.Types.RequestCancelExternalWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.RequestCancelExternalWorkflowExecutionInitiatedEventAttributes +import Amazonka.SWF.Types.ScheduleActivityTaskFailedEventAttributes +import Amazonka.SWF.Types.ScheduleLambdaFunctionFailedEventAttributes +import Amazonka.SWF.Types.SignalExternalWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.SignalExternalWorkflowExecutionInitiatedEventAttributes +import Amazonka.SWF.Types.StartChildWorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.StartChildWorkflowExecutionInitiatedEventAttributes +import Amazonka.SWF.Types.StartLambdaFunctionFailedEventAttributes +import Amazonka.SWF.Types.StartTimerFailedEventAttributes +import Amazonka.SWF.Types.TimerCanceledEventAttributes +import Amazonka.SWF.Types.TimerFiredEventAttributes +import Amazonka.SWF.Types.TimerStartedEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionCancelRequestedEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionCanceledEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionCompletedEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionContinuedAsNewEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionFailedEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionSignaledEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionStartedEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionTerminatedEventAttributes +import Amazonka.SWF.Types.WorkflowExecutionTimedOutEventAttributes + +-- | Event within a workflow execution. A history event can be one of these +-- types: +-- +-- - @ActivityTaskCancelRequested@ – A @RequestCancelActivityTask@ +-- decision was received by the system. +-- +-- - @ActivityTaskCanceled@ – The activity task was successfully +-- canceled. +-- +-- - @ActivityTaskCompleted@ – An activity worker successfully completed +-- an activity task by calling RespondActivityTaskCompleted. +-- +-- - @ActivityTaskFailed@ – An activity worker failed an activity task by +-- calling RespondActivityTaskFailed. +-- +-- - @ActivityTaskScheduled@ – An activity task was scheduled for +-- execution. +-- +-- - @ActivityTaskStarted@ – The scheduled activity task was dispatched +-- to a worker. +-- +-- - @ActivityTaskTimedOut@ – The activity task timed out. +-- +-- - @CancelTimerFailed@ – Failed to process CancelTimer decision. This +-- happens when the decision isn\'t configured properly, for example no +-- timer exists with the specified timer Id. +-- +-- - @CancelWorkflowExecutionFailed@ – A request to cancel a workflow +-- execution failed. +-- +-- - @ChildWorkflowExecutionCanceled@ – A child workflow execution, +-- started by this workflow execution, was canceled and closed. +-- +-- - @ChildWorkflowExecutionCompleted@ – A child workflow execution, +-- started by this workflow execution, completed successfully and was +-- closed. +-- +-- - @ChildWorkflowExecutionFailed@ – A child workflow execution, started +-- by this workflow execution, failed to complete successfully and was +-- closed. +-- +-- - @ChildWorkflowExecutionStarted@ – A child workflow execution was +-- successfully started. +-- +-- - @ChildWorkflowExecutionTerminated@ – A child workflow execution, +-- started by this workflow execution, was terminated. +-- +-- - @ChildWorkflowExecutionTimedOut@ – A child workflow execution, +-- started by this workflow execution, timed out and was closed. +-- +-- - @CompleteWorkflowExecutionFailed@ – The workflow execution failed to +-- complete. +-- +-- - @ContinueAsNewWorkflowExecutionFailed@ – The workflow execution +-- failed to complete after being continued as a new workflow +-- execution. +-- +-- - @DecisionTaskCompleted@ – The decider successfully completed a +-- decision task by calling RespondDecisionTaskCompleted. +-- +-- - @DecisionTaskScheduled@ – A decision task was scheduled for the +-- workflow execution. +-- +-- - @DecisionTaskStarted@ – The decision task was dispatched to a +-- decider. +-- +-- - @DecisionTaskTimedOut@ – The decision task timed out. +-- +-- - @ExternalWorkflowExecutionCancelRequested@ – Request to cancel an +-- external workflow execution was successfully delivered to the target +-- execution. +-- +-- - @ExternalWorkflowExecutionSignaled@ – A signal, requested by this +-- workflow execution, was successfully delivered to the target +-- external workflow execution. +-- +-- - @FailWorkflowExecutionFailed@ – A request to mark a workflow +-- execution as failed, itself failed. +-- +-- - @MarkerRecorded@ – A marker was recorded in the workflow history as +-- the result of a @RecordMarker@ decision. +-- +-- - @RecordMarkerFailed@ – A @RecordMarker@ decision was returned as +-- failed. +-- +-- - @RequestCancelActivityTaskFailed@ – Failed to process +-- RequestCancelActivityTask decision. This happens when the decision +-- isn\'t configured properly. +-- +-- - @RequestCancelExternalWorkflowExecutionFailed@ – Request to cancel +-- an external workflow execution failed. +-- +-- - @RequestCancelExternalWorkflowExecutionInitiated@ – A request was +-- made to request the cancellation of an external workflow execution. +-- +-- - @ScheduleActivityTaskFailed@ – Failed to process +-- ScheduleActivityTask decision. This happens when the decision isn\'t +-- configured properly, for example the activity type specified isn\'t +-- registered. +-- +-- - @SignalExternalWorkflowExecutionFailed@ – The request to signal an +-- external workflow execution failed. +-- +-- - @SignalExternalWorkflowExecutionInitiated@ – A request to signal an +-- external workflow was made. +-- +-- - @StartActivityTaskFailed@ – A scheduled activity task failed to +-- start. +-- +-- - @StartChildWorkflowExecutionFailed@ – Failed to process +-- StartChildWorkflowExecution decision. This happens when the decision +-- isn\'t configured properly, for example the workflow type specified +-- isn\'t registered. +-- +-- - @StartChildWorkflowExecutionInitiated@ – A request was made to start +-- a child workflow execution. +-- +-- - @StartTimerFailed@ – Failed to process StartTimer decision. This +-- happens when the decision isn\'t configured properly, for example a +-- timer already exists with the specified timer Id. +-- +-- - @TimerCanceled@ – A timer, previously started for this workflow +-- execution, was successfully canceled. +-- +-- - @TimerFired@ – A timer, previously started for this workflow +-- execution, fired. +-- +-- - @TimerStarted@ – A timer was started for the workflow execution due +-- to a @StartTimer@ decision. +-- +-- - @WorkflowExecutionCancelRequested@ – A request to cancel this +-- workflow execution was made. +-- +-- - @WorkflowExecutionCanceled@ – The workflow execution was +-- successfully canceled and closed. +-- +-- - @WorkflowExecutionCompleted@ – The workflow execution was closed due +-- to successful completion. +-- +-- - @WorkflowExecutionContinuedAsNew@ – The workflow execution was +-- closed and a new execution of the same type was created with the +-- same workflowId. +-- +-- - @WorkflowExecutionFailed@ – The workflow execution closed due to a +-- failure. +-- +-- - @WorkflowExecutionSignaled@ – An external signal was received for +-- the workflow execution. +-- +-- - @WorkflowExecutionStarted@ – The workflow execution was started. +-- +-- - @WorkflowExecutionTerminated@ – The workflow execution was +-- terminated. +-- +-- - @WorkflowExecutionTimedOut@ – The workflow execution was closed +-- because a time out was exceeded. +-- +-- /See:/ 'newHistoryEvent' smart constructor. +data HistoryEvent = HistoryEvent' + { -- | If the event is of type @ActivityTaskcancelRequested@ then this member + -- is set and provides detailed information about the event. It isn\'t set + -- for other event types. + activityTaskCancelRequestedEventAttributes :: Prelude.Maybe ActivityTaskCancelRequestedEventAttributes, + -- | If the event is of type @ActivityTaskCanceled@ then this member is set + -- and provides detailed information about the event. It isn\'t set for + -- other event types. + activityTaskCanceledEventAttributes :: Prelude.Maybe ActivityTaskCanceledEventAttributes, + -- | If the event is of type @ActivityTaskCompleted@ then this member is set + -- and provides detailed information about the event. It isn\'t set for + -- other event types. + activityTaskCompletedEventAttributes :: Prelude.Maybe ActivityTaskCompletedEventAttributes, + -- | If the event is of type @ActivityTaskFailed@ then this member is set and + -- provides detailed information about the event. It isn\'t set for other + -- event types. + activityTaskFailedEventAttributes :: Prelude.Maybe ActivityTaskFailedEventAttributes, + -- | If the event is of type @ActivityTaskScheduled@ then this member is set + -- and provides detailed information about the event. It isn\'t set for + -- other event types. + activityTaskScheduledEventAttributes :: Prelude.Maybe ActivityTaskScheduledEventAttributes, + -- | If the event is of type @ActivityTaskStarted@ then this member is set + -- and provides detailed information about the event. It isn\'t set for + -- other event types. + activityTaskStartedEventAttributes :: Prelude.Maybe ActivityTaskStartedEventAttributes, + -- | If the event is of type @ActivityTaskTimedOut@ then this member is set + -- and provides detailed information about the event. It isn\'t set for + -- other event types. + activityTaskTimedOutEventAttributes :: Prelude.Maybe ActivityTaskTimedOutEventAttributes, + -- | If the event is of type @CancelTimerFailed@ then this member is set and + -- provides detailed information about the event. It isn\'t set for other + -- event types. + cancelTimerFailedEventAttributes :: Prelude.Maybe CancelTimerFailedEventAttributes, + -- | If the event is of type @CancelWorkflowExecutionFailed@ then this member + -- is set and provides detailed information about the event. It isn\'t set + -- for other event types. + cancelWorkflowExecutionFailedEventAttributes :: Prelude.Maybe CancelWorkflowExecutionFailedEventAttributes, + -- | If the event is of type @ChildWorkflowExecutionCanceled@ then this + -- member is set and provides detailed information about the event. It + -- isn\'t set for other event types. + childWorkflowExecutionCanceledEventAttributes :: Prelude.Maybe ChildWorkflowExecutionCanceledEventAttributes, + -- | If the event is of type @ChildWorkflowExecutionCompleted@ then this + -- member is set and provides detailed information about the event. It + -- isn\'t set for other event types. + childWorkflowExecutionCompletedEventAttributes :: Prelude.Maybe ChildWorkflowExecutionCompletedEventAttributes, + -- | If the event is of type @ChildWorkflowExecutionFailed@ then this member + -- is set and provides detailed information about the event. It isn\'t set + -- for other event types. + childWorkflowExecutionFailedEventAttributes :: Prelude.Maybe ChildWorkflowExecutionFailedEventAttributes, + -- | If the event is of type @ChildWorkflowExecutionStarted@ then this member + -- is set and provides detailed information about the event. It isn\'t set + -- for other event types. + childWorkflowExecutionStartedEventAttributes :: Prelude.Maybe ChildWorkflowExecutionStartedEventAttributes, + -- | If the event is of type @ChildWorkflowExecutionTerminated@ then this + -- member is set and provides detailed information about the event. It + -- isn\'t set for other event types. + childWorkflowExecutionTerminatedEventAttributes :: Prelude.Maybe ChildWorkflowExecutionTerminatedEventAttributes, + -- | If the event is of type @ChildWorkflowExecutionTimedOut@ then this + -- member is set and provides detailed information about the event. It + -- isn\'t set for other event types. + childWorkflowExecutionTimedOutEventAttributes :: Prelude.Maybe ChildWorkflowExecutionTimedOutEventAttributes, + -- | If the event is of type @CompleteWorkflowExecutionFailed@ then this + -- member is set and provides detailed information about the event. It + -- isn\'t set for other event types. + completeWorkflowExecutionFailedEventAttributes :: Prelude.Maybe CompleteWorkflowExecutionFailedEventAttributes, + -- | If the event is of type @ContinueAsNewWorkflowExecutionFailed@ then this + -- member is set and provides detailed information about the event. It + -- isn\'t set for other event types. + continueAsNewWorkflowExecutionFailedEventAttributes :: Prelude.Maybe ContinueAsNewWorkflowExecutionFailedEventAttributes, + -- | If the event is of type @DecisionTaskCompleted@ then this member is set + -- and provides detailed information about the event. It isn\'t set for + -- other event types. + decisionTaskCompletedEventAttributes :: Prelude.Maybe DecisionTaskCompletedEventAttributes, + -- | If the event is of type @DecisionTaskScheduled@ then this member is set + -- and provides detailed information about the event. It isn\'t set for + -- other event types. + decisionTaskScheduledEventAttributes :: Prelude.Maybe DecisionTaskScheduledEventAttributes, + -- | If the event is of type @DecisionTaskStarted@ then this member is set + -- and provides detailed information about the event. It isn\'t set for + -- other event types. + decisionTaskStartedEventAttributes :: Prelude.Maybe DecisionTaskStartedEventAttributes, + -- | If the event is of type @DecisionTaskTimedOut@ then this member is set + -- and provides detailed information about the event. It isn\'t set for + -- other event types. + decisionTaskTimedOutEventAttributes :: Prelude.Maybe DecisionTaskTimedOutEventAttributes, + -- | If the event is of type @ExternalWorkflowExecutionCancelRequested@ then + -- this member is set and provides detailed information about the event. It + -- isn\'t set for other event types. + externalWorkflowExecutionCancelRequestedEventAttributes :: Prelude.Maybe ExternalWorkflowExecutionCancelRequestedEventAttributes, + -- | If the event is of type @ExternalWorkflowExecutionSignaled@ then this + -- member is set and provides detailed information about the event. It + -- isn\'t set for other event types. + externalWorkflowExecutionSignaledEventAttributes :: Prelude.Maybe ExternalWorkflowExecutionSignaledEventAttributes, + -- | If the event is of type @FailWorkflowExecutionFailed@ then this member + -- is set and provides detailed information about the event. It isn\'t set + -- for other event types. + failWorkflowExecutionFailedEventAttributes :: Prelude.Maybe FailWorkflowExecutionFailedEventAttributes, + -- | Provides the details of the @LambdaFunctionCompleted@ event. It isn\'t + -- set for other event types. + lambdaFunctionCompletedEventAttributes :: Prelude.Maybe LambdaFunctionCompletedEventAttributes, + -- | Provides the details of the @LambdaFunctionFailed@ event. It isn\'t set + -- for other event types. + lambdaFunctionFailedEventAttributes :: Prelude.Maybe LambdaFunctionFailedEventAttributes, + -- | Provides the details of the @LambdaFunctionScheduled@ event. It isn\'t + -- set for other event types. + lambdaFunctionScheduledEventAttributes :: Prelude.Maybe LambdaFunctionScheduledEventAttributes, + -- | Provides the details of the @LambdaFunctionStarted@ event. It isn\'t set + -- for other event types. + lambdaFunctionStartedEventAttributes :: Prelude.Maybe LambdaFunctionStartedEventAttributes, + -- | Provides the details of the @LambdaFunctionTimedOut@ event. It isn\'t + -- set for other event types. + lambdaFunctionTimedOutEventAttributes :: Prelude.Maybe LambdaFunctionTimedOutEventAttributes, + -- | If the event is of type @MarkerRecorded@ then this member is set and + -- provides detailed information about the event. It isn\'t set for other + -- event types. + markerRecordedEventAttributes :: Prelude.Maybe MarkerRecordedEventAttributes, + -- | If the event is of type @DecisionTaskFailed@ then this member is set and + -- provides detailed information about the event. It isn\'t set for other + -- event types. + recordMarkerFailedEventAttributes :: Prelude.Maybe RecordMarkerFailedEventAttributes, + -- | If the event is of type @RequestCancelActivityTaskFailed@ then this + -- member is set and provides detailed information about the event. It + -- isn\'t set for other event types. + requestCancelActivityTaskFailedEventAttributes :: Prelude.Maybe RequestCancelActivityTaskFailedEventAttributes, + -- | If the event is of type @RequestCancelExternalWorkflowExecutionFailed@ + -- then this member is set and provides detailed information about the + -- event. It isn\'t set for other event types. + requestCancelExternalWorkflowExecutionFailedEventAttributes :: Prelude.Maybe RequestCancelExternalWorkflowExecutionFailedEventAttributes, + -- | If the event is of type + -- @RequestCancelExternalWorkflowExecutionInitiated@ then this member is + -- set and provides detailed information about the event. It isn\'t set for + -- other event types. + requestCancelExternalWorkflowExecutionInitiatedEventAttributes :: Prelude.Maybe RequestCancelExternalWorkflowExecutionInitiatedEventAttributes, + -- | If the event is of type @ScheduleActivityTaskFailed@ then this member is + -- set and provides detailed information about the event. It isn\'t set for + -- other event types. + scheduleActivityTaskFailedEventAttributes :: Prelude.Maybe ScheduleActivityTaskFailedEventAttributes, + -- | Provides the details of the @ScheduleLambdaFunctionFailed@ event. It + -- isn\'t set for other event types. + scheduleLambdaFunctionFailedEventAttributes :: Prelude.Maybe ScheduleLambdaFunctionFailedEventAttributes, + -- | If the event is of type @SignalExternalWorkflowExecutionFailed@ then + -- this member is set and provides detailed information about the event. It + -- isn\'t set for other event types. + signalExternalWorkflowExecutionFailedEventAttributes :: Prelude.Maybe SignalExternalWorkflowExecutionFailedEventAttributes, + -- | If the event is of type @SignalExternalWorkflowExecutionInitiated@ then + -- this member is set and provides detailed information about the event. It + -- isn\'t set for other event types. + signalExternalWorkflowExecutionInitiatedEventAttributes :: Prelude.Maybe SignalExternalWorkflowExecutionInitiatedEventAttributes, + -- | If the event is of type @StartChildWorkflowExecutionFailed@ then this + -- member is set and provides detailed information about the event. It + -- isn\'t set for other event types. + startChildWorkflowExecutionFailedEventAttributes :: Prelude.Maybe StartChildWorkflowExecutionFailedEventAttributes, + -- | If the event is of type @StartChildWorkflowExecutionInitiated@ then this + -- member is set and provides detailed information about the event. It + -- isn\'t set for other event types. + startChildWorkflowExecutionInitiatedEventAttributes :: Prelude.Maybe StartChildWorkflowExecutionInitiatedEventAttributes, + -- | Provides the details of the @StartLambdaFunctionFailed@ event. It isn\'t + -- set for other event types. + startLambdaFunctionFailedEventAttributes :: Prelude.Maybe StartLambdaFunctionFailedEventAttributes, + -- | If the event is of type @StartTimerFailed@ then this member is set and + -- provides detailed information about the event. It isn\'t set for other + -- event types. + startTimerFailedEventAttributes :: Prelude.Maybe StartTimerFailedEventAttributes, + -- | If the event is of type @TimerCanceled@ then this member is set and + -- provides detailed information about the event. It isn\'t set for other + -- event types. + timerCanceledEventAttributes :: Prelude.Maybe TimerCanceledEventAttributes, + -- | If the event is of type @TimerFired@ then this member is set and + -- provides detailed information about the event. It isn\'t set for other + -- event types. + timerFiredEventAttributes :: Prelude.Maybe TimerFiredEventAttributes, + -- | If the event is of type @TimerStarted@ then this member is set and + -- provides detailed information about the event. It isn\'t set for other + -- event types. + timerStartedEventAttributes :: Prelude.Maybe TimerStartedEventAttributes, + -- | If the event is of type @WorkflowExecutionCancelRequested@ then this + -- member is set and provides detailed information about the event. It + -- isn\'t set for other event types. + workflowExecutionCancelRequestedEventAttributes :: Prelude.Maybe WorkflowExecutionCancelRequestedEventAttributes, + -- | If the event is of type @WorkflowExecutionCanceled@ then this member is + -- set and provides detailed information about the event. It isn\'t set for + -- other event types. + workflowExecutionCanceledEventAttributes :: Prelude.Maybe WorkflowExecutionCanceledEventAttributes, + -- | If the event is of type @WorkflowExecutionCompleted@ then this member is + -- set and provides detailed information about the event. It isn\'t set for + -- other event types. + workflowExecutionCompletedEventAttributes :: Prelude.Maybe WorkflowExecutionCompletedEventAttributes, + -- | If the event is of type @WorkflowExecutionContinuedAsNew@ then this + -- member is set and provides detailed information about the event. It + -- isn\'t set for other event types. + workflowExecutionContinuedAsNewEventAttributes :: Prelude.Maybe WorkflowExecutionContinuedAsNewEventAttributes, + -- | If the event is of type @WorkflowExecutionFailed@ then this member is + -- set and provides detailed information about the event. It isn\'t set for + -- other event types. + workflowExecutionFailedEventAttributes :: Prelude.Maybe WorkflowExecutionFailedEventAttributes, + -- | If the event is of type @WorkflowExecutionSignaled@ then this member is + -- set and provides detailed information about the event. It isn\'t set for + -- other event types. + workflowExecutionSignaledEventAttributes :: Prelude.Maybe WorkflowExecutionSignaledEventAttributes, + -- | If the event is of type @WorkflowExecutionStarted@ then this member is + -- set and provides detailed information about the event. It isn\'t set for + -- other event types. + workflowExecutionStartedEventAttributes :: Prelude.Maybe WorkflowExecutionStartedEventAttributes, + -- | If the event is of type @WorkflowExecutionTerminated@ then this member + -- is set and provides detailed information about the event. It isn\'t set + -- for other event types. + workflowExecutionTerminatedEventAttributes :: Prelude.Maybe WorkflowExecutionTerminatedEventAttributes, + -- | If the event is of type @WorkflowExecutionTimedOut@ then this member is + -- set and provides detailed information about the event. It isn\'t set for + -- other event types. + workflowExecutionTimedOutEventAttributes :: Prelude.Maybe WorkflowExecutionTimedOutEventAttributes, + -- | The date and time when the event occurred. + eventTimestamp :: Data.POSIX, + -- | The type of the history event. + eventType :: EventType, + -- | The system generated ID of the event. This ID uniquely identifies the + -- event with in the workflow execution history. + eventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'HistoryEvent' 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: +-- +-- 'activityTaskCancelRequestedEventAttributes', 'historyEvent_activityTaskCancelRequestedEventAttributes' - If the event is of type @ActivityTaskcancelRequested@ then this member +-- is set and provides detailed information about the event. It isn\'t set +-- for other event types. +-- +-- 'activityTaskCanceledEventAttributes', 'historyEvent_activityTaskCanceledEventAttributes' - If the event is of type @ActivityTaskCanceled@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'activityTaskCompletedEventAttributes', 'historyEvent_activityTaskCompletedEventAttributes' - If the event is of type @ActivityTaskCompleted@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'activityTaskFailedEventAttributes', 'historyEvent_activityTaskFailedEventAttributes' - If the event is of type @ActivityTaskFailed@ then this member is set and +-- provides detailed information about the event. It isn\'t set for other +-- event types. +-- +-- 'activityTaskScheduledEventAttributes', 'historyEvent_activityTaskScheduledEventAttributes' - If the event is of type @ActivityTaskScheduled@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'activityTaskStartedEventAttributes', 'historyEvent_activityTaskStartedEventAttributes' - If the event is of type @ActivityTaskStarted@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'activityTaskTimedOutEventAttributes', 'historyEvent_activityTaskTimedOutEventAttributes' - If the event is of type @ActivityTaskTimedOut@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'cancelTimerFailedEventAttributes', 'historyEvent_cancelTimerFailedEventAttributes' - If the event is of type @CancelTimerFailed@ then this member is set and +-- provides detailed information about the event. It isn\'t set for other +-- event types. +-- +-- 'cancelWorkflowExecutionFailedEventAttributes', 'historyEvent_cancelWorkflowExecutionFailedEventAttributes' - If the event is of type @CancelWorkflowExecutionFailed@ then this member +-- is set and provides detailed information about the event. It isn\'t set +-- for other event types. +-- +-- 'childWorkflowExecutionCanceledEventAttributes', 'historyEvent_childWorkflowExecutionCanceledEventAttributes' - If the event is of type @ChildWorkflowExecutionCanceled@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +-- +-- 'childWorkflowExecutionCompletedEventAttributes', 'historyEvent_childWorkflowExecutionCompletedEventAttributes' - If the event is of type @ChildWorkflowExecutionCompleted@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +-- +-- 'childWorkflowExecutionFailedEventAttributes', 'historyEvent_childWorkflowExecutionFailedEventAttributes' - If the event is of type @ChildWorkflowExecutionFailed@ then this member +-- is set and provides detailed information about the event. It isn\'t set +-- for other event types. +-- +-- 'childWorkflowExecutionStartedEventAttributes', 'historyEvent_childWorkflowExecutionStartedEventAttributes' - If the event is of type @ChildWorkflowExecutionStarted@ then this member +-- is set and provides detailed information about the event. It isn\'t set +-- for other event types. +-- +-- 'childWorkflowExecutionTerminatedEventAttributes', 'historyEvent_childWorkflowExecutionTerminatedEventAttributes' - If the event is of type @ChildWorkflowExecutionTerminated@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +-- +-- 'childWorkflowExecutionTimedOutEventAttributes', 'historyEvent_childWorkflowExecutionTimedOutEventAttributes' - If the event is of type @ChildWorkflowExecutionTimedOut@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +-- +-- 'completeWorkflowExecutionFailedEventAttributes', 'historyEvent_completeWorkflowExecutionFailedEventAttributes' - If the event is of type @CompleteWorkflowExecutionFailed@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +-- +-- 'continueAsNewWorkflowExecutionFailedEventAttributes', 'historyEvent_continueAsNewWorkflowExecutionFailedEventAttributes' - If the event is of type @ContinueAsNewWorkflowExecutionFailed@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +-- +-- 'decisionTaskCompletedEventAttributes', 'historyEvent_decisionTaskCompletedEventAttributes' - If the event is of type @DecisionTaskCompleted@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'decisionTaskScheduledEventAttributes', 'historyEvent_decisionTaskScheduledEventAttributes' - If the event is of type @DecisionTaskScheduled@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'decisionTaskStartedEventAttributes', 'historyEvent_decisionTaskStartedEventAttributes' - If the event is of type @DecisionTaskStarted@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'decisionTaskTimedOutEventAttributes', 'historyEvent_decisionTaskTimedOutEventAttributes' - If the event is of type @DecisionTaskTimedOut@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'externalWorkflowExecutionCancelRequestedEventAttributes', 'historyEvent_externalWorkflowExecutionCancelRequestedEventAttributes' - If the event is of type @ExternalWorkflowExecutionCancelRequested@ then +-- this member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +-- +-- 'externalWorkflowExecutionSignaledEventAttributes', 'historyEvent_externalWorkflowExecutionSignaledEventAttributes' - If the event is of type @ExternalWorkflowExecutionSignaled@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +-- +-- 'failWorkflowExecutionFailedEventAttributes', 'historyEvent_failWorkflowExecutionFailedEventAttributes' - If the event is of type @FailWorkflowExecutionFailed@ then this member +-- is set and provides detailed information about the event. It isn\'t set +-- for other event types. +-- +-- 'lambdaFunctionCompletedEventAttributes', 'historyEvent_lambdaFunctionCompletedEventAttributes' - Provides the details of the @LambdaFunctionCompleted@ event. It isn\'t +-- set for other event types. +-- +-- 'lambdaFunctionFailedEventAttributes', 'historyEvent_lambdaFunctionFailedEventAttributes' - Provides the details of the @LambdaFunctionFailed@ event. It isn\'t set +-- for other event types. +-- +-- 'lambdaFunctionScheduledEventAttributes', 'historyEvent_lambdaFunctionScheduledEventAttributes' - Provides the details of the @LambdaFunctionScheduled@ event. It isn\'t +-- set for other event types. +-- +-- 'lambdaFunctionStartedEventAttributes', 'historyEvent_lambdaFunctionStartedEventAttributes' - Provides the details of the @LambdaFunctionStarted@ event. It isn\'t set +-- for other event types. +-- +-- 'lambdaFunctionTimedOutEventAttributes', 'historyEvent_lambdaFunctionTimedOutEventAttributes' - Provides the details of the @LambdaFunctionTimedOut@ event. It isn\'t +-- set for other event types. +-- +-- 'markerRecordedEventAttributes', 'historyEvent_markerRecordedEventAttributes' - If the event is of type @MarkerRecorded@ then this member is set and +-- provides detailed information about the event. It isn\'t set for other +-- event types. +-- +-- 'recordMarkerFailedEventAttributes', 'historyEvent_recordMarkerFailedEventAttributes' - If the event is of type @DecisionTaskFailed@ then this member is set and +-- provides detailed information about the event. It isn\'t set for other +-- event types. +-- +-- 'requestCancelActivityTaskFailedEventAttributes', 'historyEvent_requestCancelActivityTaskFailedEventAttributes' - If the event is of type @RequestCancelActivityTaskFailed@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +-- +-- 'requestCancelExternalWorkflowExecutionFailedEventAttributes', 'historyEvent_requestCancelExternalWorkflowExecutionFailedEventAttributes' - If the event is of type @RequestCancelExternalWorkflowExecutionFailed@ +-- then this member is set and provides detailed information about the +-- event. It isn\'t set for other event types. +-- +-- 'requestCancelExternalWorkflowExecutionInitiatedEventAttributes', 'historyEvent_requestCancelExternalWorkflowExecutionInitiatedEventAttributes' - If the event is of type +-- @RequestCancelExternalWorkflowExecutionInitiated@ then this member is +-- set and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'scheduleActivityTaskFailedEventAttributes', 'historyEvent_scheduleActivityTaskFailedEventAttributes' - If the event is of type @ScheduleActivityTaskFailed@ then this member is +-- set and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'scheduleLambdaFunctionFailedEventAttributes', 'historyEvent_scheduleLambdaFunctionFailedEventAttributes' - Provides the details of the @ScheduleLambdaFunctionFailed@ event. It +-- isn\'t set for other event types. +-- +-- 'signalExternalWorkflowExecutionFailedEventAttributes', 'historyEvent_signalExternalWorkflowExecutionFailedEventAttributes' - If the event is of type @SignalExternalWorkflowExecutionFailed@ then +-- this member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +-- +-- 'signalExternalWorkflowExecutionInitiatedEventAttributes', 'historyEvent_signalExternalWorkflowExecutionInitiatedEventAttributes' - If the event is of type @SignalExternalWorkflowExecutionInitiated@ then +-- this member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +-- +-- 'startChildWorkflowExecutionFailedEventAttributes', 'historyEvent_startChildWorkflowExecutionFailedEventAttributes' - If the event is of type @StartChildWorkflowExecutionFailed@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +-- +-- 'startChildWorkflowExecutionInitiatedEventAttributes', 'historyEvent_startChildWorkflowExecutionInitiatedEventAttributes' - If the event is of type @StartChildWorkflowExecutionInitiated@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +-- +-- 'startLambdaFunctionFailedEventAttributes', 'historyEvent_startLambdaFunctionFailedEventAttributes' - Provides the details of the @StartLambdaFunctionFailed@ event. It isn\'t +-- set for other event types. +-- +-- 'startTimerFailedEventAttributes', 'historyEvent_startTimerFailedEventAttributes' - If the event is of type @StartTimerFailed@ then this member is set and +-- provides detailed information about the event. It isn\'t set for other +-- event types. +-- +-- 'timerCanceledEventAttributes', 'historyEvent_timerCanceledEventAttributes' - If the event is of type @TimerCanceled@ then this member is set and +-- provides detailed information about the event. It isn\'t set for other +-- event types. +-- +-- 'timerFiredEventAttributes', 'historyEvent_timerFiredEventAttributes' - If the event is of type @TimerFired@ then this member is set and +-- provides detailed information about the event. It isn\'t set for other +-- event types. +-- +-- 'timerStartedEventAttributes', 'historyEvent_timerStartedEventAttributes' - If the event is of type @TimerStarted@ then this member is set and +-- provides detailed information about the event. It isn\'t set for other +-- event types. +-- +-- 'workflowExecutionCancelRequestedEventAttributes', 'historyEvent_workflowExecutionCancelRequestedEventAttributes' - If the event is of type @WorkflowExecutionCancelRequested@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +-- +-- 'workflowExecutionCanceledEventAttributes', 'historyEvent_workflowExecutionCanceledEventAttributes' - If the event is of type @WorkflowExecutionCanceled@ then this member is +-- set and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'workflowExecutionCompletedEventAttributes', 'historyEvent_workflowExecutionCompletedEventAttributes' - If the event is of type @WorkflowExecutionCompleted@ then this member is +-- set and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'workflowExecutionContinuedAsNewEventAttributes', 'historyEvent_workflowExecutionContinuedAsNewEventAttributes' - If the event is of type @WorkflowExecutionContinuedAsNew@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +-- +-- 'workflowExecutionFailedEventAttributes', 'historyEvent_workflowExecutionFailedEventAttributes' - If the event is of type @WorkflowExecutionFailed@ then this member is +-- set and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'workflowExecutionSignaledEventAttributes', 'historyEvent_workflowExecutionSignaledEventAttributes' - If the event is of type @WorkflowExecutionSignaled@ then this member is +-- set and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'workflowExecutionStartedEventAttributes', 'historyEvent_workflowExecutionStartedEventAttributes' - If the event is of type @WorkflowExecutionStarted@ then this member is +-- set and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'workflowExecutionTerminatedEventAttributes', 'historyEvent_workflowExecutionTerminatedEventAttributes' - If the event is of type @WorkflowExecutionTerminated@ then this member +-- is set and provides detailed information about the event. It isn\'t set +-- for other event types. +-- +-- 'workflowExecutionTimedOutEventAttributes', 'historyEvent_workflowExecutionTimedOutEventAttributes' - If the event is of type @WorkflowExecutionTimedOut@ then this member is +-- set and provides detailed information about the event. It isn\'t set for +-- other event types. +-- +-- 'eventTimestamp', 'historyEvent_eventTimestamp' - The date and time when the event occurred. +-- +-- 'eventType', 'historyEvent_eventType' - The type of the history event. +-- +-- 'eventId', 'historyEvent_eventId' - The system generated ID of the event. This ID uniquely identifies the +-- event with in the workflow execution history. +newHistoryEvent :: + -- | 'eventTimestamp' + Prelude.UTCTime -> + -- | 'eventType' + EventType -> + -- | 'eventId' + Prelude.Integer -> + HistoryEvent +newHistoryEvent + pEventTimestamp_ + pEventType_ + pEventId_ = + HistoryEvent' + { activityTaskCancelRequestedEventAttributes = + Prelude.Nothing, + activityTaskCanceledEventAttributes = + Prelude.Nothing, + activityTaskCompletedEventAttributes = + Prelude.Nothing, + activityTaskFailedEventAttributes = Prelude.Nothing, + activityTaskScheduledEventAttributes = + Prelude.Nothing, + activityTaskStartedEventAttributes = Prelude.Nothing, + activityTaskTimedOutEventAttributes = + Prelude.Nothing, + cancelTimerFailedEventAttributes = Prelude.Nothing, + cancelWorkflowExecutionFailedEventAttributes = + Prelude.Nothing, + childWorkflowExecutionCanceledEventAttributes = + Prelude.Nothing, + childWorkflowExecutionCompletedEventAttributes = + Prelude.Nothing, + childWorkflowExecutionFailedEventAttributes = + Prelude.Nothing, + childWorkflowExecutionStartedEventAttributes = + Prelude.Nothing, + childWorkflowExecutionTerminatedEventAttributes = + Prelude.Nothing, + childWorkflowExecutionTimedOutEventAttributes = + Prelude.Nothing, + completeWorkflowExecutionFailedEventAttributes = + Prelude.Nothing, + continueAsNewWorkflowExecutionFailedEventAttributes = + Prelude.Nothing, + decisionTaskCompletedEventAttributes = + Prelude.Nothing, + decisionTaskScheduledEventAttributes = + Prelude.Nothing, + decisionTaskStartedEventAttributes = Prelude.Nothing, + decisionTaskTimedOutEventAttributes = + Prelude.Nothing, + externalWorkflowExecutionCancelRequestedEventAttributes = + Prelude.Nothing, + externalWorkflowExecutionSignaledEventAttributes = + Prelude.Nothing, + failWorkflowExecutionFailedEventAttributes = + Prelude.Nothing, + lambdaFunctionCompletedEventAttributes = + Prelude.Nothing, + lambdaFunctionFailedEventAttributes = + Prelude.Nothing, + lambdaFunctionScheduledEventAttributes = + Prelude.Nothing, + lambdaFunctionStartedEventAttributes = + Prelude.Nothing, + lambdaFunctionTimedOutEventAttributes = + Prelude.Nothing, + markerRecordedEventAttributes = Prelude.Nothing, + recordMarkerFailedEventAttributes = Prelude.Nothing, + requestCancelActivityTaskFailedEventAttributes = + Prelude.Nothing, + requestCancelExternalWorkflowExecutionFailedEventAttributes = + Prelude.Nothing, + requestCancelExternalWorkflowExecutionInitiatedEventAttributes = + Prelude.Nothing, + scheduleActivityTaskFailedEventAttributes = + Prelude.Nothing, + scheduleLambdaFunctionFailedEventAttributes = + Prelude.Nothing, + signalExternalWorkflowExecutionFailedEventAttributes = + Prelude.Nothing, + signalExternalWorkflowExecutionInitiatedEventAttributes = + Prelude.Nothing, + startChildWorkflowExecutionFailedEventAttributes = + Prelude.Nothing, + startChildWorkflowExecutionInitiatedEventAttributes = + Prelude.Nothing, + startLambdaFunctionFailedEventAttributes = + Prelude.Nothing, + startTimerFailedEventAttributes = Prelude.Nothing, + timerCanceledEventAttributes = Prelude.Nothing, + timerFiredEventAttributes = Prelude.Nothing, + timerStartedEventAttributes = Prelude.Nothing, + workflowExecutionCancelRequestedEventAttributes = + Prelude.Nothing, + workflowExecutionCanceledEventAttributes = + Prelude.Nothing, + workflowExecutionCompletedEventAttributes = + Prelude.Nothing, + workflowExecutionContinuedAsNewEventAttributes = + Prelude.Nothing, + workflowExecutionFailedEventAttributes = + Prelude.Nothing, + workflowExecutionSignaledEventAttributes = + Prelude.Nothing, + workflowExecutionStartedEventAttributes = + Prelude.Nothing, + workflowExecutionTerminatedEventAttributes = + Prelude.Nothing, + workflowExecutionTimedOutEventAttributes = + Prelude.Nothing, + eventTimestamp = Data._Time Lens.# pEventTimestamp_, + eventType = pEventType_, + eventId = pEventId_ + } + +-- | If the event is of type @ActivityTaskcancelRequested@ then this member +-- is set and provides detailed information about the event. It isn\'t set +-- for other event types. +historyEvent_activityTaskCancelRequestedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ActivityTaskCancelRequestedEventAttributes) +historyEvent_activityTaskCancelRequestedEventAttributes = Lens.lens (\HistoryEvent' {activityTaskCancelRequestedEventAttributes} -> activityTaskCancelRequestedEventAttributes) (\s@HistoryEvent' {} a -> s {activityTaskCancelRequestedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @ActivityTaskCanceled@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_activityTaskCanceledEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ActivityTaskCanceledEventAttributes) +historyEvent_activityTaskCanceledEventAttributes = Lens.lens (\HistoryEvent' {activityTaskCanceledEventAttributes} -> activityTaskCanceledEventAttributes) (\s@HistoryEvent' {} a -> s {activityTaskCanceledEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @ActivityTaskCompleted@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_activityTaskCompletedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ActivityTaskCompletedEventAttributes) +historyEvent_activityTaskCompletedEventAttributes = Lens.lens (\HistoryEvent' {activityTaskCompletedEventAttributes} -> activityTaskCompletedEventAttributes) (\s@HistoryEvent' {} a -> s {activityTaskCompletedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @ActivityTaskFailed@ then this member is set and +-- provides detailed information about the event. It isn\'t set for other +-- event types. +historyEvent_activityTaskFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ActivityTaskFailedEventAttributes) +historyEvent_activityTaskFailedEventAttributes = Lens.lens (\HistoryEvent' {activityTaskFailedEventAttributes} -> activityTaskFailedEventAttributes) (\s@HistoryEvent' {} a -> s {activityTaskFailedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @ActivityTaskScheduled@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_activityTaskScheduledEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ActivityTaskScheduledEventAttributes) +historyEvent_activityTaskScheduledEventAttributes = Lens.lens (\HistoryEvent' {activityTaskScheduledEventAttributes} -> activityTaskScheduledEventAttributes) (\s@HistoryEvent' {} a -> s {activityTaskScheduledEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @ActivityTaskStarted@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_activityTaskStartedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ActivityTaskStartedEventAttributes) +historyEvent_activityTaskStartedEventAttributes = Lens.lens (\HistoryEvent' {activityTaskStartedEventAttributes} -> activityTaskStartedEventAttributes) (\s@HistoryEvent' {} a -> s {activityTaskStartedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @ActivityTaskTimedOut@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_activityTaskTimedOutEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ActivityTaskTimedOutEventAttributes) +historyEvent_activityTaskTimedOutEventAttributes = Lens.lens (\HistoryEvent' {activityTaskTimedOutEventAttributes} -> activityTaskTimedOutEventAttributes) (\s@HistoryEvent' {} a -> s {activityTaskTimedOutEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @CancelTimerFailed@ then this member is set and +-- provides detailed information about the event. It isn\'t set for other +-- event types. +historyEvent_cancelTimerFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe CancelTimerFailedEventAttributes) +historyEvent_cancelTimerFailedEventAttributes = Lens.lens (\HistoryEvent' {cancelTimerFailedEventAttributes} -> cancelTimerFailedEventAttributes) (\s@HistoryEvent' {} a -> s {cancelTimerFailedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @CancelWorkflowExecutionFailed@ then this member +-- is set and provides detailed information about the event. It isn\'t set +-- for other event types. +historyEvent_cancelWorkflowExecutionFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe CancelWorkflowExecutionFailedEventAttributes) +historyEvent_cancelWorkflowExecutionFailedEventAttributes = Lens.lens (\HistoryEvent' {cancelWorkflowExecutionFailedEventAttributes} -> cancelWorkflowExecutionFailedEventAttributes) (\s@HistoryEvent' {} a -> s {cancelWorkflowExecutionFailedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @ChildWorkflowExecutionCanceled@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +historyEvent_childWorkflowExecutionCanceledEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ChildWorkflowExecutionCanceledEventAttributes) +historyEvent_childWorkflowExecutionCanceledEventAttributes = Lens.lens (\HistoryEvent' {childWorkflowExecutionCanceledEventAttributes} -> childWorkflowExecutionCanceledEventAttributes) (\s@HistoryEvent' {} a -> s {childWorkflowExecutionCanceledEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @ChildWorkflowExecutionCompleted@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +historyEvent_childWorkflowExecutionCompletedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ChildWorkflowExecutionCompletedEventAttributes) +historyEvent_childWorkflowExecutionCompletedEventAttributes = Lens.lens (\HistoryEvent' {childWorkflowExecutionCompletedEventAttributes} -> childWorkflowExecutionCompletedEventAttributes) (\s@HistoryEvent' {} a -> s {childWorkflowExecutionCompletedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @ChildWorkflowExecutionFailed@ then this member +-- is set and provides detailed information about the event. It isn\'t set +-- for other event types. +historyEvent_childWorkflowExecutionFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ChildWorkflowExecutionFailedEventAttributes) +historyEvent_childWorkflowExecutionFailedEventAttributes = Lens.lens (\HistoryEvent' {childWorkflowExecutionFailedEventAttributes} -> childWorkflowExecutionFailedEventAttributes) (\s@HistoryEvent' {} a -> s {childWorkflowExecutionFailedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @ChildWorkflowExecutionStarted@ then this member +-- is set and provides detailed information about the event. It isn\'t set +-- for other event types. +historyEvent_childWorkflowExecutionStartedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ChildWorkflowExecutionStartedEventAttributes) +historyEvent_childWorkflowExecutionStartedEventAttributes = Lens.lens (\HistoryEvent' {childWorkflowExecutionStartedEventAttributes} -> childWorkflowExecutionStartedEventAttributes) (\s@HistoryEvent' {} a -> s {childWorkflowExecutionStartedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @ChildWorkflowExecutionTerminated@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +historyEvent_childWorkflowExecutionTerminatedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ChildWorkflowExecutionTerminatedEventAttributes) +historyEvent_childWorkflowExecutionTerminatedEventAttributes = Lens.lens (\HistoryEvent' {childWorkflowExecutionTerminatedEventAttributes} -> childWorkflowExecutionTerminatedEventAttributes) (\s@HistoryEvent' {} a -> s {childWorkflowExecutionTerminatedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @ChildWorkflowExecutionTimedOut@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +historyEvent_childWorkflowExecutionTimedOutEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ChildWorkflowExecutionTimedOutEventAttributes) +historyEvent_childWorkflowExecutionTimedOutEventAttributes = Lens.lens (\HistoryEvent' {childWorkflowExecutionTimedOutEventAttributes} -> childWorkflowExecutionTimedOutEventAttributes) (\s@HistoryEvent' {} a -> s {childWorkflowExecutionTimedOutEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @CompleteWorkflowExecutionFailed@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +historyEvent_completeWorkflowExecutionFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe CompleteWorkflowExecutionFailedEventAttributes) +historyEvent_completeWorkflowExecutionFailedEventAttributes = Lens.lens (\HistoryEvent' {completeWorkflowExecutionFailedEventAttributes} -> completeWorkflowExecutionFailedEventAttributes) (\s@HistoryEvent' {} a -> s {completeWorkflowExecutionFailedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @ContinueAsNewWorkflowExecutionFailed@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +historyEvent_continueAsNewWorkflowExecutionFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ContinueAsNewWorkflowExecutionFailedEventAttributes) +historyEvent_continueAsNewWorkflowExecutionFailedEventAttributes = Lens.lens (\HistoryEvent' {continueAsNewWorkflowExecutionFailedEventAttributes} -> continueAsNewWorkflowExecutionFailedEventAttributes) (\s@HistoryEvent' {} a -> s {continueAsNewWorkflowExecutionFailedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @DecisionTaskCompleted@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_decisionTaskCompletedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe DecisionTaskCompletedEventAttributes) +historyEvent_decisionTaskCompletedEventAttributes = Lens.lens (\HistoryEvent' {decisionTaskCompletedEventAttributes} -> decisionTaskCompletedEventAttributes) (\s@HistoryEvent' {} a -> s {decisionTaskCompletedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @DecisionTaskScheduled@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_decisionTaskScheduledEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe DecisionTaskScheduledEventAttributes) +historyEvent_decisionTaskScheduledEventAttributes = Lens.lens (\HistoryEvent' {decisionTaskScheduledEventAttributes} -> decisionTaskScheduledEventAttributes) (\s@HistoryEvent' {} a -> s {decisionTaskScheduledEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @DecisionTaskStarted@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_decisionTaskStartedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe DecisionTaskStartedEventAttributes) +historyEvent_decisionTaskStartedEventAttributes = Lens.lens (\HistoryEvent' {decisionTaskStartedEventAttributes} -> decisionTaskStartedEventAttributes) (\s@HistoryEvent' {} a -> s {decisionTaskStartedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @DecisionTaskTimedOut@ then this member is set +-- and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_decisionTaskTimedOutEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe DecisionTaskTimedOutEventAttributes) +historyEvent_decisionTaskTimedOutEventAttributes = Lens.lens (\HistoryEvent' {decisionTaskTimedOutEventAttributes} -> decisionTaskTimedOutEventAttributes) (\s@HistoryEvent' {} a -> s {decisionTaskTimedOutEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @ExternalWorkflowExecutionCancelRequested@ then +-- this member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +historyEvent_externalWorkflowExecutionCancelRequestedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ExternalWorkflowExecutionCancelRequestedEventAttributes) +historyEvent_externalWorkflowExecutionCancelRequestedEventAttributes = Lens.lens (\HistoryEvent' {externalWorkflowExecutionCancelRequestedEventAttributes} -> externalWorkflowExecutionCancelRequestedEventAttributes) (\s@HistoryEvent' {} a -> s {externalWorkflowExecutionCancelRequestedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @ExternalWorkflowExecutionSignaled@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +historyEvent_externalWorkflowExecutionSignaledEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ExternalWorkflowExecutionSignaledEventAttributes) +historyEvent_externalWorkflowExecutionSignaledEventAttributes = Lens.lens (\HistoryEvent' {externalWorkflowExecutionSignaledEventAttributes} -> externalWorkflowExecutionSignaledEventAttributes) (\s@HistoryEvent' {} a -> s {externalWorkflowExecutionSignaledEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @FailWorkflowExecutionFailed@ then this member +-- is set and provides detailed information about the event. It isn\'t set +-- for other event types. +historyEvent_failWorkflowExecutionFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe FailWorkflowExecutionFailedEventAttributes) +historyEvent_failWorkflowExecutionFailedEventAttributes = Lens.lens (\HistoryEvent' {failWorkflowExecutionFailedEventAttributes} -> failWorkflowExecutionFailedEventAttributes) (\s@HistoryEvent' {} a -> s {failWorkflowExecutionFailedEventAttributes = a} :: HistoryEvent) + +-- | Provides the details of the @LambdaFunctionCompleted@ event. It isn\'t +-- set for other event types. +historyEvent_lambdaFunctionCompletedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe LambdaFunctionCompletedEventAttributes) +historyEvent_lambdaFunctionCompletedEventAttributes = Lens.lens (\HistoryEvent' {lambdaFunctionCompletedEventAttributes} -> lambdaFunctionCompletedEventAttributes) (\s@HistoryEvent' {} a -> s {lambdaFunctionCompletedEventAttributes = a} :: HistoryEvent) + +-- | Provides the details of the @LambdaFunctionFailed@ event. It isn\'t set +-- for other event types. +historyEvent_lambdaFunctionFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe LambdaFunctionFailedEventAttributes) +historyEvent_lambdaFunctionFailedEventAttributes = Lens.lens (\HistoryEvent' {lambdaFunctionFailedEventAttributes} -> lambdaFunctionFailedEventAttributes) (\s@HistoryEvent' {} a -> s {lambdaFunctionFailedEventAttributes = a} :: HistoryEvent) + +-- | Provides the details of the @LambdaFunctionScheduled@ event. It isn\'t +-- set for other event types. +historyEvent_lambdaFunctionScheduledEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe LambdaFunctionScheduledEventAttributes) +historyEvent_lambdaFunctionScheduledEventAttributes = Lens.lens (\HistoryEvent' {lambdaFunctionScheduledEventAttributes} -> lambdaFunctionScheduledEventAttributes) (\s@HistoryEvent' {} a -> s {lambdaFunctionScheduledEventAttributes = a} :: HistoryEvent) + +-- | Provides the details of the @LambdaFunctionStarted@ event. It isn\'t set +-- for other event types. +historyEvent_lambdaFunctionStartedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe LambdaFunctionStartedEventAttributes) +historyEvent_lambdaFunctionStartedEventAttributes = Lens.lens (\HistoryEvent' {lambdaFunctionStartedEventAttributes} -> lambdaFunctionStartedEventAttributes) (\s@HistoryEvent' {} a -> s {lambdaFunctionStartedEventAttributes = a} :: HistoryEvent) + +-- | Provides the details of the @LambdaFunctionTimedOut@ event. It isn\'t +-- set for other event types. +historyEvent_lambdaFunctionTimedOutEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe LambdaFunctionTimedOutEventAttributes) +historyEvent_lambdaFunctionTimedOutEventAttributes = Lens.lens (\HistoryEvent' {lambdaFunctionTimedOutEventAttributes} -> lambdaFunctionTimedOutEventAttributes) (\s@HistoryEvent' {} a -> s {lambdaFunctionTimedOutEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @MarkerRecorded@ then this member is set and +-- provides detailed information about the event. It isn\'t set for other +-- event types. +historyEvent_markerRecordedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe MarkerRecordedEventAttributes) +historyEvent_markerRecordedEventAttributes = Lens.lens (\HistoryEvent' {markerRecordedEventAttributes} -> markerRecordedEventAttributes) (\s@HistoryEvent' {} a -> s {markerRecordedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @DecisionTaskFailed@ then this member is set and +-- provides detailed information about the event. It isn\'t set for other +-- event types. +historyEvent_recordMarkerFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe RecordMarkerFailedEventAttributes) +historyEvent_recordMarkerFailedEventAttributes = Lens.lens (\HistoryEvent' {recordMarkerFailedEventAttributes} -> recordMarkerFailedEventAttributes) (\s@HistoryEvent' {} a -> s {recordMarkerFailedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @RequestCancelActivityTaskFailed@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +historyEvent_requestCancelActivityTaskFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe RequestCancelActivityTaskFailedEventAttributes) +historyEvent_requestCancelActivityTaskFailedEventAttributes = Lens.lens (\HistoryEvent' {requestCancelActivityTaskFailedEventAttributes} -> requestCancelActivityTaskFailedEventAttributes) (\s@HistoryEvent' {} a -> s {requestCancelActivityTaskFailedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @RequestCancelExternalWorkflowExecutionFailed@ +-- then this member is set and provides detailed information about the +-- event. It isn\'t set for other event types. +historyEvent_requestCancelExternalWorkflowExecutionFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe RequestCancelExternalWorkflowExecutionFailedEventAttributes) +historyEvent_requestCancelExternalWorkflowExecutionFailedEventAttributes = Lens.lens (\HistoryEvent' {requestCancelExternalWorkflowExecutionFailedEventAttributes} -> requestCancelExternalWorkflowExecutionFailedEventAttributes) (\s@HistoryEvent' {} a -> s {requestCancelExternalWorkflowExecutionFailedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type +-- @RequestCancelExternalWorkflowExecutionInitiated@ then this member is +-- set and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_requestCancelExternalWorkflowExecutionInitiatedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe RequestCancelExternalWorkflowExecutionInitiatedEventAttributes) +historyEvent_requestCancelExternalWorkflowExecutionInitiatedEventAttributes = Lens.lens (\HistoryEvent' {requestCancelExternalWorkflowExecutionInitiatedEventAttributes} -> requestCancelExternalWorkflowExecutionInitiatedEventAttributes) (\s@HistoryEvent' {} a -> s {requestCancelExternalWorkflowExecutionInitiatedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @ScheduleActivityTaskFailed@ then this member is +-- set and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_scheduleActivityTaskFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ScheduleActivityTaskFailedEventAttributes) +historyEvent_scheduleActivityTaskFailedEventAttributes = Lens.lens (\HistoryEvent' {scheduleActivityTaskFailedEventAttributes} -> scheduleActivityTaskFailedEventAttributes) (\s@HistoryEvent' {} a -> s {scheduleActivityTaskFailedEventAttributes = a} :: HistoryEvent) + +-- | Provides the details of the @ScheduleLambdaFunctionFailed@ event. It +-- isn\'t set for other event types. +historyEvent_scheduleLambdaFunctionFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe ScheduleLambdaFunctionFailedEventAttributes) +historyEvent_scheduleLambdaFunctionFailedEventAttributes = Lens.lens (\HistoryEvent' {scheduleLambdaFunctionFailedEventAttributes} -> scheduleLambdaFunctionFailedEventAttributes) (\s@HistoryEvent' {} a -> s {scheduleLambdaFunctionFailedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @SignalExternalWorkflowExecutionFailed@ then +-- this member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +historyEvent_signalExternalWorkflowExecutionFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe SignalExternalWorkflowExecutionFailedEventAttributes) +historyEvent_signalExternalWorkflowExecutionFailedEventAttributes = Lens.lens (\HistoryEvent' {signalExternalWorkflowExecutionFailedEventAttributes} -> signalExternalWorkflowExecutionFailedEventAttributes) (\s@HistoryEvent' {} a -> s {signalExternalWorkflowExecutionFailedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @SignalExternalWorkflowExecutionInitiated@ then +-- this member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +historyEvent_signalExternalWorkflowExecutionInitiatedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe SignalExternalWorkflowExecutionInitiatedEventAttributes) +historyEvent_signalExternalWorkflowExecutionInitiatedEventAttributes = Lens.lens (\HistoryEvent' {signalExternalWorkflowExecutionInitiatedEventAttributes} -> signalExternalWorkflowExecutionInitiatedEventAttributes) (\s@HistoryEvent' {} a -> s {signalExternalWorkflowExecutionInitiatedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @StartChildWorkflowExecutionFailed@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +historyEvent_startChildWorkflowExecutionFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe StartChildWorkflowExecutionFailedEventAttributes) +historyEvent_startChildWorkflowExecutionFailedEventAttributes = Lens.lens (\HistoryEvent' {startChildWorkflowExecutionFailedEventAttributes} -> startChildWorkflowExecutionFailedEventAttributes) (\s@HistoryEvent' {} a -> s {startChildWorkflowExecutionFailedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @StartChildWorkflowExecutionInitiated@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +historyEvent_startChildWorkflowExecutionInitiatedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe StartChildWorkflowExecutionInitiatedEventAttributes) +historyEvent_startChildWorkflowExecutionInitiatedEventAttributes = Lens.lens (\HistoryEvent' {startChildWorkflowExecutionInitiatedEventAttributes} -> startChildWorkflowExecutionInitiatedEventAttributes) (\s@HistoryEvent' {} a -> s {startChildWorkflowExecutionInitiatedEventAttributes = a} :: HistoryEvent) + +-- | Provides the details of the @StartLambdaFunctionFailed@ event. It isn\'t +-- set for other event types. +historyEvent_startLambdaFunctionFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe StartLambdaFunctionFailedEventAttributes) +historyEvent_startLambdaFunctionFailedEventAttributes = Lens.lens (\HistoryEvent' {startLambdaFunctionFailedEventAttributes} -> startLambdaFunctionFailedEventAttributes) (\s@HistoryEvent' {} a -> s {startLambdaFunctionFailedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @StartTimerFailed@ then this member is set and +-- provides detailed information about the event. It isn\'t set for other +-- event types. +historyEvent_startTimerFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe StartTimerFailedEventAttributes) +historyEvent_startTimerFailedEventAttributes = Lens.lens (\HistoryEvent' {startTimerFailedEventAttributes} -> startTimerFailedEventAttributes) (\s@HistoryEvent' {} a -> s {startTimerFailedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @TimerCanceled@ then this member is set and +-- provides detailed information about the event. It isn\'t set for other +-- event types. +historyEvent_timerCanceledEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe TimerCanceledEventAttributes) +historyEvent_timerCanceledEventAttributes = Lens.lens (\HistoryEvent' {timerCanceledEventAttributes} -> timerCanceledEventAttributes) (\s@HistoryEvent' {} a -> s {timerCanceledEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @TimerFired@ then this member is set and +-- provides detailed information about the event. It isn\'t set for other +-- event types. +historyEvent_timerFiredEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe TimerFiredEventAttributes) +historyEvent_timerFiredEventAttributes = Lens.lens (\HistoryEvent' {timerFiredEventAttributes} -> timerFiredEventAttributes) (\s@HistoryEvent' {} a -> s {timerFiredEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @TimerStarted@ then this member is set and +-- provides detailed information about the event. It isn\'t set for other +-- event types. +historyEvent_timerStartedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe TimerStartedEventAttributes) +historyEvent_timerStartedEventAttributes = Lens.lens (\HistoryEvent' {timerStartedEventAttributes} -> timerStartedEventAttributes) (\s@HistoryEvent' {} a -> s {timerStartedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @WorkflowExecutionCancelRequested@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +historyEvent_workflowExecutionCancelRequestedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe WorkflowExecutionCancelRequestedEventAttributes) +historyEvent_workflowExecutionCancelRequestedEventAttributes = Lens.lens (\HistoryEvent' {workflowExecutionCancelRequestedEventAttributes} -> workflowExecutionCancelRequestedEventAttributes) (\s@HistoryEvent' {} a -> s {workflowExecutionCancelRequestedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @WorkflowExecutionCanceled@ then this member is +-- set and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_workflowExecutionCanceledEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe WorkflowExecutionCanceledEventAttributes) +historyEvent_workflowExecutionCanceledEventAttributes = Lens.lens (\HistoryEvent' {workflowExecutionCanceledEventAttributes} -> workflowExecutionCanceledEventAttributes) (\s@HistoryEvent' {} a -> s {workflowExecutionCanceledEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @WorkflowExecutionCompleted@ then this member is +-- set and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_workflowExecutionCompletedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe WorkflowExecutionCompletedEventAttributes) +historyEvent_workflowExecutionCompletedEventAttributes = Lens.lens (\HistoryEvent' {workflowExecutionCompletedEventAttributes} -> workflowExecutionCompletedEventAttributes) (\s@HistoryEvent' {} a -> s {workflowExecutionCompletedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @WorkflowExecutionContinuedAsNew@ then this +-- member is set and provides detailed information about the event. It +-- isn\'t set for other event types. +historyEvent_workflowExecutionContinuedAsNewEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe WorkflowExecutionContinuedAsNewEventAttributes) +historyEvent_workflowExecutionContinuedAsNewEventAttributes = Lens.lens (\HistoryEvent' {workflowExecutionContinuedAsNewEventAttributes} -> workflowExecutionContinuedAsNewEventAttributes) (\s@HistoryEvent' {} a -> s {workflowExecutionContinuedAsNewEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @WorkflowExecutionFailed@ then this member is +-- set and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_workflowExecutionFailedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe WorkflowExecutionFailedEventAttributes) +historyEvent_workflowExecutionFailedEventAttributes = Lens.lens (\HistoryEvent' {workflowExecutionFailedEventAttributes} -> workflowExecutionFailedEventAttributes) (\s@HistoryEvent' {} a -> s {workflowExecutionFailedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @WorkflowExecutionSignaled@ then this member is +-- set and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_workflowExecutionSignaledEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe WorkflowExecutionSignaledEventAttributes) +historyEvent_workflowExecutionSignaledEventAttributes = Lens.lens (\HistoryEvent' {workflowExecutionSignaledEventAttributes} -> workflowExecutionSignaledEventAttributes) (\s@HistoryEvent' {} a -> s {workflowExecutionSignaledEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @WorkflowExecutionStarted@ then this member is +-- set and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_workflowExecutionStartedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe WorkflowExecutionStartedEventAttributes) +historyEvent_workflowExecutionStartedEventAttributes = Lens.lens (\HistoryEvent' {workflowExecutionStartedEventAttributes} -> workflowExecutionStartedEventAttributes) (\s@HistoryEvent' {} a -> s {workflowExecutionStartedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @WorkflowExecutionTerminated@ then this member +-- is set and provides detailed information about the event. It isn\'t set +-- for other event types. +historyEvent_workflowExecutionTerminatedEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe WorkflowExecutionTerminatedEventAttributes) +historyEvent_workflowExecutionTerminatedEventAttributes = Lens.lens (\HistoryEvent' {workflowExecutionTerminatedEventAttributes} -> workflowExecutionTerminatedEventAttributes) (\s@HistoryEvent' {} a -> s {workflowExecutionTerminatedEventAttributes = a} :: HistoryEvent) + +-- | If the event is of type @WorkflowExecutionTimedOut@ then this member is +-- set and provides detailed information about the event. It isn\'t set for +-- other event types. +historyEvent_workflowExecutionTimedOutEventAttributes :: Lens.Lens' HistoryEvent (Prelude.Maybe WorkflowExecutionTimedOutEventAttributes) +historyEvent_workflowExecutionTimedOutEventAttributes = Lens.lens (\HistoryEvent' {workflowExecutionTimedOutEventAttributes} -> workflowExecutionTimedOutEventAttributes) (\s@HistoryEvent' {} a -> s {workflowExecutionTimedOutEventAttributes = a} :: HistoryEvent) + +-- | The date and time when the event occurred. +historyEvent_eventTimestamp :: Lens.Lens' HistoryEvent Prelude.UTCTime +historyEvent_eventTimestamp = Lens.lens (\HistoryEvent' {eventTimestamp} -> eventTimestamp) (\s@HistoryEvent' {} a -> s {eventTimestamp = a} :: HistoryEvent) Prelude.. Data._Time + +-- | The type of the history event. +historyEvent_eventType :: Lens.Lens' HistoryEvent EventType +historyEvent_eventType = Lens.lens (\HistoryEvent' {eventType} -> eventType) (\s@HistoryEvent' {} a -> s {eventType = a} :: HistoryEvent) + +-- | The system generated ID of the event. This ID uniquely identifies the +-- event with in the workflow execution history. +historyEvent_eventId :: Lens.Lens' HistoryEvent Prelude.Integer +historyEvent_eventId = Lens.lens (\HistoryEvent' {eventId} -> eventId) (\s@HistoryEvent' {} a -> s {eventId = a} :: HistoryEvent) + +instance Data.FromJSON HistoryEvent where + parseJSON = + Data.withObject + "HistoryEvent" + ( \x -> + HistoryEvent' + Prelude.<$> ( x + Data..:? "activityTaskCancelRequestedEventAttributes" + ) + Prelude.<*> (x Data..:? "activityTaskCanceledEventAttributes") + Prelude.<*> (x Data..:? "activityTaskCompletedEventAttributes") + Prelude.<*> (x Data..:? "activityTaskFailedEventAttributes") + Prelude.<*> (x Data..:? "activityTaskScheduledEventAttributes") + Prelude.<*> (x Data..:? "activityTaskStartedEventAttributes") + Prelude.<*> (x Data..:? "activityTaskTimedOutEventAttributes") + Prelude.<*> (x Data..:? "cancelTimerFailedEventAttributes") + Prelude.<*> ( x + Data..:? "cancelWorkflowExecutionFailedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "childWorkflowExecutionCanceledEventAttributes" + ) + Prelude.<*> ( x + Data..:? "childWorkflowExecutionCompletedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "childWorkflowExecutionFailedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "childWorkflowExecutionStartedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "childWorkflowExecutionTerminatedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "childWorkflowExecutionTimedOutEventAttributes" + ) + Prelude.<*> ( x + Data..:? "completeWorkflowExecutionFailedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "continueAsNewWorkflowExecutionFailedEventAttributes" + ) + Prelude.<*> (x Data..:? "decisionTaskCompletedEventAttributes") + Prelude.<*> (x Data..:? "decisionTaskScheduledEventAttributes") + Prelude.<*> (x Data..:? "decisionTaskStartedEventAttributes") + Prelude.<*> (x Data..:? "decisionTaskTimedOutEventAttributes") + Prelude.<*> ( x + Data..:? "externalWorkflowExecutionCancelRequestedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "externalWorkflowExecutionSignaledEventAttributes" + ) + Prelude.<*> ( x + Data..:? "failWorkflowExecutionFailedEventAttributes" + ) + Prelude.<*> (x Data..:? "lambdaFunctionCompletedEventAttributes") + Prelude.<*> (x Data..:? "lambdaFunctionFailedEventAttributes") + Prelude.<*> (x Data..:? "lambdaFunctionScheduledEventAttributes") + Prelude.<*> (x Data..:? "lambdaFunctionStartedEventAttributes") + Prelude.<*> (x Data..:? "lambdaFunctionTimedOutEventAttributes") + Prelude.<*> (x Data..:? "markerRecordedEventAttributes") + Prelude.<*> (x Data..:? "recordMarkerFailedEventAttributes") + Prelude.<*> ( x + Data..:? "requestCancelActivityTaskFailedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "requestCancelExternalWorkflowExecutionFailedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "requestCancelExternalWorkflowExecutionInitiatedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "scheduleActivityTaskFailedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "scheduleLambdaFunctionFailedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "signalExternalWorkflowExecutionFailedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "signalExternalWorkflowExecutionInitiatedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "startChildWorkflowExecutionFailedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "startChildWorkflowExecutionInitiatedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "startLambdaFunctionFailedEventAttributes" + ) + Prelude.<*> (x Data..:? "startTimerFailedEventAttributes") + Prelude.<*> (x Data..:? "timerCanceledEventAttributes") + Prelude.<*> (x Data..:? "timerFiredEventAttributes") + Prelude.<*> (x Data..:? "timerStartedEventAttributes") + Prelude.<*> ( x + Data..:? "workflowExecutionCancelRequestedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "workflowExecutionCanceledEventAttributes" + ) + Prelude.<*> ( x + Data..:? "workflowExecutionCompletedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "workflowExecutionContinuedAsNewEventAttributes" + ) + Prelude.<*> (x Data..:? "workflowExecutionFailedEventAttributes") + Prelude.<*> ( x + Data..:? "workflowExecutionSignaledEventAttributes" + ) + Prelude.<*> ( x + Data..:? "workflowExecutionStartedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "workflowExecutionTerminatedEventAttributes" + ) + Prelude.<*> ( x + Data..:? "workflowExecutionTimedOutEventAttributes" + ) + Prelude.<*> (x Data..: "eventTimestamp") + Prelude.<*> (x Data..: "eventType") + Prelude.<*> (x Data..: "eventId") + ) + +instance Prelude.Hashable HistoryEvent where + hashWithSalt _salt HistoryEvent' {..} = + _salt + `Prelude.hashWithSalt` activityTaskCancelRequestedEventAttributes + `Prelude.hashWithSalt` activityTaskCanceledEventAttributes + `Prelude.hashWithSalt` activityTaskCompletedEventAttributes + `Prelude.hashWithSalt` activityTaskFailedEventAttributes + `Prelude.hashWithSalt` activityTaskScheduledEventAttributes + `Prelude.hashWithSalt` activityTaskStartedEventAttributes + `Prelude.hashWithSalt` activityTaskTimedOutEventAttributes + `Prelude.hashWithSalt` cancelTimerFailedEventAttributes + `Prelude.hashWithSalt` cancelWorkflowExecutionFailedEventAttributes + `Prelude.hashWithSalt` childWorkflowExecutionCanceledEventAttributes + `Prelude.hashWithSalt` childWorkflowExecutionCompletedEventAttributes + `Prelude.hashWithSalt` childWorkflowExecutionFailedEventAttributes + `Prelude.hashWithSalt` childWorkflowExecutionStartedEventAttributes + `Prelude.hashWithSalt` childWorkflowExecutionTerminatedEventAttributes + `Prelude.hashWithSalt` childWorkflowExecutionTimedOutEventAttributes + `Prelude.hashWithSalt` completeWorkflowExecutionFailedEventAttributes + `Prelude.hashWithSalt` continueAsNewWorkflowExecutionFailedEventAttributes + `Prelude.hashWithSalt` decisionTaskCompletedEventAttributes + `Prelude.hashWithSalt` decisionTaskScheduledEventAttributes + `Prelude.hashWithSalt` decisionTaskStartedEventAttributes + `Prelude.hashWithSalt` decisionTaskTimedOutEventAttributes + `Prelude.hashWithSalt` externalWorkflowExecutionCancelRequestedEventAttributes + `Prelude.hashWithSalt` externalWorkflowExecutionSignaledEventAttributes + `Prelude.hashWithSalt` failWorkflowExecutionFailedEventAttributes + `Prelude.hashWithSalt` lambdaFunctionCompletedEventAttributes + `Prelude.hashWithSalt` lambdaFunctionFailedEventAttributes + `Prelude.hashWithSalt` lambdaFunctionScheduledEventAttributes + `Prelude.hashWithSalt` lambdaFunctionStartedEventAttributes + `Prelude.hashWithSalt` lambdaFunctionTimedOutEventAttributes + `Prelude.hashWithSalt` markerRecordedEventAttributes + `Prelude.hashWithSalt` recordMarkerFailedEventAttributes + `Prelude.hashWithSalt` requestCancelActivityTaskFailedEventAttributes + `Prelude.hashWithSalt` requestCancelExternalWorkflowExecutionFailedEventAttributes + `Prelude.hashWithSalt` requestCancelExternalWorkflowExecutionInitiatedEventAttributes + `Prelude.hashWithSalt` scheduleActivityTaskFailedEventAttributes + `Prelude.hashWithSalt` scheduleLambdaFunctionFailedEventAttributes + `Prelude.hashWithSalt` signalExternalWorkflowExecutionFailedEventAttributes + `Prelude.hashWithSalt` signalExternalWorkflowExecutionInitiatedEventAttributes + `Prelude.hashWithSalt` startChildWorkflowExecutionFailedEventAttributes + `Prelude.hashWithSalt` startChildWorkflowExecutionInitiatedEventAttributes + `Prelude.hashWithSalt` startLambdaFunctionFailedEventAttributes + `Prelude.hashWithSalt` startTimerFailedEventAttributes + `Prelude.hashWithSalt` timerCanceledEventAttributes + `Prelude.hashWithSalt` timerFiredEventAttributes + `Prelude.hashWithSalt` timerStartedEventAttributes + `Prelude.hashWithSalt` workflowExecutionCancelRequestedEventAttributes + `Prelude.hashWithSalt` workflowExecutionCanceledEventAttributes + `Prelude.hashWithSalt` workflowExecutionCompletedEventAttributes + `Prelude.hashWithSalt` workflowExecutionContinuedAsNewEventAttributes + `Prelude.hashWithSalt` workflowExecutionFailedEventAttributes + `Prelude.hashWithSalt` workflowExecutionSignaledEventAttributes + `Prelude.hashWithSalt` workflowExecutionStartedEventAttributes + `Prelude.hashWithSalt` workflowExecutionTerminatedEventAttributes + `Prelude.hashWithSalt` workflowExecutionTimedOutEventAttributes + `Prelude.hashWithSalt` eventTimestamp + `Prelude.hashWithSalt` eventType + `Prelude.hashWithSalt` eventId + +instance Prelude.NFData HistoryEvent where + rnf HistoryEvent' {..} = + Prelude.rnf + activityTaskCancelRequestedEventAttributes + `Prelude.seq` Prelude.rnf activityTaskCanceledEventAttributes + `Prelude.seq` Prelude.rnf activityTaskCompletedEventAttributes + `Prelude.seq` Prelude.rnf activityTaskFailedEventAttributes + `Prelude.seq` Prelude.rnf activityTaskScheduledEventAttributes + `Prelude.seq` Prelude.rnf activityTaskStartedEventAttributes + `Prelude.seq` Prelude.rnf activityTaskTimedOutEventAttributes + `Prelude.seq` Prelude.rnf cancelTimerFailedEventAttributes + `Prelude.seq` Prelude.rnf + cancelWorkflowExecutionFailedEventAttributes + `Prelude.seq` Prelude.rnf + childWorkflowExecutionCanceledEventAttributes + `Prelude.seq` Prelude.rnf + childWorkflowExecutionCompletedEventAttributes + `Prelude.seq` Prelude.rnf + childWorkflowExecutionFailedEventAttributes + `Prelude.seq` Prelude.rnf + childWorkflowExecutionStartedEventAttributes + `Prelude.seq` Prelude.rnf + childWorkflowExecutionTerminatedEventAttributes + `Prelude.seq` Prelude.rnf + childWorkflowExecutionTimedOutEventAttributes + `Prelude.seq` Prelude.rnf + completeWorkflowExecutionFailedEventAttributes + `Prelude.seq` Prelude.rnf + continueAsNewWorkflowExecutionFailedEventAttributes + `Prelude.seq` Prelude.rnf + decisionTaskCompletedEventAttributes + `Prelude.seq` Prelude.rnf + decisionTaskScheduledEventAttributes + `Prelude.seq` Prelude.rnf + decisionTaskStartedEventAttributes + `Prelude.seq` Prelude.rnf + decisionTaskTimedOutEventAttributes + `Prelude.seq` Prelude.rnf + externalWorkflowExecutionCancelRequestedEventAttributes + `Prelude.seq` Prelude.rnf + externalWorkflowExecutionSignaledEventAttributes + `Prelude.seq` Prelude.rnf + failWorkflowExecutionFailedEventAttributes + `Prelude.seq` Prelude.rnf + lambdaFunctionCompletedEventAttributes + `Prelude.seq` Prelude.rnf + lambdaFunctionFailedEventAttributes + `Prelude.seq` Prelude.rnf + lambdaFunctionScheduledEventAttributes + `Prelude.seq` Prelude.rnf + lambdaFunctionStartedEventAttributes + `Prelude.seq` Prelude.rnf + lambdaFunctionTimedOutEventAttributes + `Prelude.seq` Prelude.rnf + markerRecordedEventAttributes + `Prelude.seq` Prelude.rnf + recordMarkerFailedEventAttributes + `Prelude.seq` Prelude.rnf + requestCancelActivityTaskFailedEventAttributes + `Prelude.seq` Prelude.rnf + requestCancelExternalWorkflowExecutionFailedEventAttributes + `Prelude.seq` Prelude.rnf + requestCancelExternalWorkflowExecutionInitiatedEventAttributes + `Prelude.seq` Prelude.rnf + scheduleActivityTaskFailedEventAttributes + `Prelude.seq` Prelude.rnf + scheduleLambdaFunctionFailedEventAttributes + `Prelude.seq` Prelude.rnf + signalExternalWorkflowExecutionFailedEventAttributes + `Prelude.seq` Prelude.rnf + signalExternalWorkflowExecutionInitiatedEventAttributes + `Prelude.seq` Prelude.rnf + startChildWorkflowExecutionFailedEventAttributes + `Prelude.seq` Prelude.rnf + startChildWorkflowExecutionInitiatedEventAttributes + `Prelude.seq` Prelude.rnf + startLambdaFunctionFailedEventAttributes + `Prelude.seq` Prelude.rnf + startTimerFailedEventAttributes + `Prelude.seq` Prelude.rnf + timerCanceledEventAttributes + `Prelude.seq` Prelude.rnf + timerFiredEventAttributes + `Prelude.seq` Prelude.rnf + timerStartedEventAttributes + `Prelude.seq` Prelude.rnf + workflowExecutionCancelRequestedEventAttributes + `Prelude.seq` Prelude.rnf + workflowExecutionCanceledEventAttributes + `Prelude.seq` Prelude.rnf + workflowExecutionCompletedEventAttributes + `Prelude.seq` Prelude.rnf + workflowExecutionContinuedAsNewEventAttributes + `Prelude.seq` Prelude.rnf + workflowExecutionFailedEventAttributes + `Prelude.seq` Prelude.rnf + workflowExecutionSignaledEventAttributes + `Prelude.seq` Prelude.rnf + workflowExecutionStartedEventAttributes + `Prelude.seq` Prelude.rnf + workflowExecutionTerminatedEventAttributes + `Prelude.seq` Prelude.rnf + workflowExecutionTimedOutEventAttributes + `Prelude.seq` Prelude.rnf + eventTimestamp + `Prelude.seq` Prelude.rnf + eventType + `Prelude.seq` Prelude.rnf + eventId diff --git a/gen/Amazonka/SWF/Types/LambdaFunctionCompletedEventAttributes.hs b/gen/Amazonka/SWF/Types/LambdaFunctionCompletedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/LambdaFunctionCompletedEventAttributes.hs @@ -0,0 +1,128 @@ +{-# 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.SWF.Types.LambdaFunctionCompletedEventAttributes +-- 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.SWF.Types.LambdaFunctionCompletedEventAttributes 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 + +-- | Provides the details of the @LambdaFunctionCompleted@ event. It isn\'t +-- set for other event types. +-- +-- /See:/ 'newLambdaFunctionCompletedEventAttributes' smart constructor. +data LambdaFunctionCompletedEventAttributes = LambdaFunctionCompletedEventAttributes' + { -- | The results of the Lambda task. + result :: Prelude.Maybe Prelude.Text, + -- | The ID of the @LambdaFunctionScheduled@ event that was recorded when + -- this Lambda task was scheduled. To help diagnose issues, use this + -- information to trace back the chain of events leading up to this event. + scheduledEventId :: Prelude.Integer, + -- | The ID of the @LambdaFunctionStarted@ event recorded when this activity + -- task started. To help diagnose issues, use this information to trace + -- back the chain of events leading up to this event. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'LambdaFunctionCompletedEventAttributes' 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: +-- +-- 'result', 'lambdaFunctionCompletedEventAttributes_result' - The results of the Lambda task. +-- +-- 'scheduledEventId', 'lambdaFunctionCompletedEventAttributes_scheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when +-- this Lambda task was scheduled. To help diagnose issues, use this +-- information to trace back the chain of events leading up to this event. +-- +-- 'startedEventId', 'lambdaFunctionCompletedEventAttributes_startedEventId' - The ID of the @LambdaFunctionStarted@ event recorded when this activity +-- task started. To help diagnose issues, use this information to trace +-- back the chain of events leading up to this event. +newLambdaFunctionCompletedEventAttributes :: + -- | 'scheduledEventId' + Prelude.Integer -> + -- | 'startedEventId' + Prelude.Integer -> + LambdaFunctionCompletedEventAttributes +newLambdaFunctionCompletedEventAttributes + pScheduledEventId_ + pStartedEventId_ = + LambdaFunctionCompletedEventAttributes' + { result = + Prelude.Nothing, + scheduledEventId = + pScheduledEventId_, + startedEventId = pStartedEventId_ + } + +-- | The results of the Lambda task. +lambdaFunctionCompletedEventAttributes_result :: Lens.Lens' LambdaFunctionCompletedEventAttributes (Prelude.Maybe Prelude.Text) +lambdaFunctionCompletedEventAttributes_result = Lens.lens (\LambdaFunctionCompletedEventAttributes' {result} -> result) (\s@LambdaFunctionCompletedEventAttributes' {} a -> s {result = a} :: LambdaFunctionCompletedEventAttributes) + +-- | The ID of the @LambdaFunctionScheduled@ event that was recorded when +-- this Lambda task was scheduled. To help diagnose issues, use this +-- information to trace back the chain of events leading up to this event. +lambdaFunctionCompletedEventAttributes_scheduledEventId :: Lens.Lens' LambdaFunctionCompletedEventAttributes Prelude.Integer +lambdaFunctionCompletedEventAttributes_scheduledEventId = Lens.lens (\LambdaFunctionCompletedEventAttributes' {scheduledEventId} -> scheduledEventId) (\s@LambdaFunctionCompletedEventAttributes' {} a -> s {scheduledEventId = a} :: LambdaFunctionCompletedEventAttributes) + +-- | The ID of the @LambdaFunctionStarted@ event recorded when this activity +-- task started. To help diagnose issues, use this information to trace +-- back the chain of events leading up to this event. +lambdaFunctionCompletedEventAttributes_startedEventId :: Lens.Lens' LambdaFunctionCompletedEventAttributes Prelude.Integer +lambdaFunctionCompletedEventAttributes_startedEventId = Lens.lens (\LambdaFunctionCompletedEventAttributes' {startedEventId} -> startedEventId) (\s@LambdaFunctionCompletedEventAttributes' {} a -> s {startedEventId = a} :: LambdaFunctionCompletedEventAttributes) + +instance + Data.FromJSON + LambdaFunctionCompletedEventAttributes + where + parseJSON = + Data.withObject + "LambdaFunctionCompletedEventAttributes" + ( \x -> + LambdaFunctionCompletedEventAttributes' + Prelude.<$> (x Data..:? "result") + Prelude.<*> (x Data..: "scheduledEventId") + Prelude.<*> (x Data..: "startedEventId") + ) + +instance + Prelude.Hashable + LambdaFunctionCompletedEventAttributes + where + hashWithSalt + _salt + LambdaFunctionCompletedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` result + `Prelude.hashWithSalt` scheduledEventId + `Prelude.hashWithSalt` startedEventId + +instance + Prelude.NFData + LambdaFunctionCompletedEventAttributes + where + rnf LambdaFunctionCompletedEventAttributes' {..} = + Prelude.rnf result + `Prelude.seq` Prelude.rnf scheduledEventId + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/Types/LambdaFunctionFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/LambdaFunctionFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/LambdaFunctionFailedEventAttributes.hs @@ -0,0 +1,139 @@ +{-# 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.SWF.Types.LambdaFunctionFailedEventAttributes +-- 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.SWF.Types.LambdaFunctionFailedEventAttributes 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 + +-- | Provides the details of the @LambdaFunctionFailed@ event. It isn\'t set +-- for other event types. +-- +-- /See:/ 'newLambdaFunctionFailedEventAttributes' smart constructor. +data LambdaFunctionFailedEventAttributes = LambdaFunctionFailedEventAttributes' + { -- | The details of the failure. + details :: Prelude.Maybe Prelude.Text, + -- | The reason provided for the failure. + reason :: Prelude.Maybe Prelude.Text, + -- | The ID of the @LambdaFunctionScheduled@ event that was recorded when + -- this activity task was scheduled. To help diagnose issues, use this + -- information to trace back the chain of events leading up to this event. + scheduledEventId :: Prelude.Integer, + -- | The ID of the @LambdaFunctionStarted@ event recorded when this activity + -- task started. To help diagnose issues, use this information to trace + -- back the chain of events leading up to this event. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'LambdaFunctionFailedEventAttributes' 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: +-- +-- 'details', 'lambdaFunctionFailedEventAttributes_details' - The details of the failure. +-- +-- 'reason', 'lambdaFunctionFailedEventAttributes_reason' - The reason provided for the failure. +-- +-- 'scheduledEventId', 'lambdaFunctionFailedEventAttributes_scheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when +-- this activity task was scheduled. To help diagnose issues, use this +-- information to trace back the chain of events leading up to this event. +-- +-- 'startedEventId', 'lambdaFunctionFailedEventAttributes_startedEventId' - The ID of the @LambdaFunctionStarted@ event recorded when this activity +-- task started. To help diagnose issues, use this information to trace +-- back the chain of events leading up to this event. +newLambdaFunctionFailedEventAttributes :: + -- | 'scheduledEventId' + Prelude.Integer -> + -- | 'startedEventId' + Prelude.Integer -> + LambdaFunctionFailedEventAttributes +newLambdaFunctionFailedEventAttributes + pScheduledEventId_ + pStartedEventId_ = + LambdaFunctionFailedEventAttributes' + { details = + Prelude.Nothing, + reason = Prelude.Nothing, + scheduledEventId = pScheduledEventId_, + startedEventId = pStartedEventId_ + } + +-- | The details of the failure. +lambdaFunctionFailedEventAttributes_details :: Lens.Lens' LambdaFunctionFailedEventAttributes (Prelude.Maybe Prelude.Text) +lambdaFunctionFailedEventAttributes_details = Lens.lens (\LambdaFunctionFailedEventAttributes' {details} -> details) (\s@LambdaFunctionFailedEventAttributes' {} a -> s {details = a} :: LambdaFunctionFailedEventAttributes) + +-- | The reason provided for the failure. +lambdaFunctionFailedEventAttributes_reason :: Lens.Lens' LambdaFunctionFailedEventAttributes (Prelude.Maybe Prelude.Text) +lambdaFunctionFailedEventAttributes_reason = Lens.lens (\LambdaFunctionFailedEventAttributes' {reason} -> reason) (\s@LambdaFunctionFailedEventAttributes' {} a -> s {reason = a} :: LambdaFunctionFailedEventAttributes) + +-- | The ID of the @LambdaFunctionScheduled@ event that was recorded when +-- this activity task was scheduled. To help diagnose issues, use this +-- information to trace back the chain of events leading up to this event. +lambdaFunctionFailedEventAttributes_scheduledEventId :: Lens.Lens' LambdaFunctionFailedEventAttributes Prelude.Integer +lambdaFunctionFailedEventAttributes_scheduledEventId = Lens.lens (\LambdaFunctionFailedEventAttributes' {scheduledEventId} -> scheduledEventId) (\s@LambdaFunctionFailedEventAttributes' {} a -> s {scheduledEventId = a} :: LambdaFunctionFailedEventAttributes) + +-- | The ID of the @LambdaFunctionStarted@ event recorded when this activity +-- task started. To help diagnose issues, use this information to trace +-- back the chain of events leading up to this event. +lambdaFunctionFailedEventAttributes_startedEventId :: Lens.Lens' LambdaFunctionFailedEventAttributes Prelude.Integer +lambdaFunctionFailedEventAttributes_startedEventId = Lens.lens (\LambdaFunctionFailedEventAttributes' {startedEventId} -> startedEventId) (\s@LambdaFunctionFailedEventAttributes' {} a -> s {startedEventId = a} :: LambdaFunctionFailedEventAttributes) + +instance + Data.FromJSON + LambdaFunctionFailedEventAttributes + where + parseJSON = + Data.withObject + "LambdaFunctionFailedEventAttributes" + ( \x -> + LambdaFunctionFailedEventAttributes' + Prelude.<$> (x Data..:? "details") + Prelude.<*> (x Data..:? "reason") + Prelude.<*> (x Data..: "scheduledEventId") + Prelude.<*> (x Data..: "startedEventId") + ) + +instance + Prelude.Hashable + LambdaFunctionFailedEventAttributes + where + hashWithSalt + _salt + LambdaFunctionFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` reason + `Prelude.hashWithSalt` scheduledEventId + `Prelude.hashWithSalt` startedEventId + +instance + Prelude.NFData + LambdaFunctionFailedEventAttributes + where + rnf LambdaFunctionFailedEventAttributes' {..} = + Prelude.rnf details + `Prelude.seq` Prelude.rnf reason + `Prelude.seq` Prelude.rnf scheduledEventId + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/Types/LambdaFunctionScheduledEventAttributes.hs b/gen/Amazonka/SWF/Types/LambdaFunctionScheduledEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/LambdaFunctionScheduledEventAttributes.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.SWF.Types.LambdaFunctionScheduledEventAttributes +-- 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.SWF.Types.LambdaFunctionScheduledEventAttributes 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 + +-- | Provides the details of the @LambdaFunctionScheduled@ event. It isn\'t +-- set for other event types. +-- +-- /See:/ 'newLambdaFunctionScheduledEventAttributes' smart constructor. +data LambdaFunctionScheduledEventAttributes = LambdaFunctionScheduledEventAttributes' + { -- | Data attached to the event that the decider can use in subsequent + -- workflow tasks. This data isn\'t sent to the Lambda task. + control :: Prelude.Maybe Prelude.Text, + -- | The input provided to the Lambda task. + input :: Prelude.Maybe Prelude.Text, + -- | The maximum amount of time a worker can take to process the Lambda task. + startToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The unique ID of the Lambda task. + id :: Prelude.Text, + -- | The name of the Lambda function. + name :: Prelude.Text, + -- | The ID of the @LambdaFunctionCompleted@ event corresponding to the + -- decision that resulted in scheduling this activity task. To help + -- diagnose issues, use this information to trace back the chain of events + -- leading up to this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'LambdaFunctionScheduledEventAttributes' 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: +-- +-- 'control', 'lambdaFunctionScheduledEventAttributes_control' - Data attached to the event that the decider can use in subsequent +-- workflow tasks. This data isn\'t sent to the Lambda task. +-- +-- 'input', 'lambdaFunctionScheduledEventAttributes_input' - The input provided to the Lambda task. +-- +-- 'startToCloseTimeout', 'lambdaFunctionScheduledEventAttributes_startToCloseTimeout' - The maximum amount of time a worker can take to process the Lambda task. +-- +-- 'id', 'lambdaFunctionScheduledEventAttributes_id' - The unique ID of the Lambda task. +-- +-- 'name', 'lambdaFunctionScheduledEventAttributes_name' - The name of the Lambda function. +-- +-- 'decisionTaskCompletedEventId', 'lambdaFunctionScheduledEventAttributes_decisionTaskCompletedEventId' - The ID of the @LambdaFunctionCompleted@ event corresponding to the +-- decision that resulted in scheduling this activity task. To help +-- diagnose issues, use this information to trace back the chain of events +-- leading up to this event. +newLambdaFunctionScheduledEventAttributes :: + -- | 'id' + Prelude.Text -> + -- | 'name' + Prelude.Text -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + LambdaFunctionScheduledEventAttributes +newLambdaFunctionScheduledEventAttributes + pId_ + pName_ + pDecisionTaskCompletedEventId_ = + LambdaFunctionScheduledEventAttributes' + { control = + Prelude.Nothing, + input = Prelude.Nothing, + startToCloseTimeout = + Prelude.Nothing, + id = pId_, + name = pName_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | Data attached to the event that the decider can use in subsequent +-- workflow tasks. This data isn\'t sent to the Lambda task. +lambdaFunctionScheduledEventAttributes_control :: Lens.Lens' LambdaFunctionScheduledEventAttributes (Prelude.Maybe Prelude.Text) +lambdaFunctionScheduledEventAttributes_control = Lens.lens (\LambdaFunctionScheduledEventAttributes' {control} -> control) (\s@LambdaFunctionScheduledEventAttributes' {} a -> s {control = a} :: LambdaFunctionScheduledEventAttributes) + +-- | The input provided to the Lambda task. +lambdaFunctionScheduledEventAttributes_input :: Lens.Lens' LambdaFunctionScheduledEventAttributes (Prelude.Maybe Prelude.Text) +lambdaFunctionScheduledEventAttributes_input = Lens.lens (\LambdaFunctionScheduledEventAttributes' {input} -> input) (\s@LambdaFunctionScheduledEventAttributes' {} a -> s {input = a} :: LambdaFunctionScheduledEventAttributes) + +-- | The maximum amount of time a worker can take to process the Lambda task. +lambdaFunctionScheduledEventAttributes_startToCloseTimeout :: Lens.Lens' LambdaFunctionScheduledEventAttributes (Prelude.Maybe Prelude.Text) +lambdaFunctionScheduledEventAttributes_startToCloseTimeout = Lens.lens (\LambdaFunctionScheduledEventAttributes' {startToCloseTimeout} -> startToCloseTimeout) (\s@LambdaFunctionScheduledEventAttributes' {} a -> s {startToCloseTimeout = a} :: LambdaFunctionScheduledEventAttributes) + +-- | The unique ID of the Lambda task. +lambdaFunctionScheduledEventAttributes_id :: Lens.Lens' LambdaFunctionScheduledEventAttributes Prelude.Text +lambdaFunctionScheduledEventAttributes_id = Lens.lens (\LambdaFunctionScheduledEventAttributes' {id} -> id) (\s@LambdaFunctionScheduledEventAttributes' {} a -> s {id = a} :: LambdaFunctionScheduledEventAttributes) + +-- | The name of the Lambda function. +lambdaFunctionScheduledEventAttributes_name :: Lens.Lens' LambdaFunctionScheduledEventAttributes Prelude.Text +lambdaFunctionScheduledEventAttributes_name = Lens.lens (\LambdaFunctionScheduledEventAttributes' {name} -> name) (\s@LambdaFunctionScheduledEventAttributes' {} a -> s {name = a} :: LambdaFunctionScheduledEventAttributes) + +-- | The ID of the @LambdaFunctionCompleted@ event corresponding to the +-- decision that resulted in scheduling this activity task. To help +-- diagnose issues, use this information to trace back the chain of events +-- leading up to this event. +lambdaFunctionScheduledEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' LambdaFunctionScheduledEventAttributes Prelude.Integer +lambdaFunctionScheduledEventAttributes_decisionTaskCompletedEventId = Lens.lens (\LambdaFunctionScheduledEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@LambdaFunctionScheduledEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: LambdaFunctionScheduledEventAttributes) + +instance + Data.FromJSON + LambdaFunctionScheduledEventAttributes + where + parseJSON = + Data.withObject + "LambdaFunctionScheduledEventAttributes" + ( \x -> + LambdaFunctionScheduledEventAttributes' + Prelude.<$> (x Data..:? "control") + Prelude.<*> (x Data..:? "input") + Prelude.<*> (x Data..:? "startToCloseTimeout") + Prelude.<*> (x Data..: "id") + Prelude.<*> (x Data..: "name") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + LambdaFunctionScheduledEventAttributes + where + hashWithSalt + _salt + LambdaFunctionScheduledEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` control + `Prelude.hashWithSalt` input + `Prelude.hashWithSalt` startToCloseTimeout + `Prelude.hashWithSalt` id + `Prelude.hashWithSalt` name + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + LambdaFunctionScheduledEventAttributes + where + rnf LambdaFunctionScheduledEventAttributes' {..} = + Prelude.rnf control + `Prelude.seq` Prelude.rnf input + `Prelude.seq` Prelude.rnf startToCloseTimeout + `Prelude.seq` Prelude.rnf id + `Prelude.seq` Prelude.rnf name + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/LambdaFunctionStartedEventAttributes.hs b/gen/Amazonka/SWF/Types/LambdaFunctionStartedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/LambdaFunctionStartedEventAttributes.hs @@ -0,0 +1,93 @@ +{-# 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.SWF.Types.LambdaFunctionStartedEventAttributes +-- 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.SWF.Types.LambdaFunctionStartedEventAttributes 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 + +-- | Provides the details of the @LambdaFunctionStarted@ event. It isn\'t set +-- for other event types. +-- +-- /See:/ 'newLambdaFunctionStartedEventAttributes' smart constructor. +data LambdaFunctionStartedEventAttributes = LambdaFunctionStartedEventAttributes' + { -- | The ID of the @LambdaFunctionScheduled@ event that was recorded when + -- this activity task was scheduled. To help diagnose issues, use this + -- information to trace back the chain of events leading up to this event. + scheduledEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'LambdaFunctionStartedEventAttributes' 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: +-- +-- 'scheduledEventId', 'lambdaFunctionStartedEventAttributes_scheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when +-- this activity task was scheduled. To help diagnose issues, use this +-- information to trace back the chain of events leading up to this event. +newLambdaFunctionStartedEventAttributes :: + -- | 'scheduledEventId' + Prelude.Integer -> + LambdaFunctionStartedEventAttributes +newLambdaFunctionStartedEventAttributes + pScheduledEventId_ = + LambdaFunctionStartedEventAttributes' + { scheduledEventId = + pScheduledEventId_ + } + +-- | The ID of the @LambdaFunctionScheduled@ event that was recorded when +-- this activity task was scheduled. To help diagnose issues, use this +-- information to trace back the chain of events leading up to this event. +lambdaFunctionStartedEventAttributes_scheduledEventId :: Lens.Lens' LambdaFunctionStartedEventAttributes Prelude.Integer +lambdaFunctionStartedEventAttributes_scheduledEventId = Lens.lens (\LambdaFunctionStartedEventAttributes' {scheduledEventId} -> scheduledEventId) (\s@LambdaFunctionStartedEventAttributes' {} a -> s {scheduledEventId = a} :: LambdaFunctionStartedEventAttributes) + +instance + Data.FromJSON + LambdaFunctionStartedEventAttributes + where + parseJSON = + Data.withObject + "LambdaFunctionStartedEventAttributes" + ( \x -> + LambdaFunctionStartedEventAttributes' + Prelude.<$> (x Data..: "scheduledEventId") + ) + +instance + Prelude.Hashable + LambdaFunctionStartedEventAttributes + where + hashWithSalt + _salt + LambdaFunctionStartedEventAttributes' {..} = + _salt `Prelude.hashWithSalt` scheduledEventId + +instance + Prelude.NFData + LambdaFunctionStartedEventAttributes + where + rnf LambdaFunctionStartedEventAttributes' {..} = + Prelude.rnf scheduledEventId diff --git a/gen/Amazonka/SWF/Types/LambdaFunctionTimedOutEventAttributes.hs b/gen/Amazonka/SWF/Types/LambdaFunctionTimedOutEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/LambdaFunctionTimedOutEventAttributes.hs @@ -0,0 +1,128 @@ +{-# 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.SWF.Types.LambdaFunctionTimedOutEventAttributes +-- 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.SWF.Types.LambdaFunctionTimedOutEventAttributes 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 +import Amazonka.SWF.Types.LambdaFunctionTimeoutType + +-- | Provides details of the @LambdaFunctionTimedOut@ event. +-- +-- /See:/ 'newLambdaFunctionTimedOutEventAttributes' smart constructor. +data LambdaFunctionTimedOutEventAttributes = LambdaFunctionTimedOutEventAttributes' + { -- | The type of the timeout that caused this event. + timeoutType :: Prelude.Maybe LambdaFunctionTimeoutType, + -- | The ID of the @LambdaFunctionScheduled@ event that was recorded when + -- this activity task was scheduled. To help diagnose issues, use this + -- information to trace back the chain of events leading up to this event. + scheduledEventId :: Prelude.Integer, + -- | The ID of the @ActivityTaskStarted@ event that was recorded when this + -- activity task started. To help diagnose issues, use this information to + -- trace back the chain of events leading up to this event. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'LambdaFunctionTimedOutEventAttributes' 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: +-- +-- 'timeoutType', 'lambdaFunctionTimedOutEventAttributes_timeoutType' - The type of the timeout that caused this event. +-- +-- 'scheduledEventId', 'lambdaFunctionTimedOutEventAttributes_scheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when +-- this activity task was scheduled. To help diagnose issues, use this +-- information to trace back the chain of events leading up to this event. +-- +-- 'startedEventId', 'lambdaFunctionTimedOutEventAttributes_startedEventId' - The ID of the @ActivityTaskStarted@ event that was recorded when this +-- activity task started. To help diagnose issues, use this information to +-- trace back the chain of events leading up to this event. +newLambdaFunctionTimedOutEventAttributes :: + -- | 'scheduledEventId' + Prelude.Integer -> + -- | 'startedEventId' + Prelude.Integer -> + LambdaFunctionTimedOutEventAttributes +newLambdaFunctionTimedOutEventAttributes + pScheduledEventId_ + pStartedEventId_ = + LambdaFunctionTimedOutEventAttributes' + { timeoutType = + Prelude.Nothing, + scheduledEventId = + pScheduledEventId_, + startedEventId = pStartedEventId_ + } + +-- | The type of the timeout that caused this event. +lambdaFunctionTimedOutEventAttributes_timeoutType :: Lens.Lens' LambdaFunctionTimedOutEventAttributes (Prelude.Maybe LambdaFunctionTimeoutType) +lambdaFunctionTimedOutEventAttributes_timeoutType = Lens.lens (\LambdaFunctionTimedOutEventAttributes' {timeoutType} -> timeoutType) (\s@LambdaFunctionTimedOutEventAttributes' {} a -> s {timeoutType = a} :: LambdaFunctionTimedOutEventAttributes) + +-- | The ID of the @LambdaFunctionScheduled@ event that was recorded when +-- this activity task was scheduled. To help diagnose issues, use this +-- information to trace back the chain of events leading up to this event. +lambdaFunctionTimedOutEventAttributes_scheduledEventId :: Lens.Lens' LambdaFunctionTimedOutEventAttributes Prelude.Integer +lambdaFunctionTimedOutEventAttributes_scheduledEventId = Lens.lens (\LambdaFunctionTimedOutEventAttributes' {scheduledEventId} -> scheduledEventId) (\s@LambdaFunctionTimedOutEventAttributes' {} a -> s {scheduledEventId = a} :: LambdaFunctionTimedOutEventAttributes) + +-- | The ID of the @ActivityTaskStarted@ event that was recorded when this +-- activity task started. To help diagnose issues, use this information to +-- trace back the chain of events leading up to this event. +lambdaFunctionTimedOutEventAttributes_startedEventId :: Lens.Lens' LambdaFunctionTimedOutEventAttributes Prelude.Integer +lambdaFunctionTimedOutEventAttributes_startedEventId = Lens.lens (\LambdaFunctionTimedOutEventAttributes' {startedEventId} -> startedEventId) (\s@LambdaFunctionTimedOutEventAttributes' {} a -> s {startedEventId = a} :: LambdaFunctionTimedOutEventAttributes) + +instance + Data.FromJSON + LambdaFunctionTimedOutEventAttributes + where + parseJSON = + Data.withObject + "LambdaFunctionTimedOutEventAttributes" + ( \x -> + LambdaFunctionTimedOutEventAttributes' + Prelude.<$> (x Data..:? "timeoutType") + Prelude.<*> (x Data..: "scheduledEventId") + Prelude.<*> (x Data..: "startedEventId") + ) + +instance + Prelude.Hashable + LambdaFunctionTimedOutEventAttributes + where + hashWithSalt + _salt + LambdaFunctionTimedOutEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` timeoutType + `Prelude.hashWithSalt` scheduledEventId + `Prelude.hashWithSalt` startedEventId + +instance + Prelude.NFData + LambdaFunctionTimedOutEventAttributes + where + rnf LambdaFunctionTimedOutEventAttributes' {..} = + Prelude.rnf timeoutType + `Prelude.seq` Prelude.rnf scheduledEventId + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/Types/LambdaFunctionTimeoutType.hs b/gen/Amazonka/SWF/Types/LambdaFunctionTimeoutType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/LambdaFunctionTimeoutType.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.SWF.Types.LambdaFunctionTimeoutType +-- 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.SWF.Types.LambdaFunctionTimeoutType + ( LambdaFunctionTimeoutType + ( .., + LambdaFunctionTimeoutType_START_TO_CLOSE + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype LambdaFunctionTimeoutType = LambdaFunctionTimeoutType' + { fromLambdaFunctionTimeoutType :: + 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 LambdaFunctionTimeoutType_START_TO_CLOSE :: LambdaFunctionTimeoutType +pattern LambdaFunctionTimeoutType_START_TO_CLOSE = LambdaFunctionTimeoutType' "START_TO_CLOSE" + +{-# COMPLETE + LambdaFunctionTimeoutType_START_TO_CLOSE, + LambdaFunctionTimeoutType' + #-} diff --git a/gen/Amazonka/SWF/Types/MarkerRecordedEventAttributes.hs b/gen/Amazonka/SWF/Types/MarkerRecordedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/MarkerRecordedEventAttributes.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.SWF.Types.MarkerRecordedEventAttributes +-- 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.SWF.Types.MarkerRecordedEventAttributes 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 + +-- | Provides the details of the @MarkerRecorded@ event. +-- +-- /See:/ 'newMarkerRecordedEventAttributes' smart constructor. +data MarkerRecordedEventAttributes = MarkerRecordedEventAttributes' + { -- | The details of the marker. + details :: Prelude.Maybe Prelude.Text, + -- | The name of the marker. + markerName :: Prelude.Text, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @RecordMarker@ decision that + -- requested this marker. This information can be useful for diagnosing + -- problems by tracing back the chain of events leading up to this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'MarkerRecordedEventAttributes' 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: +-- +-- 'details', 'markerRecordedEventAttributes_details' - The details of the marker. +-- +-- 'markerName', 'markerRecordedEventAttributes_markerName' - The name of the marker. +-- +-- 'decisionTaskCompletedEventId', 'markerRecordedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @RecordMarker@ decision that +-- requested this marker. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +newMarkerRecordedEventAttributes :: + -- | 'markerName' + Prelude.Text -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + MarkerRecordedEventAttributes +newMarkerRecordedEventAttributes + pMarkerName_ + pDecisionTaskCompletedEventId_ = + MarkerRecordedEventAttributes' + { details = + Prelude.Nothing, + markerName = pMarkerName_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The details of the marker. +markerRecordedEventAttributes_details :: Lens.Lens' MarkerRecordedEventAttributes (Prelude.Maybe Prelude.Text) +markerRecordedEventAttributes_details = Lens.lens (\MarkerRecordedEventAttributes' {details} -> details) (\s@MarkerRecordedEventAttributes' {} a -> s {details = a} :: MarkerRecordedEventAttributes) + +-- | The name of the marker. +markerRecordedEventAttributes_markerName :: Lens.Lens' MarkerRecordedEventAttributes Prelude.Text +markerRecordedEventAttributes_markerName = Lens.lens (\MarkerRecordedEventAttributes' {markerName} -> markerName) (\s@MarkerRecordedEventAttributes' {} a -> s {markerName = a} :: MarkerRecordedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @RecordMarker@ decision that +-- requested this marker. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +markerRecordedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' MarkerRecordedEventAttributes Prelude.Integer +markerRecordedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\MarkerRecordedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@MarkerRecordedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: MarkerRecordedEventAttributes) + +instance Data.FromJSON MarkerRecordedEventAttributes where + parseJSON = + Data.withObject + "MarkerRecordedEventAttributes" + ( \x -> + MarkerRecordedEventAttributes' + Prelude.<$> (x Data..:? "details") + Prelude.<*> (x Data..: "markerName") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + MarkerRecordedEventAttributes + where + hashWithSalt _salt MarkerRecordedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` markerName + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance Prelude.NFData MarkerRecordedEventAttributes where + rnf MarkerRecordedEventAttributes' {..} = + Prelude.rnf details + `Prelude.seq` Prelude.rnf markerName + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/PendingTaskCount.hs b/gen/Amazonka/SWF/Types/PendingTaskCount.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/PendingTaskCount.hs @@ -0,0 +1,92 @@ +{-# 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.SWF.Types.PendingTaskCount +-- 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.SWF.Types.PendingTaskCount 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 the count of tasks in a task list. +-- +-- /See:/ 'newPendingTaskCount' smart constructor. +data PendingTaskCount = PendingTaskCount' + { -- | If set to true, indicates that the actual count was more than the + -- maximum supported by this API and the count returned is the truncated + -- value. + truncated :: Prelude.Maybe Prelude.Bool, + -- | The number of tasks in the task list. + count :: Prelude.Natural + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'PendingTaskCount' 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: +-- +-- 'truncated', 'pendingTaskCount_truncated' - If set to true, indicates that the actual count was more than the +-- maximum supported by this API and the count returned is the truncated +-- value. +-- +-- 'count', 'pendingTaskCount_count' - The number of tasks in the task list. +newPendingTaskCount :: + -- | 'count' + Prelude.Natural -> + PendingTaskCount +newPendingTaskCount pCount_ = + PendingTaskCount' + { truncated = Prelude.Nothing, + count = pCount_ + } + +-- | If set to true, indicates that the actual count was more than the +-- maximum supported by this API and the count returned is the truncated +-- value. +pendingTaskCount_truncated :: Lens.Lens' PendingTaskCount (Prelude.Maybe Prelude.Bool) +pendingTaskCount_truncated = Lens.lens (\PendingTaskCount' {truncated} -> truncated) (\s@PendingTaskCount' {} a -> s {truncated = a} :: PendingTaskCount) + +-- | The number of tasks in the task list. +pendingTaskCount_count :: Lens.Lens' PendingTaskCount Prelude.Natural +pendingTaskCount_count = Lens.lens (\PendingTaskCount' {count} -> count) (\s@PendingTaskCount' {} a -> s {count = a} :: PendingTaskCount) + +instance Data.FromJSON PendingTaskCount where + parseJSON = + Data.withObject + "PendingTaskCount" + ( \x -> + PendingTaskCount' + Prelude.<$> (x Data..:? "truncated") + Prelude.<*> (x Data..: "count") + ) + +instance Prelude.Hashable PendingTaskCount where + hashWithSalt _salt PendingTaskCount' {..} = + _salt + `Prelude.hashWithSalt` truncated + `Prelude.hashWithSalt` count + +instance Prelude.NFData PendingTaskCount where + rnf PendingTaskCount' {..} = + Prelude.rnf truncated + `Prelude.seq` Prelude.rnf count diff --git a/gen/Amazonka/SWF/Types/RecordMarkerDecisionAttributes.hs b/gen/Amazonka/SWF/Types/RecordMarkerDecisionAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/RecordMarkerDecisionAttributes.hs @@ -0,0 +1,114 @@ +{-# 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.SWF.Types.RecordMarkerDecisionAttributes +-- 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.SWF.Types.RecordMarkerDecisionAttributes 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 + +-- | Provides the details of the @RecordMarker@ decision. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this decision\'s access to Amazon +-- SWF resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- /See:/ 'newRecordMarkerDecisionAttributes' smart constructor. +data RecordMarkerDecisionAttributes = RecordMarkerDecisionAttributes' + { -- | The details of the marker. + details :: Prelude.Maybe Prelude.Text, + -- | The name of the marker. + markerName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RecordMarkerDecisionAttributes' 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: +-- +-- 'details', 'recordMarkerDecisionAttributes_details' - The details of the marker. +-- +-- 'markerName', 'recordMarkerDecisionAttributes_markerName' - The name of the marker. +newRecordMarkerDecisionAttributes :: + -- | 'markerName' + Prelude.Text -> + RecordMarkerDecisionAttributes +newRecordMarkerDecisionAttributes pMarkerName_ = + RecordMarkerDecisionAttributes' + { details = + Prelude.Nothing, + markerName = pMarkerName_ + } + +-- | The details of the marker. +recordMarkerDecisionAttributes_details :: Lens.Lens' RecordMarkerDecisionAttributes (Prelude.Maybe Prelude.Text) +recordMarkerDecisionAttributes_details = Lens.lens (\RecordMarkerDecisionAttributes' {details} -> details) (\s@RecordMarkerDecisionAttributes' {} a -> s {details = a} :: RecordMarkerDecisionAttributes) + +-- | The name of the marker. +recordMarkerDecisionAttributes_markerName :: Lens.Lens' RecordMarkerDecisionAttributes Prelude.Text +recordMarkerDecisionAttributes_markerName = Lens.lens (\RecordMarkerDecisionAttributes' {markerName} -> markerName) (\s@RecordMarkerDecisionAttributes' {} a -> s {markerName = a} :: RecordMarkerDecisionAttributes) + +instance + Prelude.Hashable + RecordMarkerDecisionAttributes + where + hashWithSalt + _salt + RecordMarkerDecisionAttributes' {..} = + _salt + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` markerName + +instance + Prelude.NFData + RecordMarkerDecisionAttributes + where + rnf RecordMarkerDecisionAttributes' {..} = + Prelude.rnf details + `Prelude.seq` Prelude.rnf markerName + +instance Data.ToJSON RecordMarkerDecisionAttributes where + toJSON RecordMarkerDecisionAttributes' {..} = + Data.object + ( Prelude.catMaybes + [ ("details" Data..=) Prelude.<$> details, + Prelude.Just ("markerName" Data..= markerName) + ] + ) diff --git a/gen/Amazonka/SWF/Types/RecordMarkerFailedCause.hs b/gen/Amazonka/SWF/Types/RecordMarkerFailedCause.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/RecordMarkerFailedCause.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.SWF.Types.RecordMarkerFailedCause +-- 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.SWF.Types.RecordMarkerFailedCause + ( RecordMarkerFailedCause + ( .., + RecordMarkerFailedCause_OPERATION_NOT_PERMITTED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype RecordMarkerFailedCause = RecordMarkerFailedCause' + { fromRecordMarkerFailedCause :: + 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 RecordMarkerFailedCause_OPERATION_NOT_PERMITTED :: RecordMarkerFailedCause +pattern RecordMarkerFailedCause_OPERATION_NOT_PERMITTED = RecordMarkerFailedCause' "OPERATION_NOT_PERMITTED" + +{-# COMPLETE + RecordMarkerFailedCause_OPERATION_NOT_PERMITTED, + RecordMarkerFailedCause' + #-} diff --git a/gen/Amazonka/SWF/Types/RecordMarkerFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/RecordMarkerFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/RecordMarkerFailedEventAttributes.hs @@ -0,0 +1,149 @@ +{-# 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.SWF.Types.RecordMarkerFailedEventAttributes +-- 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.SWF.Types.RecordMarkerFailedEventAttributes 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 +import Amazonka.SWF.Types.RecordMarkerFailedCause + +-- | Provides the details of the @RecordMarkerFailed@ event. +-- +-- /See:/ 'newRecordMarkerFailedEventAttributes' smart constructor. +data RecordMarkerFailedEventAttributes = RecordMarkerFailedEventAttributes' + { -- | The marker\'s name. + markerName :: Prelude.Text, + -- | The cause of the failure. This information is generated by the system + -- and can be useful for diagnostic purposes. + -- + -- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed + -- because it lacked sufficient permissions. For details and example IAM + -- policies, see + -- + -- in the /Amazon SWF Developer Guide/. + cause :: RecordMarkerFailedCause, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @RecordMarkerFailed@ decision for + -- this cancellation request. This information can be useful for diagnosing + -- problems by tracing back the chain of events leading up to this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RecordMarkerFailedEventAttributes' 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: +-- +-- 'markerName', 'recordMarkerFailedEventAttributes_markerName' - The marker\'s name. +-- +-- 'cause', 'recordMarkerFailedEventAttributes_cause' - The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'decisionTaskCompletedEventId', 'recordMarkerFailedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @RecordMarkerFailed@ decision for +-- this cancellation request. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +newRecordMarkerFailedEventAttributes :: + -- | 'markerName' + Prelude.Text -> + -- | 'cause' + RecordMarkerFailedCause -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + RecordMarkerFailedEventAttributes +newRecordMarkerFailedEventAttributes + pMarkerName_ + pCause_ + pDecisionTaskCompletedEventId_ = + RecordMarkerFailedEventAttributes' + { markerName = + pMarkerName_, + cause = pCause_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The marker\'s name. +recordMarkerFailedEventAttributes_markerName :: Lens.Lens' RecordMarkerFailedEventAttributes Prelude.Text +recordMarkerFailedEventAttributes_markerName = Lens.lens (\RecordMarkerFailedEventAttributes' {markerName} -> markerName) (\s@RecordMarkerFailedEventAttributes' {} a -> s {markerName = a} :: RecordMarkerFailedEventAttributes) + +-- | The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +recordMarkerFailedEventAttributes_cause :: Lens.Lens' RecordMarkerFailedEventAttributes RecordMarkerFailedCause +recordMarkerFailedEventAttributes_cause = Lens.lens (\RecordMarkerFailedEventAttributes' {cause} -> cause) (\s@RecordMarkerFailedEventAttributes' {} a -> s {cause = a} :: RecordMarkerFailedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @RecordMarkerFailed@ decision for +-- this cancellation request. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +recordMarkerFailedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' RecordMarkerFailedEventAttributes Prelude.Integer +recordMarkerFailedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\RecordMarkerFailedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@RecordMarkerFailedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: RecordMarkerFailedEventAttributes) + +instance + Data.FromJSON + RecordMarkerFailedEventAttributes + where + parseJSON = + Data.withObject + "RecordMarkerFailedEventAttributes" + ( \x -> + RecordMarkerFailedEventAttributes' + Prelude.<$> (x Data..: "markerName") + Prelude.<*> (x Data..: "cause") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + RecordMarkerFailedEventAttributes + where + hashWithSalt + _salt + RecordMarkerFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` markerName + `Prelude.hashWithSalt` cause + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + RecordMarkerFailedEventAttributes + where + rnf RecordMarkerFailedEventAttributes' {..} = + Prelude.rnf markerName + `Prelude.seq` Prelude.rnf cause + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/RegistrationStatus.hs b/gen/Amazonka/SWF/Types/RegistrationStatus.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/RegistrationStatus.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.SWF.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.SWF.Types.RegistrationStatus + ( RegistrationStatus + ( .., + RegistrationStatus_DEPRECATED, + RegistrationStatus_REGISTERED + ), + ) +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_DEPRECATED :: RegistrationStatus +pattern RegistrationStatus_DEPRECATED = RegistrationStatus' "DEPRECATED" + +pattern RegistrationStatus_REGISTERED :: RegistrationStatus +pattern RegistrationStatus_REGISTERED = RegistrationStatus' "REGISTERED" + +{-# COMPLETE + RegistrationStatus_DEPRECATED, + RegistrationStatus_REGISTERED, + RegistrationStatus' + #-} diff --git a/gen/Amazonka/SWF/Types/RequestCancelActivityTaskDecisionAttributes.hs b/gen/Amazonka/SWF/Types/RequestCancelActivityTaskDecisionAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/RequestCancelActivityTaskDecisionAttributes.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.SWF.Types.RequestCancelActivityTaskDecisionAttributes +-- 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.SWF.Types.RequestCancelActivityTaskDecisionAttributes 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 + +-- | Provides the details of the @RequestCancelActivityTask@ decision. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this decision\'s access to Amazon +-- SWF resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- /See:/ 'newRequestCancelActivityTaskDecisionAttributes' smart constructor. +data RequestCancelActivityTaskDecisionAttributes = RequestCancelActivityTaskDecisionAttributes' + { -- | The @activityId@ of the activity task to be canceled. + activityId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RequestCancelActivityTaskDecisionAttributes' 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: +-- +-- 'activityId', 'requestCancelActivityTaskDecisionAttributes_activityId' - The @activityId@ of the activity task to be canceled. +newRequestCancelActivityTaskDecisionAttributes :: + -- | 'activityId' + Prelude.Text -> + RequestCancelActivityTaskDecisionAttributes +newRequestCancelActivityTaskDecisionAttributes + pActivityId_ = + RequestCancelActivityTaskDecisionAttributes' + { activityId = + pActivityId_ + } + +-- | The @activityId@ of the activity task to be canceled. +requestCancelActivityTaskDecisionAttributes_activityId :: Lens.Lens' RequestCancelActivityTaskDecisionAttributes Prelude.Text +requestCancelActivityTaskDecisionAttributes_activityId = Lens.lens (\RequestCancelActivityTaskDecisionAttributes' {activityId} -> activityId) (\s@RequestCancelActivityTaskDecisionAttributes' {} a -> s {activityId = a} :: RequestCancelActivityTaskDecisionAttributes) + +instance + Prelude.Hashable + RequestCancelActivityTaskDecisionAttributes + where + hashWithSalt + _salt + RequestCancelActivityTaskDecisionAttributes' {..} = + _salt `Prelude.hashWithSalt` activityId + +instance + Prelude.NFData + RequestCancelActivityTaskDecisionAttributes + where + rnf RequestCancelActivityTaskDecisionAttributes' {..} = + Prelude.rnf activityId + +instance + Data.ToJSON + RequestCancelActivityTaskDecisionAttributes + where + toJSON + RequestCancelActivityTaskDecisionAttributes' {..} = + Data.object + ( Prelude.catMaybes + [Prelude.Just ("activityId" Data..= activityId)] + ) diff --git a/gen/Amazonka/SWF/Types/RequestCancelActivityTaskFailedCause.hs b/gen/Amazonka/SWF/Types/RequestCancelActivityTaskFailedCause.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/RequestCancelActivityTaskFailedCause.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.SWF.Types.RequestCancelActivityTaskFailedCause +-- 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.SWF.Types.RequestCancelActivityTaskFailedCause + ( RequestCancelActivityTaskFailedCause + ( .., + RequestCancelActivityTaskFailedCause_ACTIVITY_ID_UNKNOWN, + RequestCancelActivityTaskFailedCause_OPERATION_NOT_PERMITTED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype RequestCancelActivityTaskFailedCause = RequestCancelActivityTaskFailedCause' + { fromRequestCancelActivityTaskFailedCause :: + 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 RequestCancelActivityTaskFailedCause_ACTIVITY_ID_UNKNOWN :: RequestCancelActivityTaskFailedCause +pattern RequestCancelActivityTaskFailedCause_ACTIVITY_ID_UNKNOWN = RequestCancelActivityTaskFailedCause' "ACTIVITY_ID_UNKNOWN" + +pattern RequestCancelActivityTaskFailedCause_OPERATION_NOT_PERMITTED :: RequestCancelActivityTaskFailedCause +pattern RequestCancelActivityTaskFailedCause_OPERATION_NOT_PERMITTED = RequestCancelActivityTaskFailedCause' "OPERATION_NOT_PERMITTED" + +{-# COMPLETE + RequestCancelActivityTaskFailedCause_ACTIVITY_ID_UNKNOWN, + RequestCancelActivityTaskFailedCause_OPERATION_NOT_PERMITTED, + RequestCancelActivityTaskFailedCause' + #-} diff --git a/gen/Amazonka/SWF/Types/RequestCancelActivityTaskFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/RequestCancelActivityTaskFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/RequestCancelActivityTaskFailedEventAttributes.hs @@ -0,0 +1,156 @@ +{-# 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.SWF.Types.RequestCancelActivityTaskFailedEventAttributes +-- 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.SWF.Types.RequestCancelActivityTaskFailedEventAttributes 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 +import Amazonka.SWF.Types.RequestCancelActivityTaskFailedCause + +-- | Provides the details of the @RequestCancelActivityTaskFailed@ event. +-- +-- /See:/ 'newRequestCancelActivityTaskFailedEventAttributes' smart constructor. +data RequestCancelActivityTaskFailedEventAttributes = RequestCancelActivityTaskFailedEventAttributes' + { -- | The activityId provided in the @RequestCancelActivityTask@ decision that + -- failed. + activityId :: Prelude.Text, + -- | The cause of the failure. This information is generated by the system + -- and can be useful for diagnostic purposes. + -- + -- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed + -- because it lacked sufficient permissions. For details and example IAM + -- policies, see + -- + -- in the /Amazon SWF Developer Guide/. + cause :: RequestCancelActivityTaskFailedCause, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @RequestCancelActivityTask@ decision + -- for this cancellation request. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RequestCancelActivityTaskFailedEventAttributes' 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: +-- +-- 'activityId', 'requestCancelActivityTaskFailedEventAttributes_activityId' - The activityId provided in the @RequestCancelActivityTask@ decision that +-- failed. +-- +-- 'cause', 'requestCancelActivityTaskFailedEventAttributes_cause' - The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'decisionTaskCompletedEventId', 'requestCancelActivityTaskFailedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @RequestCancelActivityTask@ decision +-- for this cancellation request. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +newRequestCancelActivityTaskFailedEventAttributes :: + -- | 'activityId' + Prelude.Text -> + -- | 'cause' + RequestCancelActivityTaskFailedCause -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + RequestCancelActivityTaskFailedEventAttributes +newRequestCancelActivityTaskFailedEventAttributes + pActivityId_ + pCause_ + pDecisionTaskCompletedEventId_ = + RequestCancelActivityTaskFailedEventAttributes' + { activityId = + pActivityId_, + cause = pCause_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The activityId provided in the @RequestCancelActivityTask@ decision that +-- failed. +requestCancelActivityTaskFailedEventAttributes_activityId :: Lens.Lens' RequestCancelActivityTaskFailedEventAttributes Prelude.Text +requestCancelActivityTaskFailedEventAttributes_activityId = Lens.lens (\RequestCancelActivityTaskFailedEventAttributes' {activityId} -> activityId) (\s@RequestCancelActivityTaskFailedEventAttributes' {} a -> s {activityId = a} :: RequestCancelActivityTaskFailedEventAttributes) + +-- | The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +requestCancelActivityTaskFailedEventAttributes_cause :: Lens.Lens' RequestCancelActivityTaskFailedEventAttributes RequestCancelActivityTaskFailedCause +requestCancelActivityTaskFailedEventAttributes_cause = Lens.lens (\RequestCancelActivityTaskFailedEventAttributes' {cause} -> cause) (\s@RequestCancelActivityTaskFailedEventAttributes' {} a -> s {cause = a} :: RequestCancelActivityTaskFailedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @RequestCancelActivityTask@ decision +-- for this cancellation request. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +requestCancelActivityTaskFailedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' RequestCancelActivityTaskFailedEventAttributes Prelude.Integer +requestCancelActivityTaskFailedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\RequestCancelActivityTaskFailedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@RequestCancelActivityTaskFailedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: RequestCancelActivityTaskFailedEventAttributes) + +instance + Data.FromJSON + RequestCancelActivityTaskFailedEventAttributes + where + parseJSON = + Data.withObject + "RequestCancelActivityTaskFailedEventAttributes" + ( \x -> + RequestCancelActivityTaskFailedEventAttributes' + Prelude.<$> (x Data..: "activityId") + Prelude.<*> (x Data..: "cause") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + RequestCancelActivityTaskFailedEventAttributes + where + hashWithSalt + _salt + RequestCancelActivityTaskFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` activityId + `Prelude.hashWithSalt` cause + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + RequestCancelActivityTaskFailedEventAttributes + where + rnf + RequestCancelActivityTaskFailedEventAttributes' {..} = + Prelude.rnf activityId + `Prelude.seq` Prelude.rnf cause + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/RequestCancelExternalWorkflowExecutionDecisionAttributes.hs b/gen/Amazonka/SWF/Types/RequestCancelExternalWorkflowExecutionDecisionAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/RequestCancelExternalWorkflowExecutionDecisionAttributes.hs @@ -0,0 +1,138 @@ +{-# 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.SWF.Types.RequestCancelExternalWorkflowExecutionDecisionAttributes +-- 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.SWF.Types.RequestCancelExternalWorkflowExecutionDecisionAttributes 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 + +-- | Provides the details of the @RequestCancelExternalWorkflowExecution@ +-- decision. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this decision\'s access to Amazon +-- SWF resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- /See:/ 'newRequestCancelExternalWorkflowExecutionDecisionAttributes' smart constructor. +data RequestCancelExternalWorkflowExecutionDecisionAttributes = RequestCancelExternalWorkflowExecutionDecisionAttributes' + { -- | The data attached to the event that can be used by the decider in + -- subsequent workflow tasks. + control :: Prelude.Maybe Prelude.Text, + -- | The @runId@ of the external workflow execution to cancel. + runId :: Prelude.Maybe Prelude.Text, + -- | The @workflowId@ of the external workflow execution to cancel. + workflowId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RequestCancelExternalWorkflowExecutionDecisionAttributes' 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: +-- +-- 'control', 'requestCancelExternalWorkflowExecutionDecisionAttributes_control' - The data attached to the event that can be used by the decider in +-- subsequent workflow tasks. +-- +-- 'runId', 'requestCancelExternalWorkflowExecutionDecisionAttributes_runId' - The @runId@ of the external workflow execution to cancel. +-- +-- 'workflowId', 'requestCancelExternalWorkflowExecutionDecisionAttributes_workflowId' - The @workflowId@ of the external workflow execution to cancel. +newRequestCancelExternalWorkflowExecutionDecisionAttributes :: + -- | 'workflowId' + Prelude.Text -> + RequestCancelExternalWorkflowExecutionDecisionAttributes +newRequestCancelExternalWorkflowExecutionDecisionAttributes + pWorkflowId_ = + RequestCancelExternalWorkflowExecutionDecisionAttributes' + { control = + Prelude.Nothing, + runId = + Prelude.Nothing, + workflowId = + pWorkflowId_ + } + +-- | The data attached to the event that can be used by the decider in +-- subsequent workflow tasks. +requestCancelExternalWorkflowExecutionDecisionAttributes_control :: Lens.Lens' RequestCancelExternalWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +requestCancelExternalWorkflowExecutionDecisionAttributes_control = Lens.lens (\RequestCancelExternalWorkflowExecutionDecisionAttributes' {control} -> control) (\s@RequestCancelExternalWorkflowExecutionDecisionAttributes' {} a -> s {control = a} :: RequestCancelExternalWorkflowExecutionDecisionAttributes) + +-- | The @runId@ of the external workflow execution to cancel. +requestCancelExternalWorkflowExecutionDecisionAttributes_runId :: Lens.Lens' RequestCancelExternalWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +requestCancelExternalWorkflowExecutionDecisionAttributes_runId = Lens.lens (\RequestCancelExternalWorkflowExecutionDecisionAttributes' {runId} -> runId) (\s@RequestCancelExternalWorkflowExecutionDecisionAttributes' {} a -> s {runId = a} :: RequestCancelExternalWorkflowExecutionDecisionAttributes) + +-- | The @workflowId@ of the external workflow execution to cancel. +requestCancelExternalWorkflowExecutionDecisionAttributes_workflowId :: Lens.Lens' RequestCancelExternalWorkflowExecutionDecisionAttributes Prelude.Text +requestCancelExternalWorkflowExecutionDecisionAttributes_workflowId = Lens.lens (\RequestCancelExternalWorkflowExecutionDecisionAttributes' {workflowId} -> workflowId) (\s@RequestCancelExternalWorkflowExecutionDecisionAttributes' {} a -> s {workflowId = a} :: RequestCancelExternalWorkflowExecutionDecisionAttributes) + +instance + Prelude.Hashable + RequestCancelExternalWorkflowExecutionDecisionAttributes + where + hashWithSalt + _salt + RequestCancelExternalWorkflowExecutionDecisionAttributes' {..} = + _salt + `Prelude.hashWithSalt` control + `Prelude.hashWithSalt` runId + `Prelude.hashWithSalt` workflowId + +instance + Prelude.NFData + RequestCancelExternalWorkflowExecutionDecisionAttributes + where + rnf + RequestCancelExternalWorkflowExecutionDecisionAttributes' {..} = + Prelude.rnf control + `Prelude.seq` Prelude.rnf runId + `Prelude.seq` Prelude.rnf workflowId + +instance + Data.ToJSON + RequestCancelExternalWorkflowExecutionDecisionAttributes + where + toJSON + RequestCancelExternalWorkflowExecutionDecisionAttributes' {..} = + Data.object + ( Prelude.catMaybes + [ ("control" Data..=) Prelude.<$> control, + ("runId" Data..=) Prelude.<$> runId, + Prelude.Just ("workflowId" Data..= workflowId) + ] + ) diff --git a/gen/Amazonka/SWF/Types/RequestCancelExternalWorkflowExecutionFailedCause.hs b/gen/Amazonka/SWF/Types/RequestCancelExternalWorkflowExecutionFailedCause.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/RequestCancelExternalWorkflowExecutionFailedCause.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.SWF.Types.RequestCancelExternalWorkflowExecutionFailedCause +-- 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.SWF.Types.RequestCancelExternalWorkflowExecutionFailedCause + ( RequestCancelExternalWorkflowExecutionFailedCause + ( .., + RequestCancelExternalWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED, + RequestCancelExternalWorkflowExecutionFailedCause_REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION_RATE_EXCEEDED, + RequestCancelExternalWorkflowExecutionFailedCause_UNKNOWN_EXTERNAL_WORKFLOW_EXECUTION + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype RequestCancelExternalWorkflowExecutionFailedCause = RequestCancelExternalWorkflowExecutionFailedCause' + { fromRequestCancelExternalWorkflowExecutionFailedCause :: + 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 RequestCancelExternalWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED :: RequestCancelExternalWorkflowExecutionFailedCause +pattern RequestCancelExternalWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED = RequestCancelExternalWorkflowExecutionFailedCause' "OPERATION_NOT_PERMITTED" + +pattern RequestCancelExternalWorkflowExecutionFailedCause_REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION_RATE_EXCEEDED :: RequestCancelExternalWorkflowExecutionFailedCause +pattern RequestCancelExternalWorkflowExecutionFailedCause_REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION_RATE_EXCEEDED = RequestCancelExternalWorkflowExecutionFailedCause' "REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION_RATE_EXCEEDED" + +pattern RequestCancelExternalWorkflowExecutionFailedCause_UNKNOWN_EXTERNAL_WORKFLOW_EXECUTION :: RequestCancelExternalWorkflowExecutionFailedCause +pattern RequestCancelExternalWorkflowExecutionFailedCause_UNKNOWN_EXTERNAL_WORKFLOW_EXECUTION = RequestCancelExternalWorkflowExecutionFailedCause' "UNKNOWN_EXTERNAL_WORKFLOW_EXECUTION" + +{-# COMPLETE + RequestCancelExternalWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED, + RequestCancelExternalWorkflowExecutionFailedCause_REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION_RATE_EXCEEDED, + RequestCancelExternalWorkflowExecutionFailedCause_UNKNOWN_EXTERNAL_WORKFLOW_EXECUTION, + RequestCancelExternalWorkflowExecutionFailedCause' + #-} diff --git a/gen/Amazonka/SWF/Types/RequestCancelExternalWorkflowExecutionFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/RequestCancelExternalWorkflowExecutionFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/RequestCancelExternalWorkflowExecutionFailedEventAttributes.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.SWF.Types.RequestCancelExternalWorkflowExecutionFailedEventAttributes +-- 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.SWF.Types.RequestCancelExternalWorkflowExecutionFailedEventAttributes 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 +import Amazonka.SWF.Types.RequestCancelExternalWorkflowExecutionFailedCause + +-- | Provides the details of the +-- @RequestCancelExternalWorkflowExecutionFailed@ event. +-- +-- /See:/ 'newRequestCancelExternalWorkflowExecutionFailedEventAttributes' smart constructor. +data RequestCancelExternalWorkflowExecutionFailedEventAttributes = RequestCancelExternalWorkflowExecutionFailedEventAttributes' + { -- | The data attached to the event that the decider can use in subsequent + -- workflow tasks. This data isn\'t sent to the workflow execution. + control :: Prelude.Maybe Prelude.Text, + -- | The @runId@ of the external workflow execution. + runId :: Prelude.Maybe Prelude.Text, + -- | The @workflowId@ of the external workflow to which the cancel request + -- was to be delivered. + workflowId :: Prelude.Text, + -- | The cause of the failure. This information is generated by the system + -- and can be useful for diagnostic purposes. + -- + -- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed + -- because it lacked sufficient permissions. For details and example IAM + -- policies, see + -- + -- in the /Amazon SWF Developer Guide/. + cause :: RequestCancelExternalWorkflowExecutionFailedCause, + -- | The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event + -- corresponding to the @RequestCancelExternalWorkflowExecution@ decision + -- to cancel this external workflow execution. This information can be + -- useful for diagnosing problems by tracing back the chain of events + -- leading up to this event. + initiatedEventId :: Prelude.Integer, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the + -- @RequestCancelExternalWorkflowExecution@ decision for this cancellation + -- request. This information can be useful for diagnosing problems by + -- tracing back the chain of events leading up to this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RequestCancelExternalWorkflowExecutionFailedEventAttributes' 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: +-- +-- 'control', 'requestCancelExternalWorkflowExecutionFailedEventAttributes_control' - The data attached to the event that the decider can use in subsequent +-- workflow tasks. This data isn\'t sent to the workflow execution. +-- +-- 'runId', 'requestCancelExternalWorkflowExecutionFailedEventAttributes_runId' - The @runId@ of the external workflow execution. +-- +-- 'workflowId', 'requestCancelExternalWorkflowExecutionFailedEventAttributes_workflowId' - The @workflowId@ of the external workflow to which the cancel request +-- was to be delivered. +-- +-- 'cause', 'requestCancelExternalWorkflowExecutionFailedEventAttributes_cause' - The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'initiatedEventId', 'requestCancelExternalWorkflowExecutionFailedEventAttributes_initiatedEventId' - The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event +-- corresponding to the @RequestCancelExternalWorkflowExecution@ decision +-- to cancel this external workflow execution. This information can be +-- useful for diagnosing problems by tracing back the chain of events +-- leading up to this event. +-- +-- 'decisionTaskCompletedEventId', 'requestCancelExternalWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the +-- @RequestCancelExternalWorkflowExecution@ decision for this cancellation +-- request. This information can be useful for diagnosing problems by +-- tracing back the chain of events leading up to this event. +newRequestCancelExternalWorkflowExecutionFailedEventAttributes :: + -- | 'workflowId' + Prelude.Text -> + -- | 'cause' + RequestCancelExternalWorkflowExecutionFailedCause -> + -- | 'initiatedEventId' + Prelude.Integer -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + RequestCancelExternalWorkflowExecutionFailedEventAttributes +newRequestCancelExternalWorkflowExecutionFailedEventAttributes + pWorkflowId_ + pCause_ + pInitiatedEventId_ + pDecisionTaskCompletedEventId_ = + RequestCancelExternalWorkflowExecutionFailedEventAttributes' + { control = + Prelude.Nothing, + runId = + Prelude.Nothing, + workflowId = + pWorkflowId_, + cause = + pCause_, + initiatedEventId = + pInitiatedEventId_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The data attached to the event that the decider can use in subsequent +-- workflow tasks. This data isn\'t sent to the workflow execution. +requestCancelExternalWorkflowExecutionFailedEventAttributes_control :: Lens.Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes (Prelude.Maybe Prelude.Text) +requestCancelExternalWorkflowExecutionFailedEventAttributes_control = Lens.lens (\RequestCancelExternalWorkflowExecutionFailedEventAttributes' {control} -> control) (\s@RequestCancelExternalWorkflowExecutionFailedEventAttributes' {} a -> s {control = a} :: RequestCancelExternalWorkflowExecutionFailedEventAttributes) + +-- | The @runId@ of the external workflow execution. +requestCancelExternalWorkflowExecutionFailedEventAttributes_runId :: Lens.Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes (Prelude.Maybe Prelude.Text) +requestCancelExternalWorkflowExecutionFailedEventAttributes_runId = Lens.lens (\RequestCancelExternalWorkflowExecutionFailedEventAttributes' {runId} -> runId) (\s@RequestCancelExternalWorkflowExecutionFailedEventAttributes' {} a -> s {runId = a} :: RequestCancelExternalWorkflowExecutionFailedEventAttributes) + +-- | The @workflowId@ of the external workflow to which the cancel request +-- was to be delivered. +requestCancelExternalWorkflowExecutionFailedEventAttributes_workflowId :: Lens.Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes Prelude.Text +requestCancelExternalWorkflowExecutionFailedEventAttributes_workflowId = Lens.lens (\RequestCancelExternalWorkflowExecutionFailedEventAttributes' {workflowId} -> workflowId) (\s@RequestCancelExternalWorkflowExecutionFailedEventAttributes' {} a -> s {workflowId = a} :: RequestCancelExternalWorkflowExecutionFailedEventAttributes) + +-- | The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +requestCancelExternalWorkflowExecutionFailedEventAttributes_cause :: Lens.Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes RequestCancelExternalWorkflowExecutionFailedCause +requestCancelExternalWorkflowExecutionFailedEventAttributes_cause = Lens.lens (\RequestCancelExternalWorkflowExecutionFailedEventAttributes' {cause} -> cause) (\s@RequestCancelExternalWorkflowExecutionFailedEventAttributes' {} a -> s {cause = a} :: RequestCancelExternalWorkflowExecutionFailedEventAttributes) + +-- | The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event +-- corresponding to the @RequestCancelExternalWorkflowExecution@ decision +-- to cancel this external workflow execution. This information can be +-- useful for diagnosing problems by tracing back the chain of events +-- leading up to this event. +requestCancelExternalWorkflowExecutionFailedEventAttributes_initiatedEventId :: Lens.Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes Prelude.Integer +requestCancelExternalWorkflowExecutionFailedEventAttributes_initiatedEventId = Lens.lens (\RequestCancelExternalWorkflowExecutionFailedEventAttributes' {initiatedEventId} -> initiatedEventId) (\s@RequestCancelExternalWorkflowExecutionFailedEventAttributes' {} a -> s {initiatedEventId = a} :: RequestCancelExternalWorkflowExecutionFailedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the +-- @RequestCancelExternalWorkflowExecution@ decision for this cancellation +-- request. This information can be useful for diagnosing problems by +-- tracing back the chain of events leading up to this event. +requestCancelExternalWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes Prelude.Integer +requestCancelExternalWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\RequestCancelExternalWorkflowExecutionFailedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@RequestCancelExternalWorkflowExecutionFailedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: RequestCancelExternalWorkflowExecutionFailedEventAttributes) + +instance + Data.FromJSON + RequestCancelExternalWorkflowExecutionFailedEventAttributes + where + parseJSON = + Data.withObject + "RequestCancelExternalWorkflowExecutionFailedEventAttributes" + ( \x -> + RequestCancelExternalWorkflowExecutionFailedEventAttributes' + Prelude.<$> (x Data..:? "control") + Prelude.<*> (x Data..:? "runId") + Prelude.<*> (x Data..: "workflowId") + Prelude.<*> (x Data..: "cause") + Prelude.<*> (x Data..: "initiatedEventId") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + RequestCancelExternalWorkflowExecutionFailedEventAttributes + where + hashWithSalt + _salt + RequestCancelExternalWorkflowExecutionFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` control + `Prelude.hashWithSalt` runId + `Prelude.hashWithSalt` workflowId + `Prelude.hashWithSalt` cause + `Prelude.hashWithSalt` initiatedEventId + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + RequestCancelExternalWorkflowExecutionFailedEventAttributes + where + rnf + RequestCancelExternalWorkflowExecutionFailedEventAttributes' {..} = + Prelude.rnf control + `Prelude.seq` Prelude.rnf runId + `Prelude.seq` Prelude.rnf workflowId + `Prelude.seq` Prelude.rnf cause + `Prelude.seq` Prelude.rnf initiatedEventId + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/RequestCancelExternalWorkflowExecutionInitiatedEventAttributes.hs b/gen/Amazonka/SWF/Types/RequestCancelExternalWorkflowExecutionInitiatedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/RequestCancelExternalWorkflowExecutionInitiatedEventAttributes.hs @@ -0,0 +1,146 @@ +{-# 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.SWF.Types.RequestCancelExternalWorkflowExecutionInitiatedEventAttributes +-- 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.SWF.Types.RequestCancelExternalWorkflowExecutionInitiatedEventAttributes 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 + +-- | Provides the details of the +-- @RequestCancelExternalWorkflowExecutionInitiated@ event. +-- +-- /See:/ 'newRequestCancelExternalWorkflowExecutionInitiatedEventAttributes' smart constructor. +data RequestCancelExternalWorkflowExecutionInitiatedEventAttributes = RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' + { -- | Data attached to the event that can be used by the decider in subsequent + -- workflow tasks. + control :: Prelude.Maybe Prelude.Text, + -- | The @runId@ of the external workflow execution to be canceled. + runId :: Prelude.Maybe Prelude.Text, + -- | The @workflowId@ of the external workflow execution to be canceled. + workflowId :: Prelude.Text, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the + -- @RequestCancelExternalWorkflowExecution@ decision for this cancellation + -- request. This information can be useful for diagnosing problems by + -- tracing back the chain of events leading up to this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' 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: +-- +-- 'control', 'requestCancelExternalWorkflowExecutionInitiatedEventAttributes_control' - Data attached to the event that can be used by the decider in subsequent +-- workflow tasks. +-- +-- 'runId', 'requestCancelExternalWorkflowExecutionInitiatedEventAttributes_runId' - The @runId@ of the external workflow execution to be canceled. +-- +-- 'workflowId', 'requestCancelExternalWorkflowExecutionInitiatedEventAttributes_workflowId' - The @workflowId@ of the external workflow execution to be canceled. +-- +-- 'decisionTaskCompletedEventId', 'requestCancelExternalWorkflowExecutionInitiatedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the +-- @RequestCancelExternalWorkflowExecution@ decision for this cancellation +-- request. This information can be useful for diagnosing problems by +-- tracing back the chain of events leading up to this event. +newRequestCancelExternalWorkflowExecutionInitiatedEventAttributes :: + -- | 'workflowId' + Prelude.Text -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + RequestCancelExternalWorkflowExecutionInitiatedEventAttributes +newRequestCancelExternalWorkflowExecutionInitiatedEventAttributes + pWorkflowId_ + pDecisionTaskCompletedEventId_ = + RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' + { control = + Prelude.Nothing, + runId = + Prelude.Nothing, + workflowId = + pWorkflowId_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | Data attached to the event that can be used by the decider in subsequent +-- workflow tasks. +requestCancelExternalWorkflowExecutionInitiatedEventAttributes_control :: Lens.Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes (Prelude.Maybe Prelude.Text) +requestCancelExternalWorkflowExecutionInitiatedEventAttributes_control = Lens.lens (\RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' {control} -> control) (\s@RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' {} a -> s {control = a} :: RequestCancelExternalWorkflowExecutionInitiatedEventAttributes) + +-- | The @runId@ of the external workflow execution to be canceled. +requestCancelExternalWorkflowExecutionInitiatedEventAttributes_runId :: Lens.Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes (Prelude.Maybe Prelude.Text) +requestCancelExternalWorkflowExecutionInitiatedEventAttributes_runId = Lens.lens (\RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' {runId} -> runId) (\s@RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' {} a -> s {runId = a} :: RequestCancelExternalWorkflowExecutionInitiatedEventAttributes) + +-- | The @workflowId@ of the external workflow execution to be canceled. +requestCancelExternalWorkflowExecutionInitiatedEventAttributes_workflowId :: Lens.Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes Prelude.Text +requestCancelExternalWorkflowExecutionInitiatedEventAttributes_workflowId = Lens.lens (\RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' {workflowId} -> workflowId) (\s@RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' {} a -> s {workflowId = a} :: RequestCancelExternalWorkflowExecutionInitiatedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the +-- @RequestCancelExternalWorkflowExecution@ decision for this cancellation +-- request. This information can be useful for diagnosing problems by +-- tracing back the chain of events leading up to this event. +requestCancelExternalWorkflowExecutionInitiatedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes Prelude.Integer +requestCancelExternalWorkflowExecutionInitiatedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: RequestCancelExternalWorkflowExecutionInitiatedEventAttributes) + +instance + Data.FromJSON + RequestCancelExternalWorkflowExecutionInitiatedEventAttributes + where + parseJSON = + Data.withObject + "RequestCancelExternalWorkflowExecutionInitiatedEventAttributes" + ( \x -> + RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' + Prelude.<$> (x Data..:? "control") + Prelude.<*> (x Data..:? "runId") + Prelude.<*> (x Data..: "workflowId") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + RequestCancelExternalWorkflowExecutionInitiatedEventAttributes + where + hashWithSalt + _salt + RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` control + `Prelude.hashWithSalt` runId + `Prelude.hashWithSalt` workflowId + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + RequestCancelExternalWorkflowExecutionInitiatedEventAttributes + where + rnf + RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' {..} = + Prelude.rnf control + `Prelude.seq` Prelude.rnf runId + `Prelude.seq` Prelude.rnf workflowId + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/ResourceTag.hs b/gen/Amazonka/SWF/Types/ResourceTag.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ResourceTag.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.SWF.Types.ResourceTag +-- 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.SWF.Types.ResourceTag 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 + +-- | Tags are key-value pairs that can be associated with Amazon SWF state +-- machines and activities. +-- +-- Tags may only contain unicode letters, digits, whitespace, or these +-- symbols: @_ . : \/ = + - \@@. +-- +-- /See:/ 'newResourceTag' smart constructor. +data ResourceTag = ResourceTag' + { -- | The value of a tag. + value :: Prelude.Maybe Prelude.Text, + -- | The key of a tag. + key :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ResourceTag' 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: +-- +-- 'value', 'resourceTag_value' - The value of a tag. +-- +-- 'key', 'resourceTag_key' - The key of a tag. +newResourceTag :: + -- | 'key' + Prelude.Text -> + ResourceTag +newResourceTag pKey_ = + ResourceTag' {value = Prelude.Nothing, key = pKey_} + +-- | The value of a tag. +resourceTag_value :: Lens.Lens' ResourceTag (Prelude.Maybe Prelude.Text) +resourceTag_value = Lens.lens (\ResourceTag' {value} -> value) (\s@ResourceTag' {} a -> s {value = a} :: ResourceTag) + +-- | The key of a tag. +resourceTag_key :: Lens.Lens' ResourceTag Prelude.Text +resourceTag_key = Lens.lens (\ResourceTag' {key} -> key) (\s@ResourceTag' {} a -> s {key = a} :: ResourceTag) + +instance Data.FromJSON ResourceTag where + parseJSON = + Data.withObject + "ResourceTag" + ( \x -> + ResourceTag' + Prelude.<$> (x Data..:? "value") + Prelude.<*> (x Data..: "key") + ) + +instance Prelude.Hashable ResourceTag where + hashWithSalt _salt ResourceTag' {..} = + _salt + `Prelude.hashWithSalt` value + `Prelude.hashWithSalt` key + +instance Prelude.NFData ResourceTag where + rnf ResourceTag' {..} = + Prelude.rnf value `Prelude.seq` Prelude.rnf key + +instance Data.ToJSON ResourceTag where + toJSON ResourceTag' {..} = + Data.object + ( Prelude.catMaybes + [ ("value" Data..=) Prelude.<$> value, + Prelude.Just ("key" Data..= key) + ] + ) diff --git a/gen/Amazonka/SWF/Types/ScheduleActivityTaskDecisionAttributes.hs b/gen/Amazonka/SWF/Types/ScheduleActivityTaskDecisionAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ScheduleActivityTaskDecisionAttributes.hs @@ -0,0 +1,430 @@ +{-# 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.SWF.Types.ScheduleActivityTaskDecisionAttributes +-- 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.SWF.Types.ScheduleActivityTaskDecisionAttributes 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 +import Amazonka.SWF.Types.ActivityType +import Amazonka.SWF.Types.TaskList + +-- | Provides the details of the @ScheduleActivityTask@ decision. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this decision\'s access to Amazon +-- SWF resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the following parameters by using a @Condition@ element +-- with the appropriate keys. +-- +-- - @activityType.name@ – String constraint. The key is +-- @swf:activityType.name@. +-- +-- - @activityType.version@ – String constraint. The key is +-- @swf:activityType.version@. +-- +-- - @taskList@ – String constraint. The key is @swf:taskList.name@. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- /See:/ 'newScheduleActivityTaskDecisionAttributes' smart constructor. +data ScheduleActivityTaskDecisionAttributes = ScheduleActivityTaskDecisionAttributes' + { -- | Data attached to the event that can be used by the decider in subsequent + -- workflow tasks. This data isn\'t sent to the activity. + control :: Prelude.Maybe Prelude.Text, + -- | If set, specifies the maximum time before which a worker processing a + -- task of this type must report progress by calling + -- RecordActivityTaskHeartbeat. If the timeout is exceeded, the activity + -- task is automatically timed out. If the worker subsequently attempts to + -- record a heartbeat or returns a result, it is ignored. This overrides + -- the default heartbeat timeout specified when registering the activity + -- type using RegisterActivityType. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + heartbeatTimeout :: Prelude.Maybe Prelude.Text, + -- | The input provided to the activity task. + input :: Prelude.Maybe Prelude.Text, + -- | The maximum duration for this activity task. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + -- + -- A schedule-to-close timeout for this activity task must be specified + -- either as a default for the activity type or through this field. If + -- neither this field is set nor a default schedule-to-close timeout was + -- specified at registration time then a fault is returned. + scheduleToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | If set, specifies the maximum duration the activity task can wait to be + -- assigned to a worker. This overrides the default schedule-to-start + -- timeout specified when registering the activity type using + -- RegisterActivityType. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + -- + -- A schedule-to-start timeout for this activity task must be specified + -- either as a default for the activity type or through this field. If + -- neither this field is set nor a default schedule-to-start timeout was + -- specified at registration time then a fault is returned. + scheduleToStartTimeout :: Prelude.Maybe Prelude.Text, + -- | If set, specifies the maximum duration a worker may take to process this + -- activity task. This overrides the default start-to-close timeout + -- specified when registering the activity type using RegisterActivityType. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + -- + -- A start-to-close timeout for this activity task must be specified either + -- as a default for the activity type or through this field. If neither + -- this field is set nor a default start-to-close timeout was specified at + -- registration time then a fault is returned. + startToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | If set, specifies the name of the task list in which to schedule the + -- activity task. If not specified, the @defaultTaskList@ registered with + -- the activity type is used. + -- + -- A task list for this activity task must be specified either as a default + -- for the activity type or through this field. If neither this field is + -- set nor a default task list was specified at registration time then a + -- fault is returned. + -- + -- The specified string must not start or end with whitespace. It must not + -- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control + -- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not + -- contain the literal string @arn@. + taskList :: Prelude.Maybe TaskList, + -- | If set, specifies the priority with which the activity task is to be + -- assigned to a worker. This overrides the defaultTaskPriority specified + -- when registering the activity type using RegisterActivityType. Valid + -- values are integers that range from Java\'s @Integer.MIN_VALUE@ + -- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers + -- indicate higher priority. + -- + -- For more information about setting task priority, see + -- + -- in the /Amazon SWF Developer Guide/. + taskPriority :: Prelude.Maybe Prelude.Text, + -- | The type of the activity task to schedule. + activityType :: ActivityType, + -- | The @activityId@ of the activity task. + -- + -- The specified string must not start or end with whitespace. It must not + -- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control + -- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not + -- contain the literal string @arn@. + activityId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ScheduleActivityTaskDecisionAttributes' 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: +-- +-- 'control', 'scheduleActivityTaskDecisionAttributes_control' - Data attached to the event that can be used by the decider in subsequent +-- workflow tasks. This data isn\'t sent to the activity. +-- +-- 'heartbeatTimeout', 'scheduleActivityTaskDecisionAttributes_heartbeatTimeout' - If set, specifies the maximum time before which a worker processing a +-- task of this type must report progress by calling +-- RecordActivityTaskHeartbeat. If the timeout is exceeded, the activity +-- task is automatically timed out. If the worker subsequently attempts to +-- record a heartbeat or returns a result, it is ignored. This overrides +-- the default heartbeat timeout specified when registering the activity +-- type using RegisterActivityType. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'input', 'scheduleActivityTaskDecisionAttributes_input' - The input provided to the activity task. +-- +-- 'scheduleToCloseTimeout', 'scheduleActivityTaskDecisionAttributes_scheduleToCloseTimeout' - The maximum duration for this activity task. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- A schedule-to-close timeout for this activity task must be specified +-- either as a default for the activity type or through this field. If +-- neither this field is set nor a default schedule-to-close timeout was +-- specified at registration time then a fault is returned. +-- +-- 'scheduleToStartTimeout', 'scheduleActivityTaskDecisionAttributes_scheduleToStartTimeout' - If set, specifies the maximum duration the activity task can wait to be +-- assigned to a worker. This overrides the default schedule-to-start +-- timeout specified when registering the activity type using +-- RegisterActivityType. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- A schedule-to-start timeout for this activity task must be specified +-- either as a default for the activity type or through this field. If +-- neither this field is set nor a default schedule-to-start timeout was +-- specified at registration time then a fault is returned. +-- +-- 'startToCloseTimeout', 'scheduleActivityTaskDecisionAttributes_startToCloseTimeout' - If set, specifies the maximum duration a worker may take to process this +-- activity task. This overrides the default start-to-close timeout +-- specified when registering the activity type using RegisterActivityType. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- A start-to-close timeout for this activity task must be specified either +-- as a default for the activity type or through this field. If neither +-- this field is set nor a default start-to-close timeout was specified at +-- registration time then a fault is returned. +-- +-- 'taskList', 'scheduleActivityTaskDecisionAttributes_taskList' - If set, specifies the name of the task list in which to schedule the +-- activity task. If not specified, the @defaultTaskList@ registered with +-- the activity type is used. +-- +-- A task list for this activity task must be specified either as a default +-- for the activity type or through this field. If neither this field is +-- set nor a default task list was specified at registration time then a +-- fault is returned. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- contain the literal string @arn@. +-- +-- 'taskPriority', 'scheduleActivityTaskDecisionAttributes_taskPriority' - If set, specifies the priority with which the activity task is to be +-- assigned to a worker. This overrides the defaultTaskPriority specified +-- when registering the activity type using RegisterActivityType. Valid +-- values are integers that range from Java\'s @Integer.MIN_VALUE@ +-- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers +-- indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'activityType', 'scheduleActivityTaskDecisionAttributes_activityType' - The type of the activity task to schedule. +-- +-- 'activityId', 'scheduleActivityTaskDecisionAttributes_activityId' - The @activityId@ of the activity task. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- contain the literal string @arn@. +newScheduleActivityTaskDecisionAttributes :: + -- | 'activityType' + ActivityType -> + -- | 'activityId' + Prelude.Text -> + ScheduleActivityTaskDecisionAttributes +newScheduleActivityTaskDecisionAttributes + pActivityType_ + pActivityId_ = + ScheduleActivityTaskDecisionAttributes' + { control = + Prelude.Nothing, + heartbeatTimeout = Prelude.Nothing, + input = Prelude.Nothing, + scheduleToCloseTimeout = + Prelude.Nothing, + scheduleToStartTimeout = + Prelude.Nothing, + startToCloseTimeout = + Prelude.Nothing, + taskList = Prelude.Nothing, + taskPriority = Prelude.Nothing, + activityType = pActivityType_, + activityId = pActivityId_ + } + +-- | Data attached to the event that can be used by the decider in subsequent +-- workflow tasks. This data isn\'t sent to the activity. +scheduleActivityTaskDecisionAttributes_control :: Lens.Lens' ScheduleActivityTaskDecisionAttributes (Prelude.Maybe Prelude.Text) +scheduleActivityTaskDecisionAttributes_control = Lens.lens (\ScheduleActivityTaskDecisionAttributes' {control} -> control) (\s@ScheduleActivityTaskDecisionAttributes' {} a -> s {control = a} :: ScheduleActivityTaskDecisionAttributes) + +-- | If set, specifies the maximum time before which a worker processing a +-- task of this type must report progress by calling +-- RecordActivityTaskHeartbeat. If the timeout is exceeded, the activity +-- task is automatically timed out. If the worker subsequently attempts to +-- record a heartbeat or returns a result, it is ignored. This overrides +-- the default heartbeat timeout specified when registering the activity +-- type using RegisterActivityType. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +scheduleActivityTaskDecisionAttributes_heartbeatTimeout :: Lens.Lens' ScheduleActivityTaskDecisionAttributes (Prelude.Maybe Prelude.Text) +scheduleActivityTaskDecisionAttributes_heartbeatTimeout = Lens.lens (\ScheduleActivityTaskDecisionAttributes' {heartbeatTimeout} -> heartbeatTimeout) (\s@ScheduleActivityTaskDecisionAttributes' {} a -> s {heartbeatTimeout = a} :: ScheduleActivityTaskDecisionAttributes) + +-- | The input provided to the activity task. +scheduleActivityTaskDecisionAttributes_input :: Lens.Lens' ScheduleActivityTaskDecisionAttributes (Prelude.Maybe Prelude.Text) +scheduleActivityTaskDecisionAttributes_input = Lens.lens (\ScheduleActivityTaskDecisionAttributes' {input} -> input) (\s@ScheduleActivityTaskDecisionAttributes' {} a -> s {input = a} :: ScheduleActivityTaskDecisionAttributes) + +-- | The maximum duration for this activity task. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- A schedule-to-close timeout for this activity task must be specified +-- either as a default for the activity type or through this field. If +-- neither this field is set nor a default schedule-to-close timeout was +-- specified at registration time then a fault is returned. +scheduleActivityTaskDecisionAttributes_scheduleToCloseTimeout :: Lens.Lens' ScheduleActivityTaskDecisionAttributes (Prelude.Maybe Prelude.Text) +scheduleActivityTaskDecisionAttributes_scheduleToCloseTimeout = Lens.lens (\ScheduleActivityTaskDecisionAttributes' {scheduleToCloseTimeout} -> scheduleToCloseTimeout) (\s@ScheduleActivityTaskDecisionAttributes' {} a -> s {scheduleToCloseTimeout = a} :: ScheduleActivityTaskDecisionAttributes) + +-- | If set, specifies the maximum duration the activity task can wait to be +-- assigned to a worker. This overrides the default schedule-to-start +-- timeout specified when registering the activity type using +-- RegisterActivityType. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- A schedule-to-start timeout for this activity task must be specified +-- either as a default for the activity type or through this field. If +-- neither this field is set nor a default schedule-to-start timeout was +-- specified at registration time then a fault is returned. +scheduleActivityTaskDecisionAttributes_scheduleToStartTimeout :: Lens.Lens' ScheduleActivityTaskDecisionAttributes (Prelude.Maybe Prelude.Text) +scheduleActivityTaskDecisionAttributes_scheduleToStartTimeout = Lens.lens (\ScheduleActivityTaskDecisionAttributes' {scheduleToStartTimeout} -> scheduleToStartTimeout) (\s@ScheduleActivityTaskDecisionAttributes' {} a -> s {scheduleToStartTimeout = a} :: ScheduleActivityTaskDecisionAttributes) + +-- | If set, specifies the maximum duration a worker may take to process this +-- activity task. This overrides the default start-to-close timeout +-- specified when registering the activity type using RegisterActivityType. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- A start-to-close timeout for this activity task must be specified either +-- as a default for the activity type or through this field. If neither +-- this field is set nor a default start-to-close timeout was specified at +-- registration time then a fault is returned. +scheduleActivityTaskDecisionAttributes_startToCloseTimeout :: Lens.Lens' ScheduleActivityTaskDecisionAttributes (Prelude.Maybe Prelude.Text) +scheduleActivityTaskDecisionAttributes_startToCloseTimeout = Lens.lens (\ScheduleActivityTaskDecisionAttributes' {startToCloseTimeout} -> startToCloseTimeout) (\s@ScheduleActivityTaskDecisionAttributes' {} a -> s {startToCloseTimeout = a} :: ScheduleActivityTaskDecisionAttributes) + +-- | If set, specifies the name of the task list in which to schedule the +-- activity task. If not specified, the @defaultTaskList@ registered with +-- the activity type is used. +-- +-- A task list for this activity task must be specified either as a default +-- for the activity type or through this field. If neither this field is +-- set nor a default task list was specified at registration time then a +-- fault is returned. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- contain the literal string @arn@. +scheduleActivityTaskDecisionAttributes_taskList :: Lens.Lens' ScheduleActivityTaskDecisionAttributes (Prelude.Maybe TaskList) +scheduleActivityTaskDecisionAttributes_taskList = Lens.lens (\ScheduleActivityTaskDecisionAttributes' {taskList} -> taskList) (\s@ScheduleActivityTaskDecisionAttributes' {} a -> s {taskList = a} :: ScheduleActivityTaskDecisionAttributes) + +-- | If set, specifies the priority with which the activity task is to be +-- assigned to a worker. This overrides the defaultTaskPriority specified +-- when registering the activity type using RegisterActivityType. Valid +-- values are integers that range from Java\'s @Integer.MIN_VALUE@ +-- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers +-- indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +scheduleActivityTaskDecisionAttributes_taskPriority :: Lens.Lens' ScheduleActivityTaskDecisionAttributes (Prelude.Maybe Prelude.Text) +scheduleActivityTaskDecisionAttributes_taskPriority = Lens.lens (\ScheduleActivityTaskDecisionAttributes' {taskPriority} -> taskPriority) (\s@ScheduleActivityTaskDecisionAttributes' {} a -> s {taskPriority = a} :: ScheduleActivityTaskDecisionAttributes) + +-- | The type of the activity task to schedule. +scheduleActivityTaskDecisionAttributes_activityType :: Lens.Lens' ScheduleActivityTaskDecisionAttributes ActivityType +scheduleActivityTaskDecisionAttributes_activityType = Lens.lens (\ScheduleActivityTaskDecisionAttributes' {activityType} -> activityType) (\s@ScheduleActivityTaskDecisionAttributes' {} a -> s {activityType = a} :: ScheduleActivityTaskDecisionAttributes) + +-- | The @activityId@ of the activity task. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- contain the literal string @arn@. +scheduleActivityTaskDecisionAttributes_activityId :: Lens.Lens' ScheduleActivityTaskDecisionAttributes Prelude.Text +scheduleActivityTaskDecisionAttributes_activityId = Lens.lens (\ScheduleActivityTaskDecisionAttributes' {activityId} -> activityId) (\s@ScheduleActivityTaskDecisionAttributes' {} a -> s {activityId = a} :: ScheduleActivityTaskDecisionAttributes) + +instance + Prelude.Hashable + ScheduleActivityTaskDecisionAttributes + where + hashWithSalt + _salt + ScheduleActivityTaskDecisionAttributes' {..} = + _salt + `Prelude.hashWithSalt` control + `Prelude.hashWithSalt` heartbeatTimeout + `Prelude.hashWithSalt` input + `Prelude.hashWithSalt` scheduleToCloseTimeout + `Prelude.hashWithSalt` scheduleToStartTimeout + `Prelude.hashWithSalt` startToCloseTimeout + `Prelude.hashWithSalt` taskList + `Prelude.hashWithSalt` taskPriority + `Prelude.hashWithSalt` activityType + `Prelude.hashWithSalt` activityId + +instance + Prelude.NFData + ScheduleActivityTaskDecisionAttributes + where + rnf ScheduleActivityTaskDecisionAttributes' {..} = + Prelude.rnf control + `Prelude.seq` Prelude.rnf heartbeatTimeout + `Prelude.seq` Prelude.rnf input + `Prelude.seq` Prelude.rnf scheduleToCloseTimeout + `Prelude.seq` Prelude.rnf scheduleToStartTimeout + `Prelude.seq` Prelude.rnf startToCloseTimeout + `Prelude.seq` Prelude.rnf taskList + `Prelude.seq` Prelude.rnf taskPriority + `Prelude.seq` Prelude.rnf activityType + `Prelude.seq` Prelude.rnf activityId + +instance + Data.ToJSON + ScheduleActivityTaskDecisionAttributes + where + toJSON ScheduleActivityTaskDecisionAttributes' {..} = + Data.object + ( Prelude.catMaybes + [ ("control" Data..=) Prelude.<$> control, + ("heartbeatTimeout" Data..=) + Prelude.<$> heartbeatTimeout, + ("input" Data..=) Prelude.<$> input, + ("scheduleToCloseTimeout" Data..=) + Prelude.<$> scheduleToCloseTimeout, + ("scheduleToStartTimeout" Data..=) + Prelude.<$> scheduleToStartTimeout, + ("startToCloseTimeout" Data..=) + Prelude.<$> startToCloseTimeout, + ("taskList" Data..=) Prelude.<$> taskList, + ("taskPriority" Data..=) Prelude.<$> taskPriority, + Prelude.Just ("activityType" Data..= activityType), + Prelude.Just ("activityId" Data..= activityId) + ] + ) diff --git a/gen/Amazonka/SWF/Types/ScheduleActivityTaskFailedCause.hs b/gen/Amazonka/SWF/Types/ScheduleActivityTaskFailedCause.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ScheduleActivityTaskFailedCause.hs @@ -0,0 +1,116 @@ +{-# 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.SWF.Types.ScheduleActivityTaskFailedCause +-- 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.SWF.Types.ScheduleActivityTaskFailedCause + ( ScheduleActivityTaskFailedCause + ( .., + ScheduleActivityTaskFailedCause_ACTIVITY_CREATION_RATE_EXCEEDED, + ScheduleActivityTaskFailedCause_ACTIVITY_ID_ALREADY_IN_USE, + ScheduleActivityTaskFailedCause_ACTIVITY_TYPE_DEPRECATED, + ScheduleActivityTaskFailedCause_ACTIVITY_TYPE_DOES_NOT_EXIST, + ScheduleActivityTaskFailedCause_DEFAULT_HEARTBEAT_TIMEOUT_UNDEFINED, + ScheduleActivityTaskFailedCause_DEFAULT_SCHEDULE_TO_CLOSE_TIMEOUT_UNDEFINED, + ScheduleActivityTaskFailedCause_DEFAULT_SCHEDULE_TO_START_TIMEOUT_UNDEFINED, + ScheduleActivityTaskFailedCause_DEFAULT_START_TO_CLOSE_TIMEOUT_UNDEFINED, + ScheduleActivityTaskFailedCause_DEFAULT_TASK_LIST_UNDEFINED, + ScheduleActivityTaskFailedCause_OPEN_ACTIVITIES_LIMIT_EXCEEDED, + ScheduleActivityTaskFailedCause_OPERATION_NOT_PERMITTED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ScheduleActivityTaskFailedCause = ScheduleActivityTaskFailedCause' + { fromScheduleActivityTaskFailedCause :: + 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 ScheduleActivityTaskFailedCause_ACTIVITY_CREATION_RATE_EXCEEDED :: ScheduleActivityTaskFailedCause +pattern ScheduleActivityTaskFailedCause_ACTIVITY_CREATION_RATE_EXCEEDED = ScheduleActivityTaskFailedCause' "ACTIVITY_CREATION_RATE_EXCEEDED" + +pattern ScheduleActivityTaskFailedCause_ACTIVITY_ID_ALREADY_IN_USE :: ScheduleActivityTaskFailedCause +pattern ScheduleActivityTaskFailedCause_ACTIVITY_ID_ALREADY_IN_USE = ScheduleActivityTaskFailedCause' "ACTIVITY_ID_ALREADY_IN_USE" + +pattern ScheduleActivityTaskFailedCause_ACTIVITY_TYPE_DEPRECATED :: ScheduleActivityTaskFailedCause +pattern ScheduleActivityTaskFailedCause_ACTIVITY_TYPE_DEPRECATED = ScheduleActivityTaskFailedCause' "ACTIVITY_TYPE_DEPRECATED" + +pattern ScheduleActivityTaskFailedCause_ACTIVITY_TYPE_DOES_NOT_EXIST :: ScheduleActivityTaskFailedCause +pattern ScheduleActivityTaskFailedCause_ACTIVITY_TYPE_DOES_NOT_EXIST = ScheduleActivityTaskFailedCause' "ACTIVITY_TYPE_DOES_NOT_EXIST" + +pattern ScheduleActivityTaskFailedCause_DEFAULT_HEARTBEAT_TIMEOUT_UNDEFINED :: ScheduleActivityTaskFailedCause +pattern ScheduleActivityTaskFailedCause_DEFAULT_HEARTBEAT_TIMEOUT_UNDEFINED = ScheduleActivityTaskFailedCause' "DEFAULT_HEARTBEAT_TIMEOUT_UNDEFINED" + +pattern ScheduleActivityTaskFailedCause_DEFAULT_SCHEDULE_TO_CLOSE_TIMEOUT_UNDEFINED :: ScheduleActivityTaskFailedCause +pattern ScheduleActivityTaskFailedCause_DEFAULT_SCHEDULE_TO_CLOSE_TIMEOUT_UNDEFINED = ScheduleActivityTaskFailedCause' "DEFAULT_SCHEDULE_TO_CLOSE_TIMEOUT_UNDEFINED" + +pattern ScheduleActivityTaskFailedCause_DEFAULT_SCHEDULE_TO_START_TIMEOUT_UNDEFINED :: ScheduleActivityTaskFailedCause +pattern ScheduleActivityTaskFailedCause_DEFAULT_SCHEDULE_TO_START_TIMEOUT_UNDEFINED = ScheduleActivityTaskFailedCause' "DEFAULT_SCHEDULE_TO_START_TIMEOUT_UNDEFINED" + +pattern ScheduleActivityTaskFailedCause_DEFAULT_START_TO_CLOSE_TIMEOUT_UNDEFINED :: ScheduleActivityTaskFailedCause +pattern ScheduleActivityTaskFailedCause_DEFAULT_START_TO_CLOSE_TIMEOUT_UNDEFINED = ScheduleActivityTaskFailedCause' "DEFAULT_START_TO_CLOSE_TIMEOUT_UNDEFINED" + +pattern ScheduleActivityTaskFailedCause_DEFAULT_TASK_LIST_UNDEFINED :: ScheduleActivityTaskFailedCause +pattern ScheduleActivityTaskFailedCause_DEFAULT_TASK_LIST_UNDEFINED = ScheduleActivityTaskFailedCause' "DEFAULT_TASK_LIST_UNDEFINED" + +pattern ScheduleActivityTaskFailedCause_OPEN_ACTIVITIES_LIMIT_EXCEEDED :: ScheduleActivityTaskFailedCause +pattern ScheduleActivityTaskFailedCause_OPEN_ACTIVITIES_LIMIT_EXCEEDED = ScheduleActivityTaskFailedCause' "OPEN_ACTIVITIES_LIMIT_EXCEEDED" + +pattern ScheduleActivityTaskFailedCause_OPERATION_NOT_PERMITTED :: ScheduleActivityTaskFailedCause +pattern ScheduleActivityTaskFailedCause_OPERATION_NOT_PERMITTED = ScheduleActivityTaskFailedCause' "OPERATION_NOT_PERMITTED" + +{-# COMPLETE + ScheduleActivityTaskFailedCause_ACTIVITY_CREATION_RATE_EXCEEDED, + ScheduleActivityTaskFailedCause_ACTIVITY_ID_ALREADY_IN_USE, + ScheduleActivityTaskFailedCause_ACTIVITY_TYPE_DEPRECATED, + ScheduleActivityTaskFailedCause_ACTIVITY_TYPE_DOES_NOT_EXIST, + ScheduleActivityTaskFailedCause_DEFAULT_HEARTBEAT_TIMEOUT_UNDEFINED, + ScheduleActivityTaskFailedCause_DEFAULT_SCHEDULE_TO_CLOSE_TIMEOUT_UNDEFINED, + ScheduleActivityTaskFailedCause_DEFAULT_SCHEDULE_TO_START_TIMEOUT_UNDEFINED, + ScheduleActivityTaskFailedCause_DEFAULT_START_TO_CLOSE_TIMEOUT_UNDEFINED, + ScheduleActivityTaskFailedCause_DEFAULT_TASK_LIST_UNDEFINED, + ScheduleActivityTaskFailedCause_OPEN_ACTIVITIES_LIMIT_EXCEEDED, + ScheduleActivityTaskFailedCause_OPERATION_NOT_PERMITTED, + ScheduleActivityTaskFailedCause' + #-} diff --git a/gen/Amazonka/SWF/Types/ScheduleActivityTaskFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/ScheduleActivityTaskFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ScheduleActivityTaskFailedEventAttributes.hs @@ -0,0 +1,171 @@ +{-# 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.SWF.Types.ScheduleActivityTaskFailedEventAttributes +-- 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.SWF.Types.ScheduleActivityTaskFailedEventAttributes 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 +import Amazonka.SWF.Types.ActivityType +import Amazonka.SWF.Types.ScheduleActivityTaskFailedCause + +-- | Provides the details of the @ScheduleActivityTaskFailed@ event. +-- +-- /See:/ 'newScheduleActivityTaskFailedEventAttributes' smart constructor. +data ScheduleActivityTaskFailedEventAttributes = ScheduleActivityTaskFailedEventAttributes' + { -- | The activity type provided in the @ScheduleActivityTask@ decision that + -- failed. + activityType :: ActivityType, + -- | The activityId provided in the @ScheduleActivityTask@ decision that + -- failed. + activityId :: Prelude.Text, + -- | The cause of the failure. This information is generated by the system + -- and can be useful for diagnostic purposes. + -- + -- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed + -- because it lacked sufficient permissions. For details and example IAM + -- policies, see + -- + -- in the /Amazon SWF Developer Guide/. + cause :: ScheduleActivityTaskFailedCause, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision that resulted in the scheduling of this activity task. This + -- information can be useful for diagnosing problems by tracing back the + -- chain of events leading up to this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ScheduleActivityTaskFailedEventAttributes' 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: +-- +-- 'activityType', 'scheduleActivityTaskFailedEventAttributes_activityType' - The activity type provided in the @ScheduleActivityTask@ decision that +-- failed. +-- +-- 'activityId', 'scheduleActivityTaskFailedEventAttributes_activityId' - The activityId provided in the @ScheduleActivityTask@ decision that +-- failed. +-- +-- 'cause', 'scheduleActivityTaskFailedEventAttributes_cause' - The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'decisionTaskCompletedEventId', 'scheduleActivityTaskFailedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision that resulted in the scheduling of this activity task. This +-- information can be useful for diagnosing problems by tracing back the +-- chain of events leading up to this event. +newScheduleActivityTaskFailedEventAttributes :: + -- | 'activityType' + ActivityType -> + -- | 'activityId' + Prelude.Text -> + -- | 'cause' + ScheduleActivityTaskFailedCause -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + ScheduleActivityTaskFailedEventAttributes +newScheduleActivityTaskFailedEventAttributes + pActivityType_ + pActivityId_ + pCause_ + pDecisionTaskCompletedEventId_ = + ScheduleActivityTaskFailedEventAttributes' + { activityType = + pActivityType_, + activityId = pActivityId_, + cause = pCause_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The activity type provided in the @ScheduleActivityTask@ decision that +-- failed. +scheduleActivityTaskFailedEventAttributes_activityType :: Lens.Lens' ScheduleActivityTaskFailedEventAttributes ActivityType +scheduleActivityTaskFailedEventAttributes_activityType = Lens.lens (\ScheduleActivityTaskFailedEventAttributes' {activityType} -> activityType) (\s@ScheduleActivityTaskFailedEventAttributes' {} a -> s {activityType = a} :: ScheduleActivityTaskFailedEventAttributes) + +-- | The activityId provided in the @ScheduleActivityTask@ decision that +-- failed. +scheduleActivityTaskFailedEventAttributes_activityId :: Lens.Lens' ScheduleActivityTaskFailedEventAttributes Prelude.Text +scheduleActivityTaskFailedEventAttributes_activityId = Lens.lens (\ScheduleActivityTaskFailedEventAttributes' {activityId} -> activityId) (\s@ScheduleActivityTaskFailedEventAttributes' {} a -> s {activityId = a} :: ScheduleActivityTaskFailedEventAttributes) + +-- | The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +scheduleActivityTaskFailedEventAttributes_cause :: Lens.Lens' ScheduleActivityTaskFailedEventAttributes ScheduleActivityTaskFailedCause +scheduleActivityTaskFailedEventAttributes_cause = Lens.lens (\ScheduleActivityTaskFailedEventAttributes' {cause} -> cause) (\s@ScheduleActivityTaskFailedEventAttributes' {} a -> s {cause = a} :: ScheduleActivityTaskFailedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision that resulted in the scheduling of this activity task. This +-- information can be useful for diagnosing problems by tracing back the +-- chain of events leading up to this event. +scheduleActivityTaskFailedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' ScheduleActivityTaskFailedEventAttributes Prelude.Integer +scheduleActivityTaskFailedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\ScheduleActivityTaskFailedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@ScheduleActivityTaskFailedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: ScheduleActivityTaskFailedEventAttributes) + +instance + Data.FromJSON + ScheduleActivityTaskFailedEventAttributes + where + parseJSON = + Data.withObject + "ScheduleActivityTaskFailedEventAttributes" + ( \x -> + ScheduleActivityTaskFailedEventAttributes' + Prelude.<$> (x Data..: "activityType") + Prelude.<*> (x Data..: "activityId") + Prelude.<*> (x Data..: "cause") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + ScheduleActivityTaskFailedEventAttributes + where + hashWithSalt + _salt + ScheduleActivityTaskFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` activityType + `Prelude.hashWithSalt` activityId + `Prelude.hashWithSalt` cause + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + ScheduleActivityTaskFailedEventAttributes + where + rnf ScheduleActivityTaskFailedEventAttributes' {..} = + Prelude.rnf activityType + `Prelude.seq` Prelude.rnf activityId + `Prelude.seq` Prelude.rnf cause + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/ScheduleLambdaFunctionDecisionAttributes.hs b/gen/Amazonka/SWF/Types/ScheduleLambdaFunctionDecisionAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ScheduleLambdaFunctionDecisionAttributes.hs @@ -0,0 +1,156 @@ +{-# 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.SWF.Types.ScheduleLambdaFunctionDecisionAttributes +-- 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.SWF.Types.ScheduleLambdaFunctionDecisionAttributes 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 + +-- | Decision attributes specified in +-- @scheduleLambdaFunctionDecisionAttributes@ within the list of decisions +-- @decisions@ passed to RespondDecisionTaskCompleted. +-- +-- /See:/ 'newScheduleLambdaFunctionDecisionAttributes' smart constructor. +data ScheduleLambdaFunctionDecisionAttributes = ScheduleLambdaFunctionDecisionAttributes' + { -- | The data attached to the event that the decider can use in subsequent + -- workflow tasks. This data isn\'t sent to the Lambda task. + control :: Prelude.Maybe Prelude.Text, + -- | The optional input data to be supplied to the Lambda function. + input :: Prelude.Maybe Prelude.Text, + -- | The timeout value, in seconds, after which the Lambda function is + -- considered to be failed once it has started. This can be any integer + -- from 1-300 (1s-5m). If no value is supplied, than a default value of + -- 300s is assumed. + startToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | A string that identifies the Lambda function execution in the event + -- history. + id :: Prelude.Text, + -- | The name, or ARN, of the Lambda function to schedule. + name :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ScheduleLambdaFunctionDecisionAttributes' 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: +-- +-- 'control', 'scheduleLambdaFunctionDecisionAttributes_control' - The data attached to the event that the decider can use in subsequent +-- workflow tasks. This data isn\'t sent to the Lambda task. +-- +-- 'input', 'scheduleLambdaFunctionDecisionAttributes_input' - The optional input data to be supplied to the Lambda function. +-- +-- 'startToCloseTimeout', 'scheduleLambdaFunctionDecisionAttributes_startToCloseTimeout' - The timeout value, in seconds, after which the Lambda function is +-- considered to be failed once it has started. This can be any integer +-- from 1-300 (1s-5m). If no value is supplied, than a default value of +-- 300s is assumed. +-- +-- 'id', 'scheduleLambdaFunctionDecisionAttributes_id' - A string that identifies the Lambda function execution in the event +-- history. +-- +-- 'name', 'scheduleLambdaFunctionDecisionAttributes_name' - The name, or ARN, of the Lambda function to schedule. +newScheduleLambdaFunctionDecisionAttributes :: + -- | 'id' + Prelude.Text -> + -- | 'name' + Prelude.Text -> + ScheduleLambdaFunctionDecisionAttributes +newScheduleLambdaFunctionDecisionAttributes + pId_ + pName_ = + ScheduleLambdaFunctionDecisionAttributes' + { control = + Prelude.Nothing, + input = Prelude.Nothing, + startToCloseTimeout = + Prelude.Nothing, + id = pId_, + name = pName_ + } + +-- | The data attached to the event that the decider can use in subsequent +-- workflow tasks. This data isn\'t sent to the Lambda task. +scheduleLambdaFunctionDecisionAttributes_control :: Lens.Lens' ScheduleLambdaFunctionDecisionAttributes (Prelude.Maybe Prelude.Text) +scheduleLambdaFunctionDecisionAttributes_control = Lens.lens (\ScheduleLambdaFunctionDecisionAttributes' {control} -> control) (\s@ScheduleLambdaFunctionDecisionAttributes' {} a -> s {control = a} :: ScheduleLambdaFunctionDecisionAttributes) + +-- | The optional input data to be supplied to the Lambda function. +scheduleLambdaFunctionDecisionAttributes_input :: Lens.Lens' ScheduleLambdaFunctionDecisionAttributes (Prelude.Maybe Prelude.Text) +scheduleLambdaFunctionDecisionAttributes_input = Lens.lens (\ScheduleLambdaFunctionDecisionAttributes' {input} -> input) (\s@ScheduleLambdaFunctionDecisionAttributes' {} a -> s {input = a} :: ScheduleLambdaFunctionDecisionAttributes) + +-- | The timeout value, in seconds, after which the Lambda function is +-- considered to be failed once it has started. This can be any integer +-- from 1-300 (1s-5m). If no value is supplied, than a default value of +-- 300s is assumed. +scheduleLambdaFunctionDecisionAttributes_startToCloseTimeout :: Lens.Lens' ScheduleLambdaFunctionDecisionAttributes (Prelude.Maybe Prelude.Text) +scheduleLambdaFunctionDecisionAttributes_startToCloseTimeout = Lens.lens (\ScheduleLambdaFunctionDecisionAttributes' {startToCloseTimeout} -> startToCloseTimeout) (\s@ScheduleLambdaFunctionDecisionAttributes' {} a -> s {startToCloseTimeout = a} :: ScheduleLambdaFunctionDecisionAttributes) + +-- | A string that identifies the Lambda function execution in the event +-- history. +scheduleLambdaFunctionDecisionAttributes_id :: Lens.Lens' ScheduleLambdaFunctionDecisionAttributes Prelude.Text +scheduleLambdaFunctionDecisionAttributes_id = Lens.lens (\ScheduleLambdaFunctionDecisionAttributes' {id} -> id) (\s@ScheduleLambdaFunctionDecisionAttributes' {} a -> s {id = a} :: ScheduleLambdaFunctionDecisionAttributes) + +-- | The name, or ARN, of the Lambda function to schedule. +scheduleLambdaFunctionDecisionAttributes_name :: Lens.Lens' ScheduleLambdaFunctionDecisionAttributes Prelude.Text +scheduleLambdaFunctionDecisionAttributes_name = Lens.lens (\ScheduleLambdaFunctionDecisionAttributes' {name} -> name) (\s@ScheduleLambdaFunctionDecisionAttributes' {} a -> s {name = a} :: ScheduleLambdaFunctionDecisionAttributes) + +instance + Prelude.Hashable + ScheduleLambdaFunctionDecisionAttributes + where + hashWithSalt + _salt + ScheduleLambdaFunctionDecisionAttributes' {..} = + _salt + `Prelude.hashWithSalt` control + `Prelude.hashWithSalt` input + `Prelude.hashWithSalt` startToCloseTimeout + `Prelude.hashWithSalt` id + `Prelude.hashWithSalt` name + +instance + Prelude.NFData + ScheduleLambdaFunctionDecisionAttributes + where + rnf ScheduleLambdaFunctionDecisionAttributes' {..} = + Prelude.rnf control + `Prelude.seq` Prelude.rnf input + `Prelude.seq` Prelude.rnf startToCloseTimeout + `Prelude.seq` Prelude.rnf id + `Prelude.seq` Prelude.rnf name + +instance + Data.ToJSON + ScheduleLambdaFunctionDecisionAttributes + where + toJSON ScheduleLambdaFunctionDecisionAttributes' {..} = + Data.object + ( Prelude.catMaybes + [ ("control" Data..=) Prelude.<$> control, + ("input" Data..=) Prelude.<$> input, + ("startToCloseTimeout" Data..=) + Prelude.<$> startToCloseTimeout, + Prelude.Just ("id" Data..= id), + Prelude.Just ("name" Data..= name) + ] + ) diff --git a/gen/Amazonka/SWF/Types/ScheduleLambdaFunctionFailedCause.hs b/gen/Amazonka/SWF/Types/ScheduleLambdaFunctionFailedCause.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ScheduleLambdaFunctionFailedCause.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.SWF.Types.ScheduleLambdaFunctionFailedCause +-- 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.SWF.Types.ScheduleLambdaFunctionFailedCause + ( ScheduleLambdaFunctionFailedCause + ( .., + ScheduleLambdaFunctionFailedCause_ID_ALREADY_IN_USE, + ScheduleLambdaFunctionFailedCause_LAMBDA_FUNCTION_CREATION_RATE_EXCEEDED, + ScheduleLambdaFunctionFailedCause_LAMBDA_SERVICE_NOT_AVAILABLE_IN_REGION, + ScheduleLambdaFunctionFailedCause_OPEN_LAMBDA_FUNCTIONS_LIMIT_EXCEEDED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype ScheduleLambdaFunctionFailedCause = ScheduleLambdaFunctionFailedCause' + { fromScheduleLambdaFunctionFailedCause :: + 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 ScheduleLambdaFunctionFailedCause_ID_ALREADY_IN_USE :: ScheduleLambdaFunctionFailedCause +pattern ScheduleLambdaFunctionFailedCause_ID_ALREADY_IN_USE = ScheduleLambdaFunctionFailedCause' "ID_ALREADY_IN_USE" + +pattern ScheduleLambdaFunctionFailedCause_LAMBDA_FUNCTION_CREATION_RATE_EXCEEDED :: ScheduleLambdaFunctionFailedCause +pattern ScheduleLambdaFunctionFailedCause_LAMBDA_FUNCTION_CREATION_RATE_EXCEEDED = ScheduleLambdaFunctionFailedCause' "LAMBDA_FUNCTION_CREATION_RATE_EXCEEDED" + +pattern ScheduleLambdaFunctionFailedCause_LAMBDA_SERVICE_NOT_AVAILABLE_IN_REGION :: ScheduleLambdaFunctionFailedCause +pattern ScheduleLambdaFunctionFailedCause_LAMBDA_SERVICE_NOT_AVAILABLE_IN_REGION = ScheduleLambdaFunctionFailedCause' "LAMBDA_SERVICE_NOT_AVAILABLE_IN_REGION" + +pattern ScheduleLambdaFunctionFailedCause_OPEN_LAMBDA_FUNCTIONS_LIMIT_EXCEEDED :: ScheduleLambdaFunctionFailedCause +pattern ScheduleLambdaFunctionFailedCause_OPEN_LAMBDA_FUNCTIONS_LIMIT_EXCEEDED = ScheduleLambdaFunctionFailedCause' "OPEN_LAMBDA_FUNCTIONS_LIMIT_EXCEEDED" + +{-# COMPLETE + ScheduleLambdaFunctionFailedCause_ID_ALREADY_IN_USE, + ScheduleLambdaFunctionFailedCause_LAMBDA_FUNCTION_CREATION_RATE_EXCEEDED, + ScheduleLambdaFunctionFailedCause_LAMBDA_SERVICE_NOT_AVAILABLE_IN_REGION, + ScheduleLambdaFunctionFailedCause_OPEN_LAMBDA_FUNCTIONS_LIMIT_EXCEEDED, + ScheduleLambdaFunctionFailedCause' + #-} diff --git a/gen/Amazonka/SWF/Types/ScheduleLambdaFunctionFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/ScheduleLambdaFunctionFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/ScheduleLambdaFunctionFailedEventAttributes.hs @@ -0,0 +1,165 @@ +{-# 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.SWF.Types.ScheduleLambdaFunctionFailedEventAttributes +-- 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.SWF.Types.ScheduleLambdaFunctionFailedEventAttributes 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 +import Amazonka.SWF.Types.ScheduleLambdaFunctionFailedCause + +-- | Provides the details of the @ScheduleLambdaFunctionFailed@ event. It +-- isn\'t set for other event types. +-- +-- /See:/ 'newScheduleLambdaFunctionFailedEventAttributes' smart constructor. +data ScheduleLambdaFunctionFailedEventAttributes = ScheduleLambdaFunctionFailedEventAttributes' + { -- | The ID provided in the @ScheduleLambdaFunction@ decision that failed. + id :: Prelude.Text, + -- | The name of the Lambda function. + name :: Prelude.Text, + -- | The cause of the failure. To help diagnose issues, use this information + -- to trace back the chain of events leading up to this event. + -- + -- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed + -- because it lacked sufficient permissions. For details and example IAM + -- policies, see + -- + -- in the /Amazon SWF Developer Guide/. + cause :: ScheduleLambdaFunctionFailedCause, + -- | The ID of the @LambdaFunctionCompleted@ event corresponding to the + -- decision that resulted in scheduling this Lambda task. To help diagnose + -- issues, use this information to trace back the chain of events leading + -- up to this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'ScheduleLambdaFunctionFailedEventAttributes' 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', 'scheduleLambdaFunctionFailedEventAttributes_id' - The ID provided in the @ScheduleLambdaFunction@ decision that failed. +-- +-- 'name', 'scheduleLambdaFunctionFailedEventAttributes_name' - The name of the Lambda function. +-- +-- 'cause', 'scheduleLambdaFunctionFailedEventAttributes_cause' - The cause of the failure. To help diagnose issues, use this information +-- to trace back the chain of events leading up to this event. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'decisionTaskCompletedEventId', 'scheduleLambdaFunctionFailedEventAttributes_decisionTaskCompletedEventId' - The ID of the @LambdaFunctionCompleted@ event corresponding to the +-- decision that resulted in scheduling this Lambda task. To help diagnose +-- issues, use this information to trace back the chain of events leading +-- up to this event. +newScheduleLambdaFunctionFailedEventAttributes :: + -- | 'id' + Prelude.Text -> + -- | 'name' + Prelude.Text -> + -- | 'cause' + ScheduleLambdaFunctionFailedCause -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + ScheduleLambdaFunctionFailedEventAttributes +newScheduleLambdaFunctionFailedEventAttributes + pId_ + pName_ + pCause_ + pDecisionTaskCompletedEventId_ = + ScheduleLambdaFunctionFailedEventAttributes' + { id = + pId_, + name = pName_, + cause = pCause_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The ID provided in the @ScheduleLambdaFunction@ decision that failed. +scheduleLambdaFunctionFailedEventAttributes_id :: Lens.Lens' ScheduleLambdaFunctionFailedEventAttributes Prelude.Text +scheduleLambdaFunctionFailedEventAttributes_id = Lens.lens (\ScheduleLambdaFunctionFailedEventAttributes' {id} -> id) (\s@ScheduleLambdaFunctionFailedEventAttributes' {} a -> s {id = a} :: ScheduleLambdaFunctionFailedEventAttributes) + +-- | The name of the Lambda function. +scheduleLambdaFunctionFailedEventAttributes_name :: Lens.Lens' ScheduleLambdaFunctionFailedEventAttributes Prelude.Text +scheduleLambdaFunctionFailedEventAttributes_name = Lens.lens (\ScheduleLambdaFunctionFailedEventAttributes' {name} -> name) (\s@ScheduleLambdaFunctionFailedEventAttributes' {} a -> s {name = a} :: ScheduleLambdaFunctionFailedEventAttributes) + +-- | The cause of the failure. To help diagnose issues, use this information +-- to trace back the chain of events leading up to this event. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +scheduleLambdaFunctionFailedEventAttributes_cause :: Lens.Lens' ScheduleLambdaFunctionFailedEventAttributes ScheduleLambdaFunctionFailedCause +scheduleLambdaFunctionFailedEventAttributes_cause = Lens.lens (\ScheduleLambdaFunctionFailedEventAttributes' {cause} -> cause) (\s@ScheduleLambdaFunctionFailedEventAttributes' {} a -> s {cause = a} :: ScheduleLambdaFunctionFailedEventAttributes) + +-- | The ID of the @LambdaFunctionCompleted@ event corresponding to the +-- decision that resulted in scheduling this Lambda task. To help diagnose +-- issues, use this information to trace back the chain of events leading +-- up to this event. +scheduleLambdaFunctionFailedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' ScheduleLambdaFunctionFailedEventAttributes Prelude.Integer +scheduleLambdaFunctionFailedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\ScheduleLambdaFunctionFailedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@ScheduleLambdaFunctionFailedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: ScheduleLambdaFunctionFailedEventAttributes) + +instance + Data.FromJSON + ScheduleLambdaFunctionFailedEventAttributes + where + parseJSON = + Data.withObject + "ScheduleLambdaFunctionFailedEventAttributes" + ( \x -> + ScheduleLambdaFunctionFailedEventAttributes' + Prelude.<$> (x Data..: "id") + Prelude.<*> (x Data..: "name") + Prelude.<*> (x Data..: "cause") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + ScheduleLambdaFunctionFailedEventAttributes + where + hashWithSalt + _salt + ScheduleLambdaFunctionFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` id + `Prelude.hashWithSalt` name + `Prelude.hashWithSalt` cause + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + ScheduleLambdaFunctionFailedEventAttributes + where + rnf ScheduleLambdaFunctionFailedEventAttributes' {..} = + Prelude.rnf id + `Prelude.seq` Prelude.rnf name + `Prelude.seq` Prelude.rnf cause + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/SignalExternalWorkflowExecutionDecisionAttributes.hs b/gen/Amazonka/SWF/Types/SignalExternalWorkflowExecutionDecisionAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/SignalExternalWorkflowExecutionDecisionAttributes.hs @@ -0,0 +1,170 @@ +{-# 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.SWF.Types.SignalExternalWorkflowExecutionDecisionAttributes +-- 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.SWF.Types.SignalExternalWorkflowExecutionDecisionAttributes 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 + +-- | Provides the details of the @SignalExternalWorkflowExecution@ decision. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this decision\'s access to Amazon +-- SWF resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- /See:/ 'newSignalExternalWorkflowExecutionDecisionAttributes' smart constructor. +data SignalExternalWorkflowExecutionDecisionAttributes = SignalExternalWorkflowExecutionDecisionAttributes' + { -- | The data attached to the event that can be used by the decider in + -- subsequent decision tasks. + control :: Prelude.Maybe Prelude.Text, + -- | The input data to be provided with the signal. The target workflow + -- execution uses the signal name and input data to process the signal. + input :: Prelude.Maybe Prelude.Text, + -- | The @runId@ of the workflow execution to be signaled. + runId :: Prelude.Maybe Prelude.Text, + -- | The @workflowId@ of the workflow execution to be signaled. + workflowId :: Prelude.Text, + -- | The name of the signal.The target workflow execution uses the signal + -- name and input to process the signal. + signalName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SignalExternalWorkflowExecutionDecisionAttributes' 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: +-- +-- 'control', 'signalExternalWorkflowExecutionDecisionAttributes_control' - The data attached to the event that can be used by the decider in +-- subsequent decision tasks. +-- +-- 'input', 'signalExternalWorkflowExecutionDecisionAttributes_input' - The input data to be provided with the signal. The target workflow +-- execution uses the signal name and input data to process the signal. +-- +-- 'runId', 'signalExternalWorkflowExecutionDecisionAttributes_runId' - The @runId@ of the workflow execution to be signaled. +-- +-- 'workflowId', 'signalExternalWorkflowExecutionDecisionAttributes_workflowId' - The @workflowId@ of the workflow execution to be signaled. +-- +-- 'signalName', 'signalExternalWorkflowExecutionDecisionAttributes_signalName' - The name of the signal.The target workflow execution uses the signal +-- name and input to process the signal. +newSignalExternalWorkflowExecutionDecisionAttributes :: + -- | 'workflowId' + Prelude.Text -> + -- | 'signalName' + Prelude.Text -> + SignalExternalWorkflowExecutionDecisionAttributes +newSignalExternalWorkflowExecutionDecisionAttributes + pWorkflowId_ + pSignalName_ = + SignalExternalWorkflowExecutionDecisionAttributes' + { control = + Prelude.Nothing, + input = Prelude.Nothing, + runId = Prelude.Nothing, + workflowId = + pWorkflowId_, + signalName = + pSignalName_ + } + +-- | The data attached to the event that can be used by the decider in +-- subsequent decision tasks. +signalExternalWorkflowExecutionDecisionAttributes_control :: Lens.Lens' SignalExternalWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +signalExternalWorkflowExecutionDecisionAttributes_control = Lens.lens (\SignalExternalWorkflowExecutionDecisionAttributes' {control} -> control) (\s@SignalExternalWorkflowExecutionDecisionAttributes' {} a -> s {control = a} :: SignalExternalWorkflowExecutionDecisionAttributes) + +-- | The input data to be provided with the signal. The target workflow +-- execution uses the signal name and input data to process the signal. +signalExternalWorkflowExecutionDecisionAttributes_input :: Lens.Lens' SignalExternalWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +signalExternalWorkflowExecutionDecisionAttributes_input = Lens.lens (\SignalExternalWorkflowExecutionDecisionAttributes' {input} -> input) (\s@SignalExternalWorkflowExecutionDecisionAttributes' {} a -> s {input = a} :: SignalExternalWorkflowExecutionDecisionAttributes) + +-- | The @runId@ of the workflow execution to be signaled. +signalExternalWorkflowExecutionDecisionAttributes_runId :: Lens.Lens' SignalExternalWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +signalExternalWorkflowExecutionDecisionAttributes_runId = Lens.lens (\SignalExternalWorkflowExecutionDecisionAttributes' {runId} -> runId) (\s@SignalExternalWorkflowExecutionDecisionAttributes' {} a -> s {runId = a} :: SignalExternalWorkflowExecutionDecisionAttributes) + +-- | The @workflowId@ of the workflow execution to be signaled. +signalExternalWorkflowExecutionDecisionAttributes_workflowId :: Lens.Lens' SignalExternalWorkflowExecutionDecisionAttributes Prelude.Text +signalExternalWorkflowExecutionDecisionAttributes_workflowId = Lens.lens (\SignalExternalWorkflowExecutionDecisionAttributes' {workflowId} -> workflowId) (\s@SignalExternalWorkflowExecutionDecisionAttributes' {} a -> s {workflowId = a} :: SignalExternalWorkflowExecutionDecisionAttributes) + +-- | The name of the signal.The target workflow execution uses the signal +-- name and input to process the signal. +signalExternalWorkflowExecutionDecisionAttributes_signalName :: Lens.Lens' SignalExternalWorkflowExecutionDecisionAttributes Prelude.Text +signalExternalWorkflowExecutionDecisionAttributes_signalName = Lens.lens (\SignalExternalWorkflowExecutionDecisionAttributes' {signalName} -> signalName) (\s@SignalExternalWorkflowExecutionDecisionAttributes' {} a -> s {signalName = a} :: SignalExternalWorkflowExecutionDecisionAttributes) + +instance + Prelude.Hashable + SignalExternalWorkflowExecutionDecisionAttributes + where + hashWithSalt + _salt + SignalExternalWorkflowExecutionDecisionAttributes' {..} = + _salt + `Prelude.hashWithSalt` control + `Prelude.hashWithSalt` input + `Prelude.hashWithSalt` runId + `Prelude.hashWithSalt` workflowId + `Prelude.hashWithSalt` signalName + +instance + Prelude.NFData + SignalExternalWorkflowExecutionDecisionAttributes + where + rnf + SignalExternalWorkflowExecutionDecisionAttributes' {..} = + Prelude.rnf control + `Prelude.seq` Prelude.rnf input + `Prelude.seq` Prelude.rnf runId + `Prelude.seq` Prelude.rnf workflowId + `Prelude.seq` Prelude.rnf signalName + +instance + Data.ToJSON + SignalExternalWorkflowExecutionDecisionAttributes + where + toJSON + SignalExternalWorkflowExecutionDecisionAttributes' {..} = + Data.object + ( Prelude.catMaybes + [ ("control" Data..=) Prelude.<$> control, + ("input" Data..=) Prelude.<$> input, + ("runId" Data..=) Prelude.<$> runId, + Prelude.Just ("workflowId" Data..= workflowId), + Prelude.Just ("signalName" Data..= signalName) + ] + ) diff --git a/gen/Amazonka/SWF/Types/SignalExternalWorkflowExecutionFailedCause.hs b/gen/Amazonka/SWF/Types/SignalExternalWorkflowExecutionFailedCause.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/SignalExternalWorkflowExecutionFailedCause.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.SWF.Types.SignalExternalWorkflowExecutionFailedCause +-- 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.SWF.Types.SignalExternalWorkflowExecutionFailedCause + ( SignalExternalWorkflowExecutionFailedCause + ( .., + SignalExternalWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED, + SignalExternalWorkflowExecutionFailedCause_SIGNAL_EXTERNAL_WORKFLOW_EXECUTION_RATE_EXCEEDED, + SignalExternalWorkflowExecutionFailedCause_UNKNOWN_EXTERNAL_WORKFLOW_EXECUTION + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype SignalExternalWorkflowExecutionFailedCause = SignalExternalWorkflowExecutionFailedCause' + { fromSignalExternalWorkflowExecutionFailedCause :: + 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 SignalExternalWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED :: SignalExternalWorkflowExecutionFailedCause +pattern SignalExternalWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED = SignalExternalWorkflowExecutionFailedCause' "OPERATION_NOT_PERMITTED" + +pattern SignalExternalWorkflowExecutionFailedCause_SIGNAL_EXTERNAL_WORKFLOW_EXECUTION_RATE_EXCEEDED :: SignalExternalWorkflowExecutionFailedCause +pattern SignalExternalWorkflowExecutionFailedCause_SIGNAL_EXTERNAL_WORKFLOW_EXECUTION_RATE_EXCEEDED = SignalExternalWorkflowExecutionFailedCause' "SIGNAL_EXTERNAL_WORKFLOW_EXECUTION_RATE_EXCEEDED" + +pattern SignalExternalWorkflowExecutionFailedCause_UNKNOWN_EXTERNAL_WORKFLOW_EXECUTION :: SignalExternalWorkflowExecutionFailedCause +pattern SignalExternalWorkflowExecutionFailedCause_UNKNOWN_EXTERNAL_WORKFLOW_EXECUTION = SignalExternalWorkflowExecutionFailedCause' "UNKNOWN_EXTERNAL_WORKFLOW_EXECUTION" + +{-# COMPLETE + SignalExternalWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED, + SignalExternalWorkflowExecutionFailedCause_SIGNAL_EXTERNAL_WORKFLOW_EXECUTION_RATE_EXCEEDED, + SignalExternalWorkflowExecutionFailedCause_UNKNOWN_EXTERNAL_WORKFLOW_EXECUTION, + SignalExternalWorkflowExecutionFailedCause' + #-} diff --git a/gen/Amazonka/SWF/Types/SignalExternalWorkflowExecutionFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/SignalExternalWorkflowExecutionFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/SignalExternalWorkflowExecutionFailedEventAttributes.hs @@ -0,0 +1,211 @@ +{-# 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.SWF.Types.SignalExternalWorkflowExecutionFailedEventAttributes +-- 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.SWF.Types.SignalExternalWorkflowExecutionFailedEventAttributes 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 +import Amazonka.SWF.Types.SignalExternalWorkflowExecutionFailedCause + +-- | Provides the details of the @SignalExternalWorkflowExecutionFailed@ +-- event. +-- +-- /See:/ 'newSignalExternalWorkflowExecutionFailedEventAttributes' smart constructor. +data SignalExternalWorkflowExecutionFailedEventAttributes = SignalExternalWorkflowExecutionFailedEventAttributes' + { -- | The data attached to the event that the decider can use in subsequent + -- workflow tasks. This data isn\'t sent to the workflow execution. + control :: Prelude.Maybe Prelude.Text, + -- | The @runId@ of the external workflow execution that the signal was being + -- delivered to. + runId :: Prelude.Maybe Prelude.Text, + -- | The @workflowId@ of the external workflow execution that the signal was + -- being delivered to. + workflowId :: Prelude.Text, + -- | The cause of the failure. This information is generated by the system + -- and can be useful for diagnostic purposes. + -- + -- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed + -- because it lacked sufficient permissions. For details and example IAM + -- policies, see + -- + -- in the /Amazon SWF Developer Guide/. + cause :: SignalExternalWorkflowExecutionFailedCause, + -- | The ID of the @SignalExternalWorkflowExecutionInitiated@ event + -- corresponding to the @SignalExternalWorkflowExecution@ decision to + -- request this signal. This information can be useful for diagnosing + -- problems by tracing back the chain of events leading up to this event. + initiatedEventId :: Prelude.Integer, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @SignalExternalWorkflowExecution@ + -- decision for this signal. This information can be useful for diagnosing + -- problems by tracing back the chain of events leading up to this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SignalExternalWorkflowExecutionFailedEventAttributes' 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: +-- +-- 'control', 'signalExternalWorkflowExecutionFailedEventAttributes_control' - The data attached to the event that the decider can use in subsequent +-- workflow tasks. This data isn\'t sent to the workflow execution. +-- +-- 'runId', 'signalExternalWorkflowExecutionFailedEventAttributes_runId' - The @runId@ of the external workflow execution that the signal was being +-- delivered to. +-- +-- 'workflowId', 'signalExternalWorkflowExecutionFailedEventAttributes_workflowId' - The @workflowId@ of the external workflow execution that the signal was +-- being delivered to. +-- +-- 'cause', 'signalExternalWorkflowExecutionFailedEventAttributes_cause' - The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'initiatedEventId', 'signalExternalWorkflowExecutionFailedEventAttributes_initiatedEventId' - The ID of the @SignalExternalWorkflowExecutionInitiated@ event +-- corresponding to the @SignalExternalWorkflowExecution@ decision to +-- request this signal. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +-- +-- 'decisionTaskCompletedEventId', 'signalExternalWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @SignalExternalWorkflowExecution@ +-- decision for this signal. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +newSignalExternalWorkflowExecutionFailedEventAttributes :: + -- | 'workflowId' + Prelude.Text -> + -- | 'cause' + SignalExternalWorkflowExecutionFailedCause -> + -- | 'initiatedEventId' + Prelude.Integer -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + SignalExternalWorkflowExecutionFailedEventAttributes +newSignalExternalWorkflowExecutionFailedEventAttributes + pWorkflowId_ + pCause_ + pInitiatedEventId_ + pDecisionTaskCompletedEventId_ = + SignalExternalWorkflowExecutionFailedEventAttributes' + { control = + Prelude.Nothing, + runId = + Prelude.Nothing, + workflowId = + pWorkflowId_, + cause = pCause_, + initiatedEventId = + pInitiatedEventId_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The data attached to the event that the decider can use in subsequent +-- workflow tasks. This data isn\'t sent to the workflow execution. +signalExternalWorkflowExecutionFailedEventAttributes_control :: Lens.Lens' SignalExternalWorkflowExecutionFailedEventAttributes (Prelude.Maybe Prelude.Text) +signalExternalWorkflowExecutionFailedEventAttributes_control = Lens.lens (\SignalExternalWorkflowExecutionFailedEventAttributes' {control} -> control) (\s@SignalExternalWorkflowExecutionFailedEventAttributes' {} a -> s {control = a} :: SignalExternalWorkflowExecutionFailedEventAttributes) + +-- | The @runId@ of the external workflow execution that the signal was being +-- delivered to. +signalExternalWorkflowExecutionFailedEventAttributes_runId :: Lens.Lens' SignalExternalWorkflowExecutionFailedEventAttributes (Prelude.Maybe Prelude.Text) +signalExternalWorkflowExecutionFailedEventAttributes_runId = Lens.lens (\SignalExternalWorkflowExecutionFailedEventAttributes' {runId} -> runId) (\s@SignalExternalWorkflowExecutionFailedEventAttributes' {} a -> s {runId = a} :: SignalExternalWorkflowExecutionFailedEventAttributes) + +-- | The @workflowId@ of the external workflow execution that the signal was +-- being delivered to. +signalExternalWorkflowExecutionFailedEventAttributes_workflowId :: Lens.Lens' SignalExternalWorkflowExecutionFailedEventAttributes Prelude.Text +signalExternalWorkflowExecutionFailedEventAttributes_workflowId = Lens.lens (\SignalExternalWorkflowExecutionFailedEventAttributes' {workflowId} -> workflowId) (\s@SignalExternalWorkflowExecutionFailedEventAttributes' {} a -> s {workflowId = a} :: SignalExternalWorkflowExecutionFailedEventAttributes) + +-- | The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +signalExternalWorkflowExecutionFailedEventAttributes_cause :: Lens.Lens' SignalExternalWorkflowExecutionFailedEventAttributes SignalExternalWorkflowExecutionFailedCause +signalExternalWorkflowExecutionFailedEventAttributes_cause = Lens.lens (\SignalExternalWorkflowExecutionFailedEventAttributes' {cause} -> cause) (\s@SignalExternalWorkflowExecutionFailedEventAttributes' {} a -> s {cause = a} :: SignalExternalWorkflowExecutionFailedEventAttributes) + +-- | The ID of the @SignalExternalWorkflowExecutionInitiated@ event +-- corresponding to the @SignalExternalWorkflowExecution@ decision to +-- request this signal. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +signalExternalWorkflowExecutionFailedEventAttributes_initiatedEventId :: Lens.Lens' SignalExternalWorkflowExecutionFailedEventAttributes Prelude.Integer +signalExternalWorkflowExecutionFailedEventAttributes_initiatedEventId = Lens.lens (\SignalExternalWorkflowExecutionFailedEventAttributes' {initiatedEventId} -> initiatedEventId) (\s@SignalExternalWorkflowExecutionFailedEventAttributes' {} a -> s {initiatedEventId = a} :: SignalExternalWorkflowExecutionFailedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @SignalExternalWorkflowExecution@ +-- decision for this signal. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +signalExternalWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' SignalExternalWorkflowExecutionFailedEventAttributes Prelude.Integer +signalExternalWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\SignalExternalWorkflowExecutionFailedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@SignalExternalWorkflowExecutionFailedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: SignalExternalWorkflowExecutionFailedEventAttributes) + +instance + Data.FromJSON + SignalExternalWorkflowExecutionFailedEventAttributes + where + parseJSON = + Data.withObject + "SignalExternalWorkflowExecutionFailedEventAttributes" + ( \x -> + SignalExternalWorkflowExecutionFailedEventAttributes' + Prelude.<$> (x Data..:? "control") + Prelude.<*> (x Data..:? "runId") + Prelude.<*> (x Data..: "workflowId") + Prelude.<*> (x Data..: "cause") + Prelude.<*> (x Data..: "initiatedEventId") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + SignalExternalWorkflowExecutionFailedEventAttributes + where + hashWithSalt + _salt + SignalExternalWorkflowExecutionFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` control + `Prelude.hashWithSalt` runId + `Prelude.hashWithSalt` workflowId + `Prelude.hashWithSalt` cause + `Prelude.hashWithSalt` initiatedEventId + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + SignalExternalWorkflowExecutionFailedEventAttributes + where + rnf + SignalExternalWorkflowExecutionFailedEventAttributes' {..} = + Prelude.rnf control + `Prelude.seq` Prelude.rnf runId + `Prelude.seq` Prelude.rnf workflowId + `Prelude.seq` Prelude.rnf cause + `Prelude.seq` Prelude.rnf initiatedEventId + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/SignalExternalWorkflowExecutionInitiatedEventAttributes.hs b/gen/Amazonka/SWF/Types/SignalExternalWorkflowExecutionInitiatedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/SignalExternalWorkflowExecutionInitiatedEventAttributes.hs @@ -0,0 +1,172 @@ +{-# 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.SWF.Types.SignalExternalWorkflowExecutionInitiatedEventAttributes +-- 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.SWF.Types.SignalExternalWorkflowExecutionInitiatedEventAttributes 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 + +-- | Provides the details of the @SignalExternalWorkflowExecutionInitiated@ +-- event. +-- +-- /See:/ 'newSignalExternalWorkflowExecutionInitiatedEventAttributes' smart constructor. +data SignalExternalWorkflowExecutionInitiatedEventAttributes = SignalExternalWorkflowExecutionInitiatedEventAttributes' + { -- | Data attached to the event that can be used by the decider in subsequent + -- decision tasks. + control :: Prelude.Maybe Prelude.Text, + -- | The input provided to the signal. + input :: Prelude.Maybe Prelude.Text, + -- | The @runId@ of the external workflow execution to send the signal to. + runId :: Prelude.Maybe Prelude.Text, + -- | The @workflowId@ of the external workflow execution. + workflowId :: Prelude.Text, + -- | The name of the signal. + signalName :: Prelude.Text, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @SignalExternalWorkflowExecution@ + -- decision for this signal. This information can be useful for diagnosing + -- problems by tracing back the chain of events leading up to this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'SignalExternalWorkflowExecutionInitiatedEventAttributes' 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: +-- +-- 'control', 'signalExternalWorkflowExecutionInitiatedEventAttributes_control' - Data attached to the event that can be used by the decider in subsequent +-- decision tasks. +-- +-- 'input', 'signalExternalWorkflowExecutionInitiatedEventAttributes_input' - The input provided to the signal. +-- +-- 'runId', 'signalExternalWorkflowExecutionInitiatedEventAttributes_runId' - The @runId@ of the external workflow execution to send the signal to. +-- +-- 'workflowId', 'signalExternalWorkflowExecutionInitiatedEventAttributes_workflowId' - The @workflowId@ of the external workflow execution. +-- +-- 'signalName', 'signalExternalWorkflowExecutionInitiatedEventAttributes_signalName' - The name of the signal. +-- +-- 'decisionTaskCompletedEventId', 'signalExternalWorkflowExecutionInitiatedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @SignalExternalWorkflowExecution@ +-- decision for this signal. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +newSignalExternalWorkflowExecutionInitiatedEventAttributes :: + -- | 'workflowId' + Prelude.Text -> + -- | 'signalName' + Prelude.Text -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + SignalExternalWorkflowExecutionInitiatedEventAttributes +newSignalExternalWorkflowExecutionInitiatedEventAttributes + pWorkflowId_ + pSignalName_ + pDecisionTaskCompletedEventId_ = + SignalExternalWorkflowExecutionInitiatedEventAttributes' + { control = + Prelude.Nothing, + input = + Prelude.Nothing, + runId = + Prelude.Nothing, + workflowId = + pWorkflowId_, + signalName = + pSignalName_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | Data attached to the event that can be used by the decider in subsequent +-- decision tasks. +signalExternalWorkflowExecutionInitiatedEventAttributes_control :: Lens.Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes (Prelude.Maybe Prelude.Text) +signalExternalWorkflowExecutionInitiatedEventAttributes_control = Lens.lens (\SignalExternalWorkflowExecutionInitiatedEventAttributes' {control} -> control) (\s@SignalExternalWorkflowExecutionInitiatedEventAttributes' {} a -> s {control = a} :: SignalExternalWorkflowExecutionInitiatedEventAttributes) + +-- | The input provided to the signal. +signalExternalWorkflowExecutionInitiatedEventAttributes_input :: Lens.Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes (Prelude.Maybe Prelude.Text) +signalExternalWorkflowExecutionInitiatedEventAttributes_input = Lens.lens (\SignalExternalWorkflowExecutionInitiatedEventAttributes' {input} -> input) (\s@SignalExternalWorkflowExecutionInitiatedEventAttributes' {} a -> s {input = a} :: SignalExternalWorkflowExecutionInitiatedEventAttributes) + +-- | The @runId@ of the external workflow execution to send the signal to. +signalExternalWorkflowExecutionInitiatedEventAttributes_runId :: Lens.Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes (Prelude.Maybe Prelude.Text) +signalExternalWorkflowExecutionInitiatedEventAttributes_runId = Lens.lens (\SignalExternalWorkflowExecutionInitiatedEventAttributes' {runId} -> runId) (\s@SignalExternalWorkflowExecutionInitiatedEventAttributes' {} a -> s {runId = a} :: SignalExternalWorkflowExecutionInitiatedEventAttributes) + +-- | The @workflowId@ of the external workflow execution. +signalExternalWorkflowExecutionInitiatedEventAttributes_workflowId :: Lens.Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes Prelude.Text +signalExternalWorkflowExecutionInitiatedEventAttributes_workflowId = Lens.lens (\SignalExternalWorkflowExecutionInitiatedEventAttributes' {workflowId} -> workflowId) (\s@SignalExternalWorkflowExecutionInitiatedEventAttributes' {} a -> s {workflowId = a} :: SignalExternalWorkflowExecutionInitiatedEventAttributes) + +-- | The name of the signal. +signalExternalWorkflowExecutionInitiatedEventAttributes_signalName :: Lens.Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes Prelude.Text +signalExternalWorkflowExecutionInitiatedEventAttributes_signalName = Lens.lens (\SignalExternalWorkflowExecutionInitiatedEventAttributes' {signalName} -> signalName) (\s@SignalExternalWorkflowExecutionInitiatedEventAttributes' {} a -> s {signalName = a} :: SignalExternalWorkflowExecutionInitiatedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @SignalExternalWorkflowExecution@ +-- decision for this signal. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +signalExternalWorkflowExecutionInitiatedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes Prelude.Integer +signalExternalWorkflowExecutionInitiatedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\SignalExternalWorkflowExecutionInitiatedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@SignalExternalWorkflowExecutionInitiatedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: SignalExternalWorkflowExecutionInitiatedEventAttributes) + +instance + Data.FromJSON + SignalExternalWorkflowExecutionInitiatedEventAttributes + where + parseJSON = + Data.withObject + "SignalExternalWorkflowExecutionInitiatedEventAttributes" + ( \x -> + SignalExternalWorkflowExecutionInitiatedEventAttributes' + Prelude.<$> (x Data..:? "control") + Prelude.<*> (x Data..:? "input") + Prelude.<*> (x Data..:? "runId") + Prelude.<*> (x Data..: "workflowId") + Prelude.<*> (x Data..: "signalName") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + SignalExternalWorkflowExecutionInitiatedEventAttributes + where + hashWithSalt + _salt + SignalExternalWorkflowExecutionInitiatedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` control + `Prelude.hashWithSalt` input + `Prelude.hashWithSalt` runId + `Prelude.hashWithSalt` workflowId + `Prelude.hashWithSalt` signalName + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + SignalExternalWorkflowExecutionInitiatedEventAttributes + where + rnf + SignalExternalWorkflowExecutionInitiatedEventAttributes' {..} = + Prelude.rnf control + `Prelude.seq` Prelude.rnf input + `Prelude.seq` Prelude.rnf runId + `Prelude.seq` Prelude.rnf workflowId + `Prelude.seq` Prelude.rnf signalName + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/StartChildWorkflowExecutionDecisionAttributes.hs b/gen/Amazonka/SWF/Types/StartChildWorkflowExecutionDecisionAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/StartChildWorkflowExecutionDecisionAttributes.hs @@ -0,0 +1,471 @@ +{-# 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.SWF.Types.StartChildWorkflowExecutionDecisionAttributes +-- 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.SWF.Types.StartChildWorkflowExecutionDecisionAttributes 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 +import Amazonka.SWF.Types.ChildPolicy +import Amazonka.SWF.Types.TaskList +import Amazonka.SWF.Types.WorkflowType + +-- | Provides the details of the @StartChildWorkflowExecution@ decision. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this decision\'s access to Amazon +-- SWF resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the following parameters by using a @Condition@ element +-- with the appropriate keys. +-- +-- - @tagList.member.N@ – The key is \"swf:tagList.N\" where N is the +-- tag number from 0 to 4, inclusive. +-- +-- - @taskList@ – String constraint. The key is @swf:taskList.name@. +-- +-- - @workflowType.name@ – String constraint. The key is +-- @swf:workflowType.name@. +-- +-- - @workflowType.version@ – String constraint. The key is +-- @swf:workflowType.version@. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- /See:/ 'newStartChildWorkflowExecutionDecisionAttributes' smart constructor. +data StartChildWorkflowExecutionDecisionAttributes = StartChildWorkflowExecutionDecisionAttributes' + { -- | If set, specifies the policy to use for the child workflow executions if + -- the workflow execution being started is terminated by calling the + -- TerminateWorkflowExecution action explicitly or due to an expired + -- timeout. This policy overrides the default child policy specified when + -- registering the workflow type using RegisterWorkflowType. + -- + -- The supported child policies are: + -- + -- - @TERMINATE@ – The child executions are terminated. + -- + -- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child + -- execution by recording a @WorkflowExecutionCancelRequested@ event in + -- its history. It is up to the decider to take appropriate actions + -- when it receives an execution history with this event. + -- + -- - @ABANDON@ – No action is taken. The child executions continue to + -- run. + -- + -- A child policy for this workflow execution must be specified either as a + -- default for the workflow type or through this parameter. If neither this + -- parameter is set nor a default child policy was specified at + -- registration time then a fault is returned. + childPolicy :: Prelude.Maybe ChildPolicy, + -- | The data attached to the event that can be used by the decider in + -- subsequent workflow tasks. This data isn\'t sent to the child workflow + -- execution. + control :: Prelude.Maybe Prelude.Text, + -- | The total duration for this workflow execution. This overrides the + -- defaultExecutionStartToCloseTimeout specified when registering the + -- workflow type. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + -- + -- An execution start-to-close timeout for this workflow execution must be + -- specified either as a default for the workflow type or through this + -- parameter. If neither this parameter is set nor a default execution + -- start-to-close timeout was specified at registration time then a fault + -- is returned. + executionStartToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The input to be provided to the workflow execution. + input :: Prelude.Maybe Prelude.Text, + -- | The IAM role attached to the child workflow execution. + lambdaRole :: Prelude.Maybe Prelude.Text, + -- | The list of tags to associate with the child workflow execution. A + -- maximum of 5 tags can be specified. You can list workflow executions + -- with a specific tag by calling ListOpenWorkflowExecutions or + -- ListClosedWorkflowExecutions and specifying a TagFilter. + tagList :: Prelude.Maybe [Prelude.Text], + -- | The name of the task list to be used for decision tasks of the child + -- workflow execution. + -- + -- A task list for this workflow execution must be specified either as a + -- default for the workflow type or through this parameter. If neither this + -- parameter is set nor a default task list was specified at registration + -- time then a fault is returned. + -- + -- The specified string must not start or end with whitespace. It must not + -- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control + -- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not + -- contain the literal string @arn@. + taskList :: Prelude.Maybe TaskList, + -- | A task priority that, if set, specifies the priority for a decision task + -- of this workflow execution. This overrides the defaultTaskPriority + -- specified when registering the workflow type. Valid values are integers + -- that range from Java\'s @Integer.MIN_VALUE@ (-2147483648) to + -- @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher + -- priority. + -- + -- For more information about setting task priority, see + -- + -- in the /Amazon SWF Developer Guide/. + taskPriority :: Prelude.Maybe Prelude.Text, + -- | Specifies the maximum duration of decision tasks for this workflow + -- execution. This parameter overrides the @defaultTaskStartToCloseTimout@ + -- specified when registering the workflow type using RegisterWorkflowType. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + -- + -- A task start-to-close timeout for this workflow execution must be + -- specified either as a default for the workflow type or through this + -- parameter. If neither this parameter is set nor a default task + -- start-to-close timeout was specified at registration time then a fault + -- is returned. + taskStartToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The type of the workflow execution to be started. + workflowType :: WorkflowType, + -- | The @workflowId@ of the workflow execution. + -- + -- The specified string must not start or end with whitespace. It must not + -- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control + -- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not + -- contain the literal string @arn@. + workflowId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StartChildWorkflowExecutionDecisionAttributes' 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: +-- +-- 'childPolicy', 'startChildWorkflowExecutionDecisionAttributes_childPolicy' - If set, specifies the policy to use for the child workflow executions if +-- the workflow execution being started is terminated by calling the +-- TerminateWorkflowExecution action explicitly or due to an expired +-- timeout. This policy overrides the default child policy specified when +-- registering the workflow type using RegisterWorkflowType. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +-- +-- A child policy for this workflow execution must be specified either as a +-- default for the workflow type or through this parameter. If neither this +-- parameter is set nor a default child policy was specified at +-- registration time then a fault is returned. +-- +-- 'control', 'startChildWorkflowExecutionDecisionAttributes_control' - The data attached to the event that can be used by the decider in +-- subsequent workflow tasks. This data isn\'t sent to the child workflow +-- execution. +-- +-- 'executionStartToCloseTimeout', 'startChildWorkflowExecutionDecisionAttributes_executionStartToCloseTimeout' - The total duration for this workflow execution. This overrides the +-- defaultExecutionStartToCloseTimeout specified when registering the +-- workflow type. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- An execution start-to-close timeout for this workflow execution must be +-- specified either as a default for the workflow type or through this +-- parameter. If neither this parameter is set nor a default execution +-- start-to-close timeout was specified at registration time then a fault +-- is returned. +-- +-- 'input', 'startChildWorkflowExecutionDecisionAttributes_input' - The input to be provided to the workflow execution. +-- +-- 'lambdaRole', 'startChildWorkflowExecutionDecisionAttributes_lambdaRole' - The IAM role attached to the child workflow execution. +-- +-- 'tagList', 'startChildWorkflowExecutionDecisionAttributes_tagList' - The list of tags to associate with the child workflow execution. A +-- maximum of 5 tags can be specified. You can list workflow executions +-- with a specific tag by calling ListOpenWorkflowExecutions or +-- ListClosedWorkflowExecutions and specifying a TagFilter. +-- +-- 'taskList', 'startChildWorkflowExecutionDecisionAttributes_taskList' - The name of the task list to be used for decision tasks of the child +-- workflow execution. +-- +-- A task list for this workflow execution must be specified either as a +-- default for the workflow type or through this parameter. If neither this +-- parameter is set nor a default task list was specified at registration +-- time then a fault is returned. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- contain the literal string @arn@. +-- +-- 'taskPriority', 'startChildWorkflowExecutionDecisionAttributes_taskPriority' - A task priority that, if set, specifies the priority for a decision task +-- of this workflow execution. This overrides the defaultTaskPriority +-- specified when registering the workflow type. Valid values are integers +-- that range from Java\'s @Integer.MIN_VALUE@ (-2147483648) to +-- @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher +-- priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'taskStartToCloseTimeout', 'startChildWorkflowExecutionDecisionAttributes_taskStartToCloseTimeout' - Specifies the maximum duration of decision tasks for this workflow +-- execution. This parameter overrides the @defaultTaskStartToCloseTimout@ +-- specified when registering the workflow type using RegisterWorkflowType. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- A task start-to-close timeout for this workflow execution must be +-- specified either as a default for the workflow type or through this +-- parameter. If neither this parameter is set nor a default task +-- start-to-close timeout was specified at registration time then a fault +-- is returned. +-- +-- 'workflowType', 'startChildWorkflowExecutionDecisionAttributes_workflowType' - The type of the workflow execution to be started. +-- +-- 'workflowId', 'startChildWorkflowExecutionDecisionAttributes_workflowId' - The @workflowId@ of the workflow execution. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- contain the literal string @arn@. +newStartChildWorkflowExecutionDecisionAttributes :: + -- | 'workflowType' + WorkflowType -> + -- | 'workflowId' + Prelude.Text -> + StartChildWorkflowExecutionDecisionAttributes +newStartChildWorkflowExecutionDecisionAttributes + pWorkflowType_ + pWorkflowId_ = + StartChildWorkflowExecutionDecisionAttributes' + { childPolicy = + Prelude.Nothing, + control = Prelude.Nothing, + executionStartToCloseTimeout = + Prelude.Nothing, + input = Prelude.Nothing, + lambdaRole = Prelude.Nothing, + tagList = Prelude.Nothing, + taskList = Prelude.Nothing, + taskPriority = + Prelude.Nothing, + taskStartToCloseTimeout = + Prelude.Nothing, + workflowType = + pWorkflowType_, + workflowId = pWorkflowId_ + } + +-- | If set, specifies the policy to use for the child workflow executions if +-- the workflow execution being started is terminated by calling the +-- TerminateWorkflowExecution action explicitly or due to an expired +-- timeout. This policy overrides the default child policy specified when +-- registering the workflow type using RegisterWorkflowType. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +-- +-- A child policy for this workflow execution must be specified either as a +-- default for the workflow type or through this parameter. If neither this +-- parameter is set nor a default child policy was specified at +-- registration time then a fault is returned. +startChildWorkflowExecutionDecisionAttributes_childPolicy :: Lens.Lens' StartChildWorkflowExecutionDecisionAttributes (Prelude.Maybe ChildPolicy) +startChildWorkflowExecutionDecisionAttributes_childPolicy = Lens.lens (\StartChildWorkflowExecutionDecisionAttributes' {childPolicy} -> childPolicy) (\s@StartChildWorkflowExecutionDecisionAttributes' {} a -> s {childPolicy = a} :: StartChildWorkflowExecutionDecisionAttributes) + +-- | The data attached to the event that can be used by the decider in +-- subsequent workflow tasks. This data isn\'t sent to the child workflow +-- execution. +startChildWorkflowExecutionDecisionAttributes_control :: Lens.Lens' StartChildWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +startChildWorkflowExecutionDecisionAttributes_control = Lens.lens (\StartChildWorkflowExecutionDecisionAttributes' {control} -> control) (\s@StartChildWorkflowExecutionDecisionAttributes' {} a -> s {control = a} :: StartChildWorkflowExecutionDecisionAttributes) + +-- | The total duration for this workflow execution. This overrides the +-- defaultExecutionStartToCloseTimeout specified when registering the +-- workflow type. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- An execution start-to-close timeout for this workflow execution must be +-- specified either as a default for the workflow type or through this +-- parameter. If neither this parameter is set nor a default execution +-- start-to-close timeout was specified at registration time then a fault +-- is returned. +startChildWorkflowExecutionDecisionAttributes_executionStartToCloseTimeout :: Lens.Lens' StartChildWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +startChildWorkflowExecutionDecisionAttributes_executionStartToCloseTimeout = Lens.lens (\StartChildWorkflowExecutionDecisionAttributes' {executionStartToCloseTimeout} -> executionStartToCloseTimeout) (\s@StartChildWorkflowExecutionDecisionAttributes' {} a -> s {executionStartToCloseTimeout = a} :: StartChildWorkflowExecutionDecisionAttributes) + +-- | The input to be provided to the workflow execution. +startChildWorkflowExecutionDecisionAttributes_input :: Lens.Lens' StartChildWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +startChildWorkflowExecutionDecisionAttributes_input = Lens.lens (\StartChildWorkflowExecutionDecisionAttributes' {input} -> input) (\s@StartChildWorkflowExecutionDecisionAttributes' {} a -> s {input = a} :: StartChildWorkflowExecutionDecisionAttributes) + +-- | The IAM role attached to the child workflow execution. +startChildWorkflowExecutionDecisionAttributes_lambdaRole :: Lens.Lens' StartChildWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +startChildWorkflowExecutionDecisionAttributes_lambdaRole = Lens.lens (\StartChildWorkflowExecutionDecisionAttributes' {lambdaRole} -> lambdaRole) (\s@StartChildWorkflowExecutionDecisionAttributes' {} a -> s {lambdaRole = a} :: StartChildWorkflowExecutionDecisionAttributes) + +-- | The list of tags to associate with the child workflow execution. A +-- maximum of 5 tags can be specified. You can list workflow executions +-- with a specific tag by calling ListOpenWorkflowExecutions or +-- ListClosedWorkflowExecutions and specifying a TagFilter. +startChildWorkflowExecutionDecisionAttributes_tagList :: Lens.Lens' StartChildWorkflowExecutionDecisionAttributes (Prelude.Maybe [Prelude.Text]) +startChildWorkflowExecutionDecisionAttributes_tagList = Lens.lens (\StartChildWorkflowExecutionDecisionAttributes' {tagList} -> tagList) (\s@StartChildWorkflowExecutionDecisionAttributes' {} a -> s {tagList = a} :: StartChildWorkflowExecutionDecisionAttributes) Prelude.. Lens.mapping Lens.coerced + +-- | The name of the task list to be used for decision tasks of the child +-- workflow execution. +-- +-- A task list for this workflow execution must be specified either as a +-- default for the workflow type or through this parameter. If neither this +-- parameter is set nor a default task list was specified at registration +-- time then a fault is returned. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- contain the literal string @arn@. +startChildWorkflowExecutionDecisionAttributes_taskList :: Lens.Lens' StartChildWorkflowExecutionDecisionAttributes (Prelude.Maybe TaskList) +startChildWorkflowExecutionDecisionAttributes_taskList = Lens.lens (\StartChildWorkflowExecutionDecisionAttributes' {taskList} -> taskList) (\s@StartChildWorkflowExecutionDecisionAttributes' {} a -> s {taskList = a} :: StartChildWorkflowExecutionDecisionAttributes) + +-- | A task priority that, if set, specifies the priority for a decision task +-- of this workflow execution. This overrides the defaultTaskPriority +-- specified when registering the workflow type. Valid values are integers +-- that range from Java\'s @Integer.MIN_VALUE@ (-2147483648) to +-- @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher +-- priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +startChildWorkflowExecutionDecisionAttributes_taskPriority :: Lens.Lens' StartChildWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +startChildWorkflowExecutionDecisionAttributes_taskPriority = Lens.lens (\StartChildWorkflowExecutionDecisionAttributes' {taskPriority} -> taskPriority) (\s@StartChildWorkflowExecutionDecisionAttributes' {} a -> s {taskPriority = a} :: StartChildWorkflowExecutionDecisionAttributes) + +-- | Specifies the maximum duration of decision tasks for this workflow +-- execution. This parameter overrides the @defaultTaskStartToCloseTimout@ +-- specified when registering the workflow type using RegisterWorkflowType. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- A task start-to-close timeout for this workflow execution must be +-- specified either as a default for the workflow type or through this +-- parameter. If neither this parameter is set nor a default task +-- start-to-close timeout was specified at registration time then a fault +-- is returned. +startChildWorkflowExecutionDecisionAttributes_taskStartToCloseTimeout :: Lens.Lens' StartChildWorkflowExecutionDecisionAttributes (Prelude.Maybe Prelude.Text) +startChildWorkflowExecutionDecisionAttributes_taskStartToCloseTimeout = Lens.lens (\StartChildWorkflowExecutionDecisionAttributes' {taskStartToCloseTimeout} -> taskStartToCloseTimeout) (\s@StartChildWorkflowExecutionDecisionAttributes' {} a -> s {taskStartToCloseTimeout = a} :: StartChildWorkflowExecutionDecisionAttributes) + +-- | The type of the workflow execution to be started. +startChildWorkflowExecutionDecisionAttributes_workflowType :: Lens.Lens' StartChildWorkflowExecutionDecisionAttributes WorkflowType +startChildWorkflowExecutionDecisionAttributes_workflowType = Lens.lens (\StartChildWorkflowExecutionDecisionAttributes' {workflowType} -> workflowType) (\s@StartChildWorkflowExecutionDecisionAttributes' {} a -> s {workflowType = a} :: StartChildWorkflowExecutionDecisionAttributes) + +-- | The @workflowId@ of the workflow execution. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- contain the literal string @arn@. +startChildWorkflowExecutionDecisionAttributes_workflowId :: Lens.Lens' StartChildWorkflowExecutionDecisionAttributes Prelude.Text +startChildWorkflowExecutionDecisionAttributes_workflowId = Lens.lens (\StartChildWorkflowExecutionDecisionAttributes' {workflowId} -> workflowId) (\s@StartChildWorkflowExecutionDecisionAttributes' {} a -> s {workflowId = a} :: StartChildWorkflowExecutionDecisionAttributes) + +instance + Prelude.Hashable + StartChildWorkflowExecutionDecisionAttributes + where + hashWithSalt + _salt + StartChildWorkflowExecutionDecisionAttributes' {..} = + _salt + `Prelude.hashWithSalt` childPolicy + `Prelude.hashWithSalt` control + `Prelude.hashWithSalt` executionStartToCloseTimeout + `Prelude.hashWithSalt` input + `Prelude.hashWithSalt` lambdaRole + `Prelude.hashWithSalt` tagList + `Prelude.hashWithSalt` taskList + `Prelude.hashWithSalt` taskPriority + `Prelude.hashWithSalt` taskStartToCloseTimeout + `Prelude.hashWithSalt` workflowType + `Prelude.hashWithSalt` workflowId + +instance + Prelude.NFData + StartChildWorkflowExecutionDecisionAttributes + where + rnf + StartChildWorkflowExecutionDecisionAttributes' {..} = + Prelude.rnf childPolicy + `Prelude.seq` Prelude.rnf control + `Prelude.seq` Prelude.rnf executionStartToCloseTimeout + `Prelude.seq` Prelude.rnf input + `Prelude.seq` Prelude.rnf lambdaRole + `Prelude.seq` Prelude.rnf tagList + `Prelude.seq` Prelude.rnf taskList + `Prelude.seq` Prelude.rnf taskPriority + `Prelude.seq` Prelude.rnf taskStartToCloseTimeout + `Prelude.seq` Prelude.rnf workflowType + `Prelude.seq` Prelude.rnf workflowId + +instance + Data.ToJSON + StartChildWorkflowExecutionDecisionAttributes + where + toJSON + StartChildWorkflowExecutionDecisionAttributes' {..} = + Data.object + ( Prelude.catMaybes + [ ("childPolicy" Data..=) Prelude.<$> childPolicy, + ("control" Data..=) Prelude.<$> control, + ("executionStartToCloseTimeout" Data..=) + Prelude.<$> executionStartToCloseTimeout, + ("input" Data..=) Prelude.<$> input, + ("lambdaRole" Data..=) Prelude.<$> lambdaRole, + ("tagList" Data..=) Prelude.<$> tagList, + ("taskList" Data..=) Prelude.<$> taskList, + ("taskPriority" Data..=) Prelude.<$> taskPriority, + ("taskStartToCloseTimeout" Data..=) + Prelude.<$> taskStartToCloseTimeout, + Prelude.Just ("workflowType" Data..= workflowType), + Prelude.Just ("workflowId" Data..= workflowId) + ] + ) diff --git a/gen/Amazonka/SWF/Types/StartChildWorkflowExecutionFailedCause.hs b/gen/Amazonka/SWF/Types/StartChildWorkflowExecutionFailedCause.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/StartChildWorkflowExecutionFailedCause.hs @@ -0,0 +1,116 @@ +{-# 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.SWF.Types.StartChildWorkflowExecutionFailedCause +-- 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.SWF.Types.StartChildWorkflowExecutionFailedCause + ( StartChildWorkflowExecutionFailedCause + ( .., + StartChildWorkflowExecutionFailedCause_CHILD_CREATION_RATE_EXCEEDED, + StartChildWorkflowExecutionFailedCause_DEFAULT_CHILD_POLICY_UNDEFINED, + StartChildWorkflowExecutionFailedCause_DEFAULT_EXECUTION_START_TO_CLOSE_TIMEOUT_UNDEFINED, + StartChildWorkflowExecutionFailedCause_DEFAULT_TASK_LIST_UNDEFINED, + StartChildWorkflowExecutionFailedCause_DEFAULT_TASK_START_TO_CLOSE_TIMEOUT_UNDEFINED, + StartChildWorkflowExecutionFailedCause_OPEN_CHILDREN_LIMIT_EXCEEDED, + StartChildWorkflowExecutionFailedCause_OPEN_WORKFLOWS_LIMIT_EXCEEDED, + StartChildWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED, + StartChildWorkflowExecutionFailedCause_WORKFLOW_ALREADY_RUNNING, + StartChildWorkflowExecutionFailedCause_WORKFLOW_TYPE_DEPRECATED, + StartChildWorkflowExecutionFailedCause_WORKFLOW_TYPE_DOES_NOT_EXIST + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype StartChildWorkflowExecutionFailedCause = StartChildWorkflowExecutionFailedCause' + { fromStartChildWorkflowExecutionFailedCause :: + 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 StartChildWorkflowExecutionFailedCause_CHILD_CREATION_RATE_EXCEEDED :: StartChildWorkflowExecutionFailedCause +pattern StartChildWorkflowExecutionFailedCause_CHILD_CREATION_RATE_EXCEEDED = StartChildWorkflowExecutionFailedCause' "CHILD_CREATION_RATE_EXCEEDED" + +pattern StartChildWorkflowExecutionFailedCause_DEFAULT_CHILD_POLICY_UNDEFINED :: StartChildWorkflowExecutionFailedCause +pattern StartChildWorkflowExecutionFailedCause_DEFAULT_CHILD_POLICY_UNDEFINED = StartChildWorkflowExecutionFailedCause' "DEFAULT_CHILD_POLICY_UNDEFINED" + +pattern StartChildWorkflowExecutionFailedCause_DEFAULT_EXECUTION_START_TO_CLOSE_TIMEOUT_UNDEFINED :: StartChildWorkflowExecutionFailedCause +pattern StartChildWorkflowExecutionFailedCause_DEFAULT_EXECUTION_START_TO_CLOSE_TIMEOUT_UNDEFINED = StartChildWorkflowExecutionFailedCause' "DEFAULT_EXECUTION_START_TO_CLOSE_TIMEOUT_UNDEFINED" + +pattern StartChildWorkflowExecutionFailedCause_DEFAULT_TASK_LIST_UNDEFINED :: StartChildWorkflowExecutionFailedCause +pattern StartChildWorkflowExecutionFailedCause_DEFAULT_TASK_LIST_UNDEFINED = StartChildWorkflowExecutionFailedCause' "DEFAULT_TASK_LIST_UNDEFINED" + +pattern StartChildWorkflowExecutionFailedCause_DEFAULT_TASK_START_TO_CLOSE_TIMEOUT_UNDEFINED :: StartChildWorkflowExecutionFailedCause +pattern StartChildWorkflowExecutionFailedCause_DEFAULT_TASK_START_TO_CLOSE_TIMEOUT_UNDEFINED = StartChildWorkflowExecutionFailedCause' "DEFAULT_TASK_START_TO_CLOSE_TIMEOUT_UNDEFINED" + +pattern StartChildWorkflowExecutionFailedCause_OPEN_CHILDREN_LIMIT_EXCEEDED :: StartChildWorkflowExecutionFailedCause +pattern StartChildWorkflowExecutionFailedCause_OPEN_CHILDREN_LIMIT_EXCEEDED = StartChildWorkflowExecutionFailedCause' "OPEN_CHILDREN_LIMIT_EXCEEDED" + +pattern StartChildWorkflowExecutionFailedCause_OPEN_WORKFLOWS_LIMIT_EXCEEDED :: StartChildWorkflowExecutionFailedCause +pattern StartChildWorkflowExecutionFailedCause_OPEN_WORKFLOWS_LIMIT_EXCEEDED = StartChildWorkflowExecutionFailedCause' "OPEN_WORKFLOWS_LIMIT_EXCEEDED" + +pattern StartChildWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED :: StartChildWorkflowExecutionFailedCause +pattern StartChildWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED = StartChildWorkflowExecutionFailedCause' "OPERATION_NOT_PERMITTED" + +pattern StartChildWorkflowExecutionFailedCause_WORKFLOW_ALREADY_RUNNING :: StartChildWorkflowExecutionFailedCause +pattern StartChildWorkflowExecutionFailedCause_WORKFLOW_ALREADY_RUNNING = StartChildWorkflowExecutionFailedCause' "WORKFLOW_ALREADY_RUNNING" + +pattern StartChildWorkflowExecutionFailedCause_WORKFLOW_TYPE_DEPRECATED :: StartChildWorkflowExecutionFailedCause +pattern StartChildWorkflowExecutionFailedCause_WORKFLOW_TYPE_DEPRECATED = StartChildWorkflowExecutionFailedCause' "WORKFLOW_TYPE_DEPRECATED" + +pattern StartChildWorkflowExecutionFailedCause_WORKFLOW_TYPE_DOES_NOT_EXIST :: StartChildWorkflowExecutionFailedCause +pattern StartChildWorkflowExecutionFailedCause_WORKFLOW_TYPE_DOES_NOT_EXIST = StartChildWorkflowExecutionFailedCause' "WORKFLOW_TYPE_DOES_NOT_EXIST" + +{-# COMPLETE + StartChildWorkflowExecutionFailedCause_CHILD_CREATION_RATE_EXCEEDED, + StartChildWorkflowExecutionFailedCause_DEFAULT_CHILD_POLICY_UNDEFINED, + StartChildWorkflowExecutionFailedCause_DEFAULT_EXECUTION_START_TO_CLOSE_TIMEOUT_UNDEFINED, + StartChildWorkflowExecutionFailedCause_DEFAULT_TASK_LIST_UNDEFINED, + StartChildWorkflowExecutionFailedCause_DEFAULT_TASK_START_TO_CLOSE_TIMEOUT_UNDEFINED, + StartChildWorkflowExecutionFailedCause_OPEN_CHILDREN_LIMIT_EXCEEDED, + StartChildWorkflowExecutionFailedCause_OPEN_WORKFLOWS_LIMIT_EXCEEDED, + StartChildWorkflowExecutionFailedCause_OPERATION_NOT_PERMITTED, + StartChildWorkflowExecutionFailedCause_WORKFLOW_ALREADY_RUNNING, + StartChildWorkflowExecutionFailedCause_WORKFLOW_TYPE_DEPRECATED, + StartChildWorkflowExecutionFailedCause_WORKFLOW_TYPE_DOES_NOT_EXIST, + StartChildWorkflowExecutionFailedCause' + #-} diff --git a/gen/Amazonka/SWF/Types/StartChildWorkflowExecutionFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/StartChildWorkflowExecutionFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/StartChildWorkflowExecutionFailedEventAttributes.hs @@ -0,0 +1,225 @@ +{-# 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.SWF.Types.StartChildWorkflowExecutionFailedEventAttributes +-- 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.SWF.Types.StartChildWorkflowExecutionFailedEventAttributes 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 +import Amazonka.SWF.Types.StartChildWorkflowExecutionFailedCause +import Amazonka.SWF.Types.WorkflowType + +-- | Provides the details of the @StartChildWorkflowExecutionFailed@ event. +-- +-- /See:/ 'newStartChildWorkflowExecutionFailedEventAttributes' smart constructor. +data StartChildWorkflowExecutionFailedEventAttributes = StartChildWorkflowExecutionFailedEventAttributes' + { -- | The data attached to the event that the decider can use in subsequent + -- workflow tasks. This data isn\'t sent to the child workflow execution. + control :: Prelude.Maybe Prelude.Text, + -- | The workflow type provided in the @StartChildWorkflowExecution@ Decision + -- that failed. + workflowType :: WorkflowType, + -- | The cause of the failure. This information is generated by the system + -- and can be useful for diagnostic purposes. + -- + -- When @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision fails + -- because it lacks sufficient permissions. For details and example IAM + -- policies, see + -- + -- in the /Amazon SWF Developer Guide/. + cause :: StartChildWorkflowExecutionFailedCause, + -- | The @workflowId@ of the child workflow execution. + workflowId :: Prelude.Text, + -- | When the @cause@ is @WORKFLOW_ALREADY_RUNNING@, @initiatedEventId@ is + -- the ID of the @StartChildWorkflowExecutionInitiated@ event that + -- corresponds to the @StartChildWorkflowExecution@ Decision to start the + -- workflow execution. You can use this information to diagnose problems by + -- tracing back the chain of events leading up to this event. + -- + -- When the @cause@ isn\'t @WORKFLOW_ALREADY_RUNNING@, @initiatedEventId@ + -- is set to @0@ because the @StartChildWorkflowExecutionInitiated@ event + -- doesn\'t exist. + initiatedEventId :: Prelude.Integer, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @StartChildWorkflowExecution@ + -- Decision to request this child workflow execution. This information can + -- be useful for diagnosing problems by tracing back the chain of events. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StartChildWorkflowExecutionFailedEventAttributes' 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: +-- +-- 'control', 'startChildWorkflowExecutionFailedEventAttributes_control' - The data attached to the event that the decider can use in subsequent +-- workflow tasks. This data isn\'t sent to the child workflow execution. +-- +-- 'workflowType', 'startChildWorkflowExecutionFailedEventAttributes_workflowType' - The workflow type provided in the @StartChildWorkflowExecution@ Decision +-- that failed. +-- +-- 'cause', 'startChildWorkflowExecutionFailedEventAttributes_cause' - The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- When @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision fails +-- because it lacks sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'workflowId', 'startChildWorkflowExecutionFailedEventAttributes_workflowId' - The @workflowId@ of the child workflow execution. +-- +-- 'initiatedEventId', 'startChildWorkflowExecutionFailedEventAttributes_initiatedEventId' - When the @cause@ is @WORKFLOW_ALREADY_RUNNING@, @initiatedEventId@ is +-- the ID of the @StartChildWorkflowExecutionInitiated@ event that +-- corresponds to the @StartChildWorkflowExecution@ Decision to start the +-- workflow execution. You can use this information to diagnose problems by +-- tracing back the chain of events leading up to this event. +-- +-- When the @cause@ isn\'t @WORKFLOW_ALREADY_RUNNING@, @initiatedEventId@ +-- is set to @0@ because the @StartChildWorkflowExecutionInitiated@ event +-- doesn\'t exist. +-- +-- 'decisionTaskCompletedEventId', 'startChildWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @StartChildWorkflowExecution@ +-- Decision to request this child workflow execution. This information can +-- be useful for diagnosing problems by tracing back the chain of events. +newStartChildWorkflowExecutionFailedEventAttributes :: + -- | 'workflowType' + WorkflowType -> + -- | 'cause' + StartChildWorkflowExecutionFailedCause -> + -- | 'workflowId' + Prelude.Text -> + -- | 'initiatedEventId' + Prelude.Integer -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + StartChildWorkflowExecutionFailedEventAttributes +newStartChildWorkflowExecutionFailedEventAttributes + pWorkflowType_ + pCause_ + pWorkflowId_ + pInitiatedEventId_ + pDecisionTaskCompletedEventId_ = + StartChildWorkflowExecutionFailedEventAttributes' + { control = + Prelude.Nothing, + workflowType = + pWorkflowType_, + cause = pCause_, + workflowId = pWorkflowId_, + initiatedEventId = + pInitiatedEventId_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The data attached to the event that the decider can use in subsequent +-- workflow tasks. This data isn\'t sent to the child workflow execution. +startChildWorkflowExecutionFailedEventAttributes_control :: Lens.Lens' StartChildWorkflowExecutionFailedEventAttributes (Prelude.Maybe Prelude.Text) +startChildWorkflowExecutionFailedEventAttributes_control = Lens.lens (\StartChildWorkflowExecutionFailedEventAttributes' {control} -> control) (\s@StartChildWorkflowExecutionFailedEventAttributes' {} a -> s {control = a} :: StartChildWorkflowExecutionFailedEventAttributes) + +-- | The workflow type provided in the @StartChildWorkflowExecution@ Decision +-- that failed. +startChildWorkflowExecutionFailedEventAttributes_workflowType :: Lens.Lens' StartChildWorkflowExecutionFailedEventAttributes WorkflowType +startChildWorkflowExecutionFailedEventAttributes_workflowType = Lens.lens (\StartChildWorkflowExecutionFailedEventAttributes' {workflowType} -> workflowType) (\s@StartChildWorkflowExecutionFailedEventAttributes' {} a -> s {workflowType = a} :: StartChildWorkflowExecutionFailedEventAttributes) + +-- | The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- When @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision fails +-- because it lacks sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +startChildWorkflowExecutionFailedEventAttributes_cause :: Lens.Lens' StartChildWorkflowExecutionFailedEventAttributes StartChildWorkflowExecutionFailedCause +startChildWorkflowExecutionFailedEventAttributes_cause = Lens.lens (\StartChildWorkflowExecutionFailedEventAttributes' {cause} -> cause) (\s@StartChildWorkflowExecutionFailedEventAttributes' {} a -> s {cause = a} :: StartChildWorkflowExecutionFailedEventAttributes) + +-- | The @workflowId@ of the child workflow execution. +startChildWorkflowExecutionFailedEventAttributes_workflowId :: Lens.Lens' StartChildWorkflowExecutionFailedEventAttributes Prelude.Text +startChildWorkflowExecutionFailedEventAttributes_workflowId = Lens.lens (\StartChildWorkflowExecutionFailedEventAttributes' {workflowId} -> workflowId) (\s@StartChildWorkflowExecutionFailedEventAttributes' {} a -> s {workflowId = a} :: StartChildWorkflowExecutionFailedEventAttributes) + +-- | When the @cause@ is @WORKFLOW_ALREADY_RUNNING@, @initiatedEventId@ is +-- the ID of the @StartChildWorkflowExecutionInitiated@ event that +-- corresponds to the @StartChildWorkflowExecution@ Decision to start the +-- workflow execution. You can use this information to diagnose problems by +-- tracing back the chain of events leading up to this event. +-- +-- When the @cause@ isn\'t @WORKFLOW_ALREADY_RUNNING@, @initiatedEventId@ +-- is set to @0@ because the @StartChildWorkflowExecutionInitiated@ event +-- doesn\'t exist. +startChildWorkflowExecutionFailedEventAttributes_initiatedEventId :: Lens.Lens' StartChildWorkflowExecutionFailedEventAttributes Prelude.Integer +startChildWorkflowExecutionFailedEventAttributes_initiatedEventId = Lens.lens (\StartChildWorkflowExecutionFailedEventAttributes' {initiatedEventId} -> initiatedEventId) (\s@StartChildWorkflowExecutionFailedEventAttributes' {} a -> s {initiatedEventId = a} :: StartChildWorkflowExecutionFailedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @StartChildWorkflowExecution@ +-- Decision to request this child workflow execution. This information can +-- be useful for diagnosing problems by tracing back the chain of events. +startChildWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' StartChildWorkflowExecutionFailedEventAttributes Prelude.Integer +startChildWorkflowExecutionFailedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\StartChildWorkflowExecutionFailedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@StartChildWorkflowExecutionFailedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: StartChildWorkflowExecutionFailedEventAttributes) + +instance + Data.FromJSON + StartChildWorkflowExecutionFailedEventAttributes + where + parseJSON = + Data.withObject + "StartChildWorkflowExecutionFailedEventAttributes" + ( \x -> + StartChildWorkflowExecutionFailedEventAttributes' + Prelude.<$> (x Data..:? "control") + Prelude.<*> (x Data..: "workflowType") + Prelude.<*> (x Data..: "cause") + Prelude.<*> (x Data..: "workflowId") + Prelude.<*> (x Data..: "initiatedEventId") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + StartChildWorkflowExecutionFailedEventAttributes + where + hashWithSalt + _salt + StartChildWorkflowExecutionFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` control + `Prelude.hashWithSalt` workflowType + `Prelude.hashWithSalt` cause + `Prelude.hashWithSalt` workflowId + `Prelude.hashWithSalt` initiatedEventId + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + StartChildWorkflowExecutionFailedEventAttributes + where + rnf + StartChildWorkflowExecutionFailedEventAttributes' {..} = + Prelude.rnf control + `Prelude.seq` Prelude.rnf workflowType + `Prelude.seq` Prelude.rnf cause + `Prelude.seq` Prelude.rnf workflowId + `Prelude.seq` Prelude.rnf initiatedEventId + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/StartChildWorkflowExecutionInitiatedEventAttributes.hs b/gen/Amazonka/SWF/Types/StartChildWorkflowExecutionInitiatedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/StartChildWorkflowExecutionInitiatedEventAttributes.hs @@ -0,0 +1,351 @@ +{-# 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.SWF.Types.StartChildWorkflowExecutionInitiatedEventAttributes +-- 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.SWF.Types.StartChildWorkflowExecutionInitiatedEventAttributes 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 +import Amazonka.SWF.Types.ChildPolicy +import Amazonka.SWF.Types.TaskList +import Amazonka.SWF.Types.WorkflowType + +-- | Provides the details of the @StartChildWorkflowExecutionInitiated@ +-- event. +-- +-- /See:/ 'newStartChildWorkflowExecutionInitiatedEventAttributes' smart constructor. +data StartChildWorkflowExecutionInitiatedEventAttributes = StartChildWorkflowExecutionInitiatedEventAttributes' + { -- | Data attached to the event that can be used by the decider in subsequent + -- decision tasks. This data isn\'t sent to the activity. + control :: Prelude.Maybe Prelude.Text, + -- | The maximum duration for the child workflow execution. If the workflow + -- execution isn\'t closed within this duration, it is timed out and + -- force-terminated. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + executionStartToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The inputs provided to the child workflow execution. + input :: Prelude.Maybe Prelude.Text, + -- | The IAM role to attach to the child workflow execution. + lambdaRole :: Prelude.Maybe Prelude.Text, + -- | The list of tags to associated with the child workflow execution. + tagList :: Prelude.Maybe [Prelude.Text], + -- | The priority assigned for the decision tasks for this workflow + -- execution. Valid values are integers that range from Java\'s + -- @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). + -- Higher numbers indicate higher priority. + -- + -- For more information about setting task priority, see + -- + -- in the /Amazon SWF Developer Guide/. + taskPriority :: Prelude.Maybe Prelude.Text, + -- | The maximum duration allowed for the decision tasks for this workflow + -- execution. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + taskStartToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The @workflowId@ of the child workflow execution. + workflowId :: Prelude.Text, + -- | The type of the child workflow execution. + workflowType :: WorkflowType, + -- | The name of the task list used for the decision tasks of the child + -- workflow execution. + taskList :: TaskList, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @StartChildWorkflowExecution@ + -- Decision to request this child workflow execution. This information can + -- be useful for diagnosing problems by tracing back the cause of events. + decisionTaskCompletedEventId :: Prelude.Integer, + -- | The policy to use for the child workflow executions if this execution + -- gets terminated by explicitly calling the TerminateWorkflowExecution + -- action or due to an expired timeout. + -- + -- The supported child policies are: + -- + -- - @TERMINATE@ – The child executions are terminated. + -- + -- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child + -- execution by recording a @WorkflowExecutionCancelRequested@ event in + -- its history. It is up to the decider to take appropriate actions + -- when it receives an execution history with this event. + -- + -- - @ABANDON@ – No action is taken. The child executions continue to + -- run. + childPolicy :: ChildPolicy + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StartChildWorkflowExecutionInitiatedEventAttributes' 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: +-- +-- 'control', 'startChildWorkflowExecutionInitiatedEventAttributes_control' - Data attached to the event that can be used by the decider in subsequent +-- decision tasks. This data isn\'t sent to the activity. +-- +-- 'executionStartToCloseTimeout', 'startChildWorkflowExecutionInitiatedEventAttributes_executionStartToCloseTimeout' - The maximum duration for the child workflow execution. If the workflow +-- execution isn\'t closed within this duration, it is timed out and +-- force-terminated. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'input', 'startChildWorkflowExecutionInitiatedEventAttributes_input' - The inputs provided to the child workflow execution. +-- +-- 'lambdaRole', 'startChildWorkflowExecutionInitiatedEventAttributes_lambdaRole' - The IAM role to attach to the child workflow execution. +-- +-- 'tagList', 'startChildWorkflowExecutionInitiatedEventAttributes_tagList' - The list of tags to associated with the child workflow execution. +-- +-- 'taskPriority', 'startChildWorkflowExecutionInitiatedEventAttributes_taskPriority' - The priority assigned for the decision tasks for this workflow +-- execution. Valid values are integers that range from Java\'s +-- @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). +-- Higher numbers indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'taskStartToCloseTimeout', 'startChildWorkflowExecutionInitiatedEventAttributes_taskStartToCloseTimeout' - The maximum duration allowed for the decision tasks for this workflow +-- execution. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'workflowId', 'startChildWorkflowExecutionInitiatedEventAttributes_workflowId' - The @workflowId@ of the child workflow execution. +-- +-- 'workflowType', 'startChildWorkflowExecutionInitiatedEventAttributes_workflowType' - The type of the child workflow execution. +-- +-- 'taskList', 'startChildWorkflowExecutionInitiatedEventAttributes_taskList' - The name of the task list used for the decision tasks of the child +-- workflow execution. +-- +-- 'decisionTaskCompletedEventId', 'startChildWorkflowExecutionInitiatedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @StartChildWorkflowExecution@ +-- Decision to request this child workflow execution. This information can +-- be useful for diagnosing problems by tracing back the cause of events. +-- +-- 'childPolicy', 'startChildWorkflowExecutionInitiatedEventAttributes_childPolicy' - The policy to use for the child workflow executions if this execution +-- gets terminated by explicitly calling the TerminateWorkflowExecution +-- action or due to an expired timeout. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +newStartChildWorkflowExecutionInitiatedEventAttributes :: + -- | 'workflowId' + Prelude.Text -> + -- | 'workflowType' + WorkflowType -> + -- | 'taskList' + TaskList -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + -- | 'childPolicy' + ChildPolicy -> + StartChildWorkflowExecutionInitiatedEventAttributes +newStartChildWorkflowExecutionInitiatedEventAttributes + pWorkflowId_ + pWorkflowType_ + pTaskList_ + pDecisionTaskCompletedEventId_ + pChildPolicy_ = + StartChildWorkflowExecutionInitiatedEventAttributes' + { control = + Prelude.Nothing, + executionStartToCloseTimeout = + Prelude.Nothing, + input = + Prelude.Nothing, + lambdaRole = + Prelude.Nothing, + tagList = + Prelude.Nothing, + taskPriority = + Prelude.Nothing, + taskStartToCloseTimeout = + Prelude.Nothing, + workflowId = + pWorkflowId_, + workflowType = + pWorkflowType_, + taskList = pTaskList_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_, + childPolicy = + pChildPolicy_ + } + +-- | Data attached to the event that can be used by the decider in subsequent +-- decision tasks. This data isn\'t sent to the activity. +startChildWorkflowExecutionInitiatedEventAttributes_control :: Lens.Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Prelude.Maybe Prelude.Text) +startChildWorkflowExecutionInitiatedEventAttributes_control = Lens.lens (\StartChildWorkflowExecutionInitiatedEventAttributes' {control} -> control) (\s@StartChildWorkflowExecutionInitiatedEventAttributes' {} a -> s {control = a} :: StartChildWorkflowExecutionInitiatedEventAttributes) + +-- | The maximum duration for the child workflow execution. If the workflow +-- execution isn\'t closed within this duration, it is timed out and +-- force-terminated. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +startChildWorkflowExecutionInitiatedEventAttributes_executionStartToCloseTimeout :: Lens.Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Prelude.Maybe Prelude.Text) +startChildWorkflowExecutionInitiatedEventAttributes_executionStartToCloseTimeout = Lens.lens (\StartChildWorkflowExecutionInitiatedEventAttributes' {executionStartToCloseTimeout} -> executionStartToCloseTimeout) (\s@StartChildWorkflowExecutionInitiatedEventAttributes' {} a -> s {executionStartToCloseTimeout = a} :: StartChildWorkflowExecutionInitiatedEventAttributes) + +-- | The inputs provided to the child workflow execution. +startChildWorkflowExecutionInitiatedEventAttributes_input :: Lens.Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Prelude.Maybe Prelude.Text) +startChildWorkflowExecutionInitiatedEventAttributes_input = Lens.lens (\StartChildWorkflowExecutionInitiatedEventAttributes' {input} -> input) (\s@StartChildWorkflowExecutionInitiatedEventAttributes' {} a -> s {input = a} :: StartChildWorkflowExecutionInitiatedEventAttributes) + +-- | The IAM role to attach to the child workflow execution. +startChildWorkflowExecutionInitiatedEventAttributes_lambdaRole :: Lens.Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Prelude.Maybe Prelude.Text) +startChildWorkflowExecutionInitiatedEventAttributes_lambdaRole = Lens.lens (\StartChildWorkflowExecutionInitiatedEventAttributes' {lambdaRole} -> lambdaRole) (\s@StartChildWorkflowExecutionInitiatedEventAttributes' {} a -> s {lambdaRole = a} :: StartChildWorkflowExecutionInitiatedEventAttributes) + +-- | The list of tags to associated with the child workflow execution. +startChildWorkflowExecutionInitiatedEventAttributes_tagList :: Lens.Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Prelude.Maybe [Prelude.Text]) +startChildWorkflowExecutionInitiatedEventAttributes_tagList = Lens.lens (\StartChildWorkflowExecutionInitiatedEventAttributes' {tagList} -> tagList) (\s@StartChildWorkflowExecutionInitiatedEventAttributes' {} a -> s {tagList = a} :: StartChildWorkflowExecutionInitiatedEventAttributes) Prelude.. Lens.mapping Lens.coerced + +-- | The priority assigned for the decision tasks for this workflow +-- execution. Valid values are integers that range from Java\'s +-- @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). +-- Higher numbers indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +startChildWorkflowExecutionInitiatedEventAttributes_taskPriority :: Lens.Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Prelude.Maybe Prelude.Text) +startChildWorkflowExecutionInitiatedEventAttributes_taskPriority = Lens.lens (\StartChildWorkflowExecutionInitiatedEventAttributes' {taskPriority} -> taskPriority) (\s@StartChildWorkflowExecutionInitiatedEventAttributes' {} a -> s {taskPriority = a} :: StartChildWorkflowExecutionInitiatedEventAttributes) + +-- | The maximum duration allowed for the decision tasks for this workflow +-- execution. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +startChildWorkflowExecutionInitiatedEventAttributes_taskStartToCloseTimeout :: Lens.Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Prelude.Maybe Prelude.Text) +startChildWorkflowExecutionInitiatedEventAttributes_taskStartToCloseTimeout = Lens.lens (\StartChildWorkflowExecutionInitiatedEventAttributes' {taskStartToCloseTimeout} -> taskStartToCloseTimeout) (\s@StartChildWorkflowExecutionInitiatedEventAttributes' {} a -> s {taskStartToCloseTimeout = a} :: StartChildWorkflowExecutionInitiatedEventAttributes) + +-- | The @workflowId@ of the child workflow execution. +startChildWorkflowExecutionInitiatedEventAttributes_workflowId :: Lens.Lens' StartChildWorkflowExecutionInitiatedEventAttributes Prelude.Text +startChildWorkflowExecutionInitiatedEventAttributes_workflowId = Lens.lens (\StartChildWorkflowExecutionInitiatedEventAttributes' {workflowId} -> workflowId) (\s@StartChildWorkflowExecutionInitiatedEventAttributes' {} a -> s {workflowId = a} :: StartChildWorkflowExecutionInitiatedEventAttributes) + +-- | The type of the child workflow execution. +startChildWorkflowExecutionInitiatedEventAttributes_workflowType :: Lens.Lens' StartChildWorkflowExecutionInitiatedEventAttributes WorkflowType +startChildWorkflowExecutionInitiatedEventAttributes_workflowType = Lens.lens (\StartChildWorkflowExecutionInitiatedEventAttributes' {workflowType} -> workflowType) (\s@StartChildWorkflowExecutionInitiatedEventAttributes' {} a -> s {workflowType = a} :: StartChildWorkflowExecutionInitiatedEventAttributes) + +-- | The name of the task list used for the decision tasks of the child +-- workflow execution. +startChildWorkflowExecutionInitiatedEventAttributes_taskList :: Lens.Lens' StartChildWorkflowExecutionInitiatedEventAttributes TaskList +startChildWorkflowExecutionInitiatedEventAttributes_taskList = Lens.lens (\StartChildWorkflowExecutionInitiatedEventAttributes' {taskList} -> taskList) (\s@StartChildWorkflowExecutionInitiatedEventAttributes' {} a -> s {taskList = a} :: StartChildWorkflowExecutionInitiatedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @StartChildWorkflowExecution@ +-- Decision to request this child workflow execution. This information can +-- be useful for diagnosing problems by tracing back the cause of events. +startChildWorkflowExecutionInitiatedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' StartChildWorkflowExecutionInitiatedEventAttributes Prelude.Integer +startChildWorkflowExecutionInitiatedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\StartChildWorkflowExecutionInitiatedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@StartChildWorkflowExecutionInitiatedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: StartChildWorkflowExecutionInitiatedEventAttributes) + +-- | The policy to use for the child workflow executions if this execution +-- gets terminated by explicitly calling the TerminateWorkflowExecution +-- action or due to an expired timeout. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +startChildWorkflowExecutionInitiatedEventAttributes_childPolicy :: Lens.Lens' StartChildWorkflowExecutionInitiatedEventAttributes ChildPolicy +startChildWorkflowExecutionInitiatedEventAttributes_childPolicy = Lens.lens (\StartChildWorkflowExecutionInitiatedEventAttributes' {childPolicy} -> childPolicy) (\s@StartChildWorkflowExecutionInitiatedEventAttributes' {} a -> s {childPolicy = a} :: StartChildWorkflowExecutionInitiatedEventAttributes) + +instance + Data.FromJSON + StartChildWorkflowExecutionInitiatedEventAttributes + where + parseJSON = + Data.withObject + "StartChildWorkflowExecutionInitiatedEventAttributes" + ( \x -> + StartChildWorkflowExecutionInitiatedEventAttributes' + Prelude.<$> (x Data..:? "control") + Prelude.<*> (x Data..:? "executionStartToCloseTimeout") + Prelude.<*> (x Data..:? "input") + Prelude.<*> (x Data..:? "lambdaRole") + Prelude.<*> (x Data..:? "tagList" Data..!= Prelude.mempty) + Prelude.<*> (x Data..:? "taskPriority") + Prelude.<*> (x Data..:? "taskStartToCloseTimeout") + Prelude.<*> (x Data..: "workflowId") + Prelude.<*> (x Data..: "workflowType") + Prelude.<*> (x Data..: "taskList") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + Prelude.<*> (x Data..: "childPolicy") + ) + +instance + Prelude.Hashable + StartChildWorkflowExecutionInitiatedEventAttributes + where + hashWithSalt + _salt + StartChildWorkflowExecutionInitiatedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` control + `Prelude.hashWithSalt` executionStartToCloseTimeout + `Prelude.hashWithSalt` input + `Prelude.hashWithSalt` lambdaRole + `Prelude.hashWithSalt` tagList + `Prelude.hashWithSalt` taskPriority + `Prelude.hashWithSalt` taskStartToCloseTimeout + `Prelude.hashWithSalt` workflowId + `Prelude.hashWithSalt` workflowType + `Prelude.hashWithSalt` taskList + `Prelude.hashWithSalt` decisionTaskCompletedEventId + `Prelude.hashWithSalt` childPolicy + +instance + Prelude.NFData + StartChildWorkflowExecutionInitiatedEventAttributes + where + rnf + StartChildWorkflowExecutionInitiatedEventAttributes' {..} = + Prelude.rnf control + `Prelude.seq` Prelude.rnf executionStartToCloseTimeout + `Prelude.seq` Prelude.rnf input + `Prelude.seq` Prelude.rnf lambdaRole + `Prelude.seq` Prelude.rnf tagList + `Prelude.seq` Prelude.rnf taskPriority + `Prelude.seq` Prelude.rnf taskStartToCloseTimeout + `Prelude.seq` Prelude.rnf workflowId + `Prelude.seq` Prelude.rnf workflowType + `Prelude.seq` Prelude.rnf taskList + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId + `Prelude.seq` Prelude.rnf childPolicy diff --git a/gen/Amazonka/SWF/Types/StartLambdaFunctionFailedCause.hs b/gen/Amazonka/SWF/Types/StartLambdaFunctionFailedCause.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/StartLambdaFunctionFailedCause.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.SWF.Types.StartLambdaFunctionFailedCause +-- 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.SWF.Types.StartLambdaFunctionFailedCause + ( StartLambdaFunctionFailedCause + ( .., + StartLambdaFunctionFailedCause_ASSUME_ROLE_FAILED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype StartLambdaFunctionFailedCause = StartLambdaFunctionFailedCause' + { fromStartLambdaFunctionFailedCause :: + 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 StartLambdaFunctionFailedCause_ASSUME_ROLE_FAILED :: StartLambdaFunctionFailedCause +pattern StartLambdaFunctionFailedCause_ASSUME_ROLE_FAILED = StartLambdaFunctionFailedCause' "ASSUME_ROLE_FAILED" + +{-# COMPLETE + StartLambdaFunctionFailedCause_ASSUME_ROLE_FAILED, + StartLambdaFunctionFailedCause' + #-} diff --git a/gen/Amazonka/SWF/Types/StartLambdaFunctionFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/StartLambdaFunctionFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/StartLambdaFunctionFailedEventAttributes.hs @@ -0,0 +1,138 @@ +{-# 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.SWF.Types.StartLambdaFunctionFailedEventAttributes +-- 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.SWF.Types.StartLambdaFunctionFailedEventAttributes 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 +import Amazonka.SWF.Types.StartLambdaFunctionFailedCause + +-- | Provides the details of the @StartLambdaFunctionFailed@ event. It isn\'t +-- set for other event types. +-- +-- /See:/ 'newStartLambdaFunctionFailedEventAttributes' smart constructor. +data StartLambdaFunctionFailedEventAttributes = StartLambdaFunctionFailedEventAttributes' + { -- | The cause of the failure. To help diagnose issues, use this information + -- to trace back the chain of events leading up to this event. + -- + -- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed + -- because the IAM role attached to the execution lacked sufficient + -- permissions. For details and example IAM policies, see + -- + -- in the /Amazon SWF Developer Guide/. + cause :: Prelude.Maybe StartLambdaFunctionFailedCause, + -- | A description that can help diagnose the cause of the fault. + message :: Prelude.Maybe Prelude.Text, + -- | The ID of the @ActivityTaskScheduled@ event that was recorded when this + -- activity task was scheduled. To help diagnose issues, use this + -- information to trace back the chain of events leading up to this event. + scheduledEventId :: Prelude.Maybe Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StartLambdaFunctionFailedEventAttributes' 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: +-- +-- 'cause', 'startLambdaFunctionFailedEventAttributes_cause' - The cause of the failure. To help diagnose issues, use this information +-- to trace back the chain of events leading up to this event. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because the IAM role attached to the execution lacked sufficient +-- permissions. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'message', 'startLambdaFunctionFailedEventAttributes_message' - A description that can help diagnose the cause of the fault. +-- +-- 'scheduledEventId', 'startLambdaFunctionFailedEventAttributes_scheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this +-- activity task was scheduled. To help diagnose issues, use this +-- information to trace back the chain of events leading up to this event. +newStartLambdaFunctionFailedEventAttributes :: + StartLambdaFunctionFailedEventAttributes +newStartLambdaFunctionFailedEventAttributes = + StartLambdaFunctionFailedEventAttributes' + { cause = + Prelude.Nothing, + message = Prelude.Nothing, + scheduledEventId = + Prelude.Nothing + } + +-- | The cause of the failure. To help diagnose issues, use this information +-- to trace back the chain of events leading up to this event. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because the IAM role attached to the execution lacked sufficient +-- permissions. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +startLambdaFunctionFailedEventAttributes_cause :: Lens.Lens' StartLambdaFunctionFailedEventAttributes (Prelude.Maybe StartLambdaFunctionFailedCause) +startLambdaFunctionFailedEventAttributes_cause = Lens.lens (\StartLambdaFunctionFailedEventAttributes' {cause} -> cause) (\s@StartLambdaFunctionFailedEventAttributes' {} a -> s {cause = a} :: StartLambdaFunctionFailedEventAttributes) + +-- | A description that can help diagnose the cause of the fault. +startLambdaFunctionFailedEventAttributes_message :: Lens.Lens' StartLambdaFunctionFailedEventAttributes (Prelude.Maybe Prelude.Text) +startLambdaFunctionFailedEventAttributes_message = Lens.lens (\StartLambdaFunctionFailedEventAttributes' {message} -> message) (\s@StartLambdaFunctionFailedEventAttributes' {} a -> s {message = a} :: StartLambdaFunctionFailedEventAttributes) + +-- | The ID of the @ActivityTaskScheduled@ event that was recorded when this +-- activity task was scheduled. To help diagnose issues, use this +-- information to trace back the chain of events leading up to this event. +startLambdaFunctionFailedEventAttributes_scheduledEventId :: Lens.Lens' StartLambdaFunctionFailedEventAttributes (Prelude.Maybe Prelude.Integer) +startLambdaFunctionFailedEventAttributes_scheduledEventId = Lens.lens (\StartLambdaFunctionFailedEventAttributes' {scheduledEventId} -> scheduledEventId) (\s@StartLambdaFunctionFailedEventAttributes' {} a -> s {scheduledEventId = a} :: StartLambdaFunctionFailedEventAttributes) + +instance + Data.FromJSON + StartLambdaFunctionFailedEventAttributes + where + parseJSON = + Data.withObject + "StartLambdaFunctionFailedEventAttributes" + ( \x -> + StartLambdaFunctionFailedEventAttributes' + Prelude.<$> (x Data..:? "cause") + Prelude.<*> (x Data..:? "message") + Prelude.<*> (x Data..:? "scheduledEventId") + ) + +instance + Prelude.Hashable + StartLambdaFunctionFailedEventAttributes + where + hashWithSalt + _salt + StartLambdaFunctionFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` cause + `Prelude.hashWithSalt` message + `Prelude.hashWithSalt` scheduledEventId + +instance + Prelude.NFData + StartLambdaFunctionFailedEventAttributes + where + rnf StartLambdaFunctionFailedEventAttributes' {..} = + Prelude.rnf cause + `Prelude.seq` Prelude.rnf message + `Prelude.seq` Prelude.rnf scheduledEventId diff --git a/gen/Amazonka/SWF/Types/StartTimerDecisionAttributes.hs b/gen/Amazonka/SWF/Types/StartTimerDecisionAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/StartTimerDecisionAttributes.hs @@ -0,0 +1,153 @@ +{-# 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.SWF.Types.StartTimerDecisionAttributes +-- 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.SWF.Types.StartTimerDecisionAttributes 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 + +-- | Provides the details of the @StartTimer@ decision. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this decision\'s access to Amazon +-- SWF resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- /See:/ 'newStartTimerDecisionAttributes' smart constructor. +data StartTimerDecisionAttributes = StartTimerDecisionAttributes' + { -- | The data attached to the event that can be used by the decider in + -- subsequent workflow tasks. + control :: Prelude.Maybe Prelude.Text, + -- | The unique ID of the timer. + -- + -- The specified string must not start or end with whitespace. It must not + -- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control + -- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not + -- contain the literal string @arn@. + timerId :: Prelude.Text, + -- | The duration to wait before firing the timer. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. + startToFireTimeout :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StartTimerDecisionAttributes' 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: +-- +-- 'control', 'startTimerDecisionAttributes_control' - The data attached to the event that can be used by the decider in +-- subsequent workflow tasks. +-- +-- 'timerId', 'startTimerDecisionAttributes_timerId' - The unique ID of the timer. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- contain the literal string @arn@. +-- +-- 'startToFireTimeout', 'startTimerDecisionAttributes_startToFireTimeout' - The duration to wait before firing the timer. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. +newStartTimerDecisionAttributes :: + -- | 'timerId' + Prelude.Text -> + -- | 'startToFireTimeout' + Prelude.Text -> + StartTimerDecisionAttributes +newStartTimerDecisionAttributes + pTimerId_ + pStartToFireTimeout_ = + StartTimerDecisionAttributes' + { control = + Prelude.Nothing, + timerId = pTimerId_, + startToFireTimeout = pStartToFireTimeout_ + } + +-- | The data attached to the event that can be used by the decider in +-- subsequent workflow tasks. +startTimerDecisionAttributes_control :: Lens.Lens' StartTimerDecisionAttributes (Prelude.Maybe Prelude.Text) +startTimerDecisionAttributes_control = Lens.lens (\StartTimerDecisionAttributes' {control} -> control) (\s@StartTimerDecisionAttributes' {} a -> s {control = a} :: StartTimerDecisionAttributes) + +-- | The unique ID of the timer. +-- +-- The specified string must not start or end with whitespace. It must not +-- contain a @:@ (colon), @\/@ (slash), @|@ (vertical bar), or any control +-- characters (@\\u0000-\\u001f@ | @\\u007f-\\u009f@). Also, it must not +-- contain the literal string @arn@. +startTimerDecisionAttributes_timerId :: Lens.Lens' StartTimerDecisionAttributes Prelude.Text +startTimerDecisionAttributes_timerId = Lens.lens (\StartTimerDecisionAttributes' {timerId} -> timerId) (\s@StartTimerDecisionAttributes' {} a -> s {timerId = a} :: StartTimerDecisionAttributes) + +-- | The duration to wait before firing the timer. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. +startTimerDecisionAttributes_startToFireTimeout :: Lens.Lens' StartTimerDecisionAttributes Prelude.Text +startTimerDecisionAttributes_startToFireTimeout = Lens.lens (\StartTimerDecisionAttributes' {startToFireTimeout} -> startToFireTimeout) (\s@StartTimerDecisionAttributes' {} a -> s {startToFireTimeout = a} :: StartTimerDecisionAttributes) + +instance + Prelude.Hashable + StartTimerDecisionAttributes + where + hashWithSalt _salt StartTimerDecisionAttributes' {..} = + _salt + `Prelude.hashWithSalt` control + `Prelude.hashWithSalt` timerId + `Prelude.hashWithSalt` startToFireTimeout + +instance Prelude.NFData StartTimerDecisionAttributes where + rnf StartTimerDecisionAttributes' {..} = + Prelude.rnf control + `Prelude.seq` Prelude.rnf timerId + `Prelude.seq` Prelude.rnf startToFireTimeout + +instance Data.ToJSON StartTimerDecisionAttributes where + toJSON StartTimerDecisionAttributes' {..} = + Data.object + ( Prelude.catMaybes + [ ("control" Data..=) Prelude.<$> control, + Prelude.Just ("timerId" Data..= timerId), + Prelude.Just + ("startToFireTimeout" Data..= startToFireTimeout) + ] + ) diff --git a/gen/Amazonka/SWF/Types/StartTimerFailedCause.hs b/gen/Amazonka/SWF/Types/StartTimerFailedCause.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/StartTimerFailedCause.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.SWF.Types.StartTimerFailedCause +-- 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.SWF.Types.StartTimerFailedCause + ( StartTimerFailedCause + ( .., + StartTimerFailedCause_OPEN_TIMERS_LIMIT_EXCEEDED, + StartTimerFailedCause_OPERATION_NOT_PERMITTED, + StartTimerFailedCause_TIMER_CREATION_RATE_EXCEEDED, + StartTimerFailedCause_TIMER_ID_ALREADY_IN_USE + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype StartTimerFailedCause = StartTimerFailedCause' + { fromStartTimerFailedCause :: + 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 StartTimerFailedCause_OPEN_TIMERS_LIMIT_EXCEEDED :: StartTimerFailedCause +pattern StartTimerFailedCause_OPEN_TIMERS_LIMIT_EXCEEDED = StartTimerFailedCause' "OPEN_TIMERS_LIMIT_EXCEEDED" + +pattern StartTimerFailedCause_OPERATION_NOT_PERMITTED :: StartTimerFailedCause +pattern StartTimerFailedCause_OPERATION_NOT_PERMITTED = StartTimerFailedCause' "OPERATION_NOT_PERMITTED" + +pattern StartTimerFailedCause_TIMER_CREATION_RATE_EXCEEDED :: StartTimerFailedCause +pattern StartTimerFailedCause_TIMER_CREATION_RATE_EXCEEDED = StartTimerFailedCause' "TIMER_CREATION_RATE_EXCEEDED" + +pattern StartTimerFailedCause_TIMER_ID_ALREADY_IN_USE :: StartTimerFailedCause +pattern StartTimerFailedCause_TIMER_ID_ALREADY_IN_USE = StartTimerFailedCause' "TIMER_ID_ALREADY_IN_USE" + +{-# COMPLETE + StartTimerFailedCause_OPEN_TIMERS_LIMIT_EXCEEDED, + StartTimerFailedCause_OPERATION_NOT_PERMITTED, + StartTimerFailedCause_TIMER_CREATION_RATE_EXCEEDED, + StartTimerFailedCause_TIMER_ID_ALREADY_IN_USE, + StartTimerFailedCause' + #-} diff --git a/gen/Amazonka/SWF/Types/StartTimerFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/StartTimerFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/StartTimerFailedEventAttributes.hs @@ -0,0 +1,149 @@ +{-# 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.SWF.Types.StartTimerFailedEventAttributes +-- 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.SWF.Types.StartTimerFailedEventAttributes 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 +import Amazonka.SWF.Types.StartTimerFailedCause + +-- | Provides the details of the @StartTimerFailed@ event. +-- +-- /See:/ 'newStartTimerFailedEventAttributes' smart constructor. +data StartTimerFailedEventAttributes = StartTimerFailedEventAttributes' + { -- | The timerId provided in the @StartTimer@ decision that failed. + timerId :: Prelude.Text, + -- | The cause of the failure. This information is generated by the system + -- and can be useful for diagnostic purposes. + -- + -- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed + -- because it lacked sufficient permissions. For details and example IAM + -- policies, see + -- + -- in the /Amazon SWF Developer Guide/. + cause :: StartTimerFailedCause, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @StartTimer@ decision for this + -- activity task. This information can be useful for diagnosing problems by + -- tracing back the chain of events leading up to this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'StartTimerFailedEventAttributes' 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: +-- +-- 'timerId', 'startTimerFailedEventAttributes_timerId' - The timerId provided in the @StartTimer@ decision that failed. +-- +-- 'cause', 'startTimerFailedEventAttributes_cause' - The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'decisionTaskCompletedEventId', 'startTimerFailedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @StartTimer@ decision for this +-- activity task. This information can be useful for diagnosing problems by +-- tracing back the chain of events leading up to this event. +newStartTimerFailedEventAttributes :: + -- | 'timerId' + Prelude.Text -> + -- | 'cause' + StartTimerFailedCause -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + StartTimerFailedEventAttributes +newStartTimerFailedEventAttributes + pTimerId_ + pCause_ + pDecisionTaskCompletedEventId_ = + StartTimerFailedEventAttributes' + { timerId = + pTimerId_, + cause = pCause_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The timerId provided in the @StartTimer@ decision that failed. +startTimerFailedEventAttributes_timerId :: Lens.Lens' StartTimerFailedEventAttributes Prelude.Text +startTimerFailedEventAttributes_timerId = Lens.lens (\StartTimerFailedEventAttributes' {timerId} -> timerId) (\s@StartTimerFailedEventAttributes' {} a -> s {timerId = a} :: StartTimerFailedEventAttributes) + +-- | The cause of the failure. This information is generated by the system +-- and can be useful for diagnostic purposes. +-- +-- If @cause@ is set to @OPERATION_NOT_PERMITTED@, the decision failed +-- because it lacked sufficient permissions. For details and example IAM +-- policies, see +-- +-- in the /Amazon SWF Developer Guide/. +startTimerFailedEventAttributes_cause :: Lens.Lens' StartTimerFailedEventAttributes StartTimerFailedCause +startTimerFailedEventAttributes_cause = Lens.lens (\StartTimerFailedEventAttributes' {cause} -> cause) (\s@StartTimerFailedEventAttributes' {} a -> s {cause = a} :: StartTimerFailedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @StartTimer@ decision for this +-- activity task. This information can be useful for diagnosing problems by +-- tracing back the chain of events leading up to this event. +startTimerFailedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' StartTimerFailedEventAttributes Prelude.Integer +startTimerFailedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\StartTimerFailedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@StartTimerFailedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: StartTimerFailedEventAttributes) + +instance + Data.FromJSON + StartTimerFailedEventAttributes + where + parseJSON = + Data.withObject + "StartTimerFailedEventAttributes" + ( \x -> + StartTimerFailedEventAttributes' + Prelude.<$> (x Data..: "timerId") + Prelude.<*> (x Data..: "cause") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + StartTimerFailedEventAttributes + where + hashWithSalt + _salt + StartTimerFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` timerId + `Prelude.hashWithSalt` cause + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + StartTimerFailedEventAttributes + where + rnf StartTimerFailedEventAttributes' {..} = + Prelude.rnf timerId + `Prelude.seq` Prelude.rnf cause + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/TagFilter.hs b/gen/Amazonka/SWF/Types/TagFilter.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/TagFilter.hs @@ -0,0 +1,80 @@ +{-# 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.SWF.Types.TagFilter +-- 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.SWF.Types.TagFilter 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 + +-- | Used to filter the workflow executions in visibility APIs based on a +-- tag. +-- +-- /See:/ 'newTagFilter' smart constructor. +data TagFilter = TagFilter' + { -- | Specifies the tag that must be associated with the execution for it to + -- meet the filter criteria. + -- + -- Tags may only contain unicode letters, digits, whitespace, or these + -- symbols: @_ . : \/ = + - \@@. + tag :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TagFilter' 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: +-- +-- 'tag', 'tagFilter_tag' - Specifies the tag that must be associated with the execution for it to +-- meet the filter criteria. +-- +-- Tags may only contain unicode letters, digits, whitespace, or these +-- symbols: @_ . : \/ = + - \@@. +newTagFilter :: + -- | 'tag' + Prelude.Text -> + TagFilter +newTagFilter pTag_ = TagFilter' {tag = pTag_} + +-- | Specifies the tag that must be associated with the execution for it to +-- meet the filter criteria. +-- +-- Tags may only contain unicode letters, digits, whitespace, or these +-- symbols: @_ . : \/ = + - \@@. +tagFilter_tag :: Lens.Lens' TagFilter Prelude.Text +tagFilter_tag = Lens.lens (\TagFilter' {tag} -> tag) (\s@TagFilter' {} a -> s {tag = a} :: TagFilter) + +instance Prelude.Hashable TagFilter where + hashWithSalt _salt TagFilter' {..} = + _salt `Prelude.hashWithSalt` tag + +instance Prelude.NFData TagFilter where + rnf TagFilter' {..} = Prelude.rnf tag + +instance Data.ToJSON TagFilter where + toJSON TagFilter' {..} = + Data.object + ( Prelude.catMaybes + [Prelude.Just ("tag" Data..= tag)] + ) diff --git a/gen/Amazonka/SWF/Types/TaskList.hs b/gen/Amazonka/SWF/Types/TaskList.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/TaskList.hs @@ -0,0 +1,73 @@ +{-# 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.SWF.Types.TaskList +-- 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.SWF.Types.TaskList 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 + +-- | Represents a task list. +-- +-- /See:/ 'newTaskList' smart constructor. +data TaskList = TaskList' + { -- | The name of the task list. + name :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TaskList' 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', 'taskList_name' - The name of the task list. +newTaskList :: + -- | 'name' + Prelude.Text -> + TaskList +newTaskList pName_ = TaskList' {name = pName_} + +-- | The name of the task list. +taskList_name :: Lens.Lens' TaskList Prelude.Text +taskList_name = Lens.lens (\TaskList' {name} -> name) (\s@TaskList' {} a -> s {name = a} :: TaskList) + +instance Data.FromJSON TaskList where + parseJSON = + Data.withObject + "TaskList" + (\x -> TaskList' Prelude.<$> (x Data..: "name")) + +instance Prelude.Hashable TaskList where + hashWithSalt _salt TaskList' {..} = + _salt `Prelude.hashWithSalt` name + +instance Prelude.NFData TaskList where + rnf TaskList' {..} = Prelude.rnf name + +instance Data.ToJSON TaskList where + toJSON TaskList' {..} = + Data.object + ( Prelude.catMaybes + [Prelude.Just ("name" Data..= name)] + ) diff --git a/gen/Amazonka/SWF/Types/TimerCanceledEventAttributes.hs b/gen/Amazonka/SWF/Types/TimerCanceledEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/TimerCanceledEventAttributes.hs @@ -0,0 +1,124 @@ +{-# 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.SWF.Types.TimerCanceledEventAttributes +-- 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.SWF.Types.TimerCanceledEventAttributes 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 + +-- | Provides the details of the @TimerCanceled@ event. +-- +-- /See:/ 'newTimerCanceledEventAttributes' smart constructor. +data TimerCanceledEventAttributes = TimerCanceledEventAttributes' + { -- | The unique ID of the timer that was canceled. + timerId :: Prelude.Text, + -- | The ID of the @TimerStarted@ event that was recorded when this timer was + -- started. This information can be useful for diagnosing problems by + -- tracing back the chain of events leading up to this event. + startedEventId :: Prelude.Integer, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @CancelTimer@ decision to cancel this + -- timer. This information can be useful for diagnosing problems by tracing + -- back the chain of events leading up to this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TimerCanceledEventAttributes' 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: +-- +-- 'timerId', 'timerCanceledEventAttributes_timerId' - The unique ID of the timer that was canceled. +-- +-- 'startedEventId', 'timerCanceledEventAttributes_startedEventId' - The ID of the @TimerStarted@ event that was recorded when this timer was +-- started. This information can be useful for diagnosing problems by +-- tracing back the chain of events leading up to this event. +-- +-- 'decisionTaskCompletedEventId', 'timerCanceledEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @CancelTimer@ decision to cancel this +-- timer. This information can be useful for diagnosing problems by tracing +-- back the chain of events leading up to this event. +newTimerCanceledEventAttributes :: + -- | 'timerId' + Prelude.Text -> + -- | 'startedEventId' + Prelude.Integer -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + TimerCanceledEventAttributes +newTimerCanceledEventAttributes + pTimerId_ + pStartedEventId_ + pDecisionTaskCompletedEventId_ = + TimerCanceledEventAttributes' + { timerId = pTimerId_, + startedEventId = pStartedEventId_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The unique ID of the timer that was canceled. +timerCanceledEventAttributes_timerId :: Lens.Lens' TimerCanceledEventAttributes Prelude.Text +timerCanceledEventAttributes_timerId = Lens.lens (\TimerCanceledEventAttributes' {timerId} -> timerId) (\s@TimerCanceledEventAttributes' {} a -> s {timerId = a} :: TimerCanceledEventAttributes) + +-- | The ID of the @TimerStarted@ event that was recorded when this timer was +-- started. This information can be useful for diagnosing problems by +-- tracing back the chain of events leading up to this event. +timerCanceledEventAttributes_startedEventId :: Lens.Lens' TimerCanceledEventAttributes Prelude.Integer +timerCanceledEventAttributes_startedEventId = Lens.lens (\TimerCanceledEventAttributes' {startedEventId} -> startedEventId) (\s@TimerCanceledEventAttributes' {} a -> s {startedEventId = a} :: TimerCanceledEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @CancelTimer@ decision to cancel this +-- timer. This information can be useful for diagnosing problems by tracing +-- back the chain of events leading up to this event. +timerCanceledEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' TimerCanceledEventAttributes Prelude.Integer +timerCanceledEventAttributes_decisionTaskCompletedEventId = Lens.lens (\TimerCanceledEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@TimerCanceledEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: TimerCanceledEventAttributes) + +instance Data.FromJSON TimerCanceledEventAttributes where + parseJSON = + Data.withObject + "TimerCanceledEventAttributes" + ( \x -> + TimerCanceledEventAttributes' + Prelude.<$> (x Data..: "timerId") + Prelude.<*> (x Data..: "startedEventId") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + TimerCanceledEventAttributes + where + hashWithSalt _salt TimerCanceledEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` timerId + `Prelude.hashWithSalt` startedEventId + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance Prelude.NFData TimerCanceledEventAttributes where + rnf TimerCanceledEventAttributes' {..} = + Prelude.rnf timerId + `Prelude.seq` Prelude.rnf startedEventId + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/TimerFiredEventAttributes.hs b/gen/Amazonka/SWF/Types/TimerFiredEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/TimerFiredEventAttributes.hs @@ -0,0 +1,96 @@ +{-# 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.SWF.Types.TimerFiredEventAttributes +-- 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.SWF.Types.TimerFiredEventAttributes 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 + +-- | Provides the details of the @TimerFired@ event. +-- +-- /See:/ 'newTimerFiredEventAttributes' smart constructor. +data TimerFiredEventAttributes = TimerFiredEventAttributes' + { -- | The unique ID of the timer that fired. + timerId :: Prelude.Text, + -- | The ID of the @TimerStarted@ event that was recorded when this timer was + -- started. This information can be useful for diagnosing problems by + -- tracing back the chain of events leading up to this event. + startedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TimerFiredEventAttributes' 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: +-- +-- 'timerId', 'timerFiredEventAttributes_timerId' - The unique ID of the timer that fired. +-- +-- 'startedEventId', 'timerFiredEventAttributes_startedEventId' - The ID of the @TimerStarted@ event that was recorded when this timer was +-- started. This information can be useful for diagnosing problems by +-- tracing back the chain of events leading up to this event. +newTimerFiredEventAttributes :: + -- | 'timerId' + Prelude.Text -> + -- | 'startedEventId' + Prelude.Integer -> + TimerFiredEventAttributes +newTimerFiredEventAttributes + pTimerId_ + pStartedEventId_ = + TimerFiredEventAttributes' + { timerId = pTimerId_, + startedEventId = pStartedEventId_ + } + +-- | The unique ID of the timer that fired. +timerFiredEventAttributes_timerId :: Lens.Lens' TimerFiredEventAttributes Prelude.Text +timerFiredEventAttributes_timerId = Lens.lens (\TimerFiredEventAttributes' {timerId} -> timerId) (\s@TimerFiredEventAttributes' {} a -> s {timerId = a} :: TimerFiredEventAttributes) + +-- | The ID of the @TimerStarted@ event that was recorded when this timer was +-- started. This information can be useful for diagnosing problems by +-- tracing back the chain of events leading up to this event. +timerFiredEventAttributes_startedEventId :: Lens.Lens' TimerFiredEventAttributes Prelude.Integer +timerFiredEventAttributes_startedEventId = Lens.lens (\TimerFiredEventAttributes' {startedEventId} -> startedEventId) (\s@TimerFiredEventAttributes' {} a -> s {startedEventId = a} :: TimerFiredEventAttributes) + +instance Data.FromJSON TimerFiredEventAttributes where + parseJSON = + Data.withObject + "TimerFiredEventAttributes" + ( \x -> + TimerFiredEventAttributes' + Prelude.<$> (x Data..: "timerId") + Prelude.<*> (x Data..: "startedEventId") + ) + +instance Prelude.Hashable TimerFiredEventAttributes where + hashWithSalt _salt TimerFiredEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` timerId + `Prelude.hashWithSalt` startedEventId + +instance Prelude.NFData TimerFiredEventAttributes where + rnf TimerFiredEventAttributes' {..} = + Prelude.rnf timerId + `Prelude.seq` Prelude.rnf startedEventId diff --git a/gen/Amazonka/SWF/Types/TimerStartedEventAttributes.hs b/gen/Amazonka/SWF/Types/TimerStartedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/TimerStartedEventAttributes.hs @@ -0,0 +1,140 @@ +{-# 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.SWF.Types.TimerStartedEventAttributes +-- 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.SWF.Types.TimerStartedEventAttributes 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 + +-- | Provides the details of the @TimerStarted@ event. +-- +-- /See:/ 'newTimerStartedEventAttributes' smart constructor. +data TimerStartedEventAttributes = TimerStartedEventAttributes' + { -- | Data attached to the event that can be used by the decider in subsequent + -- workflow tasks. + control :: Prelude.Maybe Prelude.Text, + -- | The unique ID of the timer that was started. + timerId :: Prelude.Text, + -- | The duration of time after which the timer fires. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. + startToFireTimeout :: Prelude.Text, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @StartTimer@ decision for this + -- activity task. This information can be useful for diagnosing problems by + -- tracing back the chain of events leading up to this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'TimerStartedEventAttributes' 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: +-- +-- 'control', 'timerStartedEventAttributes_control' - Data attached to the event that can be used by the decider in subsequent +-- workflow tasks. +-- +-- 'timerId', 'timerStartedEventAttributes_timerId' - The unique ID of the timer that was started. +-- +-- 'startToFireTimeout', 'timerStartedEventAttributes_startToFireTimeout' - The duration of time after which the timer fires. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. +-- +-- 'decisionTaskCompletedEventId', 'timerStartedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @StartTimer@ decision for this +-- activity task. This information can be useful for diagnosing problems by +-- tracing back the chain of events leading up to this event. +newTimerStartedEventAttributes :: + -- | 'timerId' + Prelude.Text -> + -- | 'startToFireTimeout' + Prelude.Text -> + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + TimerStartedEventAttributes +newTimerStartedEventAttributes + pTimerId_ + pStartToFireTimeout_ + pDecisionTaskCompletedEventId_ = + TimerStartedEventAttributes' + { control = + Prelude.Nothing, + timerId = pTimerId_, + startToFireTimeout = pStartToFireTimeout_, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | Data attached to the event that can be used by the decider in subsequent +-- workflow tasks. +timerStartedEventAttributes_control :: Lens.Lens' TimerStartedEventAttributes (Prelude.Maybe Prelude.Text) +timerStartedEventAttributes_control = Lens.lens (\TimerStartedEventAttributes' {control} -> control) (\s@TimerStartedEventAttributes' {} a -> s {control = a} :: TimerStartedEventAttributes) + +-- | The unique ID of the timer that was started. +timerStartedEventAttributes_timerId :: Lens.Lens' TimerStartedEventAttributes Prelude.Text +timerStartedEventAttributes_timerId = Lens.lens (\TimerStartedEventAttributes' {timerId} -> timerId) (\s@TimerStartedEventAttributes' {} a -> s {timerId = a} :: TimerStartedEventAttributes) + +-- | The duration of time after which the timer fires. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. +timerStartedEventAttributes_startToFireTimeout :: Lens.Lens' TimerStartedEventAttributes Prelude.Text +timerStartedEventAttributes_startToFireTimeout = Lens.lens (\TimerStartedEventAttributes' {startToFireTimeout} -> startToFireTimeout) (\s@TimerStartedEventAttributes' {} a -> s {startToFireTimeout = a} :: TimerStartedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @StartTimer@ decision for this +-- activity task. This information can be useful for diagnosing problems by +-- tracing back the chain of events leading up to this event. +timerStartedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' TimerStartedEventAttributes Prelude.Integer +timerStartedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\TimerStartedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@TimerStartedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: TimerStartedEventAttributes) + +instance Data.FromJSON TimerStartedEventAttributes where + parseJSON = + Data.withObject + "TimerStartedEventAttributes" + ( \x -> + TimerStartedEventAttributes' + Prelude.<$> (x Data..:? "control") + Prelude.<*> (x Data..: "timerId") + Prelude.<*> (x Data..: "startToFireTimeout") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance Prelude.Hashable TimerStartedEventAttributes where + hashWithSalt _salt TimerStartedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` control + `Prelude.hashWithSalt` timerId + `Prelude.hashWithSalt` startToFireTimeout + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance Prelude.NFData TimerStartedEventAttributes where + rnf TimerStartedEventAttributes' {..} = + Prelude.rnf control + `Prelude.seq` Prelude.rnf timerId + `Prelude.seq` Prelude.rnf startToFireTimeout + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/WorkflowExecution.hs b/gen/Amazonka/SWF/Types/WorkflowExecution.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecution.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.SWF.Types.WorkflowExecution +-- 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.SWF.Types.WorkflowExecution 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 + +-- | Represents a workflow execution. +-- +-- /See:/ 'newWorkflowExecution' smart constructor. +data WorkflowExecution = WorkflowExecution' + { -- | The user defined identifier associated with the workflow execution. + workflowId :: Prelude.Text, + -- | A system-generated unique identifier for the workflow execution. + runId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowExecution' 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: +-- +-- 'workflowId', 'workflowExecution_workflowId' - The user defined identifier associated with the workflow execution. +-- +-- 'runId', 'workflowExecution_runId' - A system-generated unique identifier for the workflow execution. +newWorkflowExecution :: + -- | 'workflowId' + Prelude.Text -> + -- | 'runId' + Prelude.Text -> + WorkflowExecution +newWorkflowExecution pWorkflowId_ pRunId_ = + WorkflowExecution' + { workflowId = pWorkflowId_, + runId = pRunId_ + } + +-- | The user defined identifier associated with the workflow execution. +workflowExecution_workflowId :: Lens.Lens' WorkflowExecution Prelude.Text +workflowExecution_workflowId = Lens.lens (\WorkflowExecution' {workflowId} -> workflowId) (\s@WorkflowExecution' {} a -> s {workflowId = a} :: WorkflowExecution) + +-- | A system-generated unique identifier for the workflow execution. +workflowExecution_runId :: Lens.Lens' WorkflowExecution Prelude.Text +workflowExecution_runId = Lens.lens (\WorkflowExecution' {runId} -> runId) (\s@WorkflowExecution' {} a -> s {runId = a} :: WorkflowExecution) + +instance Data.FromJSON WorkflowExecution where + parseJSON = + Data.withObject + "WorkflowExecution" + ( \x -> + WorkflowExecution' + Prelude.<$> (x Data..: "workflowId") + Prelude.<*> (x Data..: "runId") + ) + +instance Prelude.Hashable WorkflowExecution where + hashWithSalt _salt WorkflowExecution' {..} = + _salt + `Prelude.hashWithSalt` workflowId + `Prelude.hashWithSalt` runId + +instance Prelude.NFData WorkflowExecution where + rnf WorkflowExecution' {..} = + Prelude.rnf workflowId + `Prelude.seq` Prelude.rnf runId + +instance Data.ToJSON WorkflowExecution where + toJSON WorkflowExecution' {..} = + Data.object + ( Prelude.catMaybes + [ Prelude.Just ("workflowId" Data..= workflowId), + Prelude.Just ("runId" Data..= runId) + ] + ) diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionCancelRequestedCause.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionCancelRequestedCause.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionCancelRequestedCause.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.SWF.Types.WorkflowExecutionCancelRequestedCause +-- 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.SWF.Types.WorkflowExecutionCancelRequestedCause + ( WorkflowExecutionCancelRequestedCause + ( .., + WorkflowExecutionCancelRequestedCause_CHILD_POLICY_APPLIED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype WorkflowExecutionCancelRequestedCause = WorkflowExecutionCancelRequestedCause' + { fromWorkflowExecutionCancelRequestedCause :: + 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 WorkflowExecutionCancelRequestedCause_CHILD_POLICY_APPLIED :: WorkflowExecutionCancelRequestedCause +pattern WorkflowExecutionCancelRequestedCause_CHILD_POLICY_APPLIED = WorkflowExecutionCancelRequestedCause' "CHILD_POLICY_APPLIED" + +{-# COMPLETE + WorkflowExecutionCancelRequestedCause_CHILD_POLICY_APPLIED, + WorkflowExecutionCancelRequestedCause' + #-} diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionCancelRequestedEventAttributes.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionCancelRequestedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionCancelRequestedEventAttributes.hs @@ -0,0 +1,140 @@ +{-# 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.SWF.Types.WorkflowExecutionCancelRequestedEventAttributes +-- 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.SWF.Types.WorkflowExecutionCancelRequestedEventAttributes 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 +import Amazonka.SWF.Types.WorkflowExecution +import Amazonka.SWF.Types.WorkflowExecutionCancelRequestedCause + +-- | Provides the details of the @WorkflowExecutionCancelRequested@ event. +-- +-- /See:/ 'newWorkflowExecutionCancelRequestedEventAttributes' smart constructor. +data WorkflowExecutionCancelRequestedEventAttributes = WorkflowExecutionCancelRequestedEventAttributes' + { -- | If set, indicates that the request to cancel the workflow execution was + -- automatically generated, and specifies the cause. This happens if the + -- parent workflow execution times out or is terminated, and the child + -- policy is set to cancel child executions. + cause :: Prelude.Maybe WorkflowExecutionCancelRequestedCause, + -- | The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event + -- corresponding to the @RequestCancelExternalWorkflowExecution@ decision + -- to cancel this workflow execution.The source event with this ID can be + -- found in the history of the source workflow execution. This information + -- can be useful for diagnosing problems by tracing back the chain of + -- events leading up to this event. + externalInitiatedEventId :: Prelude.Maybe Prelude.Integer, + -- | The external workflow execution for which the cancellation was + -- requested. + externalWorkflowExecution :: Prelude.Maybe WorkflowExecution + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowExecutionCancelRequestedEventAttributes' 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: +-- +-- 'cause', 'workflowExecutionCancelRequestedEventAttributes_cause' - If set, indicates that the request to cancel the workflow execution was +-- automatically generated, and specifies the cause. This happens if the +-- parent workflow execution times out or is terminated, and the child +-- policy is set to cancel child executions. +-- +-- 'externalInitiatedEventId', 'workflowExecutionCancelRequestedEventAttributes_externalInitiatedEventId' - The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event +-- corresponding to the @RequestCancelExternalWorkflowExecution@ decision +-- to cancel this workflow execution.The source event with this ID can be +-- found in the history of the source workflow execution. This information +-- can be useful for diagnosing problems by tracing back the chain of +-- events leading up to this event. +-- +-- 'externalWorkflowExecution', 'workflowExecutionCancelRequestedEventAttributes_externalWorkflowExecution' - The external workflow execution for which the cancellation was +-- requested. +newWorkflowExecutionCancelRequestedEventAttributes :: + WorkflowExecutionCancelRequestedEventAttributes +newWorkflowExecutionCancelRequestedEventAttributes = + WorkflowExecutionCancelRequestedEventAttributes' + { cause = + Prelude.Nothing, + externalInitiatedEventId = + Prelude.Nothing, + externalWorkflowExecution = + Prelude.Nothing + } + +-- | If set, indicates that the request to cancel the workflow execution was +-- automatically generated, and specifies the cause. This happens if the +-- parent workflow execution times out or is terminated, and the child +-- policy is set to cancel child executions. +workflowExecutionCancelRequestedEventAttributes_cause :: Lens.Lens' WorkflowExecutionCancelRequestedEventAttributes (Prelude.Maybe WorkflowExecutionCancelRequestedCause) +workflowExecutionCancelRequestedEventAttributes_cause = Lens.lens (\WorkflowExecutionCancelRequestedEventAttributes' {cause} -> cause) (\s@WorkflowExecutionCancelRequestedEventAttributes' {} a -> s {cause = a} :: WorkflowExecutionCancelRequestedEventAttributes) + +-- | The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event +-- corresponding to the @RequestCancelExternalWorkflowExecution@ decision +-- to cancel this workflow execution.The source event with this ID can be +-- found in the history of the source workflow execution. This information +-- can be useful for diagnosing problems by tracing back the chain of +-- events leading up to this event. +workflowExecutionCancelRequestedEventAttributes_externalInitiatedEventId :: Lens.Lens' WorkflowExecutionCancelRequestedEventAttributes (Prelude.Maybe Prelude.Integer) +workflowExecutionCancelRequestedEventAttributes_externalInitiatedEventId = Lens.lens (\WorkflowExecutionCancelRequestedEventAttributes' {externalInitiatedEventId} -> externalInitiatedEventId) (\s@WorkflowExecutionCancelRequestedEventAttributes' {} a -> s {externalInitiatedEventId = a} :: WorkflowExecutionCancelRequestedEventAttributes) + +-- | The external workflow execution for which the cancellation was +-- requested. +workflowExecutionCancelRequestedEventAttributes_externalWorkflowExecution :: Lens.Lens' WorkflowExecutionCancelRequestedEventAttributes (Prelude.Maybe WorkflowExecution) +workflowExecutionCancelRequestedEventAttributes_externalWorkflowExecution = Lens.lens (\WorkflowExecutionCancelRequestedEventAttributes' {externalWorkflowExecution} -> externalWorkflowExecution) (\s@WorkflowExecutionCancelRequestedEventAttributes' {} a -> s {externalWorkflowExecution = a} :: WorkflowExecutionCancelRequestedEventAttributes) + +instance + Data.FromJSON + WorkflowExecutionCancelRequestedEventAttributes + where + parseJSON = + Data.withObject + "WorkflowExecutionCancelRequestedEventAttributes" + ( \x -> + WorkflowExecutionCancelRequestedEventAttributes' + Prelude.<$> (x Data..:? "cause") + Prelude.<*> (x Data..:? "externalInitiatedEventId") + Prelude.<*> (x Data..:? "externalWorkflowExecution") + ) + +instance + Prelude.Hashable + WorkflowExecutionCancelRequestedEventAttributes + where + hashWithSalt + _salt + WorkflowExecutionCancelRequestedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` cause + `Prelude.hashWithSalt` externalInitiatedEventId + `Prelude.hashWithSalt` externalWorkflowExecution + +instance + Prelude.NFData + WorkflowExecutionCancelRequestedEventAttributes + where + rnf + WorkflowExecutionCancelRequestedEventAttributes' {..} = + Prelude.rnf cause + `Prelude.seq` Prelude.rnf externalInitiatedEventId + `Prelude.seq` Prelude.rnf externalWorkflowExecution diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionCanceledEventAttributes.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionCanceledEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionCanceledEventAttributes.hs @@ -0,0 +1,112 @@ +{-# 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.SWF.Types.WorkflowExecutionCanceledEventAttributes +-- 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.SWF.Types.WorkflowExecutionCanceledEventAttributes 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 + +-- | Provides the details of the @WorkflowExecutionCanceled@ event. +-- +-- /See:/ 'newWorkflowExecutionCanceledEventAttributes' smart constructor. +data WorkflowExecutionCanceledEventAttributes = WorkflowExecutionCanceledEventAttributes' + { -- | The details of the cancellation. + details :: Prelude.Maybe Prelude.Text, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @CancelWorkflowExecution@ decision + -- for this cancellation request. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowExecutionCanceledEventAttributes' 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: +-- +-- 'details', 'workflowExecutionCanceledEventAttributes_details' - The details of the cancellation. +-- +-- 'decisionTaskCompletedEventId', 'workflowExecutionCanceledEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @CancelWorkflowExecution@ decision +-- for this cancellation request. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +newWorkflowExecutionCanceledEventAttributes :: + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + WorkflowExecutionCanceledEventAttributes +newWorkflowExecutionCanceledEventAttributes + pDecisionTaskCompletedEventId_ = + WorkflowExecutionCanceledEventAttributes' + { details = + Prelude.Nothing, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The details of the cancellation. +workflowExecutionCanceledEventAttributes_details :: Lens.Lens' WorkflowExecutionCanceledEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionCanceledEventAttributes_details = Lens.lens (\WorkflowExecutionCanceledEventAttributes' {details} -> details) (\s@WorkflowExecutionCanceledEventAttributes' {} a -> s {details = a} :: WorkflowExecutionCanceledEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @CancelWorkflowExecution@ decision +-- for this cancellation request. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +workflowExecutionCanceledEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' WorkflowExecutionCanceledEventAttributes Prelude.Integer +workflowExecutionCanceledEventAttributes_decisionTaskCompletedEventId = Lens.lens (\WorkflowExecutionCanceledEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@WorkflowExecutionCanceledEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: WorkflowExecutionCanceledEventAttributes) + +instance + Data.FromJSON + WorkflowExecutionCanceledEventAttributes + where + parseJSON = + Data.withObject + "WorkflowExecutionCanceledEventAttributes" + ( \x -> + WorkflowExecutionCanceledEventAttributes' + Prelude.<$> (x Data..:? "details") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + WorkflowExecutionCanceledEventAttributes + where + hashWithSalt + _salt + WorkflowExecutionCanceledEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + WorkflowExecutionCanceledEventAttributes + where + rnf WorkflowExecutionCanceledEventAttributes' {..} = + Prelude.rnf details + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionCompletedEventAttributes.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionCompletedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionCompletedEventAttributes.hs @@ -0,0 +1,115 @@ +{-# 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.SWF.Types.WorkflowExecutionCompletedEventAttributes +-- 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.SWF.Types.WorkflowExecutionCompletedEventAttributes 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 + +-- | Provides the details of the @WorkflowExecutionCompleted@ event. +-- +-- /See:/ 'newWorkflowExecutionCompletedEventAttributes' smart constructor. +data WorkflowExecutionCompletedEventAttributes = WorkflowExecutionCompletedEventAttributes' + { -- | The result produced by the workflow execution upon successful + -- completion. + result :: Prelude.Maybe Prelude.Text, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @CompleteWorkflowExecution@ decision + -- to complete this execution. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowExecutionCompletedEventAttributes' 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: +-- +-- 'result', 'workflowExecutionCompletedEventAttributes_result' - The result produced by the workflow execution upon successful +-- completion. +-- +-- 'decisionTaskCompletedEventId', 'workflowExecutionCompletedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @CompleteWorkflowExecution@ decision +-- to complete this execution. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +newWorkflowExecutionCompletedEventAttributes :: + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + WorkflowExecutionCompletedEventAttributes +newWorkflowExecutionCompletedEventAttributes + pDecisionTaskCompletedEventId_ = + WorkflowExecutionCompletedEventAttributes' + { result = + Prelude.Nothing, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The result produced by the workflow execution upon successful +-- completion. +workflowExecutionCompletedEventAttributes_result :: Lens.Lens' WorkflowExecutionCompletedEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionCompletedEventAttributes_result = Lens.lens (\WorkflowExecutionCompletedEventAttributes' {result} -> result) (\s@WorkflowExecutionCompletedEventAttributes' {} a -> s {result = a} :: WorkflowExecutionCompletedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @CompleteWorkflowExecution@ decision +-- to complete this execution. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +workflowExecutionCompletedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' WorkflowExecutionCompletedEventAttributes Prelude.Integer +workflowExecutionCompletedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\WorkflowExecutionCompletedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@WorkflowExecutionCompletedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: WorkflowExecutionCompletedEventAttributes) + +instance + Data.FromJSON + WorkflowExecutionCompletedEventAttributes + where + parseJSON = + Data.withObject + "WorkflowExecutionCompletedEventAttributes" + ( \x -> + WorkflowExecutionCompletedEventAttributes' + Prelude.<$> (x Data..:? "result") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + WorkflowExecutionCompletedEventAttributes + where + hashWithSalt + _salt + WorkflowExecutionCompletedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` result + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + WorkflowExecutionCompletedEventAttributes + where + rnf WorkflowExecutionCompletedEventAttributes' {..} = + Prelude.rnf result + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionConfiguration.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionConfiguration.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionConfiguration.hs @@ -0,0 +1,247 @@ +{-# 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.SWF.Types.WorkflowExecutionConfiguration +-- 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.SWF.Types.WorkflowExecutionConfiguration 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 +import Amazonka.SWF.Types.ChildPolicy +import Amazonka.SWF.Types.TaskList + +-- | The configuration settings for a workflow execution including timeout +-- values, tasklist etc. These configuration settings are determined from +-- the defaults specified when registering the workflow type and those +-- specified when starting the workflow execution. +-- +-- /See:/ 'newWorkflowExecutionConfiguration' smart constructor. +data WorkflowExecutionConfiguration = WorkflowExecutionConfiguration' + { -- | The IAM role attached to the child workflow execution. + lambdaRole :: Prelude.Maybe Prelude.Text, + -- | The priority assigned to decision tasks for this workflow execution. + -- Valid values are integers that range from Java\'s @Integer.MIN_VALUE@ + -- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers + -- indicate higher priority. + -- + -- For more information about setting task priority, see + -- + -- in the /Amazon SWF Developer Guide/. + taskPriority :: Prelude.Maybe Prelude.Text, + -- | The maximum duration allowed for decision tasks for this workflow + -- execution. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + taskStartToCloseTimeout :: Prelude.Text, + -- | The total duration for this workflow execution. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + executionStartToCloseTimeout :: Prelude.Text, + -- | The task list used for the decision tasks generated for this workflow + -- execution. + taskList :: TaskList, + -- | The policy to use for the child workflow executions if this workflow + -- execution is terminated, by calling the TerminateWorkflowExecution + -- action explicitly or due to an expired timeout. + -- + -- The supported child policies are: + -- + -- - @TERMINATE@ – The child executions are terminated. + -- + -- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child + -- execution by recording a @WorkflowExecutionCancelRequested@ event in + -- its history. It is up to the decider to take appropriate actions + -- when it receives an execution history with this event. + -- + -- - @ABANDON@ – No action is taken. The child executions continue to + -- run. + childPolicy :: ChildPolicy + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowExecutionConfiguration' 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: +-- +-- 'lambdaRole', 'workflowExecutionConfiguration_lambdaRole' - The IAM role attached to the child workflow execution. +-- +-- 'taskPriority', 'workflowExecutionConfiguration_taskPriority' - The priority assigned to decision tasks for this workflow execution. +-- Valid values are integers that range from Java\'s @Integer.MIN_VALUE@ +-- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers +-- indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'taskStartToCloseTimeout', 'workflowExecutionConfiguration_taskStartToCloseTimeout' - The maximum duration allowed for decision tasks for this workflow +-- execution. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'executionStartToCloseTimeout', 'workflowExecutionConfiguration_executionStartToCloseTimeout' - The total duration for this workflow execution. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'taskList', 'workflowExecutionConfiguration_taskList' - The task list used for the decision tasks generated for this workflow +-- execution. +-- +-- 'childPolicy', 'workflowExecutionConfiguration_childPolicy' - The policy to use for the child workflow executions if this workflow +-- execution is terminated, by calling the TerminateWorkflowExecution +-- action explicitly or due to an expired timeout. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +newWorkflowExecutionConfiguration :: + -- | 'taskStartToCloseTimeout' + Prelude.Text -> + -- | 'executionStartToCloseTimeout' + Prelude.Text -> + -- | 'taskList' + TaskList -> + -- | 'childPolicy' + ChildPolicy -> + WorkflowExecutionConfiguration +newWorkflowExecutionConfiguration + pTaskStartToCloseTimeout_ + pExecutionStartToCloseTimeout_ + pTaskList_ + pChildPolicy_ = + WorkflowExecutionConfiguration' + { lambdaRole = + Prelude.Nothing, + taskPriority = Prelude.Nothing, + taskStartToCloseTimeout = + pTaskStartToCloseTimeout_, + executionStartToCloseTimeout = + pExecutionStartToCloseTimeout_, + taskList = pTaskList_, + childPolicy = pChildPolicy_ + } + +-- | The IAM role attached to the child workflow execution. +workflowExecutionConfiguration_lambdaRole :: Lens.Lens' WorkflowExecutionConfiguration (Prelude.Maybe Prelude.Text) +workflowExecutionConfiguration_lambdaRole = Lens.lens (\WorkflowExecutionConfiguration' {lambdaRole} -> lambdaRole) (\s@WorkflowExecutionConfiguration' {} a -> s {lambdaRole = a} :: WorkflowExecutionConfiguration) + +-- | The priority assigned to decision tasks for this workflow execution. +-- Valid values are integers that range from Java\'s @Integer.MIN_VALUE@ +-- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers +-- indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +workflowExecutionConfiguration_taskPriority :: Lens.Lens' WorkflowExecutionConfiguration (Prelude.Maybe Prelude.Text) +workflowExecutionConfiguration_taskPriority = Lens.lens (\WorkflowExecutionConfiguration' {taskPriority} -> taskPriority) (\s@WorkflowExecutionConfiguration' {} a -> s {taskPriority = a} :: WorkflowExecutionConfiguration) + +-- | The maximum duration allowed for decision tasks for this workflow +-- execution. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +workflowExecutionConfiguration_taskStartToCloseTimeout :: Lens.Lens' WorkflowExecutionConfiguration Prelude.Text +workflowExecutionConfiguration_taskStartToCloseTimeout = Lens.lens (\WorkflowExecutionConfiguration' {taskStartToCloseTimeout} -> taskStartToCloseTimeout) (\s@WorkflowExecutionConfiguration' {} a -> s {taskStartToCloseTimeout = a} :: WorkflowExecutionConfiguration) + +-- | The total duration for this workflow execution. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +workflowExecutionConfiguration_executionStartToCloseTimeout :: Lens.Lens' WorkflowExecutionConfiguration Prelude.Text +workflowExecutionConfiguration_executionStartToCloseTimeout = Lens.lens (\WorkflowExecutionConfiguration' {executionStartToCloseTimeout} -> executionStartToCloseTimeout) (\s@WorkflowExecutionConfiguration' {} a -> s {executionStartToCloseTimeout = a} :: WorkflowExecutionConfiguration) + +-- | The task list used for the decision tasks generated for this workflow +-- execution. +workflowExecutionConfiguration_taskList :: Lens.Lens' WorkflowExecutionConfiguration TaskList +workflowExecutionConfiguration_taskList = Lens.lens (\WorkflowExecutionConfiguration' {taskList} -> taskList) (\s@WorkflowExecutionConfiguration' {} a -> s {taskList = a} :: WorkflowExecutionConfiguration) + +-- | The policy to use for the child workflow executions if this workflow +-- execution is terminated, by calling the TerminateWorkflowExecution +-- action explicitly or due to an expired timeout. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +workflowExecutionConfiguration_childPolicy :: Lens.Lens' WorkflowExecutionConfiguration ChildPolicy +workflowExecutionConfiguration_childPolicy = Lens.lens (\WorkflowExecutionConfiguration' {childPolicy} -> childPolicy) (\s@WorkflowExecutionConfiguration' {} a -> s {childPolicy = a} :: WorkflowExecutionConfiguration) + +instance Data.FromJSON WorkflowExecutionConfiguration where + parseJSON = + Data.withObject + "WorkflowExecutionConfiguration" + ( \x -> + WorkflowExecutionConfiguration' + Prelude.<$> (x Data..:? "lambdaRole") + Prelude.<*> (x Data..:? "taskPriority") + Prelude.<*> (x Data..: "taskStartToCloseTimeout") + Prelude.<*> (x Data..: "executionStartToCloseTimeout") + Prelude.<*> (x Data..: "taskList") + Prelude.<*> (x Data..: "childPolicy") + ) + +instance + Prelude.Hashable + WorkflowExecutionConfiguration + where + hashWithSalt + _salt + WorkflowExecutionConfiguration' {..} = + _salt + `Prelude.hashWithSalt` lambdaRole + `Prelude.hashWithSalt` taskPriority + `Prelude.hashWithSalt` taskStartToCloseTimeout + `Prelude.hashWithSalt` executionStartToCloseTimeout + `Prelude.hashWithSalt` taskList + `Prelude.hashWithSalt` childPolicy + +instance + Prelude.NFData + WorkflowExecutionConfiguration + where + rnf WorkflowExecutionConfiguration' {..} = + Prelude.rnf lambdaRole + `Prelude.seq` Prelude.rnf taskPriority + `Prelude.seq` Prelude.rnf taskStartToCloseTimeout + `Prelude.seq` Prelude.rnf executionStartToCloseTimeout + `Prelude.seq` Prelude.rnf taskList + `Prelude.seq` Prelude.rnf childPolicy diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionContinuedAsNewEventAttributes.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionContinuedAsNewEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionContinuedAsNewEventAttributes.hs @@ -0,0 +1,307 @@ +{-# 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.SWF.Types.WorkflowExecutionContinuedAsNewEventAttributes +-- 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.SWF.Types.WorkflowExecutionContinuedAsNewEventAttributes 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 +import Amazonka.SWF.Types.ChildPolicy +import Amazonka.SWF.Types.TaskList +import Amazonka.SWF.Types.WorkflowType + +-- | Provides the details of the @WorkflowExecutionContinuedAsNew@ event. +-- +-- /See:/ 'newWorkflowExecutionContinuedAsNewEventAttributes' smart constructor. +data WorkflowExecutionContinuedAsNewEventAttributes = WorkflowExecutionContinuedAsNewEventAttributes' + { -- | The total duration allowed for the new workflow execution. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + executionStartToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The input provided to the new workflow execution. + input :: Prelude.Maybe Prelude.Text, + -- | The IAM role to attach to the new (continued) workflow execution. + lambdaRole :: Prelude.Maybe Prelude.Text, + -- | The list of tags associated with the new workflow execution. + tagList :: Prelude.Maybe [Prelude.Text], + -- | The priority of the task to use for the decisions of the new (continued) + -- workflow execution. + taskPriority :: Prelude.Maybe Prelude.Text, + -- | The maximum duration of decision tasks for the new workflow execution. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + taskStartToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @ContinueAsNewWorkflowExecution@ + -- decision that started this execution. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + decisionTaskCompletedEventId :: Prelude.Integer, + -- | The @runId@ of the new workflow execution. + newExecutionRunId' :: Prelude.Text, + -- | The task list to use for the decisions of the new (continued) workflow + -- execution. + taskList :: TaskList, + -- | The policy to use for the child workflow executions of the new execution + -- if it is terminated by calling the TerminateWorkflowExecution action + -- explicitly or due to an expired timeout. + -- + -- The supported child policies are: + -- + -- - @TERMINATE@ – The child executions are terminated. + -- + -- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child + -- execution by recording a @WorkflowExecutionCancelRequested@ event in + -- its history. It is up to the decider to take appropriate actions + -- when it receives an execution history with this event. + -- + -- - @ABANDON@ – No action is taken. The child executions continue to + -- run. + childPolicy :: ChildPolicy, + -- | The workflow type of this execution. + workflowType :: WorkflowType + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowExecutionContinuedAsNewEventAttributes' 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: +-- +-- 'executionStartToCloseTimeout', 'workflowExecutionContinuedAsNewEventAttributes_executionStartToCloseTimeout' - The total duration allowed for the new workflow execution. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'input', 'workflowExecutionContinuedAsNewEventAttributes_input' - The input provided to the new workflow execution. +-- +-- 'lambdaRole', 'workflowExecutionContinuedAsNewEventAttributes_lambdaRole' - The IAM role to attach to the new (continued) workflow execution. +-- +-- 'tagList', 'workflowExecutionContinuedAsNewEventAttributes_tagList' - The list of tags associated with the new workflow execution. +-- +-- 'taskPriority', 'workflowExecutionContinuedAsNewEventAttributes_taskPriority' - The priority of the task to use for the decisions of the new (continued) +-- workflow execution. +-- +-- 'taskStartToCloseTimeout', 'workflowExecutionContinuedAsNewEventAttributes_taskStartToCloseTimeout' - The maximum duration of decision tasks for the new workflow execution. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'decisionTaskCompletedEventId', 'workflowExecutionContinuedAsNewEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @ContinueAsNewWorkflowExecution@ +-- decision that started this execution. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +-- +-- 'newExecutionRunId'', 'workflowExecutionContinuedAsNewEventAttributes_newExecutionRunId' - The @runId@ of the new workflow execution. +-- +-- 'taskList', 'workflowExecutionContinuedAsNewEventAttributes_taskList' - The task list to use for the decisions of the new (continued) workflow +-- execution. +-- +-- 'childPolicy', 'workflowExecutionContinuedAsNewEventAttributes_childPolicy' - The policy to use for the child workflow executions of the new execution +-- if it is terminated by calling the TerminateWorkflowExecution action +-- explicitly or due to an expired timeout. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +-- +-- 'workflowType', 'workflowExecutionContinuedAsNewEventAttributes_workflowType' - The workflow type of this execution. +newWorkflowExecutionContinuedAsNewEventAttributes :: + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + -- | 'newExecutionRunId'' + Prelude.Text -> + -- | 'taskList' + TaskList -> + -- | 'childPolicy' + ChildPolicy -> + -- | 'workflowType' + WorkflowType -> + WorkflowExecutionContinuedAsNewEventAttributes +newWorkflowExecutionContinuedAsNewEventAttributes + pDecisionTaskCompletedEventId_ + pNewExecutionRunId_ + pTaskList_ + pChildPolicy_ + pWorkflowType_ = + WorkflowExecutionContinuedAsNewEventAttributes' + { executionStartToCloseTimeout = + Prelude.Nothing, + input = Prelude.Nothing, + lambdaRole = + Prelude.Nothing, + tagList = Prelude.Nothing, + taskPriority = + Prelude.Nothing, + taskStartToCloseTimeout = + Prelude.Nothing, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_, + newExecutionRunId' = + pNewExecutionRunId_, + taskList = pTaskList_, + childPolicy = pChildPolicy_, + workflowType = + pWorkflowType_ + } + +-- | The total duration allowed for the new workflow execution. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +workflowExecutionContinuedAsNewEventAttributes_executionStartToCloseTimeout :: Lens.Lens' WorkflowExecutionContinuedAsNewEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionContinuedAsNewEventAttributes_executionStartToCloseTimeout = Lens.lens (\WorkflowExecutionContinuedAsNewEventAttributes' {executionStartToCloseTimeout} -> executionStartToCloseTimeout) (\s@WorkflowExecutionContinuedAsNewEventAttributes' {} a -> s {executionStartToCloseTimeout = a} :: WorkflowExecutionContinuedAsNewEventAttributes) + +-- | The input provided to the new workflow execution. +workflowExecutionContinuedAsNewEventAttributes_input :: Lens.Lens' WorkflowExecutionContinuedAsNewEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionContinuedAsNewEventAttributes_input = Lens.lens (\WorkflowExecutionContinuedAsNewEventAttributes' {input} -> input) (\s@WorkflowExecutionContinuedAsNewEventAttributes' {} a -> s {input = a} :: WorkflowExecutionContinuedAsNewEventAttributes) + +-- | The IAM role to attach to the new (continued) workflow execution. +workflowExecutionContinuedAsNewEventAttributes_lambdaRole :: Lens.Lens' WorkflowExecutionContinuedAsNewEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionContinuedAsNewEventAttributes_lambdaRole = Lens.lens (\WorkflowExecutionContinuedAsNewEventAttributes' {lambdaRole} -> lambdaRole) (\s@WorkflowExecutionContinuedAsNewEventAttributes' {} a -> s {lambdaRole = a} :: WorkflowExecutionContinuedAsNewEventAttributes) + +-- | The list of tags associated with the new workflow execution. +workflowExecutionContinuedAsNewEventAttributes_tagList :: Lens.Lens' WorkflowExecutionContinuedAsNewEventAttributes (Prelude.Maybe [Prelude.Text]) +workflowExecutionContinuedAsNewEventAttributes_tagList = Lens.lens (\WorkflowExecutionContinuedAsNewEventAttributes' {tagList} -> tagList) (\s@WorkflowExecutionContinuedAsNewEventAttributes' {} a -> s {tagList = a} :: WorkflowExecutionContinuedAsNewEventAttributes) Prelude.. Lens.mapping Lens.coerced + +-- | The priority of the task to use for the decisions of the new (continued) +-- workflow execution. +workflowExecutionContinuedAsNewEventAttributes_taskPriority :: Lens.Lens' WorkflowExecutionContinuedAsNewEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionContinuedAsNewEventAttributes_taskPriority = Lens.lens (\WorkflowExecutionContinuedAsNewEventAttributes' {taskPriority} -> taskPriority) (\s@WorkflowExecutionContinuedAsNewEventAttributes' {} a -> s {taskPriority = a} :: WorkflowExecutionContinuedAsNewEventAttributes) + +-- | The maximum duration of decision tasks for the new workflow execution. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +workflowExecutionContinuedAsNewEventAttributes_taskStartToCloseTimeout :: Lens.Lens' WorkflowExecutionContinuedAsNewEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionContinuedAsNewEventAttributes_taskStartToCloseTimeout = Lens.lens (\WorkflowExecutionContinuedAsNewEventAttributes' {taskStartToCloseTimeout} -> taskStartToCloseTimeout) (\s@WorkflowExecutionContinuedAsNewEventAttributes' {} a -> s {taskStartToCloseTimeout = a} :: WorkflowExecutionContinuedAsNewEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @ContinueAsNewWorkflowExecution@ +-- decision that started this execution. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +workflowExecutionContinuedAsNewEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' WorkflowExecutionContinuedAsNewEventAttributes Prelude.Integer +workflowExecutionContinuedAsNewEventAttributes_decisionTaskCompletedEventId = Lens.lens (\WorkflowExecutionContinuedAsNewEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@WorkflowExecutionContinuedAsNewEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: WorkflowExecutionContinuedAsNewEventAttributes) + +-- | The @runId@ of the new workflow execution. +workflowExecutionContinuedAsNewEventAttributes_newExecutionRunId :: Lens.Lens' WorkflowExecutionContinuedAsNewEventAttributes Prelude.Text +workflowExecutionContinuedAsNewEventAttributes_newExecutionRunId = Lens.lens (\WorkflowExecutionContinuedAsNewEventAttributes' {newExecutionRunId'} -> newExecutionRunId') (\s@WorkflowExecutionContinuedAsNewEventAttributes' {} a -> s {newExecutionRunId' = a} :: WorkflowExecutionContinuedAsNewEventAttributes) + +-- | The task list to use for the decisions of the new (continued) workflow +-- execution. +workflowExecutionContinuedAsNewEventAttributes_taskList :: Lens.Lens' WorkflowExecutionContinuedAsNewEventAttributes TaskList +workflowExecutionContinuedAsNewEventAttributes_taskList = Lens.lens (\WorkflowExecutionContinuedAsNewEventAttributes' {taskList} -> taskList) (\s@WorkflowExecutionContinuedAsNewEventAttributes' {} a -> s {taskList = a} :: WorkflowExecutionContinuedAsNewEventAttributes) + +-- | The policy to use for the child workflow executions of the new execution +-- if it is terminated by calling the TerminateWorkflowExecution action +-- explicitly or due to an expired timeout. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +workflowExecutionContinuedAsNewEventAttributes_childPolicy :: Lens.Lens' WorkflowExecutionContinuedAsNewEventAttributes ChildPolicy +workflowExecutionContinuedAsNewEventAttributes_childPolicy = Lens.lens (\WorkflowExecutionContinuedAsNewEventAttributes' {childPolicy} -> childPolicy) (\s@WorkflowExecutionContinuedAsNewEventAttributes' {} a -> s {childPolicy = a} :: WorkflowExecutionContinuedAsNewEventAttributes) + +-- | The workflow type of this execution. +workflowExecutionContinuedAsNewEventAttributes_workflowType :: Lens.Lens' WorkflowExecutionContinuedAsNewEventAttributes WorkflowType +workflowExecutionContinuedAsNewEventAttributes_workflowType = Lens.lens (\WorkflowExecutionContinuedAsNewEventAttributes' {workflowType} -> workflowType) (\s@WorkflowExecutionContinuedAsNewEventAttributes' {} a -> s {workflowType = a} :: WorkflowExecutionContinuedAsNewEventAttributes) + +instance + Data.FromJSON + WorkflowExecutionContinuedAsNewEventAttributes + where + parseJSON = + Data.withObject + "WorkflowExecutionContinuedAsNewEventAttributes" + ( \x -> + WorkflowExecutionContinuedAsNewEventAttributes' + Prelude.<$> (x Data..:? "executionStartToCloseTimeout") + Prelude.<*> (x Data..:? "input") + Prelude.<*> (x Data..:? "lambdaRole") + Prelude.<*> (x Data..:? "tagList" Data..!= Prelude.mempty) + Prelude.<*> (x Data..:? "taskPriority") + Prelude.<*> (x Data..:? "taskStartToCloseTimeout") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + Prelude.<*> (x Data..: "newExecutionRunId") + Prelude.<*> (x Data..: "taskList") + Prelude.<*> (x Data..: "childPolicy") + Prelude.<*> (x Data..: "workflowType") + ) + +instance + Prelude.Hashable + WorkflowExecutionContinuedAsNewEventAttributes + where + hashWithSalt + _salt + WorkflowExecutionContinuedAsNewEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` executionStartToCloseTimeout + `Prelude.hashWithSalt` input + `Prelude.hashWithSalt` lambdaRole + `Prelude.hashWithSalt` tagList + `Prelude.hashWithSalt` taskPriority + `Prelude.hashWithSalt` taskStartToCloseTimeout + `Prelude.hashWithSalt` decisionTaskCompletedEventId + `Prelude.hashWithSalt` newExecutionRunId' + `Prelude.hashWithSalt` taskList + `Prelude.hashWithSalt` childPolicy + `Prelude.hashWithSalt` workflowType + +instance + Prelude.NFData + WorkflowExecutionContinuedAsNewEventAttributes + where + rnf + WorkflowExecutionContinuedAsNewEventAttributes' {..} = + Prelude.rnf executionStartToCloseTimeout + `Prelude.seq` Prelude.rnf input + `Prelude.seq` Prelude.rnf lambdaRole + `Prelude.seq` Prelude.rnf tagList + `Prelude.seq` Prelude.rnf taskPriority + `Prelude.seq` Prelude.rnf taskStartToCloseTimeout + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId + `Prelude.seq` Prelude.rnf newExecutionRunId' + `Prelude.seq` Prelude.rnf taskList + `Prelude.seq` Prelude.rnf childPolicy + `Prelude.seq` Prelude.rnf workflowType diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionCount.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionCount.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionCount.hs @@ -0,0 +1,94 @@ +{-# 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.SWF.Types.WorkflowExecutionCount +-- 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.SWF.Types.WorkflowExecutionCount 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 the count of workflow executions returned from +-- CountOpenWorkflowExecutions or CountClosedWorkflowExecutions +-- +-- /See:/ 'newWorkflowExecutionCount' smart constructor. +data WorkflowExecutionCount = WorkflowExecutionCount' + { -- | If set to true, indicates that the actual count was more than the + -- maximum supported by this API and the count returned is the truncated + -- value. + truncated :: Prelude.Maybe Prelude.Bool, + -- | The number of workflow executions. + count :: Prelude.Natural + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowExecutionCount' 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: +-- +-- 'truncated', 'workflowExecutionCount_truncated' - If set to true, indicates that the actual count was more than the +-- maximum supported by this API and the count returned is the truncated +-- value. +-- +-- 'count', 'workflowExecutionCount_count' - The number of workflow executions. +newWorkflowExecutionCount :: + -- | 'count' + Prelude.Natural -> + WorkflowExecutionCount +newWorkflowExecutionCount pCount_ = + WorkflowExecutionCount' + { truncated = + Prelude.Nothing, + count = pCount_ + } + +-- | If set to true, indicates that the actual count was more than the +-- maximum supported by this API and the count returned is the truncated +-- value. +workflowExecutionCount_truncated :: Lens.Lens' WorkflowExecutionCount (Prelude.Maybe Prelude.Bool) +workflowExecutionCount_truncated = Lens.lens (\WorkflowExecutionCount' {truncated} -> truncated) (\s@WorkflowExecutionCount' {} a -> s {truncated = a} :: WorkflowExecutionCount) + +-- | The number of workflow executions. +workflowExecutionCount_count :: Lens.Lens' WorkflowExecutionCount Prelude.Natural +workflowExecutionCount_count = Lens.lens (\WorkflowExecutionCount' {count} -> count) (\s@WorkflowExecutionCount' {} a -> s {count = a} :: WorkflowExecutionCount) + +instance Data.FromJSON WorkflowExecutionCount where + parseJSON = + Data.withObject + "WorkflowExecutionCount" + ( \x -> + WorkflowExecutionCount' + Prelude.<$> (x Data..:? "truncated") + Prelude.<*> (x Data..: "count") + ) + +instance Prelude.Hashable WorkflowExecutionCount where + hashWithSalt _salt WorkflowExecutionCount' {..} = + _salt + `Prelude.hashWithSalt` truncated + `Prelude.hashWithSalt` count + +instance Prelude.NFData WorkflowExecutionCount where + rnf WorkflowExecutionCount' {..} = + Prelude.rnf truncated + `Prelude.seq` Prelude.rnf count diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionFailedEventAttributes.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionFailedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionFailedEventAttributes.hs @@ -0,0 +1,121 @@ +{-# 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.SWF.Types.WorkflowExecutionFailedEventAttributes +-- 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.SWF.Types.WorkflowExecutionFailedEventAttributes 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 + +-- | Provides the details of the @WorkflowExecutionFailed@ event. +-- +-- /See:/ 'newWorkflowExecutionFailedEventAttributes' smart constructor. +data WorkflowExecutionFailedEventAttributes = WorkflowExecutionFailedEventAttributes' + { -- | The details of the failure. + details :: Prelude.Maybe Prelude.Text, + -- | The descriptive reason provided for the failure. + reason :: Prelude.Maybe Prelude.Text, + -- | The ID of the @DecisionTaskCompleted@ event corresponding to the + -- decision task that resulted in the @FailWorkflowExecution@ decision to + -- fail this execution. This information can be useful for diagnosing + -- problems by tracing back the chain of events leading up to this event. + decisionTaskCompletedEventId :: Prelude.Integer + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowExecutionFailedEventAttributes' 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: +-- +-- 'details', 'workflowExecutionFailedEventAttributes_details' - The details of the failure. +-- +-- 'reason', 'workflowExecutionFailedEventAttributes_reason' - The descriptive reason provided for the failure. +-- +-- 'decisionTaskCompletedEventId', 'workflowExecutionFailedEventAttributes_decisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @FailWorkflowExecution@ decision to +-- fail this execution. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +newWorkflowExecutionFailedEventAttributes :: + -- | 'decisionTaskCompletedEventId' + Prelude.Integer -> + WorkflowExecutionFailedEventAttributes +newWorkflowExecutionFailedEventAttributes + pDecisionTaskCompletedEventId_ = + WorkflowExecutionFailedEventAttributes' + { details = + Prelude.Nothing, + reason = Prelude.Nothing, + decisionTaskCompletedEventId = + pDecisionTaskCompletedEventId_ + } + +-- | The details of the failure. +workflowExecutionFailedEventAttributes_details :: Lens.Lens' WorkflowExecutionFailedEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionFailedEventAttributes_details = Lens.lens (\WorkflowExecutionFailedEventAttributes' {details} -> details) (\s@WorkflowExecutionFailedEventAttributes' {} a -> s {details = a} :: WorkflowExecutionFailedEventAttributes) + +-- | The descriptive reason provided for the failure. +workflowExecutionFailedEventAttributes_reason :: Lens.Lens' WorkflowExecutionFailedEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionFailedEventAttributes_reason = Lens.lens (\WorkflowExecutionFailedEventAttributes' {reason} -> reason) (\s@WorkflowExecutionFailedEventAttributes' {} a -> s {reason = a} :: WorkflowExecutionFailedEventAttributes) + +-- | The ID of the @DecisionTaskCompleted@ event corresponding to the +-- decision task that resulted in the @FailWorkflowExecution@ decision to +-- fail this execution. This information can be useful for diagnosing +-- problems by tracing back the chain of events leading up to this event. +workflowExecutionFailedEventAttributes_decisionTaskCompletedEventId :: Lens.Lens' WorkflowExecutionFailedEventAttributes Prelude.Integer +workflowExecutionFailedEventAttributes_decisionTaskCompletedEventId = Lens.lens (\WorkflowExecutionFailedEventAttributes' {decisionTaskCompletedEventId} -> decisionTaskCompletedEventId) (\s@WorkflowExecutionFailedEventAttributes' {} a -> s {decisionTaskCompletedEventId = a} :: WorkflowExecutionFailedEventAttributes) + +instance + Data.FromJSON + WorkflowExecutionFailedEventAttributes + where + parseJSON = + Data.withObject + "WorkflowExecutionFailedEventAttributes" + ( \x -> + WorkflowExecutionFailedEventAttributes' + Prelude.<$> (x Data..:? "details") + Prelude.<*> (x Data..:? "reason") + Prelude.<*> (x Data..: "decisionTaskCompletedEventId") + ) + +instance + Prelude.Hashable + WorkflowExecutionFailedEventAttributes + where + hashWithSalt + _salt + WorkflowExecutionFailedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` reason + `Prelude.hashWithSalt` decisionTaskCompletedEventId + +instance + Prelude.NFData + WorkflowExecutionFailedEventAttributes + where + rnf WorkflowExecutionFailedEventAttributes' {..} = + Prelude.rnf details + `Prelude.seq` Prelude.rnf reason + `Prelude.seq` Prelude.rnf decisionTaskCompletedEventId diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionFilter.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionFilter.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionFilter.hs @@ -0,0 +1,70 @@ +{-# 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.SWF.Types.WorkflowExecutionFilter +-- 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.SWF.Types.WorkflowExecutionFilter 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 + +-- | Used to filter the workflow executions in visibility APIs by their +-- @workflowId@. +-- +-- /See:/ 'newWorkflowExecutionFilter' smart constructor. +data WorkflowExecutionFilter = WorkflowExecutionFilter' + { -- | The workflowId to pass of match the criteria of this filter. + workflowId :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowExecutionFilter' 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: +-- +-- 'workflowId', 'workflowExecutionFilter_workflowId' - The workflowId to pass of match the criteria of this filter. +newWorkflowExecutionFilter :: + -- | 'workflowId' + Prelude.Text -> + WorkflowExecutionFilter +newWorkflowExecutionFilter pWorkflowId_ = + WorkflowExecutionFilter' {workflowId = pWorkflowId_} + +-- | The workflowId to pass of match the criteria of this filter. +workflowExecutionFilter_workflowId :: Lens.Lens' WorkflowExecutionFilter Prelude.Text +workflowExecutionFilter_workflowId = Lens.lens (\WorkflowExecutionFilter' {workflowId} -> workflowId) (\s@WorkflowExecutionFilter' {} a -> s {workflowId = a} :: WorkflowExecutionFilter) + +instance Prelude.Hashable WorkflowExecutionFilter where + hashWithSalt _salt WorkflowExecutionFilter' {..} = + _salt `Prelude.hashWithSalt` workflowId + +instance Prelude.NFData WorkflowExecutionFilter where + rnf WorkflowExecutionFilter' {..} = + Prelude.rnf workflowId + +instance Data.ToJSON WorkflowExecutionFilter where + toJSON WorkflowExecutionFilter' {..} = + Data.object + ( Prelude.catMaybes + [Prelude.Just ("workflowId" Data..= workflowId)] + ) diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionInfo.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionInfo.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionInfo.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.SWF.Types.WorkflowExecutionInfo +-- 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.SWF.Types.WorkflowExecutionInfo 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 +import Amazonka.SWF.Types.CloseStatus +import Amazonka.SWF.Types.ExecutionStatus +import Amazonka.SWF.Types.WorkflowExecution +import Amazonka.SWF.Types.WorkflowType + +-- | Contains information about a workflow execution. +-- +-- /See:/ 'newWorkflowExecutionInfo' smart constructor. +data WorkflowExecutionInfo = WorkflowExecutionInfo' + { -- | Set to true if a cancellation is requested for this workflow execution. + cancelRequested :: Prelude.Maybe Prelude.Bool, + -- | If the execution status is closed then this specifies how the execution + -- was closed: + -- + -- - @COMPLETED@ – the execution was successfully completed. + -- + -- - @CANCELED@ – the execution was canceled.Cancellation allows the + -- implementation to gracefully clean up before the execution is + -- closed. + -- + -- - @TERMINATED@ – the execution was force terminated. + -- + -- - @FAILED@ – the execution failed to complete. + -- + -- - @TIMED_OUT@ – the execution did not complete in the alloted time and + -- was automatically timed out. + -- + -- - @CONTINUED_AS_NEW@ – the execution is logically continued. This + -- means the current execution was completed and a new execution was + -- started to carry on the workflow. + closeStatus :: Prelude.Maybe CloseStatus, + -- | The time when the workflow execution was closed. Set only if the + -- execution status is CLOSED. + closeTimestamp :: Prelude.Maybe Data.POSIX, + -- | If this workflow execution is a child of another execution then contains + -- the workflow execution that started this execution. + parent :: Prelude.Maybe WorkflowExecution, + -- | The list of tags associated with the workflow execution. Tags can be + -- used to identify and list workflow executions of interest through the + -- visibility APIs. A workflow execution can have a maximum of 5 tags. + tagList :: Prelude.Maybe [Prelude.Text], + -- | The workflow execution this information is about. + execution :: WorkflowExecution, + -- | The type of the workflow execution. + workflowType :: WorkflowType, + -- | The time when the execution was started. + startTimestamp :: Data.POSIX, + -- | The current status of the execution. + executionStatus :: ExecutionStatus + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowExecutionInfo' 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: +-- +-- 'cancelRequested', 'workflowExecutionInfo_cancelRequested' - Set to true if a cancellation is requested for this workflow execution. +-- +-- 'closeStatus', 'workflowExecutionInfo_closeStatus' - If the execution status is closed then this specifies how the execution +-- was closed: +-- +-- - @COMPLETED@ – the execution was successfully completed. +-- +-- - @CANCELED@ – the execution was canceled.Cancellation allows the +-- implementation to gracefully clean up before the execution is +-- closed. +-- +-- - @TERMINATED@ – the execution was force terminated. +-- +-- - @FAILED@ – the execution failed to complete. +-- +-- - @TIMED_OUT@ – the execution did not complete in the alloted time and +-- was automatically timed out. +-- +-- - @CONTINUED_AS_NEW@ – the execution is logically continued. This +-- means the current execution was completed and a new execution was +-- started to carry on the workflow. +-- +-- 'closeTimestamp', 'workflowExecutionInfo_closeTimestamp' - The time when the workflow execution was closed. Set only if the +-- execution status is CLOSED. +-- +-- 'parent', 'workflowExecutionInfo_parent' - If this workflow execution is a child of another execution then contains +-- the workflow execution that started this execution. +-- +-- 'tagList', 'workflowExecutionInfo_tagList' - The list of tags associated with the workflow execution. Tags can be +-- used to identify and list workflow executions of interest through the +-- visibility APIs. A workflow execution can have a maximum of 5 tags. +-- +-- 'execution', 'workflowExecutionInfo_execution' - The workflow execution this information is about. +-- +-- 'workflowType', 'workflowExecutionInfo_workflowType' - The type of the workflow execution. +-- +-- 'startTimestamp', 'workflowExecutionInfo_startTimestamp' - The time when the execution was started. +-- +-- 'executionStatus', 'workflowExecutionInfo_executionStatus' - The current status of the execution. +newWorkflowExecutionInfo :: + -- | 'execution' + WorkflowExecution -> + -- | 'workflowType' + WorkflowType -> + -- | 'startTimestamp' + Prelude.UTCTime -> + -- | 'executionStatus' + ExecutionStatus -> + WorkflowExecutionInfo +newWorkflowExecutionInfo + pExecution_ + pWorkflowType_ + pStartTimestamp_ + pExecutionStatus_ = + WorkflowExecutionInfo' + { cancelRequested = + Prelude.Nothing, + closeStatus = Prelude.Nothing, + closeTimestamp = Prelude.Nothing, + parent = Prelude.Nothing, + tagList = Prelude.Nothing, + execution = pExecution_, + workflowType = pWorkflowType_, + startTimestamp = Data._Time Lens.# pStartTimestamp_, + executionStatus = pExecutionStatus_ + } + +-- | Set to true if a cancellation is requested for this workflow execution. +workflowExecutionInfo_cancelRequested :: Lens.Lens' WorkflowExecutionInfo (Prelude.Maybe Prelude.Bool) +workflowExecutionInfo_cancelRequested = Lens.lens (\WorkflowExecutionInfo' {cancelRequested} -> cancelRequested) (\s@WorkflowExecutionInfo' {} a -> s {cancelRequested = a} :: WorkflowExecutionInfo) + +-- | If the execution status is closed then this specifies how the execution +-- was closed: +-- +-- - @COMPLETED@ – the execution was successfully completed. +-- +-- - @CANCELED@ – the execution was canceled.Cancellation allows the +-- implementation to gracefully clean up before the execution is +-- closed. +-- +-- - @TERMINATED@ – the execution was force terminated. +-- +-- - @FAILED@ – the execution failed to complete. +-- +-- - @TIMED_OUT@ – the execution did not complete in the alloted time and +-- was automatically timed out. +-- +-- - @CONTINUED_AS_NEW@ – the execution is logically continued. This +-- means the current execution was completed and a new execution was +-- started to carry on the workflow. +workflowExecutionInfo_closeStatus :: Lens.Lens' WorkflowExecutionInfo (Prelude.Maybe CloseStatus) +workflowExecutionInfo_closeStatus = Lens.lens (\WorkflowExecutionInfo' {closeStatus} -> closeStatus) (\s@WorkflowExecutionInfo' {} a -> s {closeStatus = a} :: WorkflowExecutionInfo) + +-- | The time when the workflow execution was closed. Set only if the +-- execution status is CLOSED. +workflowExecutionInfo_closeTimestamp :: Lens.Lens' WorkflowExecutionInfo (Prelude.Maybe Prelude.UTCTime) +workflowExecutionInfo_closeTimestamp = Lens.lens (\WorkflowExecutionInfo' {closeTimestamp} -> closeTimestamp) (\s@WorkflowExecutionInfo' {} a -> s {closeTimestamp = a} :: WorkflowExecutionInfo) Prelude.. Lens.mapping Data._Time + +-- | If this workflow execution is a child of another execution then contains +-- the workflow execution that started this execution. +workflowExecutionInfo_parent :: Lens.Lens' WorkflowExecutionInfo (Prelude.Maybe WorkflowExecution) +workflowExecutionInfo_parent = Lens.lens (\WorkflowExecutionInfo' {parent} -> parent) (\s@WorkflowExecutionInfo' {} a -> s {parent = a} :: WorkflowExecutionInfo) + +-- | The list of tags associated with the workflow execution. Tags can be +-- used to identify and list workflow executions of interest through the +-- visibility APIs. A workflow execution can have a maximum of 5 tags. +workflowExecutionInfo_tagList :: Lens.Lens' WorkflowExecutionInfo (Prelude.Maybe [Prelude.Text]) +workflowExecutionInfo_tagList = Lens.lens (\WorkflowExecutionInfo' {tagList} -> tagList) (\s@WorkflowExecutionInfo' {} a -> s {tagList = a} :: WorkflowExecutionInfo) Prelude.. Lens.mapping Lens.coerced + +-- | The workflow execution this information is about. +workflowExecutionInfo_execution :: Lens.Lens' WorkflowExecutionInfo WorkflowExecution +workflowExecutionInfo_execution = Lens.lens (\WorkflowExecutionInfo' {execution} -> execution) (\s@WorkflowExecutionInfo' {} a -> s {execution = a} :: WorkflowExecutionInfo) + +-- | The type of the workflow execution. +workflowExecutionInfo_workflowType :: Lens.Lens' WorkflowExecutionInfo WorkflowType +workflowExecutionInfo_workflowType = Lens.lens (\WorkflowExecutionInfo' {workflowType} -> workflowType) (\s@WorkflowExecutionInfo' {} a -> s {workflowType = a} :: WorkflowExecutionInfo) + +-- | The time when the execution was started. +workflowExecutionInfo_startTimestamp :: Lens.Lens' WorkflowExecutionInfo Prelude.UTCTime +workflowExecutionInfo_startTimestamp = Lens.lens (\WorkflowExecutionInfo' {startTimestamp} -> startTimestamp) (\s@WorkflowExecutionInfo' {} a -> s {startTimestamp = a} :: WorkflowExecutionInfo) Prelude.. Data._Time + +-- | The current status of the execution. +workflowExecutionInfo_executionStatus :: Lens.Lens' WorkflowExecutionInfo ExecutionStatus +workflowExecutionInfo_executionStatus = Lens.lens (\WorkflowExecutionInfo' {executionStatus} -> executionStatus) (\s@WorkflowExecutionInfo' {} a -> s {executionStatus = a} :: WorkflowExecutionInfo) + +instance Data.FromJSON WorkflowExecutionInfo where + parseJSON = + Data.withObject + "WorkflowExecutionInfo" + ( \x -> + WorkflowExecutionInfo' + Prelude.<$> (x Data..:? "cancelRequested") + Prelude.<*> (x Data..:? "closeStatus") + Prelude.<*> (x Data..:? "closeTimestamp") + Prelude.<*> (x Data..:? "parent") + Prelude.<*> (x Data..:? "tagList" Data..!= Prelude.mempty) + Prelude.<*> (x Data..: "execution") + Prelude.<*> (x Data..: "workflowType") + Prelude.<*> (x Data..: "startTimestamp") + Prelude.<*> (x Data..: "executionStatus") + ) + +instance Prelude.Hashable WorkflowExecutionInfo where + hashWithSalt _salt WorkflowExecutionInfo' {..} = + _salt + `Prelude.hashWithSalt` cancelRequested + `Prelude.hashWithSalt` closeStatus + `Prelude.hashWithSalt` closeTimestamp + `Prelude.hashWithSalt` parent + `Prelude.hashWithSalt` tagList + `Prelude.hashWithSalt` execution + `Prelude.hashWithSalt` workflowType + `Prelude.hashWithSalt` startTimestamp + `Prelude.hashWithSalt` executionStatus + +instance Prelude.NFData WorkflowExecutionInfo where + rnf WorkflowExecutionInfo' {..} = + Prelude.rnf cancelRequested + `Prelude.seq` Prelude.rnf closeStatus + `Prelude.seq` Prelude.rnf closeTimestamp + `Prelude.seq` Prelude.rnf parent + `Prelude.seq` Prelude.rnf tagList + `Prelude.seq` Prelude.rnf execution + `Prelude.seq` Prelude.rnf workflowType + `Prelude.seq` Prelude.rnf startTimestamp + `Prelude.seq` Prelude.rnf executionStatus diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionInfos.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionInfos.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionInfos.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.SWF.Types.WorkflowExecutionInfos +-- 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.SWF.Types.WorkflowExecutionInfos 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 +import Amazonka.SWF.Types.WorkflowExecutionInfo + +-- | Contains a paginated list of information about workflow executions. +-- +-- /See:/ 'newWorkflowExecutionInfos' smart constructor. +data WorkflowExecutionInfos = WorkflowExecutionInfos' + { -- | If a @NextPageToken@ was returned by a previous call, there are more + -- results available. To retrieve the next page of results, make the call + -- again using the returned token in @nextPageToken@. Keep all other + -- arguments unchanged. + -- + -- The configured @maximumPageSize@ determines how many results can be + -- returned in a single call. + nextPageToken :: Prelude.Maybe Prelude.Text, + -- | The list of workflow information structures. + executionInfos :: [WorkflowExecutionInfo] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowExecutionInfos' 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: +-- +-- 'nextPageToken', 'workflowExecutionInfos_nextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more +-- results available. To retrieve the next page of results, make the call +-- again using the returned token in @nextPageToken@. Keep all other +-- arguments unchanged. +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +-- +-- 'executionInfos', 'workflowExecutionInfos_executionInfos' - The list of workflow information structures. +newWorkflowExecutionInfos :: + WorkflowExecutionInfos +newWorkflowExecutionInfos = + WorkflowExecutionInfos' + { nextPageToken = + Prelude.Nothing, + executionInfos = Prelude.mempty + } + +-- | If a @NextPageToken@ was returned by a previous call, there are more +-- results available. To retrieve the next page of results, make the call +-- again using the returned token in @nextPageToken@. Keep all other +-- arguments unchanged. +-- +-- The configured @maximumPageSize@ determines how many results can be +-- returned in a single call. +workflowExecutionInfos_nextPageToken :: Lens.Lens' WorkflowExecutionInfos (Prelude.Maybe Prelude.Text) +workflowExecutionInfos_nextPageToken = Lens.lens (\WorkflowExecutionInfos' {nextPageToken} -> nextPageToken) (\s@WorkflowExecutionInfos' {} a -> s {nextPageToken = a} :: WorkflowExecutionInfos) + +-- | The list of workflow information structures. +workflowExecutionInfos_executionInfos :: Lens.Lens' WorkflowExecutionInfos [WorkflowExecutionInfo] +workflowExecutionInfos_executionInfos = Lens.lens (\WorkflowExecutionInfos' {executionInfos} -> executionInfos) (\s@WorkflowExecutionInfos' {} a -> s {executionInfos = a} :: WorkflowExecutionInfos) Prelude.. Lens.coerced + +instance Data.FromJSON WorkflowExecutionInfos where + parseJSON = + Data.withObject + "WorkflowExecutionInfos" + ( \x -> + WorkflowExecutionInfos' + Prelude.<$> (x Data..:? "nextPageToken") + Prelude.<*> ( x + Data..:? "executionInfos" + Data..!= Prelude.mempty + ) + ) + +instance Prelude.Hashable WorkflowExecutionInfos where + hashWithSalt _salt WorkflowExecutionInfos' {..} = + _salt + `Prelude.hashWithSalt` nextPageToken + `Prelude.hashWithSalt` executionInfos + +instance Prelude.NFData WorkflowExecutionInfos where + rnf WorkflowExecutionInfos' {..} = + Prelude.rnf nextPageToken + `Prelude.seq` Prelude.rnf executionInfos diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionOpenCounts.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionOpenCounts.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionOpenCounts.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.SWF.Types.WorkflowExecutionOpenCounts +-- 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.SWF.Types.WorkflowExecutionOpenCounts 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 the counts of open tasks, child workflow executions and timers +-- for a workflow execution. +-- +-- /See:/ 'newWorkflowExecutionOpenCounts' smart constructor. +data WorkflowExecutionOpenCounts = WorkflowExecutionOpenCounts' + { -- | The count of Lambda tasks whose status is @OPEN@. + openLambdaFunctions :: Prelude.Maybe Prelude.Natural, + -- | The count of activity tasks whose status is @OPEN@. + openActivityTasks :: Prelude.Natural, + -- | The count of decision tasks whose status is OPEN. A workflow execution + -- can have at most one open decision task. + openDecisionTasks :: Prelude.Natural, + -- | The count of timers started by this workflow execution that have not + -- fired yet. + openTimers :: Prelude.Natural, + -- | The count of child workflow executions whose status is @OPEN@. + openChildWorkflowExecutions :: Prelude.Natural + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowExecutionOpenCounts' 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: +-- +-- 'openLambdaFunctions', 'workflowExecutionOpenCounts_openLambdaFunctions' - The count of Lambda tasks whose status is @OPEN@. +-- +-- 'openActivityTasks', 'workflowExecutionOpenCounts_openActivityTasks' - The count of activity tasks whose status is @OPEN@. +-- +-- 'openDecisionTasks', 'workflowExecutionOpenCounts_openDecisionTasks' - The count of decision tasks whose status is OPEN. A workflow execution +-- can have at most one open decision task. +-- +-- 'openTimers', 'workflowExecutionOpenCounts_openTimers' - The count of timers started by this workflow execution that have not +-- fired yet. +-- +-- 'openChildWorkflowExecutions', 'workflowExecutionOpenCounts_openChildWorkflowExecutions' - The count of child workflow executions whose status is @OPEN@. +newWorkflowExecutionOpenCounts :: + -- | 'openActivityTasks' + Prelude.Natural -> + -- | 'openDecisionTasks' + Prelude.Natural -> + -- | 'openTimers' + Prelude.Natural -> + -- | 'openChildWorkflowExecutions' + Prelude.Natural -> + WorkflowExecutionOpenCounts +newWorkflowExecutionOpenCounts + pOpenActivityTasks_ + pOpenDecisionTasks_ + pOpenTimers_ + pOpenChildWorkflowExecutions_ = + WorkflowExecutionOpenCounts' + { openLambdaFunctions = + Prelude.Nothing, + openActivityTasks = pOpenActivityTasks_, + openDecisionTasks = pOpenDecisionTasks_, + openTimers = pOpenTimers_, + openChildWorkflowExecutions = + pOpenChildWorkflowExecutions_ + } + +-- | The count of Lambda tasks whose status is @OPEN@. +workflowExecutionOpenCounts_openLambdaFunctions :: Lens.Lens' WorkflowExecutionOpenCounts (Prelude.Maybe Prelude.Natural) +workflowExecutionOpenCounts_openLambdaFunctions = Lens.lens (\WorkflowExecutionOpenCounts' {openLambdaFunctions} -> openLambdaFunctions) (\s@WorkflowExecutionOpenCounts' {} a -> s {openLambdaFunctions = a} :: WorkflowExecutionOpenCounts) + +-- | The count of activity tasks whose status is @OPEN@. +workflowExecutionOpenCounts_openActivityTasks :: Lens.Lens' WorkflowExecutionOpenCounts Prelude.Natural +workflowExecutionOpenCounts_openActivityTasks = Lens.lens (\WorkflowExecutionOpenCounts' {openActivityTasks} -> openActivityTasks) (\s@WorkflowExecutionOpenCounts' {} a -> s {openActivityTasks = a} :: WorkflowExecutionOpenCounts) + +-- | The count of decision tasks whose status is OPEN. A workflow execution +-- can have at most one open decision task. +workflowExecutionOpenCounts_openDecisionTasks :: Lens.Lens' WorkflowExecutionOpenCounts Prelude.Natural +workflowExecutionOpenCounts_openDecisionTasks = Lens.lens (\WorkflowExecutionOpenCounts' {openDecisionTasks} -> openDecisionTasks) (\s@WorkflowExecutionOpenCounts' {} a -> s {openDecisionTasks = a} :: WorkflowExecutionOpenCounts) + +-- | The count of timers started by this workflow execution that have not +-- fired yet. +workflowExecutionOpenCounts_openTimers :: Lens.Lens' WorkflowExecutionOpenCounts Prelude.Natural +workflowExecutionOpenCounts_openTimers = Lens.lens (\WorkflowExecutionOpenCounts' {openTimers} -> openTimers) (\s@WorkflowExecutionOpenCounts' {} a -> s {openTimers = a} :: WorkflowExecutionOpenCounts) + +-- | The count of child workflow executions whose status is @OPEN@. +workflowExecutionOpenCounts_openChildWorkflowExecutions :: Lens.Lens' WorkflowExecutionOpenCounts Prelude.Natural +workflowExecutionOpenCounts_openChildWorkflowExecutions = Lens.lens (\WorkflowExecutionOpenCounts' {openChildWorkflowExecutions} -> openChildWorkflowExecutions) (\s@WorkflowExecutionOpenCounts' {} a -> s {openChildWorkflowExecutions = a} :: WorkflowExecutionOpenCounts) + +instance Data.FromJSON WorkflowExecutionOpenCounts where + parseJSON = + Data.withObject + "WorkflowExecutionOpenCounts" + ( \x -> + WorkflowExecutionOpenCounts' + Prelude.<$> (x Data..:? "openLambdaFunctions") + Prelude.<*> (x Data..: "openActivityTasks") + Prelude.<*> (x Data..: "openDecisionTasks") + Prelude.<*> (x Data..: "openTimers") + Prelude.<*> (x Data..: "openChildWorkflowExecutions") + ) + +instance Prelude.Hashable WorkflowExecutionOpenCounts where + hashWithSalt _salt WorkflowExecutionOpenCounts' {..} = + _salt + `Prelude.hashWithSalt` openLambdaFunctions + `Prelude.hashWithSalt` openActivityTasks + `Prelude.hashWithSalt` openDecisionTasks + `Prelude.hashWithSalt` openTimers + `Prelude.hashWithSalt` openChildWorkflowExecutions + +instance Prelude.NFData WorkflowExecutionOpenCounts where + rnf WorkflowExecutionOpenCounts' {..} = + Prelude.rnf openLambdaFunctions + `Prelude.seq` Prelude.rnf openActivityTasks + `Prelude.seq` Prelude.rnf openDecisionTasks + `Prelude.seq` Prelude.rnf openTimers + `Prelude.seq` Prelude.rnf openChildWorkflowExecutions diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionSignaledEventAttributes.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionSignaledEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionSignaledEventAttributes.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.SWF.Types.WorkflowExecutionSignaledEventAttributes +-- 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.SWF.Types.WorkflowExecutionSignaledEventAttributes 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 +import Amazonka.SWF.Types.WorkflowExecution + +-- | Provides the details of the @WorkflowExecutionSignaled@ event. +-- +-- /See:/ 'newWorkflowExecutionSignaledEventAttributes' smart constructor. +data WorkflowExecutionSignaledEventAttributes = WorkflowExecutionSignaledEventAttributes' + { -- | The ID of the @SignalExternalWorkflowExecutionInitiated@ event + -- corresponding to the @SignalExternalWorkflow@ decision to signal this + -- workflow execution.The source event with this ID can be found in the + -- history of the source workflow execution. This information can be useful + -- for diagnosing problems by tracing back the chain of events leading up + -- to this event. This field is set only if the signal was initiated by + -- another workflow execution. + externalInitiatedEventId :: Prelude.Maybe Prelude.Integer, + -- | The workflow execution that sent the signal. This is set only of the + -- signal was sent by another workflow execution. + externalWorkflowExecution :: Prelude.Maybe WorkflowExecution, + -- | The inputs provided with the signal. The decider can use the signal name + -- and inputs to determine how to process the signal. + input :: Prelude.Maybe Prelude.Text, + -- | The name of the signal received. The decider can use the signal name and + -- inputs to determine how to the process the signal. + signalName :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowExecutionSignaledEventAttributes' 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: +-- +-- 'externalInitiatedEventId', 'workflowExecutionSignaledEventAttributes_externalInitiatedEventId' - The ID of the @SignalExternalWorkflowExecutionInitiated@ event +-- corresponding to the @SignalExternalWorkflow@ decision to signal this +-- workflow execution.The source event with this ID can be found in the +-- history of the source workflow execution. This information can be useful +-- for diagnosing problems by tracing back the chain of events leading up +-- to this event. This field is set only if the signal was initiated by +-- another workflow execution. +-- +-- 'externalWorkflowExecution', 'workflowExecutionSignaledEventAttributes_externalWorkflowExecution' - The workflow execution that sent the signal. This is set only of the +-- signal was sent by another workflow execution. +-- +-- 'input', 'workflowExecutionSignaledEventAttributes_input' - The inputs provided with the signal. The decider can use the signal name +-- and inputs to determine how to process the signal. +-- +-- 'signalName', 'workflowExecutionSignaledEventAttributes_signalName' - The name of the signal received. The decider can use the signal name and +-- inputs to determine how to the process the signal. +newWorkflowExecutionSignaledEventAttributes :: + -- | 'signalName' + Prelude.Text -> + WorkflowExecutionSignaledEventAttributes +newWorkflowExecutionSignaledEventAttributes + pSignalName_ = + WorkflowExecutionSignaledEventAttributes' + { externalInitiatedEventId = + Prelude.Nothing, + externalWorkflowExecution = + Prelude.Nothing, + input = Prelude.Nothing, + signalName = pSignalName_ + } + +-- | The ID of the @SignalExternalWorkflowExecutionInitiated@ event +-- corresponding to the @SignalExternalWorkflow@ decision to signal this +-- workflow execution.The source event with this ID can be found in the +-- history of the source workflow execution. This information can be useful +-- for diagnosing problems by tracing back the chain of events leading up +-- to this event. This field is set only if the signal was initiated by +-- another workflow execution. +workflowExecutionSignaledEventAttributes_externalInitiatedEventId :: Lens.Lens' WorkflowExecutionSignaledEventAttributes (Prelude.Maybe Prelude.Integer) +workflowExecutionSignaledEventAttributes_externalInitiatedEventId = Lens.lens (\WorkflowExecutionSignaledEventAttributes' {externalInitiatedEventId} -> externalInitiatedEventId) (\s@WorkflowExecutionSignaledEventAttributes' {} a -> s {externalInitiatedEventId = a} :: WorkflowExecutionSignaledEventAttributes) + +-- | The workflow execution that sent the signal. This is set only of the +-- signal was sent by another workflow execution. +workflowExecutionSignaledEventAttributes_externalWorkflowExecution :: Lens.Lens' WorkflowExecutionSignaledEventAttributes (Prelude.Maybe WorkflowExecution) +workflowExecutionSignaledEventAttributes_externalWorkflowExecution = Lens.lens (\WorkflowExecutionSignaledEventAttributes' {externalWorkflowExecution} -> externalWorkflowExecution) (\s@WorkflowExecutionSignaledEventAttributes' {} a -> s {externalWorkflowExecution = a} :: WorkflowExecutionSignaledEventAttributes) + +-- | The inputs provided with the signal. The decider can use the signal name +-- and inputs to determine how to process the signal. +workflowExecutionSignaledEventAttributes_input :: Lens.Lens' WorkflowExecutionSignaledEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionSignaledEventAttributes_input = Lens.lens (\WorkflowExecutionSignaledEventAttributes' {input} -> input) (\s@WorkflowExecutionSignaledEventAttributes' {} a -> s {input = a} :: WorkflowExecutionSignaledEventAttributes) + +-- | The name of the signal received. The decider can use the signal name and +-- inputs to determine how to the process the signal. +workflowExecutionSignaledEventAttributes_signalName :: Lens.Lens' WorkflowExecutionSignaledEventAttributes Prelude.Text +workflowExecutionSignaledEventAttributes_signalName = Lens.lens (\WorkflowExecutionSignaledEventAttributes' {signalName} -> signalName) (\s@WorkflowExecutionSignaledEventAttributes' {} a -> s {signalName = a} :: WorkflowExecutionSignaledEventAttributes) + +instance + Data.FromJSON + WorkflowExecutionSignaledEventAttributes + where + parseJSON = + Data.withObject + "WorkflowExecutionSignaledEventAttributes" + ( \x -> + WorkflowExecutionSignaledEventAttributes' + Prelude.<$> (x Data..:? "externalInitiatedEventId") + Prelude.<*> (x Data..:? "externalWorkflowExecution") + Prelude.<*> (x Data..:? "input") + Prelude.<*> (x Data..: "signalName") + ) + +instance + Prelude.Hashable + WorkflowExecutionSignaledEventAttributes + where + hashWithSalt + _salt + WorkflowExecutionSignaledEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` externalInitiatedEventId + `Prelude.hashWithSalt` externalWorkflowExecution + `Prelude.hashWithSalt` input + `Prelude.hashWithSalt` signalName + +instance + Prelude.NFData + WorkflowExecutionSignaledEventAttributes + where + rnf WorkflowExecutionSignaledEventAttributes' {..} = + Prelude.rnf externalInitiatedEventId + `Prelude.seq` Prelude.rnf externalWorkflowExecution + `Prelude.seq` Prelude.rnf input + `Prelude.seq` Prelude.rnf signalName diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionStartedEventAttributes.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionStartedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionStartedEventAttributes.hs @@ -0,0 +1,329 @@ +{-# 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.SWF.Types.WorkflowExecutionStartedEventAttributes +-- 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.SWF.Types.WorkflowExecutionStartedEventAttributes 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 +import Amazonka.SWF.Types.ChildPolicy +import Amazonka.SWF.Types.TaskList +import Amazonka.SWF.Types.WorkflowExecution +import Amazonka.SWF.Types.WorkflowType + +-- | Provides details of @WorkflowExecutionStarted@ event. +-- +-- /See:/ 'newWorkflowExecutionStartedEventAttributes' smart constructor. +data WorkflowExecutionStartedEventAttributes = WorkflowExecutionStartedEventAttributes' + { -- | If this workflow execution was started due to a + -- @ContinueAsNewWorkflowExecution@ decision, then it contains the @runId@ + -- of the previous workflow execution that was closed and continued as this + -- execution. + continuedExecutionRunId :: Prelude.Maybe Prelude.Text, + -- | The maximum duration for this workflow execution. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + executionStartToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The input provided to the workflow execution. + input :: Prelude.Maybe Prelude.Text, + -- | The IAM role attached to the workflow execution. + lambdaRole :: Prelude.Maybe Prelude.Text, + -- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding + -- to the @StartChildWorkflowExecution@ Decision to start this workflow + -- execution. The source event with this ID can be found in the history of + -- the source workflow execution. This information can be useful for + -- diagnosing problems by tracing back the chain of events leading up to + -- this event. + parentInitiatedEventId :: Prelude.Maybe Prelude.Integer, + -- | The source workflow execution that started this workflow execution. The + -- member isn\'t set if the workflow execution was not started by a + -- workflow. + parentWorkflowExecution :: Prelude.Maybe WorkflowExecution, + -- | The list of tags associated with this workflow execution. An execution + -- can have up to 5 tags. + tagList :: Prelude.Maybe [Prelude.Text], + -- | The priority of the decision tasks in the workflow execution. + taskPriority :: Prelude.Maybe Prelude.Text, + -- | The maximum duration of decision tasks for this workflow type. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + taskStartToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The policy to use for the child workflow executions if this workflow + -- execution is terminated, by calling the TerminateWorkflowExecution + -- action explicitly or due to an expired timeout. + -- + -- The supported child policies are: + -- + -- - @TERMINATE@ – The child executions are terminated. + -- + -- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child + -- execution by recording a @WorkflowExecutionCancelRequested@ event in + -- its history. It is up to the decider to take appropriate actions + -- when it receives an execution history with this event. + -- + -- - @ABANDON@ – No action is taken. The child executions continue to + -- run. + childPolicy :: ChildPolicy, + -- | The name of the task list for scheduling the decision tasks for this + -- workflow execution. + taskList :: TaskList, + -- | The workflow type of this execution. + workflowType :: WorkflowType + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowExecutionStartedEventAttributes' 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: +-- +-- 'continuedExecutionRunId', 'workflowExecutionStartedEventAttributes_continuedExecutionRunId' - If this workflow execution was started due to a +-- @ContinueAsNewWorkflowExecution@ decision, then it contains the @runId@ +-- of the previous workflow execution that was closed and continued as this +-- execution. +-- +-- 'executionStartToCloseTimeout', 'workflowExecutionStartedEventAttributes_executionStartToCloseTimeout' - The maximum duration for this workflow execution. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'input', 'workflowExecutionStartedEventAttributes_input' - The input provided to the workflow execution. +-- +-- 'lambdaRole', 'workflowExecutionStartedEventAttributes_lambdaRole' - The IAM role attached to the workflow execution. +-- +-- 'parentInitiatedEventId', 'workflowExecutionStartedEventAttributes_parentInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding +-- to the @StartChildWorkflowExecution@ Decision to start this workflow +-- execution. The source event with this ID can be found in the history of +-- the source workflow execution. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +-- +-- 'parentWorkflowExecution', 'workflowExecutionStartedEventAttributes_parentWorkflowExecution' - The source workflow execution that started this workflow execution. The +-- member isn\'t set if the workflow execution was not started by a +-- workflow. +-- +-- 'tagList', 'workflowExecutionStartedEventAttributes_tagList' - The list of tags associated with this workflow execution. An execution +-- can have up to 5 tags. +-- +-- 'taskPriority', 'workflowExecutionStartedEventAttributes_taskPriority' - The priority of the decision tasks in the workflow execution. +-- +-- 'taskStartToCloseTimeout', 'workflowExecutionStartedEventAttributes_taskStartToCloseTimeout' - The maximum duration of decision tasks for this workflow type. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'childPolicy', 'workflowExecutionStartedEventAttributes_childPolicy' - The policy to use for the child workflow executions if this workflow +-- execution is terminated, by calling the TerminateWorkflowExecution +-- action explicitly or due to an expired timeout. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +-- +-- 'taskList', 'workflowExecutionStartedEventAttributes_taskList' - The name of the task list for scheduling the decision tasks for this +-- workflow execution. +-- +-- 'workflowType', 'workflowExecutionStartedEventAttributes_workflowType' - The workflow type of this execution. +newWorkflowExecutionStartedEventAttributes :: + -- | 'childPolicy' + ChildPolicy -> + -- | 'taskList' + TaskList -> + -- | 'workflowType' + WorkflowType -> + WorkflowExecutionStartedEventAttributes +newWorkflowExecutionStartedEventAttributes + pChildPolicy_ + pTaskList_ + pWorkflowType_ = + WorkflowExecutionStartedEventAttributes' + { continuedExecutionRunId = + Prelude.Nothing, + executionStartToCloseTimeout = + Prelude.Nothing, + input = Prelude.Nothing, + lambdaRole = Prelude.Nothing, + parentInitiatedEventId = + Prelude.Nothing, + parentWorkflowExecution = + Prelude.Nothing, + tagList = Prelude.Nothing, + taskPriority = Prelude.Nothing, + taskStartToCloseTimeout = + Prelude.Nothing, + childPolicy = pChildPolicy_, + taskList = pTaskList_, + workflowType = pWorkflowType_ + } + +-- | If this workflow execution was started due to a +-- @ContinueAsNewWorkflowExecution@ decision, then it contains the @runId@ +-- of the previous workflow execution that was closed and continued as this +-- execution. +workflowExecutionStartedEventAttributes_continuedExecutionRunId :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionStartedEventAttributes_continuedExecutionRunId = Lens.lens (\WorkflowExecutionStartedEventAttributes' {continuedExecutionRunId} -> continuedExecutionRunId) (\s@WorkflowExecutionStartedEventAttributes' {} a -> s {continuedExecutionRunId = a} :: WorkflowExecutionStartedEventAttributes) + +-- | The maximum duration for this workflow execution. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +workflowExecutionStartedEventAttributes_executionStartToCloseTimeout :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionStartedEventAttributes_executionStartToCloseTimeout = Lens.lens (\WorkflowExecutionStartedEventAttributes' {executionStartToCloseTimeout} -> executionStartToCloseTimeout) (\s@WorkflowExecutionStartedEventAttributes' {} a -> s {executionStartToCloseTimeout = a} :: WorkflowExecutionStartedEventAttributes) + +-- | The input provided to the workflow execution. +workflowExecutionStartedEventAttributes_input :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionStartedEventAttributes_input = Lens.lens (\WorkflowExecutionStartedEventAttributes' {input} -> input) (\s@WorkflowExecutionStartedEventAttributes' {} a -> s {input = a} :: WorkflowExecutionStartedEventAttributes) + +-- | The IAM role attached to the workflow execution. +workflowExecutionStartedEventAttributes_lambdaRole :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionStartedEventAttributes_lambdaRole = Lens.lens (\WorkflowExecutionStartedEventAttributes' {lambdaRole} -> lambdaRole) (\s@WorkflowExecutionStartedEventAttributes' {} a -> s {lambdaRole = a} :: WorkflowExecutionStartedEventAttributes) + +-- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding +-- to the @StartChildWorkflowExecution@ Decision to start this workflow +-- execution. The source event with this ID can be found in the history of +-- the source workflow execution. This information can be useful for +-- diagnosing problems by tracing back the chain of events leading up to +-- this event. +workflowExecutionStartedEventAttributes_parentInitiatedEventId :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe Prelude.Integer) +workflowExecutionStartedEventAttributes_parentInitiatedEventId = Lens.lens (\WorkflowExecutionStartedEventAttributes' {parentInitiatedEventId} -> parentInitiatedEventId) (\s@WorkflowExecutionStartedEventAttributes' {} a -> s {parentInitiatedEventId = a} :: WorkflowExecutionStartedEventAttributes) + +-- | The source workflow execution that started this workflow execution. The +-- member isn\'t set if the workflow execution was not started by a +-- workflow. +workflowExecutionStartedEventAttributes_parentWorkflowExecution :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe WorkflowExecution) +workflowExecutionStartedEventAttributes_parentWorkflowExecution = Lens.lens (\WorkflowExecutionStartedEventAttributes' {parentWorkflowExecution} -> parentWorkflowExecution) (\s@WorkflowExecutionStartedEventAttributes' {} a -> s {parentWorkflowExecution = a} :: WorkflowExecutionStartedEventAttributes) + +-- | The list of tags associated with this workflow execution. An execution +-- can have up to 5 tags. +workflowExecutionStartedEventAttributes_tagList :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe [Prelude.Text]) +workflowExecutionStartedEventAttributes_tagList = Lens.lens (\WorkflowExecutionStartedEventAttributes' {tagList} -> tagList) (\s@WorkflowExecutionStartedEventAttributes' {} a -> s {tagList = a} :: WorkflowExecutionStartedEventAttributes) Prelude.. Lens.mapping Lens.coerced + +-- | The priority of the decision tasks in the workflow execution. +workflowExecutionStartedEventAttributes_taskPriority :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionStartedEventAttributes_taskPriority = Lens.lens (\WorkflowExecutionStartedEventAttributes' {taskPriority} -> taskPriority) (\s@WorkflowExecutionStartedEventAttributes' {} a -> s {taskPriority = a} :: WorkflowExecutionStartedEventAttributes) + +-- | The maximum duration of decision tasks for this workflow type. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +workflowExecutionStartedEventAttributes_taskStartToCloseTimeout :: Lens.Lens' WorkflowExecutionStartedEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionStartedEventAttributes_taskStartToCloseTimeout = Lens.lens (\WorkflowExecutionStartedEventAttributes' {taskStartToCloseTimeout} -> taskStartToCloseTimeout) (\s@WorkflowExecutionStartedEventAttributes' {} a -> s {taskStartToCloseTimeout = a} :: WorkflowExecutionStartedEventAttributes) + +-- | The policy to use for the child workflow executions if this workflow +-- execution is terminated, by calling the TerminateWorkflowExecution +-- action explicitly or due to an expired timeout. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +workflowExecutionStartedEventAttributes_childPolicy :: Lens.Lens' WorkflowExecutionStartedEventAttributes ChildPolicy +workflowExecutionStartedEventAttributes_childPolicy = Lens.lens (\WorkflowExecutionStartedEventAttributes' {childPolicy} -> childPolicy) (\s@WorkflowExecutionStartedEventAttributes' {} a -> s {childPolicy = a} :: WorkflowExecutionStartedEventAttributes) + +-- | The name of the task list for scheduling the decision tasks for this +-- workflow execution. +workflowExecutionStartedEventAttributes_taskList :: Lens.Lens' WorkflowExecutionStartedEventAttributes TaskList +workflowExecutionStartedEventAttributes_taskList = Lens.lens (\WorkflowExecutionStartedEventAttributes' {taskList} -> taskList) (\s@WorkflowExecutionStartedEventAttributes' {} a -> s {taskList = a} :: WorkflowExecutionStartedEventAttributes) + +-- | The workflow type of this execution. +workflowExecutionStartedEventAttributes_workflowType :: Lens.Lens' WorkflowExecutionStartedEventAttributes WorkflowType +workflowExecutionStartedEventAttributes_workflowType = Lens.lens (\WorkflowExecutionStartedEventAttributes' {workflowType} -> workflowType) (\s@WorkflowExecutionStartedEventAttributes' {} a -> s {workflowType = a} :: WorkflowExecutionStartedEventAttributes) + +instance + Data.FromJSON + WorkflowExecutionStartedEventAttributes + where + parseJSON = + Data.withObject + "WorkflowExecutionStartedEventAttributes" + ( \x -> + WorkflowExecutionStartedEventAttributes' + Prelude.<$> (x Data..:? "continuedExecutionRunId") + Prelude.<*> (x Data..:? "executionStartToCloseTimeout") + Prelude.<*> (x Data..:? "input") + Prelude.<*> (x Data..:? "lambdaRole") + Prelude.<*> (x Data..:? "parentInitiatedEventId") + Prelude.<*> (x Data..:? "parentWorkflowExecution") + Prelude.<*> (x Data..:? "tagList" Data..!= Prelude.mempty) + Prelude.<*> (x Data..:? "taskPriority") + Prelude.<*> (x Data..:? "taskStartToCloseTimeout") + Prelude.<*> (x Data..: "childPolicy") + Prelude.<*> (x Data..: "taskList") + Prelude.<*> (x Data..: "workflowType") + ) + +instance + Prelude.Hashable + WorkflowExecutionStartedEventAttributes + where + hashWithSalt + _salt + WorkflowExecutionStartedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` continuedExecutionRunId + `Prelude.hashWithSalt` executionStartToCloseTimeout + `Prelude.hashWithSalt` input + `Prelude.hashWithSalt` lambdaRole + `Prelude.hashWithSalt` parentInitiatedEventId + `Prelude.hashWithSalt` parentWorkflowExecution + `Prelude.hashWithSalt` tagList + `Prelude.hashWithSalt` taskPriority + `Prelude.hashWithSalt` taskStartToCloseTimeout + `Prelude.hashWithSalt` childPolicy + `Prelude.hashWithSalt` taskList + `Prelude.hashWithSalt` workflowType + +instance + Prelude.NFData + WorkflowExecutionStartedEventAttributes + where + rnf WorkflowExecutionStartedEventAttributes' {..} = + Prelude.rnf continuedExecutionRunId + `Prelude.seq` Prelude.rnf executionStartToCloseTimeout + `Prelude.seq` Prelude.rnf input + `Prelude.seq` Prelude.rnf lambdaRole + `Prelude.seq` Prelude.rnf parentInitiatedEventId + `Prelude.seq` Prelude.rnf parentWorkflowExecution + `Prelude.seq` Prelude.rnf tagList + `Prelude.seq` Prelude.rnf taskPriority + `Prelude.seq` Prelude.rnf taskStartToCloseTimeout + `Prelude.seq` Prelude.rnf childPolicy + `Prelude.seq` Prelude.rnf taskList + `Prelude.seq` Prelude.rnf workflowType diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionTerminatedCause.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionTerminatedCause.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionTerminatedCause.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.SWF.Types.WorkflowExecutionTerminatedCause +-- 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.SWF.Types.WorkflowExecutionTerminatedCause + ( WorkflowExecutionTerminatedCause + ( .., + WorkflowExecutionTerminatedCause_CHILD_POLICY_APPLIED, + WorkflowExecutionTerminatedCause_EVENT_LIMIT_EXCEEDED, + WorkflowExecutionTerminatedCause_OPERATOR_INITIATED + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype WorkflowExecutionTerminatedCause = WorkflowExecutionTerminatedCause' + { fromWorkflowExecutionTerminatedCause :: + 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 WorkflowExecutionTerminatedCause_CHILD_POLICY_APPLIED :: WorkflowExecutionTerminatedCause +pattern WorkflowExecutionTerminatedCause_CHILD_POLICY_APPLIED = WorkflowExecutionTerminatedCause' "CHILD_POLICY_APPLIED" + +pattern WorkflowExecutionTerminatedCause_EVENT_LIMIT_EXCEEDED :: WorkflowExecutionTerminatedCause +pattern WorkflowExecutionTerminatedCause_EVENT_LIMIT_EXCEEDED = WorkflowExecutionTerminatedCause' "EVENT_LIMIT_EXCEEDED" + +pattern WorkflowExecutionTerminatedCause_OPERATOR_INITIATED :: WorkflowExecutionTerminatedCause +pattern WorkflowExecutionTerminatedCause_OPERATOR_INITIATED = WorkflowExecutionTerminatedCause' "OPERATOR_INITIATED" + +{-# COMPLETE + WorkflowExecutionTerminatedCause_CHILD_POLICY_APPLIED, + WorkflowExecutionTerminatedCause_EVENT_LIMIT_EXCEEDED, + WorkflowExecutionTerminatedCause_OPERATOR_INITIATED, + WorkflowExecutionTerminatedCause' + #-} diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionTerminatedEventAttributes.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionTerminatedEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionTerminatedEventAttributes.hs @@ -0,0 +1,173 @@ +{-# 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.SWF.Types.WorkflowExecutionTerminatedEventAttributes +-- 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.SWF.Types.WorkflowExecutionTerminatedEventAttributes 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 +import Amazonka.SWF.Types.ChildPolicy +import Amazonka.SWF.Types.WorkflowExecutionTerminatedCause + +-- | Provides the details of the @WorkflowExecutionTerminated@ event. +-- +-- /See:/ 'newWorkflowExecutionTerminatedEventAttributes' smart constructor. +data WorkflowExecutionTerminatedEventAttributes = WorkflowExecutionTerminatedEventAttributes' + { -- | If set, indicates that the workflow execution was automatically + -- terminated, and specifies the cause. This happens if the parent workflow + -- execution times out or is terminated and the child policy is set to + -- terminate child executions. + cause :: Prelude.Maybe WorkflowExecutionTerminatedCause, + -- | The details provided for the termination. + details :: Prelude.Maybe Prelude.Text, + -- | The reason provided for the termination. + reason :: Prelude.Maybe Prelude.Text, + -- | The policy used for the child workflow executions of this workflow + -- execution. + -- + -- The supported child policies are: + -- + -- - @TERMINATE@ – The child executions are terminated. + -- + -- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child + -- execution by recording a @WorkflowExecutionCancelRequested@ event in + -- its history. It is up to the decider to take appropriate actions + -- when it receives an execution history with this event. + -- + -- - @ABANDON@ – No action is taken. The child executions continue to + -- run. + childPolicy :: ChildPolicy + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowExecutionTerminatedEventAttributes' 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: +-- +-- 'cause', 'workflowExecutionTerminatedEventAttributes_cause' - If set, indicates that the workflow execution was automatically +-- terminated, and specifies the cause. This happens if the parent workflow +-- execution times out or is terminated and the child policy is set to +-- terminate child executions. +-- +-- 'details', 'workflowExecutionTerminatedEventAttributes_details' - The details provided for the termination. +-- +-- 'reason', 'workflowExecutionTerminatedEventAttributes_reason' - The reason provided for the termination. +-- +-- 'childPolicy', 'workflowExecutionTerminatedEventAttributes_childPolicy' - The policy used for the child workflow executions of this workflow +-- execution. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +newWorkflowExecutionTerminatedEventAttributes :: + -- | 'childPolicy' + ChildPolicy -> + WorkflowExecutionTerminatedEventAttributes +newWorkflowExecutionTerminatedEventAttributes + pChildPolicy_ = + WorkflowExecutionTerminatedEventAttributes' + { cause = + Prelude.Nothing, + details = Prelude.Nothing, + reason = Prelude.Nothing, + childPolicy = pChildPolicy_ + } + +-- | If set, indicates that the workflow execution was automatically +-- terminated, and specifies the cause. This happens if the parent workflow +-- execution times out or is terminated and the child policy is set to +-- terminate child executions. +workflowExecutionTerminatedEventAttributes_cause :: Lens.Lens' WorkflowExecutionTerminatedEventAttributes (Prelude.Maybe WorkflowExecutionTerminatedCause) +workflowExecutionTerminatedEventAttributes_cause = Lens.lens (\WorkflowExecutionTerminatedEventAttributes' {cause} -> cause) (\s@WorkflowExecutionTerminatedEventAttributes' {} a -> s {cause = a} :: WorkflowExecutionTerminatedEventAttributes) + +-- | The details provided for the termination. +workflowExecutionTerminatedEventAttributes_details :: Lens.Lens' WorkflowExecutionTerminatedEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionTerminatedEventAttributes_details = Lens.lens (\WorkflowExecutionTerminatedEventAttributes' {details} -> details) (\s@WorkflowExecutionTerminatedEventAttributes' {} a -> s {details = a} :: WorkflowExecutionTerminatedEventAttributes) + +-- | The reason provided for the termination. +workflowExecutionTerminatedEventAttributes_reason :: Lens.Lens' WorkflowExecutionTerminatedEventAttributes (Prelude.Maybe Prelude.Text) +workflowExecutionTerminatedEventAttributes_reason = Lens.lens (\WorkflowExecutionTerminatedEventAttributes' {reason} -> reason) (\s@WorkflowExecutionTerminatedEventAttributes' {} a -> s {reason = a} :: WorkflowExecutionTerminatedEventAttributes) + +-- | The policy used for the child workflow executions of this workflow +-- execution. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +workflowExecutionTerminatedEventAttributes_childPolicy :: Lens.Lens' WorkflowExecutionTerminatedEventAttributes ChildPolicy +workflowExecutionTerminatedEventAttributes_childPolicy = Lens.lens (\WorkflowExecutionTerminatedEventAttributes' {childPolicy} -> childPolicy) (\s@WorkflowExecutionTerminatedEventAttributes' {} a -> s {childPolicy = a} :: WorkflowExecutionTerminatedEventAttributes) + +instance + Data.FromJSON + WorkflowExecutionTerminatedEventAttributes + where + parseJSON = + Data.withObject + "WorkflowExecutionTerminatedEventAttributes" + ( \x -> + WorkflowExecutionTerminatedEventAttributes' + Prelude.<$> (x Data..:? "cause") + Prelude.<*> (x Data..:? "details") + Prelude.<*> (x Data..:? "reason") + Prelude.<*> (x Data..: "childPolicy") + ) + +instance + Prelude.Hashable + WorkflowExecutionTerminatedEventAttributes + where + hashWithSalt + _salt + WorkflowExecutionTerminatedEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` cause + `Prelude.hashWithSalt` details + `Prelude.hashWithSalt` reason + `Prelude.hashWithSalt` childPolicy + +instance + Prelude.NFData + WorkflowExecutionTerminatedEventAttributes + where + rnf WorkflowExecutionTerminatedEventAttributes' {..} = + Prelude.rnf cause + `Prelude.seq` Prelude.rnf details + `Prelude.seq` Prelude.rnf reason + `Prelude.seq` Prelude.rnf childPolicy diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionTimedOutEventAttributes.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionTimedOutEventAttributes.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionTimedOutEventAttributes.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.SWF.Types.WorkflowExecutionTimedOutEventAttributes +-- 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.SWF.Types.WorkflowExecutionTimedOutEventAttributes 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 +import Amazonka.SWF.Types.ChildPolicy +import Amazonka.SWF.Types.WorkflowExecutionTimeoutType + +-- | Provides the details of the @WorkflowExecutionTimedOut@ event. +-- +-- /See:/ 'newWorkflowExecutionTimedOutEventAttributes' smart constructor. +data WorkflowExecutionTimedOutEventAttributes = WorkflowExecutionTimedOutEventAttributes' + { -- | The type of timeout that caused this event. + timeoutType :: WorkflowExecutionTimeoutType, + -- | The policy used for the child workflow executions of this workflow + -- execution. + -- + -- The supported child policies are: + -- + -- - @TERMINATE@ – The child executions are terminated. + -- + -- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child + -- execution by recording a @WorkflowExecutionCancelRequested@ event in + -- its history. It is up to the decider to take appropriate actions + -- when it receives an execution history with this event. + -- + -- - @ABANDON@ – No action is taken. The child executions continue to + -- run. + childPolicy :: ChildPolicy + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowExecutionTimedOutEventAttributes' 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: +-- +-- 'timeoutType', 'workflowExecutionTimedOutEventAttributes_timeoutType' - The type of timeout that caused this event. +-- +-- 'childPolicy', 'workflowExecutionTimedOutEventAttributes_childPolicy' - The policy used for the child workflow executions of this workflow +-- execution. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +newWorkflowExecutionTimedOutEventAttributes :: + -- | 'timeoutType' + WorkflowExecutionTimeoutType -> + -- | 'childPolicy' + ChildPolicy -> + WorkflowExecutionTimedOutEventAttributes +newWorkflowExecutionTimedOutEventAttributes + pTimeoutType_ + pChildPolicy_ = + WorkflowExecutionTimedOutEventAttributes' + { timeoutType = + pTimeoutType_, + childPolicy = pChildPolicy_ + } + +-- | The type of timeout that caused this event. +workflowExecutionTimedOutEventAttributes_timeoutType :: Lens.Lens' WorkflowExecutionTimedOutEventAttributes WorkflowExecutionTimeoutType +workflowExecutionTimedOutEventAttributes_timeoutType = Lens.lens (\WorkflowExecutionTimedOutEventAttributes' {timeoutType} -> timeoutType) (\s@WorkflowExecutionTimedOutEventAttributes' {} a -> s {timeoutType = a} :: WorkflowExecutionTimedOutEventAttributes) + +-- | The policy used for the child workflow executions of this workflow +-- execution. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +workflowExecutionTimedOutEventAttributes_childPolicy :: Lens.Lens' WorkflowExecutionTimedOutEventAttributes ChildPolicy +workflowExecutionTimedOutEventAttributes_childPolicy = Lens.lens (\WorkflowExecutionTimedOutEventAttributes' {childPolicy} -> childPolicy) (\s@WorkflowExecutionTimedOutEventAttributes' {} a -> s {childPolicy = a} :: WorkflowExecutionTimedOutEventAttributes) + +instance + Data.FromJSON + WorkflowExecutionTimedOutEventAttributes + where + parseJSON = + Data.withObject + "WorkflowExecutionTimedOutEventAttributes" + ( \x -> + WorkflowExecutionTimedOutEventAttributes' + Prelude.<$> (x Data..: "timeoutType") + Prelude.<*> (x Data..: "childPolicy") + ) + +instance + Prelude.Hashable + WorkflowExecutionTimedOutEventAttributes + where + hashWithSalt + _salt + WorkflowExecutionTimedOutEventAttributes' {..} = + _salt + `Prelude.hashWithSalt` timeoutType + `Prelude.hashWithSalt` childPolicy + +instance + Prelude.NFData + WorkflowExecutionTimedOutEventAttributes + where + rnf WorkflowExecutionTimedOutEventAttributes' {..} = + Prelude.rnf timeoutType + `Prelude.seq` Prelude.rnf childPolicy diff --git a/gen/Amazonka/SWF/Types/WorkflowExecutionTimeoutType.hs b/gen/Amazonka/SWF/Types/WorkflowExecutionTimeoutType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowExecutionTimeoutType.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.SWF.Types.WorkflowExecutionTimeoutType +-- 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.SWF.Types.WorkflowExecutionTimeoutType + ( WorkflowExecutionTimeoutType + ( .., + WorkflowExecutionTimeoutType_START_TO_CLOSE + ), + ) +where + +import qualified Amazonka.Core as Core +import qualified Amazonka.Data as Data +import qualified Amazonka.Prelude as Prelude + +newtype WorkflowExecutionTimeoutType = WorkflowExecutionTimeoutType' + { fromWorkflowExecutionTimeoutType :: + 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 WorkflowExecutionTimeoutType_START_TO_CLOSE :: WorkflowExecutionTimeoutType +pattern WorkflowExecutionTimeoutType_START_TO_CLOSE = WorkflowExecutionTimeoutType' "START_TO_CLOSE" + +{-# COMPLETE + WorkflowExecutionTimeoutType_START_TO_CLOSE, + WorkflowExecutionTimeoutType' + #-} diff --git a/gen/Amazonka/SWF/Types/WorkflowType.hs b/gen/Amazonka/SWF/Types/WorkflowType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowType.hs @@ -0,0 +1,111 @@ +{-# 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.SWF.Types.WorkflowType +-- 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.SWF.Types.WorkflowType 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 + +-- | Represents a workflow type. +-- +-- /See:/ 'newWorkflowType' smart constructor. +data WorkflowType = WorkflowType' + { -- | The name of the workflow type. + -- + -- The combination of workflow type name and version must be unique with in + -- a domain. + name :: Prelude.Text, + -- | The version of the workflow type. + -- + -- The combination of workflow type name and version must be unique with in + -- a domain. + version :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowType' 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', 'workflowType_name' - The name of the workflow type. +-- +-- The combination of workflow type name and version must be unique with in +-- a domain. +-- +-- 'version', 'workflowType_version' - The version of the workflow type. +-- +-- The combination of workflow type name and version must be unique with in +-- a domain. +newWorkflowType :: + -- | 'name' + Prelude.Text -> + -- | 'version' + Prelude.Text -> + WorkflowType +newWorkflowType pName_ pVersion_ = + WorkflowType' {name = pName_, version = pVersion_} + +-- | The name of the workflow type. +-- +-- The combination of workflow type name and version must be unique with in +-- a domain. +workflowType_name :: Lens.Lens' WorkflowType Prelude.Text +workflowType_name = Lens.lens (\WorkflowType' {name} -> name) (\s@WorkflowType' {} a -> s {name = a} :: WorkflowType) + +-- | The version of the workflow type. +-- +-- The combination of workflow type name and version must be unique with in +-- a domain. +workflowType_version :: Lens.Lens' WorkflowType Prelude.Text +workflowType_version = Lens.lens (\WorkflowType' {version} -> version) (\s@WorkflowType' {} a -> s {version = a} :: WorkflowType) + +instance Data.FromJSON WorkflowType where + parseJSON = + Data.withObject + "WorkflowType" + ( \x -> + WorkflowType' + Prelude.<$> (x Data..: "name") + Prelude.<*> (x Data..: "version") + ) + +instance Prelude.Hashable WorkflowType where + hashWithSalt _salt WorkflowType' {..} = + _salt + `Prelude.hashWithSalt` name + `Prelude.hashWithSalt` version + +instance Prelude.NFData WorkflowType where + rnf WorkflowType' {..} = + Prelude.rnf name `Prelude.seq` Prelude.rnf version + +instance Data.ToJSON WorkflowType where + toJSON WorkflowType' {..} = + Data.object + ( Prelude.catMaybes + [ Prelude.Just ("name" Data..= name), + Prelude.Just ("version" Data..= version) + ] + ) diff --git a/gen/Amazonka/SWF/Types/WorkflowTypeConfiguration.hs b/gen/Amazonka/SWF/Types/WorkflowTypeConfiguration.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowTypeConfiguration.hs @@ -0,0 +1,307 @@ +{-# 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.SWF.Types.WorkflowTypeConfiguration +-- 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.SWF.Types.WorkflowTypeConfiguration 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 +import Amazonka.SWF.Types.ChildPolicy +import Amazonka.SWF.Types.TaskList + +-- | The configuration settings of a workflow type. +-- +-- /See:/ 'newWorkflowTypeConfiguration' smart constructor. +data WorkflowTypeConfiguration = WorkflowTypeConfiguration' + { -- | The default policy to use for the child workflow executions when a + -- workflow execution of this type is terminated, by calling the + -- TerminateWorkflowExecution action explicitly or due to an expired + -- timeout. This default can be overridden when starting a workflow + -- execution using the StartWorkflowExecution action or the + -- @StartChildWorkflowExecution@ Decision. + -- + -- The supported child policies are: + -- + -- - @TERMINATE@ – The child executions are terminated. + -- + -- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child + -- execution by recording a @WorkflowExecutionCancelRequested@ event in + -- its history. It is up to the decider to take appropriate actions + -- when it receives an execution history with this event. + -- + -- - @ABANDON@ – No action is taken. The child executions continue to + -- run. + defaultChildPolicy :: Prelude.Maybe ChildPolicy, + -- | The default maximum duration, specified when registering the workflow + -- type, for executions of this workflow type. This default can be + -- overridden when starting a workflow execution using the + -- StartWorkflowExecution action or the @StartChildWorkflowExecution@ + -- Decision. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + defaultExecutionStartToCloseTimeout :: Prelude.Maybe Prelude.Text, + -- | The default IAM role attached to this workflow type. + -- + -- Executions of this workflow type need IAM roles to invoke Lambda + -- functions. If you don\'t specify an IAM role when starting this workflow + -- type, the default Lambda role is attached to the execution. For more + -- information, see + -- + -- in the /Amazon SWF Developer Guide/. + defaultLambdaRole :: Prelude.Maybe Prelude.Text, + -- | The default task list, specified when registering the workflow type, for + -- decisions tasks scheduled for workflow executions of this type. This + -- default can be overridden when starting a workflow execution using the + -- StartWorkflowExecution action or the @StartChildWorkflowExecution@ + -- Decision. + defaultTaskList :: Prelude.Maybe TaskList, + -- | The default task priority, specified when registering the workflow type, + -- for all decision tasks of this workflow type. This default can be + -- overridden when starting a workflow execution using the + -- StartWorkflowExecution action or the @StartChildWorkflowExecution@ + -- decision. + -- + -- Valid values are integers that range from Java\'s @Integer.MIN_VALUE@ + -- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers + -- indicate higher priority. + -- + -- For more information about setting task priority, see + -- + -- in the /Amazon SWF Developer Guide/. + defaultTaskPriority :: Prelude.Maybe Prelude.Text, + -- | The default maximum duration, specified when registering the workflow + -- type, that a decision task for executions of this workflow type might + -- take before returning completion or failure. If the task doesn\'tdo + -- close in the specified time then the task is automatically timed out and + -- rescheduled. If the decider eventually reports a completion or failure, + -- it is ignored. This default can be overridden when starting a workflow + -- execution using the StartWorkflowExecution action or the + -- @StartChildWorkflowExecution@ Decision. + -- + -- The duration is specified in seconds, an integer greater than or equal + -- to @0@. You can use @NONE@ to specify unlimited duration. + defaultTaskStartToCloseTimeout :: Prelude.Maybe Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowTypeConfiguration' 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: +-- +-- 'defaultChildPolicy', 'workflowTypeConfiguration_defaultChildPolicy' - The default policy to use for the child workflow executions when a +-- workflow execution of this type is terminated, by calling the +-- TerminateWorkflowExecution action explicitly or due to an expired +-- timeout. This default can be overridden when starting a workflow +-- execution using the StartWorkflowExecution action or the +-- @StartChildWorkflowExecution@ Decision. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +-- +-- 'defaultExecutionStartToCloseTimeout', 'workflowTypeConfiguration_defaultExecutionStartToCloseTimeout' - The default maximum duration, specified when registering the workflow +-- type, for executions of this workflow type. This default can be +-- overridden when starting a workflow execution using the +-- StartWorkflowExecution action or the @StartChildWorkflowExecution@ +-- Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +-- +-- 'defaultLambdaRole', 'workflowTypeConfiguration_defaultLambdaRole' - The default IAM role attached to this workflow type. +-- +-- Executions of this workflow type need IAM roles to invoke Lambda +-- functions. If you don\'t specify an IAM role when starting this workflow +-- type, the default Lambda role is attached to the execution. For more +-- information, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'defaultTaskList', 'workflowTypeConfiguration_defaultTaskList' - The default task list, specified when registering the workflow type, for +-- decisions tasks scheduled for workflow executions of this type. This +-- default can be overridden when starting a workflow execution using the +-- StartWorkflowExecution action or the @StartChildWorkflowExecution@ +-- Decision. +-- +-- 'defaultTaskPriority', 'workflowTypeConfiguration_defaultTaskPriority' - The default task priority, specified when registering the workflow type, +-- for all decision tasks of this workflow type. This default can be +-- overridden when starting a workflow execution using the +-- StartWorkflowExecution action or the @StartChildWorkflowExecution@ +-- decision. +-- +-- Valid values are integers that range from Java\'s @Integer.MIN_VALUE@ +-- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers +-- indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +-- +-- 'defaultTaskStartToCloseTimeout', 'workflowTypeConfiguration_defaultTaskStartToCloseTimeout' - The default maximum duration, specified when registering the workflow +-- type, that a decision task for executions of this workflow type might +-- take before returning completion or failure. If the task doesn\'tdo +-- close in the specified time then the task is automatically timed out and +-- rescheduled. If the decider eventually reports a completion or failure, +-- it is ignored. This default can be overridden when starting a workflow +-- execution using the StartWorkflowExecution action or the +-- @StartChildWorkflowExecution@ Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +newWorkflowTypeConfiguration :: + WorkflowTypeConfiguration +newWorkflowTypeConfiguration = + WorkflowTypeConfiguration' + { defaultChildPolicy = + Prelude.Nothing, + defaultExecutionStartToCloseTimeout = + Prelude.Nothing, + defaultLambdaRole = Prelude.Nothing, + defaultTaskList = Prelude.Nothing, + defaultTaskPriority = Prelude.Nothing, + defaultTaskStartToCloseTimeout = Prelude.Nothing + } + +-- | The default policy to use for the child workflow executions when a +-- workflow execution of this type is terminated, by calling the +-- TerminateWorkflowExecution action explicitly or due to an expired +-- timeout. This default can be overridden when starting a workflow +-- execution using the StartWorkflowExecution action or the +-- @StartChildWorkflowExecution@ Decision. +-- +-- The supported child policies are: +-- +-- - @TERMINATE@ – The child executions are terminated. +-- +-- - @REQUEST_CANCEL@ – A request to cancel is attempted for each child +-- execution by recording a @WorkflowExecutionCancelRequested@ event in +-- its history. It is up to the decider to take appropriate actions +-- when it receives an execution history with this event. +-- +-- - @ABANDON@ – No action is taken. The child executions continue to +-- run. +workflowTypeConfiguration_defaultChildPolicy :: Lens.Lens' WorkflowTypeConfiguration (Prelude.Maybe ChildPolicy) +workflowTypeConfiguration_defaultChildPolicy = Lens.lens (\WorkflowTypeConfiguration' {defaultChildPolicy} -> defaultChildPolicy) (\s@WorkflowTypeConfiguration' {} a -> s {defaultChildPolicy = a} :: WorkflowTypeConfiguration) + +-- | The default maximum duration, specified when registering the workflow +-- type, for executions of this workflow type. This default can be +-- overridden when starting a workflow execution using the +-- StartWorkflowExecution action or the @StartChildWorkflowExecution@ +-- Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +workflowTypeConfiguration_defaultExecutionStartToCloseTimeout :: Lens.Lens' WorkflowTypeConfiguration (Prelude.Maybe Prelude.Text) +workflowTypeConfiguration_defaultExecutionStartToCloseTimeout = Lens.lens (\WorkflowTypeConfiguration' {defaultExecutionStartToCloseTimeout} -> defaultExecutionStartToCloseTimeout) (\s@WorkflowTypeConfiguration' {} a -> s {defaultExecutionStartToCloseTimeout = a} :: WorkflowTypeConfiguration) + +-- | The default IAM role attached to this workflow type. +-- +-- Executions of this workflow type need IAM roles to invoke Lambda +-- functions. If you don\'t specify an IAM role when starting this workflow +-- type, the default Lambda role is attached to the execution. For more +-- information, see +-- +-- in the /Amazon SWF Developer Guide/. +workflowTypeConfiguration_defaultLambdaRole :: Lens.Lens' WorkflowTypeConfiguration (Prelude.Maybe Prelude.Text) +workflowTypeConfiguration_defaultLambdaRole = Lens.lens (\WorkflowTypeConfiguration' {defaultLambdaRole} -> defaultLambdaRole) (\s@WorkflowTypeConfiguration' {} a -> s {defaultLambdaRole = a} :: WorkflowTypeConfiguration) + +-- | The default task list, specified when registering the workflow type, for +-- decisions tasks scheduled for workflow executions of this type. This +-- default can be overridden when starting a workflow execution using the +-- StartWorkflowExecution action or the @StartChildWorkflowExecution@ +-- Decision. +workflowTypeConfiguration_defaultTaskList :: Lens.Lens' WorkflowTypeConfiguration (Prelude.Maybe TaskList) +workflowTypeConfiguration_defaultTaskList = Lens.lens (\WorkflowTypeConfiguration' {defaultTaskList} -> defaultTaskList) (\s@WorkflowTypeConfiguration' {} a -> s {defaultTaskList = a} :: WorkflowTypeConfiguration) + +-- | The default task priority, specified when registering the workflow type, +-- for all decision tasks of this workflow type. This default can be +-- overridden when starting a workflow execution using the +-- StartWorkflowExecution action or the @StartChildWorkflowExecution@ +-- decision. +-- +-- Valid values are integers that range from Java\'s @Integer.MIN_VALUE@ +-- (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers +-- indicate higher priority. +-- +-- For more information about setting task priority, see +-- +-- in the /Amazon SWF Developer Guide/. +workflowTypeConfiguration_defaultTaskPriority :: Lens.Lens' WorkflowTypeConfiguration (Prelude.Maybe Prelude.Text) +workflowTypeConfiguration_defaultTaskPriority = Lens.lens (\WorkflowTypeConfiguration' {defaultTaskPriority} -> defaultTaskPriority) (\s@WorkflowTypeConfiguration' {} a -> s {defaultTaskPriority = a} :: WorkflowTypeConfiguration) + +-- | The default maximum duration, specified when registering the workflow +-- type, that a decision task for executions of this workflow type might +-- take before returning completion or failure. If the task doesn\'tdo +-- close in the specified time then the task is automatically timed out and +-- rescheduled. If the decider eventually reports a completion or failure, +-- it is ignored. This default can be overridden when starting a workflow +-- execution using the StartWorkflowExecution action or the +-- @StartChildWorkflowExecution@ Decision. +-- +-- The duration is specified in seconds, an integer greater than or equal +-- to @0@. You can use @NONE@ to specify unlimited duration. +workflowTypeConfiguration_defaultTaskStartToCloseTimeout :: Lens.Lens' WorkflowTypeConfiguration (Prelude.Maybe Prelude.Text) +workflowTypeConfiguration_defaultTaskStartToCloseTimeout = Lens.lens (\WorkflowTypeConfiguration' {defaultTaskStartToCloseTimeout} -> defaultTaskStartToCloseTimeout) (\s@WorkflowTypeConfiguration' {} a -> s {defaultTaskStartToCloseTimeout = a} :: WorkflowTypeConfiguration) + +instance Data.FromJSON WorkflowTypeConfiguration where + parseJSON = + Data.withObject + "WorkflowTypeConfiguration" + ( \x -> + WorkflowTypeConfiguration' + Prelude.<$> (x Data..:? "defaultChildPolicy") + Prelude.<*> (x Data..:? "defaultExecutionStartToCloseTimeout") + Prelude.<*> (x Data..:? "defaultLambdaRole") + Prelude.<*> (x Data..:? "defaultTaskList") + Prelude.<*> (x Data..:? "defaultTaskPriority") + Prelude.<*> (x Data..:? "defaultTaskStartToCloseTimeout") + ) + +instance Prelude.Hashable WorkflowTypeConfiguration where + hashWithSalt _salt WorkflowTypeConfiguration' {..} = + _salt + `Prelude.hashWithSalt` defaultChildPolicy + `Prelude.hashWithSalt` defaultExecutionStartToCloseTimeout + `Prelude.hashWithSalt` defaultLambdaRole + `Prelude.hashWithSalt` defaultTaskList + `Prelude.hashWithSalt` defaultTaskPriority + `Prelude.hashWithSalt` defaultTaskStartToCloseTimeout + +instance Prelude.NFData WorkflowTypeConfiguration where + rnf WorkflowTypeConfiguration' {..} = + Prelude.rnf defaultChildPolicy + `Prelude.seq` Prelude.rnf defaultExecutionStartToCloseTimeout + `Prelude.seq` Prelude.rnf defaultLambdaRole + `Prelude.seq` Prelude.rnf defaultTaskList + `Prelude.seq` Prelude.rnf defaultTaskPriority + `Prelude.seq` Prelude.rnf defaultTaskStartToCloseTimeout diff --git a/gen/Amazonka/SWF/Types/WorkflowTypeFilter.hs b/gen/Amazonka/SWF/Types/WorkflowTypeFilter.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowTypeFilter.hs @@ -0,0 +1,86 @@ +{-# 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.SWF.Types.WorkflowTypeFilter +-- 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.SWF.Types.WorkflowTypeFilter 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 + +-- | Used to filter workflow execution query results by type. Each parameter, +-- if specified, defines a rule that must be satisfied by each returned +-- result. +-- +-- /See:/ 'newWorkflowTypeFilter' smart constructor. +data WorkflowTypeFilter = WorkflowTypeFilter' + { -- | Version of the workflow type. + version :: Prelude.Maybe Prelude.Text, + -- | Name of the workflow type. + name :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowTypeFilter' 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: +-- +-- 'version', 'workflowTypeFilter_version' - Version of the workflow type. +-- +-- 'name', 'workflowTypeFilter_name' - Name of the workflow type. +newWorkflowTypeFilter :: + -- | 'name' + Prelude.Text -> + WorkflowTypeFilter +newWorkflowTypeFilter pName_ = + WorkflowTypeFilter' + { version = Prelude.Nothing, + name = pName_ + } + +-- | Version of the workflow type. +workflowTypeFilter_version :: Lens.Lens' WorkflowTypeFilter (Prelude.Maybe Prelude.Text) +workflowTypeFilter_version = Lens.lens (\WorkflowTypeFilter' {version} -> version) (\s@WorkflowTypeFilter' {} a -> s {version = a} :: WorkflowTypeFilter) + +-- | Name of the workflow type. +workflowTypeFilter_name :: Lens.Lens' WorkflowTypeFilter Prelude.Text +workflowTypeFilter_name = Lens.lens (\WorkflowTypeFilter' {name} -> name) (\s@WorkflowTypeFilter' {} a -> s {name = a} :: WorkflowTypeFilter) + +instance Prelude.Hashable WorkflowTypeFilter where + hashWithSalt _salt WorkflowTypeFilter' {..} = + _salt + `Prelude.hashWithSalt` version + `Prelude.hashWithSalt` name + +instance Prelude.NFData WorkflowTypeFilter where + rnf WorkflowTypeFilter' {..} = + Prelude.rnf version `Prelude.seq` Prelude.rnf name + +instance Data.ToJSON WorkflowTypeFilter where + toJSON WorkflowTypeFilter' {..} = + Data.object + ( Prelude.catMaybes + [ ("version" Data..=) Prelude.<$> version, + Prelude.Just ("name" Data..= name) + ] + ) diff --git a/gen/Amazonka/SWF/Types/WorkflowTypeInfo.hs b/gen/Amazonka/SWF/Types/WorkflowTypeInfo.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Types/WorkflowTypeInfo.hs @@ -0,0 +1,135 @@ +{-# 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.SWF.Types.WorkflowTypeInfo +-- 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.SWF.Types.WorkflowTypeInfo 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 +import Amazonka.SWF.Types.RegistrationStatus +import Amazonka.SWF.Types.WorkflowType + +-- | Contains information about a workflow type. +-- +-- /See:/ 'newWorkflowTypeInfo' smart constructor. +data WorkflowTypeInfo = WorkflowTypeInfo' + { -- | If the type is in deprecated state, then it is set to the date when the + -- type was deprecated. + deprecationDate :: Prelude.Maybe Data.POSIX, + -- | The description of the type registered through RegisterWorkflowType. + description :: Prelude.Maybe Prelude.Text, + -- | The workflow type this information is about. + workflowType :: WorkflowType, + -- | The current status of the workflow type. + status :: RegistrationStatus, + -- | The date when this type was registered. + creationDate :: Data.POSIX + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'WorkflowTypeInfo' 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: +-- +-- 'deprecationDate', 'workflowTypeInfo_deprecationDate' - If the type is in deprecated state, then it is set to the date when the +-- type was deprecated. +-- +-- 'description', 'workflowTypeInfo_description' - The description of the type registered through RegisterWorkflowType. +-- +-- 'workflowType', 'workflowTypeInfo_workflowType' - The workflow type this information is about. +-- +-- 'status', 'workflowTypeInfo_status' - The current status of the workflow type. +-- +-- 'creationDate', 'workflowTypeInfo_creationDate' - The date when this type was registered. +newWorkflowTypeInfo :: + -- | 'workflowType' + WorkflowType -> + -- | 'status' + RegistrationStatus -> + -- | 'creationDate' + Prelude.UTCTime -> + WorkflowTypeInfo +newWorkflowTypeInfo + pWorkflowType_ + pStatus_ + pCreationDate_ = + WorkflowTypeInfo' + { deprecationDate = + Prelude.Nothing, + description = Prelude.Nothing, + workflowType = pWorkflowType_, + status = pStatus_, + creationDate = Data._Time Lens.# pCreationDate_ + } + +-- | If the type is in deprecated state, then it is set to the date when the +-- type was deprecated. +workflowTypeInfo_deprecationDate :: Lens.Lens' WorkflowTypeInfo (Prelude.Maybe Prelude.UTCTime) +workflowTypeInfo_deprecationDate = Lens.lens (\WorkflowTypeInfo' {deprecationDate} -> deprecationDate) (\s@WorkflowTypeInfo' {} a -> s {deprecationDate = a} :: WorkflowTypeInfo) Prelude.. Lens.mapping Data._Time + +-- | The description of the type registered through RegisterWorkflowType. +workflowTypeInfo_description :: Lens.Lens' WorkflowTypeInfo (Prelude.Maybe Prelude.Text) +workflowTypeInfo_description = Lens.lens (\WorkflowTypeInfo' {description} -> description) (\s@WorkflowTypeInfo' {} a -> s {description = a} :: WorkflowTypeInfo) + +-- | The workflow type this information is about. +workflowTypeInfo_workflowType :: Lens.Lens' WorkflowTypeInfo WorkflowType +workflowTypeInfo_workflowType = Lens.lens (\WorkflowTypeInfo' {workflowType} -> workflowType) (\s@WorkflowTypeInfo' {} a -> s {workflowType = a} :: WorkflowTypeInfo) + +-- | The current status of the workflow type. +workflowTypeInfo_status :: Lens.Lens' WorkflowTypeInfo RegistrationStatus +workflowTypeInfo_status = Lens.lens (\WorkflowTypeInfo' {status} -> status) (\s@WorkflowTypeInfo' {} a -> s {status = a} :: WorkflowTypeInfo) + +-- | The date when this type was registered. +workflowTypeInfo_creationDate :: Lens.Lens' WorkflowTypeInfo Prelude.UTCTime +workflowTypeInfo_creationDate = Lens.lens (\WorkflowTypeInfo' {creationDate} -> creationDate) (\s@WorkflowTypeInfo' {} a -> s {creationDate = a} :: WorkflowTypeInfo) Prelude.. Data._Time + +instance Data.FromJSON WorkflowTypeInfo where + parseJSON = + Data.withObject + "WorkflowTypeInfo" + ( \x -> + WorkflowTypeInfo' + Prelude.<$> (x Data..:? "deprecationDate") + Prelude.<*> (x Data..:? "description") + Prelude.<*> (x Data..: "workflowType") + Prelude.<*> (x Data..: "status") + Prelude.<*> (x Data..: "creationDate") + ) + +instance Prelude.Hashable WorkflowTypeInfo where + hashWithSalt _salt WorkflowTypeInfo' {..} = + _salt + `Prelude.hashWithSalt` deprecationDate + `Prelude.hashWithSalt` description + `Prelude.hashWithSalt` workflowType + `Prelude.hashWithSalt` status + `Prelude.hashWithSalt` creationDate + +instance Prelude.NFData WorkflowTypeInfo where + rnf WorkflowTypeInfo' {..} = + Prelude.rnf deprecationDate + `Prelude.seq` Prelude.rnf description + `Prelude.seq` Prelude.rnf workflowType + `Prelude.seq` Prelude.rnf status + `Prelude.seq` Prelude.rnf creationDate diff --git a/gen/Amazonka/SWF/UndeprecateActivityType.hs b/gen/Amazonka/SWF/UndeprecateActivityType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/UndeprecateActivityType.hs @@ -0,0 +1,189 @@ +{-# 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.SWF.UndeprecateActivityType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Undeprecates a previously deprecated /activity type/. After an activity +-- type has been undeprecated, you can create new tasks of that activity +-- type. +-- +-- This operation is eventually consistent. The results are best effort and +-- may not exactly reflect recent updates and changes. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the following parameters by using a @Condition@ element +-- with the appropriate keys. +-- +-- - @activityType.name@: String constraint. The key is +-- @swf:activityType.name@. +-- +-- - @activityType.version@: String constraint. The key is +-- @swf:activityType.version@. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.UndeprecateActivityType + ( -- * Creating a Request + UndeprecateActivityType (..), + newUndeprecateActivityType, + + -- * Request Lenses + undeprecateActivityType_domain, + undeprecateActivityType_activityType, + + -- * Destructuring the Response + UndeprecateActivityTypeResponse (..), + newUndeprecateActivityTypeResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newUndeprecateActivityType' smart constructor. +data UndeprecateActivityType = UndeprecateActivityType' + { -- | The name of the domain of the deprecated activity type. + domain :: Prelude.Text, + -- | The activity type to undeprecate. + activityType :: ActivityType + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UndeprecateActivityType' 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: +-- +-- 'domain', 'undeprecateActivityType_domain' - The name of the domain of the deprecated activity type. +-- +-- 'activityType', 'undeprecateActivityType_activityType' - The activity type to undeprecate. +newUndeprecateActivityType :: + -- | 'domain' + Prelude.Text -> + -- | 'activityType' + ActivityType -> + UndeprecateActivityType +newUndeprecateActivityType pDomain_ pActivityType_ = + UndeprecateActivityType' + { domain = pDomain_, + activityType = pActivityType_ + } + +-- | The name of the domain of the deprecated activity type. +undeprecateActivityType_domain :: Lens.Lens' UndeprecateActivityType Prelude.Text +undeprecateActivityType_domain = Lens.lens (\UndeprecateActivityType' {domain} -> domain) (\s@UndeprecateActivityType' {} a -> s {domain = a} :: UndeprecateActivityType) + +-- | The activity type to undeprecate. +undeprecateActivityType_activityType :: Lens.Lens' UndeprecateActivityType ActivityType +undeprecateActivityType_activityType = Lens.lens (\UndeprecateActivityType' {activityType} -> activityType) (\s@UndeprecateActivityType' {} a -> s {activityType = a} :: UndeprecateActivityType) + +instance Core.AWSRequest UndeprecateActivityType where + type + AWSResponse UndeprecateActivityType = + UndeprecateActivityTypeResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull + UndeprecateActivityTypeResponse' + +instance Prelude.Hashable UndeprecateActivityType where + hashWithSalt _salt UndeprecateActivityType' {..} = + _salt + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` activityType + +instance Prelude.NFData UndeprecateActivityType where + rnf UndeprecateActivityType' {..} = + Prelude.rnf domain + `Prelude.seq` Prelude.rnf activityType + +instance Data.ToHeaders UndeprecateActivityType where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.UndeprecateActivityType" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON UndeprecateActivityType where + toJSON UndeprecateActivityType' {..} = + Data.object + ( Prelude.catMaybes + [ Prelude.Just ("domain" Data..= domain), + Prelude.Just ("activityType" Data..= activityType) + ] + ) + +instance Data.ToPath UndeprecateActivityType where + toPath = Prelude.const "/" + +instance Data.ToQuery UndeprecateActivityType where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newUndeprecateActivityTypeResponse' smart constructor. +data UndeprecateActivityTypeResponse = UndeprecateActivityTypeResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UndeprecateActivityTypeResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newUndeprecateActivityTypeResponse :: + UndeprecateActivityTypeResponse +newUndeprecateActivityTypeResponse = + UndeprecateActivityTypeResponse' + +instance + Prelude.NFData + UndeprecateActivityTypeResponse + where + rnf _ = () diff --git a/gen/Amazonka/SWF/UndeprecateDomain.hs b/gen/Amazonka/SWF/UndeprecateDomain.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/UndeprecateDomain.hs @@ -0,0 +1,158 @@ +{-# 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.SWF.UndeprecateDomain +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Undeprecates a previously deprecated domain. After a domain has been +-- undeprecated it can be used to create new workflow executions or +-- register new types. +-- +-- This operation is eventually consistent. The results are best effort and +-- may not exactly reflect recent updates and changes. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - You cannot use an IAM policy to constrain this action\'s parameters. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.UndeprecateDomain + ( -- * Creating a Request + UndeprecateDomain (..), + newUndeprecateDomain, + + -- * Request Lenses + undeprecateDomain_name, + + -- * Destructuring the Response + UndeprecateDomainResponse (..), + newUndeprecateDomainResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newUndeprecateDomain' smart constructor. +data UndeprecateDomain = UndeprecateDomain' + { -- | The name of the domain of the deprecated workflow type. + name :: Prelude.Text + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UndeprecateDomain' 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', 'undeprecateDomain_name' - The name of the domain of the deprecated workflow type. +newUndeprecateDomain :: + -- | 'name' + Prelude.Text -> + UndeprecateDomain +newUndeprecateDomain pName_ = + UndeprecateDomain' {name = pName_} + +-- | The name of the domain of the deprecated workflow type. +undeprecateDomain_name :: Lens.Lens' UndeprecateDomain Prelude.Text +undeprecateDomain_name = Lens.lens (\UndeprecateDomain' {name} -> name) (\s@UndeprecateDomain' {} a -> s {name = a} :: UndeprecateDomain) + +instance Core.AWSRequest UndeprecateDomain where + type + AWSResponse UndeprecateDomain = + UndeprecateDomainResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull UndeprecateDomainResponse' + +instance Prelude.Hashable UndeprecateDomain where + hashWithSalt _salt UndeprecateDomain' {..} = + _salt `Prelude.hashWithSalt` name + +instance Prelude.NFData UndeprecateDomain where + rnf UndeprecateDomain' {..} = Prelude.rnf name + +instance Data.ToHeaders UndeprecateDomain where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.UndeprecateDomain" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON UndeprecateDomain where + toJSON UndeprecateDomain' {..} = + Data.object + ( Prelude.catMaybes + [Prelude.Just ("name" Data..= name)] + ) + +instance Data.ToPath UndeprecateDomain where + toPath = Prelude.const "/" + +instance Data.ToQuery UndeprecateDomain where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newUndeprecateDomainResponse' smart constructor. +data UndeprecateDomainResponse = UndeprecateDomainResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UndeprecateDomainResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newUndeprecateDomainResponse :: + UndeprecateDomainResponse +newUndeprecateDomainResponse = + UndeprecateDomainResponse' + +instance Prelude.NFData UndeprecateDomainResponse where + rnf _ = () diff --git a/gen/Amazonka/SWF/UndeprecateWorkflowType.hs b/gen/Amazonka/SWF/UndeprecateWorkflowType.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/UndeprecateWorkflowType.hs @@ -0,0 +1,188 @@ +{-# 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.SWF.UndeprecateWorkflowType +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Undeprecates a previously deprecated /workflow type/. After a workflow +-- type has been undeprecated, you can create new executions of that type. +-- +-- This operation is eventually consistent. The results are best effort and +-- may not exactly reflect recent updates and changes. +-- +-- __Access Control__ +-- +-- You can use IAM policies to control this action\'s access to Amazon SWF +-- resources as follows: +-- +-- - Use a @Resource@ element with the domain name to limit the action to +-- only specified domains. +-- +-- - Use an @Action@ element to allow or deny permission to call this +-- action. +-- +-- - Constrain the following parameters by using a @Condition@ element +-- with the appropriate keys. +-- +-- - @workflowType.name@: String constraint. The key is +-- @swf:workflowType.name@. +-- +-- - @workflowType.version@: String constraint. The key is +-- @swf:workflowType.version@. +-- +-- If the caller doesn\'t have sufficient permissions to invoke the action, +-- or the parameter values fall outside the specified constraints, the +-- action fails. The associated event attribute\'s @cause@ parameter is set +-- to @OPERATION_NOT_PERMITTED@. For details and example IAM policies, see +-- +-- in the /Amazon SWF Developer Guide/. +module Amazonka.SWF.UndeprecateWorkflowType + ( -- * Creating a Request + UndeprecateWorkflowType (..), + newUndeprecateWorkflowType, + + -- * Request Lenses + undeprecateWorkflowType_domain, + undeprecateWorkflowType_workflowType, + + -- * Destructuring the Response + UndeprecateWorkflowTypeResponse (..), + newUndeprecateWorkflowTypeResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newUndeprecateWorkflowType' smart constructor. +data UndeprecateWorkflowType = UndeprecateWorkflowType' + { -- | The name of the domain of the deprecated workflow type. + domain :: Prelude.Text, + -- | The name of the domain of the deprecated workflow type. + workflowType :: WorkflowType + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UndeprecateWorkflowType' 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: +-- +-- 'domain', 'undeprecateWorkflowType_domain' - The name of the domain of the deprecated workflow type. +-- +-- 'workflowType', 'undeprecateWorkflowType_workflowType' - The name of the domain of the deprecated workflow type. +newUndeprecateWorkflowType :: + -- | 'domain' + Prelude.Text -> + -- | 'workflowType' + WorkflowType -> + UndeprecateWorkflowType +newUndeprecateWorkflowType pDomain_ pWorkflowType_ = + UndeprecateWorkflowType' + { domain = pDomain_, + workflowType = pWorkflowType_ + } + +-- | The name of the domain of the deprecated workflow type. +undeprecateWorkflowType_domain :: Lens.Lens' UndeprecateWorkflowType Prelude.Text +undeprecateWorkflowType_domain = Lens.lens (\UndeprecateWorkflowType' {domain} -> domain) (\s@UndeprecateWorkflowType' {} a -> s {domain = a} :: UndeprecateWorkflowType) + +-- | The name of the domain of the deprecated workflow type. +undeprecateWorkflowType_workflowType :: Lens.Lens' UndeprecateWorkflowType WorkflowType +undeprecateWorkflowType_workflowType = Lens.lens (\UndeprecateWorkflowType' {workflowType} -> workflowType) (\s@UndeprecateWorkflowType' {} a -> s {workflowType = a} :: UndeprecateWorkflowType) + +instance Core.AWSRequest UndeprecateWorkflowType where + type + AWSResponse UndeprecateWorkflowType = + UndeprecateWorkflowTypeResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull + UndeprecateWorkflowTypeResponse' + +instance Prelude.Hashable UndeprecateWorkflowType where + hashWithSalt _salt UndeprecateWorkflowType' {..} = + _salt + `Prelude.hashWithSalt` domain + `Prelude.hashWithSalt` workflowType + +instance Prelude.NFData UndeprecateWorkflowType where + rnf UndeprecateWorkflowType' {..} = + Prelude.rnf domain + `Prelude.seq` Prelude.rnf workflowType + +instance Data.ToHeaders UndeprecateWorkflowType where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.UndeprecateWorkflowType" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON UndeprecateWorkflowType where + toJSON UndeprecateWorkflowType' {..} = + Data.object + ( Prelude.catMaybes + [ Prelude.Just ("domain" Data..= domain), + Prelude.Just ("workflowType" Data..= workflowType) + ] + ) + +instance Data.ToPath UndeprecateWorkflowType where + toPath = Prelude.const "/" + +instance Data.ToQuery UndeprecateWorkflowType where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newUndeprecateWorkflowTypeResponse' smart constructor. +data UndeprecateWorkflowTypeResponse = UndeprecateWorkflowTypeResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UndeprecateWorkflowTypeResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newUndeprecateWorkflowTypeResponse :: + UndeprecateWorkflowTypeResponse +newUndeprecateWorkflowTypeResponse = + UndeprecateWorkflowTypeResponse' + +instance + Prelude.NFData + UndeprecateWorkflowTypeResponse + where + rnf _ = () diff --git a/gen/Amazonka/SWF/UntagResource.hs b/gen/Amazonka/SWF/UntagResource.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/UntagResource.hs @@ -0,0 +1,150 @@ +{-# 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.SWF.UntagResource +-- Copyright : (c) 2013-2023 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Remove a tag from a Amazon SWF domain. +module Amazonka.SWF.UntagResource + ( -- * Creating a Request + UntagResource (..), + newUntagResource, + + -- * Request Lenses + untagResource_resourceArn, + untagResource_tagKeys, + + -- * Destructuring the Response + UntagResourceResponse (..), + newUntagResourceResponse, + ) +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 +import qualified Amazonka.Request as Request +import qualified Amazonka.Response as Response +import Amazonka.SWF.Types + +-- | /See:/ 'newUntagResource' smart constructor. +data UntagResource = UntagResource' + { -- | The Amazon Resource Name (ARN) for the Amazon SWF domain. + resourceArn :: Prelude.Text, + -- | The list of tags to remove from the Amazon SWF domain. + tagKeys :: [Prelude.Text] + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UntagResource' 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: +-- +-- 'resourceArn', 'untagResource_resourceArn' - The Amazon Resource Name (ARN) for the Amazon SWF domain. +-- +-- 'tagKeys', 'untagResource_tagKeys' - The list of tags to remove from the Amazon SWF domain. +newUntagResource :: + -- | 'resourceArn' + Prelude.Text -> + UntagResource +newUntagResource pResourceArn_ = + UntagResource' + { resourceArn = pResourceArn_, + tagKeys = Prelude.mempty + } + +-- | The Amazon Resource Name (ARN) for the Amazon SWF domain. +untagResource_resourceArn :: Lens.Lens' UntagResource Prelude.Text +untagResource_resourceArn = Lens.lens (\UntagResource' {resourceArn} -> resourceArn) (\s@UntagResource' {} a -> s {resourceArn = a} :: UntagResource) + +-- | The list of tags to remove from the Amazon SWF domain. +untagResource_tagKeys :: Lens.Lens' UntagResource [Prelude.Text] +untagResource_tagKeys = Lens.lens (\UntagResource' {tagKeys} -> tagKeys) (\s@UntagResource' {} a -> s {tagKeys = a} :: UntagResource) Prelude.. Lens.coerced + +instance Core.AWSRequest UntagResource where + type + AWSResponse UntagResource = + UntagResourceResponse + request overrides = + Request.postJSON (overrides defaultService) + response = + Response.receiveNull UntagResourceResponse' + +instance Prelude.Hashable UntagResource where + hashWithSalt _salt UntagResource' {..} = + _salt + `Prelude.hashWithSalt` resourceArn + `Prelude.hashWithSalt` tagKeys + +instance Prelude.NFData UntagResource where + rnf UntagResource' {..} = + Prelude.rnf resourceArn + `Prelude.seq` Prelude.rnf tagKeys + +instance Data.ToHeaders UntagResource where + toHeaders = + Prelude.const + ( Prelude.mconcat + [ "X-Amz-Target" + Data.=# ( "SimpleWorkflowService.UntagResource" :: + Prelude.ByteString + ), + "Content-Type" + Data.=# ( "application/x-amz-json-1.0" :: + Prelude.ByteString + ) + ] + ) + +instance Data.ToJSON UntagResource where + toJSON UntagResource' {..} = + Data.object + ( Prelude.catMaybes + [ Prelude.Just ("resourceArn" Data..= resourceArn), + Prelude.Just ("tagKeys" Data..= tagKeys) + ] + ) + +instance Data.ToPath UntagResource where + toPath = Prelude.const "/" + +instance Data.ToQuery UntagResource where + toQuery = Prelude.const Prelude.mempty + +-- | /See:/ 'newUntagResourceResponse' smart constructor. +data UntagResourceResponse = UntagResourceResponse' + { + } + deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) + +-- | +-- Create a value of 'UntagResourceResponse' with all optional fields omitted. +-- +-- Use or to modify other optional fields. +newUntagResourceResponse :: + UntagResourceResponse +newUntagResourceResponse = UntagResourceResponse' + +instance Prelude.NFData UntagResourceResponse where + rnf _ = () diff --git a/gen/Amazonka/SWF/Waiters.hs b/gen/Amazonka/SWF/Waiters.hs new file mode 100644 --- /dev/null +++ b/gen/Amazonka/SWF/Waiters.hs @@ -0,0 +1,24 @@ +{-# 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.SWF.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.SWF.Waiters 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 +import Amazonka.SWF.Lens +import Amazonka.SWF.Types diff --git a/gen/Network/AWS/SWF.hs b/gen/Network/AWS/SWF.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF.hs +++ /dev/null @@ -1,1066 +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.SWF --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- __Amazon Simple Workflow Service__ --- --- The Amazon Simple Workflow Service (Amazon SWF) makes it easy to build applications that use Amazon's cloud to coordinate work across distributed components. In Amazon SWF, a /task/ represents a logical unit of work that is performed by a component of your workflow. Coordinating tasks in a workflow involves managing intertask dependencies, scheduling, and concurrency in accordance with the logical flow of the application. --- --- Amazon SWF gives you full control over implementing tasks and coordinating them without worrying about underlying complexities such as tracking their progress and maintaining their state. --- --- This documentation serves as reference only. For a broader overview of the Amazon SWF programming model, see the / / . --- -module Network.AWS.SWF - ( - -- * Service Configuration - swf - - -- * Errors - -- $errors - - -- ** DomainAlreadyExistsFault - , _DomainAlreadyExistsFault - - -- ** LimitExceededFault - , _LimitExceededFault - - -- ** WorkflowExecutionAlreadyStartedFault - , _WorkflowExecutionAlreadyStartedFault - - -- ** OperationNotPermittedFault - , _OperationNotPermittedFault - - -- ** UnknownResourceFault - , _UnknownResourceFault - - -- ** DefaultUndefinedFault - , _DefaultUndefinedFault - - -- ** TypeDeprecatedFault - , _TypeDeprecatedFault - - -- ** TypeAlreadyExistsFault - , _TypeAlreadyExistsFault - - -- ** DomainDeprecatedFault - , _DomainDeprecatedFault - - -- * Waiters - -- $waiters - - -- * Operations - -- $operations - - -- ** ListOpenWorkflowExecutions (Paginated) - , module Network.AWS.SWF.ListOpenWorkflowExecutions - - -- ** RegisterActivityType - , module Network.AWS.SWF.RegisterActivityType - - -- ** ListActivityTypes (Paginated) - , module Network.AWS.SWF.ListActivityTypes - - -- ** CountPendingActivityTasks - , module Network.AWS.SWF.CountPendingActivityTasks - - -- ** RegisterWorkflowType - , module Network.AWS.SWF.RegisterWorkflowType - - -- ** ListWorkflowTypes (Paginated) - , module Network.AWS.SWF.ListWorkflowTypes - - -- ** RespondActivityTaskFailed - , module Network.AWS.SWF.RespondActivityTaskFailed - - -- ** CountOpenWorkflowExecutions - , module Network.AWS.SWF.CountOpenWorkflowExecutions - - -- ** DescribeWorkflowType - , module Network.AWS.SWF.DescribeWorkflowType - - -- ** DeprecateWorkflowType - , module Network.AWS.SWF.DeprecateWorkflowType - - -- ** RequestCancelWorkflowExecution - , module Network.AWS.SWF.RequestCancelWorkflowExecution - - -- ** RegisterDomain - , module Network.AWS.SWF.RegisterDomain - - -- ** RespondDecisionTaskCompleted - , module Network.AWS.SWF.RespondDecisionTaskCompleted - - -- ** PollForActivityTask - , module Network.AWS.SWF.PollForActivityTask - - -- ** RespondActivityTaskCompleted - , module Network.AWS.SWF.RespondActivityTaskCompleted - - -- ** DescribeWorkflowExecution - , module Network.AWS.SWF.DescribeWorkflowExecution - - -- ** SignalWorkflowExecution - , module Network.AWS.SWF.SignalWorkflowExecution - - -- ** CountPendingDecisionTasks - , module Network.AWS.SWF.CountPendingDecisionTasks - - -- ** ListClosedWorkflowExecutions (Paginated) - , module Network.AWS.SWF.ListClosedWorkflowExecutions - - -- ** RecordActivityTaskHeartbeat - , module Network.AWS.SWF.RecordActivityTaskHeartbeat - - -- ** DescribeDomain - , module Network.AWS.SWF.DescribeDomain - - -- ** GetWorkflowExecutionHistory (Paginated) - , module Network.AWS.SWF.GetWorkflowExecutionHistory - - -- ** DeprecateDomain - , module Network.AWS.SWF.DeprecateDomain - - -- ** TerminateWorkflowExecution - , module Network.AWS.SWF.TerminateWorkflowExecution - - -- ** DescribeActivityType - , module Network.AWS.SWF.DescribeActivityType - - -- ** DeprecateActivityType - , module Network.AWS.SWF.DeprecateActivityType - - -- ** CountClosedWorkflowExecutions - , module Network.AWS.SWF.CountClosedWorkflowExecutions - - -- ** RespondActivityTaskCanceled - , module Network.AWS.SWF.RespondActivityTaskCanceled - - -- ** StartWorkflowExecution - , module Network.AWS.SWF.StartWorkflowExecution - - -- ** PollForDecisionTask (Paginated) - , module Network.AWS.SWF.PollForDecisionTask - - -- ** ListDomains (Paginated) - , module Network.AWS.SWF.ListDomains - - -- * Types - - -- ** ActivityTaskTimeoutType - , ActivityTaskTimeoutType (..) - - -- ** CancelTimerFailedCause - , CancelTimerFailedCause (..) - - -- ** CancelWorkflowExecutionFailedCause - , CancelWorkflowExecutionFailedCause (..) - - -- ** ChildPolicy - , ChildPolicy (..) - - -- ** CloseStatus - , CloseStatus (..) - - -- ** CompleteWorkflowExecutionFailedCause - , CompleteWorkflowExecutionFailedCause (..) - - -- ** ContinueAsNewWorkflowExecutionFailedCause - , ContinueAsNewWorkflowExecutionFailedCause (..) - - -- ** DecisionTaskTimeoutType - , DecisionTaskTimeoutType (..) - - -- ** DecisionType - , DecisionType (..) - - -- ** EventType - , EventType (..) - - -- ** ExecutionStatus - , ExecutionStatus (..) - - -- ** FailWorkflowExecutionFailedCause - , FailWorkflowExecutionFailedCause (..) - - -- ** LambdaFunctionTimeoutType - , LambdaFunctionTimeoutType (..) - - -- ** RecordMarkerFailedCause - , RecordMarkerFailedCause (..) - - -- ** RegistrationStatus - , RegistrationStatus (..) - - -- ** RequestCancelActivityTaskFailedCause - , RequestCancelActivityTaskFailedCause (..) - - -- ** RequestCancelExternalWorkflowExecutionFailedCause - , RequestCancelExternalWorkflowExecutionFailedCause (..) - - -- ** ScheduleActivityTaskFailedCause - , ScheduleActivityTaskFailedCause (..) - - -- ** ScheduleLambdaFunctionFailedCause - , ScheduleLambdaFunctionFailedCause (..) - - -- ** SignalExternalWorkflowExecutionFailedCause - , SignalExternalWorkflowExecutionFailedCause (..) - - -- ** StartChildWorkflowExecutionFailedCause - , StartChildWorkflowExecutionFailedCause (..) - - -- ** StartLambdaFunctionFailedCause - , StartLambdaFunctionFailedCause (..) - - -- ** StartTimerFailedCause - , StartTimerFailedCause (..) - - -- ** WorkflowExecutionCancelRequestedCause - , WorkflowExecutionCancelRequestedCause (..) - - -- ** WorkflowExecutionTerminatedCause - , WorkflowExecutionTerminatedCause (..) - - -- ** WorkflowExecutionTimeoutType - , WorkflowExecutionTimeoutType (..) - - -- ** ActivityTaskCancelRequestedEventAttributes - , ActivityTaskCancelRequestedEventAttributes - , activityTaskCancelRequestedEventAttributes - , atcreaDecisionTaskCompletedEventId - , atcreaActivityId - - -- ** ActivityTaskCanceledEventAttributes - , ActivityTaskCanceledEventAttributes - , activityTaskCanceledEventAttributes - , aLatestCancelRequestedEventId - , aDetails - , aScheduledEventId - , aStartedEventId - - -- ** ActivityTaskCompletedEventAttributes - , ActivityTaskCompletedEventAttributes - , activityTaskCompletedEventAttributes - , atceaResult - , atceaScheduledEventId - , atceaStartedEventId - - -- ** ActivityTaskFailedEventAttributes - , ActivityTaskFailedEventAttributes - , activityTaskFailedEventAttributes - , atfeaReason - , atfeaDetails - , atfeaScheduledEventId - , atfeaStartedEventId - - -- ** ActivityTaskScheduledEventAttributes - , ActivityTaskScheduledEventAttributes - , activityTaskScheduledEventAttributes - , atseaControl - , atseaHeartbeatTimeout - , atseaScheduleToCloseTimeout - , atseaInput - , atseaTaskPriority - , atseaScheduleToStartTimeout - , atseaStartToCloseTimeout - , atseaActivityType - , atseaActivityId - , atseaTaskList - , atseaDecisionTaskCompletedEventId - - -- ** ActivityTaskStartedEventAttributes - , ActivityTaskStartedEventAttributes - , activityTaskStartedEventAttributes - , atseaIdentity - , atseaScheduledEventId - - -- ** ActivityTaskTimedOutEventAttributes - , ActivityTaskTimedOutEventAttributes - , activityTaskTimedOutEventAttributes - , attoeaDetails - , attoeaTimeoutType - , attoeaScheduledEventId - , attoeaStartedEventId - - -- ** ActivityType - , ActivityType - , activityType - , atName - , atVersion - - -- ** ActivityTypeConfiguration - , ActivityTypeConfiguration - , activityTypeConfiguration - , atcDefaultTaskScheduleToStartTimeout - , atcDefaultTaskList - , atcDefaultTaskPriority - , atcDefaultTaskHeartbeatTimeout - , atcDefaultTaskScheduleToCloseTimeout - , atcDefaultTaskStartToCloseTimeout - - -- ** ActivityTypeInfo - , ActivityTypeInfo - , activityTypeInfo - , atiDeprecationDate - , atiDescription - , atiActivityType - , atiStatus - , atiCreationDate - - -- ** CancelTimerDecisionAttributes - , CancelTimerDecisionAttributes - , cancelTimerDecisionAttributes - , ctdaTimerId - - -- ** CancelTimerFailedEventAttributes - , CancelTimerFailedEventAttributes - , cancelTimerFailedEventAttributes - , ctfeaTimerId - , ctfeaCause - , ctfeaDecisionTaskCompletedEventId - - -- ** CancelWorkflowExecutionDecisionAttributes - , CancelWorkflowExecutionDecisionAttributes - , cancelWorkflowExecutionDecisionAttributes - , cwedaDetails - - -- ** CancelWorkflowExecutionFailedEventAttributes - , CancelWorkflowExecutionFailedEventAttributes - , cancelWorkflowExecutionFailedEventAttributes - , cCause - , cDecisionTaskCompletedEventId - - -- ** ChildWorkflowExecutionCanceledEventAttributes - , ChildWorkflowExecutionCanceledEventAttributes - , childWorkflowExecutionCanceledEventAttributes - , cDetails - , cWorkflowExecution - , cWorkflowType - , cInitiatedEventId - , cStartedEventId - - -- ** ChildWorkflowExecutionCompletedEventAttributes - , ChildWorkflowExecutionCompletedEventAttributes - , childWorkflowExecutionCompletedEventAttributes - , cweceaResult - , cweceaWorkflowExecution - , cweceaWorkflowType - , cweceaInitiatedEventId - , cweceaStartedEventId - - -- ** ChildWorkflowExecutionFailedEventAttributes - , ChildWorkflowExecutionFailedEventAttributes - , childWorkflowExecutionFailedEventAttributes - , cwefeaReason - , cwefeaDetails - , cwefeaWorkflowExecution - , cwefeaWorkflowType - , cwefeaInitiatedEventId - , cwefeaStartedEventId - - -- ** ChildWorkflowExecutionStartedEventAttributes - , ChildWorkflowExecutionStartedEventAttributes - , childWorkflowExecutionStartedEventAttributes - , cweseaWorkflowExecution - , cweseaWorkflowType - , cweseaInitiatedEventId - - -- ** ChildWorkflowExecutionTerminatedEventAttributes - , ChildWorkflowExecutionTerminatedEventAttributes - , childWorkflowExecutionTerminatedEventAttributes - , cweteaWorkflowExecution - , cweteaWorkflowType - , cweteaInitiatedEventId - , cweteaStartedEventId - - -- ** ChildWorkflowExecutionTimedOutEventAttributes - , ChildWorkflowExecutionTimedOutEventAttributes - , childWorkflowExecutionTimedOutEventAttributes - , cwetoeaWorkflowExecution - , cwetoeaWorkflowType - , cwetoeaTimeoutType - , cwetoeaInitiatedEventId - , cwetoeaStartedEventId - - -- ** CloseStatusFilter - , CloseStatusFilter - , closeStatusFilter - , csfStatus - - -- ** CompleteWorkflowExecutionDecisionAttributes - , CompleteWorkflowExecutionDecisionAttributes - , completeWorkflowExecutionDecisionAttributes - , cwedaResult - - -- ** CompleteWorkflowExecutionFailedEventAttributes - , CompleteWorkflowExecutionFailedEventAttributes - , completeWorkflowExecutionFailedEventAttributes - , cwefeaCause - , cwefeaDecisionTaskCompletedEventId - - -- ** ContinueAsNewWorkflowExecutionDecisionAttributes - , ContinueAsNewWorkflowExecutionDecisionAttributes - , continueAsNewWorkflowExecutionDecisionAttributes - , canwedaTagList - , canwedaTaskStartToCloseTimeout - , canwedaLambdaRole - , canwedaInput - , canwedaWorkflowTypeVersion - , canwedaExecutionStartToCloseTimeout - , canwedaTaskList - , canwedaTaskPriority - , canwedaChildPolicy - - -- ** ContinueAsNewWorkflowExecutionFailedEventAttributes - , ContinueAsNewWorkflowExecutionFailedEventAttributes - , continueAsNewWorkflowExecutionFailedEventAttributes - , canwefeaCause - , canwefeaDecisionTaskCompletedEventId - - -- ** Decision - , Decision - , decision - , dRequestCancelExternalWorkflowExecutionDecisionAttributes - , dScheduleActivityTaskDecisionAttributes - , dSignalExternalWorkflowExecutionDecisionAttributes - , dStartTimerDecisionAttributes - , dRecordMarkerDecisionAttributes - , dFailWorkflowExecutionDecisionAttributes - , dStartChildWorkflowExecutionDecisionAttributes - , dCompleteWorkflowExecutionDecisionAttributes - , dScheduleLambdaFunctionDecisionAttributes - , dRequestCancelActivityTaskDecisionAttributes - , dCancelWorkflowExecutionDecisionAttributes - , dCancelTimerDecisionAttributes - , dContinueAsNewWorkflowExecutionDecisionAttributes - , dDecisionType - - -- ** DecisionTaskCompletedEventAttributes - , DecisionTaskCompletedEventAttributes - , decisionTaskCompletedEventAttributes - , dtceaExecutionContext - , dtceaScheduledEventId - , dtceaStartedEventId - - -- ** DecisionTaskScheduledEventAttributes - , DecisionTaskScheduledEventAttributes - , decisionTaskScheduledEventAttributes - , dtseaTaskPriority - , dtseaStartToCloseTimeout - , dtseaTaskList - - -- ** DecisionTaskStartedEventAttributes - , DecisionTaskStartedEventAttributes - , decisionTaskStartedEventAttributes - , dtseaIdentity - , dtseaScheduledEventId - - -- ** DecisionTaskTimedOutEventAttributes - , DecisionTaskTimedOutEventAttributes - , decisionTaskTimedOutEventAttributes - , dttoeaTimeoutType - , dttoeaScheduledEventId - , dttoeaStartedEventId - - -- ** DomainConfiguration - , DomainConfiguration - , domainConfiguration - , dcWorkflowExecutionRetentionPeriodInDays - - -- ** DomainInfo - , DomainInfo - , domainInfo - , diDescription - , diName - , diStatus - - -- ** ExecutionTimeFilter - , ExecutionTimeFilter - , executionTimeFilter - , etfLatestDate - , etfOldestDate - - -- ** ExternalWorkflowExecutionCancelRequestedEventAttributes - , ExternalWorkflowExecutionCancelRequestedEventAttributes - , externalWorkflowExecutionCancelRequestedEventAttributes - , ewecreaWorkflowExecution - , ewecreaInitiatedEventId - - -- ** ExternalWorkflowExecutionSignaledEventAttributes - , ExternalWorkflowExecutionSignaledEventAttributes - , externalWorkflowExecutionSignaledEventAttributes - , eweseaWorkflowExecution - , eweseaInitiatedEventId - - -- ** FailWorkflowExecutionDecisionAttributes - , FailWorkflowExecutionDecisionAttributes - , failWorkflowExecutionDecisionAttributes - , fwedaReason - , fwedaDetails - - -- ** FailWorkflowExecutionFailedEventAttributes - , FailWorkflowExecutionFailedEventAttributes - , failWorkflowExecutionFailedEventAttributes - , fwefeaCause - , fwefeaDecisionTaskCompletedEventId - - -- ** HistoryEvent - , HistoryEvent - , historyEvent - , heWorkflowExecutionCancelRequestedEventAttributes - , heRecordMarkerFailedEventAttributes - , heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes - , heLambdaFunctionStartedEventAttributes - , heDecisionTaskScheduledEventAttributes - , heWorkflowExecutionCompletedEventAttributes - , heStartTimerFailedEventAttributes - , heActivityTaskScheduledEventAttributes - , heScheduleActivityTaskFailedEventAttributes - , heChildWorkflowExecutionCompletedEventAttributes - , heMarkerRecordedEventAttributes - , heScheduleLambdaFunctionFailedEventAttributes - , heCompleteWorkflowExecutionFailedEventAttributes - , heLambdaFunctionCompletedEventAttributes - , heRequestCancelExternalWorkflowExecutionFailedEventAttributes - , heTimerCanceledEventAttributes - , heWorkflowExecutionStartedEventAttributes - , heActivityTaskCompletedEventAttributes - , heDecisionTaskTimedOutEventAttributes - , heCancelTimerFailedEventAttributes - , heChildWorkflowExecutionStartedEventAttributes - , heActivityTaskCanceledEventAttributes - , heActivityTaskTimedOutEventAttributes - , heDecisionTaskStartedEventAttributes - , heWorkflowExecutionTerminatedEventAttributes - , heChildWorkflowExecutionCanceledEventAttributes - , heRequestCancelActivityTaskFailedEventAttributes - , heLambdaFunctionScheduledEventAttributes - , heChildWorkflowExecutionTimedOutEventAttributes - , heCancelWorkflowExecutionFailedEventAttributes - , heStartChildWorkflowExecutionInitiatedEventAttributes - , heSignalExternalWorkflowExecutionFailedEventAttributes - , heActivityTaskStartedEventAttributes - , heStartLambdaFunctionFailedEventAttributes - , heChildWorkflowExecutionTerminatedEventAttributes - , heLambdaFunctionFailedEventAttributes - , heWorkflowExecutionCanceledEventAttributes - , heTimerStartedEventAttributes - , heActivityTaskCancelRequestedEventAttributes - , heWorkflowExecutionTimedOutEventAttributes - , heWorkflowExecutionSignaledEventAttributes - , heTimerFiredEventAttributes - , heActivityTaskFailedEventAttributes - , heExternalWorkflowExecutionSignaledEventAttributes - , heDecisionTaskCompletedEventAttributes - , heStartChildWorkflowExecutionFailedEventAttributes - , heChildWorkflowExecutionFailedEventAttributes - , heFailWorkflowExecutionFailedEventAttributes - , heContinueAsNewWorkflowExecutionFailedEventAttributes - , heSignalExternalWorkflowExecutionInitiatedEventAttributes - , heLambdaFunctionTimedOutEventAttributes - , heWorkflowExecutionFailedEventAttributes - , heWorkflowExecutionContinuedAsNewEventAttributes - , heExternalWorkflowExecutionCancelRequestedEventAttributes - , heEventTimestamp - , heEventType - , heEventId - - -- ** LambdaFunctionCompletedEventAttributes - , LambdaFunctionCompletedEventAttributes - , lambdaFunctionCompletedEventAttributes - , lfceaResult - , lfceaScheduledEventId - , lfceaStartedEventId - - -- ** LambdaFunctionFailedEventAttributes - , LambdaFunctionFailedEventAttributes - , lambdaFunctionFailedEventAttributes - , lffeaReason - , lffeaDetails - , lffeaScheduledEventId - , lffeaStartedEventId - - -- ** LambdaFunctionScheduledEventAttributes - , LambdaFunctionScheduledEventAttributes - , lambdaFunctionScheduledEventAttributes - , lfseaControl - , lfseaInput - , lfseaStartToCloseTimeout - , lfseaId - , lfseaName - , lfseaDecisionTaskCompletedEventId - - -- ** LambdaFunctionStartedEventAttributes - , LambdaFunctionStartedEventAttributes - , lambdaFunctionStartedEventAttributes - , lfseaScheduledEventId - - -- ** LambdaFunctionTimedOutEventAttributes - , LambdaFunctionTimedOutEventAttributes - , lambdaFunctionTimedOutEventAttributes - , lftoeaTimeoutType - , lftoeaScheduledEventId - , lftoeaStartedEventId - - -- ** MarkerRecordedEventAttributes - , MarkerRecordedEventAttributes - , markerRecordedEventAttributes - , mreaDetails - , mreaMarkerName - , mreaDecisionTaskCompletedEventId - - -- ** PendingTaskCount - , PendingTaskCount - , pendingTaskCount - , ptcTruncated - , ptcCount - - -- ** RecordMarkerDecisionAttributes - , RecordMarkerDecisionAttributes - , recordMarkerDecisionAttributes - , rmdaDetails - , rmdaMarkerName - - -- ** RecordMarkerFailedEventAttributes - , RecordMarkerFailedEventAttributes - , recordMarkerFailedEventAttributes - , rmfeaMarkerName - , rmfeaCause - , rmfeaDecisionTaskCompletedEventId - - -- ** RequestCancelActivityTaskDecisionAttributes - , RequestCancelActivityTaskDecisionAttributes - , requestCancelActivityTaskDecisionAttributes - , rcatdaActivityId - - -- ** RequestCancelActivityTaskFailedEventAttributes - , RequestCancelActivityTaskFailedEventAttributes - , requestCancelActivityTaskFailedEventAttributes - , rcatfeaActivityId - , rcatfeaCause - , rcatfeaDecisionTaskCompletedEventId - - -- ** RequestCancelExternalWorkflowExecutionDecisionAttributes - , RequestCancelExternalWorkflowExecutionDecisionAttributes - , requestCancelExternalWorkflowExecutionDecisionAttributes - , rcewedaControl - , rcewedaRunId - , rcewedaWorkflowId - - -- ** RequestCancelExternalWorkflowExecutionFailedEventAttributes - , RequestCancelExternalWorkflowExecutionFailedEventAttributes - , requestCancelExternalWorkflowExecutionFailedEventAttributes - , rcewefeaControl - , rcewefeaRunId - , rcewefeaWorkflowId - , rcewefeaCause - , rcewefeaInitiatedEventId - , rcewefeaDecisionTaskCompletedEventId - - -- ** RequestCancelExternalWorkflowExecutionInitiatedEventAttributes - , RequestCancelExternalWorkflowExecutionInitiatedEventAttributes - , requestCancelExternalWorkflowExecutionInitiatedEventAttributes - , rceweieaControl - , rceweieaRunId - , rceweieaWorkflowId - , rceweieaDecisionTaskCompletedEventId - - -- ** ScheduleActivityTaskDecisionAttributes - , ScheduleActivityTaskDecisionAttributes - , scheduleActivityTaskDecisionAttributes - , satdaControl - , satdaHeartbeatTimeout - , satdaScheduleToCloseTimeout - , satdaInput - , satdaTaskList - , satdaTaskPriority - , satdaScheduleToStartTimeout - , satdaStartToCloseTimeout - , satdaActivityType - , satdaActivityId - - -- ** ScheduleActivityTaskFailedEventAttributes - , ScheduleActivityTaskFailedEventAttributes - , scheduleActivityTaskFailedEventAttributes - , satfeaActivityType - , satfeaActivityId - , satfeaCause - , satfeaDecisionTaskCompletedEventId - - -- ** ScheduleLambdaFunctionDecisionAttributes - , ScheduleLambdaFunctionDecisionAttributes - , scheduleLambdaFunctionDecisionAttributes - , slfdaControl - , slfdaInput - , slfdaStartToCloseTimeout - , slfdaId - , slfdaName - - -- ** ScheduleLambdaFunctionFailedEventAttributes - , ScheduleLambdaFunctionFailedEventAttributes - , scheduleLambdaFunctionFailedEventAttributes - , slffeaId - , slffeaName - , slffeaCause - , slffeaDecisionTaskCompletedEventId - - -- ** SignalExternalWorkflowExecutionDecisionAttributes - , SignalExternalWorkflowExecutionDecisionAttributes - , signalExternalWorkflowExecutionDecisionAttributes - , sewedaControl - , sewedaInput - , sewedaRunId - , sewedaWorkflowId - , sewedaSignalName - - -- ** SignalExternalWorkflowExecutionFailedEventAttributes - , SignalExternalWorkflowExecutionFailedEventAttributes - , signalExternalWorkflowExecutionFailedEventAttributes - , sewefeaControl - , sewefeaRunId - , sewefeaWorkflowId - , sewefeaCause - , sewefeaInitiatedEventId - , sewefeaDecisionTaskCompletedEventId - - -- ** SignalExternalWorkflowExecutionInitiatedEventAttributes - , SignalExternalWorkflowExecutionInitiatedEventAttributes - , signalExternalWorkflowExecutionInitiatedEventAttributes - , seweieaControl - , seweieaInput - , seweieaRunId - , seweieaWorkflowId - , seweieaSignalName - , seweieaDecisionTaskCompletedEventId - - -- ** StartChildWorkflowExecutionDecisionAttributes - , StartChildWorkflowExecutionDecisionAttributes - , startChildWorkflowExecutionDecisionAttributes - , scwedaControl - , scwedaTagList - , scwedaTaskStartToCloseTimeout - , scwedaLambdaRole - , scwedaInput - , scwedaExecutionStartToCloseTimeout - , scwedaTaskList - , scwedaTaskPriority - , scwedaChildPolicy - , scwedaWorkflowType - , scwedaWorkflowId - - -- ** StartChildWorkflowExecutionFailedEventAttributes - , StartChildWorkflowExecutionFailedEventAttributes - , startChildWorkflowExecutionFailedEventAttributes - , scwefeaControl - , scwefeaWorkflowType - , scwefeaCause - , scwefeaWorkflowId - , scwefeaInitiatedEventId - , scwefeaDecisionTaskCompletedEventId - - -- ** StartChildWorkflowExecutionInitiatedEventAttributes - , StartChildWorkflowExecutionInitiatedEventAttributes - , startChildWorkflowExecutionInitiatedEventAttributes - , scweieaControl - , scweieaTagList - , scweieaTaskStartToCloseTimeout - , scweieaLambdaRole - , scweieaInput - , scweieaExecutionStartToCloseTimeout - , scweieaTaskPriority - , scweieaWorkflowId - , scweieaWorkflowType - , scweieaTaskList - , scweieaDecisionTaskCompletedEventId - , scweieaChildPolicy - - -- ** StartLambdaFunctionFailedEventAttributes - , StartLambdaFunctionFailedEventAttributes - , startLambdaFunctionFailedEventAttributes - , sScheduledEventId - , sCause - , sMessage - - -- ** StartTimerDecisionAttributes - , StartTimerDecisionAttributes - , startTimerDecisionAttributes - , stdaControl - , stdaTimerId - , stdaStartToFireTimeout - - -- ** StartTimerFailedEventAttributes - , StartTimerFailedEventAttributes - , startTimerFailedEventAttributes - , stfeaTimerId - , stfeaCause - , stfeaDecisionTaskCompletedEventId - - -- ** TagFilter - , TagFilter - , tagFilter - , tfTag - - -- ** TaskList - , TaskList - , taskList - , tlName - - -- ** TimerCanceledEventAttributes - , TimerCanceledEventAttributes - , timerCanceledEventAttributes - , tceaTimerId - , tceaStartedEventId - , tceaDecisionTaskCompletedEventId - - -- ** TimerFiredEventAttributes - , TimerFiredEventAttributes - , timerFiredEventAttributes - , tfeaTimerId - , tfeaStartedEventId - - -- ** TimerStartedEventAttributes - , TimerStartedEventAttributes - , timerStartedEventAttributes - , tseaControl - , tseaTimerId - , tseaStartToFireTimeout - , tseaDecisionTaskCompletedEventId - - -- ** WorkflowExecution - , WorkflowExecution - , workflowExecution - , weWorkflowId - , weRunId - - -- ** WorkflowExecutionCancelRequestedEventAttributes - , WorkflowExecutionCancelRequestedEventAttributes - , workflowExecutionCancelRequestedEventAttributes - , wecreaExternalWorkflowExecution - , wecreaExternalInitiatedEventId - , wecreaCause - - -- ** WorkflowExecutionCanceledEventAttributes - , WorkflowExecutionCanceledEventAttributes - , workflowExecutionCanceledEventAttributes - , wDetails - , wDecisionTaskCompletedEventId - - -- ** WorkflowExecutionCompletedEventAttributes - , WorkflowExecutionCompletedEventAttributes - , workflowExecutionCompletedEventAttributes - , weceaResult - , weceaDecisionTaskCompletedEventId - - -- ** WorkflowExecutionConfiguration - , WorkflowExecutionConfiguration - , workflowExecutionConfiguration - , wecLambdaRole - , wecTaskPriority - , wecTaskStartToCloseTimeout - , wecExecutionStartToCloseTimeout - , wecTaskList - , wecChildPolicy - - -- ** WorkflowExecutionContinuedAsNewEventAttributes - , WorkflowExecutionContinuedAsNewEventAttributes - , workflowExecutionContinuedAsNewEventAttributes - , wecaneaTagList - , wecaneaTaskStartToCloseTimeout - , wecaneaLambdaRole - , wecaneaInput - , wecaneaExecutionStartToCloseTimeout - , wecaneaTaskPriority - , wecaneaDecisionTaskCompletedEventId - , wecaneaNewExecutionRunId - , wecaneaTaskList - , wecaneaChildPolicy - , wecaneaWorkflowType - - -- ** WorkflowExecutionCount - , WorkflowExecutionCount - , workflowExecutionCount - , wecTruncated - , wecCount - - -- ** WorkflowExecutionFailedEventAttributes - , WorkflowExecutionFailedEventAttributes - , workflowExecutionFailedEventAttributes - , wefeaReason - , wefeaDetails - , wefeaDecisionTaskCompletedEventId - - -- ** WorkflowExecutionFilter - , WorkflowExecutionFilter - , workflowExecutionFilter - , wefWorkflowId - - -- ** WorkflowExecutionInfo - , WorkflowExecutionInfo - , workflowExecutionInfo - , weiParent - , weiTagList - , weiCloseStatus - , weiCloseTimestamp - , weiCancelRequested - , weiExecution - , weiWorkflowType - , weiStartTimestamp - , weiExecutionStatus - - -- ** WorkflowExecutionInfos - , WorkflowExecutionInfos - , workflowExecutionInfos - , weiNextPageToken - , weiExecutionInfos - - -- ** WorkflowExecutionOpenCounts - , WorkflowExecutionOpenCounts - , workflowExecutionOpenCounts - , weocOpenLambdaFunctions - , weocOpenActivityTasks - , weocOpenDecisionTasks - , weocOpenTimers - , weocOpenChildWorkflowExecutions - - -- ** WorkflowExecutionSignaledEventAttributes - , WorkflowExecutionSignaledEventAttributes - , workflowExecutionSignaledEventAttributes - , wExternalWorkflowExecution - , wExternalInitiatedEventId - , wInput - , wSignalName - - -- ** WorkflowExecutionStartedEventAttributes - , WorkflowExecutionStartedEventAttributes - , workflowExecutionStartedEventAttributes - , weseaParentInitiatedEventId - , weseaTagList - , weseaTaskStartToCloseTimeout - , weseaLambdaRole - , weseaInput - , weseaExecutionStartToCloseTimeout - , weseaTaskPriority - , weseaParentWorkflowExecution - , weseaContinuedExecutionRunId - , weseaChildPolicy - , weseaTaskList - , weseaWorkflowType - - -- ** WorkflowExecutionTerminatedEventAttributes - , WorkflowExecutionTerminatedEventAttributes - , workflowExecutionTerminatedEventAttributes - , weteaCause - , weteaReason - , weteaDetails - , weteaChildPolicy - - -- ** WorkflowExecutionTimedOutEventAttributes - , WorkflowExecutionTimedOutEventAttributes - , workflowExecutionTimedOutEventAttributes - , wetoeaTimeoutType - , wetoeaChildPolicy - - -- ** WorkflowType - , WorkflowType - , workflowType - , wtName - , wtVersion - - -- ** WorkflowTypeConfiguration - , WorkflowTypeConfiguration - , workflowTypeConfiguration - , wtcDefaultLambdaRole - , wtcDefaultChildPolicy - , wtcDefaultTaskList - , wtcDefaultTaskPriority - , wtcDefaultExecutionStartToCloseTimeout - , wtcDefaultTaskStartToCloseTimeout - - -- ** WorkflowTypeFilter - , WorkflowTypeFilter - , workflowTypeFilter - , wtfVersion - , wtfName - - -- ** WorkflowTypeInfo - , WorkflowTypeInfo - , workflowTypeInfo - , wtiDeprecationDate - , wtiDescription - , wtiWorkflowType - , wtiStatus - , wtiCreationDate - ) where - -import Network.AWS.SWF.CountClosedWorkflowExecutions -import Network.AWS.SWF.CountOpenWorkflowExecutions -import Network.AWS.SWF.CountPendingActivityTasks -import Network.AWS.SWF.CountPendingDecisionTasks -import Network.AWS.SWF.DeprecateActivityType -import Network.AWS.SWF.DeprecateDomain -import Network.AWS.SWF.DeprecateWorkflowType -import Network.AWS.SWF.DescribeActivityType -import Network.AWS.SWF.DescribeDomain -import Network.AWS.SWF.DescribeWorkflowExecution -import Network.AWS.SWF.DescribeWorkflowType -import Network.AWS.SWF.GetWorkflowExecutionHistory -import Network.AWS.SWF.ListActivityTypes -import Network.AWS.SWF.ListClosedWorkflowExecutions -import Network.AWS.SWF.ListDomains -import Network.AWS.SWF.ListOpenWorkflowExecutions -import Network.AWS.SWF.ListWorkflowTypes -import Network.AWS.SWF.PollForActivityTask -import Network.AWS.SWF.PollForDecisionTask -import Network.AWS.SWF.RecordActivityTaskHeartbeat -import Network.AWS.SWF.RegisterActivityType -import Network.AWS.SWF.RegisterDomain -import Network.AWS.SWF.RegisterWorkflowType -import Network.AWS.SWF.RequestCancelWorkflowExecution -import Network.AWS.SWF.RespondActivityTaskCanceled -import Network.AWS.SWF.RespondActivityTaskCompleted -import Network.AWS.SWF.RespondActivityTaskFailed -import Network.AWS.SWF.RespondDecisionTaskCompleted -import Network.AWS.SWF.SignalWorkflowExecution -import Network.AWS.SWF.StartWorkflowExecution -import Network.AWS.SWF.TerminateWorkflowExecution -import Network.AWS.SWF.Types -import Network.AWS.SWF.Waiters - -{- $errors -Error matchers are designed for use with the functions provided by -. -This allows catching (and rethrowing) service specific errors returned -by 'SWF'. --} - -{- $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/SWF/CountClosedWorkflowExecutions.hs b/gen/Network/AWS/SWF/CountClosedWorkflowExecutions.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/CountClosedWorkflowExecutions.hs +++ /dev/null @@ -1,185 +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.SWF.CountClosedWorkflowExecutions --- 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 number of closed workflow executions within the given domain that meet the specified filtering criteria. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the following parameters by using a @Condition@ element with the appropriate keys. --- --- * @tagFilter.tag@ : String constraint. The key is @swf:tagFilter.tag@ . --- --- * @typeFilter.name@ : String constraint. The key is @swf:typeFilter.name@ . --- --- * @typeFilter.version@ : String constraint. The key is @swf:typeFilter.version@ . --- --- --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.CountClosedWorkflowExecutions - ( - -- * Creating a Request - countClosedWorkflowExecutions - , CountClosedWorkflowExecutions - -- * Request Lenses - , ccweExecutionFilter - , ccweCloseStatusFilter - , ccweTypeFilter - , ccweCloseTimeFilter - , ccweTagFilter - , ccweStartTimeFilter - , ccweDomain - - -- * Destructuring the Response - , workflowExecutionCount - , WorkflowExecutionCount - -- * Response Lenses - , wecTruncated - , wecCount - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'countClosedWorkflowExecutions' smart constructor. -data CountClosedWorkflowExecutions = CountClosedWorkflowExecutions' - { _ccweExecutionFilter :: !(Maybe WorkflowExecutionFilter) - , _ccweCloseStatusFilter :: !(Maybe CloseStatusFilter) - , _ccweTypeFilter :: !(Maybe WorkflowTypeFilter) - , _ccweCloseTimeFilter :: !(Maybe ExecutionTimeFilter) - , _ccweTagFilter :: !(Maybe TagFilter) - , _ccweStartTimeFilter :: !(Maybe ExecutionTimeFilter) - , _ccweDomain :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CountClosedWorkflowExecutions' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ccweExecutionFilter' - If specified, only workflow executions matching the @WorkflowId@ in the filter are counted. --- --- * 'ccweCloseStatusFilter' - If specified, only workflow executions that match this close status are counted. This filter has an affect only if @executionStatus@ is specified as @CLOSED@ . --- --- * 'ccweTypeFilter' - If specified, indicates the type of the workflow executions to be counted. --- --- * 'ccweCloseTimeFilter' - If specified, only workflow executions that meet the close time criteria of the filter are counted. --- --- * 'ccweTagFilter' - If specified, only executions that have a tag that matches the filter are counted. --- --- * 'ccweStartTimeFilter' - If specified, only workflow executions that meet the start time criteria of the filter are counted. --- --- * 'ccweDomain' - The name of the domain containing the workflow executions to count. -countClosedWorkflowExecutions - :: Text -- ^ 'ccweDomain' - -> CountClosedWorkflowExecutions -countClosedWorkflowExecutions pDomain_ = - CountClosedWorkflowExecutions' - { _ccweExecutionFilter = Nothing - , _ccweCloseStatusFilter = Nothing - , _ccweTypeFilter = Nothing - , _ccweCloseTimeFilter = Nothing - , _ccweTagFilter = Nothing - , _ccweStartTimeFilter = Nothing - , _ccweDomain = pDomain_ - } - - --- | If specified, only workflow executions matching the @WorkflowId@ in the filter are counted. -ccweExecutionFilter :: Lens' CountClosedWorkflowExecutions (Maybe WorkflowExecutionFilter) -ccweExecutionFilter = lens _ccweExecutionFilter (\ s a -> s{_ccweExecutionFilter = a}) - --- | If specified, only workflow executions that match this close status are counted. This filter has an affect only if @executionStatus@ is specified as @CLOSED@ . -ccweCloseStatusFilter :: Lens' CountClosedWorkflowExecutions (Maybe CloseStatusFilter) -ccweCloseStatusFilter = lens _ccweCloseStatusFilter (\ s a -> s{_ccweCloseStatusFilter = a}) - --- | If specified, indicates the type of the workflow executions to be counted. -ccweTypeFilter :: Lens' CountClosedWorkflowExecutions (Maybe WorkflowTypeFilter) -ccweTypeFilter = lens _ccweTypeFilter (\ s a -> s{_ccweTypeFilter = a}) - --- | If specified, only workflow executions that meet the close time criteria of the filter are counted. -ccweCloseTimeFilter :: Lens' CountClosedWorkflowExecutions (Maybe ExecutionTimeFilter) -ccweCloseTimeFilter = lens _ccweCloseTimeFilter (\ s a -> s{_ccweCloseTimeFilter = a}) - --- | If specified, only executions that have a tag that matches the filter are counted. -ccweTagFilter :: Lens' CountClosedWorkflowExecutions (Maybe TagFilter) -ccweTagFilter = lens _ccweTagFilter (\ s a -> s{_ccweTagFilter = a}) - --- | If specified, only workflow executions that meet the start time criteria of the filter are counted. -ccweStartTimeFilter :: Lens' CountClosedWorkflowExecutions (Maybe ExecutionTimeFilter) -ccweStartTimeFilter = lens _ccweStartTimeFilter (\ s a -> s{_ccweStartTimeFilter = a}) - --- | The name of the domain containing the workflow executions to count. -ccweDomain :: Lens' CountClosedWorkflowExecutions Text -ccweDomain = lens _ccweDomain (\ s a -> s{_ccweDomain = a}) - -instance AWSRequest CountClosedWorkflowExecutions - where - type Rs CountClosedWorkflowExecutions = - WorkflowExecutionCount - request = postJSON swf - response = receiveJSON (\ s h x -> eitherParseJSON x) - -instance Hashable CountClosedWorkflowExecutions where - -instance NFData CountClosedWorkflowExecutions where - -instance ToHeaders CountClosedWorkflowExecutions - where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.CountClosedWorkflowExecutions" - :: ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON CountClosedWorkflowExecutions where - toJSON CountClosedWorkflowExecutions'{..} - = object - (catMaybes - [("executionFilter" .=) <$> _ccweExecutionFilter, - ("closeStatusFilter" .=) <$> _ccweCloseStatusFilter, - ("typeFilter" .=) <$> _ccweTypeFilter, - ("closeTimeFilter" .=) <$> _ccweCloseTimeFilter, - ("tagFilter" .=) <$> _ccweTagFilter, - ("startTimeFilter" .=) <$> _ccweStartTimeFilter, - Just ("domain" .= _ccweDomain)]) - -instance ToPath CountClosedWorkflowExecutions where - toPath = const "/" - -instance ToQuery CountClosedWorkflowExecutions where - toQuery = const mempty diff --git a/gen/Network/AWS/SWF/CountOpenWorkflowExecutions.hs b/gen/Network/AWS/SWF/CountOpenWorkflowExecutions.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/CountOpenWorkflowExecutions.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.SWF.CountOpenWorkflowExecutions --- 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 number of open workflow executions within the given domain that meet the specified filtering criteria. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the following parameters by using a @Condition@ element with the appropriate keys. --- --- * @tagFilter.tag@ : String constraint. The key is @swf:tagFilter.tag@ . --- --- * @typeFilter.name@ : String constraint. The key is @swf:typeFilter.name@ . --- --- * @typeFilter.version@ : String constraint. The key is @swf:typeFilter.version@ . --- --- --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.CountOpenWorkflowExecutions - ( - -- * Creating a Request - countOpenWorkflowExecutions - , CountOpenWorkflowExecutions - -- * Request Lenses - , coweExecutionFilter - , coweTypeFilter - , coweTagFilter - , coweDomain - , coweStartTimeFilter - - -- * Destructuring the Response - , workflowExecutionCount - , WorkflowExecutionCount - -- * Response Lenses - , wecTruncated - , wecCount - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'countOpenWorkflowExecutions' smart constructor. -data CountOpenWorkflowExecutions = CountOpenWorkflowExecutions' - { _coweExecutionFilter :: !(Maybe WorkflowExecutionFilter) - , _coweTypeFilter :: !(Maybe WorkflowTypeFilter) - , _coweTagFilter :: !(Maybe TagFilter) - , _coweDomain :: !Text - , _coweStartTimeFilter :: !ExecutionTimeFilter - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CountOpenWorkflowExecutions' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'coweExecutionFilter' - If specified, only workflow executions matching the @WorkflowId@ in the filter are counted. --- --- * 'coweTypeFilter' - Specifies the type of the workflow executions to be counted. --- --- * 'coweTagFilter' - If specified, only executions that have a tag that matches the filter are counted. --- --- * 'coweDomain' - The name of the domain containing the workflow executions to count. --- --- * 'coweStartTimeFilter' - Specifies the start time criteria that workflow executions must meet in order to be counted. -countOpenWorkflowExecutions - :: Text -- ^ 'coweDomain' - -> ExecutionTimeFilter -- ^ 'coweStartTimeFilter' - -> CountOpenWorkflowExecutions -countOpenWorkflowExecutions pDomain_ pStartTimeFilter_ = - CountOpenWorkflowExecutions' - { _coweExecutionFilter = Nothing - , _coweTypeFilter = Nothing - , _coweTagFilter = Nothing - , _coweDomain = pDomain_ - , _coweStartTimeFilter = pStartTimeFilter_ - } - - --- | If specified, only workflow executions matching the @WorkflowId@ in the filter are counted. -coweExecutionFilter :: Lens' CountOpenWorkflowExecutions (Maybe WorkflowExecutionFilter) -coweExecutionFilter = lens _coweExecutionFilter (\ s a -> s{_coweExecutionFilter = a}) - --- | Specifies the type of the workflow executions to be counted. -coweTypeFilter :: Lens' CountOpenWorkflowExecutions (Maybe WorkflowTypeFilter) -coweTypeFilter = lens _coweTypeFilter (\ s a -> s{_coweTypeFilter = a}) - --- | If specified, only executions that have a tag that matches the filter are counted. -coweTagFilter :: Lens' CountOpenWorkflowExecutions (Maybe TagFilter) -coweTagFilter = lens _coweTagFilter (\ s a -> s{_coweTagFilter = a}) - --- | The name of the domain containing the workflow executions to count. -coweDomain :: Lens' CountOpenWorkflowExecutions Text -coweDomain = lens _coweDomain (\ s a -> s{_coweDomain = a}) - --- | Specifies the start time criteria that workflow executions must meet in order to be counted. -coweStartTimeFilter :: Lens' CountOpenWorkflowExecutions ExecutionTimeFilter -coweStartTimeFilter = lens _coweStartTimeFilter (\ s a -> s{_coweStartTimeFilter = a}) - -instance AWSRequest CountOpenWorkflowExecutions where - type Rs CountOpenWorkflowExecutions = - WorkflowExecutionCount - request = postJSON swf - response = receiveJSON (\ s h x -> eitherParseJSON x) - -instance Hashable CountOpenWorkflowExecutions where - -instance NFData CountOpenWorkflowExecutions where - -instance ToHeaders CountOpenWorkflowExecutions where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.CountOpenWorkflowExecutions" - :: ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON CountOpenWorkflowExecutions where - toJSON CountOpenWorkflowExecutions'{..} - = object - (catMaybes - [("executionFilter" .=) <$> _coweExecutionFilter, - ("typeFilter" .=) <$> _coweTypeFilter, - ("tagFilter" .=) <$> _coweTagFilter, - Just ("domain" .= _coweDomain), - Just ("startTimeFilter" .= _coweStartTimeFilter)]) - -instance ToPath CountOpenWorkflowExecutions where - toPath = const "/" - -instance ToQuery CountOpenWorkflowExecutions where - toQuery = const mempty diff --git a/gen/Network/AWS/SWF/CountPendingActivityTasks.hs b/gen/Network/AWS/SWF/CountPendingActivityTasks.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/CountPendingActivityTasks.hs +++ /dev/null @@ -1,123 +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.SWF.CountPendingActivityTasks --- 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 number of activity tasks in the specified task list. The count returned is an approximation and isn't guaranteed to be exact. If you specify a task list that no activity task was ever scheduled in then @0@ is returned. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the @taskList.name@ parameter by using a @Condition@ element with the @swf:taskList.name@ key to allow the action to access only certain task lists. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.CountPendingActivityTasks - ( - -- * Creating a Request - countPendingActivityTasks - , CountPendingActivityTasks - -- * Request Lenses - , cpatDomain - , cpatTaskList - - -- * Destructuring the Response - , pendingTaskCount - , PendingTaskCount - -- * Response Lenses - , ptcTruncated - , ptcCount - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'countPendingActivityTasks' smart constructor. -data CountPendingActivityTasks = CountPendingActivityTasks' - { _cpatDomain :: !Text - , _cpatTaskList :: !TaskList - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CountPendingActivityTasks' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cpatDomain' - The name of the domain that contains the task list. --- --- * 'cpatTaskList' - The name of the task list. -countPendingActivityTasks - :: Text -- ^ 'cpatDomain' - -> TaskList -- ^ 'cpatTaskList' - -> CountPendingActivityTasks -countPendingActivityTasks pDomain_ pTaskList_ = - CountPendingActivityTasks' - {_cpatDomain = pDomain_, _cpatTaskList = pTaskList_} - - --- | The name of the domain that contains the task list. -cpatDomain :: Lens' CountPendingActivityTasks Text -cpatDomain = lens _cpatDomain (\ s a -> s{_cpatDomain = a}) - --- | The name of the task list. -cpatTaskList :: Lens' CountPendingActivityTasks TaskList -cpatTaskList = lens _cpatTaskList (\ s a -> s{_cpatTaskList = a}) - -instance AWSRequest CountPendingActivityTasks where - type Rs CountPendingActivityTasks = PendingTaskCount - request = postJSON swf - response = receiveJSON (\ s h x -> eitherParseJSON x) - -instance Hashable CountPendingActivityTasks where - -instance NFData CountPendingActivityTasks where - -instance ToHeaders CountPendingActivityTasks where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.CountPendingActivityTasks" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON CountPendingActivityTasks where - toJSON CountPendingActivityTasks'{..} - = object - (catMaybes - [Just ("domain" .= _cpatDomain), - Just ("taskList" .= _cpatTaskList)]) - -instance ToPath CountPendingActivityTasks where - toPath = const "/" - -instance ToQuery CountPendingActivityTasks where - toQuery = const mempty diff --git a/gen/Network/AWS/SWF/CountPendingDecisionTasks.hs b/gen/Network/AWS/SWF/CountPendingDecisionTasks.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/CountPendingDecisionTasks.hs +++ /dev/null @@ -1,123 +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.SWF.CountPendingDecisionTasks --- 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 number of decision tasks in the specified task list. The count returned is an approximation and isn't guaranteed to be exact. If you specify a task list that no decision task was ever scheduled in then @0@ is returned. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the @taskList.name@ parameter by using a @Condition@ element with the @swf:taskList.name@ key to allow the action to access only certain task lists. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.CountPendingDecisionTasks - ( - -- * Creating a Request - countPendingDecisionTasks - , CountPendingDecisionTasks - -- * Request Lenses - , cpdtDomain - , cpdtTaskList - - -- * Destructuring the Response - , pendingTaskCount - , PendingTaskCount - -- * Response Lenses - , ptcTruncated - , ptcCount - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'countPendingDecisionTasks' smart constructor. -data CountPendingDecisionTasks = CountPendingDecisionTasks' - { _cpdtDomain :: !Text - , _cpdtTaskList :: !TaskList - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CountPendingDecisionTasks' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cpdtDomain' - The name of the domain that contains the task list. --- --- * 'cpdtTaskList' - The name of the task list. -countPendingDecisionTasks - :: Text -- ^ 'cpdtDomain' - -> TaskList -- ^ 'cpdtTaskList' - -> CountPendingDecisionTasks -countPendingDecisionTasks pDomain_ pTaskList_ = - CountPendingDecisionTasks' - {_cpdtDomain = pDomain_, _cpdtTaskList = pTaskList_} - - --- | The name of the domain that contains the task list. -cpdtDomain :: Lens' CountPendingDecisionTasks Text -cpdtDomain = lens _cpdtDomain (\ s a -> s{_cpdtDomain = a}) - --- | The name of the task list. -cpdtTaskList :: Lens' CountPendingDecisionTasks TaskList -cpdtTaskList = lens _cpdtTaskList (\ s a -> s{_cpdtTaskList = a}) - -instance AWSRequest CountPendingDecisionTasks where - type Rs CountPendingDecisionTasks = PendingTaskCount - request = postJSON swf - response = receiveJSON (\ s h x -> eitherParseJSON x) - -instance Hashable CountPendingDecisionTasks where - -instance NFData CountPendingDecisionTasks where - -instance ToHeaders CountPendingDecisionTasks where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.CountPendingDecisionTasks" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON CountPendingDecisionTasks where - toJSON CountPendingDecisionTasks'{..} - = object - (catMaybes - [Just ("domain" .= _cpdtDomain), - Just ("taskList" .= _cpdtTaskList)]) - -instance ToPath CountPendingDecisionTasks where - toPath = const "/" - -instance ToQuery CountPendingDecisionTasks where - toQuery = const mempty diff --git a/gen/Network/AWS/SWF/DeprecateActivityType.hs b/gen/Network/AWS/SWF/DeprecateActivityType.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/DeprecateActivityType.hs +++ /dev/null @@ -1,142 +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.SWF.DeprecateActivityType --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Deprecates the specified /activity type/ . After an activity type has been deprecated, you cannot create new tasks of that activity type. Tasks of this type that were scheduled before the type was deprecated continue to run. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the following parameters by using a @Condition@ element with the appropriate keys. --- --- * @activityType.name@ : String constraint. The key is @swf:activityType.name@ . --- --- * @activityType.version@ : String constraint. The key is @swf:activityType.version@ . --- --- --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.DeprecateActivityType - ( - -- * Creating a Request - deprecateActivityType - , DeprecateActivityType - -- * Request Lenses - , depDomain - , depActivityType - - -- * Destructuring the Response - , deprecateActivityTypeResponse - , DeprecateActivityTypeResponse - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'deprecateActivityType' smart constructor. -data DeprecateActivityType = DeprecateActivityType' - { _depDomain :: !Text - , _depActivityType :: !ActivityType - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DeprecateActivityType' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'depDomain' - The name of the domain in which the activity type is registered. --- --- * 'depActivityType' - The activity type to deprecate. -deprecateActivityType - :: Text -- ^ 'depDomain' - -> ActivityType -- ^ 'depActivityType' - -> DeprecateActivityType -deprecateActivityType pDomain_ pActivityType_ = - DeprecateActivityType' - {_depDomain = pDomain_, _depActivityType = pActivityType_} - - --- | The name of the domain in which the activity type is registered. -depDomain :: Lens' DeprecateActivityType Text -depDomain = lens _depDomain (\ s a -> s{_depDomain = a}) - --- | The activity type to deprecate. -depActivityType :: Lens' DeprecateActivityType ActivityType -depActivityType = lens _depActivityType (\ s a -> s{_depActivityType = a}) - -instance AWSRequest DeprecateActivityType where - type Rs DeprecateActivityType = - DeprecateActivityTypeResponse - request = postJSON swf - response = receiveNull DeprecateActivityTypeResponse' - -instance Hashable DeprecateActivityType where - -instance NFData DeprecateActivityType where - -instance ToHeaders DeprecateActivityType where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.DeprecateActivityType" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON DeprecateActivityType where - toJSON DeprecateActivityType'{..} - = object - (catMaybes - [Just ("domain" .= _depDomain), - Just ("activityType" .= _depActivityType)]) - -instance ToPath DeprecateActivityType where - toPath = const "/" - -instance ToQuery DeprecateActivityType where - toQuery = const mempty - --- | /See:/ 'deprecateActivityTypeResponse' smart constructor. -data DeprecateActivityTypeResponse = - DeprecateActivityTypeResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DeprecateActivityTypeResponse' with the minimum fields required to make a request. --- -deprecateActivityTypeResponse - :: DeprecateActivityTypeResponse -deprecateActivityTypeResponse = DeprecateActivityTypeResponse' - - -instance NFData DeprecateActivityTypeResponse where diff --git a/gen/Network/AWS/SWF/DeprecateDomain.hs b/gen/Network/AWS/SWF/DeprecateDomain.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/DeprecateDomain.hs +++ /dev/null @@ -1,121 +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.SWF.DeprecateDomain --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Deprecates the specified domain. After a domain has been deprecated it cannot be used to create new workflow executions or register new types. However, you can still use visibility actions on this domain. Deprecating a domain also deprecates all activity and workflow types registered in the domain. Executions that were started before the domain was deprecated continues to run. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.DeprecateDomain - ( - -- * Creating a Request - deprecateDomain - , DeprecateDomain - -- * Request Lenses - , dName - - -- * Destructuring the Response - , deprecateDomainResponse - , DeprecateDomainResponse - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'deprecateDomain' smart constructor. -newtype DeprecateDomain = DeprecateDomain' - { _dName :: Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DeprecateDomain' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dName' - The name of the domain to deprecate. -deprecateDomain - :: Text -- ^ 'dName' - -> DeprecateDomain -deprecateDomain pName_ = DeprecateDomain' {_dName = pName_} - - --- | The name of the domain to deprecate. -dName :: Lens' DeprecateDomain Text -dName = lens _dName (\ s a -> s{_dName = a}) - -instance AWSRequest DeprecateDomain where - type Rs DeprecateDomain = DeprecateDomainResponse - request = postJSON swf - response = receiveNull DeprecateDomainResponse' - -instance Hashable DeprecateDomain where - -instance NFData DeprecateDomain where - -instance ToHeaders DeprecateDomain where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.DeprecateDomain" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON DeprecateDomain where - toJSON DeprecateDomain'{..} - = object (catMaybes [Just ("name" .= _dName)]) - -instance ToPath DeprecateDomain where - toPath = const "/" - -instance ToQuery DeprecateDomain where - toQuery = const mempty - --- | /See:/ 'deprecateDomainResponse' smart constructor. -data DeprecateDomainResponse = - DeprecateDomainResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DeprecateDomainResponse' with the minimum fields required to make a request. --- -deprecateDomainResponse - :: DeprecateDomainResponse -deprecateDomainResponse = DeprecateDomainResponse' - - -instance NFData DeprecateDomainResponse where diff --git a/gen/Network/AWS/SWF/DeprecateWorkflowType.hs b/gen/Network/AWS/SWF/DeprecateWorkflowType.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/DeprecateWorkflowType.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.SWF.DeprecateWorkflowType --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Deprecates the specified /workflow type/ . After a workflow type has been deprecated, you cannot create new executions of that type. Executions that were started before the type was deprecated continues to run. A deprecated workflow type may still be used when calling visibility actions. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the following parameters by using a @Condition@ element with the appropriate keys. --- --- * @workflowType.name@ : String constraint. The key is @swf:workflowType.name@ . --- --- * @workflowType.version@ : String constraint. The key is @swf:workflowType.version@ . --- --- --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.DeprecateWorkflowType - ( - -- * Creating a Request - deprecateWorkflowType - , DeprecateWorkflowType - -- * Request Lenses - , dDomain - , dWorkflowType - - -- * Destructuring the Response - , deprecateWorkflowTypeResponse - , DeprecateWorkflowTypeResponse - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'deprecateWorkflowType' smart constructor. -data DeprecateWorkflowType = DeprecateWorkflowType' - { _dDomain :: !Text - , _dWorkflowType :: !WorkflowType - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DeprecateWorkflowType' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dDomain' - The name of the domain in which the workflow type is registered. --- --- * 'dWorkflowType' - The workflow type to deprecate. -deprecateWorkflowType - :: Text -- ^ 'dDomain' - -> WorkflowType -- ^ 'dWorkflowType' - -> DeprecateWorkflowType -deprecateWorkflowType pDomain_ pWorkflowType_ = - DeprecateWorkflowType' {_dDomain = pDomain_, _dWorkflowType = pWorkflowType_} - - --- | The name of the domain in which the workflow type is registered. -dDomain :: Lens' DeprecateWorkflowType Text -dDomain = lens _dDomain (\ s a -> s{_dDomain = a}) - --- | The workflow type to deprecate. -dWorkflowType :: Lens' DeprecateWorkflowType WorkflowType -dWorkflowType = lens _dWorkflowType (\ s a -> s{_dWorkflowType = a}) - -instance AWSRequest DeprecateWorkflowType where - type Rs DeprecateWorkflowType = - DeprecateWorkflowTypeResponse - request = postJSON swf - response = receiveNull DeprecateWorkflowTypeResponse' - -instance Hashable DeprecateWorkflowType where - -instance NFData DeprecateWorkflowType where - -instance ToHeaders DeprecateWorkflowType where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.DeprecateWorkflowType" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON DeprecateWorkflowType where - toJSON DeprecateWorkflowType'{..} - = object - (catMaybes - [Just ("domain" .= _dDomain), - Just ("workflowType" .= _dWorkflowType)]) - -instance ToPath DeprecateWorkflowType where - toPath = const "/" - -instance ToQuery DeprecateWorkflowType where - toQuery = const mempty - --- | /See:/ 'deprecateWorkflowTypeResponse' smart constructor. -data DeprecateWorkflowTypeResponse = - DeprecateWorkflowTypeResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DeprecateWorkflowTypeResponse' with the minimum fields required to make a request. --- -deprecateWorkflowTypeResponse - :: DeprecateWorkflowTypeResponse -deprecateWorkflowTypeResponse = DeprecateWorkflowTypeResponse' - - -instance NFData DeprecateWorkflowTypeResponse where diff --git a/gen/Network/AWS/SWF/DescribeActivityType.hs b/gen/Network/AWS/SWF/DescribeActivityType.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/DescribeActivityType.hs +++ /dev/null @@ -1,184 +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.SWF.DescribeActivityType --- 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 the specified activity type. This includes configuration settings provided when the type was registered and other general information about the type. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the following parameters by using a @Condition@ element with the appropriate keys. --- --- * @activityType.name@ : String constraint. The key is @swf:activityType.name@ . --- --- * @activityType.version@ : String constraint. The key is @swf:activityType.version@ . --- --- --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.DescribeActivityType - ( - -- * Creating a Request - describeActivityType - , DescribeActivityType - -- * Request Lenses - , datDomain - , datActivityType - - -- * Destructuring the Response - , describeActivityTypeResponse - , DescribeActivityTypeResponse - -- * Response Lenses - , datrsResponseStatus - , datrsTypeInfo - , datrsConfiguration - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'describeActivityType' smart constructor. -data DescribeActivityType = DescribeActivityType' - { _datDomain :: !Text - , _datActivityType :: !ActivityType - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeActivityType' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'datDomain' - The name of the domain in which the activity type is registered. --- --- * 'datActivityType' - The activity type to get information about. Activity types are identified by the @name@ and @version@ that were supplied when the activity was registered. -describeActivityType - :: Text -- ^ 'datDomain' - -> ActivityType -- ^ 'datActivityType' - -> DescribeActivityType -describeActivityType pDomain_ pActivityType_ = - DescribeActivityType' - {_datDomain = pDomain_, _datActivityType = pActivityType_} - - --- | The name of the domain in which the activity type is registered. -datDomain :: Lens' DescribeActivityType Text -datDomain = lens _datDomain (\ s a -> s{_datDomain = a}) - --- | The activity type to get information about. Activity types are identified by the @name@ and @version@ that were supplied when the activity was registered. -datActivityType :: Lens' DescribeActivityType ActivityType -datActivityType = lens _datActivityType (\ s a -> s{_datActivityType = a}) - -instance AWSRequest DescribeActivityType where - type Rs DescribeActivityType = - DescribeActivityTypeResponse - request = postJSON swf - response - = receiveJSON - (\ s h x -> - DescribeActivityTypeResponse' <$> - (pure (fromEnum s)) <*> (x .:> "typeInfo") <*> - (x .:> "configuration")) - -instance Hashable DescribeActivityType where - -instance NFData DescribeActivityType where - -instance ToHeaders DescribeActivityType where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.DescribeActivityType" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON DescribeActivityType where - toJSON DescribeActivityType'{..} - = object - (catMaybes - [Just ("domain" .= _datDomain), - Just ("activityType" .= _datActivityType)]) - -instance ToPath DescribeActivityType where - toPath = const "/" - -instance ToQuery DescribeActivityType where - toQuery = const mempty - --- | Detailed information about an activity type. --- --- --- --- /See:/ 'describeActivityTypeResponse' smart constructor. -data DescribeActivityTypeResponse = DescribeActivityTypeResponse' - { _datrsResponseStatus :: !Int - , _datrsTypeInfo :: !ActivityTypeInfo - , _datrsConfiguration :: !ActivityTypeConfiguration - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeActivityTypeResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'datrsResponseStatus' - -- | The response status code. --- --- * 'datrsTypeInfo' - General information about the activity type. The status of activity type (returned in the ActivityTypeInfo structure) can be one of the following. * @REGISTERED@ – The type is registered and available. Workers supporting this type should be running. * @DEPRECATED@ – The type was deprecated using 'DeprecateActivityType' , but is still in use. You should keep workers supporting this type running. You cannot create new tasks of this type. --- --- * 'datrsConfiguration' - The configuration settings registered with the activity type. -describeActivityTypeResponse - :: Int -- ^ 'datrsResponseStatus' - -> ActivityTypeInfo -- ^ 'datrsTypeInfo' - -> ActivityTypeConfiguration -- ^ 'datrsConfiguration' - -> DescribeActivityTypeResponse -describeActivityTypeResponse pResponseStatus_ pTypeInfo_ pConfiguration_ = - DescribeActivityTypeResponse' - { _datrsResponseStatus = pResponseStatus_ - , _datrsTypeInfo = pTypeInfo_ - , _datrsConfiguration = pConfiguration_ - } - - --- | -- | The response status code. -datrsResponseStatus :: Lens' DescribeActivityTypeResponse Int -datrsResponseStatus = lens _datrsResponseStatus (\ s a -> s{_datrsResponseStatus = a}) - --- | General information about the activity type. The status of activity type (returned in the ActivityTypeInfo structure) can be one of the following. * @REGISTERED@ – The type is registered and available. Workers supporting this type should be running. * @DEPRECATED@ – The type was deprecated using 'DeprecateActivityType' , but is still in use. You should keep workers supporting this type running. You cannot create new tasks of this type. -datrsTypeInfo :: Lens' DescribeActivityTypeResponse ActivityTypeInfo -datrsTypeInfo = lens _datrsTypeInfo (\ s a -> s{_datrsTypeInfo = a}) - --- | The configuration settings registered with the activity type. -datrsConfiguration :: Lens' DescribeActivityTypeResponse ActivityTypeConfiguration -datrsConfiguration = lens _datrsConfiguration (\ s a -> s{_datrsConfiguration = a}) - -instance NFData DescribeActivityTypeResponse where diff --git a/gen/Network/AWS/SWF/DescribeDomain.hs b/gen/Network/AWS/SWF/DescribeDomain.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/DescribeDomain.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.SWF.DescribeDomain --- 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 the specified domain, including description and status. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.DescribeDomain - ( - -- * Creating a Request - describeDomain - , DescribeDomain - -- * Request Lenses - , ddName - - -- * Destructuring the Response - , describeDomainResponse - , DescribeDomainResponse - -- * Response Lenses - , ddrsResponseStatus - , ddrsDomainInfo - , ddrsConfiguration - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'describeDomain' smart constructor. -newtype DescribeDomain = DescribeDomain' - { _ddName :: Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeDomain' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ddName' - The name of the domain to describe. -describeDomain - :: Text -- ^ 'ddName' - -> DescribeDomain -describeDomain pName_ = DescribeDomain' {_ddName = pName_} - - --- | The name of the domain to describe. -ddName :: Lens' DescribeDomain Text -ddName = lens _ddName (\ s a -> s{_ddName = a}) - -instance AWSRequest DescribeDomain where - type Rs DescribeDomain = DescribeDomainResponse - request = postJSON swf - response - = receiveJSON - (\ s h x -> - DescribeDomainResponse' <$> - (pure (fromEnum s)) <*> (x .:> "domainInfo") <*> - (x .:> "configuration")) - -instance Hashable DescribeDomain where - -instance NFData DescribeDomain where - -instance ToHeaders DescribeDomain where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.DescribeDomain" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON DescribeDomain where - toJSON DescribeDomain'{..} - = object (catMaybes [Just ("name" .= _ddName)]) - -instance ToPath DescribeDomain where - toPath = const "/" - -instance ToQuery DescribeDomain where - toQuery = const mempty - --- | Contains details of a domain. --- --- --- --- /See:/ 'describeDomainResponse' smart constructor. -data DescribeDomainResponse = DescribeDomainResponse' - { _ddrsResponseStatus :: !Int - , _ddrsDomainInfo :: !DomainInfo - , _ddrsConfiguration :: !DomainConfiguration - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeDomainResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ddrsResponseStatus' - -- | The response status code. --- --- * 'ddrsDomainInfo' - The basic information about a domain, such as its name, status, and description. --- --- * 'ddrsConfiguration' - The domain configuration. Currently, this includes only the domain's retention period. -describeDomainResponse - :: Int -- ^ 'ddrsResponseStatus' - -> DomainInfo -- ^ 'ddrsDomainInfo' - -> DomainConfiguration -- ^ 'ddrsConfiguration' - -> DescribeDomainResponse -describeDomainResponse pResponseStatus_ pDomainInfo_ pConfiguration_ = - DescribeDomainResponse' - { _ddrsResponseStatus = pResponseStatus_ - , _ddrsDomainInfo = pDomainInfo_ - , _ddrsConfiguration = pConfiguration_ - } - - --- | -- | The response status code. -ddrsResponseStatus :: Lens' DescribeDomainResponse Int -ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a}) - --- | The basic information about a domain, such as its name, status, and description. -ddrsDomainInfo :: Lens' DescribeDomainResponse DomainInfo -ddrsDomainInfo = lens _ddrsDomainInfo (\ s a -> s{_ddrsDomainInfo = a}) - --- | The domain configuration. Currently, this includes only the domain's retention period. -ddrsConfiguration :: Lens' DescribeDomainResponse DomainConfiguration -ddrsConfiguration = lens _ddrsConfiguration (\ s a -> s{_ddrsConfiguration = a}) - -instance NFData DescribeDomainResponse where diff --git a/gen/Network/AWS/SWF/DescribeWorkflowExecution.hs b/gen/Network/AWS/SWF/DescribeWorkflowExecution.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/DescribeWorkflowExecution.hs +++ /dev/null @@ -1,211 +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.SWF.DescribeWorkflowExecution --- 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 the specified workflow execution including its type and some statistics. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.DescribeWorkflowExecution - ( - -- * Creating a Request - describeWorkflowExecution - , DescribeWorkflowExecution - -- * Request Lenses - , dweDomain - , dweExecution - - -- * Destructuring the Response - , describeWorkflowExecutionResponse - , DescribeWorkflowExecutionResponse - -- * Response Lenses - , dwersLatestActivityTaskTimestamp - , dwersLatestExecutionContext - , dwersResponseStatus - , dwersExecutionInfo - , dwersExecutionConfiguration - , dwersOpenCounts - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'describeWorkflowExecution' smart constructor. -data DescribeWorkflowExecution = DescribeWorkflowExecution' - { _dweDomain :: !Text - , _dweExecution :: !WorkflowExecution - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeWorkflowExecution' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dweDomain' - The name of the domain containing the workflow execution. --- --- * 'dweExecution' - The workflow execution to describe. -describeWorkflowExecution - :: Text -- ^ 'dweDomain' - -> WorkflowExecution -- ^ 'dweExecution' - -> DescribeWorkflowExecution -describeWorkflowExecution pDomain_ pExecution_ = - DescribeWorkflowExecution' - {_dweDomain = pDomain_, _dweExecution = pExecution_} - - --- | The name of the domain containing the workflow execution. -dweDomain :: Lens' DescribeWorkflowExecution Text -dweDomain = lens _dweDomain (\ s a -> s{_dweDomain = a}) - --- | The workflow execution to describe. -dweExecution :: Lens' DescribeWorkflowExecution WorkflowExecution -dweExecution = lens _dweExecution (\ s a -> s{_dweExecution = a}) - -instance AWSRequest DescribeWorkflowExecution where - type Rs DescribeWorkflowExecution = - DescribeWorkflowExecutionResponse - request = postJSON swf - response - = receiveJSON - (\ s h x -> - DescribeWorkflowExecutionResponse' <$> - (x .?> "latestActivityTaskTimestamp") <*> - (x .?> "latestExecutionContext") - <*> (pure (fromEnum s)) - <*> (x .:> "executionInfo") - <*> (x .:> "executionConfiguration") - <*> (x .:> "openCounts")) - -instance Hashable DescribeWorkflowExecution where - -instance NFData DescribeWorkflowExecution where - -instance ToHeaders DescribeWorkflowExecution where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.DescribeWorkflowExecution" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON DescribeWorkflowExecution where - toJSON DescribeWorkflowExecution'{..} - = object - (catMaybes - [Just ("domain" .= _dweDomain), - Just ("execution" .= _dweExecution)]) - -instance ToPath DescribeWorkflowExecution where - toPath = const "/" - -instance ToQuery DescribeWorkflowExecution where - toQuery = const mempty - --- | Contains details about a workflow execution. --- --- --- --- /See:/ 'describeWorkflowExecutionResponse' smart constructor. -data DescribeWorkflowExecutionResponse = DescribeWorkflowExecutionResponse' - { _dwersLatestActivityTaskTimestamp :: !(Maybe POSIX) - , _dwersLatestExecutionContext :: !(Maybe Text) - , _dwersResponseStatus :: !Int - , _dwersExecutionInfo :: !WorkflowExecutionInfo - , _dwersExecutionConfiguration :: !WorkflowExecutionConfiguration - , _dwersOpenCounts :: !WorkflowExecutionOpenCounts - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeWorkflowExecutionResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dwersLatestActivityTaskTimestamp' - The time when the last activity task was scheduled for this workflow execution. You can use this information to determine if the workflow has not made progress for an unusually long period of time and might require a corrective action. --- --- * 'dwersLatestExecutionContext' - The latest executionContext provided by the decider for this workflow execution. A decider can provide an executionContext (a free-form string) when closing a decision task using 'RespondDecisionTaskCompleted' . --- --- * 'dwersResponseStatus' - -- | The response status code. --- --- * 'dwersExecutionInfo' - Information about the workflow execution. --- --- * 'dwersExecutionConfiguration' - The configuration settings for this workflow execution including timeout values, tasklist etc. --- --- * 'dwersOpenCounts' - The number of tasks for this workflow execution. This includes open and closed tasks of all types. -describeWorkflowExecutionResponse - :: Int -- ^ 'dwersResponseStatus' - -> WorkflowExecutionInfo -- ^ 'dwersExecutionInfo' - -> WorkflowExecutionConfiguration -- ^ 'dwersExecutionConfiguration' - -> WorkflowExecutionOpenCounts -- ^ 'dwersOpenCounts' - -> DescribeWorkflowExecutionResponse -describeWorkflowExecutionResponse pResponseStatus_ pExecutionInfo_ pExecutionConfiguration_ pOpenCounts_ = - DescribeWorkflowExecutionResponse' - { _dwersLatestActivityTaskTimestamp = Nothing - , _dwersLatestExecutionContext = Nothing - , _dwersResponseStatus = pResponseStatus_ - , _dwersExecutionInfo = pExecutionInfo_ - , _dwersExecutionConfiguration = pExecutionConfiguration_ - , _dwersOpenCounts = pOpenCounts_ - } - - --- | The time when the last activity task was scheduled for this workflow execution. You can use this information to determine if the workflow has not made progress for an unusually long period of time and might require a corrective action. -dwersLatestActivityTaskTimestamp :: Lens' DescribeWorkflowExecutionResponse (Maybe UTCTime) -dwersLatestActivityTaskTimestamp = lens _dwersLatestActivityTaskTimestamp (\ s a -> s{_dwersLatestActivityTaskTimestamp = a}) . mapping _Time - --- | The latest executionContext provided by the decider for this workflow execution. A decider can provide an executionContext (a free-form string) when closing a decision task using 'RespondDecisionTaskCompleted' . -dwersLatestExecutionContext :: Lens' DescribeWorkflowExecutionResponse (Maybe Text) -dwersLatestExecutionContext = lens _dwersLatestExecutionContext (\ s a -> s{_dwersLatestExecutionContext = a}) - --- | -- | The response status code. -dwersResponseStatus :: Lens' DescribeWorkflowExecutionResponse Int -dwersResponseStatus = lens _dwersResponseStatus (\ s a -> s{_dwersResponseStatus = a}) - --- | Information about the workflow execution. -dwersExecutionInfo :: Lens' DescribeWorkflowExecutionResponse WorkflowExecutionInfo -dwersExecutionInfo = lens _dwersExecutionInfo (\ s a -> s{_dwersExecutionInfo = a}) - --- | The configuration settings for this workflow execution including timeout values, tasklist etc. -dwersExecutionConfiguration :: Lens' DescribeWorkflowExecutionResponse WorkflowExecutionConfiguration -dwersExecutionConfiguration = lens _dwersExecutionConfiguration (\ s a -> s{_dwersExecutionConfiguration = a}) - --- | The number of tasks for this workflow execution. This includes open and closed tasks of all types. -dwersOpenCounts :: Lens' DescribeWorkflowExecutionResponse WorkflowExecutionOpenCounts -dwersOpenCounts = lens _dwersOpenCounts (\ s a -> s{_dwersOpenCounts = a}) - -instance NFData DescribeWorkflowExecutionResponse - where diff --git a/gen/Network/AWS/SWF/DescribeWorkflowType.hs b/gen/Network/AWS/SWF/DescribeWorkflowType.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/DescribeWorkflowType.hs +++ /dev/null @@ -1,184 +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.SWF.DescribeWorkflowType --- 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 the specified /workflow type/ . This includes configuration settings specified when the type was registered and other information such as creation date, current status, etc. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the following parameters by using a @Condition@ element with the appropriate keys. --- --- * @workflowType.name@ : String constraint. The key is @swf:workflowType.name@ . --- --- * @workflowType.version@ : String constraint. The key is @swf:workflowType.version@ . --- --- --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.DescribeWorkflowType - ( - -- * Creating a Request - describeWorkflowType - , DescribeWorkflowType - -- * Request Lenses - , dwtDomain - , dwtWorkflowType - - -- * Destructuring the Response - , describeWorkflowTypeResponse - , DescribeWorkflowTypeResponse - -- * Response Lenses - , dwtrsResponseStatus - , dwtrsTypeInfo - , dwtrsConfiguration - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'describeWorkflowType' smart constructor. -data DescribeWorkflowType = DescribeWorkflowType' - { _dwtDomain :: !Text - , _dwtWorkflowType :: !WorkflowType - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeWorkflowType' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dwtDomain' - The name of the domain in which this workflow type is registered. --- --- * 'dwtWorkflowType' - The workflow type to describe. -describeWorkflowType - :: Text -- ^ 'dwtDomain' - -> WorkflowType -- ^ 'dwtWorkflowType' - -> DescribeWorkflowType -describeWorkflowType pDomain_ pWorkflowType_ = - DescribeWorkflowType' - {_dwtDomain = pDomain_, _dwtWorkflowType = pWorkflowType_} - - --- | The name of the domain in which this workflow type is registered. -dwtDomain :: Lens' DescribeWorkflowType Text -dwtDomain = lens _dwtDomain (\ s a -> s{_dwtDomain = a}) - --- | The workflow type to describe. -dwtWorkflowType :: Lens' DescribeWorkflowType WorkflowType -dwtWorkflowType = lens _dwtWorkflowType (\ s a -> s{_dwtWorkflowType = a}) - -instance AWSRequest DescribeWorkflowType where - type Rs DescribeWorkflowType = - DescribeWorkflowTypeResponse - request = postJSON swf - response - = receiveJSON - (\ s h x -> - DescribeWorkflowTypeResponse' <$> - (pure (fromEnum s)) <*> (x .:> "typeInfo") <*> - (x .:> "configuration")) - -instance Hashable DescribeWorkflowType where - -instance NFData DescribeWorkflowType where - -instance ToHeaders DescribeWorkflowType where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.DescribeWorkflowType" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON DescribeWorkflowType where - toJSON DescribeWorkflowType'{..} - = object - (catMaybes - [Just ("domain" .= _dwtDomain), - Just ("workflowType" .= _dwtWorkflowType)]) - -instance ToPath DescribeWorkflowType where - toPath = const "/" - -instance ToQuery DescribeWorkflowType where - toQuery = const mempty - --- | Contains details about a workflow type. --- --- --- --- /See:/ 'describeWorkflowTypeResponse' smart constructor. -data DescribeWorkflowTypeResponse = DescribeWorkflowTypeResponse' - { _dwtrsResponseStatus :: !Int - , _dwtrsTypeInfo :: !WorkflowTypeInfo - , _dwtrsConfiguration :: !WorkflowTypeConfiguration - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DescribeWorkflowTypeResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dwtrsResponseStatus' - -- | The response status code. --- --- * 'dwtrsTypeInfo' - General information about the workflow type. The status of the workflow type (returned in the WorkflowTypeInfo structure) can be one of the following. * @REGISTERED@ – The type is registered and available. Workers supporting this type should be running. * @DEPRECATED@ – The type was deprecated using 'DeprecateWorkflowType' , but is still in use. You should keep workers supporting this type running. You cannot create new workflow executions of this type. --- --- * 'dwtrsConfiguration' - Configuration settings of the workflow type registered through 'RegisterWorkflowType' -describeWorkflowTypeResponse - :: Int -- ^ 'dwtrsResponseStatus' - -> WorkflowTypeInfo -- ^ 'dwtrsTypeInfo' - -> WorkflowTypeConfiguration -- ^ 'dwtrsConfiguration' - -> DescribeWorkflowTypeResponse -describeWorkflowTypeResponse pResponseStatus_ pTypeInfo_ pConfiguration_ = - DescribeWorkflowTypeResponse' - { _dwtrsResponseStatus = pResponseStatus_ - , _dwtrsTypeInfo = pTypeInfo_ - , _dwtrsConfiguration = pConfiguration_ - } - - --- | -- | The response status code. -dwtrsResponseStatus :: Lens' DescribeWorkflowTypeResponse Int -dwtrsResponseStatus = lens _dwtrsResponseStatus (\ s a -> s{_dwtrsResponseStatus = a}) - --- | General information about the workflow type. The status of the workflow type (returned in the WorkflowTypeInfo structure) can be one of the following. * @REGISTERED@ – The type is registered and available. Workers supporting this type should be running. * @DEPRECATED@ – The type was deprecated using 'DeprecateWorkflowType' , but is still in use. You should keep workers supporting this type running. You cannot create new workflow executions of this type. -dwtrsTypeInfo :: Lens' DescribeWorkflowTypeResponse WorkflowTypeInfo -dwtrsTypeInfo = lens _dwtrsTypeInfo (\ s a -> s{_dwtrsTypeInfo = a}) - --- | Configuration settings of the workflow type registered through 'RegisterWorkflowType' -dwtrsConfiguration :: Lens' DescribeWorkflowTypeResponse WorkflowTypeConfiguration -dwtrsConfiguration = lens _dwtrsConfiguration (\ s a -> s{_dwtrsConfiguration = a}) - -instance NFData DescribeWorkflowTypeResponse where diff --git a/gen/Network/AWS/SWF/GetWorkflowExecutionHistory.hs b/gen/Network/AWS/SWF/GetWorkflowExecutionHistory.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/GetWorkflowExecutionHistory.hs +++ /dev/null @@ -1,220 +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.SWF.GetWorkflowExecutionHistory --- 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 history of the specified workflow execution. The results may be split into multiple pages. To retrieve subsequent pages, make the call again using the @nextPageToken@ returned by the initial call. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- This operation returns paginated results. -module Network.AWS.SWF.GetWorkflowExecutionHistory - ( - -- * Creating a Request - getWorkflowExecutionHistory - , GetWorkflowExecutionHistory - -- * Request Lenses - , gwehNextPageToken - , gwehReverseOrder - , gwehMaximumPageSize - , gwehDomain - , gwehExecution - - -- * Destructuring the Response - , getWorkflowExecutionHistoryResponse - , GetWorkflowExecutionHistoryResponse - -- * Response Lenses - , gwehrsNextPageToken - , gwehrsResponseStatus - , gwehrsEvents - ) where - -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'getWorkflowExecutionHistory' smart constructor. -data GetWorkflowExecutionHistory = GetWorkflowExecutionHistory' - { _gwehNextPageToken :: !(Maybe Text) - , _gwehReverseOrder :: !(Maybe Bool) - , _gwehMaximumPageSize :: !(Maybe Nat) - , _gwehDomain :: !Text - , _gwehExecution :: !WorkflowExecution - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'GetWorkflowExecutionHistory' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gwehNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. --- --- * 'gwehReverseOrder' - When set to @true@ , returns the events in reverse order. By default the results are returned in ascending order of the @eventTimeStamp@ of the events. --- --- * 'gwehMaximumPageSize' - The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. --- --- * 'gwehDomain' - The name of the domain containing the workflow execution. --- --- * 'gwehExecution' - Specifies the workflow execution for which to return the history. -getWorkflowExecutionHistory - :: Text -- ^ 'gwehDomain' - -> WorkflowExecution -- ^ 'gwehExecution' - -> GetWorkflowExecutionHistory -getWorkflowExecutionHistory pDomain_ pExecution_ = - GetWorkflowExecutionHistory' - { _gwehNextPageToken = Nothing - , _gwehReverseOrder = Nothing - , _gwehMaximumPageSize = Nothing - , _gwehDomain = pDomain_ - , _gwehExecution = pExecution_ - } - - --- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. -gwehNextPageToken :: Lens' GetWorkflowExecutionHistory (Maybe Text) -gwehNextPageToken = lens _gwehNextPageToken (\ s a -> s{_gwehNextPageToken = a}) - --- | When set to @true@ , returns the events in reverse order. By default the results are returned in ascending order of the @eventTimeStamp@ of the events. -gwehReverseOrder :: Lens' GetWorkflowExecutionHistory (Maybe Bool) -gwehReverseOrder = lens _gwehReverseOrder (\ s a -> s{_gwehReverseOrder = a}) - --- | The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. -gwehMaximumPageSize :: Lens' GetWorkflowExecutionHistory (Maybe Natural) -gwehMaximumPageSize = lens _gwehMaximumPageSize (\ s a -> s{_gwehMaximumPageSize = a}) . mapping _Nat - --- | The name of the domain containing the workflow execution. -gwehDomain :: Lens' GetWorkflowExecutionHistory Text -gwehDomain = lens _gwehDomain (\ s a -> s{_gwehDomain = a}) - --- | Specifies the workflow execution for which to return the history. -gwehExecution :: Lens' GetWorkflowExecutionHistory WorkflowExecution -gwehExecution = lens _gwehExecution (\ s a -> s{_gwehExecution = a}) - -instance AWSPager GetWorkflowExecutionHistory where - page rq rs - | stop (rs ^. gwehrsNextPageToken) = Nothing - | stop (rs ^. gwehrsEvents) = Nothing - | otherwise = - Just $ rq & - gwehNextPageToken .~ rs ^. gwehrsNextPageToken - -instance AWSRequest GetWorkflowExecutionHistory where - type Rs GetWorkflowExecutionHistory = - GetWorkflowExecutionHistoryResponse - request = postJSON swf - response - = receiveJSON - (\ s h x -> - GetWorkflowExecutionHistoryResponse' <$> - (x .?> "nextPageToken") <*> (pure (fromEnum s)) <*> - (x .?> "events" .!@ mempty)) - -instance Hashable GetWorkflowExecutionHistory where - -instance NFData GetWorkflowExecutionHistory where - -instance ToHeaders GetWorkflowExecutionHistory where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.GetWorkflowExecutionHistory" - :: ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON GetWorkflowExecutionHistory where - toJSON GetWorkflowExecutionHistory'{..} - = object - (catMaybes - [("nextPageToken" .=) <$> _gwehNextPageToken, - ("reverseOrder" .=) <$> _gwehReverseOrder, - ("maximumPageSize" .=) <$> _gwehMaximumPageSize, - Just ("domain" .= _gwehDomain), - Just ("execution" .= _gwehExecution)]) - -instance ToPath GetWorkflowExecutionHistory where - toPath = const "/" - -instance ToQuery GetWorkflowExecutionHistory where - toQuery = const mempty - --- | Paginated representation of a workflow history for a workflow execution. This is the up to date, complete and authoritative record of the events related to all tasks and events in the life of the workflow execution. --- --- --- --- /See:/ 'getWorkflowExecutionHistoryResponse' smart constructor. -data GetWorkflowExecutionHistoryResponse = GetWorkflowExecutionHistoryResponse' - { _gwehrsNextPageToken :: !(Maybe Text) - , _gwehrsResponseStatus :: !Int - , _gwehrsEvents :: ![HistoryEvent] - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'GetWorkflowExecutionHistoryResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'gwehrsNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. --- --- * 'gwehrsResponseStatus' - -- | The response status code. --- --- * 'gwehrsEvents' - The list of history events. -getWorkflowExecutionHistoryResponse - :: Int -- ^ 'gwehrsResponseStatus' - -> GetWorkflowExecutionHistoryResponse -getWorkflowExecutionHistoryResponse pResponseStatus_ = - GetWorkflowExecutionHistoryResponse' - { _gwehrsNextPageToken = Nothing - , _gwehrsResponseStatus = pResponseStatus_ - , _gwehrsEvents = mempty - } - - --- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. -gwehrsNextPageToken :: Lens' GetWorkflowExecutionHistoryResponse (Maybe Text) -gwehrsNextPageToken = lens _gwehrsNextPageToken (\ s a -> s{_gwehrsNextPageToken = a}) - --- | -- | The response status code. -gwehrsResponseStatus :: Lens' GetWorkflowExecutionHistoryResponse Int -gwehrsResponseStatus = lens _gwehrsResponseStatus (\ s a -> s{_gwehrsResponseStatus = a}) - --- | The list of history events. -gwehrsEvents :: Lens' GetWorkflowExecutionHistoryResponse [HistoryEvent] -gwehrsEvents = lens _gwehrsEvents (\ s a -> s{_gwehrsEvents = a}) . _Coerce - -instance NFData GetWorkflowExecutionHistoryResponse - where diff --git a/gen/Network/AWS/SWF/ListActivityTypes.hs b/gen/Network/AWS/SWF/ListActivityTypes.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/ListActivityTypes.hs +++ /dev/null @@ -1,229 +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.SWF.ListActivityTypes --- 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 all activities registered in the specified domain that match the specified name and registration status. The result includes information like creation date, current status of the activity, etc. The results may be split into multiple pages. To retrieve subsequent pages, make the call again using the @nextPageToken@ returned by the initial call. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- This operation returns paginated results. -module Network.AWS.SWF.ListActivityTypes - ( - -- * Creating a Request - listActivityTypes - , ListActivityTypes - -- * Request Lenses - , latNextPageToken - , latReverseOrder - , latName - , latMaximumPageSize - , latDomain - , latRegistrationStatus - - -- * Destructuring the Response - , listActivityTypesResponse - , ListActivityTypesResponse - -- * Response Lenses - , latrsNextPageToken - , latrsResponseStatus - , latrsTypeInfos - ) where - -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'listActivityTypes' smart constructor. -data ListActivityTypes = ListActivityTypes' - { _latNextPageToken :: !(Maybe Text) - , _latReverseOrder :: !(Maybe Bool) - , _latName :: !(Maybe Text) - , _latMaximumPageSize :: !(Maybe Nat) - , _latDomain :: !Text - , _latRegistrationStatus :: !RegistrationStatus - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListActivityTypes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'latNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. --- --- * 'latReverseOrder' - When set to @true@ , returns the results in reverse order. By default, the results are returned in ascending alphabetical order by @name@ of the activity types. --- --- * 'latName' - If specified, only lists the activity types that have this name. --- --- * 'latMaximumPageSize' - The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. --- --- * 'latDomain' - The name of the domain in which the activity types have been registered. --- --- * 'latRegistrationStatus' - Specifies the registration status of the activity types to list. -listActivityTypes - :: Text -- ^ 'latDomain' - -> RegistrationStatus -- ^ 'latRegistrationStatus' - -> ListActivityTypes -listActivityTypes pDomain_ pRegistrationStatus_ = - ListActivityTypes' - { _latNextPageToken = Nothing - , _latReverseOrder = Nothing - , _latName = Nothing - , _latMaximumPageSize = Nothing - , _latDomain = pDomain_ - , _latRegistrationStatus = pRegistrationStatus_ - } - - --- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. -latNextPageToken :: Lens' ListActivityTypes (Maybe Text) -latNextPageToken = lens _latNextPageToken (\ s a -> s{_latNextPageToken = a}) - --- | When set to @true@ , returns the results in reverse order. By default, the results are returned in ascending alphabetical order by @name@ of the activity types. -latReverseOrder :: Lens' ListActivityTypes (Maybe Bool) -latReverseOrder = lens _latReverseOrder (\ s a -> s{_latReverseOrder = a}) - --- | If specified, only lists the activity types that have this name. -latName :: Lens' ListActivityTypes (Maybe Text) -latName = lens _latName (\ s a -> s{_latName = a}) - --- | The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. -latMaximumPageSize :: Lens' ListActivityTypes (Maybe Natural) -latMaximumPageSize = lens _latMaximumPageSize (\ s a -> s{_latMaximumPageSize = a}) . mapping _Nat - --- | The name of the domain in which the activity types have been registered. -latDomain :: Lens' ListActivityTypes Text -latDomain = lens _latDomain (\ s a -> s{_latDomain = a}) - --- | Specifies the registration status of the activity types to list. -latRegistrationStatus :: Lens' ListActivityTypes RegistrationStatus -latRegistrationStatus = lens _latRegistrationStatus (\ s a -> s{_latRegistrationStatus = a}) - -instance AWSPager ListActivityTypes where - page rq rs - | stop (rs ^. latrsNextPageToken) = Nothing - | stop (rs ^. latrsTypeInfos) = Nothing - | otherwise = - Just $ rq & - latNextPageToken .~ rs ^. latrsNextPageToken - -instance AWSRequest ListActivityTypes where - type Rs ListActivityTypes = ListActivityTypesResponse - request = postJSON swf - response - = receiveJSON - (\ s h x -> - ListActivityTypesResponse' <$> - (x .?> "nextPageToken") <*> (pure (fromEnum s)) <*> - (x .?> "typeInfos" .!@ mempty)) - -instance Hashable ListActivityTypes where - -instance NFData ListActivityTypes where - -instance ToHeaders ListActivityTypes where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.ListActivityTypes" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON ListActivityTypes where - toJSON ListActivityTypes'{..} - = object - (catMaybes - [("nextPageToken" .=) <$> _latNextPageToken, - ("reverseOrder" .=) <$> _latReverseOrder, - ("name" .=) <$> _latName, - ("maximumPageSize" .=) <$> _latMaximumPageSize, - Just ("domain" .= _latDomain), - Just - ("registrationStatus" .= _latRegistrationStatus)]) - -instance ToPath ListActivityTypes where - toPath = const "/" - -instance ToQuery ListActivityTypes where - toQuery = const mempty - --- | Contains a paginated list of activity type information structures. --- --- --- --- /See:/ 'listActivityTypesResponse' smart constructor. -data ListActivityTypesResponse = ListActivityTypesResponse' - { _latrsNextPageToken :: !(Maybe Text) - , _latrsResponseStatus :: !Int - , _latrsTypeInfos :: ![ActivityTypeInfo] - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListActivityTypesResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'latrsNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. --- --- * 'latrsResponseStatus' - -- | The response status code. --- --- * 'latrsTypeInfos' - List of activity type information. -listActivityTypesResponse - :: Int -- ^ 'latrsResponseStatus' - -> ListActivityTypesResponse -listActivityTypesResponse pResponseStatus_ = - ListActivityTypesResponse' - { _latrsNextPageToken = Nothing - , _latrsResponseStatus = pResponseStatus_ - , _latrsTypeInfos = mempty - } - - --- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. -latrsNextPageToken :: Lens' ListActivityTypesResponse (Maybe Text) -latrsNextPageToken = lens _latrsNextPageToken (\ s a -> s{_latrsNextPageToken = a}) - --- | -- | The response status code. -latrsResponseStatus :: Lens' ListActivityTypesResponse Int -latrsResponseStatus = lens _latrsResponseStatus (\ s a -> s{_latrsResponseStatus = a}) - --- | List of activity type information. -latrsTypeInfos :: Lens' ListActivityTypesResponse [ActivityTypeInfo] -latrsTypeInfos = lens _latrsTypeInfos (\ s a -> s{_latrsTypeInfos = a}) . _Coerce - -instance NFData ListActivityTypesResponse where diff --git a/gen/Network/AWS/SWF/ListClosedWorkflowExecutions.hs b/gen/Network/AWS/SWF/ListClosedWorkflowExecutions.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/ListClosedWorkflowExecutions.hs +++ /dev/null @@ -1,225 +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.SWF.ListClosedWorkflowExecutions --- 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 list of closed workflow executions in the specified domain that meet the filtering criteria. The results may be split into multiple pages. To retrieve subsequent pages, make the call again using the nextPageToken returned by the initial call. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the following parameters by using a @Condition@ element with the appropriate keys. --- --- * @tagFilter.tag@ : String constraint. The key is @swf:tagFilter.tag@ . --- --- * @typeFilter.name@ : String constraint. The key is @swf:typeFilter.name@ . --- --- * @typeFilter.version@ : String constraint. The key is @swf:typeFilter.version@ . --- --- --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- This operation returns paginated results. -module Network.AWS.SWF.ListClosedWorkflowExecutions - ( - -- * Creating a Request - listClosedWorkflowExecutions - , ListClosedWorkflowExecutions - -- * Request Lenses - , lcweNextPageToken - , lcweExecutionFilter - , lcweCloseStatusFilter - , lcweTypeFilter - , lcweCloseTimeFilter - , lcweReverseOrder - , lcweTagFilter - , lcweStartTimeFilter - , lcweMaximumPageSize - , lcweDomain - - -- * Destructuring the Response - , workflowExecutionInfos - , WorkflowExecutionInfos - -- * Response Lenses - , weiNextPageToken - , weiExecutionInfos - ) where - -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'listClosedWorkflowExecutions' smart constructor. -data ListClosedWorkflowExecutions = ListClosedWorkflowExecutions' - { _lcweNextPageToken :: !(Maybe Text) - , _lcweExecutionFilter :: !(Maybe WorkflowExecutionFilter) - , _lcweCloseStatusFilter :: !(Maybe CloseStatusFilter) - , _lcweTypeFilter :: !(Maybe WorkflowTypeFilter) - , _lcweCloseTimeFilter :: !(Maybe ExecutionTimeFilter) - , _lcweReverseOrder :: !(Maybe Bool) - , _lcweTagFilter :: !(Maybe TagFilter) - , _lcweStartTimeFilter :: !(Maybe ExecutionTimeFilter) - , _lcweMaximumPageSize :: !(Maybe Nat) - , _lcweDomain :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListClosedWorkflowExecutions' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lcweNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. --- --- * 'lcweExecutionFilter' - If specified, only workflow executions matching the workflow ID specified in the filter are returned. --- --- * 'lcweCloseStatusFilter' - If specified, only workflow executions that match this /close status/ are listed. For example, if TERMINATED is specified, then only TERMINATED workflow executions are listed. --- --- * 'lcweTypeFilter' - If specified, only executions of the type specified in the filter are returned. --- --- * 'lcweCloseTimeFilter' - If specified, the workflow executions are included in the returned results based on whether their close times are within the range specified by this filter. Also, if this parameter is specified, the returned results are ordered by their close times. --- --- * 'lcweReverseOrder' - When set to @true@ , returns the results in reverse order. By default the results are returned in descending order of the start or the close time of the executions. --- --- * 'lcweTagFilter' - If specified, only executions that have the matching tag are listed. --- --- * 'lcweStartTimeFilter' - If specified, the workflow executions are included in the returned results based on whether their start times are within the range specified by this filter. Also, if this parameter is specified, the returned results are ordered by their start times. --- --- * 'lcweMaximumPageSize' - The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. --- --- * 'lcweDomain' - The name of the domain that contains the workflow executions to list. -listClosedWorkflowExecutions - :: Text -- ^ 'lcweDomain' - -> ListClosedWorkflowExecutions -listClosedWorkflowExecutions pDomain_ = - ListClosedWorkflowExecutions' - { _lcweNextPageToken = Nothing - , _lcweExecutionFilter = Nothing - , _lcweCloseStatusFilter = Nothing - , _lcweTypeFilter = Nothing - , _lcweCloseTimeFilter = Nothing - , _lcweReverseOrder = Nothing - , _lcweTagFilter = Nothing - , _lcweStartTimeFilter = Nothing - , _lcweMaximumPageSize = Nothing - , _lcweDomain = pDomain_ - } - - --- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. -lcweNextPageToken :: Lens' ListClosedWorkflowExecutions (Maybe Text) -lcweNextPageToken = lens _lcweNextPageToken (\ s a -> s{_lcweNextPageToken = a}) - --- | If specified, only workflow executions matching the workflow ID specified in the filter are returned. -lcweExecutionFilter :: Lens' ListClosedWorkflowExecutions (Maybe WorkflowExecutionFilter) -lcweExecutionFilter = lens _lcweExecutionFilter (\ s a -> s{_lcweExecutionFilter = a}) - --- | If specified, only workflow executions that match this /close status/ are listed. For example, if TERMINATED is specified, then only TERMINATED workflow executions are listed. -lcweCloseStatusFilter :: Lens' ListClosedWorkflowExecutions (Maybe CloseStatusFilter) -lcweCloseStatusFilter = lens _lcweCloseStatusFilter (\ s a -> s{_lcweCloseStatusFilter = a}) - --- | If specified, only executions of the type specified in the filter are returned. -lcweTypeFilter :: Lens' ListClosedWorkflowExecutions (Maybe WorkflowTypeFilter) -lcweTypeFilter = lens _lcweTypeFilter (\ s a -> s{_lcweTypeFilter = a}) - --- | If specified, the workflow executions are included in the returned results based on whether their close times are within the range specified by this filter. Also, if this parameter is specified, the returned results are ordered by their close times. -lcweCloseTimeFilter :: Lens' ListClosedWorkflowExecutions (Maybe ExecutionTimeFilter) -lcweCloseTimeFilter = lens _lcweCloseTimeFilter (\ s a -> s{_lcweCloseTimeFilter = a}) - --- | When set to @true@ , returns the results in reverse order. By default the results are returned in descending order of the start or the close time of the executions. -lcweReverseOrder :: Lens' ListClosedWorkflowExecutions (Maybe Bool) -lcweReverseOrder = lens _lcweReverseOrder (\ s a -> s{_lcweReverseOrder = a}) - --- | If specified, only executions that have the matching tag are listed. -lcweTagFilter :: Lens' ListClosedWorkflowExecutions (Maybe TagFilter) -lcweTagFilter = lens _lcweTagFilter (\ s a -> s{_lcweTagFilter = a}) - --- | If specified, the workflow executions are included in the returned results based on whether their start times are within the range specified by this filter. Also, if this parameter is specified, the returned results are ordered by their start times. -lcweStartTimeFilter :: Lens' ListClosedWorkflowExecutions (Maybe ExecutionTimeFilter) -lcweStartTimeFilter = lens _lcweStartTimeFilter (\ s a -> s{_lcweStartTimeFilter = a}) - --- | The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. -lcweMaximumPageSize :: Lens' ListClosedWorkflowExecutions (Maybe Natural) -lcweMaximumPageSize = lens _lcweMaximumPageSize (\ s a -> s{_lcweMaximumPageSize = a}) . mapping _Nat - --- | The name of the domain that contains the workflow executions to list. -lcweDomain :: Lens' ListClosedWorkflowExecutions Text -lcweDomain = lens _lcweDomain (\ s a -> s{_lcweDomain = a}) - -instance AWSPager ListClosedWorkflowExecutions where - page rq rs - | stop (rs ^. weiNextPageToken) = Nothing - | stop (rs ^. weiExecutionInfos) = Nothing - | otherwise = - Just $ rq & - lcweNextPageToken .~ rs ^. weiNextPageToken - -instance AWSRequest ListClosedWorkflowExecutions - where - type Rs ListClosedWorkflowExecutions = - WorkflowExecutionInfos - request = postJSON swf - response = receiveJSON (\ s h x -> eitherParseJSON x) - -instance Hashable ListClosedWorkflowExecutions where - -instance NFData ListClosedWorkflowExecutions where - -instance ToHeaders ListClosedWorkflowExecutions where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.ListClosedWorkflowExecutions" - :: ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON ListClosedWorkflowExecutions where - toJSON ListClosedWorkflowExecutions'{..} - = object - (catMaybes - [("nextPageToken" .=) <$> _lcweNextPageToken, - ("executionFilter" .=) <$> _lcweExecutionFilter, - ("closeStatusFilter" .=) <$> _lcweCloseStatusFilter, - ("typeFilter" .=) <$> _lcweTypeFilter, - ("closeTimeFilter" .=) <$> _lcweCloseTimeFilter, - ("reverseOrder" .=) <$> _lcweReverseOrder, - ("tagFilter" .=) <$> _lcweTagFilter, - ("startTimeFilter" .=) <$> _lcweStartTimeFilter, - ("maximumPageSize" .=) <$> _lcweMaximumPageSize, - Just ("domain" .= _lcweDomain)]) - -instance ToPath ListClosedWorkflowExecutions where - toPath = const "/" - -instance ToQuery ListClosedWorkflowExecutions where - toQuery = const mempty diff --git a/gen/Network/AWS/SWF/ListDomains.hs b/gen/Network/AWS/SWF/ListDomains.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/ListDomains.hs +++ /dev/null @@ -1,207 +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.SWF.ListDomains --- 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 list of domains registered in the account. The results may be split into multiple pages. To retrieve subsequent pages, make the call again using the nextPageToken returned by the initial call. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. The element must be set to @arn:aws:swf::AccountID:domain/*@ , where /AccountID/ is the account ID, with no dashes. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- This operation returns paginated results. -module Network.AWS.SWF.ListDomains - ( - -- * Creating a Request - listDomains - , ListDomains - -- * Request Lenses - , ldNextPageToken - , ldReverseOrder - , ldMaximumPageSize - , ldRegistrationStatus - - -- * Destructuring the Response - , listDomainsResponse - , ListDomainsResponse - -- * Response Lenses - , ldrsNextPageToken - , ldrsResponseStatus - , ldrsDomainInfos - ) where - -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'listDomains' smart constructor. -data ListDomains = ListDomains' - { _ldNextPageToken :: !(Maybe Text) - , _ldReverseOrder :: !(Maybe Bool) - , _ldMaximumPageSize :: !(Maybe Nat) - , _ldRegistrationStatus :: !RegistrationStatus - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListDomains' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ldNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. --- --- * 'ldReverseOrder' - When set to @true@ , returns the results in reverse order. By default, the results are returned in ascending alphabetical order by @name@ of the domains. --- --- * 'ldMaximumPageSize' - The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. --- --- * 'ldRegistrationStatus' - Specifies the registration status of the domains to list. -listDomains - :: RegistrationStatus -- ^ 'ldRegistrationStatus' - -> ListDomains -listDomains pRegistrationStatus_ = - ListDomains' - { _ldNextPageToken = Nothing - , _ldReverseOrder = Nothing - , _ldMaximumPageSize = Nothing - , _ldRegistrationStatus = pRegistrationStatus_ - } - - --- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. -ldNextPageToken :: Lens' ListDomains (Maybe Text) -ldNextPageToken = lens _ldNextPageToken (\ s a -> s{_ldNextPageToken = a}) - --- | When set to @true@ , returns the results in reverse order. By default, the results are returned in ascending alphabetical order by @name@ of the domains. -ldReverseOrder :: Lens' ListDomains (Maybe Bool) -ldReverseOrder = lens _ldReverseOrder (\ s a -> s{_ldReverseOrder = a}) - --- | The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. -ldMaximumPageSize :: Lens' ListDomains (Maybe Natural) -ldMaximumPageSize = lens _ldMaximumPageSize (\ s a -> s{_ldMaximumPageSize = a}) . mapping _Nat - --- | Specifies the registration status of the domains to list. -ldRegistrationStatus :: Lens' ListDomains RegistrationStatus -ldRegistrationStatus = lens _ldRegistrationStatus (\ s a -> s{_ldRegistrationStatus = a}) - -instance AWSPager ListDomains where - page rq rs - | stop (rs ^. ldrsNextPageToken) = Nothing - | stop (rs ^. ldrsDomainInfos) = Nothing - | otherwise = - Just $ rq & - ldNextPageToken .~ rs ^. ldrsNextPageToken - -instance AWSRequest ListDomains where - type Rs ListDomains = ListDomainsResponse - request = postJSON swf - response - = receiveJSON - (\ s h x -> - ListDomainsResponse' <$> - (x .?> "nextPageToken") <*> (pure (fromEnum s)) <*> - (x .?> "domainInfos" .!@ mempty)) - -instance Hashable ListDomains where - -instance NFData ListDomains where - -instance ToHeaders ListDomains where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.ListDomains" :: ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON ListDomains where - toJSON ListDomains'{..} - = object - (catMaybes - [("nextPageToken" .=) <$> _ldNextPageToken, - ("reverseOrder" .=) <$> _ldReverseOrder, - ("maximumPageSize" .=) <$> _ldMaximumPageSize, - Just - ("registrationStatus" .= _ldRegistrationStatus)]) - -instance ToPath ListDomains where - toPath = const "/" - -instance ToQuery ListDomains where - toQuery = const mempty - --- | Contains a paginated collection of DomainInfo structures. --- --- --- --- /See:/ 'listDomainsResponse' smart constructor. -data ListDomainsResponse = ListDomainsResponse' - { _ldrsNextPageToken :: !(Maybe Text) - , _ldrsResponseStatus :: !Int - , _ldrsDomainInfos :: ![DomainInfo] - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListDomainsResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ldrsNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. --- --- * 'ldrsResponseStatus' - -- | The response status code. --- --- * 'ldrsDomainInfos' - A list of DomainInfo structures. -listDomainsResponse - :: Int -- ^ 'ldrsResponseStatus' - -> ListDomainsResponse -listDomainsResponse pResponseStatus_ = - ListDomainsResponse' - { _ldrsNextPageToken = Nothing - , _ldrsResponseStatus = pResponseStatus_ - , _ldrsDomainInfos = mempty - } - - --- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. -ldrsNextPageToken :: Lens' ListDomainsResponse (Maybe Text) -ldrsNextPageToken = lens _ldrsNextPageToken (\ s a -> s{_ldrsNextPageToken = a}) - --- | -- | The response status code. -ldrsResponseStatus :: Lens' ListDomainsResponse Int -ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a}) - --- | A list of DomainInfo structures. -ldrsDomainInfos :: Lens' ListDomainsResponse [DomainInfo] -ldrsDomainInfos = lens _ldrsDomainInfos (\ s a -> s{_ldrsDomainInfos = a}) . _Coerce - -instance NFData ListDomainsResponse where diff --git a/gen/Network/AWS/SWF/ListOpenWorkflowExecutions.hs b/gen/Network/AWS/SWF/ListOpenWorkflowExecutions.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/ListOpenWorkflowExecutions.hs +++ /dev/null @@ -1,205 +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.SWF.ListOpenWorkflowExecutions --- 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 list of open workflow executions in the specified domain that meet the filtering criteria. The results may be split into multiple pages. To retrieve subsequent pages, make the call again using the nextPageToken returned by the initial call. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the following parameters by using a @Condition@ element with the appropriate keys. --- --- * @tagFilter.tag@ : String constraint. The key is @swf:tagFilter.tag@ . --- --- * @typeFilter.name@ : String constraint. The key is @swf:typeFilter.name@ . --- --- * @typeFilter.version@ : String constraint. The key is @swf:typeFilter.version@ . --- --- --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- This operation returns paginated results. -module Network.AWS.SWF.ListOpenWorkflowExecutions - ( - -- * Creating a Request - listOpenWorkflowExecutions - , ListOpenWorkflowExecutions - -- * Request Lenses - , loweNextPageToken - , loweExecutionFilter - , loweTypeFilter - , loweReverseOrder - , loweTagFilter - , loweMaximumPageSize - , loweDomain - , loweStartTimeFilter - - -- * Destructuring the Response - , workflowExecutionInfos - , WorkflowExecutionInfos - -- * Response Lenses - , weiNextPageToken - , weiExecutionInfos - ) where - -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'listOpenWorkflowExecutions' smart constructor. -data ListOpenWorkflowExecutions = ListOpenWorkflowExecutions' - { _loweNextPageToken :: !(Maybe Text) - , _loweExecutionFilter :: !(Maybe WorkflowExecutionFilter) - , _loweTypeFilter :: !(Maybe WorkflowTypeFilter) - , _loweReverseOrder :: !(Maybe Bool) - , _loweTagFilter :: !(Maybe TagFilter) - , _loweMaximumPageSize :: !(Maybe Nat) - , _loweDomain :: !Text - , _loweStartTimeFilter :: !ExecutionTimeFilter - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListOpenWorkflowExecutions' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'loweNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. --- --- * 'loweExecutionFilter' - If specified, only workflow executions matching the workflow ID specified in the filter are returned. --- --- * 'loweTypeFilter' - If specified, only executions of the type specified in the filter are returned. --- --- * 'loweReverseOrder' - When set to @true@ , returns the results in reverse order. By default the results are returned in descending order of the start time of the executions. --- --- * 'loweTagFilter' - If specified, only executions that have the matching tag are listed. --- --- * 'loweMaximumPageSize' - The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. --- --- * 'loweDomain' - The name of the domain that contains the workflow executions to list. --- --- * 'loweStartTimeFilter' - Workflow executions are included in the returned results based on whether their start times are within the range specified by this filter. -listOpenWorkflowExecutions - :: Text -- ^ 'loweDomain' - -> ExecutionTimeFilter -- ^ 'loweStartTimeFilter' - -> ListOpenWorkflowExecutions -listOpenWorkflowExecutions pDomain_ pStartTimeFilter_ = - ListOpenWorkflowExecutions' - { _loweNextPageToken = Nothing - , _loweExecutionFilter = Nothing - , _loweTypeFilter = Nothing - , _loweReverseOrder = Nothing - , _loweTagFilter = Nothing - , _loweMaximumPageSize = Nothing - , _loweDomain = pDomain_ - , _loweStartTimeFilter = pStartTimeFilter_ - } - - --- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. -loweNextPageToken :: Lens' ListOpenWorkflowExecutions (Maybe Text) -loweNextPageToken = lens _loweNextPageToken (\ s a -> s{_loweNextPageToken = a}) - --- | If specified, only workflow executions matching the workflow ID specified in the filter are returned. -loweExecutionFilter :: Lens' ListOpenWorkflowExecutions (Maybe WorkflowExecutionFilter) -loweExecutionFilter = lens _loweExecutionFilter (\ s a -> s{_loweExecutionFilter = a}) - --- | If specified, only executions of the type specified in the filter are returned. -loweTypeFilter :: Lens' ListOpenWorkflowExecutions (Maybe WorkflowTypeFilter) -loweTypeFilter = lens _loweTypeFilter (\ s a -> s{_loweTypeFilter = a}) - --- | When set to @true@ , returns the results in reverse order. By default the results are returned in descending order of the start time of the executions. -loweReverseOrder :: Lens' ListOpenWorkflowExecutions (Maybe Bool) -loweReverseOrder = lens _loweReverseOrder (\ s a -> s{_loweReverseOrder = a}) - --- | If specified, only executions that have the matching tag are listed. -loweTagFilter :: Lens' ListOpenWorkflowExecutions (Maybe TagFilter) -loweTagFilter = lens _loweTagFilter (\ s a -> s{_loweTagFilter = a}) - --- | The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. -loweMaximumPageSize :: Lens' ListOpenWorkflowExecutions (Maybe Natural) -loweMaximumPageSize = lens _loweMaximumPageSize (\ s a -> s{_loweMaximumPageSize = a}) . mapping _Nat - --- | The name of the domain that contains the workflow executions to list. -loweDomain :: Lens' ListOpenWorkflowExecutions Text -loweDomain = lens _loweDomain (\ s a -> s{_loweDomain = a}) - --- | Workflow executions are included in the returned results based on whether their start times are within the range specified by this filter. -loweStartTimeFilter :: Lens' ListOpenWorkflowExecutions ExecutionTimeFilter -loweStartTimeFilter = lens _loweStartTimeFilter (\ s a -> s{_loweStartTimeFilter = a}) - -instance AWSPager ListOpenWorkflowExecutions where - page rq rs - | stop (rs ^. weiNextPageToken) = Nothing - | stop (rs ^. weiExecutionInfos) = Nothing - | otherwise = - Just $ rq & - loweNextPageToken .~ rs ^. weiNextPageToken - -instance AWSRequest ListOpenWorkflowExecutions where - type Rs ListOpenWorkflowExecutions = - WorkflowExecutionInfos - request = postJSON swf - response = receiveJSON (\ s h x -> eitherParseJSON x) - -instance Hashable ListOpenWorkflowExecutions where - -instance NFData ListOpenWorkflowExecutions where - -instance ToHeaders ListOpenWorkflowExecutions where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.ListOpenWorkflowExecutions" - :: ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON ListOpenWorkflowExecutions where - toJSON ListOpenWorkflowExecutions'{..} - = object - (catMaybes - [("nextPageToken" .=) <$> _loweNextPageToken, - ("executionFilter" .=) <$> _loweExecutionFilter, - ("typeFilter" .=) <$> _loweTypeFilter, - ("reverseOrder" .=) <$> _loweReverseOrder, - ("tagFilter" .=) <$> _loweTagFilter, - ("maximumPageSize" .=) <$> _loweMaximumPageSize, - Just ("domain" .= _loweDomain), - Just ("startTimeFilter" .= _loweStartTimeFilter)]) - -instance ToPath ListOpenWorkflowExecutions where - toPath = const "/" - -instance ToQuery ListOpenWorkflowExecutions where - toQuery = const mempty diff --git a/gen/Network/AWS/SWF/ListWorkflowTypes.hs b/gen/Network/AWS/SWF/ListWorkflowTypes.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/ListWorkflowTypes.hs +++ /dev/null @@ -1,229 +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.SWF.ListWorkflowTypes --- 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 workflow types in the specified domain. The results may be split into multiple pages that can be retrieved by making the call repeatedly. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- This operation returns paginated results. -module Network.AWS.SWF.ListWorkflowTypes - ( - -- * Creating a Request - listWorkflowTypes - , ListWorkflowTypes - -- * Request Lenses - , lwtNextPageToken - , lwtReverseOrder - , lwtName - , lwtMaximumPageSize - , lwtDomain - , lwtRegistrationStatus - - -- * Destructuring the Response - , listWorkflowTypesResponse - , ListWorkflowTypesResponse - -- * Response Lenses - , lwtrsNextPageToken - , lwtrsResponseStatus - , lwtrsTypeInfos - ) where - -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'listWorkflowTypes' smart constructor. -data ListWorkflowTypes = ListWorkflowTypes' - { _lwtNextPageToken :: !(Maybe Text) - , _lwtReverseOrder :: !(Maybe Bool) - , _lwtName :: !(Maybe Text) - , _lwtMaximumPageSize :: !(Maybe Nat) - , _lwtDomain :: !Text - , _lwtRegistrationStatus :: !RegistrationStatus - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListWorkflowTypes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lwtNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. --- --- * 'lwtReverseOrder' - When set to @true@ , returns the results in reverse order. By default the results are returned in ascending alphabetical order of the @name@ of the workflow types. --- --- * 'lwtName' - If specified, lists the workflow type with this name. --- --- * 'lwtMaximumPageSize' - The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. --- --- * 'lwtDomain' - The name of the domain in which the workflow types have been registered. --- --- * 'lwtRegistrationStatus' - Specifies the registration status of the workflow types to list. -listWorkflowTypes - :: Text -- ^ 'lwtDomain' - -> RegistrationStatus -- ^ 'lwtRegistrationStatus' - -> ListWorkflowTypes -listWorkflowTypes pDomain_ pRegistrationStatus_ = - ListWorkflowTypes' - { _lwtNextPageToken = Nothing - , _lwtReverseOrder = Nothing - , _lwtName = Nothing - , _lwtMaximumPageSize = Nothing - , _lwtDomain = pDomain_ - , _lwtRegistrationStatus = pRegistrationStatus_ - } - - --- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. -lwtNextPageToken :: Lens' ListWorkflowTypes (Maybe Text) -lwtNextPageToken = lens _lwtNextPageToken (\ s a -> s{_lwtNextPageToken = a}) - --- | When set to @true@ , returns the results in reverse order. By default the results are returned in ascending alphabetical order of the @name@ of the workflow types. -lwtReverseOrder :: Lens' ListWorkflowTypes (Maybe Bool) -lwtReverseOrder = lens _lwtReverseOrder (\ s a -> s{_lwtReverseOrder = a}) - --- | If specified, lists the workflow type with this name. -lwtName :: Lens' ListWorkflowTypes (Maybe Text) -lwtName = lens _lwtName (\ s a -> s{_lwtName = a}) - --- | The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. -lwtMaximumPageSize :: Lens' ListWorkflowTypes (Maybe Natural) -lwtMaximumPageSize = lens _lwtMaximumPageSize (\ s a -> s{_lwtMaximumPageSize = a}) . mapping _Nat - --- | The name of the domain in which the workflow types have been registered. -lwtDomain :: Lens' ListWorkflowTypes Text -lwtDomain = lens _lwtDomain (\ s a -> s{_lwtDomain = a}) - --- | Specifies the registration status of the workflow types to list. -lwtRegistrationStatus :: Lens' ListWorkflowTypes RegistrationStatus -lwtRegistrationStatus = lens _lwtRegistrationStatus (\ s a -> s{_lwtRegistrationStatus = a}) - -instance AWSPager ListWorkflowTypes where - page rq rs - | stop (rs ^. lwtrsNextPageToken) = Nothing - | stop (rs ^. lwtrsTypeInfos) = Nothing - | otherwise = - Just $ rq & - lwtNextPageToken .~ rs ^. lwtrsNextPageToken - -instance AWSRequest ListWorkflowTypes where - type Rs ListWorkflowTypes = ListWorkflowTypesResponse - request = postJSON swf - response - = receiveJSON - (\ s h x -> - ListWorkflowTypesResponse' <$> - (x .?> "nextPageToken") <*> (pure (fromEnum s)) <*> - (x .?> "typeInfos" .!@ mempty)) - -instance Hashable ListWorkflowTypes where - -instance NFData ListWorkflowTypes where - -instance ToHeaders ListWorkflowTypes where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.ListWorkflowTypes" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON ListWorkflowTypes where - toJSON ListWorkflowTypes'{..} - = object - (catMaybes - [("nextPageToken" .=) <$> _lwtNextPageToken, - ("reverseOrder" .=) <$> _lwtReverseOrder, - ("name" .=) <$> _lwtName, - ("maximumPageSize" .=) <$> _lwtMaximumPageSize, - Just ("domain" .= _lwtDomain), - Just - ("registrationStatus" .= _lwtRegistrationStatus)]) - -instance ToPath ListWorkflowTypes where - toPath = const "/" - -instance ToQuery ListWorkflowTypes where - toQuery = const mempty - --- | Contains a paginated list of information structures about workflow types. --- --- --- --- /See:/ 'listWorkflowTypesResponse' smart constructor. -data ListWorkflowTypesResponse = ListWorkflowTypesResponse' - { _lwtrsNextPageToken :: !(Maybe Text) - , _lwtrsResponseStatus :: !Int - , _lwtrsTypeInfos :: ![WorkflowTypeInfo] - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ListWorkflowTypesResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lwtrsNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. --- --- * 'lwtrsResponseStatus' - -- | The response status code. --- --- * 'lwtrsTypeInfos' - The list of workflow type information. -listWorkflowTypesResponse - :: Int -- ^ 'lwtrsResponseStatus' - -> ListWorkflowTypesResponse -listWorkflowTypesResponse pResponseStatus_ = - ListWorkflowTypesResponse' - { _lwtrsNextPageToken = Nothing - , _lwtrsResponseStatus = pResponseStatus_ - , _lwtrsTypeInfos = mempty - } - - --- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. -lwtrsNextPageToken :: Lens' ListWorkflowTypesResponse (Maybe Text) -lwtrsNextPageToken = lens _lwtrsNextPageToken (\ s a -> s{_lwtrsNextPageToken = a}) - --- | -- | The response status code. -lwtrsResponseStatus :: Lens' ListWorkflowTypesResponse Int -lwtrsResponseStatus = lens _lwtrsResponseStatus (\ s a -> s{_lwtrsResponseStatus = a}) - --- | The list of workflow type information. -lwtrsTypeInfos :: Lens' ListWorkflowTypesResponse [WorkflowTypeInfo] -lwtrsTypeInfos = lens _lwtrsTypeInfos (\ s a -> s{_lwtrsTypeInfos = a}) . _Coerce - -instance NFData ListWorkflowTypesResponse where diff --git a/gen/Network/AWS/SWF/PollForActivityTask.hs b/gen/Network/AWS/SWF/PollForActivityTask.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/PollForActivityTask.hs +++ /dev/null @@ -1,231 +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.SWF.PollForActivityTask --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Used by workers to get an 'ActivityTask' from the specified activity @taskList@ . This initiates a long poll, where the service holds the HTTP connection open and responds as soon as a task becomes available. The maximum time the service holds on to the request before responding is 60 seconds. If no task is available within 60 seconds, the poll returns an empty result. An empty result, in this context, means that an ActivityTask is returned, but that the value of taskToken is an empty string. If a task is returned, the worker should use its type to identify and process it correctly. --- --- --- /Important:/ Workers should set their client side socket timeout to at least 70 seconds (10 seconds higher than the maximum time service may hold the poll request). --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the @taskList.name@ parameter by using a @Condition@ element with the @swf:taskList.name@ key to allow the action to access only certain task lists. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.PollForActivityTask - ( - -- * Creating a Request - pollForActivityTask - , PollForActivityTask - -- * Request Lenses - , pfatIdentity - , pfatDomain - , pfatTaskList - - -- * Destructuring the Response - , pollForActivityTaskResponse - , PollForActivityTaskResponse - -- * Response Lenses - , pfatrsActivityType - , pfatrsActivityId - , pfatrsInput - , pfatrsTaskToken - , pfatrsWorkflowExecution - , pfatrsResponseStatus - , pfatrsStartedEventId - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'pollForActivityTask' smart constructor. -data PollForActivityTask = PollForActivityTask' - { _pfatIdentity :: !(Maybe Text) - , _pfatDomain :: !Text - , _pfatTaskList :: !TaskList - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PollForActivityTask' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pfatIdentity' - Identity of the worker making the request, recorded in the @ActivityTaskStarted@ event in the workflow history. This enables diagnostic tracing when problems arise. The form of this identity is user defined. --- --- * 'pfatDomain' - The name of the domain that contains the task lists being polled. --- --- * 'pfatTaskList' - Specifies the task list to poll for activity tasks. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -pollForActivityTask - :: Text -- ^ 'pfatDomain' - -> TaskList -- ^ 'pfatTaskList' - -> PollForActivityTask -pollForActivityTask pDomain_ pTaskList_ = - PollForActivityTask' - { _pfatIdentity = Nothing - , _pfatDomain = pDomain_ - , _pfatTaskList = pTaskList_ - } - - --- | Identity of the worker making the request, recorded in the @ActivityTaskStarted@ event in the workflow history. This enables diagnostic tracing when problems arise. The form of this identity is user defined. -pfatIdentity :: Lens' PollForActivityTask (Maybe Text) -pfatIdentity = lens _pfatIdentity (\ s a -> s{_pfatIdentity = a}) - --- | The name of the domain that contains the task lists being polled. -pfatDomain :: Lens' PollForActivityTask Text -pfatDomain = lens _pfatDomain (\ s a -> s{_pfatDomain = a}) - --- | Specifies the task list to poll for activity tasks. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -pfatTaskList :: Lens' PollForActivityTask TaskList -pfatTaskList = lens _pfatTaskList (\ s a -> s{_pfatTaskList = a}) - -instance AWSRequest PollForActivityTask where - type Rs PollForActivityTask = - PollForActivityTaskResponse - request = postJSON swf - response - = receiveJSON - (\ s h x -> - PollForActivityTaskResponse' <$> - (x .?> "activityType") <*> (x .?> "activityId") <*> - (x .?> "input") - <*> (x .?> "taskToken") - <*> (x .?> "workflowExecution") - <*> (pure (fromEnum s)) - <*> (x .:> "startedEventId")) - -instance Hashable PollForActivityTask where - -instance NFData PollForActivityTask where - -instance ToHeaders PollForActivityTask where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.PollForActivityTask" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON PollForActivityTask where - toJSON PollForActivityTask'{..} - = object - (catMaybes - [("identity" .=) <$> _pfatIdentity, - Just ("domain" .= _pfatDomain), - Just ("taskList" .= _pfatTaskList)]) - -instance ToPath PollForActivityTask where - toPath = const "/" - -instance ToQuery PollForActivityTask where - toQuery = const mempty - --- | Unit of work sent to an activity worker. --- --- --- --- /See:/ 'pollForActivityTaskResponse' smart constructor. -data PollForActivityTaskResponse = PollForActivityTaskResponse' - { _pfatrsActivityType :: !(Maybe ActivityType) - , _pfatrsActivityId :: !(Maybe Text) - , _pfatrsInput :: !(Maybe Text) - , _pfatrsTaskToken :: !(Maybe Text) - , _pfatrsWorkflowExecution :: !(Maybe WorkflowExecution) - , _pfatrsResponseStatus :: !Int - , _pfatrsStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PollForActivityTaskResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pfatrsActivityType' - The type of this activity task. --- --- * 'pfatrsActivityId' - The unique ID of the task. --- --- * 'pfatrsInput' - The inputs provided when the activity task was scheduled. The form of the input is user defined and should be meaningful to the activity implementation. --- --- * 'pfatrsTaskToken' - The opaque string used as a handle on the task. This token is used by workers to communicate progress and response information back to the system about the task. --- --- * 'pfatrsWorkflowExecution' - The workflow execution that started this activity task. --- --- * 'pfatrsResponseStatus' - -- | The response status code. --- --- * 'pfatrsStartedEventId' - The ID of the @ActivityTaskStarted@ event recorded in the history. -pollForActivityTaskResponse - :: Int -- ^ 'pfatrsResponseStatus' - -> Integer -- ^ 'pfatrsStartedEventId' - -> PollForActivityTaskResponse -pollForActivityTaskResponse pResponseStatus_ pStartedEventId_ = - PollForActivityTaskResponse' - { _pfatrsActivityType = Nothing - , _pfatrsActivityId = Nothing - , _pfatrsInput = Nothing - , _pfatrsTaskToken = Nothing - , _pfatrsWorkflowExecution = Nothing - , _pfatrsResponseStatus = pResponseStatus_ - , _pfatrsStartedEventId = pStartedEventId_ - } - - --- | The type of this activity task. -pfatrsActivityType :: Lens' PollForActivityTaskResponse (Maybe ActivityType) -pfatrsActivityType = lens _pfatrsActivityType (\ s a -> s{_pfatrsActivityType = a}) - --- | The unique ID of the task. -pfatrsActivityId :: Lens' PollForActivityTaskResponse (Maybe Text) -pfatrsActivityId = lens _pfatrsActivityId (\ s a -> s{_pfatrsActivityId = a}) - --- | The inputs provided when the activity task was scheduled. The form of the input is user defined and should be meaningful to the activity implementation. -pfatrsInput :: Lens' PollForActivityTaskResponse (Maybe Text) -pfatrsInput = lens _pfatrsInput (\ s a -> s{_pfatrsInput = a}) - --- | The opaque string used as a handle on the task. This token is used by workers to communicate progress and response information back to the system about the task. -pfatrsTaskToken :: Lens' PollForActivityTaskResponse (Maybe Text) -pfatrsTaskToken = lens _pfatrsTaskToken (\ s a -> s{_pfatrsTaskToken = a}) - --- | The workflow execution that started this activity task. -pfatrsWorkflowExecution :: Lens' PollForActivityTaskResponse (Maybe WorkflowExecution) -pfatrsWorkflowExecution = lens _pfatrsWorkflowExecution (\ s a -> s{_pfatrsWorkflowExecution = a}) - --- | -- | The response status code. -pfatrsResponseStatus :: Lens' PollForActivityTaskResponse Int -pfatrsResponseStatus = lens _pfatrsResponseStatus (\ s a -> s{_pfatrsResponseStatus = a}) - --- | The ID of the @ActivityTaskStarted@ event recorded in the history. -pfatrsStartedEventId :: Lens' PollForActivityTaskResponse Integer -pfatrsStartedEventId = lens _pfatrsStartedEventId (\ s a -> s{_pfatrsStartedEventId = a}) - -instance NFData PollForActivityTaskResponse where diff --git a/gen/Network/AWS/SWF/PollForDecisionTask.hs b/gen/Network/AWS/SWF/PollForDecisionTask.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/PollForDecisionTask.hs +++ /dev/null @@ -1,286 +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.SWF.PollForDecisionTask --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Used by deciders to get a 'DecisionTask' from the specified decision @taskList@ . A decision task may be returned for any open workflow execution that is using the specified task list. The task includes a paginated view of the history of the workflow execution. The decider should use the workflow type and the history to determine how to properly handle the task. --- --- --- This action initiates a long poll, where the service holds the HTTP connection open and responds as soon a task becomes available. If no decision task is available in the specified task list before the timeout of 60 seconds expires, an empty result is returned. An empty result, in this context, means that a DecisionTask is returned, but that the value of taskToken is an empty string. --- --- /Important:/ Deciders should set their client side socket timeout to at least 70 seconds (10 seconds higher than the timeout). --- --- /Important:/ Because the number of workflow history events for a single workflow execution might be very large, the result returned might be split up across a number of pages. To retrieve subsequent pages, make additional calls to @PollForDecisionTask@ using the @nextPageToken@ returned by the initial call. Note that you do /not/ call @GetWorkflowExecutionHistory@ with this @nextPageToken@ . Instead, call @PollForDecisionTask@ again. --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the @taskList.name@ parameter by using a @Condition@ element with the @swf:taskList.name@ key to allow the action to access only certain task lists. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- This operation returns paginated results. -module Network.AWS.SWF.PollForDecisionTask - ( - -- * Creating a Request - pollForDecisionTask - , PollForDecisionTask - -- * Request Lenses - , pfdtNextPageToken - , pfdtReverseOrder - , pfdtMaximumPageSize - , pfdtIdentity - , pfdtDomain - , pfdtTaskList - - -- * Destructuring the Response - , pollForDecisionTaskResponse - , PollForDecisionTaskResponse - -- * Response Lenses - , pfdtrsNextPageToken - , pfdtrsWorkflowType - , pfdtrsPreviousStartedEventId - , pfdtrsEvents - , pfdtrsTaskToken - , pfdtrsWorkflowExecution - , pfdtrsResponseStatus - , pfdtrsStartedEventId - ) where - -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'pollForDecisionTask' smart constructor. -data PollForDecisionTask = PollForDecisionTask' - { _pfdtNextPageToken :: !(Maybe Text) - , _pfdtReverseOrder :: !(Maybe Bool) - , _pfdtMaximumPageSize :: !(Maybe Nat) - , _pfdtIdentity :: !(Maybe Text) - , _pfdtDomain :: !Text - , _pfdtTaskList :: !TaskList - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PollForDecisionTask' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pfdtNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. --- --- * 'pfdtReverseOrder' - When set to @true@ , returns the events in reverse order. By default the results are returned in ascending order of the @eventTimestamp@ of the events. --- --- * 'pfdtMaximumPageSize' - The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. --- --- * 'pfdtIdentity' - Identity of the decider making the request, which is recorded in the DecisionTaskStarted event in the workflow history. This enables diagnostic tracing when problems arise. The form of this identity is user defined. --- --- * 'pfdtDomain' - The name of the domain containing the task lists to poll. --- --- * 'pfdtTaskList' - Specifies the task list to poll for decision tasks. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -pollForDecisionTask - :: Text -- ^ 'pfdtDomain' - -> TaskList -- ^ 'pfdtTaskList' - -> PollForDecisionTask -pollForDecisionTask pDomain_ pTaskList_ = - PollForDecisionTask' - { _pfdtNextPageToken = Nothing - , _pfdtReverseOrder = Nothing - , _pfdtMaximumPageSize = Nothing - , _pfdtIdentity = Nothing - , _pfdtDomain = pDomain_ - , _pfdtTaskList = pTaskList_ - } - - --- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. -pfdtNextPageToken :: Lens' PollForDecisionTask (Maybe Text) -pfdtNextPageToken = lens _pfdtNextPageToken (\ s a -> s{_pfdtNextPageToken = a}) - --- | When set to @true@ , returns the events in reverse order. By default the results are returned in ascending order of the @eventTimestamp@ of the events. -pfdtReverseOrder :: Lens' PollForDecisionTask (Maybe Bool) -pfdtReverseOrder = lens _pfdtReverseOrder (\ s a -> s{_pfdtReverseOrder = a}) - --- | The maximum number of results that are returned per call. @nextPageToken@ can be used to obtain futher pages of results. The default is 1000, which is the maximum allowed page size. You can, however, specify a page size /smaller/ than the maximum. This is an upper limit only; the actual number of results returned per call may be fewer than the specified maximum. -pfdtMaximumPageSize :: Lens' PollForDecisionTask (Maybe Natural) -pfdtMaximumPageSize = lens _pfdtMaximumPageSize (\ s a -> s{_pfdtMaximumPageSize = a}) . mapping _Nat - --- | Identity of the decider making the request, which is recorded in the DecisionTaskStarted event in the workflow history. This enables diagnostic tracing when problems arise. The form of this identity is user defined. -pfdtIdentity :: Lens' PollForDecisionTask (Maybe Text) -pfdtIdentity = lens _pfdtIdentity (\ s a -> s{_pfdtIdentity = a}) - --- | The name of the domain containing the task lists to poll. -pfdtDomain :: Lens' PollForDecisionTask Text -pfdtDomain = lens _pfdtDomain (\ s a -> s{_pfdtDomain = a}) - --- | Specifies the task list to poll for decision tasks. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -pfdtTaskList :: Lens' PollForDecisionTask TaskList -pfdtTaskList = lens _pfdtTaskList (\ s a -> s{_pfdtTaskList = a}) - -instance AWSPager PollForDecisionTask where - page rq rs - | stop (rs ^. pfdtrsNextPageToken) = Nothing - | stop (rs ^. pfdtrsEvents) = Nothing - | otherwise = - Just $ rq & - pfdtNextPageToken .~ rs ^. pfdtrsNextPageToken - -instance AWSRequest PollForDecisionTask where - type Rs PollForDecisionTask = - PollForDecisionTaskResponse - request = postJSON swf - response - = receiveJSON - (\ s h x -> - PollForDecisionTaskResponse' <$> - (x .?> "nextPageToken") <*> (x .?> "workflowType") - <*> (x .?> "previousStartedEventId") - <*> (x .?> "events" .!@ mempty) - <*> (x .?> "taskToken") - <*> (x .?> "workflowExecution") - <*> (pure (fromEnum s)) - <*> (x .:> "startedEventId")) - -instance Hashable PollForDecisionTask where - -instance NFData PollForDecisionTask where - -instance ToHeaders PollForDecisionTask where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.PollForDecisionTask" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON PollForDecisionTask where - toJSON PollForDecisionTask'{..} - = object - (catMaybes - [("nextPageToken" .=) <$> _pfdtNextPageToken, - ("reverseOrder" .=) <$> _pfdtReverseOrder, - ("maximumPageSize" .=) <$> _pfdtMaximumPageSize, - ("identity" .=) <$> _pfdtIdentity, - Just ("domain" .= _pfdtDomain), - Just ("taskList" .= _pfdtTaskList)]) - -instance ToPath PollForDecisionTask where - toPath = const "/" - -instance ToQuery PollForDecisionTask where - toQuery = const mempty - --- | A structure that represents a decision task. Decision tasks are sent to deciders in order for them to make decisions. --- --- --- --- /See:/ 'pollForDecisionTaskResponse' smart constructor. -data PollForDecisionTaskResponse = PollForDecisionTaskResponse' - { _pfdtrsNextPageToken :: !(Maybe Text) - , _pfdtrsWorkflowType :: !(Maybe WorkflowType) - , _pfdtrsPreviousStartedEventId :: !(Maybe Integer) - , _pfdtrsEvents :: !(Maybe [HistoryEvent]) - , _pfdtrsTaskToken :: !(Maybe Text) - , _pfdtrsWorkflowExecution :: !(Maybe WorkflowExecution) - , _pfdtrsResponseStatus :: !Int - , _pfdtrsStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PollForDecisionTaskResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pfdtrsNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. --- --- * 'pfdtrsWorkflowType' - The type of the workflow execution for which this decision task was created. --- --- * 'pfdtrsPreviousStartedEventId' - The ID of the DecisionTaskStarted event of the previous decision task of this workflow execution that was processed by the decider. This can be used to determine the events in the history new since the last decision task received by the decider. --- --- * 'pfdtrsEvents' - A paginated list of history events of the workflow execution. The decider uses this during the processing of the decision task. --- --- * 'pfdtrsTaskToken' - The opaque string used as a handle on the task. This token is used by workers to communicate progress and response information back to the system about the task. --- --- * 'pfdtrsWorkflowExecution' - The workflow execution for which this decision task was created. --- --- * 'pfdtrsResponseStatus' - -- | The response status code. --- --- * 'pfdtrsStartedEventId' - The ID of the @DecisionTaskStarted@ event recorded in the history. -pollForDecisionTaskResponse - :: Int -- ^ 'pfdtrsResponseStatus' - -> Integer -- ^ 'pfdtrsStartedEventId' - -> PollForDecisionTaskResponse -pollForDecisionTaskResponse pResponseStatus_ pStartedEventId_ = - PollForDecisionTaskResponse' - { _pfdtrsNextPageToken = Nothing - , _pfdtrsWorkflowType = Nothing - , _pfdtrsPreviousStartedEventId = Nothing - , _pfdtrsEvents = Nothing - , _pfdtrsTaskToken = Nothing - , _pfdtrsWorkflowExecution = Nothing - , _pfdtrsResponseStatus = pResponseStatus_ - , _pfdtrsStartedEventId = pStartedEventId_ - } - - --- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. -pfdtrsNextPageToken :: Lens' PollForDecisionTaskResponse (Maybe Text) -pfdtrsNextPageToken = lens _pfdtrsNextPageToken (\ s a -> s{_pfdtrsNextPageToken = a}) - --- | The type of the workflow execution for which this decision task was created. -pfdtrsWorkflowType :: Lens' PollForDecisionTaskResponse (Maybe WorkflowType) -pfdtrsWorkflowType = lens _pfdtrsWorkflowType (\ s a -> s{_pfdtrsWorkflowType = a}) - --- | The ID of the DecisionTaskStarted event of the previous decision task of this workflow execution that was processed by the decider. This can be used to determine the events in the history new since the last decision task received by the decider. -pfdtrsPreviousStartedEventId :: Lens' PollForDecisionTaskResponse (Maybe Integer) -pfdtrsPreviousStartedEventId = lens _pfdtrsPreviousStartedEventId (\ s a -> s{_pfdtrsPreviousStartedEventId = a}) - --- | A paginated list of history events of the workflow execution. The decider uses this during the processing of the decision task. -pfdtrsEvents :: Lens' PollForDecisionTaskResponse [HistoryEvent] -pfdtrsEvents = lens _pfdtrsEvents (\ s a -> s{_pfdtrsEvents = a}) . _Default . _Coerce - --- | The opaque string used as a handle on the task. This token is used by workers to communicate progress and response information back to the system about the task. -pfdtrsTaskToken :: Lens' PollForDecisionTaskResponse (Maybe Text) -pfdtrsTaskToken = lens _pfdtrsTaskToken (\ s a -> s{_pfdtrsTaskToken = a}) - --- | The workflow execution for which this decision task was created. -pfdtrsWorkflowExecution :: Lens' PollForDecisionTaskResponse (Maybe WorkflowExecution) -pfdtrsWorkflowExecution = lens _pfdtrsWorkflowExecution (\ s a -> s{_pfdtrsWorkflowExecution = a}) - --- | -- | The response status code. -pfdtrsResponseStatus :: Lens' PollForDecisionTaskResponse Int -pfdtrsResponseStatus = lens _pfdtrsResponseStatus (\ s a -> s{_pfdtrsResponseStatus = a}) - --- | The ID of the @DecisionTaskStarted@ event recorded in the history. -pfdtrsStartedEventId :: Lens' PollForDecisionTaskResponse Integer -pfdtrsStartedEventId = lens _pfdtrsStartedEventId (\ s a -> s{_pfdtrsStartedEventId = a}) - -instance NFData PollForDecisionTaskResponse where diff --git a/gen/Network/AWS/SWF/RecordActivityTaskHeartbeat.hs b/gen/Network/AWS/SWF/RecordActivityTaskHeartbeat.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/RecordActivityTaskHeartbeat.hs +++ /dev/null @@ -1,173 +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.SWF.RecordActivityTaskHeartbeat --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Used by activity workers to report to the service that the 'ActivityTask' represented by the specified @taskToken@ is still making progress. The worker can also specify details of the progress, for example percent complete, using the @details@ parameter. This action can also be used by the worker as a mechanism to check if cancellation is being requested for the activity task. If a cancellation is being attempted for the specified task, then the boolean @cancelRequested@ flag returned by the service is set to @true@ . --- --- --- This action resets the @taskHeartbeatTimeout@ clock. The @taskHeartbeatTimeout@ is specified in 'RegisterActivityType' . --- --- This action doesn't in itself create an event in the workflow execution history. However, if the task times out, the workflow execution history contains a @ActivityTaskTimedOut@ event that contains the information from the last heartbeat generated by the activity worker. --- --- /Important:/ If the @cancelRequested@ flag returns @true@ , a cancellation is being attempted. If the worker can cancel the activity, it should respond with 'RespondActivityTaskCanceled' . Otherwise, it should ignore the cancellation request. --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.RecordActivityTaskHeartbeat - ( - -- * Creating a Request - recordActivityTaskHeartbeat - , RecordActivityTaskHeartbeat - -- * Request Lenses - , rathDetails - , rathTaskToken - - -- * Destructuring the Response - , recordActivityTaskHeartbeatResponse - , RecordActivityTaskHeartbeatResponse - -- * Response Lenses - , rathrsResponseStatus - , rathrsCancelRequested - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'recordActivityTaskHeartbeat' smart constructor. -data RecordActivityTaskHeartbeat = RecordActivityTaskHeartbeat' - { _rathDetails :: !(Maybe Text) - , _rathTaskToken :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RecordActivityTaskHeartbeat' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rathDetails' - If specified, contains details about the progress of the task. --- --- * 'rathTaskToken' - The @taskToken@ of the 'ActivityTask' . /Important:/ @taskToken@ is generated by the service and should be treated as an opaque value. If the task is passed to another process, its @taskToken@ must also be passed. This enables it to provide its progress and respond with results. -recordActivityTaskHeartbeat - :: Text -- ^ 'rathTaskToken' - -> RecordActivityTaskHeartbeat -recordActivityTaskHeartbeat pTaskToken_ = - RecordActivityTaskHeartbeat' - {_rathDetails = Nothing, _rathTaskToken = pTaskToken_} - - --- | If specified, contains details about the progress of the task. -rathDetails :: Lens' RecordActivityTaskHeartbeat (Maybe Text) -rathDetails = lens _rathDetails (\ s a -> s{_rathDetails = a}) - --- | The @taskToken@ of the 'ActivityTask' . /Important:/ @taskToken@ is generated by the service and should be treated as an opaque value. If the task is passed to another process, its @taskToken@ must also be passed. This enables it to provide its progress and respond with results. -rathTaskToken :: Lens' RecordActivityTaskHeartbeat Text -rathTaskToken = lens _rathTaskToken (\ s a -> s{_rathTaskToken = a}) - -instance AWSRequest RecordActivityTaskHeartbeat where - type Rs RecordActivityTaskHeartbeat = - RecordActivityTaskHeartbeatResponse - request = postJSON swf - response - = receiveJSON - (\ s h x -> - RecordActivityTaskHeartbeatResponse' <$> - (pure (fromEnum s)) <*> (x .:> "cancelRequested")) - -instance Hashable RecordActivityTaskHeartbeat where - -instance NFData RecordActivityTaskHeartbeat where - -instance ToHeaders RecordActivityTaskHeartbeat where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.RecordActivityTaskHeartbeat" - :: ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON RecordActivityTaskHeartbeat where - toJSON RecordActivityTaskHeartbeat'{..} - = object - (catMaybes - [("details" .=) <$> _rathDetails, - Just ("taskToken" .= _rathTaskToken)]) - -instance ToPath RecordActivityTaskHeartbeat where - toPath = const "/" - -instance ToQuery RecordActivityTaskHeartbeat where - toQuery = const mempty - --- | Status information about an activity task. --- --- --- --- /See:/ 'recordActivityTaskHeartbeatResponse' smart constructor. -data RecordActivityTaskHeartbeatResponse = RecordActivityTaskHeartbeatResponse' - { _rathrsResponseStatus :: !Int - , _rathrsCancelRequested :: !Bool - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RecordActivityTaskHeartbeatResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rathrsResponseStatus' - -- | The response status code. --- --- * 'rathrsCancelRequested' - Set to @true@ if cancellation of the task is requested. -recordActivityTaskHeartbeatResponse - :: Int -- ^ 'rathrsResponseStatus' - -> Bool -- ^ 'rathrsCancelRequested' - -> RecordActivityTaskHeartbeatResponse -recordActivityTaskHeartbeatResponse pResponseStatus_ pCancelRequested_ = - RecordActivityTaskHeartbeatResponse' - { _rathrsResponseStatus = pResponseStatus_ - , _rathrsCancelRequested = pCancelRequested_ - } - - --- | -- | The response status code. -rathrsResponseStatus :: Lens' RecordActivityTaskHeartbeatResponse Int -rathrsResponseStatus = lens _rathrsResponseStatus (\ s a -> s{_rathrsResponseStatus = a}) - --- | Set to @true@ if cancellation of the task is requested. -rathrsCancelRequested :: Lens' RecordActivityTaskHeartbeatResponse Bool -rathrsCancelRequested = lens _rathrsCancelRequested (\ s a -> s{_rathrsCancelRequested = a}) - -instance NFData RecordActivityTaskHeartbeatResponse - where diff --git a/gen/Network/AWS/SWF/RegisterActivityType.hs b/gen/Network/AWS/SWF/RegisterActivityType.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/RegisterActivityType.hs +++ /dev/null @@ -1,234 +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.SWF.RegisterActivityType --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Registers a new /activity type/ along with its configuration settings in the specified domain. --- --- --- /Important:/ A @TypeAlreadyExists@ fault is returned if the type already exists in the domain. You cannot change any configuration settings of the type after its registration, and it must be registered as a new version. --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the following parameters by using a @Condition@ element with the appropriate keys. --- --- * @defaultTaskList.name@ : String constraint. The key is @swf:defaultTaskList.name@ . --- --- * @name@ : String constraint. The key is @swf:name@ . --- --- * @version@ : String constraint. The key is @swf:version@ . --- --- --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.RegisterActivityType - ( - -- * Creating a Request - registerActivityType - , RegisterActivityType - -- * Request Lenses - , ratDefaultTaskScheduleToStartTimeout - , ratDefaultTaskList - , ratDefaultTaskPriority - , ratDefaultTaskHeartbeatTimeout - , ratDefaultTaskScheduleToCloseTimeout - , ratDefaultTaskStartToCloseTimeout - , ratDescription - , ratDomain - , ratName - , ratVersion - - -- * Destructuring the Response - , registerActivityTypeResponse - , RegisterActivityTypeResponse - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'registerActivityType' smart constructor. -data RegisterActivityType = RegisterActivityType' - { _ratDefaultTaskScheduleToStartTimeout :: !(Maybe Text) - , _ratDefaultTaskList :: !(Maybe TaskList) - , _ratDefaultTaskPriority :: !(Maybe Text) - , _ratDefaultTaskHeartbeatTimeout :: !(Maybe Text) - , _ratDefaultTaskScheduleToCloseTimeout :: !(Maybe Text) - , _ratDefaultTaskStartToCloseTimeout :: !(Maybe Text) - , _ratDescription :: !(Maybe Text) - , _ratDomain :: !Text - , _ratName :: !Text - , _ratVersion :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RegisterActivityType' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ratDefaultTaskScheduleToStartTimeout' - If set, specifies the default maximum duration that a task of this activity type can wait before being assigned to a worker. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'ratDefaultTaskList' - If set, specifies the default task list to use for scheduling tasks of this activity type. This default task list is used if a task list isn't provided when a task is scheduled through the @ScheduleActivityTask@ 'Decision' . --- --- * 'ratDefaultTaskPriority' - The default task priority to assign to the activity type. If not assigned, then @0@ is used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /in the \/Amazon SWF Developer Guide\/ ./ . --- --- * 'ratDefaultTaskHeartbeatTimeout' - If set, specifies the default maximum time before which a worker processing a task of this type must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ 'Decision' . If the activity worker subsequently attempts to record a heartbeat or returns a result, the activity worker receives an @UnknownResource@ fault. In this case, Amazon SWF no longer considers the activity task to be valid; the activity worker should clean up the activity task. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'ratDefaultTaskScheduleToCloseTimeout' - If set, specifies the default maximum duration for a task of this activity type. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'ratDefaultTaskStartToCloseTimeout' - If set, specifies the default maximum duration that a worker can take to process tasks of this activity type. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'ratDescription' - A textual description of the activity type. --- --- * 'ratDomain' - The name of the domain in which this activity is to be registered. --- --- * 'ratName' - The name of the activity type within the domain. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . --- --- * 'ratVersion' - The version of the activity type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -registerActivityType - :: Text -- ^ 'ratDomain' - -> Text -- ^ 'ratName' - -> Text -- ^ 'ratVersion' - -> RegisterActivityType -registerActivityType pDomain_ pName_ pVersion_ = - RegisterActivityType' - { _ratDefaultTaskScheduleToStartTimeout = Nothing - , _ratDefaultTaskList = Nothing - , _ratDefaultTaskPriority = Nothing - , _ratDefaultTaskHeartbeatTimeout = Nothing - , _ratDefaultTaskScheduleToCloseTimeout = Nothing - , _ratDefaultTaskStartToCloseTimeout = Nothing - , _ratDescription = Nothing - , _ratDomain = pDomain_ - , _ratName = pName_ - , _ratVersion = pVersion_ - } - - --- | If set, specifies the default maximum duration that a task of this activity type can wait before being assigned to a worker. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -ratDefaultTaskScheduleToStartTimeout :: Lens' RegisterActivityType (Maybe Text) -ratDefaultTaskScheduleToStartTimeout = lens _ratDefaultTaskScheduleToStartTimeout (\ s a -> s{_ratDefaultTaskScheduleToStartTimeout = a}) - --- | If set, specifies the default task list to use for scheduling tasks of this activity type. This default task list is used if a task list isn't provided when a task is scheduled through the @ScheduleActivityTask@ 'Decision' . -ratDefaultTaskList :: Lens' RegisterActivityType (Maybe TaskList) -ratDefaultTaskList = lens _ratDefaultTaskList (\ s a -> s{_ratDefaultTaskList = a}) - --- | The default task priority to assign to the activity type. If not assigned, then @0@ is used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /in the \/Amazon SWF Developer Guide\/ ./ . -ratDefaultTaskPriority :: Lens' RegisterActivityType (Maybe Text) -ratDefaultTaskPriority = lens _ratDefaultTaskPriority (\ s a -> s{_ratDefaultTaskPriority = a}) - --- | If set, specifies the default maximum time before which a worker processing a task of this type must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ 'Decision' . If the activity worker subsequently attempts to record a heartbeat or returns a result, the activity worker receives an @UnknownResource@ fault. In this case, Amazon SWF no longer considers the activity task to be valid; the activity worker should clean up the activity task. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -ratDefaultTaskHeartbeatTimeout :: Lens' RegisterActivityType (Maybe Text) -ratDefaultTaskHeartbeatTimeout = lens _ratDefaultTaskHeartbeatTimeout (\ s a -> s{_ratDefaultTaskHeartbeatTimeout = a}) - --- | If set, specifies the default maximum duration for a task of this activity type. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -ratDefaultTaskScheduleToCloseTimeout :: Lens' RegisterActivityType (Maybe Text) -ratDefaultTaskScheduleToCloseTimeout = lens _ratDefaultTaskScheduleToCloseTimeout (\ s a -> s{_ratDefaultTaskScheduleToCloseTimeout = a}) - --- | If set, specifies the default maximum duration that a worker can take to process tasks of this activity type. This default can be overridden when scheduling an activity task using the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -ratDefaultTaskStartToCloseTimeout :: Lens' RegisterActivityType (Maybe Text) -ratDefaultTaskStartToCloseTimeout = lens _ratDefaultTaskStartToCloseTimeout (\ s a -> s{_ratDefaultTaskStartToCloseTimeout = a}) - --- | A textual description of the activity type. -ratDescription :: Lens' RegisterActivityType (Maybe Text) -ratDescription = lens _ratDescription (\ s a -> s{_ratDescription = a}) - --- | The name of the domain in which this activity is to be registered. -ratDomain :: Lens' RegisterActivityType Text -ratDomain = lens _ratDomain (\ s a -> s{_ratDomain = a}) - --- | The name of the activity type within the domain. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -ratName :: Lens' RegisterActivityType Text -ratName = lens _ratName (\ s a -> s{_ratName = a}) - --- | The version of the activity type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -ratVersion :: Lens' RegisterActivityType Text -ratVersion = lens _ratVersion (\ s a -> s{_ratVersion = a}) - -instance AWSRequest RegisterActivityType where - type Rs RegisterActivityType = - RegisterActivityTypeResponse - request = postJSON swf - response = receiveNull RegisterActivityTypeResponse' - -instance Hashable RegisterActivityType where - -instance NFData RegisterActivityType where - -instance ToHeaders RegisterActivityType where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.RegisterActivityType" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON RegisterActivityType where - toJSON RegisterActivityType'{..} - = object - (catMaybes - [("defaultTaskScheduleToStartTimeout" .=) <$> - _ratDefaultTaskScheduleToStartTimeout, - ("defaultTaskList" .=) <$> _ratDefaultTaskList, - ("defaultTaskPriority" .=) <$> - _ratDefaultTaskPriority, - ("defaultTaskHeartbeatTimeout" .=) <$> - _ratDefaultTaskHeartbeatTimeout, - ("defaultTaskScheduleToCloseTimeout" .=) <$> - _ratDefaultTaskScheduleToCloseTimeout, - ("defaultTaskStartToCloseTimeout" .=) <$> - _ratDefaultTaskStartToCloseTimeout, - ("description" .=) <$> _ratDescription, - Just ("domain" .= _ratDomain), - Just ("name" .= _ratName), - Just ("version" .= _ratVersion)]) - -instance ToPath RegisterActivityType where - toPath = const "/" - -instance ToQuery RegisterActivityType where - toQuery = const mempty - --- | /See:/ 'registerActivityTypeResponse' smart constructor. -data RegisterActivityTypeResponse = - RegisterActivityTypeResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RegisterActivityTypeResponse' with the minimum fields required to make a request. --- -registerActivityTypeResponse - :: RegisterActivityTypeResponse -registerActivityTypeResponse = RegisterActivityTypeResponse' - - -instance NFData RegisterActivityTypeResponse where diff --git a/gen/Network/AWS/SWF/RegisterDomain.hs b/gen/Network/AWS/SWF/RegisterDomain.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/RegisterDomain.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.SWF.RegisterDomain --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Registers a new domain. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * You cannot use an IAM policy to control domain access for this action. The name of the domain being registered is available as the resource of this action. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.RegisterDomain - ( - -- * Creating a Request - registerDomain - , RegisterDomain - -- * Request Lenses - , rdDescription - , rdName - , rdWorkflowExecutionRetentionPeriodInDays - - -- * Destructuring the Response - , registerDomainResponse - , RegisterDomainResponse - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'registerDomain' smart constructor. -data RegisterDomain = RegisterDomain' - { _rdDescription :: !(Maybe Text) - , _rdName :: !Text - , _rdWorkflowExecutionRetentionPeriodInDays :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RegisterDomain' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rdDescription' - A text description of the domain. --- --- * 'rdName' - Name of the domain to register. The name must be unique in the region that the domain is registered in. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . --- --- * 'rdWorkflowExecutionRetentionPeriodInDays' - The duration (in days) that records and histories of workflow executions on the domain should be kept by the service. After the retention period, the workflow execution isn't available in the results of visibility calls. If you pass the value @NONE@ or @0@ (zero), then the workflow execution history isn't retained. As soon as the workflow execution completes, the execution record and its history are deleted. The maximum workflow execution retention period is 90 days. For more information about Amazon SWF service limits, see: in the /Amazon SWF Developer Guide/ . -registerDomain - :: Text -- ^ 'rdName' - -> Text -- ^ 'rdWorkflowExecutionRetentionPeriodInDays' - -> RegisterDomain -registerDomain pName_ pWorkflowExecutionRetentionPeriodInDays_ = - RegisterDomain' - { _rdDescription = Nothing - , _rdName = pName_ - , _rdWorkflowExecutionRetentionPeriodInDays = - pWorkflowExecutionRetentionPeriodInDays_ - } - - --- | A text description of the domain. -rdDescription :: Lens' RegisterDomain (Maybe Text) -rdDescription = lens _rdDescription (\ s a -> s{_rdDescription = a}) - --- | Name of the domain to register. The name must be unique in the region that the domain is registered in. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -rdName :: Lens' RegisterDomain Text -rdName = lens _rdName (\ s a -> s{_rdName = a}) - --- | The duration (in days) that records and histories of workflow executions on the domain should be kept by the service. After the retention period, the workflow execution isn't available in the results of visibility calls. If you pass the value @NONE@ or @0@ (zero), then the workflow execution history isn't retained. As soon as the workflow execution completes, the execution record and its history are deleted. The maximum workflow execution retention period is 90 days. For more information about Amazon SWF service limits, see: in the /Amazon SWF Developer Guide/ . -rdWorkflowExecutionRetentionPeriodInDays :: Lens' RegisterDomain Text -rdWorkflowExecutionRetentionPeriodInDays = lens _rdWorkflowExecutionRetentionPeriodInDays (\ s a -> s{_rdWorkflowExecutionRetentionPeriodInDays = a}) - -instance AWSRequest RegisterDomain where - type Rs RegisterDomain = RegisterDomainResponse - request = postJSON swf - response = receiveNull RegisterDomainResponse' - -instance Hashable RegisterDomain where - -instance NFData RegisterDomain where - -instance ToHeaders RegisterDomain where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.RegisterDomain" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON RegisterDomain where - toJSON RegisterDomain'{..} - = object - (catMaybes - [("description" .=) <$> _rdDescription, - Just ("name" .= _rdName), - Just - ("workflowExecutionRetentionPeriodInDays" .= - _rdWorkflowExecutionRetentionPeriodInDays)]) - -instance ToPath RegisterDomain where - toPath = const "/" - -instance ToQuery RegisterDomain where - toQuery = const mempty - --- | /See:/ 'registerDomainResponse' smart constructor. -data RegisterDomainResponse = - RegisterDomainResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RegisterDomainResponse' with the minimum fields required to make a request. --- -registerDomainResponse - :: RegisterDomainResponse -registerDomainResponse = RegisterDomainResponse' - - -instance NFData RegisterDomainResponse where diff --git a/gen/Network/AWS/SWF/RegisterWorkflowType.hs b/gen/Network/AWS/SWF/RegisterWorkflowType.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/RegisterWorkflowType.hs +++ /dev/null @@ -1,234 +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.SWF.RegisterWorkflowType --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Registers a new /workflow type/ and its configuration settings in the specified domain. --- --- --- The retention period for the workflow history is set by the 'RegisterDomain' action. --- --- /Important:/ If the type already exists, then a @TypeAlreadyExists@ fault is returned. You cannot change the configuration settings of a workflow type once it is registered and it must be registered as a new version. --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the following parameters by using a @Condition@ element with the appropriate keys. --- --- * @defaultTaskList.name@ : String constraint. The key is @swf:defaultTaskList.name@ . --- --- * @name@ : String constraint. The key is @swf:name@ . --- --- * @version@ : String constraint. The key is @swf:version@ . --- --- --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.RegisterWorkflowType - ( - -- * Creating a Request - registerWorkflowType - , RegisterWorkflowType - -- * Request Lenses - , rwtDefaultLambdaRole - , rwtDefaultChildPolicy - , rwtDefaultTaskList - , rwtDefaultTaskPriority - , rwtDefaultExecutionStartToCloseTimeout - , rwtDefaultTaskStartToCloseTimeout - , rwtDescription - , rwtDomain - , rwtName - , rwtVersion - - -- * Destructuring the Response - , registerWorkflowTypeResponse - , RegisterWorkflowTypeResponse - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'registerWorkflowType' smart constructor. -data RegisterWorkflowType = RegisterWorkflowType' - { _rwtDefaultLambdaRole :: !(Maybe Text) - , _rwtDefaultChildPolicy :: !(Maybe ChildPolicy) - , _rwtDefaultTaskList :: !(Maybe TaskList) - , _rwtDefaultTaskPriority :: !(Maybe Text) - , _rwtDefaultExecutionStartToCloseTimeout :: !(Maybe Text) - , _rwtDefaultTaskStartToCloseTimeout :: !(Maybe Text) - , _rwtDescription :: !(Maybe Text) - , _rwtDomain :: !Text - , _rwtName :: !Text - , _rwtVersion :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RegisterWorkflowType' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rwtDefaultLambdaRole' - The default IAM role attached to this workflow type. --- --- * 'rwtDefaultChildPolicy' - If set, specifies the default policy to use for the child workflow executions when a workflow execution of this type is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. --- --- * 'rwtDefaultTaskList' - If set, specifies the default task list to use for scheduling decision tasks for executions of this workflow type. This default is used only if a task list isn't provided when starting the execution through the 'StartWorkflowExecution' Action or @StartChildWorkflowExecution@ 'Decision' . --- --- * 'rwtDefaultTaskPriority' - The default task priority to assign to the workflow type. If not assigned, then @0@ is used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . --- --- * 'rwtDefaultExecutionStartToCloseTimeout' - If set, specifies the default maximum duration for executions of this workflow type. You can override this default when starting an execution through the 'StartWorkflowExecution' Action or @StartChildWorkflowExecution@ 'Decision' . The duration is specified in seconds; an integer greater than or equal to 0. Unlike some of the other timeout parameters in Amazon SWF, you cannot specify a value of "NONE" for @defaultExecutionStartToCloseTimeout@ ; there is a one-year max limit on the time that a workflow execution can run. Exceeding this limit always causes the workflow execution to time out. --- --- * 'rwtDefaultTaskStartToCloseTimeout' - If set, specifies the default maximum duration of decision tasks for this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'rwtDescription' - Textual description of the workflow type. --- --- * 'rwtDomain' - The name of the domain in which to register the workflow type. --- --- * 'rwtName' - The name of the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . --- --- * 'rwtVersion' - The version of the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -registerWorkflowType - :: Text -- ^ 'rwtDomain' - -> Text -- ^ 'rwtName' - -> Text -- ^ 'rwtVersion' - -> RegisterWorkflowType -registerWorkflowType pDomain_ pName_ pVersion_ = - RegisterWorkflowType' - { _rwtDefaultLambdaRole = Nothing - , _rwtDefaultChildPolicy = Nothing - , _rwtDefaultTaskList = Nothing - , _rwtDefaultTaskPriority = Nothing - , _rwtDefaultExecutionStartToCloseTimeout = Nothing - , _rwtDefaultTaskStartToCloseTimeout = Nothing - , _rwtDescription = Nothing - , _rwtDomain = pDomain_ - , _rwtName = pName_ - , _rwtVersion = pVersion_ - } - - --- | The default IAM role attached to this workflow type. -rwtDefaultLambdaRole :: Lens' RegisterWorkflowType (Maybe Text) -rwtDefaultLambdaRole = lens _rwtDefaultLambdaRole (\ s a -> s{_rwtDefaultLambdaRole = a}) - --- | If set, specifies the default policy to use for the child workflow executions when a workflow execution of this type is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -rwtDefaultChildPolicy :: Lens' RegisterWorkflowType (Maybe ChildPolicy) -rwtDefaultChildPolicy = lens _rwtDefaultChildPolicy (\ s a -> s{_rwtDefaultChildPolicy = a}) - --- | If set, specifies the default task list to use for scheduling decision tasks for executions of this workflow type. This default is used only if a task list isn't provided when starting the execution through the 'StartWorkflowExecution' Action or @StartChildWorkflowExecution@ 'Decision' . -rwtDefaultTaskList :: Lens' RegisterWorkflowType (Maybe TaskList) -rwtDefaultTaskList = lens _rwtDefaultTaskList (\ s a -> s{_rwtDefaultTaskList = a}) - --- | The default task priority to assign to the workflow type. If not assigned, then @0@ is used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . -rwtDefaultTaskPriority :: Lens' RegisterWorkflowType (Maybe Text) -rwtDefaultTaskPriority = lens _rwtDefaultTaskPriority (\ s a -> s{_rwtDefaultTaskPriority = a}) - --- | If set, specifies the default maximum duration for executions of this workflow type. You can override this default when starting an execution through the 'StartWorkflowExecution' Action or @StartChildWorkflowExecution@ 'Decision' . The duration is specified in seconds; an integer greater than or equal to 0. Unlike some of the other timeout parameters in Amazon SWF, you cannot specify a value of "NONE" for @defaultExecutionStartToCloseTimeout@ ; there is a one-year max limit on the time that a workflow execution can run. Exceeding this limit always causes the workflow execution to time out. -rwtDefaultExecutionStartToCloseTimeout :: Lens' RegisterWorkflowType (Maybe Text) -rwtDefaultExecutionStartToCloseTimeout = lens _rwtDefaultExecutionStartToCloseTimeout (\ s a -> s{_rwtDefaultExecutionStartToCloseTimeout = a}) - --- | If set, specifies the default maximum duration of decision tasks for this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -rwtDefaultTaskStartToCloseTimeout :: Lens' RegisterWorkflowType (Maybe Text) -rwtDefaultTaskStartToCloseTimeout = lens _rwtDefaultTaskStartToCloseTimeout (\ s a -> s{_rwtDefaultTaskStartToCloseTimeout = a}) - --- | Textual description of the workflow type. -rwtDescription :: Lens' RegisterWorkflowType (Maybe Text) -rwtDescription = lens _rwtDescription (\ s a -> s{_rwtDescription = a}) - --- | The name of the domain in which to register the workflow type. -rwtDomain :: Lens' RegisterWorkflowType Text -rwtDomain = lens _rwtDomain (\ s a -> s{_rwtDomain = a}) - --- | The name of the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -rwtName :: Lens' RegisterWorkflowType Text -rwtName = lens _rwtName (\ s a -> s{_rwtName = a}) - --- | The version of the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -rwtVersion :: Lens' RegisterWorkflowType Text -rwtVersion = lens _rwtVersion (\ s a -> s{_rwtVersion = a}) - -instance AWSRequest RegisterWorkflowType where - type Rs RegisterWorkflowType = - RegisterWorkflowTypeResponse - request = postJSON swf - response = receiveNull RegisterWorkflowTypeResponse' - -instance Hashable RegisterWorkflowType where - -instance NFData RegisterWorkflowType where - -instance ToHeaders RegisterWorkflowType where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.RegisterWorkflowType" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON RegisterWorkflowType where - toJSON RegisterWorkflowType'{..} - = object - (catMaybes - [("defaultLambdaRole" .=) <$> _rwtDefaultLambdaRole, - ("defaultChildPolicy" .=) <$> _rwtDefaultChildPolicy, - ("defaultTaskList" .=) <$> _rwtDefaultTaskList, - ("defaultTaskPriority" .=) <$> - _rwtDefaultTaskPriority, - ("defaultExecutionStartToCloseTimeout" .=) <$> - _rwtDefaultExecutionStartToCloseTimeout, - ("defaultTaskStartToCloseTimeout" .=) <$> - _rwtDefaultTaskStartToCloseTimeout, - ("description" .=) <$> _rwtDescription, - Just ("domain" .= _rwtDomain), - Just ("name" .= _rwtName), - Just ("version" .= _rwtVersion)]) - -instance ToPath RegisterWorkflowType where - toPath = const "/" - -instance ToQuery RegisterWorkflowType where - toQuery = const mempty - --- | /See:/ 'registerWorkflowTypeResponse' smart constructor. -data RegisterWorkflowTypeResponse = - RegisterWorkflowTypeResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RegisterWorkflowTypeResponse' with the minimum fields required to make a request. --- -registerWorkflowTypeResponse - :: RegisterWorkflowTypeResponse -registerWorkflowTypeResponse = RegisterWorkflowTypeResponse' - - -instance NFData RegisterWorkflowTypeResponse where diff --git a/gen/Network/AWS/SWF/RequestCancelWorkflowExecution.hs b/gen/Network/AWS/SWF/RequestCancelWorkflowExecution.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/RequestCancelWorkflowExecution.hs +++ /dev/null @@ -1,154 +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.SWF.RequestCancelWorkflowExecution --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Records a @WorkflowExecutionCancelRequested@ event in the currently running workflow execution identified by the given domain, workflowId, and runId. This logically requests the cancellation of the workflow execution as a whole. It is up to the decider to take appropriate actions when it receives an execution history with this event. --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.RequestCancelWorkflowExecution - ( - -- * Creating a Request - requestCancelWorkflowExecution - , RequestCancelWorkflowExecution - -- * Request Lenses - , rcweRunId - , rcweDomain - , rcweWorkflowId - - -- * Destructuring the Response - , requestCancelWorkflowExecutionResponse - , RequestCancelWorkflowExecutionResponse - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'requestCancelWorkflowExecution' smart constructor. -data RequestCancelWorkflowExecution = RequestCancelWorkflowExecution' - { _rcweRunId :: !(Maybe Text) - , _rcweDomain :: !Text - , _rcweWorkflowId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RequestCancelWorkflowExecution' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rcweRunId' - The runId of the workflow execution to cancel. --- --- * 'rcweDomain' - The name of the domain containing the workflow execution to cancel. --- --- * 'rcweWorkflowId' - The workflowId of the workflow execution to cancel. -requestCancelWorkflowExecution - :: Text -- ^ 'rcweDomain' - -> Text -- ^ 'rcweWorkflowId' - -> RequestCancelWorkflowExecution -requestCancelWorkflowExecution pDomain_ pWorkflowId_ = - RequestCancelWorkflowExecution' - { _rcweRunId = Nothing - , _rcweDomain = pDomain_ - , _rcweWorkflowId = pWorkflowId_ - } - - --- | The runId of the workflow execution to cancel. -rcweRunId :: Lens' RequestCancelWorkflowExecution (Maybe Text) -rcweRunId = lens _rcweRunId (\ s a -> s{_rcweRunId = a}) - --- | The name of the domain containing the workflow execution to cancel. -rcweDomain :: Lens' RequestCancelWorkflowExecution Text -rcweDomain = lens _rcweDomain (\ s a -> s{_rcweDomain = a}) - --- | The workflowId of the workflow execution to cancel. -rcweWorkflowId :: Lens' RequestCancelWorkflowExecution Text -rcweWorkflowId = lens _rcweWorkflowId (\ s a -> s{_rcweWorkflowId = a}) - -instance AWSRequest RequestCancelWorkflowExecution - where - type Rs RequestCancelWorkflowExecution = - RequestCancelWorkflowExecutionResponse - request = postJSON swf - response - = receiveNull RequestCancelWorkflowExecutionResponse' - -instance Hashable RequestCancelWorkflowExecution - where - -instance NFData RequestCancelWorkflowExecution where - -instance ToHeaders RequestCancelWorkflowExecution - where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.RequestCancelWorkflowExecution" - :: ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON RequestCancelWorkflowExecution where - toJSON RequestCancelWorkflowExecution'{..} - = object - (catMaybes - [("runId" .=) <$> _rcweRunId, - Just ("domain" .= _rcweDomain), - Just ("workflowId" .= _rcweWorkflowId)]) - -instance ToPath RequestCancelWorkflowExecution where - toPath = const "/" - -instance ToQuery RequestCancelWorkflowExecution where - toQuery = const mempty - --- | /See:/ 'requestCancelWorkflowExecutionResponse' smart constructor. -data RequestCancelWorkflowExecutionResponse = - RequestCancelWorkflowExecutionResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RequestCancelWorkflowExecutionResponse' with the minimum fields required to make a request. --- -requestCancelWorkflowExecutionResponse - :: RequestCancelWorkflowExecutionResponse -requestCancelWorkflowExecutionResponse = RequestCancelWorkflowExecutionResponse' - - -instance NFData - RequestCancelWorkflowExecutionResponse - where diff --git a/gen/Network/AWS/SWF/RespondActivityTaskCanceled.hs b/gen/Network/AWS/SWF/RespondActivityTaskCanceled.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/RespondActivityTaskCanceled.hs +++ /dev/null @@ -1,142 +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.SWF.RespondActivityTaskCanceled --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Used by workers to tell the service that the 'ActivityTask' identified by the @taskToken@ was successfully canceled. Additional @details@ can be provided using the @details@ argument. --- --- --- These @details@ (if provided) appear in the @ActivityTaskCanceled@ event added to the workflow history. --- --- /Important:/ Only use this operation if the @canceled@ flag of a 'RecordActivityTaskHeartbeat' request returns @true@ and if the activity can be safely undone or abandoned. --- --- A task is considered open from the time that it is scheduled until it is closed. Therefore a task is reported as open while a worker is processing it. A task is closed after it has been specified in a call to 'RespondActivityTaskCompleted' , RespondActivityTaskCanceled, 'RespondActivityTaskFailed' , or the task has . --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.RespondActivityTaskCanceled - ( - -- * Creating a Request - respondActivityTaskCanceled - , RespondActivityTaskCanceled - -- * Request Lenses - , rDetails - , rTaskToken - - -- * Destructuring the Response - , respondActivityTaskCanceledResponse - , RespondActivityTaskCanceledResponse - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'respondActivityTaskCanceled' smart constructor. -data RespondActivityTaskCanceled = RespondActivityTaskCanceled' - { _rDetails :: !(Maybe Text) - , _rTaskToken :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RespondActivityTaskCanceled' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rDetails' - Information about the cancellation. --- --- * 'rTaskToken' - The @taskToken@ of the 'ActivityTask' . /Important:/ @taskToken@ is generated by the service and should be treated as an opaque value. If the task is passed to another process, its @taskToken@ must also be passed. This enables it to provide its progress and respond with results. -respondActivityTaskCanceled - :: Text -- ^ 'rTaskToken' - -> RespondActivityTaskCanceled -respondActivityTaskCanceled pTaskToken_ = - RespondActivityTaskCanceled' {_rDetails = Nothing, _rTaskToken = pTaskToken_} - - --- | Information about the cancellation. -rDetails :: Lens' RespondActivityTaskCanceled (Maybe Text) -rDetails = lens _rDetails (\ s a -> s{_rDetails = a}) - --- | The @taskToken@ of the 'ActivityTask' . /Important:/ @taskToken@ is generated by the service and should be treated as an opaque value. If the task is passed to another process, its @taskToken@ must also be passed. This enables it to provide its progress and respond with results. -rTaskToken :: Lens' RespondActivityTaskCanceled Text -rTaskToken = lens _rTaskToken (\ s a -> s{_rTaskToken = a}) - -instance AWSRequest RespondActivityTaskCanceled where - type Rs RespondActivityTaskCanceled = - RespondActivityTaskCanceledResponse - request = postJSON swf - response - = receiveNull RespondActivityTaskCanceledResponse' - -instance Hashable RespondActivityTaskCanceled where - -instance NFData RespondActivityTaskCanceled where - -instance ToHeaders RespondActivityTaskCanceled where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.RespondActivityTaskCanceled" - :: ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON RespondActivityTaskCanceled where - toJSON RespondActivityTaskCanceled'{..} - = object - (catMaybes - [("details" .=) <$> _rDetails, - Just ("taskToken" .= _rTaskToken)]) - -instance ToPath RespondActivityTaskCanceled where - toPath = const "/" - -instance ToQuery RespondActivityTaskCanceled where - toQuery = const mempty - --- | /See:/ 'respondActivityTaskCanceledResponse' smart constructor. -data RespondActivityTaskCanceledResponse = - RespondActivityTaskCanceledResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RespondActivityTaskCanceledResponse' with the minimum fields required to make a request. --- -respondActivityTaskCanceledResponse - :: RespondActivityTaskCanceledResponse -respondActivityTaskCanceledResponse = RespondActivityTaskCanceledResponse' - - -instance NFData RespondActivityTaskCanceledResponse - where diff --git a/gen/Network/AWS/SWF/RespondActivityTaskCompleted.hs b/gen/Network/AWS/SWF/RespondActivityTaskCompleted.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/RespondActivityTaskCompleted.hs +++ /dev/null @@ -1,142 +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.SWF.RespondActivityTaskCompleted --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Used by workers to tell the service that the 'ActivityTask' identified by the @taskToken@ completed successfully with a @result@ (if provided). The @result@ appears in the @ActivityTaskCompleted@ event in the workflow history. --- --- --- /Important:/ If the requested task doesn't complete successfully, use 'RespondActivityTaskFailed' instead. If the worker finds that the task is canceled through the @canceled@ flag returned by 'RecordActivityTaskHeartbeat' , it should cancel the task, clean up and then call 'RespondActivityTaskCanceled' . --- --- A task is considered open from the time that it is scheduled until it is closed. Therefore a task is reported as open while a worker is processing it. A task is closed after it has been specified in a call to RespondActivityTaskCompleted, 'RespondActivityTaskCanceled' , 'RespondActivityTaskFailed' , or the task has . --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.RespondActivityTaskCompleted - ( - -- * Creating a Request - respondActivityTaskCompleted - , RespondActivityTaskCompleted - -- * Request Lenses - , ratcResult - , ratcTaskToken - - -- * Destructuring the Response - , respondActivityTaskCompletedResponse - , RespondActivityTaskCompletedResponse - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'respondActivityTaskCompleted' smart constructor. -data RespondActivityTaskCompleted = RespondActivityTaskCompleted' - { _ratcResult :: !(Maybe Text) - , _ratcTaskToken :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RespondActivityTaskCompleted' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ratcResult' - The result of the activity task. It is a free form string that is implementation specific. --- --- * 'ratcTaskToken' - The @taskToken@ of the 'ActivityTask' . /Important:/ @taskToken@ is generated by the service and should be treated as an opaque value. If the task is passed to another process, its @taskToken@ must also be passed. This enables it to provide its progress and respond with results. -respondActivityTaskCompleted - :: Text -- ^ 'ratcTaskToken' - -> RespondActivityTaskCompleted -respondActivityTaskCompleted pTaskToken_ = - RespondActivityTaskCompleted' - {_ratcResult = Nothing, _ratcTaskToken = pTaskToken_} - - --- | The result of the activity task. It is a free form string that is implementation specific. -ratcResult :: Lens' RespondActivityTaskCompleted (Maybe Text) -ratcResult = lens _ratcResult (\ s a -> s{_ratcResult = a}) - --- | The @taskToken@ of the 'ActivityTask' . /Important:/ @taskToken@ is generated by the service and should be treated as an opaque value. If the task is passed to another process, its @taskToken@ must also be passed. This enables it to provide its progress and respond with results. -ratcTaskToken :: Lens' RespondActivityTaskCompleted Text -ratcTaskToken = lens _ratcTaskToken (\ s a -> s{_ratcTaskToken = a}) - -instance AWSRequest RespondActivityTaskCompleted - where - type Rs RespondActivityTaskCompleted = - RespondActivityTaskCompletedResponse - request = postJSON swf - response - = receiveNull RespondActivityTaskCompletedResponse' - -instance Hashable RespondActivityTaskCompleted where - -instance NFData RespondActivityTaskCompleted where - -instance ToHeaders RespondActivityTaskCompleted where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.RespondActivityTaskCompleted" - :: ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON RespondActivityTaskCompleted where - toJSON RespondActivityTaskCompleted'{..} - = object - (catMaybes - [("result" .=) <$> _ratcResult, - Just ("taskToken" .= _ratcTaskToken)]) - -instance ToPath RespondActivityTaskCompleted where - toPath = const "/" - -instance ToQuery RespondActivityTaskCompleted where - toQuery = const mempty - --- | /See:/ 'respondActivityTaskCompletedResponse' smart constructor. -data RespondActivityTaskCompletedResponse = - RespondActivityTaskCompletedResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RespondActivityTaskCompletedResponse' with the minimum fields required to make a request. --- -respondActivityTaskCompletedResponse - :: RespondActivityTaskCompletedResponse -respondActivityTaskCompletedResponse = RespondActivityTaskCompletedResponse' - - -instance NFData RespondActivityTaskCompletedResponse - where diff --git a/gen/Network/AWS/SWF/RespondActivityTaskFailed.hs b/gen/Network/AWS/SWF/RespondActivityTaskFailed.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/RespondActivityTaskFailed.hs +++ /dev/null @@ -1,151 +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.SWF.RespondActivityTaskFailed --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Used by workers to tell the service that the 'ActivityTask' identified by the @taskToken@ has failed with @reason@ (if specified). The @reason@ and @details@ appear in the @ActivityTaskFailed@ event added to the workflow history. --- --- --- A task is considered open from the time that it is scheduled until it is closed. Therefore a task is reported as open while a worker is processing it. A task is closed after it has been specified in a call to 'RespondActivityTaskCompleted' , 'RespondActivityTaskCanceled' , RespondActivityTaskFailed, or the task has . --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.RespondActivityTaskFailed - ( - -- * Creating a Request - respondActivityTaskFailed - , RespondActivityTaskFailed - -- * Request Lenses - , ratfReason - , ratfDetails - , ratfTaskToken - - -- * Destructuring the Response - , respondActivityTaskFailedResponse - , RespondActivityTaskFailedResponse - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'respondActivityTaskFailed' smart constructor. -data RespondActivityTaskFailed = RespondActivityTaskFailed' - { _ratfReason :: !(Maybe Text) - , _ratfDetails :: !(Maybe Text) - , _ratfTaskToken :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RespondActivityTaskFailed' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ratfReason' - Description of the error that may assist in diagnostics. --- --- * 'ratfDetails' - Detailed information about the failure. --- --- * 'ratfTaskToken' - The @taskToken@ of the 'ActivityTask' . /Important:/ @taskToken@ is generated by the service and should be treated as an opaque value. If the task is passed to another process, its @taskToken@ must also be passed. This enables it to provide its progress and respond with results. -respondActivityTaskFailed - :: Text -- ^ 'ratfTaskToken' - -> RespondActivityTaskFailed -respondActivityTaskFailed pTaskToken_ = - RespondActivityTaskFailed' - { _ratfReason = Nothing - , _ratfDetails = Nothing - , _ratfTaskToken = pTaskToken_ - } - - --- | Description of the error that may assist in diagnostics. -ratfReason :: Lens' RespondActivityTaskFailed (Maybe Text) -ratfReason = lens _ratfReason (\ s a -> s{_ratfReason = a}) - --- | Detailed information about the failure. -ratfDetails :: Lens' RespondActivityTaskFailed (Maybe Text) -ratfDetails = lens _ratfDetails (\ s a -> s{_ratfDetails = a}) - --- | The @taskToken@ of the 'ActivityTask' . /Important:/ @taskToken@ is generated by the service and should be treated as an opaque value. If the task is passed to another process, its @taskToken@ must also be passed. This enables it to provide its progress and respond with results. -ratfTaskToken :: Lens' RespondActivityTaskFailed Text -ratfTaskToken = lens _ratfTaskToken (\ s a -> s{_ratfTaskToken = a}) - -instance AWSRequest RespondActivityTaskFailed where - type Rs RespondActivityTaskFailed = - RespondActivityTaskFailedResponse - request = postJSON swf - response - = receiveNull RespondActivityTaskFailedResponse' - -instance Hashable RespondActivityTaskFailed where - -instance NFData RespondActivityTaskFailed where - -instance ToHeaders RespondActivityTaskFailed where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.RespondActivityTaskFailed" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON RespondActivityTaskFailed where - toJSON RespondActivityTaskFailed'{..} - = object - (catMaybes - [("reason" .=) <$> _ratfReason, - ("details" .=) <$> _ratfDetails, - Just ("taskToken" .= _ratfTaskToken)]) - -instance ToPath RespondActivityTaskFailed where - toPath = const "/" - -instance ToQuery RespondActivityTaskFailed where - toQuery = const mempty - --- | /See:/ 'respondActivityTaskFailedResponse' smart constructor. -data RespondActivityTaskFailedResponse = - RespondActivityTaskFailedResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RespondActivityTaskFailedResponse' with the minimum fields required to make a request. --- -respondActivityTaskFailedResponse - :: RespondActivityTaskFailedResponse -respondActivityTaskFailedResponse = RespondActivityTaskFailedResponse' - - -instance NFData RespondActivityTaskFailedResponse - where diff --git a/gen/Network/AWS/SWF/RespondDecisionTaskCompleted.hs b/gen/Network/AWS/SWF/RespondDecisionTaskCompleted.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/RespondDecisionTaskCompleted.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.SWF.RespondDecisionTaskCompleted --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Used by deciders to tell the service that the 'DecisionTask' identified by the @taskToken@ has successfully completed. The @decisions@ argument specifies the list of decisions made while processing the task. --- --- --- A @DecisionTaskCompleted@ event is added to the workflow history. The @executionContext@ specified is attached to the event in the workflow execution history. --- --- __Access Control__ --- --- If an IAM policy grants permission to use @RespondDecisionTaskCompleted@ , it can express permissions for the list of decisions in the @decisions@ parameter. Each of the decisions has one or more parameters, much like a regular API call. To allow for policies to be as readable as possible, you can express permissions on decisions as if they were actual API calls, including applying conditions to some parameters. For more information, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.RespondDecisionTaskCompleted - ( - -- * Creating a Request - respondDecisionTaskCompleted - , RespondDecisionTaskCompleted - -- * Request Lenses - , rdtcDecisions - , rdtcExecutionContext - , rdtcTaskToken - - -- * Destructuring the Response - , respondDecisionTaskCompletedResponse - , RespondDecisionTaskCompletedResponse - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | Input data for a TaskCompleted response to a decision task. --- --- --- --- /See:/ 'respondDecisionTaskCompleted' smart constructor. -data RespondDecisionTaskCompleted = RespondDecisionTaskCompleted' - { _rdtcDecisions :: !(Maybe [Decision]) - , _rdtcExecutionContext :: !(Maybe Text) - , _rdtcTaskToken :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RespondDecisionTaskCompleted' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rdtcDecisions' - The list of decisions (possibly empty) made by the decider while processing this decision task. See the docs for the 'Decision' structure for details. --- --- * 'rdtcExecutionContext' - User defined context to add to workflow execution. --- --- * 'rdtcTaskToken' - The @taskToken@ from the 'DecisionTask' . /Important:/ @taskToken@ is generated by the service and should be treated as an opaque value. If the task is passed to another process, its @taskToken@ must also be passed. This enables it to provide its progress and respond with results. -respondDecisionTaskCompleted - :: Text -- ^ 'rdtcTaskToken' - -> RespondDecisionTaskCompleted -respondDecisionTaskCompleted pTaskToken_ = - RespondDecisionTaskCompleted' - { _rdtcDecisions = Nothing - , _rdtcExecutionContext = Nothing - , _rdtcTaskToken = pTaskToken_ - } - - --- | The list of decisions (possibly empty) made by the decider while processing this decision task. See the docs for the 'Decision' structure for details. -rdtcDecisions :: Lens' RespondDecisionTaskCompleted [Decision] -rdtcDecisions = lens _rdtcDecisions (\ s a -> s{_rdtcDecisions = a}) . _Default . _Coerce - --- | User defined context to add to workflow execution. -rdtcExecutionContext :: Lens' RespondDecisionTaskCompleted (Maybe Text) -rdtcExecutionContext = lens _rdtcExecutionContext (\ s a -> s{_rdtcExecutionContext = a}) - --- | The @taskToken@ from the 'DecisionTask' . /Important:/ @taskToken@ is generated by the service and should be treated as an opaque value. If the task is passed to another process, its @taskToken@ must also be passed. This enables it to provide its progress and respond with results. -rdtcTaskToken :: Lens' RespondDecisionTaskCompleted Text -rdtcTaskToken = lens _rdtcTaskToken (\ s a -> s{_rdtcTaskToken = a}) - -instance AWSRequest RespondDecisionTaskCompleted - where - type Rs RespondDecisionTaskCompleted = - RespondDecisionTaskCompletedResponse - request = postJSON swf - response - = receiveNull RespondDecisionTaskCompletedResponse' - -instance Hashable RespondDecisionTaskCompleted where - -instance NFData RespondDecisionTaskCompleted where - -instance ToHeaders RespondDecisionTaskCompleted where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.RespondDecisionTaskCompleted" - :: ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON RespondDecisionTaskCompleted where - toJSON RespondDecisionTaskCompleted'{..} - = object - (catMaybes - [("decisions" .=) <$> _rdtcDecisions, - ("executionContext" .=) <$> _rdtcExecutionContext, - Just ("taskToken" .= _rdtcTaskToken)]) - -instance ToPath RespondDecisionTaskCompleted where - toPath = const "/" - -instance ToQuery RespondDecisionTaskCompleted where - toQuery = const mempty - --- | /See:/ 'respondDecisionTaskCompletedResponse' smart constructor. -data RespondDecisionTaskCompletedResponse = - RespondDecisionTaskCompletedResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RespondDecisionTaskCompletedResponse' with the minimum fields required to make a request. --- -respondDecisionTaskCompletedResponse - :: RespondDecisionTaskCompletedResponse -respondDecisionTaskCompletedResponse = RespondDecisionTaskCompletedResponse' - - -instance NFData RespondDecisionTaskCompletedResponse - where diff --git a/gen/Network/AWS/SWF/SignalWorkflowExecution.hs b/gen/Network/AWS/SWF/SignalWorkflowExecution.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/SignalWorkflowExecution.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.SWF.SignalWorkflowExecution --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Records a @WorkflowExecutionSignaled@ event in the workflow execution history and creates a decision task for the workflow execution identified by the given domain, workflowId and runId. The event is recorded with the specified user defined signalName and input (if provided). --- --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.SignalWorkflowExecution - ( - -- * Creating a Request - signalWorkflowExecution - , SignalWorkflowExecution - -- * Request Lenses - , sweInput - , sweRunId - , sweDomain - , sweWorkflowId - , sweSignalName - - -- * Destructuring the Response - , signalWorkflowExecutionResponse - , SignalWorkflowExecutionResponse - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'signalWorkflowExecution' smart constructor. -data SignalWorkflowExecution = SignalWorkflowExecution' - { _sweInput :: !(Maybe Text) - , _sweRunId :: !(Maybe Text) - , _sweDomain :: !Text - , _sweWorkflowId :: !Text - , _sweSignalName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SignalWorkflowExecution' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sweInput' - Data to attach to the @WorkflowExecutionSignaled@ event in the target workflow execution's history. --- --- * 'sweRunId' - The runId of the workflow execution to signal. --- --- * 'sweDomain' - The name of the domain containing the workflow execution to signal. --- --- * 'sweWorkflowId' - The workflowId of the workflow execution to signal. --- --- * 'sweSignalName' - The name of the signal. This name must be meaningful to the target workflow. -signalWorkflowExecution - :: Text -- ^ 'sweDomain' - -> Text -- ^ 'sweWorkflowId' - -> Text -- ^ 'sweSignalName' - -> SignalWorkflowExecution -signalWorkflowExecution pDomain_ pWorkflowId_ pSignalName_ = - SignalWorkflowExecution' - { _sweInput = Nothing - , _sweRunId = Nothing - , _sweDomain = pDomain_ - , _sweWorkflowId = pWorkflowId_ - , _sweSignalName = pSignalName_ - } - - --- | Data to attach to the @WorkflowExecutionSignaled@ event in the target workflow execution's history. -sweInput :: Lens' SignalWorkflowExecution (Maybe Text) -sweInput = lens _sweInput (\ s a -> s{_sweInput = a}) - --- | The runId of the workflow execution to signal. -sweRunId :: Lens' SignalWorkflowExecution (Maybe Text) -sweRunId = lens _sweRunId (\ s a -> s{_sweRunId = a}) - --- | The name of the domain containing the workflow execution to signal. -sweDomain :: Lens' SignalWorkflowExecution Text -sweDomain = lens _sweDomain (\ s a -> s{_sweDomain = a}) - --- | The workflowId of the workflow execution to signal. -sweWorkflowId :: Lens' SignalWorkflowExecution Text -sweWorkflowId = lens _sweWorkflowId (\ s a -> s{_sweWorkflowId = a}) - --- | The name of the signal. This name must be meaningful to the target workflow. -sweSignalName :: Lens' SignalWorkflowExecution Text -sweSignalName = lens _sweSignalName (\ s a -> s{_sweSignalName = a}) - -instance AWSRequest SignalWorkflowExecution where - type Rs SignalWorkflowExecution = - SignalWorkflowExecutionResponse - request = postJSON swf - response - = receiveNull SignalWorkflowExecutionResponse' - -instance Hashable SignalWorkflowExecution where - -instance NFData SignalWorkflowExecution where - -instance ToHeaders SignalWorkflowExecution where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.SignalWorkflowExecution" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON SignalWorkflowExecution where - toJSON SignalWorkflowExecution'{..} - = object - (catMaybes - [("input" .=) <$> _sweInput, - ("runId" .=) <$> _sweRunId, - Just ("domain" .= _sweDomain), - Just ("workflowId" .= _sweWorkflowId), - Just ("signalName" .= _sweSignalName)]) - -instance ToPath SignalWorkflowExecution where - toPath = const "/" - -instance ToQuery SignalWorkflowExecution where - toQuery = const mempty - --- | /See:/ 'signalWorkflowExecutionResponse' smart constructor. -data SignalWorkflowExecutionResponse = - SignalWorkflowExecutionResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SignalWorkflowExecutionResponse' with the minimum fields required to make a request. --- -signalWorkflowExecutionResponse - :: SignalWorkflowExecutionResponse -signalWorkflowExecutionResponse = SignalWorkflowExecutionResponse' - - -instance NFData SignalWorkflowExecutionResponse where diff --git a/gen/Network/AWS/SWF/StartWorkflowExecution.hs b/gen/Network/AWS/SWF/StartWorkflowExecution.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/StartWorkflowExecution.hs +++ /dev/null @@ -1,279 +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.SWF.StartWorkflowExecution --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Starts an execution of the workflow type in the specified domain using the provided @workflowId@ and input data. --- --- --- This action returns the newly started workflow execution. --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the following parameters by using a @Condition@ element with the appropriate keys. --- --- * @tagList.member.0@ : The key is @swf:tagList.member.0@ . --- --- * @tagList.member.1@ : The key is @swf:tagList.member.1@ . --- --- * @tagList.member.2@ : The key is @swf:tagList.member.2@ . --- --- * @tagList.member.3@ : The key is @swf:tagList.member.3@ . --- --- * @tagList.member.4@ : The key is @swf:tagList.member.4@ . --- --- * @taskList@ : String constraint. The key is @swf:taskList.name@ . --- --- * @workflowType.name@ : String constraint. The key is @swf:workflowType.name@ . --- --- * @workflowType.version@ : String constraint. The key is @swf:workflowType.version@ . --- --- --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.StartWorkflowExecution - ( - -- * Creating a Request - startWorkflowExecution - , StartWorkflowExecution - -- * Request Lenses - , sTagList - , sTaskStartToCloseTimeout - , sLambdaRole - , sInput - , sExecutionStartToCloseTimeout - , sTaskList - , sTaskPriority - , sChildPolicy - , sDomain - , sWorkflowId - , sWorkflowType - - -- * Destructuring the Response - , startWorkflowExecutionResponse - , StartWorkflowExecutionResponse - -- * Response Lenses - , swersRunId - , swersResponseStatus - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'startWorkflowExecution' smart constructor. -data StartWorkflowExecution = StartWorkflowExecution' - { _sTagList :: !(Maybe [Text]) - , _sTaskStartToCloseTimeout :: !(Maybe Text) - , _sLambdaRole :: !(Maybe Text) - , _sInput :: !(Maybe Text) - , _sExecutionStartToCloseTimeout :: !(Maybe Text) - , _sTaskList :: !(Maybe TaskList) - , _sTaskPriority :: !(Maybe Text) - , _sChildPolicy :: !(Maybe ChildPolicy) - , _sDomain :: !Text - , _sWorkflowId :: !Text - , _sWorkflowType :: !WorkflowType - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StartWorkflowExecution' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sTagList' - The list of tags to associate with the workflow execution. You can specify a maximum of 5 tags. You can list workflow executions with a specific tag by calling 'ListOpenWorkflowExecutions' or 'ListClosedWorkflowExecutions' and specifying a 'TagFilter' . --- --- * 'sTaskStartToCloseTimeout' - Specifies the maximum duration of decision tasks for this workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'sLambdaRole' - The IAM role to attach to this workflow execution. --- --- * 'sInput' - The input for the workflow execution. This is a free form string which should be meaningful to the workflow you are starting. This @input@ is made available to the new workflow execution in the @WorkflowExecutionStarted@ history event. --- --- * 'sExecutionStartToCloseTimeout' - The total duration for this workflow execution. This overrides the defaultExecutionStartToCloseTimeout specified when registering the workflow type. The duration is specified in seconds; an integer greater than or equal to @0@ . Exceeding this limit causes the workflow execution to time out. Unlike some of the other timeout parameters in Amazon SWF, you cannot specify a value of "NONE" for this timeout; there is a one-year max limit on the time that a workflow execution can run. --- --- * 'sTaskList' - The task list to use for the decision tasks generated for this workflow execution. This overrides the @defaultTaskList@ specified when registering the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . --- --- * 'sTaskPriority' - The task priority to use for this workflow execution. This overrides any default priority that was assigned when the workflow type was registered. If not set, then the default task priority for the workflow type is used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . --- --- * 'sChildPolicy' - If set, specifies the policy to use for the child workflow executions of this workflow execution if it is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. --- --- * 'sDomain' - The name of the domain in which the workflow execution is created. --- --- * 'sWorkflowId' - The user defined identifier associated with the workflow execution. You can use this to associate a custom identifier with the workflow execution. You may specify the same identifier if a workflow execution is logically a /restart/ of a previous execution. You cannot have two open workflow executions with the same @workflowId@ at the same time. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . --- --- * 'sWorkflowType' - The type of the workflow to start. -startWorkflowExecution - :: Text -- ^ 'sDomain' - -> Text -- ^ 'sWorkflowId' - -> WorkflowType -- ^ 'sWorkflowType' - -> StartWorkflowExecution -startWorkflowExecution pDomain_ pWorkflowId_ pWorkflowType_ = - StartWorkflowExecution' - { _sTagList = Nothing - , _sTaskStartToCloseTimeout = Nothing - , _sLambdaRole = Nothing - , _sInput = Nothing - , _sExecutionStartToCloseTimeout = Nothing - , _sTaskList = Nothing - , _sTaskPriority = Nothing - , _sChildPolicy = Nothing - , _sDomain = pDomain_ - , _sWorkflowId = pWorkflowId_ - , _sWorkflowType = pWorkflowType_ - } - - --- | The list of tags to associate with the workflow execution. You can specify a maximum of 5 tags. You can list workflow executions with a specific tag by calling 'ListOpenWorkflowExecutions' or 'ListClosedWorkflowExecutions' and specifying a 'TagFilter' . -sTagList :: Lens' StartWorkflowExecution [Text] -sTagList = lens _sTagList (\ s a -> s{_sTagList = a}) . _Default . _Coerce - --- | Specifies the maximum duration of decision tasks for this workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -sTaskStartToCloseTimeout :: Lens' StartWorkflowExecution (Maybe Text) -sTaskStartToCloseTimeout = lens _sTaskStartToCloseTimeout (\ s a -> s{_sTaskStartToCloseTimeout = a}) - --- | The IAM role to attach to this workflow execution. -sLambdaRole :: Lens' StartWorkflowExecution (Maybe Text) -sLambdaRole = lens _sLambdaRole (\ s a -> s{_sLambdaRole = a}) - --- | The input for the workflow execution. This is a free form string which should be meaningful to the workflow you are starting. This @input@ is made available to the new workflow execution in the @WorkflowExecutionStarted@ history event. -sInput :: Lens' StartWorkflowExecution (Maybe Text) -sInput = lens _sInput (\ s a -> s{_sInput = a}) - --- | The total duration for this workflow execution. This overrides the defaultExecutionStartToCloseTimeout specified when registering the workflow type. The duration is specified in seconds; an integer greater than or equal to @0@ . Exceeding this limit causes the workflow execution to time out. Unlike some of the other timeout parameters in Amazon SWF, you cannot specify a value of "NONE" for this timeout; there is a one-year max limit on the time that a workflow execution can run. -sExecutionStartToCloseTimeout :: Lens' StartWorkflowExecution (Maybe Text) -sExecutionStartToCloseTimeout = lens _sExecutionStartToCloseTimeout (\ s a -> s{_sExecutionStartToCloseTimeout = a}) - --- | The task list to use for the decision tasks generated for this workflow execution. This overrides the @defaultTaskList@ specified when registering the workflow type. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -sTaskList :: Lens' StartWorkflowExecution (Maybe TaskList) -sTaskList = lens _sTaskList (\ s a -> s{_sTaskList = a}) - --- | The task priority to use for this workflow execution. This overrides any default priority that was assigned when the workflow type was registered. If not set, then the default task priority for the workflow type is used. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . -sTaskPriority :: Lens' StartWorkflowExecution (Maybe Text) -sTaskPriority = lens _sTaskPriority (\ s a -> s{_sTaskPriority = a}) - --- | If set, specifies the policy to use for the child workflow executions of this workflow execution if it is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -sChildPolicy :: Lens' StartWorkflowExecution (Maybe ChildPolicy) -sChildPolicy = lens _sChildPolicy (\ s a -> s{_sChildPolicy = a}) - --- | The name of the domain in which the workflow execution is created. -sDomain :: Lens' StartWorkflowExecution Text -sDomain = lens _sDomain (\ s a -> s{_sDomain = a}) - --- | The user defined identifier associated with the workflow execution. You can use this to associate a custom identifier with the workflow execution. You may specify the same identifier if a workflow execution is logically a /restart/ of a previous execution. You cannot have two open workflow executions with the same @workflowId@ at the same time. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -sWorkflowId :: Lens' StartWorkflowExecution Text -sWorkflowId = lens _sWorkflowId (\ s a -> s{_sWorkflowId = a}) - --- | The type of the workflow to start. -sWorkflowType :: Lens' StartWorkflowExecution WorkflowType -sWorkflowType = lens _sWorkflowType (\ s a -> s{_sWorkflowType = a}) - -instance AWSRequest StartWorkflowExecution where - type Rs StartWorkflowExecution = - StartWorkflowExecutionResponse - request = postJSON swf - response - = receiveJSON - (\ s h x -> - StartWorkflowExecutionResponse' <$> - (x .?> "runId") <*> (pure (fromEnum s))) - -instance Hashable StartWorkflowExecution where - -instance NFData StartWorkflowExecution where - -instance ToHeaders StartWorkflowExecution where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.StartWorkflowExecution" :: - ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON StartWorkflowExecution where - toJSON StartWorkflowExecution'{..} - = object - (catMaybes - [("tagList" .=) <$> _sTagList, - ("taskStartToCloseTimeout" .=) <$> - _sTaskStartToCloseTimeout, - ("lambdaRole" .=) <$> _sLambdaRole, - ("input" .=) <$> _sInput, - ("executionStartToCloseTimeout" .=) <$> - _sExecutionStartToCloseTimeout, - ("taskList" .=) <$> _sTaskList, - ("taskPriority" .=) <$> _sTaskPriority, - ("childPolicy" .=) <$> _sChildPolicy, - Just ("domain" .= _sDomain), - Just ("workflowId" .= _sWorkflowId), - Just ("workflowType" .= _sWorkflowType)]) - -instance ToPath StartWorkflowExecution where - toPath = const "/" - -instance ToQuery StartWorkflowExecution where - toQuery = const mempty - --- | Specifies the @runId@ of a workflow execution. --- --- --- --- /See:/ 'startWorkflowExecutionResponse' smart constructor. -data StartWorkflowExecutionResponse = StartWorkflowExecutionResponse' - { _swersRunId :: !(Maybe Text) - , _swersResponseStatus :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StartWorkflowExecutionResponse' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'swersRunId' - The @runId@ of a workflow execution. This ID is generated by the service and can be used to uniquely identify the workflow execution within a domain. --- --- * 'swersResponseStatus' - -- | The response status code. -startWorkflowExecutionResponse - :: Int -- ^ 'swersResponseStatus' - -> StartWorkflowExecutionResponse -startWorkflowExecutionResponse pResponseStatus_ = - StartWorkflowExecutionResponse' - {_swersRunId = Nothing, _swersResponseStatus = pResponseStatus_} - - --- | The @runId@ of a workflow execution. This ID is generated by the service and can be used to uniquely identify the workflow execution within a domain. -swersRunId :: Lens' StartWorkflowExecutionResponse (Maybe Text) -swersRunId = lens _swersRunId (\ s a -> s{_swersRunId = a}) - --- | -- | The response status code. -swersResponseStatus :: Lens' StartWorkflowExecutionResponse Int -swersResponseStatus = lens _swersResponseStatus (\ s a -> s{_swersResponseStatus = a}) - -instance NFData StartWorkflowExecutionResponse where diff --git a/gen/Network/AWS/SWF/TerminateWorkflowExecution.hs b/gen/Network/AWS/SWF/TerminateWorkflowExecution.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/TerminateWorkflowExecution.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.SWF.TerminateWorkflowExecution --- Copyright : (c) 2013-2018 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- --- Records a @WorkflowExecutionTerminated@ event and forces closure of the workflow execution identified by the given domain, runId, and workflowId. The child policy, registered with the workflow type or specified when starting this execution, is applied to any open child workflow executions of this workflow execution. --- --- --- /Important:/ If the identified workflow execution was in progress, it is terminated immediately. --- --- __Access Control__ --- --- You can use IAM policies to control this action's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- -module Network.AWS.SWF.TerminateWorkflowExecution - ( - -- * Creating a Request - terminateWorkflowExecution - , TerminateWorkflowExecution - -- * Request Lenses - , tweReason - , tweRunId - , tweChildPolicy - , tweDetails - , tweDomain - , tweWorkflowId - - -- * Destructuring the Response - , terminateWorkflowExecutionResponse - , TerminateWorkflowExecutionResponse - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.SWF.Types -import Network.AWS.SWF.Types.Product - --- | /See:/ 'terminateWorkflowExecution' smart constructor. -data TerminateWorkflowExecution = TerminateWorkflowExecution' - { _tweReason :: !(Maybe Text) - , _tweRunId :: !(Maybe Text) - , _tweChildPolicy :: !(Maybe ChildPolicy) - , _tweDetails :: !(Maybe Text) - , _tweDomain :: !Text - , _tweWorkflowId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TerminateWorkflowExecution' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tweReason' - A descriptive reason for terminating the workflow execution. --- --- * 'tweRunId' - The runId of the workflow execution to terminate. --- --- * 'tweChildPolicy' - If set, specifies the policy to use for the child workflow executions of the workflow execution being terminated. This policy overrides the child policy specified for the workflow execution at registration time or when starting the execution. The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. --- --- * 'tweDetails' - Details for terminating the workflow execution. --- --- * 'tweDomain' - The domain of the workflow execution to terminate. --- --- * 'tweWorkflowId' - The workflowId of the workflow execution to terminate. -terminateWorkflowExecution - :: Text -- ^ 'tweDomain' - -> Text -- ^ 'tweWorkflowId' - -> TerminateWorkflowExecution -terminateWorkflowExecution pDomain_ pWorkflowId_ = - TerminateWorkflowExecution' - { _tweReason = Nothing - , _tweRunId = Nothing - , _tweChildPolicy = Nothing - , _tweDetails = Nothing - , _tweDomain = pDomain_ - , _tweWorkflowId = pWorkflowId_ - } - - --- | A descriptive reason for terminating the workflow execution. -tweReason :: Lens' TerminateWorkflowExecution (Maybe Text) -tweReason = lens _tweReason (\ s a -> s{_tweReason = a}) - --- | The runId of the workflow execution to terminate. -tweRunId :: Lens' TerminateWorkflowExecution (Maybe Text) -tweRunId = lens _tweRunId (\ s a -> s{_tweRunId = a}) - --- | If set, specifies the policy to use for the child workflow executions of the workflow execution being terminated. This policy overrides the child policy specified for the workflow execution at registration time or when starting the execution. The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -tweChildPolicy :: Lens' TerminateWorkflowExecution (Maybe ChildPolicy) -tweChildPolicy = lens _tweChildPolicy (\ s a -> s{_tweChildPolicy = a}) - --- | Details for terminating the workflow execution. -tweDetails :: Lens' TerminateWorkflowExecution (Maybe Text) -tweDetails = lens _tweDetails (\ s a -> s{_tweDetails = a}) - --- | The domain of the workflow execution to terminate. -tweDomain :: Lens' TerminateWorkflowExecution Text -tweDomain = lens _tweDomain (\ s a -> s{_tweDomain = a}) - --- | The workflowId of the workflow execution to terminate. -tweWorkflowId :: Lens' TerminateWorkflowExecution Text -tweWorkflowId = lens _tweWorkflowId (\ s a -> s{_tweWorkflowId = a}) - -instance AWSRequest TerminateWorkflowExecution where - type Rs TerminateWorkflowExecution = - TerminateWorkflowExecutionResponse - request = postJSON swf - response - = receiveNull TerminateWorkflowExecutionResponse' - -instance Hashable TerminateWorkflowExecution where - -instance NFData TerminateWorkflowExecution where - -instance ToHeaders TerminateWorkflowExecution where - toHeaders - = const - (mconcat - ["X-Amz-Target" =# - ("SimpleWorkflowService.TerminateWorkflowExecution" - :: ByteString), - "Content-Type" =# - ("application/x-amz-json-1.0" :: ByteString)]) - -instance ToJSON TerminateWorkflowExecution where - toJSON TerminateWorkflowExecution'{..} - = object - (catMaybes - [("reason" .=) <$> _tweReason, - ("runId" .=) <$> _tweRunId, - ("childPolicy" .=) <$> _tweChildPolicy, - ("details" .=) <$> _tweDetails, - Just ("domain" .= _tweDomain), - Just ("workflowId" .= _tweWorkflowId)]) - -instance ToPath TerminateWorkflowExecution where - toPath = const "/" - -instance ToQuery TerminateWorkflowExecution where - toQuery = const mempty - --- | /See:/ 'terminateWorkflowExecutionResponse' smart constructor. -data TerminateWorkflowExecutionResponse = - TerminateWorkflowExecutionResponse' - deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TerminateWorkflowExecutionResponse' with the minimum fields required to make a request. --- -terminateWorkflowExecutionResponse - :: TerminateWorkflowExecutionResponse -terminateWorkflowExecutionResponse = TerminateWorkflowExecutionResponse' - - -instance NFData TerminateWorkflowExecutionResponse - where diff --git a/gen/Network/AWS/SWF/Types.hs b/gen/Network/AWS/SWF/Types.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/Types.hs +++ /dev/null @@ -1,985 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} - --- Derived from AWS service descriptions, licensed under Apache 2.0. - --- | --- Module : Network.AWS.SWF.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.SWF.Types - ( - -- * Service Configuration - swf - - -- * Errors - , _DomainAlreadyExistsFault - , _LimitExceededFault - , _WorkflowExecutionAlreadyStartedFault - , _OperationNotPermittedFault - , _UnknownResourceFault - , _DefaultUndefinedFault - , _TypeDeprecatedFault - , _TypeAlreadyExistsFault - , _DomainDeprecatedFault - - -- * ActivityTaskTimeoutType - , ActivityTaskTimeoutType (..) - - -- * CancelTimerFailedCause - , CancelTimerFailedCause (..) - - -- * CancelWorkflowExecutionFailedCause - , CancelWorkflowExecutionFailedCause (..) - - -- * ChildPolicy - , ChildPolicy (..) - - -- * CloseStatus - , CloseStatus (..) - - -- * CompleteWorkflowExecutionFailedCause - , CompleteWorkflowExecutionFailedCause (..) - - -- * ContinueAsNewWorkflowExecutionFailedCause - , ContinueAsNewWorkflowExecutionFailedCause (..) - - -- * DecisionTaskTimeoutType - , DecisionTaskTimeoutType (..) - - -- * DecisionType - , DecisionType (..) - - -- * EventType - , EventType (..) - - -- * ExecutionStatus - , ExecutionStatus (..) - - -- * FailWorkflowExecutionFailedCause - , FailWorkflowExecutionFailedCause (..) - - -- * LambdaFunctionTimeoutType - , LambdaFunctionTimeoutType (..) - - -- * RecordMarkerFailedCause - , RecordMarkerFailedCause (..) - - -- * RegistrationStatus - , RegistrationStatus (..) - - -- * RequestCancelActivityTaskFailedCause - , RequestCancelActivityTaskFailedCause (..) - - -- * RequestCancelExternalWorkflowExecutionFailedCause - , RequestCancelExternalWorkflowExecutionFailedCause (..) - - -- * ScheduleActivityTaskFailedCause - , ScheduleActivityTaskFailedCause (..) - - -- * ScheduleLambdaFunctionFailedCause - , ScheduleLambdaFunctionFailedCause (..) - - -- * SignalExternalWorkflowExecutionFailedCause - , SignalExternalWorkflowExecutionFailedCause (..) - - -- * StartChildWorkflowExecutionFailedCause - , StartChildWorkflowExecutionFailedCause (..) - - -- * StartLambdaFunctionFailedCause - , StartLambdaFunctionFailedCause (..) - - -- * StartTimerFailedCause - , StartTimerFailedCause (..) - - -- * WorkflowExecutionCancelRequestedCause - , WorkflowExecutionCancelRequestedCause (..) - - -- * WorkflowExecutionTerminatedCause - , WorkflowExecutionTerminatedCause (..) - - -- * WorkflowExecutionTimeoutType - , WorkflowExecutionTimeoutType (..) - - -- * ActivityTaskCancelRequestedEventAttributes - , ActivityTaskCancelRequestedEventAttributes - , activityTaskCancelRequestedEventAttributes - , atcreaDecisionTaskCompletedEventId - , atcreaActivityId - - -- * ActivityTaskCanceledEventAttributes - , ActivityTaskCanceledEventAttributes - , activityTaskCanceledEventAttributes - , aLatestCancelRequestedEventId - , aDetails - , aScheduledEventId - , aStartedEventId - - -- * ActivityTaskCompletedEventAttributes - , ActivityTaskCompletedEventAttributes - , activityTaskCompletedEventAttributes - , atceaResult - , atceaScheduledEventId - , atceaStartedEventId - - -- * ActivityTaskFailedEventAttributes - , ActivityTaskFailedEventAttributes - , activityTaskFailedEventAttributes - , atfeaReason - , atfeaDetails - , atfeaScheduledEventId - , atfeaStartedEventId - - -- * ActivityTaskScheduledEventAttributes - , ActivityTaskScheduledEventAttributes - , activityTaskScheduledEventAttributes - , atseaControl - , atseaHeartbeatTimeout - , atseaScheduleToCloseTimeout - , atseaInput - , atseaTaskPriority - , atseaScheduleToStartTimeout - , atseaStartToCloseTimeout - , atseaActivityType - , atseaActivityId - , atseaTaskList - , atseaDecisionTaskCompletedEventId - - -- * ActivityTaskStartedEventAttributes - , ActivityTaskStartedEventAttributes - , activityTaskStartedEventAttributes - , atseaIdentity - , atseaScheduledEventId - - -- * ActivityTaskTimedOutEventAttributes - , ActivityTaskTimedOutEventAttributes - , activityTaskTimedOutEventAttributes - , attoeaDetails - , attoeaTimeoutType - , attoeaScheduledEventId - , attoeaStartedEventId - - -- * ActivityType - , ActivityType - , activityType - , atName - , atVersion - - -- * ActivityTypeConfiguration - , ActivityTypeConfiguration - , activityTypeConfiguration - , atcDefaultTaskScheduleToStartTimeout - , atcDefaultTaskList - , atcDefaultTaskPriority - , atcDefaultTaskHeartbeatTimeout - , atcDefaultTaskScheduleToCloseTimeout - , atcDefaultTaskStartToCloseTimeout - - -- * ActivityTypeInfo - , ActivityTypeInfo - , activityTypeInfo - , atiDeprecationDate - , atiDescription - , atiActivityType - , atiStatus - , atiCreationDate - - -- * CancelTimerDecisionAttributes - , CancelTimerDecisionAttributes - , cancelTimerDecisionAttributes - , ctdaTimerId - - -- * CancelTimerFailedEventAttributes - , CancelTimerFailedEventAttributes - , cancelTimerFailedEventAttributes - , ctfeaTimerId - , ctfeaCause - , ctfeaDecisionTaskCompletedEventId - - -- * CancelWorkflowExecutionDecisionAttributes - , CancelWorkflowExecutionDecisionAttributes - , cancelWorkflowExecutionDecisionAttributes - , cwedaDetails - - -- * CancelWorkflowExecutionFailedEventAttributes - , CancelWorkflowExecutionFailedEventAttributes - , cancelWorkflowExecutionFailedEventAttributes - , cCause - , cDecisionTaskCompletedEventId - - -- * ChildWorkflowExecutionCanceledEventAttributes - , ChildWorkflowExecutionCanceledEventAttributes - , childWorkflowExecutionCanceledEventAttributes - , cDetails - , cWorkflowExecution - , cWorkflowType - , cInitiatedEventId - , cStartedEventId - - -- * ChildWorkflowExecutionCompletedEventAttributes - , ChildWorkflowExecutionCompletedEventAttributes - , childWorkflowExecutionCompletedEventAttributes - , cweceaResult - , cweceaWorkflowExecution - , cweceaWorkflowType - , cweceaInitiatedEventId - , cweceaStartedEventId - - -- * ChildWorkflowExecutionFailedEventAttributes - , ChildWorkflowExecutionFailedEventAttributes - , childWorkflowExecutionFailedEventAttributes - , cwefeaReason - , cwefeaDetails - , cwefeaWorkflowExecution - , cwefeaWorkflowType - , cwefeaInitiatedEventId - , cwefeaStartedEventId - - -- * ChildWorkflowExecutionStartedEventAttributes - , ChildWorkflowExecutionStartedEventAttributes - , childWorkflowExecutionStartedEventAttributes - , cweseaWorkflowExecution - , cweseaWorkflowType - , cweseaInitiatedEventId - - -- * ChildWorkflowExecutionTerminatedEventAttributes - , ChildWorkflowExecutionTerminatedEventAttributes - , childWorkflowExecutionTerminatedEventAttributes - , cweteaWorkflowExecution - , cweteaWorkflowType - , cweteaInitiatedEventId - , cweteaStartedEventId - - -- * ChildWorkflowExecutionTimedOutEventAttributes - , ChildWorkflowExecutionTimedOutEventAttributes - , childWorkflowExecutionTimedOutEventAttributes - , cwetoeaWorkflowExecution - , cwetoeaWorkflowType - , cwetoeaTimeoutType - , cwetoeaInitiatedEventId - , cwetoeaStartedEventId - - -- * CloseStatusFilter - , CloseStatusFilter - , closeStatusFilter - , csfStatus - - -- * CompleteWorkflowExecutionDecisionAttributes - , CompleteWorkflowExecutionDecisionAttributes - , completeWorkflowExecutionDecisionAttributes - , cwedaResult - - -- * CompleteWorkflowExecutionFailedEventAttributes - , CompleteWorkflowExecutionFailedEventAttributes - , completeWorkflowExecutionFailedEventAttributes - , cwefeaCause - , cwefeaDecisionTaskCompletedEventId - - -- * ContinueAsNewWorkflowExecutionDecisionAttributes - , ContinueAsNewWorkflowExecutionDecisionAttributes - , continueAsNewWorkflowExecutionDecisionAttributes - , canwedaTagList - , canwedaTaskStartToCloseTimeout - , canwedaLambdaRole - , canwedaInput - , canwedaWorkflowTypeVersion - , canwedaExecutionStartToCloseTimeout - , canwedaTaskList - , canwedaTaskPriority - , canwedaChildPolicy - - -- * ContinueAsNewWorkflowExecutionFailedEventAttributes - , ContinueAsNewWorkflowExecutionFailedEventAttributes - , continueAsNewWorkflowExecutionFailedEventAttributes - , canwefeaCause - , canwefeaDecisionTaskCompletedEventId - - -- * Decision - , Decision - , decision - , dRequestCancelExternalWorkflowExecutionDecisionAttributes - , dScheduleActivityTaskDecisionAttributes - , dSignalExternalWorkflowExecutionDecisionAttributes - , dStartTimerDecisionAttributes - , dRecordMarkerDecisionAttributes - , dFailWorkflowExecutionDecisionAttributes - , dStartChildWorkflowExecutionDecisionAttributes - , dCompleteWorkflowExecutionDecisionAttributes - , dScheduleLambdaFunctionDecisionAttributes - , dRequestCancelActivityTaskDecisionAttributes - , dCancelWorkflowExecutionDecisionAttributes - , dCancelTimerDecisionAttributes - , dContinueAsNewWorkflowExecutionDecisionAttributes - , dDecisionType - - -- * DecisionTaskCompletedEventAttributes - , DecisionTaskCompletedEventAttributes - , decisionTaskCompletedEventAttributes - , dtceaExecutionContext - , dtceaScheduledEventId - , dtceaStartedEventId - - -- * DecisionTaskScheduledEventAttributes - , DecisionTaskScheduledEventAttributes - , decisionTaskScheduledEventAttributes - , dtseaTaskPriority - , dtseaStartToCloseTimeout - , dtseaTaskList - - -- * DecisionTaskStartedEventAttributes - , DecisionTaskStartedEventAttributes - , decisionTaskStartedEventAttributes - , dtseaIdentity - , dtseaScheduledEventId - - -- * DecisionTaskTimedOutEventAttributes - , DecisionTaskTimedOutEventAttributes - , decisionTaskTimedOutEventAttributes - , dttoeaTimeoutType - , dttoeaScheduledEventId - , dttoeaStartedEventId - - -- * DomainConfiguration - , DomainConfiguration - , domainConfiguration - , dcWorkflowExecutionRetentionPeriodInDays - - -- * DomainInfo - , DomainInfo - , domainInfo - , diDescription - , diName - , diStatus - - -- * ExecutionTimeFilter - , ExecutionTimeFilter - , executionTimeFilter - , etfLatestDate - , etfOldestDate - - -- * ExternalWorkflowExecutionCancelRequestedEventAttributes - , ExternalWorkflowExecutionCancelRequestedEventAttributes - , externalWorkflowExecutionCancelRequestedEventAttributes - , ewecreaWorkflowExecution - , ewecreaInitiatedEventId - - -- * ExternalWorkflowExecutionSignaledEventAttributes - , ExternalWorkflowExecutionSignaledEventAttributes - , externalWorkflowExecutionSignaledEventAttributes - , eweseaWorkflowExecution - , eweseaInitiatedEventId - - -- * FailWorkflowExecutionDecisionAttributes - , FailWorkflowExecutionDecisionAttributes - , failWorkflowExecutionDecisionAttributes - , fwedaReason - , fwedaDetails - - -- * FailWorkflowExecutionFailedEventAttributes - , FailWorkflowExecutionFailedEventAttributes - , failWorkflowExecutionFailedEventAttributes - , fwefeaCause - , fwefeaDecisionTaskCompletedEventId - - -- * HistoryEvent - , HistoryEvent - , historyEvent - , heWorkflowExecutionCancelRequestedEventAttributes - , heRecordMarkerFailedEventAttributes - , heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes - , heLambdaFunctionStartedEventAttributes - , heDecisionTaskScheduledEventAttributes - , heWorkflowExecutionCompletedEventAttributes - , heStartTimerFailedEventAttributes - , heActivityTaskScheduledEventAttributes - , heScheduleActivityTaskFailedEventAttributes - , heChildWorkflowExecutionCompletedEventAttributes - , heMarkerRecordedEventAttributes - , heScheduleLambdaFunctionFailedEventAttributes - , heCompleteWorkflowExecutionFailedEventAttributes - , heLambdaFunctionCompletedEventAttributes - , heRequestCancelExternalWorkflowExecutionFailedEventAttributes - , heTimerCanceledEventAttributes - , heWorkflowExecutionStartedEventAttributes - , heActivityTaskCompletedEventAttributes - , heDecisionTaskTimedOutEventAttributes - , heCancelTimerFailedEventAttributes - , heChildWorkflowExecutionStartedEventAttributes - , heActivityTaskCanceledEventAttributes - , heActivityTaskTimedOutEventAttributes - , heDecisionTaskStartedEventAttributes - , heWorkflowExecutionTerminatedEventAttributes - , heChildWorkflowExecutionCanceledEventAttributes - , heRequestCancelActivityTaskFailedEventAttributes - , heLambdaFunctionScheduledEventAttributes - , heChildWorkflowExecutionTimedOutEventAttributes - , heCancelWorkflowExecutionFailedEventAttributes - , heStartChildWorkflowExecutionInitiatedEventAttributes - , heSignalExternalWorkflowExecutionFailedEventAttributes - , heActivityTaskStartedEventAttributes - , heStartLambdaFunctionFailedEventAttributes - , heChildWorkflowExecutionTerminatedEventAttributes - , heLambdaFunctionFailedEventAttributes - , heWorkflowExecutionCanceledEventAttributes - , heTimerStartedEventAttributes - , heActivityTaskCancelRequestedEventAttributes - , heWorkflowExecutionTimedOutEventAttributes - , heWorkflowExecutionSignaledEventAttributes - , heTimerFiredEventAttributes - , heActivityTaskFailedEventAttributes - , heExternalWorkflowExecutionSignaledEventAttributes - , heDecisionTaskCompletedEventAttributes - , heStartChildWorkflowExecutionFailedEventAttributes - , heChildWorkflowExecutionFailedEventAttributes - , heFailWorkflowExecutionFailedEventAttributes - , heContinueAsNewWorkflowExecutionFailedEventAttributes - , heSignalExternalWorkflowExecutionInitiatedEventAttributes - , heLambdaFunctionTimedOutEventAttributes - , heWorkflowExecutionFailedEventAttributes - , heWorkflowExecutionContinuedAsNewEventAttributes - , heExternalWorkflowExecutionCancelRequestedEventAttributes - , heEventTimestamp - , heEventType - , heEventId - - -- * LambdaFunctionCompletedEventAttributes - , LambdaFunctionCompletedEventAttributes - , lambdaFunctionCompletedEventAttributes - , lfceaResult - , lfceaScheduledEventId - , lfceaStartedEventId - - -- * LambdaFunctionFailedEventAttributes - , LambdaFunctionFailedEventAttributes - , lambdaFunctionFailedEventAttributes - , lffeaReason - , lffeaDetails - , lffeaScheduledEventId - , lffeaStartedEventId - - -- * LambdaFunctionScheduledEventAttributes - , LambdaFunctionScheduledEventAttributes - , lambdaFunctionScheduledEventAttributes - , lfseaControl - , lfseaInput - , lfseaStartToCloseTimeout - , lfseaId - , lfseaName - , lfseaDecisionTaskCompletedEventId - - -- * LambdaFunctionStartedEventAttributes - , LambdaFunctionStartedEventAttributes - , lambdaFunctionStartedEventAttributes - , lfseaScheduledEventId - - -- * LambdaFunctionTimedOutEventAttributes - , LambdaFunctionTimedOutEventAttributes - , lambdaFunctionTimedOutEventAttributes - , lftoeaTimeoutType - , lftoeaScheduledEventId - , lftoeaStartedEventId - - -- * MarkerRecordedEventAttributes - , MarkerRecordedEventAttributes - , markerRecordedEventAttributes - , mreaDetails - , mreaMarkerName - , mreaDecisionTaskCompletedEventId - - -- * PendingTaskCount - , PendingTaskCount - , pendingTaskCount - , ptcTruncated - , ptcCount - - -- * RecordMarkerDecisionAttributes - , RecordMarkerDecisionAttributes - , recordMarkerDecisionAttributes - , rmdaDetails - , rmdaMarkerName - - -- * RecordMarkerFailedEventAttributes - , RecordMarkerFailedEventAttributes - , recordMarkerFailedEventAttributes - , rmfeaMarkerName - , rmfeaCause - , rmfeaDecisionTaskCompletedEventId - - -- * RequestCancelActivityTaskDecisionAttributes - , RequestCancelActivityTaskDecisionAttributes - , requestCancelActivityTaskDecisionAttributes - , rcatdaActivityId - - -- * RequestCancelActivityTaskFailedEventAttributes - , RequestCancelActivityTaskFailedEventAttributes - , requestCancelActivityTaskFailedEventAttributes - , rcatfeaActivityId - , rcatfeaCause - , rcatfeaDecisionTaskCompletedEventId - - -- * RequestCancelExternalWorkflowExecutionDecisionAttributes - , RequestCancelExternalWorkflowExecutionDecisionAttributes - , requestCancelExternalWorkflowExecutionDecisionAttributes - , rcewedaControl - , rcewedaRunId - , rcewedaWorkflowId - - -- * RequestCancelExternalWorkflowExecutionFailedEventAttributes - , RequestCancelExternalWorkflowExecutionFailedEventAttributes - , requestCancelExternalWorkflowExecutionFailedEventAttributes - , rcewefeaControl - , rcewefeaRunId - , rcewefeaWorkflowId - , rcewefeaCause - , rcewefeaInitiatedEventId - , rcewefeaDecisionTaskCompletedEventId - - -- * RequestCancelExternalWorkflowExecutionInitiatedEventAttributes - , RequestCancelExternalWorkflowExecutionInitiatedEventAttributes - , requestCancelExternalWorkflowExecutionInitiatedEventAttributes - , rceweieaControl - , rceweieaRunId - , rceweieaWorkflowId - , rceweieaDecisionTaskCompletedEventId - - -- * ScheduleActivityTaskDecisionAttributes - , ScheduleActivityTaskDecisionAttributes - , scheduleActivityTaskDecisionAttributes - , satdaControl - , satdaHeartbeatTimeout - , satdaScheduleToCloseTimeout - , satdaInput - , satdaTaskList - , satdaTaskPriority - , satdaScheduleToStartTimeout - , satdaStartToCloseTimeout - , satdaActivityType - , satdaActivityId - - -- * ScheduleActivityTaskFailedEventAttributes - , ScheduleActivityTaskFailedEventAttributes - , scheduleActivityTaskFailedEventAttributes - , satfeaActivityType - , satfeaActivityId - , satfeaCause - , satfeaDecisionTaskCompletedEventId - - -- * ScheduleLambdaFunctionDecisionAttributes - , ScheduleLambdaFunctionDecisionAttributes - , scheduleLambdaFunctionDecisionAttributes - , slfdaControl - , slfdaInput - , slfdaStartToCloseTimeout - , slfdaId - , slfdaName - - -- * ScheduleLambdaFunctionFailedEventAttributes - , ScheduleLambdaFunctionFailedEventAttributes - , scheduleLambdaFunctionFailedEventAttributes - , slffeaId - , slffeaName - , slffeaCause - , slffeaDecisionTaskCompletedEventId - - -- * SignalExternalWorkflowExecutionDecisionAttributes - , SignalExternalWorkflowExecutionDecisionAttributes - , signalExternalWorkflowExecutionDecisionAttributes - , sewedaControl - , sewedaInput - , sewedaRunId - , sewedaWorkflowId - , sewedaSignalName - - -- * SignalExternalWorkflowExecutionFailedEventAttributes - , SignalExternalWorkflowExecutionFailedEventAttributes - , signalExternalWorkflowExecutionFailedEventAttributes - , sewefeaControl - , sewefeaRunId - , sewefeaWorkflowId - , sewefeaCause - , sewefeaInitiatedEventId - , sewefeaDecisionTaskCompletedEventId - - -- * SignalExternalWorkflowExecutionInitiatedEventAttributes - , SignalExternalWorkflowExecutionInitiatedEventAttributes - , signalExternalWorkflowExecutionInitiatedEventAttributes - , seweieaControl - , seweieaInput - , seweieaRunId - , seweieaWorkflowId - , seweieaSignalName - , seweieaDecisionTaskCompletedEventId - - -- * StartChildWorkflowExecutionDecisionAttributes - , StartChildWorkflowExecutionDecisionAttributes - , startChildWorkflowExecutionDecisionAttributes - , scwedaControl - , scwedaTagList - , scwedaTaskStartToCloseTimeout - , scwedaLambdaRole - , scwedaInput - , scwedaExecutionStartToCloseTimeout - , scwedaTaskList - , scwedaTaskPriority - , scwedaChildPolicy - , scwedaWorkflowType - , scwedaWorkflowId - - -- * StartChildWorkflowExecutionFailedEventAttributes - , StartChildWorkflowExecutionFailedEventAttributes - , startChildWorkflowExecutionFailedEventAttributes - , scwefeaControl - , scwefeaWorkflowType - , scwefeaCause - , scwefeaWorkflowId - , scwefeaInitiatedEventId - , scwefeaDecisionTaskCompletedEventId - - -- * StartChildWorkflowExecutionInitiatedEventAttributes - , StartChildWorkflowExecutionInitiatedEventAttributes - , startChildWorkflowExecutionInitiatedEventAttributes - , scweieaControl - , scweieaTagList - , scweieaTaskStartToCloseTimeout - , scweieaLambdaRole - , scweieaInput - , scweieaExecutionStartToCloseTimeout - , scweieaTaskPriority - , scweieaWorkflowId - , scweieaWorkflowType - , scweieaTaskList - , scweieaDecisionTaskCompletedEventId - , scweieaChildPolicy - - -- * StartLambdaFunctionFailedEventAttributes - , StartLambdaFunctionFailedEventAttributes - , startLambdaFunctionFailedEventAttributes - , sScheduledEventId - , sCause - , sMessage - - -- * StartTimerDecisionAttributes - , StartTimerDecisionAttributes - , startTimerDecisionAttributes - , stdaControl - , stdaTimerId - , stdaStartToFireTimeout - - -- * StartTimerFailedEventAttributes - , StartTimerFailedEventAttributes - , startTimerFailedEventAttributes - , stfeaTimerId - , stfeaCause - , stfeaDecisionTaskCompletedEventId - - -- * TagFilter - , TagFilter - , tagFilter - , tfTag - - -- * TaskList - , TaskList - , taskList - , tlName - - -- * TimerCanceledEventAttributes - , TimerCanceledEventAttributes - , timerCanceledEventAttributes - , tceaTimerId - , tceaStartedEventId - , tceaDecisionTaskCompletedEventId - - -- * TimerFiredEventAttributes - , TimerFiredEventAttributes - , timerFiredEventAttributes - , tfeaTimerId - , tfeaStartedEventId - - -- * TimerStartedEventAttributes - , TimerStartedEventAttributes - , timerStartedEventAttributes - , tseaControl - , tseaTimerId - , tseaStartToFireTimeout - , tseaDecisionTaskCompletedEventId - - -- * WorkflowExecution - , WorkflowExecution - , workflowExecution - , weWorkflowId - , weRunId - - -- * WorkflowExecutionCancelRequestedEventAttributes - , WorkflowExecutionCancelRequestedEventAttributes - , workflowExecutionCancelRequestedEventAttributes - , wecreaExternalWorkflowExecution - , wecreaExternalInitiatedEventId - , wecreaCause - - -- * WorkflowExecutionCanceledEventAttributes - , WorkflowExecutionCanceledEventAttributes - , workflowExecutionCanceledEventAttributes - , wDetails - , wDecisionTaskCompletedEventId - - -- * WorkflowExecutionCompletedEventAttributes - , WorkflowExecutionCompletedEventAttributes - , workflowExecutionCompletedEventAttributes - , weceaResult - , weceaDecisionTaskCompletedEventId - - -- * WorkflowExecutionConfiguration - , WorkflowExecutionConfiguration - , workflowExecutionConfiguration - , wecLambdaRole - , wecTaskPriority - , wecTaskStartToCloseTimeout - , wecExecutionStartToCloseTimeout - , wecTaskList - , wecChildPolicy - - -- * WorkflowExecutionContinuedAsNewEventAttributes - , WorkflowExecutionContinuedAsNewEventAttributes - , workflowExecutionContinuedAsNewEventAttributes - , wecaneaTagList - , wecaneaTaskStartToCloseTimeout - , wecaneaLambdaRole - , wecaneaInput - , wecaneaExecutionStartToCloseTimeout - , wecaneaTaskPriority - , wecaneaDecisionTaskCompletedEventId - , wecaneaNewExecutionRunId - , wecaneaTaskList - , wecaneaChildPolicy - , wecaneaWorkflowType - - -- * WorkflowExecutionCount - , WorkflowExecutionCount - , workflowExecutionCount - , wecTruncated - , wecCount - - -- * WorkflowExecutionFailedEventAttributes - , WorkflowExecutionFailedEventAttributes - , workflowExecutionFailedEventAttributes - , wefeaReason - , wefeaDetails - , wefeaDecisionTaskCompletedEventId - - -- * WorkflowExecutionFilter - , WorkflowExecutionFilter - , workflowExecutionFilter - , wefWorkflowId - - -- * WorkflowExecutionInfo - , WorkflowExecutionInfo - , workflowExecutionInfo - , weiParent - , weiTagList - , weiCloseStatus - , weiCloseTimestamp - , weiCancelRequested - , weiExecution - , weiWorkflowType - , weiStartTimestamp - , weiExecutionStatus - - -- * WorkflowExecutionInfos - , WorkflowExecutionInfos - , workflowExecutionInfos - , weiNextPageToken - , weiExecutionInfos - - -- * WorkflowExecutionOpenCounts - , WorkflowExecutionOpenCounts - , workflowExecutionOpenCounts - , weocOpenLambdaFunctions - , weocOpenActivityTasks - , weocOpenDecisionTasks - , weocOpenTimers - , weocOpenChildWorkflowExecutions - - -- * WorkflowExecutionSignaledEventAttributes - , WorkflowExecutionSignaledEventAttributes - , workflowExecutionSignaledEventAttributes - , wExternalWorkflowExecution - , wExternalInitiatedEventId - , wInput - , wSignalName - - -- * WorkflowExecutionStartedEventAttributes - , WorkflowExecutionStartedEventAttributes - , workflowExecutionStartedEventAttributes - , weseaParentInitiatedEventId - , weseaTagList - , weseaTaskStartToCloseTimeout - , weseaLambdaRole - , weseaInput - , weseaExecutionStartToCloseTimeout - , weseaTaskPriority - , weseaParentWorkflowExecution - , weseaContinuedExecutionRunId - , weseaChildPolicy - , weseaTaskList - , weseaWorkflowType - - -- * WorkflowExecutionTerminatedEventAttributes - , WorkflowExecutionTerminatedEventAttributes - , workflowExecutionTerminatedEventAttributes - , weteaCause - , weteaReason - , weteaDetails - , weteaChildPolicy - - -- * WorkflowExecutionTimedOutEventAttributes - , WorkflowExecutionTimedOutEventAttributes - , workflowExecutionTimedOutEventAttributes - , wetoeaTimeoutType - , wetoeaChildPolicy - - -- * WorkflowType - , WorkflowType - , workflowType - , wtName - , wtVersion - - -- * WorkflowTypeConfiguration - , WorkflowTypeConfiguration - , workflowTypeConfiguration - , wtcDefaultLambdaRole - , wtcDefaultChildPolicy - , wtcDefaultTaskList - , wtcDefaultTaskPriority - , wtcDefaultExecutionStartToCloseTimeout - , wtcDefaultTaskStartToCloseTimeout - - -- * WorkflowTypeFilter - , WorkflowTypeFilter - , workflowTypeFilter - , wtfVersion - , wtfName - - -- * WorkflowTypeInfo - , WorkflowTypeInfo - , workflowTypeInfo - , wtiDeprecationDate - , wtiDescription - , wtiWorkflowType - , wtiStatus - , wtiCreationDate - ) where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Sign.V4 -import Network.AWS.SWF.Types.Product -import Network.AWS.SWF.Types.Sum - --- | API version @2012-01-25@ of the Amazon Simple Workflow Service SDK configuration. -swf :: Service -swf = - Service - { _svcAbbrev = "SWF" - , _svcSigner = v4 - , _svcPrefix = "swf" - , _svcVersion = "2012-01-25" - , _svcEndpoint = defaultEndpoint swf - , _svcTimeout = Just 70 - , _svcCheck = statusSuccess - , _svcError = parseJSONError "SWF" - , _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 - - --- | Returned if the specified domain already exists. You get this fault even if the existing domain is in deprecated status. --- --- -_DomainAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError -_DomainAlreadyExistsFault = _MatchServiceError swf "DomainAlreadyExistsFault" - - --- | Returned by any operation if a system imposed limitation has been reached. To address this fault you should either clean up unused resources or increase the limit by contacting AWS. --- --- -_LimitExceededFault :: AsError a => Getting (First ServiceError) a ServiceError -_LimitExceededFault = _MatchServiceError swf "LimitExceededFault" - - --- | Returned by 'StartWorkflowExecution' when an open execution with the same workflowId is already running in the specified domain. --- --- -_WorkflowExecutionAlreadyStartedFault :: AsError a => Getting (First ServiceError) a ServiceError -_WorkflowExecutionAlreadyStartedFault = - _MatchServiceError swf "WorkflowExecutionAlreadyStartedFault" - - --- | Returned when the caller doesn't have sufficient permissions to invoke the action. --- --- -_OperationNotPermittedFault :: AsError a => Getting (First ServiceError) a ServiceError -_OperationNotPermittedFault = - _MatchServiceError swf "OperationNotPermittedFault" - - --- | Returned when the named resource cannot be found with in the scope of this operation (region or domain). This could happen if the named resource was never created or is no longer available for this operation. --- --- -_UnknownResourceFault :: AsError a => Getting (First ServiceError) a ServiceError -_UnknownResourceFault = _MatchServiceError swf "UnknownResourceFault" - - --- | The @StartWorkflowExecution@ API action was called without the required parameters set. --- --- --- Some workflow execution parameters, such as the decision @taskList@ , must be set to start the execution. However, these parameters might have been set as defaults when the workflow type was registered. In this case, you can omit these parameters from the @StartWorkflowExecution@ call and Amazon SWF uses the values defined in the workflow type. --- -_DefaultUndefinedFault :: AsError a => Getting (First ServiceError) a ServiceError -_DefaultUndefinedFault = _MatchServiceError swf "DefaultUndefinedFault" - - --- | Returned when the specified activity or workflow type was already deprecated. --- --- -_TypeDeprecatedFault :: AsError a => Getting (First ServiceError) a ServiceError -_TypeDeprecatedFault = _MatchServiceError swf "TypeDeprecatedFault" - - --- | Returned if the type already exists in the specified domain. You get this fault even if the existing type is in deprecated status. You can specify another version if the intent is to create a new distinct version of the type. --- --- -_TypeAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError -_TypeAlreadyExistsFault = _MatchServiceError swf "TypeAlreadyExistsFault" - - --- | Returned when the specified domain has been deprecated. --- --- -_DomainDeprecatedFault :: AsError a => Getting (First ServiceError) a ServiceError -_DomainDeprecatedFault = _MatchServiceError swf "DomainDeprecatedFault" - diff --git a/gen/Network/AWS/SWF/Types/Product.hs b/gen/Network/AWS/SWF/Types/Product.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/Types/Product.hs +++ /dev/null @@ -1,7211 +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.SWF.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.SWF.Types.Product where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.SWF.Types.Sum - --- | Provides the details of the @ActivityTaskCancelRequested@ event. --- --- --- --- /See:/ 'activityTaskCancelRequestedEventAttributes' smart constructor. -data ActivityTaskCancelRequestedEventAttributes = ActivityTaskCancelRequestedEventAttributes' - { _atcreaDecisionTaskCompletedEventId :: !Integer - , _atcreaActivityId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ActivityTaskCancelRequestedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'atcreaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelActivityTask@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'atcreaActivityId' - The unique ID of the task. -activityTaskCancelRequestedEventAttributes - :: Integer -- ^ 'atcreaDecisionTaskCompletedEventId' - -> Text -- ^ 'atcreaActivityId' - -> ActivityTaskCancelRequestedEventAttributes -activityTaskCancelRequestedEventAttributes pDecisionTaskCompletedEventId_ pActivityId_ = - ActivityTaskCancelRequestedEventAttributes' - { _atcreaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - , _atcreaActivityId = pActivityId_ - } - - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelActivityTask@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -atcreaDecisionTaskCompletedEventId :: Lens' ActivityTaskCancelRequestedEventAttributes Integer -atcreaDecisionTaskCompletedEventId = lens _atcreaDecisionTaskCompletedEventId (\ s a -> s{_atcreaDecisionTaskCompletedEventId = a}) - --- | The unique ID of the task. -atcreaActivityId :: Lens' ActivityTaskCancelRequestedEventAttributes Text -atcreaActivityId = lens _atcreaActivityId (\ s a -> s{_atcreaActivityId = a}) - -instance FromJSON - ActivityTaskCancelRequestedEventAttributes - where - parseJSON - = withObject - "ActivityTaskCancelRequestedEventAttributes" - (\ x -> - ActivityTaskCancelRequestedEventAttributes' <$> - (x .: "decisionTaskCompletedEventId") <*> - (x .: "activityId")) - -instance Hashable - ActivityTaskCancelRequestedEventAttributes - where - -instance NFData - ActivityTaskCancelRequestedEventAttributes - where - --- | Provides the details of the @ActivityTaskCanceled@ event. --- --- --- --- /See:/ 'activityTaskCanceledEventAttributes' smart constructor. -data ActivityTaskCanceledEventAttributes = ActivityTaskCanceledEventAttributes' - { _aLatestCancelRequestedEventId :: !(Maybe Integer) - , _aDetails :: !(Maybe Text) - , _aScheduledEventId :: !Integer - , _aStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ActivityTaskCanceledEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'aLatestCancelRequestedEventId' - If set, contains the ID of the last @ActivityTaskCancelRequested@ event recorded for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'aDetails' - Details of the cancellation. --- --- * 'aScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'aStartedEventId' - The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -activityTaskCanceledEventAttributes - :: Integer -- ^ 'aScheduledEventId' - -> Integer -- ^ 'aStartedEventId' - -> ActivityTaskCanceledEventAttributes -activityTaskCanceledEventAttributes pScheduledEventId_ pStartedEventId_ = - ActivityTaskCanceledEventAttributes' - { _aLatestCancelRequestedEventId = Nothing - , _aDetails = Nothing - , _aScheduledEventId = pScheduledEventId_ - , _aStartedEventId = pStartedEventId_ - } - - --- | If set, contains the ID of the last @ActivityTaskCancelRequested@ event recorded for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -aLatestCancelRequestedEventId :: Lens' ActivityTaskCanceledEventAttributes (Maybe Integer) -aLatestCancelRequestedEventId = lens _aLatestCancelRequestedEventId (\ s a -> s{_aLatestCancelRequestedEventId = a}) - --- | Details of the cancellation. -aDetails :: Lens' ActivityTaskCanceledEventAttributes (Maybe Text) -aDetails = lens _aDetails (\ s a -> s{_aDetails = a}) - --- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -aScheduledEventId :: Lens' ActivityTaskCanceledEventAttributes Integer -aScheduledEventId = lens _aScheduledEventId (\ s a -> s{_aScheduledEventId = a}) - --- | The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -aStartedEventId :: Lens' ActivityTaskCanceledEventAttributes Integer -aStartedEventId = lens _aStartedEventId (\ s a -> s{_aStartedEventId = a}) - -instance FromJSON ActivityTaskCanceledEventAttributes - where - parseJSON - = withObject "ActivityTaskCanceledEventAttributes" - (\ x -> - ActivityTaskCanceledEventAttributes' <$> - (x .:? "latestCancelRequestedEventId") <*> - (x .:? "details") - <*> (x .: "scheduledEventId") - <*> (x .: "startedEventId")) - -instance Hashable ActivityTaskCanceledEventAttributes - where - -instance NFData ActivityTaskCanceledEventAttributes - where - --- | Provides the details of the @ActivityTaskCompleted@ event. --- --- --- --- /See:/ 'activityTaskCompletedEventAttributes' smart constructor. -data ActivityTaskCompletedEventAttributes = ActivityTaskCompletedEventAttributes' - { _atceaResult :: !(Maybe Text) - , _atceaScheduledEventId :: !Integer - , _atceaStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ActivityTaskCompletedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'atceaResult' - The results of the activity task. --- --- * 'atceaScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'atceaStartedEventId' - The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -activityTaskCompletedEventAttributes - :: Integer -- ^ 'atceaScheduledEventId' - -> Integer -- ^ 'atceaStartedEventId' - -> ActivityTaskCompletedEventAttributes -activityTaskCompletedEventAttributes pScheduledEventId_ pStartedEventId_ = - ActivityTaskCompletedEventAttributes' - { _atceaResult = Nothing - , _atceaScheduledEventId = pScheduledEventId_ - , _atceaStartedEventId = pStartedEventId_ - } - - --- | The results of the activity task. -atceaResult :: Lens' ActivityTaskCompletedEventAttributes (Maybe Text) -atceaResult = lens _atceaResult (\ s a -> s{_atceaResult = a}) - --- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -atceaScheduledEventId :: Lens' ActivityTaskCompletedEventAttributes Integer -atceaScheduledEventId = lens _atceaScheduledEventId (\ s a -> s{_atceaScheduledEventId = a}) - --- | The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -atceaStartedEventId :: Lens' ActivityTaskCompletedEventAttributes Integer -atceaStartedEventId = lens _atceaStartedEventId (\ s a -> s{_atceaStartedEventId = a}) - -instance FromJSON - ActivityTaskCompletedEventAttributes - where - parseJSON - = withObject "ActivityTaskCompletedEventAttributes" - (\ x -> - ActivityTaskCompletedEventAttributes' <$> - (x .:? "result") <*> (x .: "scheduledEventId") <*> - (x .: "startedEventId")) - -instance Hashable - ActivityTaskCompletedEventAttributes - where - -instance NFData ActivityTaskCompletedEventAttributes - where - --- | Provides the details of the @ActivityTaskFailed@ event. --- --- --- --- /See:/ 'activityTaskFailedEventAttributes' smart constructor. -data ActivityTaskFailedEventAttributes = ActivityTaskFailedEventAttributes' - { _atfeaReason :: !(Maybe Text) - , _atfeaDetails :: !(Maybe Text) - , _atfeaScheduledEventId :: !Integer - , _atfeaStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ActivityTaskFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'atfeaReason' - The reason provided for the failure. --- --- * 'atfeaDetails' - The details of the failure. --- --- * 'atfeaScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'atfeaStartedEventId' - The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -activityTaskFailedEventAttributes - :: Integer -- ^ 'atfeaScheduledEventId' - -> Integer -- ^ 'atfeaStartedEventId' - -> ActivityTaskFailedEventAttributes -activityTaskFailedEventAttributes pScheduledEventId_ pStartedEventId_ = - ActivityTaskFailedEventAttributes' - { _atfeaReason = Nothing - , _atfeaDetails = Nothing - , _atfeaScheduledEventId = pScheduledEventId_ - , _atfeaStartedEventId = pStartedEventId_ - } - - --- | The reason provided for the failure. -atfeaReason :: Lens' ActivityTaskFailedEventAttributes (Maybe Text) -atfeaReason = lens _atfeaReason (\ s a -> s{_atfeaReason = a}) - --- | The details of the failure. -atfeaDetails :: Lens' ActivityTaskFailedEventAttributes (Maybe Text) -atfeaDetails = lens _atfeaDetails (\ s a -> s{_atfeaDetails = a}) - --- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -atfeaScheduledEventId :: Lens' ActivityTaskFailedEventAttributes Integer -atfeaScheduledEventId = lens _atfeaScheduledEventId (\ s a -> s{_atfeaScheduledEventId = a}) - --- | The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -atfeaStartedEventId :: Lens' ActivityTaskFailedEventAttributes Integer -atfeaStartedEventId = lens _atfeaStartedEventId (\ s a -> s{_atfeaStartedEventId = a}) - -instance FromJSON ActivityTaskFailedEventAttributes - where - parseJSON - = withObject "ActivityTaskFailedEventAttributes" - (\ x -> - ActivityTaskFailedEventAttributes' <$> - (x .:? "reason") <*> (x .:? "details") <*> - (x .: "scheduledEventId") - <*> (x .: "startedEventId")) - -instance Hashable ActivityTaskFailedEventAttributes - where - -instance NFData ActivityTaskFailedEventAttributes - where - --- | Provides the details of the @ActivityTaskScheduled@ event. --- --- --- --- /See:/ 'activityTaskScheduledEventAttributes' smart constructor. -data ActivityTaskScheduledEventAttributes = ActivityTaskScheduledEventAttributes' - { _atseaControl :: !(Maybe Text) - , _atseaHeartbeatTimeout :: !(Maybe Text) - , _atseaScheduleToCloseTimeout :: !(Maybe Text) - , _atseaInput :: !(Maybe Text) - , _atseaTaskPriority :: !(Maybe Text) - , _atseaScheduleToStartTimeout :: !(Maybe Text) - , _atseaStartToCloseTimeout :: !(Maybe Text) - , _atseaActivityType :: !ActivityType - , _atseaActivityId :: !Text - , _atseaTaskList :: !TaskList - , _atseaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ActivityTaskScheduledEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'atseaControl' - Data attached to the event that can be used by the decider in subsequent workflow tasks. This data isn't sent to the activity. --- --- * 'atseaHeartbeatTimeout' - The maximum time before which the worker processing this task must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. If the worker subsequently attempts to record a heartbeat or return a result, it is ignored. --- --- * 'atseaScheduleToCloseTimeout' - The maximum amount of time for this activity task. --- --- * 'atseaInput' - The input provided to the activity task. --- --- * 'atseaTaskPriority' - The priority to assign to the scheduled activity task. If set, this overrides any default priority value that was assigned when the activity type was registered. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . --- --- * 'atseaScheduleToStartTimeout' - The maximum amount of time the activity task can wait to be assigned to a worker. --- --- * 'atseaStartToCloseTimeout' - The maximum amount of time a worker may take to process the activity task. --- --- * 'atseaActivityType' - The type of the activity task. --- --- * 'atseaActivityId' - The unique ID of the activity task. --- --- * 'atseaTaskList' - The task list in which the activity task has been scheduled. --- --- * 'atseaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision that resulted in the scheduling of this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -activityTaskScheduledEventAttributes - :: ActivityType -- ^ 'atseaActivityType' - -> Text -- ^ 'atseaActivityId' - -> TaskList -- ^ 'atseaTaskList' - -> Integer -- ^ 'atseaDecisionTaskCompletedEventId' - -> ActivityTaskScheduledEventAttributes -activityTaskScheduledEventAttributes pActivityType_ pActivityId_ pTaskList_ pDecisionTaskCompletedEventId_ = - ActivityTaskScheduledEventAttributes' - { _atseaControl = Nothing - , _atseaHeartbeatTimeout = Nothing - , _atseaScheduleToCloseTimeout = Nothing - , _atseaInput = Nothing - , _atseaTaskPriority = Nothing - , _atseaScheduleToStartTimeout = Nothing - , _atseaStartToCloseTimeout = Nothing - , _atseaActivityType = pActivityType_ - , _atseaActivityId = pActivityId_ - , _atseaTaskList = pTaskList_ - , _atseaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | Data attached to the event that can be used by the decider in subsequent workflow tasks. This data isn't sent to the activity. -atseaControl :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text) -atseaControl = lens _atseaControl (\ s a -> s{_atseaControl = a}) - --- | The maximum time before which the worker processing this task must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. If the worker subsequently attempts to record a heartbeat or return a result, it is ignored. -atseaHeartbeatTimeout :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text) -atseaHeartbeatTimeout = lens _atseaHeartbeatTimeout (\ s a -> s{_atseaHeartbeatTimeout = a}) - --- | The maximum amount of time for this activity task. -atseaScheduleToCloseTimeout :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text) -atseaScheduleToCloseTimeout = lens _atseaScheduleToCloseTimeout (\ s a -> s{_atseaScheduleToCloseTimeout = a}) - --- | The input provided to the activity task. -atseaInput :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text) -atseaInput = lens _atseaInput (\ s a -> s{_atseaInput = a}) - --- | The priority to assign to the scheduled activity task. If set, this overrides any default priority value that was assigned when the activity type was registered. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . -atseaTaskPriority :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text) -atseaTaskPriority = lens _atseaTaskPriority (\ s a -> s{_atseaTaskPriority = a}) - --- | The maximum amount of time the activity task can wait to be assigned to a worker. -atseaScheduleToStartTimeout :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text) -atseaScheduleToStartTimeout = lens _atseaScheduleToStartTimeout (\ s a -> s{_atseaScheduleToStartTimeout = a}) - --- | The maximum amount of time a worker may take to process the activity task. -atseaStartToCloseTimeout :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text) -atseaStartToCloseTimeout = lens _atseaStartToCloseTimeout (\ s a -> s{_atseaStartToCloseTimeout = a}) - --- | The type of the activity task. -atseaActivityType :: Lens' ActivityTaskScheduledEventAttributes ActivityType -atseaActivityType = lens _atseaActivityType (\ s a -> s{_atseaActivityType = a}) - --- | The unique ID of the activity task. -atseaActivityId :: Lens' ActivityTaskScheduledEventAttributes Text -atseaActivityId = lens _atseaActivityId (\ s a -> s{_atseaActivityId = a}) - --- | The task list in which the activity task has been scheduled. -atseaTaskList :: Lens' ActivityTaskScheduledEventAttributes TaskList -atseaTaskList = lens _atseaTaskList (\ s a -> s{_atseaTaskList = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision that resulted in the scheduling of this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -atseaDecisionTaskCompletedEventId :: Lens' ActivityTaskScheduledEventAttributes Integer -atseaDecisionTaskCompletedEventId = lens _atseaDecisionTaskCompletedEventId (\ s a -> s{_atseaDecisionTaskCompletedEventId = a}) - -instance FromJSON - ActivityTaskScheduledEventAttributes - where - parseJSON - = withObject "ActivityTaskScheduledEventAttributes" - (\ x -> - ActivityTaskScheduledEventAttributes' <$> - (x .:? "control") <*> (x .:? "heartbeatTimeout") <*> - (x .:? "scheduleToCloseTimeout") - <*> (x .:? "input") - <*> (x .:? "taskPriority") - <*> (x .:? "scheduleToStartTimeout") - <*> (x .:? "startToCloseTimeout") - <*> (x .: "activityType") - <*> (x .: "activityId") - <*> (x .: "taskList") - <*> (x .: "decisionTaskCompletedEventId")) - -instance Hashable - ActivityTaskScheduledEventAttributes - where - -instance NFData ActivityTaskScheduledEventAttributes - where - --- | Provides the details of the @ActivityTaskStarted@ event. --- --- --- --- /See:/ 'activityTaskStartedEventAttributes' smart constructor. -data ActivityTaskStartedEventAttributes = ActivityTaskStartedEventAttributes' - { _atseaIdentity :: !(Maybe Text) - , _atseaScheduledEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ActivityTaskStartedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'atseaIdentity' - Identity of the worker that was assigned this task. This aids diagnostics when problems arise. The form of this identity is user defined. --- --- * 'atseaScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -activityTaskStartedEventAttributes - :: Integer -- ^ 'atseaScheduledEventId' - -> ActivityTaskStartedEventAttributes -activityTaskStartedEventAttributes pScheduledEventId_ = - ActivityTaskStartedEventAttributes' - {_atseaIdentity = Nothing, _atseaScheduledEventId = pScheduledEventId_} - - --- | Identity of the worker that was assigned this task. This aids diagnostics when problems arise. The form of this identity is user defined. -atseaIdentity :: Lens' ActivityTaskStartedEventAttributes (Maybe Text) -atseaIdentity = lens _atseaIdentity (\ s a -> s{_atseaIdentity = a}) - --- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -atseaScheduledEventId :: Lens' ActivityTaskStartedEventAttributes Integer -atseaScheduledEventId = lens _atseaScheduledEventId (\ s a -> s{_atseaScheduledEventId = a}) - -instance FromJSON ActivityTaskStartedEventAttributes - where - parseJSON - = withObject "ActivityTaskStartedEventAttributes" - (\ x -> - ActivityTaskStartedEventAttributes' <$> - (x .:? "identity") <*> (x .: "scheduledEventId")) - -instance Hashable ActivityTaskStartedEventAttributes - where - -instance NFData ActivityTaskStartedEventAttributes - where - --- | Provides the details of the @ActivityTaskTimedOut@ event. --- --- --- --- /See:/ 'activityTaskTimedOutEventAttributes' smart constructor. -data ActivityTaskTimedOutEventAttributes = ActivityTaskTimedOutEventAttributes' - { _attoeaDetails :: !(Maybe Text) - , _attoeaTimeoutType :: !ActivityTaskTimeoutType - , _attoeaScheduledEventId :: !Integer - , _attoeaStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ActivityTaskTimedOutEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'attoeaDetails' - Contains the content of the @details@ parameter for the last call made by the activity to @RecordActivityTaskHeartbeat@ . --- --- * 'attoeaTimeoutType' - The type of the timeout that caused this event. --- --- * 'attoeaScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'attoeaStartedEventId' - The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -activityTaskTimedOutEventAttributes - :: ActivityTaskTimeoutType -- ^ 'attoeaTimeoutType' - -> Integer -- ^ 'attoeaScheduledEventId' - -> Integer -- ^ 'attoeaStartedEventId' - -> ActivityTaskTimedOutEventAttributes -activityTaskTimedOutEventAttributes pTimeoutType_ pScheduledEventId_ pStartedEventId_ = - ActivityTaskTimedOutEventAttributes' - { _attoeaDetails = Nothing - , _attoeaTimeoutType = pTimeoutType_ - , _attoeaScheduledEventId = pScheduledEventId_ - , _attoeaStartedEventId = pStartedEventId_ - } - - --- | Contains the content of the @details@ parameter for the last call made by the activity to @RecordActivityTaskHeartbeat@ . -attoeaDetails :: Lens' ActivityTaskTimedOutEventAttributes (Maybe Text) -attoeaDetails = lens _attoeaDetails (\ s a -> s{_attoeaDetails = a}) - --- | The type of the timeout that caused this event. -attoeaTimeoutType :: Lens' ActivityTaskTimedOutEventAttributes ActivityTaskTimeoutType -attoeaTimeoutType = lens _attoeaTimeoutType (\ s a -> s{_attoeaTimeoutType = a}) - --- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -attoeaScheduledEventId :: Lens' ActivityTaskTimedOutEventAttributes Integer -attoeaScheduledEventId = lens _attoeaScheduledEventId (\ s a -> s{_attoeaScheduledEventId = a}) - --- | The ID of the @ActivityTaskStarted@ event recorded when this activity task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -attoeaStartedEventId :: Lens' ActivityTaskTimedOutEventAttributes Integer -attoeaStartedEventId = lens _attoeaStartedEventId (\ s a -> s{_attoeaStartedEventId = a}) - -instance FromJSON ActivityTaskTimedOutEventAttributes - where - parseJSON - = withObject "ActivityTaskTimedOutEventAttributes" - (\ x -> - ActivityTaskTimedOutEventAttributes' <$> - (x .:? "details") <*> (x .: "timeoutType") <*> - (x .: "scheduledEventId") - <*> (x .: "startedEventId")) - -instance Hashable ActivityTaskTimedOutEventAttributes - where - -instance NFData ActivityTaskTimedOutEventAttributes - where - --- | Represents an activity type. --- --- --- --- /See:/ 'activityType' smart constructor. -data ActivityType = ActivityType' - { _atName :: !Text - , _atVersion :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ActivityType' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'atName' - The name of this activity. --- --- * 'atVersion' - The version of this activity. -activityType - :: Text -- ^ 'atName' - -> Text -- ^ 'atVersion' - -> ActivityType -activityType pName_ pVersion_ = - ActivityType' {_atName = pName_, _atVersion = pVersion_} - - --- | The name of this activity. -atName :: Lens' ActivityType Text -atName = lens _atName (\ s a -> s{_atName = a}) - --- | The version of this activity. -atVersion :: Lens' ActivityType Text -atVersion = lens _atVersion (\ s a -> s{_atVersion = a}) - -instance FromJSON ActivityType where - parseJSON - = withObject "ActivityType" - (\ x -> - ActivityType' <$> (x .: "name") <*> (x .: "version")) - -instance Hashable ActivityType where - -instance NFData ActivityType where - -instance ToJSON ActivityType where - toJSON ActivityType'{..} - = object - (catMaybes - [Just ("name" .= _atName), - Just ("version" .= _atVersion)]) - --- | Configuration settings registered with the activity type. --- --- --- --- /See:/ 'activityTypeConfiguration' smart constructor. -data ActivityTypeConfiguration = ActivityTypeConfiguration' - { _atcDefaultTaskScheduleToStartTimeout :: !(Maybe Text) - , _atcDefaultTaskList :: !(Maybe TaskList) - , _atcDefaultTaskPriority :: !(Maybe Text) - , _atcDefaultTaskHeartbeatTimeout :: !(Maybe Text) - , _atcDefaultTaskScheduleToCloseTimeout :: !(Maybe Text) - , _atcDefaultTaskStartToCloseTimeout :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ActivityTypeConfiguration' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'atcDefaultTaskScheduleToStartTimeout' - The default maximum duration, specified when registering the activity type, that a task of an activity type can wait before being assigned to a worker. You can override this default when scheduling a task through the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'atcDefaultTaskList' - The default task list specified for this activity type at registration. This default is used if a task list isn't provided when a task is scheduled through the @ScheduleActivityTask@ 'Decision' . You can override the default registered task list when scheduling a task through the @ScheduleActivityTask@ 'Decision' . --- --- * 'atcDefaultTaskPriority' - The default task priority for tasks of this activity type, specified at registration. If not set, then @0@ is used as the default priority. This default can be overridden when scheduling an activity task. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . --- --- * 'atcDefaultTaskHeartbeatTimeout' - The default maximum time, in seconds, before which a worker processing a task must report progress by calling 'RecordActivityTaskHeartbeat' . You can specify this value only when /registering/ an activity type. The registered default value can be overridden when you schedule a task through the @ScheduleActivityTask@ 'Decision' . If the activity worker subsequently attempts to record a heartbeat or returns a result, the activity worker receives an @UnknownResource@ fault. In this case, Amazon SWF no longer considers the activity task to be valid; the activity worker should clean up the activity task. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'atcDefaultTaskScheduleToCloseTimeout' - The default maximum duration, specified when registering the activity type, for tasks of this activity type. You can override this default when scheduling a task through the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'atcDefaultTaskStartToCloseTimeout' - The default maximum duration for tasks of an activity type specified when registering the activity type. You can override this default when scheduling a task through the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -activityTypeConfiguration - :: ActivityTypeConfiguration -activityTypeConfiguration = - ActivityTypeConfiguration' - { _atcDefaultTaskScheduleToStartTimeout = Nothing - , _atcDefaultTaskList = Nothing - , _atcDefaultTaskPriority = Nothing - , _atcDefaultTaskHeartbeatTimeout = Nothing - , _atcDefaultTaskScheduleToCloseTimeout = Nothing - , _atcDefaultTaskStartToCloseTimeout = Nothing - } - - --- | The default maximum duration, specified when registering the activity type, that a task of an activity type can wait before being assigned to a worker. You can override this default when scheduling a task through the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -atcDefaultTaskScheduleToStartTimeout :: Lens' ActivityTypeConfiguration (Maybe Text) -atcDefaultTaskScheduleToStartTimeout = lens _atcDefaultTaskScheduleToStartTimeout (\ s a -> s{_atcDefaultTaskScheduleToStartTimeout = a}) - --- | The default task list specified for this activity type at registration. This default is used if a task list isn't provided when a task is scheduled through the @ScheduleActivityTask@ 'Decision' . You can override the default registered task list when scheduling a task through the @ScheduleActivityTask@ 'Decision' . -atcDefaultTaskList :: Lens' ActivityTypeConfiguration (Maybe TaskList) -atcDefaultTaskList = lens _atcDefaultTaskList (\ s a -> s{_atcDefaultTaskList = a}) - --- | The default task priority for tasks of this activity type, specified at registration. If not set, then @0@ is used as the default priority. This default can be overridden when scheduling an activity task. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . -atcDefaultTaskPriority :: Lens' ActivityTypeConfiguration (Maybe Text) -atcDefaultTaskPriority = lens _atcDefaultTaskPriority (\ s a -> s{_atcDefaultTaskPriority = a}) - --- | The default maximum time, in seconds, before which a worker processing a task must report progress by calling 'RecordActivityTaskHeartbeat' . You can specify this value only when /registering/ an activity type. The registered default value can be overridden when you schedule a task through the @ScheduleActivityTask@ 'Decision' . If the activity worker subsequently attempts to record a heartbeat or returns a result, the activity worker receives an @UnknownResource@ fault. In this case, Amazon SWF no longer considers the activity task to be valid; the activity worker should clean up the activity task. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -atcDefaultTaskHeartbeatTimeout :: Lens' ActivityTypeConfiguration (Maybe Text) -atcDefaultTaskHeartbeatTimeout = lens _atcDefaultTaskHeartbeatTimeout (\ s a -> s{_atcDefaultTaskHeartbeatTimeout = a}) - --- | The default maximum duration, specified when registering the activity type, for tasks of this activity type. You can override this default when scheduling a task through the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -atcDefaultTaskScheduleToCloseTimeout :: Lens' ActivityTypeConfiguration (Maybe Text) -atcDefaultTaskScheduleToCloseTimeout = lens _atcDefaultTaskScheduleToCloseTimeout (\ s a -> s{_atcDefaultTaskScheduleToCloseTimeout = a}) - --- | The default maximum duration for tasks of an activity type specified when registering the activity type. You can override this default when scheduling a task through the @ScheduleActivityTask@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -atcDefaultTaskStartToCloseTimeout :: Lens' ActivityTypeConfiguration (Maybe Text) -atcDefaultTaskStartToCloseTimeout = lens _atcDefaultTaskStartToCloseTimeout (\ s a -> s{_atcDefaultTaskStartToCloseTimeout = a}) - -instance FromJSON ActivityTypeConfiguration where - parseJSON - = withObject "ActivityTypeConfiguration" - (\ x -> - ActivityTypeConfiguration' <$> - (x .:? "defaultTaskScheduleToStartTimeout") <*> - (x .:? "defaultTaskList") - <*> (x .:? "defaultTaskPriority") - <*> (x .:? "defaultTaskHeartbeatTimeout") - <*> (x .:? "defaultTaskScheduleToCloseTimeout") - <*> (x .:? "defaultTaskStartToCloseTimeout")) - -instance Hashable ActivityTypeConfiguration where - -instance NFData ActivityTypeConfiguration where - --- | Detailed information about an activity type. --- --- --- --- /See:/ 'activityTypeInfo' smart constructor. -data ActivityTypeInfo = ActivityTypeInfo' - { _atiDeprecationDate :: !(Maybe POSIX) - , _atiDescription :: !(Maybe Text) - , _atiActivityType :: !ActivityType - , _atiStatus :: !RegistrationStatus - , _atiCreationDate :: !POSIX - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ActivityTypeInfo' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'atiDeprecationDate' - If DEPRECATED, the date and time 'DeprecateActivityType' was called. --- --- * 'atiDescription' - The description of the activity type provided in 'RegisterActivityType' . --- --- * 'atiActivityType' - The 'ActivityType' type structure representing the activity type. --- --- * 'atiStatus' - The current status of the activity type. --- --- * 'atiCreationDate' - The date and time this activity type was created through 'RegisterActivityType' . -activityTypeInfo - :: ActivityType -- ^ 'atiActivityType' - -> RegistrationStatus -- ^ 'atiStatus' - -> UTCTime -- ^ 'atiCreationDate' - -> ActivityTypeInfo -activityTypeInfo pActivityType_ pStatus_ pCreationDate_ = - ActivityTypeInfo' - { _atiDeprecationDate = Nothing - , _atiDescription = Nothing - , _atiActivityType = pActivityType_ - , _atiStatus = pStatus_ - , _atiCreationDate = _Time # pCreationDate_ - } - - --- | If DEPRECATED, the date and time 'DeprecateActivityType' was called. -atiDeprecationDate :: Lens' ActivityTypeInfo (Maybe UTCTime) -atiDeprecationDate = lens _atiDeprecationDate (\ s a -> s{_atiDeprecationDate = a}) . mapping _Time - --- | The description of the activity type provided in 'RegisterActivityType' . -atiDescription :: Lens' ActivityTypeInfo (Maybe Text) -atiDescription = lens _atiDescription (\ s a -> s{_atiDescription = a}) - --- | The 'ActivityType' type structure representing the activity type. -atiActivityType :: Lens' ActivityTypeInfo ActivityType -atiActivityType = lens _atiActivityType (\ s a -> s{_atiActivityType = a}) - --- | The current status of the activity type. -atiStatus :: Lens' ActivityTypeInfo RegistrationStatus -atiStatus = lens _atiStatus (\ s a -> s{_atiStatus = a}) - --- | The date and time this activity type was created through 'RegisterActivityType' . -atiCreationDate :: Lens' ActivityTypeInfo UTCTime -atiCreationDate = lens _atiCreationDate (\ s a -> s{_atiCreationDate = a}) . _Time - -instance FromJSON ActivityTypeInfo where - parseJSON - = withObject "ActivityTypeInfo" - (\ x -> - ActivityTypeInfo' <$> - (x .:? "deprecationDate") <*> (x .:? "description") - <*> (x .: "activityType") - <*> (x .: "status") - <*> (x .: "creationDate")) - -instance Hashable ActivityTypeInfo where - -instance NFData ActivityTypeInfo where - --- | Provides the details of the @CancelTimer@ decision. --- --- --- __Access Control__ --- --- You can use IAM policies to control this decision's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- /See:/ 'cancelTimerDecisionAttributes' smart constructor. -newtype CancelTimerDecisionAttributes = CancelTimerDecisionAttributes' - { _ctdaTimerId :: Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CancelTimerDecisionAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ctdaTimerId' - The unique ID of the timer to cancel. -cancelTimerDecisionAttributes - :: Text -- ^ 'ctdaTimerId' - -> CancelTimerDecisionAttributes -cancelTimerDecisionAttributes pTimerId_ = - CancelTimerDecisionAttributes' {_ctdaTimerId = pTimerId_} - - --- | The unique ID of the timer to cancel. -ctdaTimerId :: Lens' CancelTimerDecisionAttributes Text -ctdaTimerId = lens _ctdaTimerId (\ s a -> s{_ctdaTimerId = a}) - -instance Hashable CancelTimerDecisionAttributes where - -instance NFData CancelTimerDecisionAttributes where - -instance ToJSON CancelTimerDecisionAttributes where - toJSON CancelTimerDecisionAttributes'{..} - = object - (catMaybes [Just ("timerId" .= _ctdaTimerId)]) - --- | Provides the details of the @CancelTimerFailed@ event. --- --- --- --- /See:/ 'cancelTimerFailedEventAttributes' smart constructor. -data CancelTimerFailedEventAttributes = CancelTimerFailedEventAttributes' - { _ctfeaTimerId :: !Text - , _ctfeaCause :: !CancelTimerFailedCause - , _ctfeaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CancelTimerFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ctfeaTimerId' - The timerId provided in the @CancelTimer@ decision that failed. --- --- * 'ctfeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. --- --- * 'ctfeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelTimer@ decision to cancel this timer. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -cancelTimerFailedEventAttributes - :: Text -- ^ 'ctfeaTimerId' - -> CancelTimerFailedCause -- ^ 'ctfeaCause' - -> Integer -- ^ 'ctfeaDecisionTaskCompletedEventId' - -> CancelTimerFailedEventAttributes -cancelTimerFailedEventAttributes pTimerId_ pCause_ pDecisionTaskCompletedEventId_ = - CancelTimerFailedEventAttributes' - { _ctfeaTimerId = pTimerId_ - , _ctfeaCause = pCause_ - , _ctfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The timerId provided in the @CancelTimer@ decision that failed. -ctfeaTimerId :: Lens' CancelTimerFailedEventAttributes Text -ctfeaTimerId = lens _ctfeaTimerId (\ s a -> s{_ctfeaTimerId = a}) - --- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. -ctfeaCause :: Lens' CancelTimerFailedEventAttributes CancelTimerFailedCause -ctfeaCause = lens _ctfeaCause (\ s a -> s{_ctfeaCause = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelTimer@ decision to cancel this timer. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -ctfeaDecisionTaskCompletedEventId :: Lens' CancelTimerFailedEventAttributes Integer -ctfeaDecisionTaskCompletedEventId = lens _ctfeaDecisionTaskCompletedEventId (\ s a -> s{_ctfeaDecisionTaskCompletedEventId = a}) - -instance FromJSON CancelTimerFailedEventAttributes - where - parseJSON - = withObject "CancelTimerFailedEventAttributes" - (\ x -> - CancelTimerFailedEventAttributes' <$> - (x .: "timerId") <*> (x .: "cause") <*> - (x .: "decisionTaskCompletedEventId")) - -instance Hashable CancelTimerFailedEventAttributes - where - -instance NFData CancelTimerFailedEventAttributes - where - --- | Provides the details of the @CancelWorkflowExecution@ decision. --- --- --- __Access Control__ --- --- You can use IAM policies to control this decision's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- /See:/ 'cancelWorkflowExecutionDecisionAttributes' smart constructor. -newtype CancelWorkflowExecutionDecisionAttributes = CancelWorkflowExecutionDecisionAttributes' - { _cwedaDetails :: Maybe Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CancelWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cwedaDetails' - Details of the cancellation. -cancelWorkflowExecutionDecisionAttributes - :: CancelWorkflowExecutionDecisionAttributes -cancelWorkflowExecutionDecisionAttributes = - CancelWorkflowExecutionDecisionAttributes' {_cwedaDetails = Nothing} - - --- | Details of the cancellation. -cwedaDetails :: Lens' CancelWorkflowExecutionDecisionAttributes (Maybe Text) -cwedaDetails = lens _cwedaDetails (\ s a -> s{_cwedaDetails = a}) - -instance Hashable - CancelWorkflowExecutionDecisionAttributes - where - -instance NFData - CancelWorkflowExecutionDecisionAttributes - where - -instance ToJSON - CancelWorkflowExecutionDecisionAttributes - where - toJSON CancelWorkflowExecutionDecisionAttributes'{..} - = object - (catMaybes [("details" .=) <$> _cwedaDetails]) - --- | Provides the details of the @CancelWorkflowExecutionFailed@ event. --- --- --- --- /See:/ 'cancelWorkflowExecutionFailedEventAttributes' smart constructor. -data CancelWorkflowExecutionFailedEventAttributes = CancelWorkflowExecutionFailedEventAttributes' - { _cCause :: !CancelWorkflowExecutionFailedCause - , _cDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CancelWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. --- --- * 'cDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -cancelWorkflowExecutionFailedEventAttributes - :: CancelWorkflowExecutionFailedCause -- ^ 'cCause' - -> Integer -- ^ 'cDecisionTaskCompletedEventId' - -> CancelWorkflowExecutionFailedEventAttributes -cancelWorkflowExecutionFailedEventAttributes pCause_ pDecisionTaskCompletedEventId_ = - CancelWorkflowExecutionFailedEventAttributes' - { _cCause = pCause_ - , _cDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. -cCause :: Lens' CancelWorkflowExecutionFailedEventAttributes CancelWorkflowExecutionFailedCause -cCause = lens _cCause (\ s a -> s{_cCause = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -cDecisionTaskCompletedEventId :: Lens' CancelWorkflowExecutionFailedEventAttributes Integer -cDecisionTaskCompletedEventId = lens _cDecisionTaskCompletedEventId (\ s a -> s{_cDecisionTaskCompletedEventId = a}) - -instance FromJSON - CancelWorkflowExecutionFailedEventAttributes - where - parseJSON - = withObject - "CancelWorkflowExecutionFailedEventAttributes" - (\ x -> - CancelWorkflowExecutionFailedEventAttributes' <$> - (x .: "cause") <*> - (x .: "decisionTaskCompletedEventId")) - -instance Hashable - CancelWorkflowExecutionFailedEventAttributes - where - -instance NFData - CancelWorkflowExecutionFailedEventAttributes - where - --- | Provide details of the @ChildWorkflowExecutionCanceled@ event. --- --- --- --- /See:/ 'childWorkflowExecutionCanceledEventAttributes' smart constructor. -data ChildWorkflowExecutionCanceledEventAttributes = ChildWorkflowExecutionCanceledEventAttributes' - { _cDetails :: !(Maybe Text) - , _cWorkflowExecution :: !WorkflowExecution - , _cWorkflowType :: !WorkflowType - , _cInitiatedEventId :: !Integer - , _cStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ChildWorkflowExecutionCanceledEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cDetails' - Details of the cancellation (if provided). --- --- * 'cWorkflowExecution' - The child workflow execution that was canceled. --- --- * 'cWorkflowType' - The type of the child workflow execution. --- --- * 'cInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'cStartedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -childWorkflowExecutionCanceledEventAttributes - :: WorkflowExecution -- ^ 'cWorkflowExecution' - -> WorkflowType -- ^ 'cWorkflowType' - -> Integer -- ^ 'cInitiatedEventId' - -> Integer -- ^ 'cStartedEventId' - -> ChildWorkflowExecutionCanceledEventAttributes -childWorkflowExecutionCanceledEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ pStartedEventId_ = - ChildWorkflowExecutionCanceledEventAttributes' - { _cDetails = Nothing - , _cWorkflowExecution = pWorkflowExecution_ - , _cWorkflowType = pWorkflowType_ - , _cInitiatedEventId = pInitiatedEventId_ - , _cStartedEventId = pStartedEventId_ - } - - --- | Details of the cancellation (if provided). -cDetails :: Lens' ChildWorkflowExecutionCanceledEventAttributes (Maybe Text) -cDetails = lens _cDetails (\ s a -> s{_cDetails = a}) - --- | The child workflow execution that was canceled. -cWorkflowExecution :: Lens' ChildWorkflowExecutionCanceledEventAttributes WorkflowExecution -cWorkflowExecution = lens _cWorkflowExecution (\ s a -> s{_cWorkflowExecution = a}) - --- | The type of the child workflow execution. -cWorkflowType :: Lens' ChildWorkflowExecutionCanceledEventAttributes WorkflowType -cWorkflowType = lens _cWorkflowType (\ s a -> s{_cWorkflowType = a}) - --- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -cInitiatedEventId :: Lens' ChildWorkflowExecutionCanceledEventAttributes Integer -cInitiatedEventId = lens _cInitiatedEventId (\ s a -> s{_cInitiatedEventId = a}) - --- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -cStartedEventId :: Lens' ChildWorkflowExecutionCanceledEventAttributes Integer -cStartedEventId = lens _cStartedEventId (\ s a -> s{_cStartedEventId = a}) - -instance FromJSON - ChildWorkflowExecutionCanceledEventAttributes - where - parseJSON - = withObject - "ChildWorkflowExecutionCanceledEventAttributes" - (\ x -> - ChildWorkflowExecutionCanceledEventAttributes' <$> - (x .:? "details") <*> (x .: "workflowExecution") <*> - (x .: "workflowType") - <*> (x .: "initiatedEventId") - <*> (x .: "startedEventId")) - -instance Hashable - ChildWorkflowExecutionCanceledEventAttributes - where - -instance NFData - ChildWorkflowExecutionCanceledEventAttributes - where - --- | Provides the details of the @ChildWorkflowExecutionCompleted@ event. --- --- --- --- /See:/ 'childWorkflowExecutionCompletedEventAttributes' smart constructor. -data ChildWorkflowExecutionCompletedEventAttributes = ChildWorkflowExecutionCompletedEventAttributes' - { _cweceaResult :: !(Maybe Text) - , _cweceaWorkflowExecution :: !WorkflowExecution - , _cweceaWorkflowType :: !WorkflowType - , _cweceaInitiatedEventId :: !Integer - , _cweceaStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ChildWorkflowExecutionCompletedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cweceaResult' - The result of the child workflow execution. --- --- * 'cweceaWorkflowExecution' - The child workflow execution that was completed. --- --- * 'cweceaWorkflowType' - The type of the child workflow execution. --- --- * 'cweceaInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'cweceaStartedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -childWorkflowExecutionCompletedEventAttributes - :: WorkflowExecution -- ^ 'cweceaWorkflowExecution' - -> WorkflowType -- ^ 'cweceaWorkflowType' - -> Integer -- ^ 'cweceaInitiatedEventId' - -> Integer -- ^ 'cweceaStartedEventId' - -> ChildWorkflowExecutionCompletedEventAttributes -childWorkflowExecutionCompletedEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ pStartedEventId_ = - ChildWorkflowExecutionCompletedEventAttributes' - { _cweceaResult = Nothing - , _cweceaWorkflowExecution = pWorkflowExecution_ - , _cweceaWorkflowType = pWorkflowType_ - , _cweceaInitiatedEventId = pInitiatedEventId_ - , _cweceaStartedEventId = pStartedEventId_ - } - - --- | The result of the child workflow execution. -cweceaResult :: Lens' ChildWorkflowExecutionCompletedEventAttributes (Maybe Text) -cweceaResult = lens _cweceaResult (\ s a -> s{_cweceaResult = a}) - --- | The child workflow execution that was completed. -cweceaWorkflowExecution :: Lens' ChildWorkflowExecutionCompletedEventAttributes WorkflowExecution -cweceaWorkflowExecution = lens _cweceaWorkflowExecution (\ s a -> s{_cweceaWorkflowExecution = a}) - --- | The type of the child workflow execution. -cweceaWorkflowType :: Lens' ChildWorkflowExecutionCompletedEventAttributes WorkflowType -cweceaWorkflowType = lens _cweceaWorkflowType (\ s a -> s{_cweceaWorkflowType = a}) - --- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -cweceaInitiatedEventId :: Lens' ChildWorkflowExecutionCompletedEventAttributes Integer -cweceaInitiatedEventId = lens _cweceaInitiatedEventId (\ s a -> s{_cweceaInitiatedEventId = a}) - --- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -cweceaStartedEventId :: Lens' ChildWorkflowExecutionCompletedEventAttributes Integer -cweceaStartedEventId = lens _cweceaStartedEventId (\ s a -> s{_cweceaStartedEventId = a}) - -instance FromJSON - ChildWorkflowExecutionCompletedEventAttributes - where - parseJSON - = withObject - "ChildWorkflowExecutionCompletedEventAttributes" - (\ x -> - ChildWorkflowExecutionCompletedEventAttributes' <$> - (x .:? "result") <*> (x .: "workflowExecution") <*> - (x .: "workflowType") - <*> (x .: "initiatedEventId") - <*> (x .: "startedEventId")) - -instance Hashable - ChildWorkflowExecutionCompletedEventAttributes - where - -instance NFData - ChildWorkflowExecutionCompletedEventAttributes - where - --- | Provides the details of the @ChildWorkflowExecutionFailed@ event. --- --- --- --- /See:/ 'childWorkflowExecutionFailedEventAttributes' smart constructor. -data ChildWorkflowExecutionFailedEventAttributes = ChildWorkflowExecutionFailedEventAttributes' - { _cwefeaReason :: !(Maybe Text) - , _cwefeaDetails :: !(Maybe Text) - , _cwefeaWorkflowExecution :: !WorkflowExecution - , _cwefeaWorkflowType :: !WorkflowType - , _cwefeaInitiatedEventId :: !Integer - , _cwefeaStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ChildWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cwefeaReason' - The reason for the failure (if provided). --- --- * 'cwefeaDetails' - The details of the failure (if provided). --- --- * 'cwefeaWorkflowExecution' - The child workflow execution that failed. --- --- * 'cwefeaWorkflowType' - The type of the child workflow execution. --- --- * 'cwefeaInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'cwefeaStartedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -childWorkflowExecutionFailedEventAttributes - :: WorkflowExecution -- ^ 'cwefeaWorkflowExecution' - -> WorkflowType -- ^ 'cwefeaWorkflowType' - -> Integer -- ^ 'cwefeaInitiatedEventId' - -> Integer -- ^ 'cwefeaStartedEventId' - -> ChildWorkflowExecutionFailedEventAttributes -childWorkflowExecutionFailedEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ pStartedEventId_ = - ChildWorkflowExecutionFailedEventAttributes' - { _cwefeaReason = Nothing - , _cwefeaDetails = Nothing - , _cwefeaWorkflowExecution = pWorkflowExecution_ - , _cwefeaWorkflowType = pWorkflowType_ - , _cwefeaInitiatedEventId = pInitiatedEventId_ - , _cwefeaStartedEventId = pStartedEventId_ - } - - --- | The reason for the failure (if provided). -cwefeaReason :: Lens' ChildWorkflowExecutionFailedEventAttributes (Maybe Text) -cwefeaReason = lens _cwefeaReason (\ s a -> s{_cwefeaReason = a}) - --- | The details of the failure (if provided). -cwefeaDetails :: Lens' ChildWorkflowExecutionFailedEventAttributes (Maybe Text) -cwefeaDetails = lens _cwefeaDetails (\ s a -> s{_cwefeaDetails = a}) - --- | The child workflow execution that failed. -cwefeaWorkflowExecution :: Lens' ChildWorkflowExecutionFailedEventAttributes WorkflowExecution -cwefeaWorkflowExecution = lens _cwefeaWorkflowExecution (\ s a -> s{_cwefeaWorkflowExecution = a}) - --- | The type of the child workflow execution. -cwefeaWorkflowType :: Lens' ChildWorkflowExecutionFailedEventAttributes WorkflowType -cwefeaWorkflowType = lens _cwefeaWorkflowType (\ s a -> s{_cwefeaWorkflowType = a}) - --- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -cwefeaInitiatedEventId :: Lens' ChildWorkflowExecutionFailedEventAttributes Integer -cwefeaInitiatedEventId = lens _cwefeaInitiatedEventId (\ s a -> s{_cwefeaInitiatedEventId = a}) - --- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -cwefeaStartedEventId :: Lens' ChildWorkflowExecutionFailedEventAttributes Integer -cwefeaStartedEventId = lens _cwefeaStartedEventId (\ s a -> s{_cwefeaStartedEventId = a}) - -instance FromJSON - ChildWorkflowExecutionFailedEventAttributes - where - parseJSON - = withObject - "ChildWorkflowExecutionFailedEventAttributes" - (\ x -> - ChildWorkflowExecutionFailedEventAttributes' <$> - (x .:? "reason") <*> (x .:? "details") <*> - (x .: "workflowExecution") - <*> (x .: "workflowType") - <*> (x .: "initiatedEventId") - <*> (x .: "startedEventId")) - -instance Hashable - ChildWorkflowExecutionFailedEventAttributes - where - -instance NFData - ChildWorkflowExecutionFailedEventAttributes - where - --- | Provides the details of the @ChildWorkflowExecutionStarted@ event. --- --- --- --- /See:/ 'childWorkflowExecutionStartedEventAttributes' smart constructor. -data ChildWorkflowExecutionStartedEventAttributes = ChildWorkflowExecutionStartedEventAttributes' - { _cweseaWorkflowExecution :: !WorkflowExecution - , _cweseaWorkflowType :: !WorkflowType - , _cweseaInitiatedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ChildWorkflowExecutionStartedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cweseaWorkflowExecution' - The child workflow execution that was started. --- --- * 'cweseaWorkflowType' - The type of the child workflow execution. --- --- * 'cweseaInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -childWorkflowExecutionStartedEventAttributes - :: WorkflowExecution -- ^ 'cweseaWorkflowExecution' - -> WorkflowType -- ^ 'cweseaWorkflowType' - -> Integer -- ^ 'cweseaInitiatedEventId' - -> ChildWorkflowExecutionStartedEventAttributes -childWorkflowExecutionStartedEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ = - ChildWorkflowExecutionStartedEventAttributes' - { _cweseaWorkflowExecution = pWorkflowExecution_ - , _cweseaWorkflowType = pWorkflowType_ - , _cweseaInitiatedEventId = pInitiatedEventId_ - } - - --- | The child workflow execution that was started. -cweseaWorkflowExecution :: Lens' ChildWorkflowExecutionStartedEventAttributes WorkflowExecution -cweseaWorkflowExecution = lens _cweseaWorkflowExecution (\ s a -> s{_cweseaWorkflowExecution = a}) - --- | The type of the child workflow execution. -cweseaWorkflowType :: Lens' ChildWorkflowExecutionStartedEventAttributes WorkflowType -cweseaWorkflowType = lens _cweseaWorkflowType (\ s a -> s{_cweseaWorkflowType = a}) - --- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -cweseaInitiatedEventId :: Lens' ChildWorkflowExecutionStartedEventAttributes Integer -cweseaInitiatedEventId = lens _cweseaInitiatedEventId (\ s a -> s{_cweseaInitiatedEventId = a}) - -instance FromJSON - ChildWorkflowExecutionStartedEventAttributes - where - parseJSON - = withObject - "ChildWorkflowExecutionStartedEventAttributes" - (\ x -> - ChildWorkflowExecutionStartedEventAttributes' <$> - (x .: "workflowExecution") <*> (x .: "workflowType") - <*> (x .: "initiatedEventId")) - -instance Hashable - ChildWorkflowExecutionStartedEventAttributes - where - -instance NFData - ChildWorkflowExecutionStartedEventAttributes - where - --- | Provides the details of the @ChildWorkflowExecutionTerminated@ event. --- --- --- --- /See:/ 'childWorkflowExecutionTerminatedEventAttributes' smart constructor. -data ChildWorkflowExecutionTerminatedEventAttributes = ChildWorkflowExecutionTerminatedEventAttributes' - { _cweteaWorkflowExecution :: !WorkflowExecution - , _cweteaWorkflowType :: !WorkflowType - , _cweteaInitiatedEventId :: !Integer - , _cweteaStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ChildWorkflowExecutionTerminatedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cweteaWorkflowExecution' - The child workflow execution that was terminated. --- --- * 'cweteaWorkflowType' - The type of the child workflow execution. --- --- * 'cweteaInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'cweteaStartedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -childWorkflowExecutionTerminatedEventAttributes - :: WorkflowExecution -- ^ 'cweteaWorkflowExecution' - -> WorkflowType -- ^ 'cweteaWorkflowType' - -> Integer -- ^ 'cweteaInitiatedEventId' - -> Integer -- ^ 'cweteaStartedEventId' - -> ChildWorkflowExecutionTerminatedEventAttributes -childWorkflowExecutionTerminatedEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ pStartedEventId_ = - ChildWorkflowExecutionTerminatedEventAttributes' - { _cweteaWorkflowExecution = pWorkflowExecution_ - , _cweteaWorkflowType = pWorkflowType_ - , _cweteaInitiatedEventId = pInitiatedEventId_ - , _cweteaStartedEventId = pStartedEventId_ - } - - --- | The child workflow execution that was terminated. -cweteaWorkflowExecution :: Lens' ChildWorkflowExecutionTerminatedEventAttributes WorkflowExecution -cweteaWorkflowExecution = lens _cweteaWorkflowExecution (\ s a -> s{_cweteaWorkflowExecution = a}) - --- | The type of the child workflow execution. -cweteaWorkflowType :: Lens' ChildWorkflowExecutionTerminatedEventAttributes WorkflowType -cweteaWorkflowType = lens _cweteaWorkflowType (\ s a -> s{_cweteaWorkflowType = a}) - --- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -cweteaInitiatedEventId :: Lens' ChildWorkflowExecutionTerminatedEventAttributes Integer -cweteaInitiatedEventId = lens _cweteaInitiatedEventId (\ s a -> s{_cweteaInitiatedEventId = a}) - --- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -cweteaStartedEventId :: Lens' ChildWorkflowExecutionTerminatedEventAttributes Integer -cweteaStartedEventId = lens _cweteaStartedEventId (\ s a -> s{_cweteaStartedEventId = a}) - -instance FromJSON - ChildWorkflowExecutionTerminatedEventAttributes - where - parseJSON - = withObject - "ChildWorkflowExecutionTerminatedEventAttributes" - (\ x -> - ChildWorkflowExecutionTerminatedEventAttributes' <$> - (x .: "workflowExecution") <*> (x .: "workflowType") - <*> (x .: "initiatedEventId") - <*> (x .: "startedEventId")) - -instance Hashable - ChildWorkflowExecutionTerminatedEventAttributes - where - -instance NFData - ChildWorkflowExecutionTerminatedEventAttributes - where - --- | Provides the details of the @ChildWorkflowExecutionTimedOut@ event. --- --- --- --- /See:/ 'childWorkflowExecutionTimedOutEventAttributes' smart constructor. -data ChildWorkflowExecutionTimedOutEventAttributes = ChildWorkflowExecutionTimedOutEventAttributes' - { _cwetoeaWorkflowExecution :: !WorkflowExecution - , _cwetoeaWorkflowType :: !WorkflowType - , _cwetoeaTimeoutType :: !WorkflowExecutionTimeoutType - , _cwetoeaInitiatedEventId :: !Integer - , _cwetoeaStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ChildWorkflowExecutionTimedOutEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cwetoeaWorkflowExecution' - The child workflow execution that timed out. --- --- * 'cwetoeaWorkflowType' - The type of the child workflow execution. --- --- * 'cwetoeaTimeoutType' - The type of the timeout that caused the child workflow execution to time out. --- --- * 'cwetoeaInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'cwetoeaStartedEventId' - The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -childWorkflowExecutionTimedOutEventAttributes - :: WorkflowExecution -- ^ 'cwetoeaWorkflowExecution' - -> WorkflowType -- ^ 'cwetoeaWorkflowType' - -> WorkflowExecutionTimeoutType -- ^ 'cwetoeaTimeoutType' - -> Integer -- ^ 'cwetoeaInitiatedEventId' - -> Integer -- ^ 'cwetoeaStartedEventId' - -> ChildWorkflowExecutionTimedOutEventAttributes -childWorkflowExecutionTimedOutEventAttributes pWorkflowExecution_ pWorkflowType_ pTimeoutType_ pInitiatedEventId_ pStartedEventId_ = - ChildWorkflowExecutionTimedOutEventAttributes' - { _cwetoeaWorkflowExecution = pWorkflowExecution_ - , _cwetoeaWorkflowType = pWorkflowType_ - , _cwetoeaTimeoutType = pTimeoutType_ - , _cwetoeaInitiatedEventId = pInitiatedEventId_ - , _cwetoeaStartedEventId = pStartedEventId_ - } - - --- | The child workflow execution that timed out. -cwetoeaWorkflowExecution :: Lens' ChildWorkflowExecutionTimedOutEventAttributes WorkflowExecution -cwetoeaWorkflowExecution = lens _cwetoeaWorkflowExecution (\ s a -> s{_cwetoeaWorkflowExecution = a}) - --- | The type of the child workflow execution. -cwetoeaWorkflowType :: Lens' ChildWorkflowExecutionTimedOutEventAttributes WorkflowType -cwetoeaWorkflowType = lens _cwetoeaWorkflowType (\ s a -> s{_cwetoeaWorkflowType = a}) - --- | The type of the timeout that caused the child workflow execution to time out. -cwetoeaTimeoutType :: Lens' ChildWorkflowExecutionTimedOutEventAttributes WorkflowExecutionTimeoutType -cwetoeaTimeoutType = lens _cwetoeaTimeoutType (\ s a -> s{_cwetoeaTimeoutType = a}) - --- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -cwetoeaInitiatedEventId :: Lens' ChildWorkflowExecutionTimedOutEventAttributes Integer -cwetoeaInitiatedEventId = lens _cwetoeaInitiatedEventId (\ s a -> s{_cwetoeaInitiatedEventId = a}) - --- | The ID of the @ChildWorkflowExecutionStarted@ event recorded when this child workflow execution was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -cwetoeaStartedEventId :: Lens' ChildWorkflowExecutionTimedOutEventAttributes Integer -cwetoeaStartedEventId = lens _cwetoeaStartedEventId (\ s a -> s{_cwetoeaStartedEventId = a}) - -instance FromJSON - ChildWorkflowExecutionTimedOutEventAttributes - where - parseJSON - = withObject - "ChildWorkflowExecutionTimedOutEventAttributes" - (\ x -> - ChildWorkflowExecutionTimedOutEventAttributes' <$> - (x .: "workflowExecution") <*> (x .: "workflowType") - <*> (x .: "timeoutType") - <*> (x .: "initiatedEventId") - <*> (x .: "startedEventId")) - -instance Hashable - ChildWorkflowExecutionTimedOutEventAttributes - where - -instance NFData - ChildWorkflowExecutionTimedOutEventAttributes - where - --- | Used to filter the closed workflow executions in visibility APIs by their close status. --- --- --- --- /See:/ 'closeStatusFilter' smart constructor. -newtype CloseStatusFilter = CloseStatusFilter' - { _csfStatus :: CloseStatus - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CloseStatusFilter' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'csfStatus' - The close status that must match the close status of an execution for it to meet the criteria of this filter. -closeStatusFilter - :: CloseStatus -- ^ 'csfStatus' - -> CloseStatusFilter -closeStatusFilter pStatus_ = CloseStatusFilter' {_csfStatus = pStatus_} - - --- | The close status that must match the close status of an execution for it to meet the criteria of this filter. -csfStatus :: Lens' CloseStatusFilter CloseStatus -csfStatus = lens _csfStatus (\ s a -> s{_csfStatus = a}) - -instance Hashable CloseStatusFilter where - -instance NFData CloseStatusFilter where - -instance ToJSON CloseStatusFilter where - toJSON CloseStatusFilter'{..} - = object (catMaybes [Just ("status" .= _csfStatus)]) - --- | Provides the details of the @CompleteWorkflowExecution@ decision. --- --- --- __Access Control__ --- --- You can use IAM policies to control this decision's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- /See:/ 'completeWorkflowExecutionDecisionAttributes' smart constructor. -newtype CompleteWorkflowExecutionDecisionAttributes = CompleteWorkflowExecutionDecisionAttributes' - { _cwedaResult :: Maybe Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CompleteWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cwedaResult' - The result of the workflow execution. The form of the result is implementation defined. -completeWorkflowExecutionDecisionAttributes - :: CompleteWorkflowExecutionDecisionAttributes -completeWorkflowExecutionDecisionAttributes = - CompleteWorkflowExecutionDecisionAttributes' {_cwedaResult = Nothing} - - --- | The result of the workflow execution. The form of the result is implementation defined. -cwedaResult :: Lens' CompleteWorkflowExecutionDecisionAttributes (Maybe Text) -cwedaResult = lens _cwedaResult (\ s a -> s{_cwedaResult = a}) - -instance Hashable - CompleteWorkflowExecutionDecisionAttributes - where - -instance NFData - CompleteWorkflowExecutionDecisionAttributes - where - -instance ToJSON - CompleteWorkflowExecutionDecisionAttributes - where - toJSON - CompleteWorkflowExecutionDecisionAttributes'{..} - = object (catMaybes [("result" .=) <$> _cwedaResult]) - --- | Provides the details of the @CompleteWorkflowExecutionFailed@ event. --- --- --- --- /See:/ 'completeWorkflowExecutionFailedEventAttributes' smart constructor. -data CompleteWorkflowExecutionFailedEventAttributes = CompleteWorkflowExecutionFailedEventAttributes' - { _cwefeaCause :: !CompleteWorkflowExecutionFailedCause - , _cwefeaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CompleteWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cwefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. --- --- * 'cwefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CompleteWorkflowExecution@ decision to complete this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -completeWorkflowExecutionFailedEventAttributes - :: CompleteWorkflowExecutionFailedCause -- ^ 'cwefeaCause' - -> Integer -- ^ 'cwefeaDecisionTaskCompletedEventId' - -> CompleteWorkflowExecutionFailedEventAttributes -completeWorkflowExecutionFailedEventAttributes pCause_ pDecisionTaskCompletedEventId_ = - CompleteWorkflowExecutionFailedEventAttributes' - { _cwefeaCause = pCause_ - , _cwefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. -cwefeaCause :: Lens' CompleteWorkflowExecutionFailedEventAttributes CompleteWorkflowExecutionFailedCause -cwefeaCause = lens _cwefeaCause (\ s a -> s{_cwefeaCause = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CompleteWorkflowExecution@ decision to complete this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -cwefeaDecisionTaskCompletedEventId :: Lens' CompleteWorkflowExecutionFailedEventAttributes Integer -cwefeaDecisionTaskCompletedEventId = lens _cwefeaDecisionTaskCompletedEventId (\ s a -> s{_cwefeaDecisionTaskCompletedEventId = a}) - -instance FromJSON - CompleteWorkflowExecutionFailedEventAttributes - where - parseJSON - = withObject - "CompleteWorkflowExecutionFailedEventAttributes" - (\ x -> - CompleteWorkflowExecutionFailedEventAttributes' <$> - (x .: "cause") <*> - (x .: "decisionTaskCompletedEventId")) - -instance Hashable - CompleteWorkflowExecutionFailedEventAttributes - where - -instance NFData - CompleteWorkflowExecutionFailedEventAttributes - where - --- | Provides the details of the @ContinueAsNewWorkflowExecution@ decision. --- --- --- __Access Control__ --- --- You can use IAM policies to control this decision's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the following parameters by using a @Condition@ element with the appropriate keys. --- --- * @tag@ – A tag used to identify the workflow execution --- --- * @taskList@ – String constraint. The key is @swf:taskList.name@ . --- --- * @workflowType.version@ – String constraint. The key is @swf:workflowType.version@ . --- --- --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- /See:/ 'continueAsNewWorkflowExecutionDecisionAttributes' smart constructor. -data ContinueAsNewWorkflowExecutionDecisionAttributes = ContinueAsNewWorkflowExecutionDecisionAttributes' - { _canwedaTagList :: !(Maybe [Text]) - , _canwedaTaskStartToCloseTimeout :: !(Maybe Text) - , _canwedaLambdaRole :: !(Maybe Text) - , _canwedaInput :: !(Maybe Text) - , _canwedaWorkflowTypeVersion :: !(Maybe Text) - , _canwedaExecutionStartToCloseTimeout :: !(Maybe Text) - , _canwedaTaskList :: !(Maybe TaskList) - , _canwedaTaskPriority :: !(Maybe Text) - , _canwedaChildPolicy :: !(Maybe ChildPolicy) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ContinueAsNewWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'canwedaTagList' - The list of tags to associate with the new workflow execution. A maximum of 5 tags can be specified. You can list workflow executions with a specific tag by calling 'ListOpenWorkflowExecutions' or 'ListClosedWorkflowExecutions' and specifying a 'TagFilter' . --- --- * 'canwedaTaskStartToCloseTimeout' - Specifies the maximum duration of decision tasks for the new workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'canwedaLambdaRole' - The IAM role to attach to the new (continued) execution. --- --- * 'canwedaInput' - The input provided to the new workflow execution. --- --- * 'canwedaWorkflowTypeVersion' - The version of the workflow to start. --- --- * 'canwedaExecutionStartToCloseTimeout' - If set, specifies the total duration for this workflow execution. This overrides the @defaultExecutionStartToCloseTimeout@ specified when registering the workflow type. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'canwedaTaskList' - The task list to use for the decisions of the new (continued) workflow execution. --- --- * 'canwedaTaskPriority' - The task priority that, if set, specifies the priority for the decision tasks for this workflow execution. This overrides the defaultTaskPriority specified when registering the workflow type. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . --- --- * 'canwedaChildPolicy' - If set, specifies the policy to use for the child workflow executions of the new execution if it is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -continueAsNewWorkflowExecutionDecisionAttributes - :: ContinueAsNewWorkflowExecutionDecisionAttributes -continueAsNewWorkflowExecutionDecisionAttributes = - ContinueAsNewWorkflowExecutionDecisionAttributes' - { _canwedaTagList = Nothing - , _canwedaTaskStartToCloseTimeout = Nothing - , _canwedaLambdaRole = Nothing - , _canwedaInput = Nothing - , _canwedaWorkflowTypeVersion = Nothing - , _canwedaExecutionStartToCloseTimeout = Nothing - , _canwedaTaskList = Nothing - , _canwedaTaskPriority = Nothing - , _canwedaChildPolicy = Nothing - } - - --- | The list of tags to associate with the new workflow execution. A maximum of 5 tags can be specified. You can list workflow executions with a specific tag by calling 'ListOpenWorkflowExecutions' or 'ListClosedWorkflowExecutions' and specifying a 'TagFilter' . -canwedaTagList :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes [Text] -canwedaTagList = lens _canwedaTagList (\ s a -> s{_canwedaTagList = a}) . _Default . _Coerce - --- | Specifies the maximum duration of decision tasks for the new workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -canwedaTaskStartToCloseTimeout :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text) -canwedaTaskStartToCloseTimeout = lens _canwedaTaskStartToCloseTimeout (\ s a -> s{_canwedaTaskStartToCloseTimeout = a}) - --- | The IAM role to attach to the new (continued) execution. -canwedaLambdaRole :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text) -canwedaLambdaRole = lens _canwedaLambdaRole (\ s a -> s{_canwedaLambdaRole = a}) - --- | The input provided to the new workflow execution. -canwedaInput :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text) -canwedaInput = lens _canwedaInput (\ s a -> s{_canwedaInput = a}) - --- | The version of the workflow to start. -canwedaWorkflowTypeVersion :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text) -canwedaWorkflowTypeVersion = lens _canwedaWorkflowTypeVersion (\ s a -> s{_canwedaWorkflowTypeVersion = a}) - --- | If set, specifies the total duration for this workflow execution. This overrides the @defaultExecutionStartToCloseTimeout@ specified when registering the workflow type. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -canwedaExecutionStartToCloseTimeout :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text) -canwedaExecutionStartToCloseTimeout = lens _canwedaExecutionStartToCloseTimeout (\ s a -> s{_canwedaExecutionStartToCloseTimeout = a}) - --- | The task list to use for the decisions of the new (continued) workflow execution. -canwedaTaskList :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe TaskList) -canwedaTaskList = lens _canwedaTaskList (\ s a -> s{_canwedaTaskList = a}) - --- | The task priority that, if set, specifies the priority for the decision tasks for this workflow execution. This overrides the defaultTaskPriority specified when registering the workflow type. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . -canwedaTaskPriority :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text) -canwedaTaskPriority = lens _canwedaTaskPriority (\ s a -> s{_canwedaTaskPriority = a}) - --- | If set, specifies the policy to use for the child workflow executions of the new execution if it is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -canwedaChildPolicy :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe ChildPolicy) -canwedaChildPolicy = lens _canwedaChildPolicy (\ s a -> s{_canwedaChildPolicy = a}) - -instance Hashable - ContinueAsNewWorkflowExecutionDecisionAttributes - where - -instance NFData - ContinueAsNewWorkflowExecutionDecisionAttributes - where - -instance ToJSON - ContinueAsNewWorkflowExecutionDecisionAttributes - where - toJSON - ContinueAsNewWorkflowExecutionDecisionAttributes'{..} - = object - (catMaybes - [("tagList" .=) <$> _canwedaTagList, - ("taskStartToCloseTimeout" .=) <$> - _canwedaTaskStartToCloseTimeout, - ("lambdaRole" .=) <$> _canwedaLambdaRole, - ("input" .=) <$> _canwedaInput, - ("workflowTypeVersion" .=) <$> - _canwedaWorkflowTypeVersion, - ("executionStartToCloseTimeout" .=) <$> - _canwedaExecutionStartToCloseTimeout, - ("taskList" .=) <$> _canwedaTaskList, - ("taskPriority" .=) <$> _canwedaTaskPriority, - ("childPolicy" .=) <$> _canwedaChildPolicy]) - --- | Provides the details of the @ContinueAsNewWorkflowExecutionFailed@ event. --- --- --- --- /See:/ 'continueAsNewWorkflowExecutionFailedEventAttributes' smart constructor. -data ContinueAsNewWorkflowExecutionFailedEventAttributes = ContinueAsNewWorkflowExecutionFailedEventAttributes' - { _canwefeaCause :: !ContinueAsNewWorkflowExecutionFailedCause - , _canwefeaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ContinueAsNewWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'canwefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. --- --- * 'canwefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @ContinueAsNewWorkflowExecution@ decision that started this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -continueAsNewWorkflowExecutionFailedEventAttributes - :: ContinueAsNewWorkflowExecutionFailedCause -- ^ 'canwefeaCause' - -> Integer -- ^ 'canwefeaDecisionTaskCompletedEventId' - -> ContinueAsNewWorkflowExecutionFailedEventAttributes -continueAsNewWorkflowExecutionFailedEventAttributes pCause_ pDecisionTaskCompletedEventId_ = - ContinueAsNewWorkflowExecutionFailedEventAttributes' - { _canwefeaCause = pCause_ - , _canwefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. -canwefeaCause :: Lens' ContinueAsNewWorkflowExecutionFailedEventAttributes ContinueAsNewWorkflowExecutionFailedCause -canwefeaCause = lens _canwefeaCause (\ s a -> s{_canwefeaCause = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @ContinueAsNewWorkflowExecution@ decision that started this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -canwefeaDecisionTaskCompletedEventId :: Lens' ContinueAsNewWorkflowExecutionFailedEventAttributes Integer -canwefeaDecisionTaskCompletedEventId = lens _canwefeaDecisionTaskCompletedEventId (\ s a -> s{_canwefeaDecisionTaskCompletedEventId = a}) - -instance FromJSON - ContinueAsNewWorkflowExecutionFailedEventAttributes - where - parseJSON - = withObject - "ContinueAsNewWorkflowExecutionFailedEventAttributes" - (\ x -> - ContinueAsNewWorkflowExecutionFailedEventAttributes' - <$> - (x .: "cause") <*> - (x .: "decisionTaskCompletedEventId")) - -instance Hashable - ContinueAsNewWorkflowExecutionFailedEventAttributes - where - -instance NFData - ContinueAsNewWorkflowExecutionFailedEventAttributes - where - --- | Specifies a decision made by the decider. A decision can be one of these types: --- --- --- * @CancelTimer@ – Cancels a previously started timer and records a @TimerCanceled@ event in the history. --- --- * @CancelWorkflowExecution@ – Closes the workflow execution and records a @WorkflowExecutionCanceled@ event in the history. --- --- * @CompleteWorkflowExecution@ – Closes the workflow execution and records a @WorkflowExecutionCompleted@ event in the history . --- --- * @ContinueAsNewWorkflowExecution@ – Closes the workflow execution and starts a new workflow execution of the same type using the same workflow ID and a unique run Id. A @WorkflowExecutionContinuedAsNew@ event is recorded in the history. --- --- * @FailWorkflowExecution@ – Closes the workflow execution and records a @WorkflowExecutionFailed@ event in the history. --- --- * @RecordMarker@ – Records a @MarkerRecorded@ event in the history. Markers can be used for adding custom information in the history for instance to let deciders know that they don't need to look at the history beyond the marker event. --- --- * @RequestCancelActivityTask@ – Attempts to cancel a previously scheduled activity task. If the activity task was scheduled but has not been assigned to a worker, then it is canceled. If the activity task was already assigned to a worker, then the worker is informed that cancellation has been requested in the response to 'RecordActivityTaskHeartbeat' . --- --- * @RequestCancelExternalWorkflowExecution@ – Requests that a request be made to cancel the specified external workflow execution and records a @RequestCancelExternalWorkflowExecutionInitiated@ event in the history. --- --- * @ScheduleActivityTask@ – Schedules an activity task. --- --- * @SignalExternalWorkflowExecution@ – Requests a signal to be delivered to the specified external workflow execution and records a @SignalExternalWorkflowExecutionInitiated@ event in the history. --- --- * @StartChildWorkflowExecution@ – Requests that a child workflow execution be started and records a @StartChildWorkflowExecutionInitiated@ event in the history. The child workflow execution is a separate workflow execution with its own history. --- --- * @StartTimer@ – Starts a timer for this workflow execution and records a @TimerStarted@ event in the history. This timer fires after the specified delay and record a @TimerFired@ event. --- --- --- --- __Access Control__ --- --- If you grant permission to use @RespondDecisionTaskCompleted@ , you can use IAM policies to express permissions for the list of decisions returned by this action as if they were members of the API. Treating decisions as a pseudo API maintains a uniform conceptual model and helps keep policies readable. For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- __Decision Failure__ --- --- Decisions can fail for several reasons --- --- * The ordering of decisions should follow a logical flow. Some decisions might not make sense in the current context of the workflow execution and therefore fails. --- --- * A limit on your account was reached. --- --- * The decision lacks sufficient permissions. --- --- --- --- One of the following events might be added to the history to indicate an error. The event attribute's @cause@ parameter indicates the cause. If @cause@ is set to @OPERATION_NOT_PERMITTED@ , the decision failed because it lacked sufficient permissions. For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- * @ScheduleActivityTaskFailed@ – A @ScheduleActivityTask@ decision failed. This could happen if the activity type specified in the decision isn't registered, is in a deprecated state, or the decision isn't properly configured. --- --- * @RequestCancelActivityTaskFailed@ – A @RequestCancelActivityTask@ decision failed. This could happen if there is no open activity task with the specified activityId. --- --- * @StartTimerFailed@ – A @StartTimer@ decision failed. This could happen if there is another open timer with the same timerId. --- --- * @CancelTimerFailed@ – A @CancelTimer@ decision failed. This could happen if there is no open timer with the specified timerId. --- --- * @StartChildWorkflowExecutionFailed@ – A @StartChildWorkflowExecution@ decision failed. This could happen if the workflow type specified isn't registered, is deprecated, or the decision isn't properly configured. --- --- * @SignalExternalWorkflowExecutionFailed@ – A @SignalExternalWorkflowExecution@ decision failed. This could happen if the @workflowID@ specified in the decision was incorrect. --- --- * @RequestCancelExternalWorkflowExecutionFailed@ – A @RequestCancelExternalWorkflowExecution@ decision failed. This could happen if the @workflowID@ specified in the decision was incorrect. --- --- * @CancelWorkflowExecutionFailed@ – A @CancelWorkflowExecution@ decision failed. This could happen if there is an unhandled decision task pending in the workflow execution. --- --- * @CompleteWorkflowExecutionFailed@ – A @CompleteWorkflowExecution@ decision failed. This could happen if there is an unhandled decision task pending in the workflow execution. --- --- * @ContinueAsNewWorkflowExecutionFailed@ – A @ContinueAsNewWorkflowExecution@ decision failed. This could happen if there is an unhandled decision task pending in the workflow execution or the ContinueAsNewWorkflowExecution decision was not configured correctly. --- --- * @FailWorkflowExecutionFailed@ – A @FailWorkflowExecution@ decision failed. This could happen if there is an unhandled decision task pending in the workflow execution. --- --- --- --- The preceding error events might occur due to an error in the decider logic, which might put the workflow execution in an unstable state The cause field in the event structure for the error event indicates the cause of the error. --- --- __How to Code a Decision__ --- --- You code a decision by first setting the decision type field to one of the above decision values, and then set the corresponding attributes field shown below: --- --- * @'ScheduleActivityTaskDecisionAttributes' @ --- --- * @'RequestCancelActivityTaskDecisionAttributes' @ --- --- * @'CompleteWorkflowExecutionDecisionAttributes' @ --- --- * @'FailWorkflowExecutionDecisionAttributes' @ --- --- * @'CancelWorkflowExecutionDecisionAttributes' @ --- --- * @'ContinueAsNewWorkflowExecutionDecisionAttributes' @ --- --- * @'RecordMarkerDecisionAttributes' @ --- --- * @'StartTimerDecisionAttributes' @ --- --- * @'CancelTimerDecisionAttributes' @ --- --- * @'SignalExternalWorkflowExecutionDecisionAttributes' @ --- --- * @'RequestCancelExternalWorkflowExecutionDecisionAttributes' @ --- --- * @'StartChildWorkflowExecutionDecisionAttributes' @ --- --- --- --- --- /See:/ 'decision' smart constructor. -data Decision = Decision' - { _dRequestCancelExternalWorkflowExecutionDecisionAttributes :: !(Maybe RequestCancelExternalWorkflowExecutionDecisionAttributes) - , _dScheduleActivityTaskDecisionAttributes :: !(Maybe ScheduleActivityTaskDecisionAttributes) - , _dSignalExternalWorkflowExecutionDecisionAttributes :: !(Maybe SignalExternalWorkflowExecutionDecisionAttributes) - , _dStartTimerDecisionAttributes :: !(Maybe StartTimerDecisionAttributes) - , _dRecordMarkerDecisionAttributes :: !(Maybe RecordMarkerDecisionAttributes) - , _dFailWorkflowExecutionDecisionAttributes :: !(Maybe FailWorkflowExecutionDecisionAttributes) - , _dStartChildWorkflowExecutionDecisionAttributes :: !(Maybe StartChildWorkflowExecutionDecisionAttributes) - , _dCompleteWorkflowExecutionDecisionAttributes :: !(Maybe CompleteWorkflowExecutionDecisionAttributes) - , _dScheduleLambdaFunctionDecisionAttributes :: !(Maybe ScheduleLambdaFunctionDecisionAttributes) - , _dRequestCancelActivityTaskDecisionAttributes :: !(Maybe RequestCancelActivityTaskDecisionAttributes) - , _dCancelWorkflowExecutionDecisionAttributes :: !(Maybe CancelWorkflowExecutionDecisionAttributes) - , _dCancelTimerDecisionAttributes :: !(Maybe CancelTimerDecisionAttributes) - , _dContinueAsNewWorkflowExecutionDecisionAttributes :: !(Maybe ContinueAsNewWorkflowExecutionDecisionAttributes) - , _dDecisionType :: !DecisionType - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Decision' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dRequestCancelExternalWorkflowExecutionDecisionAttributes' - Provides the details of the @RequestCancelExternalWorkflowExecution@ decision. It isn't set for other decision types. --- --- * 'dScheduleActivityTaskDecisionAttributes' - Provides the details of the @ScheduleActivityTask@ decision. It isn't set for other decision types. --- --- * 'dSignalExternalWorkflowExecutionDecisionAttributes' - Provides the details of the @SignalExternalWorkflowExecution@ decision. It isn't set for other decision types. --- --- * 'dStartTimerDecisionAttributes' - Provides the details of the @StartTimer@ decision. It isn't set for other decision types. --- --- * 'dRecordMarkerDecisionAttributes' - Provides the details of the @RecordMarker@ decision. It isn't set for other decision types. --- --- * 'dFailWorkflowExecutionDecisionAttributes' - Provides the details of the @FailWorkflowExecution@ decision. It isn't set for other decision types. --- --- * 'dStartChildWorkflowExecutionDecisionAttributes' - Provides the details of the @StartChildWorkflowExecution@ decision. It isn't set for other decision types. --- --- * 'dCompleteWorkflowExecutionDecisionAttributes' - Provides the details of the @CompleteWorkflowExecution@ decision. It isn't set for other decision types. --- --- * 'dScheduleLambdaFunctionDecisionAttributes' - Provides the details of the @ScheduleLambdaFunction@ decision. It isn't set for other decision types. --- --- * 'dRequestCancelActivityTaskDecisionAttributes' - Provides the details of the @RequestCancelActivityTask@ decision. It isn't set for other decision types. --- --- * 'dCancelWorkflowExecutionDecisionAttributes' - Provides the details of the @CancelWorkflowExecution@ decision. It isn't set for other decision types. --- --- * 'dCancelTimerDecisionAttributes' - Provides the details of the @CancelTimer@ decision. It isn't set for other decision types. --- --- * 'dContinueAsNewWorkflowExecutionDecisionAttributes' - Provides the details of the @ContinueAsNewWorkflowExecution@ decision. It isn't set for other decision types. --- --- * 'dDecisionType' - Specifies the type of the decision. -decision - :: DecisionType -- ^ 'dDecisionType' - -> Decision -decision pDecisionType_ = - Decision' - { _dRequestCancelExternalWorkflowExecutionDecisionAttributes = Nothing - , _dScheduleActivityTaskDecisionAttributes = Nothing - , _dSignalExternalWorkflowExecutionDecisionAttributes = Nothing - , _dStartTimerDecisionAttributes = Nothing - , _dRecordMarkerDecisionAttributes = Nothing - , _dFailWorkflowExecutionDecisionAttributes = Nothing - , _dStartChildWorkflowExecutionDecisionAttributes = Nothing - , _dCompleteWorkflowExecutionDecisionAttributes = Nothing - , _dScheduleLambdaFunctionDecisionAttributes = Nothing - , _dRequestCancelActivityTaskDecisionAttributes = Nothing - , _dCancelWorkflowExecutionDecisionAttributes = Nothing - , _dCancelTimerDecisionAttributes = Nothing - , _dContinueAsNewWorkflowExecutionDecisionAttributes = Nothing - , _dDecisionType = pDecisionType_ - } - - --- | Provides the details of the @RequestCancelExternalWorkflowExecution@ decision. It isn't set for other decision types. -dRequestCancelExternalWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe RequestCancelExternalWorkflowExecutionDecisionAttributes) -dRequestCancelExternalWorkflowExecutionDecisionAttributes = lens _dRequestCancelExternalWorkflowExecutionDecisionAttributes (\ s a -> s{_dRequestCancelExternalWorkflowExecutionDecisionAttributes = a}) - --- | Provides the details of the @ScheduleActivityTask@ decision. It isn't set for other decision types. -dScheduleActivityTaskDecisionAttributes :: Lens' Decision (Maybe ScheduleActivityTaskDecisionAttributes) -dScheduleActivityTaskDecisionAttributes = lens _dScheduleActivityTaskDecisionAttributes (\ s a -> s{_dScheduleActivityTaskDecisionAttributes = a}) - --- | Provides the details of the @SignalExternalWorkflowExecution@ decision. It isn't set for other decision types. -dSignalExternalWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe SignalExternalWorkflowExecutionDecisionAttributes) -dSignalExternalWorkflowExecutionDecisionAttributes = lens _dSignalExternalWorkflowExecutionDecisionAttributes (\ s a -> s{_dSignalExternalWorkflowExecutionDecisionAttributes = a}) - --- | Provides the details of the @StartTimer@ decision. It isn't set for other decision types. -dStartTimerDecisionAttributes :: Lens' Decision (Maybe StartTimerDecisionAttributes) -dStartTimerDecisionAttributes = lens _dStartTimerDecisionAttributes (\ s a -> s{_dStartTimerDecisionAttributes = a}) - --- | Provides the details of the @RecordMarker@ decision. It isn't set for other decision types. -dRecordMarkerDecisionAttributes :: Lens' Decision (Maybe RecordMarkerDecisionAttributes) -dRecordMarkerDecisionAttributes = lens _dRecordMarkerDecisionAttributes (\ s a -> s{_dRecordMarkerDecisionAttributes = a}) - --- | Provides the details of the @FailWorkflowExecution@ decision. It isn't set for other decision types. -dFailWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe FailWorkflowExecutionDecisionAttributes) -dFailWorkflowExecutionDecisionAttributes = lens _dFailWorkflowExecutionDecisionAttributes (\ s a -> s{_dFailWorkflowExecutionDecisionAttributes = a}) - --- | Provides the details of the @StartChildWorkflowExecution@ decision. It isn't set for other decision types. -dStartChildWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe StartChildWorkflowExecutionDecisionAttributes) -dStartChildWorkflowExecutionDecisionAttributes = lens _dStartChildWorkflowExecutionDecisionAttributes (\ s a -> s{_dStartChildWorkflowExecutionDecisionAttributes = a}) - --- | Provides the details of the @CompleteWorkflowExecution@ decision. It isn't set for other decision types. -dCompleteWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe CompleteWorkflowExecutionDecisionAttributes) -dCompleteWorkflowExecutionDecisionAttributes = lens _dCompleteWorkflowExecutionDecisionAttributes (\ s a -> s{_dCompleteWorkflowExecutionDecisionAttributes = a}) - --- | Provides the details of the @ScheduleLambdaFunction@ decision. It isn't set for other decision types. -dScheduleLambdaFunctionDecisionAttributes :: Lens' Decision (Maybe ScheduleLambdaFunctionDecisionAttributes) -dScheduleLambdaFunctionDecisionAttributes = lens _dScheduleLambdaFunctionDecisionAttributes (\ s a -> s{_dScheduleLambdaFunctionDecisionAttributes = a}) - --- | Provides the details of the @RequestCancelActivityTask@ decision. It isn't set for other decision types. -dRequestCancelActivityTaskDecisionAttributes :: Lens' Decision (Maybe RequestCancelActivityTaskDecisionAttributes) -dRequestCancelActivityTaskDecisionAttributes = lens _dRequestCancelActivityTaskDecisionAttributes (\ s a -> s{_dRequestCancelActivityTaskDecisionAttributes = a}) - --- | Provides the details of the @CancelWorkflowExecution@ decision. It isn't set for other decision types. -dCancelWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe CancelWorkflowExecutionDecisionAttributes) -dCancelWorkflowExecutionDecisionAttributes = lens _dCancelWorkflowExecutionDecisionAttributes (\ s a -> s{_dCancelWorkflowExecutionDecisionAttributes = a}) - --- | Provides the details of the @CancelTimer@ decision. It isn't set for other decision types. -dCancelTimerDecisionAttributes :: Lens' Decision (Maybe CancelTimerDecisionAttributes) -dCancelTimerDecisionAttributes = lens _dCancelTimerDecisionAttributes (\ s a -> s{_dCancelTimerDecisionAttributes = a}) - --- | Provides the details of the @ContinueAsNewWorkflowExecution@ decision. It isn't set for other decision types. -dContinueAsNewWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe ContinueAsNewWorkflowExecutionDecisionAttributes) -dContinueAsNewWorkflowExecutionDecisionAttributes = lens _dContinueAsNewWorkflowExecutionDecisionAttributes (\ s a -> s{_dContinueAsNewWorkflowExecutionDecisionAttributes = a}) - --- | Specifies the type of the decision. -dDecisionType :: Lens' Decision DecisionType -dDecisionType = lens _dDecisionType (\ s a -> s{_dDecisionType = a}) - -instance Hashable Decision where - -instance NFData Decision where - -instance ToJSON Decision where - toJSON Decision'{..} - = object - (catMaybes - [("requestCancelExternalWorkflowExecutionDecisionAttributes" - .=) - <$> - _dRequestCancelExternalWorkflowExecutionDecisionAttributes, - ("scheduleActivityTaskDecisionAttributes" .=) <$> - _dScheduleActivityTaskDecisionAttributes, - ("signalExternalWorkflowExecutionDecisionAttributes" - .=) - <$> - _dSignalExternalWorkflowExecutionDecisionAttributes, - ("startTimerDecisionAttributes" .=) <$> - _dStartTimerDecisionAttributes, - ("recordMarkerDecisionAttributes" .=) <$> - _dRecordMarkerDecisionAttributes, - ("failWorkflowExecutionDecisionAttributes" .=) <$> - _dFailWorkflowExecutionDecisionAttributes, - ("startChildWorkflowExecutionDecisionAttributes" .=) - <$> _dStartChildWorkflowExecutionDecisionAttributes, - ("completeWorkflowExecutionDecisionAttributes" .=) - <$> _dCompleteWorkflowExecutionDecisionAttributes, - ("scheduleLambdaFunctionDecisionAttributes" .=) <$> - _dScheduleLambdaFunctionDecisionAttributes, - ("requestCancelActivityTaskDecisionAttributes" .=) - <$> _dRequestCancelActivityTaskDecisionAttributes, - ("cancelWorkflowExecutionDecisionAttributes" .=) <$> - _dCancelWorkflowExecutionDecisionAttributes, - ("cancelTimerDecisionAttributes" .=) <$> - _dCancelTimerDecisionAttributes, - ("continueAsNewWorkflowExecutionDecisionAttributes" - .=) - <$> - _dContinueAsNewWorkflowExecutionDecisionAttributes, - Just ("decisionType" .= _dDecisionType)]) - --- | Provides the details of the @DecisionTaskCompleted@ event. --- --- --- --- /See:/ 'decisionTaskCompletedEventAttributes' smart constructor. -data DecisionTaskCompletedEventAttributes = DecisionTaskCompletedEventAttributes' - { _dtceaExecutionContext :: !(Maybe Text) - , _dtceaScheduledEventId :: !Integer - , _dtceaStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DecisionTaskCompletedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dtceaExecutionContext' - User defined context for the workflow execution. --- --- * 'dtceaScheduledEventId' - The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'dtceaStartedEventId' - The ID of the @DecisionTaskStarted@ event recorded when this decision task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -decisionTaskCompletedEventAttributes - :: Integer -- ^ 'dtceaScheduledEventId' - -> Integer -- ^ 'dtceaStartedEventId' - -> DecisionTaskCompletedEventAttributes -decisionTaskCompletedEventAttributes pScheduledEventId_ pStartedEventId_ = - DecisionTaskCompletedEventAttributes' - { _dtceaExecutionContext = Nothing - , _dtceaScheduledEventId = pScheduledEventId_ - , _dtceaStartedEventId = pStartedEventId_ - } - - --- | User defined context for the workflow execution. -dtceaExecutionContext :: Lens' DecisionTaskCompletedEventAttributes (Maybe Text) -dtceaExecutionContext = lens _dtceaExecutionContext (\ s a -> s{_dtceaExecutionContext = a}) - --- | The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -dtceaScheduledEventId :: Lens' DecisionTaskCompletedEventAttributes Integer -dtceaScheduledEventId = lens _dtceaScheduledEventId (\ s a -> s{_dtceaScheduledEventId = a}) - --- | The ID of the @DecisionTaskStarted@ event recorded when this decision task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -dtceaStartedEventId :: Lens' DecisionTaskCompletedEventAttributes Integer -dtceaStartedEventId = lens _dtceaStartedEventId (\ s a -> s{_dtceaStartedEventId = a}) - -instance FromJSON - DecisionTaskCompletedEventAttributes - where - parseJSON - = withObject "DecisionTaskCompletedEventAttributes" - (\ x -> - DecisionTaskCompletedEventAttributes' <$> - (x .:? "executionContext") <*> - (x .: "scheduledEventId") - <*> (x .: "startedEventId")) - -instance Hashable - DecisionTaskCompletedEventAttributes - where - -instance NFData DecisionTaskCompletedEventAttributes - where - --- | Provides details about the @DecisionTaskScheduled@ event. --- --- --- --- /See:/ 'decisionTaskScheduledEventAttributes' smart constructor. -data DecisionTaskScheduledEventAttributes = DecisionTaskScheduledEventAttributes' - { _dtseaTaskPriority :: !(Maybe Text) - , _dtseaStartToCloseTimeout :: !(Maybe Text) - , _dtseaTaskList :: !TaskList - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DecisionTaskScheduledEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dtseaTaskPriority' - A task priority that, if set, specifies the priority for this decision task. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . --- --- * 'dtseaStartToCloseTimeout' - The maximum duration for this decision task. The task is considered timed out if it doesn't completed within this duration. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'dtseaTaskList' - The name of the task list in which the decision task was scheduled. -decisionTaskScheduledEventAttributes - :: TaskList -- ^ 'dtseaTaskList' - -> DecisionTaskScheduledEventAttributes -decisionTaskScheduledEventAttributes pTaskList_ = - DecisionTaskScheduledEventAttributes' - { _dtseaTaskPriority = Nothing - , _dtseaStartToCloseTimeout = Nothing - , _dtseaTaskList = pTaskList_ - } - - --- | A task priority that, if set, specifies the priority for this decision task. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . -dtseaTaskPriority :: Lens' DecisionTaskScheduledEventAttributes (Maybe Text) -dtseaTaskPriority = lens _dtseaTaskPriority (\ s a -> s{_dtseaTaskPriority = a}) - --- | The maximum duration for this decision task. The task is considered timed out if it doesn't completed within this duration. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -dtseaStartToCloseTimeout :: Lens' DecisionTaskScheduledEventAttributes (Maybe Text) -dtseaStartToCloseTimeout = lens _dtseaStartToCloseTimeout (\ s a -> s{_dtseaStartToCloseTimeout = a}) - --- | The name of the task list in which the decision task was scheduled. -dtseaTaskList :: Lens' DecisionTaskScheduledEventAttributes TaskList -dtseaTaskList = lens _dtseaTaskList (\ s a -> s{_dtseaTaskList = a}) - -instance FromJSON - DecisionTaskScheduledEventAttributes - where - parseJSON - = withObject "DecisionTaskScheduledEventAttributes" - (\ x -> - DecisionTaskScheduledEventAttributes' <$> - (x .:? "taskPriority") <*> - (x .:? "startToCloseTimeout") - <*> (x .: "taskList")) - -instance Hashable - DecisionTaskScheduledEventAttributes - where - -instance NFData DecisionTaskScheduledEventAttributes - where - --- | Provides the details of the @DecisionTaskStarted@ event. --- --- --- --- /See:/ 'decisionTaskStartedEventAttributes' smart constructor. -data DecisionTaskStartedEventAttributes = DecisionTaskStartedEventAttributes' - { _dtseaIdentity :: !(Maybe Text) - , _dtseaScheduledEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DecisionTaskStartedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dtseaIdentity' - Identity of the decider making the request. This enables diagnostic tracing when problems arise. The form of this identity is user defined. --- --- * 'dtseaScheduledEventId' - The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -decisionTaskStartedEventAttributes - :: Integer -- ^ 'dtseaScheduledEventId' - -> DecisionTaskStartedEventAttributes -decisionTaskStartedEventAttributes pScheduledEventId_ = - DecisionTaskStartedEventAttributes' - {_dtseaIdentity = Nothing, _dtseaScheduledEventId = pScheduledEventId_} - - --- | Identity of the decider making the request. This enables diagnostic tracing when problems arise. The form of this identity is user defined. -dtseaIdentity :: Lens' DecisionTaskStartedEventAttributes (Maybe Text) -dtseaIdentity = lens _dtseaIdentity (\ s a -> s{_dtseaIdentity = a}) - --- | The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -dtseaScheduledEventId :: Lens' DecisionTaskStartedEventAttributes Integer -dtseaScheduledEventId = lens _dtseaScheduledEventId (\ s a -> s{_dtseaScheduledEventId = a}) - -instance FromJSON DecisionTaskStartedEventAttributes - where - parseJSON - = withObject "DecisionTaskStartedEventAttributes" - (\ x -> - DecisionTaskStartedEventAttributes' <$> - (x .:? "identity") <*> (x .: "scheduledEventId")) - -instance Hashable DecisionTaskStartedEventAttributes - where - -instance NFData DecisionTaskStartedEventAttributes - where - --- | Provides the details of the @DecisionTaskTimedOut@ event. --- --- --- --- /See:/ 'decisionTaskTimedOutEventAttributes' smart constructor. -data DecisionTaskTimedOutEventAttributes = DecisionTaskTimedOutEventAttributes' - { _dttoeaTimeoutType :: !DecisionTaskTimeoutType - , _dttoeaScheduledEventId :: !Integer - , _dttoeaStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DecisionTaskTimedOutEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dttoeaTimeoutType' - The type of timeout that expired before the decision task could be completed. --- --- * 'dttoeaScheduledEventId' - The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'dttoeaStartedEventId' - The ID of the @DecisionTaskStarted@ event recorded when this decision task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -decisionTaskTimedOutEventAttributes - :: DecisionTaskTimeoutType -- ^ 'dttoeaTimeoutType' - -> Integer -- ^ 'dttoeaScheduledEventId' - -> Integer -- ^ 'dttoeaStartedEventId' - -> DecisionTaskTimedOutEventAttributes -decisionTaskTimedOutEventAttributes pTimeoutType_ pScheduledEventId_ pStartedEventId_ = - DecisionTaskTimedOutEventAttributes' - { _dttoeaTimeoutType = pTimeoutType_ - , _dttoeaScheduledEventId = pScheduledEventId_ - , _dttoeaStartedEventId = pStartedEventId_ - } - - --- | The type of timeout that expired before the decision task could be completed. -dttoeaTimeoutType :: Lens' DecisionTaskTimedOutEventAttributes DecisionTaskTimeoutType -dttoeaTimeoutType = lens _dttoeaTimeoutType (\ s a -> s{_dttoeaTimeoutType = a}) - --- | The ID of the @DecisionTaskScheduled@ event that was recorded when this decision task was scheduled. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -dttoeaScheduledEventId :: Lens' DecisionTaskTimedOutEventAttributes Integer -dttoeaScheduledEventId = lens _dttoeaScheduledEventId (\ s a -> s{_dttoeaScheduledEventId = a}) - --- | The ID of the @DecisionTaskStarted@ event recorded when this decision task was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -dttoeaStartedEventId :: Lens' DecisionTaskTimedOutEventAttributes Integer -dttoeaStartedEventId = lens _dttoeaStartedEventId (\ s a -> s{_dttoeaStartedEventId = a}) - -instance FromJSON DecisionTaskTimedOutEventAttributes - where - parseJSON - = withObject "DecisionTaskTimedOutEventAttributes" - (\ x -> - DecisionTaskTimedOutEventAttributes' <$> - (x .: "timeoutType") <*> (x .: "scheduledEventId") - <*> (x .: "startedEventId")) - -instance Hashable DecisionTaskTimedOutEventAttributes - where - -instance NFData DecisionTaskTimedOutEventAttributes - where - --- | Contains the configuration settings of a domain. --- --- --- --- /See:/ 'domainConfiguration' smart constructor. -newtype DomainConfiguration = DomainConfiguration' - { _dcWorkflowExecutionRetentionPeriodInDays :: Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DomainConfiguration' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dcWorkflowExecutionRetentionPeriodInDays' - The retention period for workflow executions in this domain. -domainConfiguration - :: Text -- ^ 'dcWorkflowExecutionRetentionPeriodInDays' - -> DomainConfiguration -domainConfiguration pWorkflowExecutionRetentionPeriodInDays_ = - DomainConfiguration' - { _dcWorkflowExecutionRetentionPeriodInDays = - pWorkflowExecutionRetentionPeriodInDays_ - } - - --- | The retention period for workflow executions in this domain. -dcWorkflowExecutionRetentionPeriodInDays :: Lens' DomainConfiguration Text -dcWorkflowExecutionRetentionPeriodInDays = lens _dcWorkflowExecutionRetentionPeriodInDays (\ s a -> s{_dcWorkflowExecutionRetentionPeriodInDays = a}) - -instance FromJSON DomainConfiguration where - parseJSON - = withObject "DomainConfiguration" - (\ x -> - DomainConfiguration' <$> - (x .: "workflowExecutionRetentionPeriodInDays")) - -instance Hashable DomainConfiguration where - -instance NFData DomainConfiguration where - --- | Contains general information about a domain. --- --- --- --- /See:/ 'domainInfo' smart constructor. -data DomainInfo = DomainInfo' - { _diDescription :: !(Maybe Text) - , _diName :: !Text - , _diStatus :: !RegistrationStatus - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DomainInfo' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'diDescription' - The description of the domain provided through 'RegisterDomain' . --- --- * 'diName' - The name of the domain. This name is unique within the account. --- --- * 'diStatus' - The status of the domain: * @REGISTERED@ – The domain is properly registered and available. You can use this domain for registering types and creating new workflow executions. * @DEPRECATED@ – The domain was deprecated using 'DeprecateDomain' , but is still in use. You should not create new workflow executions in this domain. -domainInfo - :: Text -- ^ 'diName' - -> RegistrationStatus -- ^ 'diStatus' - -> DomainInfo -domainInfo pName_ pStatus_ = - DomainInfo' {_diDescription = Nothing, _diName = pName_, _diStatus = pStatus_} - - --- | The description of the domain provided through 'RegisterDomain' . -diDescription :: Lens' DomainInfo (Maybe Text) -diDescription = lens _diDescription (\ s a -> s{_diDescription = a}) - --- | The name of the domain. This name is unique within the account. -diName :: Lens' DomainInfo Text -diName = lens _diName (\ s a -> s{_diName = a}) - --- | The status of the domain: * @REGISTERED@ – The domain is properly registered and available. You can use this domain for registering types and creating new workflow executions. * @DEPRECATED@ – The domain was deprecated using 'DeprecateDomain' , but is still in use. You should not create new workflow executions in this domain. -diStatus :: Lens' DomainInfo RegistrationStatus -diStatus = lens _diStatus (\ s a -> s{_diStatus = a}) - -instance FromJSON DomainInfo where - parseJSON - = withObject "DomainInfo" - (\ x -> - DomainInfo' <$> - (x .:? "description") <*> (x .: "name") <*> - (x .: "status")) - -instance Hashable DomainInfo where - -instance NFData DomainInfo where - --- | Used to filter the workflow executions in visibility APIs by various time-based rules. Each parameter, if specified, defines a rule that must be satisfied by each returned query result. The parameter values are in the . For example: @"oldestDate": 1325376070.@ --- --- --- --- /See:/ 'executionTimeFilter' smart constructor. -data ExecutionTimeFilter = ExecutionTimeFilter' - { _etfLatestDate :: !(Maybe POSIX) - , _etfOldestDate :: !POSIX - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ExecutionTimeFilter' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'etfLatestDate' - Specifies the latest start or close date and time to return. --- --- * 'etfOldestDate' - Specifies the oldest start or close date and time to return. -executionTimeFilter - :: UTCTime -- ^ 'etfOldestDate' - -> ExecutionTimeFilter -executionTimeFilter pOldestDate_ = - ExecutionTimeFilter' - {_etfLatestDate = Nothing, _etfOldestDate = _Time # pOldestDate_} - - --- | Specifies the latest start or close date and time to return. -etfLatestDate :: Lens' ExecutionTimeFilter (Maybe UTCTime) -etfLatestDate = lens _etfLatestDate (\ s a -> s{_etfLatestDate = a}) . mapping _Time - --- | Specifies the oldest start or close date and time to return. -etfOldestDate :: Lens' ExecutionTimeFilter UTCTime -etfOldestDate = lens _etfOldestDate (\ s a -> s{_etfOldestDate = a}) . _Time - -instance Hashable ExecutionTimeFilter where - -instance NFData ExecutionTimeFilter where - -instance ToJSON ExecutionTimeFilter where - toJSON ExecutionTimeFilter'{..} - = object - (catMaybes - [("latestDate" .=) <$> _etfLatestDate, - Just ("oldestDate" .= _etfOldestDate)]) - --- | Provides the details of the @ExternalWorkflowExecutionCancelRequested@ event. --- --- --- --- /See:/ 'externalWorkflowExecutionCancelRequestedEventAttributes' smart constructor. -data ExternalWorkflowExecutionCancelRequestedEventAttributes = ExternalWorkflowExecutionCancelRequestedEventAttributes' - { _ewecreaWorkflowExecution :: !WorkflowExecution - , _ewecreaInitiatedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ExternalWorkflowExecutionCancelRequestedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ewecreaWorkflowExecution' - The external workflow execution to which the cancellation request was delivered. --- --- * 'ewecreaInitiatedEventId' - The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this external workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -externalWorkflowExecutionCancelRequestedEventAttributes - :: WorkflowExecution -- ^ 'ewecreaWorkflowExecution' - -> Integer -- ^ 'ewecreaInitiatedEventId' - -> ExternalWorkflowExecutionCancelRequestedEventAttributes -externalWorkflowExecutionCancelRequestedEventAttributes pWorkflowExecution_ pInitiatedEventId_ = - ExternalWorkflowExecutionCancelRequestedEventAttributes' - { _ewecreaWorkflowExecution = pWorkflowExecution_ - , _ewecreaInitiatedEventId = pInitiatedEventId_ - } - - --- | The external workflow execution to which the cancellation request was delivered. -ewecreaWorkflowExecution :: Lens' ExternalWorkflowExecutionCancelRequestedEventAttributes WorkflowExecution -ewecreaWorkflowExecution = lens _ewecreaWorkflowExecution (\ s a -> s{_ewecreaWorkflowExecution = a}) - --- | The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this external workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -ewecreaInitiatedEventId :: Lens' ExternalWorkflowExecutionCancelRequestedEventAttributes Integer -ewecreaInitiatedEventId = lens _ewecreaInitiatedEventId (\ s a -> s{_ewecreaInitiatedEventId = a}) - -instance FromJSON - ExternalWorkflowExecutionCancelRequestedEventAttributes - where - parseJSON - = withObject - "ExternalWorkflowExecutionCancelRequestedEventAttributes" - (\ x -> - ExternalWorkflowExecutionCancelRequestedEventAttributes' - <$> - (x .: "workflowExecution") <*> - (x .: "initiatedEventId")) - -instance Hashable - ExternalWorkflowExecutionCancelRequestedEventAttributes - where - -instance NFData - ExternalWorkflowExecutionCancelRequestedEventAttributes - where - --- | Provides the details of the @ExternalWorkflowExecutionSignaled@ event. --- --- --- --- /See:/ 'externalWorkflowExecutionSignaledEventAttributes' smart constructor. -data ExternalWorkflowExecutionSignaledEventAttributes = ExternalWorkflowExecutionSignaledEventAttributes' - { _eweseaWorkflowExecution :: !WorkflowExecution - , _eweseaInitiatedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ExternalWorkflowExecutionSignaledEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'eweseaWorkflowExecution' - The external workflow execution that the signal was delivered to. --- --- * 'eweseaInitiatedEventId' - The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflowExecution@ decision to request this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -externalWorkflowExecutionSignaledEventAttributes - :: WorkflowExecution -- ^ 'eweseaWorkflowExecution' - -> Integer -- ^ 'eweseaInitiatedEventId' - -> ExternalWorkflowExecutionSignaledEventAttributes -externalWorkflowExecutionSignaledEventAttributes pWorkflowExecution_ pInitiatedEventId_ = - ExternalWorkflowExecutionSignaledEventAttributes' - { _eweseaWorkflowExecution = pWorkflowExecution_ - , _eweseaInitiatedEventId = pInitiatedEventId_ - } - - --- | The external workflow execution that the signal was delivered to. -eweseaWorkflowExecution :: Lens' ExternalWorkflowExecutionSignaledEventAttributes WorkflowExecution -eweseaWorkflowExecution = lens _eweseaWorkflowExecution (\ s a -> s{_eweseaWorkflowExecution = a}) - --- | The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflowExecution@ decision to request this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -eweseaInitiatedEventId :: Lens' ExternalWorkflowExecutionSignaledEventAttributes Integer -eweseaInitiatedEventId = lens _eweseaInitiatedEventId (\ s a -> s{_eweseaInitiatedEventId = a}) - -instance FromJSON - ExternalWorkflowExecutionSignaledEventAttributes - where - parseJSON - = withObject - "ExternalWorkflowExecutionSignaledEventAttributes" - (\ x -> - ExternalWorkflowExecutionSignaledEventAttributes' <$> - (x .: "workflowExecution") <*> - (x .: "initiatedEventId")) - -instance Hashable - ExternalWorkflowExecutionSignaledEventAttributes - where - -instance NFData - ExternalWorkflowExecutionSignaledEventAttributes - where - --- | Provides the details of the @FailWorkflowExecution@ decision. --- --- --- __Access Control__ --- --- You can use IAM policies to control this decision's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- /See:/ 'failWorkflowExecutionDecisionAttributes' smart constructor. -data FailWorkflowExecutionDecisionAttributes = FailWorkflowExecutionDecisionAttributes' - { _fwedaReason :: !(Maybe Text) - , _fwedaDetails :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'FailWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'fwedaReason' - A descriptive reason for the failure that may help in diagnostics. --- --- * 'fwedaDetails' - Details of the failure. -failWorkflowExecutionDecisionAttributes - :: FailWorkflowExecutionDecisionAttributes -failWorkflowExecutionDecisionAttributes = - FailWorkflowExecutionDecisionAttributes' - {_fwedaReason = Nothing, _fwedaDetails = Nothing} - - --- | A descriptive reason for the failure that may help in diagnostics. -fwedaReason :: Lens' FailWorkflowExecutionDecisionAttributes (Maybe Text) -fwedaReason = lens _fwedaReason (\ s a -> s{_fwedaReason = a}) - --- | Details of the failure. -fwedaDetails :: Lens' FailWorkflowExecutionDecisionAttributes (Maybe Text) -fwedaDetails = lens _fwedaDetails (\ s a -> s{_fwedaDetails = a}) - -instance Hashable - FailWorkflowExecutionDecisionAttributes - where - -instance NFData - FailWorkflowExecutionDecisionAttributes - where - -instance ToJSON - FailWorkflowExecutionDecisionAttributes - where - toJSON FailWorkflowExecutionDecisionAttributes'{..} - = object - (catMaybes - [("reason" .=) <$> _fwedaReason, - ("details" .=) <$> _fwedaDetails]) - --- | Provides the details of the @FailWorkflowExecutionFailed@ event. --- --- --- --- /See:/ 'failWorkflowExecutionFailedEventAttributes' smart constructor. -data FailWorkflowExecutionFailedEventAttributes = FailWorkflowExecutionFailedEventAttributes' - { _fwefeaCause :: !FailWorkflowExecutionFailedCause - , _fwefeaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'FailWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'fwefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. --- --- * 'fwefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @FailWorkflowExecution@ decision to fail this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -failWorkflowExecutionFailedEventAttributes - :: FailWorkflowExecutionFailedCause -- ^ 'fwefeaCause' - -> Integer -- ^ 'fwefeaDecisionTaskCompletedEventId' - -> FailWorkflowExecutionFailedEventAttributes -failWorkflowExecutionFailedEventAttributes pCause_ pDecisionTaskCompletedEventId_ = - FailWorkflowExecutionFailedEventAttributes' - { _fwefeaCause = pCause_ - , _fwefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. -fwefeaCause :: Lens' FailWorkflowExecutionFailedEventAttributes FailWorkflowExecutionFailedCause -fwefeaCause = lens _fwefeaCause (\ s a -> s{_fwefeaCause = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @FailWorkflowExecution@ decision to fail this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -fwefeaDecisionTaskCompletedEventId :: Lens' FailWorkflowExecutionFailedEventAttributes Integer -fwefeaDecisionTaskCompletedEventId = lens _fwefeaDecisionTaskCompletedEventId (\ s a -> s{_fwefeaDecisionTaskCompletedEventId = a}) - -instance FromJSON - FailWorkflowExecutionFailedEventAttributes - where - parseJSON - = withObject - "FailWorkflowExecutionFailedEventAttributes" - (\ x -> - FailWorkflowExecutionFailedEventAttributes' <$> - (x .: "cause") <*> - (x .: "decisionTaskCompletedEventId")) - -instance Hashable - FailWorkflowExecutionFailedEventAttributes - where - -instance NFData - FailWorkflowExecutionFailedEventAttributes - where - --- | Event within a workflow execution. A history event can be one of these types: --- --- --- * @ActivityTaskCancelRequested@ – A @RequestCancelActivityTask@ decision was received by the system. --- --- * @ActivityTaskCanceled@ – The activity task was successfully canceled. --- --- * @ActivityTaskCompleted@ – An activity worker successfully completed an activity task by calling 'RespondActivityTaskCompleted' . --- --- * @ActivityTaskFailed@ – An activity worker failed an activity task by calling 'RespondActivityTaskFailed' . --- --- * @ActivityTaskScheduled@ – An activity task was scheduled for execution. --- --- * @ActivityTaskStarted@ – The scheduled activity task was dispatched to a worker. --- --- * @ActivityTaskTimedOut@ – The activity task timed out. --- --- * @CancelTimerFailed@ – Failed to process CancelTimer decision. This happens when the decision isn't configured properly, for example no timer exists with the specified timer Id. --- --- * @CancelWorkflowExecutionFailed@ – A request to cancel a workflow execution failed. --- --- * @ChildWorkflowExecutionCanceled@ – A child workflow execution, started by this workflow execution, was canceled and closed. --- --- * @ChildWorkflowExecutionCompleted@ – A child workflow execution, started by this workflow execution, completed successfully and was closed. --- --- * @ChildWorkflowExecutionFailed@ – A child workflow execution, started by this workflow execution, failed to complete successfully and was closed. --- --- * @ChildWorkflowExecutionStarted@ – A child workflow execution was successfully started. --- --- * @ChildWorkflowExecutionTerminated@ – A child workflow execution, started by this workflow execution, was terminated. --- --- * @ChildWorkflowExecutionTimedOut@ – A child workflow execution, started by this workflow execution, timed out and was closed. --- --- * @CompleteWorkflowExecutionFailed@ – The workflow execution failed to complete. --- --- * @ContinueAsNewWorkflowExecutionFailed@ – The workflow execution failed to complete after being continued as a new workflow execution. --- --- * @DecisionTaskCompleted@ – The decider successfully completed a decision task by calling 'RespondDecisionTaskCompleted' . --- --- * @DecisionTaskScheduled@ – A decision task was scheduled for the workflow execution. --- --- * @DecisionTaskStarted@ – The decision task was dispatched to a decider. --- --- * @DecisionTaskTimedOut@ – The decision task timed out. --- --- * @ExternalWorkflowExecutionCancelRequested@ – Request to cancel an external workflow execution was successfully delivered to the target execution. --- --- * @ExternalWorkflowExecutionSignaled@ – A signal, requested by this workflow execution, was successfully delivered to the target external workflow execution. --- --- * @FailWorkflowExecutionFailed@ – A request to mark a workflow execution as failed, itself failed. --- --- * @MarkerRecorded@ – A marker was recorded in the workflow history as the result of a @RecordMarker@ decision. --- --- * @RecordMarkerFailed@ – A @RecordMarker@ decision was returned as failed. --- --- * @RequestCancelActivityTaskFailed@ – Failed to process RequestCancelActivityTask decision. This happens when the decision isn't configured properly. --- --- * @RequestCancelExternalWorkflowExecutionFailed@ – Request to cancel an external workflow execution failed. --- --- * @RequestCancelExternalWorkflowExecutionInitiated@ – A request was made to request the cancellation of an external workflow execution. --- --- * @ScheduleActivityTaskFailed@ – Failed to process ScheduleActivityTask decision. This happens when the decision isn't configured properly, for example the activity type specified isn't registered. --- --- * @SignalExternalWorkflowExecutionFailed@ – The request to signal an external workflow execution failed. --- --- * @SignalExternalWorkflowExecutionInitiated@ – A request to signal an external workflow was made. --- --- * @StartActivityTaskFailed@ – A scheduled activity task failed to start. --- --- * @StartChildWorkflowExecutionFailed@ – Failed to process StartChildWorkflowExecution decision. This happens when the decision isn't configured properly, for example the workflow type specified isn't registered. --- --- * @StartChildWorkflowExecutionInitiated@ – A request was made to start a child workflow execution. --- --- * @StartTimerFailed@ – Failed to process StartTimer decision. This happens when the decision isn't configured properly, for example a timer already exists with the specified timer Id. --- --- * @TimerCanceled@ – A timer, previously started for this workflow execution, was successfully canceled. --- --- * @TimerFired@ – A timer, previously started for this workflow execution, fired. --- --- * @TimerStarted@ – A timer was started for the workflow execution due to a @StartTimer@ decision. --- --- * @WorkflowExecutionCancelRequested@ – A request to cancel this workflow execution was made. --- --- * @WorkflowExecutionCanceled@ – The workflow execution was successfully canceled and closed. --- --- * @WorkflowExecutionCompleted@ – The workflow execution was closed due to successful completion. --- --- * @WorkflowExecutionContinuedAsNew@ – The workflow execution was closed and a new execution of the same type was created with the same workflowId. --- --- * @WorkflowExecutionFailed@ – The workflow execution closed due to a failure. --- --- * @WorkflowExecutionSignaled@ – An external signal was received for the workflow execution. --- --- * @WorkflowExecutionStarted@ – The workflow execution was started. --- --- * @WorkflowExecutionTerminated@ – The workflow execution was terminated. --- --- * @WorkflowExecutionTimedOut@ – The workflow execution was closed because a time out was exceeded. --- --- --- --- --- /See:/ 'historyEvent' smart constructor. -data HistoryEvent = HistoryEvent' - { _heWorkflowExecutionCancelRequestedEventAttributes :: !(Maybe WorkflowExecutionCancelRequestedEventAttributes) - , _heRecordMarkerFailedEventAttributes :: !(Maybe RecordMarkerFailedEventAttributes) - , _heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes :: !(Maybe RequestCancelExternalWorkflowExecutionInitiatedEventAttributes) - , _heLambdaFunctionStartedEventAttributes :: !(Maybe LambdaFunctionStartedEventAttributes) - , _heDecisionTaskScheduledEventAttributes :: !(Maybe DecisionTaskScheduledEventAttributes) - , _heWorkflowExecutionCompletedEventAttributes :: !(Maybe WorkflowExecutionCompletedEventAttributes) - , _heStartTimerFailedEventAttributes :: !(Maybe StartTimerFailedEventAttributes) - , _heActivityTaskScheduledEventAttributes :: !(Maybe ActivityTaskScheduledEventAttributes) - , _heScheduleActivityTaskFailedEventAttributes :: !(Maybe ScheduleActivityTaskFailedEventAttributes) - , _heChildWorkflowExecutionCompletedEventAttributes :: !(Maybe ChildWorkflowExecutionCompletedEventAttributes) - , _heMarkerRecordedEventAttributes :: !(Maybe MarkerRecordedEventAttributes) - , _heScheduleLambdaFunctionFailedEventAttributes :: !(Maybe ScheduleLambdaFunctionFailedEventAttributes) - , _heCompleteWorkflowExecutionFailedEventAttributes :: !(Maybe CompleteWorkflowExecutionFailedEventAttributes) - , _heLambdaFunctionCompletedEventAttributes :: !(Maybe LambdaFunctionCompletedEventAttributes) - , _heRequestCancelExternalWorkflowExecutionFailedEventAttributes :: !(Maybe RequestCancelExternalWorkflowExecutionFailedEventAttributes) - , _heTimerCanceledEventAttributes :: !(Maybe TimerCanceledEventAttributes) - , _heWorkflowExecutionStartedEventAttributes :: !(Maybe WorkflowExecutionStartedEventAttributes) - , _heActivityTaskCompletedEventAttributes :: !(Maybe ActivityTaskCompletedEventAttributes) - , _heDecisionTaskTimedOutEventAttributes :: !(Maybe DecisionTaskTimedOutEventAttributes) - , _heCancelTimerFailedEventAttributes :: !(Maybe CancelTimerFailedEventAttributes) - , _heChildWorkflowExecutionStartedEventAttributes :: !(Maybe ChildWorkflowExecutionStartedEventAttributes) - , _heActivityTaskCanceledEventAttributes :: !(Maybe ActivityTaskCanceledEventAttributes) - , _heActivityTaskTimedOutEventAttributes :: !(Maybe ActivityTaskTimedOutEventAttributes) - , _heDecisionTaskStartedEventAttributes :: !(Maybe DecisionTaskStartedEventAttributes) - , _heWorkflowExecutionTerminatedEventAttributes :: !(Maybe WorkflowExecutionTerminatedEventAttributes) - , _heChildWorkflowExecutionCanceledEventAttributes :: !(Maybe ChildWorkflowExecutionCanceledEventAttributes) - , _heRequestCancelActivityTaskFailedEventAttributes :: !(Maybe RequestCancelActivityTaskFailedEventAttributes) - , _heLambdaFunctionScheduledEventAttributes :: !(Maybe LambdaFunctionScheduledEventAttributes) - , _heChildWorkflowExecutionTimedOutEventAttributes :: !(Maybe ChildWorkflowExecutionTimedOutEventAttributes) - , _heCancelWorkflowExecutionFailedEventAttributes :: !(Maybe CancelWorkflowExecutionFailedEventAttributes) - , _heStartChildWorkflowExecutionInitiatedEventAttributes :: !(Maybe StartChildWorkflowExecutionInitiatedEventAttributes) - , _heSignalExternalWorkflowExecutionFailedEventAttributes :: !(Maybe SignalExternalWorkflowExecutionFailedEventAttributes) - , _heActivityTaskStartedEventAttributes :: !(Maybe ActivityTaskStartedEventAttributes) - , _heStartLambdaFunctionFailedEventAttributes :: !(Maybe StartLambdaFunctionFailedEventAttributes) - , _heChildWorkflowExecutionTerminatedEventAttributes :: !(Maybe ChildWorkflowExecutionTerminatedEventAttributes) - , _heLambdaFunctionFailedEventAttributes :: !(Maybe LambdaFunctionFailedEventAttributes) - , _heWorkflowExecutionCanceledEventAttributes :: !(Maybe WorkflowExecutionCanceledEventAttributes) - , _heTimerStartedEventAttributes :: !(Maybe TimerStartedEventAttributes) - , _heActivityTaskCancelRequestedEventAttributes :: !(Maybe ActivityTaskCancelRequestedEventAttributes) - , _heWorkflowExecutionTimedOutEventAttributes :: !(Maybe WorkflowExecutionTimedOutEventAttributes) - , _heWorkflowExecutionSignaledEventAttributes :: !(Maybe WorkflowExecutionSignaledEventAttributes) - , _heTimerFiredEventAttributes :: !(Maybe TimerFiredEventAttributes) - , _heActivityTaskFailedEventAttributes :: !(Maybe ActivityTaskFailedEventAttributes) - , _heExternalWorkflowExecutionSignaledEventAttributes :: !(Maybe ExternalWorkflowExecutionSignaledEventAttributes) - , _heDecisionTaskCompletedEventAttributes :: !(Maybe DecisionTaskCompletedEventAttributes) - , _heStartChildWorkflowExecutionFailedEventAttributes :: !(Maybe StartChildWorkflowExecutionFailedEventAttributes) - , _heChildWorkflowExecutionFailedEventAttributes :: !(Maybe ChildWorkflowExecutionFailedEventAttributes) - , _heFailWorkflowExecutionFailedEventAttributes :: !(Maybe FailWorkflowExecutionFailedEventAttributes) - , _heContinueAsNewWorkflowExecutionFailedEventAttributes :: !(Maybe ContinueAsNewWorkflowExecutionFailedEventAttributes) - , _heSignalExternalWorkflowExecutionInitiatedEventAttributes :: !(Maybe SignalExternalWorkflowExecutionInitiatedEventAttributes) - , _heLambdaFunctionTimedOutEventAttributes :: !(Maybe LambdaFunctionTimedOutEventAttributes) - , _heWorkflowExecutionFailedEventAttributes :: !(Maybe WorkflowExecutionFailedEventAttributes) - , _heWorkflowExecutionContinuedAsNewEventAttributes :: !(Maybe WorkflowExecutionContinuedAsNewEventAttributes) - , _heExternalWorkflowExecutionCancelRequestedEventAttributes :: !(Maybe ExternalWorkflowExecutionCancelRequestedEventAttributes) - , _heEventTimestamp :: !POSIX - , _heEventType :: !EventType - , _heEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'HistoryEvent' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'heWorkflowExecutionCancelRequestedEventAttributes' - If the event is of type @WorkflowExecutionCancelRequested@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heRecordMarkerFailedEventAttributes' - If the event is of type @DecisionTaskFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes' - If the event is of type @RequestCancelExternalWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heLambdaFunctionStartedEventAttributes' - Provides the details of the @LambdaFunctionStarted@ event. It isn't set for other event types. --- --- * 'heDecisionTaskScheduledEventAttributes' - If the event is of type @DecisionTaskScheduled@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heWorkflowExecutionCompletedEventAttributes' - If the event is of type @WorkflowExecutionCompleted@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heStartTimerFailedEventAttributes' - If the event is of type @StartTimerFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heActivityTaskScheduledEventAttributes' - If the event is of type @ActivityTaskScheduled@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heScheduleActivityTaskFailedEventAttributes' - If the event is of type @ScheduleActivityTaskFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heChildWorkflowExecutionCompletedEventAttributes' - If the event is of type @ChildWorkflowExecutionCompleted@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heMarkerRecordedEventAttributes' - If the event is of type @MarkerRecorded@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heScheduleLambdaFunctionFailedEventAttributes' - Provides the details of the @ScheduleLambdaFunctionFailed@ event. It isn't set for other event types. --- --- * 'heCompleteWorkflowExecutionFailedEventAttributes' - If the event is of type @CompleteWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heLambdaFunctionCompletedEventAttributes' - Provides the details of the @LambdaFunctionCompleted@ event. It isn't set for other event types. --- --- * 'heRequestCancelExternalWorkflowExecutionFailedEventAttributes' - If the event is of type @RequestCancelExternalWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heTimerCanceledEventAttributes' - If the event is of type @TimerCanceled@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heWorkflowExecutionStartedEventAttributes' - If the event is of type @WorkflowExecutionStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heActivityTaskCompletedEventAttributes' - If the event is of type @ActivityTaskCompleted@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heDecisionTaskTimedOutEventAttributes' - If the event is of type @DecisionTaskTimedOut@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heCancelTimerFailedEventAttributes' - If the event is of type @CancelTimerFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heChildWorkflowExecutionStartedEventAttributes' - If the event is of type @ChildWorkflowExecutionStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heActivityTaskCanceledEventAttributes' - If the event is of type @ActivityTaskCanceled@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heActivityTaskTimedOutEventAttributes' - If the event is of type @ActivityTaskTimedOut@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heDecisionTaskStartedEventAttributes' - If the event is of type @DecisionTaskStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heWorkflowExecutionTerminatedEventAttributes' - If the event is of type @WorkflowExecutionTerminated@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heChildWorkflowExecutionCanceledEventAttributes' - If the event is of type @ChildWorkflowExecutionCanceled@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heRequestCancelActivityTaskFailedEventAttributes' - If the event is of type @RequestCancelActivityTaskFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heLambdaFunctionScheduledEventAttributes' - Provides the details of the @LambdaFunctionScheduled@ event. It isn't set for other event types. --- --- * 'heChildWorkflowExecutionTimedOutEventAttributes' - If the event is of type @ChildWorkflowExecutionTimedOut@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heCancelWorkflowExecutionFailedEventAttributes' - If the event is of type @CancelWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heStartChildWorkflowExecutionInitiatedEventAttributes' - If the event is of type @StartChildWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heSignalExternalWorkflowExecutionFailedEventAttributes' - If the event is of type @SignalExternalWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heActivityTaskStartedEventAttributes' - If the event is of type @ActivityTaskStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heStartLambdaFunctionFailedEventAttributes' - Provides the details of the @StartLambdaFunctionFailed@ event. It isn't set for other event types. --- --- * 'heChildWorkflowExecutionTerminatedEventAttributes' - If the event is of type @ChildWorkflowExecutionTerminated@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heLambdaFunctionFailedEventAttributes' - Provides the details of the @LambdaFunctionFailed@ event. It isn't set for other event types. --- --- * 'heWorkflowExecutionCanceledEventAttributes' - If the event is of type @WorkflowExecutionCanceled@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heTimerStartedEventAttributes' - If the event is of type @TimerStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heActivityTaskCancelRequestedEventAttributes' - If the event is of type @ActivityTaskcancelRequested@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heWorkflowExecutionTimedOutEventAttributes' - If the event is of type @WorkflowExecutionTimedOut@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heWorkflowExecutionSignaledEventAttributes' - If the event is of type @WorkflowExecutionSignaled@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heTimerFiredEventAttributes' - If the event is of type @TimerFired@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heActivityTaskFailedEventAttributes' - If the event is of type @ActivityTaskFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heExternalWorkflowExecutionSignaledEventAttributes' - If the event is of type @ExternalWorkflowExecutionSignaled@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heDecisionTaskCompletedEventAttributes' - If the event is of type @DecisionTaskCompleted@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heStartChildWorkflowExecutionFailedEventAttributes' - If the event is of type @StartChildWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heChildWorkflowExecutionFailedEventAttributes' - If the event is of type @ChildWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heFailWorkflowExecutionFailedEventAttributes' - If the event is of type @FailWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heContinueAsNewWorkflowExecutionFailedEventAttributes' - If the event is of type @ContinueAsNewWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heSignalExternalWorkflowExecutionInitiatedEventAttributes' - If the event is of type @SignalExternalWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heLambdaFunctionTimedOutEventAttributes' - Provides the details of the @LambdaFunctionTimedOut@ event. It isn't set for other event types. --- --- * 'heWorkflowExecutionFailedEventAttributes' - If the event is of type @WorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heWorkflowExecutionContinuedAsNewEventAttributes' - If the event is of type @WorkflowExecutionContinuedAsNew@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heExternalWorkflowExecutionCancelRequestedEventAttributes' - If the event is of type @ExternalWorkflowExecutionCancelRequested@ then this member is set and provides detailed information about the event. It isn't set for other event types. --- --- * 'heEventTimestamp' - The date and time when the event occurred. --- --- * 'heEventType' - The type of the history event. --- --- * 'heEventId' - The system generated ID of the event. This ID uniquely identifies the event with in the workflow execution history. -historyEvent - :: UTCTime -- ^ 'heEventTimestamp' - -> EventType -- ^ 'heEventType' - -> Integer -- ^ 'heEventId' - -> HistoryEvent -historyEvent pEventTimestamp_ pEventType_ pEventId_ = - HistoryEvent' - { _heWorkflowExecutionCancelRequestedEventAttributes = Nothing - , _heRecordMarkerFailedEventAttributes = Nothing - , _heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes = - Nothing - , _heLambdaFunctionStartedEventAttributes = Nothing - , _heDecisionTaskScheduledEventAttributes = Nothing - , _heWorkflowExecutionCompletedEventAttributes = Nothing - , _heStartTimerFailedEventAttributes = Nothing - , _heActivityTaskScheduledEventAttributes = Nothing - , _heScheduleActivityTaskFailedEventAttributes = Nothing - , _heChildWorkflowExecutionCompletedEventAttributes = Nothing - , _heMarkerRecordedEventAttributes = Nothing - , _heScheduleLambdaFunctionFailedEventAttributes = Nothing - , _heCompleteWorkflowExecutionFailedEventAttributes = Nothing - , _heLambdaFunctionCompletedEventAttributes = Nothing - , _heRequestCancelExternalWorkflowExecutionFailedEventAttributes = Nothing - , _heTimerCanceledEventAttributes = Nothing - , _heWorkflowExecutionStartedEventAttributes = Nothing - , _heActivityTaskCompletedEventAttributes = Nothing - , _heDecisionTaskTimedOutEventAttributes = Nothing - , _heCancelTimerFailedEventAttributes = Nothing - , _heChildWorkflowExecutionStartedEventAttributes = Nothing - , _heActivityTaskCanceledEventAttributes = Nothing - , _heActivityTaskTimedOutEventAttributes = Nothing - , _heDecisionTaskStartedEventAttributes = Nothing - , _heWorkflowExecutionTerminatedEventAttributes = Nothing - , _heChildWorkflowExecutionCanceledEventAttributes = Nothing - , _heRequestCancelActivityTaskFailedEventAttributes = Nothing - , _heLambdaFunctionScheduledEventAttributes = Nothing - , _heChildWorkflowExecutionTimedOutEventAttributes = Nothing - , _heCancelWorkflowExecutionFailedEventAttributes = Nothing - , _heStartChildWorkflowExecutionInitiatedEventAttributes = Nothing - , _heSignalExternalWorkflowExecutionFailedEventAttributes = Nothing - , _heActivityTaskStartedEventAttributes = Nothing - , _heStartLambdaFunctionFailedEventAttributes = Nothing - , _heChildWorkflowExecutionTerminatedEventAttributes = Nothing - , _heLambdaFunctionFailedEventAttributes = Nothing - , _heWorkflowExecutionCanceledEventAttributes = Nothing - , _heTimerStartedEventAttributes = Nothing - , _heActivityTaskCancelRequestedEventAttributes = Nothing - , _heWorkflowExecutionTimedOutEventAttributes = Nothing - , _heWorkflowExecutionSignaledEventAttributes = Nothing - , _heTimerFiredEventAttributes = Nothing - , _heActivityTaskFailedEventAttributes = Nothing - , _heExternalWorkflowExecutionSignaledEventAttributes = Nothing - , _heDecisionTaskCompletedEventAttributes = Nothing - , _heStartChildWorkflowExecutionFailedEventAttributes = Nothing - , _heChildWorkflowExecutionFailedEventAttributes = Nothing - , _heFailWorkflowExecutionFailedEventAttributes = Nothing - , _heContinueAsNewWorkflowExecutionFailedEventAttributes = Nothing - , _heSignalExternalWorkflowExecutionInitiatedEventAttributes = Nothing - , _heLambdaFunctionTimedOutEventAttributes = Nothing - , _heWorkflowExecutionFailedEventAttributes = Nothing - , _heWorkflowExecutionContinuedAsNewEventAttributes = Nothing - , _heExternalWorkflowExecutionCancelRequestedEventAttributes = Nothing - , _heEventTimestamp = _Time # pEventTimestamp_ - , _heEventType = pEventType_ - , _heEventId = pEventId_ - } - - --- | If the event is of type @WorkflowExecutionCancelRequested@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heWorkflowExecutionCancelRequestedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionCancelRequestedEventAttributes) -heWorkflowExecutionCancelRequestedEventAttributes = lens _heWorkflowExecutionCancelRequestedEventAttributes (\ s a -> s{_heWorkflowExecutionCancelRequestedEventAttributes = a}) - --- | If the event is of type @DecisionTaskFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heRecordMarkerFailedEventAttributes :: Lens' HistoryEvent (Maybe RecordMarkerFailedEventAttributes) -heRecordMarkerFailedEventAttributes = lens _heRecordMarkerFailedEventAttributes (\ s a -> s{_heRecordMarkerFailedEventAttributes = a}) - --- | If the event is of type @RequestCancelExternalWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes :: Lens' HistoryEvent (Maybe RequestCancelExternalWorkflowExecutionInitiatedEventAttributes) -heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes = lens _heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes (\ s a -> s{_heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes = a}) - --- | Provides the details of the @LambdaFunctionStarted@ event. It isn't set for other event types. -heLambdaFunctionStartedEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionStartedEventAttributes) -heLambdaFunctionStartedEventAttributes = lens _heLambdaFunctionStartedEventAttributes (\ s a -> s{_heLambdaFunctionStartedEventAttributes = a}) - --- | If the event is of type @DecisionTaskScheduled@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heDecisionTaskScheduledEventAttributes :: Lens' HistoryEvent (Maybe DecisionTaskScheduledEventAttributes) -heDecisionTaskScheduledEventAttributes = lens _heDecisionTaskScheduledEventAttributes (\ s a -> s{_heDecisionTaskScheduledEventAttributes = a}) - --- | If the event is of type @WorkflowExecutionCompleted@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heWorkflowExecutionCompletedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionCompletedEventAttributes) -heWorkflowExecutionCompletedEventAttributes = lens _heWorkflowExecutionCompletedEventAttributes (\ s a -> s{_heWorkflowExecutionCompletedEventAttributes = a}) - --- | If the event is of type @StartTimerFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heStartTimerFailedEventAttributes :: Lens' HistoryEvent (Maybe StartTimerFailedEventAttributes) -heStartTimerFailedEventAttributes = lens _heStartTimerFailedEventAttributes (\ s a -> s{_heStartTimerFailedEventAttributes = a}) - --- | If the event is of type @ActivityTaskScheduled@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heActivityTaskScheduledEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskScheduledEventAttributes) -heActivityTaskScheduledEventAttributes = lens _heActivityTaskScheduledEventAttributes (\ s a -> s{_heActivityTaskScheduledEventAttributes = a}) - --- | If the event is of type @ScheduleActivityTaskFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heScheduleActivityTaskFailedEventAttributes :: Lens' HistoryEvent (Maybe ScheduleActivityTaskFailedEventAttributes) -heScheduleActivityTaskFailedEventAttributes = lens _heScheduleActivityTaskFailedEventAttributes (\ s a -> s{_heScheduleActivityTaskFailedEventAttributes = a}) - --- | If the event is of type @ChildWorkflowExecutionCompleted@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heChildWorkflowExecutionCompletedEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionCompletedEventAttributes) -heChildWorkflowExecutionCompletedEventAttributes = lens _heChildWorkflowExecutionCompletedEventAttributes (\ s a -> s{_heChildWorkflowExecutionCompletedEventAttributes = a}) - --- | If the event is of type @MarkerRecorded@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heMarkerRecordedEventAttributes :: Lens' HistoryEvent (Maybe MarkerRecordedEventAttributes) -heMarkerRecordedEventAttributes = lens _heMarkerRecordedEventAttributes (\ s a -> s{_heMarkerRecordedEventAttributes = a}) - --- | Provides the details of the @ScheduleLambdaFunctionFailed@ event. It isn't set for other event types. -heScheduleLambdaFunctionFailedEventAttributes :: Lens' HistoryEvent (Maybe ScheduleLambdaFunctionFailedEventAttributes) -heScheduleLambdaFunctionFailedEventAttributes = lens _heScheduleLambdaFunctionFailedEventAttributes (\ s a -> s{_heScheduleLambdaFunctionFailedEventAttributes = a}) - --- | If the event is of type @CompleteWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heCompleteWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe CompleteWorkflowExecutionFailedEventAttributes) -heCompleteWorkflowExecutionFailedEventAttributes = lens _heCompleteWorkflowExecutionFailedEventAttributes (\ s a -> s{_heCompleteWorkflowExecutionFailedEventAttributes = a}) - --- | Provides the details of the @LambdaFunctionCompleted@ event. It isn't set for other event types. -heLambdaFunctionCompletedEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionCompletedEventAttributes) -heLambdaFunctionCompletedEventAttributes = lens _heLambdaFunctionCompletedEventAttributes (\ s a -> s{_heLambdaFunctionCompletedEventAttributes = a}) - --- | If the event is of type @RequestCancelExternalWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heRequestCancelExternalWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe RequestCancelExternalWorkflowExecutionFailedEventAttributes) -heRequestCancelExternalWorkflowExecutionFailedEventAttributes = lens _heRequestCancelExternalWorkflowExecutionFailedEventAttributes (\ s a -> s{_heRequestCancelExternalWorkflowExecutionFailedEventAttributes = a}) - --- | If the event is of type @TimerCanceled@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heTimerCanceledEventAttributes :: Lens' HistoryEvent (Maybe TimerCanceledEventAttributes) -heTimerCanceledEventAttributes = lens _heTimerCanceledEventAttributes (\ s a -> s{_heTimerCanceledEventAttributes = a}) - --- | If the event is of type @WorkflowExecutionStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heWorkflowExecutionStartedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionStartedEventAttributes) -heWorkflowExecutionStartedEventAttributes = lens _heWorkflowExecutionStartedEventAttributes (\ s a -> s{_heWorkflowExecutionStartedEventAttributes = a}) - --- | If the event is of type @ActivityTaskCompleted@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heActivityTaskCompletedEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskCompletedEventAttributes) -heActivityTaskCompletedEventAttributes = lens _heActivityTaskCompletedEventAttributes (\ s a -> s{_heActivityTaskCompletedEventAttributes = a}) - --- | If the event is of type @DecisionTaskTimedOut@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heDecisionTaskTimedOutEventAttributes :: Lens' HistoryEvent (Maybe DecisionTaskTimedOutEventAttributes) -heDecisionTaskTimedOutEventAttributes = lens _heDecisionTaskTimedOutEventAttributes (\ s a -> s{_heDecisionTaskTimedOutEventAttributes = a}) - --- | If the event is of type @CancelTimerFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heCancelTimerFailedEventAttributes :: Lens' HistoryEvent (Maybe CancelTimerFailedEventAttributes) -heCancelTimerFailedEventAttributes = lens _heCancelTimerFailedEventAttributes (\ s a -> s{_heCancelTimerFailedEventAttributes = a}) - --- | If the event is of type @ChildWorkflowExecutionStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heChildWorkflowExecutionStartedEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionStartedEventAttributes) -heChildWorkflowExecutionStartedEventAttributes = lens _heChildWorkflowExecutionStartedEventAttributes (\ s a -> s{_heChildWorkflowExecutionStartedEventAttributes = a}) - --- | If the event is of type @ActivityTaskCanceled@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heActivityTaskCanceledEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskCanceledEventAttributes) -heActivityTaskCanceledEventAttributes = lens _heActivityTaskCanceledEventAttributes (\ s a -> s{_heActivityTaskCanceledEventAttributes = a}) - --- | If the event is of type @ActivityTaskTimedOut@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heActivityTaskTimedOutEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskTimedOutEventAttributes) -heActivityTaskTimedOutEventAttributes = lens _heActivityTaskTimedOutEventAttributes (\ s a -> s{_heActivityTaskTimedOutEventAttributes = a}) - --- | If the event is of type @DecisionTaskStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heDecisionTaskStartedEventAttributes :: Lens' HistoryEvent (Maybe DecisionTaskStartedEventAttributes) -heDecisionTaskStartedEventAttributes = lens _heDecisionTaskStartedEventAttributes (\ s a -> s{_heDecisionTaskStartedEventAttributes = a}) - --- | If the event is of type @WorkflowExecutionTerminated@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heWorkflowExecutionTerminatedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionTerminatedEventAttributes) -heWorkflowExecutionTerminatedEventAttributes = lens _heWorkflowExecutionTerminatedEventAttributes (\ s a -> s{_heWorkflowExecutionTerminatedEventAttributes = a}) - --- | If the event is of type @ChildWorkflowExecutionCanceled@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heChildWorkflowExecutionCanceledEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionCanceledEventAttributes) -heChildWorkflowExecutionCanceledEventAttributes = lens _heChildWorkflowExecutionCanceledEventAttributes (\ s a -> s{_heChildWorkflowExecutionCanceledEventAttributes = a}) - --- | If the event is of type @RequestCancelActivityTaskFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heRequestCancelActivityTaskFailedEventAttributes :: Lens' HistoryEvent (Maybe RequestCancelActivityTaskFailedEventAttributes) -heRequestCancelActivityTaskFailedEventAttributes = lens _heRequestCancelActivityTaskFailedEventAttributes (\ s a -> s{_heRequestCancelActivityTaskFailedEventAttributes = a}) - --- | Provides the details of the @LambdaFunctionScheduled@ event. It isn't set for other event types. -heLambdaFunctionScheduledEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionScheduledEventAttributes) -heLambdaFunctionScheduledEventAttributes = lens _heLambdaFunctionScheduledEventAttributes (\ s a -> s{_heLambdaFunctionScheduledEventAttributes = a}) - --- | If the event is of type @ChildWorkflowExecutionTimedOut@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heChildWorkflowExecutionTimedOutEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionTimedOutEventAttributes) -heChildWorkflowExecutionTimedOutEventAttributes = lens _heChildWorkflowExecutionTimedOutEventAttributes (\ s a -> s{_heChildWorkflowExecutionTimedOutEventAttributes = a}) - --- | If the event is of type @CancelWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heCancelWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe CancelWorkflowExecutionFailedEventAttributes) -heCancelWorkflowExecutionFailedEventAttributes = lens _heCancelWorkflowExecutionFailedEventAttributes (\ s a -> s{_heCancelWorkflowExecutionFailedEventAttributes = a}) - --- | If the event is of type @StartChildWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heStartChildWorkflowExecutionInitiatedEventAttributes :: Lens' HistoryEvent (Maybe StartChildWorkflowExecutionInitiatedEventAttributes) -heStartChildWorkflowExecutionInitiatedEventAttributes = lens _heStartChildWorkflowExecutionInitiatedEventAttributes (\ s a -> s{_heStartChildWorkflowExecutionInitiatedEventAttributes = a}) - --- | If the event is of type @SignalExternalWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heSignalExternalWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe SignalExternalWorkflowExecutionFailedEventAttributes) -heSignalExternalWorkflowExecutionFailedEventAttributes = lens _heSignalExternalWorkflowExecutionFailedEventAttributes (\ s a -> s{_heSignalExternalWorkflowExecutionFailedEventAttributes = a}) - --- | If the event is of type @ActivityTaskStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heActivityTaskStartedEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskStartedEventAttributes) -heActivityTaskStartedEventAttributes = lens _heActivityTaskStartedEventAttributes (\ s a -> s{_heActivityTaskStartedEventAttributes = a}) - --- | Provides the details of the @StartLambdaFunctionFailed@ event. It isn't set for other event types. -heStartLambdaFunctionFailedEventAttributes :: Lens' HistoryEvent (Maybe StartLambdaFunctionFailedEventAttributes) -heStartLambdaFunctionFailedEventAttributes = lens _heStartLambdaFunctionFailedEventAttributes (\ s a -> s{_heStartLambdaFunctionFailedEventAttributes = a}) - --- | If the event is of type @ChildWorkflowExecutionTerminated@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heChildWorkflowExecutionTerminatedEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionTerminatedEventAttributes) -heChildWorkflowExecutionTerminatedEventAttributes = lens _heChildWorkflowExecutionTerminatedEventAttributes (\ s a -> s{_heChildWorkflowExecutionTerminatedEventAttributes = a}) - --- | Provides the details of the @LambdaFunctionFailed@ event. It isn't set for other event types. -heLambdaFunctionFailedEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionFailedEventAttributes) -heLambdaFunctionFailedEventAttributes = lens _heLambdaFunctionFailedEventAttributes (\ s a -> s{_heLambdaFunctionFailedEventAttributes = a}) - --- | If the event is of type @WorkflowExecutionCanceled@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heWorkflowExecutionCanceledEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionCanceledEventAttributes) -heWorkflowExecutionCanceledEventAttributes = lens _heWorkflowExecutionCanceledEventAttributes (\ s a -> s{_heWorkflowExecutionCanceledEventAttributes = a}) - --- | If the event is of type @TimerStarted@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heTimerStartedEventAttributes :: Lens' HistoryEvent (Maybe TimerStartedEventAttributes) -heTimerStartedEventAttributes = lens _heTimerStartedEventAttributes (\ s a -> s{_heTimerStartedEventAttributes = a}) - --- | If the event is of type @ActivityTaskcancelRequested@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heActivityTaskCancelRequestedEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskCancelRequestedEventAttributes) -heActivityTaskCancelRequestedEventAttributes = lens _heActivityTaskCancelRequestedEventAttributes (\ s a -> s{_heActivityTaskCancelRequestedEventAttributes = a}) - --- | If the event is of type @WorkflowExecutionTimedOut@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heWorkflowExecutionTimedOutEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionTimedOutEventAttributes) -heWorkflowExecutionTimedOutEventAttributes = lens _heWorkflowExecutionTimedOutEventAttributes (\ s a -> s{_heWorkflowExecutionTimedOutEventAttributes = a}) - --- | If the event is of type @WorkflowExecutionSignaled@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heWorkflowExecutionSignaledEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionSignaledEventAttributes) -heWorkflowExecutionSignaledEventAttributes = lens _heWorkflowExecutionSignaledEventAttributes (\ s a -> s{_heWorkflowExecutionSignaledEventAttributes = a}) - --- | If the event is of type @TimerFired@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heTimerFiredEventAttributes :: Lens' HistoryEvent (Maybe TimerFiredEventAttributes) -heTimerFiredEventAttributes = lens _heTimerFiredEventAttributes (\ s a -> s{_heTimerFiredEventAttributes = a}) - --- | If the event is of type @ActivityTaskFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heActivityTaskFailedEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskFailedEventAttributes) -heActivityTaskFailedEventAttributes = lens _heActivityTaskFailedEventAttributes (\ s a -> s{_heActivityTaskFailedEventAttributes = a}) - --- | If the event is of type @ExternalWorkflowExecutionSignaled@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heExternalWorkflowExecutionSignaledEventAttributes :: Lens' HistoryEvent (Maybe ExternalWorkflowExecutionSignaledEventAttributes) -heExternalWorkflowExecutionSignaledEventAttributes = lens _heExternalWorkflowExecutionSignaledEventAttributes (\ s a -> s{_heExternalWorkflowExecutionSignaledEventAttributes = a}) - --- | If the event is of type @DecisionTaskCompleted@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heDecisionTaskCompletedEventAttributes :: Lens' HistoryEvent (Maybe DecisionTaskCompletedEventAttributes) -heDecisionTaskCompletedEventAttributes = lens _heDecisionTaskCompletedEventAttributes (\ s a -> s{_heDecisionTaskCompletedEventAttributes = a}) - --- | If the event is of type @StartChildWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heStartChildWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe StartChildWorkflowExecutionFailedEventAttributes) -heStartChildWorkflowExecutionFailedEventAttributes = lens _heStartChildWorkflowExecutionFailedEventAttributes (\ s a -> s{_heStartChildWorkflowExecutionFailedEventAttributes = a}) - --- | If the event is of type @ChildWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heChildWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionFailedEventAttributes) -heChildWorkflowExecutionFailedEventAttributes = lens _heChildWorkflowExecutionFailedEventAttributes (\ s a -> s{_heChildWorkflowExecutionFailedEventAttributes = a}) - --- | If the event is of type @FailWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heFailWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe FailWorkflowExecutionFailedEventAttributes) -heFailWorkflowExecutionFailedEventAttributes = lens _heFailWorkflowExecutionFailedEventAttributes (\ s a -> s{_heFailWorkflowExecutionFailedEventAttributes = a}) - --- | If the event is of type @ContinueAsNewWorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heContinueAsNewWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe ContinueAsNewWorkflowExecutionFailedEventAttributes) -heContinueAsNewWorkflowExecutionFailedEventAttributes = lens _heContinueAsNewWorkflowExecutionFailedEventAttributes (\ s a -> s{_heContinueAsNewWorkflowExecutionFailedEventAttributes = a}) - --- | If the event is of type @SignalExternalWorkflowExecutionInitiated@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heSignalExternalWorkflowExecutionInitiatedEventAttributes :: Lens' HistoryEvent (Maybe SignalExternalWorkflowExecutionInitiatedEventAttributes) -heSignalExternalWorkflowExecutionInitiatedEventAttributes = lens _heSignalExternalWorkflowExecutionInitiatedEventAttributes (\ s a -> s{_heSignalExternalWorkflowExecutionInitiatedEventAttributes = a}) - --- | Provides the details of the @LambdaFunctionTimedOut@ event. It isn't set for other event types. -heLambdaFunctionTimedOutEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionTimedOutEventAttributes) -heLambdaFunctionTimedOutEventAttributes = lens _heLambdaFunctionTimedOutEventAttributes (\ s a -> s{_heLambdaFunctionTimedOutEventAttributes = a}) - --- | If the event is of type @WorkflowExecutionFailed@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionFailedEventAttributes) -heWorkflowExecutionFailedEventAttributes = lens _heWorkflowExecutionFailedEventAttributes (\ s a -> s{_heWorkflowExecutionFailedEventAttributes = a}) - --- | If the event is of type @WorkflowExecutionContinuedAsNew@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heWorkflowExecutionContinuedAsNewEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionContinuedAsNewEventAttributes) -heWorkflowExecutionContinuedAsNewEventAttributes = lens _heWorkflowExecutionContinuedAsNewEventAttributes (\ s a -> s{_heWorkflowExecutionContinuedAsNewEventAttributes = a}) - --- | If the event is of type @ExternalWorkflowExecutionCancelRequested@ then this member is set and provides detailed information about the event. It isn't set for other event types. -heExternalWorkflowExecutionCancelRequestedEventAttributes :: Lens' HistoryEvent (Maybe ExternalWorkflowExecutionCancelRequestedEventAttributes) -heExternalWorkflowExecutionCancelRequestedEventAttributes = lens _heExternalWorkflowExecutionCancelRequestedEventAttributes (\ s a -> s{_heExternalWorkflowExecutionCancelRequestedEventAttributes = a}) - --- | The date and time when the event occurred. -heEventTimestamp :: Lens' HistoryEvent UTCTime -heEventTimestamp = lens _heEventTimestamp (\ s a -> s{_heEventTimestamp = a}) . _Time - --- | The type of the history event. -heEventType :: Lens' HistoryEvent EventType -heEventType = lens _heEventType (\ s a -> s{_heEventType = a}) - --- | The system generated ID of the event. This ID uniquely identifies the event with in the workflow execution history. -heEventId :: Lens' HistoryEvent Integer -heEventId = lens _heEventId (\ s a -> s{_heEventId = a}) - -instance FromJSON HistoryEvent where - parseJSON - = withObject "HistoryEvent" - (\ x -> - HistoryEvent' <$> - (x .:? - "workflowExecutionCancelRequestedEventAttributes") - <*> (x .:? "recordMarkerFailedEventAttributes") - <*> - (x .:? - "requestCancelExternalWorkflowExecutionInitiatedEventAttributes") - <*> (x .:? "lambdaFunctionStartedEventAttributes") - <*> (x .:? "decisionTaskScheduledEventAttributes") - <*> - (x .:? "workflowExecutionCompletedEventAttributes") - <*> (x .:? "startTimerFailedEventAttributes") - <*> (x .:? "activityTaskScheduledEventAttributes") - <*> - (x .:? "scheduleActivityTaskFailedEventAttributes") - <*> - (x .:? - "childWorkflowExecutionCompletedEventAttributes") - <*> (x .:? "markerRecordedEventAttributes") - <*> - (x .:? "scheduleLambdaFunctionFailedEventAttributes") - <*> - (x .:? - "completeWorkflowExecutionFailedEventAttributes") - <*> (x .:? "lambdaFunctionCompletedEventAttributes") - <*> - (x .:? - "requestCancelExternalWorkflowExecutionFailedEventAttributes") - <*> (x .:? "timerCanceledEventAttributes") - <*> (x .:? "workflowExecutionStartedEventAttributes") - <*> (x .:? "activityTaskCompletedEventAttributes") - <*> (x .:? "decisionTaskTimedOutEventAttributes") - <*> (x .:? "cancelTimerFailedEventAttributes") - <*> - (x .:? - "childWorkflowExecutionStartedEventAttributes") - <*> (x .:? "activityTaskCanceledEventAttributes") - <*> (x .:? "activityTaskTimedOutEventAttributes") - <*> (x .:? "decisionTaskStartedEventAttributes") - <*> - (x .:? "workflowExecutionTerminatedEventAttributes") - <*> - (x .:? - "childWorkflowExecutionCanceledEventAttributes") - <*> - (x .:? - "requestCancelActivityTaskFailedEventAttributes") - <*> (x .:? "lambdaFunctionScheduledEventAttributes") - <*> - (x .:? - "childWorkflowExecutionTimedOutEventAttributes") - <*> - (x .:? - "cancelWorkflowExecutionFailedEventAttributes") - <*> - (x .:? - "startChildWorkflowExecutionInitiatedEventAttributes") - <*> - (x .:? - "signalExternalWorkflowExecutionFailedEventAttributes") - <*> (x .:? "activityTaskStartedEventAttributes") - <*> - (x .:? "startLambdaFunctionFailedEventAttributes") - <*> - (x .:? - "childWorkflowExecutionTerminatedEventAttributes") - <*> (x .:? "lambdaFunctionFailedEventAttributes") - <*> - (x .:? "workflowExecutionCanceledEventAttributes") - <*> (x .:? "timerStartedEventAttributes") - <*> - (x .:? "activityTaskCancelRequestedEventAttributes") - <*> - (x .:? "workflowExecutionTimedOutEventAttributes") - <*> - (x .:? "workflowExecutionSignaledEventAttributes") - <*> (x .:? "timerFiredEventAttributes") - <*> (x .:? "activityTaskFailedEventAttributes") - <*> - (x .:? - "externalWorkflowExecutionSignaledEventAttributes") - <*> (x .:? "decisionTaskCompletedEventAttributes") - <*> - (x .:? - "startChildWorkflowExecutionFailedEventAttributes") - <*> - (x .:? "childWorkflowExecutionFailedEventAttributes") - <*> - (x .:? "failWorkflowExecutionFailedEventAttributes") - <*> - (x .:? - "continueAsNewWorkflowExecutionFailedEventAttributes") - <*> - (x .:? - "signalExternalWorkflowExecutionInitiatedEventAttributes") - <*> (x .:? "lambdaFunctionTimedOutEventAttributes") - <*> (x .:? "workflowExecutionFailedEventAttributes") - <*> - (x .:? - "workflowExecutionContinuedAsNewEventAttributes") - <*> - (x .:? - "externalWorkflowExecutionCancelRequestedEventAttributes") - <*> (x .: "eventTimestamp") - <*> (x .: "eventType") - <*> (x .: "eventId")) - -instance Hashable HistoryEvent where - -instance NFData HistoryEvent where - --- | Provides the details of the @LambdaFunctionCompleted@ event. It isn't set for other event types. --- --- --- --- /See:/ 'lambdaFunctionCompletedEventAttributes' smart constructor. -data LambdaFunctionCompletedEventAttributes = LambdaFunctionCompletedEventAttributes' - { _lfceaResult :: !(Maybe Text) - , _lfceaScheduledEventId :: !Integer - , _lfceaStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'LambdaFunctionCompletedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lfceaResult' - The results of the Lambda task. --- --- * 'lfceaScheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when this Lambda task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event. --- --- * 'lfceaStartedEventId' - The ID of the @LambdaFunctionStarted@ event recorded when this activity task started. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -lambdaFunctionCompletedEventAttributes - :: Integer -- ^ 'lfceaScheduledEventId' - -> Integer -- ^ 'lfceaStartedEventId' - -> LambdaFunctionCompletedEventAttributes -lambdaFunctionCompletedEventAttributes pScheduledEventId_ pStartedEventId_ = - LambdaFunctionCompletedEventAttributes' - { _lfceaResult = Nothing - , _lfceaScheduledEventId = pScheduledEventId_ - , _lfceaStartedEventId = pStartedEventId_ - } - - --- | The results of the Lambda task. -lfceaResult :: Lens' LambdaFunctionCompletedEventAttributes (Maybe Text) -lfceaResult = lens _lfceaResult (\ s a -> s{_lfceaResult = a}) - --- | The ID of the @LambdaFunctionScheduled@ event that was recorded when this Lambda task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -lfceaScheduledEventId :: Lens' LambdaFunctionCompletedEventAttributes Integer -lfceaScheduledEventId = lens _lfceaScheduledEventId (\ s a -> s{_lfceaScheduledEventId = a}) - --- | The ID of the @LambdaFunctionStarted@ event recorded when this activity task started. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -lfceaStartedEventId :: Lens' LambdaFunctionCompletedEventAttributes Integer -lfceaStartedEventId = lens _lfceaStartedEventId (\ s a -> s{_lfceaStartedEventId = a}) - -instance FromJSON - LambdaFunctionCompletedEventAttributes - where - parseJSON - = withObject "LambdaFunctionCompletedEventAttributes" - (\ x -> - LambdaFunctionCompletedEventAttributes' <$> - (x .:? "result") <*> (x .: "scheduledEventId") <*> - (x .: "startedEventId")) - -instance Hashable - LambdaFunctionCompletedEventAttributes - where - -instance NFData - LambdaFunctionCompletedEventAttributes - where - --- | Provides the details of the @LambdaFunctionFailed@ event. It isn't set for other event types. --- --- --- --- /See:/ 'lambdaFunctionFailedEventAttributes' smart constructor. -data LambdaFunctionFailedEventAttributes = LambdaFunctionFailedEventAttributes' - { _lffeaReason :: !(Maybe Text) - , _lffeaDetails :: !(Maybe Text) - , _lffeaScheduledEventId :: !Integer - , _lffeaStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'LambdaFunctionFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lffeaReason' - The reason provided for the failure. --- --- * 'lffeaDetails' - The details of the failure. --- --- * 'lffeaScheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when this activity task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event. --- --- * 'lffeaStartedEventId' - The ID of the @LambdaFunctionStarted@ event recorded when this activity task started. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -lambdaFunctionFailedEventAttributes - :: Integer -- ^ 'lffeaScheduledEventId' - -> Integer -- ^ 'lffeaStartedEventId' - -> LambdaFunctionFailedEventAttributes -lambdaFunctionFailedEventAttributes pScheduledEventId_ pStartedEventId_ = - LambdaFunctionFailedEventAttributes' - { _lffeaReason = Nothing - , _lffeaDetails = Nothing - , _lffeaScheduledEventId = pScheduledEventId_ - , _lffeaStartedEventId = pStartedEventId_ - } - - --- | The reason provided for the failure. -lffeaReason :: Lens' LambdaFunctionFailedEventAttributes (Maybe Text) -lffeaReason = lens _lffeaReason (\ s a -> s{_lffeaReason = a}) - --- | The details of the failure. -lffeaDetails :: Lens' LambdaFunctionFailedEventAttributes (Maybe Text) -lffeaDetails = lens _lffeaDetails (\ s a -> s{_lffeaDetails = a}) - --- | The ID of the @LambdaFunctionScheduled@ event that was recorded when this activity task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -lffeaScheduledEventId :: Lens' LambdaFunctionFailedEventAttributes Integer -lffeaScheduledEventId = lens _lffeaScheduledEventId (\ s a -> s{_lffeaScheduledEventId = a}) - --- | The ID of the @LambdaFunctionStarted@ event recorded when this activity task started. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -lffeaStartedEventId :: Lens' LambdaFunctionFailedEventAttributes Integer -lffeaStartedEventId = lens _lffeaStartedEventId (\ s a -> s{_lffeaStartedEventId = a}) - -instance FromJSON LambdaFunctionFailedEventAttributes - where - parseJSON - = withObject "LambdaFunctionFailedEventAttributes" - (\ x -> - LambdaFunctionFailedEventAttributes' <$> - (x .:? "reason") <*> (x .:? "details") <*> - (x .: "scheduledEventId") - <*> (x .: "startedEventId")) - -instance Hashable LambdaFunctionFailedEventAttributes - where - -instance NFData LambdaFunctionFailedEventAttributes - where - --- | Provides the details of the @LambdaFunctionScheduled@ event. It isn't set for other event types. --- --- --- --- /See:/ 'lambdaFunctionScheduledEventAttributes' smart constructor. -data LambdaFunctionScheduledEventAttributes = LambdaFunctionScheduledEventAttributes' - { _lfseaControl :: !(Maybe Text) - , _lfseaInput :: !(Maybe Text) - , _lfseaStartToCloseTimeout :: !(Maybe Text) - , _lfseaId :: !Text - , _lfseaName :: !Text - , _lfseaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'LambdaFunctionScheduledEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lfseaControl' - Data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the Lambda task. --- --- * 'lfseaInput' - The input provided to the Lambda task. --- --- * 'lfseaStartToCloseTimeout' - The maximum amount of time a worker can take to process the Lambda task. --- --- * 'lfseaId' - The unique ID of the Lambda task. --- --- * 'lfseaName' - The name of the Lambda function. --- --- * 'lfseaDecisionTaskCompletedEventId' - The ID of the @LambdaFunctionCompleted@ event corresponding to the decision that resulted in scheduling this activity task. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -lambdaFunctionScheduledEventAttributes - :: Text -- ^ 'lfseaId' - -> Text -- ^ 'lfseaName' - -> Integer -- ^ 'lfseaDecisionTaskCompletedEventId' - -> LambdaFunctionScheduledEventAttributes -lambdaFunctionScheduledEventAttributes pId_ pName_ pDecisionTaskCompletedEventId_ = - LambdaFunctionScheduledEventAttributes' - { _lfseaControl = Nothing - , _lfseaInput = Nothing - , _lfseaStartToCloseTimeout = Nothing - , _lfseaId = pId_ - , _lfseaName = pName_ - , _lfseaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | Data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the Lambda task. -lfseaControl :: Lens' LambdaFunctionScheduledEventAttributes (Maybe Text) -lfseaControl = lens _lfseaControl (\ s a -> s{_lfseaControl = a}) - --- | The input provided to the Lambda task. -lfseaInput :: Lens' LambdaFunctionScheduledEventAttributes (Maybe Text) -lfseaInput = lens _lfseaInput (\ s a -> s{_lfseaInput = a}) - --- | The maximum amount of time a worker can take to process the Lambda task. -lfseaStartToCloseTimeout :: Lens' LambdaFunctionScheduledEventAttributes (Maybe Text) -lfseaStartToCloseTimeout = lens _lfseaStartToCloseTimeout (\ s a -> s{_lfseaStartToCloseTimeout = a}) - --- | The unique ID of the Lambda task. -lfseaId :: Lens' LambdaFunctionScheduledEventAttributes Text -lfseaId = lens _lfseaId (\ s a -> s{_lfseaId = a}) - --- | The name of the Lambda function. -lfseaName :: Lens' LambdaFunctionScheduledEventAttributes Text -lfseaName = lens _lfseaName (\ s a -> s{_lfseaName = a}) - --- | The ID of the @LambdaFunctionCompleted@ event corresponding to the decision that resulted in scheduling this activity task. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -lfseaDecisionTaskCompletedEventId :: Lens' LambdaFunctionScheduledEventAttributes Integer -lfseaDecisionTaskCompletedEventId = lens _lfseaDecisionTaskCompletedEventId (\ s a -> s{_lfseaDecisionTaskCompletedEventId = a}) - -instance FromJSON - LambdaFunctionScheduledEventAttributes - where - parseJSON - = withObject "LambdaFunctionScheduledEventAttributes" - (\ x -> - LambdaFunctionScheduledEventAttributes' <$> - (x .:? "control") <*> (x .:? "input") <*> - (x .:? "startToCloseTimeout") - <*> (x .: "id") - <*> (x .: "name") - <*> (x .: "decisionTaskCompletedEventId")) - -instance Hashable - LambdaFunctionScheduledEventAttributes - where - -instance NFData - LambdaFunctionScheduledEventAttributes - where - --- | Provides the details of the @LambdaFunctionStarted@ event. It isn't set for other event types. --- --- --- --- /See:/ 'lambdaFunctionStartedEventAttributes' smart constructor. -newtype LambdaFunctionStartedEventAttributes = LambdaFunctionStartedEventAttributes' - { _lfseaScheduledEventId :: Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'LambdaFunctionStartedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lfseaScheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when this activity task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -lambdaFunctionStartedEventAttributes - :: Integer -- ^ 'lfseaScheduledEventId' - -> LambdaFunctionStartedEventAttributes -lambdaFunctionStartedEventAttributes pScheduledEventId_ = - LambdaFunctionStartedEventAttributes' - {_lfseaScheduledEventId = pScheduledEventId_} - - --- | The ID of the @LambdaFunctionScheduled@ event that was recorded when this activity task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -lfseaScheduledEventId :: Lens' LambdaFunctionStartedEventAttributes Integer -lfseaScheduledEventId = lens _lfseaScheduledEventId (\ s a -> s{_lfseaScheduledEventId = a}) - -instance FromJSON - LambdaFunctionStartedEventAttributes - where - parseJSON - = withObject "LambdaFunctionStartedEventAttributes" - (\ x -> - LambdaFunctionStartedEventAttributes' <$> - (x .: "scheduledEventId")) - -instance Hashable - LambdaFunctionStartedEventAttributes - where - -instance NFData LambdaFunctionStartedEventAttributes - where - --- | Provides details of the @LambdaFunctionTimedOut@ event. --- --- --- --- /See:/ 'lambdaFunctionTimedOutEventAttributes' smart constructor. -data LambdaFunctionTimedOutEventAttributes = LambdaFunctionTimedOutEventAttributes' - { _lftoeaTimeoutType :: !(Maybe LambdaFunctionTimeoutType) - , _lftoeaScheduledEventId :: !Integer - , _lftoeaStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'LambdaFunctionTimedOutEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lftoeaTimeoutType' - The type of the timeout that caused this event. --- --- * 'lftoeaScheduledEventId' - The ID of the @LambdaFunctionScheduled@ event that was recorded when this activity task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event. --- --- * 'lftoeaStartedEventId' - The ID of the @ActivityTaskStarted@ event that was recorded when this activity task started. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -lambdaFunctionTimedOutEventAttributes - :: Integer -- ^ 'lftoeaScheduledEventId' - -> Integer -- ^ 'lftoeaStartedEventId' - -> LambdaFunctionTimedOutEventAttributes -lambdaFunctionTimedOutEventAttributes pScheduledEventId_ pStartedEventId_ = - LambdaFunctionTimedOutEventAttributes' - { _lftoeaTimeoutType = Nothing - , _lftoeaScheduledEventId = pScheduledEventId_ - , _lftoeaStartedEventId = pStartedEventId_ - } - - --- | The type of the timeout that caused this event. -lftoeaTimeoutType :: Lens' LambdaFunctionTimedOutEventAttributes (Maybe LambdaFunctionTimeoutType) -lftoeaTimeoutType = lens _lftoeaTimeoutType (\ s a -> s{_lftoeaTimeoutType = a}) - --- | The ID of the @LambdaFunctionScheduled@ event that was recorded when this activity task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -lftoeaScheduledEventId :: Lens' LambdaFunctionTimedOutEventAttributes Integer -lftoeaScheduledEventId = lens _lftoeaScheduledEventId (\ s a -> s{_lftoeaScheduledEventId = a}) - --- | The ID of the @ActivityTaskStarted@ event that was recorded when this activity task started. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -lftoeaStartedEventId :: Lens' LambdaFunctionTimedOutEventAttributes Integer -lftoeaStartedEventId = lens _lftoeaStartedEventId (\ s a -> s{_lftoeaStartedEventId = a}) - -instance FromJSON - LambdaFunctionTimedOutEventAttributes - where - parseJSON - = withObject "LambdaFunctionTimedOutEventAttributes" - (\ x -> - LambdaFunctionTimedOutEventAttributes' <$> - (x .:? "timeoutType") <*> (x .: "scheduledEventId") - <*> (x .: "startedEventId")) - -instance Hashable - LambdaFunctionTimedOutEventAttributes - where - -instance NFData LambdaFunctionTimedOutEventAttributes - where - --- | Provides the details of the @MarkerRecorded@ event. --- --- --- --- /See:/ 'markerRecordedEventAttributes' smart constructor. -data MarkerRecordedEventAttributes = MarkerRecordedEventAttributes' - { _mreaDetails :: !(Maybe Text) - , _mreaMarkerName :: !Text - , _mreaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'MarkerRecordedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'mreaDetails' - The details of the marker. --- --- * 'mreaMarkerName' - The name of the marker. --- --- * 'mreaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RecordMarker@ decision that requested this marker. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -markerRecordedEventAttributes - :: Text -- ^ 'mreaMarkerName' - -> Integer -- ^ 'mreaDecisionTaskCompletedEventId' - -> MarkerRecordedEventAttributes -markerRecordedEventAttributes pMarkerName_ pDecisionTaskCompletedEventId_ = - MarkerRecordedEventAttributes' - { _mreaDetails = Nothing - , _mreaMarkerName = pMarkerName_ - , _mreaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The details of the marker. -mreaDetails :: Lens' MarkerRecordedEventAttributes (Maybe Text) -mreaDetails = lens _mreaDetails (\ s a -> s{_mreaDetails = a}) - --- | The name of the marker. -mreaMarkerName :: Lens' MarkerRecordedEventAttributes Text -mreaMarkerName = lens _mreaMarkerName (\ s a -> s{_mreaMarkerName = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RecordMarker@ decision that requested this marker. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -mreaDecisionTaskCompletedEventId :: Lens' MarkerRecordedEventAttributes Integer -mreaDecisionTaskCompletedEventId = lens _mreaDecisionTaskCompletedEventId (\ s a -> s{_mreaDecisionTaskCompletedEventId = a}) - -instance FromJSON MarkerRecordedEventAttributes where - parseJSON - = withObject "MarkerRecordedEventAttributes" - (\ x -> - MarkerRecordedEventAttributes' <$> - (x .:? "details") <*> (x .: "markerName") <*> - (x .: "decisionTaskCompletedEventId")) - -instance Hashable MarkerRecordedEventAttributes where - -instance NFData MarkerRecordedEventAttributes where - --- | Contains the count of tasks in a task list. --- --- --- --- /See:/ 'pendingTaskCount' smart constructor. -data PendingTaskCount = PendingTaskCount' - { _ptcTruncated :: !(Maybe Bool) - , _ptcCount :: !Nat - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PendingTaskCount' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ptcTruncated' - If set to true, indicates that the actual count was more than the maximum supported by this API and the count returned is the truncated value. --- --- * 'ptcCount' - The number of tasks in the task list. -pendingTaskCount - :: Natural -- ^ 'ptcCount' - -> PendingTaskCount -pendingTaskCount pCount_ = - PendingTaskCount' {_ptcTruncated = Nothing, _ptcCount = _Nat # pCount_} - - --- | If set to true, indicates that the actual count was more than the maximum supported by this API and the count returned is the truncated value. -ptcTruncated :: Lens' PendingTaskCount (Maybe Bool) -ptcTruncated = lens _ptcTruncated (\ s a -> s{_ptcTruncated = a}) - --- | The number of tasks in the task list. -ptcCount :: Lens' PendingTaskCount Natural -ptcCount = lens _ptcCount (\ s a -> s{_ptcCount = a}) . _Nat - -instance FromJSON PendingTaskCount where - parseJSON - = withObject "PendingTaskCount" - (\ x -> - PendingTaskCount' <$> - (x .:? "truncated") <*> (x .: "count")) - -instance Hashable PendingTaskCount where - -instance NFData PendingTaskCount where - --- | Provides the details of the @RecordMarker@ decision. --- --- --- __Access Control__ --- --- You can use IAM policies to control this decision's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- /See:/ 'recordMarkerDecisionAttributes' smart constructor. -data RecordMarkerDecisionAttributes = RecordMarkerDecisionAttributes' - { _rmdaDetails :: !(Maybe Text) - , _rmdaMarkerName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RecordMarkerDecisionAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rmdaDetails' - The details of the marker. --- --- * 'rmdaMarkerName' - The name of the marker. -recordMarkerDecisionAttributes - :: Text -- ^ 'rmdaMarkerName' - -> RecordMarkerDecisionAttributes -recordMarkerDecisionAttributes pMarkerName_ = - RecordMarkerDecisionAttributes' - {_rmdaDetails = Nothing, _rmdaMarkerName = pMarkerName_} - - --- | The details of the marker. -rmdaDetails :: Lens' RecordMarkerDecisionAttributes (Maybe Text) -rmdaDetails = lens _rmdaDetails (\ s a -> s{_rmdaDetails = a}) - --- | The name of the marker. -rmdaMarkerName :: Lens' RecordMarkerDecisionAttributes Text -rmdaMarkerName = lens _rmdaMarkerName (\ s a -> s{_rmdaMarkerName = a}) - -instance Hashable RecordMarkerDecisionAttributes - where - -instance NFData RecordMarkerDecisionAttributes where - -instance ToJSON RecordMarkerDecisionAttributes where - toJSON RecordMarkerDecisionAttributes'{..} - = object - (catMaybes - [("details" .=) <$> _rmdaDetails, - Just ("markerName" .= _rmdaMarkerName)]) - --- | Provides the details of the @RecordMarkerFailed@ event. --- --- --- --- /See:/ 'recordMarkerFailedEventAttributes' smart constructor. -data RecordMarkerFailedEventAttributes = RecordMarkerFailedEventAttributes' - { _rmfeaMarkerName :: !Text - , _rmfeaCause :: !RecordMarkerFailedCause - , _rmfeaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RecordMarkerFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rmfeaMarkerName' - The marker's name. --- --- * 'rmfeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. --- --- * 'rmfeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RecordMarkerFailed@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -recordMarkerFailedEventAttributes - :: Text -- ^ 'rmfeaMarkerName' - -> RecordMarkerFailedCause -- ^ 'rmfeaCause' - -> Integer -- ^ 'rmfeaDecisionTaskCompletedEventId' - -> RecordMarkerFailedEventAttributes -recordMarkerFailedEventAttributes pMarkerName_ pCause_ pDecisionTaskCompletedEventId_ = - RecordMarkerFailedEventAttributes' - { _rmfeaMarkerName = pMarkerName_ - , _rmfeaCause = pCause_ - , _rmfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The marker's name. -rmfeaMarkerName :: Lens' RecordMarkerFailedEventAttributes Text -rmfeaMarkerName = lens _rmfeaMarkerName (\ s a -> s{_rmfeaMarkerName = a}) - --- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. -rmfeaCause :: Lens' RecordMarkerFailedEventAttributes RecordMarkerFailedCause -rmfeaCause = lens _rmfeaCause (\ s a -> s{_rmfeaCause = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RecordMarkerFailed@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -rmfeaDecisionTaskCompletedEventId :: Lens' RecordMarkerFailedEventAttributes Integer -rmfeaDecisionTaskCompletedEventId = lens _rmfeaDecisionTaskCompletedEventId (\ s a -> s{_rmfeaDecisionTaskCompletedEventId = a}) - -instance FromJSON RecordMarkerFailedEventAttributes - where - parseJSON - = withObject "RecordMarkerFailedEventAttributes" - (\ x -> - RecordMarkerFailedEventAttributes' <$> - (x .: "markerName") <*> (x .: "cause") <*> - (x .: "decisionTaskCompletedEventId")) - -instance Hashable RecordMarkerFailedEventAttributes - where - -instance NFData RecordMarkerFailedEventAttributes - where - --- | Provides the details of the @RequestCancelActivityTask@ decision. --- --- --- __Access Control__ --- --- You can use IAM policies to control this decision's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- /See:/ 'requestCancelActivityTaskDecisionAttributes' smart constructor. -newtype RequestCancelActivityTaskDecisionAttributes = RequestCancelActivityTaskDecisionAttributes' - { _rcatdaActivityId :: Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RequestCancelActivityTaskDecisionAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rcatdaActivityId' - The @activityId@ of the activity task to be canceled. -requestCancelActivityTaskDecisionAttributes - :: Text -- ^ 'rcatdaActivityId' - -> RequestCancelActivityTaskDecisionAttributes -requestCancelActivityTaskDecisionAttributes pActivityId_ = - RequestCancelActivityTaskDecisionAttributes' - {_rcatdaActivityId = pActivityId_} - - --- | The @activityId@ of the activity task to be canceled. -rcatdaActivityId :: Lens' RequestCancelActivityTaskDecisionAttributes Text -rcatdaActivityId = lens _rcatdaActivityId (\ s a -> s{_rcatdaActivityId = a}) - -instance Hashable - RequestCancelActivityTaskDecisionAttributes - where - -instance NFData - RequestCancelActivityTaskDecisionAttributes - where - -instance ToJSON - RequestCancelActivityTaskDecisionAttributes - where - toJSON - RequestCancelActivityTaskDecisionAttributes'{..} - = object - (catMaybes - [Just ("activityId" .= _rcatdaActivityId)]) - --- | Provides the details of the @RequestCancelActivityTaskFailed@ event. --- --- --- --- /See:/ 'requestCancelActivityTaskFailedEventAttributes' smart constructor. -data RequestCancelActivityTaskFailedEventAttributes = RequestCancelActivityTaskFailedEventAttributes' - { _rcatfeaActivityId :: !Text - , _rcatfeaCause :: !RequestCancelActivityTaskFailedCause - , _rcatfeaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RequestCancelActivityTaskFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rcatfeaActivityId' - The activityId provided in the @RequestCancelActivityTask@ decision that failed. --- --- * 'rcatfeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. --- --- * 'rcatfeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelActivityTask@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -requestCancelActivityTaskFailedEventAttributes - :: Text -- ^ 'rcatfeaActivityId' - -> RequestCancelActivityTaskFailedCause -- ^ 'rcatfeaCause' - -> Integer -- ^ 'rcatfeaDecisionTaskCompletedEventId' - -> RequestCancelActivityTaskFailedEventAttributes -requestCancelActivityTaskFailedEventAttributes pActivityId_ pCause_ pDecisionTaskCompletedEventId_ = - RequestCancelActivityTaskFailedEventAttributes' - { _rcatfeaActivityId = pActivityId_ - , _rcatfeaCause = pCause_ - , _rcatfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The activityId provided in the @RequestCancelActivityTask@ decision that failed. -rcatfeaActivityId :: Lens' RequestCancelActivityTaskFailedEventAttributes Text -rcatfeaActivityId = lens _rcatfeaActivityId (\ s a -> s{_rcatfeaActivityId = a}) - --- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. -rcatfeaCause :: Lens' RequestCancelActivityTaskFailedEventAttributes RequestCancelActivityTaskFailedCause -rcatfeaCause = lens _rcatfeaCause (\ s a -> s{_rcatfeaCause = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelActivityTask@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -rcatfeaDecisionTaskCompletedEventId :: Lens' RequestCancelActivityTaskFailedEventAttributes Integer -rcatfeaDecisionTaskCompletedEventId = lens _rcatfeaDecisionTaskCompletedEventId (\ s a -> s{_rcatfeaDecisionTaskCompletedEventId = a}) - -instance FromJSON - RequestCancelActivityTaskFailedEventAttributes - where - parseJSON - = withObject - "RequestCancelActivityTaskFailedEventAttributes" - (\ x -> - RequestCancelActivityTaskFailedEventAttributes' <$> - (x .: "activityId") <*> (x .: "cause") <*> - (x .: "decisionTaskCompletedEventId")) - -instance Hashable - RequestCancelActivityTaskFailedEventAttributes - where - -instance NFData - RequestCancelActivityTaskFailedEventAttributes - where - --- | Provides the details of the @RequestCancelExternalWorkflowExecution@ decision. --- --- --- __Access Control__ --- --- You can use IAM policies to control this decision's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- /See:/ 'requestCancelExternalWorkflowExecutionDecisionAttributes' smart constructor. -data RequestCancelExternalWorkflowExecutionDecisionAttributes = RequestCancelExternalWorkflowExecutionDecisionAttributes' - { _rcewedaControl :: !(Maybe Text) - , _rcewedaRunId :: !(Maybe Text) - , _rcewedaWorkflowId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RequestCancelExternalWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rcewedaControl' - The data attached to the event that can be used by the decider in subsequent workflow tasks. --- --- * 'rcewedaRunId' - The @runId@ of the external workflow execution to cancel. --- --- * 'rcewedaWorkflowId' - The @workflowId@ of the external workflow execution to cancel. -requestCancelExternalWorkflowExecutionDecisionAttributes - :: Text -- ^ 'rcewedaWorkflowId' - -> RequestCancelExternalWorkflowExecutionDecisionAttributes -requestCancelExternalWorkflowExecutionDecisionAttributes pWorkflowId_ = - RequestCancelExternalWorkflowExecutionDecisionAttributes' - { _rcewedaControl = Nothing - , _rcewedaRunId = Nothing - , _rcewedaWorkflowId = pWorkflowId_ - } - - --- | The data attached to the event that can be used by the decider in subsequent workflow tasks. -rcewedaControl :: Lens' RequestCancelExternalWorkflowExecutionDecisionAttributes (Maybe Text) -rcewedaControl = lens _rcewedaControl (\ s a -> s{_rcewedaControl = a}) - --- | The @runId@ of the external workflow execution to cancel. -rcewedaRunId :: Lens' RequestCancelExternalWorkflowExecutionDecisionAttributes (Maybe Text) -rcewedaRunId = lens _rcewedaRunId (\ s a -> s{_rcewedaRunId = a}) - --- | The @workflowId@ of the external workflow execution to cancel. -rcewedaWorkflowId :: Lens' RequestCancelExternalWorkflowExecutionDecisionAttributes Text -rcewedaWorkflowId = lens _rcewedaWorkflowId (\ s a -> s{_rcewedaWorkflowId = a}) - -instance Hashable - RequestCancelExternalWorkflowExecutionDecisionAttributes - where - -instance NFData - RequestCancelExternalWorkflowExecutionDecisionAttributes - where - -instance ToJSON - RequestCancelExternalWorkflowExecutionDecisionAttributes - where - toJSON - RequestCancelExternalWorkflowExecutionDecisionAttributes'{..} - = object - (catMaybes - [("control" .=) <$> _rcewedaControl, - ("runId" .=) <$> _rcewedaRunId, - Just ("workflowId" .= _rcewedaWorkflowId)]) - --- | Provides the details of the @RequestCancelExternalWorkflowExecutionFailed@ event. --- --- --- --- /See:/ 'requestCancelExternalWorkflowExecutionFailedEventAttributes' smart constructor. -data RequestCancelExternalWorkflowExecutionFailedEventAttributes = RequestCancelExternalWorkflowExecutionFailedEventAttributes' - { _rcewefeaControl :: !(Maybe Text) - , _rcewefeaRunId :: !(Maybe Text) - , _rcewefeaWorkflowId :: !Text - , _rcewefeaCause :: !RequestCancelExternalWorkflowExecutionFailedCause - , _rcewefeaInitiatedEventId :: !Integer - , _rcewefeaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RequestCancelExternalWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rcewefeaControl' - The data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the workflow execution. --- --- * 'rcewefeaRunId' - The @runId@ of the external workflow execution. --- --- * 'rcewefeaWorkflowId' - The @workflowId@ of the external workflow to which the cancel request was to be delivered. --- --- * 'rcewefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. --- --- * 'rcewefeaInitiatedEventId' - The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this external workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'rcewefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelExternalWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -requestCancelExternalWorkflowExecutionFailedEventAttributes - :: Text -- ^ 'rcewefeaWorkflowId' - -> RequestCancelExternalWorkflowExecutionFailedCause -- ^ 'rcewefeaCause' - -> Integer -- ^ 'rcewefeaInitiatedEventId' - -> Integer -- ^ 'rcewefeaDecisionTaskCompletedEventId' - -> RequestCancelExternalWorkflowExecutionFailedEventAttributes -requestCancelExternalWorkflowExecutionFailedEventAttributes pWorkflowId_ pCause_ pInitiatedEventId_ pDecisionTaskCompletedEventId_ = - RequestCancelExternalWorkflowExecutionFailedEventAttributes' - { _rcewefeaControl = Nothing - , _rcewefeaRunId = Nothing - , _rcewefeaWorkflowId = pWorkflowId_ - , _rcewefeaCause = pCause_ - , _rcewefeaInitiatedEventId = pInitiatedEventId_ - , _rcewefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the workflow execution. -rcewefeaControl :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes (Maybe Text) -rcewefeaControl = lens _rcewefeaControl (\ s a -> s{_rcewefeaControl = a}) - --- | The @runId@ of the external workflow execution. -rcewefeaRunId :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes (Maybe Text) -rcewefeaRunId = lens _rcewefeaRunId (\ s a -> s{_rcewefeaRunId = a}) - --- | The @workflowId@ of the external workflow to which the cancel request was to be delivered. -rcewefeaWorkflowId :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes Text -rcewefeaWorkflowId = lens _rcewefeaWorkflowId (\ s a -> s{_rcewefeaWorkflowId = a}) - --- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. -rcewefeaCause :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes RequestCancelExternalWorkflowExecutionFailedCause -rcewefeaCause = lens _rcewefeaCause (\ s a -> s{_rcewefeaCause = a}) - --- | The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this external workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -rcewefeaInitiatedEventId :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes Integer -rcewefeaInitiatedEventId = lens _rcewefeaInitiatedEventId (\ s a -> s{_rcewefeaInitiatedEventId = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelExternalWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -rcewefeaDecisionTaskCompletedEventId :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes Integer -rcewefeaDecisionTaskCompletedEventId = lens _rcewefeaDecisionTaskCompletedEventId (\ s a -> s{_rcewefeaDecisionTaskCompletedEventId = a}) - -instance FromJSON - RequestCancelExternalWorkflowExecutionFailedEventAttributes - where - parseJSON - = withObject - "RequestCancelExternalWorkflowExecutionFailedEventAttributes" - (\ x -> - RequestCancelExternalWorkflowExecutionFailedEventAttributes' - <$> - (x .:? "control") <*> (x .:? "runId") <*> - (x .: "workflowId") - <*> (x .: "cause") - <*> (x .: "initiatedEventId") - <*> (x .: "decisionTaskCompletedEventId")) - -instance Hashable - RequestCancelExternalWorkflowExecutionFailedEventAttributes - where - -instance NFData - RequestCancelExternalWorkflowExecutionFailedEventAttributes - where - --- | Provides the details of the @RequestCancelExternalWorkflowExecutionInitiated@ event. --- --- --- --- /See:/ 'requestCancelExternalWorkflowExecutionInitiatedEventAttributes' smart constructor. -data RequestCancelExternalWorkflowExecutionInitiatedEventAttributes = RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' - { _rceweieaControl :: !(Maybe Text) - , _rceweieaRunId :: !(Maybe Text) - , _rceweieaWorkflowId :: !Text - , _rceweieaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rceweieaControl' - Data attached to the event that can be used by the decider in subsequent workflow tasks. --- --- * 'rceweieaRunId' - The @runId@ of the external workflow execution to be canceled. --- --- * 'rceweieaWorkflowId' - The @workflowId@ of the external workflow execution to be canceled. --- --- * 'rceweieaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelExternalWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -requestCancelExternalWorkflowExecutionInitiatedEventAttributes - :: Text -- ^ 'rceweieaWorkflowId' - -> Integer -- ^ 'rceweieaDecisionTaskCompletedEventId' - -> RequestCancelExternalWorkflowExecutionInitiatedEventAttributes -requestCancelExternalWorkflowExecutionInitiatedEventAttributes pWorkflowId_ pDecisionTaskCompletedEventId_ = - RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' - { _rceweieaControl = Nothing - , _rceweieaRunId = Nothing - , _rceweieaWorkflowId = pWorkflowId_ - , _rceweieaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | Data attached to the event that can be used by the decider in subsequent workflow tasks. -rceweieaControl :: Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text) -rceweieaControl = lens _rceweieaControl (\ s a -> s{_rceweieaControl = a}) - --- | The @runId@ of the external workflow execution to be canceled. -rceweieaRunId :: Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text) -rceweieaRunId = lens _rceweieaRunId (\ s a -> s{_rceweieaRunId = a}) - --- | The @workflowId@ of the external workflow execution to be canceled. -rceweieaWorkflowId :: Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes Text -rceweieaWorkflowId = lens _rceweieaWorkflowId (\ s a -> s{_rceweieaWorkflowId = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @RequestCancelExternalWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -rceweieaDecisionTaskCompletedEventId :: Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes Integer -rceweieaDecisionTaskCompletedEventId = lens _rceweieaDecisionTaskCompletedEventId (\ s a -> s{_rceweieaDecisionTaskCompletedEventId = a}) - -instance FromJSON - RequestCancelExternalWorkflowExecutionInitiatedEventAttributes - where - parseJSON - = withObject - "RequestCancelExternalWorkflowExecutionInitiatedEventAttributes" - (\ x -> - RequestCancelExternalWorkflowExecutionInitiatedEventAttributes' - <$> - (x .:? "control") <*> (x .:? "runId") <*> - (x .: "workflowId") - <*> (x .: "decisionTaskCompletedEventId")) - -instance Hashable - RequestCancelExternalWorkflowExecutionInitiatedEventAttributes - where - -instance NFData - RequestCancelExternalWorkflowExecutionInitiatedEventAttributes - where - --- | Provides the details of the @ScheduleActivityTask@ decision. --- --- --- __Access Control__ --- --- You can use IAM policies to control this decision's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the following parameters by using a @Condition@ element with the appropriate keys. --- --- * @activityType.name@ – String constraint. The key is @swf:activityType.name@ . --- --- * @activityType.version@ – String constraint. The key is @swf:activityType.version@ . --- --- * @taskList@ – String constraint. The key is @swf:taskList.name@ . --- --- --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- /See:/ 'scheduleActivityTaskDecisionAttributes' smart constructor. -data ScheduleActivityTaskDecisionAttributes = ScheduleActivityTaskDecisionAttributes' - { _satdaControl :: !(Maybe Text) - , _satdaHeartbeatTimeout :: !(Maybe Text) - , _satdaScheduleToCloseTimeout :: !(Maybe Text) - , _satdaInput :: !(Maybe Text) - , _satdaTaskList :: !(Maybe TaskList) - , _satdaTaskPriority :: !(Maybe Text) - , _satdaScheduleToStartTimeout :: !(Maybe Text) - , _satdaStartToCloseTimeout :: !(Maybe Text) - , _satdaActivityType :: !ActivityType - , _satdaActivityId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduleActivityTaskDecisionAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'satdaControl' - Data attached to the event that can be used by the decider in subsequent workflow tasks. This data isn't sent to the activity. --- --- * 'satdaHeartbeatTimeout' - If set, specifies the maximum time before which a worker processing a task of this type must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. If the worker subsequently attempts to record a heartbeat or returns a result, it is ignored. This overrides the default heartbeat timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'satdaScheduleToCloseTimeout' - The maximum duration for this activity task. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'satdaInput' - The input provided to the activity task. --- --- * 'satdaTaskList' - If set, specifies the name of the task list in which to schedule the activity task. If not specified, the @defaultTaskList@ registered with the activity type is used. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . --- --- * 'satdaTaskPriority' - If set, specifies the priority with which the activity task is to be assigned to a worker. This overrides the defaultTaskPriority specified when registering the activity type using 'RegisterActivityType' . Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . --- --- * 'satdaScheduleToStartTimeout' - If set, specifies the maximum duration the activity task can wait to be assigned to a worker. This overrides the default schedule-to-start timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'satdaStartToCloseTimeout' - If set, specifies the maximum duration a worker may take to process this activity task. This overrides the default start-to-close timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'satdaActivityType' - The type of the activity task to schedule. --- --- * 'satdaActivityId' - The @activityId@ of the activity task. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -scheduleActivityTaskDecisionAttributes - :: ActivityType -- ^ 'satdaActivityType' - -> Text -- ^ 'satdaActivityId' - -> ScheduleActivityTaskDecisionAttributes -scheduleActivityTaskDecisionAttributes pActivityType_ pActivityId_ = - ScheduleActivityTaskDecisionAttributes' - { _satdaControl = Nothing - , _satdaHeartbeatTimeout = Nothing - , _satdaScheduleToCloseTimeout = Nothing - , _satdaInput = Nothing - , _satdaTaskList = Nothing - , _satdaTaskPriority = Nothing - , _satdaScheduleToStartTimeout = Nothing - , _satdaStartToCloseTimeout = Nothing - , _satdaActivityType = pActivityType_ - , _satdaActivityId = pActivityId_ - } - - --- | Data attached to the event that can be used by the decider in subsequent workflow tasks. This data isn't sent to the activity. -satdaControl :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text) -satdaControl = lens _satdaControl (\ s a -> s{_satdaControl = a}) - --- | If set, specifies the maximum time before which a worker processing a task of this type must report progress by calling 'RecordActivityTaskHeartbeat' . If the timeout is exceeded, the activity task is automatically timed out. If the worker subsequently attempts to record a heartbeat or returns a result, it is ignored. This overrides the default heartbeat timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -satdaHeartbeatTimeout :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text) -satdaHeartbeatTimeout = lens _satdaHeartbeatTimeout (\ s a -> s{_satdaHeartbeatTimeout = a}) - --- | The maximum duration for this activity task. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -satdaScheduleToCloseTimeout :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text) -satdaScheduleToCloseTimeout = lens _satdaScheduleToCloseTimeout (\ s a -> s{_satdaScheduleToCloseTimeout = a}) - --- | The input provided to the activity task. -satdaInput :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text) -satdaInput = lens _satdaInput (\ s a -> s{_satdaInput = a}) - --- | If set, specifies the name of the task list in which to schedule the activity task. If not specified, the @defaultTaskList@ registered with the activity type is used. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -satdaTaskList :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe TaskList) -satdaTaskList = lens _satdaTaskList (\ s a -> s{_satdaTaskList = a}) - --- | If set, specifies the priority with which the activity task is to be assigned to a worker. This overrides the defaultTaskPriority specified when registering the activity type using 'RegisterActivityType' . Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . -satdaTaskPriority :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text) -satdaTaskPriority = lens _satdaTaskPriority (\ s a -> s{_satdaTaskPriority = a}) - --- | If set, specifies the maximum duration the activity task can wait to be assigned to a worker. This overrides the default schedule-to-start timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -satdaScheduleToStartTimeout :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text) -satdaScheduleToStartTimeout = lens _satdaScheduleToStartTimeout (\ s a -> s{_satdaScheduleToStartTimeout = a}) - --- | If set, specifies the maximum duration a worker may take to process this activity task. This overrides the default start-to-close timeout specified when registering the activity type using 'RegisterActivityType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -satdaStartToCloseTimeout :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text) -satdaStartToCloseTimeout = lens _satdaStartToCloseTimeout (\ s a -> s{_satdaStartToCloseTimeout = a}) - --- | The type of the activity task to schedule. -satdaActivityType :: Lens' ScheduleActivityTaskDecisionAttributes ActivityType -satdaActivityType = lens _satdaActivityType (\ s a -> s{_satdaActivityType = a}) - --- | The @activityId@ of the activity task. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -satdaActivityId :: Lens' ScheduleActivityTaskDecisionAttributes Text -satdaActivityId = lens _satdaActivityId (\ s a -> s{_satdaActivityId = a}) - -instance Hashable - ScheduleActivityTaskDecisionAttributes - where - -instance NFData - ScheduleActivityTaskDecisionAttributes - where - -instance ToJSON - ScheduleActivityTaskDecisionAttributes - where - toJSON ScheduleActivityTaskDecisionAttributes'{..} - = object - (catMaybes - [("control" .=) <$> _satdaControl, - ("heartbeatTimeout" .=) <$> _satdaHeartbeatTimeout, - ("scheduleToCloseTimeout" .=) <$> - _satdaScheduleToCloseTimeout, - ("input" .=) <$> _satdaInput, - ("taskList" .=) <$> _satdaTaskList, - ("taskPriority" .=) <$> _satdaTaskPriority, - ("scheduleToStartTimeout" .=) <$> - _satdaScheduleToStartTimeout, - ("startToCloseTimeout" .=) <$> - _satdaStartToCloseTimeout, - Just ("activityType" .= _satdaActivityType), - Just ("activityId" .= _satdaActivityId)]) - --- | Provides the details of the @ScheduleActivityTaskFailed@ event. --- --- --- --- /See:/ 'scheduleActivityTaskFailedEventAttributes' smart constructor. -data ScheduleActivityTaskFailedEventAttributes = ScheduleActivityTaskFailedEventAttributes' - { _satfeaActivityType :: !ActivityType - , _satfeaActivityId :: !Text - , _satfeaCause :: !ScheduleActivityTaskFailedCause - , _satfeaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduleActivityTaskFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'satfeaActivityType' - The activity type provided in the @ScheduleActivityTask@ decision that failed. --- --- * 'satfeaActivityId' - The activityId provided in the @ScheduleActivityTask@ decision that failed. --- --- * 'satfeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. --- --- * 'satfeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision that resulted in the scheduling of this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -scheduleActivityTaskFailedEventAttributes - :: ActivityType -- ^ 'satfeaActivityType' - -> Text -- ^ 'satfeaActivityId' - -> ScheduleActivityTaskFailedCause -- ^ 'satfeaCause' - -> Integer -- ^ 'satfeaDecisionTaskCompletedEventId' - -> ScheduleActivityTaskFailedEventAttributes -scheduleActivityTaskFailedEventAttributes pActivityType_ pActivityId_ pCause_ pDecisionTaskCompletedEventId_ = - ScheduleActivityTaskFailedEventAttributes' - { _satfeaActivityType = pActivityType_ - , _satfeaActivityId = pActivityId_ - , _satfeaCause = pCause_ - , _satfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The activity type provided in the @ScheduleActivityTask@ decision that failed. -satfeaActivityType :: Lens' ScheduleActivityTaskFailedEventAttributes ActivityType -satfeaActivityType = lens _satfeaActivityType (\ s a -> s{_satfeaActivityType = a}) - --- | The activityId provided in the @ScheduleActivityTask@ decision that failed. -satfeaActivityId :: Lens' ScheduleActivityTaskFailedEventAttributes Text -satfeaActivityId = lens _satfeaActivityId (\ s a -> s{_satfeaActivityId = a}) - --- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. -satfeaCause :: Lens' ScheduleActivityTaskFailedEventAttributes ScheduleActivityTaskFailedCause -satfeaCause = lens _satfeaCause (\ s a -> s{_satfeaCause = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision that resulted in the scheduling of this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -satfeaDecisionTaskCompletedEventId :: Lens' ScheduleActivityTaskFailedEventAttributes Integer -satfeaDecisionTaskCompletedEventId = lens _satfeaDecisionTaskCompletedEventId (\ s a -> s{_satfeaDecisionTaskCompletedEventId = a}) - -instance FromJSON - ScheduleActivityTaskFailedEventAttributes - where - parseJSON - = withObject - "ScheduleActivityTaskFailedEventAttributes" - (\ x -> - ScheduleActivityTaskFailedEventAttributes' <$> - (x .: "activityType") <*> (x .: "activityId") <*> - (x .: "cause") - <*> (x .: "decisionTaskCompletedEventId")) - -instance Hashable - ScheduleActivityTaskFailedEventAttributes - where - -instance NFData - ScheduleActivityTaskFailedEventAttributes - where - --- | Decision attributes specified in @scheduleLambdaFunctionDecisionAttributes@ within the list of decisions @decisions@ passed to 'RespondDecisionTaskCompleted' . --- --- --- --- /See:/ 'scheduleLambdaFunctionDecisionAttributes' smart constructor. -data ScheduleLambdaFunctionDecisionAttributes = ScheduleLambdaFunctionDecisionAttributes' - { _slfdaControl :: !(Maybe Text) - , _slfdaInput :: !(Maybe Text) - , _slfdaStartToCloseTimeout :: !(Maybe Text) - , _slfdaId :: !Text - , _slfdaName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduleLambdaFunctionDecisionAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'slfdaControl' - The data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the Lambda task. --- --- * 'slfdaInput' - The optional input data to be supplied to the Lambda function. --- --- * 'slfdaStartToCloseTimeout' - The timeout value, in seconds, after which the Lambda function is considered to be failed once it has started. This can be any integer from 1-300 (1s-5m). If no value is supplied, than a default value of 300s is assumed. --- --- * 'slfdaId' - A string that identifies the Lambda function execution in the event history. --- --- * 'slfdaName' - The name, or ARN, of the Lambda function to schedule. -scheduleLambdaFunctionDecisionAttributes - :: Text -- ^ 'slfdaId' - -> Text -- ^ 'slfdaName' - -> ScheduleLambdaFunctionDecisionAttributes -scheduleLambdaFunctionDecisionAttributes pId_ pName_ = - ScheduleLambdaFunctionDecisionAttributes' - { _slfdaControl = Nothing - , _slfdaInput = Nothing - , _slfdaStartToCloseTimeout = Nothing - , _slfdaId = pId_ - , _slfdaName = pName_ - } - - --- | The data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the Lambda task. -slfdaControl :: Lens' ScheduleLambdaFunctionDecisionAttributes (Maybe Text) -slfdaControl = lens _slfdaControl (\ s a -> s{_slfdaControl = a}) - --- | The optional input data to be supplied to the Lambda function. -slfdaInput :: Lens' ScheduleLambdaFunctionDecisionAttributes (Maybe Text) -slfdaInput = lens _slfdaInput (\ s a -> s{_slfdaInput = a}) - --- | The timeout value, in seconds, after which the Lambda function is considered to be failed once it has started. This can be any integer from 1-300 (1s-5m). If no value is supplied, than a default value of 300s is assumed. -slfdaStartToCloseTimeout :: Lens' ScheduleLambdaFunctionDecisionAttributes (Maybe Text) -slfdaStartToCloseTimeout = lens _slfdaStartToCloseTimeout (\ s a -> s{_slfdaStartToCloseTimeout = a}) - --- | A string that identifies the Lambda function execution in the event history. -slfdaId :: Lens' ScheduleLambdaFunctionDecisionAttributes Text -slfdaId = lens _slfdaId (\ s a -> s{_slfdaId = a}) - --- | The name, or ARN, of the Lambda function to schedule. -slfdaName :: Lens' ScheduleLambdaFunctionDecisionAttributes Text -slfdaName = lens _slfdaName (\ s a -> s{_slfdaName = a}) - -instance Hashable - ScheduleLambdaFunctionDecisionAttributes - where - -instance NFData - ScheduleLambdaFunctionDecisionAttributes - where - -instance ToJSON - ScheduleLambdaFunctionDecisionAttributes - where - toJSON ScheduleLambdaFunctionDecisionAttributes'{..} - = object - (catMaybes - [("control" .=) <$> _slfdaControl, - ("input" .=) <$> _slfdaInput, - ("startToCloseTimeout" .=) <$> - _slfdaStartToCloseTimeout, - Just ("id" .= _slfdaId), - Just ("name" .= _slfdaName)]) - --- | Provides the details of the @ScheduleLambdaFunctionFailed@ event. It isn't set for other event types. --- --- --- --- /See:/ 'scheduleLambdaFunctionFailedEventAttributes' smart constructor. -data ScheduleLambdaFunctionFailedEventAttributes = ScheduleLambdaFunctionFailedEventAttributes' - { _slffeaId :: !Text - , _slffeaName :: !Text - , _slffeaCause :: !ScheduleLambdaFunctionFailedCause - , _slffeaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduleLambdaFunctionFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'slffeaId' - The ID provided in the @ScheduleLambdaFunction@ decision that failed. --- --- * 'slffeaName' - The name of the Lambda function. --- --- * 'slffeaCause' - The cause of the failure. To help diagnose issues, use this information to trace back the chain of events leading up to this event. --- --- * 'slffeaDecisionTaskCompletedEventId' - The ID of the @LambdaFunctionCompleted@ event corresponding to the decision that resulted in scheduling this Lambda task. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -scheduleLambdaFunctionFailedEventAttributes - :: Text -- ^ 'slffeaId' - -> Text -- ^ 'slffeaName' - -> ScheduleLambdaFunctionFailedCause -- ^ 'slffeaCause' - -> Integer -- ^ 'slffeaDecisionTaskCompletedEventId' - -> ScheduleLambdaFunctionFailedEventAttributes -scheduleLambdaFunctionFailedEventAttributes pId_ pName_ pCause_ pDecisionTaskCompletedEventId_ = - ScheduleLambdaFunctionFailedEventAttributes' - { _slffeaId = pId_ - , _slffeaName = pName_ - , _slffeaCause = pCause_ - , _slffeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The ID provided in the @ScheduleLambdaFunction@ decision that failed. -slffeaId :: Lens' ScheduleLambdaFunctionFailedEventAttributes Text -slffeaId = lens _slffeaId (\ s a -> s{_slffeaId = a}) - --- | The name of the Lambda function. -slffeaName :: Lens' ScheduleLambdaFunctionFailedEventAttributes Text -slffeaName = lens _slffeaName (\ s a -> s{_slffeaName = a}) - --- | The cause of the failure. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -slffeaCause :: Lens' ScheduleLambdaFunctionFailedEventAttributes ScheduleLambdaFunctionFailedCause -slffeaCause = lens _slffeaCause (\ s a -> s{_slffeaCause = a}) - --- | The ID of the @LambdaFunctionCompleted@ event corresponding to the decision that resulted in scheduling this Lambda task. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -slffeaDecisionTaskCompletedEventId :: Lens' ScheduleLambdaFunctionFailedEventAttributes Integer -slffeaDecisionTaskCompletedEventId = lens _slffeaDecisionTaskCompletedEventId (\ s a -> s{_slffeaDecisionTaskCompletedEventId = a}) - -instance FromJSON - ScheduleLambdaFunctionFailedEventAttributes - where - parseJSON - = withObject - "ScheduleLambdaFunctionFailedEventAttributes" - (\ x -> - ScheduleLambdaFunctionFailedEventAttributes' <$> - (x .: "id") <*> (x .: "name") <*> (x .: "cause") <*> - (x .: "decisionTaskCompletedEventId")) - -instance Hashable - ScheduleLambdaFunctionFailedEventAttributes - where - -instance NFData - ScheduleLambdaFunctionFailedEventAttributes - where - --- | Provides the details of the @SignalExternalWorkflowExecution@ decision. --- --- --- __Access Control__ --- --- You can use IAM policies to control this decision's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- /See:/ 'signalExternalWorkflowExecutionDecisionAttributes' smart constructor. -data SignalExternalWorkflowExecutionDecisionAttributes = SignalExternalWorkflowExecutionDecisionAttributes' - { _sewedaControl :: !(Maybe Text) - , _sewedaInput :: !(Maybe Text) - , _sewedaRunId :: !(Maybe Text) - , _sewedaWorkflowId :: !Text - , _sewedaSignalName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SignalExternalWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sewedaControl' - The data attached to the event that can be used by the decider in subsequent decision tasks. --- --- * 'sewedaInput' - The input data to be provided with the signal. The target workflow execution uses the signal name and input data to process the signal. --- --- * 'sewedaRunId' - The @runId@ of the workflow execution to be signaled. --- --- * 'sewedaWorkflowId' - The @workflowId@ of the workflow execution to be signaled. --- --- * 'sewedaSignalName' - The name of the signal.The target workflow execution uses the signal name and input to process the signal. -signalExternalWorkflowExecutionDecisionAttributes - :: Text -- ^ 'sewedaWorkflowId' - -> Text -- ^ 'sewedaSignalName' - -> SignalExternalWorkflowExecutionDecisionAttributes -signalExternalWorkflowExecutionDecisionAttributes pWorkflowId_ pSignalName_ = - SignalExternalWorkflowExecutionDecisionAttributes' - { _sewedaControl = Nothing - , _sewedaInput = Nothing - , _sewedaRunId = Nothing - , _sewedaWorkflowId = pWorkflowId_ - , _sewedaSignalName = pSignalName_ - } - - --- | The data attached to the event that can be used by the decider in subsequent decision tasks. -sewedaControl :: Lens' SignalExternalWorkflowExecutionDecisionAttributes (Maybe Text) -sewedaControl = lens _sewedaControl (\ s a -> s{_sewedaControl = a}) - --- | The input data to be provided with the signal. The target workflow execution uses the signal name and input data to process the signal. -sewedaInput :: Lens' SignalExternalWorkflowExecutionDecisionAttributes (Maybe Text) -sewedaInput = lens _sewedaInput (\ s a -> s{_sewedaInput = a}) - --- | The @runId@ of the workflow execution to be signaled. -sewedaRunId :: Lens' SignalExternalWorkflowExecutionDecisionAttributes (Maybe Text) -sewedaRunId = lens _sewedaRunId (\ s a -> s{_sewedaRunId = a}) - --- | The @workflowId@ of the workflow execution to be signaled. -sewedaWorkflowId :: Lens' SignalExternalWorkflowExecutionDecisionAttributes Text -sewedaWorkflowId = lens _sewedaWorkflowId (\ s a -> s{_sewedaWorkflowId = a}) - --- | The name of the signal.The target workflow execution uses the signal name and input to process the signal. -sewedaSignalName :: Lens' SignalExternalWorkflowExecutionDecisionAttributes Text -sewedaSignalName = lens _sewedaSignalName (\ s a -> s{_sewedaSignalName = a}) - -instance Hashable - SignalExternalWorkflowExecutionDecisionAttributes - where - -instance NFData - SignalExternalWorkflowExecutionDecisionAttributes - where - -instance ToJSON - SignalExternalWorkflowExecutionDecisionAttributes - where - toJSON - SignalExternalWorkflowExecutionDecisionAttributes'{..} - = object - (catMaybes - [("control" .=) <$> _sewedaControl, - ("input" .=) <$> _sewedaInput, - ("runId" .=) <$> _sewedaRunId, - Just ("workflowId" .= _sewedaWorkflowId), - Just ("signalName" .= _sewedaSignalName)]) - --- | Provides the details of the @SignalExternalWorkflowExecutionFailed@ event. --- --- --- --- /See:/ 'signalExternalWorkflowExecutionFailedEventAttributes' smart constructor. -data SignalExternalWorkflowExecutionFailedEventAttributes = SignalExternalWorkflowExecutionFailedEventAttributes' - { _sewefeaControl :: !(Maybe Text) - , _sewefeaRunId :: !(Maybe Text) - , _sewefeaWorkflowId :: !Text - , _sewefeaCause :: !SignalExternalWorkflowExecutionFailedCause - , _sewefeaInitiatedEventId :: !Integer - , _sewefeaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SignalExternalWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sewefeaControl' - The data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the workflow execution. --- --- * 'sewefeaRunId' - The @runId@ of the external workflow execution that the signal was being delivered to. --- --- * 'sewefeaWorkflowId' - The @workflowId@ of the external workflow execution that the signal was being delivered to. --- --- * 'sewefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. --- --- * 'sewefeaInitiatedEventId' - The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflowExecution@ decision to request this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'sewefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @SignalExternalWorkflowExecution@ decision for this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -signalExternalWorkflowExecutionFailedEventAttributes - :: Text -- ^ 'sewefeaWorkflowId' - -> SignalExternalWorkflowExecutionFailedCause -- ^ 'sewefeaCause' - -> Integer -- ^ 'sewefeaInitiatedEventId' - -> Integer -- ^ 'sewefeaDecisionTaskCompletedEventId' - -> SignalExternalWorkflowExecutionFailedEventAttributes -signalExternalWorkflowExecutionFailedEventAttributes pWorkflowId_ pCause_ pInitiatedEventId_ pDecisionTaskCompletedEventId_ = - SignalExternalWorkflowExecutionFailedEventAttributes' - { _sewefeaControl = Nothing - , _sewefeaRunId = Nothing - , _sewefeaWorkflowId = pWorkflowId_ - , _sewefeaCause = pCause_ - , _sewefeaInitiatedEventId = pInitiatedEventId_ - , _sewefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the workflow execution. -sewefeaControl :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes (Maybe Text) -sewefeaControl = lens _sewefeaControl (\ s a -> s{_sewefeaControl = a}) - --- | The @runId@ of the external workflow execution that the signal was being delivered to. -sewefeaRunId :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes (Maybe Text) -sewefeaRunId = lens _sewefeaRunId (\ s a -> s{_sewefeaRunId = a}) - --- | The @workflowId@ of the external workflow execution that the signal was being delivered to. -sewefeaWorkflowId :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes Text -sewefeaWorkflowId = lens _sewefeaWorkflowId (\ s a -> s{_sewefeaWorkflowId = a}) - --- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. -sewefeaCause :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes SignalExternalWorkflowExecutionFailedCause -sewefeaCause = lens _sewefeaCause (\ s a -> s{_sewefeaCause = a}) - --- | The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflowExecution@ decision to request this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -sewefeaInitiatedEventId :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes Integer -sewefeaInitiatedEventId = lens _sewefeaInitiatedEventId (\ s a -> s{_sewefeaInitiatedEventId = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @SignalExternalWorkflowExecution@ decision for this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -sewefeaDecisionTaskCompletedEventId :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes Integer -sewefeaDecisionTaskCompletedEventId = lens _sewefeaDecisionTaskCompletedEventId (\ s a -> s{_sewefeaDecisionTaskCompletedEventId = a}) - -instance FromJSON - SignalExternalWorkflowExecutionFailedEventAttributes - where - parseJSON - = withObject - "SignalExternalWorkflowExecutionFailedEventAttributes" - (\ x -> - SignalExternalWorkflowExecutionFailedEventAttributes' - <$> - (x .:? "control") <*> (x .:? "runId") <*> - (x .: "workflowId") - <*> (x .: "cause") - <*> (x .: "initiatedEventId") - <*> (x .: "decisionTaskCompletedEventId")) - -instance Hashable - SignalExternalWorkflowExecutionFailedEventAttributes - where - -instance NFData - SignalExternalWorkflowExecutionFailedEventAttributes - where - --- | Provides the details of the @SignalExternalWorkflowExecutionInitiated@ event. --- --- --- --- /See:/ 'signalExternalWorkflowExecutionInitiatedEventAttributes' smart constructor. -data SignalExternalWorkflowExecutionInitiatedEventAttributes = SignalExternalWorkflowExecutionInitiatedEventAttributes' - { _seweieaControl :: !(Maybe Text) - , _seweieaInput :: !(Maybe Text) - , _seweieaRunId :: !(Maybe Text) - , _seweieaWorkflowId :: !Text - , _seweieaSignalName :: !Text - , _seweieaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SignalExternalWorkflowExecutionInitiatedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'seweieaControl' - Data attached to the event that can be used by the decider in subsequent decision tasks. --- --- * 'seweieaInput' - The input provided to the signal. --- --- * 'seweieaRunId' - The @runId@ of the external workflow execution to send the signal to. --- --- * 'seweieaWorkflowId' - The @workflowId@ of the external workflow execution. --- --- * 'seweieaSignalName' - The name of the signal. --- --- * 'seweieaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @SignalExternalWorkflowExecution@ decision for this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -signalExternalWorkflowExecutionInitiatedEventAttributes - :: Text -- ^ 'seweieaWorkflowId' - -> Text -- ^ 'seweieaSignalName' - -> Integer -- ^ 'seweieaDecisionTaskCompletedEventId' - -> SignalExternalWorkflowExecutionInitiatedEventAttributes -signalExternalWorkflowExecutionInitiatedEventAttributes pWorkflowId_ pSignalName_ pDecisionTaskCompletedEventId_ = - SignalExternalWorkflowExecutionInitiatedEventAttributes' - { _seweieaControl = Nothing - , _seweieaInput = Nothing - , _seweieaRunId = Nothing - , _seweieaWorkflowId = pWorkflowId_ - , _seweieaSignalName = pSignalName_ - , _seweieaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | Data attached to the event that can be used by the decider in subsequent decision tasks. -seweieaControl :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text) -seweieaControl = lens _seweieaControl (\ s a -> s{_seweieaControl = a}) - --- | The input provided to the signal. -seweieaInput :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text) -seweieaInput = lens _seweieaInput (\ s a -> s{_seweieaInput = a}) - --- | The @runId@ of the external workflow execution to send the signal to. -seweieaRunId :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text) -seweieaRunId = lens _seweieaRunId (\ s a -> s{_seweieaRunId = a}) - --- | The @workflowId@ of the external workflow execution. -seweieaWorkflowId :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes Text -seweieaWorkflowId = lens _seweieaWorkflowId (\ s a -> s{_seweieaWorkflowId = a}) - --- | The name of the signal. -seweieaSignalName :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes Text -seweieaSignalName = lens _seweieaSignalName (\ s a -> s{_seweieaSignalName = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @SignalExternalWorkflowExecution@ decision for this signal. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -seweieaDecisionTaskCompletedEventId :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes Integer -seweieaDecisionTaskCompletedEventId = lens _seweieaDecisionTaskCompletedEventId (\ s a -> s{_seweieaDecisionTaskCompletedEventId = a}) - -instance FromJSON - SignalExternalWorkflowExecutionInitiatedEventAttributes - where - parseJSON - = withObject - "SignalExternalWorkflowExecutionInitiatedEventAttributes" - (\ x -> - SignalExternalWorkflowExecutionInitiatedEventAttributes' - <$> - (x .:? "control") <*> (x .:? "input") <*> - (x .:? "runId") - <*> (x .: "workflowId") - <*> (x .: "signalName") - <*> (x .: "decisionTaskCompletedEventId")) - -instance Hashable - SignalExternalWorkflowExecutionInitiatedEventAttributes - where - -instance NFData - SignalExternalWorkflowExecutionInitiatedEventAttributes - where - --- | Provides the details of the @StartChildWorkflowExecution@ decision. --- --- --- __Access Control__ --- --- You can use IAM policies to control this decision's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * Constrain the following parameters by using a @Condition@ element with the appropriate keys. --- --- * @tagList.member.N@ – The key is "swf:tagList.N" where N is the tag number from 0 to 4, inclusive. --- --- * @taskList@ – String constraint. The key is @swf:taskList.name@ . --- --- * @workflowType.name@ – String constraint. The key is @swf:workflowType.name@ . --- --- * @workflowType.version@ – String constraint. The key is @swf:workflowType.version@ . --- --- --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- /See:/ 'startChildWorkflowExecutionDecisionAttributes' smart constructor. -data StartChildWorkflowExecutionDecisionAttributes = StartChildWorkflowExecutionDecisionAttributes' - { _scwedaControl :: !(Maybe Text) - , _scwedaTagList :: !(Maybe [Text]) - , _scwedaTaskStartToCloseTimeout :: !(Maybe Text) - , _scwedaLambdaRole :: !(Maybe Text) - , _scwedaInput :: !(Maybe Text) - , _scwedaExecutionStartToCloseTimeout :: !(Maybe Text) - , _scwedaTaskList :: !(Maybe TaskList) - , _scwedaTaskPriority :: !(Maybe Text) - , _scwedaChildPolicy :: !(Maybe ChildPolicy) - , _scwedaWorkflowType :: !WorkflowType - , _scwedaWorkflowId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StartChildWorkflowExecutionDecisionAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'scwedaControl' - The data attached to the event that can be used by the decider in subsequent workflow tasks. This data isn't sent to the child workflow execution. --- --- * 'scwedaTagList' - The list of tags to associate with the child workflow execution. A maximum of 5 tags can be specified. You can list workflow executions with a specific tag by calling 'ListOpenWorkflowExecutions' or 'ListClosedWorkflowExecutions' and specifying a 'TagFilter' . --- --- * 'scwedaTaskStartToCloseTimeout' - Specifies the maximum duration of decision tasks for this workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'scwedaLambdaRole' - The IAM role attached to the child workflow execution. --- --- * 'scwedaInput' - The input to be provided to the workflow execution. --- --- * 'scwedaExecutionStartToCloseTimeout' - The total duration for this workflow execution. This overrides the defaultExecutionStartToCloseTimeout specified when registering the workflow type. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'scwedaTaskList' - The name of the task list to be used for decision tasks of the child workflow execution. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . --- --- * 'scwedaTaskPriority' - A task priority that, if set, specifies the priority for a decision task of this workflow execution. This overrides the defaultTaskPriority specified when registering the workflow type. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . --- --- * 'scwedaChildPolicy' - If set, specifies the policy to use for the child workflow executions if the workflow execution being started is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. --- --- * 'scwedaWorkflowType' - The type of the workflow execution to be started. --- --- * 'scwedaWorkflowId' - The @workflowId@ of the workflow execution. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -startChildWorkflowExecutionDecisionAttributes - :: WorkflowType -- ^ 'scwedaWorkflowType' - -> Text -- ^ 'scwedaWorkflowId' - -> StartChildWorkflowExecutionDecisionAttributes -startChildWorkflowExecutionDecisionAttributes pWorkflowType_ pWorkflowId_ = - StartChildWorkflowExecutionDecisionAttributes' - { _scwedaControl = Nothing - , _scwedaTagList = Nothing - , _scwedaTaskStartToCloseTimeout = Nothing - , _scwedaLambdaRole = Nothing - , _scwedaInput = Nothing - , _scwedaExecutionStartToCloseTimeout = Nothing - , _scwedaTaskList = Nothing - , _scwedaTaskPriority = Nothing - , _scwedaChildPolicy = Nothing - , _scwedaWorkflowType = pWorkflowType_ - , _scwedaWorkflowId = pWorkflowId_ - } - - --- | The data attached to the event that can be used by the decider in subsequent workflow tasks. This data isn't sent to the child workflow execution. -scwedaControl :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text) -scwedaControl = lens _scwedaControl (\ s a -> s{_scwedaControl = a}) - --- | The list of tags to associate with the child workflow execution. A maximum of 5 tags can be specified. You can list workflow executions with a specific tag by calling 'ListOpenWorkflowExecutions' or 'ListClosedWorkflowExecutions' and specifying a 'TagFilter' . -scwedaTagList :: Lens' StartChildWorkflowExecutionDecisionAttributes [Text] -scwedaTagList = lens _scwedaTagList (\ s a -> s{_scwedaTagList = a}) . _Default . _Coerce - --- | Specifies the maximum duration of decision tasks for this workflow execution. This parameter overrides the @defaultTaskStartToCloseTimout@ specified when registering the workflow type using 'RegisterWorkflowType' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -scwedaTaskStartToCloseTimeout :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text) -scwedaTaskStartToCloseTimeout = lens _scwedaTaskStartToCloseTimeout (\ s a -> s{_scwedaTaskStartToCloseTimeout = a}) - --- | The IAM role attached to the child workflow execution. -scwedaLambdaRole :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text) -scwedaLambdaRole = lens _scwedaLambdaRole (\ s a -> s{_scwedaLambdaRole = a}) - --- | The input to be provided to the workflow execution. -scwedaInput :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text) -scwedaInput = lens _scwedaInput (\ s a -> s{_scwedaInput = a}) - --- | The total duration for this workflow execution. This overrides the defaultExecutionStartToCloseTimeout specified when registering the workflow type. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -scwedaExecutionStartToCloseTimeout :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text) -scwedaExecutionStartToCloseTimeout = lens _scwedaExecutionStartToCloseTimeout (\ s a -> s{_scwedaExecutionStartToCloseTimeout = a}) - --- | The name of the task list to be used for decision tasks of the child workflow execution. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -scwedaTaskList :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe TaskList) -scwedaTaskList = lens _scwedaTaskList (\ s a -> s{_scwedaTaskList = a}) - --- | A task priority that, if set, specifies the priority for a decision task of this workflow execution. This overrides the defaultTaskPriority specified when registering the workflow type. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . -scwedaTaskPriority :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text) -scwedaTaskPriority = lens _scwedaTaskPriority (\ s a -> s{_scwedaTaskPriority = a}) - --- | If set, specifies the policy to use for the child workflow executions if the workflow execution being started is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This policy overrides the default child policy specified when registering the workflow type using 'RegisterWorkflowType' . The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -scwedaChildPolicy :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe ChildPolicy) -scwedaChildPolicy = lens _scwedaChildPolicy (\ s a -> s{_scwedaChildPolicy = a}) - --- | The type of the workflow execution to be started. -scwedaWorkflowType :: Lens' StartChildWorkflowExecutionDecisionAttributes WorkflowType -scwedaWorkflowType = lens _scwedaWorkflowType (\ s a -> s{_scwedaWorkflowType = a}) - --- | The @workflowId@ of the workflow execution. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -scwedaWorkflowId :: Lens' StartChildWorkflowExecutionDecisionAttributes Text -scwedaWorkflowId = lens _scwedaWorkflowId (\ s a -> s{_scwedaWorkflowId = a}) - -instance Hashable - StartChildWorkflowExecutionDecisionAttributes - where - -instance NFData - StartChildWorkflowExecutionDecisionAttributes - where - -instance ToJSON - StartChildWorkflowExecutionDecisionAttributes - where - toJSON - StartChildWorkflowExecutionDecisionAttributes'{..} - = object - (catMaybes - [("control" .=) <$> _scwedaControl, - ("tagList" .=) <$> _scwedaTagList, - ("taskStartToCloseTimeout" .=) <$> - _scwedaTaskStartToCloseTimeout, - ("lambdaRole" .=) <$> _scwedaLambdaRole, - ("input" .=) <$> _scwedaInput, - ("executionStartToCloseTimeout" .=) <$> - _scwedaExecutionStartToCloseTimeout, - ("taskList" .=) <$> _scwedaTaskList, - ("taskPriority" .=) <$> _scwedaTaskPriority, - ("childPolicy" .=) <$> _scwedaChildPolicy, - Just ("workflowType" .= _scwedaWorkflowType), - Just ("workflowId" .= _scwedaWorkflowId)]) - --- | Provides the details of the @StartChildWorkflowExecutionFailed@ event. --- --- --- --- /See:/ 'startChildWorkflowExecutionFailedEventAttributes' smart constructor. -data StartChildWorkflowExecutionFailedEventAttributes = StartChildWorkflowExecutionFailedEventAttributes' - { _scwefeaControl :: !(Maybe Text) - , _scwefeaWorkflowType :: !WorkflowType - , _scwefeaCause :: !StartChildWorkflowExecutionFailedCause - , _scwefeaWorkflowId :: !Text - , _scwefeaInitiatedEventId :: !Integer - , _scwefeaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StartChildWorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'scwefeaControl' - The data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the child workflow execution. --- --- * 'scwefeaWorkflowType' - The workflow type provided in the @StartChildWorkflowExecution@ 'Decision' that failed. --- --- * 'scwefeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. --- --- * 'scwefeaWorkflowId' - The @workflowId@ of the child workflow execution. --- --- * 'scwefeaInitiatedEventId' - When the @cause@ is @WORKFLOW_ALREADY_RUNNING@ , @initiatedEventId@ is the ID of the @StartChildWorkflowExecutionInitiated@ event that corresponds to the @StartChildWorkflowExecution@ 'Decision' to start the workflow execution. You can use this information to diagnose problems by tracing back the chain of events leading up to this event. When the @cause@ isn't @WORKFLOW_ALREADY_RUNNING@ , @initiatedEventId@ is set to @0@ because the @StartChildWorkflowExecutionInitiated@ event doesn't exist. --- --- * 'scwefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartChildWorkflowExecution@ 'Decision' to request this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events. -startChildWorkflowExecutionFailedEventAttributes - :: WorkflowType -- ^ 'scwefeaWorkflowType' - -> StartChildWorkflowExecutionFailedCause -- ^ 'scwefeaCause' - -> Text -- ^ 'scwefeaWorkflowId' - -> Integer -- ^ 'scwefeaInitiatedEventId' - -> Integer -- ^ 'scwefeaDecisionTaskCompletedEventId' - -> StartChildWorkflowExecutionFailedEventAttributes -startChildWorkflowExecutionFailedEventAttributes pWorkflowType_ pCause_ pWorkflowId_ pInitiatedEventId_ pDecisionTaskCompletedEventId_ = - StartChildWorkflowExecutionFailedEventAttributes' - { _scwefeaControl = Nothing - , _scwefeaWorkflowType = pWorkflowType_ - , _scwefeaCause = pCause_ - , _scwefeaWorkflowId = pWorkflowId_ - , _scwefeaInitiatedEventId = pInitiatedEventId_ - , _scwefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The data attached to the event that the decider can use in subsequent workflow tasks. This data isn't sent to the child workflow execution. -scwefeaControl :: Lens' StartChildWorkflowExecutionFailedEventAttributes (Maybe Text) -scwefeaControl = lens _scwefeaControl (\ s a -> s{_scwefeaControl = a}) - --- | The workflow type provided in the @StartChildWorkflowExecution@ 'Decision' that failed. -scwefeaWorkflowType :: Lens' StartChildWorkflowExecutionFailedEventAttributes WorkflowType -scwefeaWorkflowType = lens _scwefeaWorkflowType (\ s a -> s{_scwefeaWorkflowType = a}) - --- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. -scwefeaCause :: Lens' StartChildWorkflowExecutionFailedEventAttributes StartChildWorkflowExecutionFailedCause -scwefeaCause = lens _scwefeaCause (\ s a -> s{_scwefeaCause = a}) - --- | The @workflowId@ of the child workflow execution. -scwefeaWorkflowId :: Lens' StartChildWorkflowExecutionFailedEventAttributes Text -scwefeaWorkflowId = lens _scwefeaWorkflowId (\ s a -> s{_scwefeaWorkflowId = a}) - --- | When the @cause@ is @WORKFLOW_ALREADY_RUNNING@ , @initiatedEventId@ is the ID of the @StartChildWorkflowExecutionInitiated@ event that corresponds to the @StartChildWorkflowExecution@ 'Decision' to start the workflow execution. You can use this information to diagnose problems by tracing back the chain of events leading up to this event. When the @cause@ isn't @WORKFLOW_ALREADY_RUNNING@ , @initiatedEventId@ is set to @0@ because the @StartChildWorkflowExecutionInitiated@ event doesn't exist. -scwefeaInitiatedEventId :: Lens' StartChildWorkflowExecutionFailedEventAttributes Integer -scwefeaInitiatedEventId = lens _scwefeaInitiatedEventId (\ s a -> s{_scwefeaInitiatedEventId = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartChildWorkflowExecution@ 'Decision' to request this child workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events. -scwefeaDecisionTaskCompletedEventId :: Lens' StartChildWorkflowExecutionFailedEventAttributes Integer -scwefeaDecisionTaskCompletedEventId = lens _scwefeaDecisionTaskCompletedEventId (\ s a -> s{_scwefeaDecisionTaskCompletedEventId = a}) - -instance FromJSON - StartChildWorkflowExecutionFailedEventAttributes - where - parseJSON - = withObject - "StartChildWorkflowExecutionFailedEventAttributes" - (\ x -> - StartChildWorkflowExecutionFailedEventAttributes' <$> - (x .:? "control") <*> (x .: "workflowType") <*> - (x .: "cause") - <*> (x .: "workflowId") - <*> (x .: "initiatedEventId") - <*> (x .: "decisionTaskCompletedEventId")) - -instance Hashable - StartChildWorkflowExecutionFailedEventAttributes - where - -instance NFData - StartChildWorkflowExecutionFailedEventAttributes - where - --- | Provides the details of the @StartChildWorkflowExecutionInitiated@ event. --- --- --- --- /See:/ 'startChildWorkflowExecutionInitiatedEventAttributes' smart constructor. -data StartChildWorkflowExecutionInitiatedEventAttributes = StartChildWorkflowExecutionInitiatedEventAttributes' - { _scweieaControl :: !(Maybe Text) - , _scweieaTagList :: !(Maybe [Text]) - , _scweieaTaskStartToCloseTimeout :: !(Maybe Text) - , _scweieaLambdaRole :: !(Maybe Text) - , _scweieaInput :: !(Maybe Text) - , _scweieaExecutionStartToCloseTimeout :: !(Maybe Text) - , _scweieaTaskPriority :: !(Maybe Text) - , _scweieaWorkflowId :: !Text - , _scweieaWorkflowType :: !WorkflowType - , _scweieaTaskList :: !TaskList - , _scweieaDecisionTaskCompletedEventId :: !Integer - , _scweieaChildPolicy :: !ChildPolicy - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StartChildWorkflowExecutionInitiatedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'scweieaControl' - Data attached to the event that can be used by the decider in subsequent decision tasks. This data isn't sent to the activity. --- --- * 'scweieaTagList' - The list of tags to associated with the child workflow execution. --- --- * 'scweieaTaskStartToCloseTimeout' - The maximum duration allowed for the decision tasks for this workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'scweieaLambdaRole' - The IAM role to attach to the child workflow execution. --- --- * 'scweieaInput' - The inputs provided to the child workflow execution. --- --- * 'scweieaExecutionStartToCloseTimeout' - The maximum duration for the child workflow execution. If the workflow execution isn't closed within this duration, it is timed out and force-terminated. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'scweieaTaskPriority' - The priority assigned for the decision tasks for this workflow execution. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . --- --- * 'scweieaWorkflowId' - The @workflowId@ of the child workflow execution. --- --- * 'scweieaWorkflowType' - The type of the child workflow execution. --- --- * 'scweieaTaskList' - The name of the task list used for the decision tasks of the child workflow execution. --- --- * 'scweieaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartChildWorkflowExecution@ 'Decision' to request this child workflow execution. This information can be useful for diagnosing problems by tracing back the cause of events. --- --- * 'scweieaChildPolicy' - The policy to use for the child workflow executions if this execution gets terminated by explicitly calling the 'TerminateWorkflowExecution' action or due to an expired timeout. The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -startChildWorkflowExecutionInitiatedEventAttributes - :: Text -- ^ 'scweieaWorkflowId' - -> WorkflowType -- ^ 'scweieaWorkflowType' - -> TaskList -- ^ 'scweieaTaskList' - -> Integer -- ^ 'scweieaDecisionTaskCompletedEventId' - -> ChildPolicy -- ^ 'scweieaChildPolicy' - -> StartChildWorkflowExecutionInitiatedEventAttributes -startChildWorkflowExecutionInitiatedEventAttributes pWorkflowId_ pWorkflowType_ pTaskList_ pDecisionTaskCompletedEventId_ pChildPolicy_ = - StartChildWorkflowExecutionInitiatedEventAttributes' - { _scweieaControl = Nothing - , _scweieaTagList = Nothing - , _scweieaTaskStartToCloseTimeout = Nothing - , _scweieaLambdaRole = Nothing - , _scweieaInput = Nothing - , _scweieaExecutionStartToCloseTimeout = Nothing - , _scweieaTaskPriority = Nothing - , _scweieaWorkflowId = pWorkflowId_ - , _scweieaWorkflowType = pWorkflowType_ - , _scweieaTaskList = pTaskList_ - , _scweieaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - , _scweieaChildPolicy = pChildPolicy_ - } - - --- | Data attached to the event that can be used by the decider in subsequent decision tasks. This data isn't sent to the activity. -scweieaControl :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text) -scweieaControl = lens _scweieaControl (\ s a -> s{_scweieaControl = a}) - --- | The list of tags to associated with the child workflow execution. -scweieaTagList :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes [Text] -scweieaTagList = lens _scweieaTagList (\ s a -> s{_scweieaTagList = a}) . _Default . _Coerce - --- | The maximum duration allowed for the decision tasks for this workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -scweieaTaskStartToCloseTimeout :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text) -scweieaTaskStartToCloseTimeout = lens _scweieaTaskStartToCloseTimeout (\ s a -> s{_scweieaTaskStartToCloseTimeout = a}) - --- | The IAM role to attach to the child workflow execution. -scweieaLambdaRole :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text) -scweieaLambdaRole = lens _scweieaLambdaRole (\ s a -> s{_scweieaLambdaRole = a}) - --- | The inputs provided to the child workflow execution. -scweieaInput :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text) -scweieaInput = lens _scweieaInput (\ s a -> s{_scweieaInput = a}) - --- | The maximum duration for the child workflow execution. If the workflow execution isn't closed within this duration, it is timed out and force-terminated. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -scweieaExecutionStartToCloseTimeout :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text) -scweieaExecutionStartToCloseTimeout = lens _scweieaExecutionStartToCloseTimeout (\ s a -> s{_scweieaExecutionStartToCloseTimeout = a}) - --- | The priority assigned for the decision tasks for this workflow execution. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . -scweieaTaskPriority :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text) -scweieaTaskPriority = lens _scweieaTaskPriority (\ s a -> s{_scweieaTaskPriority = a}) - --- | The @workflowId@ of the child workflow execution. -scweieaWorkflowId :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes Text -scweieaWorkflowId = lens _scweieaWorkflowId (\ s a -> s{_scweieaWorkflowId = a}) - --- | The type of the child workflow execution. -scweieaWorkflowType :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes WorkflowType -scweieaWorkflowType = lens _scweieaWorkflowType (\ s a -> s{_scweieaWorkflowType = a}) - --- | The name of the task list used for the decision tasks of the child workflow execution. -scweieaTaskList :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes TaskList -scweieaTaskList = lens _scweieaTaskList (\ s a -> s{_scweieaTaskList = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartChildWorkflowExecution@ 'Decision' to request this child workflow execution. This information can be useful for diagnosing problems by tracing back the cause of events. -scweieaDecisionTaskCompletedEventId :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes Integer -scweieaDecisionTaskCompletedEventId = lens _scweieaDecisionTaskCompletedEventId (\ s a -> s{_scweieaDecisionTaskCompletedEventId = a}) - --- | The policy to use for the child workflow executions if this execution gets terminated by explicitly calling the 'TerminateWorkflowExecution' action or due to an expired timeout. The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -scweieaChildPolicy :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes ChildPolicy -scweieaChildPolicy = lens _scweieaChildPolicy (\ s a -> s{_scweieaChildPolicy = a}) - -instance FromJSON - StartChildWorkflowExecutionInitiatedEventAttributes - where - parseJSON - = withObject - "StartChildWorkflowExecutionInitiatedEventAttributes" - (\ x -> - StartChildWorkflowExecutionInitiatedEventAttributes' - <$> - (x .:? "control") <*> (x .:? "tagList" .!= mempty) - <*> (x .:? "taskStartToCloseTimeout") - <*> (x .:? "lambdaRole") - <*> (x .:? "input") - <*> (x .:? "executionStartToCloseTimeout") - <*> (x .:? "taskPriority") - <*> (x .: "workflowId") - <*> (x .: "workflowType") - <*> (x .: "taskList") - <*> (x .: "decisionTaskCompletedEventId") - <*> (x .: "childPolicy")) - -instance Hashable - StartChildWorkflowExecutionInitiatedEventAttributes - where - -instance NFData - StartChildWorkflowExecutionInitiatedEventAttributes - where - --- | Provides the details of the @StartLambdaFunctionFailed@ event. It isn't set for other event types. --- --- --- --- /See:/ 'startLambdaFunctionFailedEventAttributes' smart constructor. -data StartLambdaFunctionFailedEventAttributes = StartLambdaFunctionFailedEventAttributes' - { _sScheduledEventId :: !(Maybe Integer) - , _sCause :: !(Maybe StartLambdaFunctionFailedCause) - , _sMessage :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StartLambdaFunctionFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sScheduledEventId' - The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event. --- --- * 'sCause' - The cause of the failure. To help diagnose issues, use this information to trace back the chain of events leading up to this event. --- --- * 'sMessage' - A description that can help diagnose the cause of the fault. -startLambdaFunctionFailedEventAttributes - :: StartLambdaFunctionFailedEventAttributes -startLambdaFunctionFailedEventAttributes = - StartLambdaFunctionFailedEventAttributes' - {_sScheduledEventId = Nothing, _sCause = Nothing, _sMessage = Nothing} - - --- | The ID of the @ActivityTaskScheduled@ event that was recorded when this activity task was scheduled. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -sScheduledEventId :: Lens' StartLambdaFunctionFailedEventAttributes (Maybe Integer) -sScheduledEventId = lens _sScheduledEventId (\ s a -> s{_sScheduledEventId = a}) - --- | The cause of the failure. To help diagnose issues, use this information to trace back the chain of events leading up to this event. -sCause :: Lens' StartLambdaFunctionFailedEventAttributes (Maybe StartLambdaFunctionFailedCause) -sCause = lens _sCause (\ s a -> s{_sCause = a}) - --- | A description that can help diagnose the cause of the fault. -sMessage :: Lens' StartLambdaFunctionFailedEventAttributes (Maybe Text) -sMessage = lens _sMessage (\ s a -> s{_sMessage = a}) - -instance FromJSON - StartLambdaFunctionFailedEventAttributes - where - parseJSON - = withObject - "StartLambdaFunctionFailedEventAttributes" - (\ x -> - StartLambdaFunctionFailedEventAttributes' <$> - (x .:? "scheduledEventId") <*> (x .:? "cause") <*> - (x .:? "message")) - -instance Hashable - StartLambdaFunctionFailedEventAttributes - where - -instance NFData - StartLambdaFunctionFailedEventAttributes - where - --- | Provides the details of the @StartTimer@ decision. --- --- --- __Access Control__ --- --- You can use IAM policies to control this decision's access to Amazon SWF resources as follows: --- --- * Use a @Resource@ element with the domain name to limit the action to only specified domains. --- --- * Use an @Action@ element to allow or deny permission to call this action. --- --- * You cannot use an IAM policy to constrain this action's parameters. --- --- --- --- If the caller doesn't have sufficient permissions to invoke the action, or the parameter values fall outside the specified constraints, the action fails. The associated event attribute's @cause@ parameter is set to @OPERATION_NOT_PERMITTED@ . For details and example IAM policies, see in the /Amazon SWF Developer Guide/ . --- --- --- /See:/ 'startTimerDecisionAttributes' smart constructor. -data StartTimerDecisionAttributes = StartTimerDecisionAttributes' - { _stdaControl :: !(Maybe Text) - , _stdaTimerId :: !Text - , _stdaStartToFireTimeout :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StartTimerDecisionAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'stdaControl' - The data attached to the event that can be used by the decider in subsequent workflow tasks. --- --- * 'stdaTimerId' - The unique ID of the timer. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . --- --- * 'stdaStartToFireTimeout' - The duration to wait before firing the timer. The duration is specified in seconds, an integer greater than or equal to @0@ . -startTimerDecisionAttributes - :: Text -- ^ 'stdaTimerId' - -> Text -- ^ 'stdaStartToFireTimeout' - -> StartTimerDecisionAttributes -startTimerDecisionAttributes pTimerId_ pStartToFireTimeout_ = - StartTimerDecisionAttributes' - { _stdaControl = Nothing - , _stdaTimerId = pTimerId_ - , _stdaStartToFireTimeout = pStartToFireTimeout_ - } - - --- | The data attached to the event that can be used by the decider in subsequent workflow tasks. -stdaControl :: Lens' StartTimerDecisionAttributes (Maybe Text) -stdaControl = lens _stdaControl (\ s a -> s{_stdaControl = a}) - --- | The unique ID of the timer. The specified string must not start or end with whitespace. It must not contain a @:@ (colon), @/@ (slash), @|@ (vertical bar), or any control characters (@\u0000-\u001f@ | @\u007f-\u009f@ ). Also, it must not contain the literal string @arn@ . -stdaTimerId :: Lens' StartTimerDecisionAttributes Text -stdaTimerId = lens _stdaTimerId (\ s a -> s{_stdaTimerId = a}) - --- | The duration to wait before firing the timer. The duration is specified in seconds, an integer greater than or equal to @0@ . -stdaStartToFireTimeout :: Lens' StartTimerDecisionAttributes Text -stdaStartToFireTimeout = lens _stdaStartToFireTimeout (\ s a -> s{_stdaStartToFireTimeout = a}) - -instance Hashable StartTimerDecisionAttributes where - -instance NFData StartTimerDecisionAttributes where - -instance ToJSON StartTimerDecisionAttributes where - toJSON StartTimerDecisionAttributes'{..} - = object - (catMaybes - [("control" .=) <$> _stdaControl, - Just ("timerId" .= _stdaTimerId), - Just - ("startToFireTimeout" .= _stdaStartToFireTimeout)]) - --- | Provides the details of the @StartTimerFailed@ event. --- --- --- --- /See:/ 'startTimerFailedEventAttributes' smart constructor. -data StartTimerFailedEventAttributes = StartTimerFailedEventAttributes' - { _stfeaTimerId :: !Text - , _stfeaCause :: !StartTimerFailedCause - , _stfeaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StartTimerFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'stfeaTimerId' - The timerId provided in the @StartTimer@ decision that failed. --- --- * 'stfeaCause' - The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. --- --- * 'stfeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartTimer@ decision for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -startTimerFailedEventAttributes - :: Text -- ^ 'stfeaTimerId' - -> StartTimerFailedCause -- ^ 'stfeaCause' - -> Integer -- ^ 'stfeaDecisionTaskCompletedEventId' - -> StartTimerFailedEventAttributes -startTimerFailedEventAttributes pTimerId_ pCause_ pDecisionTaskCompletedEventId_ = - StartTimerFailedEventAttributes' - { _stfeaTimerId = pTimerId_ - , _stfeaCause = pCause_ - , _stfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The timerId provided in the @StartTimer@ decision that failed. -stfeaTimerId :: Lens' StartTimerFailedEventAttributes Text -stfeaTimerId = lens _stfeaTimerId (\ s a -> s{_stfeaTimerId = a}) - --- | The cause of the failure. This information is generated by the system and can be useful for diagnostic purposes. -stfeaCause :: Lens' StartTimerFailedEventAttributes StartTimerFailedCause -stfeaCause = lens _stfeaCause (\ s a -> s{_stfeaCause = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartTimer@ decision for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -stfeaDecisionTaskCompletedEventId :: Lens' StartTimerFailedEventAttributes Integer -stfeaDecisionTaskCompletedEventId = lens _stfeaDecisionTaskCompletedEventId (\ s a -> s{_stfeaDecisionTaskCompletedEventId = a}) - -instance FromJSON StartTimerFailedEventAttributes - where - parseJSON - = withObject "StartTimerFailedEventAttributes" - (\ x -> - StartTimerFailedEventAttributes' <$> - (x .: "timerId") <*> (x .: "cause") <*> - (x .: "decisionTaskCompletedEventId")) - -instance Hashable StartTimerFailedEventAttributes - where - -instance NFData StartTimerFailedEventAttributes where - --- | Used to filter the workflow executions in visibility APIs based on a tag. --- --- --- --- /See:/ 'tagFilter' smart constructor. -newtype TagFilter = TagFilter' - { _tfTag :: Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TagFilter' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tfTag' - Specifies the tag that must be associated with the execution for it to meet the filter criteria. -tagFilter - :: Text -- ^ 'tfTag' - -> TagFilter -tagFilter pTag_ = TagFilter' {_tfTag = pTag_} - - --- | Specifies the tag that must be associated with the execution for it to meet the filter criteria. -tfTag :: Lens' TagFilter Text -tfTag = lens _tfTag (\ s a -> s{_tfTag = a}) - -instance Hashable TagFilter where - -instance NFData TagFilter where - -instance ToJSON TagFilter where - toJSON TagFilter'{..} - = object (catMaybes [Just ("tag" .= _tfTag)]) - --- | Represents a task list. --- --- --- --- /See:/ 'taskList' smart constructor. -newtype TaskList = TaskList' - { _tlName :: Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TaskList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tlName' - The name of the task list. -taskList - :: Text -- ^ 'tlName' - -> TaskList -taskList pName_ = TaskList' {_tlName = pName_} - - --- | The name of the task list. -tlName :: Lens' TaskList Text -tlName = lens _tlName (\ s a -> s{_tlName = a}) - -instance FromJSON TaskList where - parseJSON - = withObject "TaskList" - (\ x -> TaskList' <$> (x .: "name")) - -instance Hashable TaskList where - -instance NFData TaskList where - -instance ToJSON TaskList where - toJSON TaskList'{..} - = object (catMaybes [Just ("name" .= _tlName)]) - --- | Provides the details of the @TimerCanceled@ event. --- --- --- --- /See:/ 'timerCanceledEventAttributes' smart constructor. -data TimerCanceledEventAttributes = TimerCanceledEventAttributes' - { _tceaTimerId :: !Text - , _tceaStartedEventId :: !Integer - , _tceaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TimerCanceledEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tceaTimerId' - The unique ID of the timer that was canceled. --- --- * 'tceaStartedEventId' - The ID of the @TimerStarted@ event that was recorded when this timer was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'tceaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelTimer@ decision to cancel this timer. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -timerCanceledEventAttributes - :: Text -- ^ 'tceaTimerId' - -> Integer -- ^ 'tceaStartedEventId' - -> Integer -- ^ 'tceaDecisionTaskCompletedEventId' - -> TimerCanceledEventAttributes -timerCanceledEventAttributes pTimerId_ pStartedEventId_ pDecisionTaskCompletedEventId_ = - TimerCanceledEventAttributes' - { _tceaTimerId = pTimerId_ - , _tceaStartedEventId = pStartedEventId_ - , _tceaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The unique ID of the timer that was canceled. -tceaTimerId :: Lens' TimerCanceledEventAttributes Text -tceaTimerId = lens _tceaTimerId (\ s a -> s{_tceaTimerId = a}) - --- | The ID of the @TimerStarted@ event that was recorded when this timer was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -tceaStartedEventId :: Lens' TimerCanceledEventAttributes Integer -tceaStartedEventId = lens _tceaStartedEventId (\ s a -> s{_tceaStartedEventId = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelTimer@ decision to cancel this timer. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -tceaDecisionTaskCompletedEventId :: Lens' TimerCanceledEventAttributes Integer -tceaDecisionTaskCompletedEventId = lens _tceaDecisionTaskCompletedEventId (\ s a -> s{_tceaDecisionTaskCompletedEventId = a}) - -instance FromJSON TimerCanceledEventAttributes where - parseJSON - = withObject "TimerCanceledEventAttributes" - (\ x -> - TimerCanceledEventAttributes' <$> - (x .: "timerId") <*> (x .: "startedEventId") <*> - (x .: "decisionTaskCompletedEventId")) - -instance Hashable TimerCanceledEventAttributes where - -instance NFData TimerCanceledEventAttributes where - --- | Provides the details of the @TimerFired@ event. --- --- --- --- /See:/ 'timerFiredEventAttributes' smart constructor. -data TimerFiredEventAttributes = TimerFiredEventAttributes' - { _tfeaTimerId :: !Text - , _tfeaStartedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TimerFiredEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tfeaTimerId' - The unique ID of the timer that fired. --- --- * 'tfeaStartedEventId' - The ID of the @TimerStarted@ event that was recorded when this timer was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -timerFiredEventAttributes - :: Text -- ^ 'tfeaTimerId' - -> Integer -- ^ 'tfeaStartedEventId' - -> TimerFiredEventAttributes -timerFiredEventAttributes pTimerId_ pStartedEventId_ = - TimerFiredEventAttributes' - {_tfeaTimerId = pTimerId_, _tfeaStartedEventId = pStartedEventId_} - - --- | The unique ID of the timer that fired. -tfeaTimerId :: Lens' TimerFiredEventAttributes Text -tfeaTimerId = lens _tfeaTimerId (\ s a -> s{_tfeaTimerId = a}) - --- | The ID of the @TimerStarted@ event that was recorded when this timer was started. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -tfeaStartedEventId :: Lens' TimerFiredEventAttributes Integer -tfeaStartedEventId = lens _tfeaStartedEventId (\ s a -> s{_tfeaStartedEventId = a}) - -instance FromJSON TimerFiredEventAttributes where - parseJSON - = withObject "TimerFiredEventAttributes" - (\ x -> - TimerFiredEventAttributes' <$> - (x .: "timerId") <*> (x .: "startedEventId")) - -instance Hashable TimerFiredEventAttributes where - -instance NFData TimerFiredEventAttributes where - --- | Provides the details of the @TimerStarted@ event. --- --- --- --- /See:/ 'timerStartedEventAttributes' smart constructor. -data TimerStartedEventAttributes = TimerStartedEventAttributes' - { _tseaControl :: !(Maybe Text) - , _tseaTimerId :: !Text - , _tseaStartToFireTimeout :: !Text - , _tseaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TimerStartedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tseaControl' - Data attached to the event that can be used by the decider in subsequent workflow tasks. --- --- * 'tseaTimerId' - The unique ID of the timer that was started. --- --- * 'tseaStartToFireTimeout' - The duration of time after which the timer fires. The duration is specified in seconds, an integer greater than or equal to @0@ . --- --- * 'tseaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartTimer@ decision for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -timerStartedEventAttributes - :: Text -- ^ 'tseaTimerId' - -> Text -- ^ 'tseaStartToFireTimeout' - -> Integer -- ^ 'tseaDecisionTaskCompletedEventId' - -> TimerStartedEventAttributes -timerStartedEventAttributes pTimerId_ pStartToFireTimeout_ pDecisionTaskCompletedEventId_ = - TimerStartedEventAttributes' - { _tseaControl = Nothing - , _tseaTimerId = pTimerId_ - , _tseaStartToFireTimeout = pStartToFireTimeout_ - , _tseaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | Data attached to the event that can be used by the decider in subsequent workflow tasks. -tseaControl :: Lens' TimerStartedEventAttributes (Maybe Text) -tseaControl = lens _tseaControl (\ s a -> s{_tseaControl = a}) - --- | The unique ID of the timer that was started. -tseaTimerId :: Lens' TimerStartedEventAttributes Text -tseaTimerId = lens _tseaTimerId (\ s a -> s{_tseaTimerId = a}) - --- | The duration of time after which the timer fires. The duration is specified in seconds, an integer greater than or equal to @0@ . -tseaStartToFireTimeout :: Lens' TimerStartedEventAttributes Text -tseaStartToFireTimeout = lens _tseaStartToFireTimeout (\ s a -> s{_tseaStartToFireTimeout = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @StartTimer@ decision for this activity task. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -tseaDecisionTaskCompletedEventId :: Lens' TimerStartedEventAttributes Integer -tseaDecisionTaskCompletedEventId = lens _tseaDecisionTaskCompletedEventId (\ s a -> s{_tseaDecisionTaskCompletedEventId = a}) - -instance FromJSON TimerStartedEventAttributes where - parseJSON - = withObject "TimerStartedEventAttributes" - (\ x -> - TimerStartedEventAttributes' <$> - (x .:? "control") <*> (x .: "timerId") <*> - (x .: "startToFireTimeout") - <*> (x .: "decisionTaskCompletedEventId")) - -instance Hashable TimerStartedEventAttributes where - -instance NFData TimerStartedEventAttributes where - --- | Represents a workflow execution. --- --- --- --- /See:/ 'workflowExecution' smart constructor. -data WorkflowExecution = WorkflowExecution' - { _weWorkflowId :: !Text - , _weRunId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowExecution' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'weWorkflowId' - The user defined identifier associated with the workflow execution. --- --- * 'weRunId' - A system-generated unique identifier for the workflow execution. -workflowExecution - :: Text -- ^ 'weWorkflowId' - -> Text -- ^ 'weRunId' - -> WorkflowExecution -workflowExecution pWorkflowId_ pRunId_ = - WorkflowExecution' {_weWorkflowId = pWorkflowId_, _weRunId = pRunId_} - - --- | The user defined identifier associated with the workflow execution. -weWorkflowId :: Lens' WorkflowExecution Text -weWorkflowId = lens _weWorkflowId (\ s a -> s{_weWorkflowId = a}) - --- | A system-generated unique identifier for the workflow execution. -weRunId :: Lens' WorkflowExecution Text -weRunId = lens _weRunId (\ s a -> s{_weRunId = a}) - -instance FromJSON WorkflowExecution where - parseJSON - = withObject "WorkflowExecution" - (\ x -> - WorkflowExecution' <$> - (x .: "workflowId") <*> (x .: "runId")) - -instance Hashable WorkflowExecution where - -instance NFData WorkflowExecution where - -instance ToJSON WorkflowExecution where - toJSON WorkflowExecution'{..} - = object - (catMaybes - [Just ("workflowId" .= _weWorkflowId), - Just ("runId" .= _weRunId)]) - --- | Provides the details of the @WorkflowExecutionCancelRequested@ event. --- --- --- --- /See:/ 'workflowExecutionCancelRequestedEventAttributes' smart constructor. -data WorkflowExecutionCancelRequestedEventAttributes = WorkflowExecutionCancelRequestedEventAttributes' - { _wecreaExternalWorkflowExecution :: !(Maybe WorkflowExecution) - , _wecreaExternalInitiatedEventId :: !(Maybe Integer) - , _wecreaCause :: !(Maybe WorkflowExecutionCancelRequestedCause) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowExecutionCancelRequestedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'wecreaExternalWorkflowExecution' - The external workflow execution for which the cancellation was requested. --- --- * 'wecreaExternalInitiatedEventId' - The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this workflow execution.The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'wecreaCause' - If set, indicates that the request to cancel the workflow execution was automatically generated, and specifies the cause. This happens if the parent workflow execution times out or is terminated, and the child policy is set to cancel child executions. -workflowExecutionCancelRequestedEventAttributes - :: WorkflowExecutionCancelRequestedEventAttributes -workflowExecutionCancelRequestedEventAttributes = - WorkflowExecutionCancelRequestedEventAttributes' - { _wecreaExternalWorkflowExecution = Nothing - , _wecreaExternalInitiatedEventId = Nothing - , _wecreaCause = Nothing - } - - --- | The external workflow execution for which the cancellation was requested. -wecreaExternalWorkflowExecution :: Lens' WorkflowExecutionCancelRequestedEventAttributes (Maybe WorkflowExecution) -wecreaExternalWorkflowExecution = lens _wecreaExternalWorkflowExecution (\ s a -> s{_wecreaExternalWorkflowExecution = a}) - --- | The ID of the @RequestCancelExternalWorkflowExecutionInitiated@ event corresponding to the @RequestCancelExternalWorkflowExecution@ decision to cancel this workflow execution.The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -wecreaExternalInitiatedEventId :: Lens' WorkflowExecutionCancelRequestedEventAttributes (Maybe Integer) -wecreaExternalInitiatedEventId = lens _wecreaExternalInitiatedEventId (\ s a -> s{_wecreaExternalInitiatedEventId = a}) - --- | If set, indicates that the request to cancel the workflow execution was automatically generated, and specifies the cause. This happens if the parent workflow execution times out or is terminated, and the child policy is set to cancel child executions. -wecreaCause :: Lens' WorkflowExecutionCancelRequestedEventAttributes (Maybe WorkflowExecutionCancelRequestedCause) -wecreaCause = lens _wecreaCause (\ s a -> s{_wecreaCause = a}) - -instance FromJSON - WorkflowExecutionCancelRequestedEventAttributes - where - parseJSON - = withObject - "WorkflowExecutionCancelRequestedEventAttributes" - (\ x -> - WorkflowExecutionCancelRequestedEventAttributes' <$> - (x .:? "externalWorkflowExecution") <*> - (x .:? "externalInitiatedEventId") - <*> (x .:? "cause")) - -instance Hashable - WorkflowExecutionCancelRequestedEventAttributes - where - -instance NFData - WorkflowExecutionCancelRequestedEventAttributes - where - --- | Provides the details of the @WorkflowExecutionCanceled@ event. --- --- --- --- /See:/ 'workflowExecutionCanceledEventAttributes' smart constructor. -data WorkflowExecutionCanceledEventAttributes = WorkflowExecutionCanceledEventAttributes' - { _wDetails :: !(Maybe Text) - , _wDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowExecutionCanceledEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'wDetails' - The details of the cancellation. --- --- * 'wDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -workflowExecutionCanceledEventAttributes - :: Integer -- ^ 'wDecisionTaskCompletedEventId' - -> WorkflowExecutionCanceledEventAttributes -workflowExecutionCanceledEventAttributes pDecisionTaskCompletedEventId_ = - WorkflowExecutionCanceledEventAttributes' - { _wDetails = Nothing - , _wDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The details of the cancellation. -wDetails :: Lens' WorkflowExecutionCanceledEventAttributes (Maybe Text) -wDetails = lens _wDetails (\ s a -> s{_wDetails = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CancelWorkflowExecution@ decision for this cancellation request. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -wDecisionTaskCompletedEventId :: Lens' WorkflowExecutionCanceledEventAttributes Integer -wDecisionTaskCompletedEventId = lens _wDecisionTaskCompletedEventId (\ s a -> s{_wDecisionTaskCompletedEventId = a}) - -instance FromJSON - WorkflowExecutionCanceledEventAttributes - where - parseJSON - = withObject - "WorkflowExecutionCanceledEventAttributes" - (\ x -> - WorkflowExecutionCanceledEventAttributes' <$> - (x .:? "details") <*> - (x .: "decisionTaskCompletedEventId")) - -instance Hashable - WorkflowExecutionCanceledEventAttributes - where - -instance NFData - WorkflowExecutionCanceledEventAttributes - where - --- | Provides the details of the @WorkflowExecutionCompleted@ event. --- --- --- --- /See:/ 'workflowExecutionCompletedEventAttributes' smart constructor. -data WorkflowExecutionCompletedEventAttributes = WorkflowExecutionCompletedEventAttributes' - { _weceaResult :: !(Maybe Text) - , _weceaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowExecutionCompletedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'weceaResult' - The result produced by the workflow execution upon successful completion. --- --- * 'weceaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CompleteWorkflowExecution@ decision to complete this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -workflowExecutionCompletedEventAttributes - :: Integer -- ^ 'weceaDecisionTaskCompletedEventId' - -> WorkflowExecutionCompletedEventAttributes -workflowExecutionCompletedEventAttributes pDecisionTaskCompletedEventId_ = - WorkflowExecutionCompletedEventAttributes' - { _weceaResult = Nothing - , _weceaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The result produced by the workflow execution upon successful completion. -weceaResult :: Lens' WorkflowExecutionCompletedEventAttributes (Maybe Text) -weceaResult = lens _weceaResult (\ s a -> s{_weceaResult = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @CompleteWorkflowExecution@ decision to complete this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -weceaDecisionTaskCompletedEventId :: Lens' WorkflowExecutionCompletedEventAttributes Integer -weceaDecisionTaskCompletedEventId = lens _weceaDecisionTaskCompletedEventId (\ s a -> s{_weceaDecisionTaskCompletedEventId = a}) - -instance FromJSON - WorkflowExecutionCompletedEventAttributes - where - parseJSON - = withObject - "WorkflowExecutionCompletedEventAttributes" - (\ x -> - WorkflowExecutionCompletedEventAttributes' <$> - (x .:? "result") <*> - (x .: "decisionTaskCompletedEventId")) - -instance Hashable - WorkflowExecutionCompletedEventAttributes - where - -instance NFData - WorkflowExecutionCompletedEventAttributes - where - --- | The configuration settings for a workflow execution including timeout values, tasklist etc. These configuration settings are determined from the defaults specified when registering the workflow type and those specified when starting the workflow execution. --- --- --- --- /See:/ 'workflowExecutionConfiguration' smart constructor. -data WorkflowExecutionConfiguration = WorkflowExecutionConfiguration' - { _wecLambdaRole :: !(Maybe Text) - , _wecTaskPriority :: !(Maybe Text) - , _wecTaskStartToCloseTimeout :: !Text - , _wecExecutionStartToCloseTimeout :: !Text - , _wecTaskList :: !TaskList - , _wecChildPolicy :: !ChildPolicy - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowExecutionConfiguration' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'wecLambdaRole' - The IAM role attached to the child workflow execution. --- --- * 'wecTaskPriority' - The priority assigned to decision tasks for this workflow execution. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . --- --- * 'wecTaskStartToCloseTimeout' - The maximum duration allowed for decision tasks for this workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'wecExecutionStartToCloseTimeout' - The total duration for this workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'wecTaskList' - The task list used for the decision tasks generated for this workflow execution. --- --- * 'wecChildPolicy' - The policy to use for the child workflow executions if this workflow execution is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -workflowExecutionConfiguration - :: Text -- ^ 'wecTaskStartToCloseTimeout' - -> Text -- ^ 'wecExecutionStartToCloseTimeout' - -> TaskList -- ^ 'wecTaskList' - -> ChildPolicy -- ^ 'wecChildPolicy' - -> WorkflowExecutionConfiguration -workflowExecutionConfiguration pTaskStartToCloseTimeout_ pExecutionStartToCloseTimeout_ pTaskList_ pChildPolicy_ = - WorkflowExecutionConfiguration' - { _wecLambdaRole = Nothing - , _wecTaskPriority = Nothing - , _wecTaskStartToCloseTimeout = pTaskStartToCloseTimeout_ - , _wecExecutionStartToCloseTimeout = pExecutionStartToCloseTimeout_ - , _wecTaskList = pTaskList_ - , _wecChildPolicy = pChildPolicy_ - } - - --- | The IAM role attached to the child workflow execution. -wecLambdaRole :: Lens' WorkflowExecutionConfiguration (Maybe Text) -wecLambdaRole = lens _wecLambdaRole (\ s a -> s{_wecLambdaRole = a}) - --- | The priority assigned to decision tasks for this workflow execution. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . -wecTaskPriority :: Lens' WorkflowExecutionConfiguration (Maybe Text) -wecTaskPriority = lens _wecTaskPriority (\ s a -> s{_wecTaskPriority = a}) - --- | The maximum duration allowed for decision tasks for this workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -wecTaskStartToCloseTimeout :: Lens' WorkflowExecutionConfiguration Text -wecTaskStartToCloseTimeout = lens _wecTaskStartToCloseTimeout (\ s a -> s{_wecTaskStartToCloseTimeout = a}) - --- | The total duration for this workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -wecExecutionStartToCloseTimeout :: Lens' WorkflowExecutionConfiguration Text -wecExecutionStartToCloseTimeout = lens _wecExecutionStartToCloseTimeout (\ s a -> s{_wecExecutionStartToCloseTimeout = a}) - --- | The task list used for the decision tasks generated for this workflow execution. -wecTaskList :: Lens' WorkflowExecutionConfiguration TaskList -wecTaskList = lens _wecTaskList (\ s a -> s{_wecTaskList = a}) - --- | The policy to use for the child workflow executions if this workflow execution is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -wecChildPolicy :: Lens' WorkflowExecutionConfiguration ChildPolicy -wecChildPolicy = lens _wecChildPolicy (\ s a -> s{_wecChildPolicy = a}) - -instance FromJSON WorkflowExecutionConfiguration - where - parseJSON - = withObject "WorkflowExecutionConfiguration" - (\ x -> - WorkflowExecutionConfiguration' <$> - (x .:? "lambdaRole") <*> (x .:? "taskPriority") <*> - (x .: "taskStartToCloseTimeout") - <*> (x .: "executionStartToCloseTimeout") - <*> (x .: "taskList") - <*> (x .: "childPolicy")) - -instance Hashable WorkflowExecutionConfiguration - where - -instance NFData WorkflowExecutionConfiguration where - --- | Provides the details of the @WorkflowExecutionContinuedAsNew@ event. --- --- --- --- /See:/ 'workflowExecutionContinuedAsNewEventAttributes' smart constructor. -data WorkflowExecutionContinuedAsNewEventAttributes = WorkflowExecutionContinuedAsNewEventAttributes' - { _wecaneaTagList :: !(Maybe [Text]) - , _wecaneaTaskStartToCloseTimeout :: !(Maybe Text) - , _wecaneaLambdaRole :: !(Maybe Text) - , _wecaneaInput :: !(Maybe Text) - , _wecaneaExecutionStartToCloseTimeout :: !(Maybe Text) - , _wecaneaTaskPriority :: !(Maybe Text) - , _wecaneaDecisionTaskCompletedEventId :: !Integer - , _wecaneaNewExecutionRunId :: !Text - , _wecaneaTaskList :: !TaskList - , _wecaneaChildPolicy :: !ChildPolicy - , _wecaneaWorkflowType :: !WorkflowType - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowExecutionContinuedAsNewEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'wecaneaTagList' - The list of tags associated with the new workflow execution. --- --- * 'wecaneaTaskStartToCloseTimeout' - The maximum duration of decision tasks for the new workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'wecaneaLambdaRole' - The IAM role to attach to the new (continued) workflow execution. --- --- * 'wecaneaInput' - The input provided to the new workflow execution. --- --- * 'wecaneaExecutionStartToCloseTimeout' - The total duration allowed for the new workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'wecaneaTaskPriority' - The priority of the task to use for the decisions of the new (continued) workflow execution. --- --- * 'wecaneaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @ContinueAsNewWorkflowExecution@ decision that started this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'wecaneaNewExecutionRunId' - The @runId@ of the new workflow execution. --- --- * 'wecaneaTaskList' - The task list to use for the decisions of the new (continued) workflow execution. --- --- * 'wecaneaChildPolicy' - The policy to use for the child workflow executions of the new execution if it is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. --- --- * 'wecaneaWorkflowType' - The workflow type of this execution. -workflowExecutionContinuedAsNewEventAttributes - :: Integer -- ^ 'wecaneaDecisionTaskCompletedEventId' - -> Text -- ^ 'wecaneaNewExecutionRunId' - -> TaskList -- ^ 'wecaneaTaskList' - -> ChildPolicy -- ^ 'wecaneaChildPolicy' - -> WorkflowType -- ^ 'wecaneaWorkflowType' - -> WorkflowExecutionContinuedAsNewEventAttributes -workflowExecutionContinuedAsNewEventAttributes pDecisionTaskCompletedEventId_ pNewExecutionRunId_ pTaskList_ pChildPolicy_ pWorkflowType_ = - WorkflowExecutionContinuedAsNewEventAttributes' - { _wecaneaTagList = Nothing - , _wecaneaTaskStartToCloseTimeout = Nothing - , _wecaneaLambdaRole = Nothing - , _wecaneaInput = Nothing - , _wecaneaExecutionStartToCloseTimeout = Nothing - , _wecaneaTaskPriority = Nothing - , _wecaneaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - , _wecaneaNewExecutionRunId = pNewExecutionRunId_ - , _wecaneaTaskList = pTaskList_ - , _wecaneaChildPolicy = pChildPolicy_ - , _wecaneaWorkflowType = pWorkflowType_ - } - - --- | The list of tags associated with the new workflow execution. -wecaneaTagList :: Lens' WorkflowExecutionContinuedAsNewEventAttributes [Text] -wecaneaTagList = lens _wecaneaTagList (\ s a -> s{_wecaneaTagList = a}) . _Default . _Coerce - --- | The maximum duration of decision tasks for the new workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -wecaneaTaskStartToCloseTimeout :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text) -wecaneaTaskStartToCloseTimeout = lens _wecaneaTaskStartToCloseTimeout (\ s a -> s{_wecaneaTaskStartToCloseTimeout = a}) - --- | The IAM role to attach to the new (continued) workflow execution. -wecaneaLambdaRole :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text) -wecaneaLambdaRole = lens _wecaneaLambdaRole (\ s a -> s{_wecaneaLambdaRole = a}) - --- | The input provided to the new workflow execution. -wecaneaInput :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text) -wecaneaInput = lens _wecaneaInput (\ s a -> s{_wecaneaInput = a}) - --- | The total duration allowed for the new workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -wecaneaExecutionStartToCloseTimeout :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text) -wecaneaExecutionStartToCloseTimeout = lens _wecaneaExecutionStartToCloseTimeout (\ s a -> s{_wecaneaExecutionStartToCloseTimeout = a}) - --- | The priority of the task to use for the decisions of the new (continued) workflow execution. -wecaneaTaskPriority :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text) -wecaneaTaskPriority = lens _wecaneaTaskPriority (\ s a -> s{_wecaneaTaskPriority = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @ContinueAsNewWorkflowExecution@ decision that started this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -wecaneaDecisionTaskCompletedEventId :: Lens' WorkflowExecutionContinuedAsNewEventAttributes Integer -wecaneaDecisionTaskCompletedEventId = lens _wecaneaDecisionTaskCompletedEventId (\ s a -> s{_wecaneaDecisionTaskCompletedEventId = a}) - --- | The @runId@ of the new workflow execution. -wecaneaNewExecutionRunId :: Lens' WorkflowExecutionContinuedAsNewEventAttributes Text -wecaneaNewExecutionRunId = lens _wecaneaNewExecutionRunId (\ s a -> s{_wecaneaNewExecutionRunId = a}) - --- | The task list to use for the decisions of the new (continued) workflow execution. -wecaneaTaskList :: Lens' WorkflowExecutionContinuedAsNewEventAttributes TaskList -wecaneaTaskList = lens _wecaneaTaskList (\ s a -> s{_wecaneaTaskList = a}) - --- | The policy to use for the child workflow executions of the new execution if it is terminated by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -wecaneaChildPolicy :: Lens' WorkflowExecutionContinuedAsNewEventAttributes ChildPolicy -wecaneaChildPolicy = lens _wecaneaChildPolicy (\ s a -> s{_wecaneaChildPolicy = a}) - --- | The workflow type of this execution. -wecaneaWorkflowType :: Lens' WorkflowExecutionContinuedAsNewEventAttributes WorkflowType -wecaneaWorkflowType = lens _wecaneaWorkflowType (\ s a -> s{_wecaneaWorkflowType = a}) - -instance FromJSON - WorkflowExecutionContinuedAsNewEventAttributes - where - parseJSON - = withObject - "WorkflowExecutionContinuedAsNewEventAttributes" - (\ x -> - WorkflowExecutionContinuedAsNewEventAttributes' <$> - (x .:? "tagList" .!= mempty) <*> - (x .:? "taskStartToCloseTimeout") - <*> (x .:? "lambdaRole") - <*> (x .:? "input") - <*> (x .:? "executionStartToCloseTimeout") - <*> (x .:? "taskPriority") - <*> (x .: "decisionTaskCompletedEventId") - <*> (x .: "newExecutionRunId") - <*> (x .: "taskList") - <*> (x .: "childPolicy") - <*> (x .: "workflowType")) - -instance Hashable - WorkflowExecutionContinuedAsNewEventAttributes - where - -instance NFData - WorkflowExecutionContinuedAsNewEventAttributes - where - --- | Contains the count of workflow executions returned from 'CountOpenWorkflowExecutions' or 'CountClosedWorkflowExecutions' --- --- --- --- /See:/ 'workflowExecutionCount' smart constructor. -data WorkflowExecutionCount = WorkflowExecutionCount' - { _wecTruncated :: !(Maybe Bool) - , _wecCount :: !Nat - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowExecutionCount' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'wecTruncated' - If set to true, indicates that the actual count was more than the maximum supported by this API and the count returned is the truncated value. --- --- * 'wecCount' - The number of workflow executions. -workflowExecutionCount - :: Natural -- ^ 'wecCount' - -> WorkflowExecutionCount -workflowExecutionCount pCount_ = - WorkflowExecutionCount' {_wecTruncated = Nothing, _wecCount = _Nat # pCount_} - - --- | If set to true, indicates that the actual count was more than the maximum supported by this API and the count returned is the truncated value. -wecTruncated :: Lens' WorkflowExecutionCount (Maybe Bool) -wecTruncated = lens _wecTruncated (\ s a -> s{_wecTruncated = a}) - --- | The number of workflow executions. -wecCount :: Lens' WorkflowExecutionCount Natural -wecCount = lens _wecCount (\ s a -> s{_wecCount = a}) . _Nat - -instance FromJSON WorkflowExecutionCount where - parseJSON - = withObject "WorkflowExecutionCount" - (\ x -> - WorkflowExecutionCount' <$> - (x .:? "truncated") <*> (x .: "count")) - -instance Hashable WorkflowExecutionCount where - -instance NFData WorkflowExecutionCount where - --- | Provides the details of the @WorkflowExecutionFailed@ event. --- --- --- --- /See:/ 'workflowExecutionFailedEventAttributes' smart constructor. -data WorkflowExecutionFailedEventAttributes = WorkflowExecutionFailedEventAttributes' - { _wefeaReason :: !(Maybe Text) - , _wefeaDetails :: !(Maybe Text) - , _wefeaDecisionTaskCompletedEventId :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowExecutionFailedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'wefeaReason' - The descriptive reason provided for the failure. --- --- * 'wefeaDetails' - The details of the failure. --- --- * 'wefeaDecisionTaskCompletedEventId' - The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @FailWorkflowExecution@ decision to fail this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -workflowExecutionFailedEventAttributes - :: Integer -- ^ 'wefeaDecisionTaskCompletedEventId' - -> WorkflowExecutionFailedEventAttributes -workflowExecutionFailedEventAttributes pDecisionTaskCompletedEventId_ = - WorkflowExecutionFailedEventAttributes' - { _wefeaReason = Nothing - , _wefeaDetails = Nothing - , _wefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_ - } - - --- | The descriptive reason provided for the failure. -wefeaReason :: Lens' WorkflowExecutionFailedEventAttributes (Maybe Text) -wefeaReason = lens _wefeaReason (\ s a -> s{_wefeaReason = a}) - --- | The details of the failure. -wefeaDetails :: Lens' WorkflowExecutionFailedEventAttributes (Maybe Text) -wefeaDetails = lens _wefeaDetails (\ s a -> s{_wefeaDetails = a}) - --- | The ID of the @DecisionTaskCompleted@ event corresponding to the decision task that resulted in the @FailWorkflowExecution@ decision to fail this execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -wefeaDecisionTaskCompletedEventId :: Lens' WorkflowExecutionFailedEventAttributes Integer -wefeaDecisionTaskCompletedEventId = lens _wefeaDecisionTaskCompletedEventId (\ s a -> s{_wefeaDecisionTaskCompletedEventId = a}) - -instance FromJSON - WorkflowExecutionFailedEventAttributes - where - parseJSON - = withObject "WorkflowExecutionFailedEventAttributes" - (\ x -> - WorkflowExecutionFailedEventAttributes' <$> - (x .:? "reason") <*> (x .:? "details") <*> - (x .: "decisionTaskCompletedEventId")) - -instance Hashable - WorkflowExecutionFailedEventAttributes - where - -instance NFData - WorkflowExecutionFailedEventAttributes - where - --- | Used to filter the workflow executions in visibility APIs by their @workflowId@ . --- --- --- --- /See:/ 'workflowExecutionFilter' smart constructor. -newtype WorkflowExecutionFilter = WorkflowExecutionFilter' - { _wefWorkflowId :: Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowExecutionFilter' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'wefWorkflowId' - The workflowId to pass of match the criteria of this filter. -workflowExecutionFilter - :: Text -- ^ 'wefWorkflowId' - -> WorkflowExecutionFilter -workflowExecutionFilter pWorkflowId_ = - WorkflowExecutionFilter' {_wefWorkflowId = pWorkflowId_} - - --- | The workflowId to pass of match the criteria of this filter. -wefWorkflowId :: Lens' WorkflowExecutionFilter Text -wefWorkflowId = lens _wefWorkflowId (\ s a -> s{_wefWorkflowId = a}) - -instance Hashable WorkflowExecutionFilter where - -instance NFData WorkflowExecutionFilter where - -instance ToJSON WorkflowExecutionFilter where - toJSON WorkflowExecutionFilter'{..} - = object - (catMaybes [Just ("workflowId" .= _wefWorkflowId)]) - --- | Contains information about a workflow execution. --- --- --- --- /See:/ 'workflowExecutionInfo' smart constructor. -data WorkflowExecutionInfo = WorkflowExecutionInfo' - { _weiParent :: !(Maybe WorkflowExecution) - , _weiTagList :: !(Maybe [Text]) - , _weiCloseStatus :: !(Maybe CloseStatus) - , _weiCloseTimestamp :: !(Maybe POSIX) - , _weiCancelRequested :: !(Maybe Bool) - , _weiExecution :: !WorkflowExecution - , _weiWorkflowType :: !WorkflowType - , _weiStartTimestamp :: !POSIX - , _weiExecutionStatus :: !ExecutionStatus - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowExecutionInfo' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'weiParent' - If this workflow execution is a child of another execution then contains the workflow execution that started this execution. --- --- * 'weiTagList' - The list of tags associated with the workflow execution. Tags can be used to identify and list workflow executions of interest through the visibility APIs. A workflow execution can have a maximum of 5 tags. --- --- * 'weiCloseStatus' - If the execution status is closed then this specifies how the execution was closed: * @COMPLETED@ – the execution was successfully completed. * @CANCELED@ – the execution was canceled.Cancellation allows the implementation to gracefully clean up before the execution is closed. * @TERMINATED@ – the execution was force terminated. * @FAILED@ – the execution failed to complete. * @TIMED_OUT@ – the execution did not complete in the alloted time and was automatically timed out. * @CONTINUED_AS_NEW@ – the execution is logically continued. This means the current execution was completed and a new execution was started to carry on the workflow. --- --- * 'weiCloseTimestamp' - The time when the workflow execution was closed. Set only if the execution status is CLOSED. --- --- * 'weiCancelRequested' - Set to true if a cancellation is requested for this workflow execution. --- --- * 'weiExecution' - The workflow execution this information is about. --- --- * 'weiWorkflowType' - The type of the workflow execution. --- --- * 'weiStartTimestamp' - The time when the execution was started. --- --- * 'weiExecutionStatus' - The current status of the execution. -workflowExecutionInfo - :: WorkflowExecution -- ^ 'weiExecution' - -> WorkflowType -- ^ 'weiWorkflowType' - -> UTCTime -- ^ 'weiStartTimestamp' - -> ExecutionStatus -- ^ 'weiExecutionStatus' - -> WorkflowExecutionInfo -workflowExecutionInfo pExecution_ pWorkflowType_ pStartTimestamp_ pExecutionStatus_ = - WorkflowExecutionInfo' - { _weiParent = Nothing - , _weiTagList = Nothing - , _weiCloseStatus = Nothing - , _weiCloseTimestamp = Nothing - , _weiCancelRequested = Nothing - , _weiExecution = pExecution_ - , _weiWorkflowType = pWorkflowType_ - , _weiStartTimestamp = _Time # pStartTimestamp_ - , _weiExecutionStatus = pExecutionStatus_ - } - - --- | If this workflow execution is a child of another execution then contains the workflow execution that started this execution. -weiParent :: Lens' WorkflowExecutionInfo (Maybe WorkflowExecution) -weiParent = lens _weiParent (\ s a -> s{_weiParent = a}) - --- | The list of tags associated with the workflow execution. Tags can be used to identify and list workflow executions of interest through the visibility APIs. A workflow execution can have a maximum of 5 tags. -weiTagList :: Lens' WorkflowExecutionInfo [Text] -weiTagList = lens _weiTagList (\ s a -> s{_weiTagList = a}) . _Default . _Coerce - --- | If the execution status is closed then this specifies how the execution was closed: * @COMPLETED@ – the execution was successfully completed. * @CANCELED@ – the execution was canceled.Cancellation allows the implementation to gracefully clean up before the execution is closed. * @TERMINATED@ – the execution was force terminated. * @FAILED@ – the execution failed to complete. * @TIMED_OUT@ – the execution did not complete in the alloted time and was automatically timed out. * @CONTINUED_AS_NEW@ – the execution is logically continued. This means the current execution was completed and a new execution was started to carry on the workflow. -weiCloseStatus :: Lens' WorkflowExecutionInfo (Maybe CloseStatus) -weiCloseStatus = lens _weiCloseStatus (\ s a -> s{_weiCloseStatus = a}) - --- | The time when the workflow execution was closed. Set only if the execution status is CLOSED. -weiCloseTimestamp :: Lens' WorkflowExecutionInfo (Maybe UTCTime) -weiCloseTimestamp = lens _weiCloseTimestamp (\ s a -> s{_weiCloseTimestamp = a}) . mapping _Time - --- | Set to true if a cancellation is requested for this workflow execution. -weiCancelRequested :: Lens' WorkflowExecutionInfo (Maybe Bool) -weiCancelRequested = lens _weiCancelRequested (\ s a -> s{_weiCancelRequested = a}) - --- | The workflow execution this information is about. -weiExecution :: Lens' WorkflowExecutionInfo WorkflowExecution -weiExecution = lens _weiExecution (\ s a -> s{_weiExecution = a}) - --- | The type of the workflow execution. -weiWorkflowType :: Lens' WorkflowExecutionInfo WorkflowType -weiWorkflowType = lens _weiWorkflowType (\ s a -> s{_weiWorkflowType = a}) - --- | The time when the execution was started. -weiStartTimestamp :: Lens' WorkflowExecutionInfo UTCTime -weiStartTimestamp = lens _weiStartTimestamp (\ s a -> s{_weiStartTimestamp = a}) . _Time - --- | The current status of the execution. -weiExecutionStatus :: Lens' WorkflowExecutionInfo ExecutionStatus -weiExecutionStatus = lens _weiExecutionStatus (\ s a -> s{_weiExecutionStatus = a}) - -instance FromJSON WorkflowExecutionInfo where - parseJSON - = withObject "WorkflowExecutionInfo" - (\ x -> - WorkflowExecutionInfo' <$> - (x .:? "parent") <*> (x .:? "tagList" .!= mempty) <*> - (x .:? "closeStatus") - <*> (x .:? "closeTimestamp") - <*> (x .:? "cancelRequested") - <*> (x .: "execution") - <*> (x .: "workflowType") - <*> (x .: "startTimestamp") - <*> (x .: "executionStatus")) - -instance Hashable WorkflowExecutionInfo where - -instance NFData WorkflowExecutionInfo where - --- | Contains a paginated list of information about workflow executions. --- --- --- --- /See:/ 'workflowExecutionInfos' smart constructor. -data WorkflowExecutionInfos = WorkflowExecutionInfos' - { _weiNextPageToken :: !(Maybe Text) - , _weiExecutionInfos :: ![WorkflowExecutionInfo] - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowExecutionInfos' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'weiNextPageToken' - If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. --- --- * 'weiExecutionInfos' - The list of workflow information structures. -workflowExecutionInfos - :: WorkflowExecutionInfos -workflowExecutionInfos = - WorkflowExecutionInfos' - {_weiNextPageToken = Nothing, _weiExecutionInfos = mempty} - - --- | If a @NextPageToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @nextPageToken@ . Keep all other arguments unchanged. The configured @maximumPageSize@ determines how many results can be returned in a single call. -weiNextPageToken :: Lens' WorkflowExecutionInfos (Maybe Text) -weiNextPageToken = lens _weiNextPageToken (\ s a -> s{_weiNextPageToken = a}) - --- | The list of workflow information structures. -weiExecutionInfos :: Lens' WorkflowExecutionInfos [WorkflowExecutionInfo] -weiExecutionInfos = lens _weiExecutionInfos (\ s a -> s{_weiExecutionInfos = a}) . _Coerce - -instance FromJSON WorkflowExecutionInfos where - parseJSON - = withObject "WorkflowExecutionInfos" - (\ x -> - WorkflowExecutionInfos' <$> - (x .:? "nextPageToken") <*> - (x .:? "executionInfos" .!= mempty)) - -instance Hashable WorkflowExecutionInfos where - -instance NFData WorkflowExecutionInfos where - --- | Contains the counts of open tasks, child workflow executions and timers for a workflow execution. --- --- --- --- /See:/ 'workflowExecutionOpenCounts' smart constructor. -data WorkflowExecutionOpenCounts = WorkflowExecutionOpenCounts' - { _weocOpenLambdaFunctions :: !(Maybe Nat) - , _weocOpenActivityTasks :: !Nat - , _weocOpenDecisionTasks :: !Nat - , _weocOpenTimers :: !Nat - , _weocOpenChildWorkflowExecutions :: !Nat - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowExecutionOpenCounts' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'weocOpenLambdaFunctions' - The count of Lambda tasks whose status is @OPEN@ . --- --- * 'weocOpenActivityTasks' - The count of activity tasks whose status is @OPEN@ . --- --- * 'weocOpenDecisionTasks' - The count of decision tasks whose status is OPEN. A workflow execution can have at most one open decision task. --- --- * 'weocOpenTimers' - The count of timers started by this workflow execution that have not fired yet. --- --- * 'weocOpenChildWorkflowExecutions' - The count of child workflow executions whose status is @OPEN@ . -workflowExecutionOpenCounts - :: Natural -- ^ 'weocOpenActivityTasks' - -> Natural -- ^ 'weocOpenDecisionTasks' - -> Natural -- ^ 'weocOpenTimers' - -> Natural -- ^ 'weocOpenChildWorkflowExecutions' - -> WorkflowExecutionOpenCounts -workflowExecutionOpenCounts pOpenActivityTasks_ pOpenDecisionTasks_ pOpenTimers_ pOpenChildWorkflowExecutions_ = - WorkflowExecutionOpenCounts' - { _weocOpenLambdaFunctions = Nothing - , _weocOpenActivityTasks = _Nat # pOpenActivityTasks_ - , _weocOpenDecisionTasks = _Nat # pOpenDecisionTasks_ - , _weocOpenTimers = _Nat # pOpenTimers_ - , _weocOpenChildWorkflowExecutions = _Nat # pOpenChildWorkflowExecutions_ - } - - --- | The count of Lambda tasks whose status is @OPEN@ . -weocOpenLambdaFunctions :: Lens' WorkflowExecutionOpenCounts (Maybe Natural) -weocOpenLambdaFunctions = lens _weocOpenLambdaFunctions (\ s a -> s{_weocOpenLambdaFunctions = a}) . mapping _Nat - --- | The count of activity tasks whose status is @OPEN@ . -weocOpenActivityTasks :: Lens' WorkflowExecutionOpenCounts Natural -weocOpenActivityTasks = lens _weocOpenActivityTasks (\ s a -> s{_weocOpenActivityTasks = a}) . _Nat - --- | The count of decision tasks whose status is OPEN. A workflow execution can have at most one open decision task. -weocOpenDecisionTasks :: Lens' WorkflowExecutionOpenCounts Natural -weocOpenDecisionTasks = lens _weocOpenDecisionTasks (\ s a -> s{_weocOpenDecisionTasks = a}) . _Nat - --- | The count of timers started by this workflow execution that have not fired yet. -weocOpenTimers :: Lens' WorkflowExecutionOpenCounts Natural -weocOpenTimers = lens _weocOpenTimers (\ s a -> s{_weocOpenTimers = a}) . _Nat - --- | The count of child workflow executions whose status is @OPEN@ . -weocOpenChildWorkflowExecutions :: Lens' WorkflowExecutionOpenCounts Natural -weocOpenChildWorkflowExecutions = lens _weocOpenChildWorkflowExecutions (\ s a -> s{_weocOpenChildWorkflowExecutions = a}) . _Nat - -instance FromJSON WorkflowExecutionOpenCounts where - parseJSON - = withObject "WorkflowExecutionOpenCounts" - (\ x -> - WorkflowExecutionOpenCounts' <$> - (x .:? "openLambdaFunctions") <*> - (x .: "openActivityTasks") - <*> (x .: "openDecisionTasks") - <*> (x .: "openTimers") - <*> (x .: "openChildWorkflowExecutions")) - -instance Hashable WorkflowExecutionOpenCounts where - -instance NFData WorkflowExecutionOpenCounts where - --- | Provides the details of the @WorkflowExecutionSignaled@ event. --- --- --- --- /See:/ 'workflowExecutionSignaledEventAttributes' smart constructor. -data WorkflowExecutionSignaledEventAttributes = WorkflowExecutionSignaledEventAttributes' - { _wExternalWorkflowExecution :: !(Maybe WorkflowExecution) - , _wExternalInitiatedEventId :: !(Maybe Integer) - , _wInput :: !(Maybe Text) - , _wSignalName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowExecutionSignaledEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'wExternalWorkflowExecution' - The workflow execution that sent the signal. This is set only of the signal was sent by another workflow execution. --- --- * 'wExternalInitiatedEventId' - The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflow@ decision to signal this workflow execution.The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. This field is set only if the signal was initiated by another workflow execution. --- --- * 'wInput' - The inputs provided with the signal. The decider can use the signal name and inputs to determine how to process the signal. --- --- * 'wSignalName' - The name of the signal received. The decider can use the signal name and inputs to determine how to the process the signal. -workflowExecutionSignaledEventAttributes - :: Text -- ^ 'wSignalName' - -> WorkflowExecutionSignaledEventAttributes -workflowExecutionSignaledEventAttributes pSignalName_ = - WorkflowExecutionSignaledEventAttributes' - { _wExternalWorkflowExecution = Nothing - , _wExternalInitiatedEventId = Nothing - , _wInput = Nothing - , _wSignalName = pSignalName_ - } - - --- | The workflow execution that sent the signal. This is set only of the signal was sent by another workflow execution. -wExternalWorkflowExecution :: Lens' WorkflowExecutionSignaledEventAttributes (Maybe WorkflowExecution) -wExternalWorkflowExecution = lens _wExternalWorkflowExecution (\ s a -> s{_wExternalWorkflowExecution = a}) - --- | The ID of the @SignalExternalWorkflowExecutionInitiated@ event corresponding to the @SignalExternalWorkflow@ decision to signal this workflow execution.The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. This field is set only if the signal was initiated by another workflow execution. -wExternalInitiatedEventId :: Lens' WorkflowExecutionSignaledEventAttributes (Maybe Integer) -wExternalInitiatedEventId = lens _wExternalInitiatedEventId (\ s a -> s{_wExternalInitiatedEventId = a}) - --- | The inputs provided with the signal. The decider can use the signal name and inputs to determine how to process the signal. -wInput :: Lens' WorkflowExecutionSignaledEventAttributes (Maybe Text) -wInput = lens _wInput (\ s a -> s{_wInput = a}) - --- | The name of the signal received. The decider can use the signal name and inputs to determine how to the process the signal. -wSignalName :: Lens' WorkflowExecutionSignaledEventAttributes Text -wSignalName = lens _wSignalName (\ s a -> s{_wSignalName = a}) - -instance FromJSON - WorkflowExecutionSignaledEventAttributes - where - parseJSON - = withObject - "WorkflowExecutionSignaledEventAttributes" - (\ x -> - WorkflowExecutionSignaledEventAttributes' <$> - (x .:? "externalWorkflowExecution") <*> - (x .:? "externalInitiatedEventId") - <*> (x .:? "input") - <*> (x .: "signalName")) - -instance Hashable - WorkflowExecutionSignaledEventAttributes - where - -instance NFData - WorkflowExecutionSignaledEventAttributes - where - --- | Provides details of @WorkflowExecutionStarted@ event. --- --- --- --- /See:/ 'workflowExecutionStartedEventAttributes' smart constructor. -data WorkflowExecutionStartedEventAttributes = WorkflowExecutionStartedEventAttributes' - { _weseaParentInitiatedEventId :: !(Maybe Integer) - , _weseaTagList :: !(Maybe [Text]) - , _weseaTaskStartToCloseTimeout :: !(Maybe Text) - , _weseaLambdaRole :: !(Maybe Text) - , _weseaInput :: !(Maybe Text) - , _weseaExecutionStartToCloseTimeout :: !(Maybe Text) - , _weseaTaskPriority :: !(Maybe Text) - , _weseaParentWorkflowExecution :: !(Maybe WorkflowExecution) - , _weseaContinuedExecutionRunId :: !(Maybe Text) - , _weseaChildPolicy :: !ChildPolicy - , _weseaTaskList :: !TaskList - , _weseaWorkflowType :: !WorkflowType - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowExecutionStartedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'weseaParentInitiatedEventId' - The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this workflow execution. The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. --- --- * 'weseaTagList' - The list of tags associated with this workflow execution. An execution can have up to 5 tags. --- --- * 'weseaTaskStartToCloseTimeout' - The maximum duration of decision tasks for this workflow type. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'weseaLambdaRole' - The IAM role attached to the workflow execution. --- --- * 'weseaInput' - The input provided to the workflow execution. --- --- * 'weseaExecutionStartToCloseTimeout' - The maximum duration for this workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'weseaTaskPriority' - The priority of the decision tasks in the workflow execution. --- --- * 'weseaParentWorkflowExecution' - The source workflow execution that started this workflow execution. The member isn't set if the workflow execution was not started by a workflow. --- --- * 'weseaContinuedExecutionRunId' - If this workflow execution was started due to a @ContinueAsNewWorkflowExecution@ decision, then it contains the @runId@ of the previous workflow execution that was closed and continued as this execution. --- --- * 'weseaChildPolicy' - The policy to use for the child workflow executions if this workflow execution is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. --- --- * 'weseaTaskList' - The name of the task list for scheduling the decision tasks for this workflow execution. --- --- * 'weseaWorkflowType' - The workflow type of this execution. -workflowExecutionStartedEventAttributes - :: ChildPolicy -- ^ 'weseaChildPolicy' - -> TaskList -- ^ 'weseaTaskList' - -> WorkflowType -- ^ 'weseaWorkflowType' - -> WorkflowExecutionStartedEventAttributes -workflowExecutionStartedEventAttributes pChildPolicy_ pTaskList_ pWorkflowType_ = - WorkflowExecutionStartedEventAttributes' - { _weseaParentInitiatedEventId = Nothing - , _weseaTagList = Nothing - , _weseaTaskStartToCloseTimeout = Nothing - , _weseaLambdaRole = Nothing - , _weseaInput = Nothing - , _weseaExecutionStartToCloseTimeout = Nothing - , _weseaTaskPriority = Nothing - , _weseaParentWorkflowExecution = Nothing - , _weseaContinuedExecutionRunId = Nothing - , _weseaChildPolicy = pChildPolicy_ - , _weseaTaskList = pTaskList_ - , _weseaWorkflowType = pWorkflowType_ - } - - --- | The ID of the @StartChildWorkflowExecutionInitiated@ event corresponding to the @StartChildWorkflowExecution@ 'Decision' to start this workflow execution. The source event with this ID can be found in the history of the source workflow execution. This information can be useful for diagnosing problems by tracing back the chain of events leading up to this event. -weseaParentInitiatedEventId :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Integer) -weseaParentInitiatedEventId = lens _weseaParentInitiatedEventId (\ s a -> s{_weseaParentInitiatedEventId = a}) - --- | The list of tags associated with this workflow execution. An execution can have up to 5 tags. -weseaTagList :: Lens' WorkflowExecutionStartedEventAttributes [Text] -weseaTagList = lens _weseaTagList (\ s a -> s{_weseaTagList = a}) . _Default . _Coerce - --- | The maximum duration of decision tasks for this workflow type. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -weseaTaskStartToCloseTimeout :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text) -weseaTaskStartToCloseTimeout = lens _weseaTaskStartToCloseTimeout (\ s a -> s{_weseaTaskStartToCloseTimeout = a}) - --- | The IAM role attached to the workflow execution. -weseaLambdaRole :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text) -weseaLambdaRole = lens _weseaLambdaRole (\ s a -> s{_weseaLambdaRole = a}) - --- | The input provided to the workflow execution. -weseaInput :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text) -weseaInput = lens _weseaInput (\ s a -> s{_weseaInput = a}) - --- | The maximum duration for this workflow execution. The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -weseaExecutionStartToCloseTimeout :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text) -weseaExecutionStartToCloseTimeout = lens _weseaExecutionStartToCloseTimeout (\ s a -> s{_weseaExecutionStartToCloseTimeout = a}) - --- | The priority of the decision tasks in the workflow execution. -weseaTaskPriority :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text) -weseaTaskPriority = lens _weseaTaskPriority (\ s a -> s{_weseaTaskPriority = a}) - --- | The source workflow execution that started this workflow execution. The member isn't set if the workflow execution was not started by a workflow. -weseaParentWorkflowExecution :: Lens' WorkflowExecutionStartedEventAttributes (Maybe WorkflowExecution) -weseaParentWorkflowExecution = lens _weseaParentWorkflowExecution (\ s a -> s{_weseaParentWorkflowExecution = a}) - --- | If this workflow execution was started due to a @ContinueAsNewWorkflowExecution@ decision, then it contains the @runId@ of the previous workflow execution that was closed and continued as this execution. -weseaContinuedExecutionRunId :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text) -weseaContinuedExecutionRunId = lens _weseaContinuedExecutionRunId (\ s a -> s{_weseaContinuedExecutionRunId = a}) - --- | The policy to use for the child workflow executions if this workflow execution is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -weseaChildPolicy :: Lens' WorkflowExecutionStartedEventAttributes ChildPolicy -weseaChildPolicy = lens _weseaChildPolicy (\ s a -> s{_weseaChildPolicy = a}) - --- | The name of the task list for scheduling the decision tasks for this workflow execution. -weseaTaskList :: Lens' WorkflowExecutionStartedEventAttributes TaskList -weseaTaskList = lens _weseaTaskList (\ s a -> s{_weseaTaskList = a}) - --- | The workflow type of this execution. -weseaWorkflowType :: Lens' WorkflowExecutionStartedEventAttributes WorkflowType -weseaWorkflowType = lens _weseaWorkflowType (\ s a -> s{_weseaWorkflowType = a}) - -instance FromJSON - WorkflowExecutionStartedEventAttributes - where - parseJSON - = withObject - "WorkflowExecutionStartedEventAttributes" - (\ x -> - WorkflowExecutionStartedEventAttributes' <$> - (x .:? "parentInitiatedEventId") <*> - (x .:? "tagList" .!= mempty) - <*> (x .:? "taskStartToCloseTimeout") - <*> (x .:? "lambdaRole") - <*> (x .:? "input") - <*> (x .:? "executionStartToCloseTimeout") - <*> (x .:? "taskPriority") - <*> (x .:? "parentWorkflowExecution") - <*> (x .:? "continuedExecutionRunId") - <*> (x .: "childPolicy") - <*> (x .: "taskList") - <*> (x .: "workflowType")) - -instance Hashable - WorkflowExecutionStartedEventAttributes - where - -instance NFData - WorkflowExecutionStartedEventAttributes - where - --- | Provides the details of the @WorkflowExecutionTerminated@ event. --- --- --- --- /See:/ 'workflowExecutionTerminatedEventAttributes' smart constructor. -data WorkflowExecutionTerminatedEventAttributes = WorkflowExecutionTerminatedEventAttributes' - { _weteaCause :: !(Maybe WorkflowExecutionTerminatedCause) - , _weteaReason :: !(Maybe Text) - , _weteaDetails :: !(Maybe Text) - , _weteaChildPolicy :: !ChildPolicy - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowExecutionTerminatedEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'weteaCause' - If set, indicates that the workflow execution was automatically terminated, and specifies the cause. This happens if the parent workflow execution times out or is terminated and the child policy is set to terminate child executions. --- --- * 'weteaReason' - The reason provided for the termination. --- --- * 'weteaDetails' - The details provided for the termination. --- --- * 'weteaChildPolicy' - The policy used for the child workflow executions of this workflow execution. The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -workflowExecutionTerminatedEventAttributes - :: ChildPolicy -- ^ 'weteaChildPolicy' - -> WorkflowExecutionTerminatedEventAttributes -workflowExecutionTerminatedEventAttributes pChildPolicy_ = - WorkflowExecutionTerminatedEventAttributes' - { _weteaCause = Nothing - , _weteaReason = Nothing - , _weteaDetails = Nothing - , _weteaChildPolicy = pChildPolicy_ - } - - --- | If set, indicates that the workflow execution was automatically terminated, and specifies the cause. This happens if the parent workflow execution times out or is terminated and the child policy is set to terminate child executions. -weteaCause :: Lens' WorkflowExecutionTerminatedEventAttributes (Maybe WorkflowExecutionTerminatedCause) -weteaCause = lens _weteaCause (\ s a -> s{_weteaCause = a}) - --- | The reason provided for the termination. -weteaReason :: Lens' WorkflowExecutionTerminatedEventAttributes (Maybe Text) -weteaReason = lens _weteaReason (\ s a -> s{_weteaReason = a}) - --- | The details provided for the termination. -weteaDetails :: Lens' WorkflowExecutionTerminatedEventAttributes (Maybe Text) -weteaDetails = lens _weteaDetails (\ s a -> s{_weteaDetails = a}) - --- | The policy used for the child workflow executions of this workflow execution. The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -weteaChildPolicy :: Lens' WorkflowExecutionTerminatedEventAttributes ChildPolicy -weteaChildPolicy = lens _weteaChildPolicy (\ s a -> s{_weteaChildPolicy = a}) - -instance FromJSON - WorkflowExecutionTerminatedEventAttributes - where - parseJSON - = withObject - "WorkflowExecutionTerminatedEventAttributes" - (\ x -> - WorkflowExecutionTerminatedEventAttributes' <$> - (x .:? "cause") <*> (x .:? "reason") <*> - (x .:? "details") - <*> (x .: "childPolicy")) - -instance Hashable - WorkflowExecutionTerminatedEventAttributes - where - -instance NFData - WorkflowExecutionTerminatedEventAttributes - where - --- | Provides the details of the @WorkflowExecutionTimedOut@ event. --- --- --- --- /See:/ 'workflowExecutionTimedOutEventAttributes' smart constructor. -data WorkflowExecutionTimedOutEventAttributes = WorkflowExecutionTimedOutEventAttributes' - { _wetoeaTimeoutType :: !WorkflowExecutionTimeoutType - , _wetoeaChildPolicy :: !ChildPolicy - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowExecutionTimedOutEventAttributes' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'wetoeaTimeoutType' - The type of timeout that caused this event. --- --- * 'wetoeaChildPolicy' - The policy used for the child workflow executions of this workflow execution. The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -workflowExecutionTimedOutEventAttributes - :: WorkflowExecutionTimeoutType -- ^ 'wetoeaTimeoutType' - -> ChildPolicy -- ^ 'wetoeaChildPolicy' - -> WorkflowExecutionTimedOutEventAttributes -workflowExecutionTimedOutEventAttributes pTimeoutType_ pChildPolicy_ = - WorkflowExecutionTimedOutEventAttributes' - {_wetoeaTimeoutType = pTimeoutType_, _wetoeaChildPolicy = pChildPolicy_} - - --- | The type of timeout that caused this event. -wetoeaTimeoutType :: Lens' WorkflowExecutionTimedOutEventAttributes WorkflowExecutionTimeoutType -wetoeaTimeoutType = lens _wetoeaTimeoutType (\ s a -> s{_wetoeaTimeoutType = a}) - --- | The policy used for the child workflow executions of this workflow execution. The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -wetoeaChildPolicy :: Lens' WorkflowExecutionTimedOutEventAttributes ChildPolicy -wetoeaChildPolicy = lens _wetoeaChildPolicy (\ s a -> s{_wetoeaChildPolicy = a}) - -instance FromJSON - WorkflowExecutionTimedOutEventAttributes - where - parseJSON - = withObject - "WorkflowExecutionTimedOutEventAttributes" - (\ x -> - WorkflowExecutionTimedOutEventAttributes' <$> - (x .: "timeoutType") <*> (x .: "childPolicy")) - -instance Hashable - WorkflowExecutionTimedOutEventAttributes - where - -instance NFData - WorkflowExecutionTimedOutEventAttributes - where - --- | Represents a workflow type. --- --- --- --- /See:/ 'workflowType' smart constructor. -data WorkflowType = WorkflowType' - { _wtName :: !Text - , _wtVersion :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowType' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'wtName' - The name of the workflow type. --- --- * 'wtVersion' - The version of the workflow type. -workflowType - :: Text -- ^ 'wtName' - -> Text -- ^ 'wtVersion' - -> WorkflowType -workflowType pName_ pVersion_ = - WorkflowType' {_wtName = pName_, _wtVersion = pVersion_} - - --- | The name of the workflow type. -wtName :: Lens' WorkflowType Text -wtName = lens _wtName (\ s a -> s{_wtName = a}) - --- | The version of the workflow type. -wtVersion :: Lens' WorkflowType Text -wtVersion = lens _wtVersion (\ s a -> s{_wtVersion = a}) - -instance FromJSON WorkflowType where - parseJSON - = withObject "WorkflowType" - (\ x -> - WorkflowType' <$> (x .: "name") <*> (x .: "version")) - -instance Hashable WorkflowType where - -instance NFData WorkflowType where - -instance ToJSON WorkflowType where - toJSON WorkflowType'{..} - = object - (catMaybes - [Just ("name" .= _wtName), - Just ("version" .= _wtVersion)]) - --- | The configuration settings of a workflow type. --- --- --- --- /See:/ 'workflowTypeConfiguration' smart constructor. -data WorkflowTypeConfiguration = WorkflowTypeConfiguration' - { _wtcDefaultLambdaRole :: !(Maybe Text) - , _wtcDefaultChildPolicy :: !(Maybe ChildPolicy) - , _wtcDefaultTaskList :: !(Maybe TaskList) - , _wtcDefaultTaskPriority :: !(Maybe Text) - , _wtcDefaultExecutionStartToCloseTimeout :: !(Maybe Text) - , _wtcDefaultTaskStartToCloseTimeout :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowTypeConfiguration' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'wtcDefaultLambdaRole' - The default IAM role attached to this workflow type. --- --- * 'wtcDefaultChildPolicy' - The default policy to use for the child workflow executions when a workflow execution of this type is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. --- --- * 'wtcDefaultTaskList' - The default task list, specified when registering the workflow type, for decisions tasks scheduled for workflow executions of this type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . --- --- * 'wtcDefaultTaskPriority' - The default task priority, specified when registering the workflow type, for all decision tasks of this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . --- --- * 'wtcDefaultExecutionStartToCloseTimeout' - The default maximum duration, specified when registering the workflow type, for executions of this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. --- --- * 'wtcDefaultTaskStartToCloseTimeout' - The default maximum duration, specified when registering the workflow type, that a decision task for executions of this workflow type might take before returning completion or failure. If the task doesn'tdo close in the specified time then the task is automatically timed out and rescheduled. If the decider eventually reports a completion or failure, it is ignored. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -workflowTypeConfiguration - :: WorkflowTypeConfiguration -workflowTypeConfiguration = - WorkflowTypeConfiguration' - { _wtcDefaultLambdaRole = Nothing - , _wtcDefaultChildPolicy = Nothing - , _wtcDefaultTaskList = Nothing - , _wtcDefaultTaskPriority = Nothing - , _wtcDefaultExecutionStartToCloseTimeout = Nothing - , _wtcDefaultTaskStartToCloseTimeout = Nothing - } - - --- | The default IAM role attached to this workflow type. -wtcDefaultLambdaRole :: Lens' WorkflowTypeConfiguration (Maybe Text) -wtcDefaultLambdaRole = lens _wtcDefaultLambdaRole (\ s a -> s{_wtcDefaultLambdaRole = a}) - --- | The default policy to use for the child workflow executions when a workflow execution of this type is terminated, by calling the 'TerminateWorkflowExecution' action explicitly or due to an expired timeout. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The supported child policies are: * @TERMINATE@ – The child executions are terminated. * @REQUEST_CANCEL@ – A request to cancel is attempted for each child execution by recording a @WorkflowExecutionCancelRequested@ event in its history. It is up to the decider to take appropriate actions when it receives an execution history with this event. * @ABANDON@ – No action is taken. The child executions continue to run. -wtcDefaultChildPolicy :: Lens' WorkflowTypeConfiguration (Maybe ChildPolicy) -wtcDefaultChildPolicy = lens _wtcDefaultChildPolicy (\ s a -> s{_wtcDefaultChildPolicy = a}) - --- | The default task list, specified when registering the workflow type, for decisions tasks scheduled for workflow executions of this type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . -wtcDefaultTaskList :: Lens' WorkflowTypeConfiguration (Maybe TaskList) -wtcDefaultTaskList = lens _wtcDefaultTaskList (\ s a -> s{_wtcDefaultTaskList = a}) - --- | The default task priority, specified when registering the workflow type, for all decision tasks of this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ decision. Valid values are integers that range from Java's @Integer.MIN_VALUE@ (-2147483648) to @Integer.MAX_VALUE@ (2147483647). Higher numbers indicate higher priority. For more information about setting task priority, see in the /Amazon SWF Developer Guide/ . -wtcDefaultTaskPriority :: Lens' WorkflowTypeConfiguration (Maybe Text) -wtcDefaultTaskPriority = lens _wtcDefaultTaskPriority (\ s a -> s{_wtcDefaultTaskPriority = a}) - --- | The default maximum duration, specified when registering the workflow type, for executions of this workflow type. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -wtcDefaultExecutionStartToCloseTimeout :: Lens' WorkflowTypeConfiguration (Maybe Text) -wtcDefaultExecutionStartToCloseTimeout = lens _wtcDefaultExecutionStartToCloseTimeout (\ s a -> s{_wtcDefaultExecutionStartToCloseTimeout = a}) - --- | The default maximum duration, specified when registering the workflow type, that a decision task for executions of this workflow type might take before returning completion or failure. If the task doesn'tdo close in the specified time then the task is automatically timed out and rescheduled. If the decider eventually reports a completion or failure, it is ignored. This default can be overridden when starting a workflow execution using the 'StartWorkflowExecution' action or the @StartChildWorkflowExecution@ 'Decision' . The duration is specified in seconds, an integer greater than or equal to @0@ . You can use @NONE@ to specify unlimited duration. -wtcDefaultTaskStartToCloseTimeout :: Lens' WorkflowTypeConfiguration (Maybe Text) -wtcDefaultTaskStartToCloseTimeout = lens _wtcDefaultTaskStartToCloseTimeout (\ s a -> s{_wtcDefaultTaskStartToCloseTimeout = a}) - -instance FromJSON WorkflowTypeConfiguration where - parseJSON - = withObject "WorkflowTypeConfiguration" - (\ x -> - WorkflowTypeConfiguration' <$> - (x .:? "defaultLambdaRole") <*> - (x .:? "defaultChildPolicy") - <*> (x .:? "defaultTaskList") - <*> (x .:? "defaultTaskPriority") - <*> (x .:? "defaultExecutionStartToCloseTimeout") - <*> (x .:? "defaultTaskStartToCloseTimeout")) - -instance Hashable WorkflowTypeConfiguration where - -instance NFData WorkflowTypeConfiguration where - --- | Used to filter workflow execution query results by type. Each parameter, if specified, defines a rule that must be satisfied by each returned result. --- --- --- --- /See:/ 'workflowTypeFilter' smart constructor. -data WorkflowTypeFilter = WorkflowTypeFilter' - { _wtfVersion :: !(Maybe Text) - , _wtfName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowTypeFilter' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'wtfVersion' - Version of the workflow type. --- --- * 'wtfName' - Name of the workflow type. -workflowTypeFilter - :: Text -- ^ 'wtfName' - -> WorkflowTypeFilter -workflowTypeFilter pName_ = - WorkflowTypeFilter' {_wtfVersion = Nothing, _wtfName = pName_} - - --- | Version of the workflow type. -wtfVersion :: Lens' WorkflowTypeFilter (Maybe Text) -wtfVersion = lens _wtfVersion (\ s a -> s{_wtfVersion = a}) - --- | Name of the workflow type. -wtfName :: Lens' WorkflowTypeFilter Text -wtfName = lens _wtfName (\ s a -> s{_wtfName = a}) - -instance Hashable WorkflowTypeFilter where - -instance NFData WorkflowTypeFilter where - -instance ToJSON WorkflowTypeFilter where - toJSON WorkflowTypeFilter'{..} - = object - (catMaybes - [("version" .=) <$> _wtfVersion, - Just ("name" .= _wtfName)]) - --- | Contains information about a workflow type. --- --- --- --- /See:/ 'workflowTypeInfo' smart constructor. -data WorkflowTypeInfo = WorkflowTypeInfo' - { _wtiDeprecationDate :: !(Maybe POSIX) - , _wtiDescription :: !(Maybe Text) - , _wtiWorkflowType :: !WorkflowType - , _wtiStatus :: !RegistrationStatus - , _wtiCreationDate :: !POSIX - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'WorkflowTypeInfo' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'wtiDeprecationDate' - If the type is in deprecated state, then it is set to the date when the type was deprecated. --- --- * 'wtiDescription' - The description of the type registered through 'RegisterWorkflowType' . --- --- * 'wtiWorkflowType' - The workflow type this information is about. --- --- * 'wtiStatus' - The current status of the workflow type. --- --- * 'wtiCreationDate' - The date when this type was registered. -workflowTypeInfo - :: WorkflowType -- ^ 'wtiWorkflowType' - -> RegistrationStatus -- ^ 'wtiStatus' - -> UTCTime -- ^ 'wtiCreationDate' - -> WorkflowTypeInfo -workflowTypeInfo pWorkflowType_ pStatus_ pCreationDate_ = - WorkflowTypeInfo' - { _wtiDeprecationDate = Nothing - , _wtiDescription = Nothing - , _wtiWorkflowType = pWorkflowType_ - , _wtiStatus = pStatus_ - , _wtiCreationDate = _Time # pCreationDate_ - } - - --- | If the type is in deprecated state, then it is set to the date when the type was deprecated. -wtiDeprecationDate :: Lens' WorkflowTypeInfo (Maybe UTCTime) -wtiDeprecationDate = lens _wtiDeprecationDate (\ s a -> s{_wtiDeprecationDate = a}) . mapping _Time - --- | The description of the type registered through 'RegisterWorkflowType' . -wtiDescription :: Lens' WorkflowTypeInfo (Maybe Text) -wtiDescription = lens _wtiDescription (\ s a -> s{_wtiDescription = a}) - --- | The workflow type this information is about. -wtiWorkflowType :: Lens' WorkflowTypeInfo WorkflowType -wtiWorkflowType = lens _wtiWorkflowType (\ s a -> s{_wtiWorkflowType = a}) - --- | The current status of the workflow type. -wtiStatus :: Lens' WorkflowTypeInfo RegistrationStatus -wtiStatus = lens _wtiStatus (\ s a -> s{_wtiStatus = a}) - --- | The date when this type was registered. -wtiCreationDate :: Lens' WorkflowTypeInfo UTCTime -wtiCreationDate = lens _wtiCreationDate (\ s a -> s{_wtiCreationDate = a}) . _Time - -instance FromJSON WorkflowTypeInfo where - parseJSON - = withObject "WorkflowTypeInfo" - (\ x -> - WorkflowTypeInfo' <$> - (x .:? "deprecationDate") <*> (x .:? "description") - <*> (x .: "workflowType") - <*> (x .: "status") - <*> (x .: "creationDate")) - -instance Hashable WorkflowTypeInfo where - -instance NFData WorkflowTypeInfo where diff --git a/gen/Network/AWS/SWF/Types/Sum.hs b/gen/Network/AWS/SWF/Types/Sum.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/Types/Sum.hs +++ /dev/null @@ -1,1019 +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.SWF.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.SWF.Types.Sum where - -import Network.AWS.Prelude - -data ActivityTaskTimeoutType - = ATTTHeartbeat - | ATTTScheduleToClose - | ATTTScheduleToStart - | ATTTStartToClose - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText ActivityTaskTimeoutType where - parser = takeLowerText >>= \case - "heartbeat" -> pure ATTTHeartbeat - "schedule_to_close" -> pure ATTTScheduleToClose - "schedule_to_start" -> pure ATTTScheduleToStart - "start_to_close" -> pure ATTTStartToClose - e -> fromTextError $ "Failure parsing ActivityTaskTimeoutType from value: '" <> e - <> "'. Accepted values: heartbeat, schedule_to_close, schedule_to_start, start_to_close" - -instance ToText ActivityTaskTimeoutType where - toText = \case - ATTTHeartbeat -> "HEARTBEAT" - ATTTScheduleToClose -> "SCHEDULE_TO_CLOSE" - ATTTScheduleToStart -> "SCHEDULE_TO_START" - ATTTStartToClose -> "START_TO_CLOSE" - -instance Hashable ActivityTaskTimeoutType -instance NFData ActivityTaskTimeoutType -instance ToByteString ActivityTaskTimeoutType -instance ToQuery ActivityTaskTimeoutType -instance ToHeader ActivityTaskTimeoutType - -instance FromJSON ActivityTaskTimeoutType where - parseJSON = parseJSONText "ActivityTaskTimeoutType" - -data CancelTimerFailedCause - = CTFCOperationNotPermitted - | CTFCTimerIdUnknown - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText CancelTimerFailedCause where - parser = takeLowerText >>= \case - "operation_not_permitted" -> pure CTFCOperationNotPermitted - "timer_id_unknown" -> pure CTFCTimerIdUnknown - e -> fromTextError $ "Failure parsing CancelTimerFailedCause from value: '" <> e - <> "'. Accepted values: operation_not_permitted, timer_id_unknown" - -instance ToText CancelTimerFailedCause where - toText = \case - CTFCOperationNotPermitted -> "OPERATION_NOT_PERMITTED" - CTFCTimerIdUnknown -> "TIMER_ID_UNKNOWN" - -instance Hashable CancelTimerFailedCause -instance NFData CancelTimerFailedCause -instance ToByteString CancelTimerFailedCause -instance ToQuery CancelTimerFailedCause -instance ToHeader CancelTimerFailedCause - -instance FromJSON CancelTimerFailedCause where - parseJSON = parseJSONText "CancelTimerFailedCause" - -data CancelWorkflowExecutionFailedCause - = COperationNotPermitted - | CUnhandledDecision - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText CancelWorkflowExecutionFailedCause where - parser = takeLowerText >>= \case - "operation_not_permitted" -> pure COperationNotPermitted - "unhandled_decision" -> pure CUnhandledDecision - e -> fromTextError $ "Failure parsing CancelWorkflowExecutionFailedCause from value: '" <> e - <> "'. Accepted values: operation_not_permitted, unhandled_decision" - -instance ToText CancelWorkflowExecutionFailedCause where - toText = \case - COperationNotPermitted -> "OPERATION_NOT_PERMITTED" - CUnhandledDecision -> "UNHANDLED_DECISION" - -instance Hashable CancelWorkflowExecutionFailedCause -instance NFData CancelWorkflowExecutionFailedCause -instance ToByteString CancelWorkflowExecutionFailedCause -instance ToQuery CancelWorkflowExecutionFailedCause -instance ToHeader CancelWorkflowExecutionFailedCause - -instance FromJSON CancelWorkflowExecutionFailedCause where - parseJSON = parseJSONText "CancelWorkflowExecutionFailedCause" - -data ChildPolicy - = Abandon - | RequestCancel - | Terminate - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText ChildPolicy where - parser = takeLowerText >>= \case - "abandon" -> pure Abandon - "request_cancel" -> pure RequestCancel - "terminate" -> pure Terminate - e -> fromTextError $ "Failure parsing ChildPolicy from value: '" <> e - <> "'. Accepted values: abandon, request_cancel, terminate" - -instance ToText ChildPolicy where - toText = \case - Abandon -> "ABANDON" - RequestCancel -> "REQUEST_CANCEL" - Terminate -> "TERMINATE" - -instance Hashable ChildPolicy -instance NFData ChildPolicy -instance ToByteString ChildPolicy -instance ToQuery ChildPolicy -instance ToHeader ChildPolicy - -instance ToJSON ChildPolicy where - toJSON = toJSONText - -instance FromJSON ChildPolicy where - parseJSON = parseJSONText "ChildPolicy" - -data CloseStatus - = Canceled - | Completed - | ContinuedAsNew - | Failed - | Terminated - | TimedOut - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText CloseStatus where - parser = takeLowerText >>= \case - "canceled" -> pure Canceled - "completed" -> pure Completed - "continued_as_new" -> pure ContinuedAsNew - "failed" -> pure Failed - "terminated" -> pure Terminated - "timed_out" -> pure TimedOut - e -> fromTextError $ "Failure parsing CloseStatus from value: '" <> e - <> "'. Accepted values: canceled, completed, continued_as_new, failed, terminated, timed_out" - -instance ToText CloseStatus where - toText = \case - Canceled -> "CANCELED" - Completed -> "COMPLETED" - ContinuedAsNew -> "CONTINUED_AS_NEW" - Failed -> "FAILED" - Terminated -> "TERMINATED" - TimedOut -> "TIMED_OUT" - -instance Hashable CloseStatus -instance NFData CloseStatus -instance ToByteString CloseStatus -instance ToQuery CloseStatus -instance ToHeader CloseStatus - -instance ToJSON CloseStatus where - toJSON = toJSONText - -instance FromJSON CloseStatus where - parseJSON = parseJSONText "CloseStatus" - -data CompleteWorkflowExecutionFailedCause - = CWEFCOperationNotPermitted - | CWEFCUnhandledDecision - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText CompleteWorkflowExecutionFailedCause where - parser = takeLowerText >>= \case - "operation_not_permitted" -> pure CWEFCOperationNotPermitted - "unhandled_decision" -> pure CWEFCUnhandledDecision - e -> fromTextError $ "Failure parsing CompleteWorkflowExecutionFailedCause from value: '" <> e - <> "'. Accepted values: operation_not_permitted, unhandled_decision" - -instance ToText CompleteWorkflowExecutionFailedCause where - toText = \case - CWEFCOperationNotPermitted -> "OPERATION_NOT_PERMITTED" - CWEFCUnhandledDecision -> "UNHANDLED_DECISION" - -instance Hashable CompleteWorkflowExecutionFailedCause -instance NFData CompleteWorkflowExecutionFailedCause -instance ToByteString CompleteWorkflowExecutionFailedCause -instance ToQuery CompleteWorkflowExecutionFailedCause -instance ToHeader CompleteWorkflowExecutionFailedCause - -instance FromJSON CompleteWorkflowExecutionFailedCause where - parseJSON = parseJSONText "CompleteWorkflowExecutionFailedCause" - -data ContinueAsNewWorkflowExecutionFailedCause - = CANWEFCContinueAsNewWorkflowExecutionRateExceeded - | CANWEFCDefaultChildPolicyUndefined - | CANWEFCDefaultExecutionStartToCloseTimeoutUndefined - | CANWEFCDefaultTaskListUndefined - | CANWEFCDefaultTaskStartToCloseTimeoutUndefined - | CANWEFCOperationNotPermitted - | CANWEFCUnhandledDecision - | CANWEFCWorkflowTypeDeprecated - | CANWEFCWorkflowTypeDoesNotExist - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText ContinueAsNewWorkflowExecutionFailedCause where - parser = takeLowerText >>= \case - "continue_as_new_workflow_execution_rate_exceeded" -> pure CANWEFCContinueAsNewWorkflowExecutionRateExceeded - "default_child_policy_undefined" -> pure CANWEFCDefaultChildPolicyUndefined - "default_execution_start_to_close_timeout_undefined" -> pure CANWEFCDefaultExecutionStartToCloseTimeoutUndefined - "default_task_list_undefined" -> pure CANWEFCDefaultTaskListUndefined - "default_task_start_to_close_timeout_undefined" -> pure CANWEFCDefaultTaskStartToCloseTimeoutUndefined - "operation_not_permitted" -> pure CANWEFCOperationNotPermitted - "unhandled_decision" -> pure CANWEFCUnhandledDecision - "workflow_type_deprecated" -> pure CANWEFCWorkflowTypeDeprecated - "workflow_type_does_not_exist" -> pure CANWEFCWorkflowTypeDoesNotExist - e -> fromTextError $ "Failure parsing ContinueAsNewWorkflowExecutionFailedCause from value: '" <> e - <> "'. Accepted values: continue_as_new_workflow_execution_rate_exceeded, default_child_policy_undefined, default_execution_start_to_close_timeout_undefined, default_task_list_undefined, default_task_start_to_close_timeout_undefined, operation_not_permitted, unhandled_decision, workflow_type_deprecated, workflow_type_does_not_exist" - -instance ToText ContinueAsNewWorkflowExecutionFailedCause where - toText = \case - CANWEFCContinueAsNewWorkflowExecutionRateExceeded -> "CONTINUE_AS_NEW_WORKFLOW_EXECUTION_RATE_EXCEEDED" - CANWEFCDefaultChildPolicyUndefined -> "DEFAULT_CHILD_POLICY_UNDEFINED" - CANWEFCDefaultExecutionStartToCloseTimeoutUndefined -> "DEFAULT_EXECUTION_START_TO_CLOSE_TIMEOUT_UNDEFINED" - CANWEFCDefaultTaskListUndefined -> "DEFAULT_TASK_LIST_UNDEFINED" - CANWEFCDefaultTaskStartToCloseTimeoutUndefined -> "DEFAULT_TASK_START_TO_CLOSE_TIMEOUT_UNDEFINED" - CANWEFCOperationNotPermitted -> "OPERATION_NOT_PERMITTED" - CANWEFCUnhandledDecision -> "UNHANDLED_DECISION" - CANWEFCWorkflowTypeDeprecated -> "WORKFLOW_TYPE_DEPRECATED" - CANWEFCWorkflowTypeDoesNotExist -> "WORKFLOW_TYPE_DOES_NOT_EXIST" - -instance Hashable ContinueAsNewWorkflowExecutionFailedCause -instance NFData ContinueAsNewWorkflowExecutionFailedCause -instance ToByteString ContinueAsNewWorkflowExecutionFailedCause -instance ToQuery ContinueAsNewWorkflowExecutionFailedCause -instance ToHeader ContinueAsNewWorkflowExecutionFailedCause - -instance FromJSON ContinueAsNewWorkflowExecutionFailedCause where - parseJSON = parseJSONText "ContinueAsNewWorkflowExecutionFailedCause" - -data DecisionTaskTimeoutType = - StartToClose - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText DecisionTaskTimeoutType where - parser = takeLowerText >>= \case - "start_to_close" -> pure StartToClose - e -> fromTextError $ "Failure parsing DecisionTaskTimeoutType from value: '" <> e - <> "'. Accepted values: start_to_close" - -instance ToText DecisionTaskTimeoutType where - toText = \case - StartToClose -> "START_TO_CLOSE" - -instance Hashable DecisionTaskTimeoutType -instance NFData DecisionTaskTimeoutType -instance ToByteString DecisionTaskTimeoutType -instance ToQuery DecisionTaskTimeoutType -instance ToHeader DecisionTaskTimeoutType - -instance FromJSON DecisionTaskTimeoutType where - parseJSON = parseJSONText "DecisionTaskTimeoutType" - -data DecisionType - = CancelTimer - | CancelWorkflowExecution - | CompleteWorkflowExecution - | ContinueAsNewWorkflowExecution - | FailWorkflowExecution - | RecordMarker - | RequestCancelActivityTask - | RequestCancelExternalWorkflowExecution - | ScheduleActivityTask - | ScheduleLambdaFunction - | SignalExternalWorkflowExecution - | StartChildWorkflowExecution - | StartTimer - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText DecisionType where - parser = takeLowerText >>= \case - "canceltimer" -> pure CancelTimer - "cancelworkflowexecution" -> pure CancelWorkflowExecution - "completeworkflowexecution" -> pure CompleteWorkflowExecution - "continueasnewworkflowexecution" -> pure ContinueAsNewWorkflowExecution - "failworkflowexecution" -> pure FailWorkflowExecution - "recordmarker" -> pure RecordMarker - "requestcancelactivitytask" -> pure RequestCancelActivityTask - "requestcancelexternalworkflowexecution" -> pure RequestCancelExternalWorkflowExecution - "scheduleactivitytask" -> pure ScheduleActivityTask - "schedulelambdafunction" -> pure ScheduleLambdaFunction - "signalexternalworkflowexecution" -> pure SignalExternalWorkflowExecution - "startchildworkflowexecution" -> pure StartChildWorkflowExecution - "starttimer" -> pure StartTimer - e -> fromTextError $ "Failure parsing DecisionType from value: '" <> e - <> "'. Accepted values: canceltimer, cancelworkflowexecution, completeworkflowexecution, continueasnewworkflowexecution, failworkflowexecution, recordmarker, requestcancelactivitytask, requestcancelexternalworkflowexecution, scheduleactivitytask, schedulelambdafunction, signalexternalworkflowexecution, startchildworkflowexecution, starttimer" - -instance ToText DecisionType where - toText = \case - CancelTimer -> "CancelTimer" - CancelWorkflowExecution -> "CancelWorkflowExecution" - CompleteWorkflowExecution -> "CompleteWorkflowExecution" - ContinueAsNewWorkflowExecution -> "ContinueAsNewWorkflowExecution" - FailWorkflowExecution -> "FailWorkflowExecution" - RecordMarker -> "RecordMarker" - RequestCancelActivityTask -> "RequestCancelActivityTask" - RequestCancelExternalWorkflowExecution -> "RequestCancelExternalWorkflowExecution" - ScheduleActivityTask -> "ScheduleActivityTask" - ScheduleLambdaFunction -> "ScheduleLambdaFunction" - SignalExternalWorkflowExecution -> "SignalExternalWorkflowExecution" - StartChildWorkflowExecution -> "StartChildWorkflowExecution" - StartTimer -> "StartTimer" - -instance Hashable DecisionType -instance NFData DecisionType -instance ToByteString DecisionType -instance ToQuery DecisionType -instance ToHeader DecisionType - -instance ToJSON DecisionType where - toJSON = toJSONText - -data EventType - = ActivityTaskCancelRequested - | ActivityTaskCanceled - | ActivityTaskCompleted - | ActivityTaskFailed - | ActivityTaskScheduled - | ActivityTaskStarted - | ActivityTaskTimedOut - | CancelTimerFailed - | CancelWorkflowExecutionFailed - | ChildWorkflowExecutionCanceled - | ChildWorkflowExecutionCompleted - | ChildWorkflowExecutionFailed - | ChildWorkflowExecutionStarted - | ChildWorkflowExecutionTerminated - | ChildWorkflowExecutionTimedOut - | CompleteWorkflowExecutionFailed - | ContinueAsNewWorkflowExecutionFailed - | DecisionTaskCompleted - | DecisionTaskScheduled - | DecisionTaskStarted - | DecisionTaskTimedOut - | ExternalWorkflowExecutionCancelRequested - | ExternalWorkflowExecutionSignaled - | FailWorkflowExecutionFailed - | LambdaFunctionCompleted - | LambdaFunctionFailed - | LambdaFunctionScheduled - | LambdaFunctionStarted - | LambdaFunctionTimedOut - | MarkerRecorded - | RecordMarkerFailed - | RequestCancelActivityTaskFailed - | RequestCancelExternalWorkflowExecutionFailed - | RequestCancelExternalWorkflowExecutionInitiated - | ScheduleActivityTaskFailed - | ScheduleLambdaFunctionFailed - | SignalExternalWorkflowExecutionFailed - | SignalExternalWorkflowExecutionInitiated - | StartChildWorkflowExecutionFailed - | StartChildWorkflowExecutionInitiated - | StartLambdaFunctionFailed - | StartTimerFailed - | TimerCanceled - | TimerFired - | TimerStarted - | WorkflowExecutionCancelRequested - | WorkflowExecutionCanceled - | WorkflowExecutionCompleted - | WorkflowExecutionContinuedAsNew - | WorkflowExecutionFailed - | WorkflowExecutionSignaled - | WorkflowExecutionStarted - | WorkflowExecutionTerminated - | WorkflowExecutionTimedOut - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText EventType where - parser = takeLowerText >>= \case - "activitytaskcancelrequested" -> pure ActivityTaskCancelRequested - "activitytaskcanceled" -> pure ActivityTaskCanceled - "activitytaskcompleted" -> pure ActivityTaskCompleted - "activitytaskfailed" -> pure ActivityTaskFailed - "activitytaskscheduled" -> pure ActivityTaskScheduled - "activitytaskstarted" -> pure ActivityTaskStarted - "activitytasktimedout" -> pure ActivityTaskTimedOut - "canceltimerfailed" -> pure CancelTimerFailed - "cancelworkflowexecutionfailed" -> pure CancelWorkflowExecutionFailed - "childworkflowexecutioncanceled" -> pure ChildWorkflowExecutionCanceled - "childworkflowexecutioncompleted" -> pure ChildWorkflowExecutionCompleted - "childworkflowexecutionfailed" -> pure ChildWorkflowExecutionFailed - "childworkflowexecutionstarted" -> pure ChildWorkflowExecutionStarted - "childworkflowexecutionterminated" -> pure ChildWorkflowExecutionTerminated - "childworkflowexecutiontimedout" -> pure ChildWorkflowExecutionTimedOut - "completeworkflowexecutionfailed" -> pure CompleteWorkflowExecutionFailed - "continueasnewworkflowexecutionfailed" -> pure ContinueAsNewWorkflowExecutionFailed - "decisiontaskcompleted" -> pure DecisionTaskCompleted - "decisiontaskscheduled" -> pure DecisionTaskScheduled - "decisiontaskstarted" -> pure DecisionTaskStarted - "decisiontasktimedout" -> pure DecisionTaskTimedOut - "externalworkflowexecutioncancelrequested" -> pure ExternalWorkflowExecutionCancelRequested - "externalworkflowexecutionsignaled" -> pure ExternalWorkflowExecutionSignaled - "failworkflowexecutionfailed" -> pure FailWorkflowExecutionFailed - "lambdafunctioncompleted" -> pure LambdaFunctionCompleted - "lambdafunctionfailed" -> pure LambdaFunctionFailed - "lambdafunctionscheduled" -> pure LambdaFunctionScheduled - "lambdafunctionstarted" -> pure LambdaFunctionStarted - "lambdafunctiontimedout" -> pure LambdaFunctionTimedOut - "markerrecorded" -> pure MarkerRecorded - "recordmarkerfailed" -> pure RecordMarkerFailed - "requestcancelactivitytaskfailed" -> pure RequestCancelActivityTaskFailed - "requestcancelexternalworkflowexecutionfailed" -> pure RequestCancelExternalWorkflowExecutionFailed - "requestcancelexternalworkflowexecutioninitiated" -> pure RequestCancelExternalWorkflowExecutionInitiated - "scheduleactivitytaskfailed" -> pure ScheduleActivityTaskFailed - "schedulelambdafunctionfailed" -> pure ScheduleLambdaFunctionFailed - "signalexternalworkflowexecutionfailed" -> pure SignalExternalWorkflowExecutionFailed - "signalexternalworkflowexecutioninitiated" -> pure SignalExternalWorkflowExecutionInitiated - "startchildworkflowexecutionfailed" -> pure StartChildWorkflowExecutionFailed - "startchildworkflowexecutioninitiated" -> pure StartChildWorkflowExecutionInitiated - "startlambdafunctionfailed" -> pure StartLambdaFunctionFailed - "starttimerfailed" -> pure StartTimerFailed - "timercanceled" -> pure TimerCanceled - "timerfired" -> pure TimerFired - "timerstarted" -> pure TimerStarted - "workflowexecutioncancelrequested" -> pure WorkflowExecutionCancelRequested - "workflowexecutioncanceled" -> pure WorkflowExecutionCanceled - "workflowexecutioncompleted" -> pure WorkflowExecutionCompleted - "workflowexecutioncontinuedasnew" -> pure WorkflowExecutionContinuedAsNew - "workflowexecutionfailed" -> pure WorkflowExecutionFailed - "workflowexecutionsignaled" -> pure WorkflowExecutionSignaled - "workflowexecutionstarted" -> pure WorkflowExecutionStarted - "workflowexecutionterminated" -> pure WorkflowExecutionTerminated - "workflowexecutiontimedout" -> pure WorkflowExecutionTimedOut - e -> fromTextError $ "Failure parsing EventType from value: '" <> e - <> "'. Accepted values: activitytaskcancelrequested, activitytaskcanceled, activitytaskcompleted, activitytaskfailed, activitytaskscheduled, activitytaskstarted, activitytasktimedout, canceltimerfailed, cancelworkflowexecutionfailed, childworkflowexecutioncanceled, childworkflowexecutioncompleted, childworkflowexecutionfailed, childworkflowexecutionstarted, childworkflowexecutionterminated, childworkflowexecutiontimedout, completeworkflowexecutionfailed, continueasnewworkflowexecutionfailed, decisiontaskcompleted, decisiontaskscheduled, decisiontaskstarted, decisiontasktimedout, externalworkflowexecutioncancelrequested, externalworkflowexecutionsignaled, failworkflowexecutionfailed, lambdafunctioncompleted, lambdafunctionfailed, lambdafunctionscheduled, lambdafunctionstarted, lambdafunctiontimedout, markerrecorded, recordmarkerfailed, requestcancelactivitytaskfailed, requestcancelexternalworkflowexecutionfailed, requestcancelexternalworkflowexecutioninitiated, scheduleactivitytaskfailed, schedulelambdafunctionfailed, signalexternalworkflowexecutionfailed, signalexternalworkflowexecutioninitiated, startchildworkflowexecutionfailed, startchildworkflowexecutioninitiated, startlambdafunctionfailed, starttimerfailed, timercanceled, timerfired, timerstarted, workflowexecutioncancelrequested, workflowexecutioncanceled, workflowexecutioncompleted, workflowexecutioncontinuedasnew, workflowexecutionfailed, workflowexecutionsignaled, workflowexecutionstarted, workflowexecutionterminated, workflowexecutiontimedout" - -instance ToText EventType where - toText = \case - ActivityTaskCancelRequested -> "ActivityTaskCancelRequested" - ActivityTaskCanceled -> "ActivityTaskCanceled" - ActivityTaskCompleted -> "ActivityTaskCompleted" - ActivityTaskFailed -> "ActivityTaskFailed" - ActivityTaskScheduled -> "ActivityTaskScheduled" - ActivityTaskStarted -> "ActivityTaskStarted" - ActivityTaskTimedOut -> "ActivityTaskTimedOut" - CancelTimerFailed -> "CancelTimerFailed" - CancelWorkflowExecutionFailed -> "CancelWorkflowExecutionFailed" - ChildWorkflowExecutionCanceled -> "ChildWorkflowExecutionCanceled" - ChildWorkflowExecutionCompleted -> "ChildWorkflowExecutionCompleted" - ChildWorkflowExecutionFailed -> "ChildWorkflowExecutionFailed" - ChildWorkflowExecutionStarted -> "ChildWorkflowExecutionStarted" - ChildWorkflowExecutionTerminated -> "ChildWorkflowExecutionTerminated" - ChildWorkflowExecutionTimedOut -> "ChildWorkflowExecutionTimedOut" - CompleteWorkflowExecutionFailed -> "CompleteWorkflowExecutionFailed" - ContinueAsNewWorkflowExecutionFailed -> "ContinueAsNewWorkflowExecutionFailed" - DecisionTaskCompleted -> "DecisionTaskCompleted" - DecisionTaskScheduled -> "DecisionTaskScheduled" - DecisionTaskStarted -> "DecisionTaskStarted" - DecisionTaskTimedOut -> "DecisionTaskTimedOut" - ExternalWorkflowExecutionCancelRequested -> "ExternalWorkflowExecutionCancelRequested" - ExternalWorkflowExecutionSignaled -> "ExternalWorkflowExecutionSignaled" - FailWorkflowExecutionFailed -> "FailWorkflowExecutionFailed" - LambdaFunctionCompleted -> "LambdaFunctionCompleted" - LambdaFunctionFailed -> "LambdaFunctionFailed" - LambdaFunctionScheduled -> "LambdaFunctionScheduled" - LambdaFunctionStarted -> "LambdaFunctionStarted" - LambdaFunctionTimedOut -> "LambdaFunctionTimedOut" - MarkerRecorded -> "MarkerRecorded" - RecordMarkerFailed -> "RecordMarkerFailed" - RequestCancelActivityTaskFailed -> "RequestCancelActivityTaskFailed" - RequestCancelExternalWorkflowExecutionFailed -> "RequestCancelExternalWorkflowExecutionFailed" - RequestCancelExternalWorkflowExecutionInitiated -> "RequestCancelExternalWorkflowExecutionInitiated" - ScheduleActivityTaskFailed -> "ScheduleActivityTaskFailed" - ScheduleLambdaFunctionFailed -> "ScheduleLambdaFunctionFailed" - SignalExternalWorkflowExecutionFailed -> "SignalExternalWorkflowExecutionFailed" - SignalExternalWorkflowExecutionInitiated -> "SignalExternalWorkflowExecutionInitiated" - StartChildWorkflowExecutionFailed -> "StartChildWorkflowExecutionFailed" - StartChildWorkflowExecutionInitiated -> "StartChildWorkflowExecutionInitiated" - StartLambdaFunctionFailed -> "StartLambdaFunctionFailed" - StartTimerFailed -> "StartTimerFailed" - TimerCanceled -> "TimerCanceled" - TimerFired -> "TimerFired" - TimerStarted -> "TimerStarted" - WorkflowExecutionCancelRequested -> "WorkflowExecutionCancelRequested" - WorkflowExecutionCanceled -> "WorkflowExecutionCanceled" - WorkflowExecutionCompleted -> "WorkflowExecutionCompleted" - WorkflowExecutionContinuedAsNew -> "WorkflowExecutionContinuedAsNew" - WorkflowExecutionFailed -> "WorkflowExecutionFailed" - WorkflowExecutionSignaled -> "WorkflowExecutionSignaled" - WorkflowExecutionStarted -> "WorkflowExecutionStarted" - WorkflowExecutionTerminated -> "WorkflowExecutionTerminated" - WorkflowExecutionTimedOut -> "WorkflowExecutionTimedOut" - -instance Hashable EventType -instance NFData EventType -instance ToByteString EventType -instance ToQuery EventType -instance ToHeader EventType - -instance FromJSON EventType where - parseJSON = parseJSONText "EventType" - -data ExecutionStatus - = Closed - | Open - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText ExecutionStatus where - parser = takeLowerText >>= \case - "closed" -> pure Closed - "open" -> pure Open - e -> fromTextError $ "Failure parsing ExecutionStatus from value: '" <> e - <> "'. Accepted values: closed, open" - -instance ToText ExecutionStatus where - toText = \case - Closed -> "CLOSED" - Open -> "OPEN" - -instance Hashable ExecutionStatus -instance NFData ExecutionStatus -instance ToByteString ExecutionStatus -instance ToQuery ExecutionStatus -instance ToHeader ExecutionStatus - -instance FromJSON ExecutionStatus where - parseJSON = parseJSONText "ExecutionStatus" - -data FailWorkflowExecutionFailedCause - = FWEFCOperationNotPermitted - | FWEFCUnhandledDecision - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText FailWorkflowExecutionFailedCause where - parser = takeLowerText >>= \case - "operation_not_permitted" -> pure FWEFCOperationNotPermitted - "unhandled_decision" -> pure FWEFCUnhandledDecision - e -> fromTextError $ "Failure parsing FailWorkflowExecutionFailedCause from value: '" <> e - <> "'. Accepted values: operation_not_permitted, unhandled_decision" - -instance ToText FailWorkflowExecutionFailedCause where - toText = \case - FWEFCOperationNotPermitted -> "OPERATION_NOT_PERMITTED" - FWEFCUnhandledDecision -> "UNHANDLED_DECISION" - -instance Hashable FailWorkflowExecutionFailedCause -instance NFData FailWorkflowExecutionFailedCause -instance ToByteString FailWorkflowExecutionFailedCause -instance ToQuery FailWorkflowExecutionFailedCause -instance ToHeader FailWorkflowExecutionFailedCause - -instance FromJSON FailWorkflowExecutionFailedCause where - parseJSON = parseJSONText "FailWorkflowExecutionFailedCause" - -data LambdaFunctionTimeoutType = - LFTTStartToClose - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText LambdaFunctionTimeoutType where - parser = takeLowerText >>= \case - "start_to_close" -> pure LFTTStartToClose - e -> fromTextError $ "Failure parsing LambdaFunctionTimeoutType from value: '" <> e - <> "'. Accepted values: start_to_close" - -instance ToText LambdaFunctionTimeoutType where - toText = \case - LFTTStartToClose -> "START_TO_CLOSE" - -instance Hashable LambdaFunctionTimeoutType -instance NFData LambdaFunctionTimeoutType -instance ToByteString LambdaFunctionTimeoutType -instance ToQuery LambdaFunctionTimeoutType -instance ToHeader LambdaFunctionTimeoutType - -instance FromJSON LambdaFunctionTimeoutType where - parseJSON = parseJSONText "LambdaFunctionTimeoutType" - -data RecordMarkerFailedCause = - OperationNotPermitted - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText RecordMarkerFailedCause where - parser = takeLowerText >>= \case - "operation_not_permitted" -> pure OperationNotPermitted - e -> fromTextError $ "Failure parsing RecordMarkerFailedCause from value: '" <> e - <> "'. Accepted values: operation_not_permitted" - -instance ToText RecordMarkerFailedCause where - toText = \case - OperationNotPermitted -> "OPERATION_NOT_PERMITTED" - -instance Hashable RecordMarkerFailedCause -instance NFData RecordMarkerFailedCause -instance ToByteString RecordMarkerFailedCause -instance ToQuery RecordMarkerFailedCause -instance ToHeader RecordMarkerFailedCause - -instance FromJSON RecordMarkerFailedCause where - parseJSON = parseJSONText "RecordMarkerFailedCause" - -data RegistrationStatus - = Deprecated - | Registered - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText RegistrationStatus where - parser = takeLowerText >>= \case - "deprecated" -> pure Deprecated - "registered" -> pure Registered - e -> fromTextError $ "Failure parsing RegistrationStatus from value: '" <> e - <> "'. Accepted values: deprecated, registered" - -instance ToText RegistrationStatus where - toText = \case - Deprecated -> "DEPRECATED" - Registered -> "REGISTERED" - -instance Hashable RegistrationStatus -instance NFData RegistrationStatus -instance ToByteString RegistrationStatus -instance ToQuery RegistrationStatus -instance ToHeader RegistrationStatus - -instance ToJSON RegistrationStatus where - toJSON = toJSONText - -instance FromJSON RegistrationStatus where - parseJSON = parseJSONText "RegistrationStatus" - -data RequestCancelActivityTaskFailedCause - = RCATFCActivityIdUnknown - | RCATFCOperationNotPermitted - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText RequestCancelActivityTaskFailedCause where - parser = takeLowerText >>= \case - "activity_id_unknown" -> pure RCATFCActivityIdUnknown - "operation_not_permitted" -> pure RCATFCOperationNotPermitted - e -> fromTextError $ "Failure parsing RequestCancelActivityTaskFailedCause from value: '" <> e - <> "'. Accepted values: activity_id_unknown, operation_not_permitted" - -instance ToText RequestCancelActivityTaskFailedCause where - toText = \case - RCATFCActivityIdUnknown -> "ACTIVITY_ID_UNKNOWN" - RCATFCOperationNotPermitted -> "OPERATION_NOT_PERMITTED" - -instance Hashable RequestCancelActivityTaskFailedCause -instance NFData RequestCancelActivityTaskFailedCause -instance ToByteString RequestCancelActivityTaskFailedCause -instance ToQuery RequestCancelActivityTaskFailedCause -instance ToHeader RequestCancelActivityTaskFailedCause - -instance FromJSON RequestCancelActivityTaskFailedCause where - parseJSON = parseJSONText "RequestCancelActivityTaskFailedCause" - -data RequestCancelExternalWorkflowExecutionFailedCause - = RCEWEFCOperationNotPermitted - | RCEWEFCRequestCancelExternalWorkflowExecutionRateExceeded - | RCEWEFCUnknownExternalWorkflowExecution - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText RequestCancelExternalWorkflowExecutionFailedCause where - parser = takeLowerText >>= \case - "operation_not_permitted" -> pure RCEWEFCOperationNotPermitted - "request_cancel_external_workflow_execution_rate_exceeded" -> pure RCEWEFCRequestCancelExternalWorkflowExecutionRateExceeded - "unknown_external_workflow_execution" -> pure RCEWEFCUnknownExternalWorkflowExecution - e -> fromTextError $ "Failure parsing RequestCancelExternalWorkflowExecutionFailedCause from value: '" <> e - <> "'. Accepted values: operation_not_permitted, request_cancel_external_workflow_execution_rate_exceeded, unknown_external_workflow_execution" - -instance ToText RequestCancelExternalWorkflowExecutionFailedCause where - toText = \case - RCEWEFCOperationNotPermitted -> "OPERATION_NOT_PERMITTED" - RCEWEFCRequestCancelExternalWorkflowExecutionRateExceeded -> "REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION_RATE_EXCEEDED" - RCEWEFCUnknownExternalWorkflowExecution -> "UNKNOWN_EXTERNAL_WORKFLOW_EXECUTION" - -instance Hashable RequestCancelExternalWorkflowExecutionFailedCause -instance NFData RequestCancelExternalWorkflowExecutionFailedCause -instance ToByteString RequestCancelExternalWorkflowExecutionFailedCause -instance ToQuery RequestCancelExternalWorkflowExecutionFailedCause -instance ToHeader RequestCancelExternalWorkflowExecutionFailedCause - -instance FromJSON RequestCancelExternalWorkflowExecutionFailedCause where - parseJSON = parseJSONText "RequestCancelExternalWorkflowExecutionFailedCause" - -data ScheduleActivityTaskFailedCause - = SATFCActivityCreationRateExceeded - | SATFCActivityIdAlreadyInUse - | SATFCActivityTypeDeprecated - | SATFCActivityTypeDoesNotExist - | SATFCDefaultHeartbeatTimeoutUndefined - | SATFCDefaultScheduleToCloseTimeoutUndefined - | SATFCDefaultScheduleToStartTimeoutUndefined - | SATFCDefaultStartToCloseTimeoutUndefined - | SATFCDefaultTaskListUndefined - | SATFCOpenActivitiesLimitExceeded - | SATFCOperationNotPermitted - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText ScheduleActivityTaskFailedCause where - parser = takeLowerText >>= \case - "activity_creation_rate_exceeded" -> pure SATFCActivityCreationRateExceeded - "activity_id_already_in_use" -> pure SATFCActivityIdAlreadyInUse - "activity_type_deprecated" -> pure SATFCActivityTypeDeprecated - "activity_type_does_not_exist" -> pure SATFCActivityTypeDoesNotExist - "default_heartbeat_timeout_undefined" -> pure SATFCDefaultHeartbeatTimeoutUndefined - "default_schedule_to_close_timeout_undefined" -> pure SATFCDefaultScheduleToCloseTimeoutUndefined - "default_schedule_to_start_timeout_undefined" -> pure SATFCDefaultScheduleToStartTimeoutUndefined - "default_start_to_close_timeout_undefined" -> pure SATFCDefaultStartToCloseTimeoutUndefined - "default_task_list_undefined" -> pure SATFCDefaultTaskListUndefined - "open_activities_limit_exceeded" -> pure SATFCOpenActivitiesLimitExceeded - "operation_not_permitted" -> pure SATFCOperationNotPermitted - e -> fromTextError $ "Failure parsing ScheduleActivityTaskFailedCause from value: '" <> e - <> "'. Accepted values: activity_creation_rate_exceeded, activity_id_already_in_use, activity_type_deprecated, activity_type_does_not_exist, default_heartbeat_timeout_undefined, default_schedule_to_close_timeout_undefined, default_schedule_to_start_timeout_undefined, default_start_to_close_timeout_undefined, default_task_list_undefined, open_activities_limit_exceeded, operation_not_permitted" - -instance ToText ScheduleActivityTaskFailedCause where - toText = \case - SATFCActivityCreationRateExceeded -> "ACTIVITY_CREATION_RATE_EXCEEDED" - SATFCActivityIdAlreadyInUse -> "ACTIVITY_ID_ALREADY_IN_USE" - SATFCActivityTypeDeprecated -> "ACTIVITY_TYPE_DEPRECATED" - SATFCActivityTypeDoesNotExist -> "ACTIVITY_TYPE_DOES_NOT_EXIST" - SATFCDefaultHeartbeatTimeoutUndefined -> "DEFAULT_HEARTBEAT_TIMEOUT_UNDEFINED" - SATFCDefaultScheduleToCloseTimeoutUndefined -> "DEFAULT_SCHEDULE_TO_CLOSE_TIMEOUT_UNDEFINED" - SATFCDefaultScheduleToStartTimeoutUndefined -> "DEFAULT_SCHEDULE_TO_START_TIMEOUT_UNDEFINED" - SATFCDefaultStartToCloseTimeoutUndefined -> "DEFAULT_START_TO_CLOSE_TIMEOUT_UNDEFINED" - SATFCDefaultTaskListUndefined -> "DEFAULT_TASK_LIST_UNDEFINED" - SATFCOpenActivitiesLimitExceeded -> "OPEN_ACTIVITIES_LIMIT_EXCEEDED" - SATFCOperationNotPermitted -> "OPERATION_NOT_PERMITTED" - -instance Hashable ScheduleActivityTaskFailedCause -instance NFData ScheduleActivityTaskFailedCause -instance ToByteString ScheduleActivityTaskFailedCause -instance ToQuery ScheduleActivityTaskFailedCause -instance ToHeader ScheduleActivityTaskFailedCause - -instance FromJSON ScheduleActivityTaskFailedCause where - parseJSON = parseJSONText "ScheduleActivityTaskFailedCause" - -data ScheduleLambdaFunctionFailedCause - = IdAlreadyInUse - | LambdaFunctionCreationRateExceeded - | LambdaServiceNotAvailableInRegion - | OpenLambdaFunctionsLimitExceeded - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText ScheduleLambdaFunctionFailedCause where - parser = takeLowerText >>= \case - "id_already_in_use" -> pure IdAlreadyInUse - "lambda_function_creation_rate_exceeded" -> pure LambdaFunctionCreationRateExceeded - "lambda_service_not_available_in_region" -> pure LambdaServiceNotAvailableInRegion - "open_lambda_functions_limit_exceeded" -> pure OpenLambdaFunctionsLimitExceeded - e -> fromTextError $ "Failure parsing ScheduleLambdaFunctionFailedCause from value: '" <> e - <> "'. Accepted values: id_already_in_use, lambda_function_creation_rate_exceeded, lambda_service_not_available_in_region, open_lambda_functions_limit_exceeded" - -instance ToText ScheduleLambdaFunctionFailedCause where - toText = \case - IdAlreadyInUse -> "ID_ALREADY_IN_USE" - LambdaFunctionCreationRateExceeded -> "LAMBDA_FUNCTION_CREATION_RATE_EXCEEDED" - LambdaServiceNotAvailableInRegion -> "LAMBDA_SERVICE_NOT_AVAILABLE_IN_REGION" - OpenLambdaFunctionsLimitExceeded -> "OPEN_LAMBDA_FUNCTIONS_LIMIT_EXCEEDED" - -instance Hashable ScheduleLambdaFunctionFailedCause -instance NFData ScheduleLambdaFunctionFailedCause -instance ToByteString ScheduleLambdaFunctionFailedCause -instance ToQuery ScheduleLambdaFunctionFailedCause -instance ToHeader ScheduleLambdaFunctionFailedCause - -instance FromJSON ScheduleLambdaFunctionFailedCause where - parseJSON = parseJSONText "ScheduleLambdaFunctionFailedCause" - -data SignalExternalWorkflowExecutionFailedCause - = SEWEFCOperationNotPermitted - | SEWEFCSignalExternalWorkflowExecutionRateExceeded - | SEWEFCUnknownExternalWorkflowExecution - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText SignalExternalWorkflowExecutionFailedCause where - parser = takeLowerText >>= \case - "operation_not_permitted" -> pure SEWEFCOperationNotPermitted - "signal_external_workflow_execution_rate_exceeded" -> pure SEWEFCSignalExternalWorkflowExecutionRateExceeded - "unknown_external_workflow_execution" -> pure SEWEFCUnknownExternalWorkflowExecution - e -> fromTextError $ "Failure parsing SignalExternalWorkflowExecutionFailedCause from value: '" <> e - <> "'. Accepted values: operation_not_permitted, signal_external_workflow_execution_rate_exceeded, unknown_external_workflow_execution" - -instance ToText SignalExternalWorkflowExecutionFailedCause where - toText = \case - SEWEFCOperationNotPermitted -> "OPERATION_NOT_PERMITTED" - SEWEFCSignalExternalWorkflowExecutionRateExceeded -> "SIGNAL_EXTERNAL_WORKFLOW_EXECUTION_RATE_EXCEEDED" - SEWEFCUnknownExternalWorkflowExecution -> "UNKNOWN_EXTERNAL_WORKFLOW_EXECUTION" - -instance Hashable SignalExternalWorkflowExecutionFailedCause -instance NFData SignalExternalWorkflowExecutionFailedCause -instance ToByteString SignalExternalWorkflowExecutionFailedCause -instance ToQuery SignalExternalWorkflowExecutionFailedCause -instance ToHeader SignalExternalWorkflowExecutionFailedCause - -instance FromJSON SignalExternalWorkflowExecutionFailedCause where - parseJSON = parseJSONText "SignalExternalWorkflowExecutionFailedCause" - -data StartChildWorkflowExecutionFailedCause - = SCWEFCChildCreationRateExceeded - | SCWEFCDefaultChildPolicyUndefined - | SCWEFCDefaultExecutionStartToCloseTimeoutUndefined - | SCWEFCDefaultTaskListUndefined - | SCWEFCDefaultTaskStartToCloseTimeoutUndefined - | SCWEFCOpenChildrenLimitExceeded - | SCWEFCOpenWorkflowsLimitExceeded - | SCWEFCOperationNotPermitted - | SCWEFCWorkflowAlreadyRunning - | SCWEFCWorkflowTypeDeprecated - | SCWEFCWorkflowTypeDoesNotExist - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText StartChildWorkflowExecutionFailedCause where - parser = takeLowerText >>= \case - "child_creation_rate_exceeded" -> pure SCWEFCChildCreationRateExceeded - "default_child_policy_undefined" -> pure SCWEFCDefaultChildPolicyUndefined - "default_execution_start_to_close_timeout_undefined" -> pure SCWEFCDefaultExecutionStartToCloseTimeoutUndefined - "default_task_list_undefined" -> pure SCWEFCDefaultTaskListUndefined - "default_task_start_to_close_timeout_undefined" -> pure SCWEFCDefaultTaskStartToCloseTimeoutUndefined - "open_children_limit_exceeded" -> pure SCWEFCOpenChildrenLimitExceeded - "open_workflows_limit_exceeded" -> pure SCWEFCOpenWorkflowsLimitExceeded - "operation_not_permitted" -> pure SCWEFCOperationNotPermitted - "workflow_already_running" -> pure SCWEFCWorkflowAlreadyRunning - "workflow_type_deprecated" -> pure SCWEFCWorkflowTypeDeprecated - "workflow_type_does_not_exist" -> pure SCWEFCWorkflowTypeDoesNotExist - e -> fromTextError $ "Failure parsing StartChildWorkflowExecutionFailedCause from value: '" <> e - <> "'. Accepted values: child_creation_rate_exceeded, default_child_policy_undefined, default_execution_start_to_close_timeout_undefined, default_task_list_undefined, default_task_start_to_close_timeout_undefined, open_children_limit_exceeded, open_workflows_limit_exceeded, operation_not_permitted, workflow_already_running, workflow_type_deprecated, workflow_type_does_not_exist" - -instance ToText StartChildWorkflowExecutionFailedCause where - toText = \case - SCWEFCChildCreationRateExceeded -> "CHILD_CREATION_RATE_EXCEEDED" - SCWEFCDefaultChildPolicyUndefined -> "DEFAULT_CHILD_POLICY_UNDEFINED" - SCWEFCDefaultExecutionStartToCloseTimeoutUndefined -> "DEFAULT_EXECUTION_START_TO_CLOSE_TIMEOUT_UNDEFINED" - SCWEFCDefaultTaskListUndefined -> "DEFAULT_TASK_LIST_UNDEFINED" - SCWEFCDefaultTaskStartToCloseTimeoutUndefined -> "DEFAULT_TASK_START_TO_CLOSE_TIMEOUT_UNDEFINED" - SCWEFCOpenChildrenLimitExceeded -> "OPEN_CHILDREN_LIMIT_EXCEEDED" - SCWEFCOpenWorkflowsLimitExceeded -> "OPEN_WORKFLOWS_LIMIT_EXCEEDED" - SCWEFCOperationNotPermitted -> "OPERATION_NOT_PERMITTED" - SCWEFCWorkflowAlreadyRunning -> "WORKFLOW_ALREADY_RUNNING" - SCWEFCWorkflowTypeDeprecated -> "WORKFLOW_TYPE_DEPRECATED" - SCWEFCWorkflowTypeDoesNotExist -> "WORKFLOW_TYPE_DOES_NOT_EXIST" - -instance Hashable StartChildWorkflowExecutionFailedCause -instance NFData StartChildWorkflowExecutionFailedCause -instance ToByteString StartChildWorkflowExecutionFailedCause -instance ToQuery StartChildWorkflowExecutionFailedCause -instance ToHeader StartChildWorkflowExecutionFailedCause - -instance FromJSON StartChildWorkflowExecutionFailedCause where - parseJSON = parseJSONText "StartChildWorkflowExecutionFailedCause" - -data StartLambdaFunctionFailedCause = - AssumeRoleFailed - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText StartLambdaFunctionFailedCause where - parser = takeLowerText >>= \case - "assume_role_failed" -> pure AssumeRoleFailed - e -> fromTextError $ "Failure parsing StartLambdaFunctionFailedCause from value: '" <> e - <> "'. Accepted values: assume_role_failed" - -instance ToText StartLambdaFunctionFailedCause where - toText = \case - AssumeRoleFailed -> "ASSUME_ROLE_FAILED" - -instance Hashable StartLambdaFunctionFailedCause -instance NFData StartLambdaFunctionFailedCause -instance ToByteString StartLambdaFunctionFailedCause -instance ToQuery StartLambdaFunctionFailedCause -instance ToHeader StartLambdaFunctionFailedCause - -instance FromJSON StartLambdaFunctionFailedCause where - parseJSON = parseJSONText "StartLambdaFunctionFailedCause" - -data StartTimerFailedCause - = STFCOpenTimersLimitExceeded - | STFCOperationNotPermitted - | STFCTimerCreationRateExceeded - | STFCTimerIdAlreadyInUse - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText StartTimerFailedCause where - parser = takeLowerText >>= \case - "open_timers_limit_exceeded" -> pure STFCOpenTimersLimitExceeded - "operation_not_permitted" -> pure STFCOperationNotPermitted - "timer_creation_rate_exceeded" -> pure STFCTimerCreationRateExceeded - "timer_id_already_in_use" -> pure STFCTimerIdAlreadyInUse - e -> fromTextError $ "Failure parsing StartTimerFailedCause from value: '" <> e - <> "'. Accepted values: open_timers_limit_exceeded, operation_not_permitted, timer_creation_rate_exceeded, timer_id_already_in_use" - -instance ToText StartTimerFailedCause where - toText = \case - STFCOpenTimersLimitExceeded -> "OPEN_TIMERS_LIMIT_EXCEEDED" - STFCOperationNotPermitted -> "OPERATION_NOT_PERMITTED" - STFCTimerCreationRateExceeded -> "TIMER_CREATION_RATE_EXCEEDED" - STFCTimerIdAlreadyInUse -> "TIMER_ID_ALREADY_IN_USE" - -instance Hashable StartTimerFailedCause -instance NFData StartTimerFailedCause -instance ToByteString StartTimerFailedCause -instance ToQuery StartTimerFailedCause -instance ToHeader StartTimerFailedCause - -instance FromJSON StartTimerFailedCause where - parseJSON = parseJSONText "StartTimerFailedCause" - -data WorkflowExecutionCancelRequestedCause = - ChildPolicyApplied - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText WorkflowExecutionCancelRequestedCause where - parser = takeLowerText >>= \case - "child_policy_applied" -> pure ChildPolicyApplied - e -> fromTextError $ "Failure parsing WorkflowExecutionCancelRequestedCause from value: '" <> e - <> "'. Accepted values: child_policy_applied" - -instance ToText WorkflowExecutionCancelRequestedCause where - toText = \case - ChildPolicyApplied -> "CHILD_POLICY_APPLIED" - -instance Hashable WorkflowExecutionCancelRequestedCause -instance NFData WorkflowExecutionCancelRequestedCause -instance ToByteString WorkflowExecutionCancelRequestedCause -instance ToQuery WorkflowExecutionCancelRequestedCause -instance ToHeader WorkflowExecutionCancelRequestedCause - -instance FromJSON WorkflowExecutionCancelRequestedCause where - parseJSON = parseJSONText "WorkflowExecutionCancelRequestedCause" - -data WorkflowExecutionTerminatedCause - = WETCChildPolicyApplied - | WETCEventLimitExceeded - | WETCOperatorInitiated - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText WorkflowExecutionTerminatedCause where - parser = takeLowerText >>= \case - "child_policy_applied" -> pure WETCChildPolicyApplied - "event_limit_exceeded" -> pure WETCEventLimitExceeded - "operator_initiated" -> pure WETCOperatorInitiated - e -> fromTextError $ "Failure parsing WorkflowExecutionTerminatedCause from value: '" <> e - <> "'. Accepted values: child_policy_applied, event_limit_exceeded, operator_initiated" - -instance ToText WorkflowExecutionTerminatedCause where - toText = \case - WETCChildPolicyApplied -> "CHILD_POLICY_APPLIED" - WETCEventLimitExceeded -> "EVENT_LIMIT_EXCEEDED" - WETCOperatorInitiated -> "OPERATOR_INITIATED" - -instance Hashable WorkflowExecutionTerminatedCause -instance NFData WorkflowExecutionTerminatedCause -instance ToByteString WorkflowExecutionTerminatedCause -instance ToQuery WorkflowExecutionTerminatedCause -instance ToHeader WorkflowExecutionTerminatedCause - -instance FromJSON WorkflowExecutionTerminatedCause where - parseJSON = parseJSONText "WorkflowExecutionTerminatedCause" - -data WorkflowExecutionTimeoutType = - WETTStartToClose - deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) - - -instance FromText WorkflowExecutionTimeoutType where - parser = takeLowerText >>= \case - "start_to_close" -> pure WETTStartToClose - e -> fromTextError $ "Failure parsing WorkflowExecutionTimeoutType from value: '" <> e - <> "'. Accepted values: start_to_close" - -instance ToText WorkflowExecutionTimeoutType where - toText = \case - WETTStartToClose -> "START_TO_CLOSE" - -instance Hashable WorkflowExecutionTimeoutType -instance NFData WorkflowExecutionTimeoutType -instance ToByteString WorkflowExecutionTimeoutType -instance ToQuery WorkflowExecutionTimeoutType -instance ToHeader WorkflowExecutionTimeoutType - -instance FromJSON WorkflowExecutionTimeoutType where - parseJSON = parseJSONText "WorkflowExecutionTimeoutType" diff --git a/gen/Network/AWS/SWF/Waiters.hs b/gen/Network/AWS/SWF/Waiters.hs deleted file mode 100644 --- a/gen/Network/AWS/SWF/Waiters.hs +++ /dev/null @@ -1,21 +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.SWF.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.SWF.Waiters where - -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.SWF.Types -import Network.AWS.Waiter 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.SWF +import Test.Amazonka.SWF.Internal import Test.Tasty -import Test.AWS.SWF -import Test.AWS.SWF.Internal main :: IO () -main = defaultMain $ testGroup "SWF" - [ testGroup "tests" tests - , testGroup "fixtures" fixtures - ] +main = + defaultMain $ + testGroup + "SWF" + [ testGroup "tests" tests, + testGroup "fixtures" fixtures + ] diff --git a/test/Test/AWS/Gen/SWF.hs b/test/Test/AWS/Gen/SWF.hs deleted file mode 100644 --- a/test/Test/AWS/Gen/SWF.hs +++ /dev/null @@ -1,597 +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.SWF --- 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.SWF where - -import Data.Proxy -import Network.AWS.SWF -import Test.AWS.Fixture -import Test.AWS.Prelude -import Test.AWS.SWF.Internal -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" --- [ requestListOpenWorkflowExecutions $ --- listOpenWorkflowExecutions --- --- , requestRegisterActivityType $ --- registerActivityType --- --- , requestListActivityTypes $ --- listActivityTypes --- --- , requestCountPendingActivityTasks $ --- countPendingActivityTasks --- --- , requestRegisterWorkflowType $ --- registerWorkflowType --- --- , requestListWorkflowTypes $ --- listWorkflowTypes --- --- , requestRespondActivityTaskFailed $ --- respondActivityTaskFailed --- --- , requestCountOpenWorkflowExecutions $ --- countOpenWorkflowExecutions --- --- , requestDescribeWorkflowType $ --- describeWorkflowType --- --- , requestDeprecateWorkflowType $ --- deprecateWorkflowType --- --- , requestRequestCancelWorkflowExecution $ --- requestCancelWorkflowExecution --- --- , requestRegisterDomain $ --- registerDomain --- --- , requestRespondDecisionTaskCompleted $ --- respondDecisionTaskCompleted --- --- , requestPollForActivityTask $ --- pollForActivityTask --- --- , requestRespondActivityTaskCompleted $ --- respondActivityTaskCompleted --- --- , requestDescribeWorkflowExecution $ --- describeWorkflowExecution --- --- , requestSignalWorkflowExecution $ --- signalWorkflowExecution --- --- , requestCountPendingDecisionTasks $ --- countPendingDecisionTasks --- --- , requestListClosedWorkflowExecutions $ --- listClosedWorkflowExecutions --- --- , requestRecordActivityTaskHeartbeat $ --- recordActivityTaskHeartbeat --- --- , requestDescribeDomain $ --- describeDomain --- --- , requestGetWorkflowExecutionHistory $ --- getWorkflowExecutionHistory --- --- , requestDeprecateDomain $ --- deprecateDomain --- --- , requestTerminateWorkflowExecution $ --- terminateWorkflowExecution --- --- , requestDescribeActivityType $ --- describeActivityType --- --- , requestDeprecateActivityType $ --- deprecateActivityType --- --- , requestCountClosedWorkflowExecutions $ --- countClosedWorkflowExecutions --- --- , requestRespondActivityTaskCanceled $ --- respondActivityTaskCanceled --- --- , requestStartWorkflowExecution $ --- startWorkflowExecution --- --- , requestPollForDecisionTask $ --- pollForDecisionTask --- --- , requestListDomains $ --- listDomains --- --- ] - --- , testGroup "response" --- [ responseListOpenWorkflowExecutions $ --- workflowExecutionInfos --- --- , responseRegisterActivityType $ --- registerActivityTypeResponse --- --- , responseListActivityTypes $ --- listActivityTypesResponse --- --- , responseCountPendingActivityTasks $ --- pendingTaskCount --- --- , responseRegisterWorkflowType $ --- registerWorkflowTypeResponse --- --- , responseListWorkflowTypes $ --- listWorkflowTypesResponse --- --- , responseRespondActivityTaskFailed $ --- respondActivityTaskFailedResponse --- --- , responseCountOpenWorkflowExecutions $ --- workflowExecutionCount --- --- , responseDescribeWorkflowType $ --- describeWorkflowTypeResponse --- --- , responseDeprecateWorkflowType $ --- deprecateWorkflowTypeResponse --- --- , responseRequestCancelWorkflowExecution $ --- requestCancelWorkflowExecutionResponse --- --- , responseRegisterDomain $ --- registerDomainResponse --- --- , responseRespondDecisionTaskCompleted $ --- respondDecisionTaskCompletedResponse --- --- , responsePollForActivityTask $ --- pollForActivityTaskResponse --- --- , responseRespondActivityTaskCompleted $ --- respondActivityTaskCompletedResponse --- --- , responseDescribeWorkflowExecution $ --- describeWorkflowExecutionResponse --- --- , responseSignalWorkflowExecution $ --- signalWorkflowExecutionResponse --- --- , responseCountPendingDecisionTasks $ --- pendingTaskCount --- --- , responseListClosedWorkflowExecutions $ --- workflowExecutionInfos --- --- , responseRecordActivityTaskHeartbeat $ --- recordActivityTaskHeartbeatResponse --- --- , responseDescribeDomain $ --- describeDomainResponse --- --- , responseGetWorkflowExecutionHistory $ --- getWorkflowExecutionHistoryResponse --- --- , responseDeprecateDomain $ --- deprecateDomainResponse --- --- , responseTerminateWorkflowExecution $ --- terminateWorkflowExecutionResponse --- --- , responseDescribeActivityType $ --- describeActivityTypeResponse --- --- , responseDeprecateActivityType $ --- deprecateActivityTypeResponse --- --- , responseCountClosedWorkflowExecutions $ --- workflowExecutionCount --- --- , responseRespondActivityTaskCanceled $ --- respondActivityTaskCanceledResponse --- --- , responseStartWorkflowExecution $ --- startWorkflowExecutionResponse --- --- , responsePollForDecisionTask $ --- pollForDecisionTaskResponse --- --- , responseListDomains $ --- listDomainsResponse --- --- ] --- ] - --- Requests - -requestListOpenWorkflowExecutions :: ListOpenWorkflowExecutions -> TestTree -requestListOpenWorkflowExecutions = req - "ListOpenWorkflowExecutions" - "fixture/ListOpenWorkflowExecutions.yaml" - -requestRegisterActivityType :: RegisterActivityType -> TestTree -requestRegisterActivityType = req - "RegisterActivityType" - "fixture/RegisterActivityType.yaml" - -requestListActivityTypes :: ListActivityTypes -> TestTree -requestListActivityTypes = req - "ListActivityTypes" - "fixture/ListActivityTypes.yaml" - -requestCountPendingActivityTasks :: CountPendingActivityTasks -> TestTree -requestCountPendingActivityTasks = req - "CountPendingActivityTasks" - "fixture/CountPendingActivityTasks.yaml" - -requestRegisterWorkflowType :: RegisterWorkflowType -> TestTree -requestRegisterWorkflowType = req - "RegisterWorkflowType" - "fixture/RegisterWorkflowType.yaml" - -requestListWorkflowTypes :: ListWorkflowTypes -> TestTree -requestListWorkflowTypes = req - "ListWorkflowTypes" - "fixture/ListWorkflowTypes.yaml" - -requestRespondActivityTaskFailed :: RespondActivityTaskFailed -> TestTree -requestRespondActivityTaskFailed = req - "RespondActivityTaskFailed" - "fixture/RespondActivityTaskFailed.yaml" - -requestCountOpenWorkflowExecutions :: CountOpenWorkflowExecutions -> TestTree -requestCountOpenWorkflowExecutions = req - "CountOpenWorkflowExecutions" - "fixture/CountOpenWorkflowExecutions.yaml" - -requestDescribeWorkflowType :: DescribeWorkflowType -> TestTree -requestDescribeWorkflowType = req - "DescribeWorkflowType" - "fixture/DescribeWorkflowType.yaml" - -requestDeprecateWorkflowType :: DeprecateWorkflowType -> TestTree -requestDeprecateWorkflowType = req - "DeprecateWorkflowType" - "fixture/DeprecateWorkflowType.yaml" - -requestRequestCancelWorkflowExecution :: RequestCancelWorkflowExecution -> TestTree -requestRequestCancelWorkflowExecution = req - "RequestCancelWorkflowExecution" - "fixture/RequestCancelWorkflowExecution.yaml" - -requestRegisterDomain :: RegisterDomain -> TestTree -requestRegisterDomain = req - "RegisterDomain" - "fixture/RegisterDomain.yaml" - -requestRespondDecisionTaskCompleted :: RespondDecisionTaskCompleted -> TestTree -requestRespondDecisionTaskCompleted = req - "RespondDecisionTaskCompleted" - "fixture/RespondDecisionTaskCompleted.yaml" - -requestPollForActivityTask :: PollForActivityTask -> TestTree -requestPollForActivityTask = req - "PollForActivityTask" - "fixture/PollForActivityTask.yaml" - -requestRespondActivityTaskCompleted :: RespondActivityTaskCompleted -> TestTree -requestRespondActivityTaskCompleted = req - "RespondActivityTaskCompleted" - "fixture/RespondActivityTaskCompleted.yaml" - -requestDescribeWorkflowExecution :: DescribeWorkflowExecution -> TestTree -requestDescribeWorkflowExecution = req - "DescribeWorkflowExecution" - "fixture/DescribeWorkflowExecution.yaml" - -requestSignalWorkflowExecution :: SignalWorkflowExecution -> TestTree -requestSignalWorkflowExecution = req - "SignalWorkflowExecution" - "fixture/SignalWorkflowExecution.yaml" - -requestCountPendingDecisionTasks :: CountPendingDecisionTasks -> TestTree -requestCountPendingDecisionTasks = req - "CountPendingDecisionTasks" - "fixture/CountPendingDecisionTasks.yaml" - -requestListClosedWorkflowExecutions :: ListClosedWorkflowExecutions -> TestTree -requestListClosedWorkflowExecutions = req - "ListClosedWorkflowExecutions" - "fixture/ListClosedWorkflowExecutions.yaml" - -requestRecordActivityTaskHeartbeat :: RecordActivityTaskHeartbeat -> TestTree -requestRecordActivityTaskHeartbeat = req - "RecordActivityTaskHeartbeat" - "fixture/RecordActivityTaskHeartbeat.yaml" - -requestDescribeDomain :: DescribeDomain -> TestTree -requestDescribeDomain = req - "DescribeDomain" - "fixture/DescribeDomain.yaml" - -requestGetWorkflowExecutionHistory :: GetWorkflowExecutionHistory -> TestTree -requestGetWorkflowExecutionHistory = req - "GetWorkflowExecutionHistory" - "fixture/GetWorkflowExecutionHistory.yaml" - -requestDeprecateDomain :: DeprecateDomain -> TestTree -requestDeprecateDomain = req - "DeprecateDomain" - "fixture/DeprecateDomain.yaml" - -requestTerminateWorkflowExecution :: TerminateWorkflowExecution -> TestTree -requestTerminateWorkflowExecution = req - "TerminateWorkflowExecution" - "fixture/TerminateWorkflowExecution.yaml" - -requestDescribeActivityType :: DescribeActivityType -> TestTree -requestDescribeActivityType = req - "DescribeActivityType" - "fixture/DescribeActivityType.yaml" - -requestDeprecateActivityType :: DeprecateActivityType -> TestTree -requestDeprecateActivityType = req - "DeprecateActivityType" - "fixture/DeprecateActivityType.yaml" - -requestCountClosedWorkflowExecutions :: CountClosedWorkflowExecutions -> TestTree -requestCountClosedWorkflowExecutions = req - "CountClosedWorkflowExecutions" - "fixture/CountClosedWorkflowExecutions.yaml" - -requestRespondActivityTaskCanceled :: RespondActivityTaskCanceled -> TestTree -requestRespondActivityTaskCanceled = req - "RespondActivityTaskCanceled" - "fixture/RespondActivityTaskCanceled.yaml" - -requestStartWorkflowExecution :: StartWorkflowExecution -> TestTree -requestStartWorkflowExecution = req - "StartWorkflowExecution" - "fixture/StartWorkflowExecution.yaml" - -requestPollForDecisionTask :: PollForDecisionTask -> TestTree -requestPollForDecisionTask = req - "PollForDecisionTask" - "fixture/PollForDecisionTask.yaml" - -requestListDomains :: ListDomains -> TestTree -requestListDomains = req - "ListDomains" - "fixture/ListDomains.yaml" - --- Responses - -responseListOpenWorkflowExecutions :: WorkflowExecutionInfos -> TestTree -responseListOpenWorkflowExecutions = res - "ListOpenWorkflowExecutionsResponse" - "fixture/ListOpenWorkflowExecutionsResponse.proto" - swf - (Proxy :: Proxy ListOpenWorkflowExecutions) - -responseRegisterActivityType :: RegisterActivityTypeResponse -> TestTree -responseRegisterActivityType = res - "RegisterActivityTypeResponse" - "fixture/RegisterActivityTypeResponse.proto" - swf - (Proxy :: Proxy RegisterActivityType) - -responseListActivityTypes :: ListActivityTypesResponse -> TestTree -responseListActivityTypes = res - "ListActivityTypesResponse" - "fixture/ListActivityTypesResponse.proto" - swf - (Proxy :: Proxy ListActivityTypes) - -responseCountPendingActivityTasks :: PendingTaskCount -> TestTree -responseCountPendingActivityTasks = res - "CountPendingActivityTasksResponse" - "fixture/CountPendingActivityTasksResponse.proto" - swf - (Proxy :: Proxy CountPendingActivityTasks) - -responseRegisterWorkflowType :: RegisterWorkflowTypeResponse -> TestTree -responseRegisterWorkflowType = res - "RegisterWorkflowTypeResponse" - "fixture/RegisterWorkflowTypeResponse.proto" - swf - (Proxy :: Proxy RegisterWorkflowType) - -responseListWorkflowTypes :: ListWorkflowTypesResponse -> TestTree -responseListWorkflowTypes = res - "ListWorkflowTypesResponse" - "fixture/ListWorkflowTypesResponse.proto" - swf - (Proxy :: Proxy ListWorkflowTypes) - -responseRespondActivityTaskFailed :: RespondActivityTaskFailedResponse -> TestTree -responseRespondActivityTaskFailed = res - "RespondActivityTaskFailedResponse" - "fixture/RespondActivityTaskFailedResponse.proto" - swf - (Proxy :: Proxy RespondActivityTaskFailed) - -responseCountOpenWorkflowExecutions :: WorkflowExecutionCount -> TestTree -responseCountOpenWorkflowExecutions = res - "CountOpenWorkflowExecutionsResponse" - "fixture/CountOpenWorkflowExecutionsResponse.proto" - swf - (Proxy :: Proxy CountOpenWorkflowExecutions) - -responseDescribeWorkflowType :: DescribeWorkflowTypeResponse -> TestTree -responseDescribeWorkflowType = res - "DescribeWorkflowTypeResponse" - "fixture/DescribeWorkflowTypeResponse.proto" - swf - (Proxy :: Proxy DescribeWorkflowType) - -responseDeprecateWorkflowType :: DeprecateWorkflowTypeResponse -> TestTree -responseDeprecateWorkflowType = res - "DeprecateWorkflowTypeResponse" - "fixture/DeprecateWorkflowTypeResponse.proto" - swf - (Proxy :: Proxy DeprecateWorkflowType) - -responseRequestCancelWorkflowExecution :: RequestCancelWorkflowExecutionResponse -> TestTree -responseRequestCancelWorkflowExecution = res - "RequestCancelWorkflowExecutionResponse" - "fixture/RequestCancelWorkflowExecutionResponse.proto" - swf - (Proxy :: Proxy RequestCancelWorkflowExecution) - -responseRegisterDomain :: RegisterDomainResponse -> TestTree -responseRegisterDomain = res - "RegisterDomainResponse" - "fixture/RegisterDomainResponse.proto" - swf - (Proxy :: Proxy RegisterDomain) - -responseRespondDecisionTaskCompleted :: RespondDecisionTaskCompletedResponse -> TestTree -responseRespondDecisionTaskCompleted = res - "RespondDecisionTaskCompletedResponse" - "fixture/RespondDecisionTaskCompletedResponse.proto" - swf - (Proxy :: Proxy RespondDecisionTaskCompleted) - -responsePollForActivityTask :: PollForActivityTaskResponse -> TestTree -responsePollForActivityTask = res - "PollForActivityTaskResponse" - "fixture/PollForActivityTaskResponse.proto" - swf - (Proxy :: Proxy PollForActivityTask) - -responseRespondActivityTaskCompleted :: RespondActivityTaskCompletedResponse -> TestTree -responseRespondActivityTaskCompleted = res - "RespondActivityTaskCompletedResponse" - "fixture/RespondActivityTaskCompletedResponse.proto" - swf - (Proxy :: Proxy RespondActivityTaskCompleted) - -responseDescribeWorkflowExecution :: DescribeWorkflowExecutionResponse -> TestTree -responseDescribeWorkflowExecution = res - "DescribeWorkflowExecutionResponse" - "fixture/DescribeWorkflowExecutionResponse.proto" - swf - (Proxy :: Proxy DescribeWorkflowExecution) - -responseSignalWorkflowExecution :: SignalWorkflowExecutionResponse -> TestTree -responseSignalWorkflowExecution = res - "SignalWorkflowExecutionResponse" - "fixture/SignalWorkflowExecutionResponse.proto" - swf - (Proxy :: Proxy SignalWorkflowExecution) - -responseCountPendingDecisionTasks :: PendingTaskCount -> TestTree -responseCountPendingDecisionTasks = res - "CountPendingDecisionTasksResponse" - "fixture/CountPendingDecisionTasksResponse.proto" - swf - (Proxy :: Proxy CountPendingDecisionTasks) - -responseListClosedWorkflowExecutions :: WorkflowExecutionInfos -> TestTree -responseListClosedWorkflowExecutions = res - "ListClosedWorkflowExecutionsResponse" - "fixture/ListClosedWorkflowExecutionsResponse.proto" - swf - (Proxy :: Proxy ListClosedWorkflowExecutions) - -responseRecordActivityTaskHeartbeat :: RecordActivityTaskHeartbeatResponse -> TestTree -responseRecordActivityTaskHeartbeat = res - "RecordActivityTaskHeartbeatResponse" - "fixture/RecordActivityTaskHeartbeatResponse.proto" - swf - (Proxy :: Proxy RecordActivityTaskHeartbeat) - -responseDescribeDomain :: DescribeDomainResponse -> TestTree -responseDescribeDomain = res - "DescribeDomainResponse" - "fixture/DescribeDomainResponse.proto" - swf - (Proxy :: Proxy DescribeDomain) - -responseGetWorkflowExecutionHistory :: GetWorkflowExecutionHistoryResponse -> TestTree -responseGetWorkflowExecutionHistory = res - "GetWorkflowExecutionHistoryResponse" - "fixture/GetWorkflowExecutionHistoryResponse.proto" - swf - (Proxy :: Proxy GetWorkflowExecutionHistory) - -responseDeprecateDomain :: DeprecateDomainResponse -> TestTree -responseDeprecateDomain = res - "DeprecateDomainResponse" - "fixture/DeprecateDomainResponse.proto" - swf - (Proxy :: Proxy DeprecateDomain) - -responseTerminateWorkflowExecution :: TerminateWorkflowExecutionResponse -> TestTree -responseTerminateWorkflowExecution = res - "TerminateWorkflowExecutionResponse" - "fixture/TerminateWorkflowExecutionResponse.proto" - swf - (Proxy :: Proxy TerminateWorkflowExecution) - -responseDescribeActivityType :: DescribeActivityTypeResponse -> TestTree -responseDescribeActivityType = res - "DescribeActivityTypeResponse" - "fixture/DescribeActivityTypeResponse.proto" - swf - (Proxy :: Proxy DescribeActivityType) - -responseDeprecateActivityType :: DeprecateActivityTypeResponse -> TestTree -responseDeprecateActivityType = res - "DeprecateActivityTypeResponse" - "fixture/DeprecateActivityTypeResponse.proto" - swf - (Proxy :: Proxy DeprecateActivityType) - -responseCountClosedWorkflowExecutions :: WorkflowExecutionCount -> TestTree -responseCountClosedWorkflowExecutions = res - "CountClosedWorkflowExecutionsResponse" - "fixture/CountClosedWorkflowExecutionsResponse.proto" - swf - (Proxy :: Proxy CountClosedWorkflowExecutions) - -responseRespondActivityTaskCanceled :: RespondActivityTaskCanceledResponse -> TestTree -responseRespondActivityTaskCanceled = res - "RespondActivityTaskCanceledResponse" - "fixture/RespondActivityTaskCanceledResponse.proto" - swf - (Proxy :: Proxy RespondActivityTaskCanceled) - -responseStartWorkflowExecution :: StartWorkflowExecutionResponse -> TestTree -responseStartWorkflowExecution = res - "StartWorkflowExecutionResponse" - "fixture/StartWorkflowExecutionResponse.proto" - swf - (Proxy :: Proxy StartWorkflowExecution) - -responsePollForDecisionTask :: PollForDecisionTaskResponse -> TestTree -responsePollForDecisionTask = res - "PollForDecisionTaskResponse" - "fixture/PollForDecisionTaskResponse.proto" - swf - (Proxy :: Proxy PollForDecisionTask) - -responseListDomains :: ListDomainsResponse -> TestTree -responseListDomains = res - "ListDomainsResponse" - "fixture/ListDomainsResponse.proto" - swf - (Proxy :: Proxy ListDomains) diff --git a/test/Test/AWS/SWF.hs b/test/Test/AWS/SWF.hs deleted file mode 100644 --- a/test/Test/AWS/SWF.hs +++ /dev/null @@ -1,70 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE TemplateHaskell #-} - --- Module : Test.AWS.SWF --- 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.SWF - ( tests - , fixtures - ) where - -import Data.Time -import Network.AWS.Prelude -import Network.AWS.SWF -import Test.AWS.Gen.SWF -import Test.AWS.Prelude - -tests :: [TestTree] -tests = [] - -fixtures :: [TestTree] -fixtures = - [ testGroup "response" - [ responsePollForActivityTask $ - pollForActivityTaskResponse 200 11 - & pfatrsWorkflowExecution ?~ workflowExecution "20110927-T-1" "cfa2bd33-31b0-4b75-b131-255bb0d97b3f" - & pfatrsActivityType ?~ activityType "activityVerify" "1.0" - & pfatrsInput ?~ "5634-0056-4367-0923,12/12,437" - & pfatrsActivityId ?~ "verification-27" - & pfatrsTaskToken ?~ - "AAAAKgAAAAEAAAAAAAAAATZDvCYwk/hP/X1ZGdJhb+T6OWzcBx2DPhsIi5HF4aGQI4OXrDE7Ny3uM+aiAhGrmeNyVAa4yNIBQuoZuJA5G+BoaB0JuHFBOynHDTnm7ayNH43KhMkfdrDG4elfHSz3m/EtbLnFGueAr7+3NKDG6x4sTKg3cZpOtSguSx05yI1X3AtscS8ATcLB2Y3Aub1YonN/i/k67voca/GFsSiwSz3AAnJj1IPvrujgIj9KUvckwRPC5ET7d33XJcRp+gHYzZsBLVBaRmV3gEYAnp2ICslFn4YSjGy+dFXCNpOa4G1O8pczCbFUGbQ3+5wf0RSaa/xMq2pfdBKnuFp0wp8kw1k+5ZsbtDZeZn8g5GyKCLiLms/xD0OxugGGUe5ZlAoHEkTWGxZj/G32P7cMoCgrcACfFPdx1LNYYEre7YiGiyjGnfW2t5mW7VK9Np28vcXVbdpH4JNEB9OuB1xqL8N8ifPVtc72uxB1i9XEdq/8rkXasSEw4TubB2FwgqnuJstmfEhpOdb5HfhR6OwmnHuk9eszO/fUkGucTUXQP2hhB+Gz" - - , responsePollForDecisionTask $ - pollForDecisionTaskResponse 200 3 - & pfdtrsWorkflowExecution ?~ workflowExecution "20110927-T-1" "06b8f87a-24b3-40b6-9ceb-9676f28e9493" - & pfdtrsWorkflowType ?~ workflowType "customerOrderWorkflow" "1.0" - & pfdtrsTaskToken ?~ - "AAAAKgAAAAEAAAAAAAAAATZDvCYwk/hP/X1ZGdJhb+T6OWzcBx2DPhsIi5HF4aGQI4OXrDE7Ny3uM+aiAhGrmeNyVAa4yNIBQuoZuJA5G+BoaB0JuHFBOynHDTnm7ayNH43KhMkfdrDG4elfHSz3m/EtbLnFGueAr7+3NKDG6x4sTKg3cZpOtSguSx05yI1X3AtscS8ATcLB2Y3Aub1YonN/i/k67voca/GFsSiwSz3AAnJj1IPvrujgIj9KUvckwRPC5ET7d33XJcRp+gHYzZsBLVBaRmV3gEYAnp2ICslFn4YSjGy+dFXCNpOa4G1O8pczCbFUGbQ3+5wf0RSaa/xMq2pfdBKnuFp0wp8kw1k+5ZsbtDZeZn8g5GyKCLiLms/xD0OxugGGUe5ZlAoHEkTWGxZj/G32P7cMoCgrcACfFPdx1LNYYEre7YiGiyjGnfW2t5mW7VK9Np28vcXVbdpH4JNEB9OuB1xqL8N8ifPVtc72uxB1i9XEdq/8rkXasSEw4TubB2FwgqnuJstmfEhpOdb5HfhR6OwmnHuk9eszO/fUkGucTUXQP2hhB+Gz" - & pfdtrsPreviousStartedEventId ?~ 0 - & pfdtrsEvents .~ - [ historyEvent $(mkTime "2012-01-15T03:09:54.566+01:00") DecisionTaskStarted 3 - & heDecisionTaskStartedEventAttributes ?~ - (decisionTaskStartedEventAttributes 2 - & dtseaIdentity ?~ "Decider01") - - , historyEvent $(mkTime "2012-01-15T02:56:59.474+01:00") WorkflowExecutionStarted 1 - & heWorkflowExecutionStartedEventAttributes ?~ - (workflowExecutionStartedEventAttributes - Terminate - (taskList "specialTaskList") - (workflowType "customerOrderWorkflow" "1.0") - & weseaTaskStartToCloseTimeout ?~ "600" - & weseaExecutionStartToCloseTimeout ?~ "3600" - & weseaParentInitiatedEventId ?~ 0 - & weseaInput ?~ "arbitrary-string-that-is-meaningful-to-the-workflow" - & weseaTagList .~ - [ "music purchase" - , "digital" - , "ricoh-the-dog" - ]) - ] - ] - ] diff --git a/test/Test/AWS/SWF/Internal.hs b/test/Test/AWS/SWF/Internal.hs deleted file mode 100644 --- a/test/Test/AWS/SWF/Internal.hs +++ /dev/null @@ -1,16 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} -{-# OPTIONS_GHC -fno-warn-unused-imports #-} - --- Module : Test.AWS.SWF.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.SWF.Internal where - -import Test.AWS.Prelude diff --git a/test/Test/Amazonka/Gen/SWF.hs b/test/Test/Amazonka/Gen/SWF.hs new file mode 100644 --- /dev/null +++ b/test/Test/Amazonka/Gen/SWF.hs @@ -0,0 +1,778 @@ +{-# 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.SWF +-- 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.SWF where + +import Amazonka.SWF +import qualified Data.Proxy as Proxy +import Test.Amazonka.Fixture +import Test.Amazonka.Prelude +import Test.Amazonka.SWF.Internal +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" +-- [ requestCountClosedWorkflowExecutions $ +-- newCountClosedWorkflowExecutions +-- +-- , requestCountOpenWorkflowExecutions $ +-- newCountOpenWorkflowExecutions +-- +-- , requestCountPendingActivityTasks $ +-- newCountPendingActivityTasks +-- +-- , requestCountPendingDecisionTasks $ +-- newCountPendingDecisionTasks +-- +-- , requestDeprecateActivityType $ +-- newDeprecateActivityType +-- +-- , requestDeprecateDomain $ +-- newDeprecateDomain +-- +-- , requestDeprecateWorkflowType $ +-- newDeprecateWorkflowType +-- +-- , requestDescribeActivityType $ +-- newDescribeActivityType +-- +-- , requestDescribeDomain $ +-- newDescribeDomain +-- +-- , requestDescribeWorkflowExecution $ +-- newDescribeWorkflowExecution +-- +-- , requestDescribeWorkflowType $ +-- newDescribeWorkflowType +-- +-- , requestGetWorkflowExecutionHistory $ +-- newGetWorkflowExecutionHistory +-- +-- , requestListActivityTypes $ +-- newListActivityTypes +-- +-- , requestListClosedWorkflowExecutions $ +-- newListClosedWorkflowExecutions +-- +-- , requestListDomains $ +-- newListDomains +-- +-- , requestListOpenWorkflowExecutions $ +-- newListOpenWorkflowExecutions +-- +-- , requestListTagsForResource $ +-- newListTagsForResource +-- +-- , requestListWorkflowTypes $ +-- newListWorkflowTypes +-- +-- , requestPollForActivityTask $ +-- newPollForActivityTask +-- +-- , requestPollForDecisionTask $ +-- newPollForDecisionTask +-- +-- , requestRecordActivityTaskHeartbeat $ +-- newRecordActivityTaskHeartbeat +-- +-- , requestRegisterActivityType $ +-- newRegisterActivityType +-- +-- , requestRegisterDomain $ +-- newRegisterDomain +-- +-- , requestRegisterWorkflowType $ +-- newRegisterWorkflowType +-- +-- , requestRequestCancelWorkflowExecution $ +-- newRequestCancelWorkflowExecution +-- +-- , requestRespondActivityTaskCanceled $ +-- newRespondActivityTaskCanceled +-- +-- , requestRespondActivityTaskCompleted $ +-- newRespondActivityTaskCompleted +-- +-- , requestRespondActivityTaskFailed $ +-- newRespondActivityTaskFailed +-- +-- , requestRespondDecisionTaskCompleted $ +-- newRespondDecisionTaskCompleted +-- +-- , requestSignalWorkflowExecution $ +-- newSignalWorkflowExecution +-- +-- , requestStartWorkflowExecution $ +-- newStartWorkflowExecution +-- +-- , requestTagResource $ +-- newTagResource +-- +-- , requestTerminateWorkflowExecution $ +-- newTerminateWorkflowExecution +-- +-- , requestUndeprecateActivityType $ +-- newUndeprecateActivityType +-- +-- , requestUndeprecateDomain $ +-- newUndeprecateDomain +-- +-- , requestUndeprecateWorkflowType $ +-- newUndeprecateWorkflowType +-- +-- , requestUntagResource $ +-- newUntagResource +-- +-- ] + +-- , testGroup "response" +-- [ responseCountClosedWorkflowExecutions $ +-- newWorkflowExecutionCount +-- +-- , responseCountOpenWorkflowExecutions $ +-- newWorkflowExecutionCount +-- +-- , responseCountPendingActivityTasks $ +-- newPendingTaskCount +-- +-- , responseCountPendingDecisionTasks $ +-- newPendingTaskCount +-- +-- , responseDeprecateActivityType $ +-- newDeprecateActivityTypeResponse +-- +-- , responseDeprecateDomain $ +-- newDeprecateDomainResponse +-- +-- , responseDeprecateWorkflowType $ +-- newDeprecateWorkflowTypeResponse +-- +-- , responseDescribeActivityType $ +-- newDescribeActivityTypeResponse +-- +-- , responseDescribeDomain $ +-- newDescribeDomainResponse +-- +-- , responseDescribeWorkflowExecution $ +-- newDescribeWorkflowExecutionResponse +-- +-- , responseDescribeWorkflowType $ +-- newDescribeWorkflowTypeResponse +-- +-- , responseGetWorkflowExecutionHistory $ +-- newGetWorkflowExecutionHistoryResponse +-- +-- , responseListActivityTypes $ +-- newListActivityTypesResponse +-- +-- , responseListClosedWorkflowExecutions $ +-- newWorkflowExecutionInfos +-- +-- , responseListDomains $ +-- newListDomainsResponse +-- +-- , responseListOpenWorkflowExecutions $ +-- newWorkflowExecutionInfos +-- +-- , responseListTagsForResource $ +-- newListTagsForResourceResponse +-- +-- , responseListWorkflowTypes $ +-- newListWorkflowTypesResponse +-- +-- , responsePollForActivityTask $ +-- newPollForActivityTaskResponse +-- +-- , responsePollForDecisionTask $ +-- newPollForDecisionTaskResponse +-- +-- , responseRecordActivityTaskHeartbeat $ +-- newRecordActivityTaskHeartbeatResponse +-- +-- , responseRegisterActivityType $ +-- newRegisterActivityTypeResponse +-- +-- , responseRegisterDomain $ +-- newRegisterDomainResponse +-- +-- , responseRegisterWorkflowType $ +-- newRegisterWorkflowTypeResponse +-- +-- , responseRequestCancelWorkflowExecution $ +-- newRequestCancelWorkflowExecutionResponse +-- +-- , responseRespondActivityTaskCanceled $ +-- newRespondActivityTaskCanceledResponse +-- +-- , responseRespondActivityTaskCompleted $ +-- newRespondActivityTaskCompletedResponse +-- +-- , responseRespondActivityTaskFailed $ +-- newRespondActivityTaskFailedResponse +-- +-- , responseRespondDecisionTaskCompleted $ +-- newRespondDecisionTaskCompletedResponse +-- +-- , responseSignalWorkflowExecution $ +-- newSignalWorkflowExecutionResponse +-- +-- , responseStartWorkflowExecution $ +-- newStartWorkflowExecutionResponse +-- +-- , responseTagResource $ +-- newTagResourceResponse +-- +-- , responseTerminateWorkflowExecution $ +-- newTerminateWorkflowExecutionResponse +-- +-- , responseUndeprecateActivityType $ +-- newUndeprecateActivityTypeResponse +-- +-- , responseUndeprecateDomain $ +-- newUndeprecateDomainResponse +-- +-- , responseUndeprecateWorkflowType $ +-- newUndeprecateWorkflowTypeResponse +-- +-- , responseUntagResource $ +-- newUntagResourceResponse +-- +-- ] +-- ] + +-- Requests + +requestCountClosedWorkflowExecutions :: CountClosedWorkflowExecutions -> TestTree +requestCountClosedWorkflowExecutions = + req + "CountClosedWorkflowExecutions" + "fixture/CountClosedWorkflowExecutions.yaml" + +requestCountOpenWorkflowExecutions :: CountOpenWorkflowExecutions -> TestTree +requestCountOpenWorkflowExecutions = + req + "CountOpenWorkflowExecutions" + "fixture/CountOpenWorkflowExecutions.yaml" + +requestCountPendingActivityTasks :: CountPendingActivityTasks -> TestTree +requestCountPendingActivityTasks = + req + "CountPendingActivityTasks" + "fixture/CountPendingActivityTasks.yaml" + +requestCountPendingDecisionTasks :: CountPendingDecisionTasks -> TestTree +requestCountPendingDecisionTasks = + req + "CountPendingDecisionTasks" + "fixture/CountPendingDecisionTasks.yaml" + +requestDeprecateActivityType :: DeprecateActivityType -> TestTree +requestDeprecateActivityType = + req + "DeprecateActivityType" + "fixture/DeprecateActivityType.yaml" + +requestDeprecateDomain :: DeprecateDomain -> TestTree +requestDeprecateDomain = + req + "DeprecateDomain" + "fixture/DeprecateDomain.yaml" + +requestDeprecateWorkflowType :: DeprecateWorkflowType -> TestTree +requestDeprecateWorkflowType = + req + "DeprecateWorkflowType" + "fixture/DeprecateWorkflowType.yaml" + +requestDescribeActivityType :: DescribeActivityType -> TestTree +requestDescribeActivityType = + req + "DescribeActivityType" + "fixture/DescribeActivityType.yaml" + +requestDescribeDomain :: DescribeDomain -> TestTree +requestDescribeDomain = + req + "DescribeDomain" + "fixture/DescribeDomain.yaml" + +requestDescribeWorkflowExecution :: DescribeWorkflowExecution -> TestTree +requestDescribeWorkflowExecution = + req + "DescribeWorkflowExecution" + "fixture/DescribeWorkflowExecution.yaml" + +requestDescribeWorkflowType :: DescribeWorkflowType -> TestTree +requestDescribeWorkflowType = + req + "DescribeWorkflowType" + "fixture/DescribeWorkflowType.yaml" + +requestGetWorkflowExecutionHistory :: GetWorkflowExecutionHistory -> TestTree +requestGetWorkflowExecutionHistory = + req + "GetWorkflowExecutionHistory" + "fixture/GetWorkflowExecutionHistory.yaml" + +requestListActivityTypes :: ListActivityTypes -> TestTree +requestListActivityTypes = + req + "ListActivityTypes" + "fixture/ListActivityTypes.yaml" + +requestListClosedWorkflowExecutions :: ListClosedWorkflowExecutions -> TestTree +requestListClosedWorkflowExecutions = + req + "ListClosedWorkflowExecutions" + "fixture/ListClosedWorkflowExecutions.yaml" + +requestListDomains :: ListDomains -> TestTree +requestListDomains = + req + "ListDomains" + "fixture/ListDomains.yaml" + +requestListOpenWorkflowExecutions :: ListOpenWorkflowExecutions -> TestTree +requestListOpenWorkflowExecutions = + req + "ListOpenWorkflowExecutions" + "fixture/ListOpenWorkflowExecutions.yaml" + +requestListTagsForResource :: ListTagsForResource -> TestTree +requestListTagsForResource = + req + "ListTagsForResource" + "fixture/ListTagsForResource.yaml" + +requestListWorkflowTypes :: ListWorkflowTypes -> TestTree +requestListWorkflowTypes = + req + "ListWorkflowTypes" + "fixture/ListWorkflowTypes.yaml" + +requestPollForActivityTask :: PollForActivityTask -> TestTree +requestPollForActivityTask = + req + "PollForActivityTask" + "fixture/PollForActivityTask.yaml" + +requestPollForDecisionTask :: PollForDecisionTask -> TestTree +requestPollForDecisionTask = + req + "PollForDecisionTask" + "fixture/PollForDecisionTask.yaml" + +requestRecordActivityTaskHeartbeat :: RecordActivityTaskHeartbeat -> TestTree +requestRecordActivityTaskHeartbeat = + req + "RecordActivityTaskHeartbeat" + "fixture/RecordActivityTaskHeartbeat.yaml" + +requestRegisterActivityType :: RegisterActivityType -> TestTree +requestRegisterActivityType = + req + "RegisterActivityType" + "fixture/RegisterActivityType.yaml" + +requestRegisterDomain :: RegisterDomain -> TestTree +requestRegisterDomain = + req + "RegisterDomain" + "fixture/RegisterDomain.yaml" + +requestRegisterWorkflowType :: RegisterWorkflowType -> TestTree +requestRegisterWorkflowType = + req + "RegisterWorkflowType" + "fixture/RegisterWorkflowType.yaml" + +requestRequestCancelWorkflowExecution :: RequestCancelWorkflowExecution -> TestTree +requestRequestCancelWorkflowExecution = + req + "RequestCancelWorkflowExecution" + "fixture/RequestCancelWorkflowExecution.yaml" + +requestRespondActivityTaskCanceled :: RespondActivityTaskCanceled -> TestTree +requestRespondActivityTaskCanceled = + req + "RespondActivityTaskCanceled" + "fixture/RespondActivityTaskCanceled.yaml" + +requestRespondActivityTaskCompleted :: RespondActivityTaskCompleted -> TestTree +requestRespondActivityTaskCompleted = + req + "RespondActivityTaskCompleted" + "fixture/RespondActivityTaskCompleted.yaml" + +requestRespondActivityTaskFailed :: RespondActivityTaskFailed -> TestTree +requestRespondActivityTaskFailed = + req + "RespondActivityTaskFailed" + "fixture/RespondActivityTaskFailed.yaml" + +requestRespondDecisionTaskCompleted :: RespondDecisionTaskCompleted -> TestTree +requestRespondDecisionTaskCompleted = + req + "RespondDecisionTaskCompleted" + "fixture/RespondDecisionTaskCompleted.yaml" + +requestSignalWorkflowExecution :: SignalWorkflowExecution -> TestTree +requestSignalWorkflowExecution = + req + "SignalWorkflowExecution" + "fixture/SignalWorkflowExecution.yaml" + +requestStartWorkflowExecution :: StartWorkflowExecution -> TestTree +requestStartWorkflowExecution = + req + "StartWorkflowExecution" + "fixture/StartWorkflowExecution.yaml" + +requestTagResource :: TagResource -> TestTree +requestTagResource = + req + "TagResource" + "fixture/TagResource.yaml" + +requestTerminateWorkflowExecution :: TerminateWorkflowExecution -> TestTree +requestTerminateWorkflowExecution = + req + "TerminateWorkflowExecution" + "fixture/TerminateWorkflowExecution.yaml" + +requestUndeprecateActivityType :: UndeprecateActivityType -> TestTree +requestUndeprecateActivityType = + req + "UndeprecateActivityType" + "fixture/UndeprecateActivityType.yaml" + +requestUndeprecateDomain :: UndeprecateDomain -> TestTree +requestUndeprecateDomain = + req + "UndeprecateDomain" + "fixture/UndeprecateDomain.yaml" + +requestUndeprecateWorkflowType :: UndeprecateWorkflowType -> TestTree +requestUndeprecateWorkflowType = + req + "UndeprecateWorkflowType" + "fixture/UndeprecateWorkflowType.yaml" + +requestUntagResource :: UntagResource -> TestTree +requestUntagResource = + req + "UntagResource" + "fixture/UntagResource.yaml" + +-- Responses + +responseCountClosedWorkflowExecutions :: WorkflowExecutionCount -> TestTree +responseCountClosedWorkflowExecutions = + res + "CountClosedWorkflowExecutionsResponse" + "fixture/CountClosedWorkflowExecutionsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy CountClosedWorkflowExecutions) + +responseCountOpenWorkflowExecutions :: WorkflowExecutionCount -> TestTree +responseCountOpenWorkflowExecutions = + res + "CountOpenWorkflowExecutionsResponse" + "fixture/CountOpenWorkflowExecutionsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy CountOpenWorkflowExecutions) + +responseCountPendingActivityTasks :: PendingTaskCount -> TestTree +responseCountPendingActivityTasks = + res + "CountPendingActivityTasksResponse" + "fixture/CountPendingActivityTasksResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy CountPendingActivityTasks) + +responseCountPendingDecisionTasks :: PendingTaskCount -> TestTree +responseCountPendingDecisionTasks = + res + "CountPendingDecisionTasksResponse" + "fixture/CountPendingDecisionTasksResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy CountPendingDecisionTasks) + +responseDeprecateActivityType :: DeprecateActivityTypeResponse -> TestTree +responseDeprecateActivityType = + res + "DeprecateActivityTypeResponse" + "fixture/DeprecateActivityTypeResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DeprecateActivityType) + +responseDeprecateDomain :: DeprecateDomainResponse -> TestTree +responseDeprecateDomain = + res + "DeprecateDomainResponse" + "fixture/DeprecateDomainResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DeprecateDomain) + +responseDeprecateWorkflowType :: DeprecateWorkflowTypeResponse -> TestTree +responseDeprecateWorkflowType = + res + "DeprecateWorkflowTypeResponse" + "fixture/DeprecateWorkflowTypeResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DeprecateWorkflowType) + +responseDescribeActivityType :: DescribeActivityTypeResponse -> TestTree +responseDescribeActivityType = + res + "DescribeActivityTypeResponse" + "fixture/DescribeActivityTypeResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeActivityType) + +responseDescribeDomain :: DescribeDomainResponse -> TestTree +responseDescribeDomain = + res + "DescribeDomainResponse" + "fixture/DescribeDomainResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeDomain) + +responseDescribeWorkflowExecution :: DescribeWorkflowExecutionResponse -> TestTree +responseDescribeWorkflowExecution = + res + "DescribeWorkflowExecutionResponse" + "fixture/DescribeWorkflowExecutionResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeWorkflowExecution) + +responseDescribeWorkflowType :: DescribeWorkflowTypeResponse -> TestTree +responseDescribeWorkflowType = + res + "DescribeWorkflowTypeResponse" + "fixture/DescribeWorkflowTypeResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy DescribeWorkflowType) + +responseGetWorkflowExecutionHistory :: GetWorkflowExecutionHistoryResponse -> TestTree +responseGetWorkflowExecutionHistory = + res + "GetWorkflowExecutionHistoryResponse" + "fixture/GetWorkflowExecutionHistoryResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy GetWorkflowExecutionHistory) + +responseListActivityTypes :: ListActivityTypesResponse -> TestTree +responseListActivityTypes = + res + "ListActivityTypesResponse" + "fixture/ListActivityTypesResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListActivityTypes) + +responseListClosedWorkflowExecutions :: WorkflowExecutionInfos -> TestTree +responseListClosedWorkflowExecutions = + res + "ListClosedWorkflowExecutionsResponse" + "fixture/ListClosedWorkflowExecutionsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListClosedWorkflowExecutions) + +responseListDomains :: ListDomainsResponse -> TestTree +responseListDomains = + res + "ListDomainsResponse" + "fixture/ListDomainsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListDomains) + +responseListOpenWorkflowExecutions :: WorkflowExecutionInfos -> TestTree +responseListOpenWorkflowExecutions = + res + "ListOpenWorkflowExecutionsResponse" + "fixture/ListOpenWorkflowExecutionsResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListOpenWorkflowExecutions) + +responseListTagsForResource :: ListTagsForResourceResponse -> TestTree +responseListTagsForResource = + res + "ListTagsForResourceResponse" + "fixture/ListTagsForResourceResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListTagsForResource) + +responseListWorkflowTypes :: ListWorkflowTypesResponse -> TestTree +responseListWorkflowTypes = + res + "ListWorkflowTypesResponse" + "fixture/ListWorkflowTypesResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy ListWorkflowTypes) + +responsePollForActivityTask :: PollForActivityTaskResponse -> TestTree +responsePollForActivityTask = + res + "PollForActivityTaskResponse" + "fixture/PollForActivityTaskResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy PollForActivityTask) + +responsePollForDecisionTask :: PollForDecisionTaskResponse -> TestTree +responsePollForDecisionTask = + res + "PollForDecisionTaskResponse" + "fixture/PollForDecisionTaskResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy PollForDecisionTask) + +responseRecordActivityTaskHeartbeat :: RecordActivityTaskHeartbeatResponse -> TestTree +responseRecordActivityTaskHeartbeat = + res + "RecordActivityTaskHeartbeatResponse" + "fixture/RecordActivityTaskHeartbeatResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy RecordActivityTaskHeartbeat) + +responseRegisterActivityType :: RegisterActivityTypeResponse -> TestTree +responseRegisterActivityType = + res + "RegisterActivityTypeResponse" + "fixture/RegisterActivityTypeResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy RegisterActivityType) + +responseRegisterDomain :: RegisterDomainResponse -> TestTree +responseRegisterDomain = + res + "RegisterDomainResponse" + "fixture/RegisterDomainResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy RegisterDomain) + +responseRegisterWorkflowType :: RegisterWorkflowTypeResponse -> TestTree +responseRegisterWorkflowType = + res + "RegisterWorkflowTypeResponse" + "fixture/RegisterWorkflowTypeResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy RegisterWorkflowType) + +responseRequestCancelWorkflowExecution :: RequestCancelWorkflowExecutionResponse -> TestTree +responseRequestCancelWorkflowExecution = + res + "RequestCancelWorkflowExecutionResponse" + "fixture/RequestCancelWorkflowExecutionResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy RequestCancelWorkflowExecution) + +responseRespondActivityTaskCanceled :: RespondActivityTaskCanceledResponse -> TestTree +responseRespondActivityTaskCanceled = + res + "RespondActivityTaskCanceledResponse" + "fixture/RespondActivityTaskCanceledResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy RespondActivityTaskCanceled) + +responseRespondActivityTaskCompleted :: RespondActivityTaskCompletedResponse -> TestTree +responseRespondActivityTaskCompleted = + res + "RespondActivityTaskCompletedResponse" + "fixture/RespondActivityTaskCompletedResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy RespondActivityTaskCompleted) + +responseRespondActivityTaskFailed :: RespondActivityTaskFailedResponse -> TestTree +responseRespondActivityTaskFailed = + res + "RespondActivityTaskFailedResponse" + "fixture/RespondActivityTaskFailedResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy RespondActivityTaskFailed) + +responseRespondDecisionTaskCompleted :: RespondDecisionTaskCompletedResponse -> TestTree +responseRespondDecisionTaskCompleted = + res + "RespondDecisionTaskCompletedResponse" + "fixture/RespondDecisionTaskCompletedResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy RespondDecisionTaskCompleted) + +responseSignalWorkflowExecution :: SignalWorkflowExecutionResponse -> TestTree +responseSignalWorkflowExecution = + res + "SignalWorkflowExecutionResponse" + "fixture/SignalWorkflowExecutionResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy SignalWorkflowExecution) + +responseStartWorkflowExecution :: StartWorkflowExecutionResponse -> TestTree +responseStartWorkflowExecution = + res + "StartWorkflowExecutionResponse" + "fixture/StartWorkflowExecutionResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy StartWorkflowExecution) + +responseTagResource :: TagResourceResponse -> TestTree +responseTagResource = + res + "TagResourceResponse" + "fixture/TagResourceResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy TagResource) + +responseTerminateWorkflowExecution :: TerminateWorkflowExecutionResponse -> TestTree +responseTerminateWorkflowExecution = + res + "TerminateWorkflowExecutionResponse" + "fixture/TerminateWorkflowExecutionResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy TerminateWorkflowExecution) + +responseUndeprecateActivityType :: UndeprecateActivityTypeResponse -> TestTree +responseUndeprecateActivityType = + res + "UndeprecateActivityTypeResponse" + "fixture/UndeprecateActivityTypeResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy UndeprecateActivityType) + +responseUndeprecateDomain :: UndeprecateDomainResponse -> TestTree +responseUndeprecateDomain = + res + "UndeprecateDomainResponse" + "fixture/UndeprecateDomainResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy UndeprecateDomain) + +responseUndeprecateWorkflowType :: UndeprecateWorkflowTypeResponse -> TestTree +responseUndeprecateWorkflowType = + res + "UndeprecateWorkflowTypeResponse" + "fixture/UndeprecateWorkflowTypeResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy UndeprecateWorkflowType) + +responseUntagResource :: UntagResourceResponse -> TestTree +responseUntagResource = + res + "UntagResourceResponse" + "fixture/UntagResourceResponse.proto" + defaultService + (Proxy.Proxy :: Proxy.Proxy UntagResource) diff --git a/test/Test/Amazonka/SWF.hs b/test/Test/Amazonka/SWF.hs new file mode 100644 --- /dev/null +++ b/test/Test/Amazonka/SWF.hs @@ -0,0 +1,20 @@ +-- | +-- Module : Test.Amazonka.SWF +-- 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.SWF + ( tests, + fixtures, + ) +where + +import Test.Tasty (TestTree) + +tests :: [TestTree] +tests = [] + +fixtures :: [TestTree] +fixtures = [] diff --git a/test/Test/Amazonka/SWF/Internal.hs b/test/Test/Amazonka/SWF/Internal.hs new file mode 100644 --- /dev/null +++ b/test/Test/Amazonka/SWF/Internal.hs @@ -0,0 +1,8 @@ +-- | +-- Module : Test.Amazonka.SWF.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.SWF.Internal where