module Stratosphere.CloudFront.Distribution.OriginProperty (
        module Exports, OriginProperty(..), mkOriginProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.CloudFront.Distribution.CustomOriginConfigProperty as Exports
import {-# SOURCE #-} Stratosphere.CloudFront.Distribution.OriginCustomHeaderProperty as Exports
import {-# SOURCE #-} Stratosphere.CloudFront.Distribution.OriginShieldProperty as Exports
import {-# SOURCE #-} Stratosphere.CloudFront.Distribution.S3OriginConfigProperty as Exports
import {-# SOURCE #-} Stratosphere.CloudFront.Distribution.VpcOriginConfigProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data OriginProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html>
    OriginProperty {OriginProperty -> ()
haddock_workaround_ :: (),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-connectionattempts>
                    OriginProperty -> Maybe (Value Integer)
connectionAttempts :: (Prelude.Maybe (Value Prelude.Integer)),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-connectiontimeout>
                    OriginProperty -> Maybe (Value Integer)
connectionTimeout :: (Prelude.Maybe (Value Prelude.Integer)),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-customoriginconfig>
                    OriginProperty -> Maybe CustomOriginConfigProperty
customOriginConfig :: (Prelude.Maybe CustomOriginConfigProperty),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-domainname>
                    OriginProperty -> Value Text
domainName :: (Value Prelude.Text),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-id>
                    OriginProperty -> Value Text
id :: (Value Prelude.Text),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-originaccesscontrolid>
                    OriginProperty -> Maybe (Value Text)
originAccessControlId :: (Prelude.Maybe (Value Prelude.Text)),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-origincustomheaders>
                    OriginProperty -> Maybe [OriginCustomHeaderProperty]
originCustomHeaders :: (Prelude.Maybe [OriginCustomHeaderProperty]),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-originpath>
                    OriginProperty -> Maybe (Value Text)
originPath :: (Prelude.Maybe (Value Prelude.Text)),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-originshield>
                    OriginProperty -> Maybe OriginShieldProperty
originShield :: (Prelude.Maybe OriginShieldProperty),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-responsecompletiontimeout>
                    OriginProperty -> Maybe (Value Integer)
responseCompletionTimeout :: (Prelude.Maybe (Value Prelude.Integer)),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-s3originconfig>
                    OriginProperty -> Maybe S3OriginConfigProperty
s3OriginConfig :: (Prelude.Maybe S3OriginConfigProperty),
                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-distribution-origin.html#cfn-cloudfront-distribution-origin-vpcoriginconfig>
                    OriginProperty -> Maybe VpcOriginConfigProperty
vpcOriginConfig :: (Prelude.Maybe VpcOriginConfigProperty)}
  deriving stock (OriginProperty -> OriginProperty -> Bool
(OriginProperty -> OriginProperty -> Bool)
-> (OriginProperty -> OriginProperty -> Bool) -> Eq OriginProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: OriginProperty -> OriginProperty -> Bool
== :: OriginProperty -> OriginProperty -> Bool
$c/= :: OriginProperty -> OriginProperty -> Bool
/= :: OriginProperty -> OriginProperty -> Bool
Prelude.Eq, Int -> OriginProperty -> ShowS
[OriginProperty] -> ShowS
OriginProperty -> String
(Int -> OriginProperty -> ShowS)
-> (OriginProperty -> String)
-> ([OriginProperty] -> ShowS)
-> Show OriginProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> OriginProperty -> ShowS
showsPrec :: Int -> OriginProperty -> ShowS
$cshow :: OriginProperty -> String
show :: OriginProperty -> String
$cshowList :: [OriginProperty] -> ShowS
showList :: [OriginProperty] -> ShowS
Prelude.Show)
mkOriginProperty ::
  Value Prelude.Text -> Value Prelude.Text -> OriginProperty
mkOriginProperty :: Value Text -> Value Text -> OriginProperty
mkOriginProperty Value Text
domainName Value Text
id
  = OriginProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), domainName :: Value Text
domainName = Value Text
domainName, id :: Value Text
id = Value Text
id,
       connectionAttempts :: Maybe (Value Integer)
connectionAttempts = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       connectionTimeout :: Maybe (Value Integer)
connectionTimeout = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       customOriginConfig :: Maybe CustomOriginConfigProperty
customOriginConfig = Maybe CustomOriginConfigProperty
forall a. Maybe a
Prelude.Nothing,
       originAccessControlId :: Maybe (Value Text)
originAccessControlId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originCustomHeaders = Maybe [OriginCustomHeaderProperty]
forall a. Maybe a
Prelude.Nothing,
       originPath :: Maybe (Value Text)
originPath = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, originShield :: Maybe OriginShieldProperty
originShield = Maybe OriginShieldProperty
forall a. Maybe a
Prelude.Nothing,
       responseCompletionTimeout :: Maybe (Value Integer)
responseCompletionTimeout = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       s3OriginConfig :: Maybe S3OriginConfigProperty
s3OriginConfig = Maybe S3OriginConfigProperty
forall a. Maybe a
Prelude.Nothing,
       vpcOriginConfig :: Maybe VpcOriginConfigProperty
vpcOriginConfig = Maybe VpcOriginConfigProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties OriginProperty where
  toResourceProperties :: OriginProperty -> ResourceProperties
toResourceProperties OriginProperty {Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: OriginProperty -> ()
connectionAttempts :: OriginProperty -> Maybe (Value Integer)
connectionTimeout :: OriginProperty -> Maybe (Value Integer)
customOriginConfig :: OriginProperty -> Maybe CustomOriginConfigProperty
domainName :: OriginProperty -> Value Text
id :: OriginProperty -> Value Text
originAccessControlId :: OriginProperty -> Maybe (Value Text)
originCustomHeaders :: OriginProperty -> Maybe [OriginCustomHeaderProperty]
originPath :: OriginProperty -> Maybe (Value Text)
originShield :: OriginProperty -> Maybe OriginShieldProperty
responseCompletionTimeout :: OriginProperty -> Maybe (Value Integer)
s3OriginConfig :: OriginProperty -> Maybe S3OriginConfigProperty
vpcOriginConfig :: OriginProperty -> Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::CloudFront::Distribution.Origin",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
                           [Key
"DomainName" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
domainName, Key
"Id" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
id]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ConnectionAttempts" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
connectionAttempts,
                               Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ConnectionTimeout" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
connectionTimeout,
                               Key -> CustomOriginConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CustomOriginConfig" (CustomOriginConfigProperty -> (Key, Value))
-> Maybe CustomOriginConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe CustomOriginConfigProperty
customOriginConfig,
                               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"OriginAccessControlId"
                                 (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
originAccessControlId,
                               Key -> [OriginCustomHeaderProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"OriginCustomHeaders" ([OriginCustomHeaderProperty] -> (Key, Value))
-> Maybe [OriginCustomHeaderProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [OriginCustomHeaderProperty]
originCustomHeaders,
                               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"OriginPath" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
originPath,
                               Key -> OriginShieldProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"OriginShield" (OriginShieldProperty -> (Key, Value))
-> Maybe OriginShieldProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe OriginShieldProperty
originShield,
                               Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ResponseCompletionTimeout"
                                 (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
responseCompletionTimeout,
                               Key -> S3OriginConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"S3OriginConfig" (S3OriginConfigProperty -> (Key, Value))
-> Maybe S3OriginConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe S3OriginConfigProperty
s3OriginConfig,
                               Key -> VpcOriginConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"VpcOriginConfig" (VpcOriginConfigProperty -> (Key, Value))
-> Maybe VpcOriginConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VpcOriginConfigProperty
vpcOriginConfig]))}
instance JSON.ToJSON OriginProperty where
  toJSON :: OriginProperty -> Value
toJSON OriginProperty {Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: OriginProperty -> ()
connectionAttempts :: OriginProperty -> Maybe (Value Integer)
connectionTimeout :: OriginProperty -> Maybe (Value Integer)
customOriginConfig :: OriginProperty -> Maybe CustomOriginConfigProperty
domainName :: OriginProperty -> Value Text
id :: OriginProperty -> Value Text
originAccessControlId :: OriginProperty -> Maybe (Value Text)
originCustomHeaders :: OriginProperty -> Maybe [OriginCustomHeaderProperty]
originPath :: OriginProperty -> Maybe (Value Text)
originShield :: OriginProperty -> Maybe OriginShieldProperty
responseCompletionTimeout :: OriginProperty -> Maybe (Value Integer)
s3OriginConfig :: OriginProperty -> Maybe S3OriginConfigProperty
vpcOriginConfig :: OriginProperty -> Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
              [Key
"DomainName" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
domainName, Key
"Id" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
id]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ConnectionAttempts" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
connectionAttempts,
                  Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ConnectionTimeout" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
connectionTimeout,
                  Key -> CustomOriginConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CustomOriginConfig" (CustomOriginConfigProperty -> (Key, Value))
-> Maybe CustomOriginConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe CustomOriginConfigProperty
customOriginConfig,
                  Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"OriginAccessControlId"
                    (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
originAccessControlId,
                  Key -> [OriginCustomHeaderProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"OriginCustomHeaders" ([OriginCustomHeaderProperty] -> (Key, Value))
-> Maybe [OriginCustomHeaderProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [OriginCustomHeaderProperty]
originCustomHeaders,
                  Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"OriginPath" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
originPath,
                  Key -> OriginShieldProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"OriginShield" (OriginShieldProperty -> (Key, Value))
-> Maybe OriginShieldProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe OriginShieldProperty
originShield,
                  Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ResponseCompletionTimeout"
                    (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
responseCompletionTimeout,
                  Key -> S3OriginConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"S3OriginConfig" (S3OriginConfigProperty -> (Key, Value))
-> Maybe S3OriginConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe S3OriginConfigProperty
s3OriginConfig,
                  Key -> VpcOriginConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"VpcOriginConfig" (VpcOriginConfigProperty -> (Key, Value))
-> Maybe VpcOriginConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VpcOriginConfigProperty
vpcOriginConfig])))
instance Property "ConnectionAttempts" OriginProperty where
  type PropertyType "ConnectionAttempts" OriginProperty = Value Prelude.Integer
  set :: PropertyType "ConnectionAttempts" OriginProperty
-> OriginProperty -> OriginProperty
set PropertyType "ConnectionAttempts" OriginProperty
newValue OriginProperty {Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: OriginProperty -> ()
connectionAttempts :: OriginProperty -> Maybe (Value Integer)
connectionTimeout :: OriginProperty -> Maybe (Value Integer)
customOriginConfig :: OriginProperty -> Maybe CustomOriginConfigProperty
domainName :: OriginProperty -> Value Text
id :: OriginProperty -> Value Text
originAccessControlId :: OriginProperty -> Maybe (Value Text)
originCustomHeaders :: OriginProperty -> Maybe [OriginCustomHeaderProperty]
originPath :: OriginProperty -> Maybe (Value Text)
originShield :: OriginProperty -> Maybe OriginShieldProperty
responseCompletionTimeout :: OriginProperty -> Maybe (Value Integer)
s3OriginConfig :: OriginProperty -> Maybe S3OriginConfigProperty
vpcOriginConfig :: OriginProperty -> Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
    = OriginProperty {connectionAttempts :: Maybe (Value Integer)
connectionAttempts = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ConnectionAttempts" OriginProperty
Value Integer
newValue, Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: ()
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
instance Property "ConnectionTimeout" OriginProperty where
  type PropertyType "ConnectionTimeout" OriginProperty = Value Prelude.Integer
  set :: PropertyType "ConnectionTimeout" OriginProperty
-> OriginProperty -> OriginProperty
set PropertyType "ConnectionTimeout" OriginProperty
newValue OriginProperty {Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: OriginProperty -> ()
connectionAttempts :: OriginProperty -> Maybe (Value Integer)
connectionTimeout :: OriginProperty -> Maybe (Value Integer)
customOriginConfig :: OriginProperty -> Maybe CustomOriginConfigProperty
domainName :: OriginProperty -> Value Text
id :: OriginProperty -> Value Text
originAccessControlId :: OriginProperty -> Maybe (Value Text)
originCustomHeaders :: OriginProperty -> Maybe [OriginCustomHeaderProperty]
originPath :: OriginProperty -> Maybe (Value Text)
originShield :: OriginProperty -> Maybe OriginShieldProperty
responseCompletionTimeout :: OriginProperty -> Maybe (Value Integer)
s3OriginConfig :: OriginProperty -> Maybe S3OriginConfigProperty
vpcOriginConfig :: OriginProperty -> Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
    = OriginProperty {connectionTimeout :: Maybe (Value Integer)
connectionTimeout = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ConnectionTimeout" OriginProperty
Value Integer
newValue, Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
instance Property "CustomOriginConfig" OriginProperty where
  type PropertyType "CustomOriginConfig" OriginProperty = CustomOriginConfigProperty
  set :: PropertyType "CustomOriginConfig" OriginProperty
-> OriginProperty -> OriginProperty
set PropertyType "CustomOriginConfig" OriginProperty
newValue OriginProperty {Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: OriginProperty -> ()
connectionAttempts :: OriginProperty -> Maybe (Value Integer)
connectionTimeout :: OriginProperty -> Maybe (Value Integer)
customOriginConfig :: OriginProperty -> Maybe CustomOriginConfigProperty
domainName :: OriginProperty -> Value Text
id :: OriginProperty -> Value Text
originAccessControlId :: OriginProperty -> Maybe (Value Text)
originCustomHeaders :: OriginProperty -> Maybe [OriginCustomHeaderProperty]
originPath :: OriginProperty -> Maybe (Value Text)
originShield :: OriginProperty -> Maybe OriginShieldProperty
responseCompletionTimeout :: OriginProperty -> Maybe (Value Integer)
s3OriginConfig :: OriginProperty -> Maybe S3OriginConfigProperty
vpcOriginConfig :: OriginProperty -> Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
    = OriginProperty {customOriginConfig :: Maybe CustomOriginConfigProperty
customOriginConfig = CustomOriginConfigProperty -> Maybe CustomOriginConfigProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "CustomOriginConfig" OriginProperty
CustomOriginConfigProperty
newValue, Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
instance Property "DomainName" OriginProperty where
  type PropertyType "DomainName" OriginProperty = Value Prelude.Text
  set :: PropertyType "DomainName" OriginProperty
-> OriginProperty -> OriginProperty
set PropertyType "DomainName" OriginProperty
newValue OriginProperty {Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: OriginProperty -> ()
connectionAttempts :: OriginProperty -> Maybe (Value Integer)
connectionTimeout :: OriginProperty -> Maybe (Value Integer)
customOriginConfig :: OriginProperty -> Maybe CustomOriginConfigProperty
domainName :: OriginProperty -> Value Text
id :: OriginProperty -> Value Text
originAccessControlId :: OriginProperty -> Maybe (Value Text)
originCustomHeaders :: OriginProperty -> Maybe [OriginCustomHeaderProperty]
originPath :: OriginProperty -> Maybe (Value Text)
originShield :: OriginProperty -> Maybe OriginShieldProperty
responseCompletionTimeout :: OriginProperty -> Maybe (Value Integer)
s3OriginConfig :: OriginProperty -> Maybe S3OriginConfigProperty
vpcOriginConfig :: OriginProperty -> Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
    = OriginProperty {domainName :: Value Text
domainName = PropertyType "DomainName" OriginProperty
Value Text
newValue, Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
instance Property "Id" OriginProperty where
  type PropertyType "Id" OriginProperty = Value Prelude.Text
  set :: PropertyType "Id" OriginProperty
-> OriginProperty -> OriginProperty
set PropertyType "Id" OriginProperty
newValue OriginProperty {Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: OriginProperty -> ()
connectionAttempts :: OriginProperty -> Maybe (Value Integer)
connectionTimeout :: OriginProperty -> Maybe (Value Integer)
customOriginConfig :: OriginProperty -> Maybe CustomOriginConfigProperty
domainName :: OriginProperty -> Value Text
id :: OriginProperty -> Value Text
originAccessControlId :: OriginProperty -> Maybe (Value Text)
originCustomHeaders :: OriginProperty -> Maybe [OriginCustomHeaderProperty]
originPath :: OriginProperty -> Maybe (Value Text)
originShield :: OriginProperty -> Maybe OriginShieldProperty
responseCompletionTimeout :: OriginProperty -> Maybe (Value Integer)
s3OriginConfig :: OriginProperty -> Maybe S3OriginConfigProperty
vpcOriginConfig :: OriginProperty -> Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
    = OriginProperty {id :: Value Text
id = PropertyType "Id" OriginProperty
Value Text
newValue, Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
instance Property "OriginAccessControlId" OriginProperty where
  type PropertyType "OriginAccessControlId" OriginProperty = Value Prelude.Text
  set :: PropertyType "OriginAccessControlId" OriginProperty
-> OriginProperty -> OriginProperty
set PropertyType "OriginAccessControlId" OriginProperty
newValue OriginProperty {Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: OriginProperty -> ()
connectionAttempts :: OriginProperty -> Maybe (Value Integer)
connectionTimeout :: OriginProperty -> Maybe (Value Integer)
customOriginConfig :: OriginProperty -> Maybe CustomOriginConfigProperty
domainName :: OriginProperty -> Value Text
id :: OriginProperty -> Value Text
originAccessControlId :: OriginProperty -> Maybe (Value Text)
originCustomHeaders :: OriginProperty -> Maybe [OriginCustomHeaderProperty]
originPath :: OriginProperty -> Maybe (Value Text)
originShield :: OriginProperty -> Maybe OriginShieldProperty
responseCompletionTimeout :: OriginProperty -> Maybe (Value Integer)
s3OriginConfig :: OriginProperty -> Maybe S3OriginConfigProperty
vpcOriginConfig :: OriginProperty -> Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
    = OriginProperty
        {originAccessControlId :: Maybe (Value Text)
originAccessControlId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "OriginAccessControlId" OriginProperty
Value Text
newValue, Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
instance Property "OriginCustomHeaders" OriginProperty where
  type PropertyType "OriginCustomHeaders" OriginProperty = [OriginCustomHeaderProperty]
  set :: PropertyType "OriginCustomHeaders" OriginProperty
-> OriginProperty -> OriginProperty
set PropertyType "OriginCustomHeaders" OriginProperty
newValue OriginProperty {Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: OriginProperty -> ()
connectionAttempts :: OriginProperty -> Maybe (Value Integer)
connectionTimeout :: OriginProperty -> Maybe (Value Integer)
customOriginConfig :: OriginProperty -> Maybe CustomOriginConfigProperty
domainName :: OriginProperty -> Value Text
id :: OriginProperty -> Value Text
originAccessControlId :: OriginProperty -> Maybe (Value Text)
originCustomHeaders :: OriginProperty -> Maybe [OriginCustomHeaderProperty]
originPath :: OriginProperty -> Maybe (Value Text)
originShield :: OriginProperty -> Maybe OriginShieldProperty
responseCompletionTimeout :: OriginProperty -> Maybe (Value Integer)
s3OriginConfig :: OriginProperty -> Maybe S3OriginConfigProperty
vpcOriginConfig :: OriginProperty -> Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
    = OriginProperty {originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originCustomHeaders = [OriginCustomHeaderProperty] -> Maybe [OriginCustomHeaderProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [OriginCustomHeaderProperty]
PropertyType "OriginCustomHeaders" OriginProperty
newValue, Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
instance Property "OriginPath" OriginProperty where
  type PropertyType "OriginPath" OriginProperty = Value Prelude.Text
  set :: PropertyType "OriginPath" OriginProperty
-> OriginProperty -> OriginProperty
set PropertyType "OriginPath" OriginProperty
newValue OriginProperty {Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: OriginProperty -> ()
connectionAttempts :: OriginProperty -> Maybe (Value Integer)
connectionTimeout :: OriginProperty -> Maybe (Value Integer)
customOriginConfig :: OriginProperty -> Maybe CustomOriginConfigProperty
domainName :: OriginProperty -> Value Text
id :: OriginProperty -> Value Text
originAccessControlId :: OriginProperty -> Maybe (Value Text)
originCustomHeaders :: OriginProperty -> Maybe [OriginCustomHeaderProperty]
originPath :: OriginProperty -> Maybe (Value Text)
originShield :: OriginProperty -> Maybe OriginShieldProperty
responseCompletionTimeout :: OriginProperty -> Maybe (Value Integer)
s3OriginConfig :: OriginProperty -> Maybe S3OriginConfigProperty
vpcOriginConfig :: OriginProperty -> Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
    = OriginProperty {originPath :: Maybe (Value Text)
originPath = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "OriginPath" OriginProperty
Value Text
newValue, Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
instance Property "OriginShield" OriginProperty where
  type PropertyType "OriginShield" OriginProperty = OriginShieldProperty
  set :: PropertyType "OriginShield" OriginProperty
-> OriginProperty -> OriginProperty
set PropertyType "OriginShield" OriginProperty
newValue OriginProperty {Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: OriginProperty -> ()
connectionAttempts :: OriginProperty -> Maybe (Value Integer)
connectionTimeout :: OriginProperty -> Maybe (Value Integer)
customOriginConfig :: OriginProperty -> Maybe CustomOriginConfigProperty
domainName :: OriginProperty -> Value Text
id :: OriginProperty -> Value Text
originAccessControlId :: OriginProperty -> Maybe (Value Text)
originCustomHeaders :: OriginProperty -> Maybe [OriginCustomHeaderProperty]
originPath :: OriginProperty -> Maybe (Value Text)
originShield :: OriginProperty -> Maybe OriginShieldProperty
responseCompletionTimeout :: OriginProperty -> Maybe (Value Integer)
s3OriginConfig :: OriginProperty -> Maybe S3OriginConfigProperty
vpcOriginConfig :: OriginProperty -> Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
    = OriginProperty {originShield :: Maybe OriginShieldProperty
originShield = OriginShieldProperty -> Maybe OriginShieldProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "OriginShield" OriginProperty
OriginShieldProperty
newValue, Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
instance Property "ResponseCompletionTimeout" OriginProperty where
  type PropertyType "ResponseCompletionTimeout" OriginProperty = Value Prelude.Integer
  set :: PropertyType "ResponseCompletionTimeout" OriginProperty
-> OriginProperty -> OriginProperty
set PropertyType "ResponseCompletionTimeout" OriginProperty
newValue OriginProperty {Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: OriginProperty -> ()
connectionAttempts :: OriginProperty -> Maybe (Value Integer)
connectionTimeout :: OriginProperty -> Maybe (Value Integer)
customOriginConfig :: OriginProperty -> Maybe CustomOriginConfigProperty
domainName :: OriginProperty -> Value Text
id :: OriginProperty -> Value Text
originAccessControlId :: OriginProperty -> Maybe (Value Text)
originCustomHeaders :: OriginProperty -> Maybe [OriginCustomHeaderProperty]
originPath :: OriginProperty -> Maybe (Value Text)
originShield :: OriginProperty -> Maybe OriginShieldProperty
responseCompletionTimeout :: OriginProperty -> Maybe (Value Integer)
s3OriginConfig :: OriginProperty -> Maybe S3OriginConfigProperty
vpcOriginConfig :: OriginProperty -> Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
    = OriginProperty
        {responseCompletionTimeout :: Maybe (Value Integer)
responseCompletionTimeout = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ResponseCompletionTimeout" OriginProperty
Value Integer
newValue, Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
instance Property "S3OriginConfig" OriginProperty where
  type PropertyType "S3OriginConfig" OriginProperty = S3OriginConfigProperty
  set :: PropertyType "S3OriginConfig" OriginProperty
-> OriginProperty -> OriginProperty
set PropertyType "S3OriginConfig" OriginProperty
newValue OriginProperty {Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: OriginProperty -> ()
connectionAttempts :: OriginProperty -> Maybe (Value Integer)
connectionTimeout :: OriginProperty -> Maybe (Value Integer)
customOriginConfig :: OriginProperty -> Maybe CustomOriginConfigProperty
domainName :: OriginProperty -> Value Text
id :: OriginProperty -> Value Text
originAccessControlId :: OriginProperty -> Maybe (Value Text)
originCustomHeaders :: OriginProperty -> Maybe [OriginCustomHeaderProperty]
originPath :: OriginProperty -> Maybe (Value Text)
originShield :: OriginProperty -> Maybe OriginShieldProperty
responseCompletionTimeout :: OriginProperty -> Maybe (Value Integer)
s3OriginConfig :: OriginProperty -> Maybe S3OriginConfigProperty
vpcOriginConfig :: OriginProperty -> Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
    = OriginProperty {s3OriginConfig :: Maybe S3OriginConfigProperty
s3OriginConfig = S3OriginConfigProperty -> Maybe S3OriginConfigProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "S3OriginConfig" OriginProperty
S3OriginConfigProperty
newValue, Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
vpcOriginConfig :: Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
instance Property "VpcOriginConfig" OriginProperty where
  type PropertyType "VpcOriginConfig" OriginProperty = VpcOriginConfigProperty
  set :: PropertyType "VpcOriginConfig" OriginProperty
-> OriginProperty -> OriginProperty
set PropertyType "VpcOriginConfig" OriginProperty
newValue OriginProperty {Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
Maybe VpcOriginConfigProperty
()
Value Text
haddock_workaround_ :: OriginProperty -> ()
connectionAttempts :: OriginProperty -> Maybe (Value Integer)
connectionTimeout :: OriginProperty -> Maybe (Value Integer)
customOriginConfig :: OriginProperty -> Maybe CustomOriginConfigProperty
domainName :: OriginProperty -> Value Text
id :: OriginProperty -> Value Text
originAccessControlId :: OriginProperty -> Maybe (Value Text)
originCustomHeaders :: OriginProperty -> Maybe [OriginCustomHeaderProperty]
originPath :: OriginProperty -> Maybe (Value Text)
originShield :: OriginProperty -> Maybe OriginShieldProperty
responseCompletionTimeout :: OriginProperty -> Maybe (Value Integer)
s3OriginConfig :: OriginProperty -> Maybe S3OriginConfigProperty
vpcOriginConfig :: OriginProperty -> Maybe VpcOriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
vpcOriginConfig :: Maybe VpcOriginConfigProperty
..}
    = OriginProperty {vpcOriginConfig :: Maybe VpcOriginConfigProperty
vpcOriginConfig = VpcOriginConfigProperty -> Maybe VpcOriginConfigProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "VpcOriginConfig" OriginProperty
VpcOriginConfigProperty
newValue, Maybe [OriginCustomHeaderProperty]
Maybe (Value Integer)
Maybe (Value Text)
Maybe CustomOriginConfigProperty
Maybe OriginShieldProperty
Maybe S3OriginConfigProperty
()
Value Text
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
haddock_workaround_ :: ()
connectionAttempts :: Maybe (Value Integer)
connectionTimeout :: Maybe (Value Integer)
customOriginConfig :: Maybe CustomOriginConfigProperty
domainName :: Value Text
id :: Value Text
originAccessControlId :: Maybe (Value Text)
originCustomHeaders :: Maybe [OriginCustomHeaderProperty]
originPath :: Maybe (Value Text)
originShield :: Maybe OriginShieldProperty
responseCompletionTimeout :: Maybe (Value Integer)
s3OriginConfig :: Maybe S3OriginConfigProperty
..}