module Stratosphere.AppTest.TestCase.MainframeActionTypeProperty (
        module Exports, MainframeActionTypeProperty(..),
        mkMainframeActionTypeProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.AppTest.TestCase.BatchProperty as Exports
import {-# SOURCE #-} Stratosphere.AppTest.TestCase.TN3270Property as Exports
import Stratosphere.ResourceProperties
data MainframeActionTypeProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apptest-testcase-mainframeactiontype.html>
    MainframeActionTypeProperty {MainframeActionTypeProperty -> ()
haddock_workaround_ :: (),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apptest-testcase-mainframeactiontype.html#cfn-apptest-testcase-mainframeactiontype-batch>
                                 MainframeActionTypeProperty -> Maybe BatchProperty
batch :: (Prelude.Maybe BatchProperty),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apptest-testcase-mainframeactiontype.html#cfn-apptest-testcase-mainframeactiontype-tn3270>
                                 MainframeActionTypeProperty -> Maybe TN3270Property
tn3270 :: (Prelude.Maybe TN3270Property)}
  deriving stock (MainframeActionTypeProperty -> MainframeActionTypeProperty -> Bool
(MainframeActionTypeProperty
 -> MainframeActionTypeProperty -> Bool)
-> (MainframeActionTypeProperty
    -> MainframeActionTypeProperty -> Bool)
-> Eq MainframeActionTypeProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MainframeActionTypeProperty -> MainframeActionTypeProperty -> Bool
== :: MainframeActionTypeProperty -> MainframeActionTypeProperty -> Bool
$c/= :: MainframeActionTypeProperty -> MainframeActionTypeProperty -> Bool
/= :: MainframeActionTypeProperty -> MainframeActionTypeProperty -> Bool
Prelude.Eq, Int -> MainframeActionTypeProperty -> ShowS
[MainframeActionTypeProperty] -> ShowS
MainframeActionTypeProperty -> String
(Int -> MainframeActionTypeProperty -> ShowS)
-> (MainframeActionTypeProperty -> String)
-> ([MainframeActionTypeProperty] -> ShowS)
-> Show MainframeActionTypeProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> MainframeActionTypeProperty -> ShowS
showsPrec :: Int -> MainframeActionTypeProperty -> ShowS
$cshow :: MainframeActionTypeProperty -> String
show :: MainframeActionTypeProperty -> String
$cshowList :: [MainframeActionTypeProperty] -> ShowS
showList :: [MainframeActionTypeProperty] -> ShowS
Prelude.Show)
mkMainframeActionTypeProperty :: MainframeActionTypeProperty
mkMainframeActionTypeProperty :: MainframeActionTypeProperty
mkMainframeActionTypeProperty
  = MainframeActionTypeProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), batch :: Maybe BatchProperty
batch = Maybe BatchProperty
forall a. Maybe a
Prelude.Nothing,
       tn3270 :: Maybe TN3270Property
tn3270 = Maybe TN3270Property
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties MainframeActionTypeProperty where
  toResourceProperties :: MainframeActionTypeProperty -> ResourceProperties
toResourceProperties MainframeActionTypeProperty {Maybe BatchProperty
Maybe TN3270Property
()
haddock_workaround_ :: MainframeActionTypeProperty -> ()
batch :: MainframeActionTypeProperty -> Maybe BatchProperty
tn3270 :: MainframeActionTypeProperty -> Maybe TN3270Property
haddock_workaround_ :: ()
batch :: Maybe BatchProperty
tn3270 :: Maybe TN3270Property
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::AppTest::TestCase.MainframeActionType",
         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 -> BatchProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Batch" (BatchProperty -> (Key, Value))
-> Maybe BatchProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe BatchProperty
batch,
                            Key -> TN3270Property -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tn3270" (TN3270Property -> (Key, Value))
-> Maybe TN3270Property -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe TN3270Property
tn3270])}
instance JSON.ToJSON MainframeActionTypeProperty where
  toJSON :: MainframeActionTypeProperty -> Value
toJSON MainframeActionTypeProperty {Maybe BatchProperty
Maybe TN3270Property
()
haddock_workaround_ :: MainframeActionTypeProperty -> ()
batch :: MainframeActionTypeProperty -> Maybe BatchProperty
tn3270 :: MainframeActionTypeProperty -> Maybe TN3270Property
haddock_workaround_ :: ()
batch :: Maybe BatchProperty
tn3270 :: Maybe TN3270Property
..}
    = [(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 -> BatchProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Batch" (BatchProperty -> (Key, Value))
-> Maybe BatchProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe BatchProperty
batch,
               Key -> TN3270Property -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tn3270" (TN3270Property -> (Key, Value))
-> Maybe TN3270Property -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe TN3270Property
tn3270]))
instance Property "Batch" MainframeActionTypeProperty where
  type PropertyType "Batch" MainframeActionTypeProperty = BatchProperty
  set :: PropertyType "Batch" MainframeActionTypeProperty
-> MainframeActionTypeProperty -> MainframeActionTypeProperty
set PropertyType "Batch" MainframeActionTypeProperty
newValue MainframeActionTypeProperty {Maybe BatchProperty
Maybe TN3270Property
()
haddock_workaround_ :: MainframeActionTypeProperty -> ()
batch :: MainframeActionTypeProperty -> Maybe BatchProperty
tn3270 :: MainframeActionTypeProperty -> Maybe TN3270Property
haddock_workaround_ :: ()
batch :: Maybe BatchProperty
tn3270 :: Maybe TN3270Property
..}
    = MainframeActionTypeProperty {batch :: Maybe BatchProperty
batch = BatchProperty -> Maybe BatchProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Batch" MainframeActionTypeProperty
BatchProperty
newValue, Maybe TN3270Property
()
haddock_workaround_ :: ()
tn3270 :: Maybe TN3270Property
haddock_workaround_ :: ()
tn3270 :: Maybe TN3270Property
..}
instance Property "Tn3270" MainframeActionTypeProperty where
  type PropertyType "Tn3270" MainframeActionTypeProperty = TN3270Property
  set :: PropertyType "Tn3270" MainframeActionTypeProperty
-> MainframeActionTypeProperty -> MainframeActionTypeProperty
set PropertyType "Tn3270" MainframeActionTypeProperty
newValue MainframeActionTypeProperty {Maybe BatchProperty
Maybe TN3270Property
()
haddock_workaround_ :: MainframeActionTypeProperty -> ()
batch :: MainframeActionTypeProperty -> Maybe BatchProperty
tn3270 :: MainframeActionTypeProperty -> Maybe TN3270Property
haddock_workaround_ :: ()
batch :: Maybe BatchProperty
tn3270 :: Maybe TN3270Property
..}
    = MainframeActionTypeProperty {tn3270 :: Maybe TN3270Property
tn3270 = TN3270Property -> Maybe TN3270Property
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Tn3270" MainframeActionTypeProperty
TN3270Property
newValue, Maybe BatchProperty
()
haddock_workaround_ :: ()
batch :: Maybe BatchProperty
haddock_workaround_ :: ()
batch :: Maybe BatchProperty
..}