module Network.AWS.DataPipeline.ValidatePipelineDefinition
(
ValidatePipelineDefinition
, validatePipelineDefinition
, vpdParameterObjects
, vpdParameterValues
, vpdPipelineId
, vpdPipelineObjects
, ValidatePipelineDefinitionResponse
, validatePipelineDefinitionResponse
, vpdrErrored
, vpdrValidationErrors
, vpdrValidationWarnings
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.DataPipeline.Types
import qualified GHC.Exts
data ValidatePipelineDefinition = ValidatePipelineDefinition
{ _vpdParameterObjects :: List "parameterObjects" ParameterObject
, _vpdParameterValues :: List "parameterValues" ParameterValue
, _vpdPipelineId :: Text
, _vpdPipelineObjects :: List "pipelineObjects" PipelineObject
} deriving (Eq, Read, Show)
validatePipelineDefinition :: Text
-> ValidatePipelineDefinition
validatePipelineDefinition p1 = ValidatePipelineDefinition
{ _vpdPipelineId = p1
, _vpdPipelineObjects = mempty
, _vpdParameterObjects = mempty
, _vpdParameterValues = mempty
}
vpdParameterObjects :: Lens' ValidatePipelineDefinition [ParameterObject]
vpdParameterObjects =
lens _vpdParameterObjects (\s a -> s { _vpdParameterObjects = a })
. _List
vpdParameterValues :: Lens' ValidatePipelineDefinition [ParameterValue]
vpdParameterValues =
lens _vpdParameterValues (\s a -> s { _vpdParameterValues = a })
. _List
vpdPipelineId :: Lens' ValidatePipelineDefinition Text
vpdPipelineId = lens _vpdPipelineId (\s a -> s { _vpdPipelineId = a })
vpdPipelineObjects :: Lens' ValidatePipelineDefinition [PipelineObject]
vpdPipelineObjects =
lens _vpdPipelineObjects (\s a -> s { _vpdPipelineObjects = a })
. _List
data ValidatePipelineDefinitionResponse = ValidatePipelineDefinitionResponse
{ _vpdrErrored :: Bool
, _vpdrValidationErrors :: List "validationErrors" ValidationError
, _vpdrValidationWarnings :: List "validationWarnings" ValidationWarning
} deriving (Eq, Read, Show)
validatePipelineDefinitionResponse :: Bool
-> ValidatePipelineDefinitionResponse
validatePipelineDefinitionResponse p1 = ValidatePipelineDefinitionResponse
{ _vpdrErrored = p1
, _vpdrValidationErrors = mempty
, _vpdrValidationWarnings = mempty
}
vpdrErrored :: Lens' ValidatePipelineDefinitionResponse Bool
vpdrErrored = lens _vpdrErrored (\s a -> s { _vpdrErrored = a })
vpdrValidationErrors :: Lens' ValidatePipelineDefinitionResponse [ValidationError]
vpdrValidationErrors =
lens _vpdrValidationErrors (\s a -> s { _vpdrValidationErrors = a })
. _List
vpdrValidationWarnings :: Lens' ValidatePipelineDefinitionResponse [ValidationWarning]
vpdrValidationWarnings =
lens _vpdrValidationWarnings (\s a -> s { _vpdrValidationWarnings = a })
. _List
instance ToPath ValidatePipelineDefinition where
toPath = const "/"
instance ToQuery ValidatePipelineDefinition where
toQuery = const mempty
instance ToHeaders ValidatePipelineDefinition
instance ToJSON ValidatePipelineDefinition where
toJSON ValidatePipelineDefinition{..} = object
[ "pipelineId" .= _vpdPipelineId
, "pipelineObjects" .= _vpdPipelineObjects
, "parameterObjects" .= _vpdParameterObjects
, "parameterValues" .= _vpdParameterValues
]
instance AWSRequest ValidatePipelineDefinition where
type Sv ValidatePipelineDefinition = DataPipeline
type Rs ValidatePipelineDefinition = ValidatePipelineDefinitionResponse
request = post "ValidatePipelineDefinition"
response = jsonResponse
instance FromJSON ValidatePipelineDefinitionResponse where
parseJSON = withObject "ValidatePipelineDefinitionResponse" $ \o -> ValidatePipelineDefinitionResponse
<$> o .: "errored"
<*> o .:? "validationErrors" .!= mempty
<*> o .:? "validationWarnings" .!= mempty