amazonka-swf 1.3.6 → 1.3.7

raw patch · 38 files changed

+108/−78 lines, 38 filesdep −lensdep ~amazonka-coredep ~amazonka-swfdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependencies removed: lens

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-swf.cabal +5/−6
• gen/Network/AWS/SWF/CountClosedWorkflowExecutions.hs +1/−0
• gen/Network/AWS/SWF/CountOpenWorkflowExecutions.hs +1/−0
• gen/Network/AWS/SWF/CountPendingActivityTasks.hs +1/−0
• gen/Network/AWS/SWF/CountPendingDecisionTasks.hs +1/−0
• gen/Network/AWS/SWF/DeprecateActivityType.hs +1/−0
• gen/Network/AWS/SWF/DeprecateDomain.hs +1/−0
• gen/Network/AWS/SWF/DeprecateWorkflowType.hs +1/−0
• gen/Network/AWS/SWF/DescribeActivityType.hs +1/−0
• gen/Network/AWS/SWF/DescribeDomain.hs +1/−0
• gen/Network/AWS/SWF/DescribeWorkflowExecution.hs +1/−0
• gen/Network/AWS/SWF/DescribeWorkflowType.hs +1/−0
• gen/Network/AWS/SWF/GetWorkflowExecutionHistory.hs +1/−0
• gen/Network/AWS/SWF/ListActivityTypes.hs +1/−0
• gen/Network/AWS/SWF/ListClosedWorkflowExecutions.hs +1/−0
• gen/Network/AWS/SWF/ListDomains.hs +1/−0
• gen/Network/AWS/SWF/ListOpenWorkflowExecutions.hs +1/−0
• gen/Network/AWS/SWF/ListWorkflowTypes.hs +1/−0
• gen/Network/AWS/SWF/PollForActivityTask.hs +24/−25
• gen/Network/AWS/SWF/PollForDecisionTask.hs +13/−13
• gen/Network/AWS/SWF/RecordActivityTaskHeartbeat.hs +1/−0
• gen/Network/AWS/SWF/RegisterActivityType.hs +1/−0
• gen/Network/AWS/SWF/RegisterDomain.hs +1/−0
• gen/Network/AWS/SWF/RegisterWorkflowType.hs +1/−0
• gen/Network/AWS/SWF/RequestCancelWorkflowExecution.hs +1/−0
• gen/Network/AWS/SWF/RespondActivityTaskCanceled.hs +1/−0
• gen/Network/AWS/SWF/RespondActivityTaskCompleted.hs +1/−0
• gen/Network/AWS/SWF/RespondActivityTaskFailed.hs +1/−0
• gen/Network/AWS/SWF/RespondDecisionTaskCompleted.hs +1/−0
• gen/Network/AWS/SWF/SignalWorkflowExecution.hs +1/−0
• gen/Network/AWS/SWF/StartWorkflowExecution.hs +1/−0
• gen/Network/AWS/SWF/TerminateWorkflowExecution.hs +1/−0
• gen/Network/AWS/SWF/Types.hs +1/−0
• gen/Network/AWS/SWF/Types/Product.hs +1/−0
• gen/Network/AWS/SWF/Types/Sum.hs +26/−26
• gen/Network/AWS/SWF/Waiters.hs +1/−0
• test/Test/AWS/SWF.hs +7/−7

@@ -8,7 +8,7 @@  ## Version -`1.3.6`+`1.3.7`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-swf-version:               1.3.6+version:               1.3.7 synopsis:              Amazon Simple Workflow Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -96,7 +96,7 @@         , Network.AWS.SWF.Types.Sum      build-depends:-          amazonka-core == 1.3.6.*+          amazonka-core == 1.3.7.*         , base          >= 4.7     && < 5  test-suite amazonka-swf-test@@ -116,12 +116,11 @@         , Test.AWS.SWF.Internal      build-depends:-          amazonka-core == 1.3.6.*-        , amazonka-test == 1.3.6.*-        , amazonka-swf == 1.3.6.*+          amazonka-core == 1.3.7.*+        , amazonka-test == 1.3.7.*+        , amazonka-swf == 1.3.7.*         , base         , bytestring-        , lens         , tasty         , tasty-hunit         , text

@@ -72,6 +72,7 @@     , wecCount     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -70,6 +70,7 @@     , wecCount     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -61,6 +61,7 @@     , ptcCount     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -61,6 +61,7 @@     , ptcCount     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -64,6 +64,7 @@     , DeprecateActivityTypeResponse     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -60,6 +60,7 @@     , DeprecateDomainResponse     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -65,6 +65,7 @@     , DeprecateWorkflowTypeResponse     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -64,6 +64,7 @@     , datrsConfiguration     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -57,6 +57,7 @@     , ddrsConfiguration     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -64,6 +64,7 @@     , dwersOpenCounts     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -64,6 +64,7 @@     , dwtrsConfiguration     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -67,6 +67,7 @@     , gwehrsEvents     ) where +import           Network.AWS.Lens import           Network.AWS.Pager import           Network.AWS.Prelude import           Network.AWS.Request

@@ -68,6 +68,7 @@     , latrsTypeInfos     ) where +import           Network.AWS.Lens import           Network.AWS.Pager import           Network.AWS.Prelude import           Network.AWS.Request

@@ -79,6 +79,7 @@     , weiExecutionInfos     ) where +import           Network.AWS.Lens import           Network.AWS.Pager import           Network.AWS.Prelude import           Network.AWS.Request

@@ -68,6 +68,7 @@     , ldrsDomainInfos     ) where +import           Network.AWS.Lens import           Network.AWS.Pager import           Network.AWS.Prelude import           Network.AWS.Request

@@ -77,6 +77,7 @@     , weiExecutionInfos     ) where +import           Network.AWS.Lens import           Network.AWS.Pager import           Network.AWS.Prelude import           Network.AWS.Request

@@ -65,6 +65,7 @@     , lwtrsTypeInfos     ) where +import           Network.AWS.Lens import           Network.AWS.Pager import           Network.AWS.Prelude import           Network.AWS.Request

@@ -67,15 +67,16 @@     , pollForActivityTaskResponse     , PollForActivityTaskResponse     -- * Response Lenses+    , pfatrsActivityId     , pfatrsInput-    , pfatrsResponseStatus     , pfatrsTaskToken-    , pfatrsActivityId+    , pfatrsResponseStatus     , pfatrsStartedEventId     , pfatrsWorkflowExecution     , pfatrsActivityType     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response@@ -137,9 +138,9 @@           = receiveJSON               (\ s h x ->                  PollForActivityTaskResponse' <$>-                   (x .?> "input") <*> (pure (fromEnum s)) <*>-                     (x .:> "taskToken")-                     <*> (x .:> "activityId")+                   (x .?> "activityId") <*> (x .?> "input") <*>+                     (x .?> "taskToken")+                     <*> (pure (fromEnum s))                      <*> (x .:> "startedEventId")                      <*> (x .:> "workflowExecution")                      <*> (x .:> "activityType"))@@ -172,10 +173,10 @@ -- -- /See:/ 'pollForActivityTaskResponse' smart constructor. data PollForActivityTaskResponse = PollForActivityTaskResponse'-    { _pfatrsInput             :: !(Maybe Text)+    { _pfatrsActivityId        :: !(Maybe Text)+    , _pfatrsInput             :: !(Maybe Text)+    , _pfatrsTaskToken         :: !(Maybe Text)     , _pfatrsResponseStatus    :: !Int-    , _pfatrsTaskToken         :: !Text-    , _pfatrsActivityId        :: !Text     , _pfatrsStartedEventId    :: !Integer     , _pfatrsWorkflowExecution :: !WorkflowExecution     , _pfatrsActivityType      :: !ActivityType@@ -185,13 +186,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'pfatrsInput'+-- * 'pfatrsActivityId' ----- * 'pfatrsResponseStatus'+-- * 'pfatrsInput' -- -- * 'pfatrsTaskToken' ----- * 'pfatrsActivityId'+-- * 'pfatrsResponseStatus' -- -- * 'pfatrsStartedEventId' --@@ -200,42 +201,40 @@ -- * 'pfatrsActivityType' pollForActivityTaskResponse     :: Int -- ^ 'pfatrsResponseStatus'-    -> Text -- ^ 'pfatrsTaskToken'-    -> Text -- ^ 'pfatrsActivityId'     -> Integer -- ^ 'pfatrsStartedEventId'     -> WorkflowExecution -- ^ 'pfatrsWorkflowExecution'     -> ActivityType -- ^ 'pfatrsActivityType'     -> PollForActivityTaskResponse-pollForActivityTaskResponse pResponseStatus_ pTaskToken_ pActivityId_ pStartedEventId_ pWorkflowExecution_ pActivityType_ =+pollForActivityTaskResponse pResponseStatus_ pStartedEventId_ pWorkflowExecution_ pActivityType_ =     PollForActivityTaskResponse'-    { _pfatrsInput = Nothing+    { _pfatrsActivityId = Nothing+    , _pfatrsInput = Nothing+    , _pfatrsTaskToken = Nothing     , _pfatrsResponseStatus = pResponseStatus_-    , _pfatrsTaskToken = pTaskToken_-    , _pfatrsActivityId = pActivityId_     , _pfatrsStartedEventId = pStartedEventId_     , _pfatrsWorkflowExecution = pWorkflowExecution_     , _pfatrsActivityType = pActivityType_     } +-- | The unique ID of the task.+pfatrsActivityId :: Lens' PollForActivityTaskResponse (Maybe Text)+pfatrsActivityId = lens _pfatrsActivityId (\ s a -> s{_pfatrsActivityId = a});+ -- | The inputs provided when the activity task was scheduled. The form of -- the input is user defined and should be meaningful to the activity -- implementation. pfatrsInput :: Lens' PollForActivityTaskResponse (Maybe Text) pfatrsInput = lens _pfatrsInput (\ s a -> s{_pfatrsInput = a}); --- | The response status code.-pfatrsResponseStatus :: Lens' PollForActivityTaskResponse Int-pfatrsResponseStatus = lens _pfatrsResponseStatus (\ s a -> s{_pfatrsResponseStatus = a});- -- | The opaque string used as a handle on the task. This token is used by -- workers to communicate progress and response information back to the -- system about the task.-pfatrsTaskToken :: Lens' PollForActivityTaskResponse Text+pfatrsTaskToken :: Lens' PollForActivityTaskResponse (Maybe Text) pfatrsTaskToken = lens _pfatrsTaskToken (\ s a -> s{_pfatrsTaskToken = a}); --- | The unique ID of the task.-pfatrsActivityId :: Lens' PollForActivityTaskResponse Text-pfatrsActivityId = lens _pfatrsActivityId (\ s a -> s{_pfatrsActivityId = a});+-- | The response status code.+pfatrsResponseStatus :: Lens' PollForActivityTaskResponse Int+pfatrsResponseStatus = lens _pfatrsResponseStatus (\ s a -> s{_pfatrsResponseStatus = a});  -- | The ID of the 'ActivityTaskStarted' event recorded in the history. pfatrsStartedEventId :: Lens' PollForActivityTaskResponse Integer

@@ -85,14 +85,15 @@     -- * Response Lenses     , pfdtrsNextPageToken     , pfdtrsPreviousStartedEventId-    , pfdtrsResponseStatus     , pfdtrsTaskToken+    , pfdtrsResponseStatus     , pfdtrsStartedEventId     , pfdtrsWorkflowExecution     , pfdtrsWorkflowType     , pfdtrsEvents     ) where +import           Network.AWS.Lens import           Network.AWS.Pager import           Network.AWS.Prelude import           Network.AWS.Request@@ -211,8 +212,8 @@                  PollForDecisionTaskResponse' <$>                    (x .?> "nextPageToken") <*>                      (x .?> "previousStartedEventId")+                     <*> (x .?> "taskToken")                      <*> (pure (fromEnum s))-                     <*> (x .:> "taskToken")                      <*> (x .:> "startedEventId")                      <*> (x .:> "workflowExecution")                      <*> (x .:> "workflowType")@@ -252,8 +253,8 @@ data PollForDecisionTaskResponse = PollForDecisionTaskResponse'     { _pfdtrsNextPageToken          :: !(Maybe Text)     , _pfdtrsPreviousStartedEventId :: !(Maybe Integer)+    , _pfdtrsTaskToken              :: !(Maybe Text)     , _pfdtrsResponseStatus         :: !Int-    , _pfdtrsTaskToken              :: !Text     , _pfdtrsStartedEventId         :: !Integer     , _pfdtrsWorkflowExecution      :: !WorkflowExecution     , _pfdtrsWorkflowType           :: !WorkflowType@@ -268,10 +269,10 @@ -- -- * 'pfdtrsPreviousStartedEventId' ----- * 'pfdtrsResponseStatus'--- -- * 'pfdtrsTaskToken' --+-- * 'pfdtrsResponseStatus'+-- -- * 'pfdtrsStartedEventId' -- -- * 'pfdtrsWorkflowExecution'@@ -281,17 +282,16 @@ -- * 'pfdtrsEvents' pollForDecisionTaskResponse     :: Int -- ^ 'pfdtrsResponseStatus'-    -> Text -- ^ 'pfdtrsTaskToken'     -> Integer -- ^ 'pfdtrsStartedEventId'     -> WorkflowExecution -- ^ 'pfdtrsWorkflowExecution'     -> WorkflowType -- ^ 'pfdtrsWorkflowType'     -> PollForDecisionTaskResponse-pollForDecisionTaskResponse pResponseStatus_ pTaskToken_ pStartedEventId_ pWorkflowExecution_ pWorkflowType_ =+pollForDecisionTaskResponse pResponseStatus_ pStartedEventId_ pWorkflowExecution_ pWorkflowType_ =     PollForDecisionTaskResponse'     { _pfdtrsNextPageToken = Nothing     , _pfdtrsPreviousStartedEventId = Nothing+    , _pfdtrsTaskToken = Nothing     , _pfdtrsResponseStatus = pResponseStatus_-    , _pfdtrsTaskToken = pTaskToken_     , _pfdtrsStartedEventId = pStartedEventId_     , _pfdtrsWorkflowExecution = pWorkflowExecution_     , _pfdtrsWorkflowType = pWorkflowType_@@ -315,15 +315,15 @@ pfdtrsPreviousStartedEventId :: Lens' PollForDecisionTaskResponse (Maybe Integer) pfdtrsPreviousStartedEventId = lens _pfdtrsPreviousStartedEventId (\ s a -> s{_pfdtrsPreviousStartedEventId = a}); --- | The response status code.-pfdtrsResponseStatus :: Lens' PollForDecisionTaskResponse Int-pfdtrsResponseStatus = lens _pfdtrsResponseStatus (\ s a -> s{_pfdtrsResponseStatus = a});- -- | The opaque string used as a handle on the task. This token is used by -- workers to communicate progress and response information back to the -- system about the task.-pfdtrsTaskToken :: Lens' PollForDecisionTaskResponse Text+pfdtrsTaskToken :: Lens' PollForDecisionTaskResponse (Maybe Text) pfdtrsTaskToken = lens _pfdtrsTaskToken (\ s a -> s{_pfdtrsTaskToken = a});++-- | The response status code.+pfdtrsResponseStatus :: Lens' PollForDecisionTaskResponse Int+pfdtrsResponseStatus = lens _pfdtrsResponseStatus (\ s a -> s{_pfdtrsResponseStatus = a});  -- | The ID of the 'DecisionTaskStarted' event recorded in the history. pfdtrsStartedEventId :: Lens' PollForDecisionTaskResponse Integer

@@ -85,6 +85,7 @@     , rathrsCancelRequested     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -71,6 +71,7 @@     , RegisterActivityTypeResponse     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -55,6 +55,7 @@     , RegisterDomainResponse     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -74,6 +74,7 @@     , RegisterWorkflowTypeResponse     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -66,6 +66,7 @@     , RequestCancelWorkflowExecutionResponse     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -69,6 +69,7 @@     , RespondActivityTaskCanceledResponse     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -69,6 +69,7 @@     , RespondActivityTaskCompletedResponse     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -64,6 +64,7 @@     , RespondActivityTaskFailedResponse     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -53,6 +53,7 @@     , RespondDecisionTaskCompletedResponse     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -67,6 +67,7 @@     , SignalWorkflowExecutionResponse     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -79,6 +79,7 @@     , swersResponseStatus     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -72,6 +72,7 @@     , TerminateWorkflowExecutionResponse     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response

@@ -870,6 +870,7 @@     , wtiCreationDate     ) where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.Sign.V4 import           Network.AWS.SWF.Types.Product

@@ -17,6 +17,7 @@ -- module Network.AWS.SWF.Types.Product where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.SWF.Types.Sum 

@@ -24,7 +24,7 @@     | ATTTScheduleToClose     | ATTTScheduleToStart     | ATTTStartToClose-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText ActivityTaskTimeoutType where     parser = takeLowerText >>= \case@@ -53,7 +53,7 @@ data CancelTimerFailedCause     = CTFCOperationNotPermitted     | CTFCTimerIdUnknown-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText CancelTimerFailedCause where     parser = takeLowerText >>= \case@@ -78,7 +78,7 @@ data CancelWorkflowExecutionFailedCause     = COperationNotPermitted     | CUnhandledDecision-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText CancelWorkflowExecutionFailedCause where     parser = takeLowerText >>= \case@@ -104,7 +104,7 @@     = Abandon     | RequestCancel     | Terminate-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText ChildPolicy where     parser = takeLowerText >>= \case@@ -138,7 +138,7 @@     | Failed     | Terminated     | TimedOut-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText CloseStatus where     parser = takeLowerText >>= \case@@ -174,7 +174,7 @@ data CompleteWorkflowExecutionFailedCause     = CWEFCOperationNotPermitted     | CWEFCUnhandledDecision-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText CompleteWorkflowExecutionFailedCause where     parser = takeLowerText >>= \case@@ -206,7 +206,7 @@     | CANWEFCUnhandledDecision     | CANWEFCWorkflowTypeDeprecated     | CANWEFCWorkflowTypeDoesNotExist-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText ContinueAsNewWorkflowExecutionFailedCause where     parser = takeLowerText >>= \case@@ -244,7 +244,7 @@  data DecisionTaskTimeoutType =     StartToClose-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText DecisionTaskTimeoutType where     parser = takeLowerText >>= \case@@ -278,7 +278,7 @@     | SignalExternalWorkflowExecution     | StartChildWorkflowExecution     | StartTimer-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText DecisionType where     parser = takeLowerText >>= \case@@ -377,7 +377,7 @@     | WorkflowExecutionStarted     | WorkflowExecutionTerminated     | WorkflowExecutionTimedOut-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText EventType where     parser = takeLowerText >>= \case@@ -506,7 +506,7 @@ data ExecutionStatus     = Closed     | Open-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText ExecutionStatus where     parser = takeLowerText >>= \case@@ -531,7 +531,7 @@ data FailWorkflowExecutionFailedCause     = FWEFCOperationNotPermitted     | FWEFCUnhandledDecision-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText FailWorkflowExecutionFailedCause where     parser = takeLowerText >>= \case@@ -555,7 +555,7 @@  data LambdaFunctionTimeoutType =     LFTTStartToClose-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText LambdaFunctionTimeoutType where     parser = takeLowerText >>= \case@@ -577,7 +577,7 @@  data RecordMarkerFailedCause =     OperationNotPermitted-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText RecordMarkerFailedCause where     parser = takeLowerText >>= \case@@ -600,7 +600,7 @@ data RegistrationStatus     = Deprecated     | Registered-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText RegistrationStatus where     parser = takeLowerText >>= \case@@ -628,7 +628,7 @@ data RequestCancelActivityTaskFailedCause     = RCATFCActivityIdUnknown     | RCATFCOperationNotPermitted-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText RequestCancelActivityTaskFailedCause where     parser = takeLowerText >>= \case@@ -654,7 +654,7 @@     = RCEWEFCOperationNotPermitted     | RCEWEFCRequestCancelExternalWorkflowExecutionRateExceeded     | RCEWEFCUnknownExternalWorkflowExecution-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText RequestCancelExternalWorkflowExecutionFailedCause where     parser = takeLowerText >>= \case@@ -690,7 +690,7 @@     | SATFCDefaultTaskListUndefined     | SATFCOpenActivitiesLimitExceeded     | SATFCOperationNotPermitted-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText ScheduleActivityTaskFailedCause where     parser = takeLowerText >>= \case@@ -735,7 +735,7 @@     | LambdaFunctionCreationRateExceeded     | LambdaServiceNotAvailableInRegion     | OpenLambdaFunctionsLimitExceeded-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText ScheduleLambdaFunctionFailedCause where     parser = takeLowerText >>= \case@@ -765,7 +765,7 @@     = SEWEFCOperationNotPermitted     | SEWEFCSignalExternalWorkflowExecutionRateExceeded     | SEWEFCUnknownExternalWorkflowExecution-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText SignalExternalWorkflowExecutionFailedCause where     parser = takeLowerText >>= \case@@ -801,7 +801,7 @@     | SCWEFCWorkflowAlreadyRunning     | SCWEFCWorkflowTypeDeprecated     | SCWEFCWorkflowTypeDoesNotExist-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText StartChildWorkflowExecutionFailedCause where     parser = takeLowerText >>= \case@@ -843,7 +843,7 @@  data StartLambdaFunctionFailedCause =     AssumeRoleFailed-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText StartLambdaFunctionFailedCause where     parser = takeLowerText >>= \case@@ -868,7 +868,7 @@     | STFCOperationNotPermitted     | STFCTimerCreationRateExceeded     | STFCTimerIdAlreadyInUse-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText StartTimerFailedCause where     parser = takeLowerText >>= \case@@ -896,7 +896,7 @@  data WorkflowExecutionCancelRequestedCause =     ChildPolicyApplied-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText WorkflowExecutionCancelRequestedCause where     parser = takeLowerText >>= \case@@ -920,7 +920,7 @@     = WETCChildPolicyApplied     | WETCEventLimitExceeded     | WETCOperatorInitiated-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText WorkflowExecutionTerminatedCause where     parser = takeLowerText >>= \case@@ -946,7 +946,7 @@  data WorkflowExecutionTimeoutType =     WETTStartToClose-    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText WorkflowExecutionTimeoutType where     parser = takeLowerText >>= \case

@@ -15,6 +15,7 @@ -- module Network.AWS.SWF.Waiters where +import           Network.AWS.Lens import           Network.AWS.Prelude import           Network.AWS.SWF.Types import           Network.AWS.Waiter

@@ -21,7 +21,6 @@ import           Network.AWS.SWF import           Test.AWS.Gen.SWF import           Test.AWS.Prelude-import           Test.Tasty  tests :: [TestTree] tests = []@@ -30,20 +29,21 @@ fixtures =     [ testGroup "response"         [ testPollForActivityTaskResponse $-            pollForActivityTaskResponse 200-                "AAAAKgAAAAEAAAAAAAAAATZDvCYwk/hP/X1ZGdJhb+T6OWzcBx2DPhsIi5HF4aGQI4OXrDE7Ny3uM+aiAhGrmeNyVAa4yNIBQuoZuJA5G+BoaB0JuHFBOynHDTnm7ayNH43KhMkfdrDG4elfHSz3m/EtbLnFGueAr7+3NKDG6x4sTKg3cZpOtSguSx05yI1X3AtscS8ATcLB2Y3Aub1YonN/i/k67voca/GFsSiwSz3AAnJj1IPvrujgIj9KUvckwRPC5ET7d33XJcRp+gHYzZsBLVBaRmV3gEYAnp2ICslFn4YSjGy+dFXCNpOa4G1O8pczCbFUGbQ3+5wf0RSaa/xMq2pfdBKnuFp0wp8kw1k+5ZsbtDZeZn8g5GyKCLiLms/xD0OxugGGUe5ZlAoHEkTWGxZj/G32P7cMoCgrcACfFPdx1LNYYEre7YiGiyjGnfW2t5mW7VK9Np28vcXVbdpH4JNEB9OuB1xqL8N8ifPVtc72uxB1i9XEdq/8rkXasSEw4TubB2FwgqnuJstmfEhpOdb5HfhR6OwmnHuk9eszO/fUkGucTUXQP2hhB+Gz"-                "verification-27"-                11+            pollForActivityTaskResponse 200 11                 (workflowExecution "20110927-T-1" "cfa2bd33-31b0-4b75-b131-255bb0d97b3f")                 (activityType "activityVerify" "1.0")-                & pfatrsInput ?~ "5634-0056-4367-0923,12/12,437"+                & pfatrsInput      ?~ "5634-0056-4367-0923,12/12,437"+                & pfatrsActivityId ?~ "verification-27"+                & pfatrsTaskToken  ?~+                    "AAAAKgAAAAEAAAAAAAAAATZDvCYwk/hP/X1ZGdJhb+T6OWzcBx2DPhsIi5HF4aGQI4OXrDE7Ny3uM+aiAhGrmeNyVAa4yNIBQuoZuJA5G+BoaB0JuHFBOynHDTnm7ayNH43KhMkfdrDG4elfHSz3m/EtbLnFGueAr7+3NKDG6x4sTKg3cZpOtSguSx05yI1X3AtscS8ATcLB2Y3Aub1YonN/i/k67voca/GFsSiwSz3AAnJj1IPvrujgIj9KUvckwRPC5ET7d33XJcRp+gHYzZsBLVBaRmV3gEYAnp2ICslFn4YSjGy+dFXCNpOa4G1O8pczCbFUGbQ3+5wf0RSaa/xMq2pfdBKnuFp0wp8kw1k+5ZsbtDZeZn8g5GyKCLiLms/xD0OxugGGUe5ZlAoHEkTWGxZj/G32P7cMoCgrcACfFPdx1LNYYEre7YiGiyjGnfW2t5mW7VK9Np28vcXVbdpH4JNEB9OuB1xqL8N8ifPVtc72uxB1i9XEdq/8rkXasSEw4TubB2FwgqnuJstmfEhpOdb5HfhR6OwmnHuk9eszO/fUkGucTUXQP2hhB+Gz"          , testPollForDecisionTaskResponse $             pollForDecisionTaskResponse 200-                "AAAAKgAAAAEAAAAAAAAAATZDvCYwk/hP/X1ZGdJhb+T6OWzcBx2DPhsIi5HF4aGQI4OXrDE7Ny3uM+aiAhGrmeNyVAa4yNIBQuoZuJA5G+BoaB0JuHFBOynHDTnm7ayNH43KhMkfdrDG4elfHSz3m/EtbLnFGueAr7+3NKDG6x4sTKg3cZpOtSguSx05yI1X3AtscS8ATcLB2Y3Aub1YonN/i/k67voca/GFsSiwSz3AAnJj1IPvrujgIj9KUvckwRPC5ET7d33XJcRp+gHYzZsBLVBaRmV3gEYAnp2ICslFn4YSjGy+dFXCNpOa4G1O8pczCbFUGbQ3+5wf0RSaa/xMq2pfdBKnuFp0wp8kw1k+5ZsbtDZeZn8g5GyKCLiLms/xD0OxugGGUe5ZlAoHEkTWGxZj/G32P7cMoCgrcACfFPdx1LNYYEre7YiGiyjGnfW2t5mW7VK9Np28vcXVbdpH4JNEB9OuB1xqL8N8ifPVtc72uxB1i9XEdq/8rkXasSEw4TubB2FwgqnuJstmfEhpOdb5HfhR6OwmnHuk9eszO/fUkGucTUXQP2hhB+Gz"                 3                 (workflowExecution "20110927-T-1" "06b8f87a-24b3-40b6-9ceb-9676f28e9493")                 (workflowType "customerOrderWorkflow" "1.0")+                & pfdtrsTaskToken              ?~+                    "AAAAKgAAAAEAAAAAAAAAATZDvCYwk/hP/X1ZGdJhb+T6OWzcBx2DPhsIi5HF4aGQI4OXrDE7Ny3uM+aiAhGrmeNyVAa4yNIBQuoZuJA5G+BoaB0JuHFBOynHDTnm7ayNH43KhMkfdrDG4elfHSz3m/EtbLnFGueAr7+3NKDG6x4sTKg3cZpOtSguSx05yI1X3AtscS8ATcLB2Y3Aub1YonN/i/k67voca/GFsSiwSz3AAnJj1IPvrujgIj9KUvckwRPC5ET7d33XJcRp+gHYzZsBLVBaRmV3gEYAnp2ICslFn4YSjGy+dFXCNpOa4G1O8pczCbFUGbQ3+5wf0RSaa/xMq2pfdBKnuFp0wp8kw1k+5ZsbtDZeZn8g5GyKCLiLms/xD0OxugGGUe5ZlAoHEkTWGxZj/G32P7cMoCgrcACfFPdx1LNYYEre7YiGiyjGnfW2t5mW7VK9Np28vcXVbdpH4JNEB9OuB1xqL8N8ifPVtc72uxB1i9XEdq/8rkXasSEw4TubB2FwgqnuJstmfEhpOdb5HfhR6OwmnHuk9eszO/fUkGucTUXQP2hhB+Gz"                 & pfdtrsPreviousStartedEventId ?~ 0                 & pfdtrsEvents                 .~                     [ historyEvent $(mkTime "2012-01-15T03:09:54.566+01:00") DecisionTaskStarted 3