module Stratosphere.InternetMonitor.Monitor (
        module Exports, Monitor(..), mkMonitor
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.InternetMonitor.Monitor.HealthEventsConfigProperty as Exports
import {-# SOURCE #-} Stratosphere.InternetMonitor.Monitor.InternetMeasurementsLogDeliveryProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Tag
import Stratosphere.Value
data Monitor
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-internetmonitor-monitor.html>
    Monitor {Monitor -> ()
haddock_workaround_ :: (),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-internetmonitor-monitor.html#cfn-internetmonitor-monitor-healtheventsconfig>
             Monitor -> Maybe HealthEventsConfigProperty
healthEventsConfig :: (Prelude.Maybe HealthEventsConfigProperty),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-internetmonitor-monitor.html#cfn-internetmonitor-monitor-includelinkedaccounts>
             Monitor -> Maybe (Value Bool)
includeLinkedAccounts :: (Prelude.Maybe (Value Prelude.Bool)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-internetmonitor-monitor.html#cfn-internetmonitor-monitor-internetmeasurementslogdelivery>
             Monitor -> Maybe InternetMeasurementsLogDeliveryProperty
internetMeasurementsLogDelivery :: (Prelude.Maybe InternetMeasurementsLogDeliveryProperty),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-internetmonitor-monitor.html#cfn-internetmonitor-monitor-linkedaccountid>
             Monitor -> Maybe (Value Text)
linkedAccountId :: (Prelude.Maybe (Value Prelude.Text)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-internetmonitor-monitor.html#cfn-internetmonitor-monitor-maxcitynetworkstomonitor>
             Monitor -> Maybe (Value Integer)
maxCityNetworksToMonitor :: (Prelude.Maybe (Value Prelude.Integer)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-internetmonitor-monitor.html#cfn-internetmonitor-monitor-monitorname>
             Monitor -> Value Text
monitorName :: (Value Prelude.Text),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-internetmonitor-monitor.html#cfn-internetmonitor-monitor-resources>
             Monitor -> Maybe (ValueList Text)
resources :: (Prelude.Maybe (ValueList Prelude.Text)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-internetmonitor-monitor.html#cfn-internetmonitor-monitor-resourcestoadd>
             Monitor -> Maybe (ValueList Text)
resourcesToAdd :: (Prelude.Maybe (ValueList Prelude.Text)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-internetmonitor-monitor.html#cfn-internetmonitor-monitor-resourcestoremove>
             Monitor -> Maybe (ValueList Text)
resourcesToRemove :: (Prelude.Maybe (ValueList Prelude.Text)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-internetmonitor-monitor.html#cfn-internetmonitor-monitor-status>
             Monitor -> Maybe (Value Text)
status :: (Prelude.Maybe (Value Prelude.Text)),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-internetmonitor-monitor.html#cfn-internetmonitor-monitor-tags>
             Monitor -> Maybe [Tag]
tags :: (Prelude.Maybe [Tag]),
             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-internetmonitor-monitor.html#cfn-internetmonitor-monitor-trafficpercentagetomonitor>
             Monitor -> Maybe (Value Integer)
trafficPercentageToMonitor :: (Prelude.Maybe (Value Prelude.Integer))}
  deriving stock (Monitor -> Monitor -> Bool
(Monitor -> Monitor -> Bool)
-> (Monitor -> Monitor -> Bool) -> Eq Monitor
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Monitor -> Monitor -> Bool
== :: Monitor -> Monitor -> Bool
$c/= :: Monitor -> Monitor -> Bool
/= :: Monitor -> Monitor -> Bool
Prelude.Eq, Int -> Monitor -> ShowS
[Monitor] -> ShowS
Monitor -> String
(Int -> Monitor -> ShowS)
-> (Monitor -> String) -> ([Monitor] -> ShowS) -> Show Monitor
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Monitor -> ShowS
showsPrec :: Int -> Monitor -> ShowS
$cshow :: Monitor -> String
show :: Monitor -> String
$cshowList :: [Monitor] -> ShowS
showList :: [Monitor] -> ShowS
Prelude.Show)
mkMonitor :: Value Prelude.Text -> Monitor
mkMonitor :: Value Text -> Monitor
mkMonitor Value Text
monitorName
  = Monitor
      {haddock_workaround_ :: ()
haddock_workaround_ = (), monitorName :: Value Text
monitorName = Value Text
monitorName,
       healthEventsConfig :: Maybe HealthEventsConfigProperty
healthEventsConfig = Maybe HealthEventsConfigProperty
forall a. Maybe a
Prelude.Nothing,
       includeLinkedAccounts :: Maybe (Value Bool)
includeLinkedAccounts = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing,
       internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
internetMeasurementsLogDelivery = Maybe InternetMeasurementsLogDeliveryProperty
forall a. Maybe a
Prelude.Nothing,
       linkedAccountId :: Maybe (Value Text)
linkedAccountId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       maxCityNetworksToMonitor :: Maybe (Value Integer)
maxCityNetworksToMonitor = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       resources :: Maybe (ValueList Text)
resources = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing, resourcesToAdd :: Maybe (ValueList Text)
resourcesToAdd = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing,
       resourcesToRemove :: Maybe (ValueList Text)
resourcesToRemove = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing, status :: Maybe (Value Text)
status = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       tags :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing,
       trafficPercentageToMonitor :: Maybe (Value Integer)
trafficPercentageToMonitor = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties Monitor where
  toResourceProperties :: Monitor -> ResourceProperties
toResourceProperties Monitor {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: Monitor -> ()
healthEventsConfig :: Monitor -> Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Monitor -> Maybe (Value Bool)
internetMeasurementsLogDelivery :: Monitor -> Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Monitor -> Maybe (Value Text)
maxCityNetworksToMonitor :: Monitor -> Maybe (Value Integer)
monitorName :: Monitor -> Value Text
resources :: Monitor -> Maybe (ValueList Text)
resourcesToAdd :: Monitor -> Maybe (ValueList Text)
resourcesToRemove :: Monitor -> Maybe (ValueList Text)
status :: Monitor -> Maybe (Value Text)
tags :: Monitor -> Maybe [Tag]
trafficPercentageToMonitor :: Monitor -> Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::InternetMonitor::Monitor",
         supportsTags :: Bool
supportsTags = Bool
Prelude.True,
         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
"MonitorName" 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
monitorName]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> HealthEventsConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"HealthEventsConfig" (HealthEventsConfigProperty -> (Key, Value))
-> Maybe HealthEventsConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe HealthEventsConfigProperty
healthEventsConfig,
                               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
"IncludeLinkedAccounts"
                                 (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)
includeLinkedAccounts,
                               Key -> InternetMeasurementsLogDeliveryProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InternetMeasurementsLogDelivery"
                                 (InternetMeasurementsLogDeliveryProperty -> (Key, Value))
-> Maybe InternetMeasurementsLogDeliveryProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InternetMeasurementsLogDeliveryProperty
internetMeasurementsLogDelivery,
                               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
"LinkedAccountId" (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)
linkedAccountId,
                               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
"MaxCityNetworksToMonitor"
                                 (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)
maxCityNetworksToMonitor,
                               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
"Resources" (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)
resources,
                               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
"ResourcesToAdd" (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)
resourcesToAdd,
                               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
"ResourcesToRemove" (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)
resourcesToRemove,
                               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
"Status" (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)
status,
                               Key -> [Tag] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
                               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
"TrafficPercentageToMonitor"
                                 (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)
trafficPercentageToMonitor]))}
instance JSON.ToJSON Monitor where
  toJSON :: Monitor -> Value
toJSON Monitor {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: Monitor -> ()
healthEventsConfig :: Monitor -> Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Monitor -> Maybe (Value Bool)
internetMeasurementsLogDelivery :: Monitor -> Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Monitor -> Maybe (Value Text)
maxCityNetworksToMonitor :: Monitor -> Maybe (Value Integer)
monitorName :: Monitor -> Value Text
resources :: Monitor -> Maybe (ValueList Text)
resourcesToAdd :: Monitor -> Maybe (ValueList Text)
resourcesToRemove :: Monitor -> Maybe (ValueList Text)
status :: Monitor -> Maybe (Value Text)
tags :: Monitor -> Maybe [Tag]
trafficPercentageToMonitor :: Monitor -> Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: 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
"MonitorName" 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
monitorName]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> HealthEventsConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"HealthEventsConfig" (HealthEventsConfigProperty -> (Key, Value))
-> Maybe HealthEventsConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe HealthEventsConfigProperty
healthEventsConfig,
                  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
"IncludeLinkedAccounts"
                    (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)
includeLinkedAccounts,
                  Key -> InternetMeasurementsLogDeliveryProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InternetMeasurementsLogDelivery"
                    (InternetMeasurementsLogDeliveryProperty -> (Key, Value))
-> Maybe InternetMeasurementsLogDeliveryProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InternetMeasurementsLogDeliveryProperty
internetMeasurementsLogDelivery,
                  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
"LinkedAccountId" (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)
linkedAccountId,
                  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
"MaxCityNetworksToMonitor"
                    (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)
maxCityNetworksToMonitor,
                  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
"Resources" (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)
resources,
                  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
"ResourcesToAdd" (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)
resourcesToAdd,
                  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
"ResourcesToRemove" (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)
resourcesToRemove,
                  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
"Status" (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)
status,
                  Key -> [Tag] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
                  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
"TrafficPercentageToMonitor"
                    (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)
trafficPercentageToMonitor])))
instance Property "HealthEventsConfig" Monitor where
  type PropertyType "HealthEventsConfig" Monitor = HealthEventsConfigProperty
  set :: PropertyType "HealthEventsConfig" Monitor -> Monitor -> Monitor
set PropertyType "HealthEventsConfig" Monitor
newValue Monitor {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: Monitor -> ()
healthEventsConfig :: Monitor -> Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Monitor -> Maybe (Value Bool)
internetMeasurementsLogDelivery :: Monitor -> Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Monitor -> Maybe (Value Text)
maxCityNetworksToMonitor :: Monitor -> Maybe (Value Integer)
monitorName :: Monitor -> Value Text
resources :: Monitor -> Maybe (ValueList Text)
resourcesToAdd :: Monitor -> Maybe (ValueList Text)
resourcesToRemove :: Monitor -> Maybe (ValueList Text)
status :: Monitor -> Maybe (Value Text)
tags :: Monitor -> Maybe [Tag]
trafficPercentageToMonitor :: Monitor -> Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
    = Monitor {healthEventsConfig :: Maybe HealthEventsConfigProperty
healthEventsConfig = HealthEventsConfigProperty -> Maybe HealthEventsConfigProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "HealthEventsConfig" Monitor
HealthEventsConfigProperty
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: ()
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
haddock_workaround_ :: ()
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
instance Property "IncludeLinkedAccounts" Monitor where
  type PropertyType "IncludeLinkedAccounts" Monitor = Value Prelude.Bool
  set :: PropertyType "IncludeLinkedAccounts" Monitor -> Monitor -> Monitor
set PropertyType "IncludeLinkedAccounts" Monitor
newValue Monitor {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: Monitor -> ()
healthEventsConfig :: Monitor -> Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Monitor -> Maybe (Value Bool)
internetMeasurementsLogDelivery :: Monitor -> Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Monitor -> Maybe (Value Text)
maxCityNetworksToMonitor :: Monitor -> Maybe (Value Integer)
monitorName :: Monitor -> Value Text
resources :: Monitor -> Maybe (ValueList Text)
resourcesToAdd :: Monitor -> Maybe (ValueList Text)
resourcesToRemove :: Monitor -> Maybe (ValueList Text)
status :: Monitor -> Maybe (Value Text)
tags :: Monitor -> Maybe [Tag]
trafficPercentageToMonitor :: Monitor -> Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
    = Monitor {includeLinkedAccounts :: Maybe (Value Bool)
includeLinkedAccounts = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "IncludeLinkedAccounts" Monitor
Value Bool
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
instance Property "InternetMeasurementsLogDelivery" Monitor where
  type PropertyType "InternetMeasurementsLogDelivery" Monitor = InternetMeasurementsLogDeliveryProperty
  set :: PropertyType "InternetMeasurementsLogDelivery" Monitor
-> Monitor -> Monitor
set PropertyType "InternetMeasurementsLogDelivery" Monitor
newValue Monitor {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: Monitor -> ()
healthEventsConfig :: Monitor -> Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Monitor -> Maybe (Value Bool)
internetMeasurementsLogDelivery :: Monitor -> Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Monitor -> Maybe (Value Text)
maxCityNetworksToMonitor :: Monitor -> Maybe (Value Integer)
monitorName :: Monitor -> Value Text
resources :: Monitor -> Maybe (ValueList Text)
resourcesToAdd :: Monitor -> Maybe (ValueList Text)
resourcesToRemove :: Monitor -> Maybe (ValueList Text)
status :: Monitor -> Maybe (Value Text)
tags :: Monitor -> Maybe [Tag]
trafficPercentageToMonitor :: Monitor -> Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
    = Monitor
        {internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
internetMeasurementsLogDelivery = InternetMeasurementsLogDeliveryProperty
-> Maybe InternetMeasurementsLogDeliveryProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "InternetMeasurementsLogDelivery" Monitor
InternetMeasurementsLogDeliveryProperty
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
()
Value Text
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
instance Property "LinkedAccountId" Monitor where
  type PropertyType "LinkedAccountId" Monitor = Value Prelude.Text
  set :: PropertyType "LinkedAccountId" Monitor -> Monitor -> Monitor
set PropertyType "LinkedAccountId" Monitor
newValue Monitor {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: Monitor -> ()
healthEventsConfig :: Monitor -> Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Monitor -> Maybe (Value Bool)
internetMeasurementsLogDelivery :: Monitor -> Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Monitor -> Maybe (Value Text)
maxCityNetworksToMonitor :: Monitor -> Maybe (Value Integer)
monitorName :: Monitor -> Value Text
resources :: Monitor -> Maybe (ValueList Text)
resourcesToAdd :: Monitor -> Maybe (ValueList Text)
resourcesToRemove :: Monitor -> Maybe (ValueList Text)
status :: Monitor -> Maybe (Value Text)
tags :: Monitor -> Maybe [Tag]
trafficPercentageToMonitor :: Monitor -> Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
    = Monitor {linkedAccountId :: Maybe (Value Text)
linkedAccountId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "LinkedAccountId" Monitor
Value Text
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
instance Property "MaxCityNetworksToMonitor" Monitor where
  type PropertyType "MaxCityNetworksToMonitor" Monitor = Value Prelude.Integer
  set :: PropertyType "MaxCityNetworksToMonitor" Monitor
-> Monitor -> Monitor
set PropertyType "MaxCityNetworksToMonitor" Monitor
newValue Monitor {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: Monitor -> ()
healthEventsConfig :: Monitor -> Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Monitor -> Maybe (Value Bool)
internetMeasurementsLogDelivery :: Monitor -> Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Monitor -> Maybe (Value Text)
maxCityNetworksToMonitor :: Monitor -> Maybe (Value Integer)
monitorName :: Monitor -> Value Text
resources :: Monitor -> Maybe (ValueList Text)
resourcesToAdd :: Monitor -> Maybe (ValueList Text)
resourcesToRemove :: Monitor -> Maybe (ValueList Text)
status :: Monitor -> Maybe (Value Text)
tags :: Monitor -> Maybe [Tag]
trafficPercentageToMonitor :: Monitor -> Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
    = Monitor {maxCityNetworksToMonitor :: Maybe (Value Integer)
maxCityNetworksToMonitor = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "MaxCityNetworksToMonitor" Monitor
Value Integer
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
instance Property "MonitorName" Monitor where
  type PropertyType "MonitorName" Monitor = Value Prelude.Text
  set :: PropertyType "MonitorName" Monitor -> Monitor -> Monitor
set PropertyType "MonitorName" Monitor
newValue Monitor {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: Monitor -> ()
healthEventsConfig :: Monitor -> Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Monitor -> Maybe (Value Bool)
internetMeasurementsLogDelivery :: Monitor -> Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Monitor -> Maybe (Value Text)
maxCityNetworksToMonitor :: Monitor -> Maybe (Value Integer)
monitorName :: Monitor -> Value Text
resources :: Monitor -> Maybe (ValueList Text)
resourcesToAdd :: Monitor -> Maybe (ValueList Text)
resourcesToRemove :: Monitor -> Maybe (ValueList Text)
status :: Monitor -> Maybe (Value Text)
tags :: Monitor -> Maybe [Tag]
trafficPercentageToMonitor :: Monitor -> Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..} = Monitor {monitorName :: Value Text
monitorName = PropertyType "MonitorName" Monitor
Value Text
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
instance Property "Resources" Monitor where
  type PropertyType "Resources" Monitor = ValueList Prelude.Text
  set :: PropertyType "Resources" Monitor -> Monitor -> Monitor
set PropertyType "Resources" Monitor
newValue Monitor {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: Monitor -> ()
healthEventsConfig :: Monitor -> Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Monitor -> Maybe (Value Bool)
internetMeasurementsLogDelivery :: Monitor -> Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Monitor -> Maybe (Value Text)
maxCityNetworksToMonitor :: Monitor -> Maybe (Value Integer)
monitorName :: Monitor -> Value Text
resources :: Monitor -> Maybe (ValueList Text)
resourcesToAdd :: Monitor -> Maybe (ValueList Text)
resourcesToRemove :: Monitor -> Maybe (ValueList Text)
status :: Monitor -> Maybe (Value Text)
tags :: Monitor -> Maybe [Tag]
trafficPercentageToMonitor :: Monitor -> Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
    = Monitor {resources :: Maybe (ValueList Text)
resources = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Resources" Monitor
ValueList Text
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
instance Property "ResourcesToAdd" Monitor where
  type PropertyType "ResourcesToAdd" Monitor = ValueList Prelude.Text
  set :: PropertyType "ResourcesToAdd" Monitor -> Monitor -> Monitor
set PropertyType "ResourcesToAdd" Monitor
newValue Monitor {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: Monitor -> ()
healthEventsConfig :: Monitor -> Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Monitor -> Maybe (Value Bool)
internetMeasurementsLogDelivery :: Monitor -> Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Monitor -> Maybe (Value Text)
maxCityNetworksToMonitor :: Monitor -> Maybe (Value Integer)
monitorName :: Monitor -> Value Text
resources :: Monitor -> Maybe (ValueList Text)
resourcesToAdd :: Monitor -> Maybe (ValueList Text)
resourcesToRemove :: Monitor -> Maybe (ValueList Text)
status :: Monitor -> Maybe (Value Text)
tags :: Monitor -> Maybe [Tag]
trafficPercentageToMonitor :: Monitor -> Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
    = Monitor {resourcesToAdd :: Maybe (ValueList Text)
resourcesToAdd = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ResourcesToAdd" Monitor
ValueList Text
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
instance Property "ResourcesToRemove" Monitor where
  type PropertyType "ResourcesToRemove" Monitor = ValueList Prelude.Text
  set :: PropertyType "ResourcesToRemove" Monitor -> Monitor -> Monitor
set PropertyType "ResourcesToRemove" Monitor
newValue Monitor {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: Monitor -> ()
healthEventsConfig :: Monitor -> Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Monitor -> Maybe (Value Bool)
internetMeasurementsLogDelivery :: Monitor -> Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Monitor -> Maybe (Value Text)
maxCityNetworksToMonitor :: Monitor -> Maybe (Value Integer)
monitorName :: Monitor -> Value Text
resources :: Monitor -> Maybe (ValueList Text)
resourcesToAdd :: Monitor -> Maybe (ValueList Text)
resourcesToRemove :: Monitor -> Maybe (ValueList Text)
status :: Monitor -> Maybe (Value Text)
tags :: Monitor -> Maybe [Tag]
trafficPercentageToMonitor :: Monitor -> Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
    = Monitor {resourcesToRemove :: Maybe (ValueList Text)
resourcesToRemove = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ResourcesToRemove" Monitor
ValueList Text
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
instance Property "Status" Monitor where
  type PropertyType "Status" Monitor = Value Prelude.Text
  set :: PropertyType "Status" Monitor -> Monitor -> Monitor
set PropertyType "Status" Monitor
newValue Monitor {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: Monitor -> ()
healthEventsConfig :: Monitor -> Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Monitor -> Maybe (Value Bool)
internetMeasurementsLogDelivery :: Monitor -> Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Monitor -> Maybe (Value Text)
maxCityNetworksToMonitor :: Monitor -> Maybe (Value Integer)
monitorName :: Monitor -> Value Text
resources :: Monitor -> Maybe (ValueList Text)
resourcesToAdd :: Monitor -> Maybe (ValueList Text)
resourcesToRemove :: Monitor -> Maybe (ValueList Text)
status :: Monitor -> Maybe (Value Text)
tags :: Monitor -> Maybe [Tag]
trafficPercentageToMonitor :: Monitor -> Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
    = Monitor {status :: Maybe (Value Text)
status = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Status" Monitor
Value Text
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
instance Property "Tags" Monitor where
  type PropertyType "Tags" Monitor = [Tag]
  set :: PropertyType "Tags" Monitor -> Monitor -> Monitor
set PropertyType "Tags" Monitor
newValue Monitor {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: Monitor -> ()
healthEventsConfig :: Monitor -> Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Monitor -> Maybe (Value Bool)
internetMeasurementsLogDelivery :: Monitor -> Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Monitor -> Maybe (Value Text)
maxCityNetworksToMonitor :: Monitor -> Maybe (Value Integer)
monitorName :: Monitor -> Value Text
resources :: Monitor -> Maybe (ValueList Text)
resourcesToAdd :: Monitor -> Maybe (ValueList Text)
resourcesToRemove :: Monitor -> Maybe (ValueList Text)
status :: Monitor -> Maybe (Value Text)
tags :: Monitor -> Maybe [Tag]
trafficPercentageToMonitor :: Monitor -> Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
    = Monitor {tags :: Maybe [Tag]
tags = [Tag] -> Maybe [Tag]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [Tag]
PropertyType "Tags" Monitor
newValue, Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
trafficPercentageToMonitor :: Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
instance Property "TrafficPercentageToMonitor" Monitor where
  type PropertyType "TrafficPercentageToMonitor" Monitor = Value Prelude.Integer
  set :: PropertyType "TrafficPercentageToMonitor" Monitor
-> Monitor -> Monitor
set PropertyType "TrafficPercentageToMonitor" Monitor
newValue Monitor {Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: Monitor -> ()
healthEventsConfig :: Monitor -> Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Monitor -> Maybe (Value Bool)
internetMeasurementsLogDelivery :: Monitor -> Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Monitor -> Maybe (Value Text)
maxCityNetworksToMonitor :: Monitor -> Maybe (Value Integer)
monitorName :: Monitor -> Value Text
resources :: Monitor -> Maybe (ValueList Text)
resourcesToAdd :: Monitor -> Maybe (ValueList Text)
resourcesToRemove :: Monitor -> Maybe (ValueList Text)
status :: Monitor -> Maybe (Value Text)
tags :: Monitor -> Maybe [Tag]
trafficPercentageToMonitor :: Monitor -> Maybe (Value Integer)
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
trafficPercentageToMonitor :: Maybe (Value Integer)
..}
    = Monitor {trafficPercentageToMonitor :: Maybe (Value Integer)
trafficPercentageToMonitor = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TrafficPercentageToMonitor" Monitor
Value Integer
newValue, Maybe [Tag]
Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe HealthEventsConfigProperty
Maybe InternetMeasurementsLogDeliveryProperty
()
Value Text
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
haddock_workaround_ :: ()
healthEventsConfig :: Maybe HealthEventsConfigProperty
includeLinkedAccounts :: Maybe (Value Bool)
internetMeasurementsLogDelivery :: Maybe InternetMeasurementsLogDeliveryProperty
linkedAccountId :: Maybe (Value Text)
maxCityNetworksToMonitor :: Maybe (Value Integer)
monitorName :: Value Text
resources :: Maybe (ValueList Text)
resourcesToAdd :: Maybe (ValueList Text)
resourcesToRemove :: Maybe (ValueList Text)
status :: Maybe (Value Text)
tags :: Maybe [Tag]
..}