{-# 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.ECS.SubmitTaskStateChange
(
submitTaskStateChange
, SubmitTaskStateChange
, stscStatus
, stscCluster
, stscReason
, stscTask
, submitTaskStateChangeResponse
, SubmitTaskStateChangeResponse
, stscrsAcknowledgment
, stscrsResponseStatus
) where
import Network.AWS.ECS.Types
import Network.AWS.ECS.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data SubmitTaskStateChange = SubmitTaskStateChange'
{ _stscStatus :: !(Maybe Text)
, _stscCluster :: !(Maybe Text)
, _stscReason :: !(Maybe Text)
, _stscTask :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
submitTaskStateChange
:: SubmitTaskStateChange
submitTaskStateChange =
SubmitTaskStateChange'
{ _stscStatus = Nothing
, _stscCluster = Nothing
, _stscReason = Nothing
, _stscTask = Nothing
}
stscStatus :: Lens' SubmitTaskStateChange (Maybe Text)
stscStatus = lens _stscStatus (\ s a -> s{_stscStatus = a});
stscCluster :: Lens' SubmitTaskStateChange (Maybe Text)
stscCluster = lens _stscCluster (\ s a -> s{_stscCluster = a});
stscReason :: Lens' SubmitTaskStateChange (Maybe Text)
stscReason = lens _stscReason (\ s a -> s{_stscReason = a});
stscTask :: Lens' SubmitTaskStateChange (Maybe Text)
stscTask = lens _stscTask (\ s a -> s{_stscTask = a});
instance AWSRequest SubmitTaskStateChange where
type Rs SubmitTaskStateChange =
SubmitTaskStateChangeResponse
request = postJSON ecs
response
= receiveJSON
(\ s h x ->
SubmitTaskStateChangeResponse' <$>
(x .?> "acknowledgment") <*> (pure (fromEnum s)))
instance Hashable SubmitTaskStateChange
instance NFData SubmitTaskStateChange
instance ToHeaders SubmitTaskStateChange where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonEC2ContainerServiceV20141113.SubmitTaskStateChange"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON SubmitTaskStateChange where
toJSON SubmitTaskStateChange'{..}
= object
(catMaybes
[("status" .=) <$> _stscStatus,
("cluster" .=) <$> _stscCluster,
("reason" .=) <$> _stscReason,
("task" .=) <$> _stscTask])
instance ToPath SubmitTaskStateChange where
toPath = const "/"
instance ToQuery SubmitTaskStateChange where
toQuery = const mempty
data SubmitTaskStateChangeResponse = SubmitTaskStateChangeResponse'
{ _stscrsAcknowledgment :: !(Maybe Text)
, _stscrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
submitTaskStateChangeResponse
:: Int
-> SubmitTaskStateChangeResponse
submitTaskStateChangeResponse pResponseStatus_ =
SubmitTaskStateChangeResponse'
{ _stscrsAcknowledgment = Nothing
, _stscrsResponseStatus = pResponseStatus_
}
stscrsAcknowledgment :: Lens' SubmitTaskStateChangeResponse (Maybe Text)
stscrsAcknowledgment = lens _stscrsAcknowledgment (\ s a -> s{_stscrsAcknowledgment = a});
stscrsResponseStatus :: Lens' SubmitTaskStateChangeResponse Int
stscrsResponseStatus = lens _stscrsResponseStatus (\ s a -> s{_stscrsResponseStatus = a});
instance NFData SubmitTaskStateChangeResponse