module Network.AWS.CodePipeline.EnableStageTransition
(
enableStageTransition
, EnableStageTransition
, estPipelineName
, estStageName
, estTransitionType
, enableStageTransitionResponse
, EnableStageTransitionResponse
) 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 EnableStageTransition = EnableStageTransition'
{ _estPipelineName :: !Text
, _estStageName :: !Text
, _estTransitionType :: !StageTransitionType
} deriving (Eq,Read,Show,Data,Typeable,Generic)
enableStageTransition
:: Text
-> Text
-> StageTransitionType
-> EnableStageTransition
enableStageTransition pPipelineName_ pStageName_ pTransitionType_ =
EnableStageTransition'
{ _estPipelineName = pPipelineName_
, _estStageName = pStageName_
, _estTransitionType = pTransitionType_
}
estPipelineName :: Lens' EnableStageTransition Text
estPipelineName = lens _estPipelineName (\ s a -> s{_estPipelineName = a});
estStageName :: Lens' EnableStageTransition Text
estStageName = lens _estStageName (\ s a -> s{_estStageName = a});
estTransitionType :: Lens' EnableStageTransition StageTransitionType
estTransitionType = lens _estTransitionType (\ s a -> s{_estTransitionType = a});
instance AWSRequest EnableStageTransition where
type Rs EnableStageTransition =
EnableStageTransitionResponse
request = postJSON codePipeline
response = receiveNull EnableStageTransitionResponse'
instance ToHeaders EnableStageTransition where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodePipeline_20150709.EnableStageTransition" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON EnableStageTransition where
toJSON EnableStageTransition'{..}
= object
(catMaybes
[Just ("pipelineName" .= _estPipelineName),
Just ("stageName" .= _estStageName),
Just ("transitionType" .= _estTransitionType)])
instance ToPath EnableStageTransition where
toPath = const "/"
instance ToQuery EnableStageTransition where
toQuery = const mempty
data EnableStageTransitionResponse =
EnableStageTransitionResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
enableStageTransitionResponse
:: EnableStageTransitionResponse
enableStageTransitionResponse = EnableStageTransitionResponse'