{-# 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.DescribeNotificationsForBudget
(
describeNotificationsForBudget
, DescribeNotificationsForBudget
, dnfbNextToken
, dnfbMaxResults
, dnfbAccountId
, dnfbBudgetName
, describeNotificationsForBudgetResponse
, DescribeNotificationsForBudgetResponse
, dnfbrsNextToken
, dnfbrsNotifications
, dnfbrsResponseStatus
) 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 DescribeNotificationsForBudget = DescribeNotificationsForBudget'
{ _dnfbNextToken :: !(Maybe Text)
, _dnfbMaxResults :: !(Maybe Nat)
, _dnfbAccountId :: !Text
, _dnfbBudgetName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeNotificationsForBudget
:: Text
-> Text
-> DescribeNotificationsForBudget
describeNotificationsForBudget pAccountId_ pBudgetName_ =
DescribeNotificationsForBudget'
{ _dnfbNextToken = Nothing
, _dnfbMaxResults = Nothing
, _dnfbAccountId = pAccountId_
, _dnfbBudgetName = pBudgetName_
}
dnfbNextToken :: Lens' DescribeNotificationsForBudget (Maybe Text)
dnfbNextToken = lens _dnfbNextToken (\ s a -> s{_dnfbNextToken = a})
dnfbMaxResults :: Lens' DescribeNotificationsForBudget (Maybe Natural)
dnfbMaxResults = lens _dnfbMaxResults (\ s a -> s{_dnfbMaxResults = a}) . mapping _Nat
dnfbAccountId :: Lens' DescribeNotificationsForBudget Text
dnfbAccountId = lens _dnfbAccountId (\ s a -> s{_dnfbAccountId = a})
dnfbBudgetName :: Lens' DescribeNotificationsForBudget Text
dnfbBudgetName = lens _dnfbBudgetName (\ s a -> s{_dnfbBudgetName = a})
instance AWSRequest DescribeNotificationsForBudget
where
type Rs DescribeNotificationsForBudget =
DescribeNotificationsForBudgetResponse
request = postJSON budgets
response
= receiveJSON
(\ s h x ->
DescribeNotificationsForBudgetResponse' <$>
(x .?> "NextToken") <*>
(x .?> "Notifications" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeNotificationsForBudget
where
instance NFData DescribeNotificationsForBudget where
instance ToHeaders DescribeNotificationsForBudget
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSBudgetServiceGateway.DescribeNotificationsForBudget"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeNotificationsForBudget where
toJSON DescribeNotificationsForBudget'{..}
= object
(catMaybes
[("NextToken" .=) <$> _dnfbNextToken,
("MaxResults" .=) <$> _dnfbMaxResults,
Just ("AccountId" .= _dnfbAccountId),
Just ("BudgetName" .= _dnfbBudgetName)])
instance ToPath DescribeNotificationsForBudget where
toPath = const "/"
instance ToQuery DescribeNotificationsForBudget where
toQuery = const mempty
data DescribeNotificationsForBudgetResponse = DescribeNotificationsForBudgetResponse'
{ _dnfbrsNextToken :: !(Maybe Text)
, _dnfbrsNotifications :: !(Maybe [Notification])
, _dnfbrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeNotificationsForBudgetResponse
:: Int
-> DescribeNotificationsForBudgetResponse
describeNotificationsForBudgetResponse pResponseStatus_ =
DescribeNotificationsForBudgetResponse'
{ _dnfbrsNextToken = Nothing
, _dnfbrsNotifications = Nothing
, _dnfbrsResponseStatus = pResponseStatus_
}
dnfbrsNextToken :: Lens' DescribeNotificationsForBudgetResponse (Maybe Text)
dnfbrsNextToken = lens _dnfbrsNextToken (\ s a -> s{_dnfbrsNextToken = a})
dnfbrsNotifications :: Lens' DescribeNotificationsForBudgetResponse [Notification]
dnfbrsNotifications = lens _dnfbrsNotifications (\ s a -> s{_dnfbrsNotifications = a}) . _Default . _Coerce
dnfbrsResponseStatus :: Lens' DescribeNotificationsForBudgetResponse Int
dnfbrsResponseStatus = lens _dnfbrsResponseStatus (\ s a -> s{_dnfbrsResponseStatus = a})
instance NFData
DescribeNotificationsForBudgetResponse
where