module Stratosphere.ResourceProperties.S3NotificationConfigurationLambdaConfiguration where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
import Stratosphere.ResourceProperties.S3NotificationConfigurationConfigFilter
data S3NotificationConfigurationLambdaConfiguration =
S3NotificationConfigurationLambdaConfiguration
{ _s3NotificationConfigurationLambdaConfigurationEvent :: Val Text
, _s3NotificationConfigurationLambdaConfigurationFilter :: Maybe S3NotificationConfigurationConfigFilter
, _s3NotificationConfigurationLambdaConfigurationFunction :: Val Text
} deriving (Show, Generic)
instance ToJSON S3NotificationConfigurationLambdaConfiguration where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 47, omitNothingFields = True }
instance FromJSON S3NotificationConfigurationLambdaConfiguration where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 47, omitNothingFields = True }
s3NotificationConfigurationLambdaConfiguration
:: Val Text
-> Val Text
-> S3NotificationConfigurationLambdaConfiguration
s3NotificationConfigurationLambdaConfiguration eventarg functionarg =
S3NotificationConfigurationLambdaConfiguration
{ _s3NotificationConfigurationLambdaConfigurationEvent = eventarg
, _s3NotificationConfigurationLambdaConfigurationFilter = Nothing
, _s3NotificationConfigurationLambdaConfigurationFunction = functionarg
}
snclcEvent :: Lens' S3NotificationConfigurationLambdaConfiguration (Val Text)
snclcEvent = lens _s3NotificationConfigurationLambdaConfigurationEvent (\s a -> s { _s3NotificationConfigurationLambdaConfigurationEvent = a })
snclcFilter :: Lens' S3NotificationConfigurationLambdaConfiguration (Maybe S3NotificationConfigurationConfigFilter)
snclcFilter = lens _s3NotificationConfigurationLambdaConfigurationFilter (\s a -> s { _s3NotificationConfigurationLambdaConfigurationFilter = a })
snclcFunction :: Lens' S3NotificationConfigurationLambdaConfiguration (Val Text)
snclcFunction = lens _s3NotificationConfigurationLambdaConfigurationFunction (\s a -> s { _s3NotificationConfigurationLambdaConfigurationFunction = a })