{-# 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.APIGateway.DeleteClientCertificate
(
deleteClientCertificate
, DeleteClientCertificate
, dccClientCertificateId
, deleteClientCertificateResponse
, DeleteClientCertificateResponse
) where
import Network.AWS.APIGateway.Types
import Network.AWS.APIGateway.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteClientCertificate = DeleteClientCertificate'
{ _dccClientCertificateId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteClientCertificate
:: Text
-> DeleteClientCertificate
deleteClientCertificate pClientCertificateId_ =
DeleteClientCertificate'
{ _dccClientCertificateId = pClientCertificateId_
}
dccClientCertificateId :: Lens' DeleteClientCertificate Text
dccClientCertificateId = lens _dccClientCertificateId (\ s a -> s{_dccClientCertificateId = a});
instance AWSRequest DeleteClientCertificate where
type Rs DeleteClientCertificate =
DeleteClientCertificateResponse
request = delete apiGateway
response
= receiveNull DeleteClientCertificateResponse'
instance Hashable DeleteClientCertificate
instance NFData DeleteClientCertificate
instance ToHeaders DeleteClientCertificate where
toHeaders
= const
(mconcat
["Accept" =# ("application/json" :: ByteString)])
instance ToPath DeleteClientCertificate where
toPath DeleteClientCertificate'{..}
= mconcat
["/clientcertificates/",
toBS _dccClientCertificateId]
instance ToQuery DeleteClientCertificate where
toQuery = const mempty
data DeleteClientCertificateResponse =
DeleteClientCertificateResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteClientCertificateResponse
:: DeleteClientCertificateResponse
deleteClientCertificateResponse = DeleteClientCertificateResponse'
instance NFData DeleteClientCertificateResponse