{-# 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
, stscAttachments
, stscExecutionStoppedAt
, stscPullStoppedAt
, stscContainers
, stscReason
, stscTask
, stscPullStartedAt
, 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)
, _stscAttachments :: !(Maybe [AttachmentStateChange])
, _stscExecutionStoppedAt :: !(Maybe POSIX)
, _stscPullStoppedAt :: !(Maybe POSIX)
, _stscContainers :: !(Maybe [ContainerStateChange])
, _stscReason :: !(Maybe Text)
, _stscTask :: !(Maybe Text)
, _stscPullStartedAt :: !(Maybe POSIX)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
submitTaskStateChange
:: SubmitTaskStateChange
submitTaskStateChange =
SubmitTaskStateChange'
{ _stscStatus = Nothing
, _stscCluster = Nothing
, _stscAttachments = Nothing
, _stscExecutionStoppedAt = Nothing
, _stscPullStoppedAt = Nothing
, _stscContainers = Nothing
, _stscReason = Nothing
, _stscTask = Nothing
, _stscPullStartedAt = 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})
stscAttachments :: Lens' SubmitTaskStateChange [AttachmentStateChange]
stscAttachments = lens _stscAttachments (\ s a -> s{_stscAttachments = a}) . _Default . _Coerce
stscExecutionStoppedAt :: Lens' SubmitTaskStateChange (Maybe UTCTime)
stscExecutionStoppedAt = lens _stscExecutionStoppedAt (\ s a -> s{_stscExecutionStoppedAt = a}) . mapping _Time
stscPullStoppedAt :: Lens' SubmitTaskStateChange (Maybe UTCTime)
stscPullStoppedAt = lens _stscPullStoppedAt (\ s a -> s{_stscPullStoppedAt = a}) . mapping _Time
stscContainers :: Lens' SubmitTaskStateChange [ContainerStateChange]
stscContainers = lens _stscContainers (\ s a -> s{_stscContainers = a}) . _Default . _Coerce
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})
stscPullStartedAt :: Lens' SubmitTaskStateChange (Maybe UTCTime)
stscPullStartedAt = lens _stscPullStartedAt (\ s a -> s{_stscPullStartedAt = a}) . mapping _Time
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 where
instance NFData SubmitTaskStateChange where
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,
("attachments" .=) <$> _stscAttachments,
("executionStoppedAt" .=) <$>
_stscExecutionStoppedAt,
("pullStoppedAt" .=) <$> _stscPullStoppedAt,
("containers" .=) <$> _stscContainers,
("reason" .=) <$> _stscReason,
("task" .=) <$> _stscTask,
("pullStartedAt" .=) <$> _stscPullStartedAt])
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 where