module Stratosphere.B2BI.Partnership.X12AcknowledgmentOptionsProperty (
        X12AcknowledgmentOptionsProperty(..),
        mkX12AcknowledgmentOptionsProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data X12AcknowledgmentOptionsProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-b2bi-partnership-x12acknowledgmentoptions.html>
    X12AcknowledgmentOptionsProperty {X12AcknowledgmentOptionsProperty -> ()
haddock_workaround_ :: (),
                                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-b2bi-partnership-x12acknowledgmentoptions.html#cfn-b2bi-partnership-x12acknowledgmentoptions-functionalacknowledgment>
                                      X12AcknowledgmentOptionsProperty -> Value Text
functionalAcknowledgment :: (Value Prelude.Text),
                                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-b2bi-partnership-x12acknowledgmentoptions.html#cfn-b2bi-partnership-x12acknowledgmentoptions-technicalacknowledgment>
                                      X12AcknowledgmentOptionsProperty -> Value Text
technicalAcknowledgment :: (Value Prelude.Text)}
  deriving stock (X12AcknowledgmentOptionsProperty
-> X12AcknowledgmentOptionsProperty -> Bool
(X12AcknowledgmentOptionsProperty
 -> X12AcknowledgmentOptionsProperty -> Bool)
-> (X12AcknowledgmentOptionsProperty
    -> X12AcknowledgmentOptionsProperty -> Bool)
-> Eq X12AcknowledgmentOptionsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: X12AcknowledgmentOptionsProperty
-> X12AcknowledgmentOptionsProperty -> Bool
== :: X12AcknowledgmentOptionsProperty
-> X12AcknowledgmentOptionsProperty -> Bool
$c/= :: X12AcknowledgmentOptionsProperty
-> X12AcknowledgmentOptionsProperty -> Bool
/= :: X12AcknowledgmentOptionsProperty
-> X12AcknowledgmentOptionsProperty -> Bool
Prelude.Eq, Int -> X12AcknowledgmentOptionsProperty -> ShowS
[X12AcknowledgmentOptionsProperty] -> ShowS
X12AcknowledgmentOptionsProperty -> String
(Int -> X12AcknowledgmentOptionsProperty -> ShowS)
-> (X12AcknowledgmentOptionsProperty -> String)
-> ([X12AcknowledgmentOptionsProperty] -> ShowS)
-> Show X12AcknowledgmentOptionsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> X12AcknowledgmentOptionsProperty -> ShowS
showsPrec :: Int -> X12AcknowledgmentOptionsProperty -> ShowS
$cshow :: X12AcknowledgmentOptionsProperty -> String
show :: X12AcknowledgmentOptionsProperty -> String
$cshowList :: [X12AcknowledgmentOptionsProperty] -> ShowS
showList :: [X12AcknowledgmentOptionsProperty] -> ShowS
Prelude.Show)
mkX12AcknowledgmentOptionsProperty ::
  Value Prelude.Text
  -> Value Prelude.Text -> X12AcknowledgmentOptionsProperty
mkX12AcknowledgmentOptionsProperty :: Value Text -> Value Text -> X12AcknowledgmentOptionsProperty
mkX12AcknowledgmentOptionsProperty
  Value Text
functionalAcknowledgment
  Value Text
technicalAcknowledgment
  = X12AcknowledgmentOptionsProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (),
       functionalAcknowledgment :: Value Text
functionalAcknowledgment = Value Text
functionalAcknowledgment,
       technicalAcknowledgment :: Value Text
technicalAcknowledgment = Value Text
technicalAcknowledgment}
instance ToResourceProperties X12AcknowledgmentOptionsProperty where
  toResourceProperties :: X12AcknowledgmentOptionsProperty -> ResourceProperties
toResourceProperties X12AcknowledgmentOptionsProperty {()
Value Text
haddock_workaround_ :: X12AcknowledgmentOptionsProperty -> ()
functionalAcknowledgment :: X12AcknowledgmentOptionsProperty -> Value Text
technicalAcknowledgment :: X12AcknowledgmentOptionsProperty -> Value Text
haddock_workaround_ :: ()
functionalAcknowledgment :: Value Text
technicalAcknowledgment :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::B2BI::Partnership.X12AcknowledgmentOptions",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"FunctionalAcknowledgment"
                         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
functionalAcknowledgment,
                       Key
"TechnicalAcknowledgment" 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
technicalAcknowledgment]}
instance JSON.ToJSON X12AcknowledgmentOptionsProperty where
  toJSON :: X12AcknowledgmentOptionsProperty -> Value
toJSON X12AcknowledgmentOptionsProperty {()
Value Text
haddock_workaround_ :: X12AcknowledgmentOptionsProperty -> ()
functionalAcknowledgment :: X12AcknowledgmentOptionsProperty -> Value Text
technicalAcknowledgment :: X12AcknowledgmentOptionsProperty -> Value Text
haddock_workaround_ :: ()
functionalAcknowledgment :: Value Text
technicalAcknowledgment :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"FunctionalAcknowledgment" 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
functionalAcknowledgment,
         Key
"TechnicalAcknowledgment" 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
technicalAcknowledgment]
instance Property "FunctionalAcknowledgment" X12AcknowledgmentOptionsProperty where
  type PropertyType "FunctionalAcknowledgment" X12AcknowledgmentOptionsProperty = Value Prelude.Text
  set :: PropertyType
  "FunctionalAcknowledgment" X12AcknowledgmentOptionsProperty
-> X12AcknowledgmentOptionsProperty
-> X12AcknowledgmentOptionsProperty
set PropertyType
  "FunctionalAcknowledgment" X12AcknowledgmentOptionsProperty
newValue X12AcknowledgmentOptionsProperty {()
Value Text
haddock_workaround_ :: X12AcknowledgmentOptionsProperty -> ()
functionalAcknowledgment :: X12AcknowledgmentOptionsProperty -> Value Text
technicalAcknowledgment :: X12AcknowledgmentOptionsProperty -> Value Text
haddock_workaround_ :: ()
functionalAcknowledgment :: Value Text
technicalAcknowledgment :: Value Text
..}
    = X12AcknowledgmentOptionsProperty
        {functionalAcknowledgment :: Value Text
functionalAcknowledgment = PropertyType
  "FunctionalAcknowledgment" X12AcknowledgmentOptionsProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
technicalAcknowledgment :: Value Text
haddock_workaround_ :: ()
technicalAcknowledgment :: Value Text
..}
instance Property "TechnicalAcknowledgment" X12AcknowledgmentOptionsProperty where
  type PropertyType "TechnicalAcknowledgment" X12AcknowledgmentOptionsProperty = Value Prelude.Text
  set :: PropertyType
  "TechnicalAcknowledgment" X12AcknowledgmentOptionsProperty
-> X12AcknowledgmentOptionsProperty
-> X12AcknowledgmentOptionsProperty
set PropertyType
  "TechnicalAcknowledgment" X12AcknowledgmentOptionsProperty
newValue X12AcknowledgmentOptionsProperty {()
Value Text
haddock_workaround_ :: X12AcknowledgmentOptionsProperty -> ()
functionalAcknowledgment :: X12AcknowledgmentOptionsProperty -> Value Text
technicalAcknowledgment :: X12AcknowledgmentOptionsProperty -> Value Text
haddock_workaround_ :: ()
functionalAcknowledgment :: Value Text
technicalAcknowledgment :: Value Text
..}
    = X12AcknowledgmentOptionsProperty
        {technicalAcknowledgment :: Value Text
technicalAcknowledgment = PropertyType
  "TechnicalAcknowledgment" X12AcknowledgmentOptionsProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
functionalAcknowledgment :: Value Text
haddock_workaround_ :: ()
functionalAcknowledgment :: Value Text
..}