module Network.AWS.Redshift.DescribeReservedNodeOfferings
(
describeReservedNodeOfferings
, DescribeReservedNodeOfferings
, drnoReservedNodeOfferingId
, drnoMarker
, drnoMaxRecords
, describeReservedNodeOfferingsResponse
, DescribeReservedNodeOfferingsResponse
, drnorsReservedNodeOfferings
, drnorsMarker
, drnorsResponseStatus
) 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 DescribeReservedNodeOfferings = DescribeReservedNodeOfferings'
{ _drnoReservedNodeOfferingId :: !(Maybe Text)
, _drnoMarker :: !(Maybe Text)
, _drnoMaxRecords :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeReservedNodeOfferings
:: DescribeReservedNodeOfferings
describeReservedNodeOfferings =
DescribeReservedNodeOfferings'
{ _drnoReservedNodeOfferingId = Nothing
, _drnoMarker = Nothing
, _drnoMaxRecords = Nothing
}
drnoReservedNodeOfferingId :: Lens' DescribeReservedNodeOfferings (Maybe Text)
drnoReservedNodeOfferingId = lens _drnoReservedNodeOfferingId (\ s a -> s{_drnoReservedNodeOfferingId = a});
drnoMarker :: Lens' DescribeReservedNodeOfferings (Maybe Text)
drnoMarker = lens _drnoMarker (\ s a -> s{_drnoMarker = a});
drnoMaxRecords :: Lens' DescribeReservedNodeOfferings (Maybe Int)
drnoMaxRecords = lens _drnoMaxRecords (\ s a -> s{_drnoMaxRecords = a});
instance AWSPager DescribeReservedNodeOfferings where
page rq rs
| stop (rs ^. drnorsMarker) = Nothing
| stop (rs ^. drnorsReservedNodeOfferings) = Nothing
| otherwise =
Just $ rq & drnoMarker .~ rs ^. drnorsMarker
instance AWSRequest DescribeReservedNodeOfferings
where
type Rs DescribeReservedNodeOfferings =
DescribeReservedNodeOfferingsResponse
request = postQuery redshift
response
= receiveXMLWrapper
"DescribeReservedNodeOfferingsResult"
(\ s h x ->
DescribeReservedNodeOfferingsResponse' <$>
(x .@? "ReservedNodeOfferings" .!@ mempty >>=
may (parseXMLList "ReservedNodeOffering"))
<*> (x .@? "Marker")
<*> (pure (fromEnum s)))
instance Hashable DescribeReservedNodeOfferings
instance NFData DescribeReservedNodeOfferings
instance ToHeaders DescribeReservedNodeOfferings
where
toHeaders = const mempty
instance ToPath DescribeReservedNodeOfferings where
toPath = const "/"
instance ToQuery DescribeReservedNodeOfferings where
toQuery DescribeReservedNodeOfferings'{..}
= mconcat
["Action" =:
("DescribeReservedNodeOfferings" :: ByteString),
"Version" =: ("2012-12-01" :: ByteString),
"ReservedNodeOfferingId" =:
_drnoReservedNodeOfferingId,
"Marker" =: _drnoMarker,
"MaxRecords" =: _drnoMaxRecords]
data DescribeReservedNodeOfferingsResponse = DescribeReservedNodeOfferingsResponse'
{ _drnorsReservedNodeOfferings :: !(Maybe [ReservedNodeOffering])
, _drnorsMarker :: !(Maybe Text)
, _drnorsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeReservedNodeOfferingsResponse
:: Int
-> DescribeReservedNodeOfferingsResponse
describeReservedNodeOfferingsResponse pResponseStatus_ =
DescribeReservedNodeOfferingsResponse'
{ _drnorsReservedNodeOfferings = Nothing
, _drnorsMarker = Nothing
, _drnorsResponseStatus = pResponseStatus_
}
drnorsReservedNodeOfferings :: Lens' DescribeReservedNodeOfferingsResponse [ReservedNodeOffering]
drnorsReservedNodeOfferings = lens _drnorsReservedNodeOfferings (\ s a -> s{_drnorsReservedNodeOfferings = a}) . _Default . _Coerce;
drnorsMarker :: Lens' DescribeReservedNodeOfferingsResponse (Maybe Text)
drnorsMarker = lens _drnorsMarker (\ s a -> s{_drnorsMarker = a});
drnorsResponseStatus :: Lens' DescribeReservedNodeOfferingsResponse Int
drnorsResponseStatus = lens _drnorsResponseStatus (\ s a -> s{_drnorsResponseStatus = a});
instance NFData DescribeReservedNodeOfferingsResponse