module Network.AWS.DataPipeline.ValidatePipelineDefinition
(
validatePipelineDefinition
, ValidatePipelineDefinition
, vpdParameterObjects
, vpdParameterValues
, vpdPipelineId
, vpdPipelineObjects
, validatePipelineDefinitionResponse
, ValidatePipelineDefinitionResponse
, vpdrsValidationErrors
, vpdrsValidationWarnings
, vpdrsResponseStatus
, vpdrsErrored
) 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 ValidatePipelineDefinition = ValidatePipelineDefinition'
{ _vpdParameterObjects :: !(Maybe [ParameterObject])
, _vpdParameterValues :: !(Maybe [ParameterValue])
, _vpdPipelineId :: !Text
, _vpdPipelineObjects :: ![PipelineObject]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
validatePipelineDefinition
:: Text
-> ValidatePipelineDefinition
validatePipelineDefinition pPipelineId_ =
ValidatePipelineDefinition'
{ _vpdParameterObjects = Nothing
, _vpdParameterValues = Nothing
, _vpdPipelineId = pPipelineId_
, _vpdPipelineObjects = mempty
}
vpdParameterObjects :: Lens' ValidatePipelineDefinition [ParameterObject]
vpdParameterObjects = lens _vpdParameterObjects (\ s a -> s{_vpdParameterObjects = a}) . _Default . _Coerce;
vpdParameterValues :: Lens' ValidatePipelineDefinition [ParameterValue]
vpdParameterValues = lens _vpdParameterValues (\ s a -> s{_vpdParameterValues = a}) . _Default . _Coerce;
vpdPipelineId :: Lens' ValidatePipelineDefinition Text
vpdPipelineId = lens _vpdPipelineId (\ s a -> s{_vpdPipelineId = a});
vpdPipelineObjects :: Lens' ValidatePipelineDefinition [PipelineObject]
vpdPipelineObjects = lens _vpdPipelineObjects (\ s a -> s{_vpdPipelineObjects = a}) . _Coerce;
instance AWSRequest ValidatePipelineDefinition where
type Rs ValidatePipelineDefinition =
ValidatePipelineDefinitionResponse
request = postJSON dataPipeline
response
= receiveJSON
(\ s h x ->
ValidatePipelineDefinitionResponse' <$>
(x .?> "validationErrors" .!@ mempty) <*>
(x .?> "validationWarnings" .!@ mempty)
<*> (pure (fromEnum s))
<*> (x .:> "errored"))
instance ToHeaders ValidatePipelineDefinition where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DataPipeline.ValidatePipelineDefinition" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ValidatePipelineDefinition where
toJSON ValidatePipelineDefinition'{..}
= object
(catMaybes
[("parameterObjects" .=) <$> _vpdParameterObjects,
("parameterValues" .=) <$> _vpdParameterValues,
Just ("pipelineId" .= _vpdPipelineId),
Just ("pipelineObjects" .= _vpdPipelineObjects)])
instance ToPath ValidatePipelineDefinition where
toPath = const "/"
instance ToQuery ValidatePipelineDefinition where
toQuery = const mempty
data ValidatePipelineDefinitionResponse = ValidatePipelineDefinitionResponse'
{ _vpdrsValidationErrors :: !(Maybe [ValidationError])
, _vpdrsValidationWarnings :: !(Maybe [ValidationWarning])
, _vpdrsResponseStatus :: !Int
, _vpdrsErrored :: !Bool
} deriving (Eq,Read,Show,Data,Typeable,Generic)
validatePipelineDefinitionResponse
:: Int
-> Bool
-> ValidatePipelineDefinitionResponse
validatePipelineDefinitionResponse pResponseStatus_ pErrored_ =
ValidatePipelineDefinitionResponse'
{ _vpdrsValidationErrors = Nothing
, _vpdrsValidationWarnings = Nothing
, _vpdrsResponseStatus = pResponseStatus_
, _vpdrsErrored = pErrored_
}
vpdrsValidationErrors :: Lens' ValidatePipelineDefinitionResponse [ValidationError]
vpdrsValidationErrors = lens _vpdrsValidationErrors (\ s a -> s{_vpdrsValidationErrors = a}) . _Default . _Coerce;
vpdrsValidationWarnings :: Lens' ValidatePipelineDefinitionResponse [ValidationWarning]
vpdrsValidationWarnings = lens _vpdrsValidationWarnings (\ s a -> s{_vpdrsValidationWarnings = a}) . _Default . _Coerce;
vpdrsResponseStatus :: Lens' ValidatePipelineDefinitionResponse Int
vpdrsResponseStatus = lens _vpdrsResponseStatus (\ s a -> s{_vpdrsResponseStatus = a});
vpdrsErrored :: Lens' ValidatePipelineDefinitionResponse Bool
vpdrsErrored = lens _vpdrsErrored (\ s a -> s{_vpdrsErrored = a});