{-# 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.RejectCertificateTransfer
(
rejectCertificateTransfer
, RejectCertificateTransfer
, rctRejectReason
, rctCertificateId
, rejectCertificateTransferResponse
, RejectCertificateTransferResponse
) 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
data RejectCertificateTransfer = RejectCertificateTransfer'
{ _rctRejectReason :: !(Maybe Text)
, _rctCertificateId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
rejectCertificateTransfer
:: Text
-> RejectCertificateTransfer
rejectCertificateTransfer pCertificateId_ =
RejectCertificateTransfer'
{_rctRejectReason = Nothing, _rctCertificateId = pCertificateId_}
rctRejectReason :: Lens' RejectCertificateTransfer (Maybe Text)
rctRejectReason = lens _rctRejectReason (\ s a -> s{_rctRejectReason = a})
rctCertificateId :: Lens' RejectCertificateTransfer Text
rctCertificateId = lens _rctCertificateId (\ s a -> s{_rctCertificateId = a})
instance AWSRequest RejectCertificateTransfer where
type Rs RejectCertificateTransfer =
RejectCertificateTransferResponse
request = patchJSON ioT
response
= receiveNull RejectCertificateTransferResponse'
instance Hashable RejectCertificateTransfer where
instance NFData RejectCertificateTransfer where
instance ToHeaders RejectCertificateTransfer where
toHeaders = const mempty
instance ToJSON RejectCertificateTransfer where
toJSON RejectCertificateTransfer'{..}
= object
(catMaybes
[("rejectReason" .=) <$> _rctRejectReason])
instance ToPath RejectCertificateTransfer where
toPath RejectCertificateTransfer'{..}
= mconcat
["/reject-certificate-transfer/",
toBS _rctCertificateId]
instance ToQuery RejectCertificateTransfer where
toQuery = const mempty
data RejectCertificateTransferResponse =
RejectCertificateTransferResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
rejectCertificateTransferResponse
:: RejectCertificateTransferResponse
rejectCertificateTransferResponse = RejectCertificateTransferResponse'
instance NFData RejectCertificateTransferResponse
where