{-# 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.GetVPCLinks
(
getVPCLinks
, GetVPCLinks
, gvlLimit
, gvlPosition
, getVPCLinksResponse
, GetVPCLinksResponse
, gvlrsItems
, gvlrsPosition
, gvlrsResponseStatus
) 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 GetVPCLinks = GetVPCLinks'
{ _gvlLimit :: !(Maybe Int)
, _gvlPosition :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getVPCLinks
:: GetVPCLinks
getVPCLinks = GetVPCLinks' {_gvlLimit = Nothing, _gvlPosition = Nothing}
gvlLimit :: Lens' GetVPCLinks (Maybe Int)
gvlLimit = lens _gvlLimit (\ s a -> s{_gvlLimit = a})
gvlPosition :: Lens' GetVPCLinks (Maybe Text)
gvlPosition = lens _gvlPosition (\ s a -> s{_gvlPosition = a})
instance AWSPager GetVPCLinks where
page rq rs
| stop (rs ^. gvlrsPosition) = Nothing
| stop (rs ^. gvlrsItems) = Nothing
| otherwise =
Just $ rq & gvlPosition .~ rs ^. gvlrsPosition
instance AWSRequest GetVPCLinks where
type Rs GetVPCLinks = GetVPCLinksResponse
request = get apiGateway
response
= receiveJSON
(\ s h x ->
GetVPCLinksResponse' <$>
(x .?> "item" .!@ mempty) <*> (x .?> "position") <*>
(pure (fromEnum s)))
instance Hashable GetVPCLinks where
instance NFData GetVPCLinks where
instance ToHeaders GetVPCLinks where
toHeaders
= const
(mconcat
["Accept" =# ("application/json" :: ByteString)])
instance ToPath GetVPCLinks where
toPath = const "/vpclinks"
instance ToQuery GetVPCLinks where
toQuery GetVPCLinks'{..}
= mconcat
["limit" =: _gvlLimit, "position" =: _gvlPosition]
data GetVPCLinksResponse = GetVPCLinksResponse'
{ _gvlrsItems :: !(Maybe [VPCLink])
, _gvlrsPosition :: !(Maybe Text)
, _gvlrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getVPCLinksResponse
:: Int
-> GetVPCLinksResponse
getVPCLinksResponse pResponseStatus_ =
GetVPCLinksResponse'
{ _gvlrsItems = Nothing
, _gvlrsPosition = Nothing
, _gvlrsResponseStatus = pResponseStatus_
}
gvlrsItems :: Lens' GetVPCLinksResponse [VPCLink]
gvlrsItems = lens _gvlrsItems (\ s a -> s{_gvlrsItems = a}) . _Default . _Coerce
gvlrsPosition :: Lens' GetVPCLinksResponse (Maybe Text)
gvlrsPosition = lens _gvlrsPosition (\ s a -> s{_gvlrsPosition = a})
gvlrsResponseStatus :: Lens' GetVPCLinksResponse Int
gvlrsResponseStatus = lens _gvlrsResponseStatus (\ s a -> s{_gvlrsResponseStatus = a})
instance NFData GetVPCLinksResponse where