{-# 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.IAM.ListSigningCertificates
(
listSigningCertificates
, ListSigningCertificates
, lUserName
, lMarker
, lMaxItems
, listSigningCertificatesResponse
, ListSigningCertificatesResponse
, lrsMarker
, lrsIsTruncated
, lrsResponseStatus
, lrsCertificates
) where
import Network.AWS.IAM.Types
import Network.AWS.IAM.Types.Product
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListSigningCertificates = ListSigningCertificates'
{ _lUserName :: !(Maybe Text)
, _lMarker :: !(Maybe Text)
, _lMaxItems :: !(Maybe Nat)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listSigningCertificates
:: ListSigningCertificates
listSigningCertificates =
ListSigningCertificates'
{ _lUserName = Nothing
, _lMarker = Nothing
, _lMaxItems = Nothing
}
lUserName :: Lens' ListSigningCertificates (Maybe Text)
lUserName = lens _lUserName (\ s a -> s{_lUserName = a});
lMarker :: Lens' ListSigningCertificates (Maybe Text)
lMarker = lens _lMarker (\ s a -> s{_lMarker = a});
lMaxItems :: Lens' ListSigningCertificates (Maybe Natural)
lMaxItems = lens _lMaxItems (\ s a -> s{_lMaxItems = a}) . mapping _Nat;
instance AWSPager ListSigningCertificates where
page rq rs
| stop (rs ^. lrsIsTruncated) = Nothing
| isNothing (rs ^. lrsMarker) = Nothing
| otherwise = Just $ rq & lMarker .~ rs ^. lrsMarker
instance AWSRequest ListSigningCertificates where
type Rs ListSigningCertificates =
ListSigningCertificatesResponse
request = postQuery iam
response
= receiveXMLWrapper "ListSigningCertificatesResult"
(\ s h x ->
ListSigningCertificatesResponse' <$>
(x .@? "Marker") <*> (x .@? "IsTruncated") <*>
(pure (fromEnum s))
<*>
(x .@? "Certificates" .!@ mempty >>=
parseXMLList "member"))
instance Hashable ListSigningCertificates
instance NFData ListSigningCertificates
instance ToHeaders ListSigningCertificates where
toHeaders = const mempty
instance ToPath ListSigningCertificates where
toPath = const "/"
instance ToQuery ListSigningCertificates where
toQuery ListSigningCertificates'{..}
= mconcat
["Action" =:
("ListSigningCertificates" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"UserName" =: _lUserName, "Marker" =: _lMarker,
"MaxItems" =: _lMaxItems]
data ListSigningCertificatesResponse = ListSigningCertificatesResponse'
{ _lrsMarker :: !(Maybe Text)
, _lrsIsTruncated :: !(Maybe Bool)
, _lrsResponseStatus :: !Int
, _lrsCertificates :: ![SigningCertificate]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listSigningCertificatesResponse
:: Int
-> ListSigningCertificatesResponse
listSigningCertificatesResponse pResponseStatus_ =
ListSigningCertificatesResponse'
{ _lrsMarker = Nothing
, _lrsIsTruncated = Nothing
, _lrsResponseStatus = pResponseStatus_
, _lrsCertificates = mempty
}
lrsMarker :: Lens' ListSigningCertificatesResponse (Maybe Text)
lrsMarker = lens _lrsMarker (\ s a -> s{_lrsMarker = a});
lrsIsTruncated :: Lens' ListSigningCertificatesResponse (Maybe Bool)
lrsIsTruncated = lens _lrsIsTruncated (\ s a -> s{_lrsIsTruncated = a});
lrsResponseStatus :: Lens' ListSigningCertificatesResponse Int
lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a});
lrsCertificates :: Lens' ListSigningCertificatesResponse [SigningCertificate]
lrsCertificates = lens _lrsCertificates (\ s a -> s{_lrsCertificates = a}) . _Coerce;
instance NFData ListSigningCertificatesResponse