module Network.AWS.DataPipeline.GetPipelineDefinition
(
getPipelineDefinition
, GetPipelineDefinition
, gpdVersion
, gpdPipelineId
, getPipelineDefinitionResponse
, GetPipelineDefinitionResponse
, gpdrsPipelineObjects
, gpdrsParameterObjects
, gpdrsParameterValues
, gpdrsStatus
) where
import Network.AWS.DataPipeline.Types
import Network.AWS.DataPipeline.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetPipelineDefinition = GetPipelineDefinition'
{ _gpdVersion :: !(Maybe Text)
, _gpdPipelineId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getPipelineDefinition
:: Text
-> GetPipelineDefinition
getPipelineDefinition pPipelineId_ =
GetPipelineDefinition'
{ _gpdVersion = Nothing
, _gpdPipelineId = pPipelineId_
}
gpdVersion :: Lens' GetPipelineDefinition (Maybe Text)
gpdVersion = lens _gpdVersion (\ s a -> s{_gpdVersion = a});
gpdPipelineId :: Lens' GetPipelineDefinition Text
gpdPipelineId = lens _gpdPipelineId (\ s a -> s{_gpdPipelineId = a});
instance AWSRequest GetPipelineDefinition where
type Sv GetPipelineDefinition = DataPipeline
type Rs GetPipelineDefinition =
GetPipelineDefinitionResponse
request = postJSON
response
= receiveJSON
(\ s h x ->
GetPipelineDefinitionResponse' <$>
(x .?> "pipelineObjects" .!@ mempty) <*>
(x .?> "parameterObjects" .!@ mempty)
<*> (x .?> "parameterValues" .!@ mempty)
<*> (pure (fromEnum s)))
instance ToHeaders GetPipelineDefinition where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DataPipeline.GetPipelineDefinition" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetPipelineDefinition where
toJSON GetPipelineDefinition'{..}
= object
["version" .= _gpdVersion,
"pipelineId" .= _gpdPipelineId]
instance ToPath GetPipelineDefinition where
toPath = const "/"
instance ToQuery GetPipelineDefinition where
toQuery = const mempty
data GetPipelineDefinitionResponse = GetPipelineDefinitionResponse'
{ _gpdrsPipelineObjects :: !(Maybe [PipelineObject])
, _gpdrsParameterObjects :: !(Maybe [ParameterObject])
, _gpdrsParameterValues :: !(Maybe [ParameterValue])
, _gpdrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getPipelineDefinitionResponse
:: Int
-> GetPipelineDefinitionResponse
getPipelineDefinitionResponse pStatus_ =
GetPipelineDefinitionResponse'
{ _gpdrsPipelineObjects = Nothing
, _gpdrsParameterObjects = Nothing
, _gpdrsParameterValues = Nothing
, _gpdrsStatus = pStatus_
}
gpdrsPipelineObjects :: Lens' GetPipelineDefinitionResponse [PipelineObject]
gpdrsPipelineObjects = lens _gpdrsPipelineObjects (\ s a -> s{_gpdrsPipelineObjects = a}) . _Default . _Coerce;
gpdrsParameterObjects :: Lens' GetPipelineDefinitionResponse [ParameterObject]
gpdrsParameterObjects = lens _gpdrsParameterObjects (\ s a -> s{_gpdrsParameterObjects = a}) . _Default . _Coerce;
gpdrsParameterValues :: Lens' GetPipelineDefinitionResponse [ParameterValue]
gpdrsParameterValues = lens _gpdrsParameterValues (\ s a -> s{_gpdrsParameterValues = a}) . _Default . _Coerce;
gpdrsStatus :: Lens' GetPipelineDefinitionResponse Int
gpdrsStatus = lens _gpdrsStatus (\ s a -> s{_gpdrsStatus = a});