module Stratosphere.ResourceProperties.S3NotificationConfigurationConfigFilterS3KeyRules where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
data S3NotificationConfigurationConfigFilterS3KeyRules =
S3NotificationConfigurationConfigFilterS3KeyRules
{ _s3NotificationConfigurationConfigFilterS3KeyRulesName :: Val Text
, _s3NotificationConfigurationConfigFilterS3KeyRulesValue :: Val Text
} deriving (Show, Generic)
instance ToJSON S3NotificationConfigurationConfigFilterS3KeyRules where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 50, omitNothingFields = True }
instance FromJSON S3NotificationConfigurationConfigFilterS3KeyRules where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 50, omitNothingFields = True }
s3NotificationConfigurationConfigFilterS3KeyRules
:: Val Text
-> Val Text
-> S3NotificationConfigurationConfigFilterS3KeyRules
s3NotificationConfigurationConfigFilterS3KeyRules namearg valuearg =
S3NotificationConfigurationConfigFilterS3KeyRules
{ _s3NotificationConfigurationConfigFilterS3KeyRulesName = namearg
, _s3NotificationConfigurationConfigFilterS3KeyRulesValue = valuearg
}
snccfskrName :: Lens' S3NotificationConfigurationConfigFilterS3KeyRules (Val Text)
snccfskrName = lens _s3NotificationConfigurationConfigFilterS3KeyRulesName (\s a -> s { _s3NotificationConfigurationConfigFilterS3KeyRulesName = a })
snccfskrValue :: Lens' S3NotificationConfigurationConfigFilterS3KeyRules (Val Text)
snccfskrValue = lens _s3NotificationConfigurationConfigFilterS3KeyRulesValue (\s a -> s { _s3NotificationConfigurationConfigFilterS3KeyRulesValue = a })