module Stratosphere.VerifiedPermissions.IdentitySource.OpenIdConnectGroupConfigurationProperty (
OpenIdConnectGroupConfigurationProperty(..),
mkOpenIdConnectGroupConfigurationProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data OpenIdConnectGroupConfigurationProperty
=
OpenIdConnectGroupConfigurationProperty {OpenIdConnectGroupConfigurationProperty -> ()
haddock_workaround_ :: (),
OpenIdConnectGroupConfigurationProperty -> Value Text
groupClaim :: (Value Prelude.Text),
OpenIdConnectGroupConfigurationProperty -> Value Text
groupEntityType :: (Value Prelude.Text)}
deriving stock (OpenIdConnectGroupConfigurationProperty
-> OpenIdConnectGroupConfigurationProperty -> Bool
(OpenIdConnectGroupConfigurationProperty
-> OpenIdConnectGroupConfigurationProperty -> Bool)
-> (OpenIdConnectGroupConfigurationProperty
-> OpenIdConnectGroupConfigurationProperty -> Bool)
-> Eq OpenIdConnectGroupConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: OpenIdConnectGroupConfigurationProperty
-> OpenIdConnectGroupConfigurationProperty -> Bool
== :: OpenIdConnectGroupConfigurationProperty
-> OpenIdConnectGroupConfigurationProperty -> Bool
$c/= :: OpenIdConnectGroupConfigurationProperty
-> OpenIdConnectGroupConfigurationProperty -> Bool
/= :: OpenIdConnectGroupConfigurationProperty
-> OpenIdConnectGroupConfigurationProperty -> Bool
Prelude.Eq, Int -> OpenIdConnectGroupConfigurationProperty -> ShowS
[OpenIdConnectGroupConfigurationProperty] -> ShowS
OpenIdConnectGroupConfigurationProperty -> String
(Int -> OpenIdConnectGroupConfigurationProperty -> ShowS)
-> (OpenIdConnectGroupConfigurationProperty -> String)
-> ([OpenIdConnectGroupConfigurationProperty] -> ShowS)
-> Show OpenIdConnectGroupConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> OpenIdConnectGroupConfigurationProperty -> ShowS
showsPrec :: Int -> OpenIdConnectGroupConfigurationProperty -> ShowS
$cshow :: OpenIdConnectGroupConfigurationProperty -> String
show :: OpenIdConnectGroupConfigurationProperty -> String
$cshowList :: [OpenIdConnectGroupConfigurationProperty] -> ShowS
showList :: [OpenIdConnectGroupConfigurationProperty] -> ShowS
Prelude.Show)
mkOpenIdConnectGroupConfigurationProperty ::
Value Prelude.Text
-> Value Prelude.Text -> OpenIdConnectGroupConfigurationProperty
mkOpenIdConnectGroupConfigurationProperty :: Value Text -> Value Text -> OpenIdConnectGroupConfigurationProperty
mkOpenIdConnectGroupConfigurationProperty
Value Text
groupClaim
Value Text
groupEntityType
= OpenIdConnectGroupConfigurationProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), groupClaim :: Value Text
groupClaim = Value Text
groupClaim,
groupEntityType :: Value Text
groupEntityType = Value Text
groupEntityType}
instance ToResourceProperties OpenIdConnectGroupConfigurationProperty where
toResourceProperties :: OpenIdConnectGroupConfigurationProperty -> ResourceProperties
toResourceProperties OpenIdConnectGroupConfigurationProperty {()
Value Text
haddock_workaround_ :: OpenIdConnectGroupConfigurationProperty -> ()
groupClaim :: OpenIdConnectGroupConfigurationProperty -> Value Text
groupEntityType :: OpenIdConnectGroupConfigurationProperty -> Value Text
haddock_workaround_ :: ()
groupClaim :: Value Text
groupEntityType :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::VerifiedPermissions::IdentitySource.OpenIdConnectGroupConfiguration",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"GroupClaim" 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
groupClaim,
Key
"GroupEntityType" 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
groupEntityType]}
instance JSON.ToJSON OpenIdConnectGroupConfigurationProperty where
toJSON :: OpenIdConnectGroupConfigurationProperty -> Value
toJSON OpenIdConnectGroupConfigurationProperty {()
Value Text
haddock_workaround_ :: OpenIdConnectGroupConfigurationProperty -> ()
groupClaim :: OpenIdConnectGroupConfigurationProperty -> Value Text
groupEntityType :: OpenIdConnectGroupConfigurationProperty -> Value Text
haddock_workaround_ :: ()
groupClaim :: Value Text
groupEntityType :: Value Text
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"GroupClaim" 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
groupClaim,
Key
"GroupEntityType" 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
groupEntityType]
instance Property "GroupClaim" OpenIdConnectGroupConfigurationProperty where
type PropertyType "GroupClaim" OpenIdConnectGroupConfigurationProperty = Value Prelude.Text
set :: PropertyType "GroupClaim" OpenIdConnectGroupConfigurationProperty
-> OpenIdConnectGroupConfigurationProperty
-> OpenIdConnectGroupConfigurationProperty
set PropertyType "GroupClaim" OpenIdConnectGroupConfigurationProperty
newValue OpenIdConnectGroupConfigurationProperty {()
Value Text
haddock_workaround_ :: OpenIdConnectGroupConfigurationProperty -> ()
groupClaim :: OpenIdConnectGroupConfigurationProperty -> Value Text
groupEntityType :: OpenIdConnectGroupConfigurationProperty -> Value Text
haddock_workaround_ :: ()
groupClaim :: Value Text
groupEntityType :: Value Text
..}
= OpenIdConnectGroupConfigurationProperty
{groupClaim :: Value Text
groupClaim = PropertyType "GroupClaim" OpenIdConnectGroupConfigurationProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
groupEntityType :: Value Text
haddock_workaround_ :: ()
groupEntityType :: Value Text
..}
instance Property "GroupEntityType" OpenIdConnectGroupConfigurationProperty where
type PropertyType "GroupEntityType" OpenIdConnectGroupConfigurationProperty = Value Prelude.Text
set :: PropertyType
"GroupEntityType" OpenIdConnectGroupConfigurationProperty
-> OpenIdConnectGroupConfigurationProperty
-> OpenIdConnectGroupConfigurationProperty
set PropertyType
"GroupEntityType" OpenIdConnectGroupConfigurationProperty
newValue OpenIdConnectGroupConfigurationProperty {()
Value Text
haddock_workaround_ :: OpenIdConnectGroupConfigurationProperty -> ()
groupClaim :: OpenIdConnectGroupConfigurationProperty -> Value Text
groupEntityType :: OpenIdConnectGroupConfigurationProperty -> Value Text
haddock_workaround_ :: ()
groupClaim :: Value Text
groupEntityType :: Value Text
..}
= OpenIdConnectGroupConfigurationProperty
{groupEntityType :: Value Text
groupEntityType = PropertyType
"GroupEntityType" OpenIdConnectGroupConfigurationProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
groupClaim :: Value Text
haddock_workaround_ :: ()
groupClaim :: Value Text
..}