module Stratosphere.Lex.Bot.ConversationLogSettingsProperty (
        module Exports, ConversationLogSettingsProperty(..),
        mkConversationLogSettingsProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Lex.Bot.AudioLogSettingProperty as Exports
import {-# SOURCE #-} Stratosphere.Lex.Bot.TextLogSettingProperty as Exports
import Stratosphere.ResourceProperties
data ConversationLogSettingsProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lex-bot-conversationlogsettings.html>
    ConversationLogSettingsProperty {ConversationLogSettingsProperty -> ()
haddock_workaround_ :: (),
                                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lex-bot-conversationlogsettings.html#cfn-lex-bot-conversationlogsettings-audiologsettings>
                                     ConversationLogSettingsProperty -> Maybe [AudioLogSettingProperty]
audioLogSettings :: (Prelude.Maybe [AudioLogSettingProperty]),
                                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-lex-bot-conversationlogsettings.html#cfn-lex-bot-conversationlogsettings-textlogsettings>
                                     ConversationLogSettingsProperty -> Maybe [TextLogSettingProperty]
textLogSettings :: (Prelude.Maybe [TextLogSettingProperty])}
  deriving stock (ConversationLogSettingsProperty
-> ConversationLogSettingsProperty -> Bool
(ConversationLogSettingsProperty
 -> ConversationLogSettingsProperty -> Bool)
-> (ConversationLogSettingsProperty
    -> ConversationLogSettingsProperty -> Bool)
-> Eq ConversationLogSettingsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ConversationLogSettingsProperty
-> ConversationLogSettingsProperty -> Bool
== :: ConversationLogSettingsProperty
-> ConversationLogSettingsProperty -> Bool
$c/= :: ConversationLogSettingsProperty
-> ConversationLogSettingsProperty -> Bool
/= :: ConversationLogSettingsProperty
-> ConversationLogSettingsProperty -> Bool
Prelude.Eq, Int -> ConversationLogSettingsProperty -> ShowS
[ConversationLogSettingsProperty] -> ShowS
ConversationLogSettingsProperty -> String
(Int -> ConversationLogSettingsProperty -> ShowS)
-> (ConversationLogSettingsProperty -> String)
-> ([ConversationLogSettingsProperty] -> ShowS)
-> Show ConversationLogSettingsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ConversationLogSettingsProperty -> ShowS
showsPrec :: Int -> ConversationLogSettingsProperty -> ShowS
$cshow :: ConversationLogSettingsProperty -> String
show :: ConversationLogSettingsProperty -> String
$cshowList :: [ConversationLogSettingsProperty] -> ShowS
showList :: [ConversationLogSettingsProperty] -> ShowS
Prelude.Show)
mkConversationLogSettingsProperty ::
  ConversationLogSettingsProperty
mkConversationLogSettingsProperty :: ConversationLogSettingsProperty
mkConversationLogSettingsProperty
  = ConversationLogSettingsProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), audioLogSettings :: Maybe [AudioLogSettingProperty]
audioLogSettings = Maybe [AudioLogSettingProperty]
forall a. Maybe a
Prelude.Nothing,
       textLogSettings :: Maybe [TextLogSettingProperty]
textLogSettings = Maybe [TextLogSettingProperty]
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties ConversationLogSettingsProperty where
  toResourceProperties :: ConversationLogSettingsProperty -> ResourceProperties
toResourceProperties ConversationLogSettingsProperty {Maybe [AudioLogSettingProperty]
Maybe [TextLogSettingProperty]
()
haddock_workaround_ :: ConversationLogSettingsProperty -> ()
audioLogSettings :: ConversationLogSettingsProperty -> Maybe [AudioLogSettingProperty]
textLogSettings :: ConversationLogSettingsProperty -> Maybe [TextLogSettingProperty]
haddock_workaround_ :: ()
audioLogSettings :: Maybe [AudioLogSettingProperty]
textLogSettings :: Maybe [TextLogSettingProperty]
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Lex::Bot.ConversationLogSettings",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [Key -> [AudioLogSettingProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AudioLogSettings" ([AudioLogSettingProperty] -> (Key, Value))
-> Maybe [AudioLogSettingProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [AudioLogSettingProperty]
audioLogSettings,
                            Key -> [TextLogSettingProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TextLogSettings" ([TextLogSettingProperty] -> (Key, Value))
-> Maybe [TextLogSettingProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [TextLogSettingProperty]
textLogSettings])}
instance JSON.ToJSON ConversationLogSettingsProperty where
  toJSON :: ConversationLogSettingsProperty -> Value
toJSON ConversationLogSettingsProperty {Maybe [AudioLogSettingProperty]
Maybe [TextLogSettingProperty]
()
haddock_workaround_ :: ConversationLogSettingsProperty -> ()
audioLogSettings :: ConversationLogSettingsProperty -> Maybe [AudioLogSettingProperty]
textLogSettings :: ConversationLogSettingsProperty -> Maybe [TextLogSettingProperty]
haddock_workaround_ :: ()
audioLogSettings :: Maybe [AudioLogSettingProperty]
textLogSettings :: Maybe [TextLogSettingProperty]
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [Key -> [AudioLogSettingProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AudioLogSettings" ([AudioLogSettingProperty] -> (Key, Value))
-> Maybe [AudioLogSettingProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [AudioLogSettingProperty]
audioLogSettings,
               Key -> [TextLogSettingProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TextLogSettings" ([TextLogSettingProperty] -> (Key, Value))
-> Maybe [TextLogSettingProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [TextLogSettingProperty]
textLogSettings]))
instance Property "AudioLogSettings" ConversationLogSettingsProperty where
  type PropertyType "AudioLogSettings" ConversationLogSettingsProperty = [AudioLogSettingProperty]
  set :: PropertyType "AudioLogSettings" ConversationLogSettingsProperty
-> ConversationLogSettingsProperty
-> ConversationLogSettingsProperty
set PropertyType "AudioLogSettings" ConversationLogSettingsProperty
newValue ConversationLogSettingsProperty {Maybe [AudioLogSettingProperty]
Maybe [TextLogSettingProperty]
()
haddock_workaround_ :: ConversationLogSettingsProperty -> ()
audioLogSettings :: ConversationLogSettingsProperty -> Maybe [AudioLogSettingProperty]
textLogSettings :: ConversationLogSettingsProperty -> Maybe [TextLogSettingProperty]
haddock_workaround_ :: ()
audioLogSettings :: Maybe [AudioLogSettingProperty]
textLogSettings :: Maybe [TextLogSettingProperty]
..}
    = ConversationLogSettingsProperty
        {audioLogSettings :: Maybe [AudioLogSettingProperty]
audioLogSettings = [AudioLogSettingProperty] -> Maybe [AudioLogSettingProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [AudioLogSettingProperty]
PropertyType "AudioLogSettings" ConversationLogSettingsProperty
newValue, Maybe [TextLogSettingProperty]
()
haddock_workaround_ :: ()
textLogSettings :: Maybe [TextLogSettingProperty]
haddock_workaround_ :: ()
textLogSettings :: Maybe [TextLogSettingProperty]
..}
instance Property "TextLogSettings" ConversationLogSettingsProperty where
  type PropertyType "TextLogSettings" ConversationLogSettingsProperty = [TextLogSettingProperty]
  set :: PropertyType "TextLogSettings" ConversationLogSettingsProperty
-> ConversationLogSettingsProperty
-> ConversationLogSettingsProperty
set PropertyType "TextLogSettings" ConversationLogSettingsProperty
newValue ConversationLogSettingsProperty {Maybe [AudioLogSettingProperty]
Maybe [TextLogSettingProperty]
()
haddock_workaround_ :: ConversationLogSettingsProperty -> ()
audioLogSettings :: ConversationLogSettingsProperty -> Maybe [AudioLogSettingProperty]
textLogSettings :: ConversationLogSettingsProperty -> Maybe [TextLogSettingProperty]
haddock_workaround_ :: ()
audioLogSettings :: Maybe [AudioLogSettingProperty]
textLogSettings :: Maybe [TextLogSettingProperty]
..}
    = ConversationLogSettingsProperty
        {textLogSettings :: Maybe [TextLogSettingProperty]
textLogSettings = [TextLogSettingProperty] -> Maybe [TextLogSettingProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [TextLogSettingProperty]
PropertyType "TextLogSettings" ConversationLogSettingsProperty
newValue, Maybe [AudioLogSettingProperty]
()
haddock_workaround_ :: ()
audioLogSettings :: Maybe [AudioLogSettingProperty]
haddock_workaround_ :: ()
audioLogSettings :: Maybe [AudioLogSettingProperty]
..}