module Stratosphere.ResourceProperties.S3WebsiteRoutingRuleCondition where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
data S3WebsiteRoutingRuleCondition =
S3WebsiteRoutingRuleCondition
{ _s3WebsiteRoutingRuleConditionHttpErrorCodeReturnedEquals :: Maybe (Val Text)
, _s3WebsiteRoutingRuleConditionKeyPrefixEquals :: Maybe (Val Text)
} deriving (Show, Generic)
instance ToJSON S3WebsiteRoutingRuleCondition where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 30, omitNothingFields = True }
instance FromJSON S3WebsiteRoutingRuleCondition where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 30, omitNothingFields = True }
s3WebsiteRoutingRuleCondition
:: S3WebsiteRoutingRuleCondition
s3WebsiteRoutingRuleCondition =
S3WebsiteRoutingRuleCondition
{ _s3WebsiteRoutingRuleConditionHttpErrorCodeReturnedEquals = Nothing
, _s3WebsiteRoutingRuleConditionKeyPrefixEquals = Nothing
}
swrrcHttpErrorCodeReturnedEquals :: Lens' S3WebsiteRoutingRuleCondition (Maybe (Val Text))
swrrcHttpErrorCodeReturnedEquals = lens _s3WebsiteRoutingRuleConditionHttpErrorCodeReturnedEquals (\s a -> s { _s3WebsiteRoutingRuleConditionHttpErrorCodeReturnedEquals = a })
swrrcKeyPrefixEquals :: Lens' S3WebsiteRoutingRuleCondition (Maybe (Val Text))
swrrcKeyPrefixEquals = lens _s3WebsiteRoutingRuleConditionKeyPrefixEquals (\s a -> s { _s3WebsiteRoutingRuleConditionKeyPrefixEquals = a })