module Network.AWS.DataPipeline.DescribePipelines
(
DescribePipelines
, describePipelines
, dpPipelineIds
, DescribePipelinesResponse
, describePipelinesResponse
, dprPipelineDescriptionList
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.DataPipeline.Types
import qualified GHC.Exts
newtype DescribePipelines = DescribePipelines
{ _dpPipelineIds :: List "pipelineIds" Text
} deriving (Eq, Ord, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribePipelines where
type Item DescribePipelines = Text
fromList = DescribePipelines . GHC.Exts.fromList
toList = GHC.Exts.toList . _dpPipelineIds
describePipelines :: DescribePipelines
describePipelines = DescribePipelines
{ _dpPipelineIds = mempty
}
dpPipelineIds :: Lens' DescribePipelines [Text]
dpPipelineIds = lens _dpPipelineIds (\s a -> s { _dpPipelineIds = a }) . _List
newtype DescribePipelinesResponse = DescribePipelinesResponse
{ _dprPipelineDescriptionList :: List "pipelineDescriptionList" PipelineDescription
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribePipelinesResponse where
type Item DescribePipelinesResponse = PipelineDescription
fromList = DescribePipelinesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dprPipelineDescriptionList
describePipelinesResponse :: DescribePipelinesResponse
describePipelinesResponse = DescribePipelinesResponse
{ _dprPipelineDescriptionList = mempty
}
dprPipelineDescriptionList :: Lens' DescribePipelinesResponse [PipelineDescription]
dprPipelineDescriptionList =
lens _dprPipelineDescriptionList
(\s a -> s { _dprPipelineDescriptionList = a })
. _List
instance ToPath DescribePipelines where
toPath = const "/"
instance ToQuery DescribePipelines where
toQuery = const mempty
instance ToHeaders DescribePipelines
instance ToJSON DescribePipelines where
toJSON DescribePipelines{..} = object
[ "pipelineIds" .= _dpPipelineIds
]
instance AWSRequest DescribePipelines where
type Sv DescribePipelines = DataPipeline
type Rs DescribePipelines = DescribePipelinesResponse
request = post "DescribePipelines"
response = jsonResponse
instance FromJSON DescribePipelinesResponse where
parseJSON = withObject "DescribePipelinesResponse" $ \o -> DescribePipelinesResponse
<$> o .:? "pipelineDescriptionList" .!= mempty