{-# 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.SendTaskSuccess
(
sendTaskSuccess
, SendTaskSuccess
, stsTaskToken
, stsOutput
, sendTaskSuccessResponse
, SendTaskSuccessResponse
, stsrsResponseStatus
) 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 SendTaskSuccess = SendTaskSuccess'
{ _stsTaskToken :: !Text
, _stsOutput :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
sendTaskSuccess
:: Text
-> Text
-> SendTaskSuccess
sendTaskSuccess pTaskToken_ pOutput_ =
SendTaskSuccess' {_stsTaskToken = pTaskToken_, _stsOutput = pOutput_}
stsTaskToken :: Lens' SendTaskSuccess Text
stsTaskToken = lens _stsTaskToken (\ s a -> s{_stsTaskToken = a})
stsOutput :: Lens' SendTaskSuccess Text
stsOutput = lens _stsOutput (\ s a -> s{_stsOutput = a})
instance AWSRequest SendTaskSuccess where
type Rs SendTaskSuccess = SendTaskSuccessResponse
request = postJSON stepFunctions
response
= receiveEmpty
(\ s h x ->
SendTaskSuccessResponse' <$> (pure (fromEnum s)))
instance Hashable SendTaskSuccess where
instance NFData SendTaskSuccess where
instance ToHeaders SendTaskSuccess where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSStepFunctions.SendTaskSuccess" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.0" :: ByteString)])
instance ToJSON SendTaskSuccess where
toJSON SendTaskSuccess'{..}
= object
(catMaybes
[Just ("taskToken" .= _stsTaskToken),
Just ("output" .= _stsOutput)])
instance ToPath SendTaskSuccess where
toPath = const "/"
instance ToQuery SendTaskSuccess where
toQuery = const mempty
newtype SendTaskSuccessResponse = SendTaskSuccessResponse'
{ _stsrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
sendTaskSuccessResponse
:: Int
-> SendTaskSuccessResponse
sendTaskSuccessResponse pResponseStatus_ =
SendTaskSuccessResponse' {_stsrsResponseStatus = pResponseStatus_}
stsrsResponseStatus :: Lens' SendTaskSuccessResponse Int
stsrsResponseStatus = lens _stsrsResponseStatus (\ s a -> s{_stsrsResponseStatus = a})
instance NFData SendTaskSuccessResponse where