module Stratosphere.ApiGatewayV2.Api.CorsProperty (
        CorsProperty(..), mkCorsProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data CorsProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-cors.html>
    CorsProperty {CorsProperty -> ()
haddock_workaround_ :: (),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-cors.html#cfn-apigatewayv2-api-cors-allowcredentials>
                  CorsProperty -> Maybe (Value Bool)
allowCredentials :: (Prelude.Maybe (Value Prelude.Bool)),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-cors.html#cfn-apigatewayv2-api-cors-allowheaders>
                  CorsProperty -> Maybe (ValueList Text)
allowHeaders :: (Prelude.Maybe (ValueList Prelude.Text)),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-cors.html#cfn-apigatewayv2-api-cors-allowmethods>
                  CorsProperty -> Maybe (ValueList Text)
allowMethods :: (Prelude.Maybe (ValueList Prelude.Text)),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-cors.html#cfn-apigatewayv2-api-cors-alloworigins>
                  CorsProperty -> Maybe (ValueList Text)
allowOrigins :: (Prelude.Maybe (ValueList Prelude.Text)),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-cors.html#cfn-apigatewayv2-api-cors-exposeheaders>
                  CorsProperty -> Maybe (ValueList Text)
exposeHeaders :: (Prelude.Maybe (ValueList Prelude.Text)),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apigatewayv2-api-cors.html#cfn-apigatewayv2-api-cors-maxage>
                  CorsProperty -> Maybe (Value Integer)
maxAge :: (Prelude.Maybe (Value Prelude.Integer))}
  deriving stock (CorsProperty -> CorsProperty -> Bool
(CorsProperty -> CorsProperty -> Bool)
-> (CorsProperty -> CorsProperty -> Bool) -> Eq CorsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CorsProperty -> CorsProperty -> Bool
== :: CorsProperty -> CorsProperty -> Bool
$c/= :: CorsProperty -> CorsProperty -> Bool
/= :: CorsProperty -> CorsProperty -> Bool
Prelude.Eq, Int -> CorsProperty -> ShowS
[CorsProperty] -> ShowS
CorsProperty -> String
(Int -> CorsProperty -> ShowS)
-> (CorsProperty -> String)
-> ([CorsProperty] -> ShowS)
-> Show CorsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CorsProperty -> ShowS
showsPrec :: Int -> CorsProperty -> ShowS
$cshow :: CorsProperty -> String
show :: CorsProperty -> String
$cshowList :: [CorsProperty] -> ShowS
showList :: [CorsProperty] -> ShowS
Prelude.Show)
mkCorsProperty :: CorsProperty
mkCorsProperty :: CorsProperty
mkCorsProperty
  = CorsProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), allowCredentials :: Maybe (Value Bool)
allowCredentials = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing,
       allowHeaders :: Maybe (ValueList Text)
allowHeaders = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing, allowMethods :: Maybe (ValueList Text)
allowMethods = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing,
       allowOrigins :: Maybe (ValueList Text)
allowOrigins = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing, exposeHeaders :: Maybe (ValueList Text)
exposeHeaders = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing,
       maxAge :: Maybe (Value Integer)
maxAge = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties CorsProperty where
  toResourceProperties :: CorsProperty -> ResourceProperties
toResourceProperties CorsProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: CorsProperty -> ()
allowCredentials :: CorsProperty -> Maybe (Value Bool)
allowHeaders :: CorsProperty -> Maybe (ValueList Text)
allowMethods :: CorsProperty -> Maybe (ValueList Text)
allowOrigins :: CorsProperty -> Maybe (ValueList Text)
exposeHeaders :: CorsProperty -> Maybe (ValueList Text)
maxAge :: CorsProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowHeaders :: Maybe (ValueList Text)
allowMethods :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::ApiGatewayV2::Api.Cors",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [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..=) Key
"AllowCredentials" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
allowCredentials,
                            Key -> ValueList 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
"AllowHeaders" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
allowHeaders,
                            Key -> ValueList 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
"AllowMethods" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
allowMethods,
                            Key -> ValueList 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
"AllowOrigins" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
allowOrigins,
                            Key -> ValueList 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
"ExposeHeaders" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
exposeHeaders,
                            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
"MaxAge" (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)
maxAge])}
instance JSON.ToJSON CorsProperty where
  toJSON :: CorsProperty -> Value
toJSON CorsProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: CorsProperty -> ()
allowCredentials :: CorsProperty -> Maybe (Value Bool)
allowHeaders :: CorsProperty -> Maybe (ValueList Text)
allowMethods :: CorsProperty -> Maybe (ValueList Text)
allowOrigins :: CorsProperty -> Maybe (ValueList Text)
exposeHeaders :: CorsProperty -> Maybe (ValueList Text)
maxAge :: CorsProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowHeaders :: Maybe (ValueList Text)
allowMethods :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [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..=) Key
"AllowCredentials" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
allowCredentials,
               Key -> ValueList 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
"AllowHeaders" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
allowHeaders,
               Key -> ValueList 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
"AllowMethods" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
allowMethods,
               Key -> ValueList 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
"AllowOrigins" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
allowOrigins,
               Key -> ValueList 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
"ExposeHeaders" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
exposeHeaders,
               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
"MaxAge" (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)
maxAge]))
instance Property "AllowCredentials" CorsProperty where
  type PropertyType "AllowCredentials" CorsProperty = Value Prelude.Bool
  set :: PropertyType "AllowCredentials" CorsProperty
-> CorsProperty -> CorsProperty
set PropertyType "AllowCredentials" CorsProperty
newValue CorsProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: CorsProperty -> ()
allowCredentials :: CorsProperty -> Maybe (Value Bool)
allowHeaders :: CorsProperty -> Maybe (ValueList Text)
allowMethods :: CorsProperty -> Maybe (ValueList Text)
allowOrigins :: CorsProperty -> Maybe (ValueList Text)
exposeHeaders :: CorsProperty -> Maybe (ValueList Text)
maxAge :: CorsProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowHeaders :: Maybe (ValueList Text)
allowMethods :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
..}
    = CorsProperty {allowCredentials :: Maybe (Value Bool)
allowCredentials = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AllowCredentials" CorsProperty
Value Bool
newValue, Maybe (ValueList Text)
Maybe (Value Integer)
()
haddock_workaround_ :: ()
allowHeaders :: Maybe (ValueList Text)
allowMethods :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
haddock_workaround_ :: ()
allowHeaders :: Maybe (ValueList Text)
allowMethods :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
..}
instance Property "AllowHeaders" CorsProperty where
  type PropertyType "AllowHeaders" CorsProperty = ValueList Prelude.Text
  set :: PropertyType "AllowHeaders" CorsProperty
-> CorsProperty -> CorsProperty
set PropertyType "AllowHeaders" CorsProperty
newValue CorsProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: CorsProperty -> ()
allowCredentials :: CorsProperty -> Maybe (Value Bool)
allowHeaders :: CorsProperty -> Maybe (ValueList Text)
allowMethods :: CorsProperty -> Maybe (ValueList Text)
allowOrigins :: CorsProperty -> Maybe (ValueList Text)
exposeHeaders :: CorsProperty -> Maybe (ValueList Text)
maxAge :: CorsProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowHeaders :: Maybe (ValueList Text)
allowMethods :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
..}
    = CorsProperty {allowHeaders :: Maybe (ValueList Text)
allowHeaders = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AllowHeaders" CorsProperty
ValueList Text
newValue, Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowMethods :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowMethods :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
..}
instance Property "AllowMethods" CorsProperty where
  type PropertyType "AllowMethods" CorsProperty = ValueList Prelude.Text
  set :: PropertyType "AllowMethods" CorsProperty
-> CorsProperty -> CorsProperty
set PropertyType "AllowMethods" CorsProperty
newValue CorsProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: CorsProperty -> ()
allowCredentials :: CorsProperty -> Maybe (Value Bool)
allowHeaders :: CorsProperty -> Maybe (ValueList Text)
allowMethods :: CorsProperty -> Maybe (ValueList Text)
allowOrigins :: CorsProperty -> Maybe (ValueList Text)
exposeHeaders :: CorsProperty -> Maybe (ValueList Text)
maxAge :: CorsProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowHeaders :: Maybe (ValueList Text)
allowMethods :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
..}
    = CorsProperty {allowMethods :: Maybe (ValueList Text)
allowMethods = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AllowMethods" CorsProperty
ValueList Text
newValue, Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowHeaders :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowHeaders :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
..}
instance Property "AllowOrigins" CorsProperty where
  type PropertyType "AllowOrigins" CorsProperty = ValueList Prelude.Text
  set :: PropertyType "AllowOrigins" CorsProperty
-> CorsProperty -> CorsProperty
set PropertyType "AllowOrigins" CorsProperty
newValue CorsProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: CorsProperty -> ()
allowCredentials :: CorsProperty -> Maybe (Value Bool)
allowHeaders :: CorsProperty -> Maybe (ValueList Text)
allowMethods :: CorsProperty -> Maybe (ValueList Text)
allowOrigins :: CorsProperty -> Maybe (ValueList Text)
exposeHeaders :: CorsProperty -> Maybe (ValueList Text)
maxAge :: CorsProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowHeaders :: Maybe (ValueList Text)
allowMethods :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
..}
    = CorsProperty {allowOrigins :: Maybe (ValueList Text)
allowOrigins = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AllowOrigins" CorsProperty
ValueList Text
newValue, Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowHeaders :: Maybe (ValueList Text)
allowMethods :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowHeaders :: Maybe (ValueList Text)
allowMethods :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
..}
instance Property "ExposeHeaders" CorsProperty where
  type PropertyType "ExposeHeaders" CorsProperty = ValueList Prelude.Text
  set :: PropertyType "ExposeHeaders" CorsProperty
-> CorsProperty -> CorsProperty
set PropertyType "ExposeHeaders" CorsProperty
newValue CorsProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: CorsProperty -> ()
allowCredentials :: CorsProperty -> Maybe (Value Bool)
allowHeaders :: CorsProperty -> Maybe (ValueList Text)
allowMethods :: CorsProperty -> Maybe (ValueList Text)
allowOrigins :: CorsProperty -> Maybe (ValueList Text)
exposeHeaders :: CorsProperty -> Maybe (ValueList Text)
maxAge :: CorsProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowHeaders :: Maybe (ValueList Text)
allowMethods :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
..}
    = CorsProperty {exposeHeaders :: Maybe (ValueList Text)
exposeHeaders = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ExposeHeaders" CorsProperty
ValueList Text
newValue, Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowHeaders :: Maybe (ValueList Text)
allowMethods :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowHeaders :: Maybe (ValueList Text)
allowMethods :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
..}
instance Property "MaxAge" CorsProperty where
  type PropertyType "MaxAge" CorsProperty = Value Prelude.Integer
  set :: PropertyType "MaxAge" CorsProperty -> CorsProperty -> CorsProperty
set PropertyType "MaxAge" CorsProperty
newValue CorsProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: CorsProperty -> ()
allowCredentials :: CorsProperty -> Maybe (Value Bool)
allowHeaders :: CorsProperty -> Maybe (ValueList Text)
allowMethods :: CorsProperty -> Maybe (ValueList Text)
allowOrigins :: CorsProperty -> Maybe (ValueList Text)
exposeHeaders :: CorsProperty -> Maybe (ValueList Text)
maxAge :: CorsProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowHeaders :: Maybe (ValueList Text)
allowMethods :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
maxAge :: Maybe (Value Integer)
..}
    = CorsProperty {maxAge :: Maybe (Value Integer)
maxAge = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "MaxAge" CorsProperty
Value Integer
newValue, Maybe (ValueList Text)
Maybe (Value Bool)
()
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowHeaders :: Maybe (ValueList Text)
allowMethods :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
haddock_workaround_ :: ()
allowCredentials :: Maybe (Value Bool)
allowHeaders :: Maybe (ValueList Text)
allowMethods :: Maybe (ValueList Text)
allowOrigins :: Maybe (ValueList Text)
exposeHeaders :: Maybe (ValueList Text)
..}