module Stratosphere.ResourceProperties.S3LifecycleRuleNoncurrentVersionTransition where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
data S3LifecycleRuleNoncurrentVersionTransition =
S3LifecycleRuleNoncurrentVersionTransition
{ _s3LifecycleRuleNoncurrentVersionTransitionStorageClass :: Val Text
, _s3LifecycleRuleNoncurrentVersionTransitionTransitionInDays :: Val Integer'
} deriving (Show, Generic)
instance ToJSON S3LifecycleRuleNoncurrentVersionTransition where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 43, omitNothingFields = True }
instance FromJSON S3LifecycleRuleNoncurrentVersionTransition where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 43, omitNothingFields = True }
s3LifecycleRuleNoncurrentVersionTransition
:: Val Text
-> Val Integer'
-> S3LifecycleRuleNoncurrentVersionTransition
s3LifecycleRuleNoncurrentVersionTransition storageClassarg transitionInDaysarg =
S3LifecycleRuleNoncurrentVersionTransition
{ _s3LifecycleRuleNoncurrentVersionTransitionStorageClass = storageClassarg
, _s3LifecycleRuleNoncurrentVersionTransitionTransitionInDays = transitionInDaysarg
}
slrnvtStorageClass :: Lens' S3LifecycleRuleNoncurrentVersionTransition (Val Text)
slrnvtStorageClass = lens _s3LifecycleRuleNoncurrentVersionTransitionStorageClass (\s a -> s { _s3LifecycleRuleNoncurrentVersionTransitionStorageClass = a })
slrnvtTransitionInDays :: Lens' S3LifecycleRuleNoncurrentVersionTransition (Val Integer')
slrnvtTransitionInDays = lens _s3LifecycleRuleNoncurrentVersionTransitionTransitionInDays (\s a -> s { _s3LifecycleRuleNoncurrentVersionTransitionTransitionInDays = a })