module Network.AWS.SWF.Types.Product where
import Network.AWS.Prelude
import Network.AWS.SWF.Types.Sum
data ActivityTaskCancelRequestedEventAttributes = ActivityTaskCancelRequestedEventAttributes'
{ _atcreaDecisionTaskCompletedEventId :: !Integer
, _atcreaActivityId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
activityTaskCancelRequestedEventAttributes
:: Integer
-> Text
-> ActivityTaskCancelRequestedEventAttributes
activityTaskCancelRequestedEventAttributes pDecisionTaskCompletedEventId_ pActivityId_ =
ActivityTaskCancelRequestedEventAttributes'
{ _atcreaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
, _atcreaActivityId = pActivityId_
}
atcreaDecisionTaskCompletedEventId :: Lens' ActivityTaskCancelRequestedEventAttributes Integer
atcreaDecisionTaskCompletedEventId = lens _atcreaDecisionTaskCompletedEventId (\ s a -> s{_atcreaDecisionTaskCompletedEventId = a});
atcreaActivityId :: Lens' ActivityTaskCancelRequestedEventAttributes Text
atcreaActivityId = lens _atcreaActivityId (\ s a -> s{_atcreaActivityId = a});
instance FromJSON
ActivityTaskCancelRequestedEventAttributes where
parseJSON
= withObject
"ActivityTaskCancelRequestedEventAttributes"
(\ x ->
ActivityTaskCancelRequestedEventAttributes' <$>
(x .: "decisionTaskCompletedEventId") <*>
(x .: "activityId"))
data ActivityTaskCanceledEventAttributes = ActivityTaskCanceledEventAttributes'
{ _aLatestCancelRequestedEventId :: !(Maybe Integer)
, _aDetails :: !(Maybe Text)
, _aScheduledEventId :: !Integer
, _aStartedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
activityTaskCanceledEventAttributes
:: Integer
-> Integer
-> ActivityTaskCanceledEventAttributes
activityTaskCanceledEventAttributes pScheduledEventId_ pStartedEventId_ =
ActivityTaskCanceledEventAttributes'
{ _aLatestCancelRequestedEventId = Nothing
, _aDetails = Nothing
, _aScheduledEventId = pScheduledEventId_
, _aStartedEventId = pStartedEventId_
}
aLatestCancelRequestedEventId :: Lens' ActivityTaskCanceledEventAttributes (Maybe Integer)
aLatestCancelRequestedEventId = lens _aLatestCancelRequestedEventId (\ s a -> s{_aLatestCancelRequestedEventId = a});
aDetails :: Lens' ActivityTaskCanceledEventAttributes (Maybe Text)
aDetails = lens _aDetails (\ s a -> s{_aDetails = a});
aScheduledEventId :: Lens' ActivityTaskCanceledEventAttributes Integer
aScheduledEventId = lens _aScheduledEventId (\ s a -> s{_aScheduledEventId = a});
aStartedEventId :: Lens' ActivityTaskCanceledEventAttributes Integer
aStartedEventId = lens _aStartedEventId (\ s a -> s{_aStartedEventId = a});
instance FromJSON ActivityTaskCanceledEventAttributes
where
parseJSON
= withObject "ActivityTaskCanceledEventAttributes"
(\ x ->
ActivityTaskCanceledEventAttributes' <$>
(x .:? "latestCancelRequestedEventId") <*>
(x .:? "details")
<*> (x .: "scheduledEventId")
<*> (x .: "startedEventId"))
data ActivityTaskCompletedEventAttributes = ActivityTaskCompletedEventAttributes'
{ _atceaResult :: !(Maybe Text)
, _atceaScheduledEventId :: !Integer
, _atceaStartedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
activityTaskCompletedEventAttributes
:: Integer
-> Integer
-> ActivityTaskCompletedEventAttributes
activityTaskCompletedEventAttributes pScheduledEventId_ pStartedEventId_ =
ActivityTaskCompletedEventAttributes'
{ _atceaResult = Nothing
, _atceaScheduledEventId = pScheduledEventId_
, _atceaStartedEventId = pStartedEventId_
}
atceaResult :: Lens' ActivityTaskCompletedEventAttributes (Maybe Text)
atceaResult = lens _atceaResult (\ s a -> s{_atceaResult = a});
atceaScheduledEventId :: Lens' ActivityTaskCompletedEventAttributes Integer
atceaScheduledEventId = lens _atceaScheduledEventId (\ s a -> s{_atceaScheduledEventId = a});
atceaStartedEventId :: Lens' ActivityTaskCompletedEventAttributes Integer
atceaStartedEventId = lens _atceaStartedEventId (\ s a -> s{_atceaStartedEventId = a});
instance FromJSON
ActivityTaskCompletedEventAttributes where
parseJSON
= withObject "ActivityTaskCompletedEventAttributes"
(\ x ->
ActivityTaskCompletedEventAttributes' <$>
(x .:? "result") <*> (x .: "scheduledEventId") <*>
(x .: "startedEventId"))
data ActivityTaskFailedEventAttributes = ActivityTaskFailedEventAttributes'
{ _atfeaReason :: !(Maybe Text)
, _atfeaDetails :: !(Maybe Text)
, _atfeaScheduledEventId :: !Integer
, _atfeaStartedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
activityTaskFailedEventAttributes
:: Integer
-> Integer
-> ActivityTaskFailedEventAttributes
activityTaskFailedEventAttributes pScheduledEventId_ pStartedEventId_ =
ActivityTaskFailedEventAttributes'
{ _atfeaReason = Nothing
, _atfeaDetails = Nothing
, _atfeaScheduledEventId = pScheduledEventId_
, _atfeaStartedEventId = pStartedEventId_
}
atfeaReason :: Lens' ActivityTaskFailedEventAttributes (Maybe Text)
atfeaReason = lens _atfeaReason (\ s a -> s{_atfeaReason = a});
atfeaDetails :: Lens' ActivityTaskFailedEventAttributes (Maybe Text)
atfeaDetails = lens _atfeaDetails (\ s a -> s{_atfeaDetails = a});
atfeaScheduledEventId :: Lens' ActivityTaskFailedEventAttributes Integer
atfeaScheduledEventId = lens _atfeaScheduledEventId (\ s a -> s{_atfeaScheduledEventId = a});
atfeaStartedEventId :: Lens' ActivityTaskFailedEventAttributes Integer
atfeaStartedEventId = lens _atfeaStartedEventId (\ s a -> s{_atfeaStartedEventId = a});
instance FromJSON ActivityTaskFailedEventAttributes
where
parseJSON
= withObject "ActivityTaskFailedEventAttributes"
(\ x ->
ActivityTaskFailedEventAttributes' <$>
(x .:? "reason") <*> (x .:? "details") <*>
(x .: "scheduledEventId")
<*> (x .: "startedEventId"))
data ActivityTaskScheduledEventAttributes = ActivityTaskScheduledEventAttributes'
{ _atseaControl :: !(Maybe Text)
, _atseaScheduleToCloseTimeout :: !(Maybe Text)
, _atseaHeartbeatTimeout :: !(Maybe Text)
, _atseaInput :: !(Maybe Text)
, _atseaTaskPriority :: !(Maybe Text)
, _atseaScheduleToStartTimeout :: !(Maybe Text)
, _atseaStartToCloseTimeout :: !(Maybe Text)
, _atseaActivityType :: !ActivityType
, _atseaActivityId :: !Text
, _atseaTaskList :: !TaskList
, _atseaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
activityTaskScheduledEventAttributes
:: ActivityType
-> Text
-> TaskList
-> Integer
-> ActivityTaskScheduledEventAttributes
activityTaskScheduledEventAttributes pActivityType_ pActivityId_ pTaskList_ pDecisionTaskCompletedEventId_ =
ActivityTaskScheduledEventAttributes'
{ _atseaControl = Nothing
, _atseaScheduleToCloseTimeout = Nothing
, _atseaHeartbeatTimeout = Nothing
, _atseaInput = Nothing
, _atseaTaskPriority = Nothing
, _atseaScheduleToStartTimeout = Nothing
, _atseaStartToCloseTimeout = Nothing
, _atseaActivityType = pActivityType_
, _atseaActivityId = pActivityId_
, _atseaTaskList = pTaskList_
, _atseaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
atseaControl :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)
atseaControl = lens _atseaControl (\ s a -> s{_atseaControl = a});
atseaScheduleToCloseTimeout :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)
atseaScheduleToCloseTimeout = lens _atseaScheduleToCloseTimeout (\ s a -> s{_atseaScheduleToCloseTimeout = a});
atseaHeartbeatTimeout :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)
atseaHeartbeatTimeout = lens _atseaHeartbeatTimeout (\ s a -> s{_atseaHeartbeatTimeout = a});
atseaInput :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)
atseaInput = lens _atseaInput (\ s a -> s{_atseaInput = a});
atseaTaskPriority :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)
atseaTaskPriority = lens _atseaTaskPriority (\ s a -> s{_atseaTaskPriority = a});
atseaScheduleToStartTimeout :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)
atseaScheduleToStartTimeout = lens _atseaScheduleToStartTimeout (\ s a -> s{_atseaScheduleToStartTimeout = a});
atseaStartToCloseTimeout :: Lens' ActivityTaskScheduledEventAttributes (Maybe Text)
atseaStartToCloseTimeout = lens _atseaStartToCloseTimeout (\ s a -> s{_atseaStartToCloseTimeout = a});
atseaActivityType :: Lens' ActivityTaskScheduledEventAttributes ActivityType
atseaActivityType = lens _atseaActivityType (\ s a -> s{_atseaActivityType = a});
atseaActivityId :: Lens' ActivityTaskScheduledEventAttributes Text
atseaActivityId = lens _atseaActivityId (\ s a -> s{_atseaActivityId = a});
atseaTaskList :: Lens' ActivityTaskScheduledEventAttributes TaskList
atseaTaskList = lens _atseaTaskList (\ s a -> s{_atseaTaskList = a});
atseaDecisionTaskCompletedEventId :: Lens' ActivityTaskScheduledEventAttributes Integer
atseaDecisionTaskCompletedEventId = lens _atseaDecisionTaskCompletedEventId (\ s a -> s{_atseaDecisionTaskCompletedEventId = a});
instance FromJSON
ActivityTaskScheduledEventAttributes where
parseJSON
= withObject "ActivityTaskScheduledEventAttributes"
(\ x ->
ActivityTaskScheduledEventAttributes' <$>
(x .:? "control") <*>
(x .:? "scheduleToCloseTimeout")
<*> (x .:? "heartbeatTimeout")
<*> (x .:? "input")
<*> (x .:? "taskPriority")
<*> (x .:? "scheduleToStartTimeout")
<*> (x .:? "startToCloseTimeout")
<*> (x .: "activityType")
<*> (x .: "activityId")
<*> (x .: "taskList")
<*> (x .: "decisionTaskCompletedEventId"))
data ActivityTaskStartedEventAttributes = ActivityTaskStartedEventAttributes'
{ _atseaIdentity :: !(Maybe Text)
, _atseaScheduledEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
activityTaskStartedEventAttributes
:: Integer
-> ActivityTaskStartedEventAttributes
activityTaskStartedEventAttributes pScheduledEventId_ =
ActivityTaskStartedEventAttributes'
{ _atseaIdentity = Nothing
, _atseaScheduledEventId = pScheduledEventId_
}
atseaIdentity :: Lens' ActivityTaskStartedEventAttributes (Maybe Text)
atseaIdentity = lens _atseaIdentity (\ s a -> s{_atseaIdentity = a});
atseaScheduledEventId :: Lens' ActivityTaskStartedEventAttributes Integer
atseaScheduledEventId = lens _atseaScheduledEventId (\ s a -> s{_atseaScheduledEventId = a});
instance FromJSON ActivityTaskStartedEventAttributes
where
parseJSON
= withObject "ActivityTaskStartedEventAttributes"
(\ x ->
ActivityTaskStartedEventAttributes' <$>
(x .:? "identity") <*> (x .: "scheduledEventId"))
data ActivityTaskTimedOutEventAttributes = ActivityTaskTimedOutEventAttributes'
{ _attoeaDetails :: !(Maybe Text)
, _attoeaTimeoutType :: !ActivityTaskTimeoutType
, _attoeaScheduledEventId :: !Integer
, _attoeaStartedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
activityTaskTimedOutEventAttributes
:: ActivityTaskTimeoutType
-> Integer
-> Integer
-> ActivityTaskTimedOutEventAttributes
activityTaskTimedOutEventAttributes pTimeoutType_ pScheduledEventId_ pStartedEventId_ =
ActivityTaskTimedOutEventAttributes'
{ _attoeaDetails = Nothing
, _attoeaTimeoutType = pTimeoutType_
, _attoeaScheduledEventId = pScheduledEventId_
, _attoeaStartedEventId = pStartedEventId_
}
attoeaDetails :: Lens' ActivityTaskTimedOutEventAttributes (Maybe Text)
attoeaDetails = lens _attoeaDetails (\ s a -> s{_attoeaDetails = a});
attoeaTimeoutType :: Lens' ActivityTaskTimedOutEventAttributes ActivityTaskTimeoutType
attoeaTimeoutType = lens _attoeaTimeoutType (\ s a -> s{_attoeaTimeoutType = a});
attoeaScheduledEventId :: Lens' ActivityTaskTimedOutEventAttributes Integer
attoeaScheduledEventId = lens _attoeaScheduledEventId (\ s a -> s{_attoeaScheduledEventId = a});
attoeaStartedEventId :: Lens' ActivityTaskTimedOutEventAttributes Integer
attoeaStartedEventId = lens _attoeaStartedEventId (\ s a -> s{_attoeaStartedEventId = a});
instance FromJSON ActivityTaskTimedOutEventAttributes
where
parseJSON
= withObject "ActivityTaskTimedOutEventAttributes"
(\ x ->
ActivityTaskTimedOutEventAttributes' <$>
(x .:? "details") <*> (x .: "timeoutType") <*>
(x .: "scheduledEventId")
<*> (x .: "startedEventId"))
data ActivityType = ActivityType'
{ _atName :: !Text
, _atVersion :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
activityType
:: Text
-> Text
-> ActivityType
activityType pName_ pVersion_ =
ActivityType'
{ _atName = pName_
, _atVersion = pVersion_
}
atName :: Lens' ActivityType Text
atName = lens _atName (\ s a -> s{_atName = a});
atVersion :: Lens' ActivityType Text
atVersion = lens _atVersion (\ s a -> s{_atVersion = a});
instance FromJSON ActivityType where
parseJSON
= withObject "ActivityType"
(\ x ->
ActivityType' <$> (x .: "name") <*> (x .: "version"))
instance ToJSON ActivityType where
toJSON ActivityType'{..}
= object
(catMaybes
[Just ("name" .= _atName),
Just ("version" .= _atVersion)])
data ActivityTypeConfiguration = ActivityTypeConfiguration'
{ _atcDefaultTaskScheduleToStartTimeout :: !(Maybe Text)
, _atcDefaultTaskList :: !(Maybe TaskList)
, _atcDefaultTaskPriority :: !(Maybe Text)
, _atcDefaultTaskHeartbeatTimeout :: !(Maybe Text)
, _atcDefaultTaskScheduleToCloseTimeout :: !(Maybe Text)
, _atcDefaultTaskStartToCloseTimeout :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
activityTypeConfiguration
:: ActivityTypeConfiguration
activityTypeConfiguration =
ActivityTypeConfiguration'
{ _atcDefaultTaskScheduleToStartTimeout = Nothing
, _atcDefaultTaskList = Nothing
, _atcDefaultTaskPriority = Nothing
, _atcDefaultTaskHeartbeatTimeout = Nothing
, _atcDefaultTaskScheduleToCloseTimeout = Nothing
, _atcDefaultTaskStartToCloseTimeout = Nothing
}
atcDefaultTaskScheduleToStartTimeout :: Lens' ActivityTypeConfiguration (Maybe Text)
atcDefaultTaskScheduleToStartTimeout = lens _atcDefaultTaskScheduleToStartTimeout (\ s a -> s{_atcDefaultTaskScheduleToStartTimeout = a});
atcDefaultTaskList :: Lens' ActivityTypeConfiguration (Maybe TaskList)
atcDefaultTaskList = lens _atcDefaultTaskList (\ s a -> s{_atcDefaultTaskList = a});
atcDefaultTaskPriority :: Lens' ActivityTypeConfiguration (Maybe Text)
atcDefaultTaskPriority = lens _atcDefaultTaskPriority (\ s a -> s{_atcDefaultTaskPriority = a});
atcDefaultTaskHeartbeatTimeout :: Lens' ActivityTypeConfiguration (Maybe Text)
atcDefaultTaskHeartbeatTimeout = lens _atcDefaultTaskHeartbeatTimeout (\ s a -> s{_atcDefaultTaskHeartbeatTimeout = a});
atcDefaultTaskScheduleToCloseTimeout :: Lens' ActivityTypeConfiguration (Maybe Text)
atcDefaultTaskScheduleToCloseTimeout = lens _atcDefaultTaskScheduleToCloseTimeout (\ s a -> s{_atcDefaultTaskScheduleToCloseTimeout = a});
atcDefaultTaskStartToCloseTimeout :: Lens' ActivityTypeConfiguration (Maybe Text)
atcDefaultTaskStartToCloseTimeout = lens _atcDefaultTaskStartToCloseTimeout (\ s a -> s{_atcDefaultTaskStartToCloseTimeout = a});
instance FromJSON ActivityTypeConfiguration where
parseJSON
= withObject "ActivityTypeConfiguration"
(\ x ->
ActivityTypeConfiguration' <$>
(x .:? "defaultTaskScheduleToStartTimeout") <*>
(x .:? "defaultTaskList")
<*> (x .:? "defaultTaskPriority")
<*> (x .:? "defaultTaskHeartbeatTimeout")
<*> (x .:? "defaultTaskScheduleToCloseTimeout")
<*> (x .:? "defaultTaskStartToCloseTimeout"))
data ActivityTypeInfo = ActivityTypeInfo'
{ _atiDeprecationDate :: !(Maybe POSIX)
, _atiDescription :: !(Maybe Text)
, _atiActivityType :: !ActivityType
, _atiStatus :: !RegistrationStatus
, _atiCreationDate :: !POSIX
} deriving (Eq,Read,Show,Data,Typeable,Generic)
activityTypeInfo
:: ActivityType
-> RegistrationStatus
-> UTCTime
-> ActivityTypeInfo
activityTypeInfo pActivityType_ pStatus_ pCreationDate_ =
ActivityTypeInfo'
{ _atiDeprecationDate = Nothing
, _atiDescription = Nothing
, _atiActivityType = pActivityType_
, _atiStatus = pStatus_
, _atiCreationDate = _Time # pCreationDate_
}
atiDeprecationDate :: Lens' ActivityTypeInfo (Maybe UTCTime)
atiDeprecationDate = lens _atiDeprecationDate (\ s a -> s{_atiDeprecationDate = a}) . mapping _Time;
atiDescription :: Lens' ActivityTypeInfo (Maybe Text)
atiDescription = lens _atiDescription (\ s a -> s{_atiDescription = a});
atiActivityType :: Lens' ActivityTypeInfo ActivityType
atiActivityType = lens _atiActivityType (\ s a -> s{_atiActivityType = a});
atiStatus :: Lens' ActivityTypeInfo RegistrationStatus
atiStatus = lens _atiStatus (\ s a -> s{_atiStatus = a});
atiCreationDate :: Lens' ActivityTypeInfo UTCTime
atiCreationDate = lens _atiCreationDate (\ s a -> s{_atiCreationDate = a}) . _Time;
instance FromJSON ActivityTypeInfo where
parseJSON
= withObject "ActivityTypeInfo"
(\ x ->
ActivityTypeInfo' <$>
(x .:? "deprecationDate") <*> (x .:? "description")
<*> (x .: "activityType")
<*> (x .: "status")
<*> (x .: "creationDate"))
newtype CancelTimerDecisionAttributes = CancelTimerDecisionAttributes'
{ _ctdaTimerId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cancelTimerDecisionAttributes
:: Text
-> CancelTimerDecisionAttributes
cancelTimerDecisionAttributes pTimerId_ =
CancelTimerDecisionAttributes'
{ _ctdaTimerId = pTimerId_
}
ctdaTimerId :: Lens' CancelTimerDecisionAttributes Text
ctdaTimerId = lens _ctdaTimerId (\ s a -> s{_ctdaTimerId = a});
instance ToJSON CancelTimerDecisionAttributes where
toJSON CancelTimerDecisionAttributes'{..}
= object
(catMaybes [Just ("timerId" .= _ctdaTimerId)])
data CancelTimerFailedEventAttributes = CancelTimerFailedEventAttributes'
{ _ctfeaTimerId :: !Text
, _ctfeaCause :: !CancelTimerFailedCause
, _ctfeaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cancelTimerFailedEventAttributes
:: Text
-> CancelTimerFailedCause
-> Integer
-> CancelTimerFailedEventAttributes
cancelTimerFailedEventAttributes pTimerId_ pCause_ pDecisionTaskCompletedEventId_ =
CancelTimerFailedEventAttributes'
{ _ctfeaTimerId = pTimerId_
, _ctfeaCause = pCause_
, _ctfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
ctfeaTimerId :: Lens' CancelTimerFailedEventAttributes Text
ctfeaTimerId = lens _ctfeaTimerId (\ s a -> s{_ctfeaTimerId = a});
ctfeaCause :: Lens' CancelTimerFailedEventAttributes CancelTimerFailedCause
ctfeaCause = lens _ctfeaCause (\ s a -> s{_ctfeaCause = a});
ctfeaDecisionTaskCompletedEventId :: Lens' CancelTimerFailedEventAttributes Integer
ctfeaDecisionTaskCompletedEventId = lens _ctfeaDecisionTaskCompletedEventId (\ s a -> s{_ctfeaDecisionTaskCompletedEventId = a});
instance FromJSON CancelTimerFailedEventAttributes
where
parseJSON
= withObject "CancelTimerFailedEventAttributes"
(\ x ->
CancelTimerFailedEventAttributes' <$>
(x .: "timerId") <*> (x .: "cause") <*>
(x .: "decisionTaskCompletedEventId"))
newtype CancelWorkflowExecutionDecisionAttributes = CancelWorkflowExecutionDecisionAttributes'
{ _cwedaDetails :: Maybe Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cancelWorkflowExecutionDecisionAttributes
:: CancelWorkflowExecutionDecisionAttributes
cancelWorkflowExecutionDecisionAttributes =
CancelWorkflowExecutionDecisionAttributes'
{ _cwedaDetails = Nothing
}
cwedaDetails :: Lens' CancelWorkflowExecutionDecisionAttributes (Maybe Text)
cwedaDetails = lens _cwedaDetails (\ s a -> s{_cwedaDetails = a});
instance ToJSON
CancelWorkflowExecutionDecisionAttributes where
toJSON CancelWorkflowExecutionDecisionAttributes'{..}
= object
(catMaybes [("details" .=) <$> _cwedaDetails])
data CancelWorkflowExecutionFailedEventAttributes = CancelWorkflowExecutionFailedEventAttributes'
{ _cCause :: !CancelWorkflowExecutionFailedCause
, _cDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cancelWorkflowExecutionFailedEventAttributes
:: CancelWorkflowExecutionFailedCause
-> Integer
-> CancelWorkflowExecutionFailedEventAttributes
cancelWorkflowExecutionFailedEventAttributes pCause_ pDecisionTaskCompletedEventId_ =
CancelWorkflowExecutionFailedEventAttributes'
{ _cCause = pCause_
, _cDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
cCause :: Lens' CancelWorkflowExecutionFailedEventAttributes CancelWorkflowExecutionFailedCause
cCause = lens _cCause (\ s a -> s{_cCause = a});
cDecisionTaskCompletedEventId :: Lens' CancelWorkflowExecutionFailedEventAttributes Integer
cDecisionTaskCompletedEventId = lens _cDecisionTaskCompletedEventId (\ s a -> s{_cDecisionTaskCompletedEventId = a});
instance FromJSON
CancelWorkflowExecutionFailedEventAttributes where
parseJSON
= withObject
"CancelWorkflowExecutionFailedEventAttributes"
(\ x ->
CancelWorkflowExecutionFailedEventAttributes' <$>
(x .: "cause") <*>
(x .: "decisionTaskCompletedEventId"))
data ChildWorkflowExecutionCanceledEventAttributes = ChildWorkflowExecutionCanceledEventAttributes'
{ _cDetails :: !(Maybe Text)
, _cWorkflowExecution :: !WorkflowExecution
, _cWorkflowType :: !WorkflowType
, _cInitiatedEventId :: !Integer
, _cStartedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
childWorkflowExecutionCanceledEventAttributes
:: WorkflowExecution
-> WorkflowType
-> Integer
-> Integer
-> ChildWorkflowExecutionCanceledEventAttributes
childWorkflowExecutionCanceledEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ pStartedEventId_ =
ChildWorkflowExecutionCanceledEventAttributes'
{ _cDetails = Nothing
, _cWorkflowExecution = pWorkflowExecution_
, _cWorkflowType = pWorkflowType_
, _cInitiatedEventId = pInitiatedEventId_
, _cStartedEventId = pStartedEventId_
}
cDetails :: Lens' ChildWorkflowExecutionCanceledEventAttributes (Maybe Text)
cDetails = lens _cDetails (\ s a -> s{_cDetails = a});
cWorkflowExecution :: Lens' ChildWorkflowExecutionCanceledEventAttributes WorkflowExecution
cWorkflowExecution = lens _cWorkflowExecution (\ s a -> s{_cWorkflowExecution = a});
cWorkflowType :: Lens' ChildWorkflowExecutionCanceledEventAttributes WorkflowType
cWorkflowType = lens _cWorkflowType (\ s a -> s{_cWorkflowType = a});
cInitiatedEventId :: Lens' ChildWorkflowExecutionCanceledEventAttributes Integer
cInitiatedEventId = lens _cInitiatedEventId (\ s a -> s{_cInitiatedEventId = a});
cStartedEventId :: Lens' ChildWorkflowExecutionCanceledEventAttributes Integer
cStartedEventId = lens _cStartedEventId (\ s a -> s{_cStartedEventId = a});
instance FromJSON
ChildWorkflowExecutionCanceledEventAttributes where
parseJSON
= withObject
"ChildWorkflowExecutionCanceledEventAttributes"
(\ x ->
ChildWorkflowExecutionCanceledEventAttributes' <$>
(x .:? "details") <*> (x .: "workflowExecution") <*>
(x .: "workflowType")
<*> (x .: "initiatedEventId")
<*> (x .: "startedEventId"))
data ChildWorkflowExecutionCompletedEventAttributes = ChildWorkflowExecutionCompletedEventAttributes'
{ _cweceaResult :: !(Maybe Text)
, _cweceaWorkflowExecution :: !WorkflowExecution
, _cweceaWorkflowType :: !WorkflowType
, _cweceaInitiatedEventId :: !Integer
, _cweceaStartedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
childWorkflowExecutionCompletedEventAttributes
:: WorkflowExecution
-> WorkflowType
-> Integer
-> Integer
-> ChildWorkflowExecutionCompletedEventAttributes
childWorkflowExecutionCompletedEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ pStartedEventId_ =
ChildWorkflowExecutionCompletedEventAttributes'
{ _cweceaResult = Nothing
, _cweceaWorkflowExecution = pWorkflowExecution_
, _cweceaWorkflowType = pWorkflowType_
, _cweceaInitiatedEventId = pInitiatedEventId_
, _cweceaStartedEventId = pStartedEventId_
}
cweceaResult :: Lens' ChildWorkflowExecutionCompletedEventAttributes (Maybe Text)
cweceaResult = lens _cweceaResult (\ s a -> s{_cweceaResult = a});
cweceaWorkflowExecution :: Lens' ChildWorkflowExecutionCompletedEventAttributes WorkflowExecution
cweceaWorkflowExecution = lens _cweceaWorkflowExecution (\ s a -> s{_cweceaWorkflowExecution = a});
cweceaWorkflowType :: Lens' ChildWorkflowExecutionCompletedEventAttributes WorkflowType
cweceaWorkflowType = lens _cweceaWorkflowType (\ s a -> s{_cweceaWorkflowType = a});
cweceaInitiatedEventId :: Lens' ChildWorkflowExecutionCompletedEventAttributes Integer
cweceaInitiatedEventId = lens _cweceaInitiatedEventId (\ s a -> s{_cweceaInitiatedEventId = a});
cweceaStartedEventId :: Lens' ChildWorkflowExecutionCompletedEventAttributes Integer
cweceaStartedEventId = lens _cweceaStartedEventId (\ s a -> s{_cweceaStartedEventId = a});
instance FromJSON
ChildWorkflowExecutionCompletedEventAttributes where
parseJSON
= withObject
"ChildWorkflowExecutionCompletedEventAttributes"
(\ x ->
ChildWorkflowExecutionCompletedEventAttributes' <$>
(x .:? "result") <*> (x .: "workflowExecution") <*>
(x .: "workflowType")
<*> (x .: "initiatedEventId")
<*> (x .: "startedEventId"))
data ChildWorkflowExecutionFailedEventAttributes = ChildWorkflowExecutionFailedEventAttributes'
{ _cwefeaReason :: !(Maybe Text)
, _cwefeaDetails :: !(Maybe Text)
, _cwefeaWorkflowExecution :: !WorkflowExecution
, _cwefeaWorkflowType :: !WorkflowType
, _cwefeaInitiatedEventId :: !Integer
, _cwefeaStartedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
childWorkflowExecutionFailedEventAttributes
:: WorkflowExecution
-> WorkflowType
-> Integer
-> Integer
-> ChildWorkflowExecutionFailedEventAttributes
childWorkflowExecutionFailedEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ pStartedEventId_ =
ChildWorkflowExecutionFailedEventAttributes'
{ _cwefeaReason = Nothing
, _cwefeaDetails = Nothing
, _cwefeaWorkflowExecution = pWorkflowExecution_
, _cwefeaWorkflowType = pWorkflowType_
, _cwefeaInitiatedEventId = pInitiatedEventId_
, _cwefeaStartedEventId = pStartedEventId_
}
cwefeaReason :: Lens' ChildWorkflowExecutionFailedEventAttributes (Maybe Text)
cwefeaReason = lens _cwefeaReason (\ s a -> s{_cwefeaReason = a});
cwefeaDetails :: Lens' ChildWorkflowExecutionFailedEventAttributes (Maybe Text)
cwefeaDetails = lens _cwefeaDetails (\ s a -> s{_cwefeaDetails = a});
cwefeaWorkflowExecution :: Lens' ChildWorkflowExecutionFailedEventAttributes WorkflowExecution
cwefeaWorkflowExecution = lens _cwefeaWorkflowExecution (\ s a -> s{_cwefeaWorkflowExecution = a});
cwefeaWorkflowType :: Lens' ChildWorkflowExecutionFailedEventAttributes WorkflowType
cwefeaWorkflowType = lens _cwefeaWorkflowType (\ s a -> s{_cwefeaWorkflowType = a});
cwefeaInitiatedEventId :: Lens' ChildWorkflowExecutionFailedEventAttributes Integer
cwefeaInitiatedEventId = lens _cwefeaInitiatedEventId (\ s a -> s{_cwefeaInitiatedEventId = a});
cwefeaStartedEventId :: Lens' ChildWorkflowExecutionFailedEventAttributes Integer
cwefeaStartedEventId = lens _cwefeaStartedEventId (\ s a -> s{_cwefeaStartedEventId = a});
instance FromJSON
ChildWorkflowExecutionFailedEventAttributes where
parseJSON
= withObject
"ChildWorkflowExecutionFailedEventAttributes"
(\ x ->
ChildWorkflowExecutionFailedEventAttributes' <$>
(x .:? "reason") <*> (x .:? "details") <*>
(x .: "workflowExecution")
<*> (x .: "workflowType")
<*> (x .: "initiatedEventId")
<*> (x .: "startedEventId"))
data ChildWorkflowExecutionStartedEventAttributes = ChildWorkflowExecutionStartedEventAttributes'
{ _cweseaWorkflowExecution :: !WorkflowExecution
, _cweseaWorkflowType :: !WorkflowType
, _cweseaInitiatedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
childWorkflowExecutionStartedEventAttributes
:: WorkflowExecution
-> WorkflowType
-> Integer
-> ChildWorkflowExecutionStartedEventAttributes
childWorkflowExecutionStartedEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ =
ChildWorkflowExecutionStartedEventAttributes'
{ _cweseaWorkflowExecution = pWorkflowExecution_
, _cweseaWorkflowType = pWorkflowType_
, _cweseaInitiatedEventId = pInitiatedEventId_
}
cweseaWorkflowExecution :: Lens' ChildWorkflowExecutionStartedEventAttributes WorkflowExecution
cweseaWorkflowExecution = lens _cweseaWorkflowExecution (\ s a -> s{_cweseaWorkflowExecution = a});
cweseaWorkflowType :: Lens' ChildWorkflowExecutionStartedEventAttributes WorkflowType
cweseaWorkflowType = lens _cweseaWorkflowType (\ s a -> s{_cweseaWorkflowType = a});
cweseaInitiatedEventId :: Lens' ChildWorkflowExecutionStartedEventAttributes Integer
cweseaInitiatedEventId = lens _cweseaInitiatedEventId (\ s a -> s{_cweseaInitiatedEventId = a});
instance FromJSON
ChildWorkflowExecutionStartedEventAttributes where
parseJSON
= withObject
"ChildWorkflowExecutionStartedEventAttributes"
(\ x ->
ChildWorkflowExecutionStartedEventAttributes' <$>
(x .: "workflowExecution") <*> (x .: "workflowType")
<*> (x .: "initiatedEventId"))
data ChildWorkflowExecutionTerminatedEventAttributes = ChildWorkflowExecutionTerminatedEventAttributes'
{ _cweteaWorkflowExecution :: !WorkflowExecution
, _cweteaWorkflowType :: !WorkflowType
, _cweteaInitiatedEventId :: !Integer
, _cweteaStartedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
childWorkflowExecutionTerminatedEventAttributes
:: WorkflowExecution
-> WorkflowType
-> Integer
-> Integer
-> ChildWorkflowExecutionTerminatedEventAttributes
childWorkflowExecutionTerminatedEventAttributes pWorkflowExecution_ pWorkflowType_ pInitiatedEventId_ pStartedEventId_ =
ChildWorkflowExecutionTerminatedEventAttributes'
{ _cweteaWorkflowExecution = pWorkflowExecution_
, _cweteaWorkflowType = pWorkflowType_
, _cweteaInitiatedEventId = pInitiatedEventId_
, _cweteaStartedEventId = pStartedEventId_
}
cweteaWorkflowExecution :: Lens' ChildWorkflowExecutionTerminatedEventAttributes WorkflowExecution
cweteaWorkflowExecution = lens _cweteaWorkflowExecution (\ s a -> s{_cweteaWorkflowExecution = a});
cweteaWorkflowType :: Lens' ChildWorkflowExecutionTerminatedEventAttributes WorkflowType
cweteaWorkflowType = lens _cweteaWorkflowType (\ s a -> s{_cweteaWorkflowType = a});
cweteaInitiatedEventId :: Lens' ChildWorkflowExecutionTerminatedEventAttributes Integer
cweteaInitiatedEventId = lens _cweteaInitiatedEventId (\ s a -> s{_cweteaInitiatedEventId = a});
cweteaStartedEventId :: Lens' ChildWorkflowExecutionTerminatedEventAttributes Integer
cweteaStartedEventId = lens _cweteaStartedEventId (\ s a -> s{_cweteaStartedEventId = a});
instance FromJSON
ChildWorkflowExecutionTerminatedEventAttributes where
parseJSON
= withObject
"ChildWorkflowExecutionTerminatedEventAttributes"
(\ x ->
ChildWorkflowExecutionTerminatedEventAttributes' <$>
(x .: "workflowExecution") <*> (x .: "workflowType")
<*> (x .: "initiatedEventId")
<*> (x .: "startedEventId"))
data ChildWorkflowExecutionTimedOutEventAttributes = ChildWorkflowExecutionTimedOutEventAttributes'
{ _cwetoeaWorkflowExecution :: !WorkflowExecution
, _cwetoeaWorkflowType :: !WorkflowType
, _cwetoeaTimeoutType :: !WorkflowExecutionTimeoutType
, _cwetoeaInitiatedEventId :: !Integer
, _cwetoeaStartedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
childWorkflowExecutionTimedOutEventAttributes
:: WorkflowExecution
-> WorkflowType
-> WorkflowExecutionTimeoutType
-> Integer
-> Integer
-> ChildWorkflowExecutionTimedOutEventAttributes
childWorkflowExecutionTimedOutEventAttributes pWorkflowExecution_ pWorkflowType_ pTimeoutType_ pInitiatedEventId_ pStartedEventId_ =
ChildWorkflowExecutionTimedOutEventAttributes'
{ _cwetoeaWorkflowExecution = pWorkflowExecution_
, _cwetoeaWorkflowType = pWorkflowType_
, _cwetoeaTimeoutType = pTimeoutType_
, _cwetoeaInitiatedEventId = pInitiatedEventId_
, _cwetoeaStartedEventId = pStartedEventId_
}
cwetoeaWorkflowExecution :: Lens' ChildWorkflowExecutionTimedOutEventAttributes WorkflowExecution
cwetoeaWorkflowExecution = lens _cwetoeaWorkflowExecution (\ s a -> s{_cwetoeaWorkflowExecution = a});
cwetoeaWorkflowType :: Lens' ChildWorkflowExecutionTimedOutEventAttributes WorkflowType
cwetoeaWorkflowType = lens _cwetoeaWorkflowType (\ s a -> s{_cwetoeaWorkflowType = a});
cwetoeaTimeoutType :: Lens' ChildWorkflowExecutionTimedOutEventAttributes WorkflowExecutionTimeoutType
cwetoeaTimeoutType = lens _cwetoeaTimeoutType (\ s a -> s{_cwetoeaTimeoutType = a});
cwetoeaInitiatedEventId :: Lens' ChildWorkflowExecutionTimedOutEventAttributes Integer
cwetoeaInitiatedEventId = lens _cwetoeaInitiatedEventId (\ s a -> s{_cwetoeaInitiatedEventId = a});
cwetoeaStartedEventId :: Lens' ChildWorkflowExecutionTimedOutEventAttributes Integer
cwetoeaStartedEventId = lens _cwetoeaStartedEventId (\ s a -> s{_cwetoeaStartedEventId = a});
instance FromJSON
ChildWorkflowExecutionTimedOutEventAttributes where
parseJSON
= withObject
"ChildWorkflowExecutionTimedOutEventAttributes"
(\ x ->
ChildWorkflowExecutionTimedOutEventAttributes' <$>
(x .: "workflowExecution") <*> (x .: "workflowType")
<*> (x .: "timeoutType")
<*> (x .: "initiatedEventId")
<*> (x .: "startedEventId"))
newtype CloseStatusFilter = CloseStatusFilter'
{ _csfStatus :: CloseStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
closeStatusFilter
:: CloseStatus
-> CloseStatusFilter
closeStatusFilter pStatus_ =
CloseStatusFilter'
{ _csfStatus = pStatus_
}
csfStatus :: Lens' CloseStatusFilter CloseStatus
csfStatus = lens _csfStatus (\ s a -> s{_csfStatus = a});
instance ToJSON CloseStatusFilter where
toJSON CloseStatusFilter'{..}
= object (catMaybes [Just ("status" .= _csfStatus)])
newtype CompleteWorkflowExecutionDecisionAttributes = CompleteWorkflowExecutionDecisionAttributes'
{ _cwedaResult :: Maybe Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
completeWorkflowExecutionDecisionAttributes
:: CompleteWorkflowExecutionDecisionAttributes
completeWorkflowExecutionDecisionAttributes =
CompleteWorkflowExecutionDecisionAttributes'
{ _cwedaResult = Nothing
}
cwedaResult :: Lens' CompleteWorkflowExecutionDecisionAttributes (Maybe Text)
cwedaResult = lens _cwedaResult (\ s a -> s{_cwedaResult = a});
instance ToJSON
CompleteWorkflowExecutionDecisionAttributes where
toJSON
CompleteWorkflowExecutionDecisionAttributes'{..}
= object (catMaybes [("result" .=) <$> _cwedaResult])
data CompleteWorkflowExecutionFailedEventAttributes = CompleteWorkflowExecutionFailedEventAttributes'
{ _cwefeaCause :: !CompleteWorkflowExecutionFailedCause
, _cwefeaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
completeWorkflowExecutionFailedEventAttributes
:: CompleteWorkflowExecutionFailedCause
-> Integer
-> CompleteWorkflowExecutionFailedEventAttributes
completeWorkflowExecutionFailedEventAttributes pCause_ pDecisionTaskCompletedEventId_ =
CompleteWorkflowExecutionFailedEventAttributes'
{ _cwefeaCause = pCause_
, _cwefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
cwefeaCause :: Lens' CompleteWorkflowExecutionFailedEventAttributes CompleteWorkflowExecutionFailedCause
cwefeaCause = lens _cwefeaCause (\ s a -> s{_cwefeaCause = a});
cwefeaDecisionTaskCompletedEventId :: Lens' CompleteWorkflowExecutionFailedEventAttributes Integer
cwefeaDecisionTaskCompletedEventId = lens _cwefeaDecisionTaskCompletedEventId (\ s a -> s{_cwefeaDecisionTaskCompletedEventId = a});
instance FromJSON
CompleteWorkflowExecutionFailedEventAttributes where
parseJSON
= withObject
"CompleteWorkflowExecutionFailedEventAttributes"
(\ x ->
CompleteWorkflowExecutionFailedEventAttributes' <$>
(x .: "cause") <*>
(x .: "decisionTaskCompletedEventId"))
data ContinueAsNewWorkflowExecutionDecisionAttributes = ContinueAsNewWorkflowExecutionDecisionAttributes'
{ _canwedaTagList :: !(Maybe [Text])
, _canwedaTaskStartToCloseTimeout :: !(Maybe Text)
, _canwedaLambdaRole :: !(Maybe Text)
, _canwedaInput :: !(Maybe Text)
, _canwedaWorkflowTypeVersion :: !(Maybe Text)
, _canwedaExecutionStartToCloseTimeout :: !(Maybe Text)
, _canwedaTaskList :: !(Maybe TaskList)
, _canwedaTaskPriority :: !(Maybe Text)
, _canwedaChildPolicy :: !(Maybe ChildPolicy)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
continueAsNewWorkflowExecutionDecisionAttributes
:: ContinueAsNewWorkflowExecutionDecisionAttributes
continueAsNewWorkflowExecutionDecisionAttributes =
ContinueAsNewWorkflowExecutionDecisionAttributes'
{ _canwedaTagList = Nothing
, _canwedaTaskStartToCloseTimeout = Nothing
, _canwedaLambdaRole = Nothing
, _canwedaInput = Nothing
, _canwedaWorkflowTypeVersion = Nothing
, _canwedaExecutionStartToCloseTimeout = Nothing
, _canwedaTaskList = Nothing
, _canwedaTaskPriority = Nothing
, _canwedaChildPolicy = Nothing
}
canwedaTagList :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes [Text]
canwedaTagList = lens _canwedaTagList (\ s a -> s{_canwedaTagList = a}) . _Default . _Coerce;
canwedaTaskStartToCloseTimeout :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)
canwedaTaskStartToCloseTimeout = lens _canwedaTaskStartToCloseTimeout (\ s a -> s{_canwedaTaskStartToCloseTimeout = a});
canwedaLambdaRole :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)
canwedaLambdaRole = lens _canwedaLambdaRole (\ s a -> s{_canwedaLambdaRole = a});
canwedaInput :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)
canwedaInput = lens _canwedaInput (\ s a -> s{_canwedaInput = a});
canwedaWorkflowTypeVersion :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)
canwedaWorkflowTypeVersion = lens _canwedaWorkflowTypeVersion (\ s a -> s{_canwedaWorkflowTypeVersion = a});
canwedaExecutionStartToCloseTimeout :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)
canwedaExecutionStartToCloseTimeout = lens _canwedaExecutionStartToCloseTimeout (\ s a -> s{_canwedaExecutionStartToCloseTimeout = a});
canwedaTaskList :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe TaskList)
canwedaTaskList = lens _canwedaTaskList (\ s a -> s{_canwedaTaskList = a});
canwedaTaskPriority :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe Text)
canwedaTaskPriority = lens _canwedaTaskPriority (\ s a -> s{_canwedaTaskPriority = a});
canwedaChildPolicy :: Lens' ContinueAsNewWorkflowExecutionDecisionAttributes (Maybe ChildPolicy)
canwedaChildPolicy = lens _canwedaChildPolicy (\ s a -> s{_canwedaChildPolicy = a});
instance ToJSON
ContinueAsNewWorkflowExecutionDecisionAttributes
where
toJSON
ContinueAsNewWorkflowExecutionDecisionAttributes'{..}
= object
(catMaybes
[("tagList" .=) <$> _canwedaTagList,
("taskStartToCloseTimeout" .=) <$>
_canwedaTaskStartToCloseTimeout,
("lambdaRole" .=) <$> _canwedaLambdaRole,
("input" .=) <$> _canwedaInput,
("workflowTypeVersion" .=) <$>
_canwedaWorkflowTypeVersion,
("executionStartToCloseTimeout" .=) <$>
_canwedaExecutionStartToCloseTimeout,
("taskList" .=) <$> _canwedaTaskList,
("taskPriority" .=) <$> _canwedaTaskPriority,
("childPolicy" .=) <$> _canwedaChildPolicy])
data ContinueAsNewWorkflowExecutionFailedEventAttributes = ContinueAsNewWorkflowExecutionFailedEventAttributes'
{ _canwefeaCause :: !ContinueAsNewWorkflowExecutionFailedCause
, _canwefeaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
continueAsNewWorkflowExecutionFailedEventAttributes
:: ContinueAsNewWorkflowExecutionFailedCause
-> Integer
-> ContinueAsNewWorkflowExecutionFailedEventAttributes
continueAsNewWorkflowExecutionFailedEventAttributes pCause_ pDecisionTaskCompletedEventId_ =
ContinueAsNewWorkflowExecutionFailedEventAttributes'
{ _canwefeaCause = pCause_
, _canwefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
canwefeaCause :: Lens' ContinueAsNewWorkflowExecutionFailedEventAttributes ContinueAsNewWorkflowExecutionFailedCause
canwefeaCause = lens _canwefeaCause (\ s a -> s{_canwefeaCause = a});
canwefeaDecisionTaskCompletedEventId :: Lens' ContinueAsNewWorkflowExecutionFailedEventAttributes Integer
canwefeaDecisionTaskCompletedEventId = lens _canwefeaDecisionTaskCompletedEventId (\ s a -> s{_canwefeaDecisionTaskCompletedEventId = a});
instance FromJSON
ContinueAsNewWorkflowExecutionFailedEventAttributes
where
parseJSON
= withObject
"ContinueAsNewWorkflowExecutionFailedEventAttributes"
(\ x ->
ContinueAsNewWorkflowExecutionFailedEventAttributes'
<$>
(x .: "cause") <*>
(x .: "decisionTaskCompletedEventId"))
data Decision = Decision'
{ _dRequestCancelExternalWorkflowExecutionDecisionAttributes :: !(Maybe RequestCancelExternalWorkflowExecutionDecisionAttributes)
, _dScheduleActivityTaskDecisionAttributes :: !(Maybe ScheduleActivityTaskDecisionAttributes)
, _dSignalExternalWorkflowExecutionDecisionAttributes :: !(Maybe SignalExternalWorkflowExecutionDecisionAttributes)
, _dStartTimerDecisionAttributes :: !(Maybe StartTimerDecisionAttributes)
, _dRecordMarkerDecisionAttributes :: !(Maybe RecordMarkerDecisionAttributes)
, _dFailWorkflowExecutionDecisionAttributes :: !(Maybe FailWorkflowExecutionDecisionAttributes)
, _dStartChildWorkflowExecutionDecisionAttributes :: !(Maybe StartChildWorkflowExecutionDecisionAttributes)
, _dScheduleLambdaFunctionDecisionAttributes :: !(Maybe ScheduleLambdaFunctionDecisionAttributes)
, _dCompleteWorkflowExecutionDecisionAttributes :: !(Maybe CompleteWorkflowExecutionDecisionAttributes)
, _dRequestCancelActivityTaskDecisionAttributes :: !(Maybe RequestCancelActivityTaskDecisionAttributes)
, _dCancelWorkflowExecutionDecisionAttributes :: !(Maybe CancelWorkflowExecutionDecisionAttributes)
, _dCancelTimerDecisionAttributes :: !(Maybe CancelTimerDecisionAttributes)
, _dContinueAsNewWorkflowExecutionDecisionAttributes :: !(Maybe ContinueAsNewWorkflowExecutionDecisionAttributes)
, _dDecisionType :: !DecisionType
} deriving (Eq,Read,Show,Data,Typeable,Generic)
decision
:: DecisionType
-> Decision
decision pDecisionType_ =
Decision'
{ _dRequestCancelExternalWorkflowExecutionDecisionAttributes = Nothing
, _dScheduleActivityTaskDecisionAttributes = Nothing
, _dSignalExternalWorkflowExecutionDecisionAttributes = Nothing
, _dStartTimerDecisionAttributes = Nothing
, _dRecordMarkerDecisionAttributes = Nothing
, _dFailWorkflowExecutionDecisionAttributes = Nothing
, _dStartChildWorkflowExecutionDecisionAttributes = Nothing
, _dScheduleLambdaFunctionDecisionAttributes = Nothing
, _dCompleteWorkflowExecutionDecisionAttributes = Nothing
, _dRequestCancelActivityTaskDecisionAttributes = Nothing
, _dCancelWorkflowExecutionDecisionAttributes = Nothing
, _dCancelTimerDecisionAttributes = Nothing
, _dContinueAsNewWorkflowExecutionDecisionAttributes = Nothing
, _dDecisionType = pDecisionType_
}
dRequestCancelExternalWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe RequestCancelExternalWorkflowExecutionDecisionAttributes)
dRequestCancelExternalWorkflowExecutionDecisionAttributes = lens _dRequestCancelExternalWorkflowExecutionDecisionAttributes (\ s a -> s{_dRequestCancelExternalWorkflowExecutionDecisionAttributes = a});
dScheduleActivityTaskDecisionAttributes :: Lens' Decision (Maybe ScheduleActivityTaskDecisionAttributes)
dScheduleActivityTaskDecisionAttributes = lens _dScheduleActivityTaskDecisionAttributes (\ s a -> s{_dScheduleActivityTaskDecisionAttributes = a});
dSignalExternalWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe SignalExternalWorkflowExecutionDecisionAttributes)
dSignalExternalWorkflowExecutionDecisionAttributes = lens _dSignalExternalWorkflowExecutionDecisionAttributes (\ s a -> s{_dSignalExternalWorkflowExecutionDecisionAttributes = a});
dStartTimerDecisionAttributes :: Lens' Decision (Maybe StartTimerDecisionAttributes)
dStartTimerDecisionAttributes = lens _dStartTimerDecisionAttributes (\ s a -> s{_dStartTimerDecisionAttributes = a});
dRecordMarkerDecisionAttributes :: Lens' Decision (Maybe RecordMarkerDecisionAttributes)
dRecordMarkerDecisionAttributes = lens _dRecordMarkerDecisionAttributes (\ s a -> s{_dRecordMarkerDecisionAttributes = a});
dFailWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe FailWorkflowExecutionDecisionAttributes)
dFailWorkflowExecutionDecisionAttributes = lens _dFailWorkflowExecutionDecisionAttributes (\ s a -> s{_dFailWorkflowExecutionDecisionAttributes = a});
dStartChildWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe StartChildWorkflowExecutionDecisionAttributes)
dStartChildWorkflowExecutionDecisionAttributes = lens _dStartChildWorkflowExecutionDecisionAttributes (\ s a -> s{_dStartChildWorkflowExecutionDecisionAttributes = a});
dScheduleLambdaFunctionDecisionAttributes :: Lens' Decision (Maybe ScheduleLambdaFunctionDecisionAttributes)
dScheduleLambdaFunctionDecisionAttributes = lens _dScheduleLambdaFunctionDecisionAttributes (\ s a -> s{_dScheduleLambdaFunctionDecisionAttributes = a});
dCompleteWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe CompleteWorkflowExecutionDecisionAttributes)
dCompleteWorkflowExecutionDecisionAttributes = lens _dCompleteWorkflowExecutionDecisionAttributes (\ s a -> s{_dCompleteWorkflowExecutionDecisionAttributes = a});
dRequestCancelActivityTaskDecisionAttributes :: Lens' Decision (Maybe RequestCancelActivityTaskDecisionAttributes)
dRequestCancelActivityTaskDecisionAttributes = lens _dRequestCancelActivityTaskDecisionAttributes (\ s a -> s{_dRequestCancelActivityTaskDecisionAttributes = a});
dCancelWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe CancelWorkflowExecutionDecisionAttributes)
dCancelWorkflowExecutionDecisionAttributes = lens _dCancelWorkflowExecutionDecisionAttributes (\ s a -> s{_dCancelWorkflowExecutionDecisionAttributes = a});
dCancelTimerDecisionAttributes :: Lens' Decision (Maybe CancelTimerDecisionAttributes)
dCancelTimerDecisionAttributes = lens _dCancelTimerDecisionAttributes (\ s a -> s{_dCancelTimerDecisionAttributes = a});
dContinueAsNewWorkflowExecutionDecisionAttributes :: Lens' Decision (Maybe ContinueAsNewWorkflowExecutionDecisionAttributes)
dContinueAsNewWorkflowExecutionDecisionAttributes = lens _dContinueAsNewWorkflowExecutionDecisionAttributes (\ s a -> s{_dContinueAsNewWorkflowExecutionDecisionAttributes = a});
dDecisionType :: Lens' Decision DecisionType
dDecisionType = lens _dDecisionType (\ s a -> s{_dDecisionType = a});
instance ToJSON Decision where
toJSON Decision'{..}
= object
(catMaybes
[("requestCancelExternalWorkflowExecutionDecisionAttributes"
.=)
<$>
_dRequestCancelExternalWorkflowExecutionDecisionAttributes,
("scheduleActivityTaskDecisionAttributes" .=) <$>
_dScheduleActivityTaskDecisionAttributes,
("signalExternalWorkflowExecutionDecisionAttributes"
.=)
<$>
_dSignalExternalWorkflowExecutionDecisionAttributes,
("startTimerDecisionAttributes" .=) <$>
_dStartTimerDecisionAttributes,
("recordMarkerDecisionAttributes" .=) <$>
_dRecordMarkerDecisionAttributes,
("failWorkflowExecutionDecisionAttributes" .=) <$>
_dFailWorkflowExecutionDecisionAttributes,
("startChildWorkflowExecutionDecisionAttributes" .=)
<$> _dStartChildWorkflowExecutionDecisionAttributes,
("scheduleLambdaFunctionDecisionAttributes" .=) <$>
_dScheduleLambdaFunctionDecisionAttributes,
("completeWorkflowExecutionDecisionAttributes" .=)
<$> _dCompleteWorkflowExecutionDecisionAttributes,
("requestCancelActivityTaskDecisionAttributes" .=)
<$> _dRequestCancelActivityTaskDecisionAttributes,
("cancelWorkflowExecutionDecisionAttributes" .=) <$>
_dCancelWorkflowExecutionDecisionAttributes,
("cancelTimerDecisionAttributes" .=) <$>
_dCancelTimerDecisionAttributes,
("continueAsNewWorkflowExecutionDecisionAttributes"
.=)
<$>
_dContinueAsNewWorkflowExecutionDecisionAttributes,
Just ("decisionType" .= _dDecisionType)])
data DecisionTaskCompletedEventAttributes = DecisionTaskCompletedEventAttributes'
{ _dtceaExecutionContext :: !(Maybe Text)
, _dtceaScheduledEventId :: !Integer
, _dtceaStartedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
decisionTaskCompletedEventAttributes
:: Integer
-> Integer
-> DecisionTaskCompletedEventAttributes
decisionTaskCompletedEventAttributes pScheduledEventId_ pStartedEventId_ =
DecisionTaskCompletedEventAttributes'
{ _dtceaExecutionContext = Nothing
, _dtceaScheduledEventId = pScheduledEventId_
, _dtceaStartedEventId = pStartedEventId_
}
dtceaExecutionContext :: Lens' DecisionTaskCompletedEventAttributes (Maybe Text)
dtceaExecutionContext = lens _dtceaExecutionContext (\ s a -> s{_dtceaExecutionContext = a});
dtceaScheduledEventId :: Lens' DecisionTaskCompletedEventAttributes Integer
dtceaScheduledEventId = lens _dtceaScheduledEventId (\ s a -> s{_dtceaScheduledEventId = a});
dtceaStartedEventId :: Lens' DecisionTaskCompletedEventAttributes Integer
dtceaStartedEventId = lens _dtceaStartedEventId (\ s a -> s{_dtceaStartedEventId = a});
instance FromJSON
DecisionTaskCompletedEventAttributes where
parseJSON
= withObject "DecisionTaskCompletedEventAttributes"
(\ x ->
DecisionTaskCompletedEventAttributes' <$>
(x .:? "executionContext") <*>
(x .: "scheduledEventId")
<*> (x .: "startedEventId"))
data DecisionTaskScheduledEventAttributes = DecisionTaskScheduledEventAttributes'
{ _dtseaTaskPriority :: !(Maybe Text)
, _dtseaStartToCloseTimeout :: !(Maybe Text)
, _dtseaTaskList :: !TaskList
} deriving (Eq,Read,Show,Data,Typeable,Generic)
decisionTaskScheduledEventAttributes
:: TaskList
-> DecisionTaskScheduledEventAttributes
decisionTaskScheduledEventAttributes pTaskList_ =
DecisionTaskScheduledEventAttributes'
{ _dtseaTaskPriority = Nothing
, _dtseaStartToCloseTimeout = Nothing
, _dtseaTaskList = pTaskList_
}
dtseaTaskPriority :: Lens' DecisionTaskScheduledEventAttributes (Maybe Text)
dtseaTaskPriority = lens _dtseaTaskPriority (\ s a -> s{_dtseaTaskPriority = a});
dtseaStartToCloseTimeout :: Lens' DecisionTaskScheduledEventAttributes (Maybe Text)
dtseaStartToCloseTimeout = lens _dtseaStartToCloseTimeout (\ s a -> s{_dtseaStartToCloseTimeout = a});
dtseaTaskList :: Lens' DecisionTaskScheduledEventAttributes TaskList
dtseaTaskList = lens _dtseaTaskList (\ s a -> s{_dtseaTaskList = a});
instance FromJSON
DecisionTaskScheduledEventAttributes where
parseJSON
= withObject "DecisionTaskScheduledEventAttributes"
(\ x ->
DecisionTaskScheduledEventAttributes' <$>
(x .:? "taskPriority") <*>
(x .:? "startToCloseTimeout")
<*> (x .: "taskList"))
data DecisionTaskStartedEventAttributes = DecisionTaskStartedEventAttributes'
{ _dtseaIdentity :: !(Maybe Text)
, _dtseaScheduledEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
decisionTaskStartedEventAttributes
:: Integer
-> DecisionTaskStartedEventAttributes
decisionTaskStartedEventAttributes pScheduledEventId_ =
DecisionTaskStartedEventAttributes'
{ _dtseaIdentity = Nothing
, _dtseaScheduledEventId = pScheduledEventId_
}
dtseaIdentity :: Lens' DecisionTaskStartedEventAttributes (Maybe Text)
dtseaIdentity = lens _dtseaIdentity (\ s a -> s{_dtseaIdentity = a});
dtseaScheduledEventId :: Lens' DecisionTaskStartedEventAttributes Integer
dtseaScheduledEventId = lens _dtseaScheduledEventId (\ s a -> s{_dtseaScheduledEventId = a});
instance FromJSON DecisionTaskStartedEventAttributes
where
parseJSON
= withObject "DecisionTaskStartedEventAttributes"
(\ x ->
DecisionTaskStartedEventAttributes' <$>
(x .:? "identity") <*> (x .: "scheduledEventId"))
data DecisionTaskTimedOutEventAttributes = DecisionTaskTimedOutEventAttributes'
{ _dttoeaTimeoutType :: !DecisionTaskTimeoutType
, _dttoeaScheduledEventId :: !Integer
, _dttoeaStartedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
decisionTaskTimedOutEventAttributes
:: DecisionTaskTimeoutType
-> Integer
-> Integer
-> DecisionTaskTimedOutEventAttributes
decisionTaskTimedOutEventAttributes pTimeoutType_ pScheduledEventId_ pStartedEventId_ =
DecisionTaskTimedOutEventAttributes'
{ _dttoeaTimeoutType = pTimeoutType_
, _dttoeaScheduledEventId = pScheduledEventId_
, _dttoeaStartedEventId = pStartedEventId_
}
dttoeaTimeoutType :: Lens' DecisionTaskTimedOutEventAttributes DecisionTaskTimeoutType
dttoeaTimeoutType = lens _dttoeaTimeoutType (\ s a -> s{_dttoeaTimeoutType = a});
dttoeaScheduledEventId :: Lens' DecisionTaskTimedOutEventAttributes Integer
dttoeaScheduledEventId = lens _dttoeaScheduledEventId (\ s a -> s{_dttoeaScheduledEventId = a});
dttoeaStartedEventId :: Lens' DecisionTaskTimedOutEventAttributes Integer
dttoeaStartedEventId = lens _dttoeaStartedEventId (\ s a -> s{_dttoeaStartedEventId = a});
instance FromJSON DecisionTaskTimedOutEventAttributes
where
parseJSON
= withObject "DecisionTaskTimedOutEventAttributes"
(\ x ->
DecisionTaskTimedOutEventAttributes' <$>
(x .: "timeoutType") <*> (x .: "scheduledEventId")
<*> (x .: "startedEventId"))
newtype DomainConfiguration = DomainConfiguration'
{ _dcWorkflowExecutionRetentionPeriodInDays :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
domainConfiguration
:: Text
-> DomainConfiguration
domainConfiguration pWorkflowExecutionRetentionPeriodInDays_ =
DomainConfiguration'
{ _dcWorkflowExecutionRetentionPeriodInDays = pWorkflowExecutionRetentionPeriodInDays_
}
dcWorkflowExecutionRetentionPeriodInDays :: Lens' DomainConfiguration Text
dcWorkflowExecutionRetentionPeriodInDays = lens _dcWorkflowExecutionRetentionPeriodInDays (\ s a -> s{_dcWorkflowExecutionRetentionPeriodInDays = a});
instance FromJSON DomainConfiguration where
parseJSON
= withObject "DomainConfiguration"
(\ x ->
DomainConfiguration' <$>
(x .: "workflowExecutionRetentionPeriodInDays"))
data DomainInfo = DomainInfo'
{ _diDescription :: !(Maybe Text)
, _diName :: !Text
, _diStatus :: !RegistrationStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
domainInfo
:: Text
-> RegistrationStatus
-> DomainInfo
domainInfo pName_ pStatus_ =
DomainInfo'
{ _diDescription = Nothing
, _diName = pName_
, _diStatus = pStatus_
}
diDescription :: Lens' DomainInfo (Maybe Text)
diDescription = lens _diDescription (\ s a -> s{_diDescription = a});
diName :: Lens' DomainInfo Text
diName = lens _diName (\ s a -> s{_diName = a});
diStatus :: Lens' DomainInfo RegistrationStatus
diStatus = lens _diStatus (\ s a -> s{_diStatus = a});
instance FromJSON DomainInfo where
parseJSON
= withObject "DomainInfo"
(\ x ->
DomainInfo' <$>
(x .:? "description") <*> (x .: "name") <*>
(x .: "status"))
data ExecutionTimeFilter = ExecutionTimeFilter'
{ _etfLatestDate :: !(Maybe POSIX)
, _etfOldestDate :: !POSIX
} deriving (Eq,Read,Show,Data,Typeable,Generic)
executionTimeFilter
:: UTCTime
-> ExecutionTimeFilter
executionTimeFilter pOldestDate_ =
ExecutionTimeFilter'
{ _etfLatestDate = Nothing
, _etfOldestDate = _Time # pOldestDate_
}
etfLatestDate :: Lens' ExecutionTimeFilter (Maybe UTCTime)
etfLatestDate = lens _etfLatestDate (\ s a -> s{_etfLatestDate = a}) . mapping _Time;
etfOldestDate :: Lens' ExecutionTimeFilter UTCTime
etfOldestDate = lens _etfOldestDate (\ s a -> s{_etfOldestDate = a}) . _Time;
instance ToJSON ExecutionTimeFilter where
toJSON ExecutionTimeFilter'{..}
= object
(catMaybes
[("latestDate" .=) <$> _etfLatestDate,
Just ("oldestDate" .= _etfOldestDate)])
data ExternalWorkflowExecutionCancelRequestedEventAttributes = ExternalWorkflowExecutionCancelRequestedEventAttributes'
{ _ewecreaWorkflowExecution :: !WorkflowExecution
, _ewecreaInitiatedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
externalWorkflowExecutionCancelRequestedEventAttributes
:: WorkflowExecution
-> Integer
-> ExternalWorkflowExecutionCancelRequestedEventAttributes
externalWorkflowExecutionCancelRequestedEventAttributes pWorkflowExecution_ pInitiatedEventId_ =
ExternalWorkflowExecutionCancelRequestedEventAttributes'
{ _ewecreaWorkflowExecution = pWorkflowExecution_
, _ewecreaInitiatedEventId = pInitiatedEventId_
}
ewecreaWorkflowExecution :: Lens' ExternalWorkflowExecutionCancelRequestedEventAttributes WorkflowExecution
ewecreaWorkflowExecution = lens _ewecreaWorkflowExecution (\ s a -> s{_ewecreaWorkflowExecution = a});
ewecreaInitiatedEventId :: Lens' ExternalWorkflowExecutionCancelRequestedEventAttributes Integer
ewecreaInitiatedEventId = lens _ewecreaInitiatedEventId (\ s a -> s{_ewecreaInitiatedEventId = a});
instance FromJSON
ExternalWorkflowExecutionCancelRequestedEventAttributes
where
parseJSON
= withObject
"ExternalWorkflowExecutionCancelRequestedEventAttributes"
(\ x ->
ExternalWorkflowExecutionCancelRequestedEventAttributes'
<$>
(x .: "workflowExecution") <*>
(x .: "initiatedEventId"))
data ExternalWorkflowExecutionSignaledEventAttributes = ExternalWorkflowExecutionSignaledEventAttributes'
{ _eweseaWorkflowExecution :: !WorkflowExecution
, _eweseaInitiatedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
externalWorkflowExecutionSignaledEventAttributes
:: WorkflowExecution
-> Integer
-> ExternalWorkflowExecutionSignaledEventAttributes
externalWorkflowExecutionSignaledEventAttributes pWorkflowExecution_ pInitiatedEventId_ =
ExternalWorkflowExecutionSignaledEventAttributes'
{ _eweseaWorkflowExecution = pWorkflowExecution_
, _eweseaInitiatedEventId = pInitiatedEventId_
}
eweseaWorkflowExecution :: Lens' ExternalWorkflowExecutionSignaledEventAttributes WorkflowExecution
eweseaWorkflowExecution = lens _eweseaWorkflowExecution (\ s a -> s{_eweseaWorkflowExecution = a});
eweseaInitiatedEventId :: Lens' ExternalWorkflowExecutionSignaledEventAttributes Integer
eweseaInitiatedEventId = lens _eweseaInitiatedEventId (\ s a -> s{_eweseaInitiatedEventId = a});
instance FromJSON
ExternalWorkflowExecutionSignaledEventAttributes
where
parseJSON
= withObject
"ExternalWorkflowExecutionSignaledEventAttributes"
(\ x ->
ExternalWorkflowExecutionSignaledEventAttributes' <$>
(x .: "workflowExecution") <*>
(x .: "initiatedEventId"))
data FailWorkflowExecutionDecisionAttributes = FailWorkflowExecutionDecisionAttributes'
{ _fwedaReason :: !(Maybe Text)
, _fwedaDetails :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
failWorkflowExecutionDecisionAttributes
:: FailWorkflowExecutionDecisionAttributes
failWorkflowExecutionDecisionAttributes =
FailWorkflowExecutionDecisionAttributes'
{ _fwedaReason = Nothing
, _fwedaDetails = Nothing
}
fwedaReason :: Lens' FailWorkflowExecutionDecisionAttributes (Maybe Text)
fwedaReason = lens _fwedaReason (\ s a -> s{_fwedaReason = a});
fwedaDetails :: Lens' FailWorkflowExecutionDecisionAttributes (Maybe Text)
fwedaDetails = lens _fwedaDetails (\ s a -> s{_fwedaDetails = a});
instance ToJSON
FailWorkflowExecutionDecisionAttributes where
toJSON FailWorkflowExecutionDecisionAttributes'{..}
= object
(catMaybes
[("reason" .=) <$> _fwedaReason,
("details" .=) <$> _fwedaDetails])
data FailWorkflowExecutionFailedEventAttributes = FailWorkflowExecutionFailedEventAttributes'
{ _fwefeaCause :: !FailWorkflowExecutionFailedCause
, _fwefeaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
failWorkflowExecutionFailedEventAttributes
:: FailWorkflowExecutionFailedCause
-> Integer
-> FailWorkflowExecutionFailedEventAttributes
failWorkflowExecutionFailedEventAttributes pCause_ pDecisionTaskCompletedEventId_ =
FailWorkflowExecutionFailedEventAttributes'
{ _fwefeaCause = pCause_
, _fwefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
fwefeaCause :: Lens' FailWorkflowExecutionFailedEventAttributes FailWorkflowExecutionFailedCause
fwefeaCause = lens _fwefeaCause (\ s a -> s{_fwefeaCause = a});
fwefeaDecisionTaskCompletedEventId :: Lens' FailWorkflowExecutionFailedEventAttributes Integer
fwefeaDecisionTaskCompletedEventId = lens _fwefeaDecisionTaskCompletedEventId (\ s a -> s{_fwefeaDecisionTaskCompletedEventId = a});
instance FromJSON
FailWorkflowExecutionFailedEventAttributes where
parseJSON
= withObject
"FailWorkflowExecutionFailedEventAttributes"
(\ x ->
FailWorkflowExecutionFailedEventAttributes' <$>
(x .: "cause") <*>
(x .: "decisionTaskCompletedEventId"))
data HistoryEvent = HistoryEvent'
{ _heWorkflowExecutionCancelRequestedEventAttributes :: !(Maybe WorkflowExecutionCancelRequestedEventAttributes)
, _heDecisionTaskScheduledEventAttributes :: !(Maybe DecisionTaskScheduledEventAttributes)
, _heStartTimerFailedEventAttributes :: !(Maybe StartTimerFailedEventAttributes)
, _heLambdaFunctionStartedEventAttributes :: !(Maybe LambdaFunctionStartedEventAttributes)
, _heRecordMarkerFailedEventAttributes :: !(Maybe RecordMarkerFailedEventAttributes)
, _heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes :: !(Maybe RequestCancelExternalWorkflowExecutionInitiatedEventAttributes)
, _heWorkflowExecutionCompletedEventAttributes :: !(Maybe WorkflowExecutionCompletedEventAttributes)
, _heActivityTaskScheduledEventAttributes :: !(Maybe ActivityTaskScheduledEventAttributes)
, _heChildWorkflowExecutionCompletedEventAttributes :: !(Maybe ChildWorkflowExecutionCompletedEventAttributes)
, _heScheduleActivityTaskFailedEventAttributes :: !(Maybe ScheduleActivityTaskFailedEventAttributes)
, _heMarkerRecordedEventAttributes :: !(Maybe MarkerRecordedEventAttributes)
, _heScheduleLambdaFunctionFailedEventAttributes :: !(Maybe ScheduleLambdaFunctionFailedEventAttributes)
, _heCompleteWorkflowExecutionFailedEventAttributes :: !(Maybe CompleteWorkflowExecutionFailedEventAttributes)
, _heRequestCancelExternalWorkflowExecutionFailedEventAttributes :: !(Maybe RequestCancelExternalWorkflowExecutionFailedEventAttributes)
, _heLambdaFunctionCompletedEventAttributes :: !(Maybe LambdaFunctionCompletedEventAttributes)
, _heTimerCanceledEventAttributes :: !(Maybe TimerCanceledEventAttributes)
, _heWorkflowExecutionStartedEventAttributes :: !(Maybe WorkflowExecutionStartedEventAttributes)
, _heActivityTaskCompletedEventAttributes :: !(Maybe ActivityTaskCompletedEventAttributes)
, _heChildWorkflowExecutionStartedEventAttributes :: !(Maybe ChildWorkflowExecutionStartedEventAttributes)
, _heDecisionTaskTimedOutEventAttributes :: !(Maybe DecisionTaskTimedOutEventAttributes)
, _heCancelTimerFailedEventAttributes :: !(Maybe CancelTimerFailedEventAttributes)
, _heActivityTaskTimedOutEventAttributes :: !(Maybe ActivityTaskTimedOutEventAttributes)
, _heActivityTaskCanceledEventAttributes :: !(Maybe ActivityTaskCanceledEventAttributes)
, _heChildWorkflowExecutionCanceledEventAttributes :: !(Maybe ChildWorkflowExecutionCanceledEventAttributes)
, _heDecisionTaskStartedEventAttributes :: !(Maybe DecisionTaskStartedEventAttributes)
, _heCancelWorkflowExecutionFailedEventAttributes :: !(Maybe CancelWorkflowExecutionFailedEventAttributes)
, _heLambdaFunctionScheduledEventAttributes :: !(Maybe LambdaFunctionScheduledEventAttributes)
, _heChildWorkflowExecutionTimedOutEventAttributes :: !(Maybe ChildWorkflowExecutionTimedOutEventAttributes)
, _heRequestCancelActivityTaskFailedEventAttributes :: !(Maybe RequestCancelActivityTaskFailedEventAttributes)
, _heWorkflowExecutionTerminatedEventAttributes :: !(Maybe WorkflowExecutionTerminatedEventAttributes)
, _heStartChildWorkflowExecutionInitiatedEventAttributes :: !(Maybe StartChildWorkflowExecutionInitiatedEventAttributes)
, _heActivityTaskStartedEventAttributes :: !(Maybe ActivityTaskStartedEventAttributes)
, _heSignalExternalWorkflowExecutionFailedEventAttributes :: !(Maybe SignalExternalWorkflowExecutionFailedEventAttributes)
, _heTimerStartedEventAttributes :: !(Maybe TimerStartedEventAttributes)
, _heWorkflowExecutionTimedOutEventAttributes :: !(Maybe WorkflowExecutionTimedOutEventAttributes)
, _heActivityTaskCancelRequestedEventAttributes :: !(Maybe ActivityTaskCancelRequestedEventAttributes)
, _heStartLambdaFunctionFailedEventAttributes :: !(Maybe StartLambdaFunctionFailedEventAttributes)
, _heChildWorkflowExecutionTerminatedEventAttributes :: !(Maybe ChildWorkflowExecutionTerminatedEventAttributes)
, _heLambdaFunctionFailedEventAttributes :: !(Maybe LambdaFunctionFailedEventAttributes)
, _heWorkflowExecutionCanceledEventAttributes :: !(Maybe WorkflowExecutionCanceledEventAttributes)
, _heWorkflowExecutionSignaledEventAttributes :: !(Maybe WorkflowExecutionSignaledEventAttributes)
, _heActivityTaskFailedEventAttributes :: !(Maybe ActivityTaskFailedEventAttributes)
, _heExternalWorkflowExecutionSignaledEventAttributes :: !(Maybe ExternalWorkflowExecutionSignaledEventAttributes)
, _heTimerFiredEventAttributes :: !(Maybe TimerFiredEventAttributes)
, _heFailWorkflowExecutionFailedEventAttributes :: !(Maybe FailWorkflowExecutionFailedEventAttributes)
, _heChildWorkflowExecutionFailedEventAttributes :: !(Maybe ChildWorkflowExecutionFailedEventAttributes)
, _heDecisionTaskCompletedEventAttributes :: !(Maybe DecisionTaskCompletedEventAttributes)
, _heStartChildWorkflowExecutionFailedEventAttributes :: !(Maybe StartChildWorkflowExecutionFailedEventAttributes)
, _heSignalExternalWorkflowExecutionInitiatedEventAttributes :: !(Maybe SignalExternalWorkflowExecutionInitiatedEventAttributes)
, _heContinueAsNewWorkflowExecutionFailedEventAttributes :: !(Maybe ContinueAsNewWorkflowExecutionFailedEventAttributes)
, _heWorkflowExecutionFailedEventAttributes :: !(Maybe WorkflowExecutionFailedEventAttributes)
, _heWorkflowExecutionContinuedAsNewEventAttributes :: !(Maybe WorkflowExecutionContinuedAsNewEventAttributes)
, _heExternalWorkflowExecutionCancelRequestedEventAttributes :: !(Maybe ExternalWorkflowExecutionCancelRequestedEventAttributes)
, _heLambdaFunctionTimedOutEventAttributes :: !(Maybe LambdaFunctionTimedOutEventAttributes)
, _heEventTimestamp :: !POSIX
, _heEventType :: !EventType
, _heEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
historyEvent
:: UTCTime
-> EventType
-> Integer
-> HistoryEvent
historyEvent pEventTimestamp_ pEventType_ pEventId_ =
HistoryEvent'
{ _heWorkflowExecutionCancelRequestedEventAttributes = Nothing
, _heDecisionTaskScheduledEventAttributes = Nothing
, _heStartTimerFailedEventAttributes = Nothing
, _heLambdaFunctionStartedEventAttributes = Nothing
, _heRecordMarkerFailedEventAttributes = Nothing
, _heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes = Nothing
, _heWorkflowExecutionCompletedEventAttributes = Nothing
, _heActivityTaskScheduledEventAttributes = Nothing
, _heChildWorkflowExecutionCompletedEventAttributes = Nothing
, _heScheduleActivityTaskFailedEventAttributes = Nothing
, _heMarkerRecordedEventAttributes = Nothing
, _heScheduleLambdaFunctionFailedEventAttributes = Nothing
, _heCompleteWorkflowExecutionFailedEventAttributes = Nothing
, _heRequestCancelExternalWorkflowExecutionFailedEventAttributes = Nothing
, _heLambdaFunctionCompletedEventAttributes = Nothing
, _heTimerCanceledEventAttributes = Nothing
, _heWorkflowExecutionStartedEventAttributes = Nothing
, _heActivityTaskCompletedEventAttributes = Nothing
, _heChildWorkflowExecutionStartedEventAttributes = Nothing
, _heDecisionTaskTimedOutEventAttributes = Nothing
, _heCancelTimerFailedEventAttributes = Nothing
, _heActivityTaskTimedOutEventAttributes = Nothing
, _heActivityTaskCanceledEventAttributes = Nothing
, _heChildWorkflowExecutionCanceledEventAttributes = Nothing
, _heDecisionTaskStartedEventAttributes = Nothing
, _heCancelWorkflowExecutionFailedEventAttributes = Nothing
, _heLambdaFunctionScheduledEventAttributes = Nothing
, _heChildWorkflowExecutionTimedOutEventAttributes = Nothing
, _heRequestCancelActivityTaskFailedEventAttributes = Nothing
, _heWorkflowExecutionTerminatedEventAttributes = Nothing
, _heStartChildWorkflowExecutionInitiatedEventAttributes = Nothing
, _heActivityTaskStartedEventAttributes = Nothing
, _heSignalExternalWorkflowExecutionFailedEventAttributes = Nothing
, _heTimerStartedEventAttributes = Nothing
, _heWorkflowExecutionTimedOutEventAttributes = Nothing
, _heActivityTaskCancelRequestedEventAttributes = Nothing
, _heStartLambdaFunctionFailedEventAttributes = Nothing
, _heChildWorkflowExecutionTerminatedEventAttributes = Nothing
, _heLambdaFunctionFailedEventAttributes = Nothing
, _heWorkflowExecutionCanceledEventAttributes = Nothing
, _heWorkflowExecutionSignaledEventAttributes = Nothing
, _heActivityTaskFailedEventAttributes = Nothing
, _heExternalWorkflowExecutionSignaledEventAttributes = Nothing
, _heTimerFiredEventAttributes = Nothing
, _heFailWorkflowExecutionFailedEventAttributes = Nothing
, _heChildWorkflowExecutionFailedEventAttributes = Nothing
, _heDecisionTaskCompletedEventAttributes = Nothing
, _heStartChildWorkflowExecutionFailedEventAttributes = Nothing
, _heSignalExternalWorkflowExecutionInitiatedEventAttributes = Nothing
, _heContinueAsNewWorkflowExecutionFailedEventAttributes = Nothing
, _heWorkflowExecutionFailedEventAttributes = Nothing
, _heWorkflowExecutionContinuedAsNewEventAttributes = Nothing
, _heExternalWorkflowExecutionCancelRequestedEventAttributes = Nothing
, _heLambdaFunctionTimedOutEventAttributes = Nothing
, _heEventTimestamp = _Time # pEventTimestamp_
, _heEventType = pEventType_
, _heEventId = pEventId_
}
heWorkflowExecutionCancelRequestedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionCancelRequestedEventAttributes)
heWorkflowExecutionCancelRequestedEventAttributes = lens _heWorkflowExecutionCancelRequestedEventAttributes (\ s a -> s{_heWorkflowExecutionCancelRequestedEventAttributes = a});
heDecisionTaskScheduledEventAttributes :: Lens' HistoryEvent (Maybe DecisionTaskScheduledEventAttributes)
heDecisionTaskScheduledEventAttributes = lens _heDecisionTaskScheduledEventAttributes (\ s a -> s{_heDecisionTaskScheduledEventAttributes = a});
heStartTimerFailedEventAttributes :: Lens' HistoryEvent (Maybe StartTimerFailedEventAttributes)
heStartTimerFailedEventAttributes = lens _heStartTimerFailedEventAttributes (\ s a -> s{_heStartTimerFailedEventAttributes = a});
heLambdaFunctionStartedEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionStartedEventAttributes)
heLambdaFunctionStartedEventAttributes = lens _heLambdaFunctionStartedEventAttributes (\ s a -> s{_heLambdaFunctionStartedEventAttributes = a});
heRecordMarkerFailedEventAttributes :: Lens' HistoryEvent (Maybe RecordMarkerFailedEventAttributes)
heRecordMarkerFailedEventAttributes = lens _heRecordMarkerFailedEventAttributes (\ s a -> s{_heRecordMarkerFailedEventAttributes = a});
heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes :: Lens' HistoryEvent (Maybe RequestCancelExternalWorkflowExecutionInitiatedEventAttributes)
heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes = lens _heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes (\ s a -> s{_heRequestCancelExternalWorkflowExecutionInitiatedEventAttributes = a});
heWorkflowExecutionCompletedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionCompletedEventAttributes)
heWorkflowExecutionCompletedEventAttributes = lens _heWorkflowExecutionCompletedEventAttributes (\ s a -> s{_heWorkflowExecutionCompletedEventAttributes = a});
heActivityTaskScheduledEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskScheduledEventAttributes)
heActivityTaskScheduledEventAttributes = lens _heActivityTaskScheduledEventAttributes (\ s a -> s{_heActivityTaskScheduledEventAttributes = a});
heChildWorkflowExecutionCompletedEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionCompletedEventAttributes)
heChildWorkflowExecutionCompletedEventAttributes = lens _heChildWorkflowExecutionCompletedEventAttributes (\ s a -> s{_heChildWorkflowExecutionCompletedEventAttributes = a});
heScheduleActivityTaskFailedEventAttributes :: Lens' HistoryEvent (Maybe ScheduleActivityTaskFailedEventAttributes)
heScheduleActivityTaskFailedEventAttributes = lens _heScheduleActivityTaskFailedEventAttributes (\ s a -> s{_heScheduleActivityTaskFailedEventAttributes = a});
heMarkerRecordedEventAttributes :: Lens' HistoryEvent (Maybe MarkerRecordedEventAttributes)
heMarkerRecordedEventAttributes = lens _heMarkerRecordedEventAttributes (\ s a -> s{_heMarkerRecordedEventAttributes = a});
heScheduleLambdaFunctionFailedEventAttributes :: Lens' HistoryEvent (Maybe ScheduleLambdaFunctionFailedEventAttributes)
heScheduleLambdaFunctionFailedEventAttributes = lens _heScheduleLambdaFunctionFailedEventAttributes (\ s a -> s{_heScheduleLambdaFunctionFailedEventAttributes = a});
heCompleteWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe CompleteWorkflowExecutionFailedEventAttributes)
heCompleteWorkflowExecutionFailedEventAttributes = lens _heCompleteWorkflowExecutionFailedEventAttributes (\ s a -> s{_heCompleteWorkflowExecutionFailedEventAttributes = a});
heRequestCancelExternalWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe RequestCancelExternalWorkflowExecutionFailedEventAttributes)
heRequestCancelExternalWorkflowExecutionFailedEventAttributes = lens _heRequestCancelExternalWorkflowExecutionFailedEventAttributes (\ s a -> s{_heRequestCancelExternalWorkflowExecutionFailedEventAttributes = a});
heLambdaFunctionCompletedEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionCompletedEventAttributes)
heLambdaFunctionCompletedEventAttributes = lens _heLambdaFunctionCompletedEventAttributes (\ s a -> s{_heLambdaFunctionCompletedEventAttributes = a});
heTimerCanceledEventAttributes :: Lens' HistoryEvent (Maybe TimerCanceledEventAttributes)
heTimerCanceledEventAttributes = lens _heTimerCanceledEventAttributes (\ s a -> s{_heTimerCanceledEventAttributes = a});
heWorkflowExecutionStartedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionStartedEventAttributes)
heWorkflowExecutionStartedEventAttributes = lens _heWorkflowExecutionStartedEventAttributes (\ s a -> s{_heWorkflowExecutionStartedEventAttributes = a});
heActivityTaskCompletedEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskCompletedEventAttributes)
heActivityTaskCompletedEventAttributes = lens _heActivityTaskCompletedEventAttributes (\ s a -> s{_heActivityTaskCompletedEventAttributes = a});
heChildWorkflowExecutionStartedEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionStartedEventAttributes)
heChildWorkflowExecutionStartedEventAttributes = lens _heChildWorkflowExecutionStartedEventAttributes (\ s a -> s{_heChildWorkflowExecutionStartedEventAttributes = a});
heDecisionTaskTimedOutEventAttributes :: Lens' HistoryEvent (Maybe DecisionTaskTimedOutEventAttributes)
heDecisionTaskTimedOutEventAttributes = lens _heDecisionTaskTimedOutEventAttributes (\ s a -> s{_heDecisionTaskTimedOutEventAttributes = a});
heCancelTimerFailedEventAttributes :: Lens' HistoryEvent (Maybe CancelTimerFailedEventAttributes)
heCancelTimerFailedEventAttributes = lens _heCancelTimerFailedEventAttributes (\ s a -> s{_heCancelTimerFailedEventAttributes = a});
heActivityTaskTimedOutEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskTimedOutEventAttributes)
heActivityTaskTimedOutEventAttributes = lens _heActivityTaskTimedOutEventAttributes (\ s a -> s{_heActivityTaskTimedOutEventAttributes = a});
heActivityTaskCanceledEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskCanceledEventAttributes)
heActivityTaskCanceledEventAttributes = lens _heActivityTaskCanceledEventAttributes (\ s a -> s{_heActivityTaskCanceledEventAttributes = a});
heChildWorkflowExecutionCanceledEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionCanceledEventAttributes)
heChildWorkflowExecutionCanceledEventAttributes = lens _heChildWorkflowExecutionCanceledEventAttributes (\ s a -> s{_heChildWorkflowExecutionCanceledEventAttributes = a});
heDecisionTaskStartedEventAttributes :: Lens' HistoryEvent (Maybe DecisionTaskStartedEventAttributes)
heDecisionTaskStartedEventAttributes = lens _heDecisionTaskStartedEventAttributes (\ s a -> s{_heDecisionTaskStartedEventAttributes = a});
heCancelWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe CancelWorkflowExecutionFailedEventAttributes)
heCancelWorkflowExecutionFailedEventAttributes = lens _heCancelWorkflowExecutionFailedEventAttributes (\ s a -> s{_heCancelWorkflowExecutionFailedEventAttributes = a});
heLambdaFunctionScheduledEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionScheduledEventAttributes)
heLambdaFunctionScheduledEventAttributes = lens _heLambdaFunctionScheduledEventAttributes (\ s a -> s{_heLambdaFunctionScheduledEventAttributes = a});
heChildWorkflowExecutionTimedOutEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionTimedOutEventAttributes)
heChildWorkflowExecutionTimedOutEventAttributes = lens _heChildWorkflowExecutionTimedOutEventAttributes (\ s a -> s{_heChildWorkflowExecutionTimedOutEventAttributes = a});
heRequestCancelActivityTaskFailedEventAttributes :: Lens' HistoryEvent (Maybe RequestCancelActivityTaskFailedEventAttributes)
heRequestCancelActivityTaskFailedEventAttributes = lens _heRequestCancelActivityTaskFailedEventAttributes (\ s a -> s{_heRequestCancelActivityTaskFailedEventAttributes = a});
heWorkflowExecutionTerminatedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionTerminatedEventAttributes)
heWorkflowExecutionTerminatedEventAttributes = lens _heWorkflowExecutionTerminatedEventAttributes (\ s a -> s{_heWorkflowExecutionTerminatedEventAttributes = a});
heStartChildWorkflowExecutionInitiatedEventAttributes :: Lens' HistoryEvent (Maybe StartChildWorkflowExecutionInitiatedEventAttributes)
heStartChildWorkflowExecutionInitiatedEventAttributes = lens _heStartChildWorkflowExecutionInitiatedEventAttributes (\ s a -> s{_heStartChildWorkflowExecutionInitiatedEventAttributes = a});
heActivityTaskStartedEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskStartedEventAttributes)
heActivityTaskStartedEventAttributes = lens _heActivityTaskStartedEventAttributes (\ s a -> s{_heActivityTaskStartedEventAttributes = a});
heSignalExternalWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe SignalExternalWorkflowExecutionFailedEventAttributes)
heSignalExternalWorkflowExecutionFailedEventAttributes = lens _heSignalExternalWorkflowExecutionFailedEventAttributes (\ s a -> s{_heSignalExternalWorkflowExecutionFailedEventAttributes = a});
heTimerStartedEventAttributes :: Lens' HistoryEvent (Maybe TimerStartedEventAttributes)
heTimerStartedEventAttributes = lens _heTimerStartedEventAttributes (\ s a -> s{_heTimerStartedEventAttributes = a});
heWorkflowExecutionTimedOutEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionTimedOutEventAttributes)
heWorkflowExecutionTimedOutEventAttributes = lens _heWorkflowExecutionTimedOutEventAttributes (\ s a -> s{_heWorkflowExecutionTimedOutEventAttributes = a});
heActivityTaskCancelRequestedEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskCancelRequestedEventAttributes)
heActivityTaskCancelRequestedEventAttributes = lens _heActivityTaskCancelRequestedEventAttributes (\ s a -> s{_heActivityTaskCancelRequestedEventAttributes = a});
heStartLambdaFunctionFailedEventAttributes :: Lens' HistoryEvent (Maybe StartLambdaFunctionFailedEventAttributes)
heStartLambdaFunctionFailedEventAttributes = lens _heStartLambdaFunctionFailedEventAttributes (\ s a -> s{_heStartLambdaFunctionFailedEventAttributes = a});
heChildWorkflowExecutionTerminatedEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionTerminatedEventAttributes)
heChildWorkflowExecutionTerminatedEventAttributes = lens _heChildWorkflowExecutionTerminatedEventAttributes (\ s a -> s{_heChildWorkflowExecutionTerminatedEventAttributes = a});
heLambdaFunctionFailedEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionFailedEventAttributes)
heLambdaFunctionFailedEventAttributes = lens _heLambdaFunctionFailedEventAttributes (\ s a -> s{_heLambdaFunctionFailedEventAttributes = a});
heWorkflowExecutionCanceledEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionCanceledEventAttributes)
heWorkflowExecutionCanceledEventAttributes = lens _heWorkflowExecutionCanceledEventAttributes (\ s a -> s{_heWorkflowExecutionCanceledEventAttributes = a});
heWorkflowExecutionSignaledEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionSignaledEventAttributes)
heWorkflowExecutionSignaledEventAttributes = lens _heWorkflowExecutionSignaledEventAttributes (\ s a -> s{_heWorkflowExecutionSignaledEventAttributes = a});
heActivityTaskFailedEventAttributes :: Lens' HistoryEvent (Maybe ActivityTaskFailedEventAttributes)
heActivityTaskFailedEventAttributes = lens _heActivityTaskFailedEventAttributes (\ s a -> s{_heActivityTaskFailedEventAttributes = a});
heExternalWorkflowExecutionSignaledEventAttributes :: Lens' HistoryEvent (Maybe ExternalWorkflowExecutionSignaledEventAttributes)
heExternalWorkflowExecutionSignaledEventAttributes = lens _heExternalWorkflowExecutionSignaledEventAttributes (\ s a -> s{_heExternalWorkflowExecutionSignaledEventAttributes = a});
heTimerFiredEventAttributes :: Lens' HistoryEvent (Maybe TimerFiredEventAttributes)
heTimerFiredEventAttributes = lens _heTimerFiredEventAttributes (\ s a -> s{_heTimerFiredEventAttributes = a});
heFailWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe FailWorkflowExecutionFailedEventAttributes)
heFailWorkflowExecutionFailedEventAttributes = lens _heFailWorkflowExecutionFailedEventAttributes (\ s a -> s{_heFailWorkflowExecutionFailedEventAttributes = a});
heChildWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe ChildWorkflowExecutionFailedEventAttributes)
heChildWorkflowExecutionFailedEventAttributes = lens _heChildWorkflowExecutionFailedEventAttributes (\ s a -> s{_heChildWorkflowExecutionFailedEventAttributes = a});
heDecisionTaskCompletedEventAttributes :: Lens' HistoryEvent (Maybe DecisionTaskCompletedEventAttributes)
heDecisionTaskCompletedEventAttributes = lens _heDecisionTaskCompletedEventAttributes (\ s a -> s{_heDecisionTaskCompletedEventAttributes = a});
heStartChildWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe StartChildWorkflowExecutionFailedEventAttributes)
heStartChildWorkflowExecutionFailedEventAttributes = lens _heStartChildWorkflowExecutionFailedEventAttributes (\ s a -> s{_heStartChildWorkflowExecutionFailedEventAttributes = a});
heSignalExternalWorkflowExecutionInitiatedEventAttributes :: Lens' HistoryEvent (Maybe SignalExternalWorkflowExecutionInitiatedEventAttributes)
heSignalExternalWorkflowExecutionInitiatedEventAttributes = lens _heSignalExternalWorkflowExecutionInitiatedEventAttributes (\ s a -> s{_heSignalExternalWorkflowExecutionInitiatedEventAttributes = a});
heContinueAsNewWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe ContinueAsNewWorkflowExecutionFailedEventAttributes)
heContinueAsNewWorkflowExecutionFailedEventAttributes = lens _heContinueAsNewWorkflowExecutionFailedEventAttributes (\ s a -> s{_heContinueAsNewWorkflowExecutionFailedEventAttributes = a});
heWorkflowExecutionFailedEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionFailedEventAttributes)
heWorkflowExecutionFailedEventAttributes = lens _heWorkflowExecutionFailedEventAttributes (\ s a -> s{_heWorkflowExecutionFailedEventAttributes = a});
heWorkflowExecutionContinuedAsNewEventAttributes :: Lens' HistoryEvent (Maybe WorkflowExecutionContinuedAsNewEventAttributes)
heWorkflowExecutionContinuedAsNewEventAttributes = lens _heWorkflowExecutionContinuedAsNewEventAttributes (\ s a -> s{_heWorkflowExecutionContinuedAsNewEventAttributes = a});
heExternalWorkflowExecutionCancelRequestedEventAttributes :: Lens' HistoryEvent (Maybe ExternalWorkflowExecutionCancelRequestedEventAttributes)
heExternalWorkflowExecutionCancelRequestedEventAttributes = lens _heExternalWorkflowExecutionCancelRequestedEventAttributes (\ s a -> s{_heExternalWorkflowExecutionCancelRequestedEventAttributes = a});
heLambdaFunctionTimedOutEventAttributes :: Lens' HistoryEvent (Maybe LambdaFunctionTimedOutEventAttributes)
heLambdaFunctionTimedOutEventAttributes = lens _heLambdaFunctionTimedOutEventAttributes (\ s a -> s{_heLambdaFunctionTimedOutEventAttributes = a});
heEventTimestamp :: Lens' HistoryEvent UTCTime
heEventTimestamp = lens _heEventTimestamp (\ s a -> s{_heEventTimestamp = a}) . _Time;
heEventType :: Lens' HistoryEvent EventType
heEventType = lens _heEventType (\ s a -> s{_heEventType = a});
heEventId :: Lens' HistoryEvent Integer
heEventId = lens _heEventId (\ s a -> s{_heEventId = a});
instance FromJSON HistoryEvent where
parseJSON
= withObject "HistoryEvent"
(\ x ->
HistoryEvent' <$>
(x .:?
"workflowExecutionCancelRequestedEventAttributes")
<*> (x .:? "decisionTaskScheduledEventAttributes")
<*> (x .:? "startTimerFailedEventAttributes")
<*> (x .:? "lambdaFunctionStartedEventAttributes")
<*> (x .:? "recordMarkerFailedEventAttributes")
<*>
(x .:?
"requestCancelExternalWorkflowExecutionInitiatedEventAttributes")
<*>
(x .:? "workflowExecutionCompletedEventAttributes")
<*> (x .:? "activityTaskScheduledEventAttributes")
<*>
(x .:?
"childWorkflowExecutionCompletedEventAttributes")
<*>
(x .:? "scheduleActivityTaskFailedEventAttributes")
<*> (x .:? "markerRecordedEventAttributes")
<*>
(x .:? "scheduleLambdaFunctionFailedEventAttributes")
<*>
(x .:?
"completeWorkflowExecutionFailedEventAttributes")
<*>
(x .:?
"requestCancelExternalWorkflowExecutionFailedEventAttributes")
<*> (x .:? "lambdaFunctionCompletedEventAttributes")
<*> (x .:? "timerCanceledEventAttributes")
<*> (x .:? "workflowExecutionStartedEventAttributes")
<*> (x .:? "activityTaskCompletedEventAttributes")
<*>
(x .:?
"childWorkflowExecutionStartedEventAttributes")
<*> (x .:? "decisionTaskTimedOutEventAttributes")
<*> (x .:? "cancelTimerFailedEventAttributes")
<*> (x .:? "activityTaskTimedOutEventAttributes")
<*> (x .:? "activityTaskCanceledEventAttributes")
<*>
(x .:?
"childWorkflowExecutionCanceledEventAttributes")
<*> (x .:? "decisionTaskStartedEventAttributes")
<*>
(x .:?
"cancelWorkflowExecutionFailedEventAttributes")
<*> (x .:? "lambdaFunctionScheduledEventAttributes")
<*>
(x .:?
"childWorkflowExecutionTimedOutEventAttributes")
<*>
(x .:?
"requestCancelActivityTaskFailedEventAttributes")
<*>
(x .:? "workflowExecutionTerminatedEventAttributes")
<*>
(x .:?
"startChildWorkflowExecutionInitiatedEventAttributes")
<*> (x .:? "activityTaskStartedEventAttributes")
<*>
(x .:?
"signalExternalWorkflowExecutionFailedEventAttributes")
<*> (x .:? "timerStartedEventAttributes")
<*>
(x .:? "workflowExecutionTimedOutEventAttributes")
<*>
(x .:? "activityTaskCancelRequestedEventAttributes")
<*>
(x .:? "startLambdaFunctionFailedEventAttributes")
<*>
(x .:?
"childWorkflowExecutionTerminatedEventAttributes")
<*> (x .:? "lambdaFunctionFailedEventAttributes")
<*>
(x .:? "workflowExecutionCanceledEventAttributes")
<*>
(x .:? "workflowExecutionSignaledEventAttributes")
<*> (x .:? "activityTaskFailedEventAttributes")
<*>
(x .:?
"externalWorkflowExecutionSignaledEventAttributes")
<*> (x .:? "timerFiredEventAttributes")
<*>
(x .:? "failWorkflowExecutionFailedEventAttributes")
<*>
(x .:? "childWorkflowExecutionFailedEventAttributes")
<*> (x .:? "decisionTaskCompletedEventAttributes")
<*>
(x .:?
"startChildWorkflowExecutionFailedEventAttributes")
<*>
(x .:?
"signalExternalWorkflowExecutionInitiatedEventAttributes")
<*>
(x .:?
"continueAsNewWorkflowExecutionFailedEventAttributes")
<*> (x .:? "workflowExecutionFailedEventAttributes")
<*>
(x .:?
"workflowExecutionContinuedAsNewEventAttributes")
<*>
(x .:?
"externalWorkflowExecutionCancelRequestedEventAttributes")
<*> (x .:? "lambdaFunctionTimedOutEventAttributes")
<*> (x .: "eventTimestamp")
<*> (x .: "eventType")
<*> (x .: "eventId"))
data LambdaFunctionCompletedEventAttributes = LambdaFunctionCompletedEventAttributes'
{ _lfceaResult :: !(Maybe Text)
, _lfceaScheduledEventId :: !Integer
, _lfceaStartedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
lambdaFunctionCompletedEventAttributes
:: Integer
-> Integer
-> LambdaFunctionCompletedEventAttributes
lambdaFunctionCompletedEventAttributes pScheduledEventId_ pStartedEventId_ =
LambdaFunctionCompletedEventAttributes'
{ _lfceaResult = Nothing
, _lfceaScheduledEventId = pScheduledEventId_
, _lfceaStartedEventId = pStartedEventId_
}
lfceaResult :: Lens' LambdaFunctionCompletedEventAttributes (Maybe Text)
lfceaResult = lens _lfceaResult (\ s a -> s{_lfceaResult = a});
lfceaScheduledEventId :: Lens' LambdaFunctionCompletedEventAttributes Integer
lfceaScheduledEventId = lens _lfceaScheduledEventId (\ s a -> s{_lfceaScheduledEventId = a});
lfceaStartedEventId :: Lens' LambdaFunctionCompletedEventAttributes Integer
lfceaStartedEventId = lens _lfceaStartedEventId (\ s a -> s{_lfceaStartedEventId = a});
instance FromJSON
LambdaFunctionCompletedEventAttributes where
parseJSON
= withObject "LambdaFunctionCompletedEventAttributes"
(\ x ->
LambdaFunctionCompletedEventAttributes' <$>
(x .:? "result") <*> (x .: "scheduledEventId") <*>
(x .: "startedEventId"))
data LambdaFunctionFailedEventAttributes = LambdaFunctionFailedEventAttributes'
{ _lffeaReason :: !(Maybe Text)
, _lffeaDetails :: !(Maybe Text)
, _lffeaScheduledEventId :: !Integer
, _lffeaStartedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
lambdaFunctionFailedEventAttributes
:: Integer
-> Integer
-> LambdaFunctionFailedEventAttributes
lambdaFunctionFailedEventAttributes pScheduledEventId_ pStartedEventId_ =
LambdaFunctionFailedEventAttributes'
{ _lffeaReason = Nothing
, _lffeaDetails = Nothing
, _lffeaScheduledEventId = pScheduledEventId_
, _lffeaStartedEventId = pStartedEventId_
}
lffeaReason :: Lens' LambdaFunctionFailedEventAttributes (Maybe Text)
lffeaReason = lens _lffeaReason (\ s a -> s{_lffeaReason = a});
lffeaDetails :: Lens' LambdaFunctionFailedEventAttributes (Maybe Text)
lffeaDetails = lens _lffeaDetails (\ s a -> s{_lffeaDetails = a});
lffeaScheduledEventId :: Lens' LambdaFunctionFailedEventAttributes Integer
lffeaScheduledEventId = lens _lffeaScheduledEventId (\ s a -> s{_lffeaScheduledEventId = a});
lffeaStartedEventId :: Lens' LambdaFunctionFailedEventAttributes Integer
lffeaStartedEventId = lens _lffeaStartedEventId (\ s a -> s{_lffeaStartedEventId = a});
instance FromJSON LambdaFunctionFailedEventAttributes
where
parseJSON
= withObject "LambdaFunctionFailedEventAttributes"
(\ x ->
LambdaFunctionFailedEventAttributes' <$>
(x .:? "reason") <*> (x .:? "details") <*>
(x .: "scheduledEventId")
<*> (x .: "startedEventId"))
data LambdaFunctionScheduledEventAttributes = LambdaFunctionScheduledEventAttributes'
{ _lfseaInput :: !(Maybe Text)
, _lfseaStartToCloseTimeout :: !(Maybe Text)
, _lfseaId :: !Text
, _lfseaName :: !Text
, _lfseaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
lambdaFunctionScheduledEventAttributes
:: Text
-> Text
-> Integer
-> LambdaFunctionScheduledEventAttributes
lambdaFunctionScheduledEventAttributes pId_ pName_ pDecisionTaskCompletedEventId_ =
LambdaFunctionScheduledEventAttributes'
{ _lfseaInput = Nothing
, _lfseaStartToCloseTimeout = Nothing
, _lfseaId = pId_
, _lfseaName = pName_
, _lfseaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
lfseaInput :: Lens' LambdaFunctionScheduledEventAttributes (Maybe Text)
lfseaInput = lens _lfseaInput (\ s a -> s{_lfseaInput = a});
lfseaStartToCloseTimeout :: Lens' LambdaFunctionScheduledEventAttributes (Maybe Text)
lfseaStartToCloseTimeout = lens _lfseaStartToCloseTimeout (\ s a -> s{_lfseaStartToCloseTimeout = a});
lfseaId :: Lens' LambdaFunctionScheduledEventAttributes Text
lfseaId = lens _lfseaId (\ s a -> s{_lfseaId = a});
lfseaName :: Lens' LambdaFunctionScheduledEventAttributes Text
lfseaName = lens _lfseaName (\ s a -> s{_lfseaName = a});
lfseaDecisionTaskCompletedEventId :: Lens' LambdaFunctionScheduledEventAttributes Integer
lfseaDecisionTaskCompletedEventId = lens _lfseaDecisionTaskCompletedEventId (\ s a -> s{_lfseaDecisionTaskCompletedEventId = a});
instance FromJSON
LambdaFunctionScheduledEventAttributes where
parseJSON
= withObject "LambdaFunctionScheduledEventAttributes"
(\ x ->
LambdaFunctionScheduledEventAttributes' <$>
(x .:? "input") <*> (x .:? "startToCloseTimeout") <*>
(x .: "id")
<*> (x .: "name")
<*> (x .: "decisionTaskCompletedEventId"))
newtype LambdaFunctionStartedEventAttributes = LambdaFunctionStartedEventAttributes'
{ _lfseaScheduledEventId :: Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
lambdaFunctionStartedEventAttributes
:: Integer
-> LambdaFunctionStartedEventAttributes
lambdaFunctionStartedEventAttributes pScheduledEventId_ =
LambdaFunctionStartedEventAttributes'
{ _lfseaScheduledEventId = pScheduledEventId_
}
lfseaScheduledEventId :: Lens' LambdaFunctionStartedEventAttributes Integer
lfseaScheduledEventId = lens _lfseaScheduledEventId (\ s a -> s{_lfseaScheduledEventId = a});
instance FromJSON
LambdaFunctionStartedEventAttributes where
parseJSON
= withObject "LambdaFunctionStartedEventAttributes"
(\ x ->
LambdaFunctionStartedEventAttributes' <$>
(x .: "scheduledEventId"))
data LambdaFunctionTimedOutEventAttributes = LambdaFunctionTimedOutEventAttributes'
{ _lftoeaTimeoutType :: !(Maybe LambdaFunctionTimeoutType)
, _lftoeaScheduledEventId :: !Integer
, _lftoeaStartedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
lambdaFunctionTimedOutEventAttributes
:: Integer
-> Integer
-> LambdaFunctionTimedOutEventAttributes
lambdaFunctionTimedOutEventAttributes pScheduledEventId_ pStartedEventId_ =
LambdaFunctionTimedOutEventAttributes'
{ _lftoeaTimeoutType = Nothing
, _lftoeaScheduledEventId = pScheduledEventId_
, _lftoeaStartedEventId = pStartedEventId_
}
lftoeaTimeoutType :: Lens' LambdaFunctionTimedOutEventAttributes (Maybe LambdaFunctionTimeoutType)
lftoeaTimeoutType = lens _lftoeaTimeoutType (\ s a -> s{_lftoeaTimeoutType = a});
lftoeaScheduledEventId :: Lens' LambdaFunctionTimedOutEventAttributes Integer
lftoeaScheduledEventId = lens _lftoeaScheduledEventId (\ s a -> s{_lftoeaScheduledEventId = a});
lftoeaStartedEventId :: Lens' LambdaFunctionTimedOutEventAttributes Integer
lftoeaStartedEventId = lens _lftoeaStartedEventId (\ s a -> s{_lftoeaStartedEventId = a});
instance FromJSON
LambdaFunctionTimedOutEventAttributes where
parseJSON
= withObject "LambdaFunctionTimedOutEventAttributes"
(\ x ->
LambdaFunctionTimedOutEventAttributes' <$>
(x .:? "timeoutType") <*> (x .: "scheduledEventId")
<*> (x .: "startedEventId"))
data MarkerRecordedEventAttributes = MarkerRecordedEventAttributes'
{ _mreaDetails :: !(Maybe Text)
, _mreaMarkerName :: !Text
, _mreaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
markerRecordedEventAttributes
:: Text
-> Integer
-> MarkerRecordedEventAttributes
markerRecordedEventAttributes pMarkerName_ pDecisionTaskCompletedEventId_ =
MarkerRecordedEventAttributes'
{ _mreaDetails = Nothing
, _mreaMarkerName = pMarkerName_
, _mreaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
mreaDetails :: Lens' MarkerRecordedEventAttributes (Maybe Text)
mreaDetails = lens _mreaDetails (\ s a -> s{_mreaDetails = a});
mreaMarkerName :: Lens' MarkerRecordedEventAttributes Text
mreaMarkerName = lens _mreaMarkerName (\ s a -> s{_mreaMarkerName = a});
mreaDecisionTaskCompletedEventId :: Lens' MarkerRecordedEventAttributes Integer
mreaDecisionTaskCompletedEventId = lens _mreaDecisionTaskCompletedEventId (\ s a -> s{_mreaDecisionTaskCompletedEventId = a});
instance FromJSON MarkerRecordedEventAttributes where
parseJSON
= withObject "MarkerRecordedEventAttributes"
(\ x ->
MarkerRecordedEventAttributes' <$>
(x .:? "details") <*> (x .: "markerName") <*>
(x .: "decisionTaskCompletedEventId"))
data PendingTaskCount = PendingTaskCount'
{ _ptcTruncated :: !(Maybe Bool)
, _ptcCount :: !Nat
} deriving (Eq,Read,Show,Data,Typeable,Generic)
pendingTaskCount
:: Natural
-> PendingTaskCount
pendingTaskCount pCount_ =
PendingTaskCount'
{ _ptcTruncated = Nothing
, _ptcCount = _Nat # pCount_
}
ptcTruncated :: Lens' PendingTaskCount (Maybe Bool)
ptcTruncated = lens _ptcTruncated (\ s a -> s{_ptcTruncated = a});
ptcCount :: Lens' PendingTaskCount Natural
ptcCount = lens _ptcCount (\ s a -> s{_ptcCount = a}) . _Nat;
instance FromJSON PendingTaskCount where
parseJSON
= withObject "PendingTaskCount"
(\ x ->
PendingTaskCount' <$>
(x .:? "truncated") <*> (x .: "count"))
data RecordMarkerDecisionAttributes = RecordMarkerDecisionAttributes'
{ _rmdaDetails :: !(Maybe Text)
, _rmdaMarkerName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
recordMarkerDecisionAttributes
:: Text
-> RecordMarkerDecisionAttributes
recordMarkerDecisionAttributes pMarkerName_ =
RecordMarkerDecisionAttributes'
{ _rmdaDetails = Nothing
, _rmdaMarkerName = pMarkerName_
}
rmdaDetails :: Lens' RecordMarkerDecisionAttributes (Maybe Text)
rmdaDetails = lens _rmdaDetails (\ s a -> s{_rmdaDetails = a});
rmdaMarkerName :: Lens' RecordMarkerDecisionAttributes Text
rmdaMarkerName = lens _rmdaMarkerName (\ s a -> s{_rmdaMarkerName = a});
instance ToJSON RecordMarkerDecisionAttributes where
toJSON RecordMarkerDecisionAttributes'{..}
= object
(catMaybes
[("details" .=) <$> _rmdaDetails,
Just ("markerName" .= _rmdaMarkerName)])
data RecordMarkerFailedEventAttributes = RecordMarkerFailedEventAttributes'
{ _rmfeaMarkerName :: !Text
, _rmfeaCause :: !RecordMarkerFailedCause
, _rmfeaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
recordMarkerFailedEventAttributes
:: Text
-> RecordMarkerFailedCause
-> Integer
-> RecordMarkerFailedEventAttributes
recordMarkerFailedEventAttributes pMarkerName_ pCause_ pDecisionTaskCompletedEventId_ =
RecordMarkerFailedEventAttributes'
{ _rmfeaMarkerName = pMarkerName_
, _rmfeaCause = pCause_
, _rmfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
rmfeaMarkerName :: Lens' RecordMarkerFailedEventAttributes Text
rmfeaMarkerName = lens _rmfeaMarkerName (\ s a -> s{_rmfeaMarkerName = a});
rmfeaCause :: Lens' RecordMarkerFailedEventAttributes RecordMarkerFailedCause
rmfeaCause = lens _rmfeaCause (\ s a -> s{_rmfeaCause = a});
rmfeaDecisionTaskCompletedEventId :: Lens' RecordMarkerFailedEventAttributes Integer
rmfeaDecisionTaskCompletedEventId = lens _rmfeaDecisionTaskCompletedEventId (\ s a -> s{_rmfeaDecisionTaskCompletedEventId = a});
instance FromJSON RecordMarkerFailedEventAttributes
where
parseJSON
= withObject "RecordMarkerFailedEventAttributes"
(\ x ->
RecordMarkerFailedEventAttributes' <$>
(x .: "markerName") <*> (x .: "cause") <*>
(x .: "decisionTaskCompletedEventId"))
newtype RequestCancelActivityTaskDecisionAttributes = RequestCancelActivityTaskDecisionAttributes'
{ _rcatdaActivityId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
requestCancelActivityTaskDecisionAttributes
:: Text
-> RequestCancelActivityTaskDecisionAttributes
requestCancelActivityTaskDecisionAttributes pActivityId_ =
RequestCancelActivityTaskDecisionAttributes'
{ _rcatdaActivityId = pActivityId_
}
rcatdaActivityId :: Lens' RequestCancelActivityTaskDecisionAttributes Text
rcatdaActivityId = lens _rcatdaActivityId (\ s a -> s{_rcatdaActivityId = a});
instance ToJSON
RequestCancelActivityTaskDecisionAttributes where
toJSON
RequestCancelActivityTaskDecisionAttributes'{..}
= object
(catMaybes
[Just ("activityId" .= _rcatdaActivityId)])
data RequestCancelActivityTaskFailedEventAttributes = RequestCancelActivityTaskFailedEventAttributes'
{ _rcatfeaActivityId :: !Text
, _rcatfeaCause :: !RequestCancelActivityTaskFailedCause
, _rcatfeaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
requestCancelActivityTaskFailedEventAttributes
:: Text
-> RequestCancelActivityTaskFailedCause
-> Integer
-> RequestCancelActivityTaskFailedEventAttributes
requestCancelActivityTaskFailedEventAttributes pActivityId_ pCause_ pDecisionTaskCompletedEventId_ =
RequestCancelActivityTaskFailedEventAttributes'
{ _rcatfeaActivityId = pActivityId_
, _rcatfeaCause = pCause_
, _rcatfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
rcatfeaActivityId :: Lens' RequestCancelActivityTaskFailedEventAttributes Text
rcatfeaActivityId = lens _rcatfeaActivityId (\ s a -> s{_rcatfeaActivityId = a});
rcatfeaCause :: Lens' RequestCancelActivityTaskFailedEventAttributes RequestCancelActivityTaskFailedCause
rcatfeaCause = lens _rcatfeaCause (\ s a -> s{_rcatfeaCause = a});
rcatfeaDecisionTaskCompletedEventId :: Lens' RequestCancelActivityTaskFailedEventAttributes Integer
rcatfeaDecisionTaskCompletedEventId = lens _rcatfeaDecisionTaskCompletedEventId (\ s a -> s{_rcatfeaDecisionTaskCompletedEventId = a});
instance FromJSON
RequestCancelActivityTaskFailedEventAttributes where
parseJSON
= withObject
"RequestCancelActivityTaskFailedEventAttributes"
(\ x ->
RequestCancelActivityTaskFailedEventAttributes' <$>
(x .: "activityId") <*> (x .: "cause") <*>
(x .: "decisionTaskCompletedEventId"))
data RequestCancelExternalWorkflowExecutionDecisionAttributes = RequestCancelExternalWorkflowExecutionDecisionAttributes'
{ _rcewedaControl :: !(Maybe Text)
, _rcewedaRunId :: !(Maybe Text)
, _rcewedaWorkflowId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
requestCancelExternalWorkflowExecutionDecisionAttributes
:: Text
-> RequestCancelExternalWorkflowExecutionDecisionAttributes
requestCancelExternalWorkflowExecutionDecisionAttributes pWorkflowId_ =
RequestCancelExternalWorkflowExecutionDecisionAttributes'
{ _rcewedaControl = Nothing
, _rcewedaRunId = Nothing
, _rcewedaWorkflowId = pWorkflowId_
}
rcewedaControl :: Lens' RequestCancelExternalWorkflowExecutionDecisionAttributes (Maybe Text)
rcewedaControl = lens _rcewedaControl (\ s a -> s{_rcewedaControl = a});
rcewedaRunId :: Lens' RequestCancelExternalWorkflowExecutionDecisionAttributes (Maybe Text)
rcewedaRunId = lens _rcewedaRunId (\ s a -> s{_rcewedaRunId = a});
rcewedaWorkflowId :: Lens' RequestCancelExternalWorkflowExecutionDecisionAttributes Text
rcewedaWorkflowId = lens _rcewedaWorkflowId (\ s a -> s{_rcewedaWorkflowId = a});
instance ToJSON
RequestCancelExternalWorkflowExecutionDecisionAttributes
where
toJSON
RequestCancelExternalWorkflowExecutionDecisionAttributes'{..}
= object
(catMaybes
[("control" .=) <$> _rcewedaControl,
("runId" .=) <$> _rcewedaRunId,
Just ("workflowId" .= _rcewedaWorkflowId)])
data RequestCancelExternalWorkflowExecutionFailedEventAttributes = RequestCancelExternalWorkflowExecutionFailedEventAttributes'
{ _rcewefeaControl :: !(Maybe Text)
, _rcewefeaRunId :: !(Maybe Text)
, _rcewefeaWorkflowId :: !Text
, _rcewefeaCause :: !RequestCancelExternalWorkflowExecutionFailedCause
, _rcewefeaInitiatedEventId :: !Integer
, _rcewefeaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
requestCancelExternalWorkflowExecutionFailedEventAttributes
:: Text
-> RequestCancelExternalWorkflowExecutionFailedCause
-> Integer
-> Integer
-> RequestCancelExternalWorkflowExecutionFailedEventAttributes
requestCancelExternalWorkflowExecutionFailedEventAttributes pWorkflowId_ pCause_ pInitiatedEventId_ pDecisionTaskCompletedEventId_ =
RequestCancelExternalWorkflowExecutionFailedEventAttributes'
{ _rcewefeaControl = Nothing
, _rcewefeaRunId = Nothing
, _rcewefeaWorkflowId = pWorkflowId_
, _rcewefeaCause = pCause_
, _rcewefeaInitiatedEventId = pInitiatedEventId_
, _rcewefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
rcewefeaControl :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes (Maybe Text)
rcewefeaControl = lens _rcewefeaControl (\ s a -> s{_rcewefeaControl = a});
rcewefeaRunId :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes (Maybe Text)
rcewefeaRunId = lens _rcewefeaRunId (\ s a -> s{_rcewefeaRunId = a});
rcewefeaWorkflowId :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes Text
rcewefeaWorkflowId = lens _rcewefeaWorkflowId (\ s a -> s{_rcewefeaWorkflowId = a});
rcewefeaCause :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes RequestCancelExternalWorkflowExecutionFailedCause
rcewefeaCause = lens _rcewefeaCause (\ s a -> s{_rcewefeaCause = a});
rcewefeaInitiatedEventId :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes Integer
rcewefeaInitiatedEventId = lens _rcewefeaInitiatedEventId (\ s a -> s{_rcewefeaInitiatedEventId = a});
rcewefeaDecisionTaskCompletedEventId :: Lens' RequestCancelExternalWorkflowExecutionFailedEventAttributes Integer
rcewefeaDecisionTaskCompletedEventId = lens _rcewefeaDecisionTaskCompletedEventId (\ s a -> s{_rcewefeaDecisionTaskCompletedEventId = a});
instance FromJSON
RequestCancelExternalWorkflowExecutionFailedEventAttributes
where
parseJSON
= withObject
"RequestCancelExternalWorkflowExecutionFailedEventAttributes"
(\ x ->
RequestCancelExternalWorkflowExecutionFailedEventAttributes'
<$>
(x .:? "control") <*> (x .:? "runId") <*>
(x .: "workflowId")
<*> (x .: "cause")
<*> (x .: "initiatedEventId")
<*> (x .: "decisionTaskCompletedEventId"))
data RequestCancelExternalWorkflowExecutionInitiatedEventAttributes = RequestCancelExternalWorkflowExecutionInitiatedEventAttributes'
{ _rceweieaControl :: !(Maybe Text)
, _rceweieaRunId :: !(Maybe Text)
, _rceweieaWorkflowId :: !Text
, _rceweieaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
requestCancelExternalWorkflowExecutionInitiatedEventAttributes
:: Text
-> Integer
-> RequestCancelExternalWorkflowExecutionInitiatedEventAttributes
requestCancelExternalWorkflowExecutionInitiatedEventAttributes pWorkflowId_ pDecisionTaskCompletedEventId_ =
RequestCancelExternalWorkflowExecutionInitiatedEventAttributes'
{ _rceweieaControl = Nothing
, _rceweieaRunId = Nothing
, _rceweieaWorkflowId = pWorkflowId_
, _rceweieaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
rceweieaControl :: Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text)
rceweieaControl = lens _rceweieaControl (\ s a -> s{_rceweieaControl = a});
rceweieaRunId :: Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text)
rceweieaRunId = lens _rceweieaRunId (\ s a -> s{_rceweieaRunId = a});
rceweieaWorkflowId :: Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes Text
rceweieaWorkflowId = lens _rceweieaWorkflowId (\ s a -> s{_rceweieaWorkflowId = a});
rceweieaDecisionTaskCompletedEventId :: Lens' RequestCancelExternalWorkflowExecutionInitiatedEventAttributes Integer
rceweieaDecisionTaskCompletedEventId = lens _rceweieaDecisionTaskCompletedEventId (\ s a -> s{_rceweieaDecisionTaskCompletedEventId = a});
instance FromJSON
RequestCancelExternalWorkflowExecutionInitiatedEventAttributes
where
parseJSON
= withObject
"RequestCancelExternalWorkflowExecutionInitiatedEventAttributes"
(\ x ->
RequestCancelExternalWorkflowExecutionInitiatedEventAttributes'
<$>
(x .:? "control") <*> (x .:? "runId") <*>
(x .: "workflowId")
<*> (x .: "decisionTaskCompletedEventId"))
data ScheduleActivityTaskDecisionAttributes = ScheduleActivityTaskDecisionAttributes'
{ _satdaControl :: !(Maybe Text)
, _satdaScheduleToCloseTimeout :: !(Maybe Text)
, _satdaHeartbeatTimeout :: !(Maybe Text)
, _satdaInput :: !(Maybe Text)
, _satdaTaskList :: !(Maybe TaskList)
, _satdaTaskPriority :: !(Maybe Text)
, _satdaScheduleToStartTimeout :: !(Maybe Text)
, _satdaStartToCloseTimeout :: !(Maybe Text)
, _satdaActivityType :: !ActivityType
, _satdaActivityId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
scheduleActivityTaskDecisionAttributes
:: ActivityType
-> Text
-> ScheduleActivityTaskDecisionAttributes
scheduleActivityTaskDecisionAttributes pActivityType_ pActivityId_ =
ScheduleActivityTaskDecisionAttributes'
{ _satdaControl = Nothing
, _satdaScheduleToCloseTimeout = Nothing
, _satdaHeartbeatTimeout = Nothing
, _satdaInput = Nothing
, _satdaTaskList = Nothing
, _satdaTaskPriority = Nothing
, _satdaScheduleToStartTimeout = Nothing
, _satdaStartToCloseTimeout = Nothing
, _satdaActivityType = pActivityType_
, _satdaActivityId = pActivityId_
}
satdaControl :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)
satdaControl = lens _satdaControl (\ s a -> s{_satdaControl = a});
satdaScheduleToCloseTimeout :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)
satdaScheduleToCloseTimeout = lens _satdaScheduleToCloseTimeout (\ s a -> s{_satdaScheduleToCloseTimeout = a});
satdaHeartbeatTimeout :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)
satdaHeartbeatTimeout = lens _satdaHeartbeatTimeout (\ s a -> s{_satdaHeartbeatTimeout = a});
satdaInput :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)
satdaInput = lens _satdaInput (\ s a -> s{_satdaInput = a});
satdaTaskList :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe TaskList)
satdaTaskList = lens _satdaTaskList (\ s a -> s{_satdaTaskList = a});
satdaTaskPriority :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)
satdaTaskPriority = lens _satdaTaskPriority (\ s a -> s{_satdaTaskPriority = a});
satdaScheduleToStartTimeout :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)
satdaScheduleToStartTimeout = lens _satdaScheduleToStartTimeout (\ s a -> s{_satdaScheduleToStartTimeout = a});
satdaStartToCloseTimeout :: Lens' ScheduleActivityTaskDecisionAttributes (Maybe Text)
satdaStartToCloseTimeout = lens _satdaStartToCloseTimeout (\ s a -> s{_satdaStartToCloseTimeout = a});
satdaActivityType :: Lens' ScheduleActivityTaskDecisionAttributes ActivityType
satdaActivityType = lens _satdaActivityType (\ s a -> s{_satdaActivityType = a});
satdaActivityId :: Lens' ScheduleActivityTaskDecisionAttributes Text
satdaActivityId = lens _satdaActivityId (\ s a -> s{_satdaActivityId = a});
instance ToJSON
ScheduleActivityTaskDecisionAttributes where
toJSON ScheduleActivityTaskDecisionAttributes'{..}
= object
(catMaybes
[("control" .=) <$> _satdaControl,
("scheduleToCloseTimeout" .=) <$>
_satdaScheduleToCloseTimeout,
("heartbeatTimeout" .=) <$> _satdaHeartbeatTimeout,
("input" .=) <$> _satdaInput,
("taskList" .=) <$> _satdaTaskList,
("taskPriority" .=) <$> _satdaTaskPriority,
("scheduleToStartTimeout" .=) <$>
_satdaScheduleToStartTimeout,
("startToCloseTimeout" .=) <$>
_satdaStartToCloseTimeout,
Just ("activityType" .= _satdaActivityType),
Just ("activityId" .= _satdaActivityId)])
data ScheduleActivityTaskFailedEventAttributes = ScheduleActivityTaskFailedEventAttributes'
{ _satfeaActivityType :: !ActivityType
, _satfeaActivityId :: !Text
, _satfeaCause :: !ScheduleActivityTaskFailedCause
, _satfeaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
scheduleActivityTaskFailedEventAttributes
:: ActivityType
-> Text
-> ScheduleActivityTaskFailedCause
-> Integer
-> ScheduleActivityTaskFailedEventAttributes
scheduleActivityTaskFailedEventAttributes pActivityType_ pActivityId_ pCause_ pDecisionTaskCompletedEventId_ =
ScheduleActivityTaskFailedEventAttributes'
{ _satfeaActivityType = pActivityType_
, _satfeaActivityId = pActivityId_
, _satfeaCause = pCause_
, _satfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
satfeaActivityType :: Lens' ScheduleActivityTaskFailedEventAttributes ActivityType
satfeaActivityType = lens _satfeaActivityType (\ s a -> s{_satfeaActivityType = a});
satfeaActivityId :: Lens' ScheduleActivityTaskFailedEventAttributes Text
satfeaActivityId = lens _satfeaActivityId (\ s a -> s{_satfeaActivityId = a});
satfeaCause :: Lens' ScheduleActivityTaskFailedEventAttributes ScheduleActivityTaskFailedCause
satfeaCause = lens _satfeaCause (\ s a -> s{_satfeaCause = a});
satfeaDecisionTaskCompletedEventId :: Lens' ScheduleActivityTaskFailedEventAttributes Integer
satfeaDecisionTaskCompletedEventId = lens _satfeaDecisionTaskCompletedEventId (\ s a -> s{_satfeaDecisionTaskCompletedEventId = a});
instance FromJSON
ScheduleActivityTaskFailedEventAttributes where
parseJSON
= withObject
"ScheduleActivityTaskFailedEventAttributes"
(\ x ->
ScheduleActivityTaskFailedEventAttributes' <$>
(x .: "activityType") <*> (x .: "activityId") <*>
(x .: "cause")
<*> (x .: "decisionTaskCompletedEventId"))
data ScheduleLambdaFunctionDecisionAttributes = ScheduleLambdaFunctionDecisionAttributes'
{ _slfdaInput :: !(Maybe Text)
, _slfdaStartToCloseTimeout :: !(Maybe Text)
, _slfdaId :: !Text
, _slfdaName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
scheduleLambdaFunctionDecisionAttributes
:: Text
-> Text
-> ScheduleLambdaFunctionDecisionAttributes
scheduleLambdaFunctionDecisionAttributes pId_ pName_ =
ScheduleLambdaFunctionDecisionAttributes'
{ _slfdaInput = Nothing
, _slfdaStartToCloseTimeout = Nothing
, _slfdaId = pId_
, _slfdaName = pName_
}
slfdaInput :: Lens' ScheduleLambdaFunctionDecisionAttributes (Maybe Text)
slfdaInput = lens _slfdaInput (\ s a -> s{_slfdaInput = a});
slfdaStartToCloseTimeout :: Lens' ScheduleLambdaFunctionDecisionAttributes (Maybe Text)
slfdaStartToCloseTimeout = lens _slfdaStartToCloseTimeout (\ s a -> s{_slfdaStartToCloseTimeout = a});
slfdaId :: Lens' ScheduleLambdaFunctionDecisionAttributes Text
slfdaId = lens _slfdaId (\ s a -> s{_slfdaId = a});
slfdaName :: Lens' ScheduleLambdaFunctionDecisionAttributes Text
slfdaName = lens _slfdaName (\ s a -> s{_slfdaName = a});
instance ToJSON
ScheduleLambdaFunctionDecisionAttributes where
toJSON ScheduleLambdaFunctionDecisionAttributes'{..}
= object
(catMaybes
[("input" .=) <$> _slfdaInput,
("startToCloseTimeout" .=) <$>
_slfdaStartToCloseTimeout,
Just ("id" .= _slfdaId),
Just ("name" .= _slfdaName)])
data ScheduleLambdaFunctionFailedEventAttributes = ScheduleLambdaFunctionFailedEventAttributes'
{ _slffeaId :: !Text
, _slffeaName :: !Text
, _slffeaCause :: !ScheduleLambdaFunctionFailedCause
, _slffeaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
scheduleLambdaFunctionFailedEventAttributes
:: Text
-> Text
-> ScheduleLambdaFunctionFailedCause
-> Integer
-> ScheduleLambdaFunctionFailedEventAttributes
scheduleLambdaFunctionFailedEventAttributes pId_ pName_ pCause_ pDecisionTaskCompletedEventId_ =
ScheduleLambdaFunctionFailedEventAttributes'
{ _slffeaId = pId_
, _slffeaName = pName_
, _slffeaCause = pCause_
, _slffeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
slffeaId :: Lens' ScheduleLambdaFunctionFailedEventAttributes Text
slffeaId = lens _slffeaId (\ s a -> s{_slffeaId = a});
slffeaName :: Lens' ScheduleLambdaFunctionFailedEventAttributes Text
slffeaName = lens _slffeaName (\ s a -> s{_slffeaName = a});
slffeaCause :: Lens' ScheduleLambdaFunctionFailedEventAttributes ScheduleLambdaFunctionFailedCause
slffeaCause = lens _slffeaCause (\ s a -> s{_slffeaCause = a});
slffeaDecisionTaskCompletedEventId :: Lens' ScheduleLambdaFunctionFailedEventAttributes Integer
slffeaDecisionTaskCompletedEventId = lens _slffeaDecisionTaskCompletedEventId (\ s a -> s{_slffeaDecisionTaskCompletedEventId = a});
instance FromJSON
ScheduleLambdaFunctionFailedEventAttributes where
parseJSON
= withObject
"ScheduleLambdaFunctionFailedEventAttributes"
(\ x ->
ScheduleLambdaFunctionFailedEventAttributes' <$>
(x .: "id") <*> (x .: "name") <*> (x .: "cause") <*>
(x .: "decisionTaskCompletedEventId"))
data SignalExternalWorkflowExecutionDecisionAttributes = SignalExternalWorkflowExecutionDecisionAttributes'
{ _sewedaControl :: !(Maybe Text)
, _sewedaInput :: !(Maybe Text)
, _sewedaRunId :: !(Maybe Text)
, _sewedaWorkflowId :: !Text
, _sewedaSignalName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
signalExternalWorkflowExecutionDecisionAttributes
:: Text
-> Text
-> SignalExternalWorkflowExecutionDecisionAttributes
signalExternalWorkflowExecutionDecisionAttributes pWorkflowId_ pSignalName_ =
SignalExternalWorkflowExecutionDecisionAttributes'
{ _sewedaControl = Nothing
, _sewedaInput = Nothing
, _sewedaRunId = Nothing
, _sewedaWorkflowId = pWorkflowId_
, _sewedaSignalName = pSignalName_
}
sewedaControl :: Lens' SignalExternalWorkflowExecutionDecisionAttributes (Maybe Text)
sewedaControl = lens _sewedaControl (\ s a -> s{_sewedaControl = a});
sewedaInput :: Lens' SignalExternalWorkflowExecutionDecisionAttributes (Maybe Text)
sewedaInput = lens _sewedaInput (\ s a -> s{_sewedaInput = a});
sewedaRunId :: Lens' SignalExternalWorkflowExecutionDecisionAttributes (Maybe Text)
sewedaRunId = lens _sewedaRunId (\ s a -> s{_sewedaRunId = a});
sewedaWorkflowId :: Lens' SignalExternalWorkflowExecutionDecisionAttributes Text
sewedaWorkflowId = lens _sewedaWorkflowId (\ s a -> s{_sewedaWorkflowId = a});
sewedaSignalName :: Lens' SignalExternalWorkflowExecutionDecisionAttributes Text
sewedaSignalName = lens _sewedaSignalName (\ s a -> s{_sewedaSignalName = a});
instance ToJSON
SignalExternalWorkflowExecutionDecisionAttributes
where
toJSON
SignalExternalWorkflowExecutionDecisionAttributes'{..}
= object
(catMaybes
[("control" .=) <$> _sewedaControl,
("input" .=) <$> _sewedaInput,
("runId" .=) <$> _sewedaRunId,
Just ("workflowId" .= _sewedaWorkflowId),
Just ("signalName" .= _sewedaSignalName)])
data SignalExternalWorkflowExecutionFailedEventAttributes = SignalExternalWorkflowExecutionFailedEventAttributes'
{ _sewefeaControl :: !(Maybe Text)
, _sewefeaRunId :: !(Maybe Text)
, _sewefeaWorkflowId :: !Text
, _sewefeaCause :: !SignalExternalWorkflowExecutionFailedCause
, _sewefeaInitiatedEventId :: !Integer
, _sewefeaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
signalExternalWorkflowExecutionFailedEventAttributes
:: Text
-> SignalExternalWorkflowExecutionFailedCause
-> Integer
-> Integer
-> SignalExternalWorkflowExecutionFailedEventAttributes
signalExternalWorkflowExecutionFailedEventAttributes pWorkflowId_ pCause_ pInitiatedEventId_ pDecisionTaskCompletedEventId_ =
SignalExternalWorkflowExecutionFailedEventAttributes'
{ _sewefeaControl = Nothing
, _sewefeaRunId = Nothing
, _sewefeaWorkflowId = pWorkflowId_
, _sewefeaCause = pCause_
, _sewefeaInitiatedEventId = pInitiatedEventId_
, _sewefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
sewefeaControl :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes (Maybe Text)
sewefeaControl = lens _sewefeaControl (\ s a -> s{_sewefeaControl = a});
sewefeaRunId :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes (Maybe Text)
sewefeaRunId = lens _sewefeaRunId (\ s a -> s{_sewefeaRunId = a});
sewefeaWorkflowId :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes Text
sewefeaWorkflowId = lens _sewefeaWorkflowId (\ s a -> s{_sewefeaWorkflowId = a});
sewefeaCause :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes SignalExternalWorkflowExecutionFailedCause
sewefeaCause = lens _sewefeaCause (\ s a -> s{_sewefeaCause = a});
sewefeaInitiatedEventId :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes Integer
sewefeaInitiatedEventId = lens _sewefeaInitiatedEventId (\ s a -> s{_sewefeaInitiatedEventId = a});
sewefeaDecisionTaskCompletedEventId :: Lens' SignalExternalWorkflowExecutionFailedEventAttributes Integer
sewefeaDecisionTaskCompletedEventId = lens _sewefeaDecisionTaskCompletedEventId (\ s a -> s{_sewefeaDecisionTaskCompletedEventId = a});
instance FromJSON
SignalExternalWorkflowExecutionFailedEventAttributes
where
parseJSON
= withObject
"SignalExternalWorkflowExecutionFailedEventAttributes"
(\ x ->
SignalExternalWorkflowExecutionFailedEventAttributes'
<$>
(x .:? "control") <*> (x .:? "runId") <*>
(x .: "workflowId")
<*> (x .: "cause")
<*> (x .: "initiatedEventId")
<*> (x .: "decisionTaskCompletedEventId"))
data SignalExternalWorkflowExecutionInitiatedEventAttributes = SignalExternalWorkflowExecutionInitiatedEventAttributes'
{ _seweieaControl :: !(Maybe Text)
, _seweieaInput :: !(Maybe Text)
, _seweieaRunId :: !(Maybe Text)
, _seweieaWorkflowId :: !Text
, _seweieaSignalName :: !Text
, _seweieaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
signalExternalWorkflowExecutionInitiatedEventAttributes
:: Text
-> Text
-> Integer
-> SignalExternalWorkflowExecutionInitiatedEventAttributes
signalExternalWorkflowExecutionInitiatedEventAttributes pWorkflowId_ pSignalName_ pDecisionTaskCompletedEventId_ =
SignalExternalWorkflowExecutionInitiatedEventAttributes'
{ _seweieaControl = Nothing
, _seweieaInput = Nothing
, _seweieaRunId = Nothing
, _seweieaWorkflowId = pWorkflowId_
, _seweieaSignalName = pSignalName_
, _seweieaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
seweieaControl :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text)
seweieaControl = lens _seweieaControl (\ s a -> s{_seweieaControl = a});
seweieaInput :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text)
seweieaInput = lens _seweieaInput (\ s a -> s{_seweieaInput = a});
seweieaRunId :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes (Maybe Text)
seweieaRunId = lens _seweieaRunId (\ s a -> s{_seweieaRunId = a});
seweieaWorkflowId :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes Text
seweieaWorkflowId = lens _seweieaWorkflowId (\ s a -> s{_seweieaWorkflowId = a});
seweieaSignalName :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes Text
seweieaSignalName = lens _seweieaSignalName (\ s a -> s{_seweieaSignalName = a});
seweieaDecisionTaskCompletedEventId :: Lens' SignalExternalWorkflowExecutionInitiatedEventAttributes Integer
seweieaDecisionTaskCompletedEventId = lens _seweieaDecisionTaskCompletedEventId (\ s a -> s{_seweieaDecisionTaskCompletedEventId = a});
instance FromJSON
SignalExternalWorkflowExecutionInitiatedEventAttributes
where
parseJSON
= withObject
"SignalExternalWorkflowExecutionInitiatedEventAttributes"
(\ x ->
SignalExternalWorkflowExecutionInitiatedEventAttributes'
<$>
(x .:? "control") <*> (x .:? "input") <*>
(x .:? "runId")
<*> (x .: "workflowId")
<*> (x .: "signalName")
<*> (x .: "decisionTaskCompletedEventId"))
data StartChildWorkflowExecutionDecisionAttributes = StartChildWorkflowExecutionDecisionAttributes'
{ _scwedaControl :: !(Maybe Text)
, _scwedaTagList :: !(Maybe [Text])
, _scwedaTaskStartToCloseTimeout :: !(Maybe Text)
, _scwedaLambdaRole :: !(Maybe Text)
, _scwedaInput :: !(Maybe Text)
, _scwedaExecutionStartToCloseTimeout :: !(Maybe Text)
, _scwedaTaskList :: !(Maybe TaskList)
, _scwedaTaskPriority :: !(Maybe Text)
, _scwedaChildPolicy :: !(Maybe ChildPolicy)
, _scwedaWorkflowType :: !WorkflowType
, _scwedaWorkflowId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
startChildWorkflowExecutionDecisionAttributes
:: WorkflowType
-> Text
-> StartChildWorkflowExecutionDecisionAttributes
startChildWorkflowExecutionDecisionAttributes pWorkflowType_ pWorkflowId_ =
StartChildWorkflowExecutionDecisionAttributes'
{ _scwedaControl = Nothing
, _scwedaTagList = Nothing
, _scwedaTaskStartToCloseTimeout = Nothing
, _scwedaLambdaRole = Nothing
, _scwedaInput = Nothing
, _scwedaExecutionStartToCloseTimeout = Nothing
, _scwedaTaskList = Nothing
, _scwedaTaskPriority = Nothing
, _scwedaChildPolicy = Nothing
, _scwedaWorkflowType = pWorkflowType_
, _scwedaWorkflowId = pWorkflowId_
}
scwedaControl :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)
scwedaControl = lens _scwedaControl (\ s a -> s{_scwedaControl = a});
scwedaTagList :: Lens' StartChildWorkflowExecutionDecisionAttributes [Text]
scwedaTagList = lens _scwedaTagList (\ s a -> s{_scwedaTagList = a}) . _Default . _Coerce;
scwedaTaskStartToCloseTimeout :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)
scwedaTaskStartToCloseTimeout = lens _scwedaTaskStartToCloseTimeout (\ s a -> s{_scwedaTaskStartToCloseTimeout = a});
scwedaLambdaRole :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)
scwedaLambdaRole = lens _scwedaLambdaRole (\ s a -> s{_scwedaLambdaRole = a});
scwedaInput :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)
scwedaInput = lens _scwedaInput (\ s a -> s{_scwedaInput = a});
scwedaExecutionStartToCloseTimeout :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)
scwedaExecutionStartToCloseTimeout = lens _scwedaExecutionStartToCloseTimeout (\ s a -> s{_scwedaExecutionStartToCloseTimeout = a});
scwedaTaskList :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe TaskList)
scwedaTaskList = lens _scwedaTaskList (\ s a -> s{_scwedaTaskList = a});
scwedaTaskPriority :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe Text)
scwedaTaskPriority = lens _scwedaTaskPriority (\ s a -> s{_scwedaTaskPriority = a});
scwedaChildPolicy :: Lens' StartChildWorkflowExecutionDecisionAttributes (Maybe ChildPolicy)
scwedaChildPolicy = lens _scwedaChildPolicy (\ s a -> s{_scwedaChildPolicy = a});
scwedaWorkflowType :: Lens' StartChildWorkflowExecutionDecisionAttributes WorkflowType
scwedaWorkflowType = lens _scwedaWorkflowType (\ s a -> s{_scwedaWorkflowType = a});
scwedaWorkflowId :: Lens' StartChildWorkflowExecutionDecisionAttributes Text
scwedaWorkflowId = lens _scwedaWorkflowId (\ s a -> s{_scwedaWorkflowId = a});
instance ToJSON
StartChildWorkflowExecutionDecisionAttributes where
toJSON
StartChildWorkflowExecutionDecisionAttributes'{..}
= object
(catMaybes
[("control" .=) <$> _scwedaControl,
("tagList" .=) <$> _scwedaTagList,
("taskStartToCloseTimeout" .=) <$>
_scwedaTaskStartToCloseTimeout,
("lambdaRole" .=) <$> _scwedaLambdaRole,
("input" .=) <$> _scwedaInput,
("executionStartToCloseTimeout" .=) <$>
_scwedaExecutionStartToCloseTimeout,
("taskList" .=) <$> _scwedaTaskList,
("taskPriority" .=) <$> _scwedaTaskPriority,
("childPolicy" .=) <$> _scwedaChildPolicy,
Just ("workflowType" .= _scwedaWorkflowType),
Just ("workflowId" .= _scwedaWorkflowId)])
data StartChildWorkflowExecutionFailedEventAttributes = StartChildWorkflowExecutionFailedEventAttributes'
{ _scwefeaControl :: !(Maybe Text)
, _scwefeaWorkflowType :: !WorkflowType
, _scwefeaCause :: !StartChildWorkflowExecutionFailedCause
, _scwefeaWorkflowId :: !Text
, _scwefeaInitiatedEventId :: !Integer
, _scwefeaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
startChildWorkflowExecutionFailedEventAttributes
:: WorkflowType
-> StartChildWorkflowExecutionFailedCause
-> Text
-> Integer
-> Integer
-> StartChildWorkflowExecutionFailedEventAttributes
startChildWorkflowExecutionFailedEventAttributes pWorkflowType_ pCause_ pWorkflowId_ pInitiatedEventId_ pDecisionTaskCompletedEventId_ =
StartChildWorkflowExecutionFailedEventAttributes'
{ _scwefeaControl = Nothing
, _scwefeaWorkflowType = pWorkflowType_
, _scwefeaCause = pCause_
, _scwefeaWorkflowId = pWorkflowId_
, _scwefeaInitiatedEventId = pInitiatedEventId_
, _scwefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
scwefeaControl :: Lens' StartChildWorkflowExecutionFailedEventAttributes (Maybe Text)
scwefeaControl = lens _scwefeaControl (\ s a -> s{_scwefeaControl = a});
scwefeaWorkflowType :: Lens' StartChildWorkflowExecutionFailedEventAttributes WorkflowType
scwefeaWorkflowType = lens _scwefeaWorkflowType (\ s a -> s{_scwefeaWorkflowType = a});
scwefeaCause :: Lens' StartChildWorkflowExecutionFailedEventAttributes StartChildWorkflowExecutionFailedCause
scwefeaCause = lens _scwefeaCause (\ s a -> s{_scwefeaCause = a});
scwefeaWorkflowId :: Lens' StartChildWorkflowExecutionFailedEventAttributes Text
scwefeaWorkflowId = lens _scwefeaWorkflowId (\ s a -> s{_scwefeaWorkflowId = a});
scwefeaInitiatedEventId :: Lens' StartChildWorkflowExecutionFailedEventAttributes Integer
scwefeaInitiatedEventId = lens _scwefeaInitiatedEventId (\ s a -> s{_scwefeaInitiatedEventId = a});
scwefeaDecisionTaskCompletedEventId :: Lens' StartChildWorkflowExecutionFailedEventAttributes Integer
scwefeaDecisionTaskCompletedEventId = lens _scwefeaDecisionTaskCompletedEventId (\ s a -> s{_scwefeaDecisionTaskCompletedEventId = a});
instance FromJSON
StartChildWorkflowExecutionFailedEventAttributes
where
parseJSON
= withObject
"StartChildWorkflowExecutionFailedEventAttributes"
(\ x ->
StartChildWorkflowExecutionFailedEventAttributes' <$>
(x .:? "control") <*> (x .: "workflowType") <*>
(x .: "cause")
<*> (x .: "workflowId")
<*> (x .: "initiatedEventId")
<*> (x .: "decisionTaskCompletedEventId"))
data StartChildWorkflowExecutionInitiatedEventAttributes = StartChildWorkflowExecutionInitiatedEventAttributes'
{ _scweieaControl :: !(Maybe Text)
, _scweieaTagList :: !(Maybe [Text])
, _scweieaTaskStartToCloseTimeout :: !(Maybe Text)
, _scweieaLambdaRole :: !(Maybe Text)
, _scweieaInput :: !(Maybe Text)
, _scweieaExecutionStartToCloseTimeout :: !(Maybe Text)
, _scweieaTaskPriority :: !(Maybe Text)
, _scweieaWorkflowId :: !Text
, _scweieaWorkflowType :: !WorkflowType
, _scweieaTaskList :: !TaskList
, _scweieaDecisionTaskCompletedEventId :: !Integer
, _scweieaChildPolicy :: !ChildPolicy
} deriving (Eq,Read,Show,Data,Typeable,Generic)
startChildWorkflowExecutionInitiatedEventAttributes
:: Text
-> WorkflowType
-> TaskList
-> Integer
-> ChildPolicy
-> StartChildWorkflowExecutionInitiatedEventAttributes
startChildWorkflowExecutionInitiatedEventAttributes pWorkflowId_ pWorkflowType_ pTaskList_ pDecisionTaskCompletedEventId_ pChildPolicy_ =
StartChildWorkflowExecutionInitiatedEventAttributes'
{ _scweieaControl = Nothing
, _scweieaTagList = Nothing
, _scweieaTaskStartToCloseTimeout = Nothing
, _scweieaLambdaRole = Nothing
, _scweieaInput = Nothing
, _scweieaExecutionStartToCloseTimeout = Nothing
, _scweieaTaskPriority = Nothing
, _scweieaWorkflowId = pWorkflowId_
, _scweieaWorkflowType = pWorkflowType_
, _scweieaTaskList = pTaskList_
, _scweieaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
, _scweieaChildPolicy = pChildPolicy_
}
scweieaControl :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)
scweieaControl = lens _scweieaControl (\ s a -> s{_scweieaControl = a});
scweieaTagList :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes [Text]
scweieaTagList = lens _scweieaTagList (\ s a -> s{_scweieaTagList = a}) . _Default . _Coerce;
scweieaTaskStartToCloseTimeout :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)
scweieaTaskStartToCloseTimeout = lens _scweieaTaskStartToCloseTimeout (\ s a -> s{_scweieaTaskStartToCloseTimeout = a});
scweieaLambdaRole :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)
scweieaLambdaRole = lens _scweieaLambdaRole (\ s a -> s{_scweieaLambdaRole = a});
scweieaInput :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)
scweieaInput = lens _scweieaInput (\ s a -> s{_scweieaInput = a});
scweieaExecutionStartToCloseTimeout :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)
scweieaExecutionStartToCloseTimeout = lens _scweieaExecutionStartToCloseTimeout (\ s a -> s{_scweieaExecutionStartToCloseTimeout = a});
scweieaTaskPriority :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes (Maybe Text)
scweieaTaskPriority = lens _scweieaTaskPriority (\ s a -> s{_scweieaTaskPriority = a});
scweieaWorkflowId :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes Text
scweieaWorkflowId = lens _scweieaWorkflowId (\ s a -> s{_scweieaWorkflowId = a});
scweieaWorkflowType :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes WorkflowType
scweieaWorkflowType = lens _scweieaWorkflowType (\ s a -> s{_scweieaWorkflowType = a});
scweieaTaskList :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes TaskList
scweieaTaskList = lens _scweieaTaskList (\ s a -> s{_scweieaTaskList = a});
scweieaDecisionTaskCompletedEventId :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes Integer
scweieaDecisionTaskCompletedEventId = lens _scweieaDecisionTaskCompletedEventId (\ s a -> s{_scweieaDecisionTaskCompletedEventId = a});
scweieaChildPolicy :: Lens' StartChildWorkflowExecutionInitiatedEventAttributes ChildPolicy
scweieaChildPolicy = lens _scweieaChildPolicy (\ s a -> s{_scweieaChildPolicy = a});
instance FromJSON
StartChildWorkflowExecutionInitiatedEventAttributes
where
parseJSON
= withObject
"StartChildWorkflowExecutionInitiatedEventAttributes"
(\ x ->
StartChildWorkflowExecutionInitiatedEventAttributes'
<$>
(x .:? "control") <*> (x .:? "tagList" .!= mempty)
<*> (x .:? "taskStartToCloseTimeout")
<*> (x .:? "lambdaRole")
<*> (x .:? "input")
<*> (x .:? "executionStartToCloseTimeout")
<*> (x .:? "taskPriority")
<*> (x .: "workflowId")
<*> (x .: "workflowType")
<*> (x .: "taskList")
<*> (x .: "decisionTaskCompletedEventId")
<*> (x .: "childPolicy"))
data StartLambdaFunctionFailedEventAttributes = StartLambdaFunctionFailedEventAttributes'
{ _sScheduledEventId :: !(Maybe Integer)
, _sCause :: !(Maybe StartLambdaFunctionFailedCause)
, _sMessage :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
startLambdaFunctionFailedEventAttributes
:: StartLambdaFunctionFailedEventAttributes
startLambdaFunctionFailedEventAttributes =
StartLambdaFunctionFailedEventAttributes'
{ _sScheduledEventId = Nothing
, _sCause = Nothing
, _sMessage = Nothing
}
sScheduledEventId :: Lens' StartLambdaFunctionFailedEventAttributes (Maybe Integer)
sScheduledEventId = lens _sScheduledEventId (\ s a -> s{_sScheduledEventId = a});
sCause :: Lens' StartLambdaFunctionFailedEventAttributes (Maybe StartLambdaFunctionFailedCause)
sCause = lens _sCause (\ s a -> s{_sCause = a});
sMessage :: Lens' StartLambdaFunctionFailedEventAttributes (Maybe Text)
sMessage = lens _sMessage (\ s a -> s{_sMessage = a});
instance FromJSON
StartLambdaFunctionFailedEventAttributes where
parseJSON
= withObject
"StartLambdaFunctionFailedEventAttributes"
(\ x ->
StartLambdaFunctionFailedEventAttributes' <$>
(x .:? "scheduledEventId") <*> (x .:? "cause") <*>
(x .:? "message"))
data StartTimerDecisionAttributes = StartTimerDecisionAttributes'
{ _stdaControl :: !(Maybe Text)
, _stdaTimerId :: !Text
, _stdaStartToFireTimeout :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
startTimerDecisionAttributes
:: Text
-> Text
-> StartTimerDecisionAttributes
startTimerDecisionAttributes pTimerId_ pStartToFireTimeout_ =
StartTimerDecisionAttributes'
{ _stdaControl = Nothing
, _stdaTimerId = pTimerId_
, _stdaStartToFireTimeout = pStartToFireTimeout_
}
stdaControl :: Lens' StartTimerDecisionAttributes (Maybe Text)
stdaControl = lens _stdaControl (\ s a -> s{_stdaControl = a});
stdaTimerId :: Lens' StartTimerDecisionAttributes Text
stdaTimerId = lens _stdaTimerId (\ s a -> s{_stdaTimerId = a});
stdaStartToFireTimeout :: Lens' StartTimerDecisionAttributes Text
stdaStartToFireTimeout = lens _stdaStartToFireTimeout (\ s a -> s{_stdaStartToFireTimeout = a});
instance ToJSON StartTimerDecisionAttributes where
toJSON StartTimerDecisionAttributes'{..}
= object
(catMaybes
[("control" .=) <$> _stdaControl,
Just ("timerId" .= _stdaTimerId),
Just
("startToFireTimeout" .= _stdaStartToFireTimeout)])
data StartTimerFailedEventAttributes = StartTimerFailedEventAttributes'
{ _stfeaTimerId :: !Text
, _stfeaCause :: !StartTimerFailedCause
, _stfeaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
startTimerFailedEventAttributes
:: Text
-> StartTimerFailedCause
-> Integer
-> StartTimerFailedEventAttributes
startTimerFailedEventAttributes pTimerId_ pCause_ pDecisionTaskCompletedEventId_ =
StartTimerFailedEventAttributes'
{ _stfeaTimerId = pTimerId_
, _stfeaCause = pCause_
, _stfeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
stfeaTimerId :: Lens' StartTimerFailedEventAttributes Text
stfeaTimerId = lens _stfeaTimerId (\ s a -> s{_stfeaTimerId = a});
stfeaCause :: Lens' StartTimerFailedEventAttributes StartTimerFailedCause
stfeaCause = lens _stfeaCause (\ s a -> s{_stfeaCause = a});
stfeaDecisionTaskCompletedEventId :: Lens' StartTimerFailedEventAttributes Integer
stfeaDecisionTaskCompletedEventId = lens _stfeaDecisionTaskCompletedEventId (\ s a -> s{_stfeaDecisionTaskCompletedEventId = a});
instance FromJSON StartTimerFailedEventAttributes
where
parseJSON
= withObject "StartTimerFailedEventAttributes"
(\ x ->
StartTimerFailedEventAttributes' <$>
(x .: "timerId") <*> (x .: "cause") <*>
(x .: "decisionTaskCompletedEventId"))
newtype TagFilter = TagFilter'
{ _tfTag :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
tagFilter
:: Text
-> TagFilter
tagFilter pTag_ =
TagFilter'
{ _tfTag = pTag_
}
tfTag :: Lens' TagFilter Text
tfTag = lens _tfTag (\ s a -> s{_tfTag = a});
instance ToJSON TagFilter where
toJSON TagFilter'{..}
= object (catMaybes [Just ("tag" .= _tfTag)])
newtype TaskList = TaskList'
{ _tlName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
taskList
:: Text
-> TaskList
taskList pName_ =
TaskList'
{ _tlName = pName_
}
tlName :: Lens' TaskList Text
tlName = lens _tlName (\ s a -> s{_tlName = a});
instance FromJSON TaskList where
parseJSON
= withObject "TaskList"
(\ x -> TaskList' <$> (x .: "name"))
instance ToJSON TaskList where
toJSON TaskList'{..}
= object (catMaybes [Just ("name" .= _tlName)])
data TimerCanceledEventAttributes = TimerCanceledEventAttributes'
{ _tceaTimerId :: !Text
, _tceaStartedEventId :: !Integer
, _tceaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
timerCanceledEventAttributes
:: Text
-> Integer
-> Integer
-> TimerCanceledEventAttributes
timerCanceledEventAttributes pTimerId_ pStartedEventId_ pDecisionTaskCompletedEventId_ =
TimerCanceledEventAttributes'
{ _tceaTimerId = pTimerId_
, _tceaStartedEventId = pStartedEventId_
, _tceaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
tceaTimerId :: Lens' TimerCanceledEventAttributes Text
tceaTimerId = lens _tceaTimerId (\ s a -> s{_tceaTimerId = a});
tceaStartedEventId :: Lens' TimerCanceledEventAttributes Integer
tceaStartedEventId = lens _tceaStartedEventId (\ s a -> s{_tceaStartedEventId = a});
tceaDecisionTaskCompletedEventId :: Lens' TimerCanceledEventAttributes Integer
tceaDecisionTaskCompletedEventId = lens _tceaDecisionTaskCompletedEventId (\ s a -> s{_tceaDecisionTaskCompletedEventId = a});
instance FromJSON TimerCanceledEventAttributes where
parseJSON
= withObject "TimerCanceledEventAttributes"
(\ x ->
TimerCanceledEventAttributes' <$>
(x .: "timerId") <*> (x .: "startedEventId") <*>
(x .: "decisionTaskCompletedEventId"))
data TimerFiredEventAttributes = TimerFiredEventAttributes'
{ _tfeaTimerId :: !Text
, _tfeaStartedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
timerFiredEventAttributes
:: Text
-> Integer
-> TimerFiredEventAttributes
timerFiredEventAttributes pTimerId_ pStartedEventId_ =
TimerFiredEventAttributes'
{ _tfeaTimerId = pTimerId_
, _tfeaStartedEventId = pStartedEventId_
}
tfeaTimerId :: Lens' TimerFiredEventAttributes Text
tfeaTimerId = lens _tfeaTimerId (\ s a -> s{_tfeaTimerId = a});
tfeaStartedEventId :: Lens' TimerFiredEventAttributes Integer
tfeaStartedEventId = lens _tfeaStartedEventId (\ s a -> s{_tfeaStartedEventId = a});
instance FromJSON TimerFiredEventAttributes where
parseJSON
= withObject "TimerFiredEventAttributes"
(\ x ->
TimerFiredEventAttributes' <$>
(x .: "timerId") <*> (x .: "startedEventId"))
data TimerStartedEventAttributes = TimerStartedEventAttributes'
{ _tseaControl :: !(Maybe Text)
, _tseaTimerId :: !Text
, _tseaStartToFireTimeout :: !Text
, _tseaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
timerStartedEventAttributes
:: Text
-> Text
-> Integer
-> TimerStartedEventAttributes
timerStartedEventAttributes pTimerId_ pStartToFireTimeout_ pDecisionTaskCompletedEventId_ =
TimerStartedEventAttributes'
{ _tseaControl = Nothing
, _tseaTimerId = pTimerId_
, _tseaStartToFireTimeout = pStartToFireTimeout_
, _tseaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
tseaControl :: Lens' TimerStartedEventAttributes (Maybe Text)
tseaControl = lens _tseaControl (\ s a -> s{_tseaControl = a});
tseaTimerId :: Lens' TimerStartedEventAttributes Text
tseaTimerId = lens _tseaTimerId (\ s a -> s{_tseaTimerId = a});
tseaStartToFireTimeout :: Lens' TimerStartedEventAttributes Text
tseaStartToFireTimeout = lens _tseaStartToFireTimeout (\ s a -> s{_tseaStartToFireTimeout = a});
tseaDecisionTaskCompletedEventId :: Lens' TimerStartedEventAttributes Integer
tseaDecisionTaskCompletedEventId = lens _tseaDecisionTaskCompletedEventId (\ s a -> s{_tseaDecisionTaskCompletedEventId = a});
instance FromJSON TimerStartedEventAttributes where
parseJSON
= withObject "TimerStartedEventAttributes"
(\ x ->
TimerStartedEventAttributes' <$>
(x .:? "control") <*> (x .: "timerId") <*>
(x .: "startToFireTimeout")
<*> (x .: "decisionTaskCompletedEventId"))
data WorkflowExecution = WorkflowExecution'
{ _weWorkflowId :: !Text
, _weRunId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowExecution
:: Text
-> Text
-> WorkflowExecution
workflowExecution pWorkflowId_ pRunId_ =
WorkflowExecution'
{ _weWorkflowId = pWorkflowId_
, _weRunId = pRunId_
}
weWorkflowId :: Lens' WorkflowExecution Text
weWorkflowId = lens _weWorkflowId (\ s a -> s{_weWorkflowId = a});
weRunId :: Lens' WorkflowExecution Text
weRunId = lens _weRunId (\ s a -> s{_weRunId = a});
instance FromJSON WorkflowExecution where
parseJSON
= withObject "WorkflowExecution"
(\ x ->
WorkflowExecution' <$>
(x .: "workflowId") <*> (x .: "runId"))
instance ToJSON WorkflowExecution where
toJSON WorkflowExecution'{..}
= object
(catMaybes
[Just ("workflowId" .= _weWorkflowId),
Just ("runId" .= _weRunId)])
data WorkflowExecutionCancelRequestedEventAttributes = WorkflowExecutionCancelRequestedEventAttributes'
{ _wecreaExternalWorkflowExecution :: !(Maybe WorkflowExecution)
, _wecreaExternalInitiatedEventId :: !(Maybe Integer)
, _wecreaCause :: !(Maybe WorkflowExecutionCancelRequestedCause)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowExecutionCancelRequestedEventAttributes
:: WorkflowExecutionCancelRequestedEventAttributes
workflowExecutionCancelRequestedEventAttributes =
WorkflowExecutionCancelRequestedEventAttributes'
{ _wecreaExternalWorkflowExecution = Nothing
, _wecreaExternalInitiatedEventId = Nothing
, _wecreaCause = Nothing
}
wecreaExternalWorkflowExecution :: Lens' WorkflowExecutionCancelRequestedEventAttributes (Maybe WorkflowExecution)
wecreaExternalWorkflowExecution = lens _wecreaExternalWorkflowExecution (\ s a -> s{_wecreaExternalWorkflowExecution = a});
wecreaExternalInitiatedEventId :: Lens' WorkflowExecutionCancelRequestedEventAttributes (Maybe Integer)
wecreaExternalInitiatedEventId = lens _wecreaExternalInitiatedEventId (\ s a -> s{_wecreaExternalInitiatedEventId = a});
wecreaCause :: Lens' WorkflowExecutionCancelRequestedEventAttributes (Maybe WorkflowExecutionCancelRequestedCause)
wecreaCause = lens _wecreaCause (\ s a -> s{_wecreaCause = a});
instance FromJSON
WorkflowExecutionCancelRequestedEventAttributes where
parseJSON
= withObject
"WorkflowExecutionCancelRequestedEventAttributes"
(\ x ->
WorkflowExecutionCancelRequestedEventAttributes' <$>
(x .:? "externalWorkflowExecution") <*>
(x .:? "externalInitiatedEventId")
<*> (x .:? "cause"))
data WorkflowExecutionCanceledEventAttributes = WorkflowExecutionCanceledEventAttributes'
{ _wDetails :: !(Maybe Text)
, _wDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowExecutionCanceledEventAttributes
:: Integer
-> WorkflowExecutionCanceledEventAttributes
workflowExecutionCanceledEventAttributes pDecisionTaskCompletedEventId_ =
WorkflowExecutionCanceledEventAttributes'
{ _wDetails = Nothing
, _wDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
wDetails :: Lens' WorkflowExecutionCanceledEventAttributes (Maybe Text)
wDetails = lens _wDetails (\ s a -> s{_wDetails = a});
wDecisionTaskCompletedEventId :: Lens' WorkflowExecutionCanceledEventAttributes Integer
wDecisionTaskCompletedEventId = lens _wDecisionTaskCompletedEventId (\ s a -> s{_wDecisionTaskCompletedEventId = a});
instance FromJSON
WorkflowExecutionCanceledEventAttributes where
parseJSON
= withObject
"WorkflowExecutionCanceledEventAttributes"
(\ x ->
WorkflowExecutionCanceledEventAttributes' <$>
(x .:? "details") <*>
(x .: "decisionTaskCompletedEventId"))
data WorkflowExecutionCompletedEventAttributes = WorkflowExecutionCompletedEventAttributes'
{ _weceaResult :: !(Maybe Text)
, _weceaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowExecutionCompletedEventAttributes
:: Integer
-> WorkflowExecutionCompletedEventAttributes
workflowExecutionCompletedEventAttributes pDecisionTaskCompletedEventId_ =
WorkflowExecutionCompletedEventAttributes'
{ _weceaResult = Nothing
, _weceaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
weceaResult :: Lens' WorkflowExecutionCompletedEventAttributes (Maybe Text)
weceaResult = lens _weceaResult (\ s a -> s{_weceaResult = a});
weceaDecisionTaskCompletedEventId :: Lens' WorkflowExecutionCompletedEventAttributes Integer
weceaDecisionTaskCompletedEventId = lens _weceaDecisionTaskCompletedEventId (\ s a -> s{_weceaDecisionTaskCompletedEventId = a});
instance FromJSON
WorkflowExecutionCompletedEventAttributes where
parseJSON
= withObject
"WorkflowExecutionCompletedEventAttributes"
(\ x ->
WorkflowExecutionCompletedEventAttributes' <$>
(x .:? "result") <*>
(x .: "decisionTaskCompletedEventId"))
data WorkflowExecutionConfiguration = WorkflowExecutionConfiguration'
{ _wecLambdaRole :: !(Maybe Text)
, _wecTaskPriority :: !(Maybe Text)
, _wecTaskStartToCloseTimeout :: !Text
, _wecExecutionStartToCloseTimeout :: !Text
, _wecTaskList :: !TaskList
, _wecChildPolicy :: !ChildPolicy
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowExecutionConfiguration
:: Text
-> Text
-> TaskList
-> ChildPolicy
-> WorkflowExecutionConfiguration
workflowExecutionConfiguration pTaskStartToCloseTimeout_ pExecutionStartToCloseTimeout_ pTaskList_ pChildPolicy_ =
WorkflowExecutionConfiguration'
{ _wecLambdaRole = Nothing
, _wecTaskPriority = Nothing
, _wecTaskStartToCloseTimeout = pTaskStartToCloseTimeout_
, _wecExecutionStartToCloseTimeout = pExecutionStartToCloseTimeout_
, _wecTaskList = pTaskList_
, _wecChildPolicy = pChildPolicy_
}
wecLambdaRole :: Lens' WorkflowExecutionConfiguration (Maybe Text)
wecLambdaRole = lens _wecLambdaRole (\ s a -> s{_wecLambdaRole = a});
wecTaskPriority :: Lens' WorkflowExecutionConfiguration (Maybe Text)
wecTaskPriority = lens _wecTaskPriority (\ s a -> s{_wecTaskPriority = a});
wecTaskStartToCloseTimeout :: Lens' WorkflowExecutionConfiguration Text
wecTaskStartToCloseTimeout = lens _wecTaskStartToCloseTimeout (\ s a -> s{_wecTaskStartToCloseTimeout = a});
wecExecutionStartToCloseTimeout :: Lens' WorkflowExecutionConfiguration Text
wecExecutionStartToCloseTimeout = lens _wecExecutionStartToCloseTimeout (\ s a -> s{_wecExecutionStartToCloseTimeout = a});
wecTaskList :: Lens' WorkflowExecutionConfiguration TaskList
wecTaskList = lens _wecTaskList (\ s a -> s{_wecTaskList = a});
wecChildPolicy :: Lens' WorkflowExecutionConfiguration ChildPolicy
wecChildPolicy = lens _wecChildPolicy (\ s a -> s{_wecChildPolicy = a});
instance FromJSON WorkflowExecutionConfiguration
where
parseJSON
= withObject "WorkflowExecutionConfiguration"
(\ x ->
WorkflowExecutionConfiguration' <$>
(x .:? "lambdaRole") <*> (x .:? "taskPriority") <*>
(x .: "taskStartToCloseTimeout")
<*> (x .: "executionStartToCloseTimeout")
<*> (x .: "taskList")
<*> (x .: "childPolicy"))
data WorkflowExecutionContinuedAsNewEventAttributes = WorkflowExecutionContinuedAsNewEventAttributes'
{ _wecaneaTagList :: !(Maybe [Text])
, _wecaneaTaskStartToCloseTimeout :: !(Maybe Text)
, _wecaneaLambdaRole :: !(Maybe Text)
, _wecaneaInput :: !(Maybe Text)
, _wecaneaExecutionStartToCloseTimeout :: !(Maybe Text)
, _wecaneaTaskPriority :: !(Maybe Text)
, _wecaneaDecisionTaskCompletedEventId :: !Integer
, _wecaneaNewExecutionRunId :: !Text
, _wecaneaTaskList :: !TaskList
, _wecaneaChildPolicy :: !ChildPolicy
, _wecaneaWorkflowType :: !WorkflowType
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowExecutionContinuedAsNewEventAttributes
:: Integer
-> Text
-> TaskList
-> ChildPolicy
-> WorkflowType
-> WorkflowExecutionContinuedAsNewEventAttributes
workflowExecutionContinuedAsNewEventAttributes pDecisionTaskCompletedEventId_ pNewExecutionRunId_ pTaskList_ pChildPolicy_ pWorkflowType_ =
WorkflowExecutionContinuedAsNewEventAttributes'
{ _wecaneaTagList = Nothing
, _wecaneaTaskStartToCloseTimeout = Nothing
, _wecaneaLambdaRole = Nothing
, _wecaneaInput = Nothing
, _wecaneaExecutionStartToCloseTimeout = Nothing
, _wecaneaTaskPriority = Nothing
, _wecaneaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
, _wecaneaNewExecutionRunId = pNewExecutionRunId_
, _wecaneaTaskList = pTaskList_
, _wecaneaChildPolicy = pChildPolicy_
, _wecaneaWorkflowType = pWorkflowType_
}
wecaneaTagList :: Lens' WorkflowExecutionContinuedAsNewEventAttributes [Text]
wecaneaTagList = lens _wecaneaTagList (\ s a -> s{_wecaneaTagList = a}) . _Default . _Coerce;
wecaneaTaskStartToCloseTimeout :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text)
wecaneaTaskStartToCloseTimeout = lens _wecaneaTaskStartToCloseTimeout (\ s a -> s{_wecaneaTaskStartToCloseTimeout = a});
wecaneaLambdaRole :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text)
wecaneaLambdaRole = lens _wecaneaLambdaRole (\ s a -> s{_wecaneaLambdaRole = a});
wecaneaInput :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text)
wecaneaInput = lens _wecaneaInput (\ s a -> s{_wecaneaInput = a});
wecaneaExecutionStartToCloseTimeout :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text)
wecaneaExecutionStartToCloseTimeout = lens _wecaneaExecutionStartToCloseTimeout (\ s a -> s{_wecaneaExecutionStartToCloseTimeout = a});
wecaneaTaskPriority :: Lens' WorkflowExecutionContinuedAsNewEventAttributes (Maybe Text)
wecaneaTaskPriority = lens _wecaneaTaskPriority (\ s a -> s{_wecaneaTaskPriority = a});
wecaneaDecisionTaskCompletedEventId :: Lens' WorkflowExecutionContinuedAsNewEventAttributes Integer
wecaneaDecisionTaskCompletedEventId = lens _wecaneaDecisionTaskCompletedEventId (\ s a -> s{_wecaneaDecisionTaskCompletedEventId = a});
wecaneaNewExecutionRunId :: Lens' WorkflowExecutionContinuedAsNewEventAttributes Text
wecaneaNewExecutionRunId = lens _wecaneaNewExecutionRunId (\ s a -> s{_wecaneaNewExecutionRunId = a});
wecaneaTaskList :: Lens' WorkflowExecutionContinuedAsNewEventAttributes TaskList
wecaneaTaskList = lens _wecaneaTaskList (\ s a -> s{_wecaneaTaskList = a});
wecaneaChildPolicy :: Lens' WorkflowExecutionContinuedAsNewEventAttributes ChildPolicy
wecaneaChildPolicy = lens _wecaneaChildPolicy (\ s a -> s{_wecaneaChildPolicy = a});
wecaneaWorkflowType :: Lens' WorkflowExecutionContinuedAsNewEventAttributes WorkflowType
wecaneaWorkflowType = lens _wecaneaWorkflowType (\ s a -> s{_wecaneaWorkflowType = a});
instance FromJSON
WorkflowExecutionContinuedAsNewEventAttributes where
parseJSON
= withObject
"WorkflowExecutionContinuedAsNewEventAttributes"
(\ x ->
WorkflowExecutionContinuedAsNewEventAttributes' <$>
(x .:? "tagList" .!= mempty) <*>
(x .:? "taskStartToCloseTimeout")
<*> (x .:? "lambdaRole")
<*> (x .:? "input")
<*> (x .:? "executionStartToCloseTimeout")
<*> (x .:? "taskPriority")
<*> (x .: "decisionTaskCompletedEventId")
<*> (x .: "newExecutionRunId")
<*> (x .: "taskList")
<*> (x .: "childPolicy")
<*> (x .: "workflowType"))
data WorkflowExecutionCount = WorkflowExecutionCount'
{ _wecTruncated :: !(Maybe Bool)
, _wecCount :: !Nat
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowExecutionCount
:: Natural
-> WorkflowExecutionCount
workflowExecutionCount pCount_ =
WorkflowExecutionCount'
{ _wecTruncated = Nothing
, _wecCount = _Nat # pCount_
}
wecTruncated :: Lens' WorkflowExecutionCount (Maybe Bool)
wecTruncated = lens _wecTruncated (\ s a -> s{_wecTruncated = a});
wecCount :: Lens' WorkflowExecutionCount Natural
wecCount = lens _wecCount (\ s a -> s{_wecCount = a}) . _Nat;
instance FromJSON WorkflowExecutionCount where
parseJSON
= withObject "WorkflowExecutionCount"
(\ x ->
WorkflowExecutionCount' <$>
(x .:? "truncated") <*> (x .: "count"))
data WorkflowExecutionFailedEventAttributes = WorkflowExecutionFailedEventAttributes'
{ _wefeaReason :: !(Maybe Text)
, _wefeaDetails :: !(Maybe Text)
, _wefeaDecisionTaskCompletedEventId :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowExecutionFailedEventAttributes
:: Integer
-> WorkflowExecutionFailedEventAttributes
workflowExecutionFailedEventAttributes pDecisionTaskCompletedEventId_ =
WorkflowExecutionFailedEventAttributes'
{ _wefeaReason = Nothing
, _wefeaDetails = Nothing
, _wefeaDecisionTaskCompletedEventId = pDecisionTaskCompletedEventId_
}
wefeaReason :: Lens' WorkflowExecutionFailedEventAttributes (Maybe Text)
wefeaReason = lens _wefeaReason (\ s a -> s{_wefeaReason = a});
wefeaDetails :: Lens' WorkflowExecutionFailedEventAttributes (Maybe Text)
wefeaDetails = lens _wefeaDetails (\ s a -> s{_wefeaDetails = a});
wefeaDecisionTaskCompletedEventId :: Lens' WorkflowExecutionFailedEventAttributes Integer
wefeaDecisionTaskCompletedEventId = lens _wefeaDecisionTaskCompletedEventId (\ s a -> s{_wefeaDecisionTaskCompletedEventId = a});
instance FromJSON
WorkflowExecutionFailedEventAttributes where
parseJSON
= withObject "WorkflowExecutionFailedEventAttributes"
(\ x ->
WorkflowExecutionFailedEventAttributes' <$>
(x .:? "reason") <*> (x .:? "details") <*>
(x .: "decisionTaskCompletedEventId"))
newtype WorkflowExecutionFilter = WorkflowExecutionFilter'
{ _wefWorkflowId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowExecutionFilter
:: Text
-> WorkflowExecutionFilter
workflowExecutionFilter pWorkflowId_ =
WorkflowExecutionFilter'
{ _wefWorkflowId = pWorkflowId_
}
wefWorkflowId :: Lens' WorkflowExecutionFilter Text
wefWorkflowId = lens _wefWorkflowId (\ s a -> s{_wefWorkflowId = a});
instance ToJSON WorkflowExecutionFilter where
toJSON WorkflowExecutionFilter'{..}
= object
(catMaybes [Just ("workflowId" .= _wefWorkflowId)])
data WorkflowExecutionInfo = WorkflowExecutionInfo'
{ _weiParent :: !(Maybe WorkflowExecution)
, _weiTagList :: !(Maybe [Text])
, _weiCloseStatus :: !(Maybe CloseStatus)
, _weiCloseTimestamp :: !(Maybe POSIX)
, _weiCancelRequested :: !(Maybe Bool)
, _weiExecution :: !WorkflowExecution
, _weiWorkflowType :: !WorkflowType
, _weiStartTimestamp :: !POSIX
, _weiExecutionStatus :: !ExecutionStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowExecutionInfo
:: WorkflowExecution
-> WorkflowType
-> UTCTime
-> ExecutionStatus
-> WorkflowExecutionInfo
workflowExecutionInfo pExecution_ pWorkflowType_ pStartTimestamp_ pExecutionStatus_ =
WorkflowExecutionInfo'
{ _weiParent = Nothing
, _weiTagList = Nothing
, _weiCloseStatus = Nothing
, _weiCloseTimestamp = Nothing
, _weiCancelRequested = Nothing
, _weiExecution = pExecution_
, _weiWorkflowType = pWorkflowType_
, _weiStartTimestamp = _Time # pStartTimestamp_
, _weiExecutionStatus = pExecutionStatus_
}
weiParent :: Lens' WorkflowExecutionInfo (Maybe WorkflowExecution)
weiParent = lens _weiParent (\ s a -> s{_weiParent = a});
weiTagList :: Lens' WorkflowExecutionInfo [Text]
weiTagList = lens _weiTagList (\ s a -> s{_weiTagList = a}) . _Default . _Coerce;
weiCloseStatus :: Lens' WorkflowExecutionInfo (Maybe CloseStatus)
weiCloseStatus = lens _weiCloseStatus (\ s a -> s{_weiCloseStatus = a});
weiCloseTimestamp :: Lens' WorkflowExecutionInfo (Maybe UTCTime)
weiCloseTimestamp = lens _weiCloseTimestamp (\ s a -> s{_weiCloseTimestamp = a}) . mapping _Time;
weiCancelRequested :: Lens' WorkflowExecutionInfo (Maybe Bool)
weiCancelRequested = lens _weiCancelRequested (\ s a -> s{_weiCancelRequested = a});
weiExecution :: Lens' WorkflowExecutionInfo WorkflowExecution
weiExecution = lens _weiExecution (\ s a -> s{_weiExecution = a});
weiWorkflowType :: Lens' WorkflowExecutionInfo WorkflowType
weiWorkflowType = lens _weiWorkflowType (\ s a -> s{_weiWorkflowType = a});
weiStartTimestamp :: Lens' WorkflowExecutionInfo UTCTime
weiStartTimestamp = lens _weiStartTimestamp (\ s a -> s{_weiStartTimestamp = a}) . _Time;
weiExecutionStatus :: Lens' WorkflowExecutionInfo ExecutionStatus
weiExecutionStatus = lens _weiExecutionStatus (\ s a -> s{_weiExecutionStatus = a});
instance FromJSON WorkflowExecutionInfo where
parseJSON
= withObject "WorkflowExecutionInfo"
(\ x ->
WorkflowExecutionInfo' <$>
(x .:? "parent") <*> (x .:? "tagList" .!= mempty) <*>
(x .:? "closeStatus")
<*> (x .:? "closeTimestamp")
<*> (x .:? "cancelRequested")
<*> (x .: "execution")
<*> (x .: "workflowType")
<*> (x .: "startTimestamp")
<*> (x .: "executionStatus"))
data WorkflowExecutionInfos = WorkflowExecutionInfos'
{ _weiNextPageToken :: !(Maybe Text)
, _weiExecutionInfos :: ![WorkflowExecutionInfo]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowExecutionInfos
:: WorkflowExecutionInfos
workflowExecutionInfos =
WorkflowExecutionInfos'
{ _weiNextPageToken = Nothing
, _weiExecutionInfos = mempty
}
weiNextPageToken :: Lens' WorkflowExecutionInfos (Maybe Text)
weiNextPageToken = lens _weiNextPageToken (\ s a -> s{_weiNextPageToken = a});
weiExecutionInfos :: Lens' WorkflowExecutionInfos [WorkflowExecutionInfo]
weiExecutionInfos = lens _weiExecutionInfos (\ s a -> s{_weiExecutionInfos = a}) . _Coerce;
instance FromJSON WorkflowExecutionInfos where
parseJSON
= withObject "WorkflowExecutionInfos"
(\ x ->
WorkflowExecutionInfos' <$>
(x .:? "nextPageToken") <*>
(x .:? "executionInfos" .!= mempty))
data WorkflowExecutionOpenCounts = WorkflowExecutionOpenCounts'
{ _weocOpenLambdaFunctions :: !(Maybe Nat)
, _weocOpenActivityTasks :: !Nat
, _weocOpenDecisionTasks :: !Nat
, _weocOpenTimers :: !Nat
, _weocOpenChildWorkflowExecutions :: !Nat
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowExecutionOpenCounts
:: Natural
-> Natural
-> Natural
-> Natural
-> WorkflowExecutionOpenCounts
workflowExecutionOpenCounts pOpenActivityTasks_ pOpenDecisionTasks_ pOpenTimers_ pOpenChildWorkflowExecutions_ =
WorkflowExecutionOpenCounts'
{ _weocOpenLambdaFunctions = Nothing
, _weocOpenActivityTasks = _Nat # pOpenActivityTasks_
, _weocOpenDecisionTasks = _Nat # pOpenDecisionTasks_
, _weocOpenTimers = _Nat # pOpenTimers_
, _weocOpenChildWorkflowExecutions = _Nat # pOpenChildWorkflowExecutions_
}
weocOpenLambdaFunctions :: Lens' WorkflowExecutionOpenCounts (Maybe Natural)
weocOpenLambdaFunctions = lens _weocOpenLambdaFunctions (\ s a -> s{_weocOpenLambdaFunctions = a}) . mapping _Nat;
weocOpenActivityTasks :: Lens' WorkflowExecutionOpenCounts Natural
weocOpenActivityTasks = lens _weocOpenActivityTasks (\ s a -> s{_weocOpenActivityTasks = a}) . _Nat;
weocOpenDecisionTasks :: Lens' WorkflowExecutionOpenCounts Natural
weocOpenDecisionTasks = lens _weocOpenDecisionTasks (\ s a -> s{_weocOpenDecisionTasks = a}) . _Nat;
weocOpenTimers :: Lens' WorkflowExecutionOpenCounts Natural
weocOpenTimers = lens _weocOpenTimers (\ s a -> s{_weocOpenTimers = a}) . _Nat;
weocOpenChildWorkflowExecutions :: Lens' WorkflowExecutionOpenCounts Natural
weocOpenChildWorkflowExecutions = lens _weocOpenChildWorkflowExecutions (\ s a -> s{_weocOpenChildWorkflowExecutions = a}) . _Nat;
instance FromJSON WorkflowExecutionOpenCounts where
parseJSON
= withObject "WorkflowExecutionOpenCounts"
(\ x ->
WorkflowExecutionOpenCounts' <$>
(x .:? "openLambdaFunctions") <*>
(x .: "openActivityTasks")
<*> (x .: "openDecisionTasks")
<*> (x .: "openTimers")
<*> (x .: "openChildWorkflowExecutions"))
data WorkflowExecutionSignaledEventAttributes = WorkflowExecutionSignaledEventAttributes'
{ _wExternalWorkflowExecution :: !(Maybe WorkflowExecution)
, _wExternalInitiatedEventId :: !(Maybe Integer)
, _wInput :: !(Maybe Text)
, _wSignalName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowExecutionSignaledEventAttributes
:: Text
-> WorkflowExecutionSignaledEventAttributes
workflowExecutionSignaledEventAttributes pSignalName_ =
WorkflowExecutionSignaledEventAttributes'
{ _wExternalWorkflowExecution = Nothing
, _wExternalInitiatedEventId = Nothing
, _wInput = Nothing
, _wSignalName = pSignalName_
}
wExternalWorkflowExecution :: Lens' WorkflowExecutionSignaledEventAttributes (Maybe WorkflowExecution)
wExternalWorkflowExecution = lens _wExternalWorkflowExecution (\ s a -> s{_wExternalWorkflowExecution = a});
wExternalInitiatedEventId :: Lens' WorkflowExecutionSignaledEventAttributes (Maybe Integer)
wExternalInitiatedEventId = lens _wExternalInitiatedEventId (\ s a -> s{_wExternalInitiatedEventId = a});
wInput :: Lens' WorkflowExecutionSignaledEventAttributes (Maybe Text)
wInput = lens _wInput (\ s a -> s{_wInput = a});
wSignalName :: Lens' WorkflowExecutionSignaledEventAttributes Text
wSignalName = lens _wSignalName (\ s a -> s{_wSignalName = a});
instance FromJSON
WorkflowExecutionSignaledEventAttributes where
parseJSON
= withObject
"WorkflowExecutionSignaledEventAttributes"
(\ x ->
WorkflowExecutionSignaledEventAttributes' <$>
(x .:? "externalWorkflowExecution") <*>
(x .:? "externalInitiatedEventId")
<*> (x .:? "input")
<*> (x .: "signalName"))
data WorkflowExecutionStartedEventAttributes = WorkflowExecutionStartedEventAttributes'
{ _weseaParentInitiatedEventId :: !(Maybe Integer)
, _weseaTagList :: !(Maybe [Text])
, _weseaTaskStartToCloseTimeout :: !(Maybe Text)
, _weseaLambdaRole :: !(Maybe Text)
, _weseaInput :: !(Maybe Text)
, _weseaExecutionStartToCloseTimeout :: !(Maybe Text)
, _weseaTaskPriority :: !(Maybe Text)
, _weseaParentWorkflowExecution :: !(Maybe WorkflowExecution)
, _weseaContinuedExecutionRunId :: !(Maybe Text)
, _weseaChildPolicy :: !ChildPolicy
, _weseaTaskList :: !TaskList
, _weseaWorkflowType :: !WorkflowType
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowExecutionStartedEventAttributes
:: ChildPolicy
-> TaskList
-> WorkflowType
-> WorkflowExecutionStartedEventAttributes
workflowExecutionStartedEventAttributes pChildPolicy_ pTaskList_ pWorkflowType_ =
WorkflowExecutionStartedEventAttributes'
{ _weseaParentInitiatedEventId = Nothing
, _weseaTagList = Nothing
, _weseaTaskStartToCloseTimeout = Nothing
, _weseaLambdaRole = Nothing
, _weseaInput = Nothing
, _weseaExecutionStartToCloseTimeout = Nothing
, _weseaTaskPriority = Nothing
, _weseaParentWorkflowExecution = Nothing
, _weseaContinuedExecutionRunId = Nothing
, _weseaChildPolicy = pChildPolicy_
, _weseaTaskList = pTaskList_
, _weseaWorkflowType = pWorkflowType_
}
weseaParentInitiatedEventId :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Integer)
weseaParentInitiatedEventId = lens _weseaParentInitiatedEventId (\ s a -> s{_weseaParentInitiatedEventId = a});
weseaTagList :: Lens' WorkflowExecutionStartedEventAttributes [Text]
weseaTagList = lens _weseaTagList (\ s a -> s{_weseaTagList = a}) . _Default . _Coerce;
weseaTaskStartToCloseTimeout :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)
weseaTaskStartToCloseTimeout = lens _weseaTaskStartToCloseTimeout (\ s a -> s{_weseaTaskStartToCloseTimeout = a});
weseaLambdaRole :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)
weseaLambdaRole = lens _weseaLambdaRole (\ s a -> s{_weseaLambdaRole = a});
weseaInput :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)
weseaInput = lens _weseaInput (\ s a -> s{_weseaInput = a});
weseaExecutionStartToCloseTimeout :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)
weseaExecutionStartToCloseTimeout = lens _weseaExecutionStartToCloseTimeout (\ s a -> s{_weseaExecutionStartToCloseTimeout = a});
weseaTaskPriority :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)
weseaTaskPriority = lens _weseaTaskPriority (\ s a -> s{_weseaTaskPriority = a});
weseaParentWorkflowExecution :: Lens' WorkflowExecutionStartedEventAttributes (Maybe WorkflowExecution)
weseaParentWorkflowExecution = lens _weseaParentWorkflowExecution (\ s a -> s{_weseaParentWorkflowExecution = a});
weseaContinuedExecutionRunId :: Lens' WorkflowExecutionStartedEventAttributes (Maybe Text)
weseaContinuedExecutionRunId = lens _weseaContinuedExecutionRunId (\ s a -> s{_weseaContinuedExecutionRunId = a});
weseaChildPolicy :: Lens' WorkflowExecutionStartedEventAttributes ChildPolicy
weseaChildPolicy = lens _weseaChildPolicy (\ s a -> s{_weseaChildPolicy = a});
weseaTaskList :: Lens' WorkflowExecutionStartedEventAttributes TaskList
weseaTaskList = lens _weseaTaskList (\ s a -> s{_weseaTaskList = a});
weseaWorkflowType :: Lens' WorkflowExecutionStartedEventAttributes WorkflowType
weseaWorkflowType = lens _weseaWorkflowType (\ s a -> s{_weseaWorkflowType = a});
instance FromJSON
WorkflowExecutionStartedEventAttributes where
parseJSON
= withObject
"WorkflowExecutionStartedEventAttributes"
(\ x ->
WorkflowExecutionStartedEventAttributes' <$>
(x .:? "parentInitiatedEventId") <*>
(x .:? "tagList" .!= mempty)
<*> (x .:? "taskStartToCloseTimeout")
<*> (x .:? "lambdaRole")
<*> (x .:? "input")
<*> (x .:? "executionStartToCloseTimeout")
<*> (x .:? "taskPriority")
<*> (x .:? "parentWorkflowExecution")
<*> (x .:? "continuedExecutionRunId")
<*> (x .: "childPolicy")
<*> (x .: "taskList")
<*> (x .: "workflowType"))
data WorkflowExecutionTerminatedEventAttributes = WorkflowExecutionTerminatedEventAttributes'
{ _weteaCause :: !(Maybe WorkflowExecutionTerminatedCause)
, _weteaReason :: !(Maybe Text)
, _weteaDetails :: !(Maybe Text)
, _weteaChildPolicy :: !ChildPolicy
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowExecutionTerminatedEventAttributes
:: ChildPolicy
-> WorkflowExecutionTerminatedEventAttributes
workflowExecutionTerminatedEventAttributes pChildPolicy_ =
WorkflowExecutionTerminatedEventAttributes'
{ _weteaCause = Nothing
, _weteaReason = Nothing
, _weteaDetails = Nothing
, _weteaChildPolicy = pChildPolicy_
}
weteaCause :: Lens' WorkflowExecutionTerminatedEventAttributes (Maybe WorkflowExecutionTerminatedCause)
weteaCause = lens _weteaCause (\ s a -> s{_weteaCause = a});
weteaReason :: Lens' WorkflowExecutionTerminatedEventAttributes (Maybe Text)
weteaReason = lens _weteaReason (\ s a -> s{_weteaReason = a});
weteaDetails :: Lens' WorkflowExecutionTerminatedEventAttributes (Maybe Text)
weteaDetails = lens _weteaDetails (\ s a -> s{_weteaDetails = a});
weteaChildPolicy :: Lens' WorkflowExecutionTerminatedEventAttributes ChildPolicy
weteaChildPolicy = lens _weteaChildPolicy (\ s a -> s{_weteaChildPolicy = a});
instance FromJSON
WorkflowExecutionTerminatedEventAttributes where
parseJSON
= withObject
"WorkflowExecutionTerminatedEventAttributes"
(\ x ->
WorkflowExecutionTerminatedEventAttributes' <$>
(x .:? "cause") <*> (x .:? "reason") <*>
(x .:? "details")
<*> (x .: "childPolicy"))
data WorkflowExecutionTimedOutEventAttributes = WorkflowExecutionTimedOutEventAttributes'
{ _wetoeaTimeoutType :: !WorkflowExecutionTimeoutType
, _wetoeaChildPolicy :: !ChildPolicy
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowExecutionTimedOutEventAttributes
:: WorkflowExecutionTimeoutType
-> ChildPolicy
-> WorkflowExecutionTimedOutEventAttributes
workflowExecutionTimedOutEventAttributes pTimeoutType_ pChildPolicy_ =
WorkflowExecutionTimedOutEventAttributes'
{ _wetoeaTimeoutType = pTimeoutType_
, _wetoeaChildPolicy = pChildPolicy_
}
wetoeaTimeoutType :: Lens' WorkflowExecutionTimedOutEventAttributes WorkflowExecutionTimeoutType
wetoeaTimeoutType = lens _wetoeaTimeoutType (\ s a -> s{_wetoeaTimeoutType = a});
wetoeaChildPolicy :: Lens' WorkflowExecutionTimedOutEventAttributes ChildPolicy
wetoeaChildPolicy = lens _wetoeaChildPolicy (\ s a -> s{_wetoeaChildPolicy = a});
instance FromJSON
WorkflowExecutionTimedOutEventAttributes where
parseJSON
= withObject
"WorkflowExecutionTimedOutEventAttributes"
(\ x ->
WorkflowExecutionTimedOutEventAttributes' <$>
(x .: "timeoutType") <*> (x .: "childPolicy"))
data WorkflowType = WorkflowType'
{ _wtName :: !Text
, _wtVersion :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowType
:: Text
-> Text
-> WorkflowType
workflowType pName_ pVersion_ =
WorkflowType'
{ _wtName = pName_
, _wtVersion = pVersion_
}
wtName :: Lens' WorkflowType Text
wtName = lens _wtName (\ s a -> s{_wtName = a});
wtVersion :: Lens' WorkflowType Text
wtVersion = lens _wtVersion (\ s a -> s{_wtVersion = a});
instance FromJSON WorkflowType where
parseJSON
= withObject "WorkflowType"
(\ x ->
WorkflowType' <$> (x .: "name") <*> (x .: "version"))
instance ToJSON WorkflowType where
toJSON WorkflowType'{..}
= object
(catMaybes
[Just ("name" .= _wtName),
Just ("version" .= _wtVersion)])
data WorkflowTypeConfiguration = WorkflowTypeConfiguration'
{ _wtcDefaultLambdaRole :: !(Maybe Text)
, _wtcDefaultChildPolicy :: !(Maybe ChildPolicy)
, _wtcDefaultTaskList :: !(Maybe TaskList)
, _wtcDefaultTaskPriority :: !(Maybe Text)
, _wtcDefaultExecutionStartToCloseTimeout :: !(Maybe Text)
, _wtcDefaultTaskStartToCloseTimeout :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowTypeConfiguration
:: WorkflowTypeConfiguration
workflowTypeConfiguration =
WorkflowTypeConfiguration'
{ _wtcDefaultLambdaRole = Nothing
, _wtcDefaultChildPolicy = Nothing
, _wtcDefaultTaskList = Nothing
, _wtcDefaultTaskPriority = Nothing
, _wtcDefaultExecutionStartToCloseTimeout = Nothing
, _wtcDefaultTaskStartToCloseTimeout = Nothing
}
wtcDefaultLambdaRole :: Lens' WorkflowTypeConfiguration (Maybe Text)
wtcDefaultLambdaRole = lens _wtcDefaultLambdaRole (\ s a -> s{_wtcDefaultLambdaRole = a});
wtcDefaultChildPolicy :: Lens' WorkflowTypeConfiguration (Maybe ChildPolicy)
wtcDefaultChildPolicy = lens _wtcDefaultChildPolicy (\ s a -> s{_wtcDefaultChildPolicy = a});
wtcDefaultTaskList :: Lens' WorkflowTypeConfiguration (Maybe TaskList)
wtcDefaultTaskList = lens _wtcDefaultTaskList (\ s a -> s{_wtcDefaultTaskList = a});
wtcDefaultTaskPriority :: Lens' WorkflowTypeConfiguration (Maybe Text)
wtcDefaultTaskPriority = lens _wtcDefaultTaskPriority (\ s a -> s{_wtcDefaultTaskPriority = a});
wtcDefaultExecutionStartToCloseTimeout :: Lens' WorkflowTypeConfiguration (Maybe Text)
wtcDefaultExecutionStartToCloseTimeout = lens _wtcDefaultExecutionStartToCloseTimeout (\ s a -> s{_wtcDefaultExecutionStartToCloseTimeout = a});
wtcDefaultTaskStartToCloseTimeout :: Lens' WorkflowTypeConfiguration (Maybe Text)
wtcDefaultTaskStartToCloseTimeout = lens _wtcDefaultTaskStartToCloseTimeout (\ s a -> s{_wtcDefaultTaskStartToCloseTimeout = a});
instance FromJSON WorkflowTypeConfiguration where
parseJSON
= withObject "WorkflowTypeConfiguration"
(\ x ->
WorkflowTypeConfiguration' <$>
(x .:? "defaultLambdaRole") <*>
(x .:? "defaultChildPolicy")
<*> (x .:? "defaultTaskList")
<*> (x .:? "defaultTaskPriority")
<*> (x .:? "defaultExecutionStartToCloseTimeout")
<*> (x .:? "defaultTaskStartToCloseTimeout"))
data WorkflowTypeFilter = WorkflowTypeFilter'
{ _wtfVersion :: !(Maybe Text)
, _wtfName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowTypeFilter
:: Text
-> WorkflowTypeFilter
workflowTypeFilter pName_ =
WorkflowTypeFilter'
{ _wtfVersion = Nothing
, _wtfName = pName_
}
wtfVersion :: Lens' WorkflowTypeFilter (Maybe Text)
wtfVersion = lens _wtfVersion (\ s a -> s{_wtfVersion = a});
wtfName :: Lens' WorkflowTypeFilter Text
wtfName = lens _wtfName (\ s a -> s{_wtfName = a});
instance ToJSON WorkflowTypeFilter where
toJSON WorkflowTypeFilter'{..}
= object
(catMaybes
[("version" .=) <$> _wtfVersion,
Just ("name" .= _wtfName)])
data WorkflowTypeInfo = WorkflowTypeInfo'
{ _wtiDeprecationDate :: !(Maybe POSIX)
, _wtiDescription :: !(Maybe Text)
, _wtiWorkflowType :: !WorkflowType
, _wtiStatus :: !RegistrationStatus
, _wtiCreationDate :: !POSIX
} deriving (Eq,Read,Show,Data,Typeable,Generic)
workflowTypeInfo
:: WorkflowType
-> RegistrationStatus
-> UTCTime
-> WorkflowTypeInfo
workflowTypeInfo pWorkflowType_ pStatus_ pCreationDate_ =
WorkflowTypeInfo'
{ _wtiDeprecationDate = Nothing
, _wtiDescription = Nothing
, _wtiWorkflowType = pWorkflowType_
, _wtiStatus = pStatus_
, _wtiCreationDate = _Time # pCreationDate_
}
wtiDeprecationDate :: Lens' WorkflowTypeInfo (Maybe UTCTime)
wtiDeprecationDate = lens _wtiDeprecationDate (\ s a -> s{_wtiDeprecationDate = a}) . mapping _Time;
wtiDescription :: Lens' WorkflowTypeInfo (Maybe Text)
wtiDescription = lens _wtiDescription (\ s a -> s{_wtiDescription = a});
wtiWorkflowType :: Lens' WorkflowTypeInfo WorkflowType
wtiWorkflowType = lens _wtiWorkflowType (\ s a -> s{_wtiWorkflowType = a});
wtiStatus :: Lens' WorkflowTypeInfo RegistrationStatus
wtiStatus = lens _wtiStatus (\ s a -> s{_wtiStatus = a});
wtiCreationDate :: Lens' WorkflowTypeInfo UTCTime
wtiCreationDate = lens _wtiCreationDate (\ s a -> s{_wtiCreationDate = a}) . _Time;
instance FromJSON WorkflowTypeInfo where
parseJSON
= withObject "WorkflowTypeInfo"
(\ x ->
WorkflowTypeInfo' <$>
(x .:? "deprecationDate") <*> (x .:? "description")
<*> (x .: "workflowType")
<*> (x .: "status")
<*> (x .: "creationDate"))