{-# 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.APIGateway.GetClientCertificates
(
getClientCertificates
, GetClientCertificates
, gccLimit
, gccPosition
, getClientCertificatesResponse
, GetClientCertificatesResponse
, gccrsItems
, gccrsPosition
, gccrsResponseStatus
) where
import Network.AWS.APIGateway.Types
import Network.AWS.APIGateway.Types.Product
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetClientCertificates = GetClientCertificates'
{ _gccLimit :: !(Maybe Int)
, _gccPosition :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getClientCertificates
:: GetClientCertificates
getClientCertificates =
GetClientCertificates' {_gccLimit = Nothing, _gccPosition = Nothing}
gccLimit :: Lens' GetClientCertificates (Maybe Int)
gccLimit = lens _gccLimit (\ s a -> s{_gccLimit = a})
gccPosition :: Lens' GetClientCertificates (Maybe Text)
gccPosition = lens _gccPosition (\ s a -> s{_gccPosition = a})
instance AWSPager GetClientCertificates where
page rq rs
| stop (rs ^. gccrsPosition) = Nothing
| stop (rs ^. gccrsItems) = Nothing
| otherwise =
Just $ rq & gccPosition .~ rs ^. gccrsPosition
instance AWSRequest GetClientCertificates where
type Rs GetClientCertificates =
GetClientCertificatesResponse
request = get apiGateway
response
= receiveJSON
(\ s h x ->
GetClientCertificatesResponse' <$>
(x .?> "item" .!@ mempty) <*> (x .?> "position") <*>
(pure (fromEnum s)))
instance Hashable GetClientCertificates where
instance NFData GetClientCertificates where
instance ToHeaders GetClientCertificates where
toHeaders
= const
(mconcat
["Accept" =# ("application/json" :: ByteString)])
instance ToPath GetClientCertificates where
toPath = const "/clientcertificates"
instance ToQuery GetClientCertificates where
toQuery GetClientCertificates'{..}
= mconcat
["limit" =: _gccLimit, "position" =: _gccPosition]
data GetClientCertificatesResponse = GetClientCertificatesResponse'
{ _gccrsItems :: !(Maybe [ClientCertificate])
, _gccrsPosition :: !(Maybe Text)
, _gccrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getClientCertificatesResponse
:: Int
-> GetClientCertificatesResponse
getClientCertificatesResponse pResponseStatus_ =
GetClientCertificatesResponse'
{ _gccrsItems = Nothing
, _gccrsPosition = Nothing
, _gccrsResponseStatus = pResponseStatus_
}
gccrsItems :: Lens' GetClientCertificatesResponse [ClientCertificate]
gccrsItems = lens _gccrsItems (\ s a -> s{_gccrsItems = a}) . _Default . _Coerce
gccrsPosition :: Lens' GetClientCertificatesResponse (Maybe Text)
gccrsPosition = lens _gccrsPosition (\ s a -> s{_gccrsPosition = a})
gccrsResponseStatus :: Lens' GetClientCertificatesResponse Int
gccrsResponseStatus = lens _gccrsResponseStatus (\ s a -> s{_gccrsResponseStatus = a})
instance NFData GetClientCertificatesResponse where