module Network.AWS.DataPipeline.ValidatePipelineDefinition
(
ValidatePipelineDefinition
, validatePipelineDefinition
, vpdPipelineId
, vpdPipelineObjects
, ValidatePipelineDefinitionResponse
, validatePipelineDefinitionResponse
, vpdrErrored
, vpdrValidationErrors
, vpdrValidationWarnings
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.DataPipeline.Types
import qualified GHC.Exts
data ValidatePipelineDefinition = ValidatePipelineDefinition
{ _vpdPipelineId :: Text
, _vpdPipelineObjects :: List "pipelineObjects" PipelineObject
} deriving (Eq, Show)
validatePipelineDefinition :: Text
-> ValidatePipelineDefinition
validatePipelineDefinition p1 = ValidatePipelineDefinition
{ _vpdPipelineId = p1
, _vpdPipelineObjects = mempty
}
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, 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
]
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"
<*> o .: "validationWarnings"