{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.CloudFront.Types.DistributionConfig where
import Amazonka.CloudFront.Types.Aliases
import Amazonka.CloudFront.Types.CacheBehaviors
import Amazonka.CloudFront.Types.CustomErrorResponses
import Amazonka.CloudFront.Types.DefaultCacheBehavior
import Amazonka.CloudFront.Types.HttpVersion
import Amazonka.CloudFront.Types.LoggingConfig
import Amazonka.CloudFront.Types.OriginGroups
import Amazonka.CloudFront.Types.Origins
import Amazonka.CloudFront.Types.PriceClass
import Amazonka.CloudFront.Types.Restrictions
import Amazonka.CloudFront.Types.ViewerCertificate
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
data DistributionConfig = DistributionConfig'
{
DistributionConfig -> Maybe Aliases
aliases :: Prelude.Maybe Aliases,
DistributionConfig -> Maybe CacheBehaviors
cacheBehaviors :: Prelude.Maybe CacheBehaviors,
DistributionConfig -> Maybe Text
continuousDeploymentPolicyId :: Prelude.Maybe Prelude.Text,
DistributionConfig -> Maybe CustomErrorResponses
customErrorResponses :: Prelude.Maybe CustomErrorResponses,
DistributionConfig -> Maybe Text
defaultRootObject :: Prelude.Maybe Prelude.Text,
DistributionConfig -> Maybe HttpVersion
httpVersion :: Prelude.Maybe HttpVersion,
DistributionConfig -> Maybe Bool
isIPV6Enabled :: Prelude.Maybe Prelude.Bool,
DistributionConfig -> Maybe LoggingConfig
logging :: Prelude.Maybe LoggingConfig,
DistributionConfig -> Maybe OriginGroups
originGroups :: Prelude.Maybe OriginGroups,
DistributionConfig -> Maybe PriceClass
priceClass :: Prelude.Maybe PriceClass,
DistributionConfig -> Maybe Restrictions
restrictions :: Prelude.Maybe Restrictions,
DistributionConfig -> Maybe Bool
staging :: Prelude.Maybe Prelude.Bool,
DistributionConfig -> Maybe ViewerCertificate
viewerCertificate :: Prelude.Maybe ViewerCertificate,
DistributionConfig -> Maybe Text
webACLId :: Prelude.Maybe Prelude.Text,
DistributionConfig -> Text
callerReference :: Prelude.Text,
DistributionConfig -> Origins
origins :: Origins,
DistributionConfig -> DefaultCacheBehavior
defaultCacheBehavior :: DefaultCacheBehavior,
:: Data.Sensitive Prelude.Text,
DistributionConfig -> Bool
enabled :: Prelude.Bool
}
deriving (DistributionConfig -> DistributionConfig -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DistributionConfig -> DistributionConfig -> Bool
$c/= :: DistributionConfig -> DistributionConfig -> Bool
== :: DistributionConfig -> DistributionConfig -> Bool
$c== :: DistributionConfig -> DistributionConfig -> Bool
Prelude.Eq, Int -> DistributionConfig -> ShowS
[DistributionConfig] -> ShowS
DistributionConfig -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DistributionConfig] -> ShowS
$cshowList :: [DistributionConfig] -> ShowS
show :: DistributionConfig -> String
$cshow :: DistributionConfig -> String
showsPrec :: Int -> DistributionConfig -> ShowS
$cshowsPrec :: Int -> DistributionConfig -> ShowS
Prelude.Show, forall x. Rep DistributionConfig x -> DistributionConfig
forall x. DistributionConfig -> Rep DistributionConfig x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DistributionConfig x -> DistributionConfig
$cfrom :: forall x. DistributionConfig -> Rep DistributionConfig x
Prelude.Generic)
newDistributionConfig ::
Prelude.Text ->
Origins ->
DefaultCacheBehavior ->
Prelude.Text ->
Prelude.Bool ->
DistributionConfig
newDistributionConfig :: Text
-> Origins
-> DefaultCacheBehavior
-> Text
-> Bool
-> DistributionConfig
newDistributionConfig
Text
pCallerReference_
Origins
pOrigins_
DefaultCacheBehavior
pDefaultCacheBehavior_
Text
pComment_
Bool
pEnabled_ =
DistributionConfig'
{ $sel:aliases:DistributionConfig' :: Maybe Aliases
aliases = forall a. Maybe a
Prelude.Nothing,
$sel:cacheBehaviors:DistributionConfig' :: Maybe CacheBehaviors
cacheBehaviors = forall a. Maybe a
Prelude.Nothing,
$sel:continuousDeploymentPolicyId:DistributionConfig' :: Maybe Text
continuousDeploymentPolicyId = forall a. Maybe a
Prelude.Nothing,
$sel:customErrorResponses:DistributionConfig' :: Maybe CustomErrorResponses
customErrorResponses = forall a. Maybe a
Prelude.Nothing,
$sel:defaultRootObject:DistributionConfig' :: Maybe Text
defaultRootObject = forall a. Maybe a
Prelude.Nothing,
$sel:httpVersion:DistributionConfig' :: Maybe HttpVersion
httpVersion = forall a. Maybe a
Prelude.Nothing,
$sel:isIPV6Enabled:DistributionConfig' :: Maybe Bool
isIPV6Enabled = forall a. Maybe a
Prelude.Nothing,
$sel:logging:DistributionConfig' :: Maybe LoggingConfig
logging = forall a. Maybe a
Prelude.Nothing,
$sel:originGroups:DistributionConfig' :: Maybe OriginGroups
originGroups = forall a. Maybe a
Prelude.Nothing,
$sel:priceClass:DistributionConfig' :: Maybe PriceClass
priceClass = forall a. Maybe a
Prelude.Nothing,
$sel:restrictions:DistributionConfig' :: Maybe Restrictions
restrictions = forall a. Maybe a
Prelude.Nothing,
$sel:staging:DistributionConfig' :: Maybe Bool
staging = forall a. Maybe a
Prelude.Nothing,
$sel:viewerCertificate:DistributionConfig' :: Maybe ViewerCertificate
viewerCertificate = forall a. Maybe a
Prelude.Nothing,
$sel:webACLId:DistributionConfig' :: Maybe Text
webACLId = forall a. Maybe a
Prelude.Nothing,
$sel:callerReference:DistributionConfig' :: Text
callerReference = Text
pCallerReference_,
$sel:origins:DistributionConfig' :: Origins
origins = Origins
pOrigins_,
$sel:defaultCacheBehavior:DistributionConfig' :: DefaultCacheBehavior
defaultCacheBehavior = DefaultCacheBehavior
pDefaultCacheBehavior_,
$sel:comment:DistributionConfig' :: Sensitive Text
comment = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pComment_,
$sel:enabled:DistributionConfig' :: Bool
enabled = Bool
pEnabled_
}
distributionConfig_aliases :: Lens.Lens' DistributionConfig (Prelude.Maybe Aliases)
distributionConfig_aliases :: Lens' DistributionConfig (Maybe Aliases)
distributionConfig_aliases = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Maybe Aliases
aliases :: Maybe Aliases
$sel:aliases:DistributionConfig' :: DistributionConfig -> Maybe Aliases
aliases} -> Maybe Aliases
aliases) (\s :: DistributionConfig
s@DistributionConfig' {} Maybe Aliases
a -> DistributionConfig
s {$sel:aliases:DistributionConfig' :: Maybe Aliases
aliases = Maybe Aliases
a} :: DistributionConfig)
distributionConfig_cacheBehaviors :: Lens.Lens' DistributionConfig (Prelude.Maybe CacheBehaviors)
distributionConfig_cacheBehaviors :: Lens' DistributionConfig (Maybe CacheBehaviors)
distributionConfig_cacheBehaviors = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Maybe CacheBehaviors
cacheBehaviors :: Maybe CacheBehaviors
$sel:cacheBehaviors:DistributionConfig' :: DistributionConfig -> Maybe CacheBehaviors
cacheBehaviors} -> Maybe CacheBehaviors
cacheBehaviors) (\s :: DistributionConfig
s@DistributionConfig' {} Maybe CacheBehaviors
a -> DistributionConfig
s {$sel:cacheBehaviors:DistributionConfig' :: Maybe CacheBehaviors
cacheBehaviors = Maybe CacheBehaviors
a} :: DistributionConfig)
distributionConfig_continuousDeploymentPolicyId :: Lens.Lens' DistributionConfig (Prelude.Maybe Prelude.Text)
distributionConfig_continuousDeploymentPolicyId :: Lens' DistributionConfig (Maybe Text)
distributionConfig_continuousDeploymentPolicyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Maybe Text
continuousDeploymentPolicyId :: Maybe Text
$sel:continuousDeploymentPolicyId:DistributionConfig' :: DistributionConfig -> Maybe Text
continuousDeploymentPolicyId} -> Maybe Text
continuousDeploymentPolicyId) (\s :: DistributionConfig
s@DistributionConfig' {} Maybe Text
a -> DistributionConfig
s {$sel:continuousDeploymentPolicyId:DistributionConfig' :: Maybe Text
continuousDeploymentPolicyId = Maybe Text
a} :: DistributionConfig)
distributionConfig_customErrorResponses :: Lens.Lens' DistributionConfig (Prelude.Maybe CustomErrorResponses)
distributionConfig_customErrorResponses :: Lens' DistributionConfig (Maybe CustomErrorResponses)
distributionConfig_customErrorResponses = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Maybe CustomErrorResponses
customErrorResponses :: Maybe CustomErrorResponses
$sel:customErrorResponses:DistributionConfig' :: DistributionConfig -> Maybe CustomErrorResponses
customErrorResponses} -> Maybe CustomErrorResponses
customErrorResponses) (\s :: DistributionConfig
s@DistributionConfig' {} Maybe CustomErrorResponses
a -> DistributionConfig
s {$sel:customErrorResponses:DistributionConfig' :: Maybe CustomErrorResponses
customErrorResponses = Maybe CustomErrorResponses
a} :: DistributionConfig)
distributionConfig_defaultRootObject :: Lens.Lens' DistributionConfig (Prelude.Maybe Prelude.Text)
distributionConfig_defaultRootObject :: Lens' DistributionConfig (Maybe Text)
distributionConfig_defaultRootObject = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Maybe Text
defaultRootObject :: Maybe Text
$sel:defaultRootObject:DistributionConfig' :: DistributionConfig -> Maybe Text
defaultRootObject} -> Maybe Text
defaultRootObject) (\s :: DistributionConfig
s@DistributionConfig' {} Maybe Text
a -> DistributionConfig
s {$sel:defaultRootObject:DistributionConfig' :: Maybe Text
defaultRootObject = Maybe Text
a} :: DistributionConfig)
distributionConfig_httpVersion :: Lens.Lens' DistributionConfig (Prelude.Maybe HttpVersion)
distributionConfig_httpVersion :: Lens' DistributionConfig (Maybe HttpVersion)
distributionConfig_httpVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Maybe HttpVersion
httpVersion :: Maybe HttpVersion
$sel:httpVersion:DistributionConfig' :: DistributionConfig -> Maybe HttpVersion
httpVersion} -> Maybe HttpVersion
httpVersion) (\s :: DistributionConfig
s@DistributionConfig' {} Maybe HttpVersion
a -> DistributionConfig
s {$sel:httpVersion:DistributionConfig' :: Maybe HttpVersion
httpVersion = Maybe HttpVersion
a} :: DistributionConfig)
distributionConfig_isIPV6Enabled :: Lens.Lens' DistributionConfig (Prelude.Maybe Prelude.Bool)
distributionConfig_isIPV6Enabled :: Lens' DistributionConfig (Maybe Bool)
distributionConfig_isIPV6Enabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Maybe Bool
isIPV6Enabled :: Maybe Bool
$sel:isIPV6Enabled:DistributionConfig' :: DistributionConfig -> Maybe Bool
isIPV6Enabled} -> Maybe Bool
isIPV6Enabled) (\s :: DistributionConfig
s@DistributionConfig' {} Maybe Bool
a -> DistributionConfig
s {$sel:isIPV6Enabled:DistributionConfig' :: Maybe Bool
isIPV6Enabled = Maybe Bool
a} :: DistributionConfig)
distributionConfig_logging :: Lens.Lens' DistributionConfig (Prelude.Maybe LoggingConfig)
distributionConfig_logging :: Lens' DistributionConfig (Maybe LoggingConfig)
distributionConfig_logging = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Maybe LoggingConfig
logging :: Maybe LoggingConfig
$sel:logging:DistributionConfig' :: DistributionConfig -> Maybe LoggingConfig
logging} -> Maybe LoggingConfig
logging) (\s :: DistributionConfig
s@DistributionConfig' {} Maybe LoggingConfig
a -> DistributionConfig
s {$sel:logging:DistributionConfig' :: Maybe LoggingConfig
logging = Maybe LoggingConfig
a} :: DistributionConfig)
distributionConfig_originGroups :: Lens.Lens' DistributionConfig (Prelude.Maybe OriginGroups)
distributionConfig_originGroups :: Lens' DistributionConfig (Maybe OriginGroups)
distributionConfig_originGroups = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Maybe OriginGroups
originGroups :: Maybe OriginGroups
$sel:originGroups:DistributionConfig' :: DistributionConfig -> Maybe OriginGroups
originGroups} -> Maybe OriginGroups
originGroups) (\s :: DistributionConfig
s@DistributionConfig' {} Maybe OriginGroups
a -> DistributionConfig
s {$sel:originGroups:DistributionConfig' :: Maybe OriginGroups
originGroups = Maybe OriginGroups
a} :: DistributionConfig)
distributionConfig_priceClass :: Lens.Lens' DistributionConfig (Prelude.Maybe PriceClass)
distributionConfig_priceClass :: Lens' DistributionConfig (Maybe PriceClass)
distributionConfig_priceClass = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Maybe PriceClass
priceClass :: Maybe PriceClass
$sel:priceClass:DistributionConfig' :: DistributionConfig -> Maybe PriceClass
priceClass} -> Maybe PriceClass
priceClass) (\s :: DistributionConfig
s@DistributionConfig' {} Maybe PriceClass
a -> DistributionConfig
s {$sel:priceClass:DistributionConfig' :: Maybe PriceClass
priceClass = Maybe PriceClass
a} :: DistributionConfig)
distributionConfig_restrictions :: Lens.Lens' DistributionConfig (Prelude.Maybe Restrictions)
distributionConfig_restrictions :: Lens' DistributionConfig (Maybe Restrictions)
distributionConfig_restrictions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Maybe Restrictions
restrictions :: Maybe Restrictions
$sel:restrictions:DistributionConfig' :: DistributionConfig -> Maybe Restrictions
restrictions} -> Maybe Restrictions
restrictions) (\s :: DistributionConfig
s@DistributionConfig' {} Maybe Restrictions
a -> DistributionConfig
s {$sel:restrictions:DistributionConfig' :: Maybe Restrictions
restrictions = Maybe Restrictions
a} :: DistributionConfig)
distributionConfig_staging :: Lens.Lens' DistributionConfig (Prelude.Maybe Prelude.Bool)
distributionConfig_staging :: Lens' DistributionConfig (Maybe Bool)
distributionConfig_staging = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Maybe Bool
staging :: Maybe Bool
$sel:staging:DistributionConfig' :: DistributionConfig -> Maybe Bool
staging} -> Maybe Bool
staging) (\s :: DistributionConfig
s@DistributionConfig' {} Maybe Bool
a -> DistributionConfig
s {$sel:staging:DistributionConfig' :: Maybe Bool
staging = Maybe Bool
a} :: DistributionConfig)
distributionConfig_viewerCertificate :: Lens.Lens' DistributionConfig (Prelude.Maybe ViewerCertificate)
distributionConfig_viewerCertificate :: Lens' DistributionConfig (Maybe ViewerCertificate)
distributionConfig_viewerCertificate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Maybe ViewerCertificate
viewerCertificate :: Maybe ViewerCertificate
$sel:viewerCertificate:DistributionConfig' :: DistributionConfig -> Maybe ViewerCertificate
viewerCertificate} -> Maybe ViewerCertificate
viewerCertificate) (\s :: DistributionConfig
s@DistributionConfig' {} Maybe ViewerCertificate
a -> DistributionConfig
s {$sel:viewerCertificate:DistributionConfig' :: Maybe ViewerCertificate
viewerCertificate = Maybe ViewerCertificate
a} :: DistributionConfig)
distributionConfig_webACLId :: Lens.Lens' DistributionConfig (Prelude.Maybe Prelude.Text)
distributionConfig_webACLId :: Lens' DistributionConfig (Maybe Text)
distributionConfig_webACLId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Maybe Text
webACLId :: Maybe Text
$sel:webACLId:DistributionConfig' :: DistributionConfig -> Maybe Text
webACLId} -> Maybe Text
webACLId) (\s :: DistributionConfig
s@DistributionConfig' {} Maybe Text
a -> DistributionConfig
s {$sel:webACLId:DistributionConfig' :: Maybe Text
webACLId = Maybe Text
a} :: DistributionConfig)
distributionConfig_callerReference :: Lens.Lens' DistributionConfig Prelude.Text
distributionConfig_callerReference :: Lens' DistributionConfig Text
distributionConfig_callerReference = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Text
callerReference :: Text
$sel:callerReference:DistributionConfig' :: DistributionConfig -> Text
callerReference} -> Text
callerReference) (\s :: DistributionConfig
s@DistributionConfig' {} Text
a -> DistributionConfig
s {$sel:callerReference:DistributionConfig' :: Text
callerReference = Text
a} :: DistributionConfig)
distributionConfig_origins :: Lens.Lens' DistributionConfig Origins
distributionConfig_origins :: Lens' DistributionConfig Origins
distributionConfig_origins = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Origins
origins :: Origins
$sel:origins:DistributionConfig' :: DistributionConfig -> Origins
origins} -> Origins
origins) (\s :: DistributionConfig
s@DistributionConfig' {} Origins
a -> DistributionConfig
s {$sel:origins:DistributionConfig' :: Origins
origins = Origins
a} :: DistributionConfig)
distributionConfig_defaultCacheBehavior :: Lens.Lens' DistributionConfig DefaultCacheBehavior
distributionConfig_defaultCacheBehavior :: Lens' DistributionConfig DefaultCacheBehavior
distributionConfig_defaultCacheBehavior = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {DefaultCacheBehavior
defaultCacheBehavior :: DefaultCacheBehavior
$sel:defaultCacheBehavior:DistributionConfig' :: DistributionConfig -> DefaultCacheBehavior
defaultCacheBehavior} -> DefaultCacheBehavior
defaultCacheBehavior) (\s :: DistributionConfig
s@DistributionConfig' {} DefaultCacheBehavior
a -> DistributionConfig
s {$sel:defaultCacheBehavior:DistributionConfig' :: DefaultCacheBehavior
defaultCacheBehavior = DefaultCacheBehavior
a} :: DistributionConfig)
distributionConfig_comment :: Lens.Lens' DistributionConfig Prelude.Text
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Sensitive Text
comment :: Sensitive Text
$sel:comment:DistributionConfig' :: DistributionConfig -> Sensitive Text
comment} -> Sensitive Text
comment) (\s :: DistributionConfig
s@DistributionConfig' {} Sensitive Text
a -> DistributionConfig
s {$sel:comment:DistributionConfig' :: Sensitive Text
comment = Sensitive Text
a} :: DistributionConfig) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive
distributionConfig_enabled :: Lens.Lens' DistributionConfig Prelude.Bool
distributionConfig_enabled :: Lens' DistributionConfig Bool
distributionConfig_enabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DistributionConfig' {Bool
enabled :: Bool
$sel:enabled:DistributionConfig' :: DistributionConfig -> Bool
enabled} -> Bool
enabled) (\s :: DistributionConfig
s@DistributionConfig' {} Bool
a -> DistributionConfig
s {$sel:enabled:DistributionConfig' :: Bool
enabled = Bool
a} :: DistributionConfig)
instance Data.FromXML DistributionConfig where
parseXML :: [Node] -> Either String DistributionConfig
parseXML [Node]
x =
Maybe Aliases
-> Maybe CacheBehaviors
-> Maybe Text
-> Maybe CustomErrorResponses
-> Maybe Text
-> Maybe HttpVersion
-> Maybe Bool
-> Maybe LoggingConfig
-> Maybe OriginGroups
-> Maybe PriceClass
-> Maybe Restrictions
-> Maybe Bool
-> Maybe ViewerCertificate
-> Maybe Text
-> Text
-> Origins
-> DefaultCacheBehavior
-> Sensitive Text
-> Bool
-> DistributionConfig
DistributionConfig'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Aliases")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"CacheBehaviors")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"ContinuousDeploymentPolicyId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"CustomErrorResponses")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"DefaultRootObject")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"HttpVersion")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"IsIPV6Enabled")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Logging")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"OriginGroups")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"PriceClass")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Restrictions")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Staging")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"ViewerCertificate")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"WebACLId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String a
Data..@ Text
"CallerReference")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String a
Data..@ Text
"Origins")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String a
Data..@ Text
"DefaultCacheBehavior")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String a
Data..@ Text
"Comment")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String a
Data..@ Text
"Enabled")
instance Prelude.Hashable DistributionConfig where
hashWithSalt :: Int -> DistributionConfig -> Int
hashWithSalt Int
_salt DistributionConfig' {Bool
Maybe Bool
Maybe Text
Maybe Aliases
Maybe CustomErrorResponses
Maybe HttpVersion
Maybe LoggingConfig
Maybe PriceClass
Maybe Restrictions
Maybe OriginGroups
Maybe ViewerCertificate
Maybe CacheBehaviors
Text
Sensitive Text
Origins
DefaultCacheBehavior
enabled :: Bool
comment :: Sensitive Text
defaultCacheBehavior :: DefaultCacheBehavior
origins :: Origins
callerReference :: Text
webACLId :: Maybe Text
viewerCertificate :: Maybe ViewerCertificate
staging :: Maybe Bool
restrictions :: Maybe Restrictions
priceClass :: Maybe PriceClass
originGroups :: Maybe OriginGroups
logging :: Maybe LoggingConfig
isIPV6Enabled :: Maybe Bool
httpVersion :: Maybe HttpVersion
defaultRootObject :: Maybe Text
customErrorResponses :: Maybe CustomErrorResponses
continuousDeploymentPolicyId :: Maybe Text
cacheBehaviors :: Maybe CacheBehaviors
aliases :: Maybe Aliases
$sel:enabled:DistributionConfig' :: DistributionConfig -> Bool
$sel:comment:DistributionConfig' :: DistributionConfig -> Sensitive Text
$sel:defaultCacheBehavior:DistributionConfig' :: DistributionConfig -> DefaultCacheBehavior
$sel:origins:DistributionConfig' :: DistributionConfig -> Origins
$sel:callerReference:DistributionConfig' :: DistributionConfig -> Text
$sel:webACLId:DistributionConfig' :: DistributionConfig -> Maybe Text
$sel:viewerCertificate:DistributionConfig' :: DistributionConfig -> Maybe ViewerCertificate
$sel:staging:DistributionConfig' :: DistributionConfig -> Maybe Bool
$sel:restrictions:DistributionConfig' :: DistributionConfig -> Maybe Restrictions
$sel:priceClass:DistributionConfig' :: DistributionConfig -> Maybe PriceClass
$sel:originGroups:DistributionConfig' :: DistributionConfig -> Maybe OriginGroups
$sel:logging:DistributionConfig' :: DistributionConfig -> Maybe LoggingConfig
$sel:isIPV6Enabled:DistributionConfig' :: DistributionConfig -> Maybe Bool
$sel:httpVersion:DistributionConfig' :: DistributionConfig -> Maybe HttpVersion
$sel:defaultRootObject:DistributionConfig' :: DistributionConfig -> Maybe Text
$sel:customErrorResponses:DistributionConfig' :: DistributionConfig -> Maybe CustomErrorResponses
$sel:continuousDeploymentPolicyId:DistributionConfig' :: DistributionConfig -> Maybe Text
$sel:cacheBehaviors:DistributionConfig' :: DistributionConfig -> Maybe CacheBehaviors
$sel:aliases:DistributionConfig' :: DistributionConfig -> Maybe Aliases
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Aliases
aliases
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe CacheBehaviors
cacheBehaviors
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
continuousDeploymentPolicyId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe CustomErrorResponses
customErrorResponses
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
defaultRootObject
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe HttpVersion
httpVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
isIPV6Enabled
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe LoggingConfig
logging
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe OriginGroups
originGroups
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PriceClass
priceClass
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Restrictions
restrictions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
staging
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ViewerCertificate
viewerCertificate
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
webACLId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
callerReference
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Origins
origins
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` DefaultCacheBehavior
defaultCacheBehavior
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Sensitive Text
comment
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Bool
enabled
instance Prelude.NFData DistributionConfig where
rnf :: DistributionConfig -> ()
rnf DistributionConfig' {Bool
Maybe Bool
Maybe Text
Maybe Aliases
Maybe CustomErrorResponses
Maybe HttpVersion
Maybe LoggingConfig
Maybe PriceClass
Maybe Restrictions
Maybe OriginGroups
Maybe ViewerCertificate
Maybe CacheBehaviors
Text
Sensitive Text
Origins
DefaultCacheBehavior
enabled :: Bool
comment :: Sensitive Text
defaultCacheBehavior :: DefaultCacheBehavior
origins :: Origins
callerReference :: Text
webACLId :: Maybe Text
viewerCertificate :: Maybe ViewerCertificate
staging :: Maybe Bool
restrictions :: Maybe Restrictions
priceClass :: Maybe PriceClass
originGroups :: Maybe OriginGroups
logging :: Maybe LoggingConfig
isIPV6Enabled :: Maybe Bool
httpVersion :: Maybe HttpVersion
defaultRootObject :: Maybe Text
customErrorResponses :: Maybe CustomErrorResponses
continuousDeploymentPolicyId :: Maybe Text
cacheBehaviors :: Maybe CacheBehaviors
aliases :: Maybe Aliases
$sel:enabled:DistributionConfig' :: DistributionConfig -> Bool
$sel:comment:DistributionConfig' :: DistributionConfig -> Sensitive Text
$sel:defaultCacheBehavior:DistributionConfig' :: DistributionConfig -> DefaultCacheBehavior
$sel:origins:DistributionConfig' :: DistributionConfig -> Origins
$sel:callerReference:DistributionConfig' :: DistributionConfig -> Text
$sel:webACLId:DistributionConfig' :: DistributionConfig -> Maybe Text
$sel:viewerCertificate:DistributionConfig' :: DistributionConfig -> Maybe ViewerCertificate
$sel:staging:DistributionConfig' :: DistributionConfig -> Maybe Bool
$sel:restrictions:DistributionConfig' :: DistributionConfig -> Maybe Restrictions
$sel:priceClass:DistributionConfig' :: DistributionConfig -> Maybe PriceClass
$sel:originGroups:DistributionConfig' :: DistributionConfig -> Maybe OriginGroups
$sel:logging:DistributionConfig' :: DistributionConfig -> Maybe LoggingConfig
$sel:isIPV6Enabled:DistributionConfig' :: DistributionConfig -> Maybe Bool
$sel:httpVersion:DistributionConfig' :: DistributionConfig -> Maybe HttpVersion
$sel:defaultRootObject:DistributionConfig' :: DistributionConfig -> Maybe Text
$sel:customErrorResponses:DistributionConfig' :: DistributionConfig -> Maybe CustomErrorResponses
$sel:continuousDeploymentPolicyId:DistributionConfig' :: DistributionConfig -> Maybe Text
$sel:cacheBehaviors:DistributionConfig' :: DistributionConfig -> Maybe CacheBehaviors
$sel:aliases:DistributionConfig' :: DistributionConfig -> Maybe Aliases
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Aliases
aliases
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe CacheBehaviors
cacheBehaviors
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
continuousDeploymentPolicyId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe CustomErrorResponses
customErrorResponses
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
defaultRootObject
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe HttpVersion
httpVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
isIPV6Enabled
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LoggingConfig
logging
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe OriginGroups
originGroups
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PriceClass
priceClass
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Restrictions
restrictions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
staging
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ViewerCertificate
viewerCertificate
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
webACLId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
callerReference
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Origins
origins
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf DefaultCacheBehavior
defaultCacheBehavior
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Sensitive Text
comment
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Bool
enabled
instance Data.ToXML DistributionConfig where
toXML :: DistributionConfig -> XML
toXML DistributionConfig' {Bool
Maybe Bool
Maybe Text
Maybe Aliases
Maybe CustomErrorResponses
Maybe HttpVersion
Maybe LoggingConfig
Maybe PriceClass
Maybe Restrictions
Maybe OriginGroups
Maybe ViewerCertificate
Maybe CacheBehaviors
Text
Sensitive Text
Origins
DefaultCacheBehavior
enabled :: Bool
comment :: Sensitive Text
defaultCacheBehavior :: DefaultCacheBehavior
origins :: Origins
callerReference :: Text
webACLId :: Maybe Text
viewerCertificate :: Maybe ViewerCertificate
staging :: Maybe Bool
restrictions :: Maybe Restrictions
priceClass :: Maybe PriceClass
originGroups :: Maybe OriginGroups
logging :: Maybe LoggingConfig
isIPV6Enabled :: Maybe Bool
httpVersion :: Maybe HttpVersion
defaultRootObject :: Maybe Text
customErrorResponses :: Maybe CustomErrorResponses
continuousDeploymentPolicyId :: Maybe Text
cacheBehaviors :: Maybe CacheBehaviors
aliases :: Maybe Aliases
$sel:enabled:DistributionConfig' :: DistributionConfig -> Bool
$sel:comment:DistributionConfig' :: DistributionConfig -> Sensitive Text
$sel:defaultCacheBehavior:DistributionConfig' :: DistributionConfig -> DefaultCacheBehavior
$sel:origins:DistributionConfig' :: DistributionConfig -> Origins
$sel:callerReference:DistributionConfig' :: DistributionConfig -> Text
$sel:webACLId:DistributionConfig' :: DistributionConfig -> Maybe Text
$sel:viewerCertificate:DistributionConfig' :: DistributionConfig -> Maybe ViewerCertificate
$sel:staging:DistributionConfig' :: DistributionConfig -> Maybe Bool
$sel:restrictions:DistributionConfig' :: DistributionConfig -> Maybe Restrictions
$sel:priceClass:DistributionConfig' :: DistributionConfig -> Maybe PriceClass
$sel:originGroups:DistributionConfig' :: DistributionConfig -> Maybe OriginGroups
$sel:logging:DistributionConfig' :: DistributionConfig -> Maybe LoggingConfig
$sel:isIPV6Enabled:DistributionConfig' :: DistributionConfig -> Maybe Bool
$sel:httpVersion:DistributionConfig' :: DistributionConfig -> Maybe HttpVersion
$sel:defaultRootObject:DistributionConfig' :: DistributionConfig -> Maybe Text
$sel:customErrorResponses:DistributionConfig' :: DistributionConfig -> Maybe CustomErrorResponses
$sel:continuousDeploymentPolicyId:DistributionConfig' :: DistributionConfig -> Maybe Text
$sel:cacheBehaviors:DistributionConfig' :: DistributionConfig -> Maybe CacheBehaviors
$sel:aliases:DistributionConfig' :: DistributionConfig -> Maybe Aliases
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ Name
"Aliases" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe Aliases
aliases,
Name
"CacheBehaviors" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe CacheBehaviors
cacheBehaviors,
Name
"ContinuousDeploymentPolicyId"
forall a. ToXML a => Name -> a -> XML
Data.@= Maybe Text
continuousDeploymentPolicyId,
Name
"CustomErrorResponses" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe CustomErrorResponses
customErrorResponses,
Name
"DefaultRootObject" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe Text
defaultRootObject,
Name
"HttpVersion" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe HttpVersion
httpVersion,
Name
"IsIPV6Enabled" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe Bool
isIPV6Enabled,
Name
"Logging" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe LoggingConfig
logging,
Name
"OriginGroups" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe OriginGroups
originGroups,
Name
"PriceClass" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe PriceClass
priceClass,
Name
"Restrictions" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe Restrictions
restrictions,
Name
"Staging" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe Bool
staging,
Name
"ViewerCertificate" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe ViewerCertificate
viewerCertificate,
Name
"WebACLId" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe Text
webACLId,
Name
"CallerReference" forall a. ToXML a => Name -> a -> XML
Data.@= Text
callerReference,
Name
"Origins" forall a. ToXML a => Name -> a -> XML
Data.@= Origins
origins,
Name
"DefaultCacheBehavior" forall a. ToXML a => Name -> a -> XML
Data.@= DefaultCacheBehavior
defaultCacheBehavior,
Name
"Comment" forall a. ToXML a => Name -> a -> XML
Data.@= Sensitive Text
comment,
Name
"Enabled" forall a. ToXML a => Name -> a -> XML
Data.@= Bool
enabled
]