module Stratosphere.SecurityLake.Subscriber (
        module Exports, Subscriber(..), mkSubscriber
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.SecurityLake.Subscriber.SourceProperty as Exports
import {-# SOURCE #-} Stratosphere.SecurityLake.Subscriber.SubscriberIdentityProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Tag
import Stratosphere.Value
data Subscriber
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-securitylake-subscriber.html>
    Subscriber {Subscriber -> ()
haddock_workaround_ :: (),
                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-securitylake-subscriber.html#cfn-securitylake-subscriber-accesstypes>
                Subscriber -> ValueList Text
accessTypes :: (ValueList Prelude.Text),
                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-securitylake-subscriber.html#cfn-securitylake-subscriber-datalakearn>
                Subscriber -> Value Text
dataLakeArn :: (Value Prelude.Text),
                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-securitylake-subscriber.html#cfn-securitylake-subscriber-sources>
                Subscriber -> [SourceProperty]
sources :: [SourceProperty],
                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-securitylake-subscriber.html#cfn-securitylake-subscriber-subscriberdescription>
                Subscriber -> Maybe (Value Text)
subscriberDescription :: (Prelude.Maybe (Value Prelude.Text)),
                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-securitylake-subscriber.html#cfn-securitylake-subscriber-subscriberidentity>
                Subscriber -> SubscriberIdentityProperty
subscriberIdentity :: SubscriberIdentityProperty,
                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-securitylake-subscriber.html#cfn-securitylake-subscriber-subscribername>
                Subscriber -> Value Text
subscriberName :: (Value Prelude.Text),
                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-securitylake-subscriber.html#cfn-securitylake-subscriber-tags>
                Subscriber -> Maybe [Tag]
tags :: (Prelude.Maybe [Tag])}
  deriving stock (Subscriber -> Subscriber -> Bool
(Subscriber -> Subscriber -> Bool)
-> (Subscriber -> Subscriber -> Bool) -> Eq Subscriber
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Subscriber -> Subscriber -> Bool
== :: Subscriber -> Subscriber -> Bool
$c/= :: Subscriber -> Subscriber -> Bool
/= :: Subscriber -> Subscriber -> Bool
Prelude.Eq, Int -> Subscriber -> ShowS
[Subscriber] -> ShowS
Subscriber -> String
(Int -> Subscriber -> ShowS)
-> (Subscriber -> String)
-> ([Subscriber] -> ShowS)
-> Show Subscriber
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Subscriber -> ShowS
showsPrec :: Int -> Subscriber -> ShowS
$cshow :: Subscriber -> String
show :: Subscriber -> String
$cshowList :: [Subscriber] -> ShowS
showList :: [Subscriber] -> ShowS
Prelude.Show)
mkSubscriber ::
  ValueList Prelude.Text
  -> Value Prelude.Text
     -> [SourceProperty]
        -> SubscriberIdentityProperty -> Value Prelude.Text -> Subscriber
mkSubscriber :: ValueList Text
-> Value Text
-> [SourceProperty]
-> SubscriberIdentityProperty
-> Value Text
-> Subscriber
mkSubscriber
  ValueList Text
accessTypes
  Value Text
dataLakeArn
  [SourceProperty]
sources
  SubscriberIdentityProperty
subscriberIdentity
  Value Text
subscriberName
  = Subscriber
      {haddock_workaround_ :: ()
haddock_workaround_ = (), accessTypes :: ValueList Text
accessTypes = ValueList Text
accessTypes,
       dataLakeArn :: Value Text
dataLakeArn = Value Text
dataLakeArn, sources :: [SourceProperty]
sources = [SourceProperty]
sources,
       subscriberIdentity :: SubscriberIdentityProperty
subscriberIdentity = SubscriberIdentityProperty
subscriberIdentity,
       subscriberName :: Value Text
subscriberName = Value Text
subscriberName,
       subscriberDescription :: Maybe (Value Text)
subscriberDescription = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, tags :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties Subscriber where
  toResourceProperties :: Subscriber -> ResourceProperties
toResourceProperties Subscriber {[SourceProperty]
Maybe [Tag]
Maybe (Value Text)
()
ValueList Text
Value Text
SubscriberIdentityProperty
haddock_workaround_ :: Subscriber -> ()
accessTypes :: Subscriber -> ValueList Text
dataLakeArn :: Subscriber -> Value Text
sources :: Subscriber -> [SourceProperty]
subscriberDescription :: Subscriber -> Maybe (Value Text)
subscriberIdentity :: Subscriber -> SubscriberIdentityProperty
subscriberName :: Subscriber -> Value Text
tags :: Subscriber -> Maybe [Tag]
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::SecurityLake::Subscriber",
         supportsTags :: Bool
supportsTags = Bool
Prelude.True,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
                           [Key
"AccessTypes" 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
accessTypes,
                            Key
"DataLakeArn" 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
dataLakeArn, Key
"Sources" Key -> [SourceProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [SourceProperty]
sources,
                            Key
"SubscriberIdentity" Key -> SubscriberIdentityProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= SubscriberIdentityProperty
subscriberIdentity,
                            Key
"SubscriberName" 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
subscriberName]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [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..=) Key
"SubscriberDescription"
                                 (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
subscriberDescription,
                               Key -> [Tag] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags]))}
instance JSON.ToJSON Subscriber where
  toJSON :: Subscriber -> Value
toJSON Subscriber {[SourceProperty]
Maybe [Tag]
Maybe (Value Text)
()
ValueList Text
Value Text
SubscriberIdentityProperty
haddock_workaround_ :: Subscriber -> ()
accessTypes :: Subscriber -> ValueList Text
dataLakeArn :: Subscriber -> Value Text
sources :: Subscriber -> [SourceProperty]
subscriberDescription :: Subscriber -> Maybe (Value Text)
subscriberIdentity :: Subscriber -> SubscriberIdentityProperty
subscriberName :: Subscriber -> Value Text
tags :: Subscriber -> Maybe [Tag]
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
              [Key
"AccessTypes" 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
accessTypes,
               Key
"DataLakeArn" 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
dataLakeArn, Key
"Sources" Key -> [SourceProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [SourceProperty]
sources,
               Key
"SubscriberIdentity" Key -> SubscriberIdentityProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= SubscriberIdentityProperty
subscriberIdentity,
               Key
"SubscriberName" 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
subscriberName]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [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..=) Key
"SubscriberDescription"
                    (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
subscriberDescription,
                  Key -> [Tag] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags])))
instance Property "AccessTypes" Subscriber where
  type PropertyType "AccessTypes" Subscriber = ValueList Prelude.Text
  set :: PropertyType "AccessTypes" Subscriber -> Subscriber -> Subscriber
set PropertyType "AccessTypes" Subscriber
newValue Subscriber {[SourceProperty]
Maybe [Tag]
Maybe (Value Text)
()
ValueList Text
Value Text
SubscriberIdentityProperty
haddock_workaround_ :: Subscriber -> ()
accessTypes :: Subscriber -> ValueList Text
dataLakeArn :: Subscriber -> Value Text
sources :: Subscriber -> [SourceProperty]
subscriberDescription :: Subscriber -> Maybe (Value Text)
subscriberIdentity :: Subscriber -> SubscriberIdentityProperty
subscriberName :: Subscriber -> Value Text
tags :: Subscriber -> Maybe [Tag]
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
..}
    = Subscriber {accessTypes :: ValueList Text
accessTypes = PropertyType "AccessTypes" Subscriber
ValueList Text
newValue, [SourceProperty]
Maybe [Tag]
Maybe (Value Text)
()
Value Text
SubscriberIdentityProperty
haddock_workaround_ :: ()
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
haddock_workaround_ :: ()
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
..}
instance Property "DataLakeArn" Subscriber where
  type PropertyType "DataLakeArn" Subscriber = Value Prelude.Text
  set :: PropertyType "DataLakeArn" Subscriber -> Subscriber -> Subscriber
set PropertyType "DataLakeArn" Subscriber
newValue Subscriber {[SourceProperty]
Maybe [Tag]
Maybe (Value Text)
()
ValueList Text
Value Text
SubscriberIdentityProperty
haddock_workaround_ :: Subscriber -> ()
accessTypes :: Subscriber -> ValueList Text
dataLakeArn :: Subscriber -> Value Text
sources :: Subscriber -> [SourceProperty]
subscriberDescription :: Subscriber -> Maybe (Value Text)
subscriberIdentity :: Subscriber -> SubscriberIdentityProperty
subscriberName :: Subscriber -> Value Text
tags :: Subscriber -> Maybe [Tag]
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
..}
    = Subscriber {dataLakeArn :: Value Text
dataLakeArn = PropertyType "DataLakeArn" Subscriber
Value Text
newValue, [SourceProperty]
Maybe [Tag]
Maybe (Value Text)
()
ValueList Text
Value Text
SubscriberIdentityProperty
haddock_workaround_ :: ()
accessTypes :: ValueList Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
haddock_workaround_ :: ()
accessTypes :: ValueList Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
..}
instance Property "Sources" Subscriber where
  type PropertyType "Sources" Subscriber = [SourceProperty]
  set :: PropertyType "Sources" Subscriber -> Subscriber -> Subscriber
set PropertyType "Sources" Subscriber
newValue Subscriber {[SourceProperty]
Maybe [Tag]
Maybe (Value Text)
()
ValueList Text
Value Text
SubscriberIdentityProperty
haddock_workaround_ :: Subscriber -> ()
accessTypes :: Subscriber -> ValueList Text
dataLakeArn :: Subscriber -> Value Text
sources :: Subscriber -> [SourceProperty]
subscriberDescription :: Subscriber -> Maybe (Value Text)
subscriberIdentity :: Subscriber -> SubscriberIdentityProperty
subscriberName :: Subscriber -> Value Text
tags :: Subscriber -> Maybe [Tag]
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
..} = Subscriber {sources :: [SourceProperty]
sources = [SourceProperty]
PropertyType "Sources" Subscriber
newValue, Maybe [Tag]
Maybe (Value Text)
()
ValueList Text
Value Text
SubscriberIdentityProperty
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
..}
instance Property "SubscriberDescription" Subscriber where
  type PropertyType "SubscriberDescription" Subscriber = Value Prelude.Text
  set :: PropertyType "SubscriberDescription" Subscriber
-> Subscriber -> Subscriber
set PropertyType "SubscriberDescription" Subscriber
newValue Subscriber {[SourceProperty]
Maybe [Tag]
Maybe (Value Text)
()
ValueList Text
Value Text
SubscriberIdentityProperty
haddock_workaround_ :: Subscriber -> ()
accessTypes :: Subscriber -> ValueList Text
dataLakeArn :: Subscriber -> Value Text
sources :: Subscriber -> [SourceProperty]
subscriberDescription :: Subscriber -> Maybe (Value Text)
subscriberIdentity :: Subscriber -> SubscriberIdentityProperty
subscriberName :: Subscriber -> Value Text
tags :: Subscriber -> Maybe [Tag]
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
..}
    = Subscriber {subscriberDescription :: Maybe (Value Text)
subscriberDescription = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SubscriberDescription" Subscriber
Value Text
newValue, [SourceProperty]
Maybe [Tag]
()
ValueList Text
Value Text
SubscriberIdentityProperty
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
..}
instance Property "SubscriberIdentity" Subscriber where
  type PropertyType "SubscriberIdentity" Subscriber = SubscriberIdentityProperty
  set :: PropertyType "SubscriberIdentity" Subscriber
-> Subscriber -> Subscriber
set PropertyType "SubscriberIdentity" Subscriber
newValue Subscriber {[SourceProperty]
Maybe [Tag]
Maybe (Value Text)
()
ValueList Text
Value Text
SubscriberIdentityProperty
haddock_workaround_ :: Subscriber -> ()
accessTypes :: Subscriber -> ValueList Text
dataLakeArn :: Subscriber -> Value Text
sources :: Subscriber -> [SourceProperty]
subscriberDescription :: Subscriber -> Maybe (Value Text)
subscriberIdentity :: Subscriber -> SubscriberIdentityProperty
subscriberName :: Subscriber -> Value Text
tags :: Subscriber -> Maybe [Tag]
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
..}
    = Subscriber {subscriberIdentity :: SubscriberIdentityProperty
subscriberIdentity = PropertyType "SubscriberIdentity" Subscriber
SubscriberIdentityProperty
newValue, [SourceProperty]
Maybe [Tag]
Maybe (Value Text)
()
ValueList Text
Value Text
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberName :: Value Text
tags :: Maybe [Tag]
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberName :: Value Text
tags :: Maybe [Tag]
..}
instance Property "SubscriberName" Subscriber where
  type PropertyType "SubscriberName" Subscriber = Value Prelude.Text
  set :: PropertyType "SubscriberName" Subscriber
-> Subscriber -> Subscriber
set PropertyType "SubscriberName" Subscriber
newValue Subscriber {[SourceProperty]
Maybe [Tag]
Maybe (Value Text)
()
ValueList Text
Value Text
SubscriberIdentityProperty
haddock_workaround_ :: Subscriber -> ()
accessTypes :: Subscriber -> ValueList Text
dataLakeArn :: Subscriber -> Value Text
sources :: Subscriber -> [SourceProperty]
subscriberDescription :: Subscriber -> Maybe (Value Text)
subscriberIdentity :: Subscriber -> SubscriberIdentityProperty
subscriberName :: Subscriber -> Value Text
tags :: Subscriber -> Maybe [Tag]
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
..}
    = Subscriber {subscriberName :: Value Text
subscriberName = PropertyType "SubscriberName" Subscriber
Value Text
newValue, [SourceProperty]
Maybe [Tag]
Maybe (Value Text)
()
ValueList Text
Value Text
SubscriberIdentityProperty
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
tags :: Maybe [Tag]
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
tags :: Maybe [Tag]
..}
instance Property "Tags" Subscriber where
  type PropertyType "Tags" Subscriber = [Tag]
  set :: PropertyType "Tags" Subscriber -> Subscriber -> Subscriber
set PropertyType "Tags" Subscriber
newValue Subscriber {[SourceProperty]
Maybe [Tag]
Maybe (Value Text)
()
ValueList Text
Value Text
SubscriberIdentityProperty
haddock_workaround_ :: Subscriber -> ()
accessTypes :: Subscriber -> ValueList Text
dataLakeArn :: Subscriber -> Value Text
sources :: Subscriber -> [SourceProperty]
subscriberDescription :: Subscriber -> Maybe (Value Text)
subscriberIdentity :: Subscriber -> SubscriberIdentityProperty
subscriberName :: Subscriber -> Value Text
tags :: Subscriber -> Maybe [Tag]
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
tags :: Maybe [Tag]
..}
    = Subscriber {tags :: Maybe [Tag]
tags = [Tag] -> Maybe [Tag]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [Tag]
PropertyType "Tags" Subscriber
newValue, [SourceProperty]
Maybe (Value Text)
()
ValueList Text
Value Text
SubscriberIdentityProperty
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
haddock_workaround_ :: ()
accessTypes :: ValueList Text
dataLakeArn :: Value Text
sources :: [SourceProperty]
subscriberDescription :: Maybe (Value Text)
subscriberIdentity :: SubscriberIdentityProperty
subscriberName :: Value Text
..}