{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.LexModels.Types.ConversationLogsRequest where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.LexModels.Types.LogSettingsRequest
import qualified Amazonka.Prelude as Prelude
data ConversationLogsRequest = ConversationLogsRequest'
{
ConversationLogsRequest -> [LogSettingsRequest]
logSettings :: [LogSettingsRequest],
ConversationLogsRequest -> Text
iamRoleArn :: Prelude.Text
}
deriving (ConversationLogsRequest -> ConversationLogsRequest -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ConversationLogsRequest -> ConversationLogsRequest -> Bool
$c/= :: ConversationLogsRequest -> ConversationLogsRequest -> Bool
== :: ConversationLogsRequest -> ConversationLogsRequest -> Bool
$c== :: ConversationLogsRequest -> ConversationLogsRequest -> Bool
Prelude.Eq, ReadPrec [ConversationLogsRequest]
ReadPrec ConversationLogsRequest
Int -> ReadS ConversationLogsRequest
ReadS [ConversationLogsRequest]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ConversationLogsRequest]
$creadListPrec :: ReadPrec [ConversationLogsRequest]
readPrec :: ReadPrec ConversationLogsRequest
$creadPrec :: ReadPrec ConversationLogsRequest
readList :: ReadS [ConversationLogsRequest]
$creadList :: ReadS [ConversationLogsRequest]
readsPrec :: Int -> ReadS ConversationLogsRequest
$creadsPrec :: Int -> ReadS ConversationLogsRequest
Prelude.Read, Int -> ConversationLogsRequest -> ShowS
[ConversationLogsRequest] -> ShowS
ConversationLogsRequest -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ConversationLogsRequest] -> ShowS
$cshowList :: [ConversationLogsRequest] -> ShowS
show :: ConversationLogsRequest -> String
$cshow :: ConversationLogsRequest -> String
showsPrec :: Int -> ConversationLogsRequest -> ShowS
$cshowsPrec :: Int -> ConversationLogsRequest -> ShowS
Prelude.Show, forall x. Rep ConversationLogsRequest x -> ConversationLogsRequest
forall x. ConversationLogsRequest -> Rep ConversationLogsRequest x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ConversationLogsRequest x -> ConversationLogsRequest
$cfrom :: forall x. ConversationLogsRequest -> Rep ConversationLogsRequest x
Prelude.Generic)
newConversationLogsRequest ::
Prelude.Text ->
ConversationLogsRequest
newConversationLogsRequest :: Text -> ConversationLogsRequest
newConversationLogsRequest Text
pIamRoleArn_ =
ConversationLogsRequest'
{ $sel:logSettings:ConversationLogsRequest' :: [LogSettingsRequest]
logSettings =
forall a. Monoid a => a
Prelude.mempty,
$sel:iamRoleArn:ConversationLogsRequest' :: Text
iamRoleArn = Text
pIamRoleArn_
}
conversationLogsRequest_logSettings :: Lens.Lens' ConversationLogsRequest [LogSettingsRequest]
conversationLogsRequest_logSettings :: Lens' ConversationLogsRequest [LogSettingsRequest]
conversationLogsRequest_logSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConversationLogsRequest' {[LogSettingsRequest]
logSettings :: [LogSettingsRequest]
$sel:logSettings:ConversationLogsRequest' :: ConversationLogsRequest -> [LogSettingsRequest]
logSettings} -> [LogSettingsRequest]
logSettings) (\s :: ConversationLogsRequest
s@ConversationLogsRequest' {} [LogSettingsRequest]
a -> ConversationLogsRequest
s {$sel:logSettings:ConversationLogsRequest' :: [LogSettingsRequest]
logSettings = [LogSettingsRequest]
a} :: ConversationLogsRequest) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
conversationLogsRequest_iamRoleArn :: Lens.Lens' ConversationLogsRequest Prelude.Text
conversationLogsRequest_iamRoleArn :: Lens' ConversationLogsRequest Text
conversationLogsRequest_iamRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConversationLogsRequest' {Text
iamRoleArn :: Text
$sel:iamRoleArn:ConversationLogsRequest' :: ConversationLogsRequest -> Text
iamRoleArn} -> Text
iamRoleArn) (\s :: ConversationLogsRequest
s@ConversationLogsRequest' {} Text
a -> ConversationLogsRequest
s {$sel:iamRoleArn:ConversationLogsRequest' :: Text
iamRoleArn = Text
a} :: ConversationLogsRequest)
instance Prelude.Hashable ConversationLogsRequest where
hashWithSalt :: Int -> ConversationLogsRequest -> Int
hashWithSalt Int
_salt ConversationLogsRequest' {[LogSettingsRequest]
Text
iamRoleArn :: Text
logSettings :: [LogSettingsRequest]
$sel:iamRoleArn:ConversationLogsRequest' :: ConversationLogsRequest -> Text
$sel:logSettings:ConversationLogsRequest' :: ConversationLogsRequest -> [LogSettingsRequest]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [LogSettingsRequest]
logSettings
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
iamRoleArn
instance Prelude.NFData ConversationLogsRequest where
rnf :: ConversationLogsRequest -> ()
rnf ConversationLogsRequest' {[LogSettingsRequest]
Text
iamRoleArn :: Text
logSettings :: [LogSettingsRequest]
$sel:iamRoleArn:ConversationLogsRequest' :: ConversationLogsRequest -> Text
$sel:logSettings:ConversationLogsRequest' :: ConversationLogsRequest -> [LogSettingsRequest]
..} =
forall a. NFData a => a -> ()
Prelude.rnf [LogSettingsRequest]
logSettings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
iamRoleArn
instance Data.ToJSON ConversationLogsRequest where
toJSON :: ConversationLogsRequest -> Value
toJSON ConversationLogsRequest' {[LogSettingsRequest]
Text
iamRoleArn :: Text
logSettings :: [LogSettingsRequest]
$sel:iamRoleArn:ConversationLogsRequest' :: ConversationLogsRequest -> Text
$sel:logSettings:ConversationLogsRequest' :: ConversationLogsRequest -> [LogSettingsRequest]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"logSettings" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [LogSettingsRequest]
logSettings),
forall a. a -> Maybe a
Prelude.Just (Key
"iamRoleArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
iamRoleArn)
]
)