module Stratosphere.Resources.SNSSubscription where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
import Stratosphere.Types
data SNSSubscription =
SNSSubscription
{ _sNSSubscriptionEndpoint :: Maybe (Val Text)
, _sNSSubscriptionProtocol :: Maybe SNSProtocol
, _sNSSubscriptionTopicArn :: Maybe (Val Text)
} deriving (Show, Generic)
instance ToJSON SNSSubscription where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 16, omitNothingFields = True }
instance FromJSON SNSSubscription where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 16, omitNothingFields = True }
snsSubscription
:: SNSSubscription
snsSubscription =
SNSSubscription
{ _sNSSubscriptionEndpoint = Nothing
, _sNSSubscriptionProtocol = Nothing
, _sNSSubscriptionTopicArn = Nothing
}
snssEndpoint :: Lens' SNSSubscription (Maybe (Val Text))
snssEndpoint = lens _sNSSubscriptionEndpoint (\s a -> s { _sNSSubscriptionEndpoint = a })
snssProtocol :: Lens' SNSSubscription (Maybe SNSProtocol)
snssProtocol = lens _sNSSubscriptionProtocol (\s a -> s { _sNSSubscriptionProtocol = a })
snssTopicArn :: Lens' SNSSubscription (Maybe (Val Text))
snssTopicArn = lens _sNSSubscriptionTopicArn (\s a -> s { _sNSSubscriptionTopicArn = a })