{-# 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.Pricing.DescribeServices
(
describeServices
, DescribeServices
, dsFormatVersion
, dsNextToken
, dsServiceCode
, dsMaxResults
, describeServicesResponse
, DescribeServicesResponse
, dsrsFormatVersion
, dsrsNextToken
, dsrsServices
, dsrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Pricing.Types
import Network.AWS.Pricing.Types.Product
import Network.AWS.Request
import Network.AWS.Response
data DescribeServices = DescribeServices'
{ _dsFormatVersion :: !(Maybe Text)
, _dsNextToken :: !(Maybe Text)
, _dsServiceCode :: !(Maybe Text)
, _dsMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeServices
:: DescribeServices
describeServices =
DescribeServices'
{ _dsFormatVersion = Nothing
, _dsNextToken = Nothing
, _dsServiceCode = Nothing
, _dsMaxResults = Nothing
}
dsFormatVersion :: Lens' DescribeServices (Maybe Text)
dsFormatVersion = lens _dsFormatVersion (\ s a -> s{_dsFormatVersion = a})
dsNextToken :: Lens' DescribeServices (Maybe Text)
dsNextToken = lens _dsNextToken (\ s a -> s{_dsNextToken = a})
dsServiceCode :: Lens' DescribeServices (Maybe Text)
dsServiceCode = lens _dsServiceCode (\ s a -> s{_dsServiceCode = a})
dsMaxResults :: Lens' DescribeServices (Maybe Natural)
dsMaxResults = lens _dsMaxResults (\ s a -> s{_dsMaxResults = a}) . mapping _Nat
instance AWSPager DescribeServices where
page rq rs
| stop (rs ^. dsrsNextToken) = Nothing
| stop (rs ^. dsrsServices) = Nothing
| otherwise =
Just $ rq & dsNextToken .~ rs ^. dsrsNextToken
instance AWSRequest DescribeServices where
type Rs DescribeServices = DescribeServicesResponse
request = postJSON pricing
response
= receiveJSON
(\ s h x ->
DescribeServicesResponse' <$>
(x .?> "FormatVersion") <*> (x .?> "NextToken") <*>
(x .?> "Services" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeServices where
instance NFData DescribeServices where
instance ToHeaders DescribeServices where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSPriceListService.DescribeServices" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeServices where
toJSON DescribeServices'{..}
= object
(catMaybes
[("FormatVersion" .=) <$> _dsFormatVersion,
("NextToken" .=) <$> _dsNextToken,
("ServiceCode" .=) <$> _dsServiceCode,
("MaxResults" .=) <$> _dsMaxResults])
instance ToPath DescribeServices where
toPath = const "/"
instance ToQuery DescribeServices where
toQuery = const mempty
data DescribeServicesResponse = DescribeServicesResponse'
{ _dsrsFormatVersion :: !(Maybe Text)
, _dsrsNextToken :: !(Maybe Text)
, _dsrsServices :: !(Maybe [PricingService])
, _dsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeServicesResponse
:: Int
-> DescribeServicesResponse
describeServicesResponse pResponseStatus_ =
DescribeServicesResponse'
{ _dsrsFormatVersion = Nothing
, _dsrsNextToken = Nothing
, _dsrsServices = Nothing
, _dsrsResponseStatus = pResponseStatus_
}
dsrsFormatVersion :: Lens' DescribeServicesResponse (Maybe Text)
dsrsFormatVersion = lens _dsrsFormatVersion (\ s a -> s{_dsrsFormatVersion = a})
dsrsNextToken :: Lens' DescribeServicesResponse (Maybe Text)
dsrsNextToken = lens _dsrsNextToken (\ s a -> s{_dsrsNextToken = a})
dsrsServices :: Lens' DescribeServicesResponse [PricingService]
dsrsServices = lens _dsrsServices (\ s a -> s{_dsrsServices = a}) . _Default . _Coerce
dsrsResponseStatus :: Lens' DescribeServicesResponse Int
dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a})
instance NFData DescribeServicesResponse where