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