module Stratosphere.QuickSight.Dashboard.VisualInteractionOptionsProperty ( module Exports, VisualInteractionOptionsProperty(..), mkVisualInteractionOptionsProperty ) where import qualified Data.Aeson as JSON import qualified Stratosphere.Prelude as Prelude import Stratosphere.Property import {-# SOURCE #-} Stratosphere.QuickSight.Dashboard.ContextMenuOptionProperty as Exports import {-# SOURCE #-} Stratosphere.QuickSight.Dashboard.VisualMenuOptionProperty as Exports import Stratosphere.ResourceProperties data VisualInteractionOptionsProperty = -- | See: VisualInteractionOptionsProperty {haddock_workaround_ :: (), -- | See: contextMenuOption :: (Prelude.Maybe ContextMenuOptionProperty), -- | See: visualMenuOption :: (Prelude.Maybe VisualMenuOptionProperty)} deriving stock (Prelude.Eq, Prelude.Show) mkVisualInteractionOptionsProperty :: VisualInteractionOptionsProperty mkVisualInteractionOptionsProperty = VisualInteractionOptionsProperty {haddock_workaround_ = (), contextMenuOption = Prelude.Nothing, visualMenuOption = Prelude.Nothing} instance ToResourceProperties VisualInteractionOptionsProperty where toResourceProperties VisualInteractionOptionsProperty {..} = ResourceProperties {awsType = "AWS::QuickSight::Dashboard.VisualInteractionOptions", supportsTags = Prelude.False, properties = Prelude.fromList (Prelude.catMaybes [(JSON..=) "ContextMenuOption" Prelude.<$> contextMenuOption, (JSON..=) "VisualMenuOption" Prelude.<$> visualMenuOption])} instance JSON.ToJSON VisualInteractionOptionsProperty where toJSON VisualInteractionOptionsProperty {..} = JSON.object (Prelude.fromList (Prelude.catMaybes [(JSON..=) "ContextMenuOption" Prelude.<$> contextMenuOption, (JSON..=) "VisualMenuOption" Prelude.<$> visualMenuOption])) instance Property "ContextMenuOption" VisualInteractionOptionsProperty where type PropertyType "ContextMenuOption" VisualInteractionOptionsProperty = ContextMenuOptionProperty set newValue VisualInteractionOptionsProperty {..} = VisualInteractionOptionsProperty {contextMenuOption = Prelude.pure newValue, ..} instance Property "VisualMenuOption" VisualInteractionOptionsProperty where type PropertyType "VisualMenuOption" VisualInteractionOptionsProperty = VisualMenuOptionProperty set newValue VisualInteractionOptionsProperty {..} = VisualInteractionOptionsProperty {visualMenuOption = Prelude.pure newValue, ..}