{-# 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.UpdateCertificate
(
updateCertificate
, UpdateCertificate
, ucCertificateId
, ucNewStatus
, updateCertificateResponse
, UpdateCertificateResponse
) 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 UpdateCertificate = UpdateCertificate'
{ _ucCertificateId :: !Text
, _ucNewStatus :: !CertificateStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateCertificate
:: Text
-> CertificateStatus
-> UpdateCertificate
updateCertificate pCertificateId_ pNewStatus_ =
UpdateCertificate'
{ _ucCertificateId = pCertificateId_
, _ucNewStatus = pNewStatus_
}
ucCertificateId :: Lens' UpdateCertificate Text
ucCertificateId = lens _ucCertificateId (\ s a -> s{_ucCertificateId = a});
ucNewStatus :: Lens' UpdateCertificate CertificateStatus
ucNewStatus = lens _ucNewStatus (\ s a -> s{_ucNewStatus = a});
instance AWSRequest UpdateCertificate where
type Rs UpdateCertificate = UpdateCertificateResponse
request = putJSON ioT
response = receiveNull UpdateCertificateResponse'
instance Hashable UpdateCertificate
instance NFData UpdateCertificate
instance ToHeaders UpdateCertificate where
toHeaders = const mempty
instance ToJSON UpdateCertificate where
toJSON = const (Object mempty)
instance ToPath UpdateCertificate where
toPath UpdateCertificate'{..}
= mconcat ["/certificates/", toBS _ucCertificateId]
instance ToQuery UpdateCertificate where
toQuery UpdateCertificate'{..}
= mconcat ["newStatus" =: _ucNewStatus]
data UpdateCertificateResponse =
UpdateCertificateResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
updateCertificateResponse
:: UpdateCertificateResponse
updateCertificateResponse = UpdateCertificateResponse'
instance NFData UpdateCertificateResponse