module Network.AWS.CodePipeline.PutActionRevision
(
putActionRevision
, PutActionRevision
, parPipelineName
, parStageName
, parActionName
, parActionRevision
, putActionRevisionResponse
, PutActionRevisionResponse
, parrsNewRevision
, parrsPipelineExecutionId
, parrsStatus
) where
import Network.AWS.CodePipeline.Types
import Network.AWS.CodePipeline.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data PutActionRevision = PutActionRevision'
{ _parPipelineName :: !Text
, _parStageName :: !Text
, _parActionName :: !Text
, _parActionRevision :: !ActionRevision
} deriving (Eq,Read,Show,Data,Typeable,Generic)
putActionRevision
:: Text
-> Text
-> Text
-> ActionRevision
-> PutActionRevision
putActionRevision pPipelineName_ pStageName_ pActionName_ pActionRevision_ =
PutActionRevision'
{ _parPipelineName = pPipelineName_
, _parStageName = pStageName_
, _parActionName = pActionName_
, _parActionRevision = pActionRevision_
}
parPipelineName :: Lens' PutActionRevision Text
parPipelineName = lens _parPipelineName (\ s a -> s{_parPipelineName = a});
parStageName :: Lens' PutActionRevision Text
parStageName = lens _parStageName (\ s a -> s{_parStageName = a});
parActionName :: Lens' PutActionRevision Text
parActionName = lens _parActionName (\ s a -> s{_parActionName = a});
parActionRevision :: Lens' PutActionRevision ActionRevision
parActionRevision = lens _parActionRevision (\ s a -> s{_parActionRevision = a});
instance AWSRequest PutActionRevision where
type Rs PutActionRevision = PutActionRevisionResponse
request = postJSON codePipeline
response
= receiveJSON
(\ s h x ->
PutActionRevisionResponse' <$>
(x .?> "newRevision") <*>
(x .?> "pipelineExecutionId")
<*> (pure (fromEnum s)))
instance ToHeaders PutActionRevision where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodePipeline_20150709.PutActionRevision" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON PutActionRevision where
toJSON PutActionRevision'{..}
= object
(catMaybes
[Just ("pipelineName" .= _parPipelineName),
Just ("stageName" .= _parStageName),
Just ("actionName" .= _parActionName),
Just ("actionRevision" .= _parActionRevision)])
instance ToPath PutActionRevision where
toPath = const "/"
instance ToQuery PutActionRevision where
toQuery = const mempty
data PutActionRevisionResponse = PutActionRevisionResponse'
{ _parrsNewRevision :: !(Maybe Bool)
, _parrsPipelineExecutionId :: !(Maybe Text)
, _parrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
putActionRevisionResponse
:: Int
-> PutActionRevisionResponse
putActionRevisionResponse pStatus_ =
PutActionRevisionResponse'
{ _parrsNewRevision = Nothing
, _parrsPipelineExecutionId = Nothing
, _parrsStatus = pStatus_
}
parrsNewRevision :: Lens' PutActionRevisionResponse (Maybe Bool)
parrsNewRevision = lens _parrsNewRevision (\ s a -> s{_parrsNewRevision = a});
parrsPipelineExecutionId :: Lens' PutActionRevisionResponse (Maybe Text)
parrsPipelineExecutionId = lens _parrsPipelineExecutionId (\ s a -> s{_parrsPipelineExecutionId = a});
parrsStatus :: Lens' PutActionRevisionResponse Int
parrsStatus = lens _parrsStatus (\ s a -> s{_parrsStatus = a});