{-# 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.DescribeStateMachineForExecution
(
describeStateMachineForExecution
, DescribeStateMachineForExecution
, dsmfeExecutionARN
, describeStateMachineForExecutionResponse
, DescribeStateMachineForExecutionResponse
, dsmfersResponseStatus
, dsmfersStateMachineARN
, dsmfersName
, dsmfersDefinition
, dsmfersRoleARN
, dsmfersUpdateDate
) 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
newtype DescribeStateMachineForExecution = DescribeStateMachineForExecution'
{ _dsmfeExecutionARN :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeStateMachineForExecution
:: Text
-> DescribeStateMachineForExecution
describeStateMachineForExecution pExecutionARN_ =
DescribeStateMachineForExecution' {_dsmfeExecutionARN = pExecutionARN_}
dsmfeExecutionARN :: Lens' DescribeStateMachineForExecution Text
dsmfeExecutionARN = lens _dsmfeExecutionARN (\ s a -> s{_dsmfeExecutionARN = a})
instance AWSRequest DescribeStateMachineForExecution
where
type Rs DescribeStateMachineForExecution =
DescribeStateMachineForExecutionResponse
request = postJSON stepFunctions
response
= receiveJSON
(\ s h x ->
DescribeStateMachineForExecutionResponse' <$>
(pure (fromEnum s)) <*> (x .:> "stateMachineArn") <*>
(x .:> "name")
<*> (x .:> "definition")
<*> (x .:> "roleArn")
<*> (x .:> "updateDate"))
instance Hashable DescribeStateMachineForExecution
where
instance NFData DescribeStateMachineForExecution
where
instance ToHeaders DescribeStateMachineForExecution
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSStepFunctions.DescribeStateMachineForExecution"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.0" :: ByteString)])
instance ToJSON DescribeStateMachineForExecution
where
toJSON DescribeStateMachineForExecution'{..}
= object
(catMaybes
[Just ("executionArn" .= _dsmfeExecutionARN)])
instance ToPath DescribeStateMachineForExecution
where
toPath = const "/"
instance ToQuery DescribeStateMachineForExecution
where
toQuery = const mempty
data DescribeStateMachineForExecutionResponse = DescribeStateMachineForExecutionResponse'
{ _dsmfersResponseStatus :: !Int
, _dsmfersStateMachineARN :: !Text
, _dsmfersName :: !Text
, _dsmfersDefinition :: !Text
, _dsmfersRoleARN :: !Text
, _dsmfersUpdateDate :: !POSIX
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeStateMachineForExecutionResponse
:: Int
-> Text
-> Text
-> Text
-> Text
-> UTCTime
-> DescribeStateMachineForExecutionResponse
describeStateMachineForExecutionResponse pResponseStatus_ pStateMachineARN_ pName_ pDefinition_ pRoleARN_ pUpdateDate_ =
DescribeStateMachineForExecutionResponse'
{ _dsmfersResponseStatus = pResponseStatus_
, _dsmfersStateMachineARN = pStateMachineARN_
, _dsmfersName = pName_
, _dsmfersDefinition = pDefinition_
, _dsmfersRoleARN = pRoleARN_
, _dsmfersUpdateDate = _Time # pUpdateDate_
}
dsmfersResponseStatus :: Lens' DescribeStateMachineForExecutionResponse Int
dsmfersResponseStatus = lens _dsmfersResponseStatus (\ s a -> s{_dsmfersResponseStatus = a})
dsmfersStateMachineARN :: Lens' DescribeStateMachineForExecutionResponse Text
dsmfersStateMachineARN = lens _dsmfersStateMachineARN (\ s a -> s{_dsmfersStateMachineARN = a})
dsmfersName :: Lens' DescribeStateMachineForExecutionResponse Text
dsmfersName = lens _dsmfersName (\ s a -> s{_dsmfersName = a})
dsmfersDefinition :: Lens' DescribeStateMachineForExecutionResponse Text
dsmfersDefinition = lens _dsmfersDefinition (\ s a -> s{_dsmfersDefinition = a})
dsmfersRoleARN :: Lens' DescribeStateMachineForExecutionResponse Text
dsmfersRoleARN = lens _dsmfersRoleARN (\ s a -> s{_dsmfersRoleARN = a})
dsmfersUpdateDate :: Lens' DescribeStateMachineForExecutionResponse UTCTime
dsmfersUpdateDate = lens _dsmfersUpdateDate (\ s a -> s{_dsmfersUpdateDate = a}) . _Time
instance NFData
DescribeStateMachineForExecutionResponse
where