{-# 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.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import Amazonka.QuickSight.Types.RegisteredUserDashboardEmbeddingConfiguration
import Amazonka.QuickSight.Types.RegisteredUserDashboardVisualEmbeddingConfiguration
import Amazonka.QuickSight.Types.RegisteredUserQSearchBarEmbeddingConfiguration
import Amazonka.QuickSight.Types.RegisteredUserQuickSightConsoleEmbeddingConfiguration
data RegisteredUserEmbeddingExperienceConfiguration = RegisteredUserEmbeddingExperienceConfiguration'
{
RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserDashboardEmbeddingConfiguration
dashboard :: Prelude.Maybe RegisteredUserDashboardEmbeddingConfiguration,
RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
dashboardVisual :: Prelude.Maybe RegisteredUserDashboardVisualEmbeddingConfiguration,
RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQSearchBarEmbeddingConfiguration
qSearchBar :: Prelude.Maybe RegisteredUserQSearchBarEmbeddingConfiguration,
RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
quickSightConsole :: Prelude.Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
}
deriving (RegisteredUserEmbeddingExperienceConfiguration
-> RegisteredUserEmbeddingExperienceConfiguration -> Bool
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]
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
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.
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'
{ $sel:dashboard:RegisteredUserEmbeddingExperienceConfiguration' :: Maybe RegisteredUserDashboardEmbeddingConfiguration
dashboard =
forall a. Maybe a
Prelude.Nothing,
$sel:dashboardVisual:RegisteredUserEmbeddingExperienceConfiguration' :: Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
dashboardVisual =
forall a. Maybe a
Prelude.Nothing,
$sel:qSearchBar:RegisteredUserEmbeddingExperienceConfiguration' :: Maybe RegisteredUserQSearchBarEmbeddingConfiguration
qSearchBar =
forall a. Maybe a
Prelude.Nothing,
$sel:quickSightConsole:RegisteredUserEmbeddingExperienceConfiguration' :: Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
quickSightConsole =
forall a. Maybe a
Prelude.Nothing
}
registeredUserEmbeddingExperienceConfiguration_dashboard :: Lens.Lens' RegisteredUserEmbeddingExperienceConfiguration (Prelude.Maybe RegisteredUserDashboardEmbeddingConfiguration)
registeredUserEmbeddingExperienceConfiguration_dashboard :: Lens'
RegisteredUserEmbeddingExperienceConfiguration
(Maybe RegisteredUserDashboardEmbeddingConfiguration)
registeredUserEmbeddingExperienceConfiguration_dashboard = 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_dashboardVisual :: Lens.Lens' RegisteredUserEmbeddingExperienceConfiguration (Prelude.Maybe RegisteredUserDashboardVisualEmbeddingConfiguration)
registeredUserEmbeddingExperienceConfiguration_dashboardVisual :: Lens'
RegisteredUserEmbeddingExperienceConfiguration
(Maybe RegisteredUserDashboardVisualEmbeddingConfiguration)
registeredUserEmbeddingExperienceConfiguration_dashboardVisual = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RegisteredUserEmbeddingExperienceConfiguration' {Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
dashboardVisual :: Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
$sel:dashboardVisual:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
dashboardVisual} -> Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
dashboardVisual) (\s :: RegisteredUserEmbeddingExperienceConfiguration
s@RegisteredUserEmbeddingExperienceConfiguration' {} Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
a -> RegisteredUserEmbeddingExperienceConfiguration
s {$sel:dashboardVisual:RegisteredUserEmbeddingExperienceConfiguration' :: Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
dashboardVisual = Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
a} :: RegisteredUserEmbeddingExperienceConfiguration)
registeredUserEmbeddingExperienceConfiguration_qSearchBar :: Lens.Lens' RegisteredUserEmbeddingExperienceConfiguration (Prelude.Maybe RegisteredUserQSearchBarEmbeddingConfiguration)
registeredUserEmbeddingExperienceConfiguration_qSearchBar :: Lens'
RegisteredUserEmbeddingExperienceConfiguration
(Maybe RegisteredUserQSearchBarEmbeddingConfiguration)
registeredUserEmbeddingExperienceConfiguration_qSearchBar = 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)
registeredUserEmbeddingExperienceConfiguration_quickSightConsole :: Lens.Lens' RegisteredUserEmbeddingExperienceConfiguration (Prelude.Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration)
registeredUserEmbeddingExperienceConfiguration_quickSightConsole :: Lens'
RegisteredUserEmbeddingExperienceConfiguration
(Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration)
registeredUserEmbeddingExperienceConfiguration_quickSightConsole = 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)
instance
Prelude.Hashable
RegisteredUserEmbeddingExperienceConfiguration
where
hashWithSalt :: Int -> RegisteredUserEmbeddingExperienceConfiguration -> Int
hashWithSalt
Int
_salt
RegisteredUserEmbeddingExperienceConfiguration' {Maybe RegisteredUserDashboardEmbeddingConfiguration
Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
Maybe RegisteredUserQSearchBarEmbeddingConfiguration
Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
quickSightConsole :: Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
qSearchBar :: Maybe RegisteredUserQSearchBarEmbeddingConfiguration
dashboardVisual :: Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
dashboard :: Maybe RegisteredUserDashboardEmbeddingConfiguration
$sel:quickSightConsole:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
$sel:qSearchBar:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQSearchBarEmbeddingConfiguration
$sel:dashboardVisual:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
$sel:dashboard:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserDashboardEmbeddingConfiguration
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RegisteredUserDashboardEmbeddingConfiguration
dashboard
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
dashboardVisual
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RegisteredUserQSearchBarEmbeddingConfiguration
qSearchBar
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
quickSightConsole
instance
Prelude.NFData
RegisteredUserEmbeddingExperienceConfiguration
where
rnf :: RegisteredUserEmbeddingExperienceConfiguration -> ()
rnf
RegisteredUserEmbeddingExperienceConfiguration' {Maybe RegisteredUserDashboardEmbeddingConfiguration
Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
Maybe RegisteredUserQSearchBarEmbeddingConfiguration
Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
quickSightConsole :: Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
qSearchBar :: Maybe RegisteredUserQSearchBarEmbeddingConfiguration
dashboardVisual :: Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
dashboard :: Maybe RegisteredUserDashboardEmbeddingConfiguration
$sel:quickSightConsole:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
$sel:qSearchBar:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQSearchBarEmbeddingConfiguration
$sel:dashboardVisual:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
$sel:dashboard:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserDashboardEmbeddingConfiguration
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe RegisteredUserDashboardEmbeddingConfiguration
dashboard
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
dashboardVisual
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RegisteredUserQSearchBarEmbeddingConfiguration
qSearchBar
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
quickSightConsole
instance
Data.ToJSON
RegisteredUserEmbeddingExperienceConfiguration
where
toJSON :: RegisteredUserEmbeddingExperienceConfiguration -> Value
toJSON
RegisteredUserEmbeddingExperienceConfiguration' {Maybe RegisteredUserDashboardEmbeddingConfiguration
Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
Maybe RegisteredUserQSearchBarEmbeddingConfiguration
Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
quickSightConsole :: Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
qSearchBar :: Maybe RegisteredUserQSearchBarEmbeddingConfiguration
dashboardVisual :: Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
dashboard :: Maybe RegisteredUserDashboardEmbeddingConfiguration
$sel:quickSightConsole:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
$sel:qSearchBar:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserQSearchBarEmbeddingConfiguration
$sel:dashboardVisual:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
$sel:dashboard:RegisteredUserEmbeddingExperienceConfiguration' :: RegisteredUserEmbeddingExperienceConfiguration
-> Maybe RegisteredUserDashboardEmbeddingConfiguration
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"Dashboard" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RegisteredUserDashboardEmbeddingConfiguration
dashboard,
(Key
"DashboardVisual" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RegisteredUserDashboardVisualEmbeddingConfiguration
dashboardVisual,
(Key
"QSearchBar" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RegisteredUserQSearchBarEmbeddingConfiguration
qSearchBar,
(Key
"QuickSightConsole" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RegisteredUserQuickSightConsoleEmbeddingConfiguration
quickSightConsole
]
)