{-# 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.GetActivityTask
(
getActivityTask
, GetActivityTask
, gatWorkerName
, gatActivityARN
, getActivityTaskResponse
, GetActivityTaskResponse
, gatrsInput
, gatrsTaskToken
, gatrsResponseStatus
) 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 GetActivityTask = GetActivityTask'
{ _gatWorkerName :: !(Maybe Text)
, _gatActivityARN :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getActivityTask
:: Text
-> GetActivityTask
getActivityTask pActivityARN_ =
GetActivityTask'
{ _gatWorkerName = Nothing
, _gatActivityARN = pActivityARN_
}
gatWorkerName :: Lens' GetActivityTask (Maybe Text)
gatWorkerName = lens _gatWorkerName (\ s a -> s{_gatWorkerName = a});
gatActivityARN :: Lens' GetActivityTask Text
gatActivityARN = lens _gatActivityARN (\ s a -> s{_gatActivityARN = a});
instance AWSRequest GetActivityTask where
type Rs GetActivityTask = GetActivityTaskResponse
request = postJSON stepFunctions
response
= receiveJSON
(\ s h x ->
GetActivityTaskResponse' <$>
(x .?> "input") <*> (x .?> "taskToken") <*>
(pure (fromEnum s)))
instance Hashable GetActivityTask
instance NFData GetActivityTask
instance ToHeaders GetActivityTask where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSStepFunctions.GetActivityTask" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.0" :: ByteString)])
instance ToJSON GetActivityTask where
toJSON GetActivityTask'{..}
= object
(catMaybes
[("workerName" .=) <$> _gatWorkerName,
Just ("activityArn" .= _gatActivityARN)])
instance ToPath GetActivityTask where
toPath = const "/"
instance ToQuery GetActivityTask where
toQuery = const mempty
data GetActivityTaskResponse = GetActivityTaskResponse'
{ _gatrsInput :: !(Maybe Text)
, _gatrsTaskToken :: !(Maybe Text)
, _gatrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getActivityTaskResponse
:: Int
-> GetActivityTaskResponse
getActivityTaskResponse pResponseStatus_ =
GetActivityTaskResponse'
{ _gatrsInput = Nothing
, _gatrsTaskToken = Nothing
, _gatrsResponseStatus = pResponseStatus_
}
gatrsInput :: Lens' GetActivityTaskResponse (Maybe Text)
gatrsInput = lens _gatrsInput (\ s a -> s{_gatrsInput = a});
gatrsTaskToken :: Lens' GetActivityTaskResponse (Maybe Text)
gatrsTaskToken = lens _gatrsTaskToken (\ s a -> s{_gatrsTaskToken = a});
gatrsResponseStatus :: Lens' GetActivityTaskResponse Int
gatrsResponseStatus = lens _gatrsResponseStatus (\ s a -> s{_gatrsResponseStatus = a});
instance NFData GetActivityTaskResponse