{-# 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.SendTaskHeartbeat
(
sendTaskHeartbeat
, SendTaskHeartbeat
, sthTaskToken
, sendTaskHeartbeatResponse
, SendTaskHeartbeatResponse
, sthrsResponseStatus
) 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 SendTaskHeartbeat = SendTaskHeartbeat'
{ _sthTaskToken :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
sendTaskHeartbeat
:: Text
-> SendTaskHeartbeat
sendTaskHeartbeat pTaskToken_ =
SendTaskHeartbeat'
{ _sthTaskToken = pTaskToken_
}
sthTaskToken :: Lens' SendTaskHeartbeat Text
sthTaskToken = lens _sthTaskToken (\ s a -> s{_sthTaskToken = a});
instance AWSRequest SendTaskHeartbeat where
type Rs SendTaskHeartbeat = SendTaskHeartbeatResponse
request = postJSON stepFunctions
response
= receiveEmpty
(\ s h x ->
SendTaskHeartbeatResponse' <$> (pure (fromEnum s)))
instance Hashable SendTaskHeartbeat
instance NFData SendTaskHeartbeat
instance ToHeaders SendTaskHeartbeat where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSStepFunctions.SendTaskHeartbeat" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.0" :: ByteString)])
instance ToJSON SendTaskHeartbeat where
toJSON SendTaskHeartbeat'{..}
= object
(catMaybes [Just ("taskToken" .= _sthTaskToken)])
instance ToPath SendTaskHeartbeat where
toPath = const "/"
instance ToQuery SendTaskHeartbeat where
toQuery = const mempty
newtype SendTaskHeartbeatResponse = SendTaskHeartbeatResponse'
{ _sthrsResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
sendTaskHeartbeatResponse
:: Int
-> SendTaskHeartbeatResponse
sendTaskHeartbeatResponse pResponseStatus_ =
SendTaskHeartbeatResponse'
{ _sthrsResponseStatus = pResponseStatus_
}
sthrsResponseStatus :: Lens' SendTaskHeartbeatResponse Int
sthrsResponseStatus = lens _sthrsResponseStatus (\ s a -> s{_sthrsResponseStatus = a});
instance NFData SendTaskHeartbeatResponse