module Stratosphere.Resources.SNSTopicPolicy where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
data SNSTopicPolicy =
SNSTopicPolicy
{ _sNSTopicPolicyPolicyDocument :: Object
, _sNSTopicPolicyTopics :: [String]
} deriving (Show, Generic)
instance ToJSON SNSTopicPolicy where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 15, omitNothingFields = True }
instance FromJSON SNSTopicPolicy where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 15, omitNothingFields = True }
snsTopicPolicy
:: Object
-> [String]
-> SNSTopicPolicy
snsTopicPolicy policyDocumentarg topicsarg =
SNSTopicPolicy
{ _sNSTopicPolicyPolicyDocument = policyDocumentarg
, _sNSTopicPolicyTopics = topicsarg
}
snstpPolicyDocument :: Lens' SNSTopicPolicy Object
snstpPolicyDocument = lens _sNSTopicPolicyPolicyDocument (\s a -> s { _sNSTopicPolicyPolicyDocument = a })
snstpTopics :: Lens' SNSTopicPolicy [String]
snstpTopics = lens _sNSTopicPolicyTopics (\s a -> s { _sNSTopicPolicyTopics = a })