{-# LANGUAGE OverloadedStrings, RecordWildCards, TupleSections #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TypeFamilies #-}
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
data OverlaySourceOrderConfig = OverlaySourceOrderConfig
{
OverlaySourceOrderConfig -> DOMRGBA
overlaySourceOrderConfigParentOutlineColor :: DOMPageNetworkEmulationSecurity.DOMRGBA,
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)
]
data OverlayGridHighlightConfig = OverlayGridHighlightConfig
{
OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowGridExtensionLines :: Maybe Bool,
OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowPositiveLineNumbers :: Maybe Bool,
OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowNegativeLineNumbers :: Maybe Bool,
OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowAreaNames :: Maybe Bool,
OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowLineNames :: Maybe Bool,
OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigShowTrackSizes :: Maybe Bool,
OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigGridBorderColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigRowLineColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigColumnLineColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigGridBorderDash :: Maybe Bool,
OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigRowLineDash :: Maybe Bool,
OverlayGridHighlightConfig -> Maybe Bool
overlayGridHighlightConfigColumnLineDash :: Maybe Bool,
OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigRowGapColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigRowHatchColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigColumnGapColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigColumnHatchColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
OverlayGridHighlightConfig -> Maybe DOMRGBA
overlayGridHighlightConfigAreaBorderColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
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)
]
data OverlayFlexContainerHighlightConfig = OverlayFlexContainerHighlightConfig
{
OverlayFlexContainerHighlightConfig -> Maybe OverlayLineStyle
overlayFlexContainerHighlightConfigContainerBorder :: Maybe OverlayLineStyle,
OverlayFlexContainerHighlightConfig -> Maybe OverlayLineStyle
overlayFlexContainerHighlightConfigLineSeparator :: Maybe OverlayLineStyle,
OverlayFlexContainerHighlightConfig -> Maybe OverlayLineStyle
overlayFlexContainerHighlightConfigItemSeparator :: Maybe OverlayLineStyle,
OverlayFlexContainerHighlightConfig -> Maybe OverlayBoxStyle
overlayFlexContainerHighlightConfigMainDistributedSpace :: Maybe OverlayBoxStyle,
OverlayFlexContainerHighlightConfig -> Maybe OverlayBoxStyle
overlayFlexContainerHighlightConfigCrossDistributedSpace :: Maybe OverlayBoxStyle,
OverlayFlexContainerHighlightConfig -> Maybe OverlayBoxStyle
overlayFlexContainerHighlightConfigRowGapSpace :: Maybe OverlayBoxStyle,
OverlayFlexContainerHighlightConfig -> Maybe OverlayBoxStyle
overlayFlexContainerHighlightConfigColumnGapSpace :: Maybe OverlayBoxStyle,
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)
]
data OverlayFlexItemHighlightConfig = OverlayFlexItemHighlightConfig
{
OverlayFlexItemHighlightConfig -> Maybe OverlayBoxStyle
overlayFlexItemHighlightConfigBaseSizeBox :: Maybe OverlayBoxStyle,
OverlayFlexItemHighlightConfig -> Maybe OverlayLineStyle
overlayFlexItemHighlightConfigBaseSizeBorder :: Maybe OverlayLineStyle,
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)
]
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
{
OverlayLineStyle -> Maybe DOMRGBA
overlayLineStyleColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
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)
]
data OverlayBoxStyle = OverlayBoxStyle
{
OverlayBoxStyle -> Maybe DOMRGBA
overlayBoxStyleFillColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
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)
]
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"
data OverlayHighlightConfig = OverlayHighlightConfig
{
OverlayHighlightConfig -> Maybe Bool
overlayHighlightConfigShowInfo :: Maybe Bool,
OverlayHighlightConfig -> Maybe Bool
overlayHighlightConfigShowStyles :: Maybe Bool,
OverlayHighlightConfig -> Maybe Bool
overlayHighlightConfigShowRulers :: Maybe Bool,
OverlayHighlightConfig -> Maybe Bool
overlayHighlightConfigShowAccessibilityInfo :: Maybe Bool,
OverlayHighlightConfig -> Maybe Bool
overlayHighlightConfigShowExtensionLines :: Maybe Bool,
OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigContentColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigPaddingColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigBorderColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigMarginColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigEventTargetColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigShapeColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigShapeMarginColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
OverlayHighlightConfig -> Maybe DOMRGBA
overlayHighlightConfigCssGridColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
OverlayHighlightConfig -> Maybe OverlayColorFormat
overlayHighlightConfigColorFormat :: Maybe OverlayColorFormat,
OverlayHighlightConfig -> Maybe OverlayGridHighlightConfig
overlayHighlightConfigGridHighlightConfig :: Maybe OverlayGridHighlightConfig,
OverlayHighlightConfig -> Maybe OverlayFlexContainerHighlightConfig
overlayHighlightConfigFlexContainerHighlightConfig :: Maybe OverlayFlexContainerHighlightConfig,
OverlayHighlightConfig -> Maybe OverlayFlexItemHighlightConfig
overlayHighlightConfigFlexItemHighlightConfig :: Maybe OverlayFlexItemHighlightConfig,
OverlayHighlightConfig -> Maybe OverlayContrastAlgorithm
overlayHighlightConfigContrastAlgorithm :: Maybe OverlayContrastAlgorithm,
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)
]
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"
data OverlayGridNodeHighlightConfig = OverlayGridNodeHighlightConfig
{
OverlayGridNodeHighlightConfig -> OverlayGridHighlightConfig
overlayGridNodeHighlightConfigGridHighlightConfig :: OverlayGridHighlightConfig,
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)
]
data OverlayFlexNodeHighlightConfig = OverlayFlexNodeHighlightConfig
{
OverlayFlexNodeHighlightConfig
-> OverlayFlexContainerHighlightConfig
overlayFlexNodeHighlightConfigFlexContainerHighlightConfig :: OverlayFlexContainerHighlightConfig,
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)
]
data OverlayScrollSnapContainerHighlightConfig = OverlayScrollSnapContainerHighlightConfig
{
OverlayScrollSnapContainerHighlightConfig -> Maybe OverlayLineStyle
overlayScrollSnapContainerHighlightConfigSnapportBorder :: Maybe OverlayLineStyle,
OverlayScrollSnapContainerHighlightConfig -> Maybe OverlayLineStyle
overlayScrollSnapContainerHighlightConfigSnapAreaBorder :: Maybe OverlayLineStyle,
OverlayScrollSnapContainerHighlightConfig -> Maybe DOMRGBA
overlayScrollSnapContainerHighlightConfigScrollMarginColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
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)
]
data OverlayScrollSnapHighlightConfig = OverlayScrollSnapHighlightConfig
{
OverlayScrollSnapHighlightConfig
-> OverlayScrollSnapContainerHighlightConfig
overlayScrollSnapHighlightConfigScrollSnapContainerHighlightConfig :: OverlayScrollSnapContainerHighlightConfig,
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)
]
data OverlayHingeConfig = OverlayHingeConfig
{
OverlayHingeConfig -> DOMRect
overlayHingeConfigRect :: DOMPageNetworkEmulationSecurity.DOMRect,
OverlayHingeConfig -> Maybe DOMRGBA
overlayHingeConfigContentColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
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)
]
data OverlayContainerQueryHighlightConfig = OverlayContainerQueryHighlightConfig
{
OverlayContainerQueryHighlightConfig
-> OverlayContainerQueryContainerHighlightConfig
overlayContainerQueryHighlightConfigContainerQueryContainerHighlightConfig :: OverlayContainerQueryContainerHighlightConfig,
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)
]
data OverlayContainerQueryContainerHighlightConfig = OverlayContainerQueryContainerHighlightConfig
{
OverlayContainerQueryContainerHighlightConfig
-> Maybe OverlayLineStyle
overlayContainerQueryContainerHighlightConfigContainerBorder :: Maybe OverlayLineStyle,
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)
]
data OverlayIsolatedElementHighlightConfig = OverlayIsolatedElementHighlightConfig
{
OverlayIsolatedElementHighlightConfig
-> OverlayIsolationModeHighlightConfig
overlayIsolatedElementHighlightConfigIsolationModeHighlightConfig :: OverlayIsolationModeHighlightConfig,
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)
]
data OverlayIsolationModeHighlightConfig = OverlayIsolationModeHighlightConfig
{
OverlayIsolationModeHighlightConfig -> Maybe DOMRGBA
overlayIsolationModeHighlightConfigResizerColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
OverlayIsolationModeHighlightConfig -> Maybe DOMRGBA
overlayIsolationModeHighlightConfigResizerHandleColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
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)
]
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"
data OverlayInspectNodeRequested = OverlayInspectNodeRequested
{
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"
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"
data OverlayScreenshotRequested = OverlayScreenshotRequested
{
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"
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"
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 ()
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 ()
data POverlayGetHighlightObjectForTest = POverlayGetHighlightObjectForTest
{
POverlayGetHighlightObjectForTest -> Int
pOverlayGetHighlightObjectForTestNodeId :: DOMPageNetworkEmulationSecurity.DOMNodeId,
POverlayGetHighlightObjectForTest -> Maybe Bool
pOverlayGetHighlightObjectForTestIncludeDistance :: Maybe Bool,
POverlayGetHighlightObjectForTest -> Maybe Bool
pOverlayGetHighlightObjectForTestIncludeStyle :: Maybe Bool,
POverlayGetHighlightObjectForTest -> Maybe OverlayColorFormat
pOverlayGetHighlightObjectForTestColorFormat :: Maybe OverlayColorFormat,
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
:: 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
{
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"
data POverlayGetGridHighlightObjectsForTest = POverlayGetGridHighlightObjectsForTest
{
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
:: [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
{
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"
data POverlayGetSourceOrderHighlightObjectForTest = POverlayGetSourceOrderHighlightObjectForTest
{
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
:: 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
{
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"
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 ()
data POverlayHighlightNode = POverlayHighlightNode
{
POverlayHighlightNode -> OverlayHighlightConfig
pOverlayHighlightNodeHighlightConfig :: OverlayHighlightConfig,
POverlayHighlightNode -> Maybe Int
pOverlayHighlightNodeNodeId :: Maybe DOMPageNetworkEmulationSecurity.DOMNodeId,
POverlayHighlightNode -> Maybe Int
pOverlayHighlightNodeBackendNodeId :: Maybe DOMPageNetworkEmulationSecurity.DOMBackendNodeId,
POverlayHighlightNode -> Maybe Text
pOverlayHighlightNodeObjectId :: Maybe Runtime.RuntimeRemoteObjectId,
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
:: 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 ()
data POverlayHighlightQuad = POverlayHighlightQuad
{
POverlayHighlightQuad -> DOMQuad
pOverlayHighlightQuadQuad :: DOMPageNetworkEmulationSecurity.DOMQuad,
POverlayHighlightQuad -> Maybe DOMRGBA
pOverlayHighlightQuadColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
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
:: 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 ()
data POverlayHighlightRect = POverlayHighlightRect
{
POverlayHighlightRect -> Int
pOverlayHighlightRectX :: Int,
POverlayHighlightRect -> Int
pOverlayHighlightRectY :: Int,
POverlayHighlightRect -> Int
pOverlayHighlightRectWidth :: Int,
POverlayHighlightRect -> Int
pOverlayHighlightRectHeight :: Int,
POverlayHighlightRect -> Maybe DOMRGBA
pOverlayHighlightRectColor :: Maybe DOMPageNetworkEmulationSecurity.DOMRGBA,
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
:: Int
-> Int
-> Int
-> 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 ()
data POverlayHighlightSourceOrder = POverlayHighlightSourceOrder
{
POverlayHighlightSourceOrder -> OverlaySourceOrderConfig
pOverlayHighlightSourceOrderSourceOrderConfig :: OverlaySourceOrderConfig,
POverlayHighlightSourceOrder -> Maybe Int
pOverlayHighlightSourceOrderNodeId :: Maybe DOMPageNetworkEmulationSecurity.DOMNodeId,
POverlayHighlightSourceOrder -> Maybe Int
pOverlayHighlightSourceOrderBackendNodeId :: Maybe DOMPageNetworkEmulationSecurity.DOMBackendNodeId,
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
:: 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 ()
data POverlaySetInspectMode = POverlaySetInspectMode
{
POverlaySetInspectMode -> OverlayInspectMode
pOverlaySetInspectModeMode :: OverlayInspectMode,
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
:: 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 ()
data POverlaySetShowAdHighlights = POverlaySetShowAdHighlights
{
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
:: 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 ()
data POverlaySetPausedInDebuggerMessage = POverlaySetPausedInDebuggerMessage
{
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 ()
data POverlaySetShowDebugBorders = POverlaySetShowDebugBorders
{
:: 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
:: 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 ()
data POverlaySetShowFPSCounter = POverlaySetShowFPSCounter
{
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
:: 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 ()
data POverlaySetShowGridOverlays = POverlaySetShowGridOverlays
{
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
:: [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 ()
data POverlaySetShowFlexOverlays = POverlaySetShowFlexOverlays
{
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
:: [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 ()
data POverlaySetShowScrollSnapOverlays = POverlaySetShowScrollSnapOverlays
{
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
:: [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 ()
data POverlaySetShowContainerQueryOverlays = POverlaySetShowContainerQueryOverlays
{
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
:: [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 ()
data POverlaySetShowPaintRects = POverlaySetShowPaintRects
{
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
:: 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 ()
data POverlaySetShowLayoutShiftRegions = POverlaySetShowLayoutShiftRegions
{
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
:: 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 ()
data POverlaySetShowScrollBottleneckRects = POverlaySetShowScrollBottleneckRects
{
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
:: 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 ()
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 ()
data POverlaySetShowViewportSizeOnResize = POverlaySetShowViewportSizeOnResize
{
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
:: 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 ()
data POverlaySetShowHinge = POverlaySetShowHinge
{
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 ()
data POverlaySetShowIsolatedElements = POverlaySetShowIsolatedElements
{
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
:: [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 ()