module Stratosphere.AppTest.TestCase.StepActionProperty (
        module Exports, StepActionProperty(..), mkStepActionProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.AppTest.TestCase.CompareActionProperty as Exports
import {-# SOURCE #-} Stratosphere.AppTest.TestCase.MainframeActionProperty as Exports
import {-# SOURCE #-} Stratosphere.AppTest.TestCase.ResourceActionProperty as Exports
import Stratosphere.ResourceProperties
data StepActionProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apptest-testcase-stepaction.html>
    StepActionProperty {StepActionProperty -> ()
haddock_workaround_ :: (),
                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apptest-testcase-stepaction.html#cfn-apptest-testcase-stepaction-compareaction>
                        StepActionProperty -> Maybe CompareActionProperty
compareAction :: (Prelude.Maybe CompareActionProperty),
                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apptest-testcase-stepaction.html#cfn-apptest-testcase-stepaction-mainframeaction>
                        StepActionProperty -> Maybe MainframeActionProperty
mainframeAction :: (Prelude.Maybe MainframeActionProperty),
                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-apptest-testcase-stepaction.html#cfn-apptest-testcase-stepaction-resourceaction>
                        StepActionProperty -> Maybe ResourceActionProperty
resourceAction :: (Prelude.Maybe ResourceActionProperty)}
  deriving stock (StepActionProperty -> StepActionProperty -> Bool
(StepActionProperty -> StepActionProperty -> Bool)
-> (StepActionProperty -> StepActionProperty -> Bool)
-> Eq StepActionProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StepActionProperty -> StepActionProperty -> Bool
== :: StepActionProperty -> StepActionProperty -> Bool
$c/= :: StepActionProperty -> StepActionProperty -> Bool
/= :: StepActionProperty -> StepActionProperty -> Bool
Prelude.Eq, Int -> StepActionProperty -> ShowS
[StepActionProperty] -> ShowS
StepActionProperty -> String
(Int -> StepActionProperty -> ShowS)
-> (StepActionProperty -> String)
-> ([StepActionProperty] -> ShowS)
-> Show StepActionProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> StepActionProperty -> ShowS
showsPrec :: Int -> StepActionProperty -> ShowS
$cshow :: StepActionProperty -> String
show :: StepActionProperty -> String
$cshowList :: [StepActionProperty] -> ShowS
showList :: [StepActionProperty] -> ShowS
Prelude.Show)
mkStepActionProperty :: StepActionProperty
mkStepActionProperty :: StepActionProperty
mkStepActionProperty
  = StepActionProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), compareAction :: Maybe CompareActionProperty
compareAction = Maybe CompareActionProperty
forall a. Maybe a
Prelude.Nothing,
       mainframeAction :: Maybe MainframeActionProperty
mainframeAction = Maybe MainframeActionProperty
forall a. Maybe a
Prelude.Nothing,
       resourceAction :: Maybe ResourceActionProperty
resourceAction = Maybe ResourceActionProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties StepActionProperty where
  toResourceProperties :: StepActionProperty -> ResourceProperties
toResourceProperties StepActionProperty {Maybe ResourceActionProperty
Maybe MainframeActionProperty
Maybe CompareActionProperty
()
haddock_workaround_ :: StepActionProperty -> ()
compareAction :: StepActionProperty -> Maybe CompareActionProperty
mainframeAction :: StepActionProperty -> Maybe MainframeActionProperty
resourceAction :: StepActionProperty -> Maybe ResourceActionProperty
haddock_workaround_ :: ()
compareAction :: Maybe CompareActionProperty
mainframeAction :: Maybe MainframeActionProperty
resourceAction :: Maybe ResourceActionProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::AppTest::TestCase.StepAction",
         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 -> CompareActionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CompareAction" (CompareActionProperty -> (Key, Value))
-> Maybe CompareActionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe CompareActionProperty
compareAction,
                            Key -> MainframeActionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"MainframeAction" (MainframeActionProperty -> (Key, Value))
-> Maybe MainframeActionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MainframeActionProperty
mainframeAction,
                            Key -> ResourceActionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ResourceAction" (ResourceActionProperty -> (Key, Value))
-> Maybe ResourceActionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ResourceActionProperty
resourceAction])}
instance JSON.ToJSON StepActionProperty where
  toJSON :: StepActionProperty -> Value
toJSON StepActionProperty {Maybe ResourceActionProperty
Maybe MainframeActionProperty
Maybe CompareActionProperty
()
haddock_workaround_ :: StepActionProperty -> ()
compareAction :: StepActionProperty -> Maybe CompareActionProperty
mainframeAction :: StepActionProperty -> Maybe MainframeActionProperty
resourceAction :: StepActionProperty -> Maybe ResourceActionProperty
haddock_workaround_ :: ()
compareAction :: Maybe CompareActionProperty
mainframeAction :: Maybe MainframeActionProperty
resourceAction :: Maybe ResourceActionProperty
..}
    = [(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 -> CompareActionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CompareAction" (CompareActionProperty -> (Key, Value))
-> Maybe CompareActionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe CompareActionProperty
compareAction,
               Key -> MainframeActionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"MainframeAction" (MainframeActionProperty -> (Key, Value))
-> Maybe MainframeActionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MainframeActionProperty
mainframeAction,
               Key -> ResourceActionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ResourceAction" (ResourceActionProperty -> (Key, Value))
-> Maybe ResourceActionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ResourceActionProperty
resourceAction]))
instance Property "CompareAction" StepActionProperty where
  type PropertyType "CompareAction" StepActionProperty = CompareActionProperty
  set :: PropertyType "CompareAction" StepActionProperty
-> StepActionProperty -> StepActionProperty
set PropertyType "CompareAction" StepActionProperty
newValue StepActionProperty {Maybe ResourceActionProperty
Maybe MainframeActionProperty
Maybe CompareActionProperty
()
haddock_workaround_ :: StepActionProperty -> ()
compareAction :: StepActionProperty -> Maybe CompareActionProperty
mainframeAction :: StepActionProperty -> Maybe MainframeActionProperty
resourceAction :: StepActionProperty -> Maybe ResourceActionProperty
haddock_workaround_ :: ()
compareAction :: Maybe CompareActionProperty
mainframeAction :: Maybe MainframeActionProperty
resourceAction :: Maybe ResourceActionProperty
..}
    = StepActionProperty {compareAction :: Maybe CompareActionProperty
compareAction = CompareActionProperty -> Maybe CompareActionProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "CompareAction" StepActionProperty
CompareActionProperty
newValue, Maybe ResourceActionProperty
Maybe MainframeActionProperty
()
haddock_workaround_ :: ()
mainframeAction :: Maybe MainframeActionProperty
resourceAction :: Maybe ResourceActionProperty
haddock_workaround_ :: ()
mainframeAction :: Maybe MainframeActionProperty
resourceAction :: Maybe ResourceActionProperty
..}
instance Property "MainframeAction" StepActionProperty where
  type PropertyType "MainframeAction" StepActionProperty = MainframeActionProperty
  set :: PropertyType "MainframeAction" StepActionProperty
-> StepActionProperty -> StepActionProperty
set PropertyType "MainframeAction" StepActionProperty
newValue StepActionProperty {Maybe ResourceActionProperty
Maybe MainframeActionProperty
Maybe CompareActionProperty
()
haddock_workaround_ :: StepActionProperty -> ()
compareAction :: StepActionProperty -> Maybe CompareActionProperty
mainframeAction :: StepActionProperty -> Maybe MainframeActionProperty
resourceAction :: StepActionProperty -> Maybe ResourceActionProperty
haddock_workaround_ :: ()
compareAction :: Maybe CompareActionProperty
mainframeAction :: Maybe MainframeActionProperty
resourceAction :: Maybe ResourceActionProperty
..}
    = StepActionProperty {mainframeAction :: Maybe MainframeActionProperty
mainframeAction = MainframeActionProperty -> Maybe MainframeActionProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "MainframeAction" StepActionProperty
MainframeActionProperty
newValue, Maybe ResourceActionProperty
Maybe CompareActionProperty
()
haddock_workaround_ :: ()
compareAction :: Maybe CompareActionProperty
resourceAction :: Maybe ResourceActionProperty
haddock_workaround_ :: ()
compareAction :: Maybe CompareActionProperty
resourceAction :: Maybe ResourceActionProperty
..}
instance Property "ResourceAction" StepActionProperty where
  type PropertyType "ResourceAction" StepActionProperty = ResourceActionProperty
  set :: PropertyType "ResourceAction" StepActionProperty
-> StepActionProperty -> StepActionProperty
set PropertyType "ResourceAction" StepActionProperty
newValue StepActionProperty {Maybe ResourceActionProperty
Maybe MainframeActionProperty
Maybe CompareActionProperty
()
haddock_workaround_ :: StepActionProperty -> ()
compareAction :: StepActionProperty -> Maybe CompareActionProperty
mainframeAction :: StepActionProperty -> Maybe MainframeActionProperty
resourceAction :: StepActionProperty -> Maybe ResourceActionProperty
haddock_workaround_ :: ()
compareAction :: Maybe CompareActionProperty
mainframeAction :: Maybe MainframeActionProperty
resourceAction :: Maybe ResourceActionProperty
..}
    = StepActionProperty {resourceAction :: Maybe ResourceActionProperty
resourceAction = ResourceActionProperty -> Maybe ResourceActionProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ResourceAction" StepActionProperty
ResourceActionProperty
newValue, Maybe MainframeActionProperty
Maybe CompareActionProperty
()
haddock_workaround_ :: ()
compareAction :: Maybe CompareActionProperty
mainframeAction :: Maybe MainframeActionProperty
haddock_workaround_ :: ()
compareAction :: Maybe CompareActionProperty
mainframeAction :: Maybe MainframeActionProperty
..}