module Stratosphere.ResourceProperties.S3WebsiteRedirectAllRequestsTo where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
data S3WebsiteRedirectAllRequestsTo =
S3WebsiteRedirectAllRequestsTo
{ _s3WebsiteRedirectAllRequestsToHostName :: Val Text
, _s3WebsiteRedirectAllRequestsToProtocol :: Maybe (Val Text)
} deriving (Show, Generic)
instance ToJSON S3WebsiteRedirectAllRequestsTo where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 31, omitNothingFields = True }
instance FromJSON S3WebsiteRedirectAllRequestsTo where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 31, omitNothingFields = True }
s3WebsiteRedirectAllRequestsTo
:: Val Text
-> S3WebsiteRedirectAllRequestsTo
s3WebsiteRedirectAllRequestsTo hostNamearg =
S3WebsiteRedirectAllRequestsTo
{ _s3WebsiteRedirectAllRequestsToHostName = hostNamearg
, _s3WebsiteRedirectAllRequestsToProtocol = Nothing
}
swrartHostName :: Lens' S3WebsiteRedirectAllRequestsTo (Val Text)
swrartHostName = lens _s3WebsiteRedirectAllRequestsToHostName (\s a -> s { _s3WebsiteRedirectAllRequestsToHostName = a })
swrartProtocol :: Lens' S3WebsiteRedirectAllRequestsTo (Maybe (Val Text))
swrartProtocol = lens _s3WebsiteRedirectAllRequestsToProtocol (\s a -> s { _s3WebsiteRedirectAllRequestsToProtocol = a })