amazonka-swf 0.0.0 → 0.0.1

raw patch · 8 files changed

+270/−178 lines, 8 filesdep ~amazonka-corePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-swf.cabal +3/−3
• gen/Network/AWS/SWF/ListActivityTypes.hs +5/−5
• gen/Network/AWS/SWF/ListDomains.hs +5/−5
• gen/Network/AWS/SWF/ListWorkflowTypes.hs +5/−5
• gen/Network/AWS/SWF/RegisterWorkflowType.hs +3/−3
• gen/Network/AWS/SWF/StartWorkflowExecution.hs +3/−3
• gen/Network/AWS/SWF/TerminateWorkflowExecution.hs +4/−4
• gen/Network/AWS/SWF/Types.hs +242/−150

@@ -1,5 +1,5 @@ name:                  amazonka-swf-version:               0.0.0+version:               0.0.1 synopsis:              Amazon Simple Workflow Service SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -76,5 +76,5 @@     other-modules:      build-depends:-          amazonka-core-        , base          >= 4.7 && < 5+          amazonka-core == 0.0.1.*+        , base          >= 4.7     && < 5

@@ -69,9 +69,9 @@     , _latMaximumPageSize    :: Maybe Nat     , _latName               :: Maybe Text     , _latNextPageToken      :: Maybe Text-    , _latRegistrationStatus :: Text+    , _latRegistrationStatus :: RegistrationStatus     , _latReverseOrder       :: Maybe Bool-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'ListActivityTypes' constructor. --@@ -85,12 +85,12 @@ -- -- * 'latNextPageToken' @::@ 'Maybe' 'Text' ----- * 'latRegistrationStatus' @::@ 'Text'+-- * 'latRegistrationStatus' @::@ 'RegistrationStatus' -- -- * 'latReverseOrder' @::@ 'Maybe' 'Bool' -- listActivityTypes :: Text -- ^ 'latDomain'-                  -> Text -- ^ 'latRegistrationStatus'+                  -> RegistrationStatus -- ^ 'latRegistrationStatus'                   -> ListActivityTypes listActivityTypes p1 p2 = ListActivityTypes     { _latDomain             = p1@@ -127,7 +127,7 @@ latNextPageToken = lens _latNextPageToken (\s a -> s { _latNextPageToken = a })  -- | Specifies the registration status of the activity types to list.-latRegistrationStatus :: Lens' ListActivityTypes Text+latRegistrationStatus :: Lens' ListActivityTypes RegistrationStatus latRegistrationStatus =     lens _latRegistrationStatus (\s a -> s { _latRegistrationStatus = a }) 

@@ -64,9 +64,9 @@ data ListDomains = ListDomains     { _ldMaximumPageSize    :: Maybe Nat     , _ldNextPageToken      :: Maybe Text-    , _ldRegistrationStatus :: Text+    , _ldRegistrationStatus :: RegistrationStatus     , _ldReverseOrder       :: Maybe Bool-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'ListDomains' constructor. --@@ -76,11 +76,11 @@ -- -- * 'ldNextPageToken' @::@ 'Maybe' 'Text' ----- * 'ldRegistrationStatus' @::@ 'Text'+-- * 'ldRegistrationStatus' @::@ 'RegistrationStatus' -- -- * 'ldReverseOrder' @::@ 'Maybe' 'Bool' ---listDomains :: Text -- ^ 'ldRegistrationStatus'+listDomains :: RegistrationStatus -- ^ 'ldRegistrationStatus'             -> ListDomains listDomains p1 = ListDomains     { _ldRegistrationStatus = p1@@ -107,7 +107,7 @@ ldNextPageToken = lens _ldNextPageToken (\s a -> s { _ldNextPageToken = a })  -- | Specifies the registration status of the domains to list.-ldRegistrationStatus :: Lens' ListDomains Text+ldRegistrationStatus :: Lens' ListDomains RegistrationStatus ldRegistrationStatus =     lens _ldRegistrationStatus (\s a -> s { _ldRegistrationStatus = a }) 

@@ -66,9 +66,9 @@     , _lwtMaximumPageSize    :: Maybe Nat     , _lwtName               :: Maybe Text     , _lwtNextPageToken      :: Maybe Text-    , _lwtRegistrationStatus :: Text+    , _lwtRegistrationStatus :: RegistrationStatus     , _lwtReverseOrder       :: Maybe Bool-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'ListWorkflowTypes' constructor. --@@ -82,12 +82,12 @@ -- -- * 'lwtNextPageToken' @::@ 'Maybe' 'Text' ----- * 'lwtRegistrationStatus' @::@ 'Text'+-- * 'lwtRegistrationStatus' @::@ 'RegistrationStatus' -- -- * 'lwtReverseOrder' @::@ 'Maybe' 'Bool' -- listWorkflowTypes :: Text -- ^ 'lwtDomain'-                  -> Text -- ^ 'lwtRegistrationStatus'+                  -> RegistrationStatus -- ^ 'lwtRegistrationStatus'                   -> ListWorkflowTypes listWorkflowTypes p1 p2 = ListWorkflowTypes     { _lwtDomain             = p1@@ -124,7 +124,7 @@ lwtNextPageToken = lens _lwtNextPageToken (\s a -> s { _lwtNextPageToken = a })  -- | Specifies the registration status of the workflow types to list.-lwtRegistrationStatus :: Lens' ListWorkflowTypes Text+lwtRegistrationStatus :: Lens' ListWorkflowTypes RegistrationStatus lwtRegistrationStatus =     lens _lwtRegistrationStatus (\s a -> s { _lwtRegistrationStatus = a }) 

@@ -67,7 +67,7 @@ import qualified GHC.Exts  data RegisterWorkflowType = RegisterWorkflowType-    { _rwtDefaultChildPolicy                  :: Maybe Text+    { _rwtDefaultChildPolicy                  :: Maybe ChildPolicy     , _rwtDefaultExecutionStartToCloseTimeout :: Maybe Text     , _rwtDefaultTaskList                     :: Maybe TaskList     , _rwtDefaultTaskStartToCloseTimeout      :: Maybe Text@@ -81,7 +81,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'rwtDefaultChildPolicy' @::@ 'Maybe' 'Text'+-- * 'rwtDefaultChildPolicy' @::@ 'Maybe' 'ChildPolicy' -- -- * 'rwtDefaultExecutionStartToCloseTimeout' @::@ 'Maybe' 'Text' --@@ -124,7 +124,7 @@ -- decider to take appropriate actions when it receives an execution history -- with this event. ABANDON: no action will be taken. The child executions -- will continue to run.-rwtDefaultChildPolicy :: Lens' RegisterWorkflowType (Maybe Text)+rwtDefaultChildPolicy :: Lens' RegisterWorkflowType (Maybe ChildPolicy) rwtDefaultChildPolicy =     lens _rwtDefaultChildPolicy (\s a -> s { _rwtDefaultChildPolicy = a }) 

@@ -71,7 +71,7 @@ import qualified GHC.Exts  data StartWorkflowExecution = StartWorkflowExecution-    { _swe1ChildPolicy                  :: Maybe Text+    { _swe1ChildPolicy                  :: Maybe ChildPolicy     , _swe1Domain                       :: Text     , _swe1ExecutionStartToCloseTimeout :: Maybe Text     , _swe1Input                        :: Maybe Text@@ -86,7 +86,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'swe1ChildPolicy' @::@ 'Maybe' 'Text'+-- * 'swe1ChildPolicy' @::@ 'Maybe' 'ChildPolicy' -- -- * 'swe1Domain' @::@ 'Text' --@@ -131,7 +131,7 @@ -- history. It is up to the decider to take appropriate actions when it -- receives an execution history with this event. ABANDON: no action will be -- taken. The child executions will continue to run.-swe1ChildPolicy :: Lens' StartWorkflowExecution (Maybe Text)+swe1ChildPolicy :: Lens' StartWorkflowExecution (Maybe ChildPolicy) swe1ChildPolicy = lens _swe1ChildPolicy (\s a -> s { _swe1ChildPolicy = a })  -- | The name of the domain in which the workflow execution is created.

@@ -63,19 +63,19 @@ import qualified GHC.Exts  data TerminateWorkflowExecution = TerminateWorkflowExecution-    { _tweChildPolicy :: Maybe Text+    { _tweChildPolicy :: Maybe ChildPolicy     , _tweDetails     :: Maybe Text     , _tweDomain      :: Text     , _tweReason      :: Maybe Text     , _tweRunId       :: Maybe Text     , _tweWorkflowId  :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'TerminateWorkflowExecution' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'tweChildPolicy' @::@ 'Maybe' 'Text'+-- * 'tweChildPolicy' @::@ 'Maybe' 'ChildPolicy' -- -- * 'tweDetails' @::@ 'Maybe' 'Text' --@@ -109,7 +109,7 @@ -- decider to take appropriate actions when it receives an execution history -- with this event. ABANDON: no action will be taken. The child executions -- will continue to run.-tweChildPolicy :: Lens' TerminateWorkflowExecution (Maybe Text)+tweChildPolicy :: Lens' TerminateWorkflowExecution (Maybe ChildPolicy) tweChildPolicy = lens _tweChildPolicy (\s a -> s { _tweChildPolicy = a })  -- | Optional details for terminating the workflow execution.

@@ -801,7 +801,7 @@     handle = jsonError statusSuccess  data WorkflowExecutionCancelRequestedEventAttributes = WorkflowExecutionCancelRequestedEventAttributes-    { _wecreaCause                     :: Maybe Text+    { _wecreaCause                     :: Maybe WorkflowExecutionCancelRequestedCause     , _wecreaExternalInitiatedEventId  :: Maybe Integer     , _wecreaExternalWorkflowExecution :: Maybe WorkflowExecution     } deriving (Eq, Show)@@ -810,7 +810,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'wecreaCause' @::@ 'Maybe' 'Text'+-- * 'wecreaCause' @::@ 'Maybe' 'WorkflowExecutionCancelRequestedCause' -- -- * 'wecreaExternalInitiatedEventId' @::@ 'Maybe' 'Integer' --@@ -827,7 +827,7 @@ -- automatically generated, and specifies the cause. This happens if the -- parent workflow execution times out or is terminated, and the child -- policy is set to cancel child executions.-wecreaCause :: Lens' WorkflowExecutionCancelRequestedEventAttributes (Maybe Text)+wecreaCause :: Lens' WorkflowExecutionCancelRequestedEventAttributes (Maybe WorkflowExecutionCancelRequestedCause) wecreaCause = lens _wecreaCause (\s a -> s { _wecreaCause = a })  -- | The id of the RequestCancelExternalWorkflowExecutionInitiated event@@ -1041,23 +1041,23 @@         ]  data StartTimerFailedEventAttributes = StartTimerFailedEventAttributes-    { _stfeaCause                        :: Text+    { _stfeaCause                        :: StartTimerFailedCause     , _stfeaDecisionTaskCompletedEventId :: Integer     , _stfeaTimerId                      :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'StartTimerFailedEventAttributes' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'stfeaCause' @::@ 'Text'+-- * 'stfeaCause' @::@ 'StartTimerFailedCause' -- -- * 'stfeaDecisionTaskCompletedEventId' @::@ 'Integer' -- -- * 'stfeaTimerId' @::@ 'Text' -- startTimerFailedEventAttributes :: Text -- ^ 'stfeaTimerId'-                                -> Text -- ^ 'stfeaCause'+                                -> StartTimerFailedCause -- ^ 'stfeaCause'                                 -> Integer -- ^ 'stfeaDecisionTaskCompletedEventId'                                 -> StartTimerFailedEventAttributes startTimerFailedEventAttributes p1 p2 p3 = StartTimerFailedEventAttributes@@ -1068,7 +1068,7 @@  -- | The cause of the failure to process the decision. This information is -- generated by the system and can be useful for diagnostic purposes.-stfeaCause :: Lens' StartTimerFailedEventAttributes Text+stfeaCause :: Lens' StartTimerFailedEventAttributes StartTimerFailedCause stfeaCause = lens _stfeaCause (\s a -> s { _stfeaCause = a })  -- | The id of the DecisionTaskCompleted event corresponding to the decision@@ -1165,23 +1165,23 @@         ]  data RecordMarkerFailedEventAttributes = RecordMarkerFailedEventAttributes-    { _rmfeaCause                        :: Text+    { _rmfeaCause                        :: RecordMarkerFailedCause     , _rmfeaDecisionTaskCompletedEventId :: Integer     , _rmfeaMarkerName                   :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'RecordMarkerFailedEventAttributes' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'rmfeaCause' @::@ 'Text'+-- * 'rmfeaCause' @::@ 'RecordMarkerFailedCause' -- -- * 'rmfeaDecisionTaskCompletedEventId' @::@ 'Integer' -- -- * 'rmfeaMarkerName' @::@ 'Text' -- recordMarkerFailedEventAttributes :: Text -- ^ 'rmfeaMarkerName'-                                  -> Text -- ^ 'rmfeaCause'+                                  -> RecordMarkerFailedCause -- ^ 'rmfeaCause'                                   -> Integer -- ^ 'rmfeaDecisionTaskCompletedEventId'                                   -> RecordMarkerFailedEventAttributes recordMarkerFailedEventAttributes p1 p2 p3 = RecordMarkerFailedEventAttributes@@ -1192,7 +1192,7 @@  -- | The cause of the failure to process the decision. This information is -- generated by the system and can be useful for diagnostic purposes.-rmfeaCause :: Lens' RecordMarkerFailedEventAttributes Text+rmfeaCause :: Lens' RecordMarkerFailedEventAttributes RecordMarkerFailedCause rmfeaCause = lens _rmfeaCause (\s a -> s { _rmfeaCause = a })  -- | The id of the DecisionTaskCompleted event corresponding to the decision@@ -1404,16 +1404,16 @@         ]  newtype CloseStatusFilter = CloseStatusFilter-    { _csfStatus :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    { _csfStatus :: CloseStatus+    } deriving (Eq, Show)  -- | 'CloseStatusFilter' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'csfStatus' @::@ 'Text'+-- * 'csfStatus' @::@ 'CloseStatus' ---closeStatusFilter :: Text -- ^ 'csfStatus'+closeStatusFilter :: CloseStatus -- ^ 'csfStatus'                   -> CloseStatusFilter closeStatusFilter p1 = CloseStatusFilter     { _csfStatus = p1@@ -1421,7 +1421,7 @@  -- | The close status that must match the close status of an execution for it -- to meet the criteria of this filter. This field is required.-csfStatus :: Lens' CloseStatusFilter Text+csfStatus :: Lens' CloseStatusFilter CloseStatus csfStatus = lens _csfStatus (\s a -> s { _csfStatus = a })  instance FromJSON CloseStatusFilter where@@ -1445,6 +1445,10 @@ instance ToText WorkflowExecutionTimeoutType where     toText StartToClose = "START_TO_CLOSE" +instance ToByteString WorkflowExecutionTimeoutType+instance ToHeader     WorkflowExecutionTimeoutType+instance ToQuery      WorkflowExecutionTimeoutType+ instance FromJSON WorkflowExecutionTimeoutType where     parseJSON = parseJSONText "WorkflowExecutionTimeoutType" @@ -1751,7 +1755,7 @@     { _wtiCreationDate    :: RFC822     , _wtiDeprecationDate :: Maybe RFC822     , _wtiDescription     :: Maybe Text-    , _wtiStatus          :: Text+    , _wtiStatus          :: RegistrationStatus     , _wtiWorkflowType    :: WorkflowType     } deriving (Eq, Show) @@ -1765,12 +1769,12 @@ -- -- * 'wtiDescription' @::@ 'Maybe' 'Text' ----- * 'wtiStatus' @::@ 'Text'+-- * 'wtiStatus' @::@ 'RegistrationStatus' -- -- * 'wtiWorkflowType' @::@ 'WorkflowType' -- workflowTypeInfo :: WorkflowType -- ^ 'wtiWorkflowType'-                 -> Text -- ^ 'wtiStatus'+                 -> RegistrationStatus -- ^ 'wtiStatus'                  -> UTCTime -- ^ 'wtiCreationDate'                  -> WorkflowTypeInfo workflowTypeInfo p1 p2 p3 = WorkflowTypeInfo@@ -1797,7 +1801,7 @@ wtiDescription = lens _wtiDescription (\s a -> s { _wtiDescription = a })  -- | The current status of the workflow type.-wtiStatus :: Lens' WorkflowTypeInfo Text+wtiStatus :: Lens' WorkflowTypeInfo RegistrationStatus wtiStatus = lens _wtiStatus (\s a -> s { _wtiStatus = a })  -- | The workflow type this information is about.@@ -1990,6 +1994,10 @@         ActivityIdUnknown     -> "ACTIVITY_ID_UNKNOWN"         OperationNotPermitted -> "OPERATION_NOT_PERMITTED" +instance ToByteString RequestCancelActivityTaskFailedCause+instance ToHeader     RequestCancelActivityTaskFailedCause+instance ToQuery      RequestCancelActivityTaskFailedCause+ instance FromJSON RequestCancelActivityTaskFailedCause where     parseJSON = parseJSONText "RequestCancelActivityTaskFailedCause" @@ -1999,7 +2007,7 @@ data ScheduleActivityTaskFailedEventAttributes = ScheduleActivityTaskFailedEventAttributes     { _satfeaActivityId                   :: Text     , _satfeaActivityType                 :: ActivityType-    , _satfeaCause                        :: Text+    , _satfeaCause                        :: ScheduleActivityTaskFailedCause     , _satfeaDecisionTaskCompletedEventId :: Integer     } deriving (Eq, Show) @@ -2011,13 +2019,13 @@ -- -- * 'satfeaActivityType' @::@ 'ActivityType' ----- * 'satfeaCause' @::@ 'Text'+-- * 'satfeaCause' @::@ 'ScheduleActivityTaskFailedCause' -- -- * 'satfeaDecisionTaskCompletedEventId' @::@ 'Integer' -- scheduleActivityTaskFailedEventAttributes :: ActivityType -- ^ 'satfeaActivityType'                                           -> Text -- ^ 'satfeaActivityId'-                                          -> Text -- ^ 'satfeaCause'+                                          -> ScheduleActivityTaskFailedCause -- ^ 'satfeaCause'                                           -> Integer -- ^ 'satfeaDecisionTaskCompletedEventId'                                           -> ScheduleActivityTaskFailedEventAttributes scheduleActivityTaskFailedEventAttributes p1 p2 p3 p4 = ScheduleActivityTaskFailedEventAttributes@@ -2039,7 +2047,7 @@  -- | The cause of the failure to process the decision. This information is -- generated by the system and can be useful for diagnostic purposes.-satfeaCause :: Lens' ScheduleActivityTaskFailedEventAttributes Text+satfeaCause :: Lens' ScheduleActivityTaskFailedEventAttributes ScheduleActivityTaskFailedCause satfeaCause = lens _satfeaCause (\s a -> s { _satfeaCause = a })  -- | The id of the DecisionTaskCompleted event corresponding to the decision@@ -2214,6 +2222,10 @@         EventLimitExceeded -> "EVENT_LIMIT_EXCEEDED"         OperatorInitiated  -> "OPERATOR_INITIATED" +instance ToByteString WorkflowExecutionTerminatedCause+instance ToHeader     WorkflowExecutionTerminatedCause+instance ToQuery      WorkflowExecutionTerminatedCause+ instance FromJSON WorkflowExecutionTerminatedCause where     parseJSON = parseJSONText "WorkflowExecutionTerminatedCause" @@ -2236,6 +2248,10 @@         CWEFCOperationNotPermitted -> "OPERATION_NOT_PERMITTED"         CWEFCUnhandledDecision     -> "UNHANDLED_DECISION" +instance ToByteString CancelWorkflowExecutionFailedCause+instance ToHeader     CancelWorkflowExecutionFailedCause+instance ToQuery      CancelWorkflowExecutionFailedCause+ instance FromJSON CancelWorkflowExecutionFailedCause where     parseJSON = parseJSONText "CancelWorkflowExecutionFailedCause" @@ -2261,6 +2277,10 @@         SEWEFCSignalExternalWorkflowExecutionRateExceeded -> "SIGNAL_EXTERNAL_WORKFLOW_EXECUTION_RATE_EXCEEDED"         SEWEFCUnknownExternalWorkflowExecution            -> "UNKNOWN_EXTERNAL_WORKFLOW_EXECUTION" +instance ToByteString SignalExternalWorkflowExecutionFailedCause+instance ToHeader     SignalExternalWorkflowExecutionFailedCause+instance ToQuery      SignalExternalWorkflowExecutionFailedCause+ instance FromJSON SignalExternalWorkflowExecutionFailedCause where     parseJSON = parseJSONText "SignalExternalWorkflowExecutionFailedCause" @@ -2307,19 +2327,19 @@         ]  data CompleteWorkflowExecutionFailedEventAttributes = CompleteWorkflowExecutionFailedEventAttributes-    { _cwefeaCause                        :: Text+    { _cwefeaCause                        :: CompleteWorkflowExecutionFailedCause     , _cwefeaDecisionTaskCompletedEventId :: Integer-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'CompleteWorkflowExecutionFailedEventAttributes' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'cwefeaCause' @::@ 'Text'+-- * 'cwefeaCause' @::@ 'CompleteWorkflowExecutionFailedCause' -- -- * 'cwefeaDecisionTaskCompletedEventId' @::@ 'Integer' ---completeWorkflowExecutionFailedEventAttributes :: Text -- ^ 'cwefeaCause'+completeWorkflowExecutionFailedEventAttributes :: CompleteWorkflowExecutionFailedCause -- ^ 'cwefeaCause'                                                -> Integer -- ^ 'cwefeaDecisionTaskCompletedEventId'                                                -> CompleteWorkflowExecutionFailedEventAttributes completeWorkflowExecutionFailedEventAttributes p1 p2 = CompleteWorkflowExecutionFailedEventAttributes@@ -2329,7 +2349,7 @@  -- | The cause of the failure. This information is generated by the system and -- can be useful for diagnostic purposes.-cwefeaCause :: Lens' CompleteWorkflowExecutionFailedEventAttributes Text+cwefeaCause :: Lens' CompleteWorkflowExecutionFailedEventAttributes CompleteWorkflowExecutionFailedCause cwefeaCause = lens _cwefeaCause (\s a -> s { _cwefeaCause = a })  -- | The id of the DecisionTaskCompleted event corresponding to the decision@@ -2456,6 +2476,10 @@         StartChildWorkflowExecution            -> "StartChildWorkflowExecution"         StartTimer                             -> "StartTimer" +instance ToByteString DecisionType+instance ToHeader     DecisionType+instance ToQuery      DecisionType+ instance FromJSON DecisionType where     parseJSON = parseJSONText "DecisionType" @@ -2463,19 +2487,19 @@     toJSON = toJSONText  data RequestCancelExternalWorkflowExecutionFailedEventAttributes = RequestCancelExternalWorkflowExecutionFailedEventAttributes-    { _rcewefeaCause                        :: Text+    { _rcewefeaCause                        :: RequestCancelExternalWorkflowExecutionFailedCause     , _rcewefeaControl                      :: Maybe Text     , _rcewefeaDecisionTaskCompletedEventId :: Integer     , _rcewefeaInitiatedEventId             :: Integer     , _rcewefeaRunId                        :: Maybe Text     , _rcewefeaWorkflowId                   :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'RequestCancelExternalWorkflowExecutionFailedEventAttributes' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'rcewefeaCause' @::@ 'Text'+-- * 'rcewefeaCause' @::@ 'RequestCancelExternalWorkflowExecutionFailedCause' -- -- * 'rcewefeaControl' @::@ 'Maybe' 'Text' --@@ -2488,7 +2512,7 @@ -- * 'rcewefeaWorkflowId' @::@ 'Text' -- requestCancelExternalWorkflowExecutionFailedEventAttributes :: Text -- ^ 'rcewefeaWorkflowId'-                                                            -> Text -- ^ 'rcewefeaCause'+                                                            -> RequestCancelExternalWorkflowExecutionFailedCause -- ^ 'rcewefeaCause'                                                             -> Integer -- ^ 'rcewefeaInitiatedEventId'                                                             -> Integer -- ^ 'rcewefeaDecisionTaskCompletedEventId'                                                             -> RequestCancelExternalWorkflowExecutionFailedEventAttributes@@ -2503,7 +2527,7 @@  -- | The cause of the failure to process the decision. This information is -- generated by the system and can be useful for diagnostic purposes.-rcewefeaCause :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes Text+rcewefeaCause :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes RequestCancelExternalWorkflowExecutionFailedCause rcewefeaCause = lens _rcewefeaCause (\s a -> s { _rcewefeaCause = a })  rcewefeaControl :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes (Maybe Text)@@ -2562,7 +2586,7 @@     , _atiCreationDate    :: RFC822     , _atiDeprecationDate :: Maybe RFC822     , _atiDescription     :: Maybe Text-    , _atiStatus          :: Text+    , _atiStatus          :: RegistrationStatus     } deriving (Eq, Show)  -- | 'ActivityTypeInfo' constructor.@@ -2577,10 +2601,10 @@ -- -- * 'atiDescription' @::@ 'Maybe' 'Text' ----- * 'atiStatus' @::@ 'Text'+-- * 'atiStatus' @::@ 'RegistrationStatus' -- activityTypeInfo :: ActivityType -- ^ 'atiActivityType'-                 -> Text -- ^ 'atiStatus'+                 -> RegistrationStatus -- ^ 'atiStatus'                  -> UTCTime -- ^ 'atiCreationDate'                  -> ActivityTypeInfo activityTypeInfo p1 p2 p3 = ActivityTypeInfo@@ -2611,7 +2635,7 @@ atiDescription = lens _atiDescription (\s a -> s { _atiDescription = a })  -- | The current status of the activity type.-atiStatus :: Lens' ActivityTypeInfo Text+atiStatus :: Lens' ActivityTypeInfo RegistrationStatus atiStatus = lens _atiStatus (\s a -> s { _atiStatus = a })  instance FromJSON ActivityTypeInfo where@@ -2691,7 +2715,7 @@         ]  data WorkflowExecutionStartedEventAttributes = WorkflowExecutionStartedEventAttributes-    { _weseaChildPolicy                  :: Text+    { _weseaChildPolicy                  :: ChildPolicy     , _weseaContinuedExecutionRunId      :: Maybe Text     , _weseaExecutionStartToCloseTimeout :: Maybe Text     , _weseaInput                        :: Maybe Text@@ -2707,7 +2731,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'weseaChildPolicy' @::@ 'Text'+-- * 'weseaChildPolicy' @::@ 'ChildPolicy' -- -- * 'weseaContinuedExecutionRunId' @::@ 'Maybe' 'Text' --@@ -2727,7 +2751,7 @@ -- -- * 'weseaWorkflowType' @::@ 'WorkflowType' ---workflowExecutionStartedEventAttributes :: Text -- ^ 'weseaChildPolicy'+workflowExecutionStartedEventAttributes :: ChildPolicy -- ^ 'weseaChildPolicy'                                         -> TaskList -- ^ 'weseaTaskList'                                         -> WorkflowType -- ^ 'weseaWorkflowType'                                         -> WorkflowExecutionStartedEventAttributes@@ -2753,7 +2777,7 @@ -- up to the decider to take appropriate actions when it receives an -- execution history with this event. ABANDON: no action will be taken. The -- child executions will continue to run.-weseaChildPolicy :: Lens' WorkflowExecutionStartedEventAttributes Text+weseaChildPolicy :: Lens' WorkflowExecutionStartedEventAttributes ChildPolicy weseaChildPolicy = lens _weseaChildPolicy (\s a -> s { _weseaChildPolicy = a })  -- | If this workflow execution was started due to a@@ -2849,7 +2873,7 @@         ]  data WorkflowTypeConfiguration = WorkflowTypeConfiguration-    { _wtcDefaultChildPolicy                  :: Maybe Text+    { _wtcDefaultChildPolicy                  :: Maybe ChildPolicy     , _wtcDefaultExecutionStartToCloseTimeout :: Maybe Text     , _wtcDefaultTaskList                     :: Maybe TaskList     , _wtcDefaultTaskStartToCloseTimeout      :: Maybe Text@@ -2859,7 +2883,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'wtcDefaultChildPolicy' @::@ 'Maybe' 'Text'+-- * 'wtcDefaultChildPolicy' @::@ 'Maybe' 'ChildPolicy' -- -- * 'wtcDefaultExecutionStartToCloseTimeout' @::@ 'Maybe' 'Text' --@@ -2887,7 +2911,7 @@ -- decider to take appropriate actions when it receives an execution history -- with this event. ABANDON: no action will be taken. The child executions -- will continue to run.-wtcDefaultChildPolicy :: Lens' WorkflowTypeConfiguration (Maybe Text)+wtcDefaultChildPolicy :: Lens' WorkflowTypeConfiguration (Maybe ChildPolicy) wtcDefaultChildPolicy =     lens _wtcDefaultChildPolicy (\s a -> s { _wtcDefaultChildPolicy = a }) @@ -2964,6 +2988,10 @@         ATTTScheduleToStart -> "SCHEDULE_TO_START"         ATTTStartToClose    -> "START_TO_CLOSE" +instance ToByteString ActivityTaskTimeoutType+instance ToHeader     ActivityTaskTimeoutType+instance ToQuery      ActivityTaskTimeoutType+ instance FromJSON ActivityTaskTimeoutType where     parseJSON = parseJSONText "ActivityTaskTimeoutType" @@ -3083,6 +3111,10 @@         Closed -> "CLOSED"         Open   -> "OPEN" +instance ToByteString ExecutionStatus+instance ToHeader     ExecutionStatus+instance ToQuery      ExecutionStatus+ instance FromJSON ExecutionStatus where     parseJSON = parseJSONText "ExecutionStatus" @@ -3101,6 +3133,10 @@ instance ToText DecisionTaskTimeoutType where     toText DTTTStartToClose = "START_TO_CLOSE" +instance ToByteString DecisionTaskTimeoutType+instance ToHeader     DecisionTaskTimeoutType+instance ToQuery      DecisionTaskTimeoutType+ instance FromJSON DecisionTaskTimeoutType where     parseJSON = parseJSONText "DecisionTaskTimeoutType" @@ -3119,6 +3155,10 @@ instance ToText WorkflowExecutionCancelRequestedCause where     toText WECRCChildPolicyApplied = "CHILD_POLICY_APPLIED" +instance ToByteString WorkflowExecutionCancelRequestedCause+instance ToHeader     WorkflowExecutionCancelRequestedCause+instance ToQuery      WorkflowExecutionCancelRequestedCause+ instance FromJSON WorkflowExecutionCancelRequestedCause where     parseJSON = parseJSONText "WorkflowExecutionCancelRequestedCause" @@ -3168,6 +3208,10 @@         SCWEFCWorkflowTypeDeprecated                       -> "WORKFLOW_TYPE_DEPRECATED"         SCWEFCWorkflowTypeDoesNotExist                     -> "WORKFLOW_TYPE_DOES_NOT_EXIST" +instance ToByteString StartChildWorkflowExecutionFailedCause+instance ToHeader     StartChildWorkflowExecutionFailedCause+instance ToQuery      StartChildWorkflowExecutionFailedCause+ instance FromJSON StartChildWorkflowExecutionFailedCause where     parseJSON = parseJSONText "StartChildWorkflowExecutionFailedCause" @@ -3177,8 +3221,8 @@ data DecisionTaskTimedOutEventAttributes = DecisionTaskTimedOutEventAttributes     { _dttoeaScheduledEventId :: Integer     , _dttoeaStartedEventId   :: Integer-    , _dttoeaTimeoutType      :: Text-    } deriving (Eq, Ord, Show)+    , _dttoeaTimeoutType      :: DecisionTaskTimeoutType+    } deriving (Eq, Show)  -- | 'DecisionTaskTimedOutEventAttributes' constructor. --@@ -3188,9 +3232,9 @@ -- -- * 'dttoeaStartedEventId' @::@ 'Integer' ----- * 'dttoeaTimeoutType' @::@ 'Text'+-- * 'dttoeaTimeoutType' @::@ 'DecisionTaskTimeoutType' ---decisionTaskTimedOutEventAttributes :: Text -- ^ 'dttoeaTimeoutType'+decisionTaskTimedOutEventAttributes :: DecisionTaskTimeoutType -- ^ 'dttoeaTimeoutType'                                     -> Integer -- ^ 'dttoeaScheduledEventId'                                     -> Integer -- ^ 'dttoeaStartedEventId'                                     -> DecisionTaskTimedOutEventAttributes@@ -3217,7 +3261,7 @@  -- | The type of timeout that expired before the decision task could be -- completed.-dttoeaTimeoutType :: Lens' DecisionTaskTimedOutEventAttributes Text+dttoeaTimeoutType :: Lens' DecisionTaskTimedOutEventAttributes DecisionTaskTimeoutType dttoeaTimeoutType =     lens _dttoeaTimeoutType (\s a -> s { _dttoeaTimeoutType = a }) @@ -3292,23 +3336,23 @@         ]  data CancelTimerFailedEventAttributes = CancelTimerFailedEventAttributes-    { _ctfeaCause                        :: Text+    { _ctfeaCause                        :: CancelTimerFailedCause     , _ctfeaDecisionTaskCompletedEventId :: Integer     , _ctfeaTimerId                      :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'CancelTimerFailedEventAttributes' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'ctfeaCause' @::@ 'Text'+-- * 'ctfeaCause' @::@ 'CancelTimerFailedCause' -- -- * 'ctfeaDecisionTaskCompletedEventId' @::@ 'Integer' -- -- * 'ctfeaTimerId' @::@ 'Text' -- cancelTimerFailedEventAttributes :: Text -- ^ 'ctfeaTimerId'-                                 -> Text -- ^ 'ctfeaCause'+                                 -> CancelTimerFailedCause -- ^ 'ctfeaCause'                                  -> Integer -- ^ 'ctfeaDecisionTaskCompletedEventId'                                  -> CancelTimerFailedEventAttributes cancelTimerFailedEventAttributes p1 p2 p3 = CancelTimerFailedEventAttributes@@ -3319,7 +3363,7 @@  -- | The cause of the failure to process the decision. This information is -- generated by the system and can be useful for diagnostic purposes.-ctfeaCause :: Lens' CancelTimerFailedEventAttributes Text+ctfeaCause :: Lens' CancelTimerFailedEventAttributes CancelTimerFailedCause ctfeaCause = lens _ctfeaCause (\s a -> s { _ctfeaCause = a })  -- | The id of the DecisionTaskCompleted event corresponding to the decision@@ -3364,6 +3408,10 @@         FWEFCOperationNotPermitted -> "OPERATION_NOT_PERMITTED"         FWEFCUnhandledDecision     -> "UNHANDLED_DECISION" +instance ToByteString FailWorkflowExecutionFailedCause+instance ToHeader     FailWorkflowExecutionFailedCause+instance ToQuery      FailWorkflowExecutionFailedCause+ instance FromJSON FailWorkflowExecutionFailedCause where     parseJSON = parseJSONText "FailWorkflowExecutionFailedCause" @@ -3514,7 +3562,7 @@         ]  data StartChildWorkflowExecutionDecisionAttributes = StartChildWorkflowExecutionDecisionAttributes-    { _scwedaChildPolicy                  :: Maybe Text+    { _scwedaChildPolicy                  :: Maybe ChildPolicy     , _scwedaControl                      :: Maybe Text     , _scwedaExecutionStartToCloseTimeout :: Maybe Text     , _scwedaInput                        :: Maybe Text@@ -3529,7 +3577,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'scwedaChildPolicy' @::@ 'Maybe' 'Text'+-- * 'scwedaChildPolicy' @::@ 'Maybe' 'ChildPolicy' -- -- * 'scwedaControl' @::@ 'Maybe' 'Text' --@@ -3573,7 +3621,7 @@ -- history. It is up to the decider to take appropriate actions when it -- receives an execution history with this event. ABANDON: no action will be -- taken. The child executions will continue to run.-scwedaChildPolicy :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)+scwedaChildPolicy :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe ChildPolicy) scwedaChildPolicy =     lens _scwedaChildPolicy (\s a -> s { _scwedaChildPolicy = a }) @@ -3695,6 +3743,10 @@         CANWEFCWorkflowTypeDeprecated                       -> "WORKFLOW_TYPE_DEPRECATED"         CANWEFCWorkflowTypeDoesNotExist                     -> "WORKFLOW_TYPE_DOES_NOT_EXIST" +instance ToByteString ContinueAsNewWorkflowExecutionFailedCause+instance ToHeader     ContinueAsNewWorkflowExecutionFailedCause+instance ToQuery      ContinueAsNewWorkflowExecutionFailedCause+ instance FromJSON ContinueAsNewWorkflowExecutionFailedCause where     parseJSON = parseJSONText "ContinueAsNewWorkflowExecutionFailedCause" @@ -3890,6 +3942,10 @@         WorkflowExecutionTerminated                     -> "WorkflowExecutionTerminated"         WorkflowExecutionTimedOut                       -> "WorkflowExecutionTimedOut" +instance ToByteString EventType+instance ToHeader     EventType+instance ToQuery      EventType+ instance FromJSON EventType where     parseJSON = parseJSONText "EventType" @@ -3900,8 +3956,8 @@     { _attoeaDetails          :: Maybe Text     , _attoeaScheduledEventId :: Integer     , _attoeaStartedEventId   :: Integer-    , _attoeaTimeoutType      :: Text-    } deriving (Eq, Ord, Show)+    , _attoeaTimeoutType      :: ActivityTaskTimeoutType+    } deriving (Eq, Show)  -- | 'ActivityTaskTimedOutEventAttributes' constructor. --@@ -3913,9 +3969,9 @@ -- -- * 'attoeaStartedEventId' @::@ 'Integer' ----- * 'attoeaTimeoutType' @::@ 'Text'+-- * 'attoeaTimeoutType' @::@ 'ActivityTaskTimeoutType' ---activityTaskTimedOutEventAttributes :: Text -- ^ 'attoeaTimeoutType'+activityTaskTimedOutEventAttributes :: ActivityTaskTimeoutType -- ^ 'attoeaTimeoutType'                                     -> Integer -- ^ 'attoeaScheduledEventId'                                     -> Integer -- ^ 'attoeaStartedEventId'                                     -> ActivityTaskTimedOutEventAttributes@@ -3947,7 +4003,7 @@     lens _attoeaStartedEventId (\s a -> s { _attoeaStartedEventId = a })  -- | The type of the timeout that caused this event.-attoeaTimeoutType :: Lens' ActivityTaskTimedOutEventAttributes Text+attoeaTimeoutType :: Lens' ActivityTaskTimedOutEventAttributes ActivityTaskTimeoutType attoeaTimeoutType =     lens _attoeaTimeoutType (\s a -> s { _attoeaTimeoutType = a }) @@ -3968,9 +4024,9 @@  data RequestCancelActivityTaskFailedEventAttributes = RequestCancelActivityTaskFailedEventAttributes     { _rcatfeaActivityId                   :: Text-    , _rcatfeaCause                        :: Text+    , _rcatfeaCause                        :: RequestCancelActivityTaskFailedCause     , _rcatfeaDecisionTaskCompletedEventId :: Integer-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'RequestCancelActivityTaskFailedEventAttributes' constructor. --@@ -3978,12 +4034,12 @@ -- -- * 'rcatfeaActivityId' @::@ 'Text' ----- * 'rcatfeaCause' @::@ 'Text'+-- * 'rcatfeaCause' @::@ 'RequestCancelActivityTaskFailedCause' -- -- * 'rcatfeaDecisionTaskCompletedEventId' @::@ 'Integer' -- requestCancelActivityTaskFailedEventAttributes :: Text -- ^ 'rcatfeaActivityId'-                                               -> Text -- ^ 'rcatfeaCause'+                                               -> RequestCancelActivityTaskFailedCause -- ^ 'rcatfeaCause'                                                -> Integer -- ^ 'rcatfeaDecisionTaskCompletedEventId'                                                -> RequestCancelActivityTaskFailedEventAttributes requestCancelActivityTaskFailedEventAttributes p1 p2 p3 = RequestCancelActivityTaskFailedEventAttributes@@ -4000,7 +4056,7 @@  -- | The cause of the failure to process the decision. This information is -- generated by the system and can be useful for diagnostic purposes.-rcatfeaCause :: Lens' RequestCancelActivityTaskFailedEventAttributes Text+rcatfeaCause :: Lens' RequestCancelActivityTaskFailedEventAttributes RequestCancelActivityTaskFailedCause rcatfeaCause = lens _rcatfeaCause (\s a -> s { _rcatfeaCause = a })  -- | The id of the DecisionTaskCompleted event corresponding to the decision@@ -4101,7 +4157,7 @@ data ChildWorkflowExecutionTimedOutEventAttributes = ChildWorkflowExecutionTimedOutEventAttributes     { _cwetoeaInitiatedEventId  :: Integer     , _cwetoeaStartedEventId    :: Integer-    , _cwetoeaTimeoutType       :: Text+    , _cwetoeaTimeoutType       :: WorkflowExecutionTimeoutType     , _cwetoeaWorkflowExecution :: WorkflowExecution     , _cwetoeaWorkflowType      :: WorkflowType     } deriving (Eq, Show)@@ -4114,7 +4170,7 @@ -- -- * 'cwetoeaStartedEventId' @::@ 'Integer' ----- * 'cwetoeaTimeoutType' @::@ 'Text'+-- * 'cwetoeaTimeoutType' @::@ 'WorkflowExecutionTimeoutType' -- -- * 'cwetoeaWorkflowExecution' @::@ 'WorkflowExecution' --@@ -4122,7 +4178,7 @@ -- childWorkflowExecutionTimedOutEventAttributes :: WorkflowExecution -- ^ 'cwetoeaWorkflowExecution'                                               -> WorkflowType -- ^ 'cwetoeaWorkflowType'-                                              -> Text -- ^ 'cwetoeaTimeoutType'+                                              -> WorkflowExecutionTimeoutType -- ^ 'cwetoeaTimeoutType'                                               -> Integer -- ^ 'cwetoeaInitiatedEventId'                                               -> Integer -- ^ 'cwetoeaStartedEventId'                                               -> ChildWorkflowExecutionTimedOutEventAttributes@@ -4152,7 +4208,7 @@  -- | The type of the timeout that caused the child workflow execution to time -- out.-cwetoeaTimeoutType :: Lens' ChildWorkflowExecutionTimedOutEventAttributes Text+cwetoeaTimeoutType :: Lens' ChildWorkflowExecutionTimedOutEventAttributes WorkflowExecutionTimeoutType cwetoeaTimeoutType =     lens _cwetoeaTimeoutType (\s a -> s { _cwetoeaTimeoutType = a }) @@ -4185,7 +4241,7 @@         ]  data StartChildWorkflowExecutionInitiatedEventAttributes = StartChildWorkflowExecutionInitiatedEventAttributes-    { _scweieaChildPolicy                  :: Text+    { _scweieaChildPolicy                  :: ChildPolicy     , _scweieaControl                      :: Maybe Text     , _scweieaDecisionTaskCompletedEventId :: Integer     , _scweieaExecutionStartToCloseTimeout :: Maybe Text@@ -4201,7 +4257,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'scweieaChildPolicy' @::@ 'Text'+-- * 'scweieaChildPolicy' @::@ 'ChildPolicy' -- -- * 'scweieaControl' @::@ 'Maybe' 'Text' --@@ -4225,7 +4281,7 @@                                                     -> WorkflowType -- ^ 'scweieaWorkflowType'                                                     -> TaskList -- ^ 'scweieaTaskList'                                                     -> Integer -- ^ 'scweieaDecisionTaskCompletedEventId'-                                                    -> Text -- ^ 'scweieaChildPolicy'+                                                    -> ChildPolicy -- ^ 'scweieaChildPolicy'                                                     -> StartChildWorkflowExecutionInitiatedEventAttributes startChildWorkflowExecutionInitiatedEventAttributes p1 p2 p3 p4 p5 = StartChildWorkflowExecutionInitiatedEventAttributes     { _scweieaWorkflowId                   = p1@@ -4249,7 +4305,7 @@ -- decider to take appropriate actions when it receives an execution history -- with this event. ABANDON: no action will be taken. The child executions -- will continue to run.-scweieaChildPolicy :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes Text+scweieaChildPolicy :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes ChildPolicy scweieaChildPolicy =     lens _scweieaChildPolicy (\s a -> s { _scweieaChildPolicy = a }) @@ -4337,19 +4393,19 @@         ]  data CancelWorkflowExecutionFailedEventAttributes = CancelWorkflowExecutionFailedEventAttributes-    { _cwefea1Cause                        :: Text+    { _cwefea1Cause                        :: CancelWorkflowExecutionFailedCause     , _cwefea1DecisionTaskCompletedEventId :: Integer-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'CancelWorkflowExecutionFailedEventAttributes' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'cwefea1Cause' @::@ 'Text'+-- * 'cwefea1Cause' @::@ 'CancelWorkflowExecutionFailedCause' -- -- * 'cwefea1DecisionTaskCompletedEventId' @::@ 'Integer' ---cancelWorkflowExecutionFailedEventAttributes :: Text -- ^ 'cwefea1Cause'+cancelWorkflowExecutionFailedEventAttributes :: CancelWorkflowExecutionFailedCause -- ^ 'cwefea1Cause'                                              -> Integer -- ^ 'cwefea1DecisionTaskCompletedEventId'                                              -> CancelWorkflowExecutionFailedEventAttributes cancelWorkflowExecutionFailedEventAttributes p1 p2 = CancelWorkflowExecutionFailedEventAttributes@@ -4359,7 +4415,7 @@  -- | The cause of the failure. This information is generated by the system and -- can be useful for diagnostic purposes.-cwefea1Cause :: Lens' CancelWorkflowExecutionFailedEventAttributes Text+cwefea1Cause :: Lens' CancelWorkflowExecutionFailedEventAttributes CancelWorkflowExecutionFailedCause cwefea1Cause = lens _cwefea1Cause (\s a -> s { _cwefea1Cause = a })  -- | The id of the DecisionTaskCompleted event corresponding to the decision@@ -4383,25 +4439,25 @@         ]  data WorkflowExecutionTerminatedEventAttributes = WorkflowExecutionTerminatedEventAttributes-    { _weteaCause       :: Maybe Text-    , _weteaChildPolicy :: Text+    { _weteaCause       :: Maybe WorkflowExecutionTerminatedCause+    , _weteaChildPolicy :: ChildPolicy     , _weteaDetails     :: Maybe Text     , _weteaReason      :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'WorkflowExecutionTerminatedEventAttributes' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'weteaCause' @::@ 'Maybe' 'Text'+-- * 'weteaCause' @::@ 'Maybe' 'WorkflowExecutionTerminatedCause' ----- * 'weteaChildPolicy' @::@ 'Text'+-- * 'weteaChildPolicy' @::@ 'ChildPolicy' -- -- * 'weteaDetails' @::@ 'Maybe' 'Text' -- -- * 'weteaReason' @::@ 'Maybe' 'Text' ---workflowExecutionTerminatedEventAttributes :: Text -- ^ 'weteaChildPolicy'+workflowExecutionTerminatedEventAttributes :: ChildPolicy -- ^ 'weteaChildPolicy'                                            -> WorkflowExecutionTerminatedEventAttributes workflowExecutionTerminatedEventAttributes p1 = WorkflowExecutionTerminatedEventAttributes     { _weteaChildPolicy = p1@@ -4414,7 +4470,7 @@ -- terminated, and specifies the cause. This happens if the parent workflow -- execution times out or is terminated and the child policy is set to -- terminate child executions.-weteaCause :: Lens' WorkflowExecutionTerminatedEventAttributes (Maybe Text)+weteaCause :: Lens' WorkflowExecutionTerminatedEventAttributes (Maybe WorkflowExecutionTerminatedCause) weteaCause = lens _weteaCause (\s a -> s { _weteaCause = a })  -- | The policy used for the child workflow executions of this workflow@@ -4425,7 +4481,7 @@ -- decider to take appropriate actions when it receives an execution history -- with this event. ABANDON: no action will be taken. The child executions -- will continue to run.-weteaChildPolicy :: Lens' WorkflowExecutionTerminatedEventAttributes Text+weteaChildPolicy :: Lens' WorkflowExecutionTerminatedEventAttributes ChildPolicy weteaChildPolicy = lens _weteaChildPolicy (\s a -> s { _weteaChildPolicy = a })  -- | The details provided for the termination (if any).@@ -4523,6 +4579,10 @@         SATFCOpenActivitiesLimitExceeded            -> "OPEN_ACTIVITIES_LIMIT_EXCEEDED"         SATFCOperationNotPermitted                  -> "OPERATION_NOT_PERMITTED" +instance ToByteString ScheduleActivityTaskFailedCause+instance ToHeader     ScheduleActivityTaskFailedCause+instance ToQuery      ScheduleActivityTaskFailedCause+ instance FromJSON ScheduleActivityTaskFailedCause where     parseJSON = parseJSONText "ScheduleActivityTaskFailedCause" @@ -4614,10 +4674,10 @@  data WorkflowExecutionInfo = WorkflowExecutionInfo     { _weiCancelRequested :: Maybe Bool-    , _weiCloseStatus     :: Maybe Text+    , _weiCloseStatus     :: Maybe CloseStatus     , _weiCloseTimestamp  :: Maybe RFC822     , _weiExecution       :: WorkflowExecution-    , _weiExecutionStatus :: Text+    , _weiExecutionStatus :: ExecutionStatus     , _weiParent          :: Maybe WorkflowExecution     , _weiStartTimestamp  :: RFC822     , _weiTagList         :: List "tagList" Text@@ -4630,13 +4690,13 @@ -- -- * 'weiCancelRequested' @::@ 'Maybe' 'Bool' ----- * 'weiCloseStatus' @::@ 'Maybe' 'Text'+-- * 'weiCloseStatus' @::@ 'Maybe' 'CloseStatus' -- -- * 'weiCloseTimestamp' @::@ 'Maybe' 'UTCTime' -- -- * 'weiExecution' @::@ 'WorkflowExecution' ----- * 'weiExecutionStatus' @::@ 'Text'+-- * 'weiExecutionStatus' @::@ 'ExecutionStatus' -- -- * 'weiParent' @::@ 'Maybe' 'WorkflowExecution' --@@ -4649,7 +4709,7 @@ workflowExecutionInfo :: WorkflowExecution -- ^ 'weiExecution'                       -> WorkflowType -- ^ 'weiWorkflowType'                       -> UTCTime -- ^ 'weiStartTimestamp'-                      -> Text -- ^ 'weiExecutionStatus'+                      -> ExecutionStatus -- ^ 'weiExecutionStatus'                       -> WorkflowExecutionInfo workflowExecutionInfo p1 p2 p3 p4 = WorkflowExecutionInfo     { _weiExecution       = p1@@ -4677,7 +4737,7 @@ -- alloted time and was automatically timed out. CONTINUED_AS_NEW: the -- execution is logically continued. This means the current execution was -- completed and a new execution was started to carry on the workflow.-weiCloseStatus :: Lens' WorkflowExecutionInfo (Maybe Text)+weiCloseStatus :: Lens' WorkflowExecutionInfo (Maybe CloseStatus) weiCloseStatus = lens _weiCloseStatus (\s a -> s { _weiCloseStatus = a })  -- | The time when the workflow execution was closed. Set only if the@@ -4692,7 +4752,7 @@ weiExecution = lens _weiExecution (\s a -> s { _weiExecution = a })  -- | The current status of the execution.-weiExecutionStatus :: Lens' WorkflowExecutionInfo Text+weiExecutionStatus :: Lens' WorkflowExecutionInfo ExecutionStatus weiExecutionStatus =     lens _weiExecutionStatus (\s a -> s { _weiExecutionStatus = a }) @@ -4743,19 +4803,19 @@         ]  data SignalExternalWorkflowExecutionFailedEventAttributes = SignalExternalWorkflowExecutionFailedEventAttributes-    { _sewefeaCause                        :: Text+    { _sewefeaCause                        :: SignalExternalWorkflowExecutionFailedCause     , _sewefeaControl                      :: Maybe Text     , _sewefeaDecisionTaskCompletedEventId :: Integer     , _sewefeaInitiatedEventId             :: Integer     , _sewefeaRunId                        :: Maybe Text     , _sewefeaWorkflowId                   :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'SignalExternalWorkflowExecutionFailedEventAttributes' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'sewefeaCause' @::@ 'Text'+-- * 'sewefeaCause' @::@ 'SignalExternalWorkflowExecutionFailedCause' -- -- * 'sewefeaControl' @::@ 'Maybe' 'Text' --@@ -4768,7 +4828,7 @@ -- * 'sewefeaWorkflowId' @::@ 'Text' -- signalExternalWorkflowExecutionFailedEventAttributes :: Text -- ^ 'sewefeaWorkflowId'-                                                     -> Text -- ^ 'sewefeaCause'+                                                     -> SignalExternalWorkflowExecutionFailedCause -- ^ 'sewefeaCause'                                                      -> Integer -- ^ 'sewefeaInitiatedEventId'                                                      -> Integer -- ^ 'sewefeaDecisionTaskCompletedEventId'                                                      -> SignalExternalWorkflowExecutionFailedEventAttributes@@ -4783,7 +4843,7 @@  -- | The cause of the failure to process the decision. This information is -- generated by the system and can be useful for diagnostic purposes.-sewefeaCause :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes Text+sewefeaCause :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes SignalExternalWorkflowExecutionFailedCause sewefeaCause = lens _sewefeaCause (\s a -> s { _sewefeaCause = a })  sewefeaControl :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes (Maybe Text)@@ -4885,6 +4945,10 @@         RequestCancel -> "REQUEST_CANCEL"         Terminate     -> "TERMINATE" +instance ToByteString ChildPolicy+instance ToHeader     ChildPolicy+instance ToQuery      ChildPolicy+ instance FromJSON ChildPolicy where     parseJSON = parseJSONText "ChildPolicy" @@ -4963,6 +5027,10 @@         CSTerminated     -> "TERMINATED"         CSTimedOut       -> "TIMED_OUT" +instance ToByteString CloseStatus+instance ToHeader     CloseStatus+instance ToQuery      CloseStatus+ instance FromJSON CloseStatus where     parseJSON = parseJSONText "CloseStatus" @@ -4985,6 +5053,10 @@         CompleteWorkflowExecutionFailedCauseOperationNotPermitted -> "OPERATION_NOT_PERMITTED"         CompleteWorkflowExecutionFailedCauseUnhandledDecision     -> "UNHANDLED_DECISION" +instance ToByteString CompleteWorkflowExecutionFailedCause+instance ToHeader     CompleteWorkflowExecutionFailedCause+instance ToQuery      CompleteWorkflowExecutionFailedCause+ instance FromJSON CompleteWorkflowExecutionFailedCause where     parseJSON = parseJSONText "CompleteWorkflowExecutionFailedCause" @@ -5013,6 +5085,10 @@         STFCTimerCreationRateExceeded -> "TIMER_CREATION_RATE_EXCEEDED"         STFCTimerIdAlreadyInUse       -> "TIMER_ID_ALREADY_IN_USE" +instance ToByteString StartTimerFailedCause+instance ToHeader     StartTimerFailedCause+instance ToQuery      StartTimerFailedCause+ instance FromJSON StartTimerFailedCause where     parseJSON = parseJSONText "StartTimerFailedCause" @@ -5065,20 +5141,20 @@         ]  data WorkflowExecutionTimedOutEventAttributes = WorkflowExecutionTimedOutEventAttributes-    { _wetoeaChildPolicy :: Text-    , _wetoeaTimeoutType :: Text-    } deriving (Eq, Ord, Show)+    { _wetoeaChildPolicy :: ChildPolicy+    , _wetoeaTimeoutType :: WorkflowExecutionTimeoutType+    } deriving (Eq, Show)  -- | 'WorkflowExecutionTimedOutEventAttributes' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'wetoeaChildPolicy' @::@ 'Text'+-- * 'wetoeaChildPolicy' @::@ 'ChildPolicy' ----- * 'wetoeaTimeoutType' @::@ 'Text'+-- * 'wetoeaTimeoutType' @::@ 'WorkflowExecutionTimeoutType' ---workflowExecutionTimedOutEventAttributes :: Text -- ^ 'wetoeaTimeoutType'-                                         -> Text -- ^ 'wetoeaChildPolicy'+workflowExecutionTimedOutEventAttributes :: WorkflowExecutionTimeoutType -- ^ 'wetoeaTimeoutType'+                                         -> ChildPolicy -- ^ 'wetoeaChildPolicy'                                          -> WorkflowExecutionTimedOutEventAttributes workflowExecutionTimedOutEventAttributes p1 p2 = WorkflowExecutionTimedOutEventAttributes     { _wetoeaTimeoutType = p1@@ -5093,12 +5169,12 @@ -- decider to take appropriate actions when it receives an execution history -- with this event. ABANDON: no action will be taken. The child executions -- will continue to run.-wetoeaChildPolicy :: Lens' WorkflowExecutionTimedOutEventAttributes Text+wetoeaChildPolicy :: Lens' WorkflowExecutionTimedOutEventAttributes ChildPolicy wetoeaChildPolicy =     lens _wetoeaChildPolicy (\s a -> s { _wetoeaChildPolicy = a })  -- | The type of timeout that caused this event.-wetoeaTimeoutType :: Lens' WorkflowExecutionTimedOutEventAttributes Text+wetoeaTimeoutType :: Lens' WorkflowExecutionTimedOutEventAttributes WorkflowExecutionTimeoutType wetoeaTimeoutType =     lens _wetoeaTimeoutType (\s a -> s { _wetoeaTimeoutType = a }) @@ -5313,6 +5389,10 @@ instance ToText RecordMarkerFailedCause where     toText RMFCOperationNotPermitted = "OPERATION_NOT_PERMITTED" +instance ToByteString RecordMarkerFailedCause+instance ToHeader     RecordMarkerFailedCause+instance ToQuery      RecordMarkerFailedCause+ instance FromJSON RecordMarkerFailedCause where     parseJSON = parseJSONText "RecordMarkerFailedCause" @@ -5335,6 +5415,10 @@         Deprecated -> "DEPRECATED"         Registered -> "REGISTERED" +instance ToByteString RegistrationStatus+instance ToHeader     RegistrationStatus+instance ToQuery      RegistrationStatus+ instance FromJSON RegistrationStatus where     parseJSON = parseJSONText "RegistrationStatus" @@ -5445,7 +5529,7 @@     , _dCancelWorkflowExecutionDecisionAttributes                :: Maybe CancelWorkflowExecutionDecisionAttributes     , _dCompleteWorkflowExecutionDecisionAttributes              :: Maybe CompleteWorkflowExecutionDecisionAttributes     , _dContinueAsNewWorkflowExecutionDecisionAttributes         :: Maybe ContinueAsNewWorkflowExecutionDecisionAttributes-    , _dDecisionType                                             :: Text+    , _dDecisionType                                             :: DecisionType     , _dFailWorkflowExecutionDecisionAttributes                  :: Maybe FailWorkflowExecutionDecisionAttributes     , _dRecordMarkerDecisionAttributes                           :: Maybe RecordMarkerDecisionAttributes     , _dRequestCancelActivityTaskDecisionAttributes              :: Maybe RequestCancelActivityTaskDecisionAttributes@@ -5468,7 +5552,7 @@ -- -- * 'dContinueAsNewWorkflowExecutionDecisionAttributes' @::@ 'Maybe' 'ContinueAsNewWorkflowExecutionDecisionAttributes' ----- * 'dDecisionType' @::@ 'Text'+-- * 'dDecisionType' @::@ 'DecisionType' -- -- * 'dFailWorkflowExecutionDecisionAttributes' @::@ 'Maybe' 'FailWorkflowExecutionDecisionAttributes' --@@ -5486,7 +5570,7 @@ -- -- * 'dStartTimerDecisionAttributes' @::@ 'Maybe' 'StartTimerDecisionAttributes' ---decision :: Text -- ^ 'dDecisionType'+decision :: DecisionType -- ^ 'dDecisionType'          -> Decision decision p1 = Decision     { _dDecisionType                                             = p1@@ -5533,7 +5617,7 @@         (\s a -> s { _dContinueAsNewWorkflowExecutionDecisionAttributes = a })  -- | Specifies the type of the decision.-dDecisionType :: Lens' Decision Text+dDecisionType :: Lens' Decision DecisionType dDecisionType = lens _dDecisionType (\s a -> s { _dDecisionType = a })  -- | Provides details of the FailWorkflowExecution decision. It is not set for@@ -5840,19 +5924,19 @@         ]  data FailWorkflowExecutionFailedEventAttributes = FailWorkflowExecutionFailedEventAttributes-    { _fwefeaCause                        :: Text+    { _fwefeaCause                        :: FailWorkflowExecutionFailedCause     , _fwefeaDecisionTaskCompletedEventId :: Integer-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'FailWorkflowExecutionFailedEventAttributes' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'fwefeaCause' @::@ 'Text'+-- * 'fwefeaCause' @::@ 'FailWorkflowExecutionFailedCause' -- -- * 'fwefeaDecisionTaskCompletedEventId' @::@ 'Integer' ---failWorkflowExecutionFailedEventAttributes :: Text -- ^ 'fwefeaCause'+failWorkflowExecutionFailedEventAttributes :: FailWorkflowExecutionFailedCause -- ^ 'fwefeaCause'                                            -> Integer -- ^ 'fwefeaDecisionTaskCompletedEventId'                                            -> FailWorkflowExecutionFailedEventAttributes failWorkflowExecutionFailedEventAttributes p1 p2 = FailWorkflowExecutionFailedEventAttributes@@ -5862,7 +5946,7 @@  -- | The cause of the failure. This information is generated by the system and -- can be useful for diagnostic purposes.-fwefeaCause :: Lens' FailWorkflowExecutionFailedEventAttributes Text+fwefeaCause :: Lens' FailWorkflowExecutionFailedEventAttributes FailWorkflowExecutionFailedCause fwefeaCause = lens _fwefeaCause (\s a -> s { _fwefeaCause = a })  -- | The id of the DecisionTaskCompleted event corresponding to the decision@@ -5886,7 +5970,7 @@         ]  data StartChildWorkflowExecutionFailedEventAttributes = StartChildWorkflowExecutionFailedEventAttributes-    { _scwefeaCause                        :: Text+    { _scwefeaCause                        :: StartChildWorkflowExecutionFailedCause     , _scwefeaControl                      :: Maybe Text     , _scwefeaDecisionTaskCompletedEventId :: Integer     , _scwefeaInitiatedEventId             :: Integer@@ -5898,7 +5982,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'scwefeaCause' @::@ 'Text'+-- * 'scwefeaCause' @::@ 'StartChildWorkflowExecutionFailedCause' -- -- * 'scwefeaControl' @::@ 'Maybe' 'Text' --@@ -5911,7 +5995,7 @@ -- * 'scwefeaWorkflowType' @::@ 'WorkflowType' -- startChildWorkflowExecutionFailedEventAttributes :: WorkflowType -- ^ 'scwefeaWorkflowType'-                                                 -> Text -- ^ 'scwefeaCause'+                                                 -> StartChildWorkflowExecutionFailedCause -- ^ 'scwefeaCause'                                                  -> Text -- ^ 'scwefeaWorkflowId'                                                  -> Integer -- ^ 'scwefeaInitiatedEventId'                                                  -> Integer -- ^ 'scwefeaDecisionTaskCompletedEventId'@@ -5927,7 +6011,7 @@  -- | The cause of the failure to process the decision. This information is -- generated by the system and can be useful for diagnostic purposes.-scwefeaCause :: Lens' StartChildWorkflowExecutionFailedEventAttributes Text+scwefeaCause :: Lens' StartChildWorkflowExecutionFailedEventAttributes StartChildWorkflowExecutionFailedCause scwefeaCause = lens _scwefeaCause (\s a -> s { _scwefeaCause = a })  scwefeaControl :: Lens' StartChildWorkflowExecutionFailedEventAttributes (Maybe Text)@@ -6035,6 +6119,10 @@         CTFCOperationNotPermitted -> "OPERATION_NOT_PERMITTED"         CTFCTimerIdUnknown        -> "TIMER_ID_UNKNOWN" +instance ToByteString CancelTimerFailedCause+instance ToHeader     CancelTimerFailedCause+instance ToQuery      CancelTimerFailedCause+ instance FromJSON CancelTimerFailedCause where     parseJSON = parseJSONText "CancelTimerFailedCause" @@ -6194,8 +6282,8 @@ data DomainInfo = DomainInfo     { _diDescription :: Maybe Text     , _diName        :: Text-    , _diStatus      :: Text-    } deriving (Eq, Ord, Show)+    , _diStatus      :: RegistrationStatus+    } deriving (Eq, Show)  -- | 'DomainInfo' constructor. --@@ -6205,10 +6293,10 @@ -- -- * 'diName' @::@ 'Text' ----- * 'diStatus' @::@ 'Text'+-- * 'diStatus' @::@ 'RegistrationStatus' -- domainInfo :: Text -- ^ 'diName'-           -> Text -- ^ 'diStatus'+           -> RegistrationStatus -- ^ 'diStatus'            -> DomainInfo domainInfo p1 p2 = DomainInfo     { _diName        = p1@@ -6229,7 +6317,7 @@ -- new workflow executions. DEPRECATED: The domain was deprecated using -- DeprecateDomain, but is still in use. You should not create new workflow -- executions in this domain.-diStatus :: Lens' DomainInfo Text+diStatus :: Lens' DomainInfo RegistrationStatus diStatus = lens _diStatus (\s a -> s { _diStatus = a })  instance FromJSON DomainInfo where@@ -6269,7 +6357,7 @@     , _heDecisionTaskTimedOutEventAttributes                            :: Maybe DecisionTaskTimedOutEventAttributes     , _heEventId                                                        :: Integer     , _heEventTimestamp                                                 :: RFC822-    , _heEventType                                                      :: Text+    , _heEventType                                                      :: EventType     , _heExternalWorkflowExecutionCancelRequestedEventAttributes        :: Maybe ExternalWorkflowExecutionCancelRequestedEventAttributes     , _heExternalWorkflowExecutionSignaledEventAttributes               :: Maybe ExternalWorkflowExecutionSignaledEventAttributes     , _heFailWorkflowExecutionFailedEventAttributes                     :: Maybe FailWorkflowExecutionFailedEventAttributes@@ -6348,7 +6436,7 @@ -- -- * 'heEventTimestamp' @::@ 'UTCTime' ----- * 'heEventType' @::@ 'Text'+-- * 'heEventType' @::@ 'EventType' -- -- * 'heExternalWorkflowExecutionCancelRequestedEventAttributes' @::@ 'Maybe' 'ExternalWorkflowExecutionCancelRequestedEventAttributes' --@@ -6403,7 +6491,7 @@ -- * 'heWorkflowExecutionTimedOutEventAttributes' @::@ 'Maybe' 'WorkflowExecutionTimedOutEventAttributes' -- historyEvent :: UTCTime -- ^ 'heEventTimestamp'-             -> Text -- ^ 'heEventType'+             -> EventType -- ^ 'heEventType'              -> Integer -- ^ 'heEventId'              -> HistoryEvent historyEvent p1 p2 p3 = HistoryEvent@@ -6637,7 +6725,7 @@ heEventTimestamp = lens _heEventTimestamp (\s a -> s { _heEventTimestamp = a }) . _Time  -- | The type of the history event.-heEventType :: Lens' HistoryEvent Text+heEventType :: Lens' HistoryEvent EventType heEventType = lens _heEventType (\s a -> s { _heEventType = a })  -- | If the event is of type ExternalWorkflowExecutionCancelRequested then@@ -6956,19 +7044,19 @@         ]  data ContinueAsNewWorkflowExecutionFailedEventAttributes = ContinueAsNewWorkflowExecutionFailedEventAttributes-    { _canwefeaCause                        :: Text+    { _canwefeaCause                        :: ContinueAsNewWorkflowExecutionFailedCause     , _canwefeaDecisionTaskCompletedEventId :: Integer-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'ContinueAsNewWorkflowExecutionFailedEventAttributes' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'canwefeaCause' @::@ 'Text'+-- * 'canwefeaCause' @::@ 'ContinueAsNewWorkflowExecutionFailedCause' -- -- * 'canwefeaDecisionTaskCompletedEventId' @::@ 'Integer' ---continueAsNewWorkflowExecutionFailedEventAttributes :: Text -- ^ 'canwefeaCause'+continueAsNewWorkflowExecutionFailedEventAttributes :: ContinueAsNewWorkflowExecutionFailedCause -- ^ 'canwefeaCause'                                                     -> Integer -- ^ 'canwefeaDecisionTaskCompletedEventId'                                                     -> ContinueAsNewWorkflowExecutionFailedEventAttributes continueAsNewWorkflowExecutionFailedEventAttributes p1 p2 = ContinueAsNewWorkflowExecutionFailedEventAttributes@@ -6978,7 +7066,7 @@  -- | The cause of the failure. This information is generated by the system and -- can be useful for diagnostic purposes.-canwefeaCause :: Lens' ContinueAsNewWorkflowExecutionFailedEventAttributes Text+canwefeaCause :: Lens' ContinueAsNewWorkflowExecutionFailedEventAttributes ContinueAsNewWorkflowExecutionFailedCause canwefeaCause = lens _canwefeaCause (\s a -> s { _canwefeaCause = a })  -- | The id of the DecisionTaskCompleted event corresponding to the decision@@ -7174,7 +7262,7 @@         ]  data WorkflowExecutionConfiguration = WorkflowExecutionConfiguration-    { _wecChildPolicy                  :: Text+    { _wecChildPolicy                  :: ChildPolicy     , _wecExecutionStartToCloseTimeout :: Text     , _wecTaskList                     :: TaskList     , _wecTaskStartToCloseTimeout      :: Text@@ -7184,7 +7272,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'wecChildPolicy' @::@ 'Text'+-- * 'wecChildPolicy' @::@ 'ChildPolicy' -- -- * 'wecExecutionStartToCloseTimeout' @::@ 'Text' --@@ -7195,7 +7283,7 @@ workflowExecutionConfiguration :: Text -- ^ 'wecTaskStartToCloseTimeout'                                -> Text -- ^ 'wecExecutionStartToCloseTimeout'                                -> TaskList -- ^ 'wecTaskList'-                               -> Text -- ^ 'wecChildPolicy'+                               -> ChildPolicy -- ^ 'wecChildPolicy'                                -> WorkflowExecutionConfiguration workflowExecutionConfiguration p1 p2 p3 p4 = WorkflowExecutionConfiguration     { _wecTaskStartToCloseTimeout      = p1@@ -7213,7 +7301,7 @@ -- up to the decider to take appropriate actions when it receives an -- execution history with this event. ABANDON: no action will be taken. The -- child executions will continue to run.-wecChildPolicy :: Lens' WorkflowExecutionConfiguration Text+wecChildPolicy :: Lens' WorkflowExecutionConfiguration ChildPolicy wecChildPolicy = lens _wecChildPolicy (\s a -> s { _wecChildPolicy = a })  -- | The total duration for this workflow execution. The valid values are@@ -7313,6 +7401,10 @@         RCEWEFCRequestCancelExternalWorkflowExecutionRateExceeded -> "REQUEST_CANCEL_EXTERNAL_WORKFLOW_EXECUTION_RATE_EXCEEDED"         RCEWEFCUnknownExternalWorkflowExecution                   -> "UNKNOWN_EXTERNAL_WORKFLOW_EXECUTION" +instance ToByteString RequestCancelExternalWorkflowExecutionFailedCause+instance ToHeader     RequestCancelExternalWorkflowExecutionFailedCause+instance ToQuery      RequestCancelExternalWorkflowExecutionFailedCause+ instance FromJSON RequestCancelExternalWorkflowExecutionFailedCause where     parseJSON = parseJSONText "RequestCancelExternalWorkflowExecutionFailedCause" @@ -7320,7 +7412,7 @@     toJSON = toJSONText  data ContinueAsNewWorkflowExecutionDecisionAttributes = ContinueAsNewWorkflowExecutionDecisionAttributes-    { _canwedaChildPolicy                  :: Maybe Text+    { _canwedaChildPolicy                  :: Maybe ChildPolicy     , _canwedaExecutionStartToCloseTimeout :: Maybe Text     , _canwedaInput                        :: Maybe Text     , _canwedaTagList                      :: List "tagList" Text@@ -7333,7 +7425,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'canwedaChildPolicy' @::@ 'Maybe' 'Text'+-- * 'canwedaChildPolicy' @::@ 'Maybe' 'ChildPolicy' -- -- * 'canwedaExecutionStartToCloseTimeout' @::@ 'Maybe' 'Text' --@@ -7369,7 +7461,7 @@ -- history. It is up to the decider to take appropriate actions when it -- receives an execution history with this event. ABANDON: no action will be -- taken. The child executions will continue to run.-canwedaChildPolicy :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)+canwedaChildPolicy :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe ChildPolicy) canwedaChildPolicy =     lens _canwedaChildPolicy (\s a -> s { _canwedaChildPolicy = a }) @@ -7523,7 +7615,7 @@         ]  data WorkflowExecutionContinuedAsNewEventAttributes = WorkflowExecutionContinuedAsNewEventAttributes-    { _wecaneaChildPolicy                  :: Text+    { _wecaneaChildPolicy                  :: ChildPolicy     , _wecaneaDecisionTaskCompletedEventId :: Integer     , _wecaneaExecutionStartToCloseTimeout :: Maybe Text     , _wecaneaInput                        :: Maybe Text@@ -7538,7 +7630,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'wecaneaChildPolicy' @::@ 'Text'+-- * 'wecaneaChildPolicy' @::@ 'ChildPolicy' -- -- * 'wecaneaDecisionTaskCompletedEventId' @::@ 'Integer' --@@ -7559,7 +7651,7 @@ workflowExecutionContinuedAsNewEventAttributes :: Integer -- ^ 'wecaneaDecisionTaskCompletedEventId'                                                -> Text -- ^ 'wecaneaNewExecutionRunId'                                                -> TaskList -- ^ 'wecaneaTaskList'-                                               -> Text -- ^ 'wecaneaChildPolicy'+                                               -> ChildPolicy -- ^ 'wecaneaChildPolicy'                                                -> WorkflowType -- ^ 'wecaneaWorkflowType'                                                -> WorkflowExecutionContinuedAsNewEventAttributes workflowExecutionContinuedAsNewEventAttributes p1 p2 p3 p4 p5 = WorkflowExecutionContinuedAsNewEventAttributes@@ -7583,7 +7675,7 @@ -- up to the decider to take appropriate actions when it receives an -- execution history with this event. ABANDON: no action will be taken. The -- child executions will continue to run.-wecaneaChildPolicy :: Lens' WorkflowExecutionContinuedAsNewEventAttributes Text+wecaneaChildPolicy :: Lens' WorkflowExecutionContinuedAsNewEventAttributes ChildPolicy wecaneaChildPolicy =     lens _wecaneaChildPolicy (\s a -> s { _wecaneaChildPolicy = a })