module Stratosphere.ResourceProperties.S3VersioningConfiguration where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
data S3VersioningConfiguration =
S3VersioningConfiguration
{ _s3VersioningConfigurationStatus :: Val Text
} deriving (Show, Generic)
instance ToJSON S3VersioningConfiguration where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 26, omitNothingFields = True }
instance FromJSON S3VersioningConfiguration where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 26, omitNothingFields = True }
s3VersioningConfiguration
:: Val Text
-> S3VersioningConfiguration
s3VersioningConfiguration statusarg =
S3VersioningConfiguration
{ _s3VersioningConfigurationStatus = statusarg
}
svcStatus :: Lens' S3VersioningConfiguration (Val Text)
svcStatus = lens _s3VersioningConfigurationStatus (\s a -> s { _s3VersioningConfigurationStatus = a })