{-# 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.DescribeReservedElasticsearchInstances
(
describeReservedElasticsearchInstances
, DescribeReservedElasticsearchInstances
, dreiReservedElasticsearchInstanceId
, dreiNextToken
, dreiMaxResults
, describeReservedElasticsearchInstancesResponse
, DescribeReservedElasticsearchInstancesResponse
, dreirsReservedElasticsearchInstances
, dreirsNextToken
, dreirsResponseStatus
) 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 DescribeReservedElasticsearchInstances = DescribeReservedElasticsearchInstances'
{ _dreiReservedElasticsearchInstanceId :: !(Maybe Text)
, _dreiNextToken :: !(Maybe Text)
, _dreiMaxResults :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeReservedElasticsearchInstances
:: DescribeReservedElasticsearchInstances
describeReservedElasticsearchInstances =
DescribeReservedElasticsearchInstances'
{ _dreiReservedElasticsearchInstanceId = Nothing
, _dreiNextToken = Nothing
, _dreiMaxResults = Nothing
}
dreiReservedElasticsearchInstanceId :: Lens' DescribeReservedElasticsearchInstances (Maybe Text)
dreiReservedElasticsearchInstanceId = lens _dreiReservedElasticsearchInstanceId (\ s a -> s{_dreiReservedElasticsearchInstanceId = a})
dreiNextToken :: Lens' DescribeReservedElasticsearchInstances (Maybe Text)
dreiNextToken = lens _dreiNextToken (\ s a -> s{_dreiNextToken = a})
dreiMaxResults :: Lens' DescribeReservedElasticsearchInstances (Maybe Int)
dreiMaxResults = lens _dreiMaxResults (\ s a -> s{_dreiMaxResults = a})
instance AWSRequest
DescribeReservedElasticsearchInstances
where
type Rs DescribeReservedElasticsearchInstances =
DescribeReservedElasticsearchInstancesResponse
request = get elasticSearch
response
= receiveJSON
(\ s h x ->
DescribeReservedElasticsearchInstancesResponse' <$>
(x .?> "ReservedElasticsearchInstances" .!@ mempty)
<*> (x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable
DescribeReservedElasticsearchInstances
where
instance NFData
DescribeReservedElasticsearchInstances
where
instance ToHeaders
DescribeReservedElasticsearchInstances
where
toHeaders = const mempty
instance ToPath
DescribeReservedElasticsearchInstances
where
toPath = const "/2015-01-01/es/reservedInstances"
instance ToQuery
DescribeReservedElasticsearchInstances
where
toQuery DescribeReservedElasticsearchInstances'{..}
= mconcat
["reservationId" =:
_dreiReservedElasticsearchInstanceId,
"nextToken" =: _dreiNextToken,
"maxResults" =: _dreiMaxResults]
data DescribeReservedElasticsearchInstancesResponse = DescribeReservedElasticsearchInstancesResponse'
{ _dreirsReservedElasticsearchInstances :: !(Maybe [ReservedElasticsearchInstance])
, _dreirsNextToken :: !(Maybe Text)
, _dreirsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeReservedElasticsearchInstancesResponse
:: Int
-> DescribeReservedElasticsearchInstancesResponse
describeReservedElasticsearchInstancesResponse pResponseStatus_ =
DescribeReservedElasticsearchInstancesResponse'
{ _dreirsReservedElasticsearchInstances = Nothing
, _dreirsNextToken = Nothing
, _dreirsResponseStatus = pResponseStatus_
}
dreirsReservedElasticsearchInstances :: Lens' DescribeReservedElasticsearchInstancesResponse [ReservedElasticsearchInstance]
dreirsReservedElasticsearchInstances = lens _dreirsReservedElasticsearchInstances (\ s a -> s{_dreirsReservedElasticsearchInstances = a}) . _Default . _Coerce
dreirsNextToken :: Lens' DescribeReservedElasticsearchInstancesResponse (Maybe Text)
dreirsNextToken = lens _dreirsNextToken (\ s a -> s{_dreirsNextToken = a})
dreirsResponseStatus :: Lens' DescribeReservedElasticsearchInstancesResponse Int
dreirsResponseStatus = lens _dreirsResponseStatus (\ s a -> s{_dreirsResponseStatus = a})
instance NFData
DescribeReservedElasticsearchInstancesResponse
where