S3BucketWebsiteConfiguration.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration.html

module Stratosphere.ResourceProperties.S3BucketWebsiteConfiguration where

import Control.Lens hiding ((.=))
import Data.Aeson
import Data.Maybe (catMaybes)
import Data.Monoid (mempty)
import Data.Text

import Stratosphere.Values
import Stratosphere.ResourceProperties.S3BucketRedirectAllRequestsTo
import Stratosphere.ResourceProperties.S3BucketRoutingRule

-- | Full data type definition for S3BucketWebsiteConfiguration. See
-- 's3BucketWebsiteConfiguration' for a more convenient constructor.
data S3BucketWebsiteConfiguration =
  S3BucketWebsiteConfiguration
  { _s3BucketWebsiteConfigurationErrorDocument :: Maybe (Val Text)
  , _s3BucketWebsiteConfigurationIndexDocument :: Maybe (Val Text)
  , _s3BucketWebsiteConfigurationRedirectAllRequestsTo :: Maybe S3BucketRedirectAllRequestsTo
  , _s3BucketWebsiteConfigurationRoutingRules :: Maybe [S3BucketRoutingRule]
  } deriving (Show, Eq)

instance ToJSON S3BucketWebsiteConfiguration where
  toJSON S3BucketWebsiteConfiguration{..} =
    object $
    catMaybes
    [ ("ErrorDocument" .=) <$> _s3BucketWebsiteConfigurationErrorDocument
    , ("IndexDocument" .=) <$> _s3BucketWebsiteConfigurationIndexDocument
    , ("RedirectAllRequestsTo" .=) <$> _s3BucketWebsiteConfigurationRedirectAllRequestsTo
    , ("RoutingRules" .=) <$> _s3BucketWebsiteConfigurationRoutingRules
    ]

instance FromJSON S3BucketWebsiteConfiguration where
  parseJSON (Object obj) =
    S3BucketWebsiteConfiguration <$>
      obj .:? "ErrorDocument" <*>
      obj .:? "IndexDocument" <*>
      obj .:? "RedirectAllRequestsTo" <*>
      obj .:? "RoutingRules"
  parseJSON _ = mempty

-- | Constructor for 'S3BucketWebsiteConfiguration' containing required fields
-- as arguments.
s3BucketWebsiteConfiguration
  :: S3BucketWebsiteConfiguration
s3BucketWebsiteConfiguration  =
  S3BucketWebsiteConfiguration
  { _s3BucketWebsiteConfigurationErrorDocument = Nothing
  , _s3BucketWebsiteConfigurationIndexDocument = Nothing
  , _s3BucketWebsiteConfigurationRedirectAllRequestsTo = Nothing
  , _s3BucketWebsiteConfigurationRoutingRules = Nothing
  }

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration.html#cfn-s3-websiteconfiguration-errordocument
sbwcErrorDocument :: Lens' S3BucketWebsiteConfiguration (Maybe (Val Text))
sbwcErrorDocument = lens _s3BucketWebsiteConfigurationErrorDocument (\s a -> s { _s3BucketWebsiteConfigurationErrorDocument = a })

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration.html#cfn-s3-websiteconfiguration-indexdocument
sbwcIndexDocument :: Lens' S3BucketWebsiteConfiguration (Maybe (Val Text))
sbwcIndexDocument = lens _s3BucketWebsiteConfigurationIndexDocument (\s a -> s { _s3BucketWebsiteConfigurationIndexDocument = a })

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration.html#cfn-s3-websiteconfiguration-redirectallrequeststo
sbwcRedirectAllRequestsTo :: Lens' S3BucketWebsiteConfiguration (Maybe S3BucketRedirectAllRequestsTo)
sbwcRedirectAllRequestsTo = lens _s3BucketWebsiteConfigurationRedirectAllRequestsTo (\s a -> s { _s3BucketWebsiteConfigurationRedirectAllRequestsTo = a })

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-websiteconfiguration.html#cfn-s3-websiteconfiguration-routingrules
sbwcRoutingRules :: Lens' S3BucketWebsiteConfiguration (Maybe [S3BucketRoutingRule])
sbwcRoutingRules = lens _s3BucketWebsiteConfigurationRoutingRules (\s a -> s { _s3BucketWebsiteConfigurationRoutingRules = a })