module Stratosphere.Backup.BackupSelection.ConditionResourceTypeProperty (
ConditionResourceTypeProperty(..), mkConditionResourceTypeProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ConditionResourceTypeProperty
=
ConditionResourceTypeProperty {ConditionResourceTypeProperty -> ()
haddock_workaround_ :: (),
ConditionResourceTypeProperty -> Value Text
conditionKey :: (Value Prelude.Text),
ConditionResourceTypeProperty -> Value Text
conditionType :: (Value Prelude.Text),
ConditionResourceTypeProperty -> Value Text
conditionValue :: (Value Prelude.Text)}
deriving stock (ConditionResourceTypeProperty
-> ConditionResourceTypeProperty -> Bool
(ConditionResourceTypeProperty
-> ConditionResourceTypeProperty -> Bool)
-> (ConditionResourceTypeProperty
-> ConditionResourceTypeProperty -> Bool)
-> Eq ConditionResourceTypeProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ConditionResourceTypeProperty
-> ConditionResourceTypeProperty -> Bool
== :: ConditionResourceTypeProperty
-> ConditionResourceTypeProperty -> Bool
$c/= :: ConditionResourceTypeProperty
-> ConditionResourceTypeProperty -> Bool
/= :: ConditionResourceTypeProperty
-> ConditionResourceTypeProperty -> Bool
Prelude.Eq, Int -> ConditionResourceTypeProperty -> ShowS
[ConditionResourceTypeProperty] -> ShowS
ConditionResourceTypeProperty -> String
(Int -> ConditionResourceTypeProperty -> ShowS)
-> (ConditionResourceTypeProperty -> String)
-> ([ConditionResourceTypeProperty] -> ShowS)
-> Show ConditionResourceTypeProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ConditionResourceTypeProperty -> ShowS
showsPrec :: Int -> ConditionResourceTypeProperty -> ShowS
$cshow :: ConditionResourceTypeProperty -> String
show :: ConditionResourceTypeProperty -> String
$cshowList :: [ConditionResourceTypeProperty] -> ShowS
showList :: [ConditionResourceTypeProperty] -> ShowS
Prelude.Show)
mkConditionResourceTypeProperty ::
Value Prelude.Text
-> Value Prelude.Text
-> Value Prelude.Text -> ConditionResourceTypeProperty
mkConditionResourceTypeProperty :: Value Text
-> Value Text -> Value Text -> ConditionResourceTypeProperty
mkConditionResourceTypeProperty
Value Text
conditionKey
Value Text
conditionType
Value Text
conditionValue
= ConditionResourceTypeProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), conditionKey :: Value Text
conditionKey = Value Text
conditionKey,
conditionType :: Value Text
conditionType = Value Text
conditionType, conditionValue :: Value Text
conditionValue = Value Text
conditionValue}
instance ToResourceProperties ConditionResourceTypeProperty where
toResourceProperties :: ConditionResourceTypeProperty -> ResourceProperties
toResourceProperties ConditionResourceTypeProperty {()
Value Text
haddock_workaround_ :: ConditionResourceTypeProperty -> ()
conditionKey :: ConditionResourceTypeProperty -> Value Text
conditionType :: ConditionResourceTypeProperty -> Value Text
conditionValue :: ConditionResourceTypeProperty -> Value Text
haddock_workaround_ :: ()
conditionKey :: Value Text
conditionType :: Value Text
conditionValue :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Backup::BackupSelection.ConditionResourceType",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"ConditionKey" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
conditionKey,
Key
"ConditionType" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
conditionType,
Key
"ConditionValue" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
conditionValue]}
instance JSON.ToJSON ConditionResourceTypeProperty where
toJSON :: ConditionResourceTypeProperty -> Value
toJSON ConditionResourceTypeProperty {()
Value Text
haddock_workaround_ :: ConditionResourceTypeProperty -> ()
conditionKey :: ConditionResourceTypeProperty -> Value Text
conditionType :: ConditionResourceTypeProperty -> Value Text
conditionValue :: ConditionResourceTypeProperty -> Value Text
haddock_workaround_ :: ()
conditionKey :: Value Text
conditionType :: Value Text
conditionValue :: Value Text
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"ConditionKey" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
conditionKey,
Key
"ConditionType" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
conditionType,
Key
"ConditionValue" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
conditionValue]
instance Property "ConditionKey" ConditionResourceTypeProperty where
type PropertyType "ConditionKey" ConditionResourceTypeProperty = Value Prelude.Text
set :: PropertyType "ConditionKey" ConditionResourceTypeProperty
-> ConditionResourceTypeProperty -> ConditionResourceTypeProperty
set PropertyType "ConditionKey" ConditionResourceTypeProperty
newValue ConditionResourceTypeProperty {()
Value Text
haddock_workaround_ :: ConditionResourceTypeProperty -> ()
conditionKey :: ConditionResourceTypeProperty -> Value Text
conditionType :: ConditionResourceTypeProperty -> Value Text
conditionValue :: ConditionResourceTypeProperty -> Value Text
haddock_workaround_ :: ()
conditionKey :: Value Text
conditionType :: Value Text
conditionValue :: Value Text
..}
= ConditionResourceTypeProperty {conditionKey :: Value Text
conditionKey = PropertyType "ConditionKey" ConditionResourceTypeProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
conditionType :: Value Text
conditionValue :: Value Text
haddock_workaround_ :: ()
conditionType :: Value Text
conditionValue :: Value Text
..}
instance Property "ConditionType" ConditionResourceTypeProperty where
type PropertyType "ConditionType" ConditionResourceTypeProperty = Value Prelude.Text
set :: PropertyType "ConditionType" ConditionResourceTypeProperty
-> ConditionResourceTypeProperty -> ConditionResourceTypeProperty
set PropertyType "ConditionType" ConditionResourceTypeProperty
newValue ConditionResourceTypeProperty {()
Value Text
haddock_workaround_ :: ConditionResourceTypeProperty -> ()
conditionKey :: ConditionResourceTypeProperty -> Value Text
conditionType :: ConditionResourceTypeProperty -> Value Text
conditionValue :: ConditionResourceTypeProperty -> Value Text
haddock_workaround_ :: ()
conditionKey :: Value Text
conditionType :: Value Text
conditionValue :: Value Text
..}
= ConditionResourceTypeProperty {conditionType :: Value Text
conditionType = PropertyType "ConditionType" ConditionResourceTypeProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
conditionKey :: Value Text
conditionValue :: Value Text
haddock_workaround_ :: ()
conditionKey :: Value Text
conditionValue :: Value Text
..}
instance Property "ConditionValue" ConditionResourceTypeProperty where
type PropertyType "ConditionValue" ConditionResourceTypeProperty = Value Prelude.Text
set :: PropertyType "ConditionValue" ConditionResourceTypeProperty
-> ConditionResourceTypeProperty -> ConditionResourceTypeProperty
set PropertyType "ConditionValue" ConditionResourceTypeProperty
newValue ConditionResourceTypeProperty {()
Value Text
haddock_workaround_ :: ConditionResourceTypeProperty -> ()
conditionKey :: ConditionResourceTypeProperty -> Value Text
conditionType :: ConditionResourceTypeProperty -> Value Text
conditionValue :: ConditionResourceTypeProperty -> Value Text
haddock_workaround_ :: ()
conditionKey :: Value Text
conditionType :: Value Text
conditionValue :: Value Text
..}
= ConditionResourceTypeProperty {conditionValue :: Value Text
conditionValue = PropertyType "ConditionValue" ConditionResourceTypeProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
conditionKey :: Value Text
conditionType :: Value Text
haddock_workaround_ :: ()
conditionKey :: Value Text
conditionType :: Value Text
..}