{-# 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.Budgets.DescribeBudgets
(
describeBudgets
, DescribeBudgets
, dbNextToken
, dbMaxResults
, dbAccountId
, describeBudgetsResponse
, DescribeBudgetsResponse
, dbrsNextToken
, dbrsBudgets
, dbrsResponseStatus
) where
import Network.AWS.Budgets.Types
import Network.AWS.Budgets.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeBudgets = DescribeBudgets'
{ _dbNextToken :: !(Maybe Text)
, _dbMaxResults :: !(Maybe Nat)
, _dbAccountId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeBudgets
:: Text
-> DescribeBudgets
describeBudgets pAccountId_ =
DescribeBudgets'
{ _dbNextToken = Nothing
, _dbMaxResults = Nothing
, _dbAccountId = pAccountId_
}
dbNextToken :: Lens' DescribeBudgets (Maybe Text)
dbNextToken = lens _dbNextToken (\ s a -> s{_dbNextToken = a})
dbMaxResults :: Lens' DescribeBudgets (Maybe Natural)
dbMaxResults = lens _dbMaxResults (\ s a -> s{_dbMaxResults = a}) . mapping _Nat
dbAccountId :: Lens' DescribeBudgets Text
dbAccountId = lens _dbAccountId (\ s a -> s{_dbAccountId = a})
instance AWSRequest DescribeBudgets where
type Rs DescribeBudgets = DescribeBudgetsResponse
request = postJSON budgets
response
= receiveJSON
(\ s h x ->
DescribeBudgetsResponse' <$>
(x .?> "NextToken") <*> (x .?> "Budgets" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeBudgets where
instance NFData DescribeBudgets where
instance ToHeaders DescribeBudgets where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSBudgetServiceGateway.DescribeBudgets" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeBudgets where
toJSON DescribeBudgets'{..}
= object
(catMaybes
[("NextToken" .=) <$> _dbNextToken,
("MaxResults" .=) <$> _dbMaxResults,
Just ("AccountId" .= _dbAccountId)])
instance ToPath DescribeBudgets where
toPath = const "/"
instance ToQuery DescribeBudgets where
toQuery = const mempty
data DescribeBudgetsResponse = DescribeBudgetsResponse'
{ _dbrsNextToken :: !(Maybe Text)
, _dbrsBudgets :: !(Maybe [Budget])
, _dbrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeBudgetsResponse
:: Int
-> DescribeBudgetsResponse
describeBudgetsResponse pResponseStatus_ =
DescribeBudgetsResponse'
{ _dbrsNextToken = Nothing
, _dbrsBudgets = Nothing
, _dbrsResponseStatus = pResponseStatus_
}
dbrsNextToken :: Lens' DescribeBudgetsResponse (Maybe Text)
dbrsNextToken = lens _dbrsNextToken (\ s a -> s{_dbrsNextToken = a})
dbrsBudgets :: Lens' DescribeBudgetsResponse [Budget]
dbrsBudgets = lens _dbrsBudgets (\ s a -> s{_dbrsBudgets = a}) . _Default . _Coerce
dbrsResponseStatus :: Lens' DescribeBudgetsResponse Int
dbrsResponseStatus = lens _dbrsResponseStatus (\ s a -> s{_dbrsResponseStatus = a})
instance NFData DescribeBudgetsResponse where