{-# 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.IoT.CancelCertificateTransfer
(
cancelCertificateTransfer
, CancelCertificateTransfer
, cctCertificateId
, cancelCertificateTransferResponse
, CancelCertificateTransferResponse
) where
import Network.AWS.IoT.Types
import Network.AWS.IoT.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype CancelCertificateTransfer = CancelCertificateTransfer'
{ _cctCertificateId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
cancelCertificateTransfer
:: Text
-> CancelCertificateTransfer
cancelCertificateTransfer pCertificateId_ =
CancelCertificateTransfer'
{ _cctCertificateId = pCertificateId_
}
cctCertificateId :: Lens' CancelCertificateTransfer Text
cctCertificateId = lens _cctCertificateId (\ s a -> s{_cctCertificateId = a});
instance AWSRequest CancelCertificateTransfer where
type Rs CancelCertificateTransfer =
CancelCertificateTransferResponse
request = patchJSON ioT
response
= receiveNull CancelCertificateTransferResponse'
instance Hashable CancelCertificateTransfer
instance NFData CancelCertificateTransfer
instance ToHeaders CancelCertificateTransfer where
toHeaders = const mempty
instance ToJSON CancelCertificateTransfer where
toJSON = const (Object mempty)
instance ToPath CancelCertificateTransfer where
toPath CancelCertificateTransfer'{..}
= mconcat
["/cancel-certificate-transfer/",
toBS _cctCertificateId]
instance ToQuery CancelCertificateTransfer where
toQuery = const mempty
data CancelCertificateTransferResponse =
CancelCertificateTransferResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
cancelCertificateTransferResponse
:: CancelCertificateTransferResponse
cancelCertificateTransferResponse = CancelCertificateTransferResponse'
instance NFData CancelCertificateTransferResponse