module Network.AWS.AutoScaling.PutNotificationConfiguration
(
putNotificationConfiguration
, PutNotificationConfiguration
, pncAutoScalingGroupName
, pncTopicARN
, pncNotificationTypes
, putNotificationConfigurationResponse
, PutNotificationConfigurationResponse
) where
import Network.AWS.AutoScaling.Types
import Network.AWS.AutoScaling.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data PutNotificationConfiguration = PutNotificationConfiguration'
{ _pncAutoScalingGroupName :: !Text
, _pncTopicARN :: !Text
, _pncNotificationTypes :: ![Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
putNotificationConfiguration
:: Text
-> Text
-> PutNotificationConfiguration
putNotificationConfiguration pAutoScalingGroupName_ pTopicARN_ =
PutNotificationConfiguration'
{ _pncAutoScalingGroupName = pAutoScalingGroupName_
, _pncTopicARN = pTopicARN_
, _pncNotificationTypes = mempty
}
pncAutoScalingGroupName :: Lens' PutNotificationConfiguration Text
pncAutoScalingGroupName = lens _pncAutoScalingGroupName (\ s a -> s{_pncAutoScalingGroupName = a});
pncTopicARN :: Lens' PutNotificationConfiguration Text
pncTopicARN = lens _pncTopicARN (\ s a -> s{_pncTopicARN = a});
pncNotificationTypes :: Lens' PutNotificationConfiguration [Text]
pncNotificationTypes = lens _pncNotificationTypes (\ s a -> s{_pncNotificationTypes = a}) . _Coerce;
instance AWSRequest PutNotificationConfiguration
where
type Rs PutNotificationConfiguration =
PutNotificationConfigurationResponse
request = postQuery autoScaling
response
= receiveNull PutNotificationConfigurationResponse'
instance ToHeaders PutNotificationConfiguration where
toHeaders = const mempty
instance ToPath PutNotificationConfiguration where
toPath = const "/"
instance ToQuery PutNotificationConfiguration where
toQuery PutNotificationConfiguration'{..}
= mconcat
["Action" =:
("PutNotificationConfiguration" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"AutoScalingGroupName" =: _pncAutoScalingGroupName,
"TopicARN" =: _pncTopicARN,
"NotificationTypes" =:
toQueryList "member" _pncNotificationTypes]
data PutNotificationConfigurationResponse =
PutNotificationConfigurationResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
putNotificationConfigurationResponse
:: PutNotificationConfigurationResponse
putNotificationConfigurationResponse = PutNotificationConfigurationResponse'