module Stratosphere.ResourceProperties.S3LifecycleConfiguration where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
import Stratosphere.ResourceProperties.S3LifecycleRule
data S3LifecycleConfiguration =
S3LifecycleConfiguration
{ _s3LifecycleConfigurationRules :: [S3LifecycleRule]
} deriving (Show, Generic)
instance ToJSON S3LifecycleConfiguration where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 25, omitNothingFields = True }
instance FromJSON S3LifecycleConfiguration where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 25, omitNothingFields = True }
s3LifecycleConfiguration
:: [S3LifecycleRule]
-> S3LifecycleConfiguration
s3LifecycleConfiguration rulesarg =
S3LifecycleConfiguration
{ _s3LifecycleConfigurationRules = rulesarg
}
slcRules :: Lens' S3LifecycleConfiguration [S3LifecycleRule]
slcRules = lens _s3LifecycleConfigurationRules (\s a -> s { _s3LifecycleConfigurationRules = a })