{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.StepFunctions.Types.Product where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.StepFunctions.Types.Sum
data ActivityFailedEventDetails = ActivityFailedEventDetails'
{ _afedError :: !(Maybe Text)
, _afedCause :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
activityFailedEventDetails
:: ActivityFailedEventDetails
activityFailedEventDetails =
ActivityFailedEventDetails' {_afedError = Nothing, _afedCause = Nothing}
afedError :: Lens' ActivityFailedEventDetails (Maybe Text)
afedError = lens _afedError (\ s a -> s{_afedError = a})
afedCause :: Lens' ActivityFailedEventDetails (Maybe Text)
afedCause = lens _afedCause (\ s a -> s{_afedCause = a})
instance FromJSON ActivityFailedEventDetails where
parseJSON
= withObject "ActivityFailedEventDetails"
(\ x ->
ActivityFailedEventDetails' <$>
(x .:? "error") <*> (x .:? "cause"))
instance Hashable ActivityFailedEventDetails where
instance NFData ActivityFailedEventDetails where
data ActivityListItem = ActivityListItem'
{ _aliActivityARN :: !Text
, _aliName :: !Text
, _aliCreationDate :: !POSIX
} deriving (Eq, Read, Show, Data, Typeable, Generic)
activityListItem
:: Text
-> Text
-> UTCTime
-> ActivityListItem
activityListItem pActivityARN_ pName_ pCreationDate_ =
ActivityListItem'
{ _aliActivityARN = pActivityARN_
, _aliName = pName_
, _aliCreationDate = _Time # pCreationDate_
}
aliActivityARN :: Lens' ActivityListItem Text
aliActivityARN = lens _aliActivityARN (\ s a -> s{_aliActivityARN = a})
aliName :: Lens' ActivityListItem Text
aliName = lens _aliName (\ s a -> s{_aliName = a})
aliCreationDate :: Lens' ActivityListItem UTCTime
aliCreationDate = lens _aliCreationDate (\ s a -> s{_aliCreationDate = a}) . _Time
instance FromJSON ActivityListItem where
parseJSON
= withObject "ActivityListItem"
(\ x ->
ActivityListItem' <$>
(x .: "activityArn") <*> (x .: "name") <*>
(x .: "creationDate"))
instance Hashable ActivityListItem where
instance NFData ActivityListItem where
data ActivityScheduleFailedEventDetails = ActivityScheduleFailedEventDetails'
{ _asfedError :: !(Maybe Text)
, _asfedCause :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
activityScheduleFailedEventDetails
:: ActivityScheduleFailedEventDetails
activityScheduleFailedEventDetails =
ActivityScheduleFailedEventDetails'
{_asfedError = Nothing, _asfedCause = Nothing}
asfedError :: Lens' ActivityScheduleFailedEventDetails (Maybe Text)
asfedError = lens _asfedError (\ s a -> s{_asfedError = a})
asfedCause :: Lens' ActivityScheduleFailedEventDetails (Maybe Text)
asfedCause = lens _asfedCause (\ s a -> s{_asfedCause = a})
instance FromJSON ActivityScheduleFailedEventDetails
where
parseJSON
= withObject "ActivityScheduleFailedEventDetails"
(\ x ->
ActivityScheduleFailedEventDetails' <$>
(x .:? "error") <*> (x .:? "cause"))
instance Hashable ActivityScheduleFailedEventDetails
where
instance NFData ActivityScheduleFailedEventDetails
where
data ActivityScheduledEventDetails = ActivityScheduledEventDetails'
{ _asedHeartbeatInSeconds :: !(Maybe Integer)
, _asedInput :: !(Maybe Text)
, _asedTimeoutInSeconds :: !(Maybe Integer)
, _asedResource :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
activityScheduledEventDetails
:: Text
-> ActivityScheduledEventDetails
activityScheduledEventDetails pResource_ =
ActivityScheduledEventDetails'
{ _asedHeartbeatInSeconds = Nothing
, _asedInput = Nothing
, _asedTimeoutInSeconds = Nothing
, _asedResource = pResource_
}
asedHeartbeatInSeconds :: Lens' ActivityScheduledEventDetails (Maybe Integer)
asedHeartbeatInSeconds = lens _asedHeartbeatInSeconds (\ s a -> s{_asedHeartbeatInSeconds = a})
asedInput :: Lens' ActivityScheduledEventDetails (Maybe Text)
asedInput = lens _asedInput (\ s a -> s{_asedInput = a})
asedTimeoutInSeconds :: Lens' ActivityScheduledEventDetails (Maybe Integer)
asedTimeoutInSeconds = lens _asedTimeoutInSeconds (\ s a -> s{_asedTimeoutInSeconds = a})
asedResource :: Lens' ActivityScheduledEventDetails Text
asedResource = lens _asedResource (\ s a -> s{_asedResource = a})
instance FromJSON ActivityScheduledEventDetails where
parseJSON
= withObject "ActivityScheduledEventDetails"
(\ x ->
ActivityScheduledEventDetails' <$>
(x .:? "heartbeatInSeconds") <*> (x .:? "input") <*>
(x .:? "timeoutInSeconds")
<*> (x .: "resource"))
instance Hashable ActivityScheduledEventDetails where
instance NFData ActivityScheduledEventDetails where
newtype ActivityStartedEventDetails = ActivityStartedEventDetails'
{ _asedWorkerName :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
activityStartedEventDetails
:: ActivityStartedEventDetails
activityStartedEventDetails =
ActivityStartedEventDetails' {_asedWorkerName = Nothing}
asedWorkerName :: Lens' ActivityStartedEventDetails (Maybe Text)
asedWorkerName = lens _asedWorkerName (\ s a -> s{_asedWorkerName = a})
instance FromJSON ActivityStartedEventDetails where
parseJSON
= withObject "ActivityStartedEventDetails"
(\ x ->
ActivityStartedEventDetails' <$>
(x .:? "workerName"))
instance Hashable ActivityStartedEventDetails where
instance NFData ActivityStartedEventDetails where
newtype ActivitySucceededEventDetails = ActivitySucceededEventDetails'
{ _asedOutput :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
activitySucceededEventDetails
:: ActivitySucceededEventDetails
activitySucceededEventDetails =
ActivitySucceededEventDetails' {_asedOutput = Nothing}
asedOutput :: Lens' ActivitySucceededEventDetails (Maybe Text)
asedOutput = lens _asedOutput (\ s a -> s{_asedOutput = a})
instance FromJSON ActivitySucceededEventDetails where
parseJSON
= withObject "ActivitySucceededEventDetails"
(\ x ->
ActivitySucceededEventDetails' <$> (x .:? "output"))
instance Hashable ActivitySucceededEventDetails where
instance NFData ActivitySucceededEventDetails where
data ActivityTimedOutEventDetails = ActivityTimedOutEventDetails'
{ _atoedError :: !(Maybe Text)
, _atoedCause :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
activityTimedOutEventDetails
:: ActivityTimedOutEventDetails
activityTimedOutEventDetails =
ActivityTimedOutEventDetails' {_atoedError = Nothing, _atoedCause = Nothing}
atoedError :: Lens' ActivityTimedOutEventDetails (Maybe Text)
atoedError = lens _atoedError (\ s a -> s{_atoedError = a})
atoedCause :: Lens' ActivityTimedOutEventDetails (Maybe Text)
atoedCause = lens _atoedCause (\ s a -> s{_atoedCause = a})
instance FromJSON ActivityTimedOutEventDetails where
parseJSON
= withObject "ActivityTimedOutEventDetails"
(\ x ->
ActivityTimedOutEventDetails' <$>
(x .:? "error") <*> (x .:? "cause"))
instance Hashable ActivityTimedOutEventDetails where
instance NFData ActivityTimedOutEventDetails where
data ExecutionAbortedEventDetails = ExecutionAbortedEventDetails'
{ _eaedError :: !(Maybe Text)
, _eaedCause :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
executionAbortedEventDetails
:: ExecutionAbortedEventDetails
executionAbortedEventDetails =
ExecutionAbortedEventDetails' {_eaedError = Nothing, _eaedCause = Nothing}
eaedError :: Lens' ExecutionAbortedEventDetails (Maybe Text)
eaedError = lens _eaedError (\ s a -> s{_eaedError = a})
eaedCause :: Lens' ExecutionAbortedEventDetails (Maybe Text)
eaedCause = lens _eaedCause (\ s a -> s{_eaedCause = a})
instance FromJSON ExecutionAbortedEventDetails where
parseJSON
= withObject "ExecutionAbortedEventDetails"
(\ x ->
ExecutionAbortedEventDetails' <$>
(x .:? "error") <*> (x .:? "cause"))
instance Hashable ExecutionAbortedEventDetails where
instance NFData ExecutionAbortedEventDetails where
data ExecutionFailedEventDetails = ExecutionFailedEventDetails'
{ _efedError :: !(Maybe Text)
, _efedCause :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
executionFailedEventDetails
:: ExecutionFailedEventDetails
executionFailedEventDetails =
ExecutionFailedEventDetails' {_efedError = Nothing, _efedCause = Nothing}
efedError :: Lens' ExecutionFailedEventDetails (Maybe Text)
efedError = lens _efedError (\ s a -> s{_efedError = a})
efedCause :: Lens' ExecutionFailedEventDetails (Maybe Text)
efedCause = lens _efedCause (\ s a -> s{_efedCause = a})
instance FromJSON ExecutionFailedEventDetails where
parseJSON
= withObject "ExecutionFailedEventDetails"
(\ x ->
ExecutionFailedEventDetails' <$>
(x .:? "error") <*> (x .:? "cause"))
instance Hashable ExecutionFailedEventDetails where
instance NFData ExecutionFailedEventDetails where
data ExecutionListItem = ExecutionListItem'
{ _eliStopDate :: !(Maybe POSIX)
, _eliExecutionARN :: !Text
, _eliStateMachineARN :: !Text
, _eliName :: !Text
, _eliStatus :: !ExecutionStatus
, _eliStartDate :: !POSIX
} deriving (Eq, Read, Show, Data, Typeable, Generic)
executionListItem
:: Text
-> Text
-> Text
-> ExecutionStatus
-> UTCTime
-> ExecutionListItem
executionListItem pExecutionARN_ pStateMachineARN_ pName_ pStatus_ pStartDate_ =
ExecutionListItem'
{ _eliStopDate = Nothing
, _eliExecutionARN = pExecutionARN_
, _eliStateMachineARN = pStateMachineARN_
, _eliName = pName_
, _eliStatus = pStatus_
, _eliStartDate = _Time # pStartDate_
}
eliStopDate :: Lens' ExecutionListItem (Maybe UTCTime)
eliStopDate = lens _eliStopDate (\ s a -> s{_eliStopDate = a}) . mapping _Time
eliExecutionARN :: Lens' ExecutionListItem Text
eliExecutionARN = lens _eliExecutionARN (\ s a -> s{_eliExecutionARN = a})
eliStateMachineARN :: Lens' ExecutionListItem Text
eliStateMachineARN = lens _eliStateMachineARN (\ s a -> s{_eliStateMachineARN = a})
eliName :: Lens' ExecutionListItem Text
eliName = lens _eliName (\ s a -> s{_eliName = a})
eliStatus :: Lens' ExecutionListItem ExecutionStatus
eliStatus = lens _eliStatus (\ s a -> s{_eliStatus = a})
eliStartDate :: Lens' ExecutionListItem UTCTime
eliStartDate = lens _eliStartDate (\ s a -> s{_eliStartDate = a}) . _Time
instance FromJSON ExecutionListItem where
parseJSON
= withObject "ExecutionListItem"
(\ x ->
ExecutionListItem' <$>
(x .:? "stopDate") <*> (x .: "executionArn") <*>
(x .: "stateMachineArn")
<*> (x .: "name")
<*> (x .: "status")
<*> (x .: "startDate"))
instance Hashable ExecutionListItem where
instance NFData ExecutionListItem where
data ExecutionStartedEventDetails = ExecutionStartedEventDetails'
{ _esedInput :: !(Maybe Text)
, _esedRoleARN :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
executionStartedEventDetails
:: ExecutionStartedEventDetails
executionStartedEventDetails =
ExecutionStartedEventDetails' {_esedInput = Nothing, _esedRoleARN = Nothing}
esedInput :: Lens' ExecutionStartedEventDetails (Maybe Text)
esedInput = lens _esedInput (\ s a -> s{_esedInput = a})
esedRoleARN :: Lens' ExecutionStartedEventDetails (Maybe Text)
esedRoleARN = lens _esedRoleARN (\ s a -> s{_esedRoleARN = a})
instance FromJSON ExecutionStartedEventDetails where
parseJSON
= withObject "ExecutionStartedEventDetails"
(\ x ->
ExecutionStartedEventDetails' <$>
(x .:? "input") <*> (x .:? "roleArn"))
instance Hashable ExecutionStartedEventDetails where
instance NFData ExecutionStartedEventDetails where
newtype ExecutionSucceededEventDetails = ExecutionSucceededEventDetails'
{ _esedOutput :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
executionSucceededEventDetails
:: ExecutionSucceededEventDetails
executionSucceededEventDetails =
ExecutionSucceededEventDetails' {_esedOutput = Nothing}
esedOutput :: Lens' ExecutionSucceededEventDetails (Maybe Text)
esedOutput = lens _esedOutput (\ s a -> s{_esedOutput = a})
instance FromJSON ExecutionSucceededEventDetails
where
parseJSON
= withObject "ExecutionSucceededEventDetails"
(\ x ->
ExecutionSucceededEventDetails' <$> (x .:? "output"))
instance Hashable ExecutionSucceededEventDetails
where
instance NFData ExecutionSucceededEventDetails where
data ExecutionTimedOutEventDetails = ExecutionTimedOutEventDetails'
{ _etoedError :: !(Maybe Text)
, _etoedCause :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
executionTimedOutEventDetails
:: ExecutionTimedOutEventDetails
executionTimedOutEventDetails =
ExecutionTimedOutEventDetails' {_etoedError = Nothing, _etoedCause = Nothing}
etoedError :: Lens' ExecutionTimedOutEventDetails (Maybe Text)
etoedError = lens _etoedError (\ s a -> s{_etoedError = a})
etoedCause :: Lens' ExecutionTimedOutEventDetails (Maybe Text)
etoedCause = lens _etoedCause (\ s a -> s{_etoedCause = a})
instance FromJSON ExecutionTimedOutEventDetails where
parseJSON
= withObject "ExecutionTimedOutEventDetails"
(\ x ->
ExecutionTimedOutEventDetails' <$>
(x .:? "error") <*> (x .:? "cause"))
instance Hashable ExecutionTimedOutEventDetails where
instance NFData ExecutionTimedOutEventDetails where
data HistoryEvent = HistoryEvent'
{ _heActivityStartedEventDetails :: !(Maybe ActivityStartedEventDetails)
, _heLambdaFunctionStartFailedEventDetails :: !(Maybe LambdaFunctionStartFailedEventDetails)
, _heStateExitedEventDetails :: !(Maybe StateExitedEventDetails)
, _heLambdaFunctionSucceededEventDetails :: !(Maybe LambdaFunctionSucceededEventDetails)
, _heActivitySucceededEventDetails :: !(Maybe ActivitySucceededEventDetails)
, _heLambdaFunctionTimedOutEventDetails :: !(Maybe LambdaFunctionTimedOutEventDetails)
, _heActivityTimedOutEventDetails :: !(Maybe ActivityTimedOutEventDetails)
, _heExecutionFailedEventDetails :: !(Maybe ExecutionFailedEventDetails)
, _heExecutionAbortedEventDetails :: !(Maybe ExecutionAbortedEventDetails)
, _heExecutionSucceededEventDetails :: !(Maybe ExecutionSucceededEventDetails)
, _heLambdaFunctionScheduledEventDetails :: !(Maybe LambdaFunctionScheduledEventDetails)
, _heActivityScheduledEventDetails :: !(Maybe ActivityScheduledEventDetails)
, _heExecutionStartedEventDetails :: !(Maybe ExecutionStartedEventDetails)
, _heActivityScheduleFailedEventDetails :: !(Maybe ActivityScheduleFailedEventDetails)
, _heLambdaFunctionScheduleFailedEventDetails :: !(Maybe LambdaFunctionScheduleFailedEventDetails)
, _heStateEnteredEventDetails :: !(Maybe StateEnteredEventDetails)
, _hePreviousEventId :: !(Maybe Integer)
, _heActivityFailedEventDetails :: !(Maybe ActivityFailedEventDetails)
, _heLambdaFunctionFailedEventDetails :: !(Maybe LambdaFunctionFailedEventDetails)
, _heExecutionTimedOutEventDetails :: !(Maybe ExecutionTimedOutEventDetails)
, _heTimestamp :: !POSIX
, _heType :: !HistoryEventType
, _heId :: !Integer
} deriving (Eq, Read, Show, Data, Typeable, Generic)
historyEvent
:: UTCTime
-> HistoryEventType
-> Integer
-> HistoryEvent
historyEvent pTimestamp_ pType_ pId_ =
HistoryEvent'
{ _heActivityStartedEventDetails = Nothing
, _heLambdaFunctionStartFailedEventDetails = Nothing
, _heStateExitedEventDetails = Nothing
, _heLambdaFunctionSucceededEventDetails = Nothing
, _heActivitySucceededEventDetails = Nothing
, _heLambdaFunctionTimedOutEventDetails = Nothing
, _heActivityTimedOutEventDetails = Nothing
, _heExecutionFailedEventDetails = Nothing
, _heExecutionAbortedEventDetails = Nothing
, _heExecutionSucceededEventDetails = Nothing
, _heLambdaFunctionScheduledEventDetails = Nothing
, _heActivityScheduledEventDetails = Nothing
, _heExecutionStartedEventDetails = Nothing
, _heActivityScheduleFailedEventDetails = Nothing
, _heLambdaFunctionScheduleFailedEventDetails = Nothing
, _heStateEnteredEventDetails = Nothing
, _hePreviousEventId = Nothing
, _heActivityFailedEventDetails = Nothing
, _heLambdaFunctionFailedEventDetails = Nothing
, _heExecutionTimedOutEventDetails = Nothing
, _heTimestamp = _Time # pTimestamp_
, _heType = pType_
, _heId = pId_
}
heActivityStartedEventDetails :: Lens' HistoryEvent (Maybe ActivityStartedEventDetails)
heActivityStartedEventDetails = lens _heActivityStartedEventDetails (\ s a -> s{_heActivityStartedEventDetails = a})
heLambdaFunctionStartFailedEventDetails :: Lens' HistoryEvent (Maybe LambdaFunctionStartFailedEventDetails)
heLambdaFunctionStartFailedEventDetails = lens _heLambdaFunctionStartFailedEventDetails (\ s a -> s{_heLambdaFunctionStartFailedEventDetails = a})
heStateExitedEventDetails :: Lens' HistoryEvent (Maybe StateExitedEventDetails)
heStateExitedEventDetails = lens _heStateExitedEventDetails (\ s a -> s{_heStateExitedEventDetails = a})
heLambdaFunctionSucceededEventDetails :: Lens' HistoryEvent (Maybe LambdaFunctionSucceededEventDetails)
heLambdaFunctionSucceededEventDetails = lens _heLambdaFunctionSucceededEventDetails (\ s a -> s{_heLambdaFunctionSucceededEventDetails = a})
heActivitySucceededEventDetails :: Lens' HistoryEvent (Maybe ActivitySucceededEventDetails)
heActivitySucceededEventDetails = lens _heActivitySucceededEventDetails (\ s a -> s{_heActivitySucceededEventDetails = a})
heLambdaFunctionTimedOutEventDetails :: Lens' HistoryEvent (Maybe LambdaFunctionTimedOutEventDetails)
heLambdaFunctionTimedOutEventDetails = lens _heLambdaFunctionTimedOutEventDetails (\ s a -> s{_heLambdaFunctionTimedOutEventDetails = a})
heActivityTimedOutEventDetails :: Lens' HistoryEvent (Maybe ActivityTimedOutEventDetails)
heActivityTimedOutEventDetails = lens _heActivityTimedOutEventDetails (\ s a -> s{_heActivityTimedOutEventDetails = a})
heExecutionFailedEventDetails :: Lens' HistoryEvent (Maybe ExecutionFailedEventDetails)
heExecutionFailedEventDetails = lens _heExecutionFailedEventDetails (\ s a -> s{_heExecutionFailedEventDetails = a})
heExecutionAbortedEventDetails :: Lens' HistoryEvent (Maybe ExecutionAbortedEventDetails)
heExecutionAbortedEventDetails = lens _heExecutionAbortedEventDetails (\ s a -> s{_heExecutionAbortedEventDetails = a})
heExecutionSucceededEventDetails :: Lens' HistoryEvent (Maybe ExecutionSucceededEventDetails)
heExecutionSucceededEventDetails = lens _heExecutionSucceededEventDetails (\ s a -> s{_heExecutionSucceededEventDetails = a})
heLambdaFunctionScheduledEventDetails :: Lens' HistoryEvent (Maybe LambdaFunctionScheduledEventDetails)
heLambdaFunctionScheduledEventDetails = lens _heLambdaFunctionScheduledEventDetails (\ s a -> s{_heLambdaFunctionScheduledEventDetails = a})
heActivityScheduledEventDetails :: Lens' HistoryEvent (Maybe ActivityScheduledEventDetails)
heActivityScheduledEventDetails = lens _heActivityScheduledEventDetails (\ s a -> s{_heActivityScheduledEventDetails = a})
heExecutionStartedEventDetails :: Lens' HistoryEvent (Maybe ExecutionStartedEventDetails)
heExecutionStartedEventDetails = lens _heExecutionStartedEventDetails (\ s a -> s{_heExecutionStartedEventDetails = a})
heActivityScheduleFailedEventDetails :: Lens' HistoryEvent (Maybe ActivityScheduleFailedEventDetails)
heActivityScheduleFailedEventDetails = lens _heActivityScheduleFailedEventDetails (\ s a -> s{_heActivityScheduleFailedEventDetails = a})
heLambdaFunctionScheduleFailedEventDetails :: Lens' HistoryEvent (Maybe LambdaFunctionScheduleFailedEventDetails)
heLambdaFunctionScheduleFailedEventDetails = lens _heLambdaFunctionScheduleFailedEventDetails (\ s a -> s{_heLambdaFunctionScheduleFailedEventDetails = a})
heStateEnteredEventDetails :: Lens' HistoryEvent (Maybe StateEnteredEventDetails)
heStateEnteredEventDetails = lens _heStateEnteredEventDetails (\ s a -> s{_heStateEnteredEventDetails = a})
hePreviousEventId :: Lens' HistoryEvent (Maybe Integer)
hePreviousEventId = lens _hePreviousEventId (\ s a -> s{_hePreviousEventId = a})
heActivityFailedEventDetails :: Lens' HistoryEvent (Maybe ActivityFailedEventDetails)
heActivityFailedEventDetails = lens _heActivityFailedEventDetails (\ s a -> s{_heActivityFailedEventDetails = a})
heLambdaFunctionFailedEventDetails :: Lens' HistoryEvent (Maybe LambdaFunctionFailedEventDetails)
heLambdaFunctionFailedEventDetails = lens _heLambdaFunctionFailedEventDetails (\ s a -> s{_heLambdaFunctionFailedEventDetails = a})
heExecutionTimedOutEventDetails :: Lens' HistoryEvent (Maybe ExecutionTimedOutEventDetails)
heExecutionTimedOutEventDetails = lens _heExecutionTimedOutEventDetails (\ s a -> s{_heExecutionTimedOutEventDetails = a})
heTimestamp :: Lens' HistoryEvent UTCTime
heTimestamp = lens _heTimestamp (\ s a -> s{_heTimestamp = a}) . _Time
heType :: Lens' HistoryEvent HistoryEventType
heType = lens _heType (\ s a -> s{_heType = a})
heId :: Lens' HistoryEvent Integer
heId = lens _heId (\ s a -> s{_heId = a})
instance FromJSON HistoryEvent where
parseJSON
= withObject "HistoryEvent"
(\ x ->
HistoryEvent' <$>
(x .:? "activityStartedEventDetails") <*>
(x .:? "lambdaFunctionStartFailedEventDetails")
<*> (x .:? "stateExitedEventDetails")
<*> (x .:? "lambdaFunctionSucceededEventDetails")
<*> (x .:? "activitySucceededEventDetails")
<*> (x .:? "lambdaFunctionTimedOutEventDetails")
<*> (x .:? "activityTimedOutEventDetails")
<*> (x .:? "executionFailedEventDetails")
<*> (x .:? "executionAbortedEventDetails")
<*> (x .:? "executionSucceededEventDetails")
<*> (x .:? "lambdaFunctionScheduledEventDetails")
<*> (x .:? "activityScheduledEventDetails")
<*> (x .:? "executionStartedEventDetails")
<*> (x .:? "activityScheduleFailedEventDetails")
<*>
(x .:? "lambdaFunctionScheduleFailedEventDetails")
<*> (x .:? "stateEnteredEventDetails")
<*> (x .:? "previousEventId")
<*> (x .:? "activityFailedEventDetails")
<*> (x .:? "lambdaFunctionFailedEventDetails")
<*> (x .:? "executionTimedOutEventDetails")
<*> (x .: "timestamp")
<*> (x .: "type")
<*> (x .: "id"))
instance Hashable HistoryEvent where
instance NFData HistoryEvent where
data LambdaFunctionFailedEventDetails = LambdaFunctionFailedEventDetails'
{ _lffedError :: !(Maybe Text)
, _lffedCause :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
lambdaFunctionFailedEventDetails
:: LambdaFunctionFailedEventDetails
lambdaFunctionFailedEventDetails =
LambdaFunctionFailedEventDetails'
{_lffedError = Nothing, _lffedCause = Nothing}
lffedError :: Lens' LambdaFunctionFailedEventDetails (Maybe Text)
lffedError = lens _lffedError (\ s a -> s{_lffedError = a})
lffedCause :: Lens' LambdaFunctionFailedEventDetails (Maybe Text)
lffedCause = lens _lffedCause (\ s a -> s{_lffedCause = a})
instance FromJSON LambdaFunctionFailedEventDetails
where
parseJSON
= withObject "LambdaFunctionFailedEventDetails"
(\ x ->
LambdaFunctionFailedEventDetails' <$>
(x .:? "error") <*> (x .:? "cause"))
instance Hashable LambdaFunctionFailedEventDetails
where
instance NFData LambdaFunctionFailedEventDetails
where
data LambdaFunctionScheduleFailedEventDetails = LambdaFunctionScheduleFailedEventDetails'
{ _lError :: !(Maybe Text)
, _lCause :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
lambdaFunctionScheduleFailedEventDetails
:: LambdaFunctionScheduleFailedEventDetails
lambdaFunctionScheduleFailedEventDetails =
LambdaFunctionScheduleFailedEventDetails'
{_lError = Nothing, _lCause = Nothing}
lError :: Lens' LambdaFunctionScheduleFailedEventDetails (Maybe Text)
lError = lens _lError (\ s a -> s{_lError = a})
lCause :: Lens' LambdaFunctionScheduleFailedEventDetails (Maybe Text)
lCause = lens _lCause (\ s a -> s{_lCause = a})
instance FromJSON
LambdaFunctionScheduleFailedEventDetails
where
parseJSON
= withObject
"LambdaFunctionScheduleFailedEventDetails"
(\ x ->
LambdaFunctionScheduleFailedEventDetails' <$>
(x .:? "error") <*> (x .:? "cause"))
instance Hashable
LambdaFunctionScheduleFailedEventDetails
where
instance NFData
LambdaFunctionScheduleFailedEventDetails
where
data LambdaFunctionScheduledEventDetails = LambdaFunctionScheduledEventDetails'
{ _lfsedInput :: !(Maybe Text)
, _lfsedTimeoutInSeconds :: !(Maybe Integer)
, _lfsedResource :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
lambdaFunctionScheduledEventDetails
:: Text
-> LambdaFunctionScheduledEventDetails
lambdaFunctionScheduledEventDetails pResource_ =
LambdaFunctionScheduledEventDetails'
{ _lfsedInput = Nothing
, _lfsedTimeoutInSeconds = Nothing
, _lfsedResource = pResource_
}
lfsedInput :: Lens' LambdaFunctionScheduledEventDetails (Maybe Text)
lfsedInput = lens _lfsedInput (\ s a -> s{_lfsedInput = a})
lfsedTimeoutInSeconds :: Lens' LambdaFunctionScheduledEventDetails (Maybe Integer)
lfsedTimeoutInSeconds = lens _lfsedTimeoutInSeconds (\ s a -> s{_lfsedTimeoutInSeconds = a})
lfsedResource :: Lens' LambdaFunctionScheduledEventDetails Text
lfsedResource = lens _lfsedResource (\ s a -> s{_lfsedResource = a})
instance FromJSON LambdaFunctionScheduledEventDetails
where
parseJSON
= withObject "LambdaFunctionScheduledEventDetails"
(\ x ->
LambdaFunctionScheduledEventDetails' <$>
(x .:? "input") <*> (x .:? "timeoutInSeconds") <*>
(x .: "resource"))
instance Hashable LambdaFunctionScheduledEventDetails
where
instance NFData LambdaFunctionScheduledEventDetails
where
data LambdaFunctionStartFailedEventDetails = LambdaFunctionStartFailedEventDetails'
{ _lfsfedError :: !(Maybe Text)
, _lfsfedCause :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
lambdaFunctionStartFailedEventDetails
:: LambdaFunctionStartFailedEventDetails
lambdaFunctionStartFailedEventDetails =
LambdaFunctionStartFailedEventDetails'
{_lfsfedError = Nothing, _lfsfedCause = Nothing}
lfsfedError :: Lens' LambdaFunctionStartFailedEventDetails (Maybe Text)
lfsfedError = lens _lfsfedError (\ s a -> s{_lfsfedError = a})
lfsfedCause :: Lens' LambdaFunctionStartFailedEventDetails (Maybe Text)
lfsfedCause = lens _lfsfedCause (\ s a -> s{_lfsfedCause = a})
instance FromJSON
LambdaFunctionStartFailedEventDetails
where
parseJSON
= withObject "LambdaFunctionStartFailedEventDetails"
(\ x ->
LambdaFunctionStartFailedEventDetails' <$>
(x .:? "error") <*> (x .:? "cause"))
instance Hashable
LambdaFunctionStartFailedEventDetails
where
instance NFData LambdaFunctionStartFailedEventDetails
where
newtype LambdaFunctionSucceededEventDetails = LambdaFunctionSucceededEventDetails'
{ _lfsedOutput :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
lambdaFunctionSucceededEventDetails
:: LambdaFunctionSucceededEventDetails
lambdaFunctionSucceededEventDetails =
LambdaFunctionSucceededEventDetails' {_lfsedOutput = Nothing}
lfsedOutput :: Lens' LambdaFunctionSucceededEventDetails (Maybe Text)
lfsedOutput = lens _lfsedOutput (\ s a -> s{_lfsedOutput = a})
instance FromJSON LambdaFunctionSucceededEventDetails
where
parseJSON
= withObject "LambdaFunctionSucceededEventDetails"
(\ x ->
LambdaFunctionSucceededEventDetails' <$>
(x .:? "output"))
instance Hashable LambdaFunctionSucceededEventDetails
where
instance NFData LambdaFunctionSucceededEventDetails
where
data LambdaFunctionTimedOutEventDetails = LambdaFunctionTimedOutEventDetails'
{ _lftoedError :: !(Maybe Text)
, _lftoedCause :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
lambdaFunctionTimedOutEventDetails
:: LambdaFunctionTimedOutEventDetails
lambdaFunctionTimedOutEventDetails =
LambdaFunctionTimedOutEventDetails'
{_lftoedError = Nothing, _lftoedCause = Nothing}
lftoedError :: Lens' LambdaFunctionTimedOutEventDetails (Maybe Text)
lftoedError = lens _lftoedError (\ s a -> s{_lftoedError = a})
lftoedCause :: Lens' LambdaFunctionTimedOutEventDetails (Maybe Text)
lftoedCause = lens _lftoedCause (\ s a -> s{_lftoedCause = a})
instance FromJSON LambdaFunctionTimedOutEventDetails
where
parseJSON
= withObject "LambdaFunctionTimedOutEventDetails"
(\ x ->
LambdaFunctionTimedOutEventDetails' <$>
(x .:? "error") <*> (x .:? "cause"))
instance Hashable LambdaFunctionTimedOutEventDetails
where
instance NFData LambdaFunctionTimedOutEventDetails
where
data StateEnteredEventDetails = StateEnteredEventDetails'
{ _sInput :: !(Maybe Text)
, _sName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
stateEnteredEventDetails
:: Text
-> StateEnteredEventDetails
stateEnteredEventDetails pName_ =
StateEnteredEventDetails' {_sInput = Nothing, _sName = pName_}
sInput :: Lens' StateEnteredEventDetails (Maybe Text)
sInput = lens _sInput (\ s a -> s{_sInput = a})
sName :: Lens' StateEnteredEventDetails Text
sName = lens _sName (\ s a -> s{_sName = a})
instance FromJSON StateEnteredEventDetails where
parseJSON
= withObject "StateEnteredEventDetails"
(\ x ->
StateEnteredEventDetails' <$>
(x .:? "input") <*> (x .: "name"))
instance Hashable StateEnteredEventDetails where
instance NFData StateEnteredEventDetails where
data StateExitedEventDetails = StateExitedEventDetails'
{ _seedOutput :: !(Maybe Text)
, _seedName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
stateExitedEventDetails
:: Text
-> StateExitedEventDetails
stateExitedEventDetails pName_ =
StateExitedEventDetails' {_seedOutput = Nothing, _seedName = pName_}
seedOutput :: Lens' StateExitedEventDetails (Maybe Text)
seedOutput = lens _seedOutput (\ s a -> s{_seedOutput = a})
seedName :: Lens' StateExitedEventDetails Text
seedName = lens _seedName (\ s a -> s{_seedName = a})
instance FromJSON StateExitedEventDetails where
parseJSON
= withObject "StateExitedEventDetails"
(\ x ->
StateExitedEventDetails' <$>
(x .:? "output") <*> (x .: "name"))
instance Hashable StateExitedEventDetails where
instance NFData StateExitedEventDetails where
data StateMachineListItem = StateMachineListItem'
{ _smliStateMachineARN :: !Text
, _smliName :: !Text
, _smliCreationDate :: !POSIX
} deriving (Eq, Read, Show, Data, Typeable, Generic)
stateMachineListItem
:: Text
-> Text
-> UTCTime
-> StateMachineListItem
stateMachineListItem pStateMachineARN_ pName_ pCreationDate_ =
StateMachineListItem'
{ _smliStateMachineARN = pStateMachineARN_
, _smliName = pName_
, _smliCreationDate = _Time # pCreationDate_
}
smliStateMachineARN :: Lens' StateMachineListItem Text
smliStateMachineARN = lens _smliStateMachineARN (\ s a -> s{_smliStateMachineARN = a})
smliName :: Lens' StateMachineListItem Text
smliName = lens _smliName (\ s a -> s{_smliName = a})
smliCreationDate :: Lens' StateMachineListItem UTCTime
smliCreationDate = lens _smliCreationDate (\ s a -> s{_smliCreationDate = a}) . _Time
instance FromJSON StateMachineListItem where
parseJSON
= withObject "StateMachineListItem"
(\ x ->
StateMachineListItem' <$>
(x .: "stateMachineArn") <*> (x .: "name") <*>
(x .: "creationDate"))
instance Hashable StateMachineListItem where
instance NFData StateMachineListItem where