{-# 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.AutoScaling.DescribeNotificationConfigurations
(
describeNotificationConfigurations
, DescribeNotificationConfigurations
, dncAutoScalingGroupNames
, dncNextToken
, dncMaxRecords
, describeNotificationConfigurationsResponse
, DescribeNotificationConfigurationsResponse
, dncrsNextToken
, dncrsResponseStatus
, dncrsNotificationConfigurations
) where
import Network.AWS.AutoScaling.Types
import Network.AWS.AutoScaling.Types.Product
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeNotificationConfigurations = DescribeNotificationConfigurations'
{ _dncAutoScalingGroupNames :: !(Maybe [Text])
, _dncNextToken :: !(Maybe Text)
, _dncMaxRecords :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeNotificationConfigurations
:: DescribeNotificationConfigurations
describeNotificationConfigurations =
DescribeNotificationConfigurations'
{ _dncAutoScalingGroupNames = Nothing
, _dncNextToken = Nothing
, _dncMaxRecords = Nothing
}
dncAutoScalingGroupNames :: Lens' DescribeNotificationConfigurations [Text]
dncAutoScalingGroupNames = lens _dncAutoScalingGroupNames (\ s a -> s{_dncAutoScalingGroupNames = a}) . _Default . _Coerce;
dncNextToken :: Lens' DescribeNotificationConfigurations (Maybe Text)
dncNextToken = lens _dncNextToken (\ s a -> s{_dncNextToken = a});
dncMaxRecords :: Lens' DescribeNotificationConfigurations (Maybe Int)
dncMaxRecords = lens _dncMaxRecords (\ s a -> s{_dncMaxRecords = a});
instance AWSPager DescribeNotificationConfigurations
where
page rq rs
| stop (rs ^. dncrsNextToken) = Nothing
| stop (rs ^. dncrsNotificationConfigurations) =
Nothing
| otherwise =
Just $ rq & dncNextToken .~ rs ^. dncrsNextToken
instance AWSRequest
DescribeNotificationConfigurations where
type Rs DescribeNotificationConfigurations =
DescribeNotificationConfigurationsResponse
request = postQuery autoScaling
response
= receiveXMLWrapper
"DescribeNotificationConfigurationsResult"
(\ s h x ->
DescribeNotificationConfigurationsResponse' <$>
(x .@? "NextToken") <*> (pure (fromEnum s)) <*>
(x .@? "NotificationConfigurations" .!@ mempty >>=
parseXMLList "member"))
instance Hashable DescribeNotificationConfigurations
instance NFData DescribeNotificationConfigurations
instance ToHeaders DescribeNotificationConfigurations
where
toHeaders = const mempty
instance ToPath DescribeNotificationConfigurations
where
toPath = const "/"
instance ToQuery DescribeNotificationConfigurations
where
toQuery DescribeNotificationConfigurations'{..}
= mconcat
["Action" =:
("DescribeNotificationConfigurations" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"AutoScalingGroupNames" =:
toQuery
(toQueryList "member" <$> _dncAutoScalingGroupNames),
"NextToken" =: _dncNextToken,
"MaxRecords" =: _dncMaxRecords]
data DescribeNotificationConfigurationsResponse = DescribeNotificationConfigurationsResponse'
{ _dncrsNextToken :: !(Maybe Text)
, _dncrsResponseStatus :: !Int
, _dncrsNotificationConfigurations :: ![NotificationConfiguration]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeNotificationConfigurationsResponse
:: Int
-> DescribeNotificationConfigurationsResponse
describeNotificationConfigurationsResponse pResponseStatus_ =
DescribeNotificationConfigurationsResponse'
{ _dncrsNextToken = Nothing
, _dncrsResponseStatus = pResponseStatus_
, _dncrsNotificationConfigurations = mempty
}
dncrsNextToken :: Lens' DescribeNotificationConfigurationsResponse (Maybe Text)
dncrsNextToken = lens _dncrsNextToken (\ s a -> s{_dncrsNextToken = a});
dncrsResponseStatus :: Lens' DescribeNotificationConfigurationsResponse Int
dncrsResponseStatus = lens _dncrsResponseStatus (\ s a -> s{_dncrsResponseStatus = a});
dncrsNotificationConfigurations :: Lens' DescribeNotificationConfigurationsResponse [NotificationConfiguration]
dncrsNotificationConfigurations = lens _dncrsNotificationConfigurations (\ s a -> s{_dncrsNotificationConfigurations = a}) . _Coerce;
instance NFData
DescribeNotificationConfigurationsResponse