module Stratosphere.CustomerProfiles.Integration.TaskPropertiesMapProperty (
        TaskPropertiesMapProperty(..), mkTaskPropertiesMapProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data TaskPropertiesMapProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-customerprofiles-integration-taskpropertiesmap.html>
    TaskPropertiesMapProperty {TaskPropertiesMapProperty -> ()
haddock_workaround_ :: (),
                               -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-customerprofiles-integration-taskpropertiesmap.html#cfn-customerprofiles-integration-taskpropertiesmap-operatorpropertykey>
                               TaskPropertiesMapProperty -> Value Text
operatorPropertyKey :: (Value Prelude.Text),
                               -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-customerprofiles-integration-taskpropertiesmap.html#cfn-customerprofiles-integration-taskpropertiesmap-property>
                               TaskPropertiesMapProperty -> Value Text
property :: (Value Prelude.Text)}
  deriving stock (TaskPropertiesMapProperty -> TaskPropertiesMapProperty -> Bool
(TaskPropertiesMapProperty -> TaskPropertiesMapProperty -> Bool)
-> (TaskPropertiesMapProperty -> TaskPropertiesMapProperty -> Bool)
-> Eq TaskPropertiesMapProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TaskPropertiesMapProperty -> TaskPropertiesMapProperty -> Bool
== :: TaskPropertiesMapProperty -> TaskPropertiesMapProperty -> Bool
$c/= :: TaskPropertiesMapProperty -> TaskPropertiesMapProperty -> Bool
/= :: TaskPropertiesMapProperty -> TaskPropertiesMapProperty -> Bool
Prelude.Eq, Int -> TaskPropertiesMapProperty -> ShowS
[TaskPropertiesMapProperty] -> ShowS
TaskPropertiesMapProperty -> String
(Int -> TaskPropertiesMapProperty -> ShowS)
-> (TaskPropertiesMapProperty -> String)
-> ([TaskPropertiesMapProperty] -> ShowS)
-> Show TaskPropertiesMapProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TaskPropertiesMapProperty -> ShowS
showsPrec :: Int -> TaskPropertiesMapProperty -> ShowS
$cshow :: TaskPropertiesMapProperty -> String
show :: TaskPropertiesMapProperty -> String
$cshowList :: [TaskPropertiesMapProperty] -> ShowS
showList :: [TaskPropertiesMapProperty] -> ShowS
Prelude.Show)
mkTaskPropertiesMapProperty ::
  Value Prelude.Text
  -> Value Prelude.Text -> TaskPropertiesMapProperty
mkTaskPropertiesMapProperty :: Value Text -> Value Text -> TaskPropertiesMapProperty
mkTaskPropertiesMapProperty Value Text
operatorPropertyKey Value Text
property
  = TaskPropertiesMapProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (),
       operatorPropertyKey :: Value Text
operatorPropertyKey = Value Text
operatorPropertyKey, property :: Value Text
property = Value Text
property}
instance ToResourceProperties TaskPropertiesMapProperty where
  toResourceProperties :: TaskPropertiesMapProperty -> ResourceProperties
toResourceProperties TaskPropertiesMapProperty {()
Value Text
haddock_workaround_ :: TaskPropertiesMapProperty -> ()
operatorPropertyKey :: TaskPropertiesMapProperty -> Value Text
property :: TaskPropertiesMapProperty -> Value Text
haddock_workaround_ :: ()
operatorPropertyKey :: Value Text
property :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::CustomerProfiles::Integration.TaskPropertiesMap",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"OperatorPropertyKey" 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
operatorPropertyKey,
                       Key
"Property" 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
property]}
instance JSON.ToJSON TaskPropertiesMapProperty where
  toJSON :: TaskPropertiesMapProperty -> Value
toJSON TaskPropertiesMapProperty {()
Value Text
haddock_workaround_ :: TaskPropertiesMapProperty -> ()
operatorPropertyKey :: TaskPropertiesMapProperty -> Value Text
property :: TaskPropertiesMapProperty -> Value Text
haddock_workaround_ :: ()
operatorPropertyKey :: Value Text
property :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"OperatorPropertyKey" 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
operatorPropertyKey,
         Key
"Property" 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
property]
instance Property "OperatorPropertyKey" TaskPropertiesMapProperty where
  type PropertyType "OperatorPropertyKey" TaskPropertiesMapProperty = Value Prelude.Text
  set :: PropertyType "OperatorPropertyKey" TaskPropertiesMapProperty
-> TaskPropertiesMapProperty -> TaskPropertiesMapProperty
set PropertyType "OperatorPropertyKey" TaskPropertiesMapProperty
newValue TaskPropertiesMapProperty {()
Value Text
haddock_workaround_ :: TaskPropertiesMapProperty -> ()
operatorPropertyKey :: TaskPropertiesMapProperty -> Value Text
property :: TaskPropertiesMapProperty -> Value Text
haddock_workaround_ :: ()
operatorPropertyKey :: Value Text
property :: Value Text
..}
    = TaskPropertiesMapProperty {operatorPropertyKey :: Value Text
operatorPropertyKey = PropertyType "OperatorPropertyKey" TaskPropertiesMapProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
property :: Value Text
haddock_workaround_ :: ()
property :: Value Text
..}
instance Property "Property" TaskPropertiesMapProperty where
  type PropertyType "Property" TaskPropertiesMapProperty = Value Prelude.Text
  set :: PropertyType "Property" TaskPropertiesMapProperty
-> TaskPropertiesMapProperty -> TaskPropertiesMapProperty
set PropertyType "Property" TaskPropertiesMapProperty
newValue TaskPropertiesMapProperty {()
Value Text
haddock_workaround_ :: TaskPropertiesMapProperty -> ()
operatorPropertyKey :: TaskPropertiesMapProperty -> Value Text
property :: TaskPropertiesMapProperty -> Value Text
haddock_workaround_ :: ()
operatorPropertyKey :: Value Text
property :: Value Text
..}
    = TaskPropertiesMapProperty {property :: Value Text
property = PropertyType "Property" TaskPropertiesMapProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
operatorPropertyKey :: Value Text
haddock_workaround_ :: ()
operatorPropertyKey :: Value Text
..}