module Stratosphere.Pinpoint.Segment.DemographicProperty (
        module Exports, DemographicProperty(..), mkDemographicProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Pinpoint.Segment.SetDimensionProperty as Exports
import Stratosphere.ResourceProperties
data DemographicProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html>
    DemographicProperty {DemographicProperty -> ()
haddock_workaround_ :: (),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-appversion>
                         DemographicProperty -> Maybe SetDimensionProperty
appVersion :: (Prelude.Maybe SetDimensionProperty),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-channel>
                         DemographicProperty -> Maybe SetDimensionProperty
channel :: (Prelude.Maybe SetDimensionProperty),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-devicetype>
                         DemographicProperty -> Maybe SetDimensionProperty
deviceType :: (Prelude.Maybe SetDimensionProperty),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-make>
                         DemographicProperty -> Maybe SetDimensionProperty
make :: (Prelude.Maybe SetDimensionProperty),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-model>
                         DemographicProperty -> Maybe SetDimensionProperty
model :: (Prelude.Maybe SetDimensionProperty),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-platform>
                         DemographicProperty -> Maybe SetDimensionProperty
platform :: (Prelude.Maybe SetDimensionProperty)}
  deriving stock (DemographicProperty -> DemographicProperty -> Bool
(DemographicProperty -> DemographicProperty -> Bool)
-> (DemographicProperty -> DemographicProperty -> Bool)
-> Eq DemographicProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DemographicProperty -> DemographicProperty -> Bool
== :: DemographicProperty -> DemographicProperty -> Bool
$c/= :: DemographicProperty -> DemographicProperty -> Bool
/= :: DemographicProperty -> DemographicProperty -> Bool
Prelude.Eq, Int -> DemographicProperty -> ShowS
[DemographicProperty] -> ShowS
DemographicProperty -> String
(Int -> DemographicProperty -> ShowS)
-> (DemographicProperty -> String)
-> ([DemographicProperty] -> ShowS)
-> Show DemographicProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DemographicProperty -> ShowS
showsPrec :: Int -> DemographicProperty -> ShowS
$cshow :: DemographicProperty -> String
show :: DemographicProperty -> String
$cshowList :: [DemographicProperty] -> ShowS
showList :: [DemographicProperty] -> ShowS
Prelude.Show)
mkDemographicProperty :: DemographicProperty
mkDemographicProperty :: DemographicProperty
mkDemographicProperty
  = DemographicProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), appVersion :: Maybe SetDimensionProperty
appVersion = Maybe SetDimensionProperty
forall a. Maybe a
Prelude.Nothing,
       channel :: Maybe SetDimensionProperty
channel = Maybe SetDimensionProperty
forall a. Maybe a
Prelude.Nothing, deviceType :: Maybe SetDimensionProperty
deviceType = Maybe SetDimensionProperty
forall a. Maybe a
Prelude.Nothing,
       make :: Maybe SetDimensionProperty
make = Maybe SetDimensionProperty
forall a. Maybe a
Prelude.Nothing, model :: Maybe SetDimensionProperty
model = Maybe SetDimensionProperty
forall a. Maybe a
Prelude.Nothing,
       platform :: Maybe SetDimensionProperty
platform = Maybe SetDimensionProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties DemographicProperty where
  toResourceProperties :: DemographicProperty -> ResourceProperties
toResourceProperties DemographicProperty {Maybe SetDimensionProperty
()
haddock_workaround_ :: DemographicProperty -> ()
appVersion :: DemographicProperty -> Maybe SetDimensionProperty
channel :: DemographicProperty -> Maybe SetDimensionProperty
deviceType :: DemographicProperty -> Maybe SetDimensionProperty
make :: DemographicProperty -> Maybe SetDimensionProperty
model :: DemographicProperty -> Maybe SetDimensionProperty
platform :: DemographicProperty -> Maybe SetDimensionProperty
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
channel :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Pinpoint::Segment.Demographic",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [Key -> SetDimensionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AppVersion" (SetDimensionProperty -> (Key, Value))
-> Maybe SetDimensionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SetDimensionProperty
appVersion,
                            Key -> SetDimensionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Channel" (SetDimensionProperty -> (Key, Value))
-> Maybe SetDimensionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SetDimensionProperty
channel,
                            Key -> SetDimensionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DeviceType" (SetDimensionProperty -> (Key, Value))
-> Maybe SetDimensionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SetDimensionProperty
deviceType,
                            Key -> SetDimensionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Make" (SetDimensionProperty -> (Key, Value))
-> Maybe SetDimensionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SetDimensionProperty
make,
                            Key -> SetDimensionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Model" (SetDimensionProperty -> (Key, Value))
-> Maybe SetDimensionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SetDimensionProperty
model,
                            Key -> SetDimensionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Platform" (SetDimensionProperty -> (Key, Value))
-> Maybe SetDimensionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SetDimensionProperty
platform])}
instance JSON.ToJSON DemographicProperty where
  toJSON :: DemographicProperty -> Value
toJSON DemographicProperty {Maybe SetDimensionProperty
()
haddock_workaround_ :: DemographicProperty -> ()
appVersion :: DemographicProperty -> Maybe SetDimensionProperty
channel :: DemographicProperty -> Maybe SetDimensionProperty
deviceType :: DemographicProperty -> Maybe SetDimensionProperty
make :: DemographicProperty -> Maybe SetDimensionProperty
model :: DemographicProperty -> Maybe SetDimensionProperty
platform :: DemographicProperty -> Maybe SetDimensionProperty
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
channel :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [Key -> SetDimensionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AppVersion" (SetDimensionProperty -> (Key, Value))
-> Maybe SetDimensionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SetDimensionProperty
appVersion,
               Key -> SetDimensionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Channel" (SetDimensionProperty -> (Key, Value))
-> Maybe SetDimensionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SetDimensionProperty
channel,
               Key -> SetDimensionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DeviceType" (SetDimensionProperty -> (Key, Value))
-> Maybe SetDimensionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SetDimensionProperty
deviceType,
               Key -> SetDimensionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Make" (SetDimensionProperty -> (Key, Value))
-> Maybe SetDimensionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SetDimensionProperty
make,
               Key -> SetDimensionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Model" (SetDimensionProperty -> (Key, Value))
-> Maybe SetDimensionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SetDimensionProperty
model,
               Key -> SetDimensionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Platform" (SetDimensionProperty -> (Key, Value))
-> Maybe SetDimensionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SetDimensionProperty
platform]))
instance Property "AppVersion" DemographicProperty where
  type PropertyType "AppVersion" DemographicProperty = SetDimensionProperty
  set :: PropertyType "AppVersion" DemographicProperty
-> DemographicProperty -> DemographicProperty
set PropertyType "AppVersion" DemographicProperty
newValue DemographicProperty {Maybe SetDimensionProperty
()
haddock_workaround_ :: DemographicProperty -> ()
appVersion :: DemographicProperty -> Maybe SetDimensionProperty
channel :: DemographicProperty -> Maybe SetDimensionProperty
deviceType :: DemographicProperty -> Maybe SetDimensionProperty
make :: DemographicProperty -> Maybe SetDimensionProperty
model :: DemographicProperty -> Maybe SetDimensionProperty
platform :: DemographicProperty -> Maybe SetDimensionProperty
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
channel :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
..}
    = DemographicProperty {appVersion :: Maybe SetDimensionProperty
appVersion = SetDimensionProperty -> Maybe SetDimensionProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AppVersion" DemographicProperty
SetDimensionProperty
newValue, Maybe SetDimensionProperty
()
haddock_workaround_ :: ()
channel :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
haddock_workaround_ :: ()
channel :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
..}
instance Property "Channel" DemographicProperty where
  type PropertyType "Channel" DemographicProperty = SetDimensionProperty
  set :: PropertyType "Channel" DemographicProperty
-> DemographicProperty -> DemographicProperty
set PropertyType "Channel" DemographicProperty
newValue DemographicProperty {Maybe SetDimensionProperty
()
haddock_workaround_ :: DemographicProperty -> ()
appVersion :: DemographicProperty -> Maybe SetDimensionProperty
channel :: DemographicProperty -> Maybe SetDimensionProperty
deviceType :: DemographicProperty -> Maybe SetDimensionProperty
make :: DemographicProperty -> Maybe SetDimensionProperty
model :: DemographicProperty -> Maybe SetDimensionProperty
platform :: DemographicProperty -> Maybe SetDimensionProperty
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
channel :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
..}
    = DemographicProperty {channel :: Maybe SetDimensionProperty
channel = SetDimensionProperty -> Maybe SetDimensionProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Channel" DemographicProperty
SetDimensionProperty
newValue, Maybe SetDimensionProperty
()
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
..}
instance Property "DeviceType" DemographicProperty where
  type PropertyType "DeviceType" DemographicProperty = SetDimensionProperty
  set :: PropertyType "DeviceType" DemographicProperty
-> DemographicProperty -> DemographicProperty
set PropertyType "DeviceType" DemographicProperty
newValue DemographicProperty {Maybe SetDimensionProperty
()
haddock_workaround_ :: DemographicProperty -> ()
appVersion :: DemographicProperty -> Maybe SetDimensionProperty
channel :: DemographicProperty -> Maybe SetDimensionProperty
deviceType :: DemographicProperty -> Maybe SetDimensionProperty
make :: DemographicProperty -> Maybe SetDimensionProperty
model :: DemographicProperty -> Maybe SetDimensionProperty
platform :: DemographicProperty -> Maybe SetDimensionProperty
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
channel :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
..}
    = DemographicProperty {deviceType :: Maybe SetDimensionProperty
deviceType = SetDimensionProperty -> Maybe SetDimensionProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "DeviceType" DemographicProperty
SetDimensionProperty
newValue, Maybe SetDimensionProperty
()
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
channel :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
channel :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
..}
instance Property "Make" DemographicProperty where
  type PropertyType "Make" DemographicProperty = SetDimensionProperty
  set :: PropertyType "Make" DemographicProperty
-> DemographicProperty -> DemographicProperty
set PropertyType "Make" DemographicProperty
newValue DemographicProperty {Maybe SetDimensionProperty
()
haddock_workaround_ :: DemographicProperty -> ()
appVersion :: DemographicProperty -> Maybe SetDimensionProperty
channel :: DemographicProperty -> Maybe SetDimensionProperty
deviceType :: DemographicProperty -> Maybe SetDimensionProperty
make :: DemographicProperty -> Maybe SetDimensionProperty
model :: DemographicProperty -> Maybe SetDimensionProperty
platform :: DemographicProperty -> Maybe SetDimensionProperty
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
channel :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
..}
    = DemographicProperty {make :: Maybe SetDimensionProperty
make = SetDimensionProperty -> Maybe SetDimensionProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Make" DemographicProperty
SetDimensionProperty
newValue, Maybe SetDimensionProperty
()
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
channel :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
channel :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
..}
instance Property "Model" DemographicProperty where
  type PropertyType "Model" DemographicProperty = SetDimensionProperty
  set :: PropertyType "Model" DemographicProperty
-> DemographicProperty -> DemographicProperty
set PropertyType "Model" DemographicProperty
newValue DemographicProperty {Maybe SetDimensionProperty
()
haddock_workaround_ :: DemographicProperty -> ()
appVersion :: DemographicProperty -> Maybe SetDimensionProperty
channel :: DemographicProperty -> Maybe SetDimensionProperty
deviceType :: DemographicProperty -> Maybe SetDimensionProperty
make :: DemographicProperty -> Maybe SetDimensionProperty
model :: DemographicProperty -> Maybe SetDimensionProperty
platform :: DemographicProperty -> Maybe SetDimensionProperty
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
channel :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
..}
    = DemographicProperty {model :: Maybe SetDimensionProperty
model = SetDimensionProperty -> Maybe SetDimensionProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Model" DemographicProperty
SetDimensionProperty
newValue, Maybe SetDimensionProperty
()
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
channel :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
channel :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
..}
instance Property "Platform" DemographicProperty where
  type PropertyType "Platform" DemographicProperty = SetDimensionProperty
  set :: PropertyType "Platform" DemographicProperty
-> DemographicProperty -> DemographicProperty
set PropertyType "Platform" DemographicProperty
newValue DemographicProperty {Maybe SetDimensionProperty
()
haddock_workaround_ :: DemographicProperty -> ()
appVersion :: DemographicProperty -> Maybe SetDimensionProperty
channel :: DemographicProperty -> Maybe SetDimensionProperty
deviceType :: DemographicProperty -> Maybe SetDimensionProperty
make :: DemographicProperty -> Maybe SetDimensionProperty
model :: DemographicProperty -> Maybe SetDimensionProperty
platform :: DemographicProperty -> Maybe SetDimensionProperty
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
channel :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
platform :: Maybe SetDimensionProperty
..}
    = DemographicProperty {platform :: Maybe SetDimensionProperty
platform = SetDimensionProperty -> Maybe SetDimensionProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Platform" DemographicProperty
SetDimensionProperty
newValue, Maybe SetDimensionProperty
()
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
channel :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
haddock_workaround_ :: ()
appVersion :: Maybe SetDimensionProperty
channel :: Maybe SetDimensionProperty
deviceType :: Maybe SetDimensionProperty
make :: Maybe SetDimensionProperty
model :: Maybe SetDimensionProperty
..}