module Stratosphere.Grafana.Workspace.VpcConfigurationProperty (
VpcConfigurationProperty(..), mkVpcConfigurationProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data VpcConfigurationProperty
=
VpcConfigurationProperty {VpcConfigurationProperty -> ()
haddock_workaround_ :: (),
VpcConfigurationProperty -> ValueList Text
securityGroupIds :: (ValueList Prelude.Text),
VpcConfigurationProperty -> ValueList Text
subnetIds :: (ValueList Prelude.Text)}
deriving stock (VpcConfigurationProperty -> VpcConfigurationProperty -> Bool
(VpcConfigurationProperty -> VpcConfigurationProperty -> Bool)
-> (VpcConfigurationProperty -> VpcConfigurationProperty -> Bool)
-> Eq VpcConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: VpcConfigurationProperty -> VpcConfigurationProperty -> Bool
== :: VpcConfigurationProperty -> VpcConfigurationProperty -> Bool
$c/= :: VpcConfigurationProperty -> VpcConfigurationProperty -> Bool
/= :: VpcConfigurationProperty -> VpcConfigurationProperty -> Bool
Prelude.Eq, Int -> VpcConfigurationProperty -> ShowS
[VpcConfigurationProperty] -> ShowS
VpcConfigurationProperty -> String
(Int -> VpcConfigurationProperty -> ShowS)
-> (VpcConfigurationProperty -> String)
-> ([VpcConfigurationProperty] -> ShowS)
-> Show VpcConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> VpcConfigurationProperty -> ShowS
showsPrec :: Int -> VpcConfigurationProperty -> ShowS
$cshow :: VpcConfigurationProperty -> String
show :: VpcConfigurationProperty -> String
$cshowList :: [VpcConfigurationProperty] -> ShowS
showList :: [VpcConfigurationProperty] -> ShowS
Prelude.Show)
mkVpcConfigurationProperty ::
ValueList Prelude.Text
-> ValueList Prelude.Text -> VpcConfigurationProperty
mkVpcConfigurationProperty :: ValueList Text -> ValueList Text -> VpcConfigurationProperty
mkVpcConfigurationProperty ValueList Text
securityGroupIds ValueList Text
subnetIds
= VpcConfigurationProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), securityGroupIds :: ValueList Text
securityGroupIds = ValueList Text
securityGroupIds,
subnetIds :: ValueList Text
subnetIds = ValueList Text
subnetIds}
instance ToResourceProperties VpcConfigurationProperty where
toResourceProperties :: VpcConfigurationProperty -> ResourceProperties
toResourceProperties VpcConfigurationProperty {()
ValueList Text
haddock_workaround_ :: VpcConfigurationProperty -> ()
securityGroupIds :: VpcConfigurationProperty -> ValueList Text
subnetIds :: VpcConfigurationProperty -> ValueList Text
haddock_workaround_ :: ()
securityGroupIds :: ValueList Text
subnetIds :: ValueList Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Grafana::Workspace.VpcConfiguration",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"SecurityGroupIds" Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ValueList Text
securityGroupIds,
Key
"SubnetIds" Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ValueList Text
subnetIds]}
instance JSON.ToJSON VpcConfigurationProperty where
toJSON :: VpcConfigurationProperty -> Value
toJSON VpcConfigurationProperty {()
ValueList Text
haddock_workaround_ :: VpcConfigurationProperty -> ()
securityGroupIds :: VpcConfigurationProperty -> ValueList Text
subnetIds :: VpcConfigurationProperty -> ValueList Text
haddock_workaround_ :: ()
securityGroupIds :: ValueList Text
subnetIds :: ValueList Text
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"SecurityGroupIds" Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ValueList Text
securityGroupIds,
Key
"SubnetIds" Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ValueList Text
subnetIds]
instance Property "SecurityGroupIds" VpcConfigurationProperty where
type PropertyType "SecurityGroupIds" VpcConfigurationProperty = ValueList Prelude.Text
set :: PropertyType "SecurityGroupIds" VpcConfigurationProperty
-> VpcConfigurationProperty -> VpcConfigurationProperty
set PropertyType "SecurityGroupIds" VpcConfigurationProperty
newValue VpcConfigurationProperty {()
ValueList Text
haddock_workaround_ :: VpcConfigurationProperty -> ()
securityGroupIds :: VpcConfigurationProperty -> ValueList Text
subnetIds :: VpcConfigurationProperty -> ValueList Text
haddock_workaround_ :: ()
securityGroupIds :: ValueList Text
subnetIds :: ValueList Text
..}
= VpcConfigurationProperty {securityGroupIds :: ValueList Text
securityGroupIds = PropertyType "SecurityGroupIds" VpcConfigurationProperty
ValueList Text
newValue, ()
ValueList Text
haddock_workaround_ :: ()
subnetIds :: ValueList Text
haddock_workaround_ :: ()
subnetIds :: ValueList Text
..}
instance Property "SubnetIds" VpcConfigurationProperty where
type PropertyType "SubnetIds" VpcConfigurationProperty = ValueList Prelude.Text
set :: PropertyType "SubnetIds" VpcConfigurationProperty
-> VpcConfigurationProperty -> VpcConfigurationProperty
set PropertyType "SubnetIds" VpcConfigurationProperty
newValue VpcConfigurationProperty {()
ValueList Text
haddock_workaround_ :: VpcConfigurationProperty -> ()
securityGroupIds :: VpcConfigurationProperty -> ValueList Text
subnetIds :: VpcConfigurationProperty -> ValueList Text
haddock_workaround_ :: ()
securityGroupIds :: ValueList Text
subnetIds :: ValueList Text
..}
= VpcConfigurationProperty {subnetIds :: ValueList Text
subnetIds = PropertyType "SubnetIds" VpcConfigurationProperty
ValueList Text
newValue, ()
ValueList Text
haddock_workaround_ :: ()
securityGroupIds :: ValueList Text
haddock_workaround_ :: ()
securityGroupIds :: ValueList Text
..}