{-# 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.DMS.ModifyEventSubscription
(
modifyEventSubscription
, ModifyEventSubscription
, mesSNSTopicARN
, mesEnabled
, mesSourceType
, mesEventCategories
, mesSubscriptionName
, modifyEventSubscriptionResponse
, ModifyEventSubscriptionResponse
, mesrsEventSubscription
, mesrsResponseStatus
) where
import Network.AWS.DMS.Types
import Network.AWS.DMS.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ModifyEventSubscription = ModifyEventSubscription'
{ _mesSNSTopicARN :: !(Maybe Text)
, _mesEnabled :: !(Maybe Bool)
, _mesSourceType :: !(Maybe Text)
, _mesEventCategories :: !(Maybe [Text])
, _mesSubscriptionName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
modifyEventSubscription
:: Text
-> ModifyEventSubscription
modifyEventSubscription pSubscriptionName_ =
ModifyEventSubscription'
{ _mesSNSTopicARN = Nothing
, _mesEnabled = Nothing
, _mesSourceType = Nothing
, _mesEventCategories = Nothing
, _mesSubscriptionName = pSubscriptionName_
}
mesSNSTopicARN :: Lens' ModifyEventSubscription (Maybe Text)
mesSNSTopicARN = lens _mesSNSTopicARN (\ s a -> s{_mesSNSTopicARN = a})
mesEnabled :: Lens' ModifyEventSubscription (Maybe Bool)
mesEnabled = lens _mesEnabled (\ s a -> s{_mesEnabled = a})
mesSourceType :: Lens' ModifyEventSubscription (Maybe Text)
mesSourceType = lens _mesSourceType (\ s a -> s{_mesSourceType = a})
mesEventCategories :: Lens' ModifyEventSubscription [Text]
mesEventCategories = lens _mesEventCategories (\ s a -> s{_mesEventCategories = a}) . _Default . _Coerce
mesSubscriptionName :: Lens' ModifyEventSubscription Text
mesSubscriptionName = lens _mesSubscriptionName (\ s a -> s{_mesSubscriptionName = a})
instance AWSRequest ModifyEventSubscription where
type Rs ModifyEventSubscription =
ModifyEventSubscriptionResponse
request = postJSON dms
response
= receiveJSON
(\ s h x ->
ModifyEventSubscriptionResponse' <$>
(x .?> "EventSubscription") <*> (pure (fromEnum s)))
instance Hashable ModifyEventSubscription where
instance NFData ModifyEventSubscription where
instance ToHeaders ModifyEventSubscription where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonDMSv20160101.ModifyEventSubscription" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ModifyEventSubscription where
toJSON ModifyEventSubscription'{..}
= object
(catMaybes
[("SnsTopicArn" .=) <$> _mesSNSTopicARN,
("Enabled" .=) <$> _mesEnabled,
("SourceType" .=) <$> _mesSourceType,
("EventCategories" .=) <$> _mesEventCategories,
Just ("SubscriptionName" .= _mesSubscriptionName)])
instance ToPath ModifyEventSubscription where
toPath = const "/"
instance ToQuery ModifyEventSubscription where
toQuery = const mempty
data ModifyEventSubscriptionResponse = ModifyEventSubscriptionResponse'
{ _mesrsEventSubscription :: !(Maybe EventSubscription)
, _mesrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
modifyEventSubscriptionResponse
:: Int
-> ModifyEventSubscriptionResponse
modifyEventSubscriptionResponse pResponseStatus_ =
ModifyEventSubscriptionResponse'
{_mesrsEventSubscription = Nothing, _mesrsResponseStatus = pResponseStatus_}
mesrsEventSubscription :: Lens' ModifyEventSubscriptionResponse (Maybe EventSubscription)
mesrsEventSubscription = lens _mesrsEventSubscription (\ s a -> s{_mesrsEventSubscription = a})
mesrsResponseStatus :: Lens' ModifyEventSubscriptionResponse Int
mesrsResponseStatus = lens _mesrsResponseStatus (\ s a -> s{_mesrsResponseStatus = a})
instance NFData ModifyEventSubscriptionResponse where