{-# 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.ElasticSearch.DescribeReservedElasticsearchInstanceOfferings
(
describeReservedElasticsearchInstanceOfferings
, DescribeReservedElasticsearchInstanceOfferings
, dreioReservedElasticsearchInstanceOfferingId
, dreioNextToken
, dreioMaxResults
, describeReservedElasticsearchInstanceOfferingsResponse
, DescribeReservedElasticsearchInstanceOfferingsResponse
, dreiorsReservedElasticsearchInstanceOfferings
, dreiorsNextToken
, dreiorsResponseStatus
) where
import Network.AWS.ElasticSearch.Types
import Network.AWS.ElasticSearch.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeReservedElasticsearchInstanceOfferings = DescribeReservedElasticsearchInstanceOfferings'
{ _dreioReservedElasticsearchInstanceOfferingId :: !(Maybe Text)
, _dreioNextToken :: !(Maybe Text)
, _dreioMaxResults :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeReservedElasticsearchInstanceOfferings
:: DescribeReservedElasticsearchInstanceOfferings
describeReservedElasticsearchInstanceOfferings =
DescribeReservedElasticsearchInstanceOfferings'
{ _dreioReservedElasticsearchInstanceOfferingId = Nothing
, _dreioNextToken = Nothing
, _dreioMaxResults = Nothing
}
dreioReservedElasticsearchInstanceOfferingId :: Lens' DescribeReservedElasticsearchInstanceOfferings (Maybe Text)
dreioReservedElasticsearchInstanceOfferingId = lens _dreioReservedElasticsearchInstanceOfferingId (\ s a -> s{_dreioReservedElasticsearchInstanceOfferingId = a})
dreioNextToken :: Lens' DescribeReservedElasticsearchInstanceOfferings (Maybe Text)
dreioNextToken = lens _dreioNextToken (\ s a -> s{_dreioNextToken = a})
dreioMaxResults :: Lens' DescribeReservedElasticsearchInstanceOfferings (Maybe Int)
dreioMaxResults = lens _dreioMaxResults (\ s a -> s{_dreioMaxResults = a})
instance AWSRequest
DescribeReservedElasticsearchInstanceOfferings
where
type Rs
DescribeReservedElasticsearchInstanceOfferings
=
DescribeReservedElasticsearchInstanceOfferingsResponse
request = get elasticSearch
response
= receiveJSON
(\ s h x ->
DescribeReservedElasticsearchInstanceOfferingsResponse'
<$>
(x .?> "ReservedElasticsearchInstanceOfferings" .!@
mempty)
<*> (x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable
DescribeReservedElasticsearchInstanceOfferings
where
instance NFData
DescribeReservedElasticsearchInstanceOfferings
where
instance ToHeaders
DescribeReservedElasticsearchInstanceOfferings
where
toHeaders = const mempty
instance ToPath
DescribeReservedElasticsearchInstanceOfferings
where
toPath
= const "/2015-01-01/es/reservedInstanceOfferings"
instance ToQuery
DescribeReservedElasticsearchInstanceOfferings
where
toQuery
DescribeReservedElasticsearchInstanceOfferings'{..}
= mconcat
["offeringId" =:
_dreioReservedElasticsearchInstanceOfferingId,
"nextToken" =: _dreioNextToken,
"maxResults" =: _dreioMaxResults]
data DescribeReservedElasticsearchInstanceOfferingsResponse = DescribeReservedElasticsearchInstanceOfferingsResponse'
{ _dreiorsReservedElasticsearchInstanceOfferings :: !(Maybe [ReservedElasticsearchInstanceOffering])
, _dreiorsNextToken :: !(Maybe Text)
, _dreiorsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeReservedElasticsearchInstanceOfferingsResponse
:: Int
-> DescribeReservedElasticsearchInstanceOfferingsResponse
describeReservedElasticsearchInstanceOfferingsResponse pResponseStatus_ =
DescribeReservedElasticsearchInstanceOfferingsResponse'
{ _dreiorsReservedElasticsearchInstanceOfferings = Nothing
, _dreiorsNextToken = Nothing
, _dreiorsResponseStatus = pResponseStatus_
}
dreiorsReservedElasticsearchInstanceOfferings :: Lens' DescribeReservedElasticsearchInstanceOfferingsResponse [ReservedElasticsearchInstanceOffering]
dreiorsReservedElasticsearchInstanceOfferings = lens _dreiorsReservedElasticsearchInstanceOfferings (\ s a -> s{_dreiorsReservedElasticsearchInstanceOfferings = a}) . _Default . _Coerce
dreiorsNextToken :: Lens' DescribeReservedElasticsearchInstanceOfferingsResponse (Maybe Text)
dreiorsNextToken = lens _dreiorsNextToken (\ s a -> s{_dreiorsNextToken = a})
dreiorsResponseStatus :: Lens' DescribeReservedElasticsearchInstanceOfferingsResponse Int
dreiorsResponseStatus = lens _dreiorsResponseStatus (\ s a -> s{_dreiorsResponseStatus = a})
instance NFData
DescribeReservedElasticsearchInstanceOfferingsResponse
where