module Stratosphere.CloudFront.ResponseHeadersPolicy.CorsConfigProperty (
        module Exports, CorsConfigProperty(..), mkCorsConfigProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.CloudFront.ResponseHeadersPolicy.AccessControlAllowHeadersProperty as Exports
import {-# SOURCE #-} Stratosphere.CloudFront.ResponseHeadersPolicy.AccessControlAllowMethodsProperty as Exports
import {-# SOURCE #-} Stratosphere.CloudFront.ResponseHeadersPolicy.AccessControlAllowOriginsProperty as Exports
import {-# SOURCE #-} Stratosphere.CloudFront.ResponseHeadersPolicy.AccessControlExposeHeadersProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data CorsConfigProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-responseheaderspolicy-corsconfig.html>
    CorsConfigProperty {CorsConfigProperty -> ()
haddock_workaround_ :: (),
                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-responseheaderspolicy-corsconfig.html#cfn-cloudfront-responseheaderspolicy-corsconfig-accesscontrolallowcredentials>
                        CorsConfigProperty -> Value Bool
accessControlAllowCredentials :: (Value Prelude.Bool),
                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-responseheaderspolicy-corsconfig.html#cfn-cloudfront-responseheaderspolicy-corsconfig-accesscontrolallowheaders>
                        CorsConfigProperty -> AccessControlAllowHeadersProperty
accessControlAllowHeaders :: AccessControlAllowHeadersProperty,
                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-responseheaderspolicy-corsconfig.html#cfn-cloudfront-responseheaderspolicy-corsconfig-accesscontrolallowmethods>
                        CorsConfigProperty -> AccessControlAllowMethodsProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty,
                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-responseheaderspolicy-corsconfig.html#cfn-cloudfront-responseheaderspolicy-corsconfig-accesscontrolalloworigins>
                        CorsConfigProperty -> AccessControlAllowOriginsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty,
                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-responseheaderspolicy-corsconfig.html#cfn-cloudfront-responseheaderspolicy-corsconfig-accesscontrolexposeheaders>
                        CorsConfigProperty -> Maybe AccessControlExposeHeadersProperty
accessControlExposeHeaders :: (Prelude.Maybe AccessControlExposeHeadersProperty),
                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-responseheaderspolicy-corsconfig.html#cfn-cloudfront-responseheaderspolicy-corsconfig-accesscontrolmaxagesec>
                        CorsConfigProperty -> Maybe (Value Integer)
accessControlMaxAgeSec :: (Prelude.Maybe (Value Prelude.Integer)),
                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloudfront-responseheaderspolicy-corsconfig.html#cfn-cloudfront-responseheaderspolicy-corsconfig-originoverride>
                        CorsConfigProperty -> Value Bool
originOverride :: (Value Prelude.Bool)}
  deriving stock (CorsConfigProperty -> CorsConfigProperty -> Bool
(CorsConfigProperty -> CorsConfigProperty -> Bool)
-> (CorsConfigProperty -> CorsConfigProperty -> Bool)
-> Eq CorsConfigProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CorsConfigProperty -> CorsConfigProperty -> Bool
== :: CorsConfigProperty -> CorsConfigProperty -> Bool
$c/= :: CorsConfigProperty -> CorsConfigProperty -> Bool
/= :: CorsConfigProperty -> CorsConfigProperty -> Bool
Prelude.Eq, Int -> CorsConfigProperty -> ShowS
[CorsConfigProperty] -> ShowS
CorsConfigProperty -> String
(Int -> CorsConfigProperty -> ShowS)
-> (CorsConfigProperty -> String)
-> ([CorsConfigProperty] -> ShowS)
-> Show CorsConfigProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CorsConfigProperty -> ShowS
showsPrec :: Int -> CorsConfigProperty -> ShowS
$cshow :: CorsConfigProperty -> String
show :: CorsConfigProperty -> String
$cshowList :: [CorsConfigProperty] -> ShowS
showList :: [CorsConfigProperty] -> ShowS
Prelude.Show)
mkCorsConfigProperty ::
  Value Prelude.Bool
  -> AccessControlAllowHeadersProperty
     -> AccessControlAllowMethodsProperty
        -> AccessControlAllowOriginsProperty
           -> Value Prelude.Bool -> CorsConfigProperty
mkCorsConfigProperty :: Value Bool
-> AccessControlAllowHeadersProperty
-> AccessControlAllowMethodsProperty
-> AccessControlAllowOriginsProperty
-> Value Bool
-> CorsConfigProperty
mkCorsConfigProperty
  Value Bool
accessControlAllowCredentials
  AccessControlAllowHeadersProperty
accessControlAllowHeaders
  AccessControlAllowMethodsProperty
accessControlAllowMethods
  AccessControlAllowOriginsProperty
accessControlAllowOrigins
  Value Bool
originOverride
  = CorsConfigProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (),
       accessControlAllowCredentials :: Value Bool
accessControlAllowCredentials = Value Bool
accessControlAllowCredentials,
       accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowHeaders = AccessControlAllowHeadersProperty
accessControlAllowHeaders,
       accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowMethods = AccessControlAllowMethodsProperty
accessControlAllowMethods,
       accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlAllowOrigins = AccessControlAllowOriginsProperty
accessControlAllowOrigins,
       originOverride :: Value Bool
originOverride = Value Bool
originOverride,
       accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlExposeHeaders = Maybe AccessControlExposeHeadersProperty
forall a. Maybe a
Prelude.Nothing,
       accessControlMaxAgeSec :: Maybe (Value Integer)
accessControlMaxAgeSec = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties CorsConfigProperty where
  toResourceProperties :: CorsConfigProperty -> ResourceProperties
toResourceProperties CorsConfigProperty {Maybe (Value Integer)
Maybe AccessControlExposeHeadersProperty
()
Value Bool
AccessControlAllowHeadersProperty
AccessControlAllowMethodsProperty
AccessControlAllowOriginsProperty
haddock_workaround_ :: CorsConfigProperty -> ()
accessControlAllowCredentials :: CorsConfigProperty -> Value Bool
accessControlAllowHeaders :: CorsConfigProperty -> AccessControlAllowHeadersProperty
accessControlAllowMethods :: CorsConfigProperty -> AccessControlAllowMethodsProperty
accessControlAllowOrigins :: CorsConfigProperty -> AccessControlAllowOriginsProperty
accessControlExposeHeaders :: CorsConfigProperty -> Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: CorsConfigProperty -> Maybe (Value Integer)
originOverride :: CorsConfigProperty -> Value Bool
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::CloudFront::ResponseHeadersPolicy.CorsConfig",
         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
"AccessControlAllowCredentials"
                              Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Bool
accessControlAllowCredentials,
                            Key
"AccessControlAllowHeaders" Key -> AccessControlAllowHeadersProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= AccessControlAllowHeadersProperty
accessControlAllowHeaders,
                            Key
"AccessControlAllowMethods" Key -> AccessControlAllowMethodsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= AccessControlAllowMethodsProperty
accessControlAllowMethods,
                            Key
"AccessControlAllowOrigins" Key -> AccessControlAllowOriginsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= AccessControlAllowOriginsProperty
accessControlAllowOrigins,
                            Key
"OriginOverride" Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Bool
originOverride]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> AccessControlExposeHeadersProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AccessControlExposeHeaders"
                                 (AccessControlExposeHeadersProperty -> (Key, Value))
-> Maybe AccessControlExposeHeadersProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AccessControlExposeHeadersProperty
accessControlExposeHeaders,
                               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
"AccessControlMaxAgeSec"
                                 (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)
accessControlMaxAgeSec]))}
instance JSON.ToJSON CorsConfigProperty where
  toJSON :: CorsConfigProperty -> Value
toJSON CorsConfigProperty {Maybe (Value Integer)
Maybe AccessControlExposeHeadersProperty
()
Value Bool
AccessControlAllowHeadersProperty
AccessControlAllowMethodsProperty
AccessControlAllowOriginsProperty
haddock_workaround_ :: CorsConfigProperty -> ()
accessControlAllowCredentials :: CorsConfigProperty -> Value Bool
accessControlAllowHeaders :: CorsConfigProperty -> AccessControlAllowHeadersProperty
accessControlAllowMethods :: CorsConfigProperty -> AccessControlAllowMethodsProperty
accessControlAllowOrigins :: CorsConfigProperty -> AccessControlAllowOriginsProperty
accessControlExposeHeaders :: CorsConfigProperty -> Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: CorsConfigProperty -> Maybe (Value Integer)
originOverride :: CorsConfigProperty -> Value Bool
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
..}
    = [(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
"AccessControlAllowCredentials"
                 Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Bool
accessControlAllowCredentials,
               Key
"AccessControlAllowHeaders" Key -> AccessControlAllowHeadersProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= AccessControlAllowHeadersProperty
accessControlAllowHeaders,
               Key
"AccessControlAllowMethods" Key -> AccessControlAllowMethodsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= AccessControlAllowMethodsProperty
accessControlAllowMethods,
               Key
"AccessControlAllowOrigins" Key -> AccessControlAllowOriginsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= AccessControlAllowOriginsProperty
accessControlAllowOrigins,
               Key
"OriginOverride" Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Bool
originOverride]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> AccessControlExposeHeadersProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AccessControlExposeHeaders"
                    (AccessControlExposeHeadersProperty -> (Key, Value))
-> Maybe AccessControlExposeHeadersProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AccessControlExposeHeadersProperty
accessControlExposeHeaders,
                  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
"AccessControlMaxAgeSec"
                    (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)
accessControlMaxAgeSec])))
instance Property "AccessControlAllowCredentials" CorsConfigProperty where
  type PropertyType "AccessControlAllowCredentials" CorsConfigProperty = Value Prelude.Bool
  set :: PropertyType "AccessControlAllowCredentials" CorsConfigProperty
-> CorsConfigProperty -> CorsConfigProperty
set PropertyType "AccessControlAllowCredentials" CorsConfigProperty
newValue CorsConfigProperty {Maybe (Value Integer)
Maybe AccessControlExposeHeadersProperty
()
Value Bool
AccessControlAllowHeadersProperty
AccessControlAllowMethodsProperty
AccessControlAllowOriginsProperty
haddock_workaround_ :: CorsConfigProperty -> ()
accessControlAllowCredentials :: CorsConfigProperty -> Value Bool
accessControlAllowHeaders :: CorsConfigProperty -> AccessControlAllowHeadersProperty
accessControlAllowMethods :: CorsConfigProperty -> AccessControlAllowMethodsProperty
accessControlAllowOrigins :: CorsConfigProperty -> AccessControlAllowOriginsProperty
accessControlExposeHeaders :: CorsConfigProperty -> Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: CorsConfigProperty -> Maybe (Value Integer)
originOverride :: CorsConfigProperty -> Value Bool
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
..}
    = CorsConfigProperty {accessControlAllowCredentials :: Value Bool
accessControlAllowCredentials = PropertyType "AccessControlAllowCredentials" CorsConfigProperty
Value Bool
newValue, Maybe (Value Integer)
Maybe AccessControlExposeHeadersProperty
()
Value Bool
AccessControlAllowHeadersProperty
AccessControlAllowMethodsProperty
AccessControlAllowOriginsProperty
haddock_workaround_ :: ()
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
haddock_workaround_ :: ()
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
..}
instance Property "AccessControlAllowHeaders" CorsConfigProperty where
  type PropertyType "AccessControlAllowHeaders" CorsConfigProperty = AccessControlAllowHeadersProperty
  set :: PropertyType "AccessControlAllowHeaders" CorsConfigProperty
-> CorsConfigProperty -> CorsConfigProperty
set PropertyType "AccessControlAllowHeaders" CorsConfigProperty
newValue CorsConfigProperty {Maybe (Value Integer)
Maybe AccessControlExposeHeadersProperty
()
Value Bool
AccessControlAllowHeadersProperty
AccessControlAllowMethodsProperty
AccessControlAllowOriginsProperty
haddock_workaround_ :: CorsConfigProperty -> ()
accessControlAllowCredentials :: CorsConfigProperty -> Value Bool
accessControlAllowHeaders :: CorsConfigProperty -> AccessControlAllowHeadersProperty
accessControlAllowMethods :: CorsConfigProperty -> AccessControlAllowMethodsProperty
accessControlAllowOrigins :: CorsConfigProperty -> AccessControlAllowOriginsProperty
accessControlExposeHeaders :: CorsConfigProperty -> Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: CorsConfigProperty -> Maybe (Value Integer)
originOverride :: CorsConfigProperty -> Value Bool
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
..}
    = CorsConfigProperty {accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowHeaders = PropertyType "AccessControlAllowHeaders" CorsConfigProperty
AccessControlAllowHeadersProperty
newValue, Maybe (Value Integer)
Maybe AccessControlExposeHeadersProperty
()
Value Bool
AccessControlAllowMethodsProperty
AccessControlAllowOriginsProperty
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
..}
instance Property "AccessControlAllowMethods" CorsConfigProperty where
  type PropertyType "AccessControlAllowMethods" CorsConfigProperty = AccessControlAllowMethodsProperty
  set :: PropertyType "AccessControlAllowMethods" CorsConfigProperty
-> CorsConfigProperty -> CorsConfigProperty
set PropertyType "AccessControlAllowMethods" CorsConfigProperty
newValue CorsConfigProperty {Maybe (Value Integer)
Maybe AccessControlExposeHeadersProperty
()
Value Bool
AccessControlAllowHeadersProperty
AccessControlAllowMethodsProperty
AccessControlAllowOriginsProperty
haddock_workaround_ :: CorsConfigProperty -> ()
accessControlAllowCredentials :: CorsConfigProperty -> Value Bool
accessControlAllowHeaders :: CorsConfigProperty -> AccessControlAllowHeadersProperty
accessControlAllowMethods :: CorsConfigProperty -> AccessControlAllowMethodsProperty
accessControlAllowOrigins :: CorsConfigProperty -> AccessControlAllowOriginsProperty
accessControlExposeHeaders :: CorsConfigProperty -> Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: CorsConfigProperty -> Maybe (Value Integer)
originOverride :: CorsConfigProperty -> Value Bool
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
..}
    = CorsConfigProperty {accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowMethods = PropertyType "AccessControlAllowMethods" CorsConfigProperty
AccessControlAllowMethodsProperty
newValue, Maybe (Value Integer)
Maybe AccessControlExposeHeadersProperty
()
Value Bool
AccessControlAllowHeadersProperty
AccessControlAllowOriginsProperty
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
..}
instance Property "AccessControlAllowOrigins" CorsConfigProperty where
  type PropertyType "AccessControlAllowOrigins" CorsConfigProperty = AccessControlAllowOriginsProperty
  set :: PropertyType "AccessControlAllowOrigins" CorsConfigProperty
-> CorsConfigProperty -> CorsConfigProperty
set PropertyType "AccessControlAllowOrigins" CorsConfigProperty
newValue CorsConfigProperty {Maybe (Value Integer)
Maybe AccessControlExposeHeadersProperty
()
Value Bool
AccessControlAllowHeadersProperty
AccessControlAllowMethodsProperty
AccessControlAllowOriginsProperty
haddock_workaround_ :: CorsConfigProperty -> ()
accessControlAllowCredentials :: CorsConfigProperty -> Value Bool
accessControlAllowHeaders :: CorsConfigProperty -> AccessControlAllowHeadersProperty
accessControlAllowMethods :: CorsConfigProperty -> AccessControlAllowMethodsProperty
accessControlAllowOrigins :: CorsConfigProperty -> AccessControlAllowOriginsProperty
accessControlExposeHeaders :: CorsConfigProperty -> Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: CorsConfigProperty -> Maybe (Value Integer)
originOverride :: CorsConfigProperty -> Value Bool
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
..}
    = CorsConfigProperty {accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlAllowOrigins = PropertyType "AccessControlAllowOrigins" CorsConfigProperty
AccessControlAllowOriginsProperty
newValue, Maybe (Value Integer)
Maybe AccessControlExposeHeadersProperty
()
Value Bool
AccessControlAllowHeadersProperty
AccessControlAllowMethodsProperty
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
..}
instance Property "AccessControlExposeHeaders" CorsConfigProperty where
  type PropertyType "AccessControlExposeHeaders" CorsConfigProperty = AccessControlExposeHeadersProperty
  set :: PropertyType "AccessControlExposeHeaders" CorsConfigProperty
-> CorsConfigProperty -> CorsConfigProperty
set PropertyType "AccessControlExposeHeaders" CorsConfigProperty
newValue CorsConfigProperty {Maybe (Value Integer)
Maybe AccessControlExposeHeadersProperty
()
Value Bool
AccessControlAllowHeadersProperty
AccessControlAllowMethodsProperty
AccessControlAllowOriginsProperty
haddock_workaround_ :: CorsConfigProperty -> ()
accessControlAllowCredentials :: CorsConfigProperty -> Value Bool
accessControlAllowHeaders :: CorsConfigProperty -> AccessControlAllowHeadersProperty
accessControlAllowMethods :: CorsConfigProperty -> AccessControlAllowMethodsProperty
accessControlAllowOrigins :: CorsConfigProperty -> AccessControlAllowOriginsProperty
accessControlExposeHeaders :: CorsConfigProperty -> Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: CorsConfigProperty -> Maybe (Value Integer)
originOverride :: CorsConfigProperty -> Value Bool
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
..}
    = CorsConfigProperty
        {accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlExposeHeaders = AccessControlExposeHeadersProperty
-> Maybe AccessControlExposeHeadersProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AccessControlExposeHeaders" CorsConfigProperty
AccessControlExposeHeadersProperty
newValue, Maybe (Value Integer)
()
Value Bool
AccessControlAllowHeadersProperty
AccessControlAllowMethodsProperty
AccessControlAllowOriginsProperty
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
..}
instance Property "AccessControlMaxAgeSec" CorsConfigProperty where
  type PropertyType "AccessControlMaxAgeSec" CorsConfigProperty = Value Prelude.Integer
  set :: PropertyType "AccessControlMaxAgeSec" CorsConfigProperty
-> CorsConfigProperty -> CorsConfigProperty
set PropertyType "AccessControlMaxAgeSec" CorsConfigProperty
newValue CorsConfigProperty {Maybe (Value Integer)
Maybe AccessControlExposeHeadersProperty
()
Value Bool
AccessControlAllowHeadersProperty
AccessControlAllowMethodsProperty
AccessControlAllowOriginsProperty
haddock_workaround_ :: CorsConfigProperty -> ()
accessControlAllowCredentials :: CorsConfigProperty -> Value Bool
accessControlAllowHeaders :: CorsConfigProperty -> AccessControlAllowHeadersProperty
accessControlAllowMethods :: CorsConfigProperty -> AccessControlAllowMethodsProperty
accessControlAllowOrigins :: CorsConfigProperty -> AccessControlAllowOriginsProperty
accessControlExposeHeaders :: CorsConfigProperty -> Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: CorsConfigProperty -> Maybe (Value Integer)
originOverride :: CorsConfigProperty -> Value Bool
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
..}
    = CorsConfigProperty
        {accessControlMaxAgeSec :: Maybe (Value Integer)
accessControlMaxAgeSec = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AccessControlMaxAgeSec" CorsConfigProperty
Value Integer
newValue, Maybe AccessControlExposeHeadersProperty
()
Value Bool
AccessControlAllowHeadersProperty
AccessControlAllowMethodsProperty
AccessControlAllowOriginsProperty
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
originOverride :: Value Bool
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
originOverride :: Value Bool
..}
instance Property "OriginOverride" CorsConfigProperty where
  type PropertyType "OriginOverride" CorsConfigProperty = Value Prelude.Bool
  set :: PropertyType "OriginOverride" CorsConfigProperty
-> CorsConfigProperty -> CorsConfigProperty
set PropertyType "OriginOverride" CorsConfigProperty
newValue CorsConfigProperty {Maybe (Value Integer)
Maybe AccessControlExposeHeadersProperty
()
Value Bool
AccessControlAllowHeadersProperty
AccessControlAllowMethodsProperty
AccessControlAllowOriginsProperty
haddock_workaround_ :: CorsConfigProperty -> ()
accessControlAllowCredentials :: CorsConfigProperty -> Value Bool
accessControlAllowHeaders :: CorsConfigProperty -> AccessControlAllowHeadersProperty
accessControlAllowMethods :: CorsConfigProperty -> AccessControlAllowMethodsProperty
accessControlAllowOrigins :: CorsConfigProperty -> AccessControlAllowOriginsProperty
accessControlExposeHeaders :: CorsConfigProperty -> Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: CorsConfigProperty -> Maybe (Value Integer)
originOverride :: CorsConfigProperty -> Value Bool
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
originOverride :: Value Bool
..}
    = CorsConfigProperty {originOverride :: Value Bool
originOverride = PropertyType "OriginOverride" CorsConfigProperty
Value Bool
newValue, Maybe (Value Integer)
Maybe AccessControlExposeHeadersProperty
()
Value Bool
AccessControlAllowHeadersProperty
AccessControlAllowMethodsProperty
AccessControlAllowOriginsProperty
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
haddock_workaround_ :: ()
accessControlAllowCredentials :: Value Bool
accessControlAllowHeaders :: AccessControlAllowHeadersProperty
accessControlAllowMethods :: AccessControlAllowMethodsProperty
accessControlAllowOrigins :: AccessControlAllowOriginsProperty
accessControlExposeHeaders :: Maybe AccessControlExposeHeadersProperty
accessControlMaxAgeSec :: Maybe (Value Integer)
..}