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