module Stratosphere.AppSync.ChannelNamespace (
        module Exports, ChannelNamespace(..), mkChannelNamespace
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.AppSync.ChannelNamespace.AuthModeProperty as Exports
import {-# SOURCE #-} Stratosphere.AppSync.ChannelNamespace.HandlerConfigsProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Tag
import Stratosphere.Value
data ChannelNamespace
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-channelnamespace.html>
    ChannelNamespace {ChannelNamespace -> ()
haddock_workaround_ :: (),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-channelnamespace.html#cfn-appsync-channelnamespace-apiid>
                      ChannelNamespace -> Value Text
apiId :: (Value Prelude.Text),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-channelnamespace.html#cfn-appsync-channelnamespace-codehandlers>
                      ChannelNamespace -> Maybe (Value Text)
codeHandlers :: (Prelude.Maybe (Value Prelude.Text)),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-channelnamespace.html#cfn-appsync-channelnamespace-codes3location>
                      ChannelNamespace -> Maybe (Value Text)
codeS3Location :: (Prelude.Maybe (Value Prelude.Text)),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-channelnamespace.html#cfn-appsync-channelnamespace-handlerconfigs>
                      ChannelNamespace -> Maybe HandlerConfigsProperty
handlerConfigs :: (Prelude.Maybe HandlerConfigsProperty),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-channelnamespace.html#cfn-appsync-channelnamespace-name>
                      ChannelNamespace -> Value Text
name :: (Value Prelude.Text),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-channelnamespace.html#cfn-appsync-channelnamespace-publishauthmodes>
                      ChannelNamespace -> Maybe [AuthModeProperty]
publishAuthModes :: (Prelude.Maybe [AuthModeProperty]),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-channelnamespace.html#cfn-appsync-channelnamespace-subscribeauthmodes>
                      ChannelNamespace -> Maybe [AuthModeProperty]
subscribeAuthModes :: (Prelude.Maybe [AuthModeProperty]),
                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appsync-channelnamespace.html#cfn-appsync-channelnamespace-tags>
                      ChannelNamespace -> Maybe [Tag]
tags :: (Prelude.Maybe [Tag])}
  deriving stock (ChannelNamespace -> ChannelNamespace -> Bool
(ChannelNamespace -> ChannelNamespace -> Bool)
-> (ChannelNamespace -> ChannelNamespace -> Bool)
-> Eq ChannelNamespace
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ChannelNamespace -> ChannelNamespace -> Bool
== :: ChannelNamespace -> ChannelNamespace -> Bool
$c/= :: ChannelNamespace -> ChannelNamespace -> Bool
/= :: ChannelNamespace -> ChannelNamespace -> Bool
Prelude.Eq, Int -> ChannelNamespace -> ShowS
[ChannelNamespace] -> ShowS
ChannelNamespace -> String
(Int -> ChannelNamespace -> ShowS)
-> (ChannelNamespace -> String)
-> ([ChannelNamespace] -> ShowS)
-> Show ChannelNamespace
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ChannelNamespace -> ShowS
showsPrec :: Int -> ChannelNamespace -> ShowS
$cshow :: ChannelNamespace -> String
show :: ChannelNamespace -> String
$cshowList :: [ChannelNamespace] -> ShowS
showList :: [ChannelNamespace] -> ShowS
Prelude.Show)
mkChannelNamespace ::
  Value Prelude.Text -> Value Prelude.Text -> ChannelNamespace
mkChannelNamespace :: Value Text -> Value Text -> ChannelNamespace
mkChannelNamespace Value Text
apiId Value Text
name
  = ChannelNamespace
      {haddock_workaround_ :: ()
haddock_workaround_ = (), apiId :: Value Text
apiId = Value Text
apiId, name :: Value Text
name = Value Text
name,
       codeHandlers :: Maybe (Value Text)
codeHandlers = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, codeS3Location :: Maybe (Value Text)
codeS3Location = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       handlerConfigs :: Maybe HandlerConfigsProperty
handlerConfigs = Maybe HandlerConfigsProperty
forall a. Maybe a
Prelude.Nothing,
       publishAuthModes :: Maybe [AuthModeProperty]
publishAuthModes = Maybe [AuthModeProperty]
forall a. Maybe a
Prelude.Nothing,
       subscribeAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes = Maybe [AuthModeProperty]
forall a. Maybe a
Prelude.Nothing, tags :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties ChannelNamespace where
  toResourceProperties :: ChannelNamespace -> ResourceProperties
toResourceProperties ChannelNamespace {Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ChannelNamespace -> ()
apiId :: ChannelNamespace -> Value Text
codeHandlers :: ChannelNamespace -> Maybe (Value Text)
codeS3Location :: ChannelNamespace -> Maybe (Value Text)
handlerConfigs :: ChannelNamespace -> Maybe HandlerConfigsProperty
name :: ChannelNamespace -> Value Text
publishAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
subscribeAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
tags :: ChannelNamespace -> Maybe [Tag]
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::AppSync::ChannelNamespace",
         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
"ApiId" 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
apiId, Key
"Name" 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
name]
                           ([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
"CodeHandlers" (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)
codeHandlers,
                               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
"CodeS3Location" (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)
codeS3Location,
                               Key -> HandlerConfigsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"HandlerConfigs" (HandlerConfigsProperty -> (Key, Value))
-> Maybe HandlerConfigsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe HandlerConfigsProperty
handlerConfigs,
                               Key -> [AuthModeProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PublishAuthModes" ([AuthModeProperty] -> (Key, Value))
-> Maybe [AuthModeProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [AuthModeProperty]
publishAuthModes,
                               Key -> [AuthModeProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SubscribeAuthModes" ([AuthModeProperty] -> (Key, Value))
-> Maybe [AuthModeProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [AuthModeProperty]
subscribeAuthModes,
                               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 ChannelNamespace where
  toJSON :: ChannelNamespace -> Value
toJSON ChannelNamespace {Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ChannelNamespace -> ()
apiId :: ChannelNamespace -> Value Text
codeHandlers :: ChannelNamespace -> Maybe (Value Text)
codeS3Location :: ChannelNamespace -> Maybe (Value Text)
handlerConfigs :: ChannelNamespace -> Maybe HandlerConfigsProperty
name :: ChannelNamespace -> Value Text
publishAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
subscribeAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
tags :: ChannelNamespace -> Maybe [Tag]
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
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
"ApiId" 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
apiId, Key
"Name" 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
name]
              ([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
"CodeHandlers" (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)
codeHandlers,
                  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
"CodeS3Location" (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)
codeS3Location,
                  Key -> HandlerConfigsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"HandlerConfigs" (HandlerConfigsProperty -> (Key, Value))
-> Maybe HandlerConfigsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe HandlerConfigsProperty
handlerConfigs,
                  Key -> [AuthModeProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PublishAuthModes" ([AuthModeProperty] -> (Key, Value))
-> Maybe [AuthModeProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [AuthModeProperty]
publishAuthModes,
                  Key -> [AuthModeProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SubscribeAuthModes" ([AuthModeProperty] -> (Key, Value))
-> Maybe [AuthModeProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [AuthModeProperty]
subscribeAuthModes,
                  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 "ApiId" ChannelNamespace where
  type PropertyType "ApiId" ChannelNamespace = Value Prelude.Text
  set :: PropertyType "ApiId" ChannelNamespace
-> ChannelNamespace -> ChannelNamespace
set PropertyType "ApiId" ChannelNamespace
newValue ChannelNamespace {Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ChannelNamespace -> ()
apiId :: ChannelNamespace -> Value Text
codeHandlers :: ChannelNamespace -> Maybe (Value Text)
codeS3Location :: ChannelNamespace -> Maybe (Value Text)
handlerConfigs :: ChannelNamespace -> Maybe HandlerConfigsProperty
name :: ChannelNamespace -> Value Text
publishAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
subscribeAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
tags :: ChannelNamespace -> Maybe [Tag]
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
..}
    = ChannelNamespace {apiId :: Value Text
apiId = PropertyType "ApiId" ChannelNamespace
Value Text
newValue, Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ()
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
haddock_workaround_ :: ()
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
..}
instance Property "CodeHandlers" ChannelNamespace where
  type PropertyType "CodeHandlers" ChannelNamespace = Value Prelude.Text
  set :: PropertyType "CodeHandlers" ChannelNamespace
-> ChannelNamespace -> ChannelNamespace
set PropertyType "CodeHandlers" ChannelNamespace
newValue ChannelNamespace {Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ChannelNamespace -> ()
apiId :: ChannelNamespace -> Value Text
codeHandlers :: ChannelNamespace -> Maybe (Value Text)
codeS3Location :: ChannelNamespace -> Maybe (Value Text)
handlerConfigs :: ChannelNamespace -> Maybe HandlerConfigsProperty
name :: ChannelNamespace -> Value Text
publishAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
subscribeAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
tags :: ChannelNamespace -> Maybe [Tag]
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
..}
    = ChannelNamespace {codeHandlers :: Maybe (Value Text)
codeHandlers = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "CodeHandlers" ChannelNamespace
Value Text
newValue, Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ()
apiId :: Value Text
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
haddock_workaround_ :: ()
apiId :: Value Text
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
..}
instance Property "CodeS3Location" ChannelNamespace where
  type PropertyType "CodeS3Location" ChannelNamespace = Value Prelude.Text
  set :: PropertyType "CodeS3Location" ChannelNamespace
-> ChannelNamespace -> ChannelNamespace
set PropertyType "CodeS3Location" ChannelNamespace
newValue ChannelNamespace {Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ChannelNamespace -> ()
apiId :: ChannelNamespace -> Value Text
codeHandlers :: ChannelNamespace -> Maybe (Value Text)
codeS3Location :: ChannelNamespace -> Maybe (Value Text)
handlerConfigs :: ChannelNamespace -> Maybe HandlerConfigsProperty
name :: ChannelNamespace -> Value Text
publishAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
subscribeAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
tags :: ChannelNamespace -> Maybe [Tag]
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
..}
    = ChannelNamespace {codeS3Location :: Maybe (Value Text)
codeS3Location = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "CodeS3Location" ChannelNamespace
Value Text
newValue, Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
..}
instance Property "HandlerConfigs" ChannelNamespace where
  type PropertyType "HandlerConfigs" ChannelNamespace = HandlerConfigsProperty
  set :: PropertyType "HandlerConfigs" ChannelNamespace
-> ChannelNamespace -> ChannelNamespace
set PropertyType "HandlerConfigs" ChannelNamespace
newValue ChannelNamespace {Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ChannelNamespace -> ()
apiId :: ChannelNamespace -> Value Text
codeHandlers :: ChannelNamespace -> Maybe (Value Text)
codeS3Location :: ChannelNamespace -> Maybe (Value Text)
handlerConfigs :: ChannelNamespace -> Maybe HandlerConfigsProperty
name :: ChannelNamespace -> Value Text
publishAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
subscribeAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
tags :: ChannelNamespace -> Maybe [Tag]
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
..}
    = ChannelNamespace {handlerConfigs :: Maybe HandlerConfigsProperty
handlerConfigs = HandlerConfigsProperty -> Maybe HandlerConfigsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "HandlerConfigs" ChannelNamespace
HandlerConfigsProperty
newValue, Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
..}
instance Property "Name" ChannelNamespace where
  type PropertyType "Name" ChannelNamespace = Value Prelude.Text
  set :: PropertyType "Name" ChannelNamespace
-> ChannelNamespace -> ChannelNamespace
set PropertyType "Name" ChannelNamespace
newValue ChannelNamespace {Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ChannelNamespace -> ()
apiId :: ChannelNamespace -> Value Text
codeHandlers :: ChannelNamespace -> Maybe (Value Text)
codeS3Location :: ChannelNamespace -> Maybe (Value Text)
handlerConfigs :: ChannelNamespace -> Maybe HandlerConfigsProperty
name :: ChannelNamespace -> Value Text
publishAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
subscribeAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
tags :: ChannelNamespace -> Maybe [Tag]
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
..}
    = ChannelNamespace {name :: Value Text
name = PropertyType "Name" ChannelNamespace
Value Text
newValue, Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
..}
instance Property "PublishAuthModes" ChannelNamespace where
  type PropertyType "PublishAuthModes" ChannelNamespace = [AuthModeProperty]
  set :: PropertyType "PublishAuthModes" ChannelNamespace
-> ChannelNamespace -> ChannelNamespace
set PropertyType "PublishAuthModes" ChannelNamespace
newValue ChannelNamespace {Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ChannelNamespace -> ()
apiId :: ChannelNamespace -> Value Text
codeHandlers :: ChannelNamespace -> Maybe (Value Text)
codeS3Location :: ChannelNamespace -> Maybe (Value Text)
handlerConfigs :: ChannelNamespace -> Maybe HandlerConfigsProperty
name :: ChannelNamespace -> Value Text
publishAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
subscribeAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
tags :: ChannelNamespace -> Maybe [Tag]
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
..}
    = ChannelNamespace {publishAuthModes :: Maybe [AuthModeProperty]
publishAuthModes = [AuthModeProperty] -> Maybe [AuthModeProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [AuthModeProperty]
PropertyType "PublishAuthModes" ChannelNamespace
newValue, Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
..}
instance Property "SubscribeAuthModes" ChannelNamespace where
  type PropertyType "SubscribeAuthModes" ChannelNamespace = [AuthModeProperty]
  set :: PropertyType "SubscribeAuthModes" ChannelNamespace
-> ChannelNamespace -> ChannelNamespace
set PropertyType "SubscribeAuthModes" ChannelNamespace
newValue ChannelNamespace {Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ChannelNamespace -> ()
apiId :: ChannelNamespace -> Value Text
codeHandlers :: ChannelNamespace -> Maybe (Value Text)
codeS3Location :: ChannelNamespace -> Maybe (Value Text)
handlerConfigs :: ChannelNamespace -> Maybe HandlerConfigsProperty
name :: ChannelNamespace -> Value Text
publishAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
subscribeAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
tags :: ChannelNamespace -> Maybe [Tag]
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
..}
    = ChannelNamespace {subscribeAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes = [AuthModeProperty] -> Maybe [AuthModeProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [AuthModeProperty]
PropertyType "SubscribeAuthModes" ChannelNamespace
newValue, Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
..}
instance Property "Tags" ChannelNamespace where
  type PropertyType "Tags" ChannelNamespace = [Tag]
  set :: PropertyType "Tags" ChannelNamespace
-> ChannelNamespace -> ChannelNamespace
set PropertyType "Tags" ChannelNamespace
newValue ChannelNamespace {Maybe [Tag]
Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ChannelNamespace -> ()
apiId :: ChannelNamespace -> Value Text
codeHandlers :: ChannelNamespace -> Maybe (Value Text)
codeS3Location :: ChannelNamespace -> Maybe (Value Text)
handlerConfigs :: ChannelNamespace -> Maybe HandlerConfigsProperty
name :: ChannelNamespace -> Value Text
publishAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
subscribeAuthModes :: ChannelNamespace -> Maybe [AuthModeProperty]
tags :: ChannelNamespace -> Maybe [Tag]
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
tags :: Maybe [Tag]
..}
    = ChannelNamespace {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" ChannelNamespace
newValue, Maybe [AuthModeProperty]
Maybe (Value Text)
Maybe HandlerConfigsProperty
()
Value Text
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
haddock_workaround_ :: ()
apiId :: Value Text
codeHandlers :: Maybe (Value Text)
codeS3Location :: Maybe (Value Text)
handlerConfigs :: Maybe HandlerConfigsProperty
name :: Value Text
publishAuthModes :: Maybe [AuthModeProperty]
subscribeAuthModes :: Maybe [AuthModeProperty]
..}