{-# 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.RegisterCertificate
(
registerCertificate
, RegisterCertificate
, rcCaCertificatePem
, rcSetAsActive
, rcCertificatePem
, registerCertificateResponse
, RegisterCertificateResponse
, rcrsCertificateARN
, rcrsCertificateId
, rcrsResponseStatus
) 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 RegisterCertificate = RegisterCertificate'
{ _rcCaCertificatePem :: !(Maybe Text)
, _rcSetAsActive :: !(Maybe Bool)
, _rcCertificatePem :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
registerCertificate
:: Text
-> RegisterCertificate
registerCertificate pCertificatePem_ =
RegisterCertificate'
{ _rcCaCertificatePem = Nothing
, _rcSetAsActive = Nothing
, _rcCertificatePem = pCertificatePem_
}
rcCaCertificatePem :: Lens' RegisterCertificate (Maybe Text)
rcCaCertificatePem = lens _rcCaCertificatePem (\ s a -> s{_rcCaCertificatePem = a});
rcSetAsActive :: Lens' RegisterCertificate (Maybe Bool)
rcSetAsActive = lens _rcSetAsActive (\ s a -> s{_rcSetAsActive = a});
rcCertificatePem :: Lens' RegisterCertificate Text
rcCertificatePem = lens _rcCertificatePem (\ s a -> s{_rcCertificatePem = a});
instance AWSRequest RegisterCertificate where
type Rs RegisterCertificate =
RegisterCertificateResponse
request = postJSON ioT
response
= receiveJSON
(\ s h x ->
RegisterCertificateResponse' <$>
(x .?> "certificateArn") <*> (x .?> "certificateId")
<*> (pure (fromEnum s)))
instance Hashable RegisterCertificate
instance NFData RegisterCertificate
instance ToHeaders RegisterCertificate where
toHeaders = const mempty
instance ToJSON RegisterCertificate where
toJSON RegisterCertificate'{..}
= object
(catMaybes
[("caCertificatePem" .=) <$> _rcCaCertificatePem,
Just ("certificatePem" .= _rcCertificatePem)])
instance ToPath RegisterCertificate where
toPath = const "/certificate/register"
instance ToQuery RegisterCertificate where
toQuery RegisterCertificate'{..}
= mconcat ["setAsActive" =: _rcSetAsActive]
data RegisterCertificateResponse = RegisterCertificateResponse'
{ _rcrsCertificateARN :: !(Maybe Text)
, _rcrsCertificateId :: !(Maybe Text)
, _rcrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
registerCertificateResponse
:: Int
-> RegisterCertificateResponse
registerCertificateResponse pResponseStatus_ =
RegisterCertificateResponse'
{ _rcrsCertificateARN = Nothing
, _rcrsCertificateId = Nothing
, _rcrsResponseStatus = pResponseStatus_
}
rcrsCertificateARN :: Lens' RegisterCertificateResponse (Maybe Text)
rcrsCertificateARN = lens _rcrsCertificateARN (\ s a -> s{_rcrsCertificateARN = a});
rcrsCertificateId :: Lens' RegisterCertificateResponse (Maybe Text)
rcrsCertificateId = lens _rcrsCertificateId (\ s a -> s{_rcrsCertificateId = a});
rcrsResponseStatus :: Lens' RegisterCertificateResponse Int
rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a});
instance NFData RegisterCertificateResponse