module Stratosphere.Connect.EvaluationForm.EvaluationFormNumericQuestionAutomationProperty (
        module Exports,
        EvaluationFormNumericQuestionAutomationProperty(..),
        mkEvaluationFormNumericQuestionAutomationProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Connect.EvaluationForm.EvaluationFormQuestionAutomationAnswerSourceProperty as Exports
import {-# SOURCE #-} Stratosphere.Connect.EvaluationForm.NumericQuestionPropertyValueAutomationProperty as Exports
import Stratosphere.ResourceProperties
data EvaluationFormNumericQuestionAutomationProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-connect-evaluationform-evaluationformnumericquestionautomation.html>
    EvaluationFormNumericQuestionAutomationProperty {EvaluationFormNumericQuestionAutomationProperty -> ()
haddock_workaround_ :: (),
                                                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-connect-evaluationform-evaluationformnumericquestionautomation.html#cfn-connect-evaluationform-evaluationformnumericquestionautomation-answersource>
                                                     EvaluationFormNumericQuestionAutomationProperty
-> Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
answerSource :: (Prelude.Maybe EvaluationFormQuestionAutomationAnswerSourceProperty),
                                                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-connect-evaluationform-evaluationformnumericquestionautomation.html#cfn-connect-evaluationform-evaluationformnumericquestionautomation-propertyvalue>
                                                     EvaluationFormNumericQuestionAutomationProperty
-> Maybe NumericQuestionPropertyValueAutomationProperty
propertyValue :: (Prelude.Maybe NumericQuestionPropertyValueAutomationProperty)}
  deriving stock (EvaluationFormNumericQuestionAutomationProperty
-> EvaluationFormNumericQuestionAutomationProperty -> Bool
(EvaluationFormNumericQuestionAutomationProperty
 -> EvaluationFormNumericQuestionAutomationProperty -> Bool)
-> (EvaluationFormNumericQuestionAutomationProperty
    -> EvaluationFormNumericQuestionAutomationProperty -> Bool)
-> Eq EvaluationFormNumericQuestionAutomationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EvaluationFormNumericQuestionAutomationProperty
-> EvaluationFormNumericQuestionAutomationProperty -> Bool
== :: EvaluationFormNumericQuestionAutomationProperty
-> EvaluationFormNumericQuestionAutomationProperty -> Bool
$c/= :: EvaluationFormNumericQuestionAutomationProperty
-> EvaluationFormNumericQuestionAutomationProperty -> Bool
/= :: EvaluationFormNumericQuestionAutomationProperty
-> EvaluationFormNumericQuestionAutomationProperty -> Bool
Prelude.Eq, Int -> EvaluationFormNumericQuestionAutomationProperty -> ShowS
[EvaluationFormNumericQuestionAutomationProperty] -> ShowS
EvaluationFormNumericQuestionAutomationProperty -> String
(Int -> EvaluationFormNumericQuestionAutomationProperty -> ShowS)
-> (EvaluationFormNumericQuestionAutomationProperty -> String)
-> ([EvaluationFormNumericQuestionAutomationProperty] -> ShowS)
-> Show EvaluationFormNumericQuestionAutomationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> EvaluationFormNumericQuestionAutomationProperty -> ShowS
showsPrec :: Int -> EvaluationFormNumericQuestionAutomationProperty -> ShowS
$cshow :: EvaluationFormNumericQuestionAutomationProperty -> String
show :: EvaluationFormNumericQuestionAutomationProperty -> String
$cshowList :: [EvaluationFormNumericQuestionAutomationProperty] -> ShowS
showList :: [EvaluationFormNumericQuestionAutomationProperty] -> ShowS
Prelude.Show)
mkEvaluationFormNumericQuestionAutomationProperty ::
  EvaluationFormNumericQuestionAutomationProperty
mkEvaluationFormNumericQuestionAutomationProperty :: EvaluationFormNumericQuestionAutomationProperty
mkEvaluationFormNumericQuestionAutomationProperty
  = EvaluationFormNumericQuestionAutomationProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), answerSource :: Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
answerSource = Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
forall a. Maybe a
Prelude.Nothing,
       propertyValue :: Maybe NumericQuestionPropertyValueAutomationProperty
propertyValue = Maybe NumericQuestionPropertyValueAutomationProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties EvaluationFormNumericQuestionAutomationProperty where
  toResourceProperties :: EvaluationFormNumericQuestionAutomationProperty
-> ResourceProperties
toResourceProperties
    EvaluationFormNumericQuestionAutomationProperty {Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
Maybe NumericQuestionPropertyValueAutomationProperty
()
haddock_workaround_ :: EvaluationFormNumericQuestionAutomationProperty -> ()
answerSource :: EvaluationFormNumericQuestionAutomationProperty
-> Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
propertyValue :: EvaluationFormNumericQuestionAutomationProperty
-> Maybe NumericQuestionPropertyValueAutomationProperty
haddock_workaround_ :: ()
answerSource :: Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
propertyValue :: Maybe NumericQuestionPropertyValueAutomationProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Connect::EvaluationForm.EvaluationFormNumericQuestionAutomation",
         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
-> EvaluationFormQuestionAutomationAnswerSourceProperty
-> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AnswerSource" (EvaluationFormQuestionAutomationAnswerSourceProperty
 -> (Key, Value))
-> Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
answerSource,
                            Key
-> NumericQuestionPropertyValueAutomationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PropertyValue" (NumericQuestionPropertyValueAutomationProperty -> (Key, Value))
-> Maybe NumericQuestionPropertyValueAutomationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe NumericQuestionPropertyValueAutomationProperty
propertyValue])}
instance JSON.ToJSON EvaluationFormNumericQuestionAutomationProperty where
  toJSON :: EvaluationFormNumericQuestionAutomationProperty -> Value
toJSON EvaluationFormNumericQuestionAutomationProperty {Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
Maybe NumericQuestionPropertyValueAutomationProperty
()
haddock_workaround_ :: EvaluationFormNumericQuestionAutomationProperty -> ()
answerSource :: EvaluationFormNumericQuestionAutomationProperty
-> Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
propertyValue :: EvaluationFormNumericQuestionAutomationProperty
-> Maybe NumericQuestionPropertyValueAutomationProperty
haddock_workaround_ :: ()
answerSource :: Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
propertyValue :: Maybe NumericQuestionPropertyValueAutomationProperty
..}
    = [(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
-> EvaluationFormQuestionAutomationAnswerSourceProperty
-> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AnswerSource" (EvaluationFormQuestionAutomationAnswerSourceProperty
 -> (Key, Value))
-> Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
answerSource,
               Key
-> NumericQuestionPropertyValueAutomationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PropertyValue" (NumericQuestionPropertyValueAutomationProperty -> (Key, Value))
-> Maybe NumericQuestionPropertyValueAutomationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe NumericQuestionPropertyValueAutomationProperty
propertyValue]))
instance Property "AnswerSource" EvaluationFormNumericQuestionAutomationProperty where
  type PropertyType "AnswerSource" EvaluationFormNumericQuestionAutomationProperty = EvaluationFormQuestionAutomationAnswerSourceProperty
  set :: PropertyType
  "AnswerSource" EvaluationFormNumericQuestionAutomationProperty
-> EvaluationFormNumericQuestionAutomationProperty
-> EvaluationFormNumericQuestionAutomationProperty
set PropertyType
  "AnswerSource" EvaluationFormNumericQuestionAutomationProperty
newValue EvaluationFormNumericQuestionAutomationProperty {Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
Maybe NumericQuestionPropertyValueAutomationProperty
()
haddock_workaround_ :: EvaluationFormNumericQuestionAutomationProperty -> ()
answerSource :: EvaluationFormNumericQuestionAutomationProperty
-> Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
propertyValue :: EvaluationFormNumericQuestionAutomationProperty
-> Maybe NumericQuestionPropertyValueAutomationProperty
haddock_workaround_ :: ()
answerSource :: Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
propertyValue :: Maybe NumericQuestionPropertyValueAutomationProperty
..}
    = EvaluationFormNumericQuestionAutomationProperty
        {answerSource :: Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
answerSource = EvaluationFormQuestionAutomationAnswerSourceProperty
-> Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "AnswerSource" EvaluationFormNumericQuestionAutomationProperty
EvaluationFormQuestionAutomationAnswerSourceProperty
newValue, Maybe NumericQuestionPropertyValueAutomationProperty
()
haddock_workaround_ :: ()
propertyValue :: Maybe NumericQuestionPropertyValueAutomationProperty
haddock_workaround_ :: ()
propertyValue :: Maybe NumericQuestionPropertyValueAutomationProperty
..}
instance Property "PropertyValue" EvaluationFormNumericQuestionAutomationProperty where
  type PropertyType "PropertyValue" EvaluationFormNumericQuestionAutomationProperty = NumericQuestionPropertyValueAutomationProperty
  set :: PropertyType
  "PropertyValue" EvaluationFormNumericQuestionAutomationProperty
-> EvaluationFormNumericQuestionAutomationProperty
-> EvaluationFormNumericQuestionAutomationProperty
set PropertyType
  "PropertyValue" EvaluationFormNumericQuestionAutomationProperty
newValue EvaluationFormNumericQuestionAutomationProperty {Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
Maybe NumericQuestionPropertyValueAutomationProperty
()
haddock_workaround_ :: EvaluationFormNumericQuestionAutomationProperty -> ()
answerSource :: EvaluationFormNumericQuestionAutomationProperty
-> Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
propertyValue :: EvaluationFormNumericQuestionAutomationProperty
-> Maybe NumericQuestionPropertyValueAutomationProperty
haddock_workaround_ :: ()
answerSource :: Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
propertyValue :: Maybe NumericQuestionPropertyValueAutomationProperty
..}
    = EvaluationFormNumericQuestionAutomationProperty
        {propertyValue :: Maybe NumericQuestionPropertyValueAutomationProperty
propertyValue = NumericQuestionPropertyValueAutomationProperty
-> Maybe NumericQuestionPropertyValueAutomationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "PropertyValue" EvaluationFormNumericQuestionAutomationProperty
NumericQuestionPropertyValueAutomationProperty
newValue, Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
()
haddock_workaround_ :: ()
answerSource :: Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
haddock_workaround_ :: ()
answerSource :: Maybe EvaluationFormQuestionAutomationAnswerSourceProperty
..}