amazonka-swf 0.3.6 → 1.0.0

raw patch · 42 files changed

+15838/−12443 lines, 42 filesdep +amazonka-swfdep +amazonka-testdep +bytestringdep ~amazonka-coredep ~basePVP ok

version bump matches the API change (PVP)

Dependencies added: amazonka-swf, amazonka-test, bytestring, lens, tasty, tasty-hunit, text, time, unordered-containers

Dependency ranges changed: amazonka-core, base

API changes (from Hackage documentation)

Files

• README.md +32/−11
• amazonka-swf.cabal +62/−15
• gen/Network/AWS/SWF.hs +1075/−88
• gen/Network/AWS/SWF/CountClosedWorkflowExecutions.hs +156/−173
• gen/Network/AWS/SWF/CountOpenWorkflowExecutions.hs +131/−150
• gen/Network/AWS/SWF/CountPendingActivityTasks.hs +89/−115
• gen/Network/AWS/SWF/CountPendingDecisionTasks.hs +89/−115
• gen/Network/AWS/SWF/DeprecateActivityType.hs +107/−87
• gen/Network/AWS/SWF/DeprecateDomain.hs +93/−80
• gen/Network/AWS/SWF/DeprecateWorkflowType.hs +107/−87
• gen/Network/AWS/SWF/DescribeActivityType.hs +146/−117
• gen/Network/AWS/SWF/DescribeDomain.hs +119/−96
• gen/Network/AWS/SWF/DescribeWorkflowExecution.hs +164/−146
• gen/Network/AWS/SWF/DescribeWorkflowType.hs +142/−113
• gen/Network/AWS/SWF/GetWorkflowExecutionHistory.hs +187/−156
• gen/Network/AWS/SWF/ListActivityTypes.hs +191/−165
• gen/Network/AWS/SWF/ListClosedWorkflowExecutions.hs +203/−226
• gen/Network/AWS/SWF/ListDomains.hs +175/−147
• gen/Network/AWS/SWF/ListOpenWorkflowExecutions.hs +175/−196
• gen/Network/AWS/SWF/ListWorkflowTypes.hs +189/−163
• gen/Network/AWS/SWF/PollForActivityTask.hs +194/−170
• gen/Network/AWS/SWF/PollForDecisionTask.hs +275/−239
• gen/Network/AWS/SWF/RecordActivityTaskHeartbeat.hs +147/−114
• gen/Network/AWS/SWF/RegisterActivityType.hs +194/−173
• gen/Network/AWS/SWF/RegisterDomain.hs +110/−98
• gen/Network/AWS/SWF/RegisterWorkflowType.hs +207/−166
• gen/Network/AWS/SWF/RequestCancelWorkflowExecution.hs +115/−94
• gen/Network/AWS/SWF/RespondActivityTaskCanceled.hs +113/−91
• gen/Network/AWS/SWF/RespondActivityTaskCompleted.hs +112/−88
• gen/Network/AWS/SWF/RespondActivityTaskFailed.hs +112/−92
• gen/Network/AWS/SWF/RespondDecisionTaskCompleted.hs +104/−88
• gen/Network/AWS/SWF/SignalWorkflowExecution.hs +128/−109
• gen/Network/AWS/SWF/StartWorkflowExecution.hs +280/−229
• gen/Network/AWS/SWF/TerminateWorkflowExecution.hs +152/−126
• gen/Network/AWS/SWF/Types.hs +960/−8120
• gen/Network/AWS/SWF/Types/Product.hs +7342/−0
• gen/Network/AWS/SWF/Types/Sum.hs +967/−0
• gen/Network/AWS/SWF/Waiters.hs +20/−0
• test/Main.hs +21/−0
• test/Test/AWS/Gen/SWF.hs +566/−0
• test/Test/AWS/SWF.hs +71/−0
• test/Test/AWS/SWF/Internal.hs +16/−0

@@ -1,26 +1,47 @@ # Amazon Simple Workflow Service SDK -> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!-+* [Version](#version) * [Description](#description) * [Contribute](#contribute) * [Licence](#licence) ++## Version++`1.0.0`++ ## Description -Amazon Simple Workflow Service (Amazon SWF) makes it easy to build-applications that coordinate work across distributed components. In Amazon-SWF, a task represents a logical unit of work that is performed by a-component of your application. Coordinating tasks across the application-involves managing intertask dependencies, scheduling, and concurrency in-accordance with the logical flow of the application. Amazon SWF gives you-full control over implementing tasks and coordinating them without worrying-about underlying complexities such as tracking their progress and maintaining-their state.+Amazon Simple Workflow Service +The Amazon Simple Workflow Service (Amazon SWF) makes it easy to build+applications that use Amazon\'s cloud to coordinate work across+distributed components. In Amazon SWF, a /task/ represents a logical+unit of work that is performed by a component of your workflow.+Coordinating tasks in a workflow involves managing intertask+dependencies, scheduling, and concurrency in accordance with the logical+flow of the application.++Amazon SWF gives you full control over implementing tasks and+coordinating them without worrying about underlying complexities such as+tracking their progress and maintaining their state.++This documentation serves as reference only. For a broader overview of+the Amazon SWF programming model, see the+<http://docs.aws.amazon.com/amazonswf/latest/developerguide/ Amazon SWF Developer Guide>.+ Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-swf) and the [AWS API Reference](http://docs.aws.amazon.com/amazonswf/latest/apireference/Welcome.html). +The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),+which provides mechanisms for specifying AuthN/AuthZ information and sending requests.++Use of lenses is required for constructing and manipulating types.+This is due to the amount 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+[lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).  ## Contribute 

@@ -1,33 +1,49 @@ name:                  amazonka-swf-version:               0.3.6+version:               1.0.0 synopsis:              Amazon Simple Workflow Service SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2014 Brendan Hay+copyright:             Copyright (c) 2013-2015 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple extra-source-files:    README.md cabal-version:         >= 1.10  description:-    Amazon Simple Workflow Service (Amazon SWF) makes it easy to build-    applications that coordinate work across distributed components. In Amazon-    SWF, a task represents a logical unit of work that is performed by a-    component of your application. Coordinating tasks across the application-    involves managing intertask dependencies, scheduling, and concurrency in-    accordance with the logical flow of the application. Amazon SWF gives you-    full control over implementing tasks and coordinating them without worrying-    about underlying complexities such as tracking their progress and maintaining-    their state.+    Amazon Simple Workflow Service +    The Amazon Simple Workflow Service (Amazon SWF) makes it easy to build+    applications that use Amazon\'s cloud to coordinate work across+    distributed components. In Amazon SWF, a /task/ represents a logical+    unit of work that is performed by a component of your workflow.+    Coordinating tasks in a workflow involves managing intertask+    dependencies, scheduling, and concurrency in accordance with the logical+    flow of the application.++    Amazon SWF gives you full control over implementing tasks and+    coordinating them without worrying about underlying complexities such as+    tracking their progress and maintaining their state.++    This documentation serves as reference only. For a broader overview of+    the Amazon SWF programming model, see the+    <http://docs.aws.amazon.com/amazonswf/latest/developerguide/ Amazon SWF Developer Guide>.     .-    /See:/ <http://docs.aws.amazon.com/amazonswf/latest/apireference/Welcome.html AWS API Reference>+    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 and sending requests.     .-    /Warning:/ This is an experimental preview release which is still under-    heavy development and not intended for public consumption, caveat emptor!+    Use of lenses is required for constructing and manipulating types.+    This is due to the amount 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.SWF" and the <http://docs.aws.amazon.com/amazonswf/latest/apireference/Welcome.html AWS API Reference>+    to get started.  source-repository head     type:     git@@ -73,9 +89,40 @@         , Network.AWS.SWF.StartWorkflowExecution         , Network.AWS.SWF.TerminateWorkflowExecution         , Network.AWS.SWF.Types+        , Network.AWS.SWF.Waiters      other-modules:+          Network.AWS.SWF.Types.Product+        , Network.AWS.SWF.Types.Sum      build-depends:-          amazonka-core == 0.3.6.*+          amazonka-core == 1.0.0.*         , base          >= 4.7     && < 5++test-suite amazonka-swf-test+    type:              exitcode-stdio-1.0+    default-language:  Haskell2010+    hs-source-dirs:    test+    main-is:           Main.hs++    ghc-options:       -Wall -threaded++    -- This is not comprehensive if modules have manually been added.+    -- It exists to ensure cabal 'somewhat' detects test module changes.+    other-modules:+          Test.AWS.SWF+        , Test.AWS.Gen.SWF+        , Test.AWS.SWF.Internal++    build-depends:+          amazonka-core == 1.0.0+        , amazonka-test == 1.0.0+        , amazonka-swf == 1.0.0+        , base+        , bytestring+        , lens+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers

@@ -1,88 +1,1075 @@--- Module      : Network.AWS.SWF--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental--- Portability : non-portable (GHC extensions)------ Derived from AWS service descriptions, licensed under Apache 2.0.---- | Amazon Simple Workflow Service (Amazon SWF) makes it easy to build--- applications that coordinate work across distributed components. In Amazon--- SWF, a task represents a logical unit of work that is performed by a--- component of your application. Coordinating tasks across the application--- involves managing intertask dependencies, scheduling, and concurrency in--- accordance with the logical flow of the application. Amazon SWF gives you--- full control over implementing tasks and coordinating them without worrying--- about underlying complexities such as tracking their progress and maintaining--- their state.-module Network.AWS.SWF-    ( module Network.AWS.SWF.CountClosedWorkflowExecutions-    , module Network.AWS.SWF.CountOpenWorkflowExecutions-    , module Network.AWS.SWF.CountPendingActivityTasks-    , module Network.AWS.SWF.CountPendingDecisionTasks-    , module Network.AWS.SWF.DeprecateActivityType-    , module Network.AWS.SWF.DeprecateDomain-    , module Network.AWS.SWF.DeprecateWorkflowType-    , module Network.AWS.SWF.DescribeActivityType-    , module Network.AWS.SWF.DescribeDomain-    , module Network.AWS.SWF.DescribeWorkflowExecution-    , module Network.AWS.SWF.DescribeWorkflowType-    , module Network.AWS.SWF.GetWorkflowExecutionHistory-    , module Network.AWS.SWF.ListActivityTypes-    , module Network.AWS.SWF.ListClosedWorkflowExecutions-    , module Network.AWS.SWF.ListDomains-    , module Network.AWS.SWF.ListOpenWorkflowExecutions-    , module Network.AWS.SWF.ListWorkflowTypes-    , module Network.AWS.SWF.PollForActivityTask-    , module Network.AWS.SWF.PollForDecisionTask-    , module Network.AWS.SWF.RecordActivityTaskHeartbeat-    , module Network.AWS.SWF.RegisterActivityType-    , module Network.AWS.SWF.RegisterDomain-    , module Network.AWS.SWF.RegisterWorkflowType-    , module Network.AWS.SWF.RequestCancelWorkflowExecution-    , module Network.AWS.SWF.RespondActivityTaskCanceled-    , module Network.AWS.SWF.RespondActivityTaskCompleted-    , module Network.AWS.SWF.RespondActivityTaskFailed-    , module Network.AWS.SWF.RespondDecisionTaskCompleted-    , module Network.AWS.SWF.SignalWorkflowExecution-    , module Network.AWS.SWF.StartWorkflowExecution-    , module Network.AWS.SWF.TerminateWorkflowExecution-    , module Network.AWS.SWF.Types-    ) where--import Network.AWS.SWF.CountClosedWorkflowExecutions-import Network.AWS.SWF.CountOpenWorkflowExecutions-import Network.AWS.SWF.CountPendingActivityTasks-import Network.AWS.SWF.CountPendingDecisionTasks-import Network.AWS.SWF.DeprecateActivityType-import Network.AWS.SWF.DeprecateDomain-import Network.AWS.SWF.DeprecateWorkflowType-import Network.AWS.SWF.DescribeActivityType-import Network.AWS.SWF.DescribeDomain-import Network.AWS.SWF.DescribeWorkflowExecution-import Network.AWS.SWF.DescribeWorkflowType-import Network.AWS.SWF.GetWorkflowExecutionHistory-import Network.AWS.SWF.ListActivityTypes-import Network.AWS.SWF.ListClosedWorkflowExecutions-import Network.AWS.SWF.ListDomains-import Network.AWS.SWF.ListOpenWorkflowExecutions-import Network.AWS.SWF.ListWorkflowTypes-import Network.AWS.SWF.PollForActivityTask-import Network.AWS.SWF.PollForDecisionTask-import Network.AWS.SWF.RecordActivityTaskHeartbeat-import Network.AWS.SWF.RegisterActivityType-import Network.AWS.SWF.RegisterDomain-import Network.AWS.SWF.RegisterWorkflowType-import Network.AWS.SWF.RequestCancelWorkflowExecution-import Network.AWS.SWF.RespondActivityTaskCanceled-import Network.AWS.SWF.RespondActivityTaskCompleted-import Network.AWS.SWF.RespondActivityTaskFailed-import Network.AWS.SWF.RespondDecisionTaskCompleted-import Network.AWS.SWF.SignalWorkflowExecution-import Network.AWS.SWF.StartWorkflowExecution-import Network.AWS.SWF.TerminateWorkflowExecution-import Network.AWS.SWF.Types+{-# OPTIONS_GHC -fno-warn-unused-imports    #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.SWF+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Amazon Simple Workflow Service+--+-- The Amazon Simple Workflow Service (Amazon SWF) makes it easy to build+-- applications that use Amazon\'s cloud to coordinate work across+-- distributed components. In Amazon SWF, a /task/ represents a logical+-- unit of work that is performed by a component of your workflow.+-- Coordinating tasks in a workflow involves managing intertask+-- dependencies, scheduling, and concurrency in accordance with the logical+-- flow of the application.+--+-- Amazon SWF gives you full control over implementing tasks and+-- coordinating them without worrying about underlying complexities such as+-- tracking their progress and maintaining their state.+--+-- This documentation serves as reference only. For a broader overview of+-- the Amazon SWF programming model, see the+-- <http://docs.aws.amazon.com/amazonswf/latest/developerguide/ Amazon SWF Developer Guide>.+--+-- /See:/ <http://docs.aws.amazon.com/amazonswf/latest/apireference/Welcome.html AWS API Reference>+module Network.AWS.SWF+    (+    -- * Service+      SWF++    -- * Errors+    -- $errors++    -- ** LimitExceededFault+    , _LimitExceededFault++    -- ** WorkflowExecutionAlreadyStartedFault+    , _WorkflowExecutionAlreadyStartedFault++    -- ** DomainAlreadyExistsFault+    , _DomainAlreadyExistsFault++    -- ** UnknownResourceFault+    , _UnknownResourceFault++    -- ** OperationNotPermittedFault+    , _OperationNotPermittedFault++    -- ** DefaultUndefinedFault+    , _DefaultUndefinedFault++    -- ** TypeDeprecatedFault+    , _TypeDeprecatedFault++    -- ** TypeAlreadyExistsFault+    , _TypeAlreadyExistsFault++    -- ** DomainDeprecatedFault+    , _DomainDeprecatedFault++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** ListActivityTypes (Paginated)+    , module Network.AWS.SWF.ListActivityTypes++    -- ** ListOpenWorkflowExecutions (Paginated)+    , module Network.AWS.SWF.ListOpenWorkflowExecutions++    -- ** RegisterActivityType+    , module Network.AWS.SWF.RegisterActivityType++    -- ** CountPendingActivityTasks+    , module Network.AWS.SWF.CountPendingActivityTasks++    -- ** RegisterWorkflowType+    , module Network.AWS.SWF.RegisterWorkflowType++    -- ** RespondActivityTaskFailed+    , module Network.AWS.SWF.RespondActivityTaskFailed++    -- ** ListWorkflowTypes (Paginated)+    , module Network.AWS.SWF.ListWorkflowTypes++    -- ** CountOpenWorkflowExecutions+    , module Network.AWS.SWF.CountOpenWorkflowExecutions++    -- ** DescribeWorkflowType+    , module Network.AWS.SWF.DescribeWorkflowType++    -- ** RequestCancelWorkflowExecution+    , module Network.AWS.SWF.RequestCancelWorkflowExecution++    -- ** DeprecateWorkflowType+    , module Network.AWS.SWF.DeprecateWorkflowType++    -- ** RespondDecisionTaskCompleted+    , module Network.AWS.SWF.RespondDecisionTaskCompleted++    -- ** RegisterDomain+    , module Network.AWS.SWF.RegisterDomain++    -- ** DescribeWorkflowExecution+    , module Network.AWS.SWF.DescribeWorkflowExecution++    -- ** PollForActivityTask+    , module Network.AWS.SWF.PollForActivityTask++    -- ** RespondActivityTaskCompleted+    , module Network.AWS.SWF.RespondActivityTaskCompleted++    -- ** SignalWorkflowExecution+    , module Network.AWS.SWF.SignalWorkflowExecution++    -- ** CountPendingDecisionTasks+    , module Network.AWS.SWF.CountPendingDecisionTasks++    -- ** ListClosedWorkflowExecutions (Paginated)+    , module Network.AWS.SWF.ListClosedWorkflowExecutions++    -- ** RecordActivityTaskHeartbeat+    , module Network.AWS.SWF.RecordActivityTaskHeartbeat++    -- ** DescribeDomain+    , module Network.AWS.SWF.DescribeDomain++    -- ** DeprecateDomain+    , module Network.AWS.SWF.DeprecateDomain++    -- ** GetWorkflowExecutionHistory (Paginated)+    , module Network.AWS.SWF.GetWorkflowExecutionHistory++    -- ** DescribeActivityType+    , module Network.AWS.SWF.DescribeActivityType++    -- ** DeprecateActivityType+    , module Network.AWS.SWF.DeprecateActivityType++    -- ** TerminateWorkflowExecution+    , module Network.AWS.SWF.TerminateWorkflowExecution++    -- ** CountClosedWorkflowExecutions+    , module Network.AWS.SWF.CountClosedWorkflowExecutions++    -- ** RespondActivityTaskCanceled+    , module Network.AWS.SWF.RespondActivityTaskCanceled++    -- ** ListDomains (Paginated)+    , module Network.AWS.SWF.ListDomains++    -- ** StartWorkflowExecution+    , module Network.AWS.SWF.StartWorkflowExecution++    -- ** PollForDecisionTask (Paginated)+    , module Network.AWS.SWF.PollForDecisionTask++    -- * Types++    -- ** ActivityTaskTimeoutType+    , ActivityTaskTimeoutType (..)++    -- ** CancelTimerFailedCause+    , CancelTimerFailedCause (..)++    -- ** CancelWorkflowExecutionFailedCause+    , CancelWorkflowExecutionFailedCause (..)++    -- ** ChildPolicy+    , ChildPolicy (..)++    -- ** CloseStatus+    , CloseStatus (..)++    -- ** CompleteWorkflowExecutionFailedCause+    , CompleteWorkflowExecutionFailedCause (..)++    -- ** ContinueAsNewWorkflowExecutionFailedCause+    , ContinueAsNewWorkflowExecutionFailedCause (..)++    -- ** DecisionTaskTimeoutType+    , DecisionTaskTimeoutType (..)++    -- ** DecisionType+    , DecisionType (..)++    -- ** EventType+    , EventType (..)++    -- ** ExecutionStatus+    , ExecutionStatus (..)++    -- ** FailWorkflowExecutionFailedCause+    , FailWorkflowExecutionFailedCause (..)++    -- ** LambdaFunctionTimeoutType+    , LambdaFunctionTimeoutType (..)++    -- ** RecordMarkerFailedCause+    , RecordMarkerFailedCause (..)++    -- ** RegistrationStatus+    , RegistrationStatus (..)++    -- ** RequestCancelActivityTaskFailedCause+    , RequestCancelActivityTaskFailedCause (..)++    -- ** RequestCancelExternalWorkflowExecutionFailedCause+    , RequestCancelExternalWorkflowExecutionFailedCause (..)++    -- ** ScheduleActivityTaskFailedCause+    , ScheduleActivityTaskFailedCause (..)++    -- ** ScheduleLambdaFunctionFailedCause+    , ScheduleLambdaFunctionFailedCause (..)++    -- ** SignalExternalWorkflowExecutionFailedCause+    , SignalExternalWorkflowExecutionFailedCause (..)++    -- ** StartChildWorkflowExecutionFailedCause+    , StartChildWorkflowExecutionFailedCause (..)++    -- ** StartLambdaFunctionFailedCause+    , StartLambdaFunctionFailedCause (..)++    -- ** StartTimerFailedCause+    , StartTimerFailedCause (..)++    -- ** WorkflowExecutionCancelRequestedCause+    , WorkflowExecutionCancelRequestedCause (..)++    -- ** WorkflowExecutionTerminatedCause+    , WorkflowExecutionTerminatedCause (..)++    -- ** WorkflowExecutionTimeoutType+    , WorkflowExecutionTimeoutType (..)++    -- ** ActivityTaskCancelRequestedEventAttributes+    , ActivityTaskCancelRequestedEventAttributes+    , activityTaskCancelRequestedEventAttributes+    , atcreaDecisionTaskCompletedEventId+    , atcreaActivityId++    -- ** ActivityTaskCanceledEventAttributes+    , ActivityTaskCanceledEventAttributes+    , activityTaskCanceledEventAttributes+    , aLatestCancelRequestedEventId+    , aDetails+    , aScheduledEventId+    , aStartedEventId++    -- ** ActivityTaskCompletedEventAttributes+    , ActivityTaskCompletedEventAttributes+    , activityTaskCompletedEventAttributes+    , atceaResult+    , atceaScheduledEventId+    , atceaStartedEventId++    -- ** ActivityTaskFailedEventAttributes+    , ActivityTaskFailedEventAttributes+    , activityTaskFailedEventAttributes+    , atfeaReason+    , atfeaDetails+    , atfeaScheduledEventId+    , atfeaStartedEventId++    -- ** ActivityTaskScheduledEventAttributes+    , ActivityTaskScheduledEventAttributes+    , activityTaskScheduledEventAttributes+    , atseaControl+    , atseaScheduleToCloseTimeout+    , atseaHeartbeatTimeout+    , atseaInput+    , atseaTaskPriority+    , atseaScheduleToStartTimeout+    , atseaStartToCloseTimeout+    , atseaActivityType+    , atseaActivityId+    , atseaTaskList+    , atseaDecisionTaskCompletedEventId++    -- ** ActivityTaskStartedEventAttributes+    , ActivityTaskStartedEventAttributes+    , activityTaskStartedEventAttributes+    , atseaIdentity+    , atseaScheduledEventId++    -- ** ActivityTaskTimedOutEventAttributes+    , ActivityTaskTimedOutEventAttributes+    , activityTaskTimedOutEventAttributes+    , attoeaDetails+    , attoeaTimeoutType+    , attoeaScheduledEventId+    , attoeaStartedEventId++    -- ** ActivityType+    , ActivityType+    , activityType+    , atName+    , atVersion++    -- ** ActivityTypeConfiguration+    , ActivityTypeConfiguration+    , activityTypeConfiguration+    , atcDefaultTaskScheduleToStartTimeout+    , atcDefaultTaskList+    , atcDefaultTaskPriority+    , atcDefaultTaskHeartbeatTimeout+    , atcDefaultTaskScheduleToCloseTimeout+    , atcDefaultTaskStartToCloseTimeout++    -- ** ActivityTypeInfo+    , ActivityTypeInfo+    , activityTypeInfo+    , atiDeprecationDate+    , atiDescription+    , atiActivityType+    , atiStatus+    , atiCreationDate++    -- ** CancelTimerDecisionAttributes+    , CancelTimerDecisionAttributes+    , cancelTimerDecisionAttributes+    , ctdaTimerId++    -- ** CancelTimerFailedEventAttributes+    , CancelTimerFailedEventAttributes+    , cancelTimerFailedEventAttributes+    , ctfeaTimerId+    , ctfeaCause+    , ctfeaDecisionTaskCompletedEventId++    -- ** CancelWorkflowExecutionDecisionAttributes+    , CancelWorkflowExecutionDecisionAttributes+    , cancelWorkflowExecutionDecisionAttributes+    , cwedaDetails++    -- ** CancelWorkflowExecutionFailedEventAttributes+    , CancelWorkflowExecutionFailedEventAttributes+    , cancelWorkflowExecutionFailedEventAttributes+    , cCause+    , cDecisionTaskCompletedEventId++    -- ** ChildWorkflowExecutionCanceledEventAttributes+    , ChildWorkflowExecutionCanceledEventAttributes+    , childWorkflowExecutionCanceledEventAttributes+    , cDetails+    , cWorkflowExecution+    , cWorkflowType+    , cInitiatedEventId+    , cStartedEventId++    -- ** ChildWorkflowExecutionCompletedEventAttributes+    , ChildWorkflowExecutionCompletedEventAttributes+    , childWorkflowExecutionCompletedEventAttributes+    , cweceaResult+    , cweceaWorkflowExecution+    , cweceaWorkflowType+    , cweceaInitiatedEventId+    , cweceaStartedEventId++    -- ** ChildWorkflowExecutionFailedEventAttributes+    , ChildWorkflowExecutionFailedEventAttributes+    , childWorkflowExecutionFailedEventAttributes+    , cwefeaReason+    , cwefeaDetails+    , cwefeaWorkflowExecution+    , cwefeaWorkflowType+    , cwefeaInitiatedEventId+    , cwefeaStartedEventId++    -- ** ChildWorkflowExecutionStartedEventAttributes+    , ChildWorkflowExecutionStartedEventAttributes+    , childWorkflowExecutionStartedEventAttributes+    , cweseaWorkflowExecution+    , cweseaWorkflowType+    , cweseaInitiatedEventId++    -- ** ChildWorkflowExecutionTerminatedEventAttributes+    , ChildWorkflowExecutionTerminatedEventAttributes+    , childWorkflowExecutionTerminatedEventAttributes+    , cweteaWorkflowExecution+    , cweteaWorkflowType+    , cweteaInitiatedEventId+    , cweteaStartedEventId++    -- ** ChildWorkflowExecutionTimedOutEventAttributes+    , ChildWorkflowExecutionTimedOutEventAttributes+    , childWorkflowExecutionTimedOutEventAttributes+    , cwetoeaWorkflowExecution+    , cwetoeaWorkflowType+    , cwetoeaTimeoutType+    , cwetoeaInitiatedEventId+    , cwetoeaStartedEventId++    -- ** CloseStatusFilter+    , CloseStatusFilter+    , closeStatusFilter+    , csfStatus++    -- ** CompleteWorkflowExecutionDecisionAttributes+    , CompleteWorkflowExecutionDecisionAttributes+    , completeWorkflowExecutionDecisionAttributes+    , cwedaResult++    -- ** CompleteWorkflowExecutionFailedEventAttributes+    , CompleteWorkflowExecutionFailedEventAttributes+    , completeWorkflowExecutionFailedEventAttributes+    , cwefeaCause+    , cwefeaDecisionTaskCompletedEventId++    -- ** ContinueAsNewWorkflowExecutionDecisionAttributes+    , ContinueAsNewWorkflowExecutionDecisionAttributes+    , continueAsNewWorkflowExecutionDecisionAttributes+    , canwedaTagList+    , canwedaTaskStartToCloseTimeout+    , canwedaLambdaRole+    , canwedaInput+    , canwedaWorkflowTypeVersion+    , canwedaExecutionStartToCloseTimeout+    , canwedaTaskList+    , canwedaTaskPriority+    , canwedaChildPolicy++    -- ** ContinueAsNewWorkflowExecutionFailedEventAttributes+    , ContinueAsNewWorkflowExecutionFailedEventAttributes+    , continueAsNewWorkflowExecutionFailedEventAttributes+    , canwefeaCause+    , canwefeaDecisionTaskCompletedEventId++    -- ** Decision+    , Decision+    , decision+    , dRequestCancelExternalWorkflowExecutionDecisionAttributes+    , dScheduleActivityTaskDecisionAttributes+    , dSignalExternalWorkflowExecutionDecisionAttributes+    , dStartTimerDecisionAttributes+    , dRecordMarkerDecisionAttributes+    , dFailWorkflowExecutionDecisionAttributes+    , dStartChildWorkflowExecutionDecisionAttributes+    , dScheduleLambdaFunctionDecisionAttributes+    , dCompleteWorkflowExecutionDecisionAttributes+    , dRequestCancelActivityTaskDecisionAttributes+    , dCancelWorkflowExecutionDecisionAttributes+    , dCancelTimerDecisionAttributes+    , dContinueAsNewWorkflowExecutionDecisionAttributes+    , dDecisionType++    -- ** DecisionTaskCompletedEventAttributes+    , DecisionTaskCompletedEventAttributes+    , decisionTaskCompletedEventAttributes+    , dtceaExecutionContext+    , dtceaScheduledEventId+    , dtceaStartedEventId++    -- ** DecisionTaskScheduledEventAttributes+    , DecisionTaskScheduledEventAttributes+    , decisionTaskScheduledEventAttributes+    , dtseaTaskPriority+    , dtseaStartToCloseTimeout+    , dtseaTaskList++    -- ** DecisionTaskStartedEventAttributes+    , DecisionTaskStartedEventAttributes+    , decisionTaskStartedEventAttributes+    , dtseaIdentity+    , dtseaScheduledEventId++    -- ** DecisionTaskTimedOutEventAttributes+    , DecisionTaskTimedOutEventAttributes+    , decisionTaskTimedOutEventAttributes+    , dttoeaTimeoutType+    , dttoeaScheduledEventId+    , dttoeaStartedEventId++    -- ** DomainConfiguration+    , DomainConfiguration+    , domainConfiguration+    , dcWorkflowExecutionRetentionPeriodInDays++    -- ** DomainInfo+    , DomainInfo+    , domainInfo+    , diDescription+    , diName+    , diStatus++    -- ** ExecutionTimeFilter+    , ExecutionTimeFilter+    , executionTimeFilter+    , etfLatestDate+    , etfOldestDate++    -- ** ExternalWorkflowExecutionCancelRequestedEventAttributes+    , ExternalWorkflowExecutionCancelRequestedEventAttributes+    , externalWorkflowExecutionCancelRequestedEventAttributes+    , ewecreaWorkflowExecution+    , ewecreaInitiatedEventId++    -- ** ExternalWorkflowExecutionSignaledEventAttributes+    , ExternalWorkflowExecutionSignaledEventAttributes+    , externalWorkflowExecutionSignaledEventAttributes+    , eweseaWorkflowExecution+    , eweseaInitiatedEventId++    -- ** FailWorkflowExecutionDecisionAttributes+    , FailWorkflowExecutionDecisionAttributes+    , failWorkflowExecutionDecisionAttributes+    , fwedaReason+    , fwedaDetails++    -- ** FailWorkflowExecutionFailedEventAttributes+    , FailWorkflowExecutionFailedEventAttributes+    , failWorkflowExecutionFailedEventAttributes+    , fwefeaCause+    , fwefeaDecisionTaskCompletedEventId++    -- ** HistoryEvent+    , HistoryEvent+    , historyEvent+    , heWorkflowExecutionCancelRequestedEventAttributes+    , heDecisionTaskScheduledEventAttributes+    , heStartTimerFailedEventAttributes+    , heLambdaFunctionStartedEventAttributes+    , heRecordMarkerFailedEventAttributes+    , heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes+    , heWorkflowExecutionCompletedEventAttributes+    , heActivityTaskScheduledEventAttributes+    , heChildWorkflowExecutionCompletedEventAttributes+    , heScheduleActivityTaskFailedEventAttributes+    , heMarkerRecordedEventAttributes+    , heScheduleLambdaFunctionFailedEventAttributes+    , heCompleteWorkflowExecutionFailedEventAttributes+    , heRequestCancelExternalWorkflowExecutionFailedEventAttributes+    , heLambdaFunctionCompletedEventAttributes+    , heTimerCanceledEventAttributes+    , heWorkflowExecutionStartedEventAttributes+    , heActivityTaskCompletedEventAttributes+    , heChildWorkflowExecutionStartedEventAttributes+    , heDecisionTaskTimedOutEventAttributes+    , heCancelTimerFailedEventAttributes+    , heActivityTaskTimedOutEventAttributes+    , heActivityTaskCanceledEventAttributes+    , heChildWorkflowExecutionCanceledEventAttributes+    , heDecisionTaskStartedEventAttributes+    , heCancelWorkflowExecutionFailedEventAttributes+    , heLambdaFunctionScheduledEventAttributes+    , heChildWorkflowExecutionTimedOutEventAttributes+    , heRequestCancelActivityTaskFailedEventAttributes+    , heWorkflowExecutionTerminatedEventAttributes+    , heStartChildWorkflowExecutionInitiatedEventAttributes+    , heActivityTaskStartedEventAttributes+    , heSignalExternalWorkflowExecutionFailedEventAttributes+    , heTimerStartedEventAttributes+    , heWorkflowExecutionTimedOutEventAttributes+    , heActivityTaskCancelRequestedEventAttributes+    , heStartLambdaFunctionFailedEventAttributes+    , heChildWorkflowExecutionTerminatedEventAttributes+    , heLambdaFunctionFailedEventAttributes+    , heWorkflowExecutionCanceledEventAttributes+    , heWorkflowExecutionSignaledEventAttributes+    , heActivityTaskFailedEventAttributes+    , heExternalWorkflowExecutionSignaledEventAttributes+    , heTimerFiredEventAttributes+    , heFailWorkflowExecutionFailedEventAttributes+    , heChildWorkflowExecutionFailedEventAttributes+    , heDecisionTaskCompletedEventAttributes+    , heStartChildWorkflowExecutionFailedEventAttributes+    , heSignalExternalWorkflowExecutionInitiatedEventAttributes+    , heContinueAsNewWorkflowExecutionFailedEventAttributes+    , heWorkflowExecutionFailedEventAttributes+    , heWorkflowExecutionContinuedAsNewEventAttributes+    , heExternalWorkflowExecutionCancelRequestedEventAttributes+    , heLambdaFunctionTimedOutEventAttributes+    , heEventTimestamp+    , heEventType+    , heEventId++    -- ** LambdaFunctionCompletedEventAttributes+    , LambdaFunctionCompletedEventAttributes+    , lambdaFunctionCompletedEventAttributes+    , lfceaResult+    , lfceaScheduledEventId+    , lfceaStartedEventId++    -- ** LambdaFunctionFailedEventAttributes+    , LambdaFunctionFailedEventAttributes+    , lambdaFunctionFailedEventAttributes+    , lffeaReason+    , lffeaDetails+    , lffeaScheduledEventId+    , lffeaStartedEventId++    -- ** LambdaFunctionScheduledEventAttributes+    , LambdaFunctionScheduledEventAttributes+    , lambdaFunctionScheduledEventAttributes+    , lfseaInput+    , lfseaStartToCloseTimeout+    , lfseaId+    , lfseaName+    , lfseaDecisionTaskCompletedEventId++    -- ** LambdaFunctionStartedEventAttributes+    , LambdaFunctionStartedEventAttributes+    , lambdaFunctionStartedEventAttributes+    , lfseaScheduledEventId++    -- ** LambdaFunctionTimedOutEventAttributes+    , LambdaFunctionTimedOutEventAttributes+    , lambdaFunctionTimedOutEventAttributes+    , lftoeaTimeoutType+    , lftoeaScheduledEventId+    , lftoeaStartedEventId++    -- ** MarkerRecordedEventAttributes+    , MarkerRecordedEventAttributes+    , markerRecordedEventAttributes+    , mreaDetails+    , mreaMarkerName+    , mreaDecisionTaskCompletedEventId++    -- ** PendingTaskCount+    , PendingTaskCount+    , pendingTaskCount+    , ptcTruncated+    , ptcCount++    -- ** RecordMarkerDecisionAttributes+    , RecordMarkerDecisionAttributes+    , recordMarkerDecisionAttributes+    , rmdaDetails+    , rmdaMarkerName++    -- ** RecordMarkerFailedEventAttributes+    , RecordMarkerFailedEventAttributes+    , recordMarkerFailedEventAttributes+    , rmfeaMarkerName+    , rmfeaCause+    , rmfeaDecisionTaskCompletedEventId++    -- ** RequestCancelActivityTaskDecisionAttributes+    , RequestCancelActivityTaskDecisionAttributes+    , requestCancelActivityTaskDecisionAttributes+    , rcatdaActivityId++    -- ** RequestCancelActivityTaskFailedEventAttributes+    , RequestCancelActivityTaskFailedEventAttributes+    , requestCancelActivityTaskFailedEventAttributes+    , rcatfeaActivityId+    , rcatfeaCause+    , rcatfeaDecisionTaskCompletedEventId++    -- ** RequestCancelExternalWorkflowExecutionDecisionAttributes+    , RequestCancelExternalWorkflowExecutionDecisionAttributes+    , requestCancelExternalWorkflowExecutionDecisionAttributes+    , rcewedaControl+    , rcewedaRunId+    , rcewedaWorkflowId++    -- ** RequestCancelExternalWorkflowExecutionFailedEventAttributes+    , RequestCancelExternalWorkflowExecutionFailedEventAttributes+    , requestCancelExternalWorkflowExecutionFailedEventAttributes+    , rcewefeaControl+    , rcewefeaRunId+    , rcewefeaWorkflowId+    , rcewefeaCause+    , rcewefeaInitiatedEventId+    , rcewefeaDecisionTaskCompletedEventId++    -- ** RequestCancelExternalWorkflowExecutionInitiatedEventAttributes+    , RequestCancelExternalWorkflowExecutionInitiatedEventAttributes+    , requestCancelExternalWorkflowExecutionInitiatedEventAttributes+    , rceweieaControl+    , rceweieaRunId+    , rceweieaWorkflowId+    , rceweieaDecisionTaskCompletedEventId++    -- ** ScheduleActivityTaskDecisionAttributes+    , ScheduleActivityTaskDecisionAttributes+    , scheduleActivityTaskDecisionAttributes+    , satdaControl+    , satdaScheduleToCloseTimeout+    , satdaHeartbeatTimeout+    , satdaInput+    , satdaTaskList+    , satdaTaskPriority+    , satdaScheduleToStartTimeout+    , satdaStartToCloseTimeout+    , satdaActivityType+    , satdaActivityId++    -- ** ScheduleActivityTaskFailedEventAttributes+    , ScheduleActivityTaskFailedEventAttributes+    , scheduleActivityTaskFailedEventAttributes+    , satfeaActivityType+    , satfeaActivityId+    , satfeaCause+    , satfeaDecisionTaskCompletedEventId++    -- ** ScheduleLambdaFunctionDecisionAttributes+    , ScheduleLambdaFunctionDecisionAttributes+    , scheduleLambdaFunctionDecisionAttributes+    , slfdaInput+    , slfdaStartToCloseTimeout+    , slfdaId+    , slfdaName++    -- ** ScheduleLambdaFunctionFailedEventAttributes+    , ScheduleLambdaFunctionFailedEventAttributes+    , scheduleLambdaFunctionFailedEventAttributes+    , slffeaId+    , slffeaName+    , slffeaCause+    , slffeaDecisionTaskCompletedEventId++    -- ** SignalExternalWorkflowExecutionDecisionAttributes+    , SignalExternalWorkflowExecutionDecisionAttributes+    , signalExternalWorkflowExecutionDecisionAttributes+    , sewedaControl+    , sewedaInput+    , sewedaRunId+    , sewedaWorkflowId+    , sewedaSignalName++    -- ** SignalExternalWorkflowExecutionFailedEventAttributes+    , SignalExternalWorkflowExecutionFailedEventAttributes+    , signalExternalWorkflowExecutionFailedEventAttributes+    , sewefeaControl+    , sewefeaRunId+    , sewefeaWorkflowId+    , sewefeaCause+    , sewefeaInitiatedEventId+    , sewefeaDecisionTaskCompletedEventId++    -- ** SignalExternalWorkflowExecutionInitiatedEventAttributes+    , SignalExternalWorkflowExecutionInitiatedEventAttributes+    , signalExternalWorkflowExecutionInitiatedEventAttributes+    , seweieaControl+    , seweieaInput+    , seweieaRunId+    , seweieaWorkflowId+    , seweieaSignalName+    , seweieaDecisionTaskCompletedEventId++    -- ** StartChildWorkflowExecutionDecisionAttributes+    , StartChildWorkflowExecutionDecisionAttributes+    , startChildWorkflowExecutionDecisionAttributes+    , scwedaControl+    , scwedaTagList+    , scwedaTaskStartToCloseTimeout+    , scwedaLambdaRole+    , scwedaInput+    , scwedaExecutionStartToCloseTimeout+    , scwedaTaskList+    , scwedaTaskPriority+    , scwedaChildPolicy+    , scwedaWorkflowType+    , scwedaWorkflowId++    -- ** StartChildWorkflowExecutionFailedEventAttributes+    , StartChildWorkflowExecutionFailedEventAttributes+    , startChildWorkflowExecutionFailedEventAttributes+    , scwefeaControl+    , scwefeaWorkflowType+    , scwefeaCause+    , scwefeaWorkflowId+    , scwefeaInitiatedEventId+    , scwefeaDecisionTaskCompletedEventId++    -- ** StartChildWorkflowExecutionInitiatedEventAttributes+    , StartChildWorkflowExecutionInitiatedEventAttributes+    , startChildWorkflowExecutionInitiatedEventAttributes+    , scweieaControl+    , scweieaTagList+    , scweieaTaskStartToCloseTimeout+    , scweieaLambdaRole+    , scweieaInput+    , scweieaExecutionStartToCloseTimeout+    , scweieaTaskPriority+    , scweieaWorkflowId+    , scweieaWorkflowType+    , scweieaTaskList+    , scweieaDecisionTaskCompletedEventId+    , scweieaChildPolicy++    -- ** StartLambdaFunctionFailedEventAttributes+    , StartLambdaFunctionFailedEventAttributes+    , startLambdaFunctionFailedEventAttributes+    , sScheduledEventId+    , sCause+    , sMessage++    -- ** StartTimerDecisionAttributes+    , StartTimerDecisionAttributes+    , startTimerDecisionAttributes+    , stdaControl+    , stdaTimerId+    , stdaStartToFireTimeout++    -- ** StartTimerFailedEventAttributes+    , StartTimerFailedEventAttributes+    , startTimerFailedEventAttributes+    , stfeaTimerId+    , stfeaCause+    , stfeaDecisionTaskCompletedEventId++    -- ** TagFilter+    , TagFilter+    , tagFilter+    , tfTag++    -- ** TaskList+    , TaskList+    , taskList+    , tlName++    -- ** TimerCanceledEventAttributes+    , TimerCanceledEventAttributes+    , timerCanceledEventAttributes+    , tceaTimerId+    , tceaStartedEventId+    , tceaDecisionTaskCompletedEventId++    -- ** TimerFiredEventAttributes+    , TimerFiredEventAttributes+    , timerFiredEventAttributes+    , tfeaTimerId+    , tfeaStartedEventId++    -- ** TimerStartedEventAttributes+    , TimerStartedEventAttributes+    , timerStartedEventAttributes+    , tseaControl+    , tseaTimerId+    , tseaStartToFireTimeout+    , tseaDecisionTaskCompletedEventId++    -- ** WorkflowExecution+    , WorkflowExecution+    , workflowExecution+    , weWorkflowId+    , weRunId++    -- ** WorkflowExecutionCancelRequestedEventAttributes+    , WorkflowExecutionCancelRequestedEventAttributes+    , workflowExecutionCancelRequestedEventAttributes+    , wecreaExternalWorkflowExecution+    , wecreaExternalInitiatedEventId+    , wecreaCause++    -- ** WorkflowExecutionCanceledEventAttributes+    , WorkflowExecutionCanceledEventAttributes+    , workflowExecutionCanceledEventAttributes+    , wDetails+    , wDecisionTaskCompletedEventId++    -- ** WorkflowExecutionCompletedEventAttributes+    , WorkflowExecutionCompletedEventAttributes+    , workflowExecutionCompletedEventAttributes+    , weceaResult+    , weceaDecisionTaskCompletedEventId++    -- ** WorkflowExecutionConfiguration+    , WorkflowExecutionConfiguration+    , workflowExecutionConfiguration+    , wecLambdaRole+    , wecTaskPriority+    , wecTaskStartToCloseTimeout+    , wecExecutionStartToCloseTimeout+    , wecTaskList+    , wecChildPolicy++    -- ** WorkflowExecutionContinuedAsNewEventAttributes+    , WorkflowExecutionContinuedAsNewEventAttributes+    , workflowExecutionContinuedAsNewEventAttributes+    , wecaneaTagList+    , wecaneaTaskStartToCloseTimeout+    , wecaneaLambdaRole+    , wecaneaInput+    , wecaneaExecutionStartToCloseTimeout+    , wecaneaTaskPriority+    , wecaneaDecisionTaskCompletedEventId+    , wecaneaNewExecutionRunId+    , wecaneaTaskList+    , wecaneaChildPolicy+    , wecaneaWorkflowType++    -- ** WorkflowExecutionCount+    , WorkflowExecutionCount+    , workflowExecutionCount+    , wecTruncated+    , wecCount++    -- ** WorkflowExecutionFailedEventAttributes+    , WorkflowExecutionFailedEventAttributes+    , workflowExecutionFailedEventAttributes+    , wefeaReason+    , wefeaDetails+    , wefeaDecisionTaskCompletedEventId++    -- ** WorkflowExecutionFilter+    , WorkflowExecutionFilter+    , workflowExecutionFilter+    , wefWorkflowId++    -- ** WorkflowExecutionInfo+    , WorkflowExecutionInfo+    , workflowExecutionInfo+    , weiParent+    , weiTagList+    , weiCloseStatus+    , weiCloseTimestamp+    , weiCancelRequested+    , weiExecution+    , weiWorkflowType+    , weiStartTimestamp+    , weiExecutionStatus++    -- ** WorkflowExecutionInfos+    , WorkflowExecutionInfos+    , workflowExecutionInfos+    , weiNextPageToken+    , weiExecutionInfos++    -- ** WorkflowExecutionOpenCounts+    , WorkflowExecutionOpenCounts+    , workflowExecutionOpenCounts+    , weocOpenLambdaFunctions+    , weocOpenActivityTasks+    , weocOpenDecisionTasks+    , weocOpenTimers+    , weocOpenChildWorkflowExecutions++    -- ** WorkflowExecutionSignaledEventAttributes+    , WorkflowExecutionSignaledEventAttributes+    , workflowExecutionSignaledEventAttributes+    , wExternalWorkflowExecution+    , wExternalInitiatedEventId+    , wInput+    , wSignalName++    -- ** WorkflowExecutionStartedEventAttributes+    , WorkflowExecutionStartedEventAttributes+    , workflowExecutionStartedEventAttributes+    , weseaParentInitiatedEventId+    , weseaTagList+    , weseaTaskStartToCloseTimeout+    , weseaLambdaRole+    , weseaInput+    , weseaExecutionStartToCloseTimeout+    , weseaTaskPriority+    , weseaParentWorkflowExecution+    , weseaContinuedExecutionRunId+    , weseaChildPolicy+    , weseaTaskList+    , weseaWorkflowType++    -- ** WorkflowExecutionTerminatedEventAttributes+    , WorkflowExecutionTerminatedEventAttributes+    , workflowExecutionTerminatedEventAttributes+    , weteaCause+    , weteaReason+    , weteaDetails+    , weteaChildPolicy++    -- ** WorkflowExecutionTimedOutEventAttributes+    , WorkflowExecutionTimedOutEventAttributes+    , workflowExecutionTimedOutEventAttributes+    , wetoeaTimeoutType+    , wetoeaChildPolicy++    -- ** WorkflowType+    , WorkflowType+    , workflowType+    , wtName+    , wtVersion++    -- ** WorkflowTypeConfiguration+    , WorkflowTypeConfiguration+    , workflowTypeConfiguration+    , wtcDefaultLambdaRole+    , wtcDefaultChildPolicy+    , wtcDefaultTaskList+    , wtcDefaultTaskPriority+    , wtcDefaultExecutionStartToCloseTimeout+    , wtcDefaultTaskStartToCloseTimeout++    -- ** WorkflowTypeFilter+    , WorkflowTypeFilter+    , workflowTypeFilter+    , wtfVersion+    , wtfName++    -- ** WorkflowTypeInfo+    , WorkflowTypeInfo+    , workflowTypeInfo+    , wtiDeprecationDate+    , wtiDescription+    , wtiWorkflowType+    , wtiStatus+    , wtiCreationDate+    ) where++import           Network.AWS.SWF.CountClosedWorkflowExecutions+import           Network.AWS.SWF.CountOpenWorkflowExecutions+import           Network.AWS.SWF.CountPendingActivityTasks+import           Network.AWS.SWF.CountPendingDecisionTasks+import           Network.AWS.SWF.DeprecateActivityType+import           Network.AWS.SWF.DeprecateDomain+import           Network.AWS.SWF.DeprecateWorkflowType+import           Network.AWS.SWF.DescribeActivityType+import           Network.AWS.SWF.DescribeDomain+import           Network.AWS.SWF.DescribeWorkflowExecution+import           Network.AWS.SWF.DescribeWorkflowType+import           Network.AWS.SWF.GetWorkflowExecutionHistory+import           Network.AWS.SWF.ListActivityTypes+import           Network.AWS.SWF.ListClosedWorkflowExecutions+import           Network.AWS.SWF.ListDomains+import           Network.AWS.SWF.ListOpenWorkflowExecutions+import           Network.AWS.SWF.ListWorkflowTypes+import           Network.AWS.SWF.PollForActivityTask+import           Network.AWS.SWF.PollForDecisionTask+import           Network.AWS.SWF.RecordActivityTaskHeartbeat+import           Network.AWS.SWF.RegisterActivityType+import           Network.AWS.SWF.RegisterDomain+import           Network.AWS.SWF.RegisterWorkflowType+import           Network.AWS.SWF.RequestCancelWorkflowExecution+import           Network.AWS.SWF.RespondActivityTaskCanceled+import           Network.AWS.SWF.RespondActivityTaskCompleted+import           Network.AWS.SWF.RespondActivityTaskFailed+import           Network.AWS.SWF.RespondDecisionTaskCompleted+import           Network.AWS.SWF.SignalWorkflowExecution+import           Network.AWS.SWF.StartWorkflowExecution+import           Network.AWS.SWF.TerminateWorkflowExecution+import           Network.AWS.SWF.Types+import           Network.AWS.SWF.Waiters++{- $errors+Error matchers are designed for use with the functions provided by+<http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+This allows catching (and rethrowing) service specific errors returned+by 'SWF'.+-}++{- $operations+Some AWS operations return results that are incomplete and require subsequent+requests in order to obtain the entire result set. The process of sending+subsequent requests to continue where a previous request left off is called+pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+1000 objects at a time, and you must send subsequent requests with the+appropriate Marker in order to retrieve the next page of results.++Operations that have an 'AWSPager' instance can transparently perform subsequent+requests, correctly setting Markers and other request facets to iterate through+the entire result set of a truncated API operation. Operations which support+this have an additional note in the documentation.++Many operations have the ability to filter results on the server side. See the+individual operation parameters for details.+-}++{- $waiters+Waiters poll by repeatedly sending a request until some remote success condition+configured by the 'Wait' specification is fulfilled. The 'Wait' specification+determines how many attempts should be made, in addition to delay and retry strategies.+-}

@@ -1,227 +1,210 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.SWF.CountClosedWorkflowExecutions--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns the number of closed workflow executions within the given domain that--- meet the specified filtering criteria.+-- Returns the number of closed workflow executions within the given domain+-- that meet the specified filtering criteria. ----- This operation is eventually consistent. The results are best effort and may--- not exactly reflect recent updates and changes. Access Control+-- This operation is eventually consistent. The results are best effort and+-- may not exactly reflect recent updates and changes. ----- You can use IAM policies to control this action's access to Amazon SWF+-- __Access Control__+--+-- You can use IAM policies to control this action\'s access to Amazon SWF -- resources as follows: ----- Use a 'Resource' element with the domain name to limit the action to only--- specified domains. Use an 'Action' element to allow or deny permission to call--- this action. Constrain the following parameters by using a 'Condition' element--- with the appropriate keys.  'tagFilter.tag': String constraint. The key is 'swf:tagFilter.tag'. 'typeFilter.name': String constraint. The key is 'swf:typeFilter.name'. 'typeFilter.version': String constraint. The key is 'swf:typeFilter.version'.    If the caller does--- not have sufficient permissions to invoke the action, or the parameter values--- fall outside the specified constraints, the action fails. The associated--- event attribute's cause parameter will be set to OPERATION_NOT_PERMITTED. For--- details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to AmazonSWF Workflows>.+-- -   Use a 'Resource' element with the domain name to limit the action to+--     only specified domains.+-- -   Use an 'Action' element to allow or deny permission to call this+--     action.+-- -   Constrain the following parameters by using a 'Condition' element+--     with the appropriate keys.+--     -   'tagFilter.tag': String constraint. The key is+--         'swf:tagFilter.tag'.+--     -   'typeFilter.name': String constraint. The key is+--         'swf:typeFilter.name'.+--     -   'typeFilter.version': String constraint. The key is+--         'swf:typeFilter.version'. ----- <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_CountClosedWorkflowExecutions.html>+-- If the caller does not have sufficient permissions to invoke the action,+-- or the parameter values fall outside the specified constraints, the+-- action fails. The associated event attribute\'s __cause__ parameter will+-- be set to OPERATION_NOT_PERMITTED. For details and example IAM policies,+-- see+-- <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows>.+--+-- /See:/ <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_CountClosedWorkflowExecutions.html AWS API Reference> for CountClosedWorkflowExecutions. module Network.AWS.SWF.CountClosedWorkflowExecutions     (-    -- * Request-      CountClosedWorkflowExecutions-    -- ** Request constructor-    , countClosedWorkflowExecutions-    -- ** Request lenses+    -- * Creating a Request+      countClosedWorkflowExecutions+    , CountClosedWorkflowExecutions+    -- * Request Lenses     , ccweCloseStatusFilter-    , ccweCloseTimeFilter-    , ccweDomain     , ccweExecutionFilter-    , ccweStartTimeFilter-    , ccweTagFilter     , ccweTypeFilter+    , ccweCloseTimeFilter+    , ccweTagFilter+    , ccweStartTimeFilter+    , ccweDomain -    -- * Response-    , CountClosedWorkflowExecutionsResponse-    -- ** Response constructor-    , countClosedWorkflowExecutionsResponse-    -- ** Response lenses-    , ccwerCount-    , ccwerTruncated+    -- * Destructuring the Response+    , workflowExecutionCount+    , WorkflowExecutionCount+    -- * Response Lenses+    , wecTruncated+    , wecCount     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.SWF.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SWF.Types+import           Network.AWS.SWF.Types.Product -data CountClosedWorkflowExecutions = CountClosedWorkflowExecutions-    { _ccweCloseStatusFilter :: Maybe CloseStatusFilter-    , _ccweCloseTimeFilter   :: Maybe ExecutionTimeFilter-    , _ccweDomain            :: Text-    , _ccweExecutionFilter   :: Maybe WorkflowExecutionFilter-    , _ccweStartTimeFilter   :: Maybe ExecutionTimeFilter-    , _ccweTagFilter         :: Maybe TagFilter-    , _ccweTypeFilter        :: Maybe WorkflowTypeFilter-    } deriving (Eq, Read, Show)+-- | /See:/ 'countClosedWorkflowExecutions' smart constructor.+data CountClosedWorkflowExecutions = CountClosedWorkflowExecutions'+    { _ccweCloseStatusFilter :: !(Maybe CloseStatusFilter)+    , _ccweExecutionFilter   :: !(Maybe WorkflowExecutionFilter)+    , _ccweTypeFilter        :: !(Maybe WorkflowTypeFilter)+    , _ccweCloseTimeFilter   :: !(Maybe ExecutionTimeFilter)+    , _ccweTagFilter         :: !(Maybe TagFilter)+    , _ccweStartTimeFilter   :: !(Maybe ExecutionTimeFilter)+    , _ccweDomain            :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CountClosedWorkflowExecutions' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CountClosedWorkflowExecutions' with the minimum fields required to make a request. ----- * 'ccweCloseStatusFilter' @::@ 'Maybe' 'CloseStatusFilter'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ccweCloseTimeFilter' @::@ 'Maybe' 'ExecutionTimeFilter'+-- * 'ccweCloseStatusFilter' ----- * 'ccweDomain' @::@ 'Text'+-- * 'ccweExecutionFilter' ----- * 'ccweExecutionFilter' @::@ 'Maybe' 'WorkflowExecutionFilter'+-- * 'ccweTypeFilter' ----- * 'ccweStartTimeFilter' @::@ 'Maybe' 'ExecutionTimeFilter'+-- * 'ccweCloseTimeFilter' ----- * 'ccweTagFilter' @::@ 'Maybe' 'TagFilter'+-- * 'ccweTagFilter' ----- * 'ccweTypeFilter' @::@ 'Maybe' 'WorkflowTypeFilter'+-- * 'ccweStartTimeFilter' ---countClosedWorkflowExecutions :: Text -- ^ 'ccweDomain'-                              -> CountClosedWorkflowExecutions-countClosedWorkflowExecutions p1 = CountClosedWorkflowExecutions-    { _ccweDomain            = p1-    , _ccweStartTimeFilter   = Nothing-    , _ccweCloseTimeFilter   = Nothing-    , _ccweExecutionFilter   = Nothing-    , _ccweTypeFilter        = Nothing-    , _ccweTagFilter         = Nothing-    , _ccweCloseStatusFilter = Nothing+-- * 'ccweDomain'+countClosedWorkflowExecutions+    :: Text -- ^ 'ccweDomain'+    -> CountClosedWorkflowExecutions+countClosedWorkflowExecutions pDomain_ =+    CountClosedWorkflowExecutions'+    { _ccweCloseStatusFilter = Nothing+    , _ccweExecutionFilter = Nothing+    , _ccweTypeFilter = Nothing+    , _ccweCloseTimeFilter = Nothing+    , _ccweTagFilter = Nothing+    , _ccweStartTimeFilter = Nothing+    , _ccweDomain = pDomain_     }  -- | If specified, only workflow executions that match this close status are--- counted. This filter has an affect only if 'executionStatus' is specified as 'CLOSED'.+-- counted. This filter has an affect only if 'executionStatus' is+-- specified as 'CLOSED'. ----- 'closeStatusFilter', 'executionFilter', 'typeFilter' and 'tagFilter' are mutually--- exclusive. You can specify at most one of these in a request.+-- 'closeStatusFilter', 'executionFilter', 'typeFilter' and 'tagFilter' are+-- mutually exclusive. You can specify at most one of these in a request. ccweCloseStatusFilter :: Lens' CountClosedWorkflowExecutions (Maybe CloseStatusFilter)-ccweCloseStatusFilter =-    lens _ccweCloseStatusFilter (\s a -> s { _ccweCloseStatusFilter = a })---- | If specified, only workflow executions that meet the close time criteria of--- the filter are counted.------ 'startTimeFilter' and 'closeTimeFilter' are mutually exclusive. You must specify--- one of these in a request but not both.-ccweCloseTimeFilter :: Lens' CountClosedWorkflowExecutions (Maybe ExecutionTimeFilter)-ccweCloseTimeFilter =-    lens _ccweCloseTimeFilter (\s a -> s { _ccweCloseTimeFilter = a })---- | The name of the domain containing the workflow executions to count.-ccweDomain :: Lens' CountClosedWorkflowExecutions Text-ccweDomain = lens _ccweDomain (\s a -> s { _ccweDomain = a })+ccweCloseStatusFilter = lens _ccweCloseStatusFilter (\ s a -> s{_ccweCloseStatusFilter = a}); --- | If specified, only workflow executions matching the 'WorkflowId' in the filter--- are counted.+-- | If specified, only workflow executions matching the 'WorkflowId' in the+-- filter are counted. ----- 'closeStatusFilter', 'executionFilter', 'typeFilter' and 'tagFilter' are mutually--- exclusive. You can specify at most one of these in a request.+-- 'closeStatusFilter', 'executionFilter', 'typeFilter' and 'tagFilter' are+-- mutually exclusive. You can specify at most one of these in a request. ccweExecutionFilter :: Lens' CountClosedWorkflowExecutions (Maybe WorkflowExecutionFilter)-ccweExecutionFilter =-    lens _ccweExecutionFilter (\s a -> s { _ccweExecutionFilter = a })---- | If specified, only workflow executions that meet the start time criteria of--- the filter are counted.------ 'startTimeFilter' and 'closeTimeFilter' are mutually exclusive. You must specify--- one of these in a request but not both.-ccweStartTimeFilter :: Lens' CountClosedWorkflowExecutions (Maybe ExecutionTimeFilter)-ccweStartTimeFilter =-    lens _ccweStartTimeFilter (\s a -> s { _ccweStartTimeFilter = a })+ccweExecutionFilter = lens _ccweExecutionFilter (\ s a -> s{_ccweExecutionFilter = a}); --- | If specified, only executions that have a tag that matches the filter are+-- | If specified, indicates the type of the workflow executions to be -- counted. ----- 'closeStatusFilter', 'executionFilter', 'typeFilter' and 'tagFilter' are mutually--- exclusive. You can specify at most one of these in a request.-ccweTagFilter :: Lens' CountClosedWorkflowExecutions (Maybe TagFilter)-ccweTagFilter = lens _ccweTagFilter (\s a -> s { _ccweTagFilter = a })---- | If specified, indicates the type of the workflow executions to be counted.------ 'closeStatusFilter', 'executionFilter', 'typeFilter' and 'tagFilter' are mutually--- exclusive. You can specify at most one of these in a request.+-- 'closeStatusFilter', 'executionFilter', 'typeFilter' and 'tagFilter' are+-- mutually exclusive. You can specify at most one of these in a request. ccweTypeFilter :: Lens' CountClosedWorkflowExecutions (Maybe WorkflowTypeFilter)-ccweTypeFilter = lens _ccweTypeFilter (\s a -> s { _ccweTypeFilter = a })--data CountClosedWorkflowExecutionsResponse = CountClosedWorkflowExecutionsResponse-    { _ccwerCount     :: Nat-    , _ccwerTruncated :: Maybe Bool-    } deriving (Eq, Ord, Read, Show)+ccweTypeFilter = lens _ccweTypeFilter (\ s a -> s{_ccweTypeFilter = a}); --- | 'CountClosedWorkflowExecutionsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ccwerCount' @::@ 'Natural'------ * 'ccwerTruncated' @::@ 'Maybe' 'Bool'+-- | If specified, only workflow executions that meet the close time criteria+-- of the filter are counted. ---countClosedWorkflowExecutionsResponse :: Natural -- ^ 'ccwerCount'-                                      -> CountClosedWorkflowExecutionsResponse-countClosedWorkflowExecutionsResponse p1 = CountClosedWorkflowExecutionsResponse-    { _ccwerCount     = withIso _Nat (const id) p1-    , _ccwerTruncated = Nothing-    }+-- 'startTimeFilter' and 'closeTimeFilter' are mutually exclusive. You must+-- specify one of these in a request but not both.+ccweCloseTimeFilter :: Lens' CountClosedWorkflowExecutions (Maybe ExecutionTimeFilter)+ccweCloseTimeFilter = lens _ccweCloseTimeFilter (\ s a -> s{_ccweCloseTimeFilter = a}); --- | The number of workflow executions.-ccwerCount :: Lens' CountClosedWorkflowExecutionsResponse Natural-ccwerCount = lens _ccwerCount (\s a -> s { _ccwerCount = a }) . _Nat+-- | If specified, only executions that have a tag that matches the filter+-- are counted.+--+-- 'closeStatusFilter', 'executionFilter', 'typeFilter' and 'tagFilter' are+-- mutually exclusive. You can specify at most one of these in a request.+ccweTagFilter :: Lens' CountClosedWorkflowExecutions (Maybe TagFilter)+ccweTagFilter = lens _ccweTagFilter (\ s a -> s{_ccweTagFilter = a}); --- | If set to true, indicates that the actual count was more than the maximum--- supported by this API and the count returned is the truncated value.-ccwerTruncated :: Lens' CountClosedWorkflowExecutionsResponse (Maybe Bool)-ccwerTruncated = lens _ccwerTruncated (\s a -> s { _ccwerTruncated = a })+-- | If specified, only workflow executions that meet the start time criteria+-- of the filter are counted.+--+-- 'startTimeFilter' and 'closeTimeFilter' are mutually exclusive. You must+-- specify one of these in a request but not both.+ccweStartTimeFilter :: Lens' CountClosedWorkflowExecutions (Maybe ExecutionTimeFilter)+ccweStartTimeFilter = lens _ccweStartTimeFilter (\ s a -> s{_ccweStartTimeFilter = a}); -instance ToPath CountClosedWorkflowExecutions where-    toPath = const "/"+-- | The name of the domain containing the workflow executions to count.+ccweDomain :: Lens' CountClosedWorkflowExecutions Text+ccweDomain = lens _ccweDomain (\ s a -> s{_ccweDomain = a}); -instance ToQuery CountClosedWorkflowExecutions where-    toQuery = const mempty+instance AWSRequest CountClosedWorkflowExecutions+         where+        type Sv CountClosedWorkflowExecutions = SWF+        type Rs CountClosedWorkflowExecutions =+             WorkflowExecutionCount+        request = postJSON+        response = receiveJSON (\ s h x -> eitherParseJSON x)  instance ToHeaders CountClosedWorkflowExecutions+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SimpleWorkflowService.CountClosedWorkflowExecutions"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.0" :: ByteString)])  instance ToJSON CountClosedWorkflowExecutions where-    toJSON CountClosedWorkflowExecutions{..} = object-        [ "domain"            .= _ccweDomain-        , "startTimeFilter"   .= _ccweStartTimeFilter-        , "closeTimeFilter"   .= _ccweCloseTimeFilter-        , "executionFilter"   .= _ccweExecutionFilter-        , "typeFilter"        .= _ccweTypeFilter-        , "tagFilter"         .= _ccweTagFilter-        , "closeStatusFilter" .= _ccweCloseStatusFilter-        ]--instance AWSRequest CountClosedWorkflowExecutions where-    type Sv CountClosedWorkflowExecutions = SWF-    type Rs CountClosedWorkflowExecutions = CountClosedWorkflowExecutionsResponse+        toJSON CountClosedWorkflowExecutions'{..}+          = object+              ["closeStatusFilter" .= _ccweCloseStatusFilter,+               "executionFilter" .= _ccweExecutionFilter,+               "typeFilter" .= _ccweTypeFilter,+               "closeTimeFilter" .= _ccweCloseTimeFilter,+               "tagFilter" .= _ccweTagFilter,+               "startTimeFilter" .= _ccweStartTimeFilter,+               "domain" .= _ccweDomain] -    request  = post "CountClosedWorkflowExecutions"-    response = jsonResponse+instance ToPath CountClosedWorkflowExecutions where+        toPath = const "/" -instance FromJSON CountClosedWorkflowExecutionsResponse where-    parseJSON = withObject "CountClosedWorkflowExecutionsResponse" $ \o -> CountClosedWorkflowExecutionsResponse-        <$> o .:  "count"-        <*> o .:? "truncated"+instance ToQuery CountClosedWorkflowExecutions where+        toQuery = const mempty

@@ -1,195 +1,176 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.SWF.CountOpenWorkflowExecutions--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns the number of open workflow executions within the given domain that--- meet the specified filtering criteria.+-- Returns the number of open workflow executions within the given domain+-- that meet the specified filtering criteria. ----- This operation is eventually consistent. The results are best effort and may--- not exactly reflect recent updates and changes. Access Control+-- This operation is eventually consistent. The results are best effort and+-- may not exactly reflect recent updates and changes. ----- You can use IAM policies to control this action's access to Amazon SWF+-- __Access Control__+--+-- You can use IAM policies to control this action\'s access to Amazon SWF -- resources as follows: ----- Use a 'Resource' element with the domain name to limit the action to only--- specified domains. Use an 'Action' element to allow or deny permission to call--- this action. Constrain the following parameters by using a 'Condition' element--- with the appropriate keys.  'tagFilter.tag': String constraint. The key is 'swf:tagFilter.tag'. 'typeFilter.name': String constraint. The key is 'swf:typeFilter.name'. 'typeFilter.version': String constraint. The key is 'swf:typeFilter.version'.    If the caller does--- not have sufficient permissions to invoke the action, or the parameter values--- fall outside the specified constraints, the action fails. The associated--- event attribute's cause parameter will be set to OPERATION_NOT_PERMITTED. For--- details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to AmazonSWF Workflows>.+-- -   Use a 'Resource' element with the domain name to limit the action to+--     only specified domains.+-- -   Use an 'Action' element to allow or deny permission to call this+--     action.+-- -   Constrain the following parameters by using a 'Condition' element+--     with the appropriate keys.+--     -   'tagFilter.tag': String constraint. The key is+--         'swf:tagFilter.tag'.+--     -   'typeFilter.name': String constraint. The key is+--         'swf:typeFilter.name'.+--     -   'typeFilter.version': String constraint. The key is+--         'swf:typeFilter.version'. ----- <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_CountOpenWorkflowExecutions.html>+-- If the caller does not have sufficient permissions to invoke the action,+-- or the parameter values fall outside the specified constraints, the+-- action fails. The associated event attribute\'s __cause__ parameter will+-- be set to OPERATION_NOT_PERMITTED. For details and example IAM policies,+-- see+-- <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows>.+--+-- /See:/ <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_CountOpenWorkflowExecutions.html AWS API Reference> for CountOpenWorkflowExecutions. module Network.AWS.SWF.CountOpenWorkflowExecutions     (-    -- * Request-      CountOpenWorkflowExecutions-    -- ** Request constructor-    , countOpenWorkflowExecutions-    -- ** Request lenses-    , coweDomain+    -- * Creating a Request+      countOpenWorkflowExecutions+    , CountOpenWorkflowExecutions+    -- * Request Lenses     , coweExecutionFilter-    , coweStartTimeFilter-    , coweTagFilter     , coweTypeFilter+    , coweTagFilter+    , coweDomain+    , coweStartTimeFilter -    -- * Response-    , CountOpenWorkflowExecutionsResponse-    -- ** Response constructor-    , countOpenWorkflowExecutionsResponse-    -- ** Response lenses-    , cowerCount-    , cowerTruncated+    -- * Destructuring the Response+    , workflowExecutionCount+    , WorkflowExecutionCount+    -- * Response Lenses+    , wecTruncated+    , wecCount     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.SWF.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SWF.Types+import           Network.AWS.SWF.Types.Product -data CountOpenWorkflowExecutions = CountOpenWorkflowExecutions-    { _coweDomain          :: Text-    , _coweExecutionFilter :: Maybe WorkflowExecutionFilter-    , _coweStartTimeFilter :: ExecutionTimeFilter-    , _coweTagFilter       :: Maybe TagFilter-    , _coweTypeFilter      :: Maybe WorkflowTypeFilter-    } deriving (Eq, Read, Show)+-- | /See:/ 'countOpenWorkflowExecutions' smart constructor.+data CountOpenWorkflowExecutions = CountOpenWorkflowExecutions'+    { _coweExecutionFilter :: !(Maybe WorkflowExecutionFilter)+    , _coweTypeFilter      :: !(Maybe WorkflowTypeFilter)+    , _coweTagFilter       :: !(Maybe TagFilter)+    , _coweDomain          :: !Text+    , _coweStartTimeFilter :: !ExecutionTimeFilter+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CountOpenWorkflowExecutions' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CountOpenWorkflowExecutions' with the minimum fields required to make a request. ----- * 'coweDomain' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'coweExecutionFilter' @::@ 'Maybe' 'WorkflowExecutionFilter'+-- * 'coweExecutionFilter' ----- * 'coweStartTimeFilter' @::@ 'ExecutionTimeFilter'+-- * 'coweTypeFilter' ----- * 'coweTagFilter' @::@ 'Maybe' 'TagFilter'+-- * 'coweTagFilter' ----- * 'coweTypeFilter' @::@ 'Maybe' 'WorkflowTypeFilter'+-- * 'coweDomain' ---countOpenWorkflowExecutions :: Text -- ^ 'coweDomain'-                            -> ExecutionTimeFilter -- ^ 'coweStartTimeFilter'-                            -> CountOpenWorkflowExecutions-countOpenWorkflowExecutions p1 p2 = CountOpenWorkflowExecutions-    { _coweDomain          = p1-    , _coweStartTimeFilter = p2-    , _coweTypeFilter      = Nothing-    , _coweTagFilter       = Nothing-    , _coweExecutionFilter = Nothing+-- * 'coweStartTimeFilter'+countOpenWorkflowExecutions+    :: Text -- ^ 'coweDomain'+    -> ExecutionTimeFilter -- ^ 'coweStartTimeFilter'+    -> CountOpenWorkflowExecutions+countOpenWorkflowExecutions pDomain_ pStartTimeFilter_ =+    CountOpenWorkflowExecutions'+    { _coweExecutionFilter = Nothing+    , _coweTypeFilter = Nothing+    , _coweTagFilter = Nothing+    , _coweDomain = pDomain_+    , _coweStartTimeFilter = pStartTimeFilter_     } --- | The name of the domain containing the workflow executions to count.-coweDomain :: Lens' CountOpenWorkflowExecutions Text-coweDomain = lens _coweDomain (\s a -> s { _coweDomain = a })---- | If specified, only workflow executions matching the 'WorkflowId' in the filter--- are counted.+-- | If specified, only workflow executions matching the 'WorkflowId' in the+-- filter are counted. ----- 'executionFilter', 'typeFilter' and 'tagFilter' are mutually exclusive. You can--- specify at most one of these in a request.+-- 'executionFilter', 'typeFilter' and 'tagFilter' are mutually exclusive.+-- You can specify at most one of these in a request. coweExecutionFilter :: Lens' CountOpenWorkflowExecutions (Maybe WorkflowExecutionFilter)-coweExecutionFilter =-    lens _coweExecutionFilter (\s a -> s { _coweExecutionFilter = a })---- | Specifies the start time criteria that workflow executions must meet in order--- to be counted.-coweStartTimeFilter :: Lens' CountOpenWorkflowExecutions ExecutionTimeFilter-coweStartTimeFilter =-    lens _coweStartTimeFilter (\s a -> s { _coweStartTimeFilter = a })---- | If specified, only executions that have a tag that matches the filter are--- counted.------ 'executionFilter', 'typeFilter' and 'tagFilter' are mutually exclusive. You can--- specify at most one of these in a request.-coweTagFilter :: Lens' CountOpenWorkflowExecutions (Maybe TagFilter)-coweTagFilter = lens _coweTagFilter (\s a -> s { _coweTagFilter = a })+coweExecutionFilter = lens _coweExecutionFilter (\ s a -> s{_coweExecutionFilter = a});  -- | Specifies the type of the workflow executions to be counted. ----- 'executionFilter', 'typeFilter' and 'tagFilter' are mutually exclusive. You can--- specify at most one of these in a request.+-- 'executionFilter', 'typeFilter' and 'tagFilter' are mutually exclusive.+-- You can specify at most one of these in a request. coweTypeFilter :: Lens' CountOpenWorkflowExecutions (Maybe WorkflowTypeFilter)-coweTypeFilter = lens _coweTypeFilter (\s a -> s { _coweTypeFilter = a })--data CountOpenWorkflowExecutionsResponse = CountOpenWorkflowExecutionsResponse-    { _cowerCount     :: Nat-    , _cowerTruncated :: Maybe Bool-    } deriving (Eq, Ord, Read, Show)+coweTypeFilter = lens _coweTypeFilter (\ s a -> s{_coweTypeFilter = a}); --- | 'CountOpenWorkflowExecutionsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cowerCount' @::@ 'Natural'------ * 'cowerTruncated' @::@ 'Maybe' 'Bool'+-- | If specified, only executions that have a tag that matches the filter+-- are counted. ---countOpenWorkflowExecutionsResponse :: Natural -- ^ 'cowerCount'-                                    -> CountOpenWorkflowExecutionsResponse-countOpenWorkflowExecutionsResponse p1 = CountOpenWorkflowExecutionsResponse-    { _cowerCount     = withIso _Nat (const id) p1-    , _cowerTruncated = Nothing-    }---- | The number of workflow executions.-cowerCount :: Lens' CountOpenWorkflowExecutionsResponse Natural-cowerCount = lens _cowerCount (\s a -> s { _cowerCount = a }) . _Nat+-- 'executionFilter', 'typeFilter' and 'tagFilter' are mutually exclusive.+-- You can specify at most one of these in a request.+coweTagFilter :: Lens' CountOpenWorkflowExecutions (Maybe TagFilter)+coweTagFilter = lens _coweTagFilter (\ s a -> s{_coweTagFilter = a}); --- | If set to true, indicates that the actual count was more than the maximum--- supported by this API and the count returned is the truncated value.-cowerTruncated :: Lens' CountOpenWorkflowExecutionsResponse (Maybe Bool)-cowerTruncated = lens _cowerTruncated (\s a -> s { _cowerTruncated = a })+-- | The name of the domain containing the workflow executions to count.+coweDomain :: Lens' CountOpenWorkflowExecutions Text+coweDomain = lens _coweDomain (\ s a -> s{_coweDomain = a}); -instance ToPath CountOpenWorkflowExecutions where-    toPath = const "/"+-- | Specifies the start time criteria that workflow executions must meet in+-- order to be counted.+coweStartTimeFilter :: Lens' CountOpenWorkflowExecutions ExecutionTimeFilter+coweStartTimeFilter = lens _coweStartTimeFilter (\ s a -> s{_coweStartTimeFilter = a}); -instance ToQuery CountOpenWorkflowExecutions where-    toQuery = const mempty+instance AWSRequest CountOpenWorkflowExecutions where+        type Sv CountOpenWorkflowExecutions = SWF+        type Rs CountOpenWorkflowExecutions =+             WorkflowExecutionCount+        request = postJSON+        response = receiveJSON (\ s h x -> eitherParseJSON x) -instance ToHeaders CountOpenWorkflowExecutions+instance ToHeaders CountOpenWorkflowExecutions where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SimpleWorkflowService.CountOpenWorkflowExecutions"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.0" :: ByteString)])  instance ToJSON CountOpenWorkflowExecutions where-    toJSON CountOpenWorkflowExecutions{..} = object-        [ "domain"          .= _coweDomain-        , "startTimeFilter" .= _coweStartTimeFilter-        , "typeFilter"      .= _coweTypeFilter-        , "tagFilter"       .= _coweTagFilter-        , "executionFilter" .= _coweExecutionFilter-        ]--instance AWSRequest CountOpenWorkflowExecutions where-    type Sv CountOpenWorkflowExecutions = SWF-    type Rs CountOpenWorkflowExecutions = CountOpenWorkflowExecutionsResponse+        toJSON CountOpenWorkflowExecutions'{..}+          = object+              ["executionFilter" .= _coweExecutionFilter,+               "typeFilter" .= _coweTypeFilter,+               "tagFilter" .= _coweTagFilter,+               "domain" .= _coweDomain,+               "startTimeFilter" .= _coweStartTimeFilter] -    request  = post "CountOpenWorkflowExecutions"-    response = jsonResponse+instance ToPath CountOpenWorkflowExecutions where+        toPath = const "/" -instance FromJSON CountOpenWorkflowExecutionsResponse where-    parseJSON = withObject "CountOpenWorkflowExecutionsResponse" $ \o -> CountOpenWorkflowExecutionsResponse-        <$> o .:  "count"-        <*> o .:? "truncated"+instance ToQuery CountOpenWorkflowExecutions where+        toQuery = const mempty

@@ -1,153 +1,127 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.SWF.CountPendingActivityTasks--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns the estimated number of activity tasks in the specified task list.--- The count returned is an approximation and is not guaranteed to be exact. If--- you specify a task list that no activity task was ever scheduled in then 0--- will be returned.+-- Returns the estimated number of activity tasks in the specified task+-- list. The count returned is an approximation and is not guaranteed to be+-- exact. If you specify a task list that no activity task was ever+-- scheduled in then 0 will be returned. ----- Access Control+-- __Access Control__ ----- You can use IAM policies to control this action's access to Amazon SWF+-- You can use IAM policies to control this action\'s access to Amazon SWF -- resources as follows: ----- Use a 'Resource' element with the domain name to limit the action to only--- specified domains. Use an 'Action' element to allow or deny permission to call--- this action. Constrain the 'taskList.name' parameter by using a Condition--- element with the 'swf:taskList.name' key to allow the action to access only--- certain task lists.  If the caller does not have sufficient permissions to--- invoke the action, or the parameter values fall outside the specified--- constraints, the action fails. The associated event attribute's cause--- parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM--- policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows>.+-- -   Use a 'Resource' element with the domain name to limit the action to+--     only specified domains.+-- -   Use an 'Action' element to allow or deny permission to call this+--     action.+-- -   Constrain the 'taskList.name' parameter by using a __Condition__+--     element with the 'swf:taskList.name' key to allow the action to+--     access only certain task lists. ----- <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_CountPendingActivityTasks.html>+-- If the caller does not have sufficient permissions to invoke the action,+-- or the parameter values fall outside the specified constraints, the+-- action fails. The associated event attribute\'s __cause__ parameter will+-- be set to OPERATION_NOT_PERMITTED. For details and example IAM policies,+-- see+-- <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows>.+--+-- /See:/ <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_CountPendingActivityTasks.html AWS API Reference> for CountPendingActivityTasks. module Network.AWS.SWF.CountPendingActivityTasks     (-    -- * Request-      CountPendingActivityTasks-    -- ** Request constructor-    , countPendingActivityTasks-    -- ** Request lenses+    -- * Creating a Request+      countPendingActivityTasks+    , CountPendingActivityTasks+    -- * Request Lenses     , cpatDomain     , cpatTaskList -    -- * Response-    , CountPendingActivityTasksResponse-    -- ** Response constructor-    , countPendingActivityTasksResponse-    -- ** Response lenses-    , cpatrCount-    , cpatrTruncated+    -- * Destructuring the Response+    , pendingTaskCount+    , PendingTaskCount+    -- * Response Lenses+    , ptcTruncated+    , ptcCount     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.SWF.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SWF.Types+import           Network.AWS.SWF.Types.Product -data CountPendingActivityTasks = CountPendingActivityTasks-    { _cpatDomain   :: Text-    , _cpatTaskList :: TaskList-    } deriving (Eq, Read, Show)+-- | /See:/ 'countPendingActivityTasks' smart constructor.+data CountPendingActivityTasks = CountPendingActivityTasks'+    { _cpatDomain   :: !Text+    , _cpatTaskList :: !TaskList+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CountPendingActivityTasks' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CountPendingActivityTasks' with the minimum fields required to make a request. ----- * 'cpatDomain' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cpatTaskList' @::@ 'TaskList'+-- * 'cpatDomain' ---countPendingActivityTasks :: Text -- ^ 'cpatDomain'-                          -> TaskList -- ^ 'cpatTaskList'-                          -> CountPendingActivityTasks-countPendingActivityTasks p1 p2 = CountPendingActivityTasks-    { _cpatDomain   = p1-    , _cpatTaskList = p2+-- * 'cpatTaskList'+countPendingActivityTasks+    :: Text -- ^ 'cpatDomain'+    -> TaskList -- ^ 'cpatTaskList'+    -> CountPendingActivityTasks+countPendingActivityTasks pDomain_ pTaskList_ =+    CountPendingActivityTasks'+    { _cpatDomain = pDomain_+    , _cpatTaskList = pTaskList_     }  -- | The name of the domain that contains the task list. cpatDomain :: Lens' CountPendingActivityTasks Text-cpatDomain = lens _cpatDomain (\s a -> s { _cpatDomain = a })+cpatDomain = lens _cpatDomain (\ s a -> s{_cpatDomain = a});  -- | The name of the task list. cpatTaskList :: Lens' CountPendingActivityTasks TaskList-cpatTaskList = lens _cpatTaskList (\s a -> s { _cpatTaskList = a })--data CountPendingActivityTasksResponse = CountPendingActivityTasksResponse-    { _cpatrCount     :: Nat-    , _cpatrTruncated :: Maybe Bool-    } deriving (Eq, Ord, Read, Show)+cpatTaskList = lens _cpatTaskList (\ s a -> s{_cpatTaskList = a}); --- | 'CountPendingActivityTasksResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cpatrCount' @::@ 'Natural'------ * 'cpatrTruncated' @::@ 'Maybe' 'Bool'----countPendingActivityTasksResponse :: Natural -- ^ 'cpatrCount'-                                  -> CountPendingActivityTasksResponse-countPendingActivityTasksResponse p1 = CountPendingActivityTasksResponse-    { _cpatrCount     = withIso _Nat (const id) p1-    , _cpatrTruncated = Nothing-    }+instance AWSRequest CountPendingActivityTasks where+        type Sv CountPendingActivityTasks = SWF+        type Rs CountPendingActivityTasks = PendingTaskCount+        request = postJSON+        response = receiveJSON (\ s h x -> eitherParseJSON x) --- | The number of tasks in the task list.-cpatrCount :: Lens' CountPendingActivityTasksResponse Natural-cpatrCount = lens _cpatrCount (\s a -> s { _cpatrCount = a }) . _Nat+instance ToHeaders CountPendingActivityTasks where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SimpleWorkflowService.CountPendingActivityTasks" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.0" :: ByteString)]) --- | If set to true, indicates that the actual count was more than the maximum--- supported by this API and the count returned is the truncated value.-cpatrTruncated :: Lens' CountPendingActivityTasksResponse (Maybe Bool)-cpatrTruncated = lens _cpatrTruncated (\s a -> s { _cpatrTruncated = a })+instance ToJSON CountPendingActivityTasks where+        toJSON CountPendingActivityTasks'{..}+          = object+              ["domain" .= _cpatDomain,+               "taskList" .= _cpatTaskList]  instance ToPath CountPendingActivityTasks where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CountPendingActivityTasks where-    toQuery = const mempty--instance ToHeaders CountPendingActivityTasks--instance ToJSON CountPendingActivityTasks where-    toJSON CountPendingActivityTasks{..} = object-        [ "domain"   .= _cpatDomain-        , "taskList" .= _cpatTaskList-        ]--instance AWSRequest CountPendingActivityTasks where-    type Sv CountPendingActivityTasks = SWF-    type Rs CountPendingActivityTasks = CountPendingActivityTasksResponse--    request  = post "CountPendingActivityTasks"-    response = jsonResponse--instance FromJSON CountPendingActivityTasksResponse where-    parseJSON = withObject "CountPendingActivityTasksResponse" $ \o -> CountPendingActivityTasksResponse-        <$> o .:  "count"-        <*> o .:? "truncated"+        toQuery = const mempty

@@ -1,153 +1,127 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.SWF.CountPendingDecisionTasks--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns the estimated number of decision tasks in the specified task list.--- The count returned is an approximation and is not guaranteed to be exact. If--- you specify a task list that no decision task was ever scheduled in then 0--- will be returned.+-- Returns the estimated number of decision tasks in the specified task+-- list. The count returned is an approximation and is not guaranteed to be+-- exact. If you specify a task list that no decision task was ever+-- scheduled in then 0 will be returned. ----- Access Control+-- __Access Control__ ----- You can use IAM policies to control this action's access to Amazon SWF+-- You can use IAM policies to control this action\'s access to Amazon SWF -- resources as follows: ----- Use a 'Resource' element with the domain name to limit the action to only--- specified domains. Use an 'Action' element to allow or deny permission to call--- this action. Constrain the 'taskList.name' parameter by using a Condition--- element with the 'swf:taskList.name' key to allow the action to access only--- certain task lists.  If the caller does not have sufficient permissions to--- invoke the action, or the parameter values fall outside the specified--- constraints, the action fails. The associated event attribute's cause--- parameter will be set to OPERATION_NOT_PERMITTED. For details and example IAM--- policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows>.+-- -   Use a 'Resource' element with the domain name to limit the action to+--     only specified domains.+-- -   Use an 'Action' element to allow or deny permission to call this+--     action.+-- -   Constrain the 'taskList.name' parameter by using a __Condition__+--     element with the 'swf:taskList.name' key to allow the action to+--     access only certain task lists. ----- <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_CountPendingDecisionTasks.html>+-- If the caller does not have sufficient permissions to invoke the action,+-- or the parameter values fall outside the specified constraints, the+-- action fails. The associated event attribute\'s __cause__ parameter will+-- be set to OPERATION_NOT_PERMITTED. For details and example IAM policies,+-- see+-- <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows>.+--+-- /See:/ <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_CountPendingDecisionTasks.html AWS API Reference> for CountPendingDecisionTasks. module Network.AWS.SWF.CountPendingDecisionTasks     (-    -- * Request-      CountPendingDecisionTasks-    -- ** Request constructor-    , countPendingDecisionTasks-    -- ** Request lenses+    -- * Creating a Request+      countPendingDecisionTasks+    , CountPendingDecisionTasks+    -- * Request Lenses     , cpdtDomain     , cpdtTaskList -    -- * Response-    , CountPendingDecisionTasksResponse-    -- ** Response constructor-    , countPendingDecisionTasksResponse-    -- ** Response lenses-    , cpdtrCount-    , cpdtrTruncated+    -- * Destructuring the Response+    , pendingTaskCount+    , PendingTaskCount+    -- * Response Lenses+    , ptcTruncated+    , ptcCount     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.SWF.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SWF.Types+import           Network.AWS.SWF.Types.Product -data CountPendingDecisionTasks = CountPendingDecisionTasks-    { _cpdtDomain   :: Text-    , _cpdtTaskList :: TaskList-    } deriving (Eq, Read, Show)+-- | /See:/ 'countPendingDecisionTasks' smart constructor.+data CountPendingDecisionTasks = CountPendingDecisionTasks'+    { _cpdtDomain   :: !Text+    , _cpdtTaskList :: !TaskList+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CountPendingDecisionTasks' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CountPendingDecisionTasks' with the minimum fields required to make a request. ----- * 'cpdtDomain' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cpdtTaskList' @::@ 'TaskList'+-- * 'cpdtDomain' ---countPendingDecisionTasks :: Text -- ^ 'cpdtDomain'-                          -> TaskList -- ^ 'cpdtTaskList'-                          -> CountPendingDecisionTasks-countPendingDecisionTasks p1 p2 = CountPendingDecisionTasks-    { _cpdtDomain   = p1-    , _cpdtTaskList = p2+-- * 'cpdtTaskList'+countPendingDecisionTasks+    :: Text -- ^ 'cpdtDomain'+    -> TaskList -- ^ 'cpdtTaskList'+    -> CountPendingDecisionTasks+countPendingDecisionTasks pDomain_ pTaskList_ =+    CountPendingDecisionTasks'+    { _cpdtDomain = pDomain_+    , _cpdtTaskList = pTaskList_     }  -- | The name of the domain that contains the task list. cpdtDomain :: Lens' CountPendingDecisionTasks Text-cpdtDomain = lens _cpdtDomain (\s a -> s { _cpdtDomain = a })+cpdtDomain = lens _cpdtDomain (\ s a -> s{_cpdtDomain = a});  -- | The name of the task list. cpdtTaskList :: Lens' CountPendingDecisionTasks TaskList-cpdtTaskList = lens _cpdtTaskList (\s a -> s { _cpdtTaskList = a })--data CountPendingDecisionTasksResponse = CountPendingDecisionTasksResponse-    { _cpdtrCount     :: Nat-    , _cpdtrTruncated :: Maybe Bool-    } deriving (Eq, Ord, Read, Show)+cpdtTaskList = lens _cpdtTaskList (\ s a -> s{_cpdtTaskList = a}); --- | 'CountPendingDecisionTasksResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cpdtrCount' @::@ 'Natural'------ * 'cpdtrTruncated' @::@ 'Maybe' 'Bool'----countPendingDecisionTasksResponse :: Natural -- ^ 'cpdtrCount'-                                  -> CountPendingDecisionTasksResponse-countPendingDecisionTasksResponse p1 = CountPendingDecisionTasksResponse-    { _cpdtrCount     = withIso _Nat (const id) p1-    , _cpdtrTruncated = Nothing-    }+instance AWSRequest CountPendingDecisionTasks where+        type Sv CountPendingDecisionTasks = SWF+        type Rs CountPendingDecisionTasks = PendingTaskCount+        request = postJSON+        response = receiveJSON (\ s h x -> eitherParseJSON x) --- | The number of tasks in the task list.-cpdtrCount :: Lens' CountPendingDecisionTasksResponse Natural-cpdtrCount = lens _cpdtrCount (\s a -> s { _cpdtrCount = a }) . _Nat+instance ToHeaders CountPendingDecisionTasks where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SimpleWorkflowService.CountPendingDecisionTasks" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.0" :: ByteString)]) --- | If set to true, indicates that the actual count was more than the maximum--- supported by this API and the count returned is the truncated value.-cpdtrTruncated :: Lens' CountPendingDecisionTasksResponse (Maybe Bool)-cpdtrTruncated = lens _cpdtrTruncated (\s a -> s { _cpdtrTruncated = a })+instance ToJSON CountPendingDecisionTasks where+        toJSON CountPendingDecisionTasks'{..}+          = object+              ["domain" .= _cpdtDomain,+               "taskList" .= _cpdtTaskList]  instance ToPath CountPendingDecisionTasks where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CountPendingDecisionTasks where-    toQuery = const mempty--instance ToHeaders CountPendingDecisionTasks--instance ToJSON CountPendingDecisionTasks where-    toJSON CountPendingDecisionTasks{..} = object-        [ "domain"   .= _cpdtDomain-        , "taskList" .= _cpdtTaskList-        ]--instance AWSRequest CountPendingDecisionTasks where-    type Sv CountPendingDecisionTasks = SWF-    type Rs CountPendingDecisionTasks = CountPendingDecisionTasksResponse--    request  = post "CountPendingDecisionTasks"-    response = jsonResponse--instance FromJSON CountPendingDecisionTasksResponse where-    parseJSON = withObject "CountPendingDecisionTasksResponse" $ \o -> CountPendingDecisionTasksResponse-        <$> o .:  "count"-        <*> o .:? "truncated"+        toQuery = const mempty

@@ -1,122 +1,142 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.SWF.DeprecateActivityType--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deprecates the specified /activity type/. After an activity type has been--- deprecated, you cannot create new tasks of that activity type. Tasks of this--- type that were scheduled before the type was deprecated will continue to run.+-- Deprecates the specified /activity type/. After an activity type has+-- been deprecated, you cannot create new tasks of that activity type.+-- Tasks of this type that were scheduled before the type was deprecated+-- will continue to run. ----- This operation is eventually consistent. The results are best effort and may--- not exactly reflect recent updates and changes. Access Control+-- This operation is eventually consistent. The results are best effort and+-- may not exactly reflect recent updates and changes. ----- You can use IAM policies to control this action's access to Amazon SWF+-- __Access Control__+--+-- You can use IAM policies to control this action\'s access to Amazon SWF -- resources as follows: ----- Use a 'Resource' element with the domain name to limit the action to only--- specified domains. Use an 'Action' element to allow or deny permission to call--- this action. Constrain the following parameters by using a 'Condition' element--- with the appropriate keys.  'activityType.name': String constraint. The key is 'swf:activityType.name'. 'activityType.version': String constraint. The key is 'swf:activityType.version'--- .    If the caller does not have sufficient permissions to invoke the action,--- or the parameter values fall outside the specified constraints, the action--- fails. The associated event attribute's cause parameter will be set to--- OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAMto Manage Access to Amazon SWF Workflows>.+-- -   Use a 'Resource' element with the domain name to limit the action to+--     only specified domains.+-- -   Use an 'Action' element to allow or deny permission to call this+--     action.+-- -   Constrain the following parameters by using a 'Condition' element+--     with the appropriate keys.+--     -   'activityType.name': String constraint. The key is+--         'swf:activityType.name'.+--     -   'activityType.version': String constraint. The key is+--         'swf:activityType.version'. ----- <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_DeprecateActivityType.html>+-- If the caller does not have sufficient permissions to invoke the action,+-- or the parameter values fall outside the specified constraints, the+-- action fails. The associated event attribute\'s __cause__ parameter will+-- be set to OPERATION_NOT_PERMITTED. For details and example IAM policies,+-- see+-- <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows>.+--+-- /See:/ <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_DeprecateActivityType.html AWS API Reference> for DeprecateActivityType. module Network.AWS.SWF.DeprecateActivityType     (-    -- * Request-      DeprecateActivityType-    -- ** Request constructor-    , deprecateActivityType-    -- ** Request lenses-    , dat1ActivityType-    , dat1Domain+    -- * Creating a Request+      deprecateActivityType+    , DeprecateActivityType+    -- * Request Lenses+    , depDomain+    , depActivityType -    -- * Response-    , DeprecateActivityTypeResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deprecateActivityTypeResponse+    , DeprecateActivityTypeResponse     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.SWF.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SWF.Types+import           Network.AWS.SWF.Types.Product -data DeprecateActivityType = DeprecateActivityType-    { _dat1ActivityType :: ActivityType-    , _dat1Domain       :: Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'deprecateActivityType' smart constructor.+data DeprecateActivityType = DeprecateActivityType'+    { _depDomain       :: !Text+    , _depActivityType :: !ActivityType+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeprecateActivityType' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeprecateActivityType' with the minimum fields required to make a request. ----- * 'dat1ActivityType' @::@ 'ActivityType'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dat1Domain' @::@ 'Text'+-- * 'depDomain' ---deprecateActivityType :: Text -- ^ 'dat1Domain'-                      -> ActivityType -- ^ 'dat1ActivityType'-                      -> DeprecateActivityType-deprecateActivityType p1 p2 = DeprecateActivityType-    { _dat1Domain       = p1-    , _dat1ActivityType = p2+-- * 'depActivityType'+deprecateActivityType+    :: Text -- ^ 'depDomain'+    -> ActivityType -- ^ 'depActivityType'+    -> DeprecateActivityType+deprecateActivityType pDomain_ pActivityType_ =+    DeprecateActivityType'+    { _depDomain = pDomain_+    , _depActivityType = pActivityType_     } +-- | The name of the domain in which the activity type is registered.+depDomain :: Lens' DeprecateActivityType Text+depDomain = lens _depDomain (\ s a -> s{_depDomain = a});+ -- | The activity type to deprecate.-dat1ActivityType :: Lens' DeprecateActivityType ActivityType-dat1ActivityType = lens _dat1ActivityType (\s a -> s { _dat1ActivityType = a })+depActivityType :: Lens' DeprecateActivityType ActivityType+depActivityType = lens _depActivityType (\ s a -> s{_depActivityType = a}); --- | The name of the domain in which the activity type is registered.-dat1Domain :: Lens' DeprecateActivityType Text-dat1Domain = lens _dat1Domain (\s a -> s { _dat1Domain = a })+instance AWSRequest DeprecateActivityType where+        type Sv DeprecateActivityType = SWF+        type Rs DeprecateActivityType =+             DeprecateActivityTypeResponse+        request = postJSON+        response = receiveNull DeprecateActivityTypeResponse' -data DeprecateActivityTypeResponse = DeprecateActivityTypeResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance ToHeaders DeprecateActivityType where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SimpleWorkflowService.DeprecateActivityType" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.0" :: ByteString)]) --- | 'DeprecateActivityTypeResponse' constructor.-deprecateActivityTypeResponse :: DeprecateActivityTypeResponse-deprecateActivityTypeResponse = DeprecateActivityTypeResponse+instance ToJSON DeprecateActivityType where+        toJSON DeprecateActivityType'{..}+          = object+              ["domain" .= _depDomain,+               "activityType" .= _depActivityType]  instance ToPath DeprecateActivityType where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeprecateActivityType where-    toQuery = const mempty--instance ToHeaders DeprecateActivityType--instance ToJSON DeprecateActivityType where-    toJSON DeprecateActivityType{..} = object-        [ "domain"       .= _dat1Domain-        , "activityType" .= _dat1ActivityType-        ]+        toQuery = const mempty -instance AWSRequest DeprecateActivityType where-    type Sv DeprecateActivityType = SWF-    type Rs DeprecateActivityType = DeprecateActivityTypeResponse+-- | /See:/ 'deprecateActivityTypeResponse' smart constructor.+data DeprecateActivityTypeResponse =+    DeprecateActivityTypeResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeprecateActivityType"-    response = nullResponse DeprecateActivityTypeResponse+-- | Creates a value of 'DeprecateActivityTypeResponse' with the minimum fields required to make a request.+--+deprecateActivityTypeResponse+    :: DeprecateActivityTypeResponse+deprecateActivityTypeResponse = DeprecateActivityTypeResponse'

@@ -1,113 +1,126 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.SWF.DeprecateDomain--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deprecates the specified domain. After a domain has been deprecated it cannot--- be used to create new workflow executions or register new types. However, you--- can still use visibility actions on this domain. Deprecating a domain also--- deprecates all activity and workflow types registered in the domain.--- Executions that were started before the domain was deprecated will continue--- to run.+-- Deprecates the specified domain. After a domain has been deprecated it+-- cannot be used to create new workflow executions or register new types.+-- However, you can still use visibility actions on this domain.+-- Deprecating a domain also deprecates all activity and workflow types+-- registered in the domain. Executions that were started before the domain+-- was deprecated will continue to run. ----- This operation is eventually consistent. The results are best effort and may--- not exactly reflect recent updates and changes. Access Control+-- This operation is eventually consistent. The results are best effort and+-- may not exactly reflect recent updates and changes. ----- You can use IAM policies to control this action's access to Amazon SWF+-- __Access Control__+--+-- You can use IAM policies to control this action\'s access to Amazon SWF -- resources as follows: ----- Use a 'Resource' element with the domain name to limit the action to only--- specified domains. Use an 'Action' element to allow or deny permission to call--- this action. You cannot use an IAM policy to constrain this action's--- parameters.  If the caller does not have sufficient permissions to invoke the--- action, or the parameter values fall outside the specified constraints, the--- action fails. The associated event attribute's cause parameter will be set to--- OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAMto Manage Access to Amazon SWF Workflows>.+-- -   Use a 'Resource' element with the domain name to limit the action to+--     only specified domains.+-- -   Use an 'Action' element to allow or deny permission to call this+--     action.+-- -   You cannot use an IAM policy to constrain this action\'s parameters. ----- <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_DeprecateDomain.html>+-- If the caller does not have sufficient permissions to invoke the action,+-- or the parameter values fall outside the specified constraints, the+-- action fails. The associated event attribute\'s __cause__ parameter will+-- be set to OPERATION_NOT_PERMITTED. For details and example IAM policies,+-- see+-- <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows>.+--+-- /See:/ <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_DeprecateDomain.html AWS API Reference> for DeprecateDomain. module Network.AWS.SWF.DeprecateDomain     (-    -- * Request-      DeprecateDomain-    -- ** Request constructor-    , deprecateDomain-    -- ** Request lenses-    , dd1Name+    -- * Creating a Request+      deprecateDomain+    , DeprecateDomain+    -- * Request Lenses+    , dName -    -- * Response-    , DeprecateDomainResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deprecateDomainResponse+    , DeprecateDomainResponse     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.SWF.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SWF.Types+import           Network.AWS.SWF.Types.Product -newtype DeprecateDomain = DeprecateDomain-    { _dd1Name :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+-- | /See:/ 'deprecateDomain' smart constructor.+newtype DeprecateDomain = DeprecateDomain'+    { _dName :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeprecateDomain' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeprecateDomain' with the minimum fields required to make a request. ----- * 'dd1Name' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deprecateDomain :: Text -- ^ 'dd1Name'-                -> DeprecateDomain-deprecateDomain p1 = DeprecateDomain-    { _dd1Name = p1+-- * 'dName'+deprecateDomain+    :: Text -- ^ 'dName'+    -> DeprecateDomain+deprecateDomain pName_ =+    DeprecateDomain'+    { _dName = pName_     }  -- | The name of the domain to deprecate.-dd1Name :: Lens' DeprecateDomain Text-dd1Name = lens _dd1Name (\s a -> s { _dd1Name = a })+dName :: Lens' DeprecateDomain Text+dName = lens _dName (\ s a -> s{_dName = a}); -data DeprecateDomainResponse = DeprecateDomainResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeprecateDomain where+        type Sv DeprecateDomain = SWF+        type Rs DeprecateDomain = DeprecateDomainResponse+        request = postJSON+        response = receiveNull DeprecateDomainResponse' --- | 'DeprecateDomainResponse' constructor.-deprecateDomainResponse :: DeprecateDomainResponse-deprecateDomainResponse = DeprecateDomainResponse+instance ToHeaders DeprecateDomain where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SimpleWorkflowService.DeprecateDomain" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.0" :: ByteString)]) +instance ToJSON DeprecateDomain where+        toJSON DeprecateDomain'{..}+          = object ["name" .= _dName]+ instance ToPath DeprecateDomain where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeprecateDomain where-    toQuery = const mempty--instance ToHeaders DeprecateDomain--instance ToJSON DeprecateDomain where-    toJSON DeprecateDomain{..} = object-        [ "name" .= _dd1Name-        ]+        toQuery = const mempty -instance AWSRequest DeprecateDomain where-    type Sv DeprecateDomain = SWF-    type Rs DeprecateDomain = DeprecateDomainResponse+-- | /See:/ 'deprecateDomainResponse' smart constructor.+data DeprecateDomainResponse =+    DeprecateDomainResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeprecateDomain"-    response = nullResponse DeprecateDomainResponse+-- | Creates a value of 'DeprecateDomainResponse' with the minimum fields required to make a request.+--+deprecateDomainResponse+    :: DeprecateDomainResponse+deprecateDomainResponse = DeprecateDomainResponse'

@@ -1,123 +1,143 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.SWF.DeprecateWorkflowType--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deprecates the specified /workflow type/. After a workflow type has been--- deprecated, you cannot create new executions of that type. Executions that--- were started before the type was deprecated will continue to run. A--- deprecated workflow type may still be used when calling visibility actions.+-- Deprecates the specified /workflow type/. After a workflow type has been+-- deprecated, you cannot create new executions of that type. Executions+-- that were started before the type was deprecated will continue to run. A+-- deprecated workflow type may still be used when calling visibility+-- actions. ----- This operation is eventually consistent. The results are best effort and may--- not exactly reflect recent updates and changes. Access Control+-- This operation is eventually consistent. The results are best effort and+-- may not exactly reflect recent updates and changes. ----- You can use IAM policies to control this action's access to Amazon SWF+-- __Access Control__+--+-- You can use IAM policies to control this action\'s access to Amazon SWF -- resources as follows: ----- Use a 'Resource' element with the domain name to limit the action to only--- specified domains. Use an 'Action' element to allow or deny permission to call--- this action. Constrain the following parameters by using a 'Condition' element--- with the appropriate keys.  'workflowType.name': String constraint. The key is 'swf:workflowType.name'. 'workflowType.version': String constraint. The key is 'swf:workflowType.version'--- .    If the caller does not have sufficient permissions to invoke the action,--- or the parameter values fall outside the specified constraints, the action--- fails. The associated event attribute's cause parameter will be set to--- OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAMto Manage Access to Amazon SWF Workflows>.+-- -   Use a 'Resource' element with the domain name to limit the action to+--     only specified domains.+-- -   Use an 'Action' element to allow or deny permission to call this+--     action.+-- -   Constrain the following parameters by using a 'Condition' element+--     with the appropriate keys.+--     -   'workflowType.name': String constraint. The key is+--         'swf:workflowType.name'.+--     -   'workflowType.version': String constraint. The key is+--         'swf:workflowType.version'. ----- <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_DeprecateWorkflowType.html>+-- If the caller does not have sufficient permissions to invoke the action,+-- or the parameter values fall outside the specified constraints, the+-- action fails. The associated event attribute\'s __cause__ parameter will+-- be set to OPERATION_NOT_PERMITTED. For details and example IAM policies,+-- see+-- <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows>.+--+-- /See:/ <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_DeprecateWorkflowType.html AWS API Reference> for DeprecateWorkflowType. module Network.AWS.SWF.DeprecateWorkflowType     (-    -- * Request-      DeprecateWorkflowType-    -- ** Request constructor-    , deprecateWorkflowType-    -- ** Request lenses-    , dwt1Domain-    , dwt1WorkflowType+    -- * Creating a Request+      deprecateWorkflowType+    , DeprecateWorkflowType+    -- * Request Lenses+    , dDomain+    , dWorkflowType -    -- * Response-    , DeprecateWorkflowTypeResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deprecateWorkflowTypeResponse+    , DeprecateWorkflowTypeResponse     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.SWF.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SWF.Types+import           Network.AWS.SWF.Types.Product -data DeprecateWorkflowType = DeprecateWorkflowType-    { _dwt1Domain       :: Text-    , _dwt1WorkflowType :: WorkflowType-    } deriving (Eq, Read, Show)+-- | /See:/ 'deprecateWorkflowType' smart constructor.+data DeprecateWorkflowType = DeprecateWorkflowType'+    { _dDomain       :: !Text+    , _dWorkflowType :: !WorkflowType+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeprecateWorkflowType' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeprecateWorkflowType' with the minimum fields required to make a request. ----- * 'dwt1Domain' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dwt1WorkflowType' @::@ 'WorkflowType'+-- * 'dDomain' ---deprecateWorkflowType :: Text -- ^ 'dwt1Domain'-                      -> WorkflowType -- ^ 'dwt1WorkflowType'-                      -> DeprecateWorkflowType-deprecateWorkflowType p1 p2 = DeprecateWorkflowType-    { _dwt1Domain       = p1-    , _dwt1WorkflowType = p2+-- * 'dWorkflowType'+deprecateWorkflowType+    :: Text -- ^ 'dDomain'+    -> WorkflowType -- ^ 'dWorkflowType'+    -> DeprecateWorkflowType+deprecateWorkflowType pDomain_ pWorkflowType_ =+    DeprecateWorkflowType'+    { _dDomain = pDomain_+    , _dWorkflowType = pWorkflowType_     }  -- | The name of the domain in which the workflow type is registered.-dwt1Domain :: Lens' DeprecateWorkflowType Text-dwt1Domain = lens _dwt1Domain (\s a -> s { _dwt1Domain = a })+dDomain :: Lens' DeprecateWorkflowType Text+dDomain = lens _dDomain (\ s a -> s{_dDomain = a});  -- | The workflow type to deprecate.-dwt1WorkflowType :: Lens' DeprecateWorkflowType WorkflowType-dwt1WorkflowType = lens _dwt1WorkflowType (\s a -> s { _dwt1WorkflowType = a })+dWorkflowType :: Lens' DeprecateWorkflowType WorkflowType+dWorkflowType = lens _dWorkflowType (\ s a -> s{_dWorkflowType = a}); -data DeprecateWorkflowTypeResponse = DeprecateWorkflowTypeResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeprecateWorkflowType where+        type Sv DeprecateWorkflowType = SWF+        type Rs DeprecateWorkflowType =+             DeprecateWorkflowTypeResponse+        request = postJSON+        response = receiveNull DeprecateWorkflowTypeResponse' --- | 'DeprecateWorkflowTypeResponse' constructor.-deprecateWorkflowTypeResponse :: DeprecateWorkflowTypeResponse-deprecateWorkflowTypeResponse = DeprecateWorkflowTypeResponse+instance ToHeaders DeprecateWorkflowType where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SimpleWorkflowService.DeprecateWorkflowType" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.0" :: ByteString)]) +instance ToJSON DeprecateWorkflowType where+        toJSON DeprecateWorkflowType'{..}+          = object+              ["domain" .= _dDomain,+               "workflowType" .= _dWorkflowType]+ instance ToPath DeprecateWorkflowType where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeprecateWorkflowType where-    toQuery = const mempty--instance ToHeaders DeprecateWorkflowType--instance ToJSON DeprecateWorkflowType where-    toJSON DeprecateWorkflowType{..} = object-        [ "domain"       .= _dwt1Domain-        , "workflowType" .= _dwt1WorkflowType-        ]+        toQuery = const mempty -instance AWSRequest DeprecateWorkflowType where-    type Sv DeprecateWorkflowType = SWF-    type Rs DeprecateWorkflowType = DeprecateWorkflowTypeResponse+-- | /See:/ 'deprecateWorkflowTypeResponse' smart constructor.+data DeprecateWorkflowTypeResponse =+    DeprecateWorkflowTypeResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeprecateWorkflowType"-    response = nullResponse DeprecateWorkflowTypeResponse+-- | Creates a value of 'DeprecateWorkflowTypeResponse' with the minimum fields required to make a request.+--+deprecateWorkflowTypeResponse+    :: DeprecateWorkflowTypeResponse+deprecateWorkflowTypeResponse = DeprecateWorkflowTypeResponse'

@@ -1,160 +1,189 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.SWF.DescribeActivityType--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns information about the specified activity type. This includes+-- Returns information about the specified activity type. This includes -- configuration settings provided when the type was registered and other -- general information about the type. ----- Access Control+-- __Access Control__ ----- You can use IAM policies to control this action's access to Amazon SWF+-- You can use IAM policies to control this action\'s access to Amazon SWF -- resources as follows: ----- Use a 'Resource' element with the domain name to limit the action to only--- specified domains. Use an 'Action' element to allow or deny permission to call--- this action. Constrain the following parameters by using a 'Condition' element--- with the appropriate keys.  'activityType.name': String constraint. The key is 'swf:activityType.name'. 'activityType.version': String constraint. The key is 'swf:activityType.version'--- .    If the caller does not have sufficient permissions to invoke the action,--- or the parameter values fall outside the specified constraints, the action--- fails. The associated event attribute's cause parameter will be set to--- OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAMto Manage Access to Amazon SWF Workflows>.+-- -   Use a 'Resource' element with the domain name to limit the action to+--     only specified domains.+-- -   Use an 'Action' element to allow or deny permission to call this+--     action.+-- -   Constrain the following parameters by using a 'Condition' element+--     with the appropriate keys.+--     -   'activityType.name': String constraint. The key is+--         'swf:activityType.name'.+--     -   'activityType.version': String constraint. The key is+--         'swf:activityType.version'. ----- <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_DescribeActivityType.html>+-- If the caller does not have sufficient permissions to invoke the action,+-- or the parameter values fall outside the specified constraints, the+-- action fails. The associated event attribute\'s __cause__ parameter will+-- be set to OPERATION_NOT_PERMITTED. For details and example IAM policies,+-- see+-- <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows>.+--+-- /See:/ <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_DescribeActivityType.html AWS API Reference> for DescribeActivityType. module Network.AWS.SWF.DescribeActivityType     (-    -- * Request-      DescribeActivityType-    -- ** Request constructor-    , describeActivityType-    -- ** Request lenses-    , datActivityType+    -- * Creating a Request+      describeActivityType+    , DescribeActivityType+    -- * Request Lenses     , datDomain+    , datActivityType -    -- * Response-    , DescribeActivityTypeResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeActivityTypeResponse-    -- ** Response lenses-    , datrConfiguration-    , datrTypeInfo+    , DescribeActivityTypeResponse+    -- * Response Lenses+    , datrsStatus+    , datrsTypeInfo+    , datrsConfiguration     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.SWF.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SWF.Types+import           Network.AWS.SWF.Types.Product -data DescribeActivityType = DescribeActivityType-    { _datActivityType :: ActivityType-    , _datDomain       :: Text-    } deriving (Eq, Read, Show)+-- | /See:/ 'describeActivityType' smart constructor.+data DescribeActivityType = DescribeActivityType'+    { _datDomain       :: !Text+    , _datActivityType :: !ActivityType+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeActivityType' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeActivityType' with the minimum fields required to make a request. ----- * 'datActivityType' @::@ 'ActivityType'+-- Use one of the following lenses to modify other fields as desired: ----- * 'datDomain' @::@ 'Text'+-- * 'datDomain' ---describeActivityType :: Text -- ^ 'datDomain'-                     -> ActivityType -- ^ 'datActivityType'-                     -> DescribeActivityType-describeActivityType p1 p2 = DescribeActivityType-    { _datDomain       = p1-    , _datActivityType = p2+-- * 'datActivityType'+describeActivityType+    :: Text -- ^ 'datDomain'+    -> ActivityType -- ^ 'datActivityType'+    -> DescribeActivityType+describeActivityType pDomain_ pActivityType_ =+    DescribeActivityType'+    { _datDomain = pDomain_+    , _datActivityType = pActivityType_     } --- | The activity type to get information about. Activity types are identified by--- the 'name' and 'version' that were supplied when the activity was registered.-datActivityType :: Lens' DescribeActivityType ActivityType-datActivityType = lens _datActivityType (\s a -> s { _datActivityType = a })- -- | The name of the domain in which the activity type is registered. datDomain :: Lens' DescribeActivityType Text-datDomain = lens _datDomain (\s a -> s { _datDomain = a })+datDomain = lens _datDomain (\ s a -> s{_datDomain = a}); -data DescribeActivityTypeResponse = DescribeActivityTypeResponse-    { _datrConfiguration :: ActivityTypeConfiguration-    , _datrTypeInfo      :: ActivityTypeInfo-    } deriving (Eq, Read, Show)+-- | The activity type to get information about. Activity types are+-- identified by the 'name' and 'version' that were supplied when the+-- activity was registered.+datActivityType :: Lens' DescribeActivityType ActivityType+datActivityType = lens _datActivityType (\ s a -> s{_datActivityType = a}); --- | 'DescribeActivityTypeResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'datrConfiguration' @::@ 'ActivityTypeConfiguration'------ * 'datrTypeInfo' @::@ 'ActivityTypeInfo'----describeActivityTypeResponse :: ActivityTypeInfo -- ^ 'datrTypeInfo'-                             -> ActivityTypeConfiguration -- ^ 'datrConfiguration'-                             -> DescribeActivityTypeResponse-describeActivityTypeResponse p1 p2 = DescribeActivityTypeResponse-    { _datrTypeInfo      = p1-    , _datrConfiguration = p2-    }+instance AWSRequest DescribeActivityType where+        type Sv DescribeActivityType = SWF+        type Rs DescribeActivityType =+             DescribeActivityTypeResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DescribeActivityTypeResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "typeInfo") <*>+                     (x .:> "configuration")) --- | The configuration settings registered with the activity type.-datrConfiguration :: Lens' DescribeActivityTypeResponse ActivityTypeConfiguration-datrConfiguration =-    lens _datrConfiguration (\s a -> s { _datrConfiguration = a })+instance ToHeaders DescribeActivityType where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SimpleWorkflowService.DescribeActivityType" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.0" :: ByteString)]) --- | General information about the activity type.------ The status of activity type (returned in the ActivityTypeInfo structure) can--- be one of the following.------ REGISTERED: The type is registered and available. Workers supporting this--- type should be running.   DEPRECATED: The type was deprecated using 'DeprecateActivityType', but is still in use. You should keep workers supporting this type running.--- You cannot create new tasks of this type.-datrTypeInfo :: Lens' DescribeActivityTypeResponse ActivityTypeInfo-datrTypeInfo = lens _datrTypeInfo (\s a -> s { _datrTypeInfo = a })+instance ToJSON DescribeActivityType where+        toJSON DescribeActivityType'{..}+          = object+              ["domain" .= _datDomain,+               "activityType" .= _datActivityType]  instance ToPath DescribeActivityType where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeActivityType where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders DescribeActivityType+-- | Detailed information about an activity type.+--+-- /See:/ 'describeActivityTypeResponse' smart constructor.+data DescribeActivityTypeResponse = DescribeActivityTypeResponse'+    { _datrsStatus        :: !Int+    , _datrsTypeInfo      :: !ActivityTypeInfo+    , _datrsConfiguration :: !ActivityTypeConfiguration+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON DescribeActivityType where-    toJSON DescribeActivityType{..} = object-        [ "domain"       .= _datDomain-        , "activityType" .= _datActivityType-        ]+-- | Creates a value of 'DescribeActivityTypeResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'datrsStatus'+--+-- * 'datrsTypeInfo'+--+-- * 'datrsConfiguration'+describeActivityTypeResponse+    :: Int -- ^ 'datrsStatus'+    -> ActivityTypeInfo -- ^ 'datrsTypeInfo'+    -> ActivityTypeConfiguration -- ^ 'datrsConfiguration'+    -> DescribeActivityTypeResponse+describeActivityTypeResponse pStatus_ pTypeInfo_ pConfiguration_ =+    DescribeActivityTypeResponse'+    { _datrsStatus = pStatus_+    , _datrsTypeInfo = pTypeInfo_+    , _datrsConfiguration = pConfiguration_+    } -instance AWSRequest DescribeActivityType where-    type Sv DescribeActivityType = SWF-    type Rs DescribeActivityType = DescribeActivityTypeResponse+-- | The response status code.+datrsStatus :: Lens' DescribeActivityTypeResponse Int+datrsStatus = lens _datrsStatus (\ s a -> s{_datrsStatus = a}); -    request  = post "DescribeActivityType"-    response = jsonResponse+-- | General information about the activity type.+--+-- The status of activity type (returned in the ActivityTypeInfo structure)+-- can be one of the following.+--+-- -   __REGISTERED__: The type is registered and available. Workers+--     supporting this type should be running.+-- -   __DEPRECATED__: The type was deprecated using DeprecateActivityType,+--     but is still in use. You should keep workers supporting this type+--     running. You cannot create new tasks of this type.+datrsTypeInfo :: Lens' DescribeActivityTypeResponse ActivityTypeInfo+datrsTypeInfo = lens _datrsTypeInfo (\ s a -> s{_datrsTypeInfo = a}); -instance FromJSON DescribeActivityTypeResponse where-    parseJSON = withObject "DescribeActivityTypeResponse" $ \o -> DescribeActivityTypeResponse-        <$> o .:  "configuration"-        <*> o .:  "typeInfo"+-- | The configuration settings registered with the activity type.+datrsConfiguration :: Lens' DescribeActivityTypeResponse ActivityTypeConfiguration+datrsConfiguration = lens _datrsConfiguration (\ s a -> s{_datrsConfiguration = a});

@@ -1,136 +1,159 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.SWF.DescribeDomain--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns information about the specified domain, including description and--- status.+-- Returns information about the specified domain, including description+-- and status. ----- Access Control+-- __Access Control__ ----- You can use IAM policies to control this action's access to Amazon SWF+-- You can use IAM policies to control this action\'s access to Amazon SWF -- resources as follows: ----- Use a 'Resource' element with the domain name to limit the action to only--- specified domains. Use an 'Action' element to allow or deny permission to call--- this action. You cannot use an IAM policy to constrain this action's--- parameters.  If the caller does not have sufficient permissions to invoke the--- action, or the parameter values fall outside the specified constraints, the--- action fails. The associated event attribute's cause parameter will be set to--- OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAMto Manage Access to Amazon SWF Workflows>.+-- -   Use a 'Resource' element with the domain name to limit the action to+--     only specified domains.+-- -   Use an 'Action' element to allow or deny permission to call this+--     action.+-- -   You cannot use an IAM policy to constrain this action\'s parameters. ----- <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_DescribeDomain.html>+-- If the caller does not have sufficient permissions to invoke the action,+-- or the parameter values fall outside the specified constraints, the+-- action fails. The associated event attribute\'s __cause__ parameter will+-- be set to OPERATION_NOT_PERMITTED. For details and example IAM policies,+-- see+-- <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows>.+--+-- /See:/ <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_DescribeDomain.html AWS API Reference> for DescribeDomain. module Network.AWS.SWF.DescribeDomain     (-    -- * Request-      DescribeDomain-    -- ** Request constructor-    , describeDomain-    -- ** Request lenses+    -- * Creating a Request+      describeDomain+    , DescribeDomain+    -- * Request Lenses     , ddName -    -- * Response-    , DescribeDomainResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeDomainResponse-    -- ** Response lenses-    , ddrConfiguration-    , ddrDomainInfo+    , DescribeDomainResponse+    -- * Response Lenses+    , ddrsStatus+    , ddrsDomainInfo+    , ddrsConfiguration     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.SWF.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SWF.Types+import           Network.AWS.SWF.Types.Product -newtype DescribeDomain = DescribeDomain+-- | /See:/ 'describeDomain' smart constructor.+newtype DescribeDomain = DescribeDomain'     { _ddName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeDomain' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeDomain' with the minimum fields required to make a request. ----- * 'ddName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---describeDomain :: Text -- ^ 'ddName'-               -> DescribeDomain-describeDomain p1 = DescribeDomain-    { _ddName = p1+-- * 'ddName'+describeDomain+    :: Text -- ^ 'ddName'+    -> DescribeDomain+describeDomain pName_ =+    DescribeDomain'+    { _ddName = pName_     }  -- | The name of the domain to describe. ddName :: Lens' DescribeDomain Text-ddName = lens _ddName (\s a -> s { _ddName = a })--data DescribeDomainResponse = DescribeDomainResponse-    { _ddrConfiguration :: DomainConfiguration-    , _ddrDomainInfo    :: DomainInfo-    } deriving (Eq, Read, Show)+ddName = lens _ddName (\ s a -> s{_ddName = a}); --- | 'DescribeDomainResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ddrConfiguration' @::@ 'DomainConfiguration'------ * 'ddrDomainInfo' @::@ 'DomainInfo'----describeDomainResponse :: DomainInfo -- ^ 'ddrDomainInfo'-                       -> DomainConfiguration -- ^ 'ddrConfiguration'-                       -> DescribeDomainResponse-describeDomainResponse p1 p2 = DescribeDomainResponse-    { _ddrDomainInfo    = p1-    , _ddrConfiguration = p2-    }+instance AWSRequest DescribeDomain where+        type Sv DescribeDomain = SWF+        type Rs DescribeDomain = DescribeDomainResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DescribeDomainResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "domainInfo") <*>+                     (x .:> "configuration")) -ddrConfiguration :: Lens' DescribeDomainResponse DomainConfiguration-ddrConfiguration = lens _ddrConfiguration (\s a -> s { _ddrConfiguration = a })+instance ToHeaders DescribeDomain where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SimpleWorkflowService.DescribeDomain" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.0" :: ByteString)]) -ddrDomainInfo :: Lens' DescribeDomainResponse DomainInfo-ddrDomainInfo = lens _ddrDomainInfo (\s a -> s { _ddrDomainInfo = a })+instance ToJSON DescribeDomain where+        toJSON DescribeDomain'{..}+          = object ["name" .= _ddName]  instance ToPath DescribeDomain where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeDomain where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders DescribeDomain+-- | Contains details of a domain.+--+-- /See:/ 'describeDomainResponse' smart constructor.+data DescribeDomainResponse = DescribeDomainResponse'+    { _ddrsStatus        :: !Int+    , _ddrsDomainInfo    :: !DomainInfo+    , _ddrsConfiguration :: !DomainConfiguration+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON DescribeDomain where-    toJSON DescribeDomain{..} = object-        [ "name" .= _ddName-        ]+-- | Creates a value of 'DescribeDomainResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddrsStatus'+--+-- * 'ddrsDomainInfo'+--+-- * 'ddrsConfiguration'+describeDomainResponse+    :: Int -- ^ 'ddrsStatus'+    -> DomainInfo -- ^ 'ddrsDomainInfo'+    -> DomainConfiguration -- ^ 'ddrsConfiguration'+    -> DescribeDomainResponse+describeDomainResponse pStatus_ pDomainInfo_ pConfiguration_ =+    DescribeDomainResponse'+    { _ddrsStatus = pStatus_+    , _ddrsDomainInfo = pDomainInfo_+    , _ddrsConfiguration = pConfiguration_+    } -instance AWSRequest DescribeDomain where-    type Sv DescribeDomain = SWF-    type Rs DescribeDomain = DescribeDomainResponse+-- | The response status code.+ddrsStatus :: Lens' DescribeDomainResponse Int+ddrsStatus = lens _ddrsStatus (\ s a -> s{_ddrsStatus = a}); -    request  = post "DescribeDomain"-    response = jsonResponse+-- | Undocumented member.+ddrsDomainInfo :: Lens' DescribeDomainResponse DomainInfo+ddrsDomainInfo = lens _ddrsDomainInfo (\ s a -> s{_ddrsDomainInfo = a}); -instance FromJSON DescribeDomainResponse where-    parseJSON = withObject "DescribeDomainResponse" $ \o -> DescribeDomainResponse-        <$> o .:  "configuration"-        <*> o .:  "domainInfo"+-- | Undocumented member.+ddrsConfiguration :: Lens' DescribeDomainResponse DomainConfiguration+ddrsConfiguration = lens _ddrsConfiguration (\ s a -> s{_ddrsConfiguration = a});

@@ -1,196 +1,214 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.SWF.DescribeWorkflowExecution--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns information about the specified workflow execution including its type--- and some statistics.+-- Returns information about the specified workflow execution including its+-- type and some statistics. ----- This operation is eventually consistent. The results are best effort and may--- not exactly reflect recent updates and changes. Access Control+-- This operation is eventually consistent. The results are best effort and+-- may not exactly reflect recent updates and changes. ----- You can use IAM policies to control this action's access to Amazon SWF+-- __Access Control__+--+-- You can use IAM policies to control this action\'s access to Amazon SWF -- resources as follows: ----- Use a 'Resource' element with the domain name to limit the action to only--- specified domains. Use an 'Action' element to allow or deny permission to call--- this action. You cannot use an IAM policy to constrain this action's--- parameters.  If the caller does not have sufficient permissions to invoke the--- action, or the parameter values fall outside the specified constraints, the--- action fails. The associated event attribute's cause parameter will be set to--- OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAMto Manage Access to Amazon SWF Workflows>.+-- -   Use a 'Resource' element with the domain name to limit the action to+--     only specified domains.+-- -   Use an 'Action' element to allow or deny permission to call this+--     action.+-- -   You cannot use an IAM policy to constrain this action\'s parameters. ----- <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_DescribeWorkflowExecution.html>+-- If the caller does not have sufficient permissions to invoke the action,+-- or the parameter values fall outside the specified constraints, the+-- action fails. The associated event attribute\'s __cause__ parameter will+-- be set to OPERATION_NOT_PERMITTED. For details and example IAM policies,+-- see+-- <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows>.+--+-- /See:/ <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_DescribeWorkflowExecution.html AWS API Reference> for DescribeWorkflowExecution. module Network.AWS.SWF.DescribeWorkflowExecution     (-    -- * Request-      DescribeWorkflowExecution-    -- ** Request constructor-    , describeWorkflowExecution-    -- ** Request lenses+    -- * Creating a Request+      describeWorkflowExecution+    , DescribeWorkflowExecution+    -- * Request Lenses     , dweDomain     , dweExecution -    -- * Response-    , DescribeWorkflowExecutionResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeWorkflowExecutionResponse-    -- ** Response lenses-    , dwerExecutionConfiguration-    , dwerExecutionInfo-    , dwerLatestActivityTaskTimestamp-    , dwerLatestExecutionContext-    , dwerOpenCounts+    , DescribeWorkflowExecutionResponse+    -- * Response Lenses+    , dwersLatestActivityTaskTimestamp+    , dwersLatestExecutionContext+    , dwersStatus+    , dwersExecutionInfo+    , dwersExecutionConfiguration+    , dwersOpenCounts     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.SWF.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SWF.Types+import           Network.AWS.SWF.Types.Product -data DescribeWorkflowExecution = DescribeWorkflowExecution-    { _dweDomain    :: Text-    , _dweExecution :: WorkflowExecution-    } deriving (Eq, Read, Show)+-- | /See:/ 'describeWorkflowExecution' smart constructor.+data DescribeWorkflowExecution = DescribeWorkflowExecution'+    { _dweDomain    :: !Text+    , _dweExecution :: !WorkflowExecution+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeWorkflowExecution' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeWorkflowExecution' with the minimum fields required to make a request. ----- * 'dweDomain' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dweExecution' @::@ 'WorkflowExecution'+-- * 'dweDomain' ---describeWorkflowExecution :: Text -- ^ 'dweDomain'-                          -> WorkflowExecution -- ^ 'dweExecution'-                          -> DescribeWorkflowExecution-describeWorkflowExecution p1 p2 = DescribeWorkflowExecution-    { _dweDomain    = p1-    , _dweExecution = p2+-- * 'dweExecution'+describeWorkflowExecution+    :: Text -- ^ 'dweDomain'+    -> WorkflowExecution -- ^ 'dweExecution'+    -> DescribeWorkflowExecution+describeWorkflowExecution pDomain_ pExecution_ =+    DescribeWorkflowExecution'+    { _dweDomain = pDomain_+    , _dweExecution = pExecution_     }  -- | The name of the domain containing the workflow execution. dweDomain :: Lens' DescribeWorkflowExecution Text-dweDomain = lens _dweDomain (\s a -> s { _dweDomain = a })+dweDomain = lens _dweDomain (\ s a -> s{_dweDomain = a});  -- | The workflow execution to describe. dweExecution :: Lens' DescribeWorkflowExecution WorkflowExecution-dweExecution = lens _dweExecution (\s a -> s { _dweExecution = a })+dweExecution = lens _dweExecution (\ s a -> s{_dweExecution = a}); -data DescribeWorkflowExecutionResponse = DescribeWorkflowExecutionResponse-    { _dwerExecutionConfiguration      :: WorkflowExecutionConfiguration-    , _dwerExecutionInfo               :: WorkflowExecutionInfo-    , _dwerLatestActivityTaskTimestamp :: Maybe POSIX-    , _dwerLatestExecutionContext      :: Maybe Text-    , _dwerOpenCounts                  :: WorkflowExecutionOpenCounts-    } deriving (Eq, Read, Show)+instance AWSRequest DescribeWorkflowExecution where+        type Sv DescribeWorkflowExecution = SWF+        type Rs DescribeWorkflowExecution =+             DescribeWorkflowExecutionResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DescribeWorkflowExecutionResponse' <$>+                   (x .?> "latestActivityTaskTimestamp") <*>+                     (x .?> "latestExecutionContext")+                     <*> (pure (fromEnum s))+                     <*> (x .:> "executionInfo")+                     <*> (x .:> "executionConfiguration")+                     <*> (x .:> "openCounts")) --- | 'DescribeWorkflowExecutionResponse' constructor.+instance ToHeaders DescribeWorkflowExecution where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SimpleWorkflowService.DescribeWorkflowExecution" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.0" :: ByteString)])++instance ToJSON DescribeWorkflowExecution where+        toJSON DescribeWorkflowExecution'{..}+          = object+              ["domain" .= _dweDomain,+               "execution" .= _dweExecution]++instance ToPath DescribeWorkflowExecution where+        toPath = const "/"++instance ToQuery DescribeWorkflowExecution where+        toQuery = const mempty++-- | Contains details about a workflow execution. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeWorkflowExecutionResponse' smart constructor.+data DescribeWorkflowExecutionResponse = DescribeWorkflowExecutionResponse'+    { _dwersLatestActivityTaskTimestamp :: !(Maybe POSIX)+    , _dwersLatestExecutionContext      :: !(Maybe Text)+    , _dwersStatus                      :: !Int+    , _dwersExecutionInfo               :: !WorkflowExecutionInfo+    , _dwersExecutionConfiguration      :: !WorkflowExecutionConfiguration+    , _dwersOpenCounts                  :: !WorkflowExecutionOpenCounts+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeWorkflowExecutionResponse' with the minimum fields required to make a request. ----- * 'dwerExecutionConfiguration' @::@ 'WorkflowExecutionConfiguration'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dwerExecutionInfo' @::@ 'WorkflowExecutionInfo'+-- * 'dwersLatestActivityTaskTimestamp' ----- * 'dwerLatestActivityTaskTimestamp' @::@ 'Maybe' 'UTCTime'+-- * 'dwersLatestExecutionContext' ----- * 'dwerLatestExecutionContext' @::@ 'Maybe' 'Text'+-- * 'dwersStatus' ----- * 'dwerOpenCounts' @::@ 'WorkflowExecutionOpenCounts'+-- * 'dwersExecutionInfo' ---describeWorkflowExecutionResponse :: WorkflowExecutionInfo -- ^ 'dwerExecutionInfo'-                                  -> WorkflowExecutionConfiguration -- ^ 'dwerExecutionConfiguration'-                                  -> WorkflowExecutionOpenCounts -- ^ 'dwerOpenCounts'-                                  -> DescribeWorkflowExecutionResponse-describeWorkflowExecutionResponse p1 p2 p3 = DescribeWorkflowExecutionResponse-    { _dwerExecutionInfo               = p1-    , _dwerExecutionConfiguration      = p2-    , _dwerOpenCounts                  = p3-    , _dwerLatestActivityTaskTimestamp = Nothing-    , _dwerLatestExecutionContext      = Nothing+-- * 'dwersExecutionConfiguration'+--+-- * 'dwersOpenCounts'+describeWorkflowExecutionResponse+    :: Int -- ^ 'dwersStatus'+    -> WorkflowExecutionInfo -- ^ 'dwersExecutionInfo'+    -> WorkflowExecutionConfiguration -- ^ 'dwersExecutionConfiguration'+    -> WorkflowExecutionOpenCounts -- ^ 'dwersOpenCounts'+    -> DescribeWorkflowExecutionResponse+describeWorkflowExecutionResponse pStatus_ pExecutionInfo_ pExecutionConfiguration_ pOpenCounts_ =+    DescribeWorkflowExecutionResponse'+    { _dwersLatestActivityTaskTimestamp = Nothing+    , _dwersLatestExecutionContext = Nothing+    , _dwersStatus = pStatus_+    , _dwersExecutionInfo = pExecutionInfo_+    , _dwersExecutionConfiguration = pExecutionConfiguration_+    , _dwersOpenCounts = pOpenCounts_     } --- | The configuration settings for this workflow execution including timeout--- values, tasklist etc.-dwerExecutionConfiguration :: Lens' DescribeWorkflowExecutionResponse WorkflowExecutionConfiguration-dwerExecutionConfiguration =-    lens _dwerExecutionConfiguration-        (\s a -> s { _dwerExecutionConfiguration = a })---- | Information about the workflow execution.-dwerExecutionInfo :: Lens' DescribeWorkflowExecutionResponse WorkflowExecutionInfo-dwerExecutionInfo =-    lens _dwerExecutionInfo (\s a -> s { _dwerExecutionInfo = a })- -- | The time when the last activity task was scheduled for this workflow--- execution. You can use this information to determine if the workflow has not--- made progress for an unusually long period of time and might require a--- corrective action.-dwerLatestActivityTaskTimestamp :: Lens' DescribeWorkflowExecutionResponse (Maybe UTCTime)-dwerLatestActivityTaskTimestamp =-    lens _dwerLatestActivityTaskTimestamp-        (\s a -> s { _dwerLatestActivityTaskTimestamp = a })-            . mapping _Time+-- execution. You can use this information to determine if the workflow has+-- not made progress for an unusually long period of time and might require+-- a corrective action.+dwersLatestActivityTaskTimestamp :: Lens' DescribeWorkflowExecutionResponse (Maybe UTCTime)+dwersLatestActivityTaskTimestamp = lens _dwersLatestActivityTaskTimestamp (\ s a -> s{_dwersLatestActivityTaskTimestamp = a}) . mapping _Time;  -- | The latest executionContext provided by the decider for this workflow--- execution. A decider can provide an executionContext (a free-form string)--- when closing a decision task using 'RespondDecisionTaskCompleted'.-dwerLatestExecutionContext :: Lens' DescribeWorkflowExecutionResponse (Maybe Text)-dwerLatestExecutionContext =-    lens _dwerLatestExecutionContext-        (\s a -> s { _dwerLatestExecutionContext = a })---- | The number of tasks for this workflow execution. This includes open and--- closed tasks of all types.-dwerOpenCounts :: Lens' DescribeWorkflowExecutionResponse WorkflowExecutionOpenCounts-dwerOpenCounts = lens _dwerOpenCounts (\s a -> s { _dwerOpenCounts = a })--instance ToPath DescribeWorkflowExecution where-    toPath = const "/"--instance ToQuery DescribeWorkflowExecution where-    toQuery = const mempty--instance ToHeaders DescribeWorkflowExecution+-- execution. A decider can provide an executionContext (a free-form+-- string) when closing a decision task using RespondDecisionTaskCompleted.+dwersLatestExecutionContext :: Lens' DescribeWorkflowExecutionResponse (Maybe Text)+dwersLatestExecutionContext = lens _dwersLatestExecutionContext (\ s a -> s{_dwersLatestExecutionContext = a}); -instance ToJSON DescribeWorkflowExecution where-    toJSON DescribeWorkflowExecution{..} = object-        [ "domain"    .= _dweDomain-        , "execution" .= _dweExecution-        ]+-- | The response status code.+dwersStatus :: Lens' DescribeWorkflowExecutionResponse Int+dwersStatus = lens _dwersStatus (\ s a -> s{_dwersStatus = a}); -instance AWSRequest DescribeWorkflowExecution where-    type Sv DescribeWorkflowExecution = SWF-    type Rs DescribeWorkflowExecution = DescribeWorkflowExecutionResponse+-- | Information about the workflow execution.+dwersExecutionInfo :: Lens' DescribeWorkflowExecutionResponse WorkflowExecutionInfo+dwersExecutionInfo = lens _dwersExecutionInfo (\ s a -> s{_dwersExecutionInfo = a}); -    request  = post "DescribeWorkflowExecution"-    response = jsonResponse+-- | The configuration settings for this workflow execution including timeout+-- values, tasklist etc.+dwersExecutionConfiguration :: Lens' DescribeWorkflowExecutionResponse WorkflowExecutionConfiguration+dwersExecutionConfiguration = lens _dwersExecutionConfiguration (\ s a -> s{_dwersExecutionConfiguration = a}); -instance FromJSON DescribeWorkflowExecutionResponse where-    parseJSON = withObject "DescribeWorkflowExecutionResponse" $ \o -> DescribeWorkflowExecutionResponse-        <$> o .:  "executionConfiguration"-        <*> o .:  "executionInfo"-        <*> o .:? "latestActivityTaskTimestamp"-        <*> o .:? "latestExecutionContext"-        <*> o .:  "openCounts"+-- | The number of tasks for this workflow execution. This includes open and+-- closed tasks of all types.+dwersOpenCounts :: Lens' DescribeWorkflowExecutionResponse WorkflowExecutionOpenCounts+dwersOpenCounts = lens _dwersOpenCounts (\ s a -> s{_dwersOpenCounts = a});

@@ -1,159 +1,188 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.SWF.DescribeWorkflowType--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns information about the specified /workflow type/. This includes+-- Returns information about the specified /workflow type/. This includes -- configuration settings specified when the type was registered and other--- information such as creation date, current status, etc.+-- information such as creation date, current status, and so on. ----- Access Control+-- __Access Control__ ----- You can use IAM policies to control this action's access to Amazon SWF+-- You can use IAM policies to control this action\'s access to Amazon SWF -- resources as follows: ----- Use a 'Resource' element with the domain name to limit the action to only--- specified domains. Use an 'Action' element to allow or deny permission to call--- this action. Constrain the following parameters by using a 'Condition' element--- with the appropriate keys.  'workflowType.name': String constraint. The key is 'swf:workflowType.name'. 'workflowType.version': String constraint. The key is 'swf:workflowType.version'--- .    If the caller does not have sufficient permissions to invoke the action,--- or the parameter values fall outside the specified constraints, the action--- fails. The associated event attribute's cause parameter will be set to--- OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAMto Manage Access to Amazon SWF Workflows>.+-- -   Use a 'Resource' element with the domain name to limit the action to+--     only specified domains.+-- -   Use an 'Action' element to allow or deny permission to call this+--     action.+-- -   Constrain the following parameters by using a 'Condition' element+--     with the appropriate keys.+--     -   'workflowType.name': String constraint. The key is+--         'swf:workflowType.name'.+--     -   'workflowType.version': String constraint. The key is+--         'swf:workflowType.version'. ----- <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_DescribeWorkflowType.html>+-- If the caller does not have sufficient permissions to invoke the action,+-- or the parameter values fall outside the specified constraints, the+-- action fails. The associated event attribute\'s __cause__ parameter will+-- be set to OPERATION_NOT_PERMITTED. For details and example IAM policies,+-- see+-- <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows>.+--+-- /See:/ <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_DescribeWorkflowType.html AWS API Reference> for DescribeWorkflowType. module Network.AWS.SWF.DescribeWorkflowType     (-    -- * Request-      DescribeWorkflowType-    -- ** Request constructor-    , describeWorkflowType-    -- ** Request lenses+    -- * Creating a Request+      describeWorkflowType+    , DescribeWorkflowType+    -- * Request Lenses     , dwtDomain     , dwtWorkflowType -    -- * Response-    , DescribeWorkflowTypeResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeWorkflowTypeResponse-    -- ** Response lenses-    , dwtrConfiguration-    , dwtrTypeInfo+    , DescribeWorkflowTypeResponse+    -- * Response Lenses+    , dwtrsStatus+    , dwtrsTypeInfo+    , dwtrsConfiguration     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.SWF.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SWF.Types+import           Network.AWS.SWF.Types.Product -data DescribeWorkflowType = DescribeWorkflowType-    { _dwtDomain       :: Text-    , _dwtWorkflowType :: WorkflowType-    } deriving (Eq, Read, Show)+-- | /See:/ 'describeWorkflowType' smart constructor.+data DescribeWorkflowType = DescribeWorkflowType'+    { _dwtDomain       :: !Text+    , _dwtWorkflowType :: !WorkflowType+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeWorkflowType' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeWorkflowType' with the minimum fields required to make a request. ----- * 'dwtDomain' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dwtWorkflowType' @::@ 'WorkflowType'+-- * 'dwtDomain' ---describeWorkflowType :: Text -- ^ 'dwtDomain'-                     -> WorkflowType -- ^ 'dwtWorkflowType'-                     -> DescribeWorkflowType-describeWorkflowType p1 p2 = DescribeWorkflowType-    { _dwtDomain       = p1-    , _dwtWorkflowType = p2+-- * 'dwtWorkflowType'+describeWorkflowType+    :: Text -- ^ 'dwtDomain'+    -> WorkflowType -- ^ 'dwtWorkflowType'+    -> DescribeWorkflowType+describeWorkflowType pDomain_ pWorkflowType_ =+    DescribeWorkflowType'+    { _dwtDomain = pDomain_+    , _dwtWorkflowType = pWorkflowType_     }  -- | The name of the domain in which this workflow type is registered. dwtDomain :: Lens' DescribeWorkflowType Text-dwtDomain = lens _dwtDomain (\s a -> s { _dwtDomain = a })+dwtDomain = lens _dwtDomain (\ s a -> s{_dwtDomain = a});  -- | The workflow type to describe. dwtWorkflowType :: Lens' DescribeWorkflowType WorkflowType-dwtWorkflowType = lens _dwtWorkflowType (\s a -> s { _dwtWorkflowType = a })+dwtWorkflowType = lens _dwtWorkflowType (\ s a -> s{_dwtWorkflowType = a}); -data DescribeWorkflowTypeResponse = DescribeWorkflowTypeResponse-    { _dwtrConfiguration :: WorkflowTypeConfiguration-    , _dwtrTypeInfo      :: WorkflowTypeInfo-    } deriving (Eq, Read, Show)+instance AWSRequest DescribeWorkflowType where+        type Sv DescribeWorkflowType = SWF+        type Rs DescribeWorkflowType =+             DescribeWorkflowTypeResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DescribeWorkflowTypeResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "typeInfo") <*>+                     (x .:> "configuration")) --- | 'DescribeWorkflowTypeResponse' constructor.+instance ToHeaders DescribeWorkflowType where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SimpleWorkflowService.DescribeWorkflowType" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.0" :: ByteString)])++instance ToJSON DescribeWorkflowType where+        toJSON DescribeWorkflowType'{..}+          = object+              ["domain" .= _dwtDomain,+               "workflowType" .= _dwtWorkflowType]++instance ToPath DescribeWorkflowType where+        toPath = const "/"++instance ToQuery DescribeWorkflowType where+        toQuery = const mempty++-- | Contains details about a workflow type. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeWorkflowTypeResponse' smart constructor.+data DescribeWorkflowTypeResponse = DescribeWorkflowTypeResponse'+    { _dwtrsStatus        :: !Int+    , _dwtrsTypeInfo      :: !WorkflowTypeInfo+    , _dwtrsConfiguration :: !WorkflowTypeConfiguration+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeWorkflowTypeResponse' with the minimum fields required to make a request. ----- * 'dwtrConfiguration' @::@ 'WorkflowTypeConfiguration'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dwtrTypeInfo' @::@ 'WorkflowTypeInfo'+-- * 'dwtrsStatus' ---describeWorkflowTypeResponse :: WorkflowTypeInfo -- ^ 'dwtrTypeInfo'-                             -> WorkflowTypeConfiguration -- ^ 'dwtrConfiguration'-                             -> DescribeWorkflowTypeResponse-describeWorkflowTypeResponse p1 p2 = DescribeWorkflowTypeResponse-    { _dwtrTypeInfo      = p1-    , _dwtrConfiguration = p2+-- * 'dwtrsTypeInfo'+--+-- * 'dwtrsConfiguration'+describeWorkflowTypeResponse+    :: Int -- ^ 'dwtrsStatus'+    -> WorkflowTypeInfo -- ^ 'dwtrsTypeInfo'+    -> WorkflowTypeConfiguration -- ^ 'dwtrsConfiguration'+    -> DescribeWorkflowTypeResponse+describeWorkflowTypeResponse pStatus_ pTypeInfo_ pConfiguration_ =+    DescribeWorkflowTypeResponse'+    { _dwtrsStatus = pStatus_+    , _dwtrsTypeInfo = pTypeInfo_+    , _dwtrsConfiguration = pConfiguration_     } --- | Configuration settings of the workflow type registered through 'RegisterWorkflowType'-dwtrConfiguration :: Lens' DescribeWorkflowTypeResponse WorkflowTypeConfiguration-dwtrConfiguration =-    lens _dwtrConfiguration (\s a -> s { _dwtrConfiguration = a })+-- | The response status code.+dwtrsStatus :: Lens' DescribeWorkflowTypeResponse Int+dwtrsStatus = lens _dwtrsStatus (\ s a -> s{_dwtrsStatus = a});  -- | General information about the workflow type. ----- The status of the workflow type (returned in the WorkflowTypeInfo structure)--- can be one of the following.+-- The status of the workflow type (returned in the WorkflowTypeInfo+-- structure) can be one of the following. ----- REGISTERED: The type is registered and available. Workers supporting this--- type should be running.  DEPRECATED: The type was deprecated using 'DeprecateWorkflowType', but is still in use. You should keep workers supporting this type running.--- You cannot create new workflow executions of this type.-dwtrTypeInfo :: Lens' DescribeWorkflowTypeResponse WorkflowTypeInfo-dwtrTypeInfo = lens _dwtrTypeInfo (\s a -> s { _dwtrTypeInfo = a })--instance ToPath DescribeWorkflowType where-    toPath = const "/"--instance ToQuery DescribeWorkflowType where-    toQuery = const mempty--instance ToHeaders DescribeWorkflowType--instance ToJSON DescribeWorkflowType where-    toJSON DescribeWorkflowType{..} = object-        [ "domain"       .= _dwtDomain-        , "workflowType" .= _dwtWorkflowType-        ]--instance AWSRequest DescribeWorkflowType where-    type Sv DescribeWorkflowType = SWF-    type Rs DescribeWorkflowType = DescribeWorkflowTypeResponse--    request  = post "DescribeWorkflowType"-    response = jsonResponse+-- -   __REGISTERED__: The type is registered and available. Workers+--     supporting this type should be running.+-- -   __DEPRECATED__: The type was deprecated using DeprecateWorkflowType,+--     but is still in use. You should keep workers supporting this type+--     running. You cannot create new workflow executions of this type.+dwtrsTypeInfo :: Lens' DescribeWorkflowTypeResponse WorkflowTypeInfo+dwtrsTypeInfo = lens _dwtrsTypeInfo (\ s a -> s{_dwtrsTypeInfo = a}); -instance FromJSON DescribeWorkflowTypeResponse where-    parseJSON = withObject "DescribeWorkflowTypeResponse" $ \o -> DescribeWorkflowTypeResponse-        <$> o .:  "configuration"-        <*> o .:  "typeInfo"+-- | Configuration settings of the workflow type registered through+-- RegisterWorkflowType+dwtrsConfiguration :: Lens' DescribeWorkflowTypeResponse WorkflowTypeConfiguration+dwtrsConfiguration = lens _dwtrsConfiguration (\ s a -> s{_dwtrsConfiguration = a});

@@ -1,206 +1,237 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.SWF.GetWorkflowExecutionHistory--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns the history of the specified workflow execution. The results may be--- split into multiple pages. To retrieve subsequent pages, make the call again--- using the 'nextPageToken' returned by the initial call.+-- Returns the history of the specified workflow execution. The results may+-- be split into multiple pages. To retrieve subsequent pages, make the+-- call again using the 'nextPageToken' returned by the initial call. ----- This operation is eventually consistent. The results are best effort and may--- not exactly reflect recent updates and changes. Access Control+-- This operation is eventually consistent. The results are best effort and+-- may not exactly reflect recent updates and changes. ----- You can use IAM policies to control this action's access to Amazon SWF+-- __Access Control__+--+-- You can use IAM policies to control this action\'s access to Amazon SWF -- resources as follows: ----- Use a 'Resource' element with the domain name to limit the action to only--- specified domains. Use an 'Action' element to allow or deny permission to call--- this action. You cannot use an IAM policy to constrain this action's--- parameters.  If the caller does not have sufficient permissions to invoke the--- action, or the parameter values fall outside the specified constraints, the--- action fails. The associated event attribute's cause parameter will be set to--- OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAMto Manage Access to Amazon SWF Workflows>.+-- -   Use a 'Resource' element with the domain name to limit the action to+--     only specified domains.+-- -   Use an 'Action' element to allow or deny permission to call this+--     action.+-- -   You cannot use an IAM policy to constrain this action\'s parameters. ----- <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_GetWorkflowExecutionHistory.html>+-- If the caller does not have sufficient permissions to invoke the action,+-- or the parameter values fall outside the specified constraints, the+-- action fails. The associated event attribute\'s __cause__ parameter will+-- be set to OPERATION_NOT_PERMITTED. For details and example IAM policies,+-- see+-- <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows>.+--+-- /See:/ <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_GetWorkflowExecutionHistory.html AWS API Reference> for GetWorkflowExecutionHistory.+--+-- This operation returns paginated results. module Network.AWS.SWF.GetWorkflowExecutionHistory     (-    -- * Request-      GetWorkflowExecutionHistory-    -- ** Request constructor-    , getWorkflowExecutionHistory-    -- ** Request lenses-    , gwehDomain-    , gwehExecution-    , gwehMaximumPageSize+    -- * Creating a Request+      getWorkflowExecutionHistory+    , GetWorkflowExecutionHistory+    -- * Request Lenses     , gwehNextPageToken     , gwehReverseOrder+    , gwehMaximumPageSize+    , gwehDomain+    , gwehExecution -    -- * Response-    , GetWorkflowExecutionHistoryResponse-    -- ** Response constructor+    -- * Destructuring the Response     , getWorkflowExecutionHistoryResponse-    -- ** Response lenses-    , gwehrEvents-    , gwehrNextPageToken+    , GetWorkflowExecutionHistoryResponse+    -- * Response Lenses+    , gwehrsNextPageToken+    , gwehrsStatus+    , gwehrsEvents     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.SWF.Types-import qualified GHC.Exts+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SWF.Types+import           Network.AWS.SWF.Types.Product -data GetWorkflowExecutionHistory = GetWorkflowExecutionHistory-    { _gwehDomain          :: Text-    , _gwehExecution       :: WorkflowExecution-    , _gwehMaximumPageSize :: Maybe Nat-    , _gwehNextPageToken   :: Maybe Text-    , _gwehReverseOrder    :: Maybe Bool-    } deriving (Eq, Read, Show)+-- | /See:/ 'getWorkflowExecutionHistory' smart constructor.+data GetWorkflowExecutionHistory = GetWorkflowExecutionHistory'+    { _gwehNextPageToken   :: !(Maybe Text)+    , _gwehReverseOrder    :: !(Maybe Bool)+    , _gwehMaximumPageSize :: !(Maybe Nat)+    , _gwehDomain          :: !Text+    , _gwehExecution       :: !WorkflowExecution+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'GetWorkflowExecutionHistory' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'GetWorkflowExecutionHistory' with the minimum fields required to make a request. ----- * 'gwehDomain' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'gwehExecution' @::@ 'WorkflowExecution'+-- * 'gwehNextPageToken' ----- * 'gwehMaximumPageSize' @::@ 'Maybe' 'Natural'+-- * 'gwehReverseOrder' ----- * 'gwehNextPageToken' @::@ 'Maybe' 'Text'+-- * 'gwehMaximumPageSize' ----- * 'gwehReverseOrder' @::@ 'Maybe' 'Bool'+-- * 'gwehDomain' ---getWorkflowExecutionHistory :: Text -- ^ 'gwehDomain'-                            -> WorkflowExecution -- ^ 'gwehExecution'-                            -> GetWorkflowExecutionHistory-getWorkflowExecutionHistory p1 p2 = GetWorkflowExecutionHistory-    { _gwehDomain          = p1-    , _gwehExecution       = p2-    , _gwehNextPageToken   = Nothing+-- * 'gwehExecution'+getWorkflowExecutionHistory+    :: Text -- ^ 'gwehDomain'+    -> WorkflowExecution -- ^ 'gwehExecution'+    -> GetWorkflowExecutionHistory+getWorkflowExecutionHistory pDomain_ pExecution_ =+    GetWorkflowExecutionHistory'+    { _gwehNextPageToken = Nothing+    , _gwehReverseOrder = Nothing     , _gwehMaximumPageSize = Nothing-    , _gwehReverseOrder    = Nothing+    , _gwehDomain = pDomain_+    , _gwehExecution = pExecution_     } --- | The name of the domain containing the workflow execution.-gwehDomain :: Lens' GetWorkflowExecutionHistory Text-gwehDomain = lens _gwehDomain (\s a -> s { _gwehDomain = a })+-- | If a 'NextPageToken' was returned by a previous call, there are more+-- results available. To retrieve the next page of results, make the call+-- again using the returned token in 'nextPageToken'. Keep all other+-- arguments unchanged.+--+-- The configured 'maximumPageSize' determines how many results can be+-- returned in a single call.+gwehNextPageToken :: Lens' GetWorkflowExecutionHistory (Maybe Text)+gwehNextPageToken = lens _gwehNextPageToken (\ s a -> s{_gwehNextPageToken = a}); --- | Specifies the workflow execution for which to return the history.-gwehExecution :: Lens' GetWorkflowExecutionHistory WorkflowExecution-gwehExecution = lens _gwehExecution (\s a -> s { _gwehExecution = a })+-- | When set to 'true', returns the events in reverse order. By default the+-- results are returned in ascending order of the 'eventTimeStamp' of the+-- events.+gwehReverseOrder :: Lens' GetWorkflowExecutionHistory (Maybe Bool)+gwehReverseOrder = lens _gwehReverseOrder (\ s a -> s{_gwehReverseOrder = a}); --- | The maximum number of results that will be returned per call. 'nextPageToken'--- can be used to obtain futher pages of results. The default is 100, which is--- the maximum allowed page size. You can, however, specify a page size /smaller/--- than 100.+-- | The maximum number of results that will be returned per call.+-- 'nextPageToken' can be used to obtain futher pages of results. The+-- default is 1000, which is the maximum allowed page size. You can,+-- however, specify a page size /smaller/ than the maximum. ----- This is an upper limit only; the actual number of results returned per call--- may be fewer than the specified maximum.+-- This is an upper limit only; the actual number of results returned per+-- call may be fewer than the specified maximum. gwehMaximumPageSize :: Lens' GetWorkflowExecutionHistory (Maybe Natural)-gwehMaximumPageSize =-    lens _gwehMaximumPageSize (\s a -> s { _gwehMaximumPageSize = a })-        . mapping _Nat+gwehMaximumPageSize = lens _gwehMaximumPageSize (\ s a -> s{_gwehMaximumPageSize = a}) . mapping _Nat; --- | If a 'NextPageToken' was returned by a previous call, there are more results--- available. To retrieve the next page of results, make the call again using--- the returned token in 'nextPageToken'. Keep all other arguments unchanged.------ The configured 'maximumPageSize' determines how many results can be returned--- in a single call.-gwehNextPageToken :: Lens' GetWorkflowExecutionHistory (Maybe Text)-gwehNextPageToken =-    lens _gwehNextPageToken (\s a -> s { _gwehNextPageToken = a })+-- | The name of the domain containing the workflow execution.+gwehDomain :: Lens' GetWorkflowExecutionHistory Text+gwehDomain = lens _gwehDomain (\ s a -> s{_gwehDomain = a}); --- | When set to 'true', returns the events in reverse order. By default the results--- are returned in ascending order of the 'eventTimeStamp' of the events.-gwehReverseOrder :: Lens' GetWorkflowExecutionHistory (Maybe Bool)-gwehReverseOrder = lens _gwehReverseOrder (\s a -> s { _gwehReverseOrder = a })+-- | Specifies the workflow execution for which to return the history.+gwehExecution :: Lens' GetWorkflowExecutionHistory WorkflowExecution+gwehExecution = lens _gwehExecution (\ s a -> s{_gwehExecution = a}); -data GetWorkflowExecutionHistoryResponse = GetWorkflowExecutionHistoryResponse-    { _gwehrEvents        :: List "events" HistoryEvent-    , _gwehrNextPageToken :: Maybe Text-    } deriving (Eq, Read, Show)+instance AWSPager GetWorkflowExecutionHistory where+        page rq rs+          | stop (rs ^. gwehrsNextPageToken) = Nothing+          | stop (rs ^. gwehrsEvents) = Nothing+          | otherwise =+            Just $ rq &+              gwehNextPageToken .~ rs ^. gwehrsNextPageToken --- | 'GetWorkflowExecutionHistoryResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'gwehrEvents' @::@ ['HistoryEvent']------ * 'gwehrNextPageToken' @::@ 'Maybe' 'Text'----getWorkflowExecutionHistoryResponse :: GetWorkflowExecutionHistoryResponse-getWorkflowExecutionHistoryResponse = GetWorkflowExecutionHistoryResponse-    { _gwehrEvents        = mempty-    , _gwehrNextPageToken = Nothing-    }+instance AWSRequest GetWorkflowExecutionHistory where+        type Sv GetWorkflowExecutionHistory = SWF+        type Rs GetWorkflowExecutionHistory =+             GetWorkflowExecutionHistoryResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 GetWorkflowExecutionHistoryResponse' <$>+                   (x .?> "nextPageToken") <*> (pure (fromEnum s)) <*>+                     (x .?> "events" .!@ mempty)) --- | The list of history events.-gwehrEvents :: Lens' GetWorkflowExecutionHistoryResponse [HistoryEvent]-gwehrEvents = lens _gwehrEvents (\s a -> s { _gwehrEvents = a }) . _List+instance ToHeaders GetWorkflowExecutionHistory where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SimpleWorkflowService.GetWorkflowExecutionHistory"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.0" :: ByteString)]) --- | If a 'NextPageToken' was returned by a previous call, there are more results--- available. To retrieve the next page of results, make the call again using--- the returned token in 'nextPageToken'. Keep all other arguments unchanged.------ The configured 'maximumPageSize' determines how many results can be returned--- in a single call.-gwehrNextPageToken :: Lens' GetWorkflowExecutionHistoryResponse (Maybe Text)-gwehrNextPageToken =-    lens _gwehrNextPageToken (\s a -> s { _gwehrNextPageToken = a })+instance ToJSON GetWorkflowExecutionHistory where+        toJSON GetWorkflowExecutionHistory'{..}+          = object+              ["nextPageToken" .= _gwehNextPageToken,+               "reverseOrder" .= _gwehReverseOrder,+               "maximumPageSize" .= _gwehMaximumPageSize,+               "domain" .= _gwehDomain,+               "execution" .= _gwehExecution]  instance ToPath GetWorkflowExecutionHistory where-    toPath = const "/"+        toPath = const "/"  instance ToQuery GetWorkflowExecutionHistory where-    toQuery = const mempty--instance ToHeaders GetWorkflowExecutionHistory+        toQuery = const mempty -instance ToJSON GetWorkflowExecutionHistory where-    toJSON GetWorkflowExecutionHistory{..} = object-        [ "domain"          .= _gwehDomain-        , "execution"       .= _gwehExecution-        , "nextPageToken"   .= _gwehNextPageToken-        , "maximumPageSize" .= _gwehMaximumPageSize-        , "reverseOrder"    .= _gwehReverseOrder-        ]+-- | Paginated representation of a workflow history for a workflow execution.+-- This is the up to date, complete and authoritative record of the events+-- related to all tasks and events in the life of the workflow execution.+--+-- /See:/ 'getWorkflowExecutionHistoryResponse' smart constructor.+data GetWorkflowExecutionHistoryResponse = GetWorkflowExecutionHistoryResponse'+    { _gwehrsNextPageToken :: !(Maybe Text)+    , _gwehrsStatus        :: !Int+    , _gwehrsEvents        :: ![HistoryEvent]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest GetWorkflowExecutionHistory where-    type Sv GetWorkflowExecutionHistory = SWF-    type Rs GetWorkflowExecutionHistory = GetWorkflowExecutionHistoryResponse+-- | Creates a value of 'GetWorkflowExecutionHistoryResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gwehrsNextPageToken'+--+-- * 'gwehrsStatus'+--+-- * 'gwehrsEvents'+getWorkflowExecutionHistoryResponse+    :: Int -- ^ 'gwehrsStatus'+    -> GetWorkflowExecutionHistoryResponse+getWorkflowExecutionHistoryResponse pStatus_ =+    GetWorkflowExecutionHistoryResponse'+    { _gwehrsNextPageToken = Nothing+    , _gwehrsStatus = pStatus_+    , _gwehrsEvents = mempty+    } -    request  = post "GetWorkflowExecutionHistory"-    response = jsonResponse+-- | If a 'NextPageToken' was returned by a previous call, there are more+-- results available. To retrieve the next page of results, make the call+-- again using the returned token in 'nextPageToken'. Keep all other+-- arguments unchanged.+--+-- The configured 'maximumPageSize' determines how many results can be+-- returned in a single call.+gwehrsNextPageToken :: Lens' GetWorkflowExecutionHistoryResponse (Maybe Text)+gwehrsNextPageToken = lens _gwehrsNextPageToken (\ s a -> s{_gwehrsNextPageToken = a}); -instance FromJSON GetWorkflowExecutionHistoryResponse where-    parseJSON = withObject "GetWorkflowExecutionHistoryResponse" $ \o -> GetWorkflowExecutionHistoryResponse-        <$> o .:? "events" .!= mempty-        <*> o .:? "nextPageToken"+-- | The response status code.+gwehrsStatus :: Lens' GetWorkflowExecutionHistoryResponse Int+gwehrsStatus = lens _gwehrsStatus (\ s a -> s{_gwehrsStatus = a}); -instance AWSPager GetWorkflowExecutionHistory where-    page rq rs-        | stop (rs ^. gwehrNextPageToken) = Nothing-        | otherwise = (\x -> rq & gwehNextPageToken ?~ x)-            <$> (rs ^. gwehrNextPageToken)+-- | The list of history events.+gwehrsEvents :: Lens' GetWorkflowExecutionHistoryResponse [HistoryEvent]+gwehrsEvents = lens _gwehrsEvents (\ s a -> s{_gwehrsEvents = a}) . _Coerce;

@@ -1,218 +1,244 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.SWF.ListActivityTypes--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns information about all activities registered in the specified domain--- that match the specified name and registration status. The result includes--- information like creation date, current status of the activity, etc. The--- results may be split into multiple pages. To retrieve subsequent pages, make--- the call again using the 'nextPageToken' returned by the initial call.+-- Returns information about all activities registered in the specified+-- domain that match the specified name and registration status. The result+-- includes information like creation date, current status of the activity,+-- etc. The results may be split into multiple pages. To retrieve+-- subsequent pages, make the call again using the 'nextPageToken' returned+-- by the initial call. ----- Access Control+-- __Access Control__ ----- You can use IAM policies to control this action's access to Amazon SWF+-- You can use IAM policies to control this action\'s access to Amazon SWF -- resources as follows: ----- Use a 'Resource' element with the domain name to limit the action to only--- specified domains. Use an 'Action' element to allow or deny permission to call--- this action. You cannot use an IAM policy to constrain this action's--- parameters.  If the caller does not have sufficient permissions to invoke the--- action, or the parameter values fall outside the specified constraints, the--- action fails. The associated event attribute's cause parameter will be set to--- OPERATION_NOT_PERMITTED. For details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAMto Manage Access to Amazon SWF Workflows>.+-- -   Use a 'Resource' element with the domain name to limit the action to+--     only specified domains.+-- -   Use an 'Action' element to allow or deny permission to call this+--     action.+-- -   You cannot use an IAM policy to constrain this action\'s parameters. ----- <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_ListActivityTypes.html>+-- If the caller does not have sufficient permissions to invoke the action,+-- or the parameter values fall outside the specified constraints, the+-- action fails. The associated event attribute\'s __cause__ parameter will+-- be set to OPERATION_NOT_PERMITTED. For details and example IAM policies,+-- see+-- <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows>.+--+-- /See:/ <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_ListActivityTypes.html AWS API Reference> for ListActivityTypes.+--+-- This operation returns paginated results. module Network.AWS.SWF.ListActivityTypes     (-    -- * Request-      ListActivityTypes-    -- ** Request constructor-    , listActivityTypes-    -- ** Request lenses-    , latDomain-    , latMaximumPageSize-    , latName+    -- * Creating a Request+      listActivityTypes+    , ListActivityTypes+    -- * Request Lenses     , latNextPageToken-    , latRegistrationStatus     , latReverseOrder+    , latName+    , latMaximumPageSize+    , latDomain+    , latRegistrationStatus -    -- * Response-    , ListActivityTypesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , listActivityTypesResponse-    -- ** Response lenses-    , latrNextPageToken-    , latrTypeInfos+    , ListActivityTypesResponse+    -- * Response Lenses+    , latrsNextPageToken+    , latrsStatus+    , latrsTypeInfos     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.SWF.Types-import qualified GHC.Exts+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SWF.Types+import           Network.AWS.SWF.Types.Product -data ListActivityTypes = ListActivityTypes-    { _latDomain             :: Text-    , _latMaximumPageSize    :: Maybe Nat-    , _latName               :: Maybe Text-    , _latNextPageToken      :: Maybe Text-    , _latRegistrationStatus :: RegistrationStatus-    , _latReverseOrder       :: Maybe Bool-    } deriving (Eq, Read, Show)+-- | /See:/ 'listActivityTypes' smart constructor.+data ListActivityTypes = ListActivityTypes'+    { _latNextPageToken      :: !(Maybe Text)+    , _latReverseOrder       :: !(Maybe Bool)+    , _latName               :: !(Maybe Text)+    , _latMaximumPageSize    :: !(Maybe Nat)+    , _latDomain             :: !Text+    , _latRegistrationStatus :: !RegistrationStatus+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'ListActivityTypes' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'ListActivityTypes' with the minimum fields required to make a request. ----- * 'latDomain' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'latMaximumPageSize' @::@ 'Maybe' 'Natural'+-- * 'latNextPageToken' ----- * 'latName' @::@ 'Maybe' 'Text'+-- * 'latReverseOrder' ----- * 'latNextPageToken' @::@ 'Maybe' 'Text'+-- * 'latName' ----- * 'latRegistrationStatus' @::@ 'RegistrationStatus'+-- * 'latMaximumPageSize' ----- * 'latReverseOrder' @::@ 'Maybe' 'Bool'+-- * 'latDomain' ---listActivityTypes :: Text -- ^ 'latDomain'-                  -> RegistrationStatus -- ^ 'latRegistrationStatus'-                  -> ListActivityTypes-listActivityTypes p1 p2 = ListActivityTypes-    { _latDomain             = p1-    , _latRegistrationStatus = p2-    , _latName               = Nothing-    , _latNextPageToken      = Nothing-    , _latMaximumPageSize    = Nothing-    , _latReverseOrder       = Nothing+-- * 'latRegistrationStatus'+listActivityTypes+    :: Text -- ^ 'latDomain'+    -> RegistrationStatus -- ^ 'latRegistrationStatus'+    -> ListActivityTypes+listActivityTypes pDomain_ pRegistrationStatus_ =+    ListActivityTypes'+    { _latNextPageToken = Nothing+    , _latReverseOrder = Nothing+    , _latName = Nothing+    , _latMaximumPageSize = Nothing+    , _latDomain = pDomain_+    , _latRegistrationStatus = pRegistrationStatus_     } --- | The name of the domain in which the activity types have been registered.-latDomain :: Lens' ListActivityTypes Text-latDomain = lens _latDomain (\s a -> s { _latDomain = a })---- | The maximum number of results that will be returned per call. 'nextPageToken'--- can be used to obtain futher pages of results. The default is 100, which is--- the maximum allowed page size. You can, however, specify a page size /smaller/--- than 100.+-- | If a 'NextPageToken' was returned by a previous call, there are more+-- results available. To retrieve the next page of results, make the call+-- again using the returned token in 'nextPageToken'. Keep all other+-- arguments unchanged. ----- This is an upper limit only; the actual number of results returned per call--- may be fewer than the specified maximum.-latMaximumPageSize :: Lens' ListActivityTypes (Maybe Natural)-latMaximumPageSize =-    lens _latMaximumPageSize (\s a -> s { _latMaximumPageSize = a })-        . mapping _Nat+-- The configured 'maximumPageSize' determines how many results can be+-- returned in a single call.+latNextPageToken :: Lens' ListActivityTypes (Maybe Text)+latNextPageToken = lens _latNextPageToken (\ s a -> s{_latNextPageToken = a}); +-- | When set to 'true', returns the results in reverse order. By default,+-- the results are returned in ascending alphabetical order by 'name' of+-- the activity types.+latReverseOrder :: Lens' ListActivityTypes (Maybe Bool)+latReverseOrder = lens _latReverseOrder (\ s a -> s{_latReverseOrder = a});+ -- | If specified, only lists the activity types that have this name. latName :: Lens' ListActivityTypes (Maybe Text)-latName = lens _latName (\s a -> s { _latName = a })+latName = lens _latName (\ s a -> s{_latName = a}); --- | If a 'NextPageToken' was returned by a previous call, there are more results--- available. To retrieve the next page of results, make the call again using--- the returned token in 'nextPageToken'. Keep all other arguments unchanged.+-- | The maximum number of results that will be returned per call.+-- 'nextPageToken' can be used to obtain futher pages of results. The+-- default is 1000, which is the maximum allowed page size. You can,+-- however, specify a page size /smaller/ than the maximum. ----- The configured 'maximumPageSize' determines how many results can be returned--- in a single call.-latNextPageToken :: Lens' ListActivityTypes (Maybe Text)-latNextPageToken = lens _latNextPageToken (\s a -> s { _latNextPageToken = a })+-- This is an upper limit only; the actual number of results returned per+-- call may be fewer than the specified maximum.+latMaximumPageSize :: Lens' ListActivityTypes (Maybe Natural)+latMaximumPageSize = lens _latMaximumPageSize (\ s a -> s{_latMaximumPageSize = a}) . mapping _Nat; +-- | The name of the domain in which the activity types have been registered.+latDomain :: Lens' ListActivityTypes Text+latDomain = lens _latDomain (\ s a -> s{_latDomain = a});+ -- | Specifies the registration status of the activity types to list. latRegistrationStatus :: Lens' ListActivityTypes RegistrationStatus-latRegistrationStatus =-    lens _latRegistrationStatus (\s a -> s { _latRegistrationStatus = a })---- | When set to 'true', returns the results in reverse order. By default, the--- results are returned in ascending alphabetical order by 'name' of the activity--- types.-latReverseOrder :: Lens' ListActivityTypes (Maybe Bool)-latReverseOrder = lens _latReverseOrder (\s a -> s { _latReverseOrder = a })+latRegistrationStatus = lens _latRegistrationStatus (\ s a -> s{_latRegistrationStatus = a}); -data ListActivityTypesResponse = ListActivityTypesResponse-    { _latrNextPageToken :: Maybe Text-    , _latrTypeInfos     :: List "typeInfos" ActivityTypeInfo-    } deriving (Eq, Read, Show)+instance AWSPager ListActivityTypes where+        page rq rs+          | stop (rs ^. latrsNextPageToken) = Nothing+          | stop (rs ^. latrsTypeInfos) = Nothing+          | otherwise =+            Just $ rq &+              latNextPageToken .~ rs ^. latrsNextPageToken --- | 'ListActivityTypesResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'latrNextPageToken' @::@ 'Maybe' 'Text'------ * 'latrTypeInfos' @::@ ['ActivityTypeInfo']----listActivityTypesResponse :: ListActivityTypesResponse-listActivityTypesResponse = ListActivityTypesResponse-    { _latrTypeInfos     = mempty-    , _latrNextPageToken = Nothing-    }+instance AWSRequest ListActivityTypes where+        type Sv ListActivityTypes = SWF+        type Rs ListActivityTypes = ListActivityTypesResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 ListActivityTypesResponse' <$>+                   (x .?> "nextPageToken") <*> (pure (fromEnum s)) <*>+                     (x .?> "typeInfos" .!@ mempty)) --- | If a 'NextPageToken' was returned by a previous call, there are more results--- available. To retrieve the next page of results, make the call again using--- the returned token in 'nextPageToken'. Keep all other arguments unchanged.------ The configured 'maximumPageSize' determines how many results can be returned--- in a single call.-latrNextPageToken :: Lens' ListActivityTypesResponse (Maybe Text)-latrNextPageToken =-    lens _latrNextPageToken (\s a -> s { _latrNextPageToken = a })+instance ToHeaders ListActivityTypes where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SimpleWorkflowService.ListActivityTypes" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.0" :: ByteString)]) --- | List of activity type information.-latrTypeInfos :: Lens' ListActivityTypesResponse [ActivityTypeInfo]-latrTypeInfos = lens _latrTypeInfos (\s a -> s { _latrTypeInfos = a }) . _List+instance ToJSON ListActivityTypes where+        toJSON ListActivityTypes'{..}+          = object+              ["nextPageToken" .= _latNextPageToken,+               "reverseOrder" .= _latReverseOrder,+               "name" .= _latName,+               "maximumPageSize" .= _latMaximumPageSize,+               "domain" .= _latDomain,+               "registrationStatus" .= _latRegistrationStatus]  instance ToPath ListActivityTypes where-    toPath = const "/"+        toPath = const "/"  instance ToQuery ListActivityTypes where-    toQuery = const mempty--instance ToHeaders ListActivityTypes+        toQuery = const mempty -instance ToJSON ListActivityTypes where-    toJSON ListActivityTypes{..} = object-        [ "domain"             .= _latDomain-        , "name"               .= _latName-        , "registrationStatus" .= _latRegistrationStatus-        , "nextPageToken"      .= _latNextPageToken-        , "maximumPageSize"    .= _latMaximumPageSize-        , "reverseOrder"       .= _latReverseOrder-        ]+-- | Contains a paginated list of activity type information structures.+--+-- /See:/ 'listActivityTypesResponse' smart constructor.+data ListActivityTypesResponse = ListActivityTypesResponse'+    { _latrsNextPageToken :: !(Maybe Text)+    , _latrsStatus        :: !Int+    , _latrsTypeInfos     :: ![ActivityTypeInfo]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest ListActivityTypes where-    type Sv ListActivityTypes = SWF-    type Rs ListActivityTypes = ListActivityTypesResponse+-- | Creates a value of 'ListActivityTypesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'latrsNextPageToken'+--+-- * 'latrsStatus'+--+-- * 'latrsTypeInfos'+listActivityTypesResponse+    :: Int -- ^ 'latrsStatus'+    -> ListActivityTypesResponse+listActivityTypesResponse pStatus_ =+    ListActivityTypesResponse'+    { _latrsNextPageToken = Nothing+    , _latrsStatus = pStatus_+    , _latrsTypeInfos = mempty+    } -    request  = post "ListActivityTypes"-    response = jsonResponse+-- | If a 'NextPageToken' was returned by a previous call, there are more+-- results available. To retrieve the next page of results, make the call+-- again using the returned token in 'nextPageToken'. Keep all other+-- arguments unchanged.+--+-- The configured 'maximumPageSize' determines how many results can be+-- returned in a single call.+latrsNextPageToken :: Lens' ListActivityTypesResponse (Maybe Text)+latrsNextPageToken = lens _latrsNextPageToken (\ s a -> s{_latrsNextPageToken = a}); -instance FromJSON ListActivityTypesResponse where-    parseJSON = withObject "ListActivityTypesResponse" $ \o -> ListActivityTypesResponse-        <$> o .:? "nextPageToken"-        <*> o .:? "typeInfos" .!= mempty+-- | The response status code.+latrsStatus :: Lens' ListActivityTypesResponse Int+latrsStatus = lens _latrsStatus (\ s a -> s{_latrsStatus = a}); -instance AWSPager ListActivityTypes where-    page rq rs-        | stop (rs ^. latrNextPageToken) = Nothing-        | otherwise = (\x -> rq & latNextPageToken ?~ x)-            <$> (rs ^. latrNextPageToken)+-- | List of activity type information.+latrsTypeInfos :: Lens' ListActivityTypesResponse [ActivityTypeInfo]+latrsTypeInfos = lens _latrsTypeInfos (\ s a -> s{_latrsTypeInfos = a}) . _Coerce;

@@ -1,292 +1,269 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.SWF.ListClosedWorkflowExecutions--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Returns a list of closed workflow executions in the specified domain that--- meet the filtering criteria. The results may be split into multiple pages. To--- retrieve subsequent pages, make the call again using the nextPageToken--- returned by the initial call.+-- Returns a list of closed workflow executions in the specified domain+-- that meet the filtering criteria. The results may be split into multiple+-- pages. To retrieve subsequent pages, make the call again using the+-- nextPageToken returned by the initial call. ----- This operation is eventually consistent. The results are best effort and may--- not exactly reflect recent updates and changes. Access Control+-- This operation is eventually consistent. The results are best effort and+-- may not exactly reflect recent updates and changes. ----- You can use IAM policies to control this action's access to Amazon SWF+-- __Access Control__+--+-- You can use IAM policies to control this action\'s access to Amazon SWF -- resources as follows: ----- Use a 'Resource' element with the domain name to limit the action to only--- specified domains. Use an 'Action' element to allow or deny permission to call--- this action. Constrain the following parameters by using a 'Condition' element--- with the appropriate keys.  'tagFilter.tag': String constraint. The key is 'swf:tagFilter.tag'. 'typeFilter.name': String constraint. The key is 'swf:typeFilter.name'. 'typeFilter.version': String constraint. The key is 'swf:typeFilter.version'.    If the caller does--- not have sufficient permissions to invoke the action, or the parameter values--- fall outside the specified constraints, the action fails. The associated--- event attribute's cause parameter will be set to OPERATION_NOT_PERMITTED. For--- details and example IAM policies, see <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to AmazonSWF Workflows>.+-- -   Use a 'Resource' element with the domain name to limit the action to+--     only specified domains.+-- -   Use an 'Action' element to allow or deny permission to call this+--     action.+-- -   Constrain the following parameters by using a 'Condition' element+--     with the appropriate keys.+--     -   'tagFilter.tag': String constraint. The key is+--         'swf:tagFilter.tag'.+--     -   'typeFilter.name': String constraint. The key is+--         'swf:typeFilter.name'.+--     -   'typeFilter.version': String constraint. The key is+--         'swf:typeFilter.version'. ----- <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_ListClosedWorkflowExecutions.html>+-- If the caller does not have sufficient permissions to invoke the action,+-- or the parameter values fall outside the specified constraints, the+-- action fails. The associated event attribute\'s __cause__ parameter will+-- be set to OPERATION_NOT_PERMITTED. For details and example IAM policies,+-- see+-- <http://docs.aws.amazon.com/amazonswf/latest/developerguide/swf-dev-iam.html Using IAM to Manage Access to Amazon SWF Workflows>.+--+-- /See:/ <http://docs.aws.amazon.com/amazonswf/latest/apireference/API_ListClosedWorkflowExecutions.html AWS API Reference> for ListClosedWorkflowExecutions.+--+-- This operation returns paginated results. module Network.AWS.SWF.ListClosedWorkflowExecutions     (-    -- * Request-      ListClosedWorkflowExecutions-    -- ** Request constructor-    , listClosedWorkflowExecutions-    -- ** Request lenses+    -- * Creating a Request+      listClosedWorkflowExecutions+    , ListClosedWorkflowExecutions+    -- * Request Lenses+    , lcweNextPageToken     , lcweCloseStatusFilter-    , lcweCloseTimeFilter-    , lcweDomain     , lcweExecutionFilter-    , lcweMaximumPageSize-    , lcweNextPageToken+    , lcweTypeFilter+    , lcweCloseTimeFilter     , lcweReverseOrder-    , lcweStartTimeFilter     , lcweTagFilter-    , lcweTypeFilter+    , lcweStartTimeFilter+    , lcweMaximumPageSize+    , lcweDomain -    -- * Response-    , ListClosedWorkflowExecutionsResponse-    -- ** Response constructor-    , listClosedWorkflowExecutionsResponse-    -- ** Response lenses-    , lcwerExecutionInfos-    , lcwerNextPageToken+    -- * Destructuring the Response+    , workflowExecutionInfos+    , WorkflowExecutionInfos+    -- * Response Lenses+    , weiNextPageToken+    , weiExecutionInfos     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.SWF.Types-import qualified GHC.Exts+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.SWF.Types+import           Network.AWS.SWF.Types.Product -data ListClosedWorkflowExecutions = ListClosedWorkflowExecutions-    { _lcweCloseStatusFilter :: Maybe CloseStatusFilter-    , _lcweCloseTimeFilter   :: Maybe ExecutionTimeFilter-    , _lcweDomain            :: Text-    , _lcweExecutionFilter   :: Maybe WorkflowExecutionFilter-    , _lcweMaximumPageSize   :: Maybe Nat-    , _lcweNextPageToken     :: Maybe Text-    , _lcweReverseOrder      :: Maybe Bool-    , _lcweStartTimeFilter   :: Maybe ExecutionTimeFilter-    , _lcweTagFilter         :: Maybe TagFilter-    , _lcweTypeFilter        :: Maybe WorkflowTypeFilter-    } deriving (Eq, Read, Show)+-- | /See:/ 'listClosedWorkflowExecutions' smart constructor.+data ListClosedWorkflowExecutions = ListClosedWorkflowExecutions'+    { _lcweNextPageToken     :: !(Maybe Text)+    , _lcweCloseStatusFilter :: !(Maybe CloseStatusFilter)+    , _lcweExecutionFilter   :: !(Maybe WorkflowExecutionFilter)+    , _lcweTypeFilter        :: !(Maybe WorkflowTypeFilter)+    , _lcweCloseTimeFilter   :: !(Maybe ExecutionTimeFilter)+    , _lcweReverseOrder      :: !(Maybe Bool)+    , _lcweTagFilter         :: !(Maybe TagFilter)+    , _lcweStartTimeFilter   :: !(Maybe ExecutionTimeFilter)+    , _lcweMaximumPageSize   :: !(Maybe Nat)+    , _lcweDomain            :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'ListClosedWorkflowExecutions' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'ListClosedWorkflowExecutions' with the minimum fields required to make a request. ----- * 'lcweCloseStatusFilter' @::@ 'Maybe' 'CloseStatusFilter'+-- Use one of the following lenses to modify other fields as desired: ----- * 'lcweCloseTimeFilter' @::@ 'Maybe' 'ExecutionTimeFilter'+-- * 'lcweNextPageToken' ----- * 'lcweDomain' @::@ 'Text'+-- * 'lcweCloseStatusFilter' ----- * 'lcweExecutionFilter' @::@ 'Maybe' 'WorkflowExecutionFilter'+-- * 'lcweExecutionFilter' ----- * 'lcweMaximumPageSize' @::@ 'Maybe' 'Natural'+-- * 'lcweTypeFilter' ----- * 'lcweNextPageToken' @::@ 'Maybe' 'Text'+-- * 'lcweCloseTimeFilter' ----- * 'lcweReverseOrder' @::@ 'Maybe' 'Bool'+-- * 'lcweReverseOrder' ----- * 'lcweStartTimeFilter' @::@ 'Maybe' 'ExecutionTimeFilter'+-- * 'lcweTagFilter' ----- * 'lcweTagFilter' @::@ 'Maybe' 'TagFilter'+-- * 'lcweStartTimeFilter' ----- * 'lcweTypeFilter' @::@ 'Maybe' 'WorkflowTypeFilter'+-- * 'lcweMaximumPageSize' ---listClosedWorkflowExecutions :: Text -- ^ 'lcweDomain'-                             -> ListClosedWorkflowExecutions-listClosedWorkflowExecutions p1 = ListClosedWorkflowExecutions-    { _lcweDomain            = p1-    , _lcweStartTimeFilter   = Nothing-    , _lcweCloseTimeFilter   = Nothing-    , _lcweExecutionFilter   = Nothing+-- * 'lcweDomain'+listClosedWorkflowExecutions+    :: Text -- ^ 'lcweDomain'+    -> ListClosedWorkflowExecutions+listClosedWorkflowExecutions pDomain_ =+    ListClosedWorkflowExecutions'+    { _lcweNextPageToken = Nothing     , _lcweCloseStatusFilter = Nothing-    , _lcweTypeFilter        = Nothing-    , _lcweTagFilter         = Nothing-    , _lcweNextPageToken     = Nothing-    , _lcweMaximumPageSize   = Nothing-    , _lcweReverseOrder      = Nothing+    , _lcweExecutionFilter = Nothing+    , _lcweTypeFilter = Nothing+    , _lcweCloseTimeFilter = Nothing+    , _lcweReverseOrder = Nothing+    , _lcweTagFilter = Nothing+    , _lcweStartTimeFilter = Nothing+    , _lcweMaximumPageSize = Nothing+    , _lcweDomain = pDomain_     } --- | If specified, only workflow executions that match this /close status/ are--- listed. For example, if TERMINATED is specified, then only TERMINATED--- workflow executions are listed.+-- | If a 'NextPageToken' was returned by a previous call, there are more+-- results available. To retrieve the next page of results, make the call+-- again using the returned token in 'nextPageToken'. Keep all other+-- arguments unchanged. ----- 'closeStatusFilter', 'executionFilter', 'typeFilter' and 'tagFilter' are mutually--- exclusive. You can specify at most one of these in a request.-lcweCloseStatusFilter :: Lens' ListClosedWorkflowExecutions (Maybe CloseStatusFilter)-lcweCloseStatusFilter =-    lens _lcweCloseStatusFilter (\s a -> s { _lcweCloseStatusFilter = a })+-- The configured 'maximumPageSize' determines how many results can be+-- returned in a single call.+lcweNextPageToken :: Lens' ListClosedWorkflowExecutions (Maybe Text)+lcweNextPageToken = lens _lcweNextPageToken (\ s a -> s{_lcweNextPageToken = a}); --- | If specified, the workflow executions are included in the returned results--- based on whether their close times are within the range specified by this--- filter. Also, if this parameter is specified, the returned results are--- ordered by their close times.+-- | If specified, only workflow executions that match this /close status/+-- are listed. For example, if TERMINATED is specified, then only+-- TERMINATED workflow executions are listed. ----- 'startTimeFilter' and 'closeTimeFilter' are mutually exclusive. You must specify--- one of these in a request but not both.-lcweCloseTimeFilter :: Lens' ListClosedWorkflowExecutions (Maybe ExecutionTimeFilter)-lcweCloseTimeFilter =-    lens _lcweCloseTimeFilter (\s a -> s { _lcweCloseTimeFilter = a })---- | The name of the domain that contains the workflow executions to list.-lcweDomain :: Lens' ListClosedWorkflowExecutions Text-lcweDomain = lens _lcweDomain (\s a -> s { _lcweDomain = a })+-- 'closeStatusFilter', 'executionFilter', 'typeFilter' and 'tagFilter' are+-- mutually exclusive. You can specify at most one of these in a request.+lcweCloseStatusFilter :: Lens' ListClosedWorkflowExecutions (Maybe CloseStatusFilter)+lcweCloseStatusFilter = lens _lcweCloseStatusFilter (\ s a -> s{_lcweCloseStatusFilter = a}); --- | If specified, only workflow executions matching the workflow id specified in--- the filter are returned.+-- | If specified, only workflow executions matching the workflow ID+-- specified in the filter are returned. ----- 'closeStatusFilter', 'executionFilter', 'typeFilter' and 'tagFilter' are mutually--- exclusive. You can specify at most one of these in a request.+-- 'closeStatusFilter', 'executionFilter', 'typeFilter' and 'tagFilter' are+-- mutually exclusive. You can specify at most one of these in a request. lcweExecutionFilter :: Lens' ListClosedWorkflowExecutions (Maybe WorkflowExecutionFilter)-lcweExecutionFilter =-    lens _lcweExecutionFilter (\s a -> s { _lcweExecutionFilter = a })+lcweExecutionFilter = lens _lcweExecutionFilter (\ s a -> s{_lcweExecutionFilter = a}); --- | The maximum number of results that will be returned per call. 'nextPageToken'--- can be used to obtain futher pages of results. The default is 100, which is--- the maximum allowed page size. You can, however, specify a page size /smaller/--- than 100.+-- | If specified, only executions of the type specified in the filter are+-- returned. ----- This is an upper limit only; the actual number of results returned per call--- may be fewer than the specified maximum.-lcweMaximumPageSize :: Lens' ListClosedWorkflowExecutions (Maybe Natural)-lcweMaximumPageSize =-    lens _lcweMaximumPageSize (\s a -> s { _lcweMaximumPageSize = a })-        . mapping _Nat+-- 'closeStatusFilter', 'executionFilter', 'typeFilter' and 'tagFilter' are+-- mutually exclusive. You can specify at most one of these in a request.+lcweTypeFilter :: Lens' ListClosedWorkflowExecutions (Maybe WorkflowTypeFilter)+lcweTypeFilter = lens _lcweTypeFilter (\ s a -> s{_lcweTypeFilter = a}); --- | If a 'NextPageToken' was returned by a previous call, there are more results--- available. To retrieve the next page of results, make the call again using--- the returned token in 'nextPageToken'. Keep all other arguments unchanged.+-- | If specified, the workflow executions are included in the returned+-- results based on whether their close times are within the range+-- specified by this filter. Also, if this parameter is specified, the+-- returned results are ordered by their close times. ----- The configured 'maximumPageSize' determines how many results can be returned--- in a single call.-lcweNextPageToken :: Lens' ListClosedWorkflowExecutions (Maybe Text)-lcweNextPageToken =-    lens _lcweNextPageToken (\s a -> s { _lcweNextPageToken = a })+-- 'startTimeFilter' and 'closeTimeFilter' are mutually exclusive. You must+-- specify one of these in a request but not both.+lcweCloseTimeFilter :: Lens' ListClosedWorkflowExecutions (Maybe ExecutionTimeFilter)+lcweCloseTimeFilter = lens _lcweCloseTimeFilter (\ s a -> s{_lcweCloseTimeFilter = a});  -- | When set to 'true', returns the results in reverse order. By default the--- results are returned in descending order of the start or the close time of--- the executions.+-- results are returned in descending order of the start or the close time+-- of the executions. lcweReverseOrder :: Lens' ListClosedWorkflowExecutions (Maybe Bool)-lcweReverseOrder = lens _lcweReverseOrder (\s a -> s { _lcweReverseOrder = a })---- | If specified, the workflow executions are included in the returned results--- based on whether their start times are within the range specified by this--- filter. Also, if this parameter is specified, the returned results are--- ordered by their start times.------ 'startTimeFilter' and 'closeTimeFilter' are mutually exclusive. You must specify--- one of these in a request but not both.-lcweStartTimeFilter :: Lens' ListClosedWorkflowExecutions (Maybe ExecutionTimeFilter)-lcweStartTimeFilter =-    lens _lcweStartTimeFilter (\s a -> s { _lcweStartTimeFilter = a })+lcweReverseOrder = lens _lcweReverseOrder (\ s a -> s{_lcweReverseOrder = a});  -- | If specified, only executions that have the matching tag are listed. ----- 'closeStatusFilter', 'executionFilter', 'typeFilter' and 'tagFilter' are mutually--- exclusive. You can specify at most one of these in a request.+-- 'closeStatusFilter', 'executionFilter', 'typeFilter' and 'tagFilter' are+-- mutually exclusive. You can specify at most one of these in a request. lcweTagFilter :: Lens' ListClosedWorkflowExecutions (Maybe TagFilter)-lcweTagFilter = lens _lcweTagFilter (\s a -> s { _lcweTagFilter = a })+lcweTagFilter = lens _lcweTagFilter (\ s a -> s{_lcweTagFilter = a}); --- | If specified, only executions of the type specified in the filter are--- returned.+-- | If specified, the workflow executions are included in the returned+-- results based on whether their start times are within the range+-- specified by this filter. Also, if this parameter is specified, the+-- returned results are ordered by their start times. ----- 'closeStatusFilter', 'executionFilter', 'typeFilter' and 'tagFilter' are mutually--- exclusive. You can specify at most one of these in a request.-lcweTypeFilter :: Lens' ListClosedWorkflowExecutions (Maybe WorkflowTypeFilter)-lcweTypeFilter = lens _lcweTypeFilter (\s a -> s { _lcweTypeFilter = a })--data ListClosedWorkflowExecutionsResponse = ListClosedWorkflowExecutionsResponse-    { _lcwerExecutionInfos :: List "executionInfos" WorkflowExecutionInfo-    , _lcwerNextPageToken  :: Maybe Text-    } deriving (Eq, Read, Show)+-- 'startTimeFilter' and 'closeTimeFilter' are mutually exclusive. You must+-- specify one of these in a request but not both.+lcweStartTimeFilter :: Lens' ListClosedWorkflowExecutions (Maybe ExecutionTimeFilter)+lcweStartTimeFilter = lens _lcweStartTimeFilter (\ s a -> s{_lcweStartTimeFilter = a}); --- | 'ListClosedWorkflowExecutionsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'lcwerExecutionInfos' @::@ ['WorkflowExecutionInfo']------ * 'lcwerNextPageToken' @::@ 'Maybe' 'Text'+-- | The maximum number of results that will be returned per call.+-- 'nextPageToken' can be used to obtain futher pages of results. The+-- default is 1000, which is the maximum allowed page size. You can,+-- however, specify a page size /smaller/ than the maximum. ---listClosedWorkflowExecutionsResponse :: ListClosedWorkflowExecutionsResponse-listClosedWorkflowExecutionsResponse = ListClosedWorkflowExecutionsResponse-    { _lcwerExecutionInfos = mempty-    , _lcwerNextPageToken  = Nothing-    }---- | The list of workflow information structures.-lcwerExecutionInfos :: Lens' ListClosedWorkflowExecutionsResponse [WorkflowExecutionInfo]-lcwerExecutionInfos =-    lens _lcwerExecutionInfos (\s a -> s { _lcwerExecutionInfos = a })-        . _List+-- This is an upper limit only; the actual number of results returned per+-- call may be fewer than the specified maximum.+lcweMaximumPageSize :: Lens' ListClosedWorkflowExecutions (Maybe Natural)+lcweMaximumPageSize = lens _lcweMaximumPageSize (\ s a -> s{_lcweMaximumPageSize = a}) . mapping _Nat; --- | If a 'NextPageToken' was returned by a previous call, there are more results--- available. To retrieve the next page of results, make the call again using--- the returned token in 'nextPageToken'. Keep all other arguments unchanged.------ The configured 'maximumPageSize' determines how many results can be returned--- in a single call.-lcwerNextPageToken :: Lens' ListClosedWorkflowExecutionsResponse (Maybe Text)-lcwerNextPageToken =-    lens _lcwerNextPageToken (\s a -> s { _lcwerNextPageToken = a })+-- | The name of the domain that contains the workflow executions to list.+lcweDomain :: Lens' ListClosedWorkflowExecutions Text+lcweDomain = lens _lcweDomain (\ s a -> s{_lcweDomain = a}); -instance ToPath ListClosedWorkflowExecutions where-    toPath = const "/"+instance AWSPager ListClosedWorkflowExecutions where+        page rq rs+          | stop (rs ^. weiNextPageToken) = Nothing+          | stop (rs ^. weiExecutionInfos) = Nothing+          | otherwise =+            Just $ rq &+              lcweNextPageToken .~ rs ^. weiNextPageToken -instance ToQuery ListClosedWorkflowExecutions where-    toQuery = const mempty+instance AWSRequest ListClosedWorkflowExecutions+         where+        type Sv ListClosedWorkflowExecutions = SWF+        type Rs ListClosedWorkflowExecutions =+             WorkflowExecutionInfos+        request = postJSON+        response = receiveJSON (\ s h x -> eitherParseJSON x) -instance ToHeaders ListClosedWorkflowExecutions+instance ToHeaders ListClosedWorkflowExecutions where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("SimpleWorkflowService.ListClosedWorkflowExecutions"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.0" :: ByteString)])  instance ToJSON ListClosedWorkflowExecutions where-    toJSON ListClosedWorkflowExecutions{..} = object-        [ "domain"            .= _lcweDomain-        , "startTimeFilter"   .= _lcweStartTimeFilter-        , "closeTimeFilter"   .= _lcweCloseTimeFilter-        , "executionFilter"   .= _lcweExecutionFilter-        , "closeStatusFilter" .= _lcweCloseStatusFilter-        , "typeFilter"        .= _lcweTypeFilter-        , "tagFilter"         .= _lcweTagFilter-        , "nextPageToken"     .= _lcweNextPageToken-        , "maximumPageSize"   .= _lcweMaximumPageSize-        , "reverseOrder"      .= _lcweReverseOrder-        ]--instance AWSRequest ListClosedWorkflowExecutions where-    type Sv ListClosedWorkflowExecutions = SWF-    type Rs ListClosedWorkflowExecutions = ListClosedWorkflowExecutionsResponse--    request  = post "ListClosedWorkflowExecutions"-    response = jsonResponse+        toJSON ListClosedWorkflowExecutions'{..}+          = object+              ["nextPageToken" .= _lcweNextPageToken,+               "closeStatusFilter" .= _lcweCloseStatusFilter,+               "executionFilter" .= _lcweExecutionFilter,+               "typeFilter" .= _lcweTypeFilter,+               "closeTimeFilter" .= _lcweCloseTimeFilter,+               "reverseOrder" .= _lcweReverseOrder,+               "tagFilter" .= _lcweTagFilter,+               "startTimeFilter" .= _lcweStartTimeFilter,+               "maximumPageSize" .= _lcweMaximumPageSize,+               "domain" .= _lcweDomain] -instance FromJSON ListClosedWorkflowExecutionsResponse where-    parseJSON = withObject "ListClosedWorkflowExecutionsResponse" $ \o -> ListClosedWorkflowExecutionsResponse-        <$> o .:? "executionInfos" .!= mempty-        <*> o .:? "nextPageToken"+instance ToPath ListClosedWorkflowExecutions where+        toPath = const "/" -instance AWSPager ListClosedWorkflowExecutions where-    page rq rs-        | stop (rs ^. lcwerNextPageToken) = Nothing-        | otherwise = (\x -> rq & lcweNextPageToken ?~ x)-            <$> (rs ^. lcwerNextPageToken)+instance ToQuery ListClosedWorkflowExecutions where+        toQuery = const mempty