module Stratosphere.B2BI.Partnership.OutboundEdiOptionsProperty (
module Exports, OutboundEdiOptionsProperty(..),
mkOutboundEdiOptionsProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.B2BI.Partnership.X12EnvelopeProperty as Exports
import Stratosphere.ResourceProperties
data OutboundEdiOptionsProperty
=
OutboundEdiOptionsProperty {OutboundEdiOptionsProperty -> ()
haddock_workaround_ :: (),
OutboundEdiOptionsProperty -> X12EnvelopeProperty
x12 :: X12EnvelopeProperty}
deriving stock (OutboundEdiOptionsProperty -> OutboundEdiOptionsProperty -> Bool
(OutboundEdiOptionsProperty -> OutboundEdiOptionsProperty -> Bool)
-> (OutboundEdiOptionsProperty
-> OutboundEdiOptionsProperty -> Bool)
-> Eq OutboundEdiOptionsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: OutboundEdiOptionsProperty -> OutboundEdiOptionsProperty -> Bool
== :: OutboundEdiOptionsProperty -> OutboundEdiOptionsProperty -> Bool
$c/= :: OutboundEdiOptionsProperty -> OutboundEdiOptionsProperty -> Bool
/= :: OutboundEdiOptionsProperty -> OutboundEdiOptionsProperty -> Bool
Prelude.Eq, Int -> OutboundEdiOptionsProperty -> ShowS
[OutboundEdiOptionsProperty] -> ShowS
OutboundEdiOptionsProperty -> String
(Int -> OutboundEdiOptionsProperty -> ShowS)
-> (OutboundEdiOptionsProperty -> String)
-> ([OutboundEdiOptionsProperty] -> ShowS)
-> Show OutboundEdiOptionsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> OutboundEdiOptionsProperty -> ShowS
showsPrec :: Int -> OutboundEdiOptionsProperty -> ShowS
$cshow :: OutboundEdiOptionsProperty -> String
show :: OutboundEdiOptionsProperty -> String
$cshowList :: [OutboundEdiOptionsProperty] -> ShowS
showList :: [OutboundEdiOptionsProperty] -> ShowS
Prelude.Show)
mkOutboundEdiOptionsProperty ::
X12EnvelopeProperty -> OutboundEdiOptionsProperty
mkOutboundEdiOptionsProperty :: X12EnvelopeProperty -> OutboundEdiOptionsProperty
mkOutboundEdiOptionsProperty X12EnvelopeProperty
x12
= OutboundEdiOptionsProperty {haddock_workaround_ :: ()
haddock_workaround_ = (), x12 :: X12EnvelopeProperty
x12 = X12EnvelopeProperty
x12}
instance ToResourceProperties OutboundEdiOptionsProperty where
toResourceProperties :: OutboundEdiOptionsProperty -> ResourceProperties
toResourceProperties OutboundEdiOptionsProperty {()
X12EnvelopeProperty
haddock_workaround_ :: OutboundEdiOptionsProperty -> ()
x12 :: OutboundEdiOptionsProperty -> X12EnvelopeProperty
haddock_workaround_ :: ()
x12 :: X12EnvelopeProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::B2BI::Partnership.OutboundEdiOptions",
supportsTags :: Bool
supportsTags = Bool
Prelude.False, properties :: Object
properties = [Key
"X12" Key -> X12EnvelopeProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= X12EnvelopeProperty
x12]}
instance JSON.ToJSON OutboundEdiOptionsProperty where
toJSON :: OutboundEdiOptionsProperty -> Value
toJSON OutboundEdiOptionsProperty {()
X12EnvelopeProperty
haddock_workaround_ :: OutboundEdiOptionsProperty -> ()
x12 :: OutboundEdiOptionsProperty -> X12EnvelopeProperty
haddock_workaround_ :: ()
x12 :: X12EnvelopeProperty
..}
= [(Key, Value)] -> Value
JSON.object [Key
"X12" Key -> X12EnvelopeProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= X12EnvelopeProperty
x12]
instance Property "X12" OutboundEdiOptionsProperty where
type PropertyType "X12" OutboundEdiOptionsProperty = X12EnvelopeProperty
set :: PropertyType "X12" OutboundEdiOptionsProperty
-> OutboundEdiOptionsProperty -> OutboundEdiOptionsProperty
set PropertyType "X12" OutboundEdiOptionsProperty
newValue OutboundEdiOptionsProperty {()
X12EnvelopeProperty
haddock_workaround_ :: OutboundEdiOptionsProperty -> ()
x12 :: OutboundEdiOptionsProperty -> X12EnvelopeProperty
haddock_workaround_ :: ()
x12 :: X12EnvelopeProperty
..}
= OutboundEdiOptionsProperty {x12 :: X12EnvelopeProperty
x12 = PropertyType "X12" OutboundEdiOptionsProperty
X12EnvelopeProperty
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}