module Network.AWS.CodePipeline.DeletePipeline
(
deletePipeline
, DeletePipeline
, dpName
, deletePipelineResponse
, DeletePipelineResponse
) where
import Network.AWS.CodePipeline.Types
import Network.AWS.CodePipeline.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeletePipeline = DeletePipeline'
{ _dpName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deletePipeline
:: Text
-> DeletePipeline
deletePipeline pName_ =
DeletePipeline'
{ _dpName = pName_
}
dpName :: Lens' DeletePipeline Text
dpName = lens _dpName (\ s a -> s{_dpName = a});
instance AWSRequest DeletePipeline where
type Rs DeletePipeline = DeletePipelineResponse
request = postJSON codePipeline
response = receiveNull DeletePipelineResponse'
instance ToHeaders DeletePipeline where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodePipeline_20150709.DeletePipeline" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeletePipeline where
toJSON DeletePipeline'{..}
= object (catMaybes [Just ("name" .= _dpName)])
instance ToPath DeletePipeline where
toPath = const "/"
instance ToQuery DeletePipeline where
toQuery = const mempty
data DeletePipelineResponse =
DeletePipelineResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deletePipelineResponse
:: DeletePipelineResponse
deletePipelineResponse = DeletePipelineResponse'