{-# 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.QuickSight.Types.RegisteredUserEmbeddingExperienceConfiguration where
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import Amazonka.QuickSight.Types.RegisteredUserDashboardEmbeddingConfiguration
import Amazonka.QuickSight.Types.RegisteredUserQSearchBarEmbeddingConfiguration
import Amazonka.QuickSight.Types.RegisteredUserQuickSightConsoleEmbeddingConfiguration
data RegisteredUserEmbeddingExperienceConfiguration = RegisteredUserEmbeddingExperienceConfiguration'
{
RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserDashboardEmbeddingConfiguration
dashboard :: Prelude.Maybe RegisteredUserDashboardEmbeddingConfiguration,
RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
quickSightConsole :: Prelude.Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration,
RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQSearchBarEmbeddingConfiguration
qSearchBar :: Prelude.Maybe RegisteredUserQSearchBarEmbeddingConfiguration
}
deriving (RegisteredUserEmbeddingExperienceConfiguration
-> RegisteredUserEmbeddingExperienceConfiguration -> Bool
(RegisteredUserEmbeddingExperienceConfiguration
-> RegisteredUserEmbeddingExperienceConfiguration -> Bool)
-> (RegisteredUserEmbeddingExperienceConfiguration
-> RegisteredUserEmbeddingExperienceConfiguration -> Bool)
-> Eq RegisteredUserEmbeddingExperienceConfiguration
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RegisteredUserEmbeddingExperienceConfiguration
-> RegisteredUserEmbeddingExperienceConfiguration -> Bool
$c/= :: RegisteredUserEmbeddingExperienceConfiguration
-> RegisteredUserEmbeddingExperienceConfiguration -> Bool
== :: RegisteredUserEmbeddingExperienceConfiguration
-> RegisteredUserEmbeddingExperienceConfiguration -> Bool
$c== :: RegisteredUserEmbeddingExperienceConfiguration
-> RegisteredUserEmbeddingExperienceConfiguration -> Bool
Prelude.Eq, ReadPrec [RegisteredUserEmbeddingExperienceConfiguration]
ReadPrec RegisteredUserEmbeddingExperienceConfiguration
Int -> ReadS RegisteredUserEmbeddingExperienceConfiguration
ReadS [RegisteredUserEmbeddingExperienceConfiguration]
(Int -> ReadS RegisteredUserEmbeddingExperienceConfiguration)
-> ReadS [RegisteredUserEmbeddingExperienceConfiguration]
-> ReadPrec RegisteredUserEmbeddingExperienceConfiguration
-> ReadPrec [RegisteredUserEmbeddingExperienceConfiguration]
-> Read RegisteredUserEmbeddingExperienceConfiguration
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RegisteredUserEmbeddingExperienceConfiguration]
$creadListPrec :: ReadPrec [RegisteredUserEmbeddingExperienceConfiguration]
readPrec :: ReadPrec RegisteredUserEmbeddingExperienceConfiguration
$creadPrec :: ReadPrec RegisteredUserEmbeddingExperienceConfiguration
readList :: ReadS [RegisteredUserEmbeddingExperienceConfiguration]
$creadList :: ReadS [RegisteredUserEmbeddingExperienceConfiguration]
readsPrec :: Int -> ReadS RegisteredUserEmbeddingExperienceConfiguration
$creadsPrec :: Int -> ReadS RegisteredUserEmbeddingExperienceConfiguration
Prelude.Read, Int -> RegisteredUserEmbeddingExperienceConfiguration -> ShowS
[RegisteredUserEmbeddingExperienceConfiguration] -> ShowS
RegisteredUserEmbeddingExperienceConfiguration -> String
(Int -> RegisteredUserEmbeddingExperienceConfiguration -> ShowS)
-> (RegisteredUserEmbeddingExperienceConfiguration -> String)
-> ([RegisteredUserEmbeddingExperienceConfiguration] -> ShowS)
-> Show RegisteredUserEmbeddingExperienceConfiguration
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RegisteredUserEmbeddingExperienceConfiguration] -> ShowS
$cshowList :: [RegisteredUserEmbeddingExperienceConfiguration] -> ShowS
show :: RegisteredUserEmbeddingExperienceConfiguration -> String
$cshow :: RegisteredUserEmbeddingExperienceConfiguration -> String
showsPrec :: Int -> RegisteredUserEmbeddingExperienceConfiguration -> ShowS
$cshowsPrec :: Int -> RegisteredUserEmbeddingExperienceConfiguration -> ShowS
Prelude.Show, (forall x.
RegisteredUserEmbeddingExperienceConfiguration
-> Rep RegisteredUserEmbeddingExperienceConfiguration x)
-> (forall x.
Rep RegisteredUserEmbeddingExperienceConfiguration x
-> RegisteredUserEmbeddingExperienceConfiguration)
-> Generic RegisteredUserEmbeddingExperienceConfiguration
forall x.
Rep RegisteredUserEmbeddingExperienceConfiguration x
-> RegisteredUserEmbeddingExperienceConfiguration
forall x.
RegisteredUserEmbeddingExperienceConfiguration
-> Rep RegisteredUserEmbeddingExperienceConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RegisteredUserEmbeddingExperienceConfiguration x
-> RegisteredUserEmbeddingExperienceConfiguration
$cfrom :: forall x.
RegisteredUserEmbeddingExperienceConfiguration
-> Rep RegisteredUserEmbeddingExperienceConfiguration x
Prelude.Generic)
newRegisteredUserEmbeddingExperienceConfiguration ::
RegisteredUserEmbeddingExperienceConfiguration
newRegisteredUserEmbeddingExperienceConfiguration :: RegisteredUserEmbeddingExperienceConfiguration
newRegisteredUserEmbeddingExperienceConfiguration =
RegisteredUserEmbeddingExperienceConfiguration' :: Maybe RegisteredUserDashboardEmbeddingConfiguration
-> Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
-> Maybe RegisteredUserQSearchBarEmbeddingConfiguration
-> RegisteredUserEmbeddingExperienceConfiguration
RegisteredUserEmbeddingExperienceConfiguration'
{ $sel:dashboard:RegisteredUserEmbeddingExperienceConfiguration' :: Maybe RegisteredUserDashboardEmbeddingConfiguration
dashboard =
Maybe RegisteredUserDashboardEmbeddingConfiguration
forall a. Maybe a
Prelude.Nothing,
$sel:quickSightConsole:RegisteredUserEmbeddingExperienceConfiguration' :: Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
quickSightConsole =
Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
forall a. Maybe a
Prelude.Nothing,
$sel:qSearchBar:RegisteredUserEmbeddingExperienceConfiguration' :: Maybe RegisteredUserQSearchBarEmbeddingConfiguration
qSearchBar =
Maybe RegisteredUserQSearchBarEmbeddingConfiguration
forall a. Maybe a
Prelude.Nothing
}
registeredUserEmbeddingExperienceConfiguration_dashboard :: Lens.Lens' RegisteredUserEmbeddingExperienceConfiguration (Prelude.Maybe RegisteredUserDashboardEmbeddingConfiguration)
registeredUserEmbeddingExperienceConfiguration_dashboard :: (Maybe RegisteredUserDashboardEmbeddingConfiguration
-> f (Maybe RegisteredUserDashboardEmbeddingConfiguration))
-> RegisteredUserEmbeddingExperienceConfiguration
-> f RegisteredUserEmbeddingExperienceConfiguration
registeredUserEmbeddingExperienceConfiguration_dashboard = (RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserDashboardEmbeddingConfiguration)
-> (RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserDashboardEmbeddingConfiguration
-> RegisteredUserEmbeddingExperienceConfiguration)
-> Lens
RegisteredUserEmbeddingExperienceConfiguration
RegisteredUserEmbeddingExperienceConfiguration
(Maybe RegisteredUserDashboardEmbeddingConfiguration)
(Maybe RegisteredUserDashboardEmbeddingConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisteredUserEmbeddingExperienceConfiguration' {Maybe RegisteredUserDashboardEmbeddingConfiguration
dashboard :: Maybe RegisteredUserDashboardEmbeddingConfiguration
$sel:dashboard:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserDashboardEmbeddingConfiguration
dashboard} -> Maybe RegisteredUserDashboardEmbeddingConfiguration
dashboard) (\s :: RegisteredUserEmbeddingExperienceConfiguration
s@RegisteredUserEmbeddingExperienceConfiguration' {} Maybe RegisteredUserDashboardEmbeddingConfiguration
a -> RegisteredUserEmbeddingExperienceConfiguration
s {$sel:dashboard:RegisteredUserEmbeddingExperienceConfiguration' :: Maybe RegisteredUserDashboardEmbeddingConfiguration
dashboard = Maybe RegisteredUserDashboardEmbeddingConfiguration
a} :: RegisteredUserEmbeddingExperienceConfiguration)
registeredUserEmbeddingExperienceConfiguration_quickSightConsole :: Lens.Lens' RegisteredUserEmbeddingExperienceConfiguration (Prelude.Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration)
registeredUserEmbeddingExperienceConfiguration_quickSightConsole :: (Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
-> f (Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration))
-> RegisteredUserEmbeddingExperienceConfiguration
-> f RegisteredUserEmbeddingExperienceConfiguration
registeredUserEmbeddingExperienceConfiguration_quickSightConsole = (RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration)
-> (RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
-> RegisteredUserEmbeddingExperienceConfiguration)
-> Lens
RegisteredUserEmbeddingExperienceConfiguration
RegisteredUserEmbeddingExperienceConfiguration
(Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration)
(Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisteredUserEmbeddingExperienceConfiguration' {Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
quickSightConsole :: Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
$sel:quickSightConsole:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
quickSightConsole} -> Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
quickSightConsole) (\s :: RegisteredUserEmbeddingExperienceConfiguration
s@RegisteredUserEmbeddingExperienceConfiguration' {} Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
a -> RegisteredUserEmbeddingExperienceConfiguration
s {$sel:quickSightConsole:RegisteredUserEmbeddingExperienceConfiguration' :: Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
quickSightConsole = Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
a} :: RegisteredUserEmbeddingExperienceConfiguration)
registeredUserEmbeddingExperienceConfiguration_qSearchBar :: Lens.Lens' RegisteredUserEmbeddingExperienceConfiguration (Prelude.Maybe RegisteredUserQSearchBarEmbeddingConfiguration)
registeredUserEmbeddingExperienceConfiguration_qSearchBar :: (Maybe RegisteredUserQSearchBarEmbeddingConfiguration
-> f (Maybe RegisteredUserQSearchBarEmbeddingConfiguration))
-> RegisteredUserEmbeddingExperienceConfiguration
-> f RegisteredUserEmbeddingExperienceConfiguration
registeredUserEmbeddingExperienceConfiguration_qSearchBar = (RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQSearchBarEmbeddingConfiguration)
-> (RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQSearchBarEmbeddingConfiguration
-> RegisteredUserEmbeddingExperienceConfiguration)
-> Lens
RegisteredUserEmbeddingExperienceConfiguration
RegisteredUserEmbeddingExperienceConfiguration
(Maybe RegisteredUserQSearchBarEmbeddingConfiguration)
(Maybe RegisteredUserQSearchBarEmbeddingConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisteredUserEmbeddingExperienceConfiguration' {Maybe RegisteredUserQSearchBarEmbeddingConfiguration
qSearchBar :: Maybe RegisteredUserQSearchBarEmbeddingConfiguration
$sel:qSearchBar:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQSearchBarEmbeddingConfiguration
qSearchBar} -> Maybe RegisteredUserQSearchBarEmbeddingConfiguration
qSearchBar) (\s :: RegisteredUserEmbeddingExperienceConfiguration
s@RegisteredUserEmbeddingExperienceConfiguration' {} Maybe RegisteredUserQSearchBarEmbeddingConfiguration
a -> RegisteredUserEmbeddingExperienceConfiguration
s {$sel:qSearchBar:RegisteredUserEmbeddingExperienceConfiguration' :: Maybe RegisteredUserQSearchBarEmbeddingConfiguration
qSearchBar = Maybe RegisteredUserQSearchBarEmbeddingConfiguration
a} :: RegisteredUserEmbeddingExperienceConfiguration)
instance
Prelude.Hashable
RegisteredUserEmbeddingExperienceConfiguration
instance
Prelude.NFData
RegisteredUserEmbeddingExperienceConfiguration
instance
Core.ToJSON
RegisteredUserEmbeddingExperienceConfiguration
where
toJSON :: RegisteredUserEmbeddingExperienceConfiguration -> Value
toJSON
RegisteredUserEmbeddingExperienceConfiguration' {Maybe RegisteredUserDashboardEmbeddingConfiguration
Maybe RegisteredUserQSearchBarEmbeddingConfiguration
Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
qSearchBar :: Maybe RegisteredUserQSearchBarEmbeddingConfiguration
quickSightConsole :: Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
dashboard :: Maybe RegisteredUserDashboardEmbeddingConfiguration
$sel:qSearchBar:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQSearchBarEmbeddingConfiguration
$sel:quickSightConsole:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
$sel:dashboard:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserDashboardEmbeddingConfiguration
..} =
[Pair] -> Value
Core.object
( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Text
"Dashboard" Text -> RegisteredUserDashboardEmbeddingConfiguration -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (RegisteredUserDashboardEmbeddingConfiguration -> Pair)
-> Maybe RegisteredUserDashboardEmbeddingConfiguration
-> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RegisteredUserDashboardEmbeddingConfiguration
dashboard,
(Text
"QuickSightConsole" Text
-> RegisteredUserQuickSightConsoleEmbeddingConfiguration -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
(RegisteredUserQuickSightConsoleEmbeddingConfiguration -> Pair)
-> Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
-> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
quickSightConsole,
(Text
"QSearchBar" Text -> RegisteredUserQSearchBarEmbeddingConfiguration -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (RegisteredUserQSearchBarEmbeddingConfiguration -> Pair)
-> Maybe RegisteredUserQSearchBarEmbeddingConfiguration
-> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RegisteredUserQSearchBarEmbeddingConfiguration
qSearchBar
]
)