module Network.AWS.ECS.SubmitTaskStateChange
(
SubmitTaskStateChange
, submitTaskStateChange
, stscCluster
, stscReason
, stscStatus
, stscTask
, SubmitTaskStateChangeResponse
, submitTaskStateChangeResponse
, stscrAcknowledgment
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.ECS.Types
import qualified GHC.Exts
data SubmitTaskStateChange = SubmitTaskStateChange
{ _stscCluster :: Maybe Text
, _stscReason :: Maybe Text
, _stscStatus :: Maybe Text
, _stscTask :: Maybe Text
} deriving (Eq, Ord, Read, Show)
submitTaskStateChange :: SubmitTaskStateChange
submitTaskStateChange = SubmitTaskStateChange
{ _stscCluster = Nothing
, _stscTask = Nothing
, _stscStatus = Nothing
, _stscReason = Nothing
}
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 })
stscStatus :: Lens' SubmitTaskStateChange (Maybe Text)
stscStatus = lens _stscStatus (\s a -> s { _stscStatus = a })
stscTask :: Lens' SubmitTaskStateChange (Maybe Text)
stscTask = lens _stscTask (\s a -> s { _stscTask = a })
newtype SubmitTaskStateChangeResponse = SubmitTaskStateChangeResponse
{ _stscrAcknowledgment :: Maybe Text
} deriving (Eq, Ord, Read, Show, Monoid)
submitTaskStateChangeResponse :: SubmitTaskStateChangeResponse
submitTaskStateChangeResponse = SubmitTaskStateChangeResponse
{ _stscrAcknowledgment = Nothing
}
stscrAcknowledgment :: Lens' SubmitTaskStateChangeResponse (Maybe Text)
stscrAcknowledgment =
lens _stscrAcknowledgment (\s a -> s { _stscrAcknowledgment = a })
instance ToPath SubmitTaskStateChange where
toPath = const "/"
instance ToQuery SubmitTaskStateChange where
toQuery = const mempty
instance ToHeaders SubmitTaskStateChange
instance ToJSON SubmitTaskStateChange where
toJSON SubmitTaskStateChange{..} = object
[ "cluster" .= _stscCluster
, "task" .= _stscTask
, "status" .= _stscStatus
, "reason" .= _stscReason
]
instance AWSRequest SubmitTaskStateChange where
type Sv SubmitTaskStateChange = ECS
type Rs SubmitTaskStateChange = SubmitTaskStateChangeResponse
request = post "SubmitTaskStateChange"
response = jsonResponse
instance FromJSON SubmitTaskStateChangeResponse where
parseJSON = withObject "SubmitTaskStateChangeResponse" $ \o -> SubmitTaskStateChangeResponse
<$> o .:? "acknowledgment"