module Stratosphere.CleanRooms.IdMappingTable.IdMappingTableInputSourceProperty (
IdMappingTableInputSourceProperty(..),
mkIdMappingTableInputSourceProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data IdMappingTableInputSourceProperty
=
IdMappingTableInputSourceProperty {IdMappingTableInputSourceProperty -> ()
haddock_workaround_ :: (),
IdMappingTableInputSourceProperty -> Value Text
idNamespaceAssociationId :: (Value Prelude.Text),
IdMappingTableInputSourceProperty -> Value Text
type' :: (Value Prelude.Text)}
deriving stock (IdMappingTableInputSourceProperty
-> IdMappingTableInputSourceProperty -> Bool
(IdMappingTableInputSourceProperty
-> IdMappingTableInputSourceProperty -> Bool)
-> (IdMappingTableInputSourceProperty
-> IdMappingTableInputSourceProperty -> Bool)
-> Eq IdMappingTableInputSourceProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: IdMappingTableInputSourceProperty
-> IdMappingTableInputSourceProperty -> Bool
== :: IdMappingTableInputSourceProperty
-> IdMappingTableInputSourceProperty -> Bool
$c/= :: IdMappingTableInputSourceProperty
-> IdMappingTableInputSourceProperty -> Bool
/= :: IdMappingTableInputSourceProperty
-> IdMappingTableInputSourceProperty -> Bool
Prelude.Eq, Int -> IdMappingTableInputSourceProperty -> ShowS
[IdMappingTableInputSourceProperty] -> ShowS
IdMappingTableInputSourceProperty -> String
(Int -> IdMappingTableInputSourceProperty -> ShowS)
-> (IdMappingTableInputSourceProperty -> String)
-> ([IdMappingTableInputSourceProperty] -> ShowS)
-> Show IdMappingTableInputSourceProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> IdMappingTableInputSourceProperty -> ShowS
showsPrec :: Int -> IdMappingTableInputSourceProperty -> ShowS
$cshow :: IdMappingTableInputSourceProperty -> String
show :: IdMappingTableInputSourceProperty -> String
$cshowList :: [IdMappingTableInputSourceProperty] -> ShowS
showList :: [IdMappingTableInputSourceProperty] -> ShowS
Prelude.Show)
mkIdMappingTableInputSourceProperty ::
Value Prelude.Text
-> Value Prelude.Text -> IdMappingTableInputSourceProperty
mkIdMappingTableInputSourceProperty :: Value Text -> Value Text -> IdMappingTableInputSourceProperty
mkIdMappingTableInputSourceProperty Value Text
idNamespaceAssociationId Value Text
type'
= IdMappingTableInputSourceProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (),
idNamespaceAssociationId :: Value Text
idNamespaceAssociationId = Value Text
idNamespaceAssociationId, type' :: Value Text
type' = Value Text
type'}
instance ToResourceProperties IdMappingTableInputSourceProperty where
toResourceProperties :: IdMappingTableInputSourceProperty -> ResourceProperties
toResourceProperties IdMappingTableInputSourceProperty {()
Value Text
haddock_workaround_ :: IdMappingTableInputSourceProperty -> ()
idNamespaceAssociationId :: IdMappingTableInputSourceProperty -> Value Text
type' :: IdMappingTableInputSourceProperty -> Value Text
haddock_workaround_ :: ()
idNamespaceAssociationId :: Value Text
type' :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::CleanRooms::IdMappingTable.IdMappingTableInputSource",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"IdNamespaceAssociationId"
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
idNamespaceAssociationId,
Key
"Type" 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
type']}
instance JSON.ToJSON IdMappingTableInputSourceProperty where
toJSON :: IdMappingTableInputSourceProperty -> Value
toJSON IdMappingTableInputSourceProperty {()
Value Text
haddock_workaround_ :: IdMappingTableInputSourceProperty -> ()
idNamespaceAssociationId :: IdMappingTableInputSourceProperty -> Value Text
type' :: IdMappingTableInputSourceProperty -> Value Text
haddock_workaround_ :: ()
idNamespaceAssociationId :: Value Text
type' :: Value Text
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"IdNamespaceAssociationId" 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
idNamespaceAssociationId,
Key
"Type" 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
type']
instance Property "IdNamespaceAssociationId" IdMappingTableInputSourceProperty where
type PropertyType "IdNamespaceAssociationId" IdMappingTableInputSourceProperty = Value Prelude.Text
set :: PropertyType
"IdNamespaceAssociationId" IdMappingTableInputSourceProperty
-> IdMappingTableInputSourceProperty
-> IdMappingTableInputSourceProperty
set PropertyType
"IdNamespaceAssociationId" IdMappingTableInputSourceProperty
newValue IdMappingTableInputSourceProperty {()
Value Text
haddock_workaround_ :: IdMappingTableInputSourceProperty -> ()
idNamespaceAssociationId :: IdMappingTableInputSourceProperty -> Value Text
type' :: IdMappingTableInputSourceProperty -> Value Text
haddock_workaround_ :: ()
idNamespaceAssociationId :: Value Text
type' :: Value Text
..}
= IdMappingTableInputSourceProperty
{idNamespaceAssociationId :: Value Text
idNamespaceAssociationId = PropertyType
"IdNamespaceAssociationId" IdMappingTableInputSourceProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
type' :: Value Text
haddock_workaround_ :: ()
type' :: Value Text
..}
instance Property "Type" IdMappingTableInputSourceProperty where
type PropertyType "Type" IdMappingTableInputSourceProperty = Value Prelude.Text
set :: PropertyType "Type" IdMappingTableInputSourceProperty
-> IdMappingTableInputSourceProperty
-> IdMappingTableInputSourceProperty
set PropertyType "Type" IdMappingTableInputSourceProperty
newValue IdMappingTableInputSourceProperty {()
Value Text
haddock_workaround_ :: IdMappingTableInputSourceProperty -> ()
idNamespaceAssociationId :: IdMappingTableInputSourceProperty -> Value Text
type' :: IdMappingTableInputSourceProperty -> Value Text
haddock_workaround_ :: ()
idNamespaceAssociationId :: Value Text
type' :: Value Text
..}
= IdMappingTableInputSourceProperty {type' :: Value Text
type' = PropertyType "Type" IdMappingTableInputSourceProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
idNamespaceAssociationId :: Value Text
haddock_workaround_ :: ()
idNamespaceAssociationId :: Value Text
..}