module Network.AWS.CloudHSM.DescribeLunaClient
(
describeLunaClient
, DescribeLunaClient
, dlcClientARN
, dlcCertificateFingerprint
, describeLunaClientResponse
, DescribeLunaClientResponse
, drsClientARN
, drsLastModifiedTimestamp
, drsCertificateFingerprint
, drsCertificate
, drsLabel
, drsResponseStatus
) where
import Network.AWS.CloudHSM.Types
import Network.AWS.CloudHSM.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeLunaClient = DescribeLunaClient'
{ _dlcClientARN :: !(Maybe Text)
, _dlcCertificateFingerprint :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeLunaClient
:: DescribeLunaClient
describeLunaClient =
DescribeLunaClient'
{ _dlcClientARN = Nothing
, _dlcCertificateFingerprint = Nothing
}
dlcClientARN :: Lens' DescribeLunaClient (Maybe Text)
dlcClientARN = lens _dlcClientARN (\ s a -> s{_dlcClientARN = a});
dlcCertificateFingerprint :: Lens' DescribeLunaClient (Maybe Text)
dlcCertificateFingerprint = lens _dlcCertificateFingerprint (\ s a -> s{_dlcCertificateFingerprint = a});
instance AWSRequest DescribeLunaClient where
type Rs DescribeLunaClient =
DescribeLunaClientResponse
request = postJSON cloudHSM
response
= receiveJSON
(\ s h x ->
DescribeLunaClientResponse' <$>
(x .?> "ClientArn") <*>
(x .?> "LastModifiedTimestamp")
<*> (x .?> "CertificateFingerprint")
<*> (x .?> "Certificate")
<*> (x .?> "Label")
<*> (pure (fromEnum s)))
instance ToHeaders DescribeLunaClient where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CloudHsmFrontendService.DescribeLunaClient" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeLunaClient where
toJSON DescribeLunaClient'{..}
= object
(catMaybes
[("ClientArn" .=) <$> _dlcClientARN,
("CertificateFingerprint" .=) <$>
_dlcCertificateFingerprint])
instance ToPath DescribeLunaClient where
toPath = const "/"
instance ToQuery DescribeLunaClient where
toQuery = const mempty
data DescribeLunaClientResponse = DescribeLunaClientResponse'
{ _drsClientARN :: !(Maybe Text)
, _drsLastModifiedTimestamp :: !(Maybe Text)
, _drsCertificateFingerprint :: !(Maybe Text)
, _drsCertificate :: !(Maybe Text)
, _drsLabel :: !(Maybe Text)
, _drsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeLunaClientResponse
:: Int
-> DescribeLunaClientResponse
describeLunaClientResponse pResponseStatus_ =
DescribeLunaClientResponse'
{ _drsClientARN = Nothing
, _drsLastModifiedTimestamp = Nothing
, _drsCertificateFingerprint = Nothing
, _drsCertificate = Nothing
, _drsLabel = Nothing
, _drsResponseStatus = pResponseStatus_
}
drsClientARN :: Lens' DescribeLunaClientResponse (Maybe Text)
drsClientARN = lens _drsClientARN (\ s a -> s{_drsClientARN = a});
drsLastModifiedTimestamp :: Lens' DescribeLunaClientResponse (Maybe Text)
drsLastModifiedTimestamp = lens _drsLastModifiedTimestamp (\ s a -> s{_drsLastModifiedTimestamp = a});
drsCertificateFingerprint :: Lens' DescribeLunaClientResponse (Maybe Text)
drsCertificateFingerprint = lens _drsCertificateFingerprint (\ s a -> s{_drsCertificateFingerprint = a});
drsCertificate :: Lens' DescribeLunaClientResponse (Maybe Text)
drsCertificate = lens _drsCertificate (\ s a -> s{_drsCertificate = a});
drsLabel :: Lens' DescribeLunaClientResponse (Maybe Text)
drsLabel = lens _drsLabel (\ s a -> s{_drsLabel = a});
drsResponseStatus :: Lens' DescribeLunaClientResponse Int
drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});