module Network.AWS.ECS.DescribeTasks
(
DescribeTasks
, describeTasks
, dtCluster
, dtTasks
, DescribeTasksResponse
, describeTasksResponse
, dtrFailures
, dtrTasks
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.ECS.Types
import qualified GHC.Exts
data DescribeTasks = DescribeTasks
{ _dtCluster :: Maybe Text
, _dtTasks :: List "tasks" Text
} deriving (Eq, Ord, Read, Show)
describeTasks :: DescribeTasks
describeTasks = DescribeTasks
{ _dtCluster = Nothing
, _dtTasks = mempty
}
dtCluster :: Lens' DescribeTasks (Maybe Text)
dtCluster = lens _dtCluster (\s a -> s { _dtCluster = a })
dtTasks :: Lens' DescribeTasks [Text]
dtTasks = lens _dtTasks (\s a -> s { _dtTasks = a }) . _List
data DescribeTasksResponse = DescribeTasksResponse
{ _dtrFailures :: List "failures" Failure
, _dtrTasks :: List "tasks" Task
} deriving (Eq, Read, Show)
describeTasksResponse :: DescribeTasksResponse
describeTasksResponse = DescribeTasksResponse
{ _dtrTasks = mempty
, _dtrFailures = mempty
}
dtrFailures :: Lens' DescribeTasksResponse [Failure]
dtrFailures = lens _dtrFailures (\s a -> s { _dtrFailures = a }) . _List
dtrTasks :: Lens' DescribeTasksResponse [Task]
dtrTasks = lens _dtrTasks (\s a -> s { _dtrTasks = a }) . _List
instance ToPath DescribeTasks where
toPath = const "/"
instance ToQuery DescribeTasks where
toQuery = const mempty
instance ToHeaders DescribeTasks
instance ToJSON DescribeTasks where
toJSON DescribeTasks{..} = object
[ "cluster" .= _dtCluster
, "tasks" .= _dtTasks
]
instance AWSRequest DescribeTasks where
type Sv DescribeTasks = ECS
type Rs DescribeTasks = DescribeTasksResponse
request = post "DescribeTasks"
response = jsonResponse
instance FromJSON DescribeTasksResponse where
parseJSON = withObject "DescribeTasksResponse" $ \o -> DescribeTasksResponse
<$> o .:? "failures" .!= mempty
<*> o .:? "tasks" .!= mempty