module Network.AWS.ECS.DescribeServices
(
DescribeServices
, describeServices
, ds1Cluster
, ds1Services
, DescribeServicesResponse
, describeServicesResponse
, dsrFailures
, dsrServices
) 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 DescribeServices = DescribeServices
{ _ds1Cluster :: Maybe Text
, _ds1Services :: List "services" Text
} deriving (Eq, Ord, Read, Show)
describeServices :: DescribeServices
describeServices = DescribeServices
{ _ds1Cluster = Nothing
, _ds1Services = mempty
}
ds1Cluster :: Lens' DescribeServices (Maybe Text)
ds1Cluster = lens _ds1Cluster (\s a -> s { _ds1Cluster = a })
ds1Services :: Lens' DescribeServices [Text]
ds1Services = lens _ds1Services (\s a -> s { _ds1Services = a }) . _List
data DescribeServicesResponse = DescribeServicesResponse
{ _dsrFailures :: List "failures" Failure
, _dsrServices :: List "services" ContainerService
} deriving (Eq, Read, Show)
describeServicesResponse :: DescribeServicesResponse
describeServicesResponse = DescribeServicesResponse
{ _dsrServices = mempty
, _dsrFailures = mempty
}
dsrFailures :: Lens' DescribeServicesResponse [Failure]
dsrFailures = lens _dsrFailures (\s a -> s { _dsrFailures = a }) . _List
dsrServices :: Lens' DescribeServicesResponse [ContainerService]
dsrServices = lens _dsrServices (\s a -> s { _dsrServices = a }) . _List
instance ToPath DescribeServices where
toPath = const "/"
instance ToQuery DescribeServices where
toQuery = const mempty
instance ToHeaders DescribeServices
instance ToJSON DescribeServices where
toJSON DescribeServices{..} = object
[ "cluster" .= _ds1Cluster
, "services" .= _ds1Services
]
instance AWSRequest DescribeServices where
type Sv DescribeServices = ECS
type Rs DescribeServices = DescribeServicesResponse
request = post "DescribeServices"
response = jsonResponse
instance FromJSON DescribeServicesResponse where
parseJSON = withObject "DescribeServicesResponse" $ \o -> DescribeServicesResponse
<$> o .:? "failures" .!= mempty
<*> o .:? "services" .!= mempty