{-# 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.Redshift.DescribeHSMClientCertificates
(
describeHSMClientCertificates
, DescribeHSMClientCertificates
, dhccTagValues
, dhccTagKeys
, dhccHSMClientCertificateIdentifier
, dhccMarker
, dhccMaxRecords
, describeHSMClientCertificatesResponse
, DescribeHSMClientCertificatesResponse
, dhccrsMarker
, dhccrsHSMClientCertificates
, dhccrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Redshift.Types
import Network.AWS.Redshift.Types.Product
import Network.AWS.Request
import Network.AWS.Response
data DescribeHSMClientCertificates = DescribeHSMClientCertificates'
{ _dhccTagValues :: !(Maybe [Text])
, _dhccTagKeys :: !(Maybe [Text])
, _dhccHSMClientCertificateIdentifier :: !(Maybe Text)
, _dhccMarker :: !(Maybe Text)
, _dhccMaxRecords :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeHSMClientCertificates
:: DescribeHSMClientCertificates
describeHSMClientCertificates =
DescribeHSMClientCertificates'
{ _dhccTagValues = Nothing
, _dhccTagKeys = Nothing
, _dhccHSMClientCertificateIdentifier = Nothing
, _dhccMarker = Nothing
, _dhccMaxRecords = Nothing
}
dhccTagValues :: Lens' DescribeHSMClientCertificates [Text]
dhccTagValues = lens _dhccTagValues (\ s a -> s{_dhccTagValues = a}) . _Default . _Coerce;
dhccTagKeys :: Lens' DescribeHSMClientCertificates [Text]
dhccTagKeys = lens _dhccTagKeys (\ s a -> s{_dhccTagKeys = a}) . _Default . _Coerce;
dhccHSMClientCertificateIdentifier :: Lens' DescribeHSMClientCertificates (Maybe Text)
dhccHSMClientCertificateIdentifier = lens _dhccHSMClientCertificateIdentifier (\ s a -> s{_dhccHSMClientCertificateIdentifier = a});
dhccMarker :: Lens' DescribeHSMClientCertificates (Maybe Text)
dhccMarker = lens _dhccMarker (\ s a -> s{_dhccMarker = a});
dhccMaxRecords :: Lens' DescribeHSMClientCertificates (Maybe Int)
dhccMaxRecords = lens _dhccMaxRecords (\ s a -> s{_dhccMaxRecords = a});
instance AWSPager DescribeHSMClientCertificates where
page rq rs
| stop (rs ^. dhccrsMarker) = Nothing
| stop (rs ^. dhccrsHSMClientCertificates) = Nothing
| otherwise =
Just $ rq & dhccMarker .~ rs ^. dhccrsMarker
instance AWSRequest DescribeHSMClientCertificates
where
type Rs DescribeHSMClientCertificates =
DescribeHSMClientCertificatesResponse
request = postQuery redshift
response
= receiveXMLWrapper
"DescribeHsmClientCertificatesResult"
(\ s h x ->
DescribeHSMClientCertificatesResponse' <$>
(x .@? "Marker") <*>
(x .@? "HsmClientCertificates" .!@ mempty >>=
may (parseXMLList "HsmClientCertificate"))
<*> (pure (fromEnum s)))
instance Hashable DescribeHSMClientCertificates
instance NFData DescribeHSMClientCertificates
instance ToHeaders DescribeHSMClientCertificates
where
toHeaders = const mempty
instance ToPath DescribeHSMClientCertificates where
toPath = const "/"
instance ToQuery DescribeHSMClientCertificates where
toQuery DescribeHSMClientCertificates'{..}
= mconcat
["Action" =:
("DescribeHsmClientCertificates" :: ByteString),
"Version" =: ("2012-12-01" :: ByteString),
"TagValues" =:
toQuery (toQueryList "TagValue" <$> _dhccTagValues),
"TagKeys" =:
toQuery (toQueryList "TagKey" <$> _dhccTagKeys),
"HsmClientCertificateIdentifier" =:
_dhccHSMClientCertificateIdentifier,
"Marker" =: _dhccMarker,
"MaxRecords" =: _dhccMaxRecords]
data DescribeHSMClientCertificatesResponse = DescribeHSMClientCertificatesResponse'
{ _dhccrsMarker :: !(Maybe Text)
, _dhccrsHSMClientCertificates :: !(Maybe [HSMClientCertificate])
, _dhccrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeHSMClientCertificatesResponse
:: Int
-> DescribeHSMClientCertificatesResponse
describeHSMClientCertificatesResponse pResponseStatus_ =
DescribeHSMClientCertificatesResponse'
{ _dhccrsMarker = Nothing
, _dhccrsHSMClientCertificates = Nothing
, _dhccrsResponseStatus = pResponseStatus_
}
dhccrsMarker :: Lens' DescribeHSMClientCertificatesResponse (Maybe Text)
dhccrsMarker = lens _dhccrsMarker (\ s a -> s{_dhccrsMarker = a});
dhccrsHSMClientCertificates :: Lens' DescribeHSMClientCertificatesResponse [HSMClientCertificate]
dhccrsHSMClientCertificates = lens _dhccrsHSMClientCertificates (\ s a -> s{_dhccrsHSMClientCertificates = a}) . _Default . _Coerce;
dhccrsResponseStatus :: Lens' DescribeHSMClientCertificatesResponse Int
dhccrsResponseStatus = lens _dhccrsResponseStatus (\ s a -> s{_dhccrsResponseStatus = a});
instance NFData DescribeHSMClientCertificatesResponse