{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.StepFunctions.StartExecution
(
startExecution
, StartExecution
, seInput
, seName
, seStateMachineARN
, startExecutionResponse
, StartExecutionResponse
, srsResponseStatus
, srsExecutionARN
, srsStartDate
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.StepFunctions.Types
import Network.AWS.StepFunctions.Types.Product
data StartExecution = StartExecution'
{ _seInput :: !(Maybe Text)
, _seName :: !(Maybe Text)
, _seStateMachineARN :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
startExecution
:: Text
-> StartExecution
startExecution pStateMachineARN_ =
StartExecution'
{ _seInput = Nothing
, _seName = Nothing
, _seStateMachineARN = pStateMachineARN_
}
seInput :: Lens' StartExecution (Maybe Text)
seInput = lens _seInput (\ s a -> s{_seInput = a});
seName :: Lens' StartExecution (Maybe Text)
seName = lens _seName (\ s a -> s{_seName = a});
seStateMachineARN :: Lens' StartExecution Text
seStateMachineARN = lens _seStateMachineARN (\ s a -> s{_seStateMachineARN = a});
instance AWSRequest StartExecution where
type Rs StartExecution = StartExecutionResponse
request = postJSON stepFunctions
response
= receiveJSON
(\ s h x ->
StartExecutionResponse' <$>
(pure (fromEnum s)) <*> (x .:> "executionArn") <*>
(x .:> "startDate"))
instance Hashable StartExecution
instance NFData StartExecution
instance ToHeaders StartExecution where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSStepFunctions.StartExecution" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.0" :: ByteString)])
instance ToJSON StartExecution where
toJSON StartExecution'{..}
= object
(catMaybes
[("input" .=) <$> _seInput, ("name" .=) <$> _seName,
Just ("stateMachineArn" .= _seStateMachineARN)])
instance ToPath StartExecution where
toPath = const "/"
instance ToQuery StartExecution where
toQuery = const mempty
data StartExecutionResponse = StartExecutionResponse'
{ _srsResponseStatus :: !Int
, _srsExecutionARN :: !Text
, _srsStartDate :: !POSIX
} deriving (Eq,Read,Show,Data,Typeable,Generic)
startExecutionResponse
:: Int
-> Text
-> UTCTime
-> StartExecutionResponse
startExecutionResponse pResponseStatus_ pExecutionARN_ pStartDate_ =
StartExecutionResponse'
{ _srsResponseStatus = pResponseStatus_
, _srsExecutionARN = pExecutionARN_
, _srsStartDate = _Time # pStartDate_
}
srsResponseStatus :: Lens' StartExecutionResponse Int
srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});
srsExecutionARN :: Lens' StartExecutionResponse Text
srsExecutionARN = lens _srsExecutionARN (\ s a -> s{_srsExecutionARN = a});
srsStartDate :: Lens' StartExecutionResponse UTCTime
srsStartDate = lens _srsStartDate (\ s a -> s{_srsStartDate = a}) . _Time;
instance NFData StartExecutionResponse