module Stratosphere.CloudFront.CachePolicy.CachePolicyConfigProperty (
module Exports, CachePolicyConfigProperty(..),
mkCachePolicyConfigProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.CloudFront.CachePolicy.ParametersInCacheKeyAndForwardedToOriginProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data CachePolicyConfigProperty
=
CachePolicyConfigProperty {CachePolicyConfigProperty -> ()
haddock_workaround_ :: (),
:: (Prelude.Maybe (Value Prelude.Text)),
CachePolicyConfigProperty -> Value Double
defaultTTL :: (Value Prelude.Double),
CachePolicyConfigProperty -> Value Double
maxTTL :: (Value Prelude.Double),
CachePolicyConfigProperty -> Value Double
minTTL :: (Value Prelude.Double),
CachePolicyConfigProperty -> Value Text
name :: (Value Prelude.Text),
CachePolicyConfigProperty
-> ParametersInCacheKeyAndForwardedToOriginProperty
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty}
deriving stock (CachePolicyConfigProperty -> CachePolicyConfigProperty -> Bool
(CachePolicyConfigProperty -> CachePolicyConfigProperty -> Bool)
-> (CachePolicyConfigProperty -> CachePolicyConfigProperty -> Bool)
-> Eq CachePolicyConfigProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CachePolicyConfigProperty -> CachePolicyConfigProperty -> Bool
== :: CachePolicyConfigProperty -> CachePolicyConfigProperty -> Bool
$c/= :: CachePolicyConfigProperty -> CachePolicyConfigProperty -> Bool
/= :: CachePolicyConfigProperty -> CachePolicyConfigProperty -> Bool
Prelude.Eq, Int -> CachePolicyConfigProperty -> ShowS
[CachePolicyConfigProperty] -> ShowS
CachePolicyConfigProperty -> String
(Int -> CachePolicyConfigProperty -> ShowS)
-> (CachePolicyConfigProperty -> String)
-> ([CachePolicyConfigProperty] -> ShowS)
-> Show CachePolicyConfigProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CachePolicyConfigProperty -> ShowS
showsPrec :: Int -> CachePolicyConfigProperty -> ShowS
$cshow :: CachePolicyConfigProperty -> String
show :: CachePolicyConfigProperty -> String
$cshowList :: [CachePolicyConfigProperty] -> ShowS
showList :: [CachePolicyConfigProperty] -> ShowS
Prelude.Show)
mkCachePolicyConfigProperty ::
Value Prelude.Double
-> Value Prelude.Double
-> Value Prelude.Double
-> Value Prelude.Text
-> ParametersInCacheKeyAndForwardedToOriginProperty
-> CachePolicyConfigProperty
mkCachePolicyConfigProperty :: Value Double
-> Value Double
-> Value Double
-> Value Text
-> ParametersInCacheKeyAndForwardedToOriginProperty
-> CachePolicyConfigProperty
mkCachePolicyConfigProperty
Value Double
defaultTTL
Value Double
maxTTL
Value Double
minTTL
Value Text
name
ParametersInCacheKeyAndForwardedToOriginProperty
parametersInCacheKeyAndForwardedToOrigin
= CachePolicyConfigProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), defaultTTL :: Value Double
defaultTTL = Value Double
defaultTTL,
maxTTL :: Value Double
maxTTL = Value Double
maxTTL, minTTL :: Value Double
minTTL = Value Double
minTTL, name :: Value Text
name = Value Text
name,
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
parametersInCacheKeyAndForwardedToOrigin = ParametersInCacheKeyAndForwardedToOriginProperty
parametersInCacheKeyAndForwardedToOrigin,
comment :: Maybe (Value Text)
comment = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties CachePolicyConfigProperty where
toResourceProperties :: CachePolicyConfigProperty -> ResourceProperties
toResourceProperties CachePolicyConfigProperty {Maybe (Value Text)
()
Value Double
Value Text
ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: CachePolicyConfigProperty -> ()
comment :: CachePolicyConfigProperty -> Maybe (Value Text)
defaultTTL :: CachePolicyConfigProperty -> Value Double
maxTTL :: CachePolicyConfigProperty -> Value Double
minTTL :: CachePolicyConfigProperty -> Value Double
name :: CachePolicyConfigProperty -> Value Text
parametersInCacheKeyAndForwardedToOrigin :: CachePolicyConfigProperty
-> ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
defaultTTL :: Value Double
maxTTL :: Value Double
minTTL :: Value Double
name :: Value Text
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::CloudFront::CachePolicy.CachePolicyConfig",
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
"DefaultTTL" Key -> Value Double -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Double
defaultTTL, Key
"MaxTTL" Key -> Value Double -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Double
maxTTL,
Key
"MinTTL" Key -> Value Double -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Double
minTTL, Key
"Name" 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
name,
Key
"ParametersInCacheKeyAndForwardedToOrigin"
Key
-> ParametersInCacheKeyAndForwardedToOriginProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ParametersInCacheKeyAndForwardedToOriginProperty
parametersInCacheKeyAndForwardedToOrigin]
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes [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
"Comment" (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)
comment]))}
instance JSON.ToJSON CachePolicyConfigProperty where
toJSON :: CachePolicyConfigProperty -> Value
toJSON CachePolicyConfigProperty {Maybe (Value Text)
()
Value Double
Value Text
ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: CachePolicyConfigProperty -> ()
comment :: CachePolicyConfigProperty -> Maybe (Value Text)
defaultTTL :: CachePolicyConfigProperty -> Value Double
maxTTL :: CachePolicyConfigProperty -> Value Double
minTTL :: CachePolicyConfigProperty -> Value Double
name :: CachePolicyConfigProperty -> Value Text
parametersInCacheKeyAndForwardedToOrigin :: CachePolicyConfigProperty
-> ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
defaultTTL :: Value Double
maxTTL :: Value Double
minTTL :: Value Double
name :: Value Text
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
..}
= [(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
"DefaultTTL" Key -> Value Double -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Double
defaultTTL, Key
"MaxTTL" Key -> Value Double -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Double
maxTTL,
Key
"MinTTL" Key -> Value Double -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Double
minTTL, Key
"Name" 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
name,
Key
"ParametersInCacheKeyAndForwardedToOrigin"
Key
-> ParametersInCacheKeyAndForwardedToOriginProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ParametersInCacheKeyAndForwardedToOriginProperty
parametersInCacheKeyAndForwardedToOrigin]
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes [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
"Comment" (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)
comment])))
instance Property "Comment" CachePolicyConfigProperty where
type PropertyType "Comment" CachePolicyConfigProperty = Value Prelude.Text
set :: PropertyType "Comment" CachePolicyConfigProperty
-> CachePolicyConfigProperty -> CachePolicyConfigProperty
set PropertyType "Comment" CachePolicyConfigProperty
newValue CachePolicyConfigProperty {Maybe (Value Text)
()
Value Double
Value Text
ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: CachePolicyConfigProperty -> ()
comment :: CachePolicyConfigProperty -> Maybe (Value Text)
defaultTTL :: CachePolicyConfigProperty -> Value Double
maxTTL :: CachePolicyConfigProperty -> Value Double
minTTL :: CachePolicyConfigProperty -> Value Double
name :: CachePolicyConfigProperty -> Value Text
parametersInCacheKeyAndForwardedToOrigin :: CachePolicyConfigProperty
-> ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
defaultTTL :: Value Double
maxTTL :: Value Double
minTTL :: Value Double
name :: Value Text
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
..}
= CachePolicyConfigProperty {comment :: Maybe (Value Text)
comment = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Comment" CachePolicyConfigProperty
Value Text
newValue, ()
Value Double
Value Text
ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
defaultTTL :: Value Double
maxTTL :: Value Double
minTTL :: Value Double
name :: Value Text
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
defaultTTL :: Value Double
maxTTL :: Value Double
minTTL :: Value Double
name :: Value Text
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
..}
instance Property "DefaultTTL" CachePolicyConfigProperty where
type PropertyType "DefaultTTL" CachePolicyConfigProperty = Value Prelude.Double
set :: PropertyType "DefaultTTL" CachePolicyConfigProperty
-> CachePolicyConfigProperty -> CachePolicyConfigProperty
set PropertyType "DefaultTTL" CachePolicyConfigProperty
newValue CachePolicyConfigProperty {Maybe (Value Text)
()
Value Double
Value Text
ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: CachePolicyConfigProperty -> ()
comment :: CachePolicyConfigProperty -> Maybe (Value Text)
defaultTTL :: CachePolicyConfigProperty -> Value Double
maxTTL :: CachePolicyConfigProperty -> Value Double
minTTL :: CachePolicyConfigProperty -> Value Double
name :: CachePolicyConfigProperty -> Value Text
parametersInCacheKeyAndForwardedToOrigin :: CachePolicyConfigProperty
-> ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
defaultTTL :: Value Double
maxTTL :: Value Double
minTTL :: Value Double
name :: Value Text
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
..}
= CachePolicyConfigProperty {defaultTTL :: Value Double
defaultTTL = PropertyType "DefaultTTL" CachePolicyConfigProperty
Value Double
newValue, Maybe (Value Text)
()
Value Double
Value Text
ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
maxTTL :: Value Double
minTTL :: Value Double
name :: Value Text
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
maxTTL :: Value Double
minTTL :: Value Double
name :: Value Text
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
..}
instance Property "MaxTTL" CachePolicyConfigProperty where
type PropertyType "MaxTTL" CachePolicyConfigProperty = Value Prelude.Double
set :: PropertyType "MaxTTL" CachePolicyConfigProperty
-> CachePolicyConfigProperty -> CachePolicyConfigProperty
set PropertyType "MaxTTL" CachePolicyConfigProperty
newValue CachePolicyConfigProperty {Maybe (Value Text)
()
Value Double
Value Text
ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: CachePolicyConfigProperty -> ()
comment :: CachePolicyConfigProperty -> Maybe (Value Text)
defaultTTL :: CachePolicyConfigProperty -> Value Double
maxTTL :: CachePolicyConfigProperty -> Value Double
minTTL :: CachePolicyConfigProperty -> Value Double
name :: CachePolicyConfigProperty -> Value Text
parametersInCacheKeyAndForwardedToOrigin :: CachePolicyConfigProperty
-> ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
defaultTTL :: Value Double
maxTTL :: Value Double
minTTL :: Value Double
name :: Value Text
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
..}
= CachePolicyConfigProperty {maxTTL :: Value Double
maxTTL = PropertyType "MaxTTL" CachePolicyConfigProperty
Value Double
newValue, Maybe (Value Text)
()
Value Double
Value Text
ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
defaultTTL :: Value Double
minTTL :: Value Double
name :: Value Text
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
defaultTTL :: Value Double
minTTL :: Value Double
name :: Value Text
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
..}
instance Property "MinTTL" CachePolicyConfigProperty where
type PropertyType "MinTTL" CachePolicyConfigProperty = Value Prelude.Double
set :: PropertyType "MinTTL" CachePolicyConfigProperty
-> CachePolicyConfigProperty -> CachePolicyConfigProperty
set PropertyType "MinTTL" CachePolicyConfigProperty
newValue CachePolicyConfigProperty {Maybe (Value Text)
()
Value Double
Value Text
ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: CachePolicyConfigProperty -> ()
comment :: CachePolicyConfigProperty -> Maybe (Value Text)
defaultTTL :: CachePolicyConfigProperty -> Value Double
maxTTL :: CachePolicyConfigProperty -> Value Double
minTTL :: CachePolicyConfigProperty -> Value Double
name :: CachePolicyConfigProperty -> Value Text
parametersInCacheKeyAndForwardedToOrigin :: CachePolicyConfigProperty
-> ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
defaultTTL :: Value Double
maxTTL :: Value Double
minTTL :: Value Double
name :: Value Text
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
..}
= CachePolicyConfigProperty {minTTL :: Value Double
minTTL = PropertyType "MinTTL" CachePolicyConfigProperty
Value Double
newValue, Maybe (Value Text)
()
Value Double
Value Text
ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
defaultTTL :: Value Double
maxTTL :: Value Double
name :: Value Text
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
defaultTTL :: Value Double
maxTTL :: Value Double
name :: Value Text
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
..}
instance Property "Name" CachePolicyConfigProperty where
type PropertyType "Name" CachePolicyConfigProperty = Value Prelude.Text
set :: PropertyType "Name" CachePolicyConfigProperty
-> CachePolicyConfigProperty -> CachePolicyConfigProperty
set PropertyType "Name" CachePolicyConfigProperty
newValue CachePolicyConfigProperty {Maybe (Value Text)
()
Value Double
Value Text
ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: CachePolicyConfigProperty -> ()
comment :: CachePolicyConfigProperty -> Maybe (Value Text)
defaultTTL :: CachePolicyConfigProperty -> Value Double
maxTTL :: CachePolicyConfigProperty -> Value Double
minTTL :: CachePolicyConfigProperty -> Value Double
name :: CachePolicyConfigProperty -> Value Text
parametersInCacheKeyAndForwardedToOrigin :: CachePolicyConfigProperty
-> ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
defaultTTL :: Value Double
maxTTL :: Value Double
minTTL :: Value Double
name :: Value Text
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
..}
= CachePolicyConfigProperty {name :: Value Text
name = PropertyType "Name" CachePolicyConfigProperty
Value Text
newValue, Maybe (Value Text)
()
Value Double
ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
defaultTTL :: Value Double
maxTTL :: Value Double
minTTL :: Value Double
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
defaultTTL :: Value Double
maxTTL :: Value Double
minTTL :: Value Double
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
..}
instance Property "ParametersInCacheKeyAndForwardedToOrigin" CachePolicyConfigProperty where
type PropertyType "ParametersInCacheKeyAndForwardedToOrigin" CachePolicyConfigProperty = ParametersInCacheKeyAndForwardedToOriginProperty
set :: PropertyType
"ParametersInCacheKeyAndForwardedToOrigin"
CachePolicyConfigProperty
-> CachePolicyConfigProperty -> CachePolicyConfigProperty
set PropertyType
"ParametersInCacheKeyAndForwardedToOrigin"
CachePolicyConfigProperty
newValue CachePolicyConfigProperty {Maybe (Value Text)
()
Value Double
Value Text
ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: CachePolicyConfigProperty -> ()
comment :: CachePolicyConfigProperty -> Maybe (Value Text)
defaultTTL :: CachePolicyConfigProperty -> Value Double
maxTTL :: CachePolicyConfigProperty -> Value Double
minTTL :: CachePolicyConfigProperty -> Value Double
name :: CachePolicyConfigProperty -> Value Text
parametersInCacheKeyAndForwardedToOrigin :: CachePolicyConfigProperty
-> ParametersInCacheKeyAndForwardedToOriginProperty
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
defaultTTL :: Value Double
maxTTL :: Value Double
minTTL :: Value Double
name :: Value Text
parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
..}
= CachePolicyConfigProperty
{parametersInCacheKeyAndForwardedToOrigin :: ParametersInCacheKeyAndForwardedToOriginProperty
parametersInCacheKeyAndForwardedToOrigin = PropertyType
"ParametersInCacheKeyAndForwardedToOrigin"
CachePolicyConfigProperty
ParametersInCacheKeyAndForwardedToOriginProperty
newValue, Maybe (Value Text)
()
Value Double
Value Text
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
defaultTTL :: Value Double
maxTTL :: Value Double
minTTL :: Value Double
name :: Value Text
haddock_workaround_ :: ()
comment :: Maybe (Value Text)
defaultTTL :: Value Double
maxTTL :: Value Double
minTTL :: Value Double
name :: Value Text
..}