{-# LANGUAGE OverloadedStrings, RecordWildCards, TupleSections #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TypeFamilies #-}


{- |
= Overlay

This domain provides various functionality related to drawing atop the inspected page.
-}


module CDP.Domains.Overlay (module CDP.Domains.Overlay) where

import           Control.Applicative  ((<$>))
import           Control.Monad
import           Control.Monad.Loops
import           Control.Monad.Trans  (liftIO)
import qualified Data.Map             as M
import           Data.Maybe          
import Data.Functor.Identity
import Data.String
import qualified Data.Text as T
import qualified Data.List as List
import qualified Data.Text.IO         as TI
import qualified Data.Vector          as V
import Data.Aeson.Types (Parser(..))
import           Data.Aeson           (FromJSON (..), ToJSON (..), (.:), (.:?), (.=), (.!=), (.:!))
import qualified Data.Aeson           as A
import qualified Network.HTTP.Simple as Http
import qualified Network.URI          as Uri
import qualified Network.WebSockets as WS
import Control.Concurrent
import qualified Data.ByteString.Lazy as BS
import qualified Data.Map as Map
import Data.Proxy
import System.Random
import GHC.Generics
import Data.Char
import Data.Default

import CDP.Internal.Utils


import CDP.Domains.DOMPageNetworkEmulationSecurity as DOMPageNetworkEmulationSecurity
import CDP.Domains.Runtime as Runtime


-- | Type 'Overlay.SourceOrderConfig'.
--   Configuration data for drawing the source order of an elements children.
data OverlaySourceOrderConfig = OverlaySourceOrderConfig
  {
    -- | the color to outline the givent element in.
    OverlaySourceOrderConfig -> DOMRGBA
overlaySourceOrderConfigParentOutlineColor :: DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | the color to outline the child elements in.
    OverlaySourceOrderConfig -> DOMRGBA
overlaySourceOrderConfigChildOutlineColor :: DOMPageNetworkEmulationSecurity.DOMRGBA
  }
  deriving (OverlaySourceOrderConfig -> OverlaySourceOrderConfig -> Bool
(OverlaySourceOrderConfig -> OverlaySourceOrderConfig -> Bool)
-> (OverlaySourceOrderConfig -> OverlaySourceOrderConfig -> Bool)
-> Eq OverlaySourceOrderConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlaySourceOrderConfig -> OverlaySourceOrderConfig -> Bool
$c/= :: OverlaySourceOrderConfig -> OverlaySourceOrderConfig -> Bool
== :: OverlaySourceOrderConfig -> OverlaySourceOrderConfig -> Bool
$c== :: OverlaySourceOrderConfig -> OverlaySourceOrderConfig -> Bool
Eq, Int -> OverlaySourceOrderConfig -> ShowS
[OverlaySourceOrderConfig] -> ShowS
OverlaySourceOrderConfig -> String
(Int -> OverlaySourceOrderConfig -> ShowS)
-> (OverlaySourceOrderConfig -> String)
-> ([OverlaySourceOrderConfig] -> ShowS)
-> Show OverlaySourceOrderConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlaySourceOrderConfig] -> ShowS
$cshowList :: [OverlaySourceOrderConfig] -> ShowS
show :: OverlaySourceOrderConfig -> String
$cshow :: OverlaySourceOrderConfig -> String
showsPrec :: Int -> OverlaySourceOrderConfig -> ShowS
$cshowsPrec :: Int -> OverlaySourceOrderConfig -> ShowS
Show)
instance FromJSON OverlaySourceOrderConfig where
  parseJSON :: Value -> Parser OverlaySourceOrderConfig
parseJSON = String
-> (Object -> Parser OverlaySourceOrderConfig)
-> Value
-> Parser OverlaySourceOrderConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlaySourceOrderConfig" ((Object -> Parser OverlaySourceOrderConfig)
 -> Value -> Parser OverlaySourceOrderConfig)
-> (Object -> Parser OverlaySourceOrderConfig)
-> Value
-> Parser OverlaySourceOrderConfig
forall a b. (a -> b) -> a -> b
$ \Object
o -> DOMRGBA -> DOMRGBA -> OverlaySourceOrderConfig
OverlaySourceOrderConfig
    (DOMRGBA -> DOMRGBA -> OverlaySourceOrderConfig)
-> Parser DOMRGBA -> Parser (DOMRGBA -> OverlaySourceOrderConfig)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser DOMRGBA
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"parentOutlineColor"
    Parser (DOMRGBA -> OverlaySourceOrderConfig)
-> Parser DOMRGBA -> Parser OverlaySourceOrderConfig
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser DOMRGBA
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"childOutlineColor"
instance ToJSON OverlaySourceOrderConfig where
  toJSON :: OverlaySourceOrderConfig -> Value
toJSON OverlaySourceOrderConfig
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"parentOutlineColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> DOMRGBA -> Maybe DOMRGBA
forall a. a -> Maybe a
Just (OverlaySourceOrderConfig -> DOMRGBA
overlaySourceOrderConfigParentOutlineColor OverlaySourceOrderConfig
p),
    (Text
"childOutlineColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> DOMRGBA -> Maybe DOMRGBA
forall a. a -> Maybe a
Just (OverlaySourceOrderConfig -> DOMRGBA
overlaySourceOrderConfigChildOutlineColor OverlaySourceOrderConfig
p)
    ]

-- | Type 'Overlay.GridHighlightConfig'.
--   Configuration data for the highlighting of Grid elements.
data OverlayGridHighlightConfig = OverlayGridHighlightConfig
  {
    -- | Whether the extension lines from grid cells to the rulers should be shown (default: false).
    OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowGridExtensionLines :: Maybe Bool,
    -- | Show Positive line number labels (default: false).
    OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowPositiveLineNumbers :: Maybe Bool,
    -- | Show Negative line number labels (default: false).
    OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowNegativeLineNumbers :: Maybe Bool,
    -- | Show area name labels (default: false).
    OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowAreaNames :: Maybe Bool,
    -- | Show line name labels (default: false).
    OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowLineNames :: Maybe Bool,
    -- | Show track size labels (default: false).
    OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowTrackSizes :: Maybe Bool,
    -- | The grid container border highlight color (default: transparent).
    OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigGridBorderColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The row line color (default: transparent).
    OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigRowLineColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The column line color (default: transparent).
    OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigColumnLineColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | Whether the grid border is dashed (default: false).
    OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigGridBorderDash :: Maybe Bool,
    -- | Whether row lines are dashed (default: false).
    OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigRowLineDash :: Maybe Bool,
    -- | Whether column lines are dashed (default: false).
    OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigColumnLineDash :: Maybe Bool,
    -- | The row gap highlight fill color (default: transparent).
    OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigRowGapColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The row gap hatching fill color (default: transparent).
    OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigRowHatchColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The column gap highlight fill color (default: transparent).
    OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigColumnGapColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The column gap hatching fill color (default: transparent).
    OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigColumnHatchColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The named grid areas border color (Default: transparent).
    OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigAreaBorderColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The grid container background color (Default: transparent).
    OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigGridBackgroundColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA
  }
  deriving (OverlayGridHighlightConfig -> OverlayGridHighlightConfig -> Bool
(OverlayGridHighlightConfig -> OverlayGridHighlightConfig -> Bool)
-> (OverlayGridHighlightConfig
    -> OverlayGridHighlightConfig -> Bool)
-> Eq OverlayGridHighlightConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayGridHighlightConfig -> OverlayGridHighlightConfig -> Bool
$c/= :: OverlayGridHighlightConfig -> OverlayGridHighlightConfig -> Bool
== :: OverlayGridHighlightConfig -> OverlayGridHighlightConfig -> Bool
$c== :: OverlayGridHighlightConfig -> OverlayGridHighlightConfig -> Bool
Eq, Int -> OverlayGridHighlightConfig -> ShowS
[OverlayGridHighlightConfig] -> ShowS
OverlayGridHighlightConfig -> String
(Int -> OverlayGridHighlightConfig -> ShowS)
-> (OverlayGridHighlightConfig -> String)
-> ([OverlayGridHighlightConfig] -> ShowS)
-> Show OverlayGridHighlightConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayGridHighlightConfig] -> ShowS
$cshowList :: [OverlayGridHighlightConfig] -> ShowS
show :: OverlayGridHighlightConfig -> String
$cshow :: OverlayGridHighlightConfig -> String
showsPrec :: Int -> OverlayGridHighlightConfig -> ShowS
$cshowsPrec :: Int -> OverlayGridHighlightConfig -> ShowS
Show)
instance FromJSON OverlayGridHighlightConfig where
  parseJSON :: Value -> Parser OverlayGridHighlightConfig
parseJSON = String
-> (Object -> Parser OverlayGridHighlightConfig)
-> Value
-> Parser OverlayGridHighlightConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayGridHighlightConfig" ((Object -> Parser OverlayGridHighlightConfig)
 -> Value -> Parser OverlayGridHighlightConfig)
-> (Object -> Parser OverlayGridHighlightConfig)
-> Value
-> Parser OverlayGridHighlightConfig
forall a b. (a -> b) -> a -> b
$ \Object
o -> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> OverlayGridHighlightConfig
OverlayGridHighlightConfig
    (Maybe Bool
 -> Maybe Bool
 -> Maybe Bool
 -> Maybe Bool
 -> Maybe Bool
 -> Maybe Bool
 -> Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> Maybe Bool
 -> Maybe Bool
 -> Maybe Bool
 -> Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> OverlayGridHighlightConfig)
-> Parser (Maybe Bool)
-> Parser
     (Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"showGridExtensionLines"
    Parser
  (Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> OverlayGridHighlightConfig)
-> Parser (Maybe Bool)
-> Parser
     (Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"showPositiveLineNumbers"
    Parser
  (Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> OverlayGridHighlightConfig)
-> Parser (Maybe Bool)
-> Parser
     (Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"showNegativeLineNumbers"
    Parser
  (Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> OverlayGridHighlightConfig)
-> Parser (Maybe Bool)
-> Parser
     (Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"showAreaNames"
    Parser
  (Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> OverlayGridHighlightConfig)
-> Parser (Maybe Bool)
-> Parser
     (Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"showLineNames"
    Parser
  (Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> OverlayGridHighlightConfig)
-> Parser (Maybe Bool)
-> Parser
     (Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"showTrackSizes"
    Parser
  (Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> OverlayGridHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"gridBorderColor"
    Parser
  (Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> OverlayGridHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe DOMRGBA
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"rowLineColor"
    Parser
  (Maybe DOMRGBA
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> OverlayGridHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"columnLineColor"
    Parser
  (Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> OverlayGridHighlightConfig)
-> Parser (Maybe Bool)
-> Parser
     (Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"gridBorderDash"
    Parser
  (Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> OverlayGridHighlightConfig)
-> Parser (Maybe Bool)
-> Parser
     (Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"rowLineDash"
    Parser
  (Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> OverlayGridHighlightConfig)
-> Parser (Maybe Bool)
-> Parser
     (Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"columnLineDash"
    Parser
  (Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> OverlayGridHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"rowGapColor"
    Parser
  (Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> OverlayGridHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"rowHatchColor"
    Parser
  (Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> OverlayGridHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe DOMRGBA
      -> Maybe DOMRGBA -> Maybe DOMRGBA -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"columnGapColor"
    Parser
  (Maybe DOMRGBA
   -> Maybe DOMRGBA -> Maybe DOMRGBA -> OverlayGridHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe DOMRGBA -> Maybe DOMRGBA -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"columnHatchColor"
    Parser
  (Maybe DOMRGBA -> Maybe DOMRGBA -> OverlayGridHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser (Maybe DOMRGBA -> OverlayGridHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"areaBorderColor"
    Parser (Maybe DOMRGBA -> OverlayGridHighlightConfig)
-> Parser (Maybe DOMRGBA) -> Parser OverlayGridHighlightConfig
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"gridBackgroundColor"
instance ToJSON OverlayGridHighlightConfig where
  toJSON :: OverlayGridHighlightConfig -> Value
toJSON OverlayGridHighlightConfig
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"showGridExtensionLines" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowGridExtensionLines OverlayGridHighlightConfig
p),
    (Text
"showPositiveLineNumbers" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowPositiveLineNumbers OverlayGridHighlightConfig
p),
    (Text
"showNegativeLineNumbers" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowNegativeLineNumbers OverlayGridHighlightConfig
p),
    (Text
"showAreaNames" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowAreaNames OverlayGridHighlightConfig
p),
    (Text
"showLineNames" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowLineNames OverlayGridHighlightConfig
p),
    (Text
"showTrackSizes" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowTrackSizes OverlayGridHighlightConfig
p),
    (Text
"gridBorderColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigGridBorderColor OverlayGridHighlightConfig
p),
    (Text
"rowLineColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigRowLineColor OverlayGridHighlightConfig
p),
    (Text
"columnLineColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigColumnLineColor OverlayGridHighlightConfig
p),
    (Text
"gridBorderDash" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigGridBorderDash OverlayGridHighlightConfig
p),
    (Text
"rowLineDash" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigRowLineDash OverlayGridHighlightConfig
p),
    (Text
"columnLineDash" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigColumnLineDash OverlayGridHighlightConfig
p),
    (Text
"rowGapColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigRowGapColor OverlayGridHighlightConfig
p),
    (Text
"rowHatchColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigRowHatchColor OverlayGridHighlightConfig
p),
    (Text
"columnGapColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigColumnGapColor OverlayGridHighlightConfig
p),
    (Text
"columnHatchColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigColumnHatchColor OverlayGridHighlightConfig
p),
    (Text
"areaBorderColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigAreaBorderColor OverlayGridHighlightConfig
p),
    (Text
"gridBackgroundColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigGridBackgroundColor OverlayGridHighlightConfig
p)
    ]

-- | Type 'Overlay.FlexContainerHighlightConfig'.
--   Configuration data for the highlighting of Flex container elements.
data OverlayFlexContainerHighlightConfig = OverlayFlexContainerHighlightConfig
  {
    -- | The style of the container border
    OverlayFlexContainerHighlightConfig -> Maybe OverlayLineStyle
overlayFlexContainerHighlightConfigContainerBorder :: Maybe OverlayLineStyle,
    -- | The style of the separator between lines
    OverlayFlexContainerHighlightConfig -> Maybe OverlayLineStyle
overlayFlexContainerHighlightConfigLineSeparator :: Maybe OverlayLineStyle,
    -- | The style of the separator between items
    OverlayFlexContainerHighlightConfig -> Maybe OverlayLineStyle
overlayFlexContainerHighlightConfigItemSeparator :: Maybe OverlayLineStyle,
    -- | Style of content-distribution space on the main axis (justify-content).
    OverlayFlexContainerHighlightConfig -> Maybe OverlayBoxStyle
overlayFlexContainerHighlightConfigMainDistributedSpace :: Maybe OverlayBoxStyle,
    -- | Style of content-distribution space on the cross axis (align-content).
    OverlayFlexContainerHighlightConfig -> Maybe OverlayBoxStyle
overlayFlexContainerHighlightConfigCrossDistributedSpace :: Maybe OverlayBoxStyle,
    -- | Style of empty space caused by row gaps (gap/row-gap).
    OverlayFlexContainerHighlightConfig -> Maybe OverlayBoxStyle
overlayFlexContainerHighlightConfigRowGapSpace :: Maybe OverlayBoxStyle,
    -- | Style of empty space caused by columns gaps (gap/column-gap).
    OverlayFlexContainerHighlightConfig -> Maybe OverlayBoxStyle
overlayFlexContainerHighlightConfigColumnGapSpace :: Maybe OverlayBoxStyle,
    -- | Style of the self-alignment line (align-items).
    OverlayFlexContainerHighlightConfig -> Maybe OverlayLineStyle
overlayFlexContainerHighlightConfigCrossAlignment :: Maybe OverlayLineStyle
  }
  deriving (OverlayFlexContainerHighlightConfig
-> OverlayFlexContainerHighlightConfig -> Bool
(OverlayFlexContainerHighlightConfig
 -> OverlayFlexContainerHighlightConfig -> Bool)
-> (OverlayFlexContainerHighlightConfig
    -> OverlayFlexContainerHighlightConfig -> Bool)
-> Eq OverlayFlexContainerHighlightConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayFlexContainerHighlightConfig
-> OverlayFlexContainerHighlightConfig -> Bool
$c/= :: OverlayFlexContainerHighlightConfig
-> OverlayFlexContainerHighlightConfig -> Bool
== :: OverlayFlexContainerHighlightConfig
-> OverlayFlexContainerHighlightConfig -> Bool
$c== :: OverlayFlexContainerHighlightConfig
-> OverlayFlexContainerHighlightConfig -> Bool
Eq, Int -> OverlayFlexContainerHighlightConfig -> ShowS
[OverlayFlexContainerHighlightConfig] -> ShowS
OverlayFlexContainerHighlightConfig -> String
(Int -> OverlayFlexContainerHighlightConfig -> ShowS)
-> (OverlayFlexContainerHighlightConfig -> String)
-> ([OverlayFlexContainerHighlightConfig] -> ShowS)
-> Show OverlayFlexContainerHighlightConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayFlexContainerHighlightConfig] -> ShowS
$cshowList :: [OverlayFlexContainerHighlightConfig] -> ShowS
show :: OverlayFlexContainerHighlightConfig -> String
$cshow :: OverlayFlexContainerHighlightConfig -> String
showsPrec :: Int -> OverlayFlexContainerHighlightConfig -> ShowS
$cshowsPrec :: Int -> OverlayFlexContainerHighlightConfig -> ShowS
Show)
instance FromJSON OverlayFlexContainerHighlightConfig where
  parseJSON :: Value -> Parser OverlayFlexContainerHighlightConfig
parseJSON = String
-> (Object -> Parser OverlayFlexContainerHighlightConfig)
-> Value
-> Parser OverlayFlexContainerHighlightConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayFlexContainerHighlightConfig" ((Object -> Parser OverlayFlexContainerHighlightConfig)
 -> Value -> Parser OverlayFlexContainerHighlightConfig)
-> (Object -> Parser OverlayFlexContainerHighlightConfig)
-> Value
-> Parser OverlayFlexContainerHighlightConfig
forall a b. (a -> b) -> a -> b
$ \Object
o -> Maybe OverlayLineStyle
-> Maybe OverlayLineStyle
-> Maybe OverlayLineStyle
-> Maybe OverlayBoxStyle
-> Maybe OverlayBoxStyle
-> Maybe OverlayBoxStyle
-> Maybe OverlayBoxStyle
-> Maybe OverlayLineStyle
-> OverlayFlexContainerHighlightConfig
OverlayFlexContainerHighlightConfig
    (Maybe OverlayLineStyle
 -> Maybe OverlayLineStyle
 -> Maybe OverlayLineStyle
 -> Maybe OverlayBoxStyle
 -> Maybe OverlayBoxStyle
 -> Maybe OverlayBoxStyle
 -> Maybe OverlayBoxStyle
 -> Maybe OverlayLineStyle
 -> OverlayFlexContainerHighlightConfig)
-> Parser (Maybe OverlayLineStyle)
-> Parser
     (Maybe OverlayLineStyle
      -> Maybe OverlayLineStyle
      -> Maybe OverlayBoxStyle
      -> Maybe OverlayBoxStyle
      -> Maybe OverlayBoxStyle
      -> Maybe OverlayBoxStyle
      -> Maybe OverlayLineStyle
      -> OverlayFlexContainerHighlightConfig)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser (Maybe OverlayLineStyle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"containerBorder"
    Parser
  (Maybe OverlayLineStyle
   -> Maybe OverlayLineStyle
   -> Maybe OverlayBoxStyle
   -> Maybe OverlayBoxStyle
   -> Maybe OverlayBoxStyle
   -> Maybe OverlayBoxStyle
   -> Maybe OverlayLineStyle
   -> OverlayFlexContainerHighlightConfig)
-> Parser (Maybe OverlayLineStyle)
-> Parser
     (Maybe OverlayLineStyle
      -> Maybe OverlayBoxStyle
      -> Maybe OverlayBoxStyle
      -> Maybe OverlayBoxStyle
      -> Maybe OverlayBoxStyle
      -> Maybe OverlayLineStyle
      -> OverlayFlexContainerHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe OverlayLineStyle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"lineSeparator"
    Parser
  (Maybe OverlayLineStyle
   -> Maybe OverlayBoxStyle
   -> Maybe OverlayBoxStyle
   -> Maybe OverlayBoxStyle
   -> Maybe OverlayBoxStyle
   -> Maybe OverlayLineStyle
   -> OverlayFlexContainerHighlightConfig)
-> Parser (Maybe OverlayLineStyle)
-> Parser
     (Maybe OverlayBoxStyle
      -> Maybe OverlayBoxStyle
      -> Maybe OverlayBoxStyle
      -> Maybe OverlayBoxStyle
      -> Maybe OverlayLineStyle
      -> OverlayFlexContainerHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe OverlayLineStyle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"itemSeparator"
    Parser
  (Maybe OverlayBoxStyle
   -> Maybe OverlayBoxStyle
   -> Maybe OverlayBoxStyle
   -> Maybe OverlayBoxStyle
   -> Maybe OverlayLineStyle
   -> OverlayFlexContainerHighlightConfig)
-> Parser (Maybe OverlayBoxStyle)
-> Parser
     (Maybe OverlayBoxStyle
      -> Maybe OverlayBoxStyle
      -> Maybe OverlayBoxStyle
      -> Maybe OverlayLineStyle
      -> OverlayFlexContainerHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe OverlayBoxStyle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"mainDistributedSpace"
    Parser
  (Maybe OverlayBoxStyle
   -> Maybe OverlayBoxStyle
   -> Maybe OverlayBoxStyle
   -> Maybe OverlayLineStyle
   -> OverlayFlexContainerHighlightConfig)
-> Parser (Maybe OverlayBoxStyle)
-> Parser
     (Maybe OverlayBoxStyle
      -> Maybe OverlayBoxStyle
      -> Maybe OverlayLineStyle
      -> OverlayFlexContainerHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe OverlayBoxStyle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"crossDistributedSpace"
    Parser
  (Maybe OverlayBoxStyle
   -> Maybe OverlayBoxStyle
   -> Maybe OverlayLineStyle
   -> OverlayFlexContainerHighlightConfig)
-> Parser (Maybe OverlayBoxStyle)
-> Parser
     (Maybe OverlayBoxStyle
      -> Maybe OverlayLineStyle -> OverlayFlexContainerHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe OverlayBoxStyle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"rowGapSpace"
    Parser
  (Maybe OverlayBoxStyle
   -> Maybe OverlayLineStyle -> OverlayFlexContainerHighlightConfig)
-> Parser (Maybe OverlayBoxStyle)
-> Parser
     (Maybe OverlayLineStyle -> OverlayFlexContainerHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe OverlayBoxStyle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"columnGapSpace"
    Parser
  (Maybe OverlayLineStyle -> OverlayFlexContainerHighlightConfig)
-> Parser (Maybe OverlayLineStyle)
-> Parser OverlayFlexContainerHighlightConfig
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe OverlayLineStyle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"crossAlignment"
instance ToJSON OverlayFlexContainerHighlightConfig where
  toJSON :: OverlayFlexContainerHighlightConfig -> Value
toJSON OverlayFlexContainerHighlightConfig
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"containerBorder" Text -> OverlayLineStyle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayLineStyle -> Pair) -> Maybe OverlayLineStyle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayFlexContainerHighlightConfig -> Maybe OverlayLineStyle
overlayFlexContainerHighlightConfigContainerBorder OverlayFlexContainerHighlightConfig
p),
    (Text
"lineSeparator" Text -> OverlayLineStyle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayLineStyle -> Pair) -> Maybe OverlayLineStyle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayFlexContainerHighlightConfig -> Maybe OverlayLineStyle
overlayFlexContainerHighlightConfigLineSeparator OverlayFlexContainerHighlightConfig
p),
    (Text
"itemSeparator" Text -> OverlayLineStyle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayLineStyle -> Pair) -> Maybe OverlayLineStyle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayFlexContainerHighlightConfig -> Maybe OverlayLineStyle
overlayFlexContainerHighlightConfigItemSeparator OverlayFlexContainerHighlightConfig
p),
    (Text
"mainDistributedSpace" Text -> OverlayBoxStyle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayBoxStyle -> Pair) -> Maybe OverlayBoxStyle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayFlexContainerHighlightConfig -> Maybe OverlayBoxStyle
overlayFlexContainerHighlightConfigMainDistributedSpace OverlayFlexContainerHighlightConfig
p),
    (Text
"crossDistributedSpace" Text -> OverlayBoxStyle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayBoxStyle -> Pair) -> Maybe OverlayBoxStyle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayFlexContainerHighlightConfig -> Maybe OverlayBoxStyle
overlayFlexContainerHighlightConfigCrossDistributedSpace OverlayFlexContainerHighlightConfig
p),
    (Text
"rowGapSpace" Text -> OverlayBoxStyle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayBoxStyle -> Pair) -> Maybe OverlayBoxStyle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayFlexContainerHighlightConfig -> Maybe OverlayBoxStyle
overlayFlexContainerHighlightConfigRowGapSpace OverlayFlexContainerHighlightConfig
p),
    (Text
"columnGapSpace" Text -> OverlayBoxStyle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayBoxStyle -> Pair) -> Maybe OverlayBoxStyle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayFlexContainerHighlightConfig -> Maybe OverlayBoxStyle
overlayFlexContainerHighlightConfigColumnGapSpace OverlayFlexContainerHighlightConfig
p),
    (Text
"crossAlignment" Text -> OverlayLineStyle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayLineStyle -> Pair) -> Maybe OverlayLineStyle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayFlexContainerHighlightConfig -> Maybe OverlayLineStyle
overlayFlexContainerHighlightConfigCrossAlignment OverlayFlexContainerHighlightConfig
p)
    ]

-- | Type 'Overlay.FlexItemHighlightConfig'.
--   Configuration data for the highlighting of Flex item elements.
data OverlayFlexItemHighlightConfig = OverlayFlexItemHighlightConfig
  {
    -- | Style of the box representing the item's base size
    OverlayFlexItemHighlightConfig -> Maybe OverlayBoxStyle
overlayFlexItemHighlightConfigBaseSizeBox :: Maybe OverlayBoxStyle,
    -- | Style of the border around the box representing the item's base size
    OverlayFlexItemHighlightConfig -> Maybe OverlayLineStyle
overlayFlexItemHighlightConfigBaseSizeBorder :: Maybe OverlayLineStyle,
    -- | Style of the arrow representing if the item grew or shrank
    OverlayFlexItemHighlightConfig -> Maybe OverlayLineStyle
overlayFlexItemHighlightConfigFlexibilityArrow :: Maybe OverlayLineStyle
  }
  deriving (OverlayFlexItemHighlightConfig
-> OverlayFlexItemHighlightConfig -> Bool
(OverlayFlexItemHighlightConfig
 -> OverlayFlexItemHighlightConfig -> Bool)
-> (OverlayFlexItemHighlightConfig
    -> OverlayFlexItemHighlightConfig -> Bool)
-> Eq OverlayFlexItemHighlightConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayFlexItemHighlightConfig
-> OverlayFlexItemHighlightConfig -> Bool
$c/= :: OverlayFlexItemHighlightConfig
-> OverlayFlexItemHighlightConfig -> Bool
== :: OverlayFlexItemHighlightConfig
-> OverlayFlexItemHighlightConfig -> Bool
$c== :: OverlayFlexItemHighlightConfig
-> OverlayFlexItemHighlightConfig -> Bool
Eq, Int -> OverlayFlexItemHighlightConfig -> ShowS
[OverlayFlexItemHighlightConfig] -> ShowS
OverlayFlexItemHighlightConfig -> String
(Int -> OverlayFlexItemHighlightConfig -> ShowS)
-> (OverlayFlexItemHighlightConfig -> String)
-> ([OverlayFlexItemHighlightConfig] -> ShowS)
-> Show OverlayFlexItemHighlightConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayFlexItemHighlightConfig] -> ShowS
$cshowList :: [OverlayFlexItemHighlightConfig] -> ShowS
show :: OverlayFlexItemHighlightConfig -> String
$cshow :: OverlayFlexItemHighlightConfig -> String
showsPrec :: Int -> OverlayFlexItemHighlightConfig -> ShowS
$cshowsPrec :: Int -> OverlayFlexItemHighlightConfig -> ShowS
Show)
instance FromJSON OverlayFlexItemHighlightConfig where
  parseJSON :: Value -> Parser OverlayFlexItemHighlightConfig
parseJSON = String
-> (Object -> Parser OverlayFlexItemHighlightConfig)
-> Value
-> Parser OverlayFlexItemHighlightConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayFlexItemHighlightConfig" ((Object -> Parser OverlayFlexItemHighlightConfig)
 -> Value -> Parser OverlayFlexItemHighlightConfig)
-> (Object -> Parser OverlayFlexItemHighlightConfig)
-> Value
-> Parser OverlayFlexItemHighlightConfig
forall a b. (a -> b) -> a -> b
$ \Object
o -> Maybe OverlayBoxStyle
-> Maybe OverlayLineStyle
-> Maybe OverlayLineStyle
-> OverlayFlexItemHighlightConfig
OverlayFlexItemHighlightConfig
    (Maybe OverlayBoxStyle
 -> Maybe OverlayLineStyle
 -> Maybe OverlayLineStyle
 -> OverlayFlexItemHighlightConfig)
-> Parser (Maybe OverlayBoxStyle)
-> Parser
     (Maybe OverlayLineStyle
      -> Maybe OverlayLineStyle -> OverlayFlexItemHighlightConfig)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser (Maybe OverlayBoxStyle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"baseSizeBox"
    Parser
  (Maybe OverlayLineStyle
   -> Maybe OverlayLineStyle -> OverlayFlexItemHighlightConfig)
-> Parser (Maybe OverlayLineStyle)
-> Parser
     (Maybe OverlayLineStyle -> OverlayFlexItemHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe OverlayLineStyle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"baseSizeBorder"
    Parser (Maybe OverlayLineStyle -> OverlayFlexItemHighlightConfig)
-> Parser (Maybe OverlayLineStyle)
-> Parser OverlayFlexItemHighlightConfig
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe OverlayLineStyle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"flexibilityArrow"
instance ToJSON OverlayFlexItemHighlightConfig where
  toJSON :: OverlayFlexItemHighlightConfig -> Value
toJSON OverlayFlexItemHighlightConfig
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"baseSizeBox" Text -> OverlayBoxStyle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayBoxStyle -> Pair) -> Maybe OverlayBoxStyle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayFlexItemHighlightConfig -> Maybe OverlayBoxStyle
overlayFlexItemHighlightConfigBaseSizeBox OverlayFlexItemHighlightConfig
p),
    (Text
"baseSizeBorder" Text -> OverlayLineStyle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayLineStyle -> Pair) -> Maybe OverlayLineStyle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayFlexItemHighlightConfig -> Maybe OverlayLineStyle
overlayFlexItemHighlightConfigBaseSizeBorder OverlayFlexItemHighlightConfig
p),
    (Text
"flexibilityArrow" Text -> OverlayLineStyle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayLineStyle -> Pair) -> Maybe OverlayLineStyle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayFlexItemHighlightConfig -> Maybe OverlayLineStyle
overlayFlexItemHighlightConfigFlexibilityArrow OverlayFlexItemHighlightConfig
p)
    ]

-- | Type 'Overlay.LineStyle'.
--   Style information for drawing a line.
data OverlayLineStylePattern = OverlayLineStylePatternDashed | OverlayLineStylePatternDotted
  deriving (Eq OverlayLineStylePattern
Eq OverlayLineStylePattern
-> (OverlayLineStylePattern -> OverlayLineStylePattern -> Ordering)
-> (OverlayLineStylePattern -> OverlayLineStylePattern -> Bool)
-> (OverlayLineStylePattern -> OverlayLineStylePattern -> Bool)
-> (OverlayLineStylePattern -> OverlayLineStylePattern -> Bool)
-> (OverlayLineStylePattern -> OverlayLineStylePattern -> Bool)
-> (OverlayLineStylePattern
    -> OverlayLineStylePattern -> OverlayLineStylePattern)
-> (OverlayLineStylePattern
    -> OverlayLineStylePattern -> OverlayLineStylePattern)
-> Ord OverlayLineStylePattern
OverlayLineStylePattern -> OverlayLineStylePattern -> Bool
OverlayLineStylePattern -> OverlayLineStylePattern -> Ordering
OverlayLineStylePattern
-> OverlayLineStylePattern -> OverlayLineStylePattern
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: OverlayLineStylePattern
-> OverlayLineStylePattern -> OverlayLineStylePattern
$cmin :: OverlayLineStylePattern
-> OverlayLineStylePattern -> OverlayLineStylePattern
max :: OverlayLineStylePattern
-> OverlayLineStylePattern -> OverlayLineStylePattern
$cmax :: OverlayLineStylePattern
-> OverlayLineStylePattern -> OverlayLineStylePattern
>= :: OverlayLineStylePattern -> OverlayLineStylePattern -> Bool
$c>= :: OverlayLineStylePattern -> OverlayLineStylePattern -> Bool
> :: OverlayLineStylePattern -> OverlayLineStylePattern -> Bool
$c> :: OverlayLineStylePattern -> OverlayLineStylePattern -> Bool
<= :: OverlayLineStylePattern -> OverlayLineStylePattern -> Bool
$c<= :: OverlayLineStylePattern -> OverlayLineStylePattern -> Bool
< :: OverlayLineStylePattern -> OverlayLineStylePattern -> Bool
$c< :: OverlayLineStylePattern -> OverlayLineStylePattern -> Bool
compare :: OverlayLineStylePattern -> OverlayLineStylePattern -> Ordering
$ccompare :: OverlayLineStylePattern -> OverlayLineStylePattern -> Ordering
$cp1Ord :: Eq OverlayLineStylePattern
Ord, OverlayLineStylePattern -> OverlayLineStylePattern -> Bool
(OverlayLineStylePattern -> OverlayLineStylePattern -> Bool)
-> (OverlayLineStylePattern -> OverlayLineStylePattern -> Bool)
-> Eq OverlayLineStylePattern
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayLineStylePattern -> OverlayLineStylePattern -> Bool
$c/= :: OverlayLineStylePattern -> OverlayLineStylePattern -> Bool
== :: OverlayLineStylePattern -> OverlayLineStylePattern -> Bool
$c== :: OverlayLineStylePattern -> OverlayLineStylePattern -> Bool
Eq, Int -> OverlayLineStylePattern -> ShowS
[OverlayLineStylePattern] -> ShowS
OverlayLineStylePattern -> String
(Int -> OverlayLineStylePattern -> ShowS)
-> (OverlayLineStylePattern -> String)
-> ([OverlayLineStylePattern] -> ShowS)
-> Show OverlayLineStylePattern
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayLineStylePattern] -> ShowS
$cshowList :: [OverlayLineStylePattern] -> ShowS
show :: OverlayLineStylePattern -> String
$cshow :: OverlayLineStylePattern -> String
showsPrec :: Int -> OverlayLineStylePattern -> ShowS
$cshowsPrec :: Int -> OverlayLineStylePattern -> ShowS
Show, ReadPrec [OverlayLineStylePattern]
ReadPrec OverlayLineStylePattern
Int -> ReadS OverlayLineStylePattern
ReadS [OverlayLineStylePattern]
(Int -> ReadS OverlayLineStylePattern)
-> ReadS [OverlayLineStylePattern]
-> ReadPrec OverlayLineStylePattern
-> ReadPrec [OverlayLineStylePattern]
-> Read OverlayLineStylePattern
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [OverlayLineStylePattern]
$creadListPrec :: ReadPrec [OverlayLineStylePattern]
readPrec :: ReadPrec OverlayLineStylePattern
$creadPrec :: ReadPrec OverlayLineStylePattern
readList :: ReadS [OverlayLineStylePattern]
$creadList :: ReadS [OverlayLineStylePattern]
readsPrec :: Int -> ReadS OverlayLineStylePattern
$creadsPrec :: Int -> ReadS OverlayLineStylePattern
Read)
instance FromJSON OverlayLineStylePattern where
  parseJSON :: Value -> Parser OverlayLineStylePattern
parseJSON = String
-> (Text -> Parser OverlayLineStylePattern)
-> Value
-> Parser OverlayLineStylePattern
forall a. String -> (Text -> Parser a) -> Value -> Parser a
A.withText String
"OverlayLineStylePattern" ((Text -> Parser OverlayLineStylePattern)
 -> Value -> Parser OverlayLineStylePattern)
-> (Text -> Parser OverlayLineStylePattern)
-> Value
-> Parser OverlayLineStylePattern
forall a b. (a -> b) -> a -> b
$ \Text
v -> case Text
v of
    Text
"dashed" -> OverlayLineStylePattern -> Parser OverlayLineStylePattern
forall (f :: * -> *) a. Applicative f => a -> f a
pure OverlayLineStylePattern
OverlayLineStylePatternDashed
    Text
"dotted" -> OverlayLineStylePattern -> Parser OverlayLineStylePattern
forall (f :: * -> *) a. Applicative f => a -> f a
pure OverlayLineStylePattern
OverlayLineStylePatternDotted
    Text
"_" -> String -> Parser OverlayLineStylePattern
forall (m :: * -> *) a. MonadFail m => String -> m a
fail String
"failed to parse OverlayLineStylePattern"
instance ToJSON OverlayLineStylePattern where
  toJSON :: OverlayLineStylePattern -> Value
toJSON OverlayLineStylePattern
v = Text -> Value
A.String (Text -> Value) -> Text -> Value
forall a b. (a -> b) -> a -> b
$ case OverlayLineStylePattern
v of
    OverlayLineStylePattern
OverlayLineStylePatternDashed -> Text
"dashed"
    OverlayLineStylePattern
OverlayLineStylePatternDotted -> Text
"dotted"
data OverlayLineStyle = OverlayLineStyle
  {
    -- | The color of the line (default: transparent)
    OverlayLineStyle -> Maybe DOMRGBA
overlayLineStyleColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The line pattern (default: solid)
    OverlayLineStyle -> Maybe OverlayLineStylePattern
overlayLineStylePattern :: Maybe OverlayLineStylePattern
  }
  deriving (OverlayLineStyle -> OverlayLineStyle -> Bool
(OverlayLineStyle -> OverlayLineStyle -> Bool)
-> (OverlayLineStyle -> OverlayLineStyle -> Bool)
-> Eq OverlayLineStyle
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayLineStyle -> OverlayLineStyle -> Bool
$c/= :: OverlayLineStyle -> OverlayLineStyle -> Bool
== :: OverlayLineStyle -> OverlayLineStyle -> Bool
$c== :: OverlayLineStyle -> OverlayLineStyle -> Bool
Eq, Int -> OverlayLineStyle -> ShowS
[OverlayLineStyle] -> ShowS
OverlayLineStyle -> String
(Int -> OverlayLineStyle -> ShowS)
-> (OverlayLineStyle -> String)
-> ([OverlayLineStyle] -> ShowS)
-> Show OverlayLineStyle
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayLineStyle] -> ShowS
$cshowList :: [OverlayLineStyle] -> ShowS
show :: OverlayLineStyle -> String
$cshow :: OverlayLineStyle -> String
showsPrec :: Int -> OverlayLineStyle -> ShowS
$cshowsPrec :: Int -> OverlayLineStyle -> ShowS
Show)
instance FromJSON OverlayLineStyle where
  parseJSON :: Value -> Parser OverlayLineStyle
parseJSON = String
-> (Object -> Parser OverlayLineStyle)
-> Value
-> Parser OverlayLineStyle
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayLineStyle" ((Object -> Parser OverlayLineStyle)
 -> Value -> Parser OverlayLineStyle)
-> (Object -> Parser OverlayLineStyle)
-> Value
-> Parser OverlayLineStyle
forall a b. (a -> b) -> a -> b
$ \Object
o -> Maybe DOMRGBA -> Maybe OverlayLineStylePattern -> OverlayLineStyle
OverlayLineStyle
    (Maybe DOMRGBA
 -> Maybe OverlayLineStylePattern -> OverlayLineStyle)
-> Parser (Maybe DOMRGBA)
-> Parser (Maybe OverlayLineStylePattern -> OverlayLineStyle)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"color"
    Parser (Maybe OverlayLineStylePattern -> OverlayLineStyle)
-> Parser (Maybe OverlayLineStylePattern)
-> Parser OverlayLineStyle
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe OverlayLineStylePattern)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"pattern"
instance ToJSON OverlayLineStyle where
  toJSON :: OverlayLineStyle -> Value
toJSON OverlayLineStyle
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"color" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayLineStyle -> Maybe DOMRGBA
overlayLineStyleColor OverlayLineStyle
p),
    (Text
"pattern" Text -> OverlayLineStylePattern -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayLineStylePattern -> Pair)
-> Maybe OverlayLineStylePattern -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayLineStyle -> Maybe OverlayLineStylePattern
overlayLineStylePattern OverlayLineStyle
p)
    ]

-- | Type 'Overlay.BoxStyle'.
--   Style information for drawing a box.
data OverlayBoxStyle = OverlayBoxStyle
  {
    -- | The background color for the box (default: transparent)
    OverlayBoxStyle -> Maybe DOMRGBA
overlayBoxStyleFillColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The hatching color for the box (default: transparent)
    OverlayBoxStyle -> Maybe DOMRGBA
overlayBoxStyleHatchColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA
  }
  deriving (OverlayBoxStyle -> OverlayBoxStyle -> Bool
(OverlayBoxStyle -> OverlayBoxStyle -> Bool)
-> (OverlayBoxStyle -> OverlayBoxStyle -> Bool)
-> Eq OverlayBoxStyle
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayBoxStyle -> OverlayBoxStyle -> Bool
$c/= :: OverlayBoxStyle -> OverlayBoxStyle -> Bool
== :: OverlayBoxStyle -> OverlayBoxStyle -> Bool
$c== :: OverlayBoxStyle -> OverlayBoxStyle -> Bool
Eq, Int -> OverlayBoxStyle -> ShowS
[OverlayBoxStyle] -> ShowS
OverlayBoxStyle -> String
(Int -> OverlayBoxStyle -> ShowS)
-> (OverlayBoxStyle -> String)
-> ([OverlayBoxStyle] -> ShowS)
-> Show OverlayBoxStyle
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayBoxStyle] -> ShowS
$cshowList :: [OverlayBoxStyle] -> ShowS
show :: OverlayBoxStyle -> String
$cshow :: OverlayBoxStyle -> String
showsPrec :: Int -> OverlayBoxStyle -> ShowS
$cshowsPrec :: Int -> OverlayBoxStyle -> ShowS
Show)
instance FromJSON OverlayBoxStyle where
  parseJSON :: Value -> Parser OverlayBoxStyle
parseJSON = String
-> (Object -> Parser OverlayBoxStyle)
-> Value
-> Parser OverlayBoxStyle
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayBoxStyle" ((Object -> Parser OverlayBoxStyle)
 -> Value -> Parser OverlayBoxStyle)
-> (Object -> Parser OverlayBoxStyle)
-> Value
-> Parser OverlayBoxStyle
forall a b. (a -> b) -> a -> b
$ \Object
o -> Maybe DOMRGBA -> Maybe DOMRGBA -> OverlayBoxStyle
OverlayBoxStyle
    (Maybe DOMRGBA -> Maybe DOMRGBA -> OverlayBoxStyle)
-> Parser (Maybe DOMRGBA)
-> Parser (Maybe DOMRGBA -> OverlayBoxStyle)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"fillColor"
    Parser (Maybe DOMRGBA -> OverlayBoxStyle)
-> Parser (Maybe DOMRGBA) -> Parser OverlayBoxStyle
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"hatchColor"
instance ToJSON OverlayBoxStyle where
  toJSON :: OverlayBoxStyle -> Value
toJSON OverlayBoxStyle
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"fillColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayBoxStyle -> Maybe DOMRGBA
overlayBoxStyleFillColor OverlayBoxStyle
p),
    (Text
"hatchColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayBoxStyle -> Maybe DOMRGBA
overlayBoxStyleHatchColor OverlayBoxStyle
p)
    ]

-- | Type 'Overlay.ContrastAlgorithm'.
data OverlayContrastAlgorithm = OverlayContrastAlgorithmAa | OverlayContrastAlgorithmAaa | OverlayContrastAlgorithmApca
  deriving (Eq OverlayContrastAlgorithm
Eq OverlayContrastAlgorithm
-> (OverlayContrastAlgorithm
    -> OverlayContrastAlgorithm -> Ordering)
-> (OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool)
-> (OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool)
-> (OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool)
-> (OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool)
-> (OverlayContrastAlgorithm
    -> OverlayContrastAlgorithm -> OverlayContrastAlgorithm)
-> (OverlayContrastAlgorithm
    -> OverlayContrastAlgorithm -> OverlayContrastAlgorithm)
-> Ord OverlayContrastAlgorithm
OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool
OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Ordering
OverlayContrastAlgorithm
-> OverlayContrastAlgorithm -> OverlayContrastAlgorithm
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: OverlayContrastAlgorithm
-> OverlayContrastAlgorithm -> OverlayContrastAlgorithm
$cmin :: OverlayContrastAlgorithm
-> OverlayContrastAlgorithm -> OverlayContrastAlgorithm
max :: OverlayContrastAlgorithm
-> OverlayContrastAlgorithm -> OverlayContrastAlgorithm
$cmax :: OverlayContrastAlgorithm
-> OverlayContrastAlgorithm -> OverlayContrastAlgorithm
>= :: OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool
$c>= :: OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool
> :: OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool
$c> :: OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool
<= :: OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool
$c<= :: OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool
< :: OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool
$c< :: OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool
compare :: OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Ordering
$ccompare :: OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Ordering
$cp1Ord :: Eq OverlayContrastAlgorithm
Ord, OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool
(OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool)
-> (OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool)
-> Eq OverlayContrastAlgorithm
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool
$c/= :: OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool
== :: OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool
$c== :: OverlayContrastAlgorithm -> OverlayContrastAlgorithm -> Bool
Eq, Int -> OverlayContrastAlgorithm -> ShowS
[OverlayContrastAlgorithm] -> ShowS
OverlayContrastAlgorithm -> String
(Int -> OverlayContrastAlgorithm -> ShowS)
-> (OverlayContrastAlgorithm -> String)
-> ([OverlayContrastAlgorithm] -> ShowS)
-> Show OverlayContrastAlgorithm
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayContrastAlgorithm] -> ShowS
$cshowList :: [OverlayContrastAlgorithm] -> ShowS
show :: OverlayContrastAlgorithm -> String
$cshow :: OverlayContrastAlgorithm -> String
showsPrec :: Int -> OverlayContrastAlgorithm -> ShowS
$cshowsPrec :: Int -> OverlayContrastAlgorithm -> ShowS
Show, ReadPrec [OverlayContrastAlgorithm]
ReadPrec OverlayContrastAlgorithm
Int -> ReadS OverlayContrastAlgorithm
ReadS [OverlayContrastAlgorithm]
(Int -> ReadS OverlayContrastAlgorithm)
-> ReadS [OverlayContrastAlgorithm]
-> ReadPrec OverlayContrastAlgorithm
-> ReadPrec [OverlayContrastAlgorithm]
-> Read OverlayContrastAlgorithm
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [OverlayContrastAlgorithm]
$creadListPrec :: ReadPrec [OverlayContrastAlgorithm]
readPrec :: ReadPrec OverlayContrastAlgorithm
$creadPrec :: ReadPrec OverlayContrastAlgorithm
readList :: ReadS [OverlayContrastAlgorithm]
$creadList :: ReadS [OverlayContrastAlgorithm]
readsPrec :: Int -> ReadS OverlayContrastAlgorithm
$creadsPrec :: Int -> ReadS OverlayContrastAlgorithm
Read)
instance FromJSON OverlayContrastAlgorithm where
  parseJSON :: Value -> Parser OverlayContrastAlgorithm
parseJSON = String
-> (Text -> Parser OverlayContrastAlgorithm)
-> Value
-> Parser OverlayContrastAlgorithm
forall a. String -> (Text -> Parser a) -> Value -> Parser a
A.withText String
"OverlayContrastAlgorithm" ((Text -> Parser OverlayContrastAlgorithm)
 -> Value -> Parser OverlayContrastAlgorithm)
-> (Text -> Parser OverlayContrastAlgorithm)
-> Value
-> Parser OverlayContrastAlgorithm
forall a b. (a -> b) -> a -> b
$ \Text
v -> case Text
v of
    Text
"aa" -> OverlayContrastAlgorithm -> Parser OverlayContrastAlgorithm
forall (f :: * -> *) a. Applicative f => a -> f a
pure OverlayContrastAlgorithm
OverlayContrastAlgorithmAa
    Text
"aaa" -> OverlayContrastAlgorithm -> Parser OverlayContrastAlgorithm
forall (f :: * -> *) a. Applicative f => a -> f a
pure OverlayContrastAlgorithm
OverlayContrastAlgorithmAaa
    Text
"apca" -> OverlayContrastAlgorithm -> Parser OverlayContrastAlgorithm
forall (f :: * -> *) a. Applicative f => a -> f a
pure OverlayContrastAlgorithm
OverlayContrastAlgorithmApca
    Text
"_" -> String -> Parser OverlayContrastAlgorithm
forall (m :: * -> *) a. MonadFail m => String -> m a
fail String
"failed to parse OverlayContrastAlgorithm"
instance ToJSON OverlayContrastAlgorithm where
  toJSON :: OverlayContrastAlgorithm -> Value
toJSON OverlayContrastAlgorithm
v = Text -> Value
A.String (Text -> Value) -> Text -> Value
forall a b. (a -> b) -> a -> b
$ case OverlayContrastAlgorithm
v of
    OverlayContrastAlgorithm
OverlayContrastAlgorithmAa -> Text
"aa"
    OverlayContrastAlgorithm
OverlayContrastAlgorithmAaa -> Text
"aaa"
    OverlayContrastAlgorithm
OverlayContrastAlgorithmApca -> Text
"apca"

-- | Type 'Overlay.HighlightConfig'.
--   Configuration data for the highlighting of page elements.
data OverlayHighlightConfig = OverlayHighlightConfig
  {
    -- | Whether the node info tooltip should be shown (default: false).
    OverlayHighlightConfig -> Maybe Bool
overlayHighlightConfigShowInfo :: Maybe Bool,
    -- | Whether the node styles in the tooltip (default: false).
    OverlayHighlightConfig -> Maybe Bool
overlayHighlightConfigShowStyles :: Maybe Bool,
    -- | Whether the rulers should be shown (default: false).
    OverlayHighlightConfig -> Maybe Bool
overlayHighlightConfigShowRulers :: Maybe Bool,
    -- | Whether the a11y info should be shown (default: true).
    OverlayHighlightConfig -> Maybe Bool
overlayHighlightConfigShowAccessibilityInfo :: Maybe Bool,
    -- | Whether the extension lines from node to the rulers should be shown (default: false).
    OverlayHighlightConfig -> Maybe Bool
overlayHighlightConfigShowExtensionLines :: Maybe Bool,
    -- | The content box highlight fill color (default: transparent).
    OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigContentColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The padding highlight fill color (default: transparent).
    OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigPaddingColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The border highlight fill color (default: transparent).
    OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigBorderColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The margin highlight fill color (default: transparent).
    OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigMarginColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The event target element highlight fill color (default: transparent).
    OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigEventTargetColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The shape outside fill color (default: transparent).
    OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigShapeColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The shape margin fill color (default: transparent).
    OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigShapeMarginColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The grid layout color (default: transparent).
    OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigCssGridColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The color format used to format color styles (default: hex).
    OverlayHighlightConfig -> Maybe OverlayColorFormat
overlayHighlightConfigColorFormat :: Maybe OverlayColorFormat,
    -- | The grid layout highlight configuration (default: all transparent).
    OverlayHighlightConfig -> Maybe OverlayGridHighlightConfig
overlayHighlightConfigGridHighlightConfig :: Maybe OverlayGridHighlightConfig,
    -- | The flex container highlight configuration (default: all transparent).
    OverlayHighlightConfig -> Maybe OverlayFlexContainerHighlightConfig
overlayHighlightConfigFlexContainerHighlightConfig :: Maybe OverlayFlexContainerHighlightConfig,
    -- | The flex item highlight configuration (default: all transparent).
    OverlayHighlightConfig -> Maybe OverlayFlexItemHighlightConfig
overlayHighlightConfigFlexItemHighlightConfig :: Maybe OverlayFlexItemHighlightConfig,
    -- | The contrast algorithm to use for the contrast ratio (default: aa).
    OverlayHighlightConfig -> Maybe OverlayContrastAlgorithm
overlayHighlightConfigContrastAlgorithm :: Maybe OverlayContrastAlgorithm,
    -- | The container query container highlight configuration (default: all transparent).
    OverlayHighlightConfig
-> Maybe OverlayContainerQueryContainerHighlightConfig
overlayHighlightConfigContainerQueryContainerHighlightConfig :: Maybe OverlayContainerQueryContainerHighlightConfig
  }
  deriving (OverlayHighlightConfig -> OverlayHighlightConfig -> Bool
(OverlayHighlightConfig -> OverlayHighlightConfig -> Bool)
-> (OverlayHighlightConfig -> OverlayHighlightConfig -> Bool)
-> Eq OverlayHighlightConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayHighlightConfig -> OverlayHighlightConfig -> Bool
$c/= :: OverlayHighlightConfig -> OverlayHighlightConfig -> Bool
== :: OverlayHighlightConfig -> OverlayHighlightConfig -> Bool
$c== :: OverlayHighlightConfig -> OverlayHighlightConfig -> Bool
Eq, Int -> OverlayHighlightConfig -> ShowS
[OverlayHighlightConfig] -> ShowS
OverlayHighlightConfig -> String
(Int -> OverlayHighlightConfig -> ShowS)
-> (OverlayHighlightConfig -> String)
-> ([OverlayHighlightConfig] -> ShowS)
-> Show OverlayHighlightConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayHighlightConfig] -> ShowS
$cshowList :: [OverlayHighlightConfig] -> ShowS
show :: OverlayHighlightConfig -> String
$cshow :: OverlayHighlightConfig -> String
showsPrec :: Int -> OverlayHighlightConfig -> ShowS
$cshowsPrec :: Int -> OverlayHighlightConfig -> ShowS
Show)
instance FromJSON OverlayHighlightConfig where
  parseJSON :: Value -> Parser OverlayHighlightConfig
parseJSON = String
-> (Object -> Parser OverlayHighlightConfig)
-> Value
-> Parser OverlayHighlightConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayHighlightConfig" ((Object -> Parser OverlayHighlightConfig)
 -> Value -> Parser OverlayHighlightConfig)
-> (Object -> Parser OverlayHighlightConfig)
-> Value
-> Parser OverlayHighlightConfig
forall a b. (a -> b) -> a -> b
$ \Object
o -> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> Maybe OverlayColorFormat
-> Maybe OverlayGridHighlightConfig
-> Maybe OverlayFlexContainerHighlightConfig
-> Maybe OverlayFlexItemHighlightConfig
-> Maybe OverlayContrastAlgorithm
-> Maybe OverlayContainerQueryContainerHighlightConfig
-> OverlayHighlightConfig
OverlayHighlightConfig
    (Maybe Bool
 -> Maybe Bool
 -> Maybe Bool
 -> Maybe Bool
 -> Maybe Bool
 -> Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> Maybe OverlayColorFormat
 -> Maybe OverlayGridHighlightConfig
 -> Maybe OverlayFlexContainerHighlightConfig
 -> Maybe OverlayFlexItemHighlightConfig
 -> Maybe OverlayContrastAlgorithm
 -> Maybe OverlayContainerQueryContainerHighlightConfig
 -> OverlayHighlightConfig)
-> Parser (Maybe Bool)
-> Parser
     (Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe OverlayColorFormat
      -> Maybe OverlayGridHighlightConfig
      -> Maybe OverlayFlexContainerHighlightConfig
      -> Maybe OverlayFlexItemHighlightConfig
      -> Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"showInfo"
    Parser
  (Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe OverlayColorFormat
   -> Maybe OverlayGridHighlightConfig
   -> Maybe OverlayFlexContainerHighlightConfig
   -> Maybe OverlayFlexItemHighlightConfig
   -> Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe Bool)
-> Parser
     (Maybe Bool
      -> Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe OverlayColorFormat
      -> Maybe OverlayGridHighlightConfig
      -> Maybe OverlayFlexContainerHighlightConfig
      -> Maybe OverlayFlexItemHighlightConfig
      -> Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"showStyles"
    Parser
  (Maybe Bool
   -> Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe OverlayColorFormat
   -> Maybe OverlayGridHighlightConfig
   -> Maybe OverlayFlexContainerHighlightConfig
   -> Maybe OverlayFlexItemHighlightConfig
   -> Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe Bool)
-> Parser
     (Maybe Bool
      -> Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe OverlayColorFormat
      -> Maybe OverlayGridHighlightConfig
      -> Maybe OverlayFlexContainerHighlightConfig
      -> Maybe OverlayFlexItemHighlightConfig
      -> Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"showRulers"
    Parser
  (Maybe Bool
   -> Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe OverlayColorFormat
   -> Maybe OverlayGridHighlightConfig
   -> Maybe OverlayFlexContainerHighlightConfig
   -> Maybe OverlayFlexItemHighlightConfig
   -> Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe Bool)
-> Parser
     (Maybe Bool
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe OverlayColorFormat
      -> Maybe OverlayGridHighlightConfig
      -> Maybe OverlayFlexContainerHighlightConfig
      -> Maybe OverlayFlexItemHighlightConfig
      -> Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"showAccessibilityInfo"
    Parser
  (Maybe Bool
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe OverlayColorFormat
   -> Maybe OverlayGridHighlightConfig
   -> Maybe OverlayFlexContainerHighlightConfig
   -> Maybe OverlayFlexItemHighlightConfig
   -> Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe Bool)
-> Parser
     (Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe OverlayColorFormat
      -> Maybe OverlayGridHighlightConfig
      -> Maybe OverlayFlexContainerHighlightConfig
      -> Maybe OverlayFlexItemHighlightConfig
      -> Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"showExtensionLines"
    Parser
  (Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe OverlayColorFormat
   -> Maybe OverlayGridHighlightConfig
   -> Maybe OverlayFlexContainerHighlightConfig
   -> Maybe OverlayFlexItemHighlightConfig
   -> Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe OverlayColorFormat
      -> Maybe OverlayGridHighlightConfig
      -> Maybe OverlayFlexContainerHighlightConfig
      -> Maybe OverlayFlexItemHighlightConfig
      -> Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"contentColor"
    Parser
  (Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe OverlayColorFormat
   -> Maybe OverlayGridHighlightConfig
   -> Maybe OverlayFlexContainerHighlightConfig
   -> Maybe OverlayFlexItemHighlightConfig
   -> Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe OverlayColorFormat
      -> Maybe OverlayGridHighlightConfig
      -> Maybe OverlayFlexContainerHighlightConfig
      -> Maybe OverlayFlexItemHighlightConfig
      -> Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"paddingColor"
    Parser
  (Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe OverlayColorFormat
   -> Maybe OverlayGridHighlightConfig
   -> Maybe OverlayFlexContainerHighlightConfig
   -> Maybe OverlayFlexItemHighlightConfig
   -> Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe OverlayColorFormat
      -> Maybe OverlayGridHighlightConfig
      -> Maybe OverlayFlexContainerHighlightConfig
      -> Maybe OverlayFlexItemHighlightConfig
      -> Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"borderColor"
    Parser
  (Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe OverlayColorFormat
   -> Maybe OverlayGridHighlightConfig
   -> Maybe OverlayFlexContainerHighlightConfig
   -> Maybe OverlayFlexItemHighlightConfig
   -> Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe OverlayColorFormat
      -> Maybe OverlayGridHighlightConfig
      -> Maybe OverlayFlexContainerHighlightConfig
      -> Maybe OverlayFlexItemHighlightConfig
      -> Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"marginColor"
    Parser
  (Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe OverlayColorFormat
   -> Maybe OverlayGridHighlightConfig
   -> Maybe OverlayFlexContainerHighlightConfig
   -> Maybe OverlayFlexItemHighlightConfig
   -> Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe OverlayColorFormat
      -> Maybe OverlayGridHighlightConfig
      -> Maybe OverlayFlexContainerHighlightConfig
      -> Maybe OverlayFlexItemHighlightConfig
      -> Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"eventTargetColor"
    Parser
  (Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe OverlayColorFormat
   -> Maybe OverlayGridHighlightConfig
   -> Maybe OverlayFlexContainerHighlightConfig
   -> Maybe OverlayFlexItemHighlightConfig
   -> Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> Maybe OverlayColorFormat
      -> Maybe OverlayGridHighlightConfig
      -> Maybe OverlayFlexContainerHighlightConfig
      -> Maybe OverlayFlexItemHighlightConfig
      -> Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"shapeColor"
    Parser
  (Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> Maybe OverlayColorFormat
   -> Maybe OverlayGridHighlightConfig
   -> Maybe OverlayFlexContainerHighlightConfig
   -> Maybe OverlayFlexItemHighlightConfig
   -> Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe DOMRGBA
      -> Maybe OverlayColorFormat
      -> Maybe OverlayGridHighlightConfig
      -> Maybe OverlayFlexContainerHighlightConfig
      -> Maybe OverlayFlexItemHighlightConfig
      -> Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"shapeMarginColor"
    Parser
  (Maybe DOMRGBA
   -> Maybe OverlayColorFormat
   -> Maybe OverlayGridHighlightConfig
   -> Maybe OverlayFlexContainerHighlightConfig
   -> Maybe OverlayFlexItemHighlightConfig
   -> Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe OverlayColorFormat
      -> Maybe OverlayGridHighlightConfig
      -> Maybe OverlayFlexContainerHighlightConfig
      -> Maybe OverlayFlexItemHighlightConfig
      -> Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"cssGridColor"
    Parser
  (Maybe OverlayColorFormat
   -> Maybe OverlayGridHighlightConfig
   -> Maybe OverlayFlexContainerHighlightConfig
   -> Maybe OverlayFlexItemHighlightConfig
   -> Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe OverlayColorFormat)
-> Parser
     (Maybe OverlayGridHighlightConfig
      -> Maybe OverlayFlexContainerHighlightConfig
      -> Maybe OverlayFlexItemHighlightConfig
      -> Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe OverlayColorFormat)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"colorFormat"
    Parser
  (Maybe OverlayGridHighlightConfig
   -> Maybe OverlayFlexContainerHighlightConfig
   -> Maybe OverlayFlexItemHighlightConfig
   -> Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe OverlayGridHighlightConfig)
-> Parser
     (Maybe OverlayFlexContainerHighlightConfig
      -> Maybe OverlayFlexItemHighlightConfig
      -> Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe OverlayGridHighlightConfig)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"gridHighlightConfig"
    Parser
  (Maybe OverlayFlexContainerHighlightConfig
   -> Maybe OverlayFlexItemHighlightConfig
   -> Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe OverlayFlexContainerHighlightConfig)
-> Parser
     (Maybe OverlayFlexItemHighlightConfig
      -> Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object
-> Text -> Parser (Maybe OverlayFlexContainerHighlightConfig)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"flexContainerHighlightConfig"
    Parser
  (Maybe OverlayFlexItemHighlightConfig
   -> Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe OverlayFlexItemHighlightConfig)
-> Parser
     (Maybe OverlayContrastAlgorithm
      -> Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe OverlayFlexItemHighlightConfig)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"flexItemHighlightConfig"
    Parser
  (Maybe OverlayContrastAlgorithm
   -> Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe OverlayContrastAlgorithm)
-> Parser
     (Maybe OverlayContainerQueryContainerHighlightConfig
      -> OverlayHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe OverlayContrastAlgorithm)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"contrastAlgorithm"
    Parser
  (Maybe OverlayContainerQueryContainerHighlightConfig
   -> OverlayHighlightConfig)
-> Parser (Maybe OverlayContainerQueryContainerHighlightConfig)
-> Parser OverlayHighlightConfig
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object
-> Text
-> Parser (Maybe OverlayContainerQueryContainerHighlightConfig)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"containerQueryContainerHighlightConfig"
instance ToJSON OverlayHighlightConfig where
  toJSON :: OverlayHighlightConfig -> Value
toJSON OverlayHighlightConfig
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"showInfo" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe Bool
overlayHighlightConfigShowInfo OverlayHighlightConfig
p),
    (Text
"showStyles" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe Bool
overlayHighlightConfigShowStyles OverlayHighlightConfig
p),
    (Text
"showRulers" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe Bool
overlayHighlightConfigShowRulers OverlayHighlightConfig
p),
    (Text
"showAccessibilityInfo" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe Bool
overlayHighlightConfigShowAccessibilityInfo OverlayHighlightConfig
p),
    (Text
"showExtensionLines" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe Bool
overlayHighlightConfigShowExtensionLines OverlayHighlightConfig
p),
    (Text
"contentColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigContentColor OverlayHighlightConfig
p),
    (Text
"paddingColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigPaddingColor OverlayHighlightConfig
p),
    (Text
"borderColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigBorderColor OverlayHighlightConfig
p),
    (Text
"marginColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigMarginColor OverlayHighlightConfig
p),
    (Text
"eventTargetColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigEventTargetColor OverlayHighlightConfig
p),
    (Text
"shapeColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigShapeColor OverlayHighlightConfig
p),
    (Text
"shapeMarginColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigShapeMarginColor OverlayHighlightConfig
p),
    (Text
"cssGridColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigCssGridColor OverlayHighlightConfig
p),
    (Text
"colorFormat" Text -> OverlayColorFormat -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayColorFormat -> Pair)
-> Maybe OverlayColorFormat -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe OverlayColorFormat
overlayHighlightConfigColorFormat OverlayHighlightConfig
p),
    (Text
"gridHighlightConfig" Text -> OverlayGridHighlightConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayGridHighlightConfig -> Pair)
-> Maybe OverlayGridHighlightConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe OverlayGridHighlightConfig
overlayHighlightConfigGridHighlightConfig OverlayHighlightConfig
p),
    (Text
"flexContainerHighlightConfig" Text -> OverlayFlexContainerHighlightConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayFlexContainerHighlightConfig -> Pair)
-> Maybe OverlayFlexContainerHighlightConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe OverlayFlexContainerHighlightConfig
overlayHighlightConfigFlexContainerHighlightConfig OverlayHighlightConfig
p),
    (Text
"flexItemHighlightConfig" Text -> OverlayFlexItemHighlightConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayFlexItemHighlightConfig -> Pair)
-> Maybe OverlayFlexItemHighlightConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe OverlayFlexItemHighlightConfig
overlayHighlightConfigFlexItemHighlightConfig OverlayHighlightConfig
p),
    (Text
"contrastAlgorithm" Text -> OverlayContrastAlgorithm -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayContrastAlgorithm -> Pair)
-> Maybe OverlayContrastAlgorithm -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig -> Maybe OverlayContrastAlgorithm
overlayHighlightConfigContrastAlgorithm OverlayHighlightConfig
p),
    (Text
"containerQueryContainerHighlightConfig" Text -> OverlayContainerQueryContainerHighlightConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayContainerQueryContainerHighlightConfig -> Pair)
-> Maybe OverlayContainerQueryContainerHighlightConfig
-> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHighlightConfig
-> Maybe OverlayContainerQueryContainerHighlightConfig
overlayHighlightConfigContainerQueryContainerHighlightConfig OverlayHighlightConfig
p)
    ]

-- | Type 'Overlay.ColorFormat'.
data OverlayColorFormat = OverlayColorFormatRgb | OverlayColorFormatHsl | OverlayColorFormatHwb | OverlayColorFormatHex
  deriving (Eq OverlayColorFormat
Eq OverlayColorFormat
-> (OverlayColorFormat -> OverlayColorFormat -> Ordering)
-> (OverlayColorFormat -> OverlayColorFormat -> Bool)
-> (OverlayColorFormat -> OverlayColorFormat -> Bool)
-> (OverlayColorFormat -> OverlayColorFormat -> Bool)
-> (OverlayColorFormat -> OverlayColorFormat -> Bool)
-> (OverlayColorFormat -> OverlayColorFormat -> OverlayColorFormat)
-> (OverlayColorFormat -> OverlayColorFormat -> OverlayColorFormat)
-> Ord OverlayColorFormat
OverlayColorFormat -> OverlayColorFormat -> Bool
OverlayColorFormat -> OverlayColorFormat -> Ordering
OverlayColorFormat -> OverlayColorFormat -> OverlayColorFormat
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: OverlayColorFormat -> OverlayColorFormat -> OverlayColorFormat
$cmin :: OverlayColorFormat -> OverlayColorFormat -> OverlayColorFormat
max :: OverlayColorFormat -> OverlayColorFormat -> OverlayColorFormat
$cmax :: OverlayColorFormat -> OverlayColorFormat -> OverlayColorFormat
>= :: OverlayColorFormat -> OverlayColorFormat -> Bool
$c>= :: OverlayColorFormat -> OverlayColorFormat -> Bool
> :: OverlayColorFormat -> OverlayColorFormat -> Bool
$c> :: OverlayColorFormat -> OverlayColorFormat -> Bool
<= :: OverlayColorFormat -> OverlayColorFormat -> Bool
$c<= :: OverlayColorFormat -> OverlayColorFormat -> Bool
< :: OverlayColorFormat -> OverlayColorFormat -> Bool
$c< :: OverlayColorFormat -> OverlayColorFormat -> Bool
compare :: OverlayColorFormat -> OverlayColorFormat -> Ordering
$ccompare :: OverlayColorFormat -> OverlayColorFormat -> Ordering
$cp1Ord :: Eq OverlayColorFormat
Ord, OverlayColorFormat -> OverlayColorFormat -> Bool
(OverlayColorFormat -> OverlayColorFormat -> Bool)
-> (OverlayColorFormat -> OverlayColorFormat -> Bool)
-> Eq OverlayColorFormat
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayColorFormat -> OverlayColorFormat -> Bool
$c/= :: OverlayColorFormat -> OverlayColorFormat -> Bool
== :: OverlayColorFormat -> OverlayColorFormat -> Bool
$c== :: OverlayColorFormat -> OverlayColorFormat -> Bool
Eq, Int -> OverlayColorFormat -> ShowS
[OverlayColorFormat] -> ShowS
OverlayColorFormat -> String
(Int -> OverlayColorFormat -> ShowS)
-> (OverlayColorFormat -> String)
-> ([OverlayColorFormat] -> ShowS)
-> Show OverlayColorFormat
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayColorFormat] -> ShowS
$cshowList :: [OverlayColorFormat] -> ShowS
show :: OverlayColorFormat -> String
$cshow :: OverlayColorFormat -> String
showsPrec :: Int -> OverlayColorFormat -> ShowS
$cshowsPrec :: Int -> OverlayColorFormat -> ShowS
Show, ReadPrec [OverlayColorFormat]
ReadPrec OverlayColorFormat
Int -> ReadS OverlayColorFormat
ReadS [OverlayColorFormat]
(Int -> ReadS OverlayColorFormat)
-> ReadS [OverlayColorFormat]
-> ReadPrec OverlayColorFormat
-> ReadPrec [OverlayColorFormat]
-> Read OverlayColorFormat
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [OverlayColorFormat]
$creadListPrec :: ReadPrec [OverlayColorFormat]
readPrec :: ReadPrec OverlayColorFormat
$creadPrec :: ReadPrec OverlayColorFormat
readList :: ReadS [OverlayColorFormat]
$creadList :: ReadS [OverlayColorFormat]
readsPrec :: Int -> ReadS OverlayColorFormat
$creadsPrec :: Int -> ReadS OverlayColorFormat
Read)
instance FromJSON OverlayColorFormat where
  parseJSON :: Value -> Parser OverlayColorFormat
parseJSON = String
-> (Text -> Parser OverlayColorFormat)
-> Value
-> Parser OverlayColorFormat
forall a. String -> (Text -> Parser a) -> Value -> Parser a
A.withText String
"OverlayColorFormat" ((Text -> Parser OverlayColorFormat)
 -> Value -> Parser OverlayColorFormat)
-> (Text -> Parser OverlayColorFormat)
-> Value
-> Parser OverlayColorFormat
forall a b. (a -> b) -> a -> b
$ \Text
v -> case Text
v of
    Text
"rgb" -> OverlayColorFormat -> Parser OverlayColorFormat
forall (f :: * -> *) a. Applicative f => a -> f a
pure OverlayColorFormat
OverlayColorFormatRgb
    Text
"hsl" -> OverlayColorFormat -> Parser OverlayColorFormat
forall (f :: * -> *) a. Applicative f => a -> f a
pure OverlayColorFormat
OverlayColorFormatHsl
    Text
"hwb" -> OverlayColorFormat -> Parser OverlayColorFormat
forall (f :: * -> *) a. Applicative f => a -> f a
pure OverlayColorFormat
OverlayColorFormatHwb
    Text
"hex" -> OverlayColorFormat -> Parser OverlayColorFormat
forall (f :: * -> *) a. Applicative f => a -> f a
pure OverlayColorFormat
OverlayColorFormatHex
    Text
"_" -> String -> Parser OverlayColorFormat
forall (m :: * -> *) a. MonadFail m => String -> m a
fail String
"failed to parse OverlayColorFormat"
instance ToJSON OverlayColorFormat where
  toJSON :: OverlayColorFormat -> Value
toJSON OverlayColorFormat
v = Text -> Value
A.String (Text -> Value) -> Text -> Value
forall a b. (a -> b) -> a -> b
$ case OverlayColorFormat
v of
    OverlayColorFormat
OverlayColorFormatRgb -> Text
"rgb"
    OverlayColorFormat
OverlayColorFormatHsl -> Text
"hsl"
    OverlayColorFormat
OverlayColorFormatHwb -> Text
"hwb"
    OverlayColorFormat
OverlayColorFormatHex -> Text
"hex"

-- | Type 'Overlay.GridNodeHighlightConfig'.
--   Configurations for Persistent Grid Highlight
data OverlayGridNodeHighlightConfig = OverlayGridNodeHighlightConfig
  {
    -- | A descriptor for the highlight appearance.
    OverlayGridNodeHighlightConfig -> OverlayGridHighlightConfig
overlayGridNodeHighlightConfigGridHighlightConfig :: OverlayGridHighlightConfig,
    -- | Identifier of the node to highlight.
    OverlayGridNodeHighlightConfig -> Int
overlayGridNodeHighlightConfigNodeId :: DOMPageNetworkEmulationSecurity.DOMNodeId
  }
  deriving (OverlayGridNodeHighlightConfig
-> OverlayGridNodeHighlightConfig -> Bool
(OverlayGridNodeHighlightConfig
 -> OverlayGridNodeHighlightConfig -> Bool)
-> (OverlayGridNodeHighlightConfig
    -> OverlayGridNodeHighlightConfig -> Bool)
-> Eq OverlayGridNodeHighlightConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayGridNodeHighlightConfig
-> OverlayGridNodeHighlightConfig -> Bool
$c/= :: OverlayGridNodeHighlightConfig
-> OverlayGridNodeHighlightConfig -> Bool
== :: OverlayGridNodeHighlightConfig
-> OverlayGridNodeHighlightConfig -> Bool
$c== :: OverlayGridNodeHighlightConfig
-> OverlayGridNodeHighlightConfig -> Bool
Eq, Int -> OverlayGridNodeHighlightConfig -> ShowS
[OverlayGridNodeHighlightConfig] -> ShowS
OverlayGridNodeHighlightConfig -> String
(Int -> OverlayGridNodeHighlightConfig -> ShowS)
-> (OverlayGridNodeHighlightConfig -> String)
-> ([OverlayGridNodeHighlightConfig] -> ShowS)
-> Show OverlayGridNodeHighlightConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayGridNodeHighlightConfig] -> ShowS
$cshowList :: [OverlayGridNodeHighlightConfig] -> ShowS
show :: OverlayGridNodeHighlightConfig -> String
$cshow :: OverlayGridNodeHighlightConfig -> String
showsPrec :: Int -> OverlayGridNodeHighlightConfig -> ShowS
$cshowsPrec :: Int -> OverlayGridNodeHighlightConfig -> ShowS
Show)
instance FromJSON OverlayGridNodeHighlightConfig where
  parseJSON :: Value -> Parser OverlayGridNodeHighlightConfig
parseJSON = String
-> (Object -> Parser OverlayGridNodeHighlightConfig)
-> Value
-> Parser OverlayGridNodeHighlightConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayGridNodeHighlightConfig" ((Object -> Parser OverlayGridNodeHighlightConfig)
 -> Value -> Parser OverlayGridNodeHighlightConfig)
-> (Object -> Parser OverlayGridNodeHighlightConfig)
-> Value
-> Parser OverlayGridNodeHighlightConfig
forall a b. (a -> b) -> a -> b
$ \Object
o -> OverlayGridHighlightConfig -> Int -> OverlayGridNodeHighlightConfig
OverlayGridNodeHighlightConfig
    (OverlayGridHighlightConfig
 -> Int -> OverlayGridNodeHighlightConfig)
-> Parser OverlayGridHighlightConfig
-> Parser (Int -> OverlayGridNodeHighlightConfig)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser OverlayGridHighlightConfig
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"gridHighlightConfig"
    Parser (Int -> OverlayGridNodeHighlightConfig)
-> Parser Int -> Parser OverlayGridNodeHighlightConfig
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"nodeId"
instance ToJSON OverlayGridNodeHighlightConfig where
  toJSON :: OverlayGridNodeHighlightConfig -> Value
toJSON OverlayGridNodeHighlightConfig
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"gridHighlightConfig" Text -> OverlayGridHighlightConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayGridHighlightConfig -> Pair)
-> Maybe OverlayGridHighlightConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> OverlayGridHighlightConfig -> Maybe OverlayGridHighlightConfig
forall a. a -> Maybe a
Just (OverlayGridNodeHighlightConfig -> OverlayGridHighlightConfig
overlayGridNodeHighlightConfigGridHighlightConfig OverlayGridNodeHighlightConfig
p),
    (Text
"nodeId" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Int -> Maybe Int
forall a. a -> Maybe a
Just (OverlayGridNodeHighlightConfig -> Int
overlayGridNodeHighlightConfigNodeId OverlayGridNodeHighlightConfig
p)
    ]

-- | Type 'Overlay.FlexNodeHighlightConfig'.
data OverlayFlexNodeHighlightConfig = OverlayFlexNodeHighlightConfig
  {
    -- | A descriptor for the highlight appearance of flex containers.
    OverlayFlexNodeHighlightConfig
-> OverlayFlexContainerHighlightConfig
overlayFlexNodeHighlightConfigFlexContainerHighlightConfig :: OverlayFlexContainerHighlightConfig,
    -- | Identifier of the node to highlight.
    OverlayFlexNodeHighlightConfig -> Int
overlayFlexNodeHighlightConfigNodeId :: DOMPageNetworkEmulationSecurity.DOMNodeId
  }
  deriving (OverlayFlexNodeHighlightConfig
-> OverlayFlexNodeHighlightConfig -> Bool
(OverlayFlexNodeHighlightConfig
 -> OverlayFlexNodeHighlightConfig -> Bool)
-> (OverlayFlexNodeHighlightConfig
    -> OverlayFlexNodeHighlightConfig -> Bool)
-> Eq OverlayFlexNodeHighlightConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayFlexNodeHighlightConfig
-> OverlayFlexNodeHighlightConfig -> Bool
$c/= :: OverlayFlexNodeHighlightConfig
-> OverlayFlexNodeHighlightConfig -> Bool
== :: OverlayFlexNodeHighlightConfig
-> OverlayFlexNodeHighlightConfig -> Bool
$c== :: OverlayFlexNodeHighlightConfig
-> OverlayFlexNodeHighlightConfig -> Bool
Eq, Int -> OverlayFlexNodeHighlightConfig -> ShowS
[OverlayFlexNodeHighlightConfig] -> ShowS
OverlayFlexNodeHighlightConfig -> String
(Int -> OverlayFlexNodeHighlightConfig -> ShowS)
-> (OverlayFlexNodeHighlightConfig -> String)
-> ([OverlayFlexNodeHighlightConfig] -> ShowS)
-> Show OverlayFlexNodeHighlightConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayFlexNodeHighlightConfig] -> ShowS
$cshowList :: [OverlayFlexNodeHighlightConfig] -> ShowS
show :: OverlayFlexNodeHighlightConfig -> String
$cshow :: OverlayFlexNodeHighlightConfig -> String
showsPrec :: Int -> OverlayFlexNodeHighlightConfig -> ShowS
$cshowsPrec :: Int -> OverlayFlexNodeHighlightConfig -> ShowS
Show)
instance FromJSON OverlayFlexNodeHighlightConfig where
  parseJSON :: Value -> Parser OverlayFlexNodeHighlightConfig
parseJSON = String
-> (Object -> Parser OverlayFlexNodeHighlightConfig)
-> Value
-> Parser OverlayFlexNodeHighlightConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayFlexNodeHighlightConfig" ((Object -> Parser OverlayFlexNodeHighlightConfig)
 -> Value -> Parser OverlayFlexNodeHighlightConfig)
-> (Object -> Parser OverlayFlexNodeHighlightConfig)
-> Value
-> Parser OverlayFlexNodeHighlightConfig
forall a b. (a -> b) -> a -> b
$ \Object
o -> OverlayFlexContainerHighlightConfig
-> Int -> OverlayFlexNodeHighlightConfig
OverlayFlexNodeHighlightConfig
    (OverlayFlexContainerHighlightConfig
 -> Int -> OverlayFlexNodeHighlightConfig)
-> Parser OverlayFlexContainerHighlightConfig
-> Parser (Int -> OverlayFlexNodeHighlightConfig)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser OverlayFlexContainerHighlightConfig
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"flexContainerHighlightConfig"
    Parser (Int -> OverlayFlexNodeHighlightConfig)
-> Parser Int -> Parser OverlayFlexNodeHighlightConfig
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"nodeId"
instance ToJSON OverlayFlexNodeHighlightConfig where
  toJSON :: OverlayFlexNodeHighlightConfig -> Value
toJSON OverlayFlexNodeHighlightConfig
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"flexContainerHighlightConfig" Text -> OverlayFlexContainerHighlightConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayFlexContainerHighlightConfig -> Pair)
-> Maybe OverlayFlexContainerHighlightConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> OverlayFlexContainerHighlightConfig
-> Maybe OverlayFlexContainerHighlightConfig
forall a. a -> Maybe a
Just (OverlayFlexNodeHighlightConfig
-> OverlayFlexContainerHighlightConfig
overlayFlexNodeHighlightConfigFlexContainerHighlightConfig OverlayFlexNodeHighlightConfig
p),
    (Text
"nodeId" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Int -> Maybe Int
forall a. a -> Maybe a
Just (OverlayFlexNodeHighlightConfig -> Int
overlayFlexNodeHighlightConfigNodeId OverlayFlexNodeHighlightConfig
p)
    ]

-- | Type 'Overlay.ScrollSnapContainerHighlightConfig'.
data OverlayScrollSnapContainerHighlightConfig = OverlayScrollSnapContainerHighlightConfig
  {
    -- | The style of the snapport border (default: transparent)
    OverlayScrollSnapContainerHighlightConfig -> Maybe OverlayLineStyle
overlayScrollSnapContainerHighlightConfigSnapportBorder :: Maybe OverlayLineStyle,
    -- | The style of the snap area border (default: transparent)
    OverlayScrollSnapContainerHighlightConfig -> Maybe OverlayLineStyle
overlayScrollSnapContainerHighlightConfigSnapAreaBorder :: Maybe OverlayLineStyle,
    -- | The margin highlight fill color (default: transparent).
    OverlayScrollSnapContainerHighlightConfig -> Maybe DOMRGBA
overlayScrollSnapContainerHighlightConfigScrollMarginColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The padding highlight fill color (default: transparent).
    OverlayScrollSnapContainerHighlightConfig -> Maybe DOMRGBA
overlayScrollSnapContainerHighlightConfigScrollPaddingColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA
  }
  deriving (OverlayScrollSnapContainerHighlightConfig
-> OverlayScrollSnapContainerHighlightConfig -> Bool
(OverlayScrollSnapContainerHighlightConfig
 -> OverlayScrollSnapContainerHighlightConfig -> Bool)
-> (OverlayScrollSnapContainerHighlightConfig
    -> OverlayScrollSnapContainerHighlightConfig -> Bool)
-> Eq OverlayScrollSnapContainerHighlightConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayScrollSnapContainerHighlightConfig
-> OverlayScrollSnapContainerHighlightConfig -> Bool
$c/= :: OverlayScrollSnapContainerHighlightConfig
-> OverlayScrollSnapContainerHighlightConfig -> Bool
== :: OverlayScrollSnapContainerHighlightConfig
-> OverlayScrollSnapContainerHighlightConfig -> Bool
$c== :: OverlayScrollSnapContainerHighlightConfig
-> OverlayScrollSnapContainerHighlightConfig -> Bool
Eq, Int -> OverlayScrollSnapContainerHighlightConfig -> ShowS
[OverlayScrollSnapContainerHighlightConfig] -> ShowS
OverlayScrollSnapContainerHighlightConfig -> String
(Int -> OverlayScrollSnapContainerHighlightConfig -> ShowS)
-> (OverlayScrollSnapContainerHighlightConfig -> String)
-> ([OverlayScrollSnapContainerHighlightConfig] -> ShowS)
-> Show OverlayScrollSnapContainerHighlightConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayScrollSnapContainerHighlightConfig] -> ShowS
$cshowList :: [OverlayScrollSnapContainerHighlightConfig] -> ShowS
show :: OverlayScrollSnapContainerHighlightConfig -> String
$cshow :: OverlayScrollSnapContainerHighlightConfig -> String
showsPrec :: Int -> OverlayScrollSnapContainerHighlightConfig -> ShowS
$cshowsPrec :: Int -> OverlayScrollSnapContainerHighlightConfig -> ShowS
Show)
instance FromJSON OverlayScrollSnapContainerHighlightConfig where
  parseJSON :: Value -> Parser OverlayScrollSnapContainerHighlightConfig
parseJSON = String
-> (Object -> Parser OverlayScrollSnapContainerHighlightConfig)
-> Value
-> Parser OverlayScrollSnapContainerHighlightConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayScrollSnapContainerHighlightConfig" ((Object -> Parser OverlayScrollSnapContainerHighlightConfig)
 -> Value -> Parser OverlayScrollSnapContainerHighlightConfig)
-> (Object -> Parser OverlayScrollSnapContainerHighlightConfig)
-> Value
-> Parser OverlayScrollSnapContainerHighlightConfig
forall a b. (a -> b) -> a -> b
$ \Object
o -> Maybe OverlayLineStyle
-> Maybe OverlayLineStyle
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> OverlayScrollSnapContainerHighlightConfig
OverlayScrollSnapContainerHighlightConfig
    (Maybe OverlayLineStyle
 -> Maybe OverlayLineStyle
 -> Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> OverlayScrollSnapContainerHighlightConfig)
-> Parser (Maybe OverlayLineStyle)
-> Parser
     (Maybe OverlayLineStyle
      -> Maybe DOMRGBA
      -> Maybe DOMRGBA
      -> OverlayScrollSnapContainerHighlightConfig)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser (Maybe OverlayLineStyle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"snapportBorder"
    Parser
  (Maybe OverlayLineStyle
   -> Maybe DOMRGBA
   -> Maybe DOMRGBA
   -> OverlayScrollSnapContainerHighlightConfig)
-> Parser (Maybe OverlayLineStyle)
-> Parser
     (Maybe DOMRGBA
      -> Maybe DOMRGBA -> OverlayScrollSnapContainerHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe OverlayLineStyle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"snapAreaBorder"
    Parser
  (Maybe DOMRGBA
   -> Maybe DOMRGBA -> OverlayScrollSnapContainerHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe DOMRGBA -> OverlayScrollSnapContainerHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"scrollMarginColor"
    Parser (Maybe DOMRGBA -> OverlayScrollSnapContainerHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser OverlayScrollSnapContainerHighlightConfig
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"scrollPaddingColor"
instance ToJSON OverlayScrollSnapContainerHighlightConfig where
  toJSON :: OverlayScrollSnapContainerHighlightConfig -> Value
toJSON OverlayScrollSnapContainerHighlightConfig
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"snapportBorder" Text -> OverlayLineStyle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayLineStyle -> Pair) -> Maybe OverlayLineStyle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayScrollSnapContainerHighlightConfig -> Maybe OverlayLineStyle
overlayScrollSnapContainerHighlightConfigSnapportBorder OverlayScrollSnapContainerHighlightConfig
p),
    (Text
"snapAreaBorder" Text -> OverlayLineStyle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayLineStyle -> Pair) -> Maybe OverlayLineStyle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayScrollSnapContainerHighlightConfig -> Maybe OverlayLineStyle
overlayScrollSnapContainerHighlightConfigSnapAreaBorder OverlayScrollSnapContainerHighlightConfig
p),
    (Text
"scrollMarginColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayScrollSnapContainerHighlightConfig -> Maybe DOMRGBA
overlayScrollSnapContainerHighlightConfigScrollMarginColor OverlayScrollSnapContainerHighlightConfig
p),
    (Text
"scrollPaddingColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayScrollSnapContainerHighlightConfig -> Maybe DOMRGBA
overlayScrollSnapContainerHighlightConfigScrollPaddingColor OverlayScrollSnapContainerHighlightConfig
p)
    ]

-- | Type 'Overlay.ScrollSnapHighlightConfig'.
data OverlayScrollSnapHighlightConfig = OverlayScrollSnapHighlightConfig
  {
    -- | A descriptor for the highlight appearance of scroll snap containers.
    OverlayScrollSnapHighlightConfig
-> OverlayScrollSnapContainerHighlightConfig
overlayScrollSnapHighlightConfigScrollSnapContainerHighlightConfig :: OverlayScrollSnapContainerHighlightConfig,
    -- | Identifier of the node to highlight.
    OverlayScrollSnapHighlightConfig -> Int
overlayScrollSnapHighlightConfigNodeId :: DOMPageNetworkEmulationSecurity.DOMNodeId
  }
  deriving (OverlayScrollSnapHighlightConfig
-> OverlayScrollSnapHighlightConfig -> Bool
(OverlayScrollSnapHighlightConfig
 -> OverlayScrollSnapHighlightConfig -> Bool)
-> (OverlayScrollSnapHighlightConfig
    -> OverlayScrollSnapHighlightConfig -> Bool)
-> Eq OverlayScrollSnapHighlightConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayScrollSnapHighlightConfig
-> OverlayScrollSnapHighlightConfig -> Bool
$c/= :: OverlayScrollSnapHighlightConfig
-> OverlayScrollSnapHighlightConfig -> Bool
== :: OverlayScrollSnapHighlightConfig
-> OverlayScrollSnapHighlightConfig -> Bool
$c== :: OverlayScrollSnapHighlightConfig
-> OverlayScrollSnapHighlightConfig -> Bool
Eq, Int -> OverlayScrollSnapHighlightConfig -> ShowS
[OverlayScrollSnapHighlightConfig] -> ShowS
OverlayScrollSnapHighlightConfig -> String
(Int -> OverlayScrollSnapHighlightConfig -> ShowS)
-> (OverlayScrollSnapHighlightConfig -> String)
-> ([OverlayScrollSnapHighlightConfig] -> ShowS)
-> Show OverlayScrollSnapHighlightConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayScrollSnapHighlightConfig] -> ShowS
$cshowList :: [OverlayScrollSnapHighlightConfig] -> ShowS
show :: OverlayScrollSnapHighlightConfig -> String
$cshow :: OverlayScrollSnapHighlightConfig -> String
showsPrec :: Int -> OverlayScrollSnapHighlightConfig -> ShowS
$cshowsPrec :: Int -> OverlayScrollSnapHighlightConfig -> ShowS
Show)
instance FromJSON OverlayScrollSnapHighlightConfig where
  parseJSON :: Value -> Parser OverlayScrollSnapHighlightConfig
parseJSON = String
-> (Object -> Parser OverlayScrollSnapHighlightConfig)
-> Value
-> Parser OverlayScrollSnapHighlightConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayScrollSnapHighlightConfig" ((Object -> Parser OverlayScrollSnapHighlightConfig)
 -> Value -> Parser OverlayScrollSnapHighlightConfig)
-> (Object -> Parser OverlayScrollSnapHighlightConfig)
-> Value
-> Parser OverlayScrollSnapHighlightConfig
forall a b. (a -> b) -> a -> b
$ \Object
o -> OverlayScrollSnapContainerHighlightConfig
-> Int -> OverlayScrollSnapHighlightConfig
OverlayScrollSnapHighlightConfig
    (OverlayScrollSnapContainerHighlightConfig
 -> Int -> OverlayScrollSnapHighlightConfig)
-> Parser OverlayScrollSnapContainerHighlightConfig
-> Parser (Int -> OverlayScrollSnapHighlightConfig)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser OverlayScrollSnapContainerHighlightConfig
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"scrollSnapContainerHighlightConfig"
    Parser (Int -> OverlayScrollSnapHighlightConfig)
-> Parser Int -> Parser OverlayScrollSnapHighlightConfig
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"nodeId"
instance ToJSON OverlayScrollSnapHighlightConfig where
  toJSON :: OverlayScrollSnapHighlightConfig -> Value
toJSON OverlayScrollSnapHighlightConfig
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"scrollSnapContainerHighlightConfig" Text -> OverlayScrollSnapContainerHighlightConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayScrollSnapContainerHighlightConfig -> Pair)
-> Maybe OverlayScrollSnapContainerHighlightConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> OverlayScrollSnapContainerHighlightConfig
-> Maybe OverlayScrollSnapContainerHighlightConfig
forall a. a -> Maybe a
Just (OverlayScrollSnapHighlightConfig
-> OverlayScrollSnapContainerHighlightConfig
overlayScrollSnapHighlightConfigScrollSnapContainerHighlightConfig OverlayScrollSnapHighlightConfig
p),
    (Text
"nodeId" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Int -> Maybe Int
forall a. a -> Maybe a
Just (OverlayScrollSnapHighlightConfig -> Int
overlayScrollSnapHighlightConfigNodeId OverlayScrollSnapHighlightConfig
p)
    ]

-- | Type 'Overlay.HingeConfig'.
--   Configuration for dual screen hinge
data OverlayHingeConfig = OverlayHingeConfig
  {
    -- | A rectangle represent hinge
    OverlayHingeConfig -> DOMRect
overlayHingeConfigRect :: DOMPageNetworkEmulationSecurity.DOMRect,
    -- | The content box highlight fill color (default: a dark color).
    OverlayHingeConfig -> Maybe DOMRGBA
overlayHingeConfigContentColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The content box highlight outline color (default: transparent).
    OverlayHingeConfig -> Maybe DOMRGBA
overlayHingeConfigOutlineColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA
  }
  deriving (OverlayHingeConfig -> OverlayHingeConfig -> Bool
(OverlayHingeConfig -> OverlayHingeConfig -> Bool)
-> (OverlayHingeConfig -> OverlayHingeConfig -> Bool)
-> Eq OverlayHingeConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayHingeConfig -> OverlayHingeConfig -> Bool
$c/= :: OverlayHingeConfig -> OverlayHingeConfig -> Bool
== :: OverlayHingeConfig -> OverlayHingeConfig -> Bool
$c== :: OverlayHingeConfig -> OverlayHingeConfig -> Bool
Eq, Int -> OverlayHingeConfig -> ShowS
[OverlayHingeConfig] -> ShowS
OverlayHingeConfig -> String
(Int -> OverlayHingeConfig -> ShowS)
-> (OverlayHingeConfig -> String)
-> ([OverlayHingeConfig] -> ShowS)
-> Show OverlayHingeConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayHingeConfig] -> ShowS
$cshowList :: [OverlayHingeConfig] -> ShowS
show :: OverlayHingeConfig -> String
$cshow :: OverlayHingeConfig -> String
showsPrec :: Int -> OverlayHingeConfig -> ShowS
$cshowsPrec :: Int -> OverlayHingeConfig -> ShowS
Show)
instance FromJSON OverlayHingeConfig where
  parseJSON :: Value -> Parser OverlayHingeConfig
parseJSON = String
-> (Object -> Parser OverlayHingeConfig)
-> Value
-> Parser OverlayHingeConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayHingeConfig" ((Object -> Parser OverlayHingeConfig)
 -> Value -> Parser OverlayHingeConfig)
-> (Object -> Parser OverlayHingeConfig)
-> Value
-> Parser OverlayHingeConfig
forall a b. (a -> b) -> a -> b
$ \Object
o -> DOMRect -> Maybe DOMRGBA -> Maybe DOMRGBA -> OverlayHingeConfig
OverlayHingeConfig
    (DOMRect -> Maybe DOMRGBA -> Maybe DOMRGBA -> OverlayHingeConfig)
-> Parser DOMRect
-> Parser (Maybe DOMRGBA -> Maybe DOMRGBA -> OverlayHingeConfig)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser DOMRect
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"rect"
    Parser (Maybe DOMRGBA -> Maybe DOMRGBA -> OverlayHingeConfig)
-> Parser (Maybe DOMRGBA)
-> Parser (Maybe DOMRGBA -> OverlayHingeConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"contentColor"
    Parser (Maybe DOMRGBA -> OverlayHingeConfig)
-> Parser (Maybe DOMRGBA) -> Parser OverlayHingeConfig
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"outlineColor"
instance ToJSON OverlayHingeConfig where
  toJSON :: OverlayHingeConfig -> Value
toJSON OverlayHingeConfig
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"rect" Text -> DOMRect -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRect -> Pair) -> Maybe DOMRect -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> DOMRect -> Maybe DOMRect
forall a. a -> Maybe a
Just (OverlayHingeConfig -> DOMRect
overlayHingeConfigRect OverlayHingeConfig
p),
    (Text
"contentColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHingeConfig -> Maybe DOMRGBA
overlayHingeConfigContentColor OverlayHingeConfig
p),
    (Text
"outlineColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayHingeConfig -> Maybe DOMRGBA
overlayHingeConfigOutlineColor OverlayHingeConfig
p)
    ]

-- | Type 'Overlay.ContainerQueryHighlightConfig'.
data OverlayContainerQueryHighlightConfig = OverlayContainerQueryHighlightConfig
  {
    -- | A descriptor for the highlight appearance of container query containers.
    OverlayContainerQueryHighlightConfig
-> OverlayContainerQueryContainerHighlightConfig
overlayContainerQueryHighlightConfigContainerQueryContainerHighlightConfig :: OverlayContainerQueryContainerHighlightConfig,
    -- | Identifier of the container node to highlight.
    OverlayContainerQueryHighlightConfig -> Int
overlayContainerQueryHighlightConfigNodeId :: DOMPageNetworkEmulationSecurity.DOMNodeId
  }
  deriving (OverlayContainerQueryHighlightConfig
-> OverlayContainerQueryHighlightConfig -> Bool
(OverlayContainerQueryHighlightConfig
 -> OverlayContainerQueryHighlightConfig -> Bool)
-> (OverlayContainerQueryHighlightConfig
    -> OverlayContainerQueryHighlightConfig -> Bool)
-> Eq OverlayContainerQueryHighlightConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayContainerQueryHighlightConfig
-> OverlayContainerQueryHighlightConfig -> Bool
$c/= :: OverlayContainerQueryHighlightConfig
-> OverlayContainerQueryHighlightConfig -> Bool
== :: OverlayContainerQueryHighlightConfig
-> OverlayContainerQueryHighlightConfig -> Bool
$c== :: OverlayContainerQueryHighlightConfig
-> OverlayContainerQueryHighlightConfig -> Bool
Eq, Int -> OverlayContainerQueryHighlightConfig -> ShowS
[OverlayContainerQueryHighlightConfig] -> ShowS
OverlayContainerQueryHighlightConfig -> String
(Int -> OverlayContainerQueryHighlightConfig -> ShowS)
-> (OverlayContainerQueryHighlightConfig -> String)
-> ([OverlayContainerQueryHighlightConfig] -> ShowS)
-> Show OverlayContainerQueryHighlightConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayContainerQueryHighlightConfig] -> ShowS
$cshowList :: [OverlayContainerQueryHighlightConfig] -> ShowS
show :: OverlayContainerQueryHighlightConfig -> String
$cshow :: OverlayContainerQueryHighlightConfig -> String
showsPrec :: Int -> OverlayContainerQueryHighlightConfig -> ShowS
$cshowsPrec :: Int -> OverlayContainerQueryHighlightConfig -> ShowS
Show)
instance FromJSON OverlayContainerQueryHighlightConfig where
  parseJSON :: Value -> Parser OverlayContainerQueryHighlightConfig
parseJSON = String
-> (Object -> Parser OverlayContainerQueryHighlightConfig)
-> Value
-> Parser OverlayContainerQueryHighlightConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayContainerQueryHighlightConfig" ((Object -> Parser OverlayContainerQueryHighlightConfig)
 -> Value -> Parser OverlayContainerQueryHighlightConfig)
-> (Object -> Parser OverlayContainerQueryHighlightConfig)
-> Value
-> Parser OverlayContainerQueryHighlightConfig
forall a b. (a -> b) -> a -> b
$ \Object
o -> OverlayContainerQueryContainerHighlightConfig
-> Int -> OverlayContainerQueryHighlightConfig
OverlayContainerQueryHighlightConfig
    (OverlayContainerQueryContainerHighlightConfig
 -> Int -> OverlayContainerQueryHighlightConfig)
-> Parser OverlayContainerQueryContainerHighlightConfig
-> Parser (Int -> OverlayContainerQueryHighlightConfig)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object
-> Text -> Parser OverlayContainerQueryContainerHighlightConfig
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"containerQueryContainerHighlightConfig"
    Parser (Int -> OverlayContainerQueryHighlightConfig)
-> Parser Int -> Parser OverlayContainerQueryHighlightConfig
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"nodeId"
instance ToJSON OverlayContainerQueryHighlightConfig where
  toJSON :: OverlayContainerQueryHighlightConfig -> Value
toJSON OverlayContainerQueryHighlightConfig
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"containerQueryContainerHighlightConfig" Text -> OverlayContainerQueryContainerHighlightConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayContainerQueryContainerHighlightConfig -> Pair)
-> Maybe OverlayContainerQueryContainerHighlightConfig
-> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> OverlayContainerQueryContainerHighlightConfig
-> Maybe OverlayContainerQueryContainerHighlightConfig
forall a. a -> Maybe a
Just (OverlayContainerQueryHighlightConfig
-> OverlayContainerQueryContainerHighlightConfig
overlayContainerQueryHighlightConfigContainerQueryContainerHighlightConfig OverlayContainerQueryHighlightConfig
p),
    (Text
"nodeId" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Int -> Maybe Int
forall a. a -> Maybe a
Just (OverlayContainerQueryHighlightConfig -> Int
overlayContainerQueryHighlightConfigNodeId OverlayContainerQueryHighlightConfig
p)
    ]

-- | Type 'Overlay.ContainerQueryContainerHighlightConfig'.
data OverlayContainerQueryContainerHighlightConfig = OverlayContainerQueryContainerHighlightConfig
  {
    -- | The style of the container border.
    OverlayContainerQueryContainerHighlightConfig
-> Maybe OverlayLineStyle
overlayContainerQueryContainerHighlightConfigContainerBorder :: Maybe OverlayLineStyle,
    -- | The style of the descendants' borders.
    OverlayContainerQueryContainerHighlightConfig
-> Maybe OverlayLineStyle
overlayContainerQueryContainerHighlightConfigDescendantBorder :: Maybe OverlayLineStyle
  }
  deriving (OverlayContainerQueryContainerHighlightConfig
-> OverlayContainerQueryContainerHighlightConfig -> Bool
(OverlayContainerQueryContainerHighlightConfig
 -> OverlayContainerQueryContainerHighlightConfig -> Bool)
-> (OverlayContainerQueryContainerHighlightConfig
    -> OverlayContainerQueryContainerHighlightConfig -> Bool)
-> Eq OverlayContainerQueryContainerHighlightConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayContainerQueryContainerHighlightConfig
-> OverlayContainerQueryContainerHighlightConfig -> Bool
$c/= :: OverlayContainerQueryContainerHighlightConfig
-> OverlayContainerQueryContainerHighlightConfig -> Bool
== :: OverlayContainerQueryContainerHighlightConfig
-> OverlayContainerQueryContainerHighlightConfig -> Bool
$c== :: OverlayContainerQueryContainerHighlightConfig
-> OverlayContainerQueryContainerHighlightConfig -> Bool
Eq, Int -> OverlayContainerQueryContainerHighlightConfig -> ShowS
[OverlayContainerQueryContainerHighlightConfig] -> ShowS
OverlayContainerQueryContainerHighlightConfig -> String
(Int -> OverlayContainerQueryContainerHighlightConfig -> ShowS)
-> (OverlayContainerQueryContainerHighlightConfig -> String)
-> ([OverlayContainerQueryContainerHighlightConfig] -> ShowS)
-> Show OverlayContainerQueryContainerHighlightConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayContainerQueryContainerHighlightConfig] -> ShowS
$cshowList :: [OverlayContainerQueryContainerHighlightConfig] -> ShowS
show :: OverlayContainerQueryContainerHighlightConfig -> String
$cshow :: OverlayContainerQueryContainerHighlightConfig -> String
showsPrec :: Int -> OverlayContainerQueryContainerHighlightConfig -> ShowS
$cshowsPrec :: Int -> OverlayContainerQueryContainerHighlightConfig -> ShowS
Show)
instance FromJSON OverlayContainerQueryContainerHighlightConfig where
  parseJSON :: Value -> Parser OverlayContainerQueryContainerHighlightConfig
parseJSON = String
-> (Object -> Parser OverlayContainerQueryContainerHighlightConfig)
-> Value
-> Parser OverlayContainerQueryContainerHighlightConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayContainerQueryContainerHighlightConfig" ((Object -> Parser OverlayContainerQueryContainerHighlightConfig)
 -> Value -> Parser OverlayContainerQueryContainerHighlightConfig)
-> (Object -> Parser OverlayContainerQueryContainerHighlightConfig)
-> Value
-> Parser OverlayContainerQueryContainerHighlightConfig
forall a b. (a -> b) -> a -> b
$ \Object
o -> Maybe OverlayLineStyle
-> Maybe OverlayLineStyle
-> OverlayContainerQueryContainerHighlightConfig
OverlayContainerQueryContainerHighlightConfig
    (Maybe OverlayLineStyle
 -> Maybe OverlayLineStyle
 -> OverlayContainerQueryContainerHighlightConfig)
-> Parser (Maybe OverlayLineStyle)
-> Parser
     (Maybe OverlayLineStyle
      -> OverlayContainerQueryContainerHighlightConfig)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser (Maybe OverlayLineStyle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"containerBorder"
    Parser
  (Maybe OverlayLineStyle
   -> OverlayContainerQueryContainerHighlightConfig)
-> Parser (Maybe OverlayLineStyle)
-> Parser OverlayContainerQueryContainerHighlightConfig
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe OverlayLineStyle)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"descendantBorder"
instance ToJSON OverlayContainerQueryContainerHighlightConfig where
  toJSON :: OverlayContainerQueryContainerHighlightConfig -> Value
toJSON OverlayContainerQueryContainerHighlightConfig
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"containerBorder" Text -> OverlayLineStyle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayLineStyle -> Pair) -> Maybe OverlayLineStyle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayContainerQueryContainerHighlightConfig
-> Maybe OverlayLineStyle
overlayContainerQueryContainerHighlightConfigContainerBorder OverlayContainerQueryContainerHighlightConfig
p),
    (Text
"descendantBorder" Text -> OverlayLineStyle -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayLineStyle -> Pair) -> Maybe OverlayLineStyle -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayContainerQueryContainerHighlightConfig
-> Maybe OverlayLineStyle
overlayContainerQueryContainerHighlightConfigDescendantBorder OverlayContainerQueryContainerHighlightConfig
p)
    ]

-- | Type 'Overlay.IsolatedElementHighlightConfig'.
data OverlayIsolatedElementHighlightConfig = OverlayIsolatedElementHighlightConfig
  {
    -- | A descriptor for the highlight appearance of an element in isolation mode.
    OverlayIsolatedElementHighlightConfig
-> OverlayIsolationModeHighlightConfig
overlayIsolatedElementHighlightConfigIsolationModeHighlightConfig :: OverlayIsolationModeHighlightConfig,
    -- | Identifier of the isolated element to highlight.
    OverlayIsolatedElementHighlightConfig -> Int
overlayIsolatedElementHighlightConfigNodeId :: DOMPageNetworkEmulationSecurity.DOMNodeId
  }
  deriving (OverlayIsolatedElementHighlightConfig
-> OverlayIsolatedElementHighlightConfig -> Bool
(OverlayIsolatedElementHighlightConfig
 -> OverlayIsolatedElementHighlightConfig -> Bool)
-> (OverlayIsolatedElementHighlightConfig
    -> OverlayIsolatedElementHighlightConfig -> Bool)
-> Eq OverlayIsolatedElementHighlightConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayIsolatedElementHighlightConfig
-> OverlayIsolatedElementHighlightConfig -> Bool
$c/= :: OverlayIsolatedElementHighlightConfig
-> OverlayIsolatedElementHighlightConfig -> Bool
== :: OverlayIsolatedElementHighlightConfig
-> OverlayIsolatedElementHighlightConfig -> Bool
$c== :: OverlayIsolatedElementHighlightConfig
-> OverlayIsolatedElementHighlightConfig -> Bool
Eq, Int -> OverlayIsolatedElementHighlightConfig -> ShowS
[OverlayIsolatedElementHighlightConfig] -> ShowS
OverlayIsolatedElementHighlightConfig -> String
(Int -> OverlayIsolatedElementHighlightConfig -> ShowS)
-> (OverlayIsolatedElementHighlightConfig -> String)
-> ([OverlayIsolatedElementHighlightConfig] -> ShowS)
-> Show OverlayIsolatedElementHighlightConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayIsolatedElementHighlightConfig] -> ShowS
$cshowList :: [OverlayIsolatedElementHighlightConfig] -> ShowS
show :: OverlayIsolatedElementHighlightConfig -> String
$cshow :: OverlayIsolatedElementHighlightConfig -> String
showsPrec :: Int -> OverlayIsolatedElementHighlightConfig -> ShowS
$cshowsPrec :: Int -> OverlayIsolatedElementHighlightConfig -> ShowS
Show)
instance FromJSON OverlayIsolatedElementHighlightConfig where
  parseJSON :: Value -> Parser OverlayIsolatedElementHighlightConfig
parseJSON = String
-> (Object -> Parser OverlayIsolatedElementHighlightConfig)
-> Value
-> Parser OverlayIsolatedElementHighlightConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayIsolatedElementHighlightConfig" ((Object -> Parser OverlayIsolatedElementHighlightConfig)
 -> Value -> Parser OverlayIsolatedElementHighlightConfig)
-> (Object -> Parser OverlayIsolatedElementHighlightConfig)
-> Value
-> Parser OverlayIsolatedElementHighlightConfig
forall a b. (a -> b) -> a -> b
$ \Object
o -> OverlayIsolationModeHighlightConfig
-> Int -> OverlayIsolatedElementHighlightConfig
OverlayIsolatedElementHighlightConfig
    (OverlayIsolationModeHighlightConfig
 -> Int -> OverlayIsolatedElementHighlightConfig)
-> Parser OverlayIsolationModeHighlightConfig
-> Parser (Int -> OverlayIsolatedElementHighlightConfig)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser OverlayIsolationModeHighlightConfig
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"isolationModeHighlightConfig"
    Parser (Int -> OverlayIsolatedElementHighlightConfig)
-> Parser Int -> Parser OverlayIsolatedElementHighlightConfig
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"nodeId"
instance ToJSON OverlayIsolatedElementHighlightConfig where
  toJSON :: OverlayIsolatedElementHighlightConfig -> Value
toJSON OverlayIsolatedElementHighlightConfig
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"isolationModeHighlightConfig" Text -> OverlayIsolationModeHighlightConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayIsolationModeHighlightConfig -> Pair)
-> Maybe OverlayIsolationModeHighlightConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> OverlayIsolationModeHighlightConfig
-> Maybe OverlayIsolationModeHighlightConfig
forall a. a -> Maybe a
Just (OverlayIsolatedElementHighlightConfig
-> OverlayIsolationModeHighlightConfig
overlayIsolatedElementHighlightConfigIsolationModeHighlightConfig OverlayIsolatedElementHighlightConfig
p),
    (Text
"nodeId" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Int -> Maybe Int
forall a. a -> Maybe a
Just (OverlayIsolatedElementHighlightConfig -> Int
overlayIsolatedElementHighlightConfigNodeId OverlayIsolatedElementHighlightConfig
p)
    ]

-- | Type 'Overlay.IsolationModeHighlightConfig'.
data OverlayIsolationModeHighlightConfig = OverlayIsolationModeHighlightConfig
  {
    -- | The fill color of the resizers (default: transparent).
    OverlayIsolationModeHighlightConfig -> Maybe DOMRGBA
overlayIsolationModeHighlightConfigResizerColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The fill color for resizer handles (default: transparent).
    OverlayIsolationModeHighlightConfig -> Maybe DOMRGBA
overlayIsolationModeHighlightConfigResizerHandleColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The fill color for the mask covering non-isolated elements (default: transparent).
    OverlayIsolationModeHighlightConfig -> Maybe DOMRGBA
overlayIsolationModeHighlightConfigMaskColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA
  }
  deriving (OverlayIsolationModeHighlightConfig
-> OverlayIsolationModeHighlightConfig -> Bool
(OverlayIsolationModeHighlightConfig
 -> OverlayIsolationModeHighlightConfig -> Bool)
-> (OverlayIsolationModeHighlightConfig
    -> OverlayIsolationModeHighlightConfig -> Bool)
-> Eq OverlayIsolationModeHighlightConfig
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayIsolationModeHighlightConfig
-> OverlayIsolationModeHighlightConfig -> Bool
$c/= :: OverlayIsolationModeHighlightConfig
-> OverlayIsolationModeHighlightConfig -> Bool
== :: OverlayIsolationModeHighlightConfig
-> OverlayIsolationModeHighlightConfig -> Bool
$c== :: OverlayIsolationModeHighlightConfig
-> OverlayIsolationModeHighlightConfig -> Bool
Eq, Int -> OverlayIsolationModeHighlightConfig -> ShowS
[OverlayIsolationModeHighlightConfig] -> ShowS
OverlayIsolationModeHighlightConfig -> String
(Int -> OverlayIsolationModeHighlightConfig -> ShowS)
-> (OverlayIsolationModeHighlightConfig -> String)
-> ([OverlayIsolationModeHighlightConfig] -> ShowS)
-> Show OverlayIsolationModeHighlightConfig
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayIsolationModeHighlightConfig] -> ShowS
$cshowList :: [OverlayIsolationModeHighlightConfig] -> ShowS
show :: OverlayIsolationModeHighlightConfig -> String
$cshow :: OverlayIsolationModeHighlightConfig -> String
showsPrec :: Int -> OverlayIsolationModeHighlightConfig -> ShowS
$cshowsPrec :: Int -> OverlayIsolationModeHighlightConfig -> ShowS
Show)
instance FromJSON OverlayIsolationModeHighlightConfig where
  parseJSON :: Value -> Parser OverlayIsolationModeHighlightConfig
parseJSON = String
-> (Object -> Parser OverlayIsolationModeHighlightConfig)
-> Value
-> Parser OverlayIsolationModeHighlightConfig
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayIsolationModeHighlightConfig" ((Object -> Parser OverlayIsolationModeHighlightConfig)
 -> Value -> Parser OverlayIsolationModeHighlightConfig)
-> (Object -> Parser OverlayIsolationModeHighlightConfig)
-> Value
-> Parser OverlayIsolationModeHighlightConfig
forall a b. (a -> b) -> a -> b
$ \Object
o -> Maybe DOMRGBA
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> OverlayIsolationModeHighlightConfig
OverlayIsolationModeHighlightConfig
    (Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> Maybe DOMRGBA
 -> OverlayIsolationModeHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser
     (Maybe DOMRGBA
      -> Maybe DOMRGBA -> OverlayIsolationModeHighlightConfig)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"resizerColor"
    Parser
  (Maybe DOMRGBA
   -> Maybe DOMRGBA -> OverlayIsolationModeHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser (Maybe DOMRGBA -> OverlayIsolationModeHighlightConfig)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"resizerHandleColor"
    Parser (Maybe DOMRGBA -> OverlayIsolationModeHighlightConfig)
-> Parser (Maybe DOMRGBA)
-> Parser OverlayIsolationModeHighlightConfig
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe DOMRGBA)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"maskColor"
instance ToJSON OverlayIsolationModeHighlightConfig where
  toJSON :: OverlayIsolationModeHighlightConfig -> Value
toJSON OverlayIsolationModeHighlightConfig
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"resizerColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayIsolationModeHighlightConfig -> Maybe DOMRGBA
overlayIsolationModeHighlightConfigResizerColor OverlayIsolationModeHighlightConfig
p),
    (Text
"resizerHandleColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayIsolationModeHighlightConfig -> Maybe DOMRGBA
overlayIsolationModeHighlightConfigResizerHandleColor OverlayIsolationModeHighlightConfig
p),
    (Text
"maskColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (OverlayIsolationModeHighlightConfig -> Maybe DOMRGBA
overlayIsolationModeHighlightConfigMaskColor OverlayIsolationModeHighlightConfig
p)
    ]

-- | Type 'Overlay.InspectMode'.
data OverlayInspectMode = OverlayInspectModeSearchForNode | OverlayInspectModeSearchForUAShadowDOM | OverlayInspectModeCaptureAreaScreenshot | OverlayInspectModeShowDistances | OverlayInspectModeNone
  deriving (Eq OverlayInspectMode
Eq OverlayInspectMode
-> (OverlayInspectMode -> OverlayInspectMode -> Ordering)
-> (OverlayInspectMode -> OverlayInspectMode -> Bool)
-> (OverlayInspectMode -> OverlayInspectMode -> Bool)
-> (OverlayInspectMode -> OverlayInspectMode -> Bool)
-> (OverlayInspectMode -> OverlayInspectMode -> Bool)
-> (OverlayInspectMode -> OverlayInspectMode -> OverlayInspectMode)
-> (OverlayInspectMode -> OverlayInspectMode -> OverlayInspectMode)
-> Ord OverlayInspectMode
OverlayInspectMode -> OverlayInspectMode -> Bool
OverlayInspectMode -> OverlayInspectMode -> Ordering
OverlayInspectMode -> OverlayInspectMode -> OverlayInspectMode
forall a.
Eq a
-> (a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: OverlayInspectMode -> OverlayInspectMode -> OverlayInspectMode
$cmin :: OverlayInspectMode -> OverlayInspectMode -> OverlayInspectMode
max :: OverlayInspectMode -> OverlayInspectMode -> OverlayInspectMode
$cmax :: OverlayInspectMode -> OverlayInspectMode -> OverlayInspectMode
>= :: OverlayInspectMode -> OverlayInspectMode -> Bool
$c>= :: OverlayInspectMode -> OverlayInspectMode -> Bool
> :: OverlayInspectMode -> OverlayInspectMode -> Bool
$c> :: OverlayInspectMode -> OverlayInspectMode -> Bool
<= :: OverlayInspectMode -> OverlayInspectMode -> Bool
$c<= :: OverlayInspectMode -> OverlayInspectMode -> Bool
< :: OverlayInspectMode -> OverlayInspectMode -> Bool
$c< :: OverlayInspectMode -> OverlayInspectMode -> Bool
compare :: OverlayInspectMode -> OverlayInspectMode -> Ordering
$ccompare :: OverlayInspectMode -> OverlayInspectMode -> Ordering
$cp1Ord :: Eq OverlayInspectMode
Ord, OverlayInspectMode -> OverlayInspectMode -> Bool
(OverlayInspectMode -> OverlayInspectMode -> Bool)
-> (OverlayInspectMode -> OverlayInspectMode -> Bool)
-> Eq OverlayInspectMode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayInspectMode -> OverlayInspectMode -> Bool
$c/= :: OverlayInspectMode -> OverlayInspectMode -> Bool
== :: OverlayInspectMode -> OverlayInspectMode -> Bool
$c== :: OverlayInspectMode -> OverlayInspectMode -> Bool
Eq, Int -> OverlayInspectMode -> ShowS
[OverlayInspectMode] -> ShowS
OverlayInspectMode -> String
(Int -> OverlayInspectMode -> ShowS)
-> (OverlayInspectMode -> String)
-> ([OverlayInspectMode] -> ShowS)
-> Show OverlayInspectMode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayInspectMode] -> ShowS
$cshowList :: [OverlayInspectMode] -> ShowS
show :: OverlayInspectMode -> String
$cshow :: OverlayInspectMode -> String
showsPrec :: Int -> OverlayInspectMode -> ShowS
$cshowsPrec :: Int -> OverlayInspectMode -> ShowS
Show, ReadPrec [OverlayInspectMode]
ReadPrec OverlayInspectMode
Int -> ReadS OverlayInspectMode
ReadS [OverlayInspectMode]
(Int -> ReadS OverlayInspectMode)
-> ReadS [OverlayInspectMode]
-> ReadPrec OverlayInspectMode
-> ReadPrec [OverlayInspectMode]
-> Read OverlayInspectMode
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [OverlayInspectMode]
$creadListPrec :: ReadPrec [OverlayInspectMode]
readPrec :: ReadPrec OverlayInspectMode
$creadPrec :: ReadPrec OverlayInspectMode
readList :: ReadS [OverlayInspectMode]
$creadList :: ReadS [OverlayInspectMode]
readsPrec :: Int -> ReadS OverlayInspectMode
$creadsPrec :: Int -> ReadS OverlayInspectMode
Read)
instance FromJSON OverlayInspectMode where
  parseJSON :: Value -> Parser OverlayInspectMode
parseJSON = String
-> (Text -> Parser OverlayInspectMode)
-> Value
-> Parser OverlayInspectMode
forall a. String -> (Text -> Parser a) -> Value -> Parser a
A.withText String
"OverlayInspectMode" ((Text -> Parser OverlayInspectMode)
 -> Value -> Parser OverlayInspectMode)
-> (Text -> Parser OverlayInspectMode)
-> Value
-> Parser OverlayInspectMode
forall a b. (a -> b) -> a -> b
$ \Text
v -> case Text
v of
    Text
"searchForNode" -> OverlayInspectMode -> Parser OverlayInspectMode
forall (f :: * -> *) a. Applicative f => a -> f a
pure OverlayInspectMode
OverlayInspectModeSearchForNode
    Text
"searchForUAShadowDOM" -> OverlayInspectMode -> Parser OverlayInspectMode
forall (f :: * -> *) a. Applicative f => a -> f a
pure OverlayInspectMode
OverlayInspectModeSearchForUAShadowDOM
    Text
"captureAreaScreenshot" -> OverlayInspectMode -> Parser OverlayInspectMode
forall (f :: * -> *) a. Applicative f => a -> f a
pure OverlayInspectMode
OverlayInspectModeCaptureAreaScreenshot
    Text
"showDistances" -> OverlayInspectMode -> Parser OverlayInspectMode
forall (f :: * -> *) a. Applicative f => a -> f a
pure OverlayInspectMode
OverlayInspectModeShowDistances
    Text
"none" -> OverlayInspectMode -> Parser OverlayInspectMode
forall (f :: * -> *) a. Applicative f => a -> f a
pure OverlayInspectMode
OverlayInspectModeNone
    Text
"_" -> String -> Parser OverlayInspectMode
forall (m :: * -> *) a. MonadFail m => String -> m a
fail String
"failed to parse OverlayInspectMode"
instance ToJSON OverlayInspectMode where
  toJSON :: OverlayInspectMode -> Value
toJSON OverlayInspectMode
v = Text -> Value
A.String (Text -> Value) -> Text -> Value
forall a b. (a -> b) -> a -> b
$ case OverlayInspectMode
v of
    OverlayInspectMode
OverlayInspectModeSearchForNode -> Text
"searchForNode"
    OverlayInspectMode
OverlayInspectModeSearchForUAShadowDOM -> Text
"searchForUAShadowDOM"
    OverlayInspectMode
OverlayInspectModeCaptureAreaScreenshot -> Text
"captureAreaScreenshot"
    OverlayInspectMode
OverlayInspectModeShowDistances -> Text
"showDistances"
    OverlayInspectMode
OverlayInspectModeNone -> Text
"none"

-- | Type of the 'Overlay.inspectNodeRequested' event.
data OverlayInspectNodeRequested = OverlayInspectNodeRequested
  {
    -- | Id of the node to inspect.
    OverlayInspectNodeRequested -> Int
overlayInspectNodeRequestedBackendNodeId :: DOMPageNetworkEmulationSecurity.DOMBackendNodeId
  }
  deriving (OverlayInspectNodeRequested -> OverlayInspectNodeRequested -> Bool
(OverlayInspectNodeRequested
 -> OverlayInspectNodeRequested -> Bool)
-> (OverlayInspectNodeRequested
    -> OverlayInspectNodeRequested -> Bool)
-> Eq OverlayInspectNodeRequested
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayInspectNodeRequested -> OverlayInspectNodeRequested -> Bool
$c/= :: OverlayInspectNodeRequested -> OverlayInspectNodeRequested -> Bool
== :: OverlayInspectNodeRequested -> OverlayInspectNodeRequested -> Bool
$c== :: OverlayInspectNodeRequested -> OverlayInspectNodeRequested -> Bool
Eq, Int -> OverlayInspectNodeRequested -> ShowS
[OverlayInspectNodeRequested] -> ShowS
OverlayInspectNodeRequested -> String
(Int -> OverlayInspectNodeRequested -> ShowS)
-> (OverlayInspectNodeRequested -> String)
-> ([OverlayInspectNodeRequested] -> ShowS)
-> Show OverlayInspectNodeRequested
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayInspectNodeRequested] -> ShowS
$cshowList :: [OverlayInspectNodeRequested] -> ShowS
show :: OverlayInspectNodeRequested -> String
$cshow :: OverlayInspectNodeRequested -> String
showsPrec :: Int -> OverlayInspectNodeRequested -> ShowS
$cshowsPrec :: Int -> OverlayInspectNodeRequested -> ShowS
Show)
instance FromJSON OverlayInspectNodeRequested where
  parseJSON :: Value -> Parser OverlayInspectNodeRequested
parseJSON = String
-> (Object -> Parser OverlayInspectNodeRequested)
-> Value
-> Parser OverlayInspectNodeRequested
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayInspectNodeRequested" ((Object -> Parser OverlayInspectNodeRequested)
 -> Value -> Parser OverlayInspectNodeRequested)
-> (Object -> Parser OverlayInspectNodeRequested)
-> Value
-> Parser OverlayInspectNodeRequested
forall a b. (a -> b) -> a -> b
$ \Object
o -> Int -> OverlayInspectNodeRequested
OverlayInspectNodeRequested
    (Int -> OverlayInspectNodeRequested)
-> Parser Int -> Parser OverlayInspectNodeRequested
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"backendNodeId"
instance Event OverlayInspectNodeRequested where
  eventName :: Proxy OverlayInspectNodeRequested -> String
eventName Proxy OverlayInspectNodeRequested
_ = String
"Overlay.inspectNodeRequested"

-- | Type of the 'Overlay.nodeHighlightRequested' event.
data OverlayNodeHighlightRequested = OverlayNodeHighlightRequested
  {
    OverlayNodeHighlightRequested -> Int
overlayNodeHighlightRequestedNodeId :: DOMPageNetworkEmulationSecurity.DOMNodeId
  }
  deriving (OverlayNodeHighlightRequested
-> OverlayNodeHighlightRequested -> Bool
(OverlayNodeHighlightRequested
 -> OverlayNodeHighlightRequested -> Bool)
-> (OverlayNodeHighlightRequested
    -> OverlayNodeHighlightRequested -> Bool)
-> Eq OverlayNodeHighlightRequested
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayNodeHighlightRequested
-> OverlayNodeHighlightRequested -> Bool
$c/= :: OverlayNodeHighlightRequested
-> OverlayNodeHighlightRequested -> Bool
== :: OverlayNodeHighlightRequested
-> OverlayNodeHighlightRequested -> Bool
$c== :: OverlayNodeHighlightRequested
-> OverlayNodeHighlightRequested -> Bool
Eq, Int -> OverlayNodeHighlightRequested -> ShowS
[OverlayNodeHighlightRequested] -> ShowS
OverlayNodeHighlightRequested -> String
(Int -> OverlayNodeHighlightRequested -> ShowS)
-> (OverlayNodeHighlightRequested -> String)
-> ([OverlayNodeHighlightRequested] -> ShowS)
-> Show OverlayNodeHighlightRequested
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayNodeHighlightRequested] -> ShowS
$cshowList :: [OverlayNodeHighlightRequested] -> ShowS
show :: OverlayNodeHighlightRequested -> String
$cshow :: OverlayNodeHighlightRequested -> String
showsPrec :: Int -> OverlayNodeHighlightRequested -> ShowS
$cshowsPrec :: Int -> OverlayNodeHighlightRequested -> ShowS
Show)
instance FromJSON OverlayNodeHighlightRequested where
  parseJSON :: Value -> Parser OverlayNodeHighlightRequested
parseJSON = String
-> (Object -> Parser OverlayNodeHighlightRequested)
-> Value
-> Parser OverlayNodeHighlightRequested
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayNodeHighlightRequested" ((Object -> Parser OverlayNodeHighlightRequested)
 -> Value -> Parser OverlayNodeHighlightRequested)
-> (Object -> Parser OverlayNodeHighlightRequested)
-> Value
-> Parser OverlayNodeHighlightRequested
forall a b. (a -> b) -> a -> b
$ \Object
o -> Int -> OverlayNodeHighlightRequested
OverlayNodeHighlightRequested
    (Int -> OverlayNodeHighlightRequested)
-> Parser Int -> Parser OverlayNodeHighlightRequested
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser Int
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"nodeId"
instance Event OverlayNodeHighlightRequested where
  eventName :: Proxy OverlayNodeHighlightRequested -> String
eventName Proxy OverlayNodeHighlightRequested
_ = String
"Overlay.nodeHighlightRequested"

-- | Type of the 'Overlay.screenshotRequested' event.
data OverlayScreenshotRequested = OverlayScreenshotRequested
  {
    -- | Viewport to capture, in device independent pixels (dip).
    OverlayScreenshotRequested -> PageViewport
overlayScreenshotRequestedViewport :: DOMPageNetworkEmulationSecurity.PageViewport
  }
  deriving (OverlayScreenshotRequested -> OverlayScreenshotRequested -> Bool
(OverlayScreenshotRequested -> OverlayScreenshotRequested -> Bool)
-> (OverlayScreenshotRequested
    -> OverlayScreenshotRequested -> Bool)
-> Eq OverlayScreenshotRequested
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayScreenshotRequested -> OverlayScreenshotRequested -> Bool
$c/= :: OverlayScreenshotRequested -> OverlayScreenshotRequested -> Bool
== :: OverlayScreenshotRequested -> OverlayScreenshotRequested -> Bool
$c== :: OverlayScreenshotRequested -> OverlayScreenshotRequested -> Bool
Eq, Int -> OverlayScreenshotRequested -> ShowS
[OverlayScreenshotRequested] -> ShowS
OverlayScreenshotRequested -> String
(Int -> OverlayScreenshotRequested -> ShowS)
-> (OverlayScreenshotRequested -> String)
-> ([OverlayScreenshotRequested] -> ShowS)
-> Show OverlayScreenshotRequested
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayScreenshotRequested] -> ShowS
$cshowList :: [OverlayScreenshotRequested] -> ShowS
show :: OverlayScreenshotRequested -> String
$cshow :: OverlayScreenshotRequested -> String
showsPrec :: Int -> OverlayScreenshotRequested -> ShowS
$cshowsPrec :: Int -> OverlayScreenshotRequested -> ShowS
Show)
instance FromJSON OverlayScreenshotRequested where
  parseJSON :: Value -> Parser OverlayScreenshotRequested
parseJSON = String
-> (Object -> Parser OverlayScreenshotRequested)
-> Value
-> Parser OverlayScreenshotRequested
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayScreenshotRequested" ((Object -> Parser OverlayScreenshotRequested)
 -> Value -> Parser OverlayScreenshotRequested)
-> (Object -> Parser OverlayScreenshotRequested)
-> Value
-> Parser OverlayScreenshotRequested
forall a b. (a -> b) -> a -> b
$ \Object
o -> PageViewport -> OverlayScreenshotRequested
OverlayScreenshotRequested
    (PageViewport -> OverlayScreenshotRequested)
-> Parser PageViewport -> Parser OverlayScreenshotRequested
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser PageViewport
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"viewport"
instance Event OverlayScreenshotRequested where
  eventName :: Proxy OverlayScreenshotRequested -> String
eventName Proxy OverlayScreenshotRequested
_ = String
"Overlay.screenshotRequested"

-- | Type of the 'Overlay.inspectModeCanceled' event.
data OverlayInspectModeCanceled = OverlayInspectModeCanceled
  deriving (OverlayInspectModeCanceled -> OverlayInspectModeCanceled -> Bool
(OverlayInspectModeCanceled -> OverlayInspectModeCanceled -> Bool)
-> (OverlayInspectModeCanceled
    -> OverlayInspectModeCanceled -> Bool)
-> Eq OverlayInspectModeCanceled
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayInspectModeCanceled -> OverlayInspectModeCanceled -> Bool
$c/= :: OverlayInspectModeCanceled -> OverlayInspectModeCanceled -> Bool
== :: OverlayInspectModeCanceled -> OverlayInspectModeCanceled -> Bool
$c== :: OverlayInspectModeCanceled -> OverlayInspectModeCanceled -> Bool
Eq, Int -> OverlayInspectModeCanceled -> ShowS
[OverlayInspectModeCanceled] -> ShowS
OverlayInspectModeCanceled -> String
(Int -> OverlayInspectModeCanceled -> ShowS)
-> (OverlayInspectModeCanceled -> String)
-> ([OverlayInspectModeCanceled] -> ShowS)
-> Show OverlayInspectModeCanceled
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayInspectModeCanceled] -> ShowS
$cshowList :: [OverlayInspectModeCanceled] -> ShowS
show :: OverlayInspectModeCanceled -> String
$cshow :: OverlayInspectModeCanceled -> String
showsPrec :: Int -> OverlayInspectModeCanceled -> ShowS
$cshowsPrec :: Int -> OverlayInspectModeCanceled -> ShowS
Show, ReadPrec [OverlayInspectModeCanceled]
ReadPrec OverlayInspectModeCanceled
Int -> ReadS OverlayInspectModeCanceled
ReadS [OverlayInspectModeCanceled]
(Int -> ReadS OverlayInspectModeCanceled)
-> ReadS [OverlayInspectModeCanceled]
-> ReadPrec OverlayInspectModeCanceled
-> ReadPrec [OverlayInspectModeCanceled]
-> Read OverlayInspectModeCanceled
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [OverlayInspectModeCanceled]
$creadListPrec :: ReadPrec [OverlayInspectModeCanceled]
readPrec :: ReadPrec OverlayInspectModeCanceled
$creadPrec :: ReadPrec OverlayInspectModeCanceled
readList :: ReadS [OverlayInspectModeCanceled]
$creadList :: ReadS [OverlayInspectModeCanceled]
readsPrec :: Int -> ReadS OverlayInspectModeCanceled
$creadsPrec :: Int -> ReadS OverlayInspectModeCanceled
Read)
instance FromJSON OverlayInspectModeCanceled where
  parseJSON :: Value -> Parser OverlayInspectModeCanceled
parseJSON Value
_ = OverlayInspectModeCanceled -> Parser OverlayInspectModeCanceled
forall (f :: * -> *) a. Applicative f => a -> f a
pure OverlayInspectModeCanceled
OverlayInspectModeCanceled
instance Event OverlayInspectModeCanceled where
  eventName :: Proxy OverlayInspectModeCanceled -> String
eventName Proxy OverlayInspectModeCanceled
_ = String
"Overlay.inspectModeCanceled"

-- | Disables domain notifications.

-- | Parameters of the 'Overlay.disable' command.
data POverlayDisable = POverlayDisable
  deriving (POverlayDisable -> POverlayDisable -> Bool
(POverlayDisable -> POverlayDisable -> Bool)
-> (POverlayDisable -> POverlayDisable -> Bool)
-> Eq POverlayDisable
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlayDisable -> POverlayDisable -> Bool
$c/= :: POverlayDisable -> POverlayDisable -> Bool
== :: POverlayDisable -> POverlayDisable -> Bool
$c== :: POverlayDisable -> POverlayDisable -> Bool
Eq, Int -> POverlayDisable -> ShowS
[POverlayDisable] -> ShowS
POverlayDisable -> String
(Int -> POverlayDisable -> ShowS)
-> (POverlayDisable -> String)
-> ([POverlayDisable] -> ShowS)
-> Show POverlayDisable
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlayDisable] -> ShowS
$cshowList :: [POverlayDisable] -> ShowS
show :: POverlayDisable -> String
$cshow :: POverlayDisable -> String
showsPrec :: Int -> POverlayDisable -> ShowS
$cshowsPrec :: Int -> POverlayDisable -> ShowS
Show)
pOverlayDisable
  :: POverlayDisable
pOverlayDisable :: POverlayDisable
pOverlayDisable
  = POverlayDisable
POverlayDisable
instance ToJSON POverlayDisable where
  toJSON :: POverlayDisable -> Value
toJSON POverlayDisable
_ = Value
A.Null
instance Command POverlayDisable where
  type CommandResponse POverlayDisable = ()
  commandName :: Proxy POverlayDisable -> String
commandName Proxy POverlayDisable
_ = String
"Overlay.disable"
  fromJSON :: Proxy POverlayDisable
-> Value -> Result (CommandResponse POverlayDisable)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlayDisable -> Result ())
-> Proxy POverlayDisable
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlayDisable -> ())
-> Proxy POverlayDisable
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlayDisable -> ()
forall a b. a -> b -> a
const ()

-- | Enables domain notifications.

-- | Parameters of the 'Overlay.enable' command.
data POverlayEnable = POverlayEnable
  deriving (POverlayEnable -> POverlayEnable -> Bool
(POverlayEnable -> POverlayEnable -> Bool)
-> (POverlayEnable -> POverlayEnable -> Bool) -> Eq POverlayEnable
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlayEnable -> POverlayEnable -> Bool
$c/= :: POverlayEnable -> POverlayEnable -> Bool
== :: POverlayEnable -> POverlayEnable -> Bool
$c== :: POverlayEnable -> POverlayEnable -> Bool
Eq, Int -> POverlayEnable -> ShowS
[POverlayEnable] -> ShowS
POverlayEnable -> String
(Int -> POverlayEnable -> ShowS)
-> (POverlayEnable -> String)
-> ([POverlayEnable] -> ShowS)
-> Show POverlayEnable
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlayEnable] -> ShowS
$cshowList :: [POverlayEnable] -> ShowS
show :: POverlayEnable -> String
$cshow :: POverlayEnable -> String
showsPrec :: Int -> POverlayEnable -> ShowS
$cshowsPrec :: Int -> POverlayEnable -> ShowS
Show)
pOverlayEnable
  :: POverlayEnable
pOverlayEnable :: POverlayEnable
pOverlayEnable
  = POverlayEnable
POverlayEnable
instance ToJSON POverlayEnable where
  toJSON :: POverlayEnable -> Value
toJSON POverlayEnable
_ = Value
A.Null
instance Command POverlayEnable where
  type CommandResponse POverlayEnable = ()
  commandName :: Proxy POverlayEnable -> String
commandName Proxy POverlayEnable
_ = String
"Overlay.enable"
  fromJSON :: Proxy POverlayEnable
-> Value -> Result (CommandResponse POverlayEnable)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlayEnable -> Result ())
-> Proxy POverlayEnable
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlayEnable -> ())
-> Proxy POverlayEnable
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlayEnable -> ()
forall a b. a -> b -> a
const ()

-- | For testing.

-- | Parameters of the 'Overlay.getHighlightObjectForTest' command.
data POverlayGetHighlightObjectForTest = POverlayGetHighlightObjectForTest
  {
    -- | Id of the node to get highlight object for.
    POverlayGetHighlightObjectForTest -> Int
pOverlayGetHighlightObjectForTestNodeId :: DOMPageNetworkEmulationSecurity.DOMNodeId,
    -- | Whether to include distance info.
    POverlayGetHighlightObjectForTest -> Maybe Bool
pOverlayGetHighlightObjectForTestIncludeDistance :: Maybe Bool,
    -- | Whether to include style info.
    POverlayGetHighlightObjectForTest -> Maybe Bool
pOverlayGetHighlightObjectForTestIncludeStyle :: Maybe Bool,
    -- | The color format to get config with (default: hex).
    POverlayGetHighlightObjectForTest -> Maybe OverlayColorFormat
pOverlayGetHighlightObjectForTestColorFormat :: Maybe OverlayColorFormat,
    -- | Whether to show accessibility info (default: true).
    POverlayGetHighlightObjectForTest -> Maybe Bool
pOverlayGetHighlightObjectForTestShowAccessibilityInfo :: Maybe Bool
  }
  deriving (POverlayGetHighlightObjectForTest
-> POverlayGetHighlightObjectForTest -> Bool
(POverlayGetHighlightObjectForTest
 -> POverlayGetHighlightObjectForTest -> Bool)
-> (POverlayGetHighlightObjectForTest
    -> POverlayGetHighlightObjectForTest -> Bool)
-> Eq POverlayGetHighlightObjectForTest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlayGetHighlightObjectForTest
-> POverlayGetHighlightObjectForTest -> Bool
$c/= :: POverlayGetHighlightObjectForTest
-> POverlayGetHighlightObjectForTest -> Bool
== :: POverlayGetHighlightObjectForTest
-> POverlayGetHighlightObjectForTest -> Bool
$c== :: POverlayGetHighlightObjectForTest
-> POverlayGetHighlightObjectForTest -> Bool
Eq, Int -> POverlayGetHighlightObjectForTest -> ShowS
[POverlayGetHighlightObjectForTest] -> ShowS
POverlayGetHighlightObjectForTest -> String
(Int -> POverlayGetHighlightObjectForTest -> ShowS)
-> (POverlayGetHighlightObjectForTest -> String)
-> ([POverlayGetHighlightObjectForTest] -> ShowS)
-> Show POverlayGetHighlightObjectForTest
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlayGetHighlightObjectForTest] -> ShowS
$cshowList :: [POverlayGetHighlightObjectForTest] -> ShowS
show :: POverlayGetHighlightObjectForTest -> String
$cshow :: POverlayGetHighlightObjectForTest -> String
showsPrec :: Int -> POverlayGetHighlightObjectForTest -> ShowS
$cshowsPrec :: Int -> POverlayGetHighlightObjectForTest -> ShowS
Show)
pOverlayGetHighlightObjectForTest
  {-
  -- | Id of the node to get highlight object for.
  -}
  :: DOMPageNetworkEmulationSecurity.DOMNodeId
  -> POverlayGetHighlightObjectForTest
pOverlayGetHighlightObjectForTest :: Int -> POverlayGetHighlightObjectForTest
pOverlayGetHighlightObjectForTest
  Int
arg_pOverlayGetHighlightObjectForTestNodeId
  = Int
-> Maybe Bool
-> Maybe Bool
-> Maybe OverlayColorFormat
-> Maybe Bool
-> POverlayGetHighlightObjectForTest
POverlayGetHighlightObjectForTest
    Int
arg_pOverlayGetHighlightObjectForTestNodeId
    Maybe Bool
forall a. Maybe a
Nothing
    Maybe Bool
forall a. Maybe a
Nothing
    Maybe OverlayColorFormat
forall a. Maybe a
Nothing
    Maybe Bool
forall a. Maybe a
Nothing
instance ToJSON POverlayGetHighlightObjectForTest where
  toJSON :: POverlayGetHighlightObjectForTest -> Value
toJSON POverlayGetHighlightObjectForTest
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"nodeId" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Int -> Maybe Int
forall a. a -> Maybe a
Just (POverlayGetHighlightObjectForTest -> Int
pOverlayGetHighlightObjectForTestNodeId POverlayGetHighlightObjectForTest
p),
    (Text
"includeDistance" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlayGetHighlightObjectForTest -> Maybe Bool
pOverlayGetHighlightObjectForTestIncludeDistance POverlayGetHighlightObjectForTest
p),
    (Text
"includeStyle" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlayGetHighlightObjectForTest -> Maybe Bool
pOverlayGetHighlightObjectForTestIncludeStyle POverlayGetHighlightObjectForTest
p),
    (Text
"colorFormat" Text -> OverlayColorFormat -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayColorFormat -> Pair)
-> Maybe OverlayColorFormat -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlayGetHighlightObjectForTest -> Maybe OverlayColorFormat
pOverlayGetHighlightObjectForTestColorFormat POverlayGetHighlightObjectForTest
p),
    (Text
"showAccessibilityInfo" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlayGetHighlightObjectForTest -> Maybe Bool
pOverlayGetHighlightObjectForTestShowAccessibilityInfo POverlayGetHighlightObjectForTest
p)
    ]
data OverlayGetHighlightObjectForTest = OverlayGetHighlightObjectForTest
  {
    -- | Highlight data for the node.
    OverlayGetHighlightObjectForTest -> [(Text, Text)]
overlayGetHighlightObjectForTestHighlight :: [(T.Text, T.Text)]
  }
  deriving (OverlayGetHighlightObjectForTest
-> OverlayGetHighlightObjectForTest -> Bool
(OverlayGetHighlightObjectForTest
 -> OverlayGetHighlightObjectForTest -> Bool)
-> (OverlayGetHighlightObjectForTest
    -> OverlayGetHighlightObjectForTest -> Bool)
-> Eq OverlayGetHighlightObjectForTest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayGetHighlightObjectForTest
-> OverlayGetHighlightObjectForTest -> Bool
$c/= :: OverlayGetHighlightObjectForTest
-> OverlayGetHighlightObjectForTest -> Bool
== :: OverlayGetHighlightObjectForTest
-> OverlayGetHighlightObjectForTest -> Bool
$c== :: OverlayGetHighlightObjectForTest
-> OverlayGetHighlightObjectForTest -> Bool
Eq, Int -> OverlayGetHighlightObjectForTest -> ShowS
[OverlayGetHighlightObjectForTest] -> ShowS
OverlayGetHighlightObjectForTest -> String
(Int -> OverlayGetHighlightObjectForTest -> ShowS)
-> (OverlayGetHighlightObjectForTest -> String)
-> ([OverlayGetHighlightObjectForTest] -> ShowS)
-> Show OverlayGetHighlightObjectForTest
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayGetHighlightObjectForTest] -> ShowS
$cshowList :: [OverlayGetHighlightObjectForTest] -> ShowS
show :: OverlayGetHighlightObjectForTest -> String
$cshow :: OverlayGetHighlightObjectForTest -> String
showsPrec :: Int -> OverlayGetHighlightObjectForTest -> ShowS
$cshowsPrec :: Int -> OverlayGetHighlightObjectForTest -> ShowS
Show)
instance FromJSON OverlayGetHighlightObjectForTest where
  parseJSON :: Value -> Parser OverlayGetHighlightObjectForTest
parseJSON = String
-> (Object -> Parser OverlayGetHighlightObjectForTest)
-> Value
-> Parser OverlayGetHighlightObjectForTest
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayGetHighlightObjectForTest" ((Object -> Parser OverlayGetHighlightObjectForTest)
 -> Value -> Parser OverlayGetHighlightObjectForTest)
-> (Object -> Parser OverlayGetHighlightObjectForTest)
-> Value
-> Parser OverlayGetHighlightObjectForTest
forall a b. (a -> b) -> a -> b
$ \Object
o -> [(Text, Text)] -> OverlayGetHighlightObjectForTest
OverlayGetHighlightObjectForTest
    ([(Text, Text)] -> OverlayGetHighlightObjectForTest)
-> Parser [(Text, Text)] -> Parser OverlayGetHighlightObjectForTest
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser [(Text, Text)]
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"highlight"
instance Command POverlayGetHighlightObjectForTest where
  type CommandResponse POverlayGetHighlightObjectForTest = OverlayGetHighlightObjectForTest
  commandName :: Proxy POverlayGetHighlightObjectForTest -> String
commandName Proxy POverlayGetHighlightObjectForTest
_ = String
"Overlay.getHighlightObjectForTest"

-- | For Persistent Grid testing.

-- | Parameters of the 'Overlay.getGridHighlightObjectsForTest' command.
data POverlayGetGridHighlightObjectsForTest = POverlayGetGridHighlightObjectsForTest
  {
    -- | Ids of the node to get highlight object for.
    POverlayGetGridHighlightObjectsForTest -> [Int]
pOverlayGetGridHighlightObjectsForTestNodeIds :: [DOMPageNetworkEmulationSecurity.DOMNodeId]
  }
  deriving (POverlayGetGridHighlightObjectsForTest
-> POverlayGetGridHighlightObjectsForTest -> Bool
(POverlayGetGridHighlightObjectsForTest
 -> POverlayGetGridHighlightObjectsForTest -> Bool)
-> (POverlayGetGridHighlightObjectsForTest
    -> POverlayGetGridHighlightObjectsForTest -> Bool)
-> Eq POverlayGetGridHighlightObjectsForTest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlayGetGridHighlightObjectsForTest
-> POverlayGetGridHighlightObjectsForTest -> Bool
$c/= :: POverlayGetGridHighlightObjectsForTest
-> POverlayGetGridHighlightObjectsForTest -> Bool
== :: POverlayGetGridHighlightObjectsForTest
-> POverlayGetGridHighlightObjectsForTest -> Bool
$c== :: POverlayGetGridHighlightObjectsForTest
-> POverlayGetGridHighlightObjectsForTest -> Bool
Eq, Int -> POverlayGetGridHighlightObjectsForTest -> ShowS
[POverlayGetGridHighlightObjectsForTest] -> ShowS
POverlayGetGridHighlightObjectsForTest -> String
(Int -> POverlayGetGridHighlightObjectsForTest -> ShowS)
-> (POverlayGetGridHighlightObjectsForTest -> String)
-> ([POverlayGetGridHighlightObjectsForTest] -> ShowS)
-> Show POverlayGetGridHighlightObjectsForTest
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlayGetGridHighlightObjectsForTest] -> ShowS
$cshowList :: [POverlayGetGridHighlightObjectsForTest] -> ShowS
show :: POverlayGetGridHighlightObjectsForTest -> String
$cshow :: POverlayGetGridHighlightObjectsForTest -> String
showsPrec :: Int -> POverlayGetGridHighlightObjectsForTest -> ShowS
$cshowsPrec :: Int -> POverlayGetGridHighlightObjectsForTest -> ShowS
Show)
pOverlayGetGridHighlightObjectsForTest
  {-
  -- | Ids of the node to get highlight object for.
  -}
  :: [DOMPageNetworkEmulationSecurity.DOMNodeId]
  -> POverlayGetGridHighlightObjectsForTest
pOverlayGetGridHighlightObjectsForTest :: [Int] -> POverlayGetGridHighlightObjectsForTest
pOverlayGetGridHighlightObjectsForTest
  [Int]
arg_pOverlayGetGridHighlightObjectsForTestNodeIds
  = [Int] -> POverlayGetGridHighlightObjectsForTest
POverlayGetGridHighlightObjectsForTest
    [Int]
arg_pOverlayGetGridHighlightObjectsForTestNodeIds
instance ToJSON POverlayGetGridHighlightObjectsForTest where
  toJSON :: POverlayGetGridHighlightObjectsForTest -> Value
toJSON POverlayGetGridHighlightObjectsForTest
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"nodeIds" Text -> [Int] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) ([Int] -> Pair) -> Maybe [Int] -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [Int] -> Maybe [Int]
forall a. a -> Maybe a
Just (POverlayGetGridHighlightObjectsForTest -> [Int]
pOverlayGetGridHighlightObjectsForTestNodeIds POverlayGetGridHighlightObjectsForTest
p)
    ]
data OverlayGetGridHighlightObjectsForTest = OverlayGetGridHighlightObjectsForTest
  {
    -- | Grid Highlight data for the node ids provided.
    OverlayGetGridHighlightObjectsForTest -> [(Text, Text)]
overlayGetGridHighlightObjectsForTestHighlights :: [(T.Text, T.Text)]
  }
  deriving (OverlayGetGridHighlightObjectsForTest
-> OverlayGetGridHighlightObjectsForTest -> Bool
(OverlayGetGridHighlightObjectsForTest
 -> OverlayGetGridHighlightObjectsForTest -> Bool)
-> (OverlayGetGridHighlightObjectsForTest
    -> OverlayGetGridHighlightObjectsForTest -> Bool)
-> Eq OverlayGetGridHighlightObjectsForTest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayGetGridHighlightObjectsForTest
-> OverlayGetGridHighlightObjectsForTest -> Bool
$c/= :: OverlayGetGridHighlightObjectsForTest
-> OverlayGetGridHighlightObjectsForTest -> Bool
== :: OverlayGetGridHighlightObjectsForTest
-> OverlayGetGridHighlightObjectsForTest -> Bool
$c== :: OverlayGetGridHighlightObjectsForTest
-> OverlayGetGridHighlightObjectsForTest -> Bool
Eq, Int -> OverlayGetGridHighlightObjectsForTest -> ShowS
[OverlayGetGridHighlightObjectsForTest] -> ShowS
OverlayGetGridHighlightObjectsForTest -> String
(Int -> OverlayGetGridHighlightObjectsForTest -> ShowS)
-> (OverlayGetGridHighlightObjectsForTest -> String)
-> ([OverlayGetGridHighlightObjectsForTest] -> ShowS)
-> Show OverlayGetGridHighlightObjectsForTest
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayGetGridHighlightObjectsForTest] -> ShowS
$cshowList :: [OverlayGetGridHighlightObjectsForTest] -> ShowS
show :: OverlayGetGridHighlightObjectsForTest -> String
$cshow :: OverlayGetGridHighlightObjectsForTest -> String
showsPrec :: Int -> OverlayGetGridHighlightObjectsForTest -> ShowS
$cshowsPrec :: Int -> OverlayGetGridHighlightObjectsForTest -> ShowS
Show)
instance FromJSON OverlayGetGridHighlightObjectsForTest where
  parseJSON :: Value -> Parser OverlayGetGridHighlightObjectsForTest
parseJSON = String
-> (Object -> Parser OverlayGetGridHighlightObjectsForTest)
-> Value
-> Parser OverlayGetGridHighlightObjectsForTest
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayGetGridHighlightObjectsForTest" ((Object -> Parser OverlayGetGridHighlightObjectsForTest)
 -> Value -> Parser OverlayGetGridHighlightObjectsForTest)
-> (Object -> Parser OverlayGetGridHighlightObjectsForTest)
-> Value
-> Parser OverlayGetGridHighlightObjectsForTest
forall a b. (a -> b) -> a -> b
$ \Object
o -> [(Text, Text)] -> OverlayGetGridHighlightObjectsForTest
OverlayGetGridHighlightObjectsForTest
    ([(Text, Text)] -> OverlayGetGridHighlightObjectsForTest)
-> Parser [(Text, Text)]
-> Parser OverlayGetGridHighlightObjectsForTest
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser [(Text, Text)]
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"highlights"
instance Command POverlayGetGridHighlightObjectsForTest where
  type CommandResponse POverlayGetGridHighlightObjectsForTest = OverlayGetGridHighlightObjectsForTest
  commandName :: Proxy POverlayGetGridHighlightObjectsForTest -> String
commandName Proxy POverlayGetGridHighlightObjectsForTest
_ = String
"Overlay.getGridHighlightObjectsForTest"

-- | For Source Order Viewer testing.

-- | Parameters of the 'Overlay.getSourceOrderHighlightObjectForTest' command.
data POverlayGetSourceOrderHighlightObjectForTest = POverlayGetSourceOrderHighlightObjectForTest
  {
    -- | Id of the node to highlight.
    POverlayGetSourceOrderHighlightObjectForTest -> Int
pOverlayGetSourceOrderHighlightObjectForTestNodeId :: DOMPageNetworkEmulationSecurity.DOMNodeId
  }
  deriving (POverlayGetSourceOrderHighlightObjectForTest
-> POverlayGetSourceOrderHighlightObjectForTest -> Bool
(POverlayGetSourceOrderHighlightObjectForTest
 -> POverlayGetSourceOrderHighlightObjectForTest -> Bool)
-> (POverlayGetSourceOrderHighlightObjectForTest
    -> POverlayGetSourceOrderHighlightObjectForTest -> Bool)
-> Eq POverlayGetSourceOrderHighlightObjectForTest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlayGetSourceOrderHighlightObjectForTest
-> POverlayGetSourceOrderHighlightObjectForTest -> Bool
$c/= :: POverlayGetSourceOrderHighlightObjectForTest
-> POverlayGetSourceOrderHighlightObjectForTest -> Bool
== :: POverlayGetSourceOrderHighlightObjectForTest
-> POverlayGetSourceOrderHighlightObjectForTest -> Bool
$c== :: POverlayGetSourceOrderHighlightObjectForTest
-> POverlayGetSourceOrderHighlightObjectForTest -> Bool
Eq, Int -> POverlayGetSourceOrderHighlightObjectForTest -> ShowS
[POverlayGetSourceOrderHighlightObjectForTest] -> ShowS
POverlayGetSourceOrderHighlightObjectForTest -> String
(Int -> POverlayGetSourceOrderHighlightObjectForTest -> ShowS)
-> (POverlayGetSourceOrderHighlightObjectForTest -> String)
-> ([POverlayGetSourceOrderHighlightObjectForTest] -> ShowS)
-> Show POverlayGetSourceOrderHighlightObjectForTest
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlayGetSourceOrderHighlightObjectForTest] -> ShowS
$cshowList :: [POverlayGetSourceOrderHighlightObjectForTest] -> ShowS
show :: POverlayGetSourceOrderHighlightObjectForTest -> String
$cshow :: POverlayGetSourceOrderHighlightObjectForTest -> String
showsPrec :: Int -> POverlayGetSourceOrderHighlightObjectForTest -> ShowS
$cshowsPrec :: Int -> POverlayGetSourceOrderHighlightObjectForTest -> ShowS
Show)
pOverlayGetSourceOrderHighlightObjectForTest
  {-
  -- | Id of the node to highlight.
  -}
  :: DOMPageNetworkEmulationSecurity.DOMNodeId
  -> POverlayGetSourceOrderHighlightObjectForTest
pOverlayGetSourceOrderHighlightObjectForTest :: Int -> POverlayGetSourceOrderHighlightObjectForTest
pOverlayGetSourceOrderHighlightObjectForTest
  Int
arg_pOverlayGetSourceOrderHighlightObjectForTestNodeId
  = Int -> POverlayGetSourceOrderHighlightObjectForTest
POverlayGetSourceOrderHighlightObjectForTest
    Int
arg_pOverlayGetSourceOrderHighlightObjectForTestNodeId
instance ToJSON POverlayGetSourceOrderHighlightObjectForTest where
  toJSON :: POverlayGetSourceOrderHighlightObjectForTest -> Value
toJSON POverlayGetSourceOrderHighlightObjectForTest
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"nodeId" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Int -> Maybe Int
forall a. a -> Maybe a
Just (POverlayGetSourceOrderHighlightObjectForTest -> Int
pOverlayGetSourceOrderHighlightObjectForTestNodeId POverlayGetSourceOrderHighlightObjectForTest
p)
    ]
data OverlayGetSourceOrderHighlightObjectForTest = OverlayGetSourceOrderHighlightObjectForTest
  {
    -- | Source order highlight data for the node id provided.
    OverlayGetSourceOrderHighlightObjectForTest -> [(Text, Text)]
overlayGetSourceOrderHighlightObjectForTestHighlight :: [(T.Text, T.Text)]
  }
  deriving (OverlayGetSourceOrderHighlightObjectForTest
-> OverlayGetSourceOrderHighlightObjectForTest -> Bool
(OverlayGetSourceOrderHighlightObjectForTest
 -> OverlayGetSourceOrderHighlightObjectForTest -> Bool)
-> (OverlayGetSourceOrderHighlightObjectForTest
    -> OverlayGetSourceOrderHighlightObjectForTest -> Bool)
-> Eq OverlayGetSourceOrderHighlightObjectForTest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OverlayGetSourceOrderHighlightObjectForTest
-> OverlayGetSourceOrderHighlightObjectForTest -> Bool
$c/= :: OverlayGetSourceOrderHighlightObjectForTest
-> OverlayGetSourceOrderHighlightObjectForTest -> Bool
== :: OverlayGetSourceOrderHighlightObjectForTest
-> OverlayGetSourceOrderHighlightObjectForTest -> Bool
$c== :: OverlayGetSourceOrderHighlightObjectForTest
-> OverlayGetSourceOrderHighlightObjectForTest -> Bool
Eq, Int -> OverlayGetSourceOrderHighlightObjectForTest -> ShowS
[OverlayGetSourceOrderHighlightObjectForTest] -> ShowS
OverlayGetSourceOrderHighlightObjectForTest -> String
(Int -> OverlayGetSourceOrderHighlightObjectForTest -> ShowS)
-> (OverlayGetSourceOrderHighlightObjectForTest -> String)
-> ([OverlayGetSourceOrderHighlightObjectForTest] -> ShowS)
-> Show OverlayGetSourceOrderHighlightObjectForTest
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OverlayGetSourceOrderHighlightObjectForTest] -> ShowS
$cshowList :: [OverlayGetSourceOrderHighlightObjectForTest] -> ShowS
show :: OverlayGetSourceOrderHighlightObjectForTest -> String
$cshow :: OverlayGetSourceOrderHighlightObjectForTest -> String
showsPrec :: Int -> OverlayGetSourceOrderHighlightObjectForTest -> ShowS
$cshowsPrec :: Int -> OverlayGetSourceOrderHighlightObjectForTest -> ShowS
Show)
instance FromJSON OverlayGetSourceOrderHighlightObjectForTest where
  parseJSON :: Value -> Parser OverlayGetSourceOrderHighlightObjectForTest
parseJSON = String
-> (Object -> Parser OverlayGetSourceOrderHighlightObjectForTest)
-> Value
-> Parser OverlayGetSourceOrderHighlightObjectForTest
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"OverlayGetSourceOrderHighlightObjectForTest" ((Object -> Parser OverlayGetSourceOrderHighlightObjectForTest)
 -> Value -> Parser OverlayGetSourceOrderHighlightObjectForTest)
-> (Object -> Parser OverlayGetSourceOrderHighlightObjectForTest)
-> Value
-> Parser OverlayGetSourceOrderHighlightObjectForTest
forall a b. (a -> b) -> a -> b
$ \Object
o -> [(Text, Text)] -> OverlayGetSourceOrderHighlightObjectForTest
OverlayGetSourceOrderHighlightObjectForTest
    ([(Text, Text)] -> OverlayGetSourceOrderHighlightObjectForTest)
-> Parser [(Text, Text)]
-> Parser OverlayGetSourceOrderHighlightObjectForTest
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser [(Text, Text)]
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"highlight"
instance Command POverlayGetSourceOrderHighlightObjectForTest where
  type CommandResponse POverlayGetSourceOrderHighlightObjectForTest = OverlayGetSourceOrderHighlightObjectForTest
  commandName :: Proxy POverlayGetSourceOrderHighlightObjectForTest -> String
commandName Proxy POverlayGetSourceOrderHighlightObjectForTest
_ = String
"Overlay.getSourceOrderHighlightObjectForTest"

-- | Hides any highlight.

-- | Parameters of the 'Overlay.hideHighlight' command.
data POverlayHideHighlight = POverlayHideHighlight
  deriving (POverlayHideHighlight -> POverlayHideHighlight -> Bool
(POverlayHideHighlight -> POverlayHideHighlight -> Bool)
-> (POverlayHideHighlight -> POverlayHideHighlight -> Bool)
-> Eq POverlayHideHighlight
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlayHideHighlight -> POverlayHideHighlight -> Bool
$c/= :: POverlayHideHighlight -> POverlayHideHighlight -> Bool
== :: POverlayHideHighlight -> POverlayHideHighlight -> Bool
$c== :: POverlayHideHighlight -> POverlayHideHighlight -> Bool
Eq, Int -> POverlayHideHighlight -> ShowS
[POverlayHideHighlight] -> ShowS
POverlayHideHighlight -> String
(Int -> POverlayHideHighlight -> ShowS)
-> (POverlayHideHighlight -> String)
-> ([POverlayHideHighlight] -> ShowS)
-> Show POverlayHideHighlight
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlayHideHighlight] -> ShowS
$cshowList :: [POverlayHideHighlight] -> ShowS
show :: POverlayHideHighlight -> String
$cshow :: POverlayHideHighlight -> String
showsPrec :: Int -> POverlayHideHighlight -> ShowS
$cshowsPrec :: Int -> POverlayHideHighlight -> ShowS
Show)
pOverlayHideHighlight
  :: POverlayHideHighlight
pOverlayHideHighlight :: POverlayHideHighlight
pOverlayHideHighlight
  = POverlayHideHighlight
POverlayHideHighlight
instance ToJSON POverlayHideHighlight where
  toJSON :: POverlayHideHighlight -> Value
toJSON POverlayHideHighlight
_ = Value
A.Null
instance Command POverlayHideHighlight where
  type CommandResponse POverlayHideHighlight = ()
  commandName :: Proxy POverlayHideHighlight -> String
commandName Proxy POverlayHideHighlight
_ = String
"Overlay.hideHighlight"
  fromJSON :: Proxy POverlayHideHighlight
-> Value -> Result (CommandResponse POverlayHideHighlight)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlayHideHighlight -> Result ())
-> Proxy POverlayHideHighlight
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlayHideHighlight -> ())
-> Proxy POverlayHideHighlight
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlayHideHighlight -> ()
forall a b. a -> b -> a
const ()

-- | Highlights DOM node with given id or with the given JavaScript object wrapper. Either nodeId or
--   objectId must be specified.

-- | Parameters of the 'Overlay.highlightNode' command.
data POverlayHighlightNode = POverlayHighlightNode
  {
    -- | A descriptor for the highlight appearance.
    POverlayHighlightNode -> OverlayHighlightConfig
pOverlayHighlightNodeHighlightConfig :: OverlayHighlightConfig,
    -- | Identifier of the node to highlight.
    POverlayHighlightNode -> Maybe Int
pOverlayHighlightNodeNodeId :: Maybe DOMPageNetworkEmulationSecurity.DOMNodeId,
    -- | Identifier of the backend node to highlight.
    POverlayHighlightNode -> Maybe Int
pOverlayHighlightNodeBackendNodeId :: Maybe DOMPageNetworkEmulationSecurity.DOMBackendNodeId,
    -- | JavaScript object id of the node to be highlighted.
    POverlayHighlightNode -> Maybe Text
pOverlayHighlightNodeObjectId :: Maybe Runtime.RuntimeRemoteObjectId,
    -- | Selectors to highlight relevant nodes.
    POverlayHighlightNode -> Maybe Text
pOverlayHighlightNodeSelector :: Maybe T.Text
  }
  deriving (POverlayHighlightNode -> POverlayHighlightNode -> Bool
(POverlayHighlightNode -> POverlayHighlightNode -> Bool)
-> (POverlayHighlightNode -> POverlayHighlightNode -> Bool)
-> Eq POverlayHighlightNode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlayHighlightNode -> POverlayHighlightNode -> Bool
$c/= :: POverlayHighlightNode -> POverlayHighlightNode -> Bool
== :: POverlayHighlightNode -> POverlayHighlightNode -> Bool
$c== :: POverlayHighlightNode -> POverlayHighlightNode -> Bool
Eq, Int -> POverlayHighlightNode -> ShowS
[POverlayHighlightNode] -> ShowS
POverlayHighlightNode -> String
(Int -> POverlayHighlightNode -> ShowS)
-> (POverlayHighlightNode -> String)
-> ([POverlayHighlightNode] -> ShowS)
-> Show POverlayHighlightNode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlayHighlightNode] -> ShowS
$cshowList :: [POverlayHighlightNode] -> ShowS
show :: POverlayHighlightNode -> String
$cshow :: POverlayHighlightNode -> String
showsPrec :: Int -> POverlayHighlightNode -> ShowS
$cshowsPrec :: Int -> POverlayHighlightNode -> ShowS
Show)
pOverlayHighlightNode
  {-
  -- | A descriptor for the highlight appearance.
  -}
  :: OverlayHighlightConfig
  -> POverlayHighlightNode
pOverlayHighlightNode :: OverlayHighlightConfig -> POverlayHighlightNode
pOverlayHighlightNode
  OverlayHighlightConfig
arg_pOverlayHighlightNodeHighlightConfig
  = OverlayHighlightConfig
-> Maybe Int
-> Maybe Int
-> Maybe Text
-> Maybe Text
-> POverlayHighlightNode
POverlayHighlightNode
    OverlayHighlightConfig
arg_pOverlayHighlightNodeHighlightConfig
    Maybe Int
forall a. Maybe a
Nothing
    Maybe Int
forall a. Maybe a
Nothing
    Maybe Text
forall a. Maybe a
Nothing
    Maybe Text
forall a. Maybe a
Nothing
instance ToJSON POverlayHighlightNode where
  toJSON :: POverlayHighlightNode -> Value
toJSON POverlayHighlightNode
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"highlightConfig" Text -> OverlayHighlightConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayHighlightConfig -> Pair)
-> Maybe OverlayHighlightConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> OverlayHighlightConfig -> Maybe OverlayHighlightConfig
forall a. a -> Maybe a
Just (POverlayHighlightNode -> OverlayHighlightConfig
pOverlayHighlightNodeHighlightConfig POverlayHighlightNode
p),
    (Text
"nodeId" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlayHighlightNode -> Maybe Int
pOverlayHighlightNodeNodeId POverlayHighlightNode
p),
    (Text
"backendNodeId" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlayHighlightNode -> Maybe Int
pOverlayHighlightNodeBackendNodeId POverlayHighlightNode
p),
    (Text
"objectId" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlayHighlightNode -> Maybe Text
pOverlayHighlightNodeObjectId POverlayHighlightNode
p),
    (Text
"selector" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlayHighlightNode -> Maybe Text
pOverlayHighlightNodeSelector POverlayHighlightNode
p)
    ]
instance Command POverlayHighlightNode where
  type CommandResponse POverlayHighlightNode = ()
  commandName :: Proxy POverlayHighlightNode -> String
commandName Proxy POverlayHighlightNode
_ = String
"Overlay.highlightNode"
  fromJSON :: Proxy POverlayHighlightNode
-> Value -> Result (CommandResponse POverlayHighlightNode)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlayHighlightNode -> Result ())
-> Proxy POverlayHighlightNode
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlayHighlightNode -> ())
-> Proxy POverlayHighlightNode
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlayHighlightNode -> ()
forall a b. a -> b -> a
const ()

-- | Highlights given quad. Coordinates are absolute with respect to the main frame viewport.

-- | Parameters of the 'Overlay.highlightQuad' command.
data POverlayHighlightQuad = POverlayHighlightQuad
  {
    -- | Quad to highlight
    POverlayHighlightQuad -> DOMQuad
pOverlayHighlightQuadQuad :: DOMPageNetworkEmulationSecurity.DOMQuad,
    -- | The highlight fill color (default: transparent).
    POverlayHighlightQuad -> Maybe DOMRGBA
pOverlayHighlightQuadColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The highlight outline color (default: transparent).
    POverlayHighlightQuad -> Maybe DOMRGBA
pOverlayHighlightQuadOutlineColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA
  }
  deriving (POverlayHighlightQuad -> POverlayHighlightQuad -> Bool
(POverlayHighlightQuad -> POverlayHighlightQuad -> Bool)
-> (POverlayHighlightQuad -> POverlayHighlightQuad -> Bool)
-> Eq POverlayHighlightQuad
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlayHighlightQuad -> POverlayHighlightQuad -> Bool
$c/= :: POverlayHighlightQuad -> POverlayHighlightQuad -> Bool
== :: POverlayHighlightQuad -> POverlayHighlightQuad -> Bool
$c== :: POverlayHighlightQuad -> POverlayHighlightQuad -> Bool
Eq, Int -> POverlayHighlightQuad -> ShowS
[POverlayHighlightQuad] -> ShowS
POverlayHighlightQuad -> String
(Int -> POverlayHighlightQuad -> ShowS)
-> (POverlayHighlightQuad -> String)
-> ([POverlayHighlightQuad] -> ShowS)
-> Show POverlayHighlightQuad
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlayHighlightQuad] -> ShowS
$cshowList :: [POverlayHighlightQuad] -> ShowS
show :: POverlayHighlightQuad -> String
$cshow :: POverlayHighlightQuad -> String
showsPrec :: Int -> POverlayHighlightQuad -> ShowS
$cshowsPrec :: Int -> POverlayHighlightQuad -> ShowS
Show)
pOverlayHighlightQuad
  {-
  -- | Quad to highlight
  -}
  :: DOMPageNetworkEmulationSecurity.DOMQuad
  -> POverlayHighlightQuad
pOverlayHighlightQuad :: DOMQuad -> POverlayHighlightQuad
pOverlayHighlightQuad
  DOMQuad
arg_pOverlayHighlightQuadQuad
  = DOMQuad -> Maybe DOMRGBA -> Maybe DOMRGBA -> POverlayHighlightQuad
POverlayHighlightQuad
    DOMQuad
arg_pOverlayHighlightQuadQuad
    Maybe DOMRGBA
forall a. Maybe a
Nothing
    Maybe DOMRGBA
forall a. Maybe a
Nothing
instance ToJSON POverlayHighlightQuad where
  toJSON :: POverlayHighlightQuad -> Value
toJSON POverlayHighlightQuad
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"quad" Text -> DOMQuad -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMQuad -> Pair) -> Maybe DOMQuad -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> DOMQuad -> Maybe DOMQuad
forall a. a -> Maybe a
Just (POverlayHighlightQuad -> DOMQuad
pOverlayHighlightQuadQuad POverlayHighlightQuad
p),
    (Text
"color" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlayHighlightQuad -> Maybe DOMRGBA
pOverlayHighlightQuadColor POverlayHighlightQuad
p),
    (Text
"outlineColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlayHighlightQuad -> Maybe DOMRGBA
pOverlayHighlightQuadOutlineColor POverlayHighlightQuad
p)
    ]
instance Command POverlayHighlightQuad where
  type CommandResponse POverlayHighlightQuad = ()
  commandName :: Proxy POverlayHighlightQuad -> String
commandName Proxy POverlayHighlightQuad
_ = String
"Overlay.highlightQuad"
  fromJSON :: Proxy POverlayHighlightQuad
-> Value -> Result (CommandResponse POverlayHighlightQuad)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlayHighlightQuad -> Result ())
-> Proxy POverlayHighlightQuad
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlayHighlightQuad -> ())
-> Proxy POverlayHighlightQuad
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlayHighlightQuad -> ()
forall a b. a -> b -> a
const ()

-- | Highlights given rectangle. Coordinates are absolute with respect to the main frame viewport.

-- | Parameters of the 'Overlay.highlightRect' command.
data POverlayHighlightRect = POverlayHighlightRect
  {
    -- | X coordinate
    POverlayHighlightRect -> Int
pOverlayHighlightRectX :: Int,
    -- | Y coordinate
    POverlayHighlightRect -> Int
pOverlayHighlightRectY :: Int,
    -- | Rectangle width
    POverlayHighlightRect -> Int
pOverlayHighlightRectWidth :: Int,
    -- | Rectangle height
    POverlayHighlightRect -> Int
pOverlayHighlightRectHeight :: Int,
    -- | The highlight fill color (default: transparent).
    POverlayHighlightRect -> Maybe DOMRGBA
pOverlayHighlightRectColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
    -- | The highlight outline color (default: transparent).
    POverlayHighlightRect -> Maybe DOMRGBA
pOverlayHighlightRectOutlineColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA
  }
  deriving (POverlayHighlightRect -> POverlayHighlightRect -> Bool
(POverlayHighlightRect -> POverlayHighlightRect -> Bool)
-> (POverlayHighlightRect -> POverlayHighlightRect -> Bool)
-> Eq POverlayHighlightRect
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlayHighlightRect -> POverlayHighlightRect -> Bool
$c/= :: POverlayHighlightRect -> POverlayHighlightRect -> Bool
== :: POverlayHighlightRect -> POverlayHighlightRect -> Bool
$c== :: POverlayHighlightRect -> POverlayHighlightRect -> Bool
Eq, Int -> POverlayHighlightRect -> ShowS
[POverlayHighlightRect] -> ShowS
POverlayHighlightRect -> String
(Int -> POverlayHighlightRect -> ShowS)
-> (POverlayHighlightRect -> String)
-> ([POverlayHighlightRect] -> ShowS)
-> Show POverlayHighlightRect
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlayHighlightRect] -> ShowS
$cshowList :: [POverlayHighlightRect] -> ShowS
show :: POverlayHighlightRect -> String
$cshow :: POverlayHighlightRect -> String
showsPrec :: Int -> POverlayHighlightRect -> ShowS
$cshowsPrec :: Int -> POverlayHighlightRect -> ShowS
Show)
pOverlayHighlightRect
  {-
  -- | X coordinate
  -}
  :: Int
  {-
  -- | Y coordinate
  -}
  -> Int
  {-
  -- | Rectangle width
  -}
  -> Int
  {-
  -- | Rectangle height
  -}
  -> Int
  -> POverlayHighlightRect
pOverlayHighlightRect :: Int -> Int -> Int -> Int -> POverlayHighlightRect
pOverlayHighlightRect
  Int
arg_pOverlayHighlightRectX
  Int
arg_pOverlayHighlightRectY
  Int
arg_pOverlayHighlightRectWidth
  Int
arg_pOverlayHighlightRectHeight
  = Int
-> Int
-> Int
-> Int
-> Maybe DOMRGBA
-> Maybe DOMRGBA
-> POverlayHighlightRect
POverlayHighlightRect
    Int
arg_pOverlayHighlightRectX
    Int
arg_pOverlayHighlightRectY
    Int
arg_pOverlayHighlightRectWidth
    Int
arg_pOverlayHighlightRectHeight
    Maybe DOMRGBA
forall a. Maybe a
Nothing
    Maybe DOMRGBA
forall a. Maybe a
Nothing
instance ToJSON POverlayHighlightRect where
  toJSON :: POverlayHighlightRect -> Value
toJSON POverlayHighlightRect
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"x" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Int -> Maybe Int
forall a. a -> Maybe a
Just (POverlayHighlightRect -> Int
pOverlayHighlightRectX POverlayHighlightRect
p),
    (Text
"y" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Int -> Maybe Int
forall a. a -> Maybe a
Just (POverlayHighlightRect -> Int
pOverlayHighlightRectY POverlayHighlightRect
p),
    (Text
"width" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Int -> Maybe Int
forall a. a -> Maybe a
Just (POverlayHighlightRect -> Int
pOverlayHighlightRectWidth POverlayHighlightRect
p),
    (Text
"height" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Int -> Maybe Int
forall a. a -> Maybe a
Just (POverlayHighlightRect -> Int
pOverlayHighlightRectHeight POverlayHighlightRect
p),
    (Text
"color" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlayHighlightRect -> Maybe DOMRGBA
pOverlayHighlightRectColor POverlayHighlightRect
p),
    (Text
"outlineColor" Text -> DOMRGBA -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMRGBA -> Pair) -> Maybe DOMRGBA -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlayHighlightRect -> Maybe DOMRGBA
pOverlayHighlightRectOutlineColor POverlayHighlightRect
p)
    ]
instance Command POverlayHighlightRect where
  type CommandResponse POverlayHighlightRect = ()
  commandName :: Proxy POverlayHighlightRect -> String
commandName Proxy POverlayHighlightRect
_ = String
"Overlay.highlightRect"
  fromJSON :: Proxy POverlayHighlightRect
-> Value -> Result (CommandResponse POverlayHighlightRect)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlayHighlightRect -> Result ())
-> Proxy POverlayHighlightRect
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlayHighlightRect -> ())
-> Proxy POverlayHighlightRect
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlayHighlightRect -> ()
forall a b. a -> b -> a
const ()

-- | Highlights the source order of the children of the DOM node with given id or with the given
--   JavaScript object wrapper. Either nodeId or objectId must be specified.

-- | Parameters of the 'Overlay.highlightSourceOrder' command.
data POverlayHighlightSourceOrder = POverlayHighlightSourceOrder
  {
    -- | A descriptor for the appearance of the overlay drawing.
    POverlayHighlightSourceOrder -> OverlaySourceOrderConfig
pOverlayHighlightSourceOrderSourceOrderConfig :: OverlaySourceOrderConfig,
    -- | Identifier of the node to highlight.
    POverlayHighlightSourceOrder -> Maybe Int
pOverlayHighlightSourceOrderNodeId :: Maybe DOMPageNetworkEmulationSecurity.DOMNodeId,
    -- | Identifier of the backend node to highlight.
    POverlayHighlightSourceOrder -> Maybe Int
pOverlayHighlightSourceOrderBackendNodeId :: Maybe DOMPageNetworkEmulationSecurity.DOMBackendNodeId,
    -- | JavaScript object id of the node to be highlighted.
    POverlayHighlightSourceOrder -> Maybe Text
pOverlayHighlightSourceOrderObjectId :: Maybe Runtime.RuntimeRemoteObjectId
  }
  deriving (POverlayHighlightSourceOrder
-> POverlayHighlightSourceOrder -> Bool
(POverlayHighlightSourceOrder
 -> POverlayHighlightSourceOrder -> Bool)
-> (POverlayHighlightSourceOrder
    -> POverlayHighlightSourceOrder -> Bool)
-> Eq POverlayHighlightSourceOrder
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlayHighlightSourceOrder
-> POverlayHighlightSourceOrder -> Bool
$c/= :: POverlayHighlightSourceOrder
-> POverlayHighlightSourceOrder -> Bool
== :: POverlayHighlightSourceOrder
-> POverlayHighlightSourceOrder -> Bool
$c== :: POverlayHighlightSourceOrder
-> POverlayHighlightSourceOrder -> Bool
Eq, Int -> POverlayHighlightSourceOrder -> ShowS
[POverlayHighlightSourceOrder] -> ShowS
POverlayHighlightSourceOrder -> String
(Int -> POverlayHighlightSourceOrder -> ShowS)
-> (POverlayHighlightSourceOrder -> String)
-> ([POverlayHighlightSourceOrder] -> ShowS)
-> Show POverlayHighlightSourceOrder
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlayHighlightSourceOrder] -> ShowS
$cshowList :: [POverlayHighlightSourceOrder] -> ShowS
show :: POverlayHighlightSourceOrder -> String
$cshow :: POverlayHighlightSourceOrder -> String
showsPrec :: Int -> POverlayHighlightSourceOrder -> ShowS
$cshowsPrec :: Int -> POverlayHighlightSourceOrder -> ShowS
Show)
pOverlayHighlightSourceOrder
  {-
  -- | A descriptor for the appearance of the overlay drawing.
  -}
  :: OverlaySourceOrderConfig
  -> POverlayHighlightSourceOrder
pOverlayHighlightSourceOrder :: OverlaySourceOrderConfig -> POverlayHighlightSourceOrder
pOverlayHighlightSourceOrder
  OverlaySourceOrderConfig
arg_pOverlayHighlightSourceOrderSourceOrderConfig
  = OverlaySourceOrderConfig
-> Maybe Int
-> Maybe Int
-> Maybe Text
-> POverlayHighlightSourceOrder
POverlayHighlightSourceOrder
    OverlaySourceOrderConfig
arg_pOverlayHighlightSourceOrderSourceOrderConfig
    Maybe Int
forall a. Maybe a
Nothing
    Maybe Int
forall a. Maybe a
Nothing
    Maybe Text
forall a. Maybe a
Nothing
instance ToJSON POverlayHighlightSourceOrder where
  toJSON :: POverlayHighlightSourceOrder -> Value
toJSON POverlayHighlightSourceOrder
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"sourceOrderConfig" Text -> OverlaySourceOrderConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlaySourceOrderConfig -> Pair)
-> Maybe OverlaySourceOrderConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> OverlaySourceOrderConfig -> Maybe OverlaySourceOrderConfig
forall a. a -> Maybe a
Just (POverlayHighlightSourceOrder -> OverlaySourceOrderConfig
pOverlayHighlightSourceOrderSourceOrderConfig POverlayHighlightSourceOrder
p),
    (Text
"nodeId" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlayHighlightSourceOrder -> Maybe Int
pOverlayHighlightSourceOrderNodeId POverlayHighlightSourceOrder
p),
    (Text
"backendNodeId" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlayHighlightSourceOrder -> Maybe Int
pOverlayHighlightSourceOrderBackendNodeId POverlayHighlightSourceOrder
p),
    (Text
"objectId" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlayHighlightSourceOrder -> Maybe Text
pOverlayHighlightSourceOrderObjectId POverlayHighlightSourceOrder
p)
    ]
instance Command POverlayHighlightSourceOrder where
  type CommandResponse POverlayHighlightSourceOrder = ()
  commandName :: Proxy POverlayHighlightSourceOrder -> String
commandName Proxy POverlayHighlightSourceOrder
_ = String
"Overlay.highlightSourceOrder"
  fromJSON :: Proxy POverlayHighlightSourceOrder
-> Value -> Result (CommandResponse POverlayHighlightSourceOrder)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlayHighlightSourceOrder -> Result ())
-> Proxy POverlayHighlightSourceOrder
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlayHighlightSourceOrder -> ())
-> Proxy POverlayHighlightSourceOrder
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlayHighlightSourceOrder -> ()
forall a b. a -> b -> a
const ()

-- | Enters the 'inspect' mode. In this mode, elements that user is hovering over are highlighted.
--   Backend then generates 'inspectNodeRequested' event upon element selection.

-- | Parameters of the 'Overlay.setInspectMode' command.
data POverlaySetInspectMode = POverlaySetInspectMode
  {
    -- | Set an inspection mode.
    POverlaySetInspectMode -> OverlayInspectMode
pOverlaySetInspectModeMode :: OverlayInspectMode,
    -- | A descriptor for the highlight appearance of hovered-over nodes. May be omitted if `enabled
    --   == false`.
    POverlaySetInspectMode -> Maybe OverlayHighlightConfig
pOverlaySetInspectModeHighlightConfig :: Maybe OverlayHighlightConfig
  }
  deriving (POverlaySetInspectMode -> POverlaySetInspectMode -> Bool
(POverlaySetInspectMode -> POverlaySetInspectMode -> Bool)
-> (POverlaySetInspectMode -> POverlaySetInspectMode -> Bool)
-> Eq POverlaySetInspectMode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlaySetInspectMode -> POverlaySetInspectMode -> Bool
$c/= :: POverlaySetInspectMode -> POverlaySetInspectMode -> Bool
== :: POverlaySetInspectMode -> POverlaySetInspectMode -> Bool
$c== :: POverlaySetInspectMode -> POverlaySetInspectMode -> Bool
Eq, Int -> POverlaySetInspectMode -> ShowS
[POverlaySetInspectMode] -> ShowS
POverlaySetInspectMode -> String
(Int -> POverlaySetInspectMode -> ShowS)
-> (POverlaySetInspectMode -> String)
-> ([POverlaySetInspectMode] -> ShowS)
-> Show POverlaySetInspectMode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlaySetInspectMode] -> ShowS
$cshowList :: [POverlaySetInspectMode] -> ShowS
show :: POverlaySetInspectMode -> String
$cshow :: POverlaySetInspectMode -> String
showsPrec :: Int -> POverlaySetInspectMode -> ShowS
$cshowsPrec :: Int -> POverlaySetInspectMode -> ShowS
Show)
pOverlaySetInspectMode
  {-
  -- | Set an inspection mode.
  -}
  :: OverlayInspectMode
  -> POverlaySetInspectMode
pOverlaySetInspectMode :: OverlayInspectMode -> POverlaySetInspectMode
pOverlaySetInspectMode
  OverlayInspectMode
arg_pOverlaySetInspectModeMode
  = OverlayInspectMode
-> Maybe OverlayHighlightConfig -> POverlaySetInspectMode
POverlaySetInspectMode
    OverlayInspectMode
arg_pOverlaySetInspectModeMode
    Maybe OverlayHighlightConfig
forall a. Maybe a
Nothing
instance ToJSON POverlaySetInspectMode where
  toJSON :: POverlaySetInspectMode -> Value
toJSON POverlaySetInspectMode
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"mode" Text -> OverlayInspectMode -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayInspectMode -> Pair)
-> Maybe OverlayInspectMode -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> OverlayInspectMode -> Maybe OverlayInspectMode
forall a. a -> Maybe a
Just (POverlaySetInspectMode -> OverlayInspectMode
pOverlaySetInspectModeMode POverlaySetInspectMode
p),
    (Text
"highlightConfig" Text -> OverlayHighlightConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayHighlightConfig -> Pair)
-> Maybe OverlayHighlightConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlaySetInspectMode -> Maybe OverlayHighlightConfig
pOverlaySetInspectModeHighlightConfig POverlaySetInspectMode
p)
    ]
instance Command POverlaySetInspectMode where
  type CommandResponse POverlaySetInspectMode = ()
  commandName :: Proxy POverlaySetInspectMode -> String
commandName Proxy POverlaySetInspectMode
_ = String
"Overlay.setInspectMode"
  fromJSON :: Proxy POverlaySetInspectMode
-> Value -> Result (CommandResponse POverlaySetInspectMode)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlaySetInspectMode -> Result ())
-> Proxy POverlaySetInspectMode
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlaySetInspectMode -> ())
-> Proxy POverlaySetInspectMode
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlaySetInspectMode -> ()
forall a b. a -> b -> a
const ()

-- | Highlights owner element of all frames detected to be ads.

-- | Parameters of the 'Overlay.setShowAdHighlights' command.
data POverlaySetShowAdHighlights = POverlaySetShowAdHighlights
  {
    -- | True for showing ad highlights
    POverlaySetShowAdHighlights -> Bool
pOverlaySetShowAdHighlightsShow :: Bool
  }
  deriving (POverlaySetShowAdHighlights -> POverlaySetShowAdHighlights -> Bool
(POverlaySetShowAdHighlights
 -> POverlaySetShowAdHighlights -> Bool)
-> (POverlaySetShowAdHighlights
    -> POverlaySetShowAdHighlights -> Bool)
-> Eq POverlaySetShowAdHighlights
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlaySetShowAdHighlights -> POverlaySetShowAdHighlights -> Bool
$c/= :: POverlaySetShowAdHighlights -> POverlaySetShowAdHighlights -> Bool
== :: POverlaySetShowAdHighlights -> POverlaySetShowAdHighlights -> Bool
$c== :: POverlaySetShowAdHighlights -> POverlaySetShowAdHighlights -> Bool
Eq, Int -> POverlaySetShowAdHighlights -> ShowS
[POverlaySetShowAdHighlights] -> ShowS
POverlaySetShowAdHighlights -> String
(Int -> POverlaySetShowAdHighlights -> ShowS)
-> (POverlaySetShowAdHighlights -> String)
-> ([POverlaySetShowAdHighlights] -> ShowS)
-> Show POverlaySetShowAdHighlights
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlaySetShowAdHighlights] -> ShowS
$cshowList :: [POverlaySetShowAdHighlights] -> ShowS
show :: POverlaySetShowAdHighlights -> String
$cshow :: POverlaySetShowAdHighlights -> String
showsPrec :: Int -> POverlaySetShowAdHighlights -> ShowS
$cshowsPrec :: Int -> POverlaySetShowAdHighlights -> ShowS
Show)
pOverlaySetShowAdHighlights
  {-
  -- | True for showing ad highlights
  -}
  :: Bool
  -> POverlaySetShowAdHighlights
pOverlaySetShowAdHighlights :: Bool -> POverlaySetShowAdHighlights
pOverlaySetShowAdHighlights
  Bool
arg_pOverlaySetShowAdHighlightsShow
  = Bool -> POverlaySetShowAdHighlights
POverlaySetShowAdHighlights
    Bool
arg_pOverlaySetShowAdHighlightsShow
instance ToJSON POverlaySetShowAdHighlights where
  toJSON :: POverlaySetShowAdHighlights -> Value
toJSON POverlaySetShowAdHighlights
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"show" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Bool -> Maybe Bool
forall a. a -> Maybe a
Just (POverlaySetShowAdHighlights -> Bool
pOverlaySetShowAdHighlightsShow POverlaySetShowAdHighlights
p)
    ]
instance Command POverlaySetShowAdHighlights where
  type CommandResponse POverlaySetShowAdHighlights = ()
  commandName :: Proxy POverlaySetShowAdHighlights -> String
commandName Proxy POverlaySetShowAdHighlights
_ = String
"Overlay.setShowAdHighlights"
  fromJSON :: Proxy POverlaySetShowAdHighlights
-> Value -> Result (CommandResponse POverlaySetShowAdHighlights)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlaySetShowAdHighlights -> Result ())
-> Proxy POverlaySetShowAdHighlights
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlaySetShowAdHighlights -> ())
-> Proxy POverlaySetShowAdHighlights
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlaySetShowAdHighlights -> ()
forall a b. a -> b -> a
const ()


-- | Parameters of the 'Overlay.setPausedInDebuggerMessage' command.
data POverlaySetPausedInDebuggerMessage = POverlaySetPausedInDebuggerMessage
  {
    -- | The message to display, also triggers resume and step over controls.
    POverlaySetPausedInDebuggerMessage -> Maybe Text
pOverlaySetPausedInDebuggerMessageMessage :: Maybe T.Text
  }
  deriving (POverlaySetPausedInDebuggerMessage
-> POverlaySetPausedInDebuggerMessage -> Bool
(POverlaySetPausedInDebuggerMessage
 -> POverlaySetPausedInDebuggerMessage -> Bool)
-> (POverlaySetPausedInDebuggerMessage
    -> POverlaySetPausedInDebuggerMessage -> Bool)
-> Eq POverlaySetPausedInDebuggerMessage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlaySetPausedInDebuggerMessage
-> POverlaySetPausedInDebuggerMessage -> Bool
$c/= :: POverlaySetPausedInDebuggerMessage
-> POverlaySetPausedInDebuggerMessage -> Bool
== :: POverlaySetPausedInDebuggerMessage
-> POverlaySetPausedInDebuggerMessage -> Bool
$c== :: POverlaySetPausedInDebuggerMessage
-> POverlaySetPausedInDebuggerMessage -> Bool
Eq, Int -> POverlaySetPausedInDebuggerMessage -> ShowS
[POverlaySetPausedInDebuggerMessage] -> ShowS
POverlaySetPausedInDebuggerMessage -> String
(Int -> POverlaySetPausedInDebuggerMessage -> ShowS)
-> (POverlaySetPausedInDebuggerMessage -> String)
-> ([POverlaySetPausedInDebuggerMessage] -> ShowS)
-> Show POverlaySetPausedInDebuggerMessage
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlaySetPausedInDebuggerMessage] -> ShowS
$cshowList :: [POverlaySetPausedInDebuggerMessage] -> ShowS
show :: POverlaySetPausedInDebuggerMessage -> String
$cshow :: POverlaySetPausedInDebuggerMessage -> String
showsPrec :: Int -> POverlaySetPausedInDebuggerMessage -> ShowS
$cshowsPrec :: Int -> POverlaySetPausedInDebuggerMessage -> ShowS
Show)
pOverlaySetPausedInDebuggerMessage
  :: POverlaySetPausedInDebuggerMessage
pOverlaySetPausedInDebuggerMessage :: POverlaySetPausedInDebuggerMessage
pOverlaySetPausedInDebuggerMessage
  = Maybe Text -> POverlaySetPausedInDebuggerMessage
POverlaySetPausedInDebuggerMessage
    Maybe Text
forall a. Maybe a
Nothing
instance ToJSON POverlaySetPausedInDebuggerMessage where
  toJSON :: POverlaySetPausedInDebuggerMessage -> Value
toJSON POverlaySetPausedInDebuggerMessage
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"message" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlaySetPausedInDebuggerMessage -> Maybe Text
pOverlaySetPausedInDebuggerMessageMessage POverlaySetPausedInDebuggerMessage
p)
    ]
instance Command POverlaySetPausedInDebuggerMessage where
  type CommandResponse POverlaySetPausedInDebuggerMessage = ()
  commandName :: Proxy POverlaySetPausedInDebuggerMessage -> String
commandName Proxy POverlaySetPausedInDebuggerMessage
_ = String
"Overlay.setPausedInDebuggerMessage"
  fromJSON :: Proxy POverlaySetPausedInDebuggerMessage
-> Value
-> Result (CommandResponse POverlaySetPausedInDebuggerMessage)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlaySetPausedInDebuggerMessage -> Result ())
-> Proxy POverlaySetPausedInDebuggerMessage
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlaySetPausedInDebuggerMessage -> ())
-> Proxy POverlaySetPausedInDebuggerMessage
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlaySetPausedInDebuggerMessage -> ()
forall a b. a -> b -> a
const ()

-- | Requests that backend shows debug borders on layers

-- | Parameters of the 'Overlay.setShowDebugBorders' command.
data POverlaySetShowDebugBorders = POverlaySetShowDebugBorders
  {
    -- | True for showing debug borders
    POverlaySetShowDebugBorders -> Bool
pOverlaySetShowDebugBordersShow :: Bool
  }
  deriving (POverlaySetShowDebugBorders -> POverlaySetShowDebugBorders -> Bool
(POverlaySetShowDebugBorders
 -> POverlaySetShowDebugBorders -> Bool)
-> (POverlaySetShowDebugBorders
    -> POverlaySetShowDebugBorders -> Bool)
-> Eq POverlaySetShowDebugBorders
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlaySetShowDebugBorders -> POverlaySetShowDebugBorders -> Bool
$c/= :: POverlaySetShowDebugBorders -> POverlaySetShowDebugBorders -> Bool
== :: POverlaySetShowDebugBorders -> POverlaySetShowDebugBorders -> Bool
$c== :: POverlaySetShowDebugBorders -> POverlaySetShowDebugBorders -> Bool
Eq, Int -> POverlaySetShowDebugBorders -> ShowS
[POverlaySetShowDebugBorders] -> ShowS
POverlaySetShowDebugBorders -> String
(Int -> POverlaySetShowDebugBorders -> ShowS)
-> (POverlaySetShowDebugBorders -> String)
-> ([POverlaySetShowDebugBorders] -> ShowS)
-> Show POverlaySetShowDebugBorders
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlaySetShowDebugBorders] -> ShowS
$cshowList :: [POverlaySetShowDebugBorders] -> ShowS
show :: POverlaySetShowDebugBorders -> String
$cshow :: POverlaySetShowDebugBorders -> String
showsPrec :: Int -> POverlaySetShowDebugBorders -> ShowS
$cshowsPrec :: Int -> POverlaySetShowDebugBorders -> ShowS
Show)
pOverlaySetShowDebugBorders
  {-
  -- | True for showing debug borders
  -}
  :: Bool
  -> POverlaySetShowDebugBorders
pOverlaySetShowDebugBorders :: Bool -> POverlaySetShowDebugBorders
pOverlaySetShowDebugBorders
  Bool
arg_pOverlaySetShowDebugBordersShow
  = Bool -> POverlaySetShowDebugBorders
POverlaySetShowDebugBorders
    Bool
arg_pOverlaySetShowDebugBordersShow
instance ToJSON POverlaySetShowDebugBorders where
  toJSON :: POverlaySetShowDebugBorders -> Value
toJSON POverlaySetShowDebugBorders
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"show" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Bool -> Maybe Bool
forall a. a -> Maybe a
Just (POverlaySetShowDebugBorders -> Bool
pOverlaySetShowDebugBordersShow POverlaySetShowDebugBorders
p)
    ]
instance Command POverlaySetShowDebugBorders where
  type CommandResponse POverlaySetShowDebugBorders = ()
  commandName :: Proxy POverlaySetShowDebugBorders -> String
commandName Proxy POverlaySetShowDebugBorders
_ = String
"Overlay.setShowDebugBorders"
  fromJSON :: Proxy POverlaySetShowDebugBorders
-> Value -> Result (CommandResponse POverlaySetShowDebugBorders)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlaySetShowDebugBorders -> Result ())
-> Proxy POverlaySetShowDebugBorders
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlaySetShowDebugBorders -> ())
-> Proxy POverlaySetShowDebugBorders
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlaySetShowDebugBorders -> ()
forall a b. a -> b -> a
const ()

-- | Requests that backend shows the FPS counter

-- | Parameters of the 'Overlay.setShowFPSCounter' command.
data POverlaySetShowFPSCounter = POverlaySetShowFPSCounter
  {
    -- | True for showing the FPS counter
    POverlaySetShowFPSCounter -> Bool
pOverlaySetShowFPSCounterShow :: Bool
  }
  deriving (POverlaySetShowFPSCounter -> POverlaySetShowFPSCounter -> Bool
(POverlaySetShowFPSCounter -> POverlaySetShowFPSCounter -> Bool)
-> (POverlaySetShowFPSCounter -> POverlaySetShowFPSCounter -> Bool)
-> Eq POverlaySetShowFPSCounter
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlaySetShowFPSCounter -> POverlaySetShowFPSCounter -> Bool
$c/= :: POverlaySetShowFPSCounter -> POverlaySetShowFPSCounter -> Bool
== :: POverlaySetShowFPSCounter -> POverlaySetShowFPSCounter -> Bool
$c== :: POverlaySetShowFPSCounter -> POverlaySetShowFPSCounter -> Bool
Eq, Int -> POverlaySetShowFPSCounter -> ShowS
[POverlaySetShowFPSCounter] -> ShowS
POverlaySetShowFPSCounter -> String
(Int -> POverlaySetShowFPSCounter -> ShowS)
-> (POverlaySetShowFPSCounter -> String)
-> ([POverlaySetShowFPSCounter] -> ShowS)
-> Show POverlaySetShowFPSCounter
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlaySetShowFPSCounter] -> ShowS
$cshowList :: [POverlaySetShowFPSCounter] -> ShowS
show :: POverlaySetShowFPSCounter -> String
$cshow :: POverlaySetShowFPSCounter -> String
showsPrec :: Int -> POverlaySetShowFPSCounter -> ShowS
$cshowsPrec :: Int -> POverlaySetShowFPSCounter -> ShowS
Show)
pOverlaySetShowFPSCounter
  {-
  -- | True for showing the FPS counter
  -}
  :: Bool
  -> POverlaySetShowFPSCounter
pOverlaySetShowFPSCounter :: Bool -> POverlaySetShowFPSCounter
pOverlaySetShowFPSCounter
  Bool
arg_pOverlaySetShowFPSCounterShow
  = Bool -> POverlaySetShowFPSCounter
POverlaySetShowFPSCounter
    Bool
arg_pOverlaySetShowFPSCounterShow
instance ToJSON POverlaySetShowFPSCounter where
  toJSON :: POverlaySetShowFPSCounter -> Value
toJSON POverlaySetShowFPSCounter
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"show" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Bool -> Maybe Bool
forall a. a -> Maybe a
Just (POverlaySetShowFPSCounter -> Bool
pOverlaySetShowFPSCounterShow POverlaySetShowFPSCounter
p)
    ]
instance Command POverlaySetShowFPSCounter where
  type CommandResponse POverlaySetShowFPSCounter = ()
  commandName :: Proxy POverlaySetShowFPSCounter -> String
commandName Proxy POverlaySetShowFPSCounter
_ = String
"Overlay.setShowFPSCounter"
  fromJSON :: Proxy POverlaySetShowFPSCounter
-> Value -> Result (CommandResponse POverlaySetShowFPSCounter)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlaySetShowFPSCounter -> Result ())
-> Proxy POverlaySetShowFPSCounter
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlaySetShowFPSCounter -> ())
-> Proxy POverlaySetShowFPSCounter
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlaySetShowFPSCounter -> ()
forall a b. a -> b -> a
const ()

-- | Highlight multiple elements with the CSS Grid overlay.

-- | Parameters of the 'Overlay.setShowGridOverlays' command.
data POverlaySetShowGridOverlays = POverlaySetShowGridOverlays
  {
    -- | An array of node identifiers and descriptors for the highlight appearance.
    POverlaySetShowGridOverlays -> [OverlayGridNodeHighlightConfig]
pOverlaySetShowGridOverlaysGridNodeHighlightConfigs :: [OverlayGridNodeHighlightConfig]
  }
  deriving (POverlaySetShowGridOverlays -> POverlaySetShowGridOverlays -> Bool
(POverlaySetShowGridOverlays
 -> POverlaySetShowGridOverlays -> Bool)
-> (POverlaySetShowGridOverlays
    -> POverlaySetShowGridOverlays -> Bool)
-> Eq POverlaySetShowGridOverlays
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlaySetShowGridOverlays -> POverlaySetShowGridOverlays -> Bool
$c/= :: POverlaySetShowGridOverlays -> POverlaySetShowGridOverlays -> Bool
== :: POverlaySetShowGridOverlays -> POverlaySetShowGridOverlays -> Bool
$c== :: POverlaySetShowGridOverlays -> POverlaySetShowGridOverlays -> Bool
Eq, Int -> POverlaySetShowGridOverlays -> ShowS
[POverlaySetShowGridOverlays] -> ShowS
POverlaySetShowGridOverlays -> String
(Int -> POverlaySetShowGridOverlays -> ShowS)
-> (POverlaySetShowGridOverlays -> String)
-> ([POverlaySetShowGridOverlays] -> ShowS)
-> Show POverlaySetShowGridOverlays
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlaySetShowGridOverlays] -> ShowS
$cshowList :: [POverlaySetShowGridOverlays] -> ShowS
show :: POverlaySetShowGridOverlays -> String
$cshow :: POverlaySetShowGridOverlays -> String
showsPrec :: Int -> POverlaySetShowGridOverlays -> ShowS
$cshowsPrec :: Int -> POverlaySetShowGridOverlays -> ShowS
Show)
pOverlaySetShowGridOverlays
  {-
  -- | An array of node identifiers and descriptors for the highlight appearance.
  -}
  :: [OverlayGridNodeHighlightConfig]
  -> POverlaySetShowGridOverlays
pOverlaySetShowGridOverlays :: [OverlayGridNodeHighlightConfig] -> POverlaySetShowGridOverlays
pOverlaySetShowGridOverlays
  [OverlayGridNodeHighlightConfig]
arg_pOverlaySetShowGridOverlaysGridNodeHighlightConfigs
  = [OverlayGridNodeHighlightConfig] -> POverlaySetShowGridOverlays
POverlaySetShowGridOverlays
    [OverlayGridNodeHighlightConfig]
arg_pOverlaySetShowGridOverlaysGridNodeHighlightConfigs
instance ToJSON POverlaySetShowGridOverlays where
  toJSON :: POverlaySetShowGridOverlays -> Value
toJSON POverlaySetShowGridOverlays
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"gridNodeHighlightConfigs" Text -> [OverlayGridNodeHighlightConfig] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) ([OverlayGridNodeHighlightConfig] -> Pair)
-> Maybe [OverlayGridNodeHighlightConfig] -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [OverlayGridNodeHighlightConfig]
-> Maybe [OverlayGridNodeHighlightConfig]
forall a. a -> Maybe a
Just (POverlaySetShowGridOverlays -> [OverlayGridNodeHighlightConfig]
pOverlaySetShowGridOverlaysGridNodeHighlightConfigs POverlaySetShowGridOverlays
p)
    ]
instance Command POverlaySetShowGridOverlays where
  type CommandResponse POverlaySetShowGridOverlays = ()
  commandName :: Proxy POverlaySetShowGridOverlays -> String
commandName Proxy POverlaySetShowGridOverlays
_ = String
"Overlay.setShowGridOverlays"
  fromJSON :: Proxy POverlaySetShowGridOverlays
-> Value -> Result (CommandResponse POverlaySetShowGridOverlays)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlaySetShowGridOverlays -> Result ())
-> Proxy POverlaySetShowGridOverlays
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlaySetShowGridOverlays -> ())
-> Proxy POverlaySetShowGridOverlays
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlaySetShowGridOverlays -> ()
forall a b. a -> b -> a
const ()


-- | Parameters of the 'Overlay.setShowFlexOverlays' command.
data POverlaySetShowFlexOverlays = POverlaySetShowFlexOverlays
  {
    -- | An array of node identifiers and descriptors for the highlight appearance.
    POverlaySetShowFlexOverlays -> [OverlayFlexNodeHighlightConfig]
pOverlaySetShowFlexOverlaysFlexNodeHighlightConfigs :: [OverlayFlexNodeHighlightConfig]
  }
  deriving (POverlaySetShowFlexOverlays -> POverlaySetShowFlexOverlays -> Bool
(POverlaySetShowFlexOverlays
 -> POverlaySetShowFlexOverlays -> Bool)
-> (POverlaySetShowFlexOverlays
    -> POverlaySetShowFlexOverlays -> Bool)
-> Eq POverlaySetShowFlexOverlays
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlaySetShowFlexOverlays -> POverlaySetShowFlexOverlays -> Bool
$c/= :: POverlaySetShowFlexOverlays -> POverlaySetShowFlexOverlays -> Bool
== :: POverlaySetShowFlexOverlays -> POverlaySetShowFlexOverlays -> Bool
$c== :: POverlaySetShowFlexOverlays -> POverlaySetShowFlexOverlays -> Bool
Eq, Int -> POverlaySetShowFlexOverlays -> ShowS
[POverlaySetShowFlexOverlays] -> ShowS
POverlaySetShowFlexOverlays -> String
(Int -> POverlaySetShowFlexOverlays -> ShowS)
-> (POverlaySetShowFlexOverlays -> String)
-> ([POverlaySetShowFlexOverlays] -> ShowS)
-> Show POverlaySetShowFlexOverlays
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlaySetShowFlexOverlays] -> ShowS
$cshowList :: [POverlaySetShowFlexOverlays] -> ShowS
show :: POverlaySetShowFlexOverlays -> String
$cshow :: POverlaySetShowFlexOverlays -> String
showsPrec :: Int -> POverlaySetShowFlexOverlays -> ShowS
$cshowsPrec :: Int -> POverlaySetShowFlexOverlays -> ShowS
Show)
pOverlaySetShowFlexOverlays
  {-
  -- | An array of node identifiers and descriptors for the highlight appearance.
  -}
  :: [OverlayFlexNodeHighlightConfig]
  -> POverlaySetShowFlexOverlays
pOverlaySetShowFlexOverlays :: [OverlayFlexNodeHighlightConfig] -> POverlaySetShowFlexOverlays
pOverlaySetShowFlexOverlays
  [OverlayFlexNodeHighlightConfig]
arg_pOverlaySetShowFlexOverlaysFlexNodeHighlightConfigs
  = [OverlayFlexNodeHighlightConfig] -> POverlaySetShowFlexOverlays
POverlaySetShowFlexOverlays
    [OverlayFlexNodeHighlightConfig]
arg_pOverlaySetShowFlexOverlaysFlexNodeHighlightConfigs
instance ToJSON POverlaySetShowFlexOverlays where
  toJSON :: POverlaySetShowFlexOverlays -> Value
toJSON POverlaySetShowFlexOverlays
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"flexNodeHighlightConfigs" Text -> [OverlayFlexNodeHighlightConfig] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) ([OverlayFlexNodeHighlightConfig] -> Pair)
-> Maybe [OverlayFlexNodeHighlightConfig] -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [OverlayFlexNodeHighlightConfig]
-> Maybe [OverlayFlexNodeHighlightConfig]
forall a. a -> Maybe a
Just (POverlaySetShowFlexOverlays -> [OverlayFlexNodeHighlightConfig]
pOverlaySetShowFlexOverlaysFlexNodeHighlightConfigs POverlaySetShowFlexOverlays
p)
    ]
instance Command POverlaySetShowFlexOverlays where
  type CommandResponse POverlaySetShowFlexOverlays = ()
  commandName :: Proxy POverlaySetShowFlexOverlays -> String
commandName Proxy POverlaySetShowFlexOverlays
_ = String
"Overlay.setShowFlexOverlays"
  fromJSON :: Proxy POverlaySetShowFlexOverlays
-> Value -> Result (CommandResponse POverlaySetShowFlexOverlays)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlaySetShowFlexOverlays -> Result ())
-> Proxy POverlaySetShowFlexOverlays
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlaySetShowFlexOverlays -> ())
-> Proxy POverlaySetShowFlexOverlays
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlaySetShowFlexOverlays -> ()
forall a b. a -> b -> a
const ()


-- | Parameters of the 'Overlay.setShowScrollSnapOverlays' command.
data POverlaySetShowScrollSnapOverlays = POverlaySetShowScrollSnapOverlays
  {
    -- | An array of node identifiers and descriptors for the highlight appearance.
    POverlaySetShowScrollSnapOverlays
-> [OverlayScrollSnapHighlightConfig]
pOverlaySetShowScrollSnapOverlaysScrollSnapHighlightConfigs :: [OverlayScrollSnapHighlightConfig]
  }
  deriving (POverlaySetShowScrollSnapOverlays
-> POverlaySetShowScrollSnapOverlays -> Bool
(POverlaySetShowScrollSnapOverlays
 -> POverlaySetShowScrollSnapOverlays -> Bool)
-> (POverlaySetShowScrollSnapOverlays
    -> POverlaySetShowScrollSnapOverlays -> Bool)
-> Eq POverlaySetShowScrollSnapOverlays
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlaySetShowScrollSnapOverlays
-> POverlaySetShowScrollSnapOverlays -> Bool
$c/= :: POverlaySetShowScrollSnapOverlays
-> POverlaySetShowScrollSnapOverlays -> Bool
== :: POverlaySetShowScrollSnapOverlays
-> POverlaySetShowScrollSnapOverlays -> Bool
$c== :: POverlaySetShowScrollSnapOverlays
-> POverlaySetShowScrollSnapOverlays -> Bool
Eq, Int -> POverlaySetShowScrollSnapOverlays -> ShowS
[POverlaySetShowScrollSnapOverlays] -> ShowS
POverlaySetShowScrollSnapOverlays -> String
(Int -> POverlaySetShowScrollSnapOverlays -> ShowS)
-> (POverlaySetShowScrollSnapOverlays -> String)
-> ([POverlaySetShowScrollSnapOverlays] -> ShowS)
-> Show POverlaySetShowScrollSnapOverlays
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlaySetShowScrollSnapOverlays] -> ShowS
$cshowList :: [POverlaySetShowScrollSnapOverlays] -> ShowS
show :: POverlaySetShowScrollSnapOverlays -> String
$cshow :: POverlaySetShowScrollSnapOverlays -> String
showsPrec :: Int -> POverlaySetShowScrollSnapOverlays -> ShowS
$cshowsPrec :: Int -> POverlaySetShowScrollSnapOverlays -> ShowS
Show)
pOverlaySetShowScrollSnapOverlays
  {-
  -- | An array of node identifiers and descriptors for the highlight appearance.
  -}
  :: [OverlayScrollSnapHighlightConfig]
  -> POverlaySetShowScrollSnapOverlays
pOverlaySetShowScrollSnapOverlays :: [OverlayScrollSnapHighlightConfig]
-> POverlaySetShowScrollSnapOverlays
pOverlaySetShowScrollSnapOverlays
  [OverlayScrollSnapHighlightConfig]
arg_pOverlaySetShowScrollSnapOverlaysScrollSnapHighlightConfigs
  = [OverlayScrollSnapHighlightConfig]
-> POverlaySetShowScrollSnapOverlays
POverlaySetShowScrollSnapOverlays
    [OverlayScrollSnapHighlightConfig]
arg_pOverlaySetShowScrollSnapOverlaysScrollSnapHighlightConfigs
instance ToJSON POverlaySetShowScrollSnapOverlays where
  toJSON :: POverlaySetShowScrollSnapOverlays -> Value
toJSON POverlaySetShowScrollSnapOverlays
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"scrollSnapHighlightConfigs" Text -> [OverlayScrollSnapHighlightConfig] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) ([OverlayScrollSnapHighlightConfig] -> Pair)
-> Maybe [OverlayScrollSnapHighlightConfig] -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [OverlayScrollSnapHighlightConfig]
-> Maybe [OverlayScrollSnapHighlightConfig]
forall a. a -> Maybe a
Just (POverlaySetShowScrollSnapOverlays
-> [OverlayScrollSnapHighlightConfig]
pOverlaySetShowScrollSnapOverlaysScrollSnapHighlightConfigs POverlaySetShowScrollSnapOverlays
p)
    ]
instance Command POverlaySetShowScrollSnapOverlays where
  type CommandResponse POverlaySetShowScrollSnapOverlays = ()
  commandName :: Proxy POverlaySetShowScrollSnapOverlays -> String
commandName Proxy POverlaySetShowScrollSnapOverlays
_ = String
"Overlay.setShowScrollSnapOverlays"
  fromJSON :: Proxy POverlaySetShowScrollSnapOverlays
-> Value
-> Result (CommandResponse POverlaySetShowScrollSnapOverlays)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlaySetShowScrollSnapOverlays -> Result ())
-> Proxy POverlaySetShowScrollSnapOverlays
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlaySetShowScrollSnapOverlays -> ())
-> Proxy POverlaySetShowScrollSnapOverlays
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlaySetShowScrollSnapOverlays -> ()
forall a b. a -> b -> a
const ()


-- | Parameters of the 'Overlay.setShowContainerQueryOverlays' command.
data POverlaySetShowContainerQueryOverlays = POverlaySetShowContainerQueryOverlays
  {
    -- | An array of node identifiers and descriptors for the highlight appearance.
    POverlaySetShowContainerQueryOverlays
-> [OverlayContainerQueryHighlightConfig]
pOverlaySetShowContainerQueryOverlaysContainerQueryHighlightConfigs :: [OverlayContainerQueryHighlightConfig]
  }
  deriving (POverlaySetShowContainerQueryOverlays
-> POverlaySetShowContainerQueryOverlays -> Bool
(POverlaySetShowContainerQueryOverlays
 -> POverlaySetShowContainerQueryOverlays -> Bool)
-> (POverlaySetShowContainerQueryOverlays
    -> POverlaySetShowContainerQueryOverlays -> Bool)
-> Eq POverlaySetShowContainerQueryOverlays
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlaySetShowContainerQueryOverlays
-> POverlaySetShowContainerQueryOverlays -> Bool
$c/= :: POverlaySetShowContainerQueryOverlays
-> POverlaySetShowContainerQueryOverlays -> Bool
== :: POverlaySetShowContainerQueryOverlays
-> POverlaySetShowContainerQueryOverlays -> Bool
$c== :: POverlaySetShowContainerQueryOverlays
-> POverlaySetShowContainerQueryOverlays -> Bool
Eq, Int -> POverlaySetShowContainerQueryOverlays -> ShowS
[POverlaySetShowContainerQueryOverlays] -> ShowS
POverlaySetShowContainerQueryOverlays -> String
(Int -> POverlaySetShowContainerQueryOverlays -> ShowS)
-> (POverlaySetShowContainerQueryOverlays -> String)
-> ([POverlaySetShowContainerQueryOverlays] -> ShowS)
-> Show POverlaySetShowContainerQueryOverlays
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlaySetShowContainerQueryOverlays] -> ShowS
$cshowList :: [POverlaySetShowContainerQueryOverlays] -> ShowS
show :: POverlaySetShowContainerQueryOverlays -> String
$cshow :: POverlaySetShowContainerQueryOverlays -> String
showsPrec :: Int -> POverlaySetShowContainerQueryOverlays -> ShowS
$cshowsPrec :: Int -> POverlaySetShowContainerQueryOverlays -> ShowS
Show)
pOverlaySetShowContainerQueryOverlays
  {-
  -- | An array of node identifiers and descriptors for the highlight appearance.
  -}
  :: [OverlayContainerQueryHighlightConfig]
  -> POverlaySetShowContainerQueryOverlays
pOverlaySetShowContainerQueryOverlays :: [OverlayContainerQueryHighlightConfig]
-> POverlaySetShowContainerQueryOverlays
pOverlaySetShowContainerQueryOverlays
  [OverlayContainerQueryHighlightConfig]
arg_pOverlaySetShowContainerQueryOverlaysContainerQueryHighlightConfigs
  = [OverlayContainerQueryHighlightConfig]
-> POverlaySetShowContainerQueryOverlays
POverlaySetShowContainerQueryOverlays
    [OverlayContainerQueryHighlightConfig]
arg_pOverlaySetShowContainerQueryOverlaysContainerQueryHighlightConfigs
instance ToJSON POverlaySetShowContainerQueryOverlays where
  toJSON :: POverlaySetShowContainerQueryOverlays -> Value
toJSON POverlaySetShowContainerQueryOverlays
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"containerQueryHighlightConfigs" Text -> [OverlayContainerQueryHighlightConfig] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) ([OverlayContainerQueryHighlightConfig] -> Pair)
-> Maybe [OverlayContainerQueryHighlightConfig] -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [OverlayContainerQueryHighlightConfig]
-> Maybe [OverlayContainerQueryHighlightConfig]
forall a. a -> Maybe a
Just (POverlaySetShowContainerQueryOverlays
-> [OverlayContainerQueryHighlightConfig]
pOverlaySetShowContainerQueryOverlaysContainerQueryHighlightConfigs POverlaySetShowContainerQueryOverlays
p)
    ]
instance Command POverlaySetShowContainerQueryOverlays where
  type CommandResponse POverlaySetShowContainerQueryOverlays = ()
  commandName :: Proxy POverlaySetShowContainerQueryOverlays -> String
commandName Proxy POverlaySetShowContainerQueryOverlays
_ = String
"Overlay.setShowContainerQueryOverlays"
  fromJSON :: Proxy POverlaySetShowContainerQueryOverlays
-> Value
-> Result (CommandResponse POverlaySetShowContainerQueryOverlays)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlaySetShowContainerQueryOverlays -> Result ())
-> Proxy POverlaySetShowContainerQueryOverlays
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlaySetShowContainerQueryOverlays -> ())
-> Proxy POverlaySetShowContainerQueryOverlays
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlaySetShowContainerQueryOverlays -> ()
forall a b. a -> b -> a
const ()

-- | Requests that backend shows paint rectangles

-- | Parameters of the 'Overlay.setShowPaintRects' command.
data POverlaySetShowPaintRects = POverlaySetShowPaintRects
  {
    -- | True for showing paint rectangles
    POverlaySetShowPaintRects -> Bool
pOverlaySetShowPaintRectsResult :: Bool
  }
  deriving (POverlaySetShowPaintRects -> POverlaySetShowPaintRects -> Bool
(POverlaySetShowPaintRects -> POverlaySetShowPaintRects -> Bool)
-> (POverlaySetShowPaintRects -> POverlaySetShowPaintRects -> Bool)
-> Eq POverlaySetShowPaintRects
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlaySetShowPaintRects -> POverlaySetShowPaintRects -> Bool
$c/= :: POverlaySetShowPaintRects -> POverlaySetShowPaintRects -> Bool
== :: POverlaySetShowPaintRects -> POverlaySetShowPaintRects -> Bool
$c== :: POverlaySetShowPaintRects -> POverlaySetShowPaintRects -> Bool
Eq, Int -> POverlaySetShowPaintRects -> ShowS
[POverlaySetShowPaintRects] -> ShowS
POverlaySetShowPaintRects -> String
(Int -> POverlaySetShowPaintRects -> ShowS)
-> (POverlaySetShowPaintRects -> String)
-> ([POverlaySetShowPaintRects] -> ShowS)
-> Show POverlaySetShowPaintRects
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlaySetShowPaintRects] -> ShowS
$cshowList :: [POverlaySetShowPaintRects] -> ShowS
show :: POverlaySetShowPaintRects -> String
$cshow :: POverlaySetShowPaintRects -> String
showsPrec :: Int -> POverlaySetShowPaintRects -> ShowS
$cshowsPrec :: Int -> POverlaySetShowPaintRects -> ShowS
Show)
pOverlaySetShowPaintRects
  {-
  -- | True for showing paint rectangles
  -}
  :: Bool
  -> POverlaySetShowPaintRects
pOverlaySetShowPaintRects :: Bool -> POverlaySetShowPaintRects
pOverlaySetShowPaintRects
  Bool
arg_pOverlaySetShowPaintRectsResult
  = Bool -> POverlaySetShowPaintRects
POverlaySetShowPaintRects
    Bool
arg_pOverlaySetShowPaintRectsResult
instance ToJSON POverlaySetShowPaintRects where
  toJSON :: POverlaySetShowPaintRects -> Value
toJSON POverlaySetShowPaintRects
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"result" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Bool -> Maybe Bool
forall a. a -> Maybe a
Just (POverlaySetShowPaintRects -> Bool
pOverlaySetShowPaintRectsResult POverlaySetShowPaintRects
p)
    ]
instance Command POverlaySetShowPaintRects where
  type CommandResponse POverlaySetShowPaintRects = ()
  commandName :: Proxy POverlaySetShowPaintRects -> String
commandName Proxy POverlaySetShowPaintRects
_ = String
"Overlay.setShowPaintRects"
  fromJSON :: Proxy POverlaySetShowPaintRects
-> Value -> Result (CommandResponse POverlaySetShowPaintRects)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlaySetShowPaintRects -> Result ())
-> Proxy POverlaySetShowPaintRects
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlaySetShowPaintRects -> ())
-> Proxy POverlaySetShowPaintRects
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlaySetShowPaintRects -> ()
forall a b. a -> b -> a
const ()

-- | Requests that backend shows layout shift regions

-- | Parameters of the 'Overlay.setShowLayoutShiftRegions' command.
data POverlaySetShowLayoutShiftRegions = POverlaySetShowLayoutShiftRegions
  {
    -- | True for showing layout shift regions
    POverlaySetShowLayoutShiftRegions -> Bool
pOverlaySetShowLayoutShiftRegionsResult :: Bool
  }
  deriving (POverlaySetShowLayoutShiftRegions
-> POverlaySetShowLayoutShiftRegions -> Bool
(POverlaySetShowLayoutShiftRegions
 -> POverlaySetShowLayoutShiftRegions -> Bool)
-> (POverlaySetShowLayoutShiftRegions
    -> POverlaySetShowLayoutShiftRegions -> Bool)
-> Eq POverlaySetShowLayoutShiftRegions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlaySetShowLayoutShiftRegions
-> POverlaySetShowLayoutShiftRegions -> Bool
$c/= :: POverlaySetShowLayoutShiftRegions
-> POverlaySetShowLayoutShiftRegions -> Bool
== :: POverlaySetShowLayoutShiftRegions
-> POverlaySetShowLayoutShiftRegions -> Bool
$c== :: POverlaySetShowLayoutShiftRegions
-> POverlaySetShowLayoutShiftRegions -> Bool
Eq, Int -> POverlaySetShowLayoutShiftRegions -> ShowS
[POverlaySetShowLayoutShiftRegions] -> ShowS
POverlaySetShowLayoutShiftRegions -> String
(Int -> POverlaySetShowLayoutShiftRegions -> ShowS)
-> (POverlaySetShowLayoutShiftRegions -> String)
-> ([POverlaySetShowLayoutShiftRegions] -> ShowS)
-> Show POverlaySetShowLayoutShiftRegions
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlaySetShowLayoutShiftRegions] -> ShowS
$cshowList :: [POverlaySetShowLayoutShiftRegions] -> ShowS
show :: POverlaySetShowLayoutShiftRegions -> String
$cshow :: POverlaySetShowLayoutShiftRegions -> String
showsPrec :: Int -> POverlaySetShowLayoutShiftRegions -> ShowS
$cshowsPrec :: Int -> POverlaySetShowLayoutShiftRegions -> ShowS
Show)
pOverlaySetShowLayoutShiftRegions
  {-
  -- | True for showing layout shift regions
  -}
  :: Bool
  -> POverlaySetShowLayoutShiftRegions
pOverlaySetShowLayoutShiftRegions :: Bool -> POverlaySetShowLayoutShiftRegions
pOverlaySetShowLayoutShiftRegions
  Bool
arg_pOverlaySetShowLayoutShiftRegionsResult
  = Bool -> POverlaySetShowLayoutShiftRegions
POverlaySetShowLayoutShiftRegions
    Bool
arg_pOverlaySetShowLayoutShiftRegionsResult
instance ToJSON POverlaySetShowLayoutShiftRegions where
  toJSON :: POverlaySetShowLayoutShiftRegions -> Value
toJSON POverlaySetShowLayoutShiftRegions
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"result" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Bool -> Maybe Bool
forall a. a -> Maybe a
Just (POverlaySetShowLayoutShiftRegions -> Bool
pOverlaySetShowLayoutShiftRegionsResult POverlaySetShowLayoutShiftRegions
p)
    ]
instance Command POverlaySetShowLayoutShiftRegions where
  type CommandResponse POverlaySetShowLayoutShiftRegions = ()
  commandName :: Proxy POverlaySetShowLayoutShiftRegions -> String
commandName Proxy POverlaySetShowLayoutShiftRegions
_ = String
"Overlay.setShowLayoutShiftRegions"
  fromJSON :: Proxy POverlaySetShowLayoutShiftRegions
-> Value
-> Result (CommandResponse POverlaySetShowLayoutShiftRegions)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlaySetShowLayoutShiftRegions -> Result ())
-> Proxy POverlaySetShowLayoutShiftRegions
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlaySetShowLayoutShiftRegions -> ())
-> Proxy POverlaySetShowLayoutShiftRegions
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlaySetShowLayoutShiftRegions -> ()
forall a b. a -> b -> a
const ()

-- | Requests that backend shows scroll bottleneck rects

-- | Parameters of the 'Overlay.setShowScrollBottleneckRects' command.
data POverlaySetShowScrollBottleneckRects = POverlaySetShowScrollBottleneckRects
  {
    -- | True for showing scroll bottleneck rects
    POverlaySetShowScrollBottleneckRects -> Bool
pOverlaySetShowScrollBottleneckRectsShow :: Bool
  }
  deriving (POverlaySetShowScrollBottleneckRects
-> POverlaySetShowScrollBottleneckRects -> Bool
(POverlaySetShowScrollBottleneckRects
 -> POverlaySetShowScrollBottleneckRects -> Bool)
-> (POverlaySetShowScrollBottleneckRects
    -> POverlaySetShowScrollBottleneckRects -> Bool)
-> Eq POverlaySetShowScrollBottleneckRects
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlaySetShowScrollBottleneckRects
-> POverlaySetShowScrollBottleneckRects -> Bool
$c/= :: POverlaySetShowScrollBottleneckRects
-> POverlaySetShowScrollBottleneckRects -> Bool
== :: POverlaySetShowScrollBottleneckRects
-> POverlaySetShowScrollBottleneckRects -> Bool
$c== :: POverlaySetShowScrollBottleneckRects
-> POverlaySetShowScrollBottleneckRects -> Bool
Eq, Int -> POverlaySetShowScrollBottleneckRects -> ShowS
[POverlaySetShowScrollBottleneckRects] -> ShowS
POverlaySetShowScrollBottleneckRects -> String
(Int -> POverlaySetShowScrollBottleneckRects -> ShowS)
-> (POverlaySetShowScrollBottleneckRects -> String)
-> ([POverlaySetShowScrollBottleneckRects] -> ShowS)
-> Show POverlaySetShowScrollBottleneckRects
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlaySetShowScrollBottleneckRects] -> ShowS
$cshowList :: [POverlaySetShowScrollBottleneckRects] -> ShowS
show :: POverlaySetShowScrollBottleneckRects -> String
$cshow :: POverlaySetShowScrollBottleneckRects -> String
showsPrec :: Int -> POverlaySetShowScrollBottleneckRects -> ShowS
$cshowsPrec :: Int -> POverlaySetShowScrollBottleneckRects -> ShowS
Show)
pOverlaySetShowScrollBottleneckRects
  {-
  -- | True for showing scroll bottleneck rects
  -}
  :: Bool
  -> POverlaySetShowScrollBottleneckRects
pOverlaySetShowScrollBottleneckRects :: Bool -> POverlaySetShowScrollBottleneckRects
pOverlaySetShowScrollBottleneckRects
  Bool
arg_pOverlaySetShowScrollBottleneckRectsShow
  = Bool -> POverlaySetShowScrollBottleneckRects
POverlaySetShowScrollBottleneckRects
    Bool
arg_pOverlaySetShowScrollBottleneckRectsShow
instance ToJSON POverlaySetShowScrollBottleneckRects where
  toJSON :: POverlaySetShowScrollBottleneckRects -> Value
toJSON POverlaySetShowScrollBottleneckRects
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"show" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Bool -> Maybe Bool
forall a. a -> Maybe a
Just (POverlaySetShowScrollBottleneckRects -> Bool
pOverlaySetShowScrollBottleneckRectsShow POverlaySetShowScrollBottleneckRects
p)
    ]
instance Command POverlaySetShowScrollBottleneckRects where
  type CommandResponse POverlaySetShowScrollBottleneckRects = ()
  commandName :: Proxy POverlaySetShowScrollBottleneckRects -> String
commandName Proxy POverlaySetShowScrollBottleneckRects
_ = String
"Overlay.setShowScrollBottleneckRects"
  fromJSON :: Proxy POverlaySetShowScrollBottleneckRects
-> Value
-> Result (CommandResponse POverlaySetShowScrollBottleneckRects)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlaySetShowScrollBottleneckRects -> Result ())
-> Proxy POverlaySetShowScrollBottleneckRects
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlaySetShowScrollBottleneckRects -> ())
-> Proxy POverlaySetShowScrollBottleneckRects
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlaySetShowScrollBottleneckRects -> ()
forall a b. a -> b -> a
const ()

-- | Request that backend shows an overlay with web vital metrics.

-- | Parameters of the 'Overlay.setShowWebVitals' command.
data POverlaySetShowWebVitals = POverlaySetShowWebVitals
  {
    POverlaySetShowWebVitals -> Bool
pOverlaySetShowWebVitalsShow :: Bool
  }
  deriving (POverlaySetShowWebVitals -> POverlaySetShowWebVitals -> Bool
(POverlaySetShowWebVitals -> POverlaySetShowWebVitals -> Bool)
-> (POverlaySetShowWebVitals -> POverlaySetShowWebVitals -> Bool)
-> Eq POverlaySetShowWebVitals
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlaySetShowWebVitals -> POverlaySetShowWebVitals -> Bool
$c/= :: POverlaySetShowWebVitals -> POverlaySetShowWebVitals -> Bool
== :: POverlaySetShowWebVitals -> POverlaySetShowWebVitals -> Bool
$c== :: POverlaySetShowWebVitals -> POverlaySetShowWebVitals -> Bool
Eq, Int -> POverlaySetShowWebVitals -> ShowS
[POverlaySetShowWebVitals] -> ShowS
POverlaySetShowWebVitals -> String
(Int -> POverlaySetShowWebVitals -> ShowS)
-> (POverlaySetShowWebVitals -> String)
-> ([POverlaySetShowWebVitals] -> ShowS)
-> Show POverlaySetShowWebVitals
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlaySetShowWebVitals] -> ShowS
$cshowList :: [POverlaySetShowWebVitals] -> ShowS
show :: POverlaySetShowWebVitals -> String
$cshow :: POverlaySetShowWebVitals -> String
showsPrec :: Int -> POverlaySetShowWebVitals -> ShowS
$cshowsPrec :: Int -> POverlaySetShowWebVitals -> ShowS
Show)
pOverlaySetShowWebVitals
  :: Bool
  -> POverlaySetShowWebVitals
pOverlaySetShowWebVitals :: Bool -> POverlaySetShowWebVitals
pOverlaySetShowWebVitals
  Bool
arg_pOverlaySetShowWebVitalsShow
  = Bool -> POverlaySetShowWebVitals
POverlaySetShowWebVitals
    Bool
arg_pOverlaySetShowWebVitalsShow
instance ToJSON POverlaySetShowWebVitals where
  toJSON :: POverlaySetShowWebVitals -> Value
toJSON POverlaySetShowWebVitals
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"show" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Bool -> Maybe Bool
forall a. a -> Maybe a
Just (POverlaySetShowWebVitals -> Bool
pOverlaySetShowWebVitalsShow POverlaySetShowWebVitals
p)
    ]
instance Command POverlaySetShowWebVitals where
  type CommandResponse POverlaySetShowWebVitals = ()
  commandName :: Proxy POverlaySetShowWebVitals -> String
commandName Proxy POverlaySetShowWebVitals
_ = String
"Overlay.setShowWebVitals"
  fromJSON :: Proxy POverlaySetShowWebVitals
-> Value -> Result (CommandResponse POverlaySetShowWebVitals)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlaySetShowWebVitals -> Result ())
-> Proxy POverlaySetShowWebVitals
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlaySetShowWebVitals -> ())
-> Proxy POverlaySetShowWebVitals
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlaySetShowWebVitals -> ()
forall a b. a -> b -> a
const ()

-- | Paints viewport size upon main frame resize.

-- | Parameters of the 'Overlay.setShowViewportSizeOnResize' command.
data POverlaySetShowViewportSizeOnResize = POverlaySetShowViewportSizeOnResize
  {
    -- | Whether to paint size or not.
    POverlaySetShowViewportSizeOnResize -> Bool
pOverlaySetShowViewportSizeOnResizeShow :: Bool
  }
  deriving (POverlaySetShowViewportSizeOnResize
-> POverlaySetShowViewportSizeOnResize -> Bool
(POverlaySetShowViewportSizeOnResize
 -> POverlaySetShowViewportSizeOnResize -> Bool)
-> (POverlaySetShowViewportSizeOnResize
    -> POverlaySetShowViewportSizeOnResize -> Bool)
-> Eq POverlaySetShowViewportSizeOnResize
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlaySetShowViewportSizeOnResize
-> POverlaySetShowViewportSizeOnResize -> Bool
$c/= :: POverlaySetShowViewportSizeOnResize
-> POverlaySetShowViewportSizeOnResize -> Bool
== :: POverlaySetShowViewportSizeOnResize
-> POverlaySetShowViewportSizeOnResize -> Bool
$c== :: POverlaySetShowViewportSizeOnResize
-> POverlaySetShowViewportSizeOnResize -> Bool
Eq, Int -> POverlaySetShowViewportSizeOnResize -> ShowS
[POverlaySetShowViewportSizeOnResize] -> ShowS
POverlaySetShowViewportSizeOnResize -> String
(Int -> POverlaySetShowViewportSizeOnResize -> ShowS)
-> (POverlaySetShowViewportSizeOnResize -> String)
-> ([POverlaySetShowViewportSizeOnResize] -> ShowS)
-> Show POverlaySetShowViewportSizeOnResize
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlaySetShowViewportSizeOnResize] -> ShowS
$cshowList :: [POverlaySetShowViewportSizeOnResize] -> ShowS
show :: POverlaySetShowViewportSizeOnResize -> String
$cshow :: POverlaySetShowViewportSizeOnResize -> String
showsPrec :: Int -> POverlaySetShowViewportSizeOnResize -> ShowS
$cshowsPrec :: Int -> POverlaySetShowViewportSizeOnResize -> ShowS
Show)
pOverlaySetShowViewportSizeOnResize
  {-
  -- | Whether to paint size or not.
  -}
  :: Bool
  -> POverlaySetShowViewportSizeOnResize
pOverlaySetShowViewportSizeOnResize :: Bool -> POverlaySetShowViewportSizeOnResize
pOverlaySetShowViewportSizeOnResize
  Bool
arg_pOverlaySetShowViewportSizeOnResizeShow
  = Bool -> POverlaySetShowViewportSizeOnResize
POverlaySetShowViewportSizeOnResize
    Bool
arg_pOverlaySetShowViewportSizeOnResizeShow
instance ToJSON POverlaySetShowViewportSizeOnResize where
  toJSON :: POverlaySetShowViewportSizeOnResize -> Value
toJSON POverlaySetShowViewportSizeOnResize
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"show" Text -> Bool -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (Bool -> Pair) -> Maybe Bool -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Bool -> Maybe Bool
forall a. a -> Maybe a
Just (POverlaySetShowViewportSizeOnResize -> Bool
pOverlaySetShowViewportSizeOnResizeShow POverlaySetShowViewportSizeOnResize
p)
    ]
instance Command POverlaySetShowViewportSizeOnResize where
  type CommandResponse POverlaySetShowViewportSizeOnResize = ()
  commandName :: Proxy POverlaySetShowViewportSizeOnResize -> String
commandName Proxy POverlaySetShowViewportSizeOnResize
_ = String
"Overlay.setShowViewportSizeOnResize"
  fromJSON :: Proxy POverlaySetShowViewportSizeOnResize
-> Value
-> Result (CommandResponse POverlaySetShowViewportSizeOnResize)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlaySetShowViewportSizeOnResize -> Result ())
-> Proxy POverlaySetShowViewportSizeOnResize
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlaySetShowViewportSizeOnResize -> ())
-> Proxy POverlaySetShowViewportSizeOnResize
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlaySetShowViewportSizeOnResize -> ()
forall a b. a -> b -> a
const ()

-- | Add a dual screen device hinge

-- | Parameters of the 'Overlay.setShowHinge' command.
data POverlaySetShowHinge = POverlaySetShowHinge
  {
    -- | hinge data, null means hideHinge
    POverlaySetShowHinge -> Maybe OverlayHingeConfig
pOverlaySetShowHingeHingeConfig :: Maybe OverlayHingeConfig
  }
  deriving (POverlaySetShowHinge -> POverlaySetShowHinge -> Bool
(POverlaySetShowHinge -> POverlaySetShowHinge -> Bool)
-> (POverlaySetShowHinge -> POverlaySetShowHinge -> Bool)
-> Eq POverlaySetShowHinge
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlaySetShowHinge -> POverlaySetShowHinge -> Bool
$c/= :: POverlaySetShowHinge -> POverlaySetShowHinge -> Bool
== :: POverlaySetShowHinge -> POverlaySetShowHinge -> Bool
$c== :: POverlaySetShowHinge -> POverlaySetShowHinge -> Bool
Eq, Int -> POverlaySetShowHinge -> ShowS
[POverlaySetShowHinge] -> ShowS
POverlaySetShowHinge -> String
(Int -> POverlaySetShowHinge -> ShowS)
-> (POverlaySetShowHinge -> String)
-> ([POverlaySetShowHinge] -> ShowS)
-> Show POverlaySetShowHinge
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlaySetShowHinge] -> ShowS
$cshowList :: [POverlaySetShowHinge] -> ShowS
show :: POverlaySetShowHinge -> String
$cshow :: POverlaySetShowHinge -> String
showsPrec :: Int -> POverlaySetShowHinge -> ShowS
$cshowsPrec :: Int -> POverlaySetShowHinge -> ShowS
Show)
pOverlaySetShowHinge
  :: POverlaySetShowHinge
pOverlaySetShowHinge :: POverlaySetShowHinge
pOverlaySetShowHinge
  = Maybe OverlayHingeConfig -> POverlaySetShowHinge
POverlaySetShowHinge
    Maybe OverlayHingeConfig
forall a. Maybe a
Nothing
instance ToJSON POverlaySetShowHinge where
  toJSON :: POverlaySetShowHinge -> Value
toJSON POverlaySetShowHinge
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"hingeConfig" Text -> OverlayHingeConfig -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (OverlayHingeConfig -> Pair)
-> Maybe OverlayHingeConfig -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (POverlaySetShowHinge -> Maybe OverlayHingeConfig
pOverlaySetShowHingeHingeConfig POverlaySetShowHinge
p)
    ]
instance Command POverlaySetShowHinge where
  type CommandResponse POverlaySetShowHinge = ()
  commandName :: Proxy POverlaySetShowHinge -> String
commandName Proxy POverlaySetShowHinge
_ = String
"Overlay.setShowHinge"
  fromJSON :: Proxy POverlaySetShowHinge
-> Value -> Result (CommandResponse POverlaySetShowHinge)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlaySetShowHinge -> Result ())
-> Proxy POverlaySetShowHinge
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlaySetShowHinge -> ())
-> Proxy POverlaySetShowHinge
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlaySetShowHinge -> ()
forall a b. a -> b -> a
const ()

-- | Show elements in isolation mode with overlays.

-- | Parameters of the 'Overlay.setShowIsolatedElements' command.
data POverlaySetShowIsolatedElements = POverlaySetShowIsolatedElements
  {
    -- | An array of node identifiers and descriptors for the highlight appearance.
    POverlaySetShowIsolatedElements
-> [OverlayIsolatedElementHighlightConfig]
pOverlaySetShowIsolatedElementsIsolatedElementHighlightConfigs :: [OverlayIsolatedElementHighlightConfig]
  }
  deriving (POverlaySetShowIsolatedElements
-> POverlaySetShowIsolatedElements -> Bool
(POverlaySetShowIsolatedElements
 -> POverlaySetShowIsolatedElements -> Bool)
-> (POverlaySetShowIsolatedElements
    -> POverlaySetShowIsolatedElements -> Bool)
-> Eq POverlaySetShowIsolatedElements
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: POverlaySetShowIsolatedElements
-> POverlaySetShowIsolatedElements -> Bool
$c/= :: POverlaySetShowIsolatedElements
-> POverlaySetShowIsolatedElements -> Bool
== :: POverlaySetShowIsolatedElements
-> POverlaySetShowIsolatedElements -> Bool
$c== :: POverlaySetShowIsolatedElements
-> POverlaySetShowIsolatedElements -> Bool
Eq, Int -> POverlaySetShowIsolatedElements -> ShowS
[POverlaySetShowIsolatedElements] -> ShowS
POverlaySetShowIsolatedElements -> String
(Int -> POverlaySetShowIsolatedElements -> ShowS)
-> (POverlaySetShowIsolatedElements -> String)
-> ([POverlaySetShowIsolatedElements] -> ShowS)
-> Show POverlaySetShowIsolatedElements
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [POverlaySetShowIsolatedElements] -> ShowS
$cshowList :: [POverlaySetShowIsolatedElements] -> ShowS
show :: POverlaySetShowIsolatedElements -> String
$cshow :: POverlaySetShowIsolatedElements -> String
showsPrec :: Int -> POverlaySetShowIsolatedElements -> ShowS
$cshowsPrec :: Int -> POverlaySetShowIsolatedElements -> ShowS
Show)
pOverlaySetShowIsolatedElements
  {-
  -- | An array of node identifiers and descriptors for the highlight appearance.
  -}
  :: [OverlayIsolatedElementHighlightConfig]
  -> POverlaySetShowIsolatedElements
pOverlaySetShowIsolatedElements :: [OverlayIsolatedElementHighlightConfig]
-> POverlaySetShowIsolatedElements
pOverlaySetShowIsolatedElements
  [OverlayIsolatedElementHighlightConfig]
arg_pOverlaySetShowIsolatedElementsIsolatedElementHighlightConfigs
  = [OverlayIsolatedElementHighlightConfig]
-> POverlaySetShowIsolatedElements
POverlaySetShowIsolatedElements
    [OverlayIsolatedElementHighlightConfig]
arg_pOverlaySetShowIsolatedElementsIsolatedElementHighlightConfigs
instance ToJSON POverlaySetShowIsolatedElements where
  toJSON :: POverlaySetShowIsolatedElements -> Value
toJSON POverlaySetShowIsolatedElements
p = [Pair] -> Value
A.object ([Pair] -> Value) -> [Pair] -> Value
forall a b. (a -> b) -> a -> b
$ [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
catMaybes [
    (Text
"isolatedElementHighlightConfigs" Text -> [OverlayIsolatedElementHighlightConfig] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) ([OverlayIsolatedElementHighlightConfig] -> Pair)
-> Maybe [OverlayIsolatedElementHighlightConfig] -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [OverlayIsolatedElementHighlightConfig]
-> Maybe [OverlayIsolatedElementHighlightConfig]
forall a. a -> Maybe a
Just (POverlaySetShowIsolatedElements
-> [OverlayIsolatedElementHighlightConfig]
pOverlaySetShowIsolatedElementsIsolatedElementHighlightConfigs POverlaySetShowIsolatedElements
p)
    ]
instance Command POverlaySetShowIsolatedElements where
  type CommandResponse POverlaySetShowIsolatedElements = ()
  commandName :: Proxy POverlaySetShowIsolatedElements -> String
commandName Proxy POverlaySetShowIsolatedElements
_ = String
"Overlay.setShowIsolatedElements"
  fromJSON :: Proxy POverlaySetShowIsolatedElements
-> Value
-> Result (CommandResponse POverlaySetShowIsolatedElements)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy POverlaySetShowIsolatedElements -> Result ())
-> Proxy POverlaySetShowIsolatedElements
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy POverlaySetShowIsolatedElements -> ())
-> Proxy POverlaySetShowIsolatedElements
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy POverlaySetShowIsolatedElements -> ()
forall a b. a -> b -> a
const ()