module Network.AWS.IoT.AcceptCertificateTransfer
(
acceptCertificateTransfer
, AcceptCertificateTransfer
, actSetAsActive
, actCertificateId
, acceptCertificateTransferResponse
, AcceptCertificateTransferResponse
) 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 AcceptCertificateTransfer = AcceptCertificateTransfer'
{ _actSetAsActive :: !(Maybe Bool)
, _actCertificateId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
acceptCertificateTransfer
:: Text
-> AcceptCertificateTransfer
acceptCertificateTransfer pCertificateId_ =
AcceptCertificateTransfer'
{ _actSetAsActive = Nothing
, _actCertificateId = pCertificateId_
}
actSetAsActive :: Lens' AcceptCertificateTransfer (Maybe Bool)
actSetAsActive = lens _actSetAsActive (\ s a -> s{_actSetAsActive = a});
actCertificateId :: Lens' AcceptCertificateTransfer Text
actCertificateId = lens _actCertificateId (\ s a -> s{_actCertificateId = a});
instance AWSRequest AcceptCertificateTransfer where
type Rs AcceptCertificateTransfer =
AcceptCertificateTransferResponse
request = patchJSON ioT
response
= receiveNull AcceptCertificateTransferResponse'
instance Hashable AcceptCertificateTransfer
instance NFData AcceptCertificateTransfer
instance ToHeaders AcceptCertificateTransfer where
toHeaders = const mempty
instance ToJSON AcceptCertificateTransfer where
toJSON = const (Object mempty)
instance ToPath AcceptCertificateTransfer where
toPath AcceptCertificateTransfer'{..}
= mconcat
["/accept-certificate-transfer/",
toBS _actCertificateId]
instance ToQuery AcceptCertificateTransfer where
toQuery AcceptCertificateTransfer'{..}
= mconcat ["setAsActive" =: _actSetAsActive]
data AcceptCertificateTransferResponse =
AcceptCertificateTransferResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
acceptCertificateTransferResponse
:: AcceptCertificateTransferResponse
acceptCertificateTransferResponse = AcceptCertificateTransferResponse'
instance NFData AcceptCertificateTransferResponse