{-# 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.StartTask
(
startTask
, StartTask
, sOverrides
, sCluster
, sStartedBy
, sTaskDefinition
, sContainerInstances
, startTaskResponse
, StartTaskResponse
, strsFailures
, strsTasks
, strsResponseStatus
) 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 StartTask = StartTask'
{ _sOverrides :: !(Maybe TaskOverride)
, _sCluster :: !(Maybe Text)
, _sStartedBy :: !(Maybe Text)
, _sTaskDefinition :: !Text
, _sContainerInstances :: ![Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
startTask
:: Text
-> StartTask
startTask pTaskDefinition_ =
StartTask'
{ _sOverrides = Nothing
, _sCluster = Nothing
, _sStartedBy = Nothing
, _sTaskDefinition = pTaskDefinition_
, _sContainerInstances = mempty
}
sOverrides :: Lens' StartTask (Maybe TaskOverride)
sOverrides = lens _sOverrides (\ s a -> s{_sOverrides = a});
sCluster :: Lens' StartTask (Maybe Text)
sCluster = lens _sCluster (\ s a -> s{_sCluster = a});
sStartedBy :: Lens' StartTask (Maybe Text)
sStartedBy = lens _sStartedBy (\ s a -> s{_sStartedBy = a});
sTaskDefinition :: Lens' StartTask Text
sTaskDefinition = lens _sTaskDefinition (\ s a -> s{_sTaskDefinition = a});
sContainerInstances :: Lens' StartTask [Text]
sContainerInstances = lens _sContainerInstances (\ s a -> s{_sContainerInstances = a}) . _Coerce;
instance AWSRequest StartTask where
type Rs StartTask = StartTaskResponse
request = postJSON ecs
response
= receiveJSON
(\ s h x ->
StartTaskResponse' <$>
(x .?> "failures" .!@ mempty) <*>
(x .?> "tasks" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable StartTask
instance NFData StartTask
instance ToHeaders StartTask where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonEC2ContainerServiceV20141113.StartTask" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON StartTask where
toJSON StartTask'{..}
= object
(catMaybes
[("overrides" .=) <$> _sOverrides,
("cluster" .=) <$> _sCluster,
("startedBy" .=) <$> _sStartedBy,
Just ("taskDefinition" .= _sTaskDefinition),
Just ("containerInstances" .= _sContainerInstances)])
instance ToPath StartTask where
toPath = const "/"
instance ToQuery StartTask where
toQuery = const mempty
data StartTaskResponse = StartTaskResponse'
{ _strsFailures :: !(Maybe [Failure])
, _strsTasks :: !(Maybe [Task])
, _strsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
startTaskResponse
:: Int
-> StartTaskResponse
startTaskResponse pResponseStatus_ =
StartTaskResponse'
{ _strsFailures = Nothing
, _strsTasks = Nothing
, _strsResponseStatus = pResponseStatus_
}
strsFailures :: Lens' StartTaskResponse [Failure]
strsFailures = lens _strsFailures (\ s a -> s{_strsFailures = a}) . _Default . _Coerce;
strsTasks :: Lens' StartTaskResponse [Task]
strsTasks = lens _strsTasks (\ s a -> s{_strsTasks = a}) . _Default . _Coerce;
strsResponseStatus :: Lens' StartTaskResponse Int
strsResponseStatus = lens _strsResponseStatus (\ s a -> s{_strsResponseStatus = a});
instance NFData StartTaskResponse