{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.CodePipeline.DeleteCustomActionType
(
deleteCustomActionType
, DeleteCustomActionType
, dcatCategory
, dcatProvider
, dcatVersion
, deleteCustomActionTypeResponse
, DeleteCustomActionTypeResponse
) 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
data DeleteCustomActionType = DeleteCustomActionType'
{ _dcatCategory :: !ActionCategory
, _dcatProvider :: !Text
, _dcatVersion :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteCustomActionType
:: ActionCategory
-> Text
-> Text
-> DeleteCustomActionType
deleteCustomActionType pCategory_ pProvider_ pVersion_ =
DeleteCustomActionType'
{ _dcatCategory = pCategory_
, _dcatProvider = pProvider_
, _dcatVersion = pVersion_
}
dcatCategory :: Lens' DeleteCustomActionType ActionCategory
dcatCategory = lens _dcatCategory (\ s a -> s{_dcatCategory = a});
dcatProvider :: Lens' DeleteCustomActionType Text
dcatProvider = lens _dcatProvider (\ s a -> s{_dcatProvider = a});
dcatVersion :: Lens' DeleteCustomActionType Text
dcatVersion = lens _dcatVersion (\ s a -> s{_dcatVersion = a});
instance AWSRequest DeleteCustomActionType where
type Rs DeleteCustomActionType =
DeleteCustomActionTypeResponse
request = postJSON codePipeline
response
= receiveNull DeleteCustomActionTypeResponse'
instance Hashable DeleteCustomActionType
instance NFData DeleteCustomActionType
instance ToHeaders DeleteCustomActionType where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodePipeline_20150709.DeleteCustomActionType" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteCustomActionType where
toJSON DeleteCustomActionType'{..}
= object
(catMaybes
[Just ("category" .= _dcatCategory),
Just ("provider" .= _dcatProvider),
Just ("version" .= _dcatVersion)])
instance ToPath DeleteCustomActionType where
toPath = const "/"
instance ToQuery DeleteCustomActionType where
toQuery = const mempty
data DeleteCustomActionTypeResponse =
DeleteCustomActionTypeResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteCustomActionTypeResponse
:: DeleteCustomActionTypeResponse
deleteCustomActionTypeResponse = DeleteCustomActionTypeResponse'
instance NFData DeleteCustomActionTypeResponse