module Stratosphere.Resources.SNSTopic where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
import Stratosphere.ResourceProperties.SNSTopicSubscription
data SNSTopic =
SNSTopic
{ _sNSTopicDisplayName :: Maybe (Val Text)
, _sNSTopicSubscription :: Maybe [SNSTopicSubscription]
, _sNSTopicTopicName :: Maybe (Val Text)
} deriving (Show, Generic)
instance ToJSON SNSTopic where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 9, omitNothingFields = True }
instance FromJSON SNSTopic where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 9, omitNothingFields = True }
snsTopic
:: SNSTopic
snsTopic =
SNSTopic
{ _sNSTopicDisplayName = Nothing
, _sNSTopicSubscription = Nothing
, _sNSTopicTopicName = Nothing
}
snstDisplayName :: Lens' SNSTopic (Maybe (Val Text))
snstDisplayName = lens _sNSTopicDisplayName (\s a -> s { _sNSTopicDisplayName = a })
snstSubscription :: Lens' SNSTopic (Maybe [SNSTopicSubscription])
snstSubscription = lens _sNSTopicSubscription (\s a -> s { _sNSTopicSubscription = a })
snstTopicName :: Lens' SNSTopic (Maybe (Val Text))
snstTopicName = lens _sNSTopicTopicName (\s a -> s { _sNSTopicTopicName = a })