module Stratosphere.ResourceProperties.SNSTopicSubscription where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
import Stratosphere.Types
data SNSTopicSubscription =
SNSTopicSubscription
{ _sNSTopicSubscriptionEndpoint :: Val Text
, _sNSTopicSubscriptionProtocol :: SNSProtocol
} deriving (Show, Generic)
instance ToJSON SNSTopicSubscription where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 21, omitNothingFields = True }
instance FromJSON SNSTopicSubscription where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 21, omitNothingFields = True }
snsTopicSubscription
:: Val Text
-> SNSProtocol
-> SNSTopicSubscription
snsTopicSubscription endpointarg protocolarg =
SNSTopicSubscription
{ _sNSTopicSubscriptionEndpoint = endpointarg
, _sNSTopicSubscriptionProtocol = protocolarg
}
snstsEndpoint :: Lens' SNSTopicSubscription (Val Text)
snstsEndpoint = lens _sNSTopicSubscriptionEndpoint (\s a -> s { _sNSTopicSubscriptionEndpoint = a })
snstsProtocol :: Lens' SNSTopicSubscription SNSProtocol
snstsProtocol = lens _sNSTopicSubscriptionProtocol (\s a -> s { _sNSTopicSubscriptionProtocol = a })