module Stratosphere.AppSync.Api.EventConfigProperty (
        module Exports, EventConfigProperty(..), mkEventConfigProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.AppSync.Api.AuthModeProperty as Exports
import {-# SOURCE #-} Stratosphere.AppSync.Api.AuthProviderProperty as Exports
import {-# SOURCE #-} Stratosphere.AppSync.Api.EventLogConfigProperty as Exports
import Stratosphere.ResourceProperties
data EventConfigProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-api-eventconfig.html>
    EventConfigProperty {EventConfigProperty -> ()
haddock_workaround_ :: (),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-api-eventconfig.html#cfn-appsync-api-eventconfig-authproviders>
                         EventConfigProperty -> [AuthProviderProperty]
authProviders :: [AuthProviderProperty],
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-api-eventconfig.html#cfn-appsync-api-eventconfig-connectionauthmodes>
                         EventConfigProperty -> [AuthModeProperty]
connectionAuthModes :: [AuthModeProperty],
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-api-eventconfig.html#cfn-appsync-api-eventconfig-defaultpublishauthmodes>
                         EventConfigProperty -> [AuthModeProperty]
defaultPublishAuthModes :: [AuthModeProperty],
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-api-eventconfig.html#cfn-appsync-api-eventconfig-defaultsubscribeauthmodes>
                         EventConfigProperty -> [AuthModeProperty]
defaultSubscribeAuthModes :: [AuthModeProperty],
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appsync-api-eventconfig.html#cfn-appsync-api-eventconfig-logconfig>
                         EventConfigProperty -> Maybe EventLogConfigProperty
logConfig :: (Prelude.Maybe EventLogConfigProperty)}
  deriving stock (EventConfigProperty -> EventConfigProperty -> Bool
(EventConfigProperty -> EventConfigProperty -> Bool)
-> (EventConfigProperty -> EventConfigProperty -> Bool)
-> Eq EventConfigProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EventConfigProperty -> EventConfigProperty -> Bool
== :: EventConfigProperty -> EventConfigProperty -> Bool
$c/= :: EventConfigProperty -> EventConfigProperty -> Bool
/= :: EventConfigProperty -> EventConfigProperty -> Bool
Prelude.Eq, Int -> EventConfigProperty -> ShowS
[EventConfigProperty] -> ShowS
EventConfigProperty -> String
(Int -> EventConfigProperty -> ShowS)
-> (EventConfigProperty -> String)
-> ([EventConfigProperty] -> ShowS)
-> Show EventConfigProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> EventConfigProperty -> ShowS
showsPrec :: Int -> EventConfigProperty -> ShowS
$cshow :: EventConfigProperty -> String
show :: EventConfigProperty -> String
$cshowList :: [EventConfigProperty] -> ShowS
showList :: [EventConfigProperty] -> ShowS
Prelude.Show)
mkEventConfigProperty ::
  [AuthProviderProperty]
  -> [AuthModeProperty]
     -> [AuthModeProperty] -> [AuthModeProperty] -> EventConfigProperty
mkEventConfigProperty :: [AuthProviderProperty]
-> [AuthModeProperty]
-> [AuthModeProperty]
-> [AuthModeProperty]
-> EventConfigProperty
mkEventConfigProperty
  [AuthProviderProperty]
authProviders
  [AuthModeProperty]
connectionAuthModes
  [AuthModeProperty]
defaultPublishAuthModes
  [AuthModeProperty]
defaultSubscribeAuthModes
  = EventConfigProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), authProviders :: [AuthProviderProperty]
authProviders = [AuthProviderProperty]
authProviders,
       connectionAuthModes :: [AuthModeProperty]
connectionAuthModes = [AuthModeProperty]
connectionAuthModes,
       defaultPublishAuthModes :: [AuthModeProperty]
defaultPublishAuthModes = [AuthModeProperty]
defaultPublishAuthModes,
       defaultSubscribeAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes = [AuthModeProperty]
defaultSubscribeAuthModes,
       logConfig :: Maybe EventLogConfigProperty
logConfig = Maybe EventLogConfigProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties EventConfigProperty where
  toResourceProperties :: EventConfigProperty -> ResourceProperties
toResourceProperties EventConfigProperty {[AuthModeProperty]
[AuthProviderProperty]
Maybe EventLogConfigProperty
()
haddock_workaround_ :: EventConfigProperty -> ()
authProviders :: EventConfigProperty -> [AuthProviderProperty]
connectionAuthModes :: EventConfigProperty -> [AuthModeProperty]
defaultPublishAuthModes :: EventConfigProperty -> [AuthModeProperty]
defaultSubscribeAuthModes :: EventConfigProperty -> [AuthModeProperty]
logConfig :: EventConfigProperty -> Maybe EventLogConfigProperty
haddock_workaround_ :: ()
authProviders :: [AuthProviderProperty]
connectionAuthModes :: [AuthModeProperty]
defaultPublishAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes :: [AuthModeProperty]
logConfig :: Maybe EventLogConfigProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::AppSync::Api.EventConfig",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         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
"AuthProviders" Key -> [AuthProviderProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [AuthProviderProperty]
authProviders,
                            Key
"ConnectionAuthModes" 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..= [AuthModeProperty]
connectionAuthModes,
                            Key
"DefaultPublishAuthModes" 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..= [AuthModeProperty]
defaultPublishAuthModes,
                            Key
"DefaultSubscribeAuthModes" 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..= [AuthModeProperty]
defaultSubscribeAuthModes]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes [Key -> EventLogConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"LogConfig" (EventLogConfigProperty -> (Key, Value))
-> Maybe EventLogConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe EventLogConfigProperty
logConfig]))}
instance JSON.ToJSON EventConfigProperty where
  toJSON :: EventConfigProperty -> Value
toJSON EventConfigProperty {[AuthModeProperty]
[AuthProviderProperty]
Maybe EventLogConfigProperty
()
haddock_workaround_ :: EventConfigProperty -> ()
authProviders :: EventConfigProperty -> [AuthProviderProperty]
connectionAuthModes :: EventConfigProperty -> [AuthModeProperty]
defaultPublishAuthModes :: EventConfigProperty -> [AuthModeProperty]
defaultSubscribeAuthModes :: EventConfigProperty -> [AuthModeProperty]
logConfig :: EventConfigProperty -> Maybe EventLogConfigProperty
haddock_workaround_ :: ()
authProviders :: [AuthProviderProperty]
connectionAuthModes :: [AuthModeProperty]
defaultPublishAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes :: [AuthModeProperty]
logConfig :: Maybe EventLogConfigProperty
..}
    = [(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
"AuthProviders" Key -> [AuthProviderProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [AuthProviderProperty]
authProviders,
               Key
"ConnectionAuthModes" 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..= [AuthModeProperty]
connectionAuthModes,
               Key
"DefaultPublishAuthModes" 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..= [AuthModeProperty]
defaultPublishAuthModes,
               Key
"DefaultSubscribeAuthModes" 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..= [AuthModeProperty]
defaultSubscribeAuthModes]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes [Key -> EventLogConfigProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"LogConfig" (EventLogConfigProperty -> (Key, Value))
-> Maybe EventLogConfigProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe EventLogConfigProperty
logConfig])))
instance Property "AuthProviders" EventConfigProperty where
  type PropertyType "AuthProviders" EventConfigProperty = [AuthProviderProperty]
  set :: PropertyType "AuthProviders" EventConfigProperty
-> EventConfigProperty -> EventConfigProperty
set PropertyType "AuthProviders" EventConfigProperty
newValue EventConfigProperty {[AuthModeProperty]
[AuthProviderProperty]
Maybe EventLogConfigProperty
()
haddock_workaround_ :: EventConfigProperty -> ()
authProviders :: EventConfigProperty -> [AuthProviderProperty]
connectionAuthModes :: EventConfigProperty -> [AuthModeProperty]
defaultPublishAuthModes :: EventConfigProperty -> [AuthModeProperty]
defaultSubscribeAuthModes :: EventConfigProperty -> [AuthModeProperty]
logConfig :: EventConfigProperty -> Maybe EventLogConfigProperty
haddock_workaround_ :: ()
authProviders :: [AuthProviderProperty]
connectionAuthModes :: [AuthModeProperty]
defaultPublishAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes :: [AuthModeProperty]
logConfig :: Maybe EventLogConfigProperty
..}
    = EventConfigProperty {authProviders :: [AuthProviderProperty]
authProviders = [AuthProviderProperty]
PropertyType "AuthProviders" EventConfigProperty
newValue, [AuthModeProperty]
Maybe EventLogConfigProperty
()
haddock_workaround_ :: ()
connectionAuthModes :: [AuthModeProperty]
defaultPublishAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes :: [AuthModeProperty]
logConfig :: Maybe EventLogConfigProperty
haddock_workaround_ :: ()
connectionAuthModes :: [AuthModeProperty]
defaultPublishAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes :: [AuthModeProperty]
logConfig :: Maybe EventLogConfigProperty
..}
instance Property "ConnectionAuthModes" EventConfigProperty where
  type PropertyType "ConnectionAuthModes" EventConfigProperty = [AuthModeProperty]
  set :: PropertyType "ConnectionAuthModes" EventConfigProperty
-> EventConfigProperty -> EventConfigProperty
set PropertyType "ConnectionAuthModes" EventConfigProperty
newValue EventConfigProperty {[AuthModeProperty]
[AuthProviderProperty]
Maybe EventLogConfigProperty
()
haddock_workaround_ :: EventConfigProperty -> ()
authProviders :: EventConfigProperty -> [AuthProviderProperty]
connectionAuthModes :: EventConfigProperty -> [AuthModeProperty]
defaultPublishAuthModes :: EventConfigProperty -> [AuthModeProperty]
defaultSubscribeAuthModes :: EventConfigProperty -> [AuthModeProperty]
logConfig :: EventConfigProperty -> Maybe EventLogConfigProperty
haddock_workaround_ :: ()
authProviders :: [AuthProviderProperty]
connectionAuthModes :: [AuthModeProperty]
defaultPublishAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes :: [AuthModeProperty]
logConfig :: Maybe EventLogConfigProperty
..}
    = EventConfigProperty {connectionAuthModes :: [AuthModeProperty]
connectionAuthModes = [AuthModeProperty]
PropertyType "ConnectionAuthModes" EventConfigProperty
newValue, [AuthModeProperty]
[AuthProviderProperty]
Maybe EventLogConfigProperty
()
haddock_workaround_ :: ()
authProviders :: [AuthProviderProperty]
defaultPublishAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes :: [AuthModeProperty]
logConfig :: Maybe EventLogConfigProperty
haddock_workaround_ :: ()
authProviders :: [AuthProviderProperty]
defaultPublishAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes :: [AuthModeProperty]
logConfig :: Maybe EventLogConfigProperty
..}
instance Property "DefaultPublishAuthModes" EventConfigProperty where
  type PropertyType "DefaultPublishAuthModes" EventConfigProperty = [AuthModeProperty]
  set :: PropertyType "DefaultPublishAuthModes" EventConfigProperty
-> EventConfigProperty -> EventConfigProperty
set PropertyType "DefaultPublishAuthModes" EventConfigProperty
newValue EventConfigProperty {[AuthModeProperty]
[AuthProviderProperty]
Maybe EventLogConfigProperty
()
haddock_workaround_ :: EventConfigProperty -> ()
authProviders :: EventConfigProperty -> [AuthProviderProperty]
connectionAuthModes :: EventConfigProperty -> [AuthModeProperty]
defaultPublishAuthModes :: EventConfigProperty -> [AuthModeProperty]
defaultSubscribeAuthModes :: EventConfigProperty -> [AuthModeProperty]
logConfig :: EventConfigProperty -> Maybe EventLogConfigProperty
haddock_workaround_ :: ()
authProviders :: [AuthProviderProperty]
connectionAuthModes :: [AuthModeProperty]
defaultPublishAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes :: [AuthModeProperty]
logConfig :: Maybe EventLogConfigProperty
..}
    = EventConfigProperty {defaultPublishAuthModes :: [AuthModeProperty]
defaultPublishAuthModes = [AuthModeProperty]
PropertyType "DefaultPublishAuthModes" EventConfigProperty
newValue, [AuthModeProperty]
[AuthProviderProperty]
Maybe EventLogConfigProperty
()
haddock_workaround_ :: ()
authProviders :: [AuthProviderProperty]
connectionAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes :: [AuthModeProperty]
logConfig :: Maybe EventLogConfigProperty
haddock_workaround_ :: ()
authProviders :: [AuthProviderProperty]
connectionAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes :: [AuthModeProperty]
logConfig :: Maybe EventLogConfigProperty
..}
instance Property "DefaultSubscribeAuthModes" EventConfigProperty where
  type PropertyType "DefaultSubscribeAuthModes" EventConfigProperty = [AuthModeProperty]
  set :: PropertyType "DefaultSubscribeAuthModes" EventConfigProperty
-> EventConfigProperty -> EventConfigProperty
set PropertyType "DefaultSubscribeAuthModes" EventConfigProperty
newValue EventConfigProperty {[AuthModeProperty]
[AuthProviderProperty]
Maybe EventLogConfigProperty
()
haddock_workaround_ :: EventConfigProperty -> ()
authProviders :: EventConfigProperty -> [AuthProviderProperty]
connectionAuthModes :: EventConfigProperty -> [AuthModeProperty]
defaultPublishAuthModes :: EventConfigProperty -> [AuthModeProperty]
defaultSubscribeAuthModes :: EventConfigProperty -> [AuthModeProperty]
logConfig :: EventConfigProperty -> Maybe EventLogConfigProperty
haddock_workaround_ :: ()
authProviders :: [AuthProviderProperty]
connectionAuthModes :: [AuthModeProperty]
defaultPublishAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes :: [AuthModeProperty]
logConfig :: Maybe EventLogConfigProperty
..}
    = EventConfigProperty {defaultSubscribeAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes = [AuthModeProperty]
PropertyType "DefaultSubscribeAuthModes" EventConfigProperty
newValue, [AuthModeProperty]
[AuthProviderProperty]
Maybe EventLogConfigProperty
()
haddock_workaround_ :: ()
authProviders :: [AuthProviderProperty]
connectionAuthModes :: [AuthModeProperty]
defaultPublishAuthModes :: [AuthModeProperty]
logConfig :: Maybe EventLogConfigProperty
haddock_workaround_ :: ()
authProviders :: [AuthProviderProperty]
connectionAuthModes :: [AuthModeProperty]
defaultPublishAuthModes :: [AuthModeProperty]
logConfig :: Maybe EventLogConfigProperty
..}
instance Property "LogConfig" EventConfigProperty where
  type PropertyType "LogConfig" EventConfigProperty = EventLogConfigProperty
  set :: PropertyType "LogConfig" EventConfigProperty
-> EventConfigProperty -> EventConfigProperty
set PropertyType "LogConfig" EventConfigProperty
newValue EventConfigProperty {[AuthModeProperty]
[AuthProviderProperty]
Maybe EventLogConfigProperty
()
haddock_workaround_ :: EventConfigProperty -> ()
authProviders :: EventConfigProperty -> [AuthProviderProperty]
connectionAuthModes :: EventConfigProperty -> [AuthModeProperty]
defaultPublishAuthModes :: EventConfigProperty -> [AuthModeProperty]
defaultSubscribeAuthModes :: EventConfigProperty -> [AuthModeProperty]
logConfig :: EventConfigProperty -> Maybe EventLogConfigProperty
haddock_workaround_ :: ()
authProviders :: [AuthProviderProperty]
connectionAuthModes :: [AuthModeProperty]
defaultPublishAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes :: [AuthModeProperty]
logConfig :: Maybe EventLogConfigProperty
..}
    = EventConfigProperty {logConfig :: Maybe EventLogConfigProperty
logConfig = EventLogConfigProperty -> Maybe EventLogConfigProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "LogConfig" EventConfigProperty
EventLogConfigProperty
newValue, [AuthModeProperty]
[AuthProviderProperty]
()
haddock_workaround_ :: ()
authProviders :: [AuthProviderProperty]
connectionAuthModes :: [AuthModeProperty]
defaultPublishAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes :: [AuthModeProperty]
haddock_workaround_ :: ()
authProviders :: [AuthProviderProperty]
connectionAuthModes :: [AuthModeProperty]
defaultPublishAuthModes :: [AuthModeProperty]
defaultSubscribeAuthModes :: [AuthModeProperty]
..}