amazonka-stepfunctions 1.6.1 → 2.0

raw patch · 132 files changed

+16231/−5904 lines, 132 filesdep +case-insensitivedep ~amazonka-coredep ~amazonka-testdep ~basesetup-changedPVP ok

version bump matches the API change (PVP)

Dependencies added: case-insensitive

Dependency ranges changed: amazonka-core, amazonka-test, base

API changes (from Hackage documentation)

Files

• README.md +3/−4
• Setup.hs +0/−2
• amazonka-stepfunctions.cabal +152/−93
• fixture/DescribeMapRun.yaml +10/−0
• fixture/DescribeMapRunResponse.proto +0/−0
• fixture/ListMapRuns.yaml +10/−0
• fixture/ListMapRunsResponse.proto +0/−0
• fixture/ListTagsForResource.yaml +10/−0
• fixture/ListTagsForResourceResponse.proto +0/−0
• fixture/StartSyncExecution.yaml +10/−0
• fixture/StartSyncExecutionResponse.proto +0/−0
• fixture/TagResource.yaml +10/−0
• fixture/TagResourceResponse.proto +0/−0
• fixture/UntagResource.yaml +10/−0
• fixture/UntagResourceResponse.proto +0/−0
• fixture/UpdateMapRun.yaml +10/−0
• fixture/UpdateMapRunResponse.proto +0/−0
• gen/Amazonka/StepFunctions.hs +549/−0
• gen/Amazonka/StepFunctions/CreateActivity.hs +300/−0
• gen/Amazonka/StepFunctions/CreateStateMachine.hs +394/−0
• gen/Amazonka/StepFunctions/DeleteActivity.hs +153/−0
• gen/Amazonka/StepFunctions/DeleteStateMachine.hs +177/−0
• gen/Amazonka/StepFunctions/DescribeActivity.hs +250/−0
• gen/Amazonka/StepFunctions/DescribeExecution.hs +409/−0
• gen/Amazonka/StepFunctions/DescribeMapRun.hs +331/−0
• gen/Amazonka/StepFunctions/DescribeStateMachine.hs +375/−0
• gen/Amazonka/StepFunctions/DescribeStateMachineForExecution.hs +344/−0
• gen/Amazonka/StepFunctions/GetActivityTask.hs +238/−0
• gen/Amazonka/StepFunctions/GetExecutionHistory.hs +320/−0
• gen/Amazonka/StepFunctions/Lens.hs +584/−0
• gen/Amazonka/StepFunctions/ListActivities.hs +272/−0
• gen/Amazonka/StepFunctions/ListExecutions.hs +358/−0
• gen/Amazonka/StepFunctions/ListMapRuns.hs +284/−0
• gen/Amazonka/StepFunctions/ListStateMachines.hs +271/−0
• gen/Amazonka/StepFunctions/ListTagsForResource.hs +175/−0
• gen/Amazonka/StepFunctions/SendTaskFailure.hs +198/−0
• gen/Amazonka/StepFunctions/SendTaskHeartbeat.hs +186/−0
• gen/Amazonka/StepFunctions/SendTaskSuccess.hs +191/−0
• gen/Amazonka/StepFunctions/StartExecution.hs +336/−0
• gen/Amazonka/StepFunctions/StartSyncExecution.hs +440/−0
• gen/Amazonka/StepFunctions/StopExecution.hs +202/−0
• gen/Amazonka/StepFunctions/TagResource.hs +188/−0
• gen/Amazonka/StepFunctions/Types.hs +742/−0
• gen/Amazonka/StepFunctions/Types/ActivityFailedEventDetails.hs +84/−0
• gen/Amazonka/StepFunctions/Types/ActivityListItem.hs +150/−0
• gen/Amazonka/StepFunctions/Types/ActivityScheduleFailedEventDetails.hs +96/−0
• gen/Amazonka/StepFunctions/Types/ActivityScheduledEventDetails.hs +133/−0
• gen/Amazonka/StepFunctions/Types/ActivityStartedEventDetails.hs +75/−0
• gen/Amazonka/StepFunctions/Types/ActivitySucceededEventDetails.hs +93/−0
• gen/Amazonka/StepFunctions/Types/ActivityTimedOutEventDetails.hs +88/−0
• gen/Amazonka/StepFunctions/Types/BillingDetails.hs +85/−0
• gen/Amazonka/StepFunctions/Types/CloudWatchEventsExecutionDataDetails.hs +86/−0
• gen/Amazonka/StepFunctions/Types/CloudWatchLogsLogGroup.hs +82/−0
• gen/Amazonka/StepFunctions/Types/ExecutionAbortedEventDetails.hs +87/−0
• gen/Amazonka/StepFunctions/Types/ExecutionFailedEventDetails.hs +84/−0
• gen/Amazonka/StepFunctions/Types/ExecutionListItem.hs +235/−0
• gen/Amazonka/StepFunctions/Types/ExecutionStartedEventDetails.hs +107/−0
• gen/Amazonka/StepFunctions/Types/ExecutionStatus.hs +86/−0
• gen/Amazonka/StepFunctions/Types/ExecutionSucceededEventDetails.hs +97/−0
• gen/Amazonka/StepFunctions/Types/ExecutionTimedOutEventDetails.hs +88/−0
• gen/Amazonka/StepFunctions/Types/HistoryEvent.hs +586/−0
• gen/Amazonka/StepFunctions/Types/HistoryEventExecutionDataDetails.hs +86/−0
• gen/Amazonka/StepFunctions/Types/HistoryEventType.hs +356/−0
• gen/Amazonka/StepFunctions/Types/LambdaFunctionFailedEventDetails.hs +96/−0
• gen/Amazonka/StepFunctions/Types/LambdaFunctionScheduleFailedEventDetails.hs +96/−0
• gen/Amazonka/StepFunctions/Types/LambdaFunctionScheduledEventDetails.hs +139/−0
• gen/Amazonka/StepFunctions/Types/LambdaFunctionStartFailedEventDetails.hs +96/−0
• gen/Amazonka/StepFunctions/Types/LambdaFunctionSucceededEventDetails.hs +101/−0
• gen/Amazonka/StepFunctions/Types/LambdaFunctionTimedOutEventDetails.hs +96/−0
• gen/Amazonka/StepFunctions/Types/LogDestination.hs +88/−0
• gen/Amazonka/StepFunctions/Types/LogLevel.hs +81/−0
• gen/Amazonka/StepFunctions/Types/LoggingConfiguration.hs +120/−0
• gen/Amazonka/StepFunctions/Types/MapIterationEventDetails.hs +83/−0
• gen/Amazonka/StepFunctions/Types/MapRunExecutionCounts.hs +214/−0
• gen/Amazonka/StepFunctions/Types/MapRunFailedEventDetails.hs +84/−0
• gen/Amazonka/StepFunctions/Types/MapRunItemCounts.hs +214/−0
• gen/Amazonka/StepFunctions/Types/MapRunListItem.hs +132/−0
• gen/Amazonka/StepFunctions/Types/MapRunStartedEventDetails.hs +73/−0
• gen/Amazonka/StepFunctions/Types/MapRunStatus.hs +81/−0
• gen/Amazonka/StepFunctions/Types/MapStateStartedEventDetails.hs +72/−0
• gen/Amazonka/StepFunctions/Types/StateEnteredEventDetails.hs +105/−0
• gen/Amazonka/StepFunctions/Types/StateExitedEventDetails.hs +147/−0
• gen/Amazonka/StepFunctions/Types/StateMachineListItem.hs +165/−0
• gen/Amazonka/StepFunctions/Types/StateMachineStatus.hs +71/−0
• gen/Amazonka/StepFunctions/Types/StateMachineType.hs +71/−0
• gen/Amazonka/StepFunctions/Types/SyncExecutionStatus.hs +76/−0
• gen/Amazonka/StepFunctions/Types/Tag.hs +101/−0
• gen/Amazonka/StepFunctions/Types/TaskCredentials.hs +71/−0
• gen/Amazonka/StepFunctions/Types/TaskFailedEventDetails.hs +112/−0
• gen/Amazonka/StepFunctions/Types/TaskScheduledEventDetails.hs +164/−0
• gen/Amazonka/StepFunctions/Types/TaskStartFailedEventDetails.hs +115/−0
• gen/Amazonka/StepFunctions/Types/TaskStartedEventDetails.hs +89/−0
• gen/Amazonka/StepFunctions/Types/TaskSubmitFailedEventDetails.hs +118/−0
• gen/Amazonka/StepFunctions/Types/TaskSubmittedEventDetails.hs +119/−0
• gen/Amazonka/StepFunctions/Types/TaskSucceededEventDetails.hs +122/−0
• gen/Amazonka/StepFunctions/Types/TaskTimedOutEventDetails.hs +113/−0
• gen/Amazonka/StepFunctions/Types/TracingConfiguration.hs +76/−0
• gen/Amazonka/StepFunctions/UntagResource.hs +174/−0
• gen/Amazonka/StepFunctions/UpdateMapRun.hs +202/−0
• gen/Amazonka/StepFunctions/UpdateStateMachine.hs +257/−0
• gen/Amazonka/StepFunctions/Waiters.hs +24/−0
• gen/Network/AWS/StepFunctions.hs +0/−376
• gen/Network/AWS/StepFunctions/CreateActivity.hs +0/−144
• gen/Network/AWS/StepFunctions/CreateStateMachine.hs +0/−170
• gen/Network/AWS/StepFunctions/DeleteActivity.hs +0/−121
• gen/Network/AWS/StepFunctions/DeleteStateMachine.hs +0/−125
• gen/Network/AWS/StepFunctions/DescribeActivity.hs +0/−157
• gen/Network/AWS/StepFunctions/DescribeExecution.hs +0/−210
• gen/Network/AWS/StepFunctions/DescribeStateMachine.hs +0/−192
• gen/Network/AWS/StepFunctions/DescribeStateMachineForExecution.hs +0/−191
• gen/Network/AWS/StepFunctions/GetActivityTask.hs +0/−156
• gen/Network/AWS/StepFunctions/GetExecutionHistory.hs +0/−191
• gen/Network/AWS/StepFunctions/ListActivities.hs +0/−165
• gen/Network/AWS/StepFunctions/ListExecutions.hs +0/−189
• gen/Network/AWS/StepFunctions/ListStateMachines.hs +0/−165
• gen/Network/AWS/StepFunctions/SendTaskFailure.hs +0/−142
• gen/Network/AWS/StepFunctions/SendTaskHeartbeat.hs +0/−121
• gen/Network/AWS/StepFunctions/SendTaskSuccess.hs +0/−133
• gen/Network/AWS/StepFunctions/StartExecution.hs +0/−168
• gen/Network/AWS/StepFunctions/StopExecution.hs +0/−153
• gen/Network/AWS/StepFunctions/Types.hs +0/−395
• gen/Network/AWS/StepFunctions/Types/Product.hs +0/−1323
• gen/Network/AWS/StepFunctions/Types/Sum.hs +0/−218
• gen/Network/AWS/StepFunctions/UpdateStateMachine.hs +0/−160
• gen/Network/AWS/StepFunctions/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Gen/StepFunctions.hs +0/−381
• test/Test/AWS/StepFunctions.hs +0/−20
• test/Test/AWS/StepFunctions/Internal.hs +0/−9
• test/Test/Amazonka/Gen/StepFunctions.hs +558/−0
• test/Test/Amazonka/StepFunctions.hs +20/−0
• test/Test/Amazonka/StepFunctions/Internal.hs +8/−0

@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2016-11-23@ 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.StepFunctions](http://hackage.haskell.org/package/amazonka-stepfunctions/docs/Network-AWS-StepFunctions.html)+See [Amazonka.StepFunctions](http://hackage.haskell.org/package/amazonka-stepfunctions/docs/Amazonka-StepFunctions.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

@@ -1,2 +0,0 @@-import           Distribution.Simple-main = defaultMain

@@ -1,104 +1,163 @@-name:                  amazonka-stepfunctions-version:               1.6.1-synopsis:              Amazon Step Functions 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 <brendan.g.hay+amazonka@gmail.com>-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-stepfunctions+version:            2.0+synopsis:           Amazon Step Functions 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 <brendan.g.hay+amazonka@gmail.com>, Jack Kelly <jack@jackkelly.name>++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-    <http://hackage.haskell.org/package/amazonka amazonka>, 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 <http://hackage.haskell.org/package/lens lens> or-    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.-    .-    See "Network.AWS.StepFunctions" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2016-11-23@ of the AWS service descriptions, licensed under Apache 2.0.+  .+  The types from this library are intended to be used with <http://hackage.haskell.org/package/amazonka amazonka>,+  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 <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+  .+  Generated lenses can be found in "Amazonka.StepFunctions.Lens" and are+  suitable for use with a lens package such as <http://hackage.haskell.org/package/lens lens> or <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+  .+  See "Amazonka.StepFunctions" and the <https://aws.amazon.com/documentation/ AWS documentation> to get started.  source-repository head-    type:              git-    location:          git://github.com/brendanhay/amazonka.git-    subdir:            amazonka-stepfunctions+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-stepfunctions  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.StepFunctions-        , Network.AWS.StepFunctions.CreateActivity-        , Network.AWS.StepFunctions.CreateStateMachine-        , Network.AWS.StepFunctions.DeleteActivity-        , Network.AWS.StepFunctions.DeleteStateMachine-        , Network.AWS.StepFunctions.DescribeActivity-        , Network.AWS.StepFunctions.DescribeExecution-        , Network.AWS.StepFunctions.DescribeStateMachine-        , Network.AWS.StepFunctions.DescribeStateMachineForExecution-        , Network.AWS.StepFunctions.GetActivityTask-        , Network.AWS.StepFunctions.GetExecutionHistory-        , Network.AWS.StepFunctions.ListActivities-        , Network.AWS.StepFunctions.ListExecutions-        , Network.AWS.StepFunctions.ListStateMachines-        , Network.AWS.StepFunctions.SendTaskFailure-        , Network.AWS.StepFunctions.SendTaskHeartbeat-        , Network.AWS.StepFunctions.SendTaskSuccess-        , Network.AWS.StepFunctions.StartExecution-        , Network.AWS.StepFunctions.StopExecution-        , Network.AWS.StepFunctions.Types-        , Network.AWS.StepFunctions.UpdateStateMachine-        , Network.AWS.StepFunctions.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.StepFunctions.Types.Product-        , Network.AWS.StepFunctions.Types.Sum+  exposed-modules:+    Amazonka.StepFunctions+    Amazonka.StepFunctions.CreateActivity+    Amazonka.StepFunctions.CreateStateMachine+    Amazonka.StepFunctions.DeleteActivity+    Amazonka.StepFunctions.DeleteStateMachine+    Amazonka.StepFunctions.DescribeActivity+    Amazonka.StepFunctions.DescribeExecution+    Amazonka.StepFunctions.DescribeMapRun+    Amazonka.StepFunctions.DescribeStateMachine+    Amazonka.StepFunctions.DescribeStateMachineForExecution+    Amazonka.StepFunctions.GetActivityTask+    Amazonka.StepFunctions.GetExecutionHistory+    Amazonka.StepFunctions.Lens+    Amazonka.StepFunctions.ListActivities+    Amazonka.StepFunctions.ListExecutions+    Amazonka.StepFunctions.ListMapRuns+    Amazonka.StepFunctions.ListStateMachines+    Amazonka.StepFunctions.ListTagsForResource+    Amazonka.StepFunctions.SendTaskFailure+    Amazonka.StepFunctions.SendTaskHeartbeat+    Amazonka.StepFunctions.SendTaskSuccess+    Amazonka.StepFunctions.StartExecution+    Amazonka.StepFunctions.StartSyncExecution+    Amazonka.StepFunctions.StopExecution+    Amazonka.StepFunctions.TagResource+    Amazonka.StepFunctions.Types+    Amazonka.StepFunctions.Types.ActivityFailedEventDetails+    Amazonka.StepFunctions.Types.ActivityListItem+    Amazonka.StepFunctions.Types.ActivityScheduledEventDetails+    Amazonka.StepFunctions.Types.ActivityScheduleFailedEventDetails+    Amazonka.StepFunctions.Types.ActivityStartedEventDetails+    Amazonka.StepFunctions.Types.ActivitySucceededEventDetails+    Amazonka.StepFunctions.Types.ActivityTimedOutEventDetails+    Amazonka.StepFunctions.Types.BillingDetails+    Amazonka.StepFunctions.Types.CloudWatchEventsExecutionDataDetails+    Amazonka.StepFunctions.Types.CloudWatchLogsLogGroup+    Amazonka.StepFunctions.Types.ExecutionAbortedEventDetails+    Amazonka.StepFunctions.Types.ExecutionFailedEventDetails+    Amazonka.StepFunctions.Types.ExecutionListItem+    Amazonka.StepFunctions.Types.ExecutionStartedEventDetails+    Amazonka.StepFunctions.Types.ExecutionStatus+    Amazonka.StepFunctions.Types.ExecutionSucceededEventDetails+    Amazonka.StepFunctions.Types.ExecutionTimedOutEventDetails+    Amazonka.StepFunctions.Types.HistoryEvent+    Amazonka.StepFunctions.Types.HistoryEventExecutionDataDetails+    Amazonka.StepFunctions.Types.HistoryEventType+    Amazonka.StepFunctions.Types.LambdaFunctionFailedEventDetails+    Amazonka.StepFunctions.Types.LambdaFunctionScheduledEventDetails+    Amazonka.StepFunctions.Types.LambdaFunctionScheduleFailedEventDetails+    Amazonka.StepFunctions.Types.LambdaFunctionStartFailedEventDetails+    Amazonka.StepFunctions.Types.LambdaFunctionSucceededEventDetails+    Amazonka.StepFunctions.Types.LambdaFunctionTimedOutEventDetails+    Amazonka.StepFunctions.Types.LogDestination+    Amazonka.StepFunctions.Types.LoggingConfiguration+    Amazonka.StepFunctions.Types.LogLevel+    Amazonka.StepFunctions.Types.MapIterationEventDetails+    Amazonka.StepFunctions.Types.MapRunExecutionCounts+    Amazonka.StepFunctions.Types.MapRunFailedEventDetails+    Amazonka.StepFunctions.Types.MapRunItemCounts+    Amazonka.StepFunctions.Types.MapRunListItem+    Amazonka.StepFunctions.Types.MapRunStartedEventDetails+    Amazonka.StepFunctions.Types.MapRunStatus+    Amazonka.StepFunctions.Types.MapStateStartedEventDetails+    Amazonka.StepFunctions.Types.StateEnteredEventDetails+    Amazonka.StepFunctions.Types.StateExitedEventDetails+    Amazonka.StepFunctions.Types.StateMachineListItem+    Amazonka.StepFunctions.Types.StateMachineStatus+    Amazonka.StepFunctions.Types.StateMachineType+    Amazonka.StepFunctions.Types.SyncExecutionStatus+    Amazonka.StepFunctions.Types.Tag+    Amazonka.StepFunctions.Types.TaskCredentials+    Amazonka.StepFunctions.Types.TaskFailedEventDetails+    Amazonka.StepFunctions.Types.TaskScheduledEventDetails+    Amazonka.StepFunctions.Types.TaskStartedEventDetails+    Amazonka.StepFunctions.Types.TaskStartFailedEventDetails+    Amazonka.StepFunctions.Types.TaskSubmitFailedEventDetails+    Amazonka.StepFunctions.Types.TaskSubmittedEventDetails+    Amazonka.StepFunctions.Types.TaskSucceededEventDetails+    Amazonka.StepFunctions.Types.TaskTimedOutEventDetails+    Amazonka.StepFunctions.Types.TracingConfiguration+    Amazonka.StepFunctions.UntagResource+    Amazonka.StepFunctions.UpdateMapRun+    Amazonka.StepFunctions.UpdateStateMachine+    Amazonka.StepFunctions.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-stepfunctions-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.StepFunctions-        , Test.AWS.Gen.StepFunctions-        , Test.AWS.StepFunctions.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.StepFunctions+    Test.Amazonka.StepFunctions+    Test.Amazonka.StepFunctions.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-stepfunctions-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core           >=2.0 && <2.1+    , amazonka-stepfunctions+    , amazonka-test           >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/states/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  states.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:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/states/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  states.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:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/states/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  states.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:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/states/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  states.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:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/states/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  states.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:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/states/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  states.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:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/states/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  states.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:+  ''

@@ -0,0 +1,549 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.StepFunctions+-- 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 @2016-11-23@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Step Functions+--+-- Step Functions is a service that lets you coordinate the components of+-- distributed applications and microservices using visual workflows.+--+-- You can use Step Functions to build applications from individual+-- components, each of which performs a discrete function, or /task/,+-- allowing you to scale and change applications quickly. Step Functions+-- provides a console that helps visualize the components of your+-- application as a series of steps. Step Functions automatically triggers+-- and tracks each step, and retries steps when there are errors, so your+-- application executes predictably and in the right order every time. Step+-- Functions logs the state of each step, so you can quickly diagnose and+-- debug any issues.+--+-- Step Functions manages operations and underlying infrastructure to+-- ensure your application is available at any scale. You can run tasks on+-- Amazon Web Services, your own servers, or any system that has access to+-- Amazon Web Services. You can access and use Step Functions using the+-- console, the Amazon Web Services SDKs, or an HTTP API. For more+-- information about Step Functions, see the+-- /<https://docs.aws.amazon.com/step-functions/latest/dg/welcome.html Step Functions Developer Guide>/+-- .+module Amazonka.StepFunctions+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** ActivityDoesNotExist+    _ActivityDoesNotExist,++    -- ** ActivityLimitExceeded+    _ActivityLimitExceeded,++    -- ** ActivityWorkerLimitExceeded+    _ActivityWorkerLimitExceeded,++    -- ** ExecutionAlreadyExists+    _ExecutionAlreadyExists,++    -- ** ExecutionDoesNotExist+    _ExecutionDoesNotExist,++    -- ** ExecutionLimitExceeded+    _ExecutionLimitExceeded,++    -- ** InvalidArn+    _InvalidArn,++    -- ** InvalidDefinition+    _InvalidDefinition,++    -- ** InvalidExecutionInput+    _InvalidExecutionInput,++    -- ** InvalidLoggingConfiguration+    _InvalidLoggingConfiguration,++    -- ** InvalidName+    _InvalidName,++    -- ** InvalidOutput+    _InvalidOutput,++    -- ** InvalidToken+    _InvalidToken,++    -- ** InvalidTracingConfiguration+    _InvalidTracingConfiguration,++    -- ** MissingRequiredParameter+    _MissingRequiredParameter,++    -- ** ResourceNotFound+    _ResourceNotFound,++    -- ** StateMachineAlreadyExists+    _StateMachineAlreadyExists,++    -- ** StateMachineDeleting+    _StateMachineDeleting,++    -- ** StateMachineDoesNotExist+    _StateMachineDoesNotExist,++    -- ** StateMachineLimitExceeded+    _StateMachineLimitExceeded,++    -- ** StateMachineTypeNotSupported+    _StateMachineTypeNotSupported,++    -- ** TaskDoesNotExist+    _TaskDoesNotExist,++    -- ** TaskTimedOut+    _TaskTimedOut,++    -- ** TooManyTags+    _TooManyTags,++    -- ** ValidationException+    _ValidationException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CreateActivity+    CreateActivity (CreateActivity'),+    newCreateActivity,+    CreateActivityResponse (CreateActivityResponse'),+    newCreateActivityResponse,++    -- ** CreateStateMachine+    CreateStateMachine (CreateStateMachine'),+    newCreateStateMachine,+    CreateStateMachineResponse (CreateStateMachineResponse'),+    newCreateStateMachineResponse,++    -- ** DeleteActivity+    DeleteActivity (DeleteActivity'),+    newDeleteActivity,+    DeleteActivityResponse (DeleteActivityResponse'),+    newDeleteActivityResponse,++    -- ** DeleteStateMachine+    DeleteStateMachine (DeleteStateMachine'),+    newDeleteStateMachine,+    DeleteStateMachineResponse (DeleteStateMachineResponse'),+    newDeleteStateMachineResponse,++    -- ** DescribeActivity+    DescribeActivity (DescribeActivity'),+    newDescribeActivity,+    DescribeActivityResponse (DescribeActivityResponse'),+    newDescribeActivityResponse,++    -- ** DescribeExecution+    DescribeExecution (DescribeExecution'),+    newDescribeExecution,+    DescribeExecutionResponse (DescribeExecutionResponse'),+    newDescribeExecutionResponse,++    -- ** DescribeMapRun+    DescribeMapRun (DescribeMapRun'),+    newDescribeMapRun,+    DescribeMapRunResponse (DescribeMapRunResponse'),+    newDescribeMapRunResponse,++    -- ** DescribeStateMachine+    DescribeStateMachine (DescribeStateMachine'),+    newDescribeStateMachine,+    DescribeStateMachineResponse (DescribeStateMachineResponse'),+    newDescribeStateMachineResponse,++    -- ** DescribeStateMachineForExecution+    DescribeStateMachineForExecution (DescribeStateMachineForExecution'),+    newDescribeStateMachineForExecution,+    DescribeStateMachineForExecutionResponse (DescribeStateMachineForExecutionResponse'),+    newDescribeStateMachineForExecutionResponse,++    -- ** GetActivityTask+    GetActivityTask (GetActivityTask'),+    newGetActivityTask,+    GetActivityTaskResponse (GetActivityTaskResponse'),+    newGetActivityTaskResponse,++    -- ** GetExecutionHistory (Paginated)+    GetExecutionHistory (GetExecutionHistory'),+    newGetExecutionHistory,+    GetExecutionHistoryResponse (GetExecutionHistoryResponse'),+    newGetExecutionHistoryResponse,++    -- ** ListActivities (Paginated)+    ListActivities (ListActivities'),+    newListActivities,+    ListActivitiesResponse (ListActivitiesResponse'),+    newListActivitiesResponse,++    -- ** ListExecutions (Paginated)+    ListExecutions (ListExecutions'),+    newListExecutions,+    ListExecutionsResponse (ListExecutionsResponse'),+    newListExecutionsResponse,++    -- ** ListMapRuns (Paginated)+    ListMapRuns (ListMapRuns'),+    newListMapRuns,+    ListMapRunsResponse (ListMapRunsResponse'),+    newListMapRunsResponse,++    -- ** ListStateMachines (Paginated)+    ListStateMachines (ListStateMachines'),+    newListStateMachines,+    ListStateMachinesResponse (ListStateMachinesResponse'),+    newListStateMachinesResponse,++    -- ** ListTagsForResource+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** SendTaskFailure+    SendTaskFailure (SendTaskFailure'),+    newSendTaskFailure,+    SendTaskFailureResponse (SendTaskFailureResponse'),+    newSendTaskFailureResponse,++    -- ** SendTaskHeartbeat+    SendTaskHeartbeat (SendTaskHeartbeat'),+    newSendTaskHeartbeat,+    SendTaskHeartbeatResponse (SendTaskHeartbeatResponse'),+    newSendTaskHeartbeatResponse,++    -- ** SendTaskSuccess+    SendTaskSuccess (SendTaskSuccess'),+    newSendTaskSuccess,+    SendTaskSuccessResponse (SendTaskSuccessResponse'),+    newSendTaskSuccessResponse,++    -- ** StartExecution+    StartExecution (StartExecution'),+    newStartExecution,+    StartExecutionResponse (StartExecutionResponse'),+    newStartExecutionResponse,++    -- ** StartSyncExecution+    StartSyncExecution (StartSyncExecution'),+    newStartSyncExecution,+    StartSyncExecutionResponse (StartSyncExecutionResponse'),+    newStartSyncExecutionResponse,++    -- ** StopExecution+    StopExecution (StopExecution'),+    newStopExecution,+    StopExecutionResponse (StopExecutionResponse'),+    newStopExecutionResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- ** UpdateMapRun+    UpdateMapRun (UpdateMapRun'),+    newUpdateMapRun,+    UpdateMapRunResponse (UpdateMapRunResponse'),+    newUpdateMapRunResponse,++    -- ** UpdateStateMachine+    UpdateStateMachine (UpdateStateMachine'),+    newUpdateStateMachine,+    UpdateStateMachineResponse (UpdateStateMachineResponse'),+    newUpdateStateMachineResponse,++    -- * Types++    -- ** ExecutionStatus+    ExecutionStatus (..),++    -- ** HistoryEventType+    HistoryEventType (..),++    -- ** LogLevel+    LogLevel (..),++    -- ** MapRunStatus+    MapRunStatus (..),++    -- ** StateMachineStatus+    StateMachineStatus (..),++    -- ** StateMachineType+    StateMachineType (..),++    -- ** SyncExecutionStatus+    SyncExecutionStatus (..),++    -- ** ActivityFailedEventDetails+    ActivityFailedEventDetails (ActivityFailedEventDetails'),+    newActivityFailedEventDetails,++    -- ** ActivityListItem+    ActivityListItem (ActivityListItem'),+    newActivityListItem,++    -- ** ActivityScheduleFailedEventDetails+    ActivityScheduleFailedEventDetails (ActivityScheduleFailedEventDetails'),+    newActivityScheduleFailedEventDetails,++    -- ** ActivityScheduledEventDetails+    ActivityScheduledEventDetails (ActivityScheduledEventDetails'),+    newActivityScheduledEventDetails,++    -- ** ActivityStartedEventDetails+    ActivityStartedEventDetails (ActivityStartedEventDetails'),+    newActivityStartedEventDetails,++    -- ** ActivitySucceededEventDetails+    ActivitySucceededEventDetails (ActivitySucceededEventDetails'),+    newActivitySucceededEventDetails,++    -- ** ActivityTimedOutEventDetails+    ActivityTimedOutEventDetails (ActivityTimedOutEventDetails'),+    newActivityTimedOutEventDetails,++    -- ** BillingDetails+    BillingDetails (BillingDetails'),+    newBillingDetails,++    -- ** CloudWatchEventsExecutionDataDetails+    CloudWatchEventsExecutionDataDetails (CloudWatchEventsExecutionDataDetails'),+    newCloudWatchEventsExecutionDataDetails,++    -- ** CloudWatchLogsLogGroup+    CloudWatchLogsLogGroup (CloudWatchLogsLogGroup'),+    newCloudWatchLogsLogGroup,++    -- ** ExecutionAbortedEventDetails+    ExecutionAbortedEventDetails (ExecutionAbortedEventDetails'),+    newExecutionAbortedEventDetails,++    -- ** ExecutionFailedEventDetails+    ExecutionFailedEventDetails (ExecutionFailedEventDetails'),+    newExecutionFailedEventDetails,++    -- ** ExecutionListItem+    ExecutionListItem (ExecutionListItem'),+    newExecutionListItem,++    -- ** ExecutionStartedEventDetails+    ExecutionStartedEventDetails (ExecutionStartedEventDetails'),+    newExecutionStartedEventDetails,++    -- ** ExecutionSucceededEventDetails+    ExecutionSucceededEventDetails (ExecutionSucceededEventDetails'),+    newExecutionSucceededEventDetails,++    -- ** ExecutionTimedOutEventDetails+    ExecutionTimedOutEventDetails (ExecutionTimedOutEventDetails'),+    newExecutionTimedOutEventDetails,++    -- ** HistoryEvent+    HistoryEvent (HistoryEvent'),+    newHistoryEvent,++    -- ** HistoryEventExecutionDataDetails+    HistoryEventExecutionDataDetails (HistoryEventExecutionDataDetails'),+    newHistoryEventExecutionDataDetails,++    -- ** LambdaFunctionFailedEventDetails+    LambdaFunctionFailedEventDetails (LambdaFunctionFailedEventDetails'),+    newLambdaFunctionFailedEventDetails,++    -- ** LambdaFunctionScheduleFailedEventDetails+    LambdaFunctionScheduleFailedEventDetails (LambdaFunctionScheduleFailedEventDetails'),+    newLambdaFunctionScheduleFailedEventDetails,++    -- ** LambdaFunctionScheduledEventDetails+    LambdaFunctionScheduledEventDetails (LambdaFunctionScheduledEventDetails'),+    newLambdaFunctionScheduledEventDetails,++    -- ** LambdaFunctionStartFailedEventDetails+    LambdaFunctionStartFailedEventDetails (LambdaFunctionStartFailedEventDetails'),+    newLambdaFunctionStartFailedEventDetails,++    -- ** LambdaFunctionSucceededEventDetails+    LambdaFunctionSucceededEventDetails (LambdaFunctionSucceededEventDetails'),+    newLambdaFunctionSucceededEventDetails,++    -- ** LambdaFunctionTimedOutEventDetails+    LambdaFunctionTimedOutEventDetails (LambdaFunctionTimedOutEventDetails'),+    newLambdaFunctionTimedOutEventDetails,++    -- ** LogDestination+    LogDestination (LogDestination'),+    newLogDestination,++    -- ** LoggingConfiguration+    LoggingConfiguration (LoggingConfiguration'),+    newLoggingConfiguration,++    -- ** MapIterationEventDetails+    MapIterationEventDetails (MapIterationEventDetails'),+    newMapIterationEventDetails,++    -- ** MapRunExecutionCounts+    MapRunExecutionCounts (MapRunExecutionCounts'),+    newMapRunExecutionCounts,++    -- ** MapRunFailedEventDetails+    MapRunFailedEventDetails (MapRunFailedEventDetails'),+    newMapRunFailedEventDetails,++    -- ** MapRunItemCounts+    MapRunItemCounts (MapRunItemCounts'),+    newMapRunItemCounts,++    -- ** MapRunListItem+    MapRunListItem (MapRunListItem'),+    newMapRunListItem,++    -- ** MapRunStartedEventDetails+    MapRunStartedEventDetails (MapRunStartedEventDetails'),+    newMapRunStartedEventDetails,++    -- ** MapStateStartedEventDetails+    MapStateStartedEventDetails (MapStateStartedEventDetails'),+    newMapStateStartedEventDetails,++    -- ** StateEnteredEventDetails+    StateEnteredEventDetails (StateEnteredEventDetails'),+    newStateEnteredEventDetails,++    -- ** StateExitedEventDetails+    StateExitedEventDetails (StateExitedEventDetails'),+    newStateExitedEventDetails,++    -- ** StateMachineListItem+    StateMachineListItem (StateMachineListItem'),+    newStateMachineListItem,++    -- ** Tag+    Tag (Tag'),+    newTag,++    -- ** TaskCredentials+    TaskCredentials (TaskCredentials'),+    newTaskCredentials,++    -- ** TaskFailedEventDetails+    TaskFailedEventDetails (TaskFailedEventDetails'),+    newTaskFailedEventDetails,++    -- ** TaskScheduledEventDetails+    TaskScheduledEventDetails (TaskScheduledEventDetails'),+    newTaskScheduledEventDetails,++    -- ** TaskStartFailedEventDetails+    TaskStartFailedEventDetails (TaskStartFailedEventDetails'),+    newTaskStartFailedEventDetails,++    -- ** TaskStartedEventDetails+    TaskStartedEventDetails (TaskStartedEventDetails'),+    newTaskStartedEventDetails,++    -- ** TaskSubmitFailedEventDetails+    TaskSubmitFailedEventDetails (TaskSubmitFailedEventDetails'),+    newTaskSubmitFailedEventDetails,++    -- ** TaskSubmittedEventDetails+    TaskSubmittedEventDetails (TaskSubmittedEventDetails'),+    newTaskSubmittedEventDetails,++    -- ** TaskSucceededEventDetails+    TaskSucceededEventDetails (TaskSucceededEventDetails'),+    newTaskSucceededEventDetails,++    -- ** TaskTimedOutEventDetails+    TaskTimedOutEventDetails (TaskTimedOutEventDetails'),+    newTaskTimedOutEventDetails,++    -- ** TracingConfiguration+    TracingConfiguration (TracingConfiguration'),+    newTracingConfiguration,+  )+where++import Amazonka.StepFunctions.CreateActivity+import Amazonka.StepFunctions.CreateStateMachine+import Amazonka.StepFunctions.DeleteActivity+import Amazonka.StepFunctions.DeleteStateMachine+import Amazonka.StepFunctions.DescribeActivity+import Amazonka.StepFunctions.DescribeExecution+import Amazonka.StepFunctions.DescribeMapRun+import Amazonka.StepFunctions.DescribeStateMachine+import Amazonka.StepFunctions.DescribeStateMachineForExecution+import Amazonka.StepFunctions.GetActivityTask+import Amazonka.StepFunctions.GetExecutionHistory+import Amazonka.StepFunctions.Lens+import Amazonka.StepFunctions.ListActivities+import Amazonka.StepFunctions.ListExecutions+import Amazonka.StepFunctions.ListMapRuns+import Amazonka.StepFunctions.ListStateMachines+import Amazonka.StepFunctions.ListTagsForResource+import Amazonka.StepFunctions.SendTaskFailure+import Amazonka.StepFunctions.SendTaskHeartbeat+import Amazonka.StepFunctions.SendTaskSuccess+import Amazonka.StepFunctions.StartExecution+import Amazonka.StepFunctions.StartSyncExecution+import Amazonka.StepFunctions.StopExecution+import Amazonka.StepFunctions.TagResource+import Amazonka.StepFunctions.Types+import Amazonka.StepFunctions.UntagResource+import Amazonka.StepFunctions.UpdateMapRun+import Amazonka.StepFunctions.UpdateStateMachine+import Amazonka.StepFunctions.Waiters++-- $errors+-- Error matchers are designed for use with the functions provided by+-- <http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+-- This allows catching (and rethrowing) service specific errors returned+-- by 'StepFunctions'.++-- $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.

@@ -0,0 +1,300 @@+{-# 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.StepFunctions.CreateActivity+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an activity. An activity is a task that you write in any+-- programming language and host on any machine that has access to Step+-- Functions. Activities must poll Step Functions using the+-- @GetActivityTask@ API action and respond using @SendTask*@ API actions.+-- This function lets Step Functions know the existence of your activity+-- and returns an identifier for use in a state machine and when polling+-- from the activity.+--+-- This operation is eventually consistent. The results are best effort and+-- may not reflect very recent updates and changes.+--+-- @CreateActivity@ is an idempotent API. Subsequent requests won’t create+-- a duplicate resource if it was already created. @CreateActivity@\'s+-- idempotency check is based on the activity @name@. If a following+-- request has different @tags@ values, Step Functions will ignore these+-- differences and treat it as an idempotent request of the previous. In+-- this case, @tags@ will not be updated, even if they are different.+module Amazonka.StepFunctions.CreateActivity+  ( -- * Creating a Request+    CreateActivity (..),+    newCreateActivity,++    -- * Request Lenses+    createActivity_tags,+    createActivity_name,++    -- * Destructuring the Response+    CreateActivityResponse (..),+    newCreateActivityResponse,++    -- * Response Lenses+    createActivityResponse_httpStatus,+    createActivityResponse_activityArn,+    createActivityResponse_creationDate,+  )+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.StepFunctions.Types++-- | /See:/ 'newCreateActivity' smart constructor.+data CreateActivity = CreateActivity'+  { -- | The list of tags to add to a resource.+    --+    -- An array of key-value pairs. For more information, see+    -- <https://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/cost-alloc-tags.html Using Cost Allocation Tags>+    -- in the /Amazon Web Services Billing and Cost Management User Guide/, and+    -- <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_iam-tags.html Controlling Access Using IAM Tags>.+    --+    -- Tags may only contain Unicode letters, digits, white space, or these+    -- symbols: @_ . : \/ = + - \@@.+    tags :: Prelude.Maybe [Tag],+    -- | The name of the activity to create. This name must be unique for your+    -- Amazon Web Services account and region for 90 days. For more+    -- information, see+    -- <https://docs.aws.amazon.com/step-functions/latest/dg/limits.html#service-limits-state-machine-executions Limits Related to State Machine Executions>+    -- in the /Step Functions Developer Guide/.+    --+    -- A name must /not/ contain:+    --+    -- -   white space+    --+    -- -   brackets @\< > { } [ ]@+    --+    -- -   wildcard characters @? *@+    --+    -- -   special characters @\" # % \\ ^ | ~ \` $ & , ; : \/@+    --+    -- -   control characters (@U+0000-001F@, @U+007F-009F@)+    --+    -- To enable logging with CloudWatch Logs, the name should only contain+    -- 0-9, A-Z, a-z, - and _.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateActivity' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'tags', 'createActivity_tags' - The list of tags to add to a resource.+--+-- An array of key-value pairs. For more information, see+-- <https://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/cost-alloc-tags.html Using Cost Allocation Tags>+-- in the /Amazon Web Services Billing and Cost Management User Guide/, and+-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_iam-tags.html Controlling Access Using IAM Tags>.+--+-- Tags may only contain Unicode letters, digits, white space, or these+-- symbols: @_ . : \/ = + - \@@.+--+-- 'name', 'createActivity_name' - The name of the activity to create. This name must be unique for your+-- Amazon Web Services account and region for 90 days. For more+-- information, see+-- <https://docs.aws.amazon.com/step-functions/latest/dg/limits.html#service-limits-state-machine-executions Limits Related to State Machine Executions>+-- in the /Step Functions Developer Guide/.+--+-- A name must /not/ contain:+--+-- -   white space+--+-- -   brackets @\< > { } [ ]@+--+-- -   wildcard characters @? *@+--+-- -   special characters @\" # % \\ ^ | ~ \` $ & , ; : \/@+--+-- -   control characters (@U+0000-001F@, @U+007F-009F@)+--+-- To enable logging with CloudWatch Logs, the name should only contain+-- 0-9, A-Z, a-z, - and _.+newCreateActivity ::+  -- | 'name'+  Prelude.Text ->+  CreateActivity+newCreateActivity pName_ =+  CreateActivity'+    { tags = Prelude.Nothing,+      name = pName_+    }++-- | The list of tags to add to a resource.+--+-- An array of key-value pairs. For more information, see+-- <https://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/cost-alloc-tags.html Using Cost Allocation Tags>+-- in the /Amazon Web Services Billing and Cost Management User Guide/, and+-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_iam-tags.html Controlling Access Using IAM Tags>.+--+-- Tags may only contain Unicode letters, digits, white space, or these+-- symbols: @_ . : \/ = + - \@@.+createActivity_tags :: Lens.Lens' CreateActivity (Prelude.Maybe [Tag])+createActivity_tags = Lens.lens (\CreateActivity' {tags} -> tags) (\s@CreateActivity' {} a -> s {tags = a} :: CreateActivity) Prelude.. Lens.mapping Lens.coerced++-- | The name of the activity to create. This name must be unique for your+-- Amazon Web Services account and region for 90 days. For more+-- information, see+-- <https://docs.aws.amazon.com/step-functions/latest/dg/limits.html#service-limits-state-machine-executions Limits Related to State Machine Executions>+-- in the /Step Functions Developer Guide/.+--+-- A name must /not/ contain:+--+-- -   white space+--+-- -   brackets @\< > { } [ ]@+--+-- -   wildcard characters @? *@+--+-- -   special characters @\" # % \\ ^ | ~ \` $ & , ; : \/@+--+-- -   control characters (@U+0000-001F@, @U+007F-009F@)+--+-- To enable logging with CloudWatch Logs, the name should only contain+-- 0-9, A-Z, a-z, - and _.+createActivity_name :: Lens.Lens' CreateActivity Prelude.Text+createActivity_name = Lens.lens (\CreateActivity' {name} -> name) (\s@CreateActivity' {} a -> s {name = a} :: CreateActivity)++instance Core.AWSRequest CreateActivity where+  type+    AWSResponse CreateActivity =+      CreateActivityResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateActivityResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "activityArn")+            Prelude.<*> (x Data..:> "creationDate")+      )++instance Prelude.Hashable CreateActivity where+  hashWithSalt _salt CreateActivity' {..} =+    _salt+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` name++instance Prelude.NFData CreateActivity where+  rnf CreateActivity' {..} =+    Prelude.rnf tags `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders CreateActivity where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSStepFunctions.CreateActivity" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateActivity where+  toJSON CreateActivity' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("name" Data..= name)+          ]+      )++instance Data.ToPath CreateActivity where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateActivity where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateActivityResponse' smart constructor.+data CreateActivityResponse = CreateActivityResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The Amazon Resource Name (ARN) that identifies the created activity.+    activityArn :: Prelude.Text,+    -- | The date the activity is created.+    creationDate :: Data.POSIX+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateActivityResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createActivityResponse_httpStatus' - The response's http status code.+--+-- 'activityArn', 'createActivityResponse_activityArn' - The Amazon Resource Name (ARN) that identifies the created activity.+--+-- 'creationDate', 'createActivityResponse_creationDate' - The date the activity is created.+newCreateActivityResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'activityArn'+  Prelude.Text ->+  -- | 'creationDate'+  Prelude.UTCTime ->+  CreateActivityResponse+newCreateActivityResponse+  pHttpStatus_+  pActivityArn_+  pCreationDate_ =+    CreateActivityResponse'+      { httpStatus = pHttpStatus_,+        activityArn = pActivityArn_,+        creationDate = Data._Time Lens.# pCreationDate_+      }++-- | The response's http status code.+createActivityResponse_httpStatus :: Lens.Lens' CreateActivityResponse Prelude.Int+createActivityResponse_httpStatus = Lens.lens (\CreateActivityResponse' {httpStatus} -> httpStatus) (\s@CreateActivityResponse' {} a -> s {httpStatus = a} :: CreateActivityResponse)++-- | The Amazon Resource Name (ARN) that identifies the created activity.+createActivityResponse_activityArn :: Lens.Lens' CreateActivityResponse Prelude.Text+createActivityResponse_activityArn = Lens.lens (\CreateActivityResponse' {activityArn} -> activityArn) (\s@CreateActivityResponse' {} a -> s {activityArn = a} :: CreateActivityResponse)++-- | The date the activity is created.+createActivityResponse_creationDate :: Lens.Lens' CreateActivityResponse Prelude.UTCTime+createActivityResponse_creationDate = Lens.lens (\CreateActivityResponse' {creationDate} -> creationDate) (\s@CreateActivityResponse' {} a -> s {creationDate = a} :: CreateActivityResponse) Prelude.. Data._Time++instance Prelude.NFData CreateActivityResponse where+  rnf CreateActivityResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf activityArn+      `Prelude.seq` Prelude.rnf creationDate

@@ -0,0 +1,394 @@+{-# 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.StepFunctions.CreateStateMachine+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a state machine. A state machine consists of a collection of+-- states that can do work (@Task@ states), determine to which states to+-- transition next (@Choice@ states), stop an execution with an error+-- (@Fail@ states), and so on. State machines are specified using a+-- JSON-based, structured language. For more information, see+-- <https://docs.aws.amazon.com/step-functions/latest/dg/concepts-amazon-states-language.html Amazon States Language>+-- in the Step Functions User Guide.+--+-- This operation is eventually consistent. The results are best effort and+-- may not reflect very recent updates and changes.+--+-- @CreateStateMachine@ is an idempotent API. Subsequent requests won’t+-- create a duplicate resource if it was already created.+-- @CreateStateMachine@\'s idempotency check is based on the state machine+-- @name@, @definition@, @type@, @LoggingConfiguration@ and+-- @TracingConfiguration@. If a following request has a different @roleArn@+-- or @tags@, Step Functions will ignore these differences and treat it as+-- an idempotent request of the previous. In this case, @roleArn@ and+-- @tags@ will not be updated, even if they are different.+module Amazonka.StepFunctions.CreateStateMachine+  ( -- * Creating a Request+    CreateStateMachine (..),+    newCreateStateMachine,++    -- * Request Lenses+    createStateMachine_loggingConfiguration,+    createStateMachine_tags,+    createStateMachine_tracingConfiguration,+    createStateMachine_type,+    createStateMachine_name,+    createStateMachine_definition,+    createStateMachine_roleArn,++    -- * Destructuring the Response+    CreateStateMachineResponse (..),+    newCreateStateMachineResponse,++    -- * Response Lenses+    createStateMachineResponse_httpStatus,+    createStateMachineResponse_stateMachineArn,+    createStateMachineResponse_creationDate,+  )+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.StepFunctions.Types++-- | /See:/ 'newCreateStateMachine' smart constructor.+data CreateStateMachine = CreateStateMachine'+  { -- | Defines what execution history events are logged and where they are+    -- logged.+    --+    -- By default, the @level@ is set to @OFF@. For more information see+    -- <https://docs.aws.amazon.com/step-functions/latest/dg/cloudwatch-log-level.html Log Levels>+    -- in the Step Functions User Guide.+    loggingConfiguration :: Prelude.Maybe LoggingConfiguration,+    -- | Tags to be added when creating a state machine.+    --+    -- An array of key-value pairs. For more information, see+    -- <https://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/cost-alloc-tags.html Using Cost Allocation Tags>+    -- in the /Amazon Web Services Billing and Cost Management User Guide/, and+    -- <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_iam-tags.html Controlling Access Using IAM Tags>.+    --+    -- Tags may only contain Unicode letters, digits, white space, or these+    -- symbols: @_ . : \/ = + - \@@.+    tags :: Prelude.Maybe [Tag],+    -- | Selects whether X-Ray tracing is enabled.+    tracingConfiguration :: Prelude.Maybe TracingConfiguration,+    -- | Determines whether a Standard or Express state machine is created. The+    -- default is @STANDARD@. You cannot update the @type@ of a state machine+    -- once it has been created.+    type' :: Prelude.Maybe StateMachineType,+    -- | The name of the state machine.+    --+    -- A name must /not/ contain:+    --+    -- -   white space+    --+    -- -   brackets @\< > { } [ ]@+    --+    -- -   wildcard characters @? *@+    --+    -- -   special characters @\" # % \\ ^ | ~ \` $ & , ; : \/@+    --+    -- -   control characters (@U+0000-001F@, @U+007F-009F@)+    --+    -- To enable logging with CloudWatch Logs, the name should only contain+    -- 0-9, A-Z, a-z, - and _.+    name :: Prelude.Text,+    -- | The Amazon States Language definition of the state machine. See+    -- <https://docs.aws.amazon.com/step-functions/latest/dg/concepts-amazon-states-language.html Amazon States Language>.+    definition :: Data.Sensitive Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the IAM role to use for this state+    -- machine.+    roleArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateStateMachine' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'loggingConfiguration', 'createStateMachine_loggingConfiguration' - Defines what execution history events are logged and where they are+-- logged.+--+-- By default, the @level@ is set to @OFF@. For more information see+-- <https://docs.aws.amazon.com/step-functions/latest/dg/cloudwatch-log-level.html Log Levels>+-- in the Step Functions User Guide.+--+-- 'tags', 'createStateMachine_tags' - Tags to be added when creating a state machine.+--+-- An array of key-value pairs. For more information, see+-- <https://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/cost-alloc-tags.html Using Cost Allocation Tags>+-- in the /Amazon Web Services Billing and Cost Management User Guide/, and+-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_iam-tags.html Controlling Access Using IAM Tags>.+--+-- Tags may only contain Unicode letters, digits, white space, or these+-- symbols: @_ . : \/ = + - \@@.+--+-- 'tracingConfiguration', 'createStateMachine_tracingConfiguration' - Selects whether X-Ray tracing is enabled.+--+-- 'type'', 'createStateMachine_type' - Determines whether a Standard or Express state machine is created. The+-- default is @STANDARD@. You cannot update the @type@ of a state machine+-- once it has been created.+--+-- 'name', 'createStateMachine_name' - The name of the state machine.+--+-- A name must /not/ contain:+--+-- -   white space+--+-- -   brackets @\< > { } [ ]@+--+-- -   wildcard characters @? *@+--+-- -   special characters @\" # % \\ ^ | ~ \` $ & , ; : \/@+--+-- -   control characters (@U+0000-001F@, @U+007F-009F@)+--+-- To enable logging with CloudWatch Logs, the name should only contain+-- 0-9, A-Z, a-z, - and _.+--+-- 'definition', 'createStateMachine_definition' - The Amazon States Language definition of the state machine. See+-- <https://docs.aws.amazon.com/step-functions/latest/dg/concepts-amazon-states-language.html Amazon States Language>.+--+-- 'roleArn', 'createStateMachine_roleArn' - The Amazon Resource Name (ARN) of the IAM role to use for this state+-- machine.+newCreateStateMachine ::+  -- | 'name'+  Prelude.Text ->+  -- | 'definition'+  Prelude.Text ->+  -- | 'roleArn'+  Prelude.Text ->+  CreateStateMachine+newCreateStateMachine pName_ pDefinition_ pRoleArn_ =+  CreateStateMachine'+    { loggingConfiguration =+        Prelude.Nothing,+      tags = Prelude.Nothing,+      tracingConfiguration = Prelude.Nothing,+      type' = Prelude.Nothing,+      name = pName_,+      definition = Data._Sensitive Lens.# pDefinition_,+      roleArn = pRoleArn_+    }++-- | Defines what execution history events are logged and where they are+-- logged.+--+-- By default, the @level@ is set to @OFF@. For more information see+-- <https://docs.aws.amazon.com/step-functions/latest/dg/cloudwatch-log-level.html Log Levels>+-- in the Step Functions User Guide.+createStateMachine_loggingConfiguration :: Lens.Lens' CreateStateMachine (Prelude.Maybe LoggingConfiguration)+createStateMachine_loggingConfiguration = Lens.lens (\CreateStateMachine' {loggingConfiguration} -> loggingConfiguration) (\s@CreateStateMachine' {} a -> s {loggingConfiguration = a} :: CreateStateMachine)++-- | Tags to be added when creating a state machine.+--+-- An array of key-value pairs. For more information, see+-- <https://docs.aws.amazon.com/awsaccountbilling/latest/aboutv2/cost-alloc-tags.html Using Cost Allocation Tags>+-- in the /Amazon Web Services Billing and Cost Management User Guide/, and+-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/access_iam-tags.html Controlling Access Using IAM Tags>.+--+-- Tags may only contain Unicode letters, digits, white space, or these+-- symbols: @_ . : \/ = + - \@@.+createStateMachine_tags :: Lens.Lens' CreateStateMachine (Prelude.Maybe [Tag])+createStateMachine_tags = Lens.lens (\CreateStateMachine' {tags} -> tags) (\s@CreateStateMachine' {} a -> s {tags = a} :: CreateStateMachine) Prelude.. Lens.mapping Lens.coerced++-- | Selects whether X-Ray tracing is enabled.+createStateMachine_tracingConfiguration :: Lens.Lens' CreateStateMachine (Prelude.Maybe TracingConfiguration)+createStateMachine_tracingConfiguration = Lens.lens (\CreateStateMachine' {tracingConfiguration} -> tracingConfiguration) (\s@CreateStateMachine' {} a -> s {tracingConfiguration = a} :: CreateStateMachine)++-- | Determines whether a Standard or Express state machine is created. The+-- default is @STANDARD@. You cannot update the @type@ of a state machine+-- once it has been created.+createStateMachine_type :: Lens.Lens' CreateStateMachine (Prelude.Maybe StateMachineType)+createStateMachine_type = Lens.lens (\CreateStateMachine' {type'} -> type') (\s@CreateStateMachine' {} a -> s {type' = a} :: CreateStateMachine)++-- | The name of the state machine.+--+-- A name must /not/ contain:+--+-- -   white space+--+-- -   brackets @\< > { } [ ]@+--+-- -   wildcard characters @? *@+--+-- -   special characters @\" # % \\ ^ | ~ \` $ & , ; : \/@+--+-- -   control characters (@U+0000-001F@, @U+007F-009F@)+--+-- To enable logging with CloudWatch Logs, the name should only contain+-- 0-9, A-Z, a-z, - and _.+createStateMachine_name :: Lens.Lens' CreateStateMachine Prelude.Text+createStateMachine_name = Lens.lens (\CreateStateMachine' {name} -> name) (\s@CreateStateMachine' {} a -> s {name = a} :: CreateStateMachine)++-- | The Amazon States Language definition of the state machine. See+-- <https://docs.aws.amazon.com/step-functions/latest/dg/concepts-amazon-states-language.html Amazon States Language>.+createStateMachine_definition :: Lens.Lens' CreateStateMachine Prelude.Text+createStateMachine_definition = Lens.lens (\CreateStateMachine' {definition} -> definition) (\s@CreateStateMachine' {} a -> s {definition = a} :: CreateStateMachine) Prelude.. Data._Sensitive++-- | The Amazon Resource Name (ARN) of the IAM role to use for this state+-- machine.+createStateMachine_roleArn :: Lens.Lens' CreateStateMachine Prelude.Text+createStateMachine_roleArn = Lens.lens (\CreateStateMachine' {roleArn} -> roleArn) (\s@CreateStateMachine' {} a -> s {roleArn = a} :: CreateStateMachine)++instance Core.AWSRequest CreateStateMachine where+  type+    AWSResponse CreateStateMachine =+      CreateStateMachineResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateStateMachineResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "stateMachineArn")+            Prelude.<*> (x Data..:> "creationDate")+      )++instance Prelude.Hashable CreateStateMachine where+  hashWithSalt _salt CreateStateMachine' {..} =+    _salt+      `Prelude.hashWithSalt` loggingConfiguration+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` tracingConfiguration+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` definition+      `Prelude.hashWithSalt` roleArn++instance Prelude.NFData CreateStateMachine where+  rnf CreateStateMachine' {..} =+    Prelude.rnf loggingConfiguration+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf tracingConfiguration+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf definition+      `Prelude.seq` Prelude.rnf roleArn++instance Data.ToHeaders CreateStateMachine where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSStepFunctions.CreateStateMachine" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateStateMachine where+  toJSON CreateStateMachine' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("loggingConfiguration" Data..=)+              Prelude.<$> loggingConfiguration,+            ("tags" Data..=) Prelude.<$> tags,+            ("tracingConfiguration" Data..=)+              Prelude.<$> tracingConfiguration,+            ("type" Data..=) Prelude.<$> type',+            Prelude.Just ("name" Data..= name),+            Prelude.Just ("definition" Data..= definition),+            Prelude.Just ("roleArn" Data..= roleArn)+          ]+      )++instance Data.ToPath CreateStateMachine where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateStateMachine where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateStateMachineResponse' smart constructor.+data CreateStateMachineResponse = CreateStateMachineResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The Amazon Resource Name (ARN) that identifies the created state+    -- machine.+    stateMachineArn :: Prelude.Text,+    -- | The date the state machine is created.+    creationDate :: Data.POSIX+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateStateMachineResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createStateMachineResponse_httpStatus' - The response's http status code.+--+-- 'stateMachineArn', 'createStateMachineResponse_stateMachineArn' - The Amazon Resource Name (ARN) that identifies the created state+-- machine.+--+-- 'creationDate', 'createStateMachineResponse_creationDate' - The date the state machine is created.+newCreateStateMachineResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'stateMachineArn'+  Prelude.Text ->+  -- | 'creationDate'+  Prelude.UTCTime ->+  CreateStateMachineResponse+newCreateStateMachineResponse+  pHttpStatus_+  pStateMachineArn_+  pCreationDate_ =+    CreateStateMachineResponse'+      { httpStatus =+          pHttpStatus_,+        stateMachineArn = pStateMachineArn_,+        creationDate = Data._Time Lens.# pCreationDate_+      }++-- | The response's http status code.+createStateMachineResponse_httpStatus :: Lens.Lens' CreateStateMachineResponse Prelude.Int+createStateMachineResponse_httpStatus = Lens.lens (\CreateStateMachineResponse' {httpStatus} -> httpStatus) (\s@CreateStateMachineResponse' {} a -> s {httpStatus = a} :: CreateStateMachineResponse)++-- | The Amazon Resource Name (ARN) that identifies the created state+-- machine.+createStateMachineResponse_stateMachineArn :: Lens.Lens' CreateStateMachineResponse Prelude.Text+createStateMachineResponse_stateMachineArn = Lens.lens (\CreateStateMachineResponse' {stateMachineArn} -> stateMachineArn) (\s@CreateStateMachineResponse' {} a -> s {stateMachineArn = a} :: CreateStateMachineResponse)++-- | The date the state machine is created.+createStateMachineResponse_creationDate :: Lens.Lens' CreateStateMachineResponse Prelude.UTCTime+createStateMachineResponse_creationDate = Lens.lens (\CreateStateMachineResponse' {creationDate} -> creationDate) (\s@CreateStateMachineResponse' {} a -> s {creationDate = a} :: CreateStateMachineResponse) Prelude.. Data._Time++instance Prelude.NFData CreateStateMachineResponse where+  rnf CreateStateMachineResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf stateMachineArn+      `Prelude.seq` Prelude.rnf creationDate

@@ -0,0 +1,153 @@+{-# 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.StepFunctions.DeleteActivity+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an activity.+module Amazonka.StepFunctions.DeleteActivity+  ( -- * Creating a Request+    DeleteActivity (..),+    newDeleteActivity,++    -- * Request Lenses+    deleteActivity_activityArn,++    -- * Destructuring the Response+    DeleteActivityResponse (..),+    newDeleteActivityResponse,++    -- * Response Lenses+    deleteActivityResponse_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.StepFunctions.Types++-- | /See:/ 'newDeleteActivity' smart constructor.+data DeleteActivity = DeleteActivity'+  { -- | The Amazon Resource Name (ARN) of the activity to delete.+    activityArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteActivity' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'activityArn', 'deleteActivity_activityArn' - The Amazon Resource Name (ARN) of the activity to delete.+newDeleteActivity ::+  -- | 'activityArn'+  Prelude.Text ->+  DeleteActivity+newDeleteActivity pActivityArn_ =+  DeleteActivity' {activityArn = pActivityArn_}++-- | The Amazon Resource Name (ARN) of the activity to delete.+deleteActivity_activityArn :: Lens.Lens' DeleteActivity Prelude.Text+deleteActivity_activityArn = Lens.lens (\DeleteActivity' {activityArn} -> activityArn) (\s@DeleteActivity' {} a -> s {activityArn = a} :: DeleteActivity)++instance Core.AWSRequest DeleteActivity where+  type+    AWSResponse DeleteActivity =+      DeleteActivityResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteActivityResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteActivity where+  hashWithSalt _salt DeleteActivity' {..} =+    _salt `Prelude.hashWithSalt` activityArn++instance Prelude.NFData DeleteActivity where+  rnf DeleteActivity' {..} = Prelude.rnf activityArn++instance Data.ToHeaders DeleteActivity where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSStepFunctions.DeleteActivity" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteActivity where+  toJSON DeleteActivity' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("activityArn" Data..= activityArn)]+      )++instance Data.ToPath DeleteActivity where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteActivity where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteActivityResponse' smart constructor.+data DeleteActivityResponse = DeleteActivityResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteActivityResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteActivityResponse_httpStatus' - The response's http status code.+newDeleteActivityResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteActivityResponse+newDeleteActivityResponse pHttpStatus_ =+  DeleteActivityResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deleteActivityResponse_httpStatus :: Lens.Lens' DeleteActivityResponse Prelude.Int+deleteActivityResponse_httpStatus = Lens.lens (\DeleteActivityResponse' {httpStatus} -> httpStatus) (\s@DeleteActivityResponse' {} a -> s {httpStatus = a} :: DeleteActivityResponse)++instance Prelude.NFData DeleteActivityResponse where+  rnf DeleteActivityResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,177 @@+{-# 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.StepFunctions.DeleteStateMachine+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a state machine. This is an asynchronous operation: It sets the+-- state machine\'s status to @DELETING@ and begins the deletion process.+--+-- If the given state machine Amazon Resource Name (ARN) is a qualified+-- state machine ARN, it will fail with ValidationException.+--+-- A qualified state machine ARN refers to a /Distributed Map state/+-- defined within a state machine. For example, the qualified state machine+-- ARN+-- @arn:partition:states:region:account-id:stateMachine:stateMachineName\/mapStateLabel@+-- refers to a /Distributed Map state/ with a label @mapStateLabel@ in the+-- state machine named @stateMachineName@.+--+-- For @EXPRESS@ state machines, the deletion will happen eventually+-- (usually less than a minute). Running executions may emit logs after+-- @DeleteStateMachine@ API is called.+module Amazonka.StepFunctions.DeleteStateMachine+  ( -- * Creating a Request+    DeleteStateMachine (..),+    newDeleteStateMachine,++    -- * Request Lenses+    deleteStateMachine_stateMachineArn,++    -- * Destructuring the Response+    DeleteStateMachineResponse (..),+    newDeleteStateMachineResponse,++    -- * Response Lenses+    deleteStateMachineResponse_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.StepFunctions.Types++-- | /See:/ 'newDeleteStateMachine' smart constructor.+data DeleteStateMachine = DeleteStateMachine'+  { -- | The Amazon Resource Name (ARN) of the state machine to delete.+    stateMachineArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteStateMachine' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'stateMachineArn', 'deleteStateMachine_stateMachineArn' - The Amazon Resource Name (ARN) of the state machine to delete.+newDeleteStateMachine ::+  -- | 'stateMachineArn'+  Prelude.Text ->+  DeleteStateMachine+newDeleteStateMachine pStateMachineArn_ =+  DeleteStateMachine'+    { stateMachineArn =+        pStateMachineArn_+    }++-- | The Amazon Resource Name (ARN) of the state machine to delete.+deleteStateMachine_stateMachineArn :: Lens.Lens' DeleteStateMachine Prelude.Text+deleteStateMachine_stateMachineArn = Lens.lens (\DeleteStateMachine' {stateMachineArn} -> stateMachineArn) (\s@DeleteStateMachine' {} a -> s {stateMachineArn = a} :: DeleteStateMachine)++instance Core.AWSRequest DeleteStateMachine where+  type+    AWSResponse DeleteStateMachine =+      DeleteStateMachineResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteStateMachineResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteStateMachine where+  hashWithSalt _salt DeleteStateMachine' {..} =+    _salt `Prelude.hashWithSalt` stateMachineArn++instance Prelude.NFData DeleteStateMachine where+  rnf DeleteStateMachine' {..} =+    Prelude.rnf stateMachineArn++instance Data.ToHeaders DeleteStateMachine where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSStepFunctions.DeleteStateMachine" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteStateMachine where+  toJSON DeleteStateMachine' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("stateMachineArn" Data..= stateMachineArn)+          ]+      )++instance Data.ToPath DeleteStateMachine where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteStateMachine where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteStateMachineResponse' smart constructor.+data DeleteStateMachineResponse = DeleteStateMachineResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteStateMachineResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteStateMachineResponse_httpStatus' - The response's http status code.+newDeleteStateMachineResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteStateMachineResponse+newDeleteStateMachineResponse pHttpStatus_ =+  DeleteStateMachineResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteStateMachineResponse_httpStatus :: Lens.Lens' DeleteStateMachineResponse Prelude.Int+deleteStateMachineResponse_httpStatus = Lens.lens (\DeleteStateMachineResponse' {httpStatus} -> httpStatus) (\s@DeleteStateMachineResponse' {} a -> s {httpStatus = a} :: DeleteStateMachineResponse)++instance Prelude.NFData DeleteStateMachineResponse where+  rnf DeleteStateMachineResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,250 @@+{-# 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.StepFunctions.DescribeActivity+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes an activity.+--+-- This operation is eventually consistent. The results are best effort and+-- may not reflect very recent updates and changes.+module Amazonka.StepFunctions.DescribeActivity+  ( -- * Creating a Request+    DescribeActivity (..),+    newDescribeActivity,++    -- * Request Lenses+    describeActivity_activityArn,++    -- * Destructuring the Response+    DescribeActivityResponse (..),+    newDescribeActivityResponse,++    -- * Response Lenses+    describeActivityResponse_httpStatus,+    describeActivityResponse_activityArn,+    describeActivityResponse_name,+    describeActivityResponse_creationDate,+  )+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.StepFunctions.Types++-- | /See:/ 'newDescribeActivity' smart constructor.+data DescribeActivity = DescribeActivity'+  { -- | The Amazon Resource Name (ARN) of the activity to describe.+    activityArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeActivity' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'activityArn', 'describeActivity_activityArn' - The Amazon Resource Name (ARN) of the activity to describe.+newDescribeActivity ::+  -- | 'activityArn'+  Prelude.Text ->+  DescribeActivity+newDescribeActivity pActivityArn_ =+  DescribeActivity' {activityArn = pActivityArn_}++-- | The Amazon Resource Name (ARN) of the activity to describe.+describeActivity_activityArn :: Lens.Lens' DescribeActivity Prelude.Text+describeActivity_activityArn = Lens.lens (\DescribeActivity' {activityArn} -> activityArn) (\s@DescribeActivity' {} a -> s {activityArn = a} :: DescribeActivity)++instance Core.AWSRequest DescribeActivity where+  type+    AWSResponse DescribeActivity =+      DescribeActivityResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeActivityResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "activityArn")+            Prelude.<*> (x Data..:> "name")+            Prelude.<*> (x Data..:> "creationDate")+      )++instance Prelude.Hashable DescribeActivity where+  hashWithSalt _salt DescribeActivity' {..} =+    _salt `Prelude.hashWithSalt` activityArn++instance Prelude.NFData DescribeActivity where+  rnf DescribeActivity' {..} = Prelude.rnf activityArn++instance Data.ToHeaders DescribeActivity where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSStepFunctions.DescribeActivity" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeActivity where+  toJSON DescribeActivity' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("activityArn" Data..= activityArn)]+      )++instance Data.ToPath DescribeActivity where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeActivity where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeActivityResponse' smart constructor.+data DescribeActivityResponse = DescribeActivityResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The Amazon Resource Name (ARN) that identifies the activity.+    activityArn :: Prelude.Text,+    -- | The name of the activity.+    --+    -- A name must /not/ contain:+    --+    -- -   white space+    --+    -- -   brackets @\< > { } [ ]@+    --+    -- -   wildcard characters @? *@+    --+    -- -   special characters @\" # % \\ ^ | ~ \` $ & , ; : \/@+    --+    -- -   control characters (@U+0000-001F@, @U+007F-009F@)+    --+    -- To enable logging with CloudWatch Logs, the name should only contain+    -- 0-9, A-Z, a-z, - and _.+    name :: Prelude.Text,+    -- | The date the activity is created.+    creationDate :: Data.POSIX+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeActivityResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'describeActivityResponse_httpStatus' - The response's http status code.+--+-- 'activityArn', 'describeActivityResponse_activityArn' - The Amazon Resource Name (ARN) that identifies the activity.+--+-- 'name', 'describeActivityResponse_name' - The name of the activity.+--+-- A name must /not/ contain:+--+-- -   white space+--+-- -   brackets @\< > { } [ ]@+--+-- -   wildcard characters @? *@+--+-- -   special characters @\" # % \\ ^ | ~ \` $ & , ; : \/@+--+-- -   control characters (@U+0000-001F@, @U+007F-009F@)+--+-- To enable logging with CloudWatch Logs, the name should only contain+-- 0-9, A-Z, a-z, - and _.+--+-- 'creationDate', 'describeActivityResponse_creationDate' - The date the activity is created.+newDescribeActivityResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'activityArn'+  Prelude.Text ->+  -- | 'name'+  Prelude.Text ->+  -- | 'creationDate'+  Prelude.UTCTime ->+  DescribeActivityResponse+newDescribeActivityResponse+  pHttpStatus_+  pActivityArn_+  pName_+  pCreationDate_ =+    DescribeActivityResponse'+      { httpStatus =+          pHttpStatus_,+        activityArn = pActivityArn_,+        name = pName_,+        creationDate = Data._Time Lens.# pCreationDate_+      }++-- | The response's http status code.+describeActivityResponse_httpStatus :: Lens.Lens' DescribeActivityResponse Prelude.Int+describeActivityResponse_httpStatus = Lens.lens (\DescribeActivityResponse' {httpStatus} -> httpStatus) (\s@DescribeActivityResponse' {} a -> s {httpStatus = a} :: DescribeActivityResponse)++-- | The Amazon Resource Name (ARN) that identifies the activity.+describeActivityResponse_activityArn :: Lens.Lens' DescribeActivityResponse Prelude.Text+describeActivityResponse_activityArn = Lens.lens (\DescribeActivityResponse' {activityArn} -> activityArn) (\s@DescribeActivityResponse' {} a -> s {activityArn = a} :: DescribeActivityResponse)++-- | The name of the activity.+--+-- A name must /not/ contain:+--+-- -   white space+--+-- -   brackets @\< > { } [ ]@+--+-- -   wildcard characters @? *@+--+-- -   special characters @\" # % \\ ^ | ~ \` $ & , ; : \/@+--+-- -   control characters (@U+0000-001F@, @U+007F-009F@)+--+-- To enable logging with CloudWatch Logs, the name should only contain+-- 0-9, A-Z, a-z, - and _.+describeActivityResponse_name :: Lens.Lens' DescribeActivityResponse Prelude.Text+describeActivityResponse_name = Lens.lens (\DescribeActivityResponse' {name} -> name) (\s@DescribeActivityResponse' {} a -> s {name = a} :: DescribeActivityResponse)++-- | The date the activity is created.+describeActivityResponse_creationDate :: Lens.Lens' DescribeActivityResponse Prelude.UTCTime+describeActivityResponse_creationDate = Lens.lens (\DescribeActivityResponse' {creationDate} -> creationDate) (\s@DescribeActivityResponse' {} a -> s {creationDate = a} :: DescribeActivityResponse) Prelude.. Data._Time++instance Prelude.NFData DescribeActivityResponse where+  rnf DescribeActivityResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf activityArn+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf creationDate

@@ -0,0 +1,409 @@+{-# 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.StepFunctions.DescribeExecution+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides all information about a state machine execution, such as the+-- state machine associated with the execution, the execution input and+-- output, and relevant execution metadata. Use this API action to return+-- the Map Run ARN if the execution was dispatched by a Map Run.+--+-- This operation is eventually consistent. The results are best effort and+-- may not reflect very recent updates and changes.+--+-- This API action is not supported by @EXPRESS@ state machine executions+-- unless they were dispatched by a Map Run.+module Amazonka.StepFunctions.DescribeExecution+  ( -- * Creating a Request+    DescribeExecution (..),+    newDescribeExecution,++    -- * Request Lenses+    describeExecution_executionArn,++    -- * Destructuring the Response+    DescribeExecutionResponse (..),+    newDescribeExecutionResponse,++    -- * Response Lenses+    describeExecutionResponse_cause,+    describeExecutionResponse_error,+    describeExecutionResponse_input,+    describeExecutionResponse_inputDetails,+    describeExecutionResponse_mapRunArn,+    describeExecutionResponse_name,+    describeExecutionResponse_output,+    describeExecutionResponse_outputDetails,+    describeExecutionResponse_stopDate,+    describeExecutionResponse_traceHeader,+    describeExecutionResponse_httpStatus,+    describeExecutionResponse_executionArn,+    describeExecutionResponse_stateMachineArn,+    describeExecutionResponse_status,+    describeExecutionResponse_startDate,+  )+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.StepFunctions.Types++-- | /See:/ 'newDescribeExecution' smart constructor.+data DescribeExecution = DescribeExecution'+  { -- | The Amazon Resource Name (ARN) of the execution to describe.+    executionArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeExecution' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'executionArn', 'describeExecution_executionArn' - The Amazon Resource Name (ARN) of the execution to describe.+newDescribeExecution ::+  -- | 'executionArn'+  Prelude.Text ->+  DescribeExecution+newDescribeExecution pExecutionArn_ =+  DescribeExecution' {executionArn = pExecutionArn_}++-- | The Amazon Resource Name (ARN) of the execution to describe.+describeExecution_executionArn :: Lens.Lens' DescribeExecution Prelude.Text+describeExecution_executionArn = Lens.lens (\DescribeExecution' {executionArn} -> executionArn) (\s@DescribeExecution' {} a -> s {executionArn = a} :: DescribeExecution)++instance Core.AWSRequest DescribeExecution where+  type+    AWSResponse DescribeExecution =+      DescribeExecutionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeExecutionResponse'+            Prelude.<$> (x Data..?> "cause")+            Prelude.<*> (x Data..?> "error")+            Prelude.<*> (x Data..?> "input")+            Prelude.<*> (x Data..?> "inputDetails")+            Prelude.<*> (x Data..?> "mapRunArn")+            Prelude.<*> (x Data..?> "name")+            Prelude.<*> (x Data..?> "output")+            Prelude.<*> (x Data..?> "outputDetails")+            Prelude.<*> (x Data..?> "stopDate")+            Prelude.<*> (x Data..?> "traceHeader")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "executionArn")+            Prelude.<*> (x Data..:> "stateMachineArn")+            Prelude.<*> (x Data..:> "status")+            Prelude.<*> (x Data..:> "startDate")+      )++instance Prelude.Hashable DescribeExecution where+  hashWithSalt _salt DescribeExecution' {..} =+    _salt `Prelude.hashWithSalt` executionArn++instance Prelude.NFData DescribeExecution where+  rnf DescribeExecution' {..} = Prelude.rnf executionArn++instance Data.ToHeaders DescribeExecution where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSStepFunctions.DescribeExecution" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeExecution where+  toJSON DescribeExecution' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("executionArn" Data..= executionArn)]+      )++instance Data.ToPath DescribeExecution where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeExecution where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeExecutionResponse' smart constructor.+data DescribeExecutionResponse = DescribeExecutionResponse'+  { -- | The cause string if the state machine execution failed.+    cause :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The error string if the state machine execution failed.+    error :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The string that contains the JSON input data of the execution. Length+    -- constraints apply to the payload size, and are expressed as bytes in+    -- UTF-8 encoding.+    input :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    inputDetails :: Prelude.Maybe CloudWatchEventsExecutionDataDetails,+    -- | The Amazon Resource Name (ARN) that identifies a Map Run, which+    -- dispatched this execution.+    mapRunArn :: Prelude.Maybe Prelude.Text,+    -- | The name of the execution.+    --+    -- A name must /not/ contain:+    --+    -- -   white space+    --+    -- -   brackets @\< > { } [ ]@+    --+    -- -   wildcard characters @? *@+    --+    -- -   special characters @\" # % \\ ^ | ~ \` $ & , ; : \/@+    --+    -- -   control characters (@U+0000-001F@, @U+007F-009F@)+    --+    -- To enable logging with CloudWatch Logs, the name should only contain+    -- 0-9, A-Z, a-z, - and _.+    name :: Prelude.Maybe Prelude.Text,+    -- | The JSON output data of the execution. Length constraints apply to the+    -- payload size, and are expressed as bytes in UTF-8 encoding.+    --+    -- This field is set only if the execution succeeds. If the execution+    -- fails, this field is null.+    output :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    outputDetails :: Prelude.Maybe CloudWatchEventsExecutionDataDetails,+    -- | If the execution has already ended, the date the execution stopped.+    stopDate :: Prelude.Maybe Data.POSIX,+    -- | The X-Ray trace header that was passed to the execution.+    traceHeader :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The Amazon Resource Name (ARN) that identifies the execution.+    executionArn :: Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the executed stated machine.+    stateMachineArn :: Prelude.Text,+    -- | The current status of the execution.+    status :: ExecutionStatus,+    -- | The date the execution is started.+    startDate :: Data.POSIX+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeExecutionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cause', 'describeExecutionResponse_cause' - The cause string if the state machine execution failed.+--+-- 'error', 'describeExecutionResponse_error' - The error string if the state machine execution failed.+--+-- 'input', 'describeExecutionResponse_input' - The string that contains the JSON input data of the execution. Length+-- constraints apply to the payload size, and are expressed as bytes in+-- UTF-8 encoding.+--+-- 'inputDetails', 'describeExecutionResponse_inputDetails' - Undocumented member.+--+-- 'mapRunArn', 'describeExecutionResponse_mapRunArn' - The Amazon Resource Name (ARN) that identifies a Map Run, which+-- dispatched this execution.+--+-- 'name', 'describeExecutionResponse_name' - The name of the execution.+--+-- A name must /not/ contain:+--+-- -   white space+--+-- -   brackets @\< > { } [ ]@+--+-- -   wildcard characters @? *@+--+-- -   special characters @\" # % \\ ^ | ~ \` $ & , ; : \/@+--+-- -   control characters (@U+0000-001F@, @U+007F-009F@)+--+-- To enable logging with CloudWatch Logs, the name should only contain+-- 0-9, A-Z, a-z, - and _.+--+-- 'output', 'describeExecutionResponse_output' - The JSON output data of the execution. Length constraints apply to the+-- payload size, and are expressed as bytes in UTF-8 encoding.+--+-- This field is set only if the execution succeeds. If the execution+-- fails, this field is null.+--+-- 'outputDetails', 'describeExecutionResponse_outputDetails' - Undocumented member.+--+-- 'stopDate', 'describeExecutionResponse_stopDate' - If the execution has already ended, the date the execution stopped.+--+-- 'traceHeader', 'describeExecutionResponse_traceHeader' - The X-Ray trace header that was passed to the execution.+--+-- 'httpStatus', 'describeExecutionResponse_httpStatus' - The response's http status code.+--+-- 'executionArn', 'describeExecutionResponse_executionArn' - The Amazon Resource Name (ARN) that identifies the execution.+--+-- 'stateMachineArn', 'describeExecutionResponse_stateMachineArn' - The Amazon Resource Name (ARN) of the executed stated machine.+--+-- 'status', 'describeExecutionResponse_status' - The current status of the execution.+--+-- 'startDate', 'describeExecutionResponse_startDate' - The date the execution is started.+newDescribeExecutionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'executionArn'+  Prelude.Text ->+  -- | 'stateMachineArn'+  Prelude.Text ->+  -- | 'status'+  ExecutionStatus ->+  -- | 'startDate'+  Prelude.UTCTime ->+  DescribeExecutionResponse+newDescribeExecutionResponse+  pHttpStatus_+  pExecutionArn_+  pStateMachineArn_+  pStatus_+  pStartDate_ =+    DescribeExecutionResponse'+      { cause = Prelude.Nothing,+        error = Prelude.Nothing,+        input = Prelude.Nothing,+        inputDetails = Prelude.Nothing,+        mapRunArn = Prelude.Nothing,+        name = Prelude.Nothing,+        output = Prelude.Nothing,+        outputDetails = Prelude.Nothing,+        stopDate = Prelude.Nothing,+        traceHeader = Prelude.Nothing,+        httpStatus = pHttpStatus_,+        executionArn = pExecutionArn_,+        stateMachineArn = pStateMachineArn_,+        status = pStatus_,+        startDate = Data._Time Lens.# pStartDate_+      }++-- | The cause string if the state machine execution failed.+describeExecutionResponse_cause :: Lens.Lens' DescribeExecutionResponse (Prelude.Maybe Prelude.Text)+describeExecutionResponse_cause = Lens.lens (\DescribeExecutionResponse' {cause} -> cause) (\s@DescribeExecutionResponse' {} a -> s {cause = a} :: DescribeExecutionResponse) Prelude.. Lens.mapping Data._Sensitive++-- | The error string if the state machine execution failed.+describeExecutionResponse_error :: Lens.Lens' DescribeExecutionResponse (Prelude.Maybe Prelude.Text)+describeExecutionResponse_error = Lens.lens (\DescribeExecutionResponse' {error} -> error) (\s@DescribeExecutionResponse' {} a -> s {error = a} :: DescribeExecutionResponse) Prelude.. Lens.mapping Data._Sensitive++-- | The string that contains the JSON input data of the execution. Length+-- constraints apply to the payload size, and are expressed as bytes in+-- UTF-8 encoding.+describeExecutionResponse_input :: Lens.Lens' DescribeExecutionResponse (Prelude.Maybe Prelude.Text)+describeExecutionResponse_input = Lens.lens (\DescribeExecutionResponse' {input} -> input) (\s@DescribeExecutionResponse' {} a -> s {input = a} :: DescribeExecutionResponse) Prelude.. Lens.mapping Data._Sensitive++-- | Undocumented member.+describeExecutionResponse_inputDetails :: Lens.Lens' DescribeExecutionResponse (Prelude.Maybe CloudWatchEventsExecutionDataDetails)+describeExecutionResponse_inputDetails = Lens.lens (\DescribeExecutionResponse' {inputDetails} -> inputDetails) (\s@DescribeExecutionResponse' {} a -> s {inputDetails = a} :: DescribeExecutionResponse)++-- | The Amazon Resource Name (ARN) that identifies a Map Run, which+-- dispatched this execution.+describeExecutionResponse_mapRunArn :: Lens.Lens' DescribeExecutionResponse (Prelude.Maybe Prelude.Text)+describeExecutionResponse_mapRunArn = Lens.lens (\DescribeExecutionResponse' {mapRunArn} -> mapRunArn) (\s@DescribeExecutionResponse' {} a -> s {mapRunArn = a} :: DescribeExecutionResponse)++-- | The name of the execution.+--+-- A name must /not/ contain:+--+-- -   white space+--+-- -   brackets @\< > { } [ ]@+--+-- -   wildcard characters @? *@+--+-- -   special characters @\" # % \\ ^ | ~ \` $ & , ; : \/@+--+-- -   control characters (@U+0000-001F@, @U+007F-009F@)+--+-- To enable logging with CloudWatch Logs, the name should only contain+-- 0-9, A-Z, a-z, - and _.+describeExecutionResponse_name :: Lens.Lens' DescribeExecutionResponse (Prelude.Maybe Prelude.Text)+describeExecutionResponse_name = Lens.lens (\DescribeExecutionResponse' {name} -> name) (\s@DescribeExecutionResponse' {} a -> s {name = a} :: DescribeExecutionResponse)++-- | The JSON output data of the execution. Length constraints apply to the+-- payload size, and are expressed as bytes in UTF-8 encoding.+--+-- This field is set only if the execution succeeds. If the execution+-- fails, this field is null.+describeExecutionResponse_output :: Lens.Lens' DescribeExecutionResponse (Prelude.Maybe Prelude.Text)+describeExecutionResponse_output = Lens.lens (\DescribeExecutionResponse' {output} -> output) (\s@DescribeExecutionResponse' {} a -> s {output = a} :: DescribeExecutionResponse) Prelude.. Lens.mapping Data._Sensitive++-- | Undocumented member.+describeExecutionResponse_outputDetails :: Lens.Lens' DescribeExecutionResponse (Prelude.Maybe CloudWatchEventsExecutionDataDetails)+describeExecutionResponse_outputDetails = Lens.lens (\DescribeExecutionResponse' {outputDetails} -> outputDetails) (\s@DescribeExecutionResponse' {} a -> s {outputDetails = a} :: DescribeExecutionResponse)++-- | If the execution has already ended, the date the execution stopped.+describeExecutionResponse_stopDate :: Lens.Lens' DescribeExecutionResponse (Prelude.Maybe Prelude.UTCTime)+describeExecutionResponse_stopDate = Lens.lens (\DescribeExecutionResponse' {stopDate} -> stopDate) (\s@DescribeExecutionResponse' {} a -> s {stopDate = a} :: DescribeExecutionResponse) Prelude.. Lens.mapping Data._Time++-- | The X-Ray trace header that was passed to the execution.+describeExecutionResponse_traceHeader :: Lens.Lens' DescribeExecutionResponse (Prelude.Maybe Prelude.Text)+describeExecutionResponse_traceHeader = Lens.lens (\DescribeExecutionResponse' {traceHeader} -> traceHeader) (\s@DescribeExecutionResponse' {} a -> s {traceHeader = a} :: DescribeExecutionResponse)++-- | The response's http status code.+describeExecutionResponse_httpStatus :: Lens.Lens' DescribeExecutionResponse Prelude.Int+describeExecutionResponse_httpStatus = Lens.lens (\DescribeExecutionResponse' {httpStatus} -> httpStatus) (\s@DescribeExecutionResponse' {} a -> s {httpStatus = a} :: DescribeExecutionResponse)++-- | The Amazon Resource Name (ARN) that identifies the execution.+describeExecutionResponse_executionArn :: Lens.Lens' DescribeExecutionResponse Prelude.Text+describeExecutionResponse_executionArn = Lens.lens (\DescribeExecutionResponse' {executionArn} -> executionArn) (\s@DescribeExecutionResponse' {} a -> s {executionArn = a} :: DescribeExecutionResponse)++-- | The Amazon Resource Name (ARN) of the executed stated machine.+describeExecutionResponse_stateMachineArn :: Lens.Lens' DescribeExecutionResponse Prelude.Text+describeExecutionResponse_stateMachineArn = Lens.lens (\DescribeExecutionResponse' {stateMachineArn} -> stateMachineArn) (\s@DescribeExecutionResponse' {} a -> s {stateMachineArn = a} :: DescribeExecutionResponse)++-- | The current status of the execution.+describeExecutionResponse_status :: Lens.Lens' DescribeExecutionResponse ExecutionStatus+describeExecutionResponse_status = Lens.lens (\DescribeExecutionResponse' {status} -> status) (\s@DescribeExecutionResponse' {} a -> s {status = a} :: DescribeExecutionResponse)++-- | The date the execution is started.+describeExecutionResponse_startDate :: Lens.Lens' DescribeExecutionResponse Prelude.UTCTime+describeExecutionResponse_startDate = Lens.lens (\DescribeExecutionResponse' {startDate} -> startDate) (\s@DescribeExecutionResponse' {} a -> s {startDate = a} :: DescribeExecutionResponse) Prelude.. Data._Time++instance Prelude.NFData DescribeExecutionResponse where+  rnf DescribeExecutionResponse' {..} =+    Prelude.rnf cause+      `Prelude.seq` Prelude.rnf error+      `Prelude.seq` Prelude.rnf input+      `Prelude.seq` Prelude.rnf inputDetails+      `Prelude.seq` Prelude.rnf mapRunArn+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf output+      `Prelude.seq` Prelude.rnf outputDetails+      `Prelude.seq` Prelude.rnf stopDate+      `Prelude.seq` Prelude.rnf traceHeader+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf executionArn+      `Prelude.seq` Prelude.rnf stateMachineArn+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf startDate

@@ -0,0 +1,331 @@+{-# 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.StepFunctions.DescribeMapRun+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides information about a Map Run\'s configuration, progress, and+-- results. For more information, see+-- <https://docs.aws.amazon.com/step-functions/latest/dg/concepts-examine-map-run.html Examining Map Run>+-- in the /Step Functions Developer Guide/.+module Amazonka.StepFunctions.DescribeMapRun+  ( -- * Creating a Request+    DescribeMapRun (..),+    newDescribeMapRun,++    -- * Request Lenses+    describeMapRun_mapRunArn,++    -- * Destructuring the Response+    DescribeMapRunResponse (..),+    newDescribeMapRunResponse,++    -- * Response Lenses+    describeMapRunResponse_stopDate,+    describeMapRunResponse_httpStatus,+    describeMapRunResponse_mapRunArn,+    describeMapRunResponse_executionArn,+    describeMapRunResponse_status,+    describeMapRunResponse_startDate,+    describeMapRunResponse_maxConcurrency,+    describeMapRunResponse_toleratedFailurePercentage,+    describeMapRunResponse_toleratedFailureCount,+    describeMapRunResponse_itemCounts,+    describeMapRunResponse_executionCounts,+  )+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.StepFunctions.Types++-- | /See:/ 'newDescribeMapRun' smart constructor.+data DescribeMapRun = DescribeMapRun'+  { -- | The Amazon Resource Name (ARN) that identifies a Map Run.+    mapRunArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeMapRun' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'mapRunArn', 'describeMapRun_mapRunArn' - The Amazon Resource Name (ARN) that identifies a Map Run.+newDescribeMapRun ::+  -- | 'mapRunArn'+  Prelude.Text ->+  DescribeMapRun+newDescribeMapRun pMapRunArn_ =+  DescribeMapRun' {mapRunArn = pMapRunArn_}++-- | The Amazon Resource Name (ARN) that identifies a Map Run.+describeMapRun_mapRunArn :: Lens.Lens' DescribeMapRun Prelude.Text+describeMapRun_mapRunArn = Lens.lens (\DescribeMapRun' {mapRunArn} -> mapRunArn) (\s@DescribeMapRun' {} a -> s {mapRunArn = a} :: DescribeMapRun)++instance Core.AWSRequest DescribeMapRun where+  type+    AWSResponse DescribeMapRun =+      DescribeMapRunResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeMapRunResponse'+            Prelude.<$> (x Data..?> "stopDate")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "mapRunArn")+            Prelude.<*> (x Data..:> "executionArn")+            Prelude.<*> (x Data..:> "status")+            Prelude.<*> (x Data..:> "startDate")+            Prelude.<*> (x Data..:> "maxConcurrency")+            Prelude.<*> (x Data..:> "toleratedFailurePercentage")+            Prelude.<*> (x Data..:> "toleratedFailureCount")+            Prelude.<*> (x Data..:> "itemCounts")+            Prelude.<*> (x Data..:> "executionCounts")+      )++instance Prelude.Hashable DescribeMapRun where+  hashWithSalt _salt DescribeMapRun' {..} =+    _salt `Prelude.hashWithSalt` mapRunArn++instance Prelude.NFData DescribeMapRun where+  rnf DescribeMapRun' {..} = Prelude.rnf mapRunArn++instance Data.ToHeaders DescribeMapRun where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSStepFunctions.DescribeMapRun" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeMapRun where+  toJSON DescribeMapRun' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("mapRunArn" Data..= mapRunArn)]+      )++instance Data.ToPath DescribeMapRun where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeMapRun where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeMapRunResponse' smart constructor.+data DescribeMapRunResponse = DescribeMapRunResponse'+  { -- | The date when the Map Run was stopped.+    stopDate :: Prelude.Maybe Data.POSIX,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The Amazon Resource Name (ARN) that identifies a Map Run.+    mapRunArn :: Prelude.Text,+    -- | The Amazon Resource Name (ARN) that identifies the execution in which+    -- the Map Run was started.+    executionArn :: Prelude.Text,+    -- | The current status of the Map Run.+    status :: MapRunStatus,+    -- | The date when the Map Run was started.+    startDate :: Data.POSIX,+    -- | The maximum number of child workflow executions configured to run in+    -- parallel for the Map Run at the same time.+    maxConcurrency :: Prelude.Natural,+    -- | The maximum percentage of failed child workflow executions before the+    -- Map Run fails.+    toleratedFailurePercentage :: Prelude.Double,+    -- | The maximum number of failed child workflow executions before the Map+    -- Run fails.+    toleratedFailureCount :: Prelude.Natural,+    -- | A JSON object that contains information about the total number of items,+    -- and the item count for each processing status, such as @pending@ and+    -- @failed@.+    itemCounts :: MapRunItemCounts,+    -- | A JSON object that contains information about the total number of child+    -- workflow executions for the Map Run, and the count of child workflow+    -- executions for each status, such as @failed@ and @succeeded@.+    executionCounts :: MapRunExecutionCounts+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeMapRunResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'stopDate', 'describeMapRunResponse_stopDate' - The date when the Map Run was stopped.+--+-- 'httpStatus', 'describeMapRunResponse_httpStatus' - The response's http status code.+--+-- 'mapRunArn', 'describeMapRunResponse_mapRunArn' - The Amazon Resource Name (ARN) that identifies a Map Run.+--+-- 'executionArn', 'describeMapRunResponse_executionArn' - The Amazon Resource Name (ARN) that identifies the execution in which+-- the Map Run was started.+--+-- 'status', 'describeMapRunResponse_status' - The current status of the Map Run.+--+-- 'startDate', 'describeMapRunResponse_startDate' - The date when the Map Run was started.+--+-- 'maxConcurrency', 'describeMapRunResponse_maxConcurrency' - The maximum number of child workflow executions configured to run in+-- parallel for the Map Run at the same time.+--+-- 'toleratedFailurePercentage', 'describeMapRunResponse_toleratedFailurePercentage' - The maximum percentage of failed child workflow executions before the+-- Map Run fails.+--+-- 'toleratedFailureCount', 'describeMapRunResponse_toleratedFailureCount' - The maximum number of failed child workflow executions before the Map+-- Run fails.+--+-- 'itemCounts', 'describeMapRunResponse_itemCounts' - A JSON object that contains information about the total number of items,+-- and the item count for each processing status, such as @pending@ and+-- @failed@.+--+-- 'executionCounts', 'describeMapRunResponse_executionCounts' - A JSON object that contains information about the total number of child+-- workflow executions for the Map Run, and the count of child workflow+-- executions for each status, such as @failed@ and @succeeded@.+newDescribeMapRunResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'mapRunArn'+  Prelude.Text ->+  -- | 'executionArn'+  Prelude.Text ->+  -- | 'status'+  MapRunStatus ->+  -- | 'startDate'+  Prelude.UTCTime ->+  -- | 'maxConcurrency'+  Prelude.Natural ->+  -- | 'toleratedFailurePercentage'+  Prelude.Double ->+  -- | 'toleratedFailureCount'+  Prelude.Natural ->+  -- | 'itemCounts'+  MapRunItemCounts ->+  -- | 'executionCounts'+  MapRunExecutionCounts ->+  DescribeMapRunResponse+newDescribeMapRunResponse+  pHttpStatus_+  pMapRunArn_+  pExecutionArn_+  pStatus_+  pStartDate_+  pMaxConcurrency_+  pToleratedFailurePercentage_+  pToleratedFailureCount_+  pItemCounts_+  pExecutionCounts_ =+    DescribeMapRunResponse'+      { stopDate = Prelude.Nothing,+        httpStatus = pHttpStatus_,+        mapRunArn = pMapRunArn_,+        executionArn = pExecutionArn_,+        status = pStatus_,+        startDate = Data._Time Lens.# pStartDate_,+        maxConcurrency = pMaxConcurrency_,+        toleratedFailurePercentage =+          pToleratedFailurePercentage_,+        toleratedFailureCount = pToleratedFailureCount_,+        itemCounts = pItemCounts_,+        executionCounts = pExecutionCounts_+      }++-- | The date when the Map Run was stopped.+describeMapRunResponse_stopDate :: Lens.Lens' DescribeMapRunResponse (Prelude.Maybe Prelude.UTCTime)+describeMapRunResponse_stopDate = Lens.lens (\DescribeMapRunResponse' {stopDate} -> stopDate) (\s@DescribeMapRunResponse' {} a -> s {stopDate = a} :: DescribeMapRunResponse) Prelude.. Lens.mapping Data._Time++-- | The response's http status code.+describeMapRunResponse_httpStatus :: Lens.Lens' DescribeMapRunResponse Prelude.Int+describeMapRunResponse_httpStatus = Lens.lens (\DescribeMapRunResponse' {httpStatus} -> httpStatus) (\s@DescribeMapRunResponse' {} a -> s {httpStatus = a} :: DescribeMapRunResponse)++-- | The Amazon Resource Name (ARN) that identifies a Map Run.+describeMapRunResponse_mapRunArn :: Lens.Lens' DescribeMapRunResponse Prelude.Text+describeMapRunResponse_mapRunArn = Lens.lens (\DescribeMapRunResponse' {mapRunArn} -> mapRunArn) (\s@DescribeMapRunResponse' {} a -> s {mapRunArn = a} :: DescribeMapRunResponse)++-- | The Amazon Resource Name (ARN) that identifies the execution in which+-- the Map Run was started.+describeMapRunResponse_executionArn :: Lens.Lens' DescribeMapRunResponse Prelude.Text+describeMapRunResponse_executionArn = Lens.lens (\DescribeMapRunResponse' {executionArn} -> executionArn) (\s@DescribeMapRunResponse' {} a -> s {executionArn = a} :: DescribeMapRunResponse)++-- | The current status of the Map Run.+describeMapRunResponse_status :: Lens.Lens' DescribeMapRunResponse MapRunStatus+describeMapRunResponse_status = Lens.lens (\DescribeMapRunResponse' {status} -> status) (\s@DescribeMapRunResponse' {} a -> s {status = a} :: DescribeMapRunResponse)++-- | The date when the Map Run was started.+describeMapRunResponse_startDate :: Lens.Lens' DescribeMapRunResponse Prelude.UTCTime+describeMapRunResponse_startDate = Lens.lens (\DescribeMapRunResponse' {startDate} -> startDate) (\s@DescribeMapRunResponse' {} a -> s {startDate = a} :: DescribeMapRunResponse) Prelude.. Data._Time++-- | The maximum number of child workflow executions configured to run in+-- parallel for the Map Run at the same time.+describeMapRunResponse_maxConcurrency :: Lens.Lens' DescribeMapRunResponse Prelude.Natural+describeMapRunResponse_maxConcurrency = Lens.lens (\DescribeMapRunResponse' {maxConcurrency} -> maxConcurrency) (\s@DescribeMapRunResponse' {} a -> s {maxConcurrency = a} :: DescribeMapRunResponse)++-- | The maximum percentage of failed child workflow executions before the+-- Map Run fails.+describeMapRunResponse_toleratedFailurePercentage :: Lens.Lens' DescribeMapRunResponse Prelude.Double+describeMapRunResponse_toleratedFailurePercentage = Lens.lens (\DescribeMapRunResponse' {toleratedFailurePercentage} -> toleratedFailurePercentage) (\s@DescribeMapRunResponse' {} a -> s {toleratedFailurePercentage = a} :: DescribeMapRunResponse)++-- | The maximum number of failed child workflow executions before the Map+-- Run fails.+describeMapRunResponse_toleratedFailureCount :: Lens.Lens' DescribeMapRunResponse Prelude.Natural+describeMapRunResponse_toleratedFailureCount = Lens.lens (\DescribeMapRunResponse' {toleratedFailureCount} -> toleratedFailureCount) (\s@DescribeMapRunResponse' {} a -> s {toleratedFailureCount = a} :: DescribeMapRunResponse)++-- | A JSON object that contains information about the total number of items,+-- and the item count for each processing status, such as @pending@ and+-- @failed@.+describeMapRunResponse_itemCounts :: Lens.Lens' DescribeMapRunResponse MapRunItemCounts+describeMapRunResponse_itemCounts = Lens.lens (\DescribeMapRunResponse' {itemCounts} -> itemCounts) (\s@DescribeMapRunResponse' {} a -> s {itemCounts = a} :: DescribeMapRunResponse)++-- | A JSON object that contains information about the total number of child+-- workflow executions for the Map Run, and the count of child workflow+-- executions for each status, such as @failed@ and @succeeded@.+describeMapRunResponse_executionCounts :: Lens.Lens' DescribeMapRunResponse MapRunExecutionCounts+describeMapRunResponse_executionCounts = Lens.lens (\DescribeMapRunResponse' {executionCounts} -> executionCounts) (\s@DescribeMapRunResponse' {} a -> s {executionCounts = a} :: DescribeMapRunResponse)++instance Prelude.NFData DescribeMapRunResponse where+  rnf DescribeMapRunResponse' {..} =+    Prelude.rnf stopDate+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf mapRunArn+      `Prelude.seq` Prelude.rnf executionArn+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf startDate+      `Prelude.seq` Prelude.rnf maxConcurrency+      `Prelude.seq` Prelude.rnf toleratedFailurePercentage+      `Prelude.seq` Prelude.rnf toleratedFailureCount+      `Prelude.seq` Prelude.rnf itemCounts+      `Prelude.seq` Prelude.rnf executionCounts

@@ -0,0 +1,375 @@+{-# 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.StepFunctions.DescribeStateMachine+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides information about a state machine\'s definition, its IAM role+-- Amazon Resource Name (ARN), and configuration. If the state machine ARN+-- is a qualified state machine ARN, the response returned includes the+-- @Map@ state\'s label.+--+-- A qualified state machine ARN refers to a /Distributed Map state/+-- defined within a state machine. For example, the qualified state machine+-- ARN+-- @arn:partition:states:region:account-id:stateMachine:stateMachineName\/mapStateLabel@+-- refers to a /Distributed Map state/ with a label @mapStateLabel@ in the+-- state machine named @stateMachineName@.+--+-- This operation is eventually consistent. The results are best effort and+-- may not reflect very recent updates and changes.+module Amazonka.StepFunctions.DescribeStateMachine+  ( -- * Creating a Request+    DescribeStateMachine (..),+    newDescribeStateMachine,++    -- * Request Lenses+    describeStateMachine_stateMachineArn,++    -- * Destructuring the Response+    DescribeStateMachineResponse (..),+    newDescribeStateMachineResponse,++    -- * Response Lenses+    describeStateMachineResponse_label,+    describeStateMachineResponse_loggingConfiguration,+    describeStateMachineResponse_status,+    describeStateMachineResponse_tracingConfiguration,+    describeStateMachineResponse_httpStatus,+    describeStateMachineResponse_stateMachineArn,+    describeStateMachineResponse_name,+    describeStateMachineResponse_definition,+    describeStateMachineResponse_roleArn,+    describeStateMachineResponse_type,+    describeStateMachineResponse_creationDate,+  )+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.StepFunctions.Types++-- | /See:/ 'newDescribeStateMachine' smart constructor.+data DescribeStateMachine = DescribeStateMachine'+  { -- | The Amazon Resource Name (ARN) of the state machine to describe.+    stateMachineArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeStateMachine' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'stateMachineArn', 'describeStateMachine_stateMachineArn' - The Amazon Resource Name (ARN) of the state machine to describe.+newDescribeStateMachine ::+  -- | 'stateMachineArn'+  Prelude.Text ->+  DescribeStateMachine+newDescribeStateMachine pStateMachineArn_ =+  DescribeStateMachine'+    { stateMachineArn =+        pStateMachineArn_+    }++-- | The Amazon Resource Name (ARN) of the state machine to describe.+describeStateMachine_stateMachineArn :: Lens.Lens' DescribeStateMachine Prelude.Text+describeStateMachine_stateMachineArn = Lens.lens (\DescribeStateMachine' {stateMachineArn} -> stateMachineArn) (\s@DescribeStateMachine' {} a -> s {stateMachineArn = a} :: DescribeStateMachine)++instance Core.AWSRequest DescribeStateMachine where+  type+    AWSResponse DescribeStateMachine =+      DescribeStateMachineResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeStateMachineResponse'+            Prelude.<$> (x Data..?> "label")+            Prelude.<*> (x Data..?> "loggingConfiguration")+            Prelude.<*> (x Data..?> "status")+            Prelude.<*> (x Data..?> "tracingConfiguration")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "stateMachineArn")+            Prelude.<*> (x Data..:> "name")+            Prelude.<*> (x Data..:> "definition")+            Prelude.<*> (x Data..:> "roleArn")+            Prelude.<*> (x Data..:> "type")+            Prelude.<*> (x Data..:> "creationDate")+      )++instance Prelude.Hashable DescribeStateMachine where+  hashWithSalt _salt DescribeStateMachine' {..} =+    _salt `Prelude.hashWithSalt` stateMachineArn++instance Prelude.NFData DescribeStateMachine where+  rnf DescribeStateMachine' {..} =+    Prelude.rnf stateMachineArn++instance Data.ToHeaders DescribeStateMachine where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSStepFunctions.DescribeStateMachine" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.0" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeStateMachine where+  toJSON DescribeStateMachine' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("stateMachineArn" Data..= stateMachineArn)+          ]+      )++instance Data.ToPath DescribeStateMachine where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeStateMachine where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeStateMachineResponse' smart constructor.+data DescribeStateMachineResponse = DescribeStateMachineResponse'+  { -- | A user-defined or an auto-generated string that identifies a @Map@+    -- state. This parameter is present only if the @stateMachineArn@ specified+    -- in input is a qualified state machine ARN.+    label :: Prelude.Maybe Prelude.Text,+    loggingConfiguration :: Prelude.Maybe LoggingConfiguration,+    -- | The current status of the state machine.+    status :: Prelude.Maybe StateMachineStatus,+    -- | Selects whether X-Ray tracing is enabled.+    tracingConfiguration :: Prelude.Maybe TracingConfiguration,+    -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The Amazon Resource Name (ARN) that identifies the state machine.+    stateMachineArn :: Prelude.Text,+    -- | The name of the state machine.+    --+    -- A name must /not/ contain:+    --+    -- -   white space+    --+    -- -   brackets @\< > { } [ ]@+    --+    -- -   wildcard characters @? *@+    --+    -- -   special characters @\" # % \\ ^ | ~ \` $ & , ; : \/@+    --+    -- -   control characters (@U+0000-001F@, @U+007F-009F@)+    --+    -- To enable logging with CloudWatch Logs, the name should only contain+    -- 0-9, A-Z, a-z, - and _.+    name :: Prelude.Text,+    -- | The Amazon States Language definition of the state machine. See+    -- <https://docs.aws.amazon.com/step-functions/latest/dg/concepts-amazon-states-language.html Amazon States Language>.+    definition :: Data.Sensitive Prelude.Text,+    -- | The Amazon Resource Name (ARN) of the IAM role used when creating this+    -- state machine. (The IAM role maintains security by granting Step+    -- Functions access to Amazon Web Services resources.)+    roleArn :: Prelude.Text,+    -- | The @type@ of the state machine (@STANDARD@ or @EXPRESS@).+    type' :: StateMachineType,+    -- | The date the state machine is created.+    creationDate :: Data.POSIX+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeStateMachineResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'label', 'describeStateMachineResponse_label' - A user-defined or an auto-generated string that identifies a @Map@+-- state. This parameter is present only if the @stateMachineArn@ specified+-- in input is a qualified state machine ARN.+--+-- 'loggingConfiguration', 'describeStateMachineResponse_loggingConfiguration' - Undocumented member.+--+-- 'status', 'describeStateMachineResponse_status' - The current status of the state machine.+--+-- 'tracingConfiguration', 'describeStateMachineResponse_tracingConfiguration' - Selects whether X-Ray tracing is enabled.+--+-- 'httpStatus', 'describeStateMachineResponse_httpStatus' - The response's http status code.+--+-- 'stateMachineArn', 'describeStateMachineResponse_stateMachineArn' - The Amazon Resource Name (ARN) that identifies the state machine.+--+-- 'name', 'describeStateMachineResponse_name' - The name of the state machine.+--+-- A name must /not/ contain:+--+-- -   white space+--+-- -   brackets @\< > { } [ ]@+--+-- -   wildcard characters @? *@+--+-- -   special characters @\" # % \\ ^ | ~ \` $ & , ; : \/@+--+-- -   control characters (@U+0000-001F@, @U+007F-009F@)+--+-- To enable logging with CloudWatch Logs, the name should only contain+-- 0-9, A-Z, a-z, - and _.+--+-- 'definition', 'describeStateMachineResponse_definition' - The Amazon States Language definition of the state machine. See+-- <https://docs.aws.amazon.com/step-functions/latest/dg/concepts-amazon-states-language.html Amazon States Language>.+--+-- 'roleArn', 'describeStateMachineResponse_roleArn' - The Amazon Resource Name (ARN) of the IAM role used when creating this+-- state machine. (The IAM role maintains security by granting Step+-- Functions access to Amazon Web Services resources.)+--+-- 'type'', 'describeStateMachineResponse_type' - The @type@ of the state machine (@STANDARD@ or @EXPRESS@).+--+-- 'creationDate', 'describeStateMachineResponse_creationDate' - The date the state machine is created.+newDescribeStateMachineResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'stateMachineArn'+  Prelude.Text ->+  -- | 'name'+  Prelude.Text ->+  -- | 'definition'+  Prelude.Text ->+  -- | 'roleArn'+  Prelude.Text ->+  -- | 'type''+  StateMachineType ->+  -- | 'creationDate'+  Prelude.UTCTime ->+  DescribeStateMachineResponse+newDescribeStateMachineResponse+  pHttpStatus_+  pStateMachineArn_+  pName_+  pDefinition_+  pRoleArn_+  pType_+  pCreationDate_ =+    DescribeStateMachineResponse'+      { label =+          Prelude.Nothing,+        loggingConfiguration = Prelude.Nothing,+        status = Prelude.Nothing,+        tracingConfiguration = Prelude.Nothing,+        httpStatus = pHttpStatus_,+        stateMachineArn = pStateMachineArn_,+        name = pName_,+        definition =+          Data._Sensitive Lens.# pDefinition_,+        roleArn = pRoleArn_,+        type' = pType_,+        creationDate =+          Data._Time Lens.# pCreationDate_+      }++-- | A user-defined or an auto-generated string that identifies a @Map@+-- state. This parameter is present only if the @stateMachineArn@ specified+-- in input is a qualified state machine ARN.+describeStateMachineResponse_label :: Lens.Lens' DescribeStateMachineResponse (Prelude.Maybe Prelude.Text)+describeStateMachineResponse_label = Lens.lens (\DescribeStateMachineResponse' {label} -> label) (\s@DescribeStateMachineResponse' {} a -> s {label = a} :: DescribeStateMachineResponse)++-- | Undocumented member.+describeStateMachineResponse_loggingConfiguration :: Lens.Lens' DescribeStateMachineResponse (Prelude.Maybe LoggingConfiguration)+describeStateMachineResponse_loggingConfiguration = Lens.lens (\DescribeStateMachineResponse' {loggingConfiguration} -> loggingConfiguration) (\s@DescribeStateMachineResponse' {} a -> s {loggingConfiguration = a} :: DescribeStateMachineResponse)++-- | The current status of the state machine.+describeStateMachineResponse_status :: Lens.Lens' DescribeStateMachineResponse (Prelude.Maybe StateMachineStatus)+describeStateMachineResponse_status = Lens.lens (\DescribeStateMachineResponse' {status} -> status) (\s@DescribeStateMachineResponse' {} a -> s {status = a} :: DescribeStateMachineResponse)++-- | Selects whether X-Ray tracing is enabled.+describeStateMachineResponse_tracingConfiguration :: Lens.Lens' DescribeStateMachineResponse (Prelude.Maybe TracingConfiguration)+describeStateMachineResponse_tracingConfiguration = Lens.lens (\DescribeStateMachineResponse' {tracingConfiguration} -> tracingConfiguration) (\s@DescribeStateMachineResponse' {} a -> s {tracingConfiguration = a} :: DescribeStateMachineResponse)++-- | The response's http status code.+describeStateMachineResponse_httpStatus :: Lens.Lens' DescribeStateMachineResponse Prelude.Int+describeStateMachineResponse_httpStatus = Lens.lens (\DescribeStateMachineResponse' {httpStatus} -> httpStatus) (\s@DescribeStateMachineResponse' {} a -> s {httpStatus = a} :: DescribeStateMachineResponse)++-- | The Amazon Resource Name (ARN) that identifies the state machine.+describeStateMachineResponse_stateMachineArn :: Lens.Lens' DescribeStateMachineResponse Prelude.Text+describeStateMachineResponse_stateMachineArn = Lens.lens (\DescribeStateMachineResponse' {stateMachineArn} -> stateMachineArn) (\s@DescribeStateMachineResponse' {} a -> s {stateMachineArn = a} :: DescribeStateMachineResponse)++-- | The name of the state machine.+--+-- A name must /not/ contain:+--+-- -   white space+--+-- -   brackets @\< > { } [ ]@+--+-- -   wildcard characters @? *@+--+-- -   special characters @\" # % \\ ^ | ~ \` $ & , ; : \/@+--+-- -   control characters (@U+0000-001F@, @U+007F-009F@)+--+-- To enable logging with CloudWatch Logs, the name should only contain+-- 0-9, A-Z, a-z, - and _.+describeStateMachineResponse_name :: Lens.Lens' DescribeStateMachineResponse Prelude.Text+describeStateMachineResponse_name = Lens.lens (\DescribeStateMachineResponse' {name} -> name) (\s@DescribeStateMachineResponse' {} a -> s {name = a} :: DescribeStateMachineResponse)++-- | The Amazon States Language definition of the state machine. See+-- <https://docs.aws.amazon.com/step-functions/latest/dg/concepts-amazon-states-language.html Amazon States Language>.+describeStateMachineResponse_definition :: Lens.Lens' DescribeStateMachineResponse Prelude.Text+describeStateMachineResponse_definition = Lens.lens (\DescribeStateMachineResponse' {definition} -> definition) (\s@DescribeStateMachineResponse' {} a -> s {definition = a} :: DescribeStateMachineResponse) Prelude.. Data._Sensitive++-- | The Amazon Resource Name (ARN) of the IAM role used when creating this+-- state machine. (The IAM role maintains security by granting Step+-- Functions access to Amazon Web Services resources.)+describeStateMachineResponse_roleArn :: Lens.Lens' DescribeStateMachineResponse Prelude.Text+describeStateMachineResponse_roleArn = Lens.lens (\DescribeStateMachineResponse' {roleArn} -> roleArn) (\s@DescribeStateMachineResponse' {} a -> s {roleArn = a} :: DescribeStateMachineResponse)++-- | The @type@ of the state machine (@STANDARD@ or @EXPRESS@).+describeStateMachineResponse_type :: Lens.Lens' DescribeStateMachineResponse StateMachineType+describeStateMachineResponse_type = Lens.lens (\DescribeStateMachineResponse' {type'} -> type') (\s@DescribeStateMachineResponse' {} a -> s {type' = a} :: DescribeStateMachineResponse)++-- | The date the state machine is created.+describeStateMachineResponse_creationDate :: Lens.Lens' DescribeStateMachineResponse Prelude.UTCTime+describeStateMachineResponse_creationDate = Lens.lens (\DescribeStateMachineResponse' {creationDate} -> creationDate) (\s@DescribeStateMachineResponse' {} a -> s {creationDate = a} :: DescribeStateMachineResponse) Prelude.. Data._Time++instance Prelude.NFData DescribeStateMachineResponse where+  rnf DescribeStateMachineResponse' {..} =+    Prelude.rnf label+      `Prelude.seq` Prelude.rnf loggingConfiguration+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf tracingConfiguration+      `Prelude.seq` Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf stateMachineArn+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf definition+      `Prelude.seq` Prelude.rnf roleArn+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf creationDate