module Stratosphere.ResourceProperties.S3ReplicationConfiguration where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
import Stratosphere.ResourceProperties.S3ReplicationConfigurationRule
data S3ReplicationConfiguration =
S3ReplicationConfiguration
{ _s3ReplicationConfigurationRole :: Val Text
, _s3ReplicationConfigurationRules :: [S3ReplicationConfigurationRule]
} deriving (Show, Generic)
instance ToJSON S3ReplicationConfiguration where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 27, omitNothingFields = True }
instance FromJSON S3ReplicationConfiguration where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 27, omitNothingFields = True }
s3ReplicationConfiguration
:: Val Text
-> [S3ReplicationConfigurationRule]
-> S3ReplicationConfiguration
s3ReplicationConfiguration rolearg rulesarg =
S3ReplicationConfiguration
{ _s3ReplicationConfigurationRole = rolearg
, _s3ReplicationConfigurationRules = rulesarg
}
srcRole :: Lens' S3ReplicationConfiguration (Val Text)
srcRole = lens _s3ReplicationConfigurationRole (\s a -> s { _s3ReplicationConfigurationRole = a })
srcRules :: Lens' S3ReplicationConfiguration [S3ReplicationConfigurationRule]
srcRules = lens _s3ReplicationConfigurationRules (\s a -> s { _s3ReplicationConfigurationRules = a })