module Stratosphere.B2BI.Transformer.X12AdvancedOptionsProperty (
        module Exports, X12AdvancedOptionsProperty(..),
        mkX12AdvancedOptionsProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.B2BI.Transformer.X12SplitOptionsProperty as Exports
import {-# SOURCE #-} Stratosphere.B2BI.Transformer.X12ValidationOptionsProperty as Exports
import Stratosphere.ResourceProperties
data X12AdvancedOptionsProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-b2bi-transformer-x12advancedoptions.html>
    X12AdvancedOptionsProperty {X12AdvancedOptionsProperty -> ()
haddock_workaround_ :: (),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-b2bi-transformer-x12advancedoptions.html#cfn-b2bi-transformer-x12advancedoptions-splitoptions>
                                X12AdvancedOptionsProperty -> Maybe X12SplitOptionsProperty
splitOptions :: (Prelude.Maybe X12SplitOptionsProperty),
                                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-b2bi-transformer-x12advancedoptions.html#cfn-b2bi-transformer-x12advancedoptions-validationoptions>
                                X12AdvancedOptionsProperty -> Maybe X12ValidationOptionsProperty
validationOptions :: (Prelude.Maybe X12ValidationOptionsProperty)}
  deriving stock (X12AdvancedOptionsProperty -> X12AdvancedOptionsProperty -> Bool
(X12AdvancedOptionsProperty -> X12AdvancedOptionsProperty -> Bool)
-> (X12AdvancedOptionsProperty
    -> X12AdvancedOptionsProperty -> Bool)
-> Eq X12AdvancedOptionsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: X12AdvancedOptionsProperty -> X12AdvancedOptionsProperty -> Bool
== :: X12AdvancedOptionsProperty -> X12AdvancedOptionsProperty -> Bool
$c/= :: X12AdvancedOptionsProperty -> X12AdvancedOptionsProperty -> Bool
/= :: X12AdvancedOptionsProperty -> X12AdvancedOptionsProperty -> Bool
Prelude.Eq, Int -> X12AdvancedOptionsProperty -> ShowS
[X12AdvancedOptionsProperty] -> ShowS
X12AdvancedOptionsProperty -> String
(Int -> X12AdvancedOptionsProperty -> ShowS)
-> (X12AdvancedOptionsProperty -> String)
-> ([X12AdvancedOptionsProperty] -> ShowS)
-> Show X12AdvancedOptionsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> X12AdvancedOptionsProperty -> ShowS
showsPrec :: Int -> X12AdvancedOptionsProperty -> ShowS
$cshow :: X12AdvancedOptionsProperty -> String
show :: X12AdvancedOptionsProperty -> String
$cshowList :: [X12AdvancedOptionsProperty] -> ShowS
showList :: [X12AdvancedOptionsProperty] -> ShowS
Prelude.Show)
mkX12AdvancedOptionsProperty :: X12AdvancedOptionsProperty
mkX12AdvancedOptionsProperty :: X12AdvancedOptionsProperty
mkX12AdvancedOptionsProperty
  = X12AdvancedOptionsProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), splitOptions :: Maybe X12SplitOptionsProperty
splitOptions = Maybe X12SplitOptionsProperty
forall a. Maybe a
Prelude.Nothing,
       validationOptions :: Maybe X12ValidationOptionsProperty
validationOptions = Maybe X12ValidationOptionsProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties X12AdvancedOptionsProperty where
  toResourceProperties :: X12AdvancedOptionsProperty -> ResourceProperties
toResourceProperties X12AdvancedOptionsProperty {Maybe X12SplitOptionsProperty
Maybe X12ValidationOptionsProperty
()
haddock_workaround_ :: X12AdvancedOptionsProperty -> ()
splitOptions :: X12AdvancedOptionsProperty -> Maybe X12SplitOptionsProperty
validationOptions :: X12AdvancedOptionsProperty -> Maybe X12ValidationOptionsProperty
haddock_workaround_ :: ()
splitOptions :: Maybe X12SplitOptionsProperty
validationOptions :: Maybe X12ValidationOptionsProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::B2BI::Transformer.X12AdvancedOptions",
         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 -> X12SplitOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SplitOptions" (X12SplitOptionsProperty -> (Key, Value))
-> Maybe X12SplitOptionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe X12SplitOptionsProperty
splitOptions,
                            Key -> X12ValidationOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ValidationOptions" (X12ValidationOptionsProperty -> (Key, Value))
-> Maybe X12ValidationOptionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe X12ValidationOptionsProperty
validationOptions])}
instance JSON.ToJSON X12AdvancedOptionsProperty where
  toJSON :: X12AdvancedOptionsProperty -> Value
toJSON X12AdvancedOptionsProperty {Maybe X12SplitOptionsProperty
Maybe X12ValidationOptionsProperty
()
haddock_workaround_ :: X12AdvancedOptionsProperty -> ()
splitOptions :: X12AdvancedOptionsProperty -> Maybe X12SplitOptionsProperty
validationOptions :: X12AdvancedOptionsProperty -> Maybe X12ValidationOptionsProperty
haddock_workaround_ :: ()
splitOptions :: Maybe X12SplitOptionsProperty
validationOptions :: Maybe X12ValidationOptionsProperty
..}
    = [(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 -> X12SplitOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SplitOptions" (X12SplitOptionsProperty -> (Key, Value))
-> Maybe X12SplitOptionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe X12SplitOptionsProperty
splitOptions,
               Key -> X12ValidationOptionsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ValidationOptions" (X12ValidationOptionsProperty -> (Key, Value))
-> Maybe X12ValidationOptionsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe X12ValidationOptionsProperty
validationOptions]))
instance Property "SplitOptions" X12AdvancedOptionsProperty where
  type PropertyType "SplitOptions" X12AdvancedOptionsProperty = X12SplitOptionsProperty
  set :: PropertyType "SplitOptions" X12AdvancedOptionsProperty
-> X12AdvancedOptionsProperty -> X12AdvancedOptionsProperty
set PropertyType "SplitOptions" X12AdvancedOptionsProperty
newValue X12AdvancedOptionsProperty {Maybe X12SplitOptionsProperty
Maybe X12ValidationOptionsProperty
()
haddock_workaround_ :: X12AdvancedOptionsProperty -> ()
splitOptions :: X12AdvancedOptionsProperty -> Maybe X12SplitOptionsProperty
validationOptions :: X12AdvancedOptionsProperty -> Maybe X12ValidationOptionsProperty
haddock_workaround_ :: ()
splitOptions :: Maybe X12SplitOptionsProperty
validationOptions :: Maybe X12ValidationOptionsProperty
..}
    = X12AdvancedOptionsProperty
        {splitOptions :: Maybe X12SplitOptionsProperty
splitOptions = X12SplitOptionsProperty -> Maybe X12SplitOptionsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SplitOptions" X12AdvancedOptionsProperty
X12SplitOptionsProperty
newValue, Maybe X12ValidationOptionsProperty
()
haddock_workaround_ :: ()
validationOptions :: Maybe X12ValidationOptionsProperty
haddock_workaround_ :: ()
validationOptions :: Maybe X12ValidationOptionsProperty
..}
instance Property "ValidationOptions" X12AdvancedOptionsProperty where
  type PropertyType "ValidationOptions" X12AdvancedOptionsProperty = X12ValidationOptionsProperty
  set :: PropertyType "ValidationOptions" X12AdvancedOptionsProperty
-> X12AdvancedOptionsProperty -> X12AdvancedOptionsProperty
set PropertyType "ValidationOptions" X12AdvancedOptionsProperty
newValue X12AdvancedOptionsProperty {Maybe X12SplitOptionsProperty
Maybe X12ValidationOptionsProperty
()
haddock_workaround_ :: X12AdvancedOptionsProperty -> ()
splitOptions :: X12AdvancedOptionsProperty -> Maybe X12SplitOptionsProperty
validationOptions :: X12AdvancedOptionsProperty -> Maybe X12ValidationOptionsProperty
haddock_workaround_ :: ()
splitOptions :: Maybe X12SplitOptionsProperty
validationOptions :: Maybe X12ValidationOptionsProperty
..}
    = X12AdvancedOptionsProperty
        {validationOptions :: Maybe X12ValidationOptionsProperty
validationOptions = X12ValidationOptionsProperty -> Maybe X12ValidationOptionsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ValidationOptions" X12AdvancedOptionsProperty
X12ValidationOptionsProperty
newValue, Maybe X12SplitOptionsProperty
()
haddock_workaround_ :: ()
splitOptions :: Maybe X12SplitOptionsProperty
haddock_workaround_ :: ()
splitOptions :: Maybe X12SplitOptionsProperty
..}