module Stratosphere.ResourceProperties.S3LoggingConfiguration where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
data S3LoggingConfiguration =
S3LoggingConfiguration
{ _s3LoggingConfigurationDestinationBucketName :: Maybe (Val Text)
, _s3LoggingConfigurationLogFilePrefix :: Maybe (Val Text)
} deriving (Show, Generic)
instance ToJSON S3LoggingConfiguration where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 23, omitNothingFields = True }
instance FromJSON S3LoggingConfiguration where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 23, omitNothingFields = True }
s3LoggingConfiguration
:: S3LoggingConfiguration
s3LoggingConfiguration =
S3LoggingConfiguration
{ _s3LoggingConfigurationDestinationBucketName = Nothing
, _s3LoggingConfigurationLogFilePrefix = Nothing
}
slcDestinationBucketName :: Lens' S3LoggingConfiguration (Maybe (Val Text))
slcDestinationBucketName = lens _s3LoggingConfigurationDestinationBucketName (\s a -> s { _s3LoggingConfigurationDestinationBucketName = a })
slcLogFilePrefix :: Lens' S3LoggingConfiguration (Maybe (Val Text))
slcLogFilePrefix = lens _s3LoggingConfigurationLogFilePrefix (\s a -> s { _s3LoggingConfigurationLogFilePrefix = a })