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