module Stratosphere.Greengrass.SubscriptionDefinitionVersion (
module Exports, SubscriptionDefinitionVersion(..),
mkSubscriptionDefinitionVersion
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Greengrass.SubscriptionDefinitionVersion.SubscriptionProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data SubscriptionDefinitionVersion
=
SubscriptionDefinitionVersion {SubscriptionDefinitionVersion -> ()
haddock_workaround_ :: (),
SubscriptionDefinitionVersion -> Value Text
subscriptionDefinitionId :: (Value Prelude.Text),
SubscriptionDefinitionVersion -> [SubscriptionProperty]
subscriptions :: [SubscriptionProperty]}
deriving stock (SubscriptionDefinitionVersion
-> SubscriptionDefinitionVersion -> Bool
(SubscriptionDefinitionVersion
-> SubscriptionDefinitionVersion -> Bool)
-> (SubscriptionDefinitionVersion
-> SubscriptionDefinitionVersion -> Bool)
-> Eq SubscriptionDefinitionVersion
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SubscriptionDefinitionVersion
-> SubscriptionDefinitionVersion -> Bool
== :: SubscriptionDefinitionVersion
-> SubscriptionDefinitionVersion -> Bool
$c/= :: SubscriptionDefinitionVersion
-> SubscriptionDefinitionVersion -> Bool
/= :: SubscriptionDefinitionVersion
-> SubscriptionDefinitionVersion -> Bool
Prelude.Eq, Int -> SubscriptionDefinitionVersion -> ShowS
[SubscriptionDefinitionVersion] -> ShowS
SubscriptionDefinitionVersion -> String
(Int -> SubscriptionDefinitionVersion -> ShowS)
-> (SubscriptionDefinitionVersion -> String)
-> ([SubscriptionDefinitionVersion] -> ShowS)
-> Show SubscriptionDefinitionVersion
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SubscriptionDefinitionVersion -> ShowS
showsPrec :: Int -> SubscriptionDefinitionVersion -> ShowS
$cshow :: SubscriptionDefinitionVersion -> String
show :: SubscriptionDefinitionVersion -> String
$cshowList :: [SubscriptionDefinitionVersion] -> ShowS
showList :: [SubscriptionDefinitionVersion] -> ShowS
Prelude.Show)
mkSubscriptionDefinitionVersion ::
Value Prelude.Text
-> [SubscriptionProperty] -> SubscriptionDefinitionVersion
mkSubscriptionDefinitionVersion :: Value Text
-> [SubscriptionProperty] -> SubscriptionDefinitionVersion
mkSubscriptionDefinitionVersion
Value Text
subscriptionDefinitionId
[SubscriptionProperty]
subscriptions
= SubscriptionDefinitionVersion
{haddock_workaround_ :: ()
haddock_workaround_ = (),
subscriptionDefinitionId :: Value Text
subscriptionDefinitionId = Value Text
subscriptionDefinitionId,
subscriptions :: [SubscriptionProperty]
subscriptions = [SubscriptionProperty]
subscriptions}
instance ToResourceProperties SubscriptionDefinitionVersion where
toResourceProperties :: SubscriptionDefinitionVersion -> ResourceProperties
toResourceProperties SubscriptionDefinitionVersion {[SubscriptionProperty]
()
Value Text
haddock_workaround_ :: SubscriptionDefinitionVersion -> ()
subscriptionDefinitionId :: SubscriptionDefinitionVersion -> Value Text
subscriptions :: SubscriptionDefinitionVersion -> [SubscriptionProperty]
haddock_workaround_ :: ()
subscriptionDefinitionId :: Value Text
subscriptions :: [SubscriptionProperty]
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Greengrass::SubscriptionDefinitionVersion",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"SubscriptionDefinitionId"
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
subscriptionDefinitionId,
Key
"Subscriptions" Key -> [SubscriptionProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [SubscriptionProperty]
subscriptions]}
instance JSON.ToJSON SubscriptionDefinitionVersion where
toJSON :: SubscriptionDefinitionVersion -> Value
toJSON SubscriptionDefinitionVersion {[SubscriptionProperty]
()
Value Text
haddock_workaround_ :: SubscriptionDefinitionVersion -> ()
subscriptionDefinitionId :: SubscriptionDefinitionVersion -> Value Text
subscriptions :: SubscriptionDefinitionVersion -> [SubscriptionProperty]
haddock_workaround_ :: ()
subscriptionDefinitionId :: Value Text
subscriptions :: [SubscriptionProperty]
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"SubscriptionDefinitionId" 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
subscriptionDefinitionId,
Key
"Subscriptions" Key -> [SubscriptionProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [SubscriptionProperty]
subscriptions]
instance Property "SubscriptionDefinitionId" SubscriptionDefinitionVersion where
type PropertyType "SubscriptionDefinitionId" SubscriptionDefinitionVersion = Value Prelude.Text
set :: PropertyType
"SubscriptionDefinitionId" SubscriptionDefinitionVersion
-> SubscriptionDefinitionVersion -> SubscriptionDefinitionVersion
set PropertyType
"SubscriptionDefinitionId" SubscriptionDefinitionVersion
newValue SubscriptionDefinitionVersion {[SubscriptionProperty]
()
Value Text
haddock_workaround_ :: SubscriptionDefinitionVersion -> ()
subscriptionDefinitionId :: SubscriptionDefinitionVersion -> Value Text
subscriptions :: SubscriptionDefinitionVersion -> [SubscriptionProperty]
haddock_workaround_ :: ()
subscriptionDefinitionId :: Value Text
subscriptions :: [SubscriptionProperty]
..}
= SubscriptionDefinitionVersion
{subscriptionDefinitionId :: Value Text
subscriptionDefinitionId = PropertyType
"SubscriptionDefinitionId" SubscriptionDefinitionVersion
Value Text
newValue, [SubscriptionProperty]
()
haddock_workaround_ :: ()
subscriptions :: [SubscriptionProperty]
haddock_workaround_ :: ()
subscriptions :: [SubscriptionProperty]
..}
instance Property "Subscriptions" SubscriptionDefinitionVersion where
type PropertyType "Subscriptions" SubscriptionDefinitionVersion = [SubscriptionProperty]
set :: PropertyType "Subscriptions" SubscriptionDefinitionVersion
-> SubscriptionDefinitionVersion -> SubscriptionDefinitionVersion
set PropertyType "Subscriptions" SubscriptionDefinitionVersion
newValue SubscriptionDefinitionVersion {[SubscriptionProperty]
()
Value Text
haddock_workaround_ :: SubscriptionDefinitionVersion -> ()
subscriptionDefinitionId :: SubscriptionDefinitionVersion -> Value Text
subscriptions :: SubscriptionDefinitionVersion -> [SubscriptionProperty]
haddock_workaround_ :: ()
subscriptionDefinitionId :: Value Text
subscriptions :: [SubscriptionProperty]
..}
= SubscriptionDefinitionVersion {subscriptions :: [SubscriptionProperty]
subscriptions = [SubscriptionProperty]
PropertyType "Subscriptions" SubscriptionDefinitionVersion
newValue, ()
Value Text
haddock_workaround_ :: ()
subscriptionDefinitionId :: Value Text
haddock_workaround_ :: ()
subscriptionDefinitionId :: Value Text
..}