module Stratosphere.XRay.SamplingRule.SamplingRuleProperty (
        SamplingRuleProperty(..), mkSamplingRuleProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data SamplingRuleProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-xray-samplingrule-samplingrule.html>
    SamplingRuleProperty {SamplingRuleProperty -> ()
haddock_workaround_ :: (),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-xray-samplingrule-samplingrule.html#cfn-xray-samplingrule-samplingrule-attributes>
                          SamplingRuleProperty -> Maybe (Map Text (Value Text))
attributes :: (Prelude.Maybe (Prelude.Map Prelude.Text (Value Prelude.Text))),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-xray-samplingrule-samplingrule.html#cfn-xray-samplingrule-samplingrule-fixedrate>
                          SamplingRuleProperty -> Value Double
fixedRate :: (Value Prelude.Double),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-xray-samplingrule-samplingrule.html#cfn-xray-samplingrule-samplingrule-httpmethod>
                          SamplingRuleProperty -> Value Text
hTTPMethod :: (Value Prelude.Text),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-xray-samplingrule-samplingrule.html#cfn-xray-samplingrule-samplingrule-host>
                          SamplingRuleProperty -> Value Text
host :: (Value Prelude.Text),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-xray-samplingrule-samplingrule.html#cfn-xray-samplingrule-samplingrule-priority>
                          SamplingRuleProperty -> Value Integer
priority :: (Value Prelude.Integer),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-xray-samplingrule-samplingrule.html#cfn-xray-samplingrule-samplingrule-reservoirsize>
                          SamplingRuleProperty -> Value Integer
reservoirSize :: (Value Prelude.Integer),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-xray-samplingrule-samplingrule.html#cfn-xray-samplingrule-samplingrule-resourcearn>
                          SamplingRuleProperty -> Value Text
resourceARN :: (Value Prelude.Text),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-xray-samplingrule-samplingrule.html#cfn-xray-samplingrule-samplingrule-rulearn>
                          SamplingRuleProperty -> Maybe (Value Text)
ruleARN :: (Prelude.Maybe (Value Prelude.Text)),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-xray-samplingrule-samplingrule.html#cfn-xray-samplingrule-samplingrule-rulename>
                          SamplingRuleProperty -> Maybe (Value Text)
ruleName :: (Prelude.Maybe (Value Prelude.Text)),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-xray-samplingrule-samplingrule.html#cfn-xray-samplingrule-samplingrule-servicename>
                          SamplingRuleProperty -> Value Text
serviceName :: (Value Prelude.Text),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-xray-samplingrule-samplingrule.html#cfn-xray-samplingrule-samplingrule-servicetype>
                          SamplingRuleProperty -> Value Text
serviceType :: (Value Prelude.Text),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-xray-samplingrule-samplingrule.html#cfn-xray-samplingrule-samplingrule-urlpath>
                          SamplingRuleProperty -> Value Text
uRLPath :: (Value Prelude.Text),
                          -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-xray-samplingrule-samplingrule.html#cfn-xray-samplingrule-samplingrule-version>
                          SamplingRuleProperty -> Maybe (Value Integer)
version :: (Prelude.Maybe (Value Prelude.Integer))}
  deriving stock (SamplingRuleProperty -> SamplingRuleProperty -> Bool
(SamplingRuleProperty -> SamplingRuleProperty -> Bool)
-> (SamplingRuleProperty -> SamplingRuleProperty -> Bool)
-> Eq SamplingRuleProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SamplingRuleProperty -> SamplingRuleProperty -> Bool
== :: SamplingRuleProperty -> SamplingRuleProperty -> Bool
$c/= :: SamplingRuleProperty -> SamplingRuleProperty -> Bool
/= :: SamplingRuleProperty -> SamplingRuleProperty -> Bool
Prelude.Eq, Int -> SamplingRuleProperty -> ShowS
[SamplingRuleProperty] -> ShowS
SamplingRuleProperty -> String
(Int -> SamplingRuleProperty -> ShowS)
-> (SamplingRuleProperty -> String)
-> ([SamplingRuleProperty] -> ShowS)
-> Show SamplingRuleProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SamplingRuleProperty -> ShowS
showsPrec :: Int -> SamplingRuleProperty -> ShowS
$cshow :: SamplingRuleProperty -> String
show :: SamplingRuleProperty -> String
$cshowList :: [SamplingRuleProperty] -> ShowS
showList :: [SamplingRuleProperty] -> ShowS
Prelude.Show)
mkSamplingRuleProperty ::
  Value Prelude.Double
  -> Value Prelude.Text
     -> Value Prelude.Text
        -> Value Prelude.Integer
           -> Value Prelude.Integer
              -> Value Prelude.Text
                 -> Value Prelude.Text
                    -> Value Prelude.Text -> Value Prelude.Text -> SamplingRuleProperty
mkSamplingRuleProperty :: Value Double
-> Value Text
-> Value Text
-> Value Integer
-> Value Integer
-> Value Text
-> Value Text
-> Value Text
-> Value Text
-> SamplingRuleProperty
mkSamplingRuleProperty
  Value Double
fixedRate
  Value Text
hTTPMethod
  Value Text
host
  Value Integer
priority
  Value Integer
reservoirSize
  Value Text
resourceARN
  Value Text
serviceName
  Value Text
serviceType
  Value Text
uRLPath
  = SamplingRuleProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), fixedRate :: Value Double
fixedRate = Value Double
fixedRate,
       hTTPMethod :: Value Text
hTTPMethod = Value Text
hTTPMethod, host :: Value Text
host = Value Text
host, priority :: Value Integer
priority = Value Integer
priority,
       reservoirSize :: Value Integer
reservoirSize = Value Integer
reservoirSize, resourceARN :: Value Text
resourceARN = Value Text
resourceARN,
       serviceName :: Value Text
serviceName = Value Text
serviceName, serviceType :: Value Text
serviceType = Value Text
serviceType,
       uRLPath :: Value Text
uRLPath = Value Text
uRLPath, attributes :: Maybe (Map Text (Value Text))
attributes = Maybe (Map Text (Value Text))
forall a. Maybe a
Prelude.Nothing,
       ruleARN :: Maybe (Value Text)
ruleARN = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, ruleName :: Maybe (Value Text)
ruleName = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       version :: Maybe (Value Integer)
version = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties SamplingRuleProperty where
  toResourceProperties :: SamplingRuleProperty -> ResourceProperties
toResourceProperties SamplingRuleProperty {Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: SamplingRuleProperty -> ()
attributes :: SamplingRuleProperty -> Maybe (Map Text (Value Text))
fixedRate :: SamplingRuleProperty -> Value Double
hTTPMethod :: SamplingRuleProperty -> Value Text
host :: SamplingRuleProperty -> Value Text
priority :: SamplingRuleProperty -> Value Integer
reservoirSize :: SamplingRuleProperty -> Value Integer
resourceARN :: SamplingRuleProperty -> Value Text
ruleARN :: SamplingRuleProperty -> Maybe (Value Text)
ruleName :: SamplingRuleProperty -> Maybe (Value Text)
serviceName :: SamplingRuleProperty -> Value Text
serviceType :: SamplingRuleProperty -> Value Text
uRLPath :: SamplingRuleProperty -> Value Text
version :: SamplingRuleProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::XRay::SamplingRule.SamplingRule",
         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
"FixedRate" 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
fixedRate, Key
"HTTPMethod" 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
hTTPMethod,
                            Key
"Host" 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
host, Key
"Priority" 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..= Value Integer
priority,
                            Key
"ReservoirSize" 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..= Value Integer
reservoirSize,
                            Key
"ResourceARN" 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
resourceARN,
                            Key
"ServiceName" 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
serviceName,
                            Key
"ServiceType" 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
serviceType, Key
"URLPath" 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
uRLPath]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> Map Text (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
"Attributes" (Map Text (Value Text) -> (Key, Value))
-> Maybe (Map Text (Value Text)) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Map Text (Value Text))
attributes,
                               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
"RuleARN" (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)
ruleARN,
                               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
"RuleName" (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)
ruleName,
                               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
"Version" (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)
version]))}
instance JSON.ToJSON SamplingRuleProperty where
  toJSON :: SamplingRuleProperty -> Value
toJSON SamplingRuleProperty {Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: SamplingRuleProperty -> ()
attributes :: SamplingRuleProperty -> Maybe (Map Text (Value Text))
fixedRate :: SamplingRuleProperty -> Value Double
hTTPMethod :: SamplingRuleProperty -> Value Text
host :: SamplingRuleProperty -> Value Text
priority :: SamplingRuleProperty -> Value Integer
reservoirSize :: SamplingRuleProperty -> Value Integer
resourceARN :: SamplingRuleProperty -> Value Text
ruleARN :: SamplingRuleProperty -> Maybe (Value Text)
ruleName :: SamplingRuleProperty -> Maybe (Value Text)
serviceName :: SamplingRuleProperty -> Value Text
serviceType :: SamplingRuleProperty -> Value Text
uRLPath :: SamplingRuleProperty -> Value Text
version :: SamplingRuleProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
    = [(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
"FixedRate" 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
fixedRate, Key
"HTTPMethod" 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
hTTPMethod,
               Key
"Host" 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
host, Key
"Priority" 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..= Value Integer
priority,
               Key
"ReservoirSize" 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..= Value Integer
reservoirSize,
               Key
"ResourceARN" 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
resourceARN,
               Key
"ServiceName" 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
serviceName,
               Key
"ServiceType" 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
serviceType, Key
"URLPath" 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
uRLPath]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> Map Text (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
"Attributes" (Map Text (Value Text) -> (Key, Value))
-> Maybe (Map Text (Value Text)) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Map Text (Value Text))
attributes,
                  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
"RuleARN" (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)
ruleARN,
                  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
"RuleName" (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)
ruleName,
                  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
"Version" (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)
version])))
instance Property "Attributes" SamplingRuleProperty where
  type PropertyType "Attributes" SamplingRuleProperty = Prelude.Map Prelude.Text (Value Prelude.Text)
  set :: PropertyType "Attributes" SamplingRuleProperty
-> SamplingRuleProperty -> SamplingRuleProperty
set PropertyType "Attributes" SamplingRuleProperty
newValue SamplingRuleProperty {Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: SamplingRuleProperty -> ()
attributes :: SamplingRuleProperty -> Maybe (Map Text (Value Text))
fixedRate :: SamplingRuleProperty -> Value Double
hTTPMethod :: SamplingRuleProperty -> Value Text
host :: SamplingRuleProperty -> Value Text
priority :: SamplingRuleProperty -> Value Integer
reservoirSize :: SamplingRuleProperty -> Value Integer
resourceARN :: SamplingRuleProperty -> Value Text
ruleARN :: SamplingRuleProperty -> Maybe (Value Text)
ruleName :: SamplingRuleProperty -> Maybe (Value Text)
serviceName :: SamplingRuleProperty -> Value Text
serviceType :: SamplingRuleProperty -> Value Text
uRLPath :: SamplingRuleProperty -> Value Text
version :: SamplingRuleProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
    = SamplingRuleProperty {attributes :: Maybe (Map Text (Value Text))
attributes = Map Text (Value Text) -> Maybe (Map Text (Value Text))
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Map Text (Value Text)
PropertyType "Attributes" SamplingRuleProperty
newValue, Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: ()
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
haddock_workaround_ :: ()
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
instance Property "FixedRate" SamplingRuleProperty where
  type PropertyType "FixedRate" SamplingRuleProperty = Value Prelude.Double
  set :: PropertyType "FixedRate" SamplingRuleProperty
-> SamplingRuleProperty -> SamplingRuleProperty
set PropertyType "FixedRate" SamplingRuleProperty
newValue SamplingRuleProperty {Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: SamplingRuleProperty -> ()
attributes :: SamplingRuleProperty -> Maybe (Map Text (Value Text))
fixedRate :: SamplingRuleProperty -> Value Double
hTTPMethod :: SamplingRuleProperty -> Value Text
host :: SamplingRuleProperty -> Value Text
priority :: SamplingRuleProperty -> Value Integer
reservoirSize :: SamplingRuleProperty -> Value Integer
resourceARN :: SamplingRuleProperty -> Value Text
ruleARN :: SamplingRuleProperty -> Maybe (Value Text)
ruleName :: SamplingRuleProperty -> Maybe (Value Text)
serviceName :: SamplingRuleProperty -> Value Text
serviceType :: SamplingRuleProperty -> Value Text
uRLPath :: SamplingRuleProperty -> Value Text
version :: SamplingRuleProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
    = SamplingRuleProperty {fixedRate :: Value Double
fixedRate = PropertyType "FixedRate" SamplingRuleProperty
Value Double
newValue, Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
Value Text
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
instance Property "HTTPMethod" SamplingRuleProperty where
  type PropertyType "HTTPMethod" SamplingRuleProperty = Value Prelude.Text
  set :: PropertyType "HTTPMethod" SamplingRuleProperty
-> SamplingRuleProperty -> SamplingRuleProperty
set PropertyType "HTTPMethod" SamplingRuleProperty
newValue SamplingRuleProperty {Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: SamplingRuleProperty -> ()
attributes :: SamplingRuleProperty -> Maybe (Map Text (Value Text))
fixedRate :: SamplingRuleProperty -> Value Double
hTTPMethod :: SamplingRuleProperty -> Value Text
host :: SamplingRuleProperty -> Value Text
priority :: SamplingRuleProperty -> Value Integer
reservoirSize :: SamplingRuleProperty -> Value Integer
resourceARN :: SamplingRuleProperty -> Value Text
ruleARN :: SamplingRuleProperty -> Maybe (Value Text)
ruleName :: SamplingRuleProperty -> Maybe (Value Text)
serviceName :: SamplingRuleProperty -> Value Text
serviceType :: SamplingRuleProperty -> Value Text
uRLPath :: SamplingRuleProperty -> Value Text
version :: SamplingRuleProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
    = SamplingRuleProperty {hTTPMethod :: Value Text
hTTPMethod = PropertyType "HTTPMethod" SamplingRuleProperty
Value Text
newValue, Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
instance Property "Host" SamplingRuleProperty where
  type PropertyType "Host" SamplingRuleProperty = Value Prelude.Text
  set :: PropertyType "Host" SamplingRuleProperty
-> SamplingRuleProperty -> SamplingRuleProperty
set PropertyType "Host" SamplingRuleProperty
newValue SamplingRuleProperty {Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: SamplingRuleProperty -> ()
attributes :: SamplingRuleProperty -> Maybe (Map Text (Value Text))
fixedRate :: SamplingRuleProperty -> Value Double
hTTPMethod :: SamplingRuleProperty -> Value Text
host :: SamplingRuleProperty -> Value Text
priority :: SamplingRuleProperty -> Value Integer
reservoirSize :: SamplingRuleProperty -> Value Integer
resourceARN :: SamplingRuleProperty -> Value Text
ruleARN :: SamplingRuleProperty -> Maybe (Value Text)
ruleName :: SamplingRuleProperty -> Maybe (Value Text)
serviceName :: SamplingRuleProperty -> Value Text
serviceType :: SamplingRuleProperty -> Value Text
uRLPath :: SamplingRuleProperty -> Value Text
version :: SamplingRuleProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
    = SamplingRuleProperty {host :: Value Text
host = PropertyType "Host" SamplingRuleProperty
Value Text
newValue, Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
instance Property "Priority" SamplingRuleProperty where
  type PropertyType "Priority" SamplingRuleProperty = Value Prelude.Integer
  set :: PropertyType "Priority" SamplingRuleProperty
-> SamplingRuleProperty -> SamplingRuleProperty
set PropertyType "Priority" SamplingRuleProperty
newValue SamplingRuleProperty {Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: SamplingRuleProperty -> ()
attributes :: SamplingRuleProperty -> Maybe (Map Text (Value Text))
fixedRate :: SamplingRuleProperty -> Value Double
hTTPMethod :: SamplingRuleProperty -> Value Text
host :: SamplingRuleProperty -> Value Text
priority :: SamplingRuleProperty -> Value Integer
reservoirSize :: SamplingRuleProperty -> Value Integer
resourceARN :: SamplingRuleProperty -> Value Text
ruleARN :: SamplingRuleProperty -> Maybe (Value Text)
ruleName :: SamplingRuleProperty -> Maybe (Value Text)
serviceName :: SamplingRuleProperty -> Value Text
serviceType :: SamplingRuleProperty -> Value Text
uRLPath :: SamplingRuleProperty -> Value Text
version :: SamplingRuleProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
    = SamplingRuleProperty {priority :: Value Integer
priority = PropertyType "Priority" SamplingRuleProperty
Value Integer
newValue, Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
instance Property "ReservoirSize" SamplingRuleProperty where
  type PropertyType "ReservoirSize" SamplingRuleProperty = Value Prelude.Integer
  set :: PropertyType "ReservoirSize" SamplingRuleProperty
-> SamplingRuleProperty -> SamplingRuleProperty
set PropertyType "ReservoirSize" SamplingRuleProperty
newValue SamplingRuleProperty {Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: SamplingRuleProperty -> ()
attributes :: SamplingRuleProperty -> Maybe (Map Text (Value Text))
fixedRate :: SamplingRuleProperty -> Value Double
hTTPMethod :: SamplingRuleProperty -> Value Text
host :: SamplingRuleProperty -> Value Text
priority :: SamplingRuleProperty -> Value Integer
reservoirSize :: SamplingRuleProperty -> Value Integer
resourceARN :: SamplingRuleProperty -> Value Text
ruleARN :: SamplingRuleProperty -> Maybe (Value Text)
ruleName :: SamplingRuleProperty -> Maybe (Value Text)
serviceName :: SamplingRuleProperty -> Value Text
serviceType :: SamplingRuleProperty -> Value Text
uRLPath :: SamplingRuleProperty -> Value Text
version :: SamplingRuleProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
    = SamplingRuleProperty {reservoirSize :: Value Integer
reservoirSize = PropertyType "ReservoirSize" SamplingRuleProperty
Value Integer
newValue, Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
instance Property "ResourceARN" SamplingRuleProperty where
  type PropertyType "ResourceARN" SamplingRuleProperty = Value Prelude.Text
  set :: PropertyType "ResourceARN" SamplingRuleProperty
-> SamplingRuleProperty -> SamplingRuleProperty
set PropertyType "ResourceARN" SamplingRuleProperty
newValue SamplingRuleProperty {Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: SamplingRuleProperty -> ()
attributes :: SamplingRuleProperty -> Maybe (Map Text (Value Text))
fixedRate :: SamplingRuleProperty -> Value Double
hTTPMethod :: SamplingRuleProperty -> Value Text
host :: SamplingRuleProperty -> Value Text
priority :: SamplingRuleProperty -> Value Integer
reservoirSize :: SamplingRuleProperty -> Value Integer
resourceARN :: SamplingRuleProperty -> Value Text
ruleARN :: SamplingRuleProperty -> Maybe (Value Text)
ruleName :: SamplingRuleProperty -> Maybe (Value Text)
serviceName :: SamplingRuleProperty -> Value Text
serviceType :: SamplingRuleProperty -> Value Text
uRLPath :: SamplingRuleProperty -> Value Text
version :: SamplingRuleProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
    = SamplingRuleProperty {resourceARN :: Value Text
resourceARN = PropertyType "ResourceARN" SamplingRuleProperty
Value Text
newValue, Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
instance Property "RuleARN" SamplingRuleProperty where
  type PropertyType "RuleARN" SamplingRuleProperty = Value Prelude.Text
  set :: PropertyType "RuleARN" SamplingRuleProperty
-> SamplingRuleProperty -> SamplingRuleProperty
set PropertyType "RuleARN" SamplingRuleProperty
newValue SamplingRuleProperty {Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: SamplingRuleProperty -> ()
attributes :: SamplingRuleProperty -> Maybe (Map Text (Value Text))
fixedRate :: SamplingRuleProperty -> Value Double
hTTPMethod :: SamplingRuleProperty -> Value Text
host :: SamplingRuleProperty -> Value Text
priority :: SamplingRuleProperty -> Value Integer
reservoirSize :: SamplingRuleProperty -> Value Integer
resourceARN :: SamplingRuleProperty -> Value Text
ruleARN :: SamplingRuleProperty -> Maybe (Value Text)
ruleName :: SamplingRuleProperty -> Maybe (Value Text)
serviceName :: SamplingRuleProperty -> Value Text
serviceType :: SamplingRuleProperty -> Value Text
uRLPath :: SamplingRuleProperty -> Value Text
version :: SamplingRuleProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
    = SamplingRuleProperty {ruleARN :: Maybe (Value Text)
ruleARN = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "RuleARN" SamplingRuleProperty
Value Text
newValue, Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
instance Property "RuleName" SamplingRuleProperty where
  type PropertyType "RuleName" SamplingRuleProperty = Value Prelude.Text
  set :: PropertyType "RuleName" SamplingRuleProperty
-> SamplingRuleProperty -> SamplingRuleProperty
set PropertyType "RuleName" SamplingRuleProperty
newValue SamplingRuleProperty {Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: SamplingRuleProperty -> ()
attributes :: SamplingRuleProperty -> Maybe (Map Text (Value Text))
fixedRate :: SamplingRuleProperty -> Value Double
hTTPMethod :: SamplingRuleProperty -> Value Text
host :: SamplingRuleProperty -> Value Text
priority :: SamplingRuleProperty -> Value Integer
reservoirSize :: SamplingRuleProperty -> Value Integer
resourceARN :: SamplingRuleProperty -> Value Text
ruleARN :: SamplingRuleProperty -> Maybe (Value Text)
ruleName :: SamplingRuleProperty -> Maybe (Value Text)
serviceName :: SamplingRuleProperty -> Value Text
serviceType :: SamplingRuleProperty -> Value Text
uRLPath :: SamplingRuleProperty -> Value Text
version :: SamplingRuleProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
    = SamplingRuleProperty {ruleName :: Maybe (Value Text)
ruleName = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "RuleName" SamplingRuleProperty
Value Text
newValue, Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
instance Property "ServiceName" SamplingRuleProperty where
  type PropertyType "ServiceName" SamplingRuleProperty = Value Prelude.Text
  set :: PropertyType "ServiceName" SamplingRuleProperty
-> SamplingRuleProperty -> SamplingRuleProperty
set PropertyType "ServiceName" SamplingRuleProperty
newValue SamplingRuleProperty {Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: SamplingRuleProperty -> ()
attributes :: SamplingRuleProperty -> Maybe (Map Text (Value Text))
fixedRate :: SamplingRuleProperty -> Value Double
hTTPMethod :: SamplingRuleProperty -> Value Text
host :: SamplingRuleProperty -> Value Text
priority :: SamplingRuleProperty -> Value Integer
reservoirSize :: SamplingRuleProperty -> Value Integer
resourceARN :: SamplingRuleProperty -> Value Text
ruleARN :: SamplingRuleProperty -> Maybe (Value Text)
ruleName :: SamplingRuleProperty -> Maybe (Value Text)
serviceName :: SamplingRuleProperty -> Value Text
serviceType :: SamplingRuleProperty -> Value Text
uRLPath :: SamplingRuleProperty -> Value Text
version :: SamplingRuleProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
    = SamplingRuleProperty {serviceName :: Value Text
serviceName = PropertyType "ServiceName" SamplingRuleProperty
Value Text
newValue, Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
instance Property "ServiceType" SamplingRuleProperty where
  type PropertyType "ServiceType" SamplingRuleProperty = Value Prelude.Text
  set :: PropertyType "ServiceType" SamplingRuleProperty
-> SamplingRuleProperty -> SamplingRuleProperty
set PropertyType "ServiceType" SamplingRuleProperty
newValue SamplingRuleProperty {Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: SamplingRuleProperty -> ()
attributes :: SamplingRuleProperty -> Maybe (Map Text (Value Text))
fixedRate :: SamplingRuleProperty -> Value Double
hTTPMethod :: SamplingRuleProperty -> Value Text
host :: SamplingRuleProperty -> Value Text
priority :: SamplingRuleProperty -> Value Integer
reservoirSize :: SamplingRuleProperty -> Value Integer
resourceARN :: SamplingRuleProperty -> Value Text
ruleARN :: SamplingRuleProperty -> Maybe (Value Text)
ruleName :: SamplingRuleProperty -> Maybe (Value Text)
serviceName :: SamplingRuleProperty -> Value Text
serviceType :: SamplingRuleProperty -> Value Text
uRLPath :: SamplingRuleProperty -> Value Text
version :: SamplingRuleProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
    = SamplingRuleProperty {serviceType :: Value Text
serviceType = PropertyType "ServiceType" SamplingRuleProperty
Value Text
newValue, Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
instance Property "URLPath" SamplingRuleProperty where
  type PropertyType "URLPath" SamplingRuleProperty = Value Prelude.Text
  set :: PropertyType "URLPath" SamplingRuleProperty
-> SamplingRuleProperty -> SamplingRuleProperty
set PropertyType "URLPath" SamplingRuleProperty
newValue SamplingRuleProperty {Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: SamplingRuleProperty -> ()
attributes :: SamplingRuleProperty -> Maybe (Map Text (Value Text))
fixedRate :: SamplingRuleProperty -> Value Double
hTTPMethod :: SamplingRuleProperty -> Value Text
host :: SamplingRuleProperty -> Value Text
priority :: SamplingRuleProperty -> Value Integer
reservoirSize :: SamplingRuleProperty -> Value Integer
resourceARN :: SamplingRuleProperty -> Value Text
ruleARN :: SamplingRuleProperty -> Maybe (Value Text)
ruleName :: SamplingRuleProperty -> Maybe (Value Text)
serviceName :: SamplingRuleProperty -> Value Text
serviceType :: SamplingRuleProperty -> Value Text
uRLPath :: SamplingRuleProperty -> Value Text
version :: SamplingRuleProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
    = SamplingRuleProperty {uRLPath :: Value Text
uRLPath = PropertyType "URLPath" SamplingRuleProperty
Value Text
newValue, Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
version :: Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
version :: Maybe (Value Integer)
..}
instance Property "Version" SamplingRuleProperty where
  type PropertyType "Version" SamplingRuleProperty = Value Prelude.Integer
  set :: PropertyType "Version" SamplingRuleProperty
-> SamplingRuleProperty -> SamplingRuleProperty
set PropertyType "Version" SamplingRuleProperty
newValue SamplingRuleProperty {Maybe (Map Text (Value Text))
Maybe (Value Integer)
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: SamplingRuleProperty -> ()
attributes :: SamplingRuleProperty -> Maybe (Map Text (Value Text))
fixedRate :: SamplingRuleProperty -> Value Double
hTTPMethod :: SamplingRuleProperty -> Value Text
host :: SamplingRuleProperty -> Value Text
priority :: SamplingRuleProperty -> Value Integer
reservoirSize :: SamplingRuleProperty -> Value Integer
resourceARN :: SamplingRuleProperty -> Value Text
ruleARN :: SamplingRuleProperty -> Maybe (Value Text)
ruleName :: SamplingRuleProperty -> Maybe (Value Text)
serviceName :: SamplingRuleProperty -> Value Text
serviceType :: SamplingRuleProperty -> Value Text
uRLPath :: SamplingRuleProperty -> Value Text
version :: SamplingRuleProperty -> Maybe (Value Integer)
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
version :: Maybe (Value Integer)
..}
    = SamplingRuleProperty {version :: Maybe (Value Integer)
version = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Version" SamplingRuleProperty
Value Integer
newValue, Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Double
Value Integer
Value Text
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
haddock_workaround_ :: ()
attributes :: Maybe (Map Text (Value Text))
fixedRate :: Value Double
hTTPMethod :: Value Text
host :: Value Text
priority :: Value Integer
reservoirSize :: Value Integer
resourceARN :: Value Text
ruleARN :: Maybe (Value Text)
ruleName :: Maybe (Value Text)
serviceName :: Value Text
serviceType :: Value Text
uRLPath :: Value Text
..}