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
instance NFData RejectCertificateTransfer
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