{-# LANGUAGE OverloadedStrings, RecordWildCards, TupleSections #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TypeFamilies #-}
module CDP.Domains.DOMDebugger (module CDP.Domains.DOMDebugger) 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 DOMDebuggerDOMBreakpointType = DOMDebuggerDOMBreakpointTypeSubtreeModified | DOMDebuggerDOMBreakpointTypeAttributeModified | DOMDebuggerDOMBreakpointTypeNodeRemoved
deriving (Eq DOMDebuggerDOMBreakpointType
Eq DOMDebuggerDOMBreakpointType
-> (DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Ordering)
-> (DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool)
-> (DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool)
-> (DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool)
-> (DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool)
-> (DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> DOMDebuggerDOMBreakpointType)
-> (DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> DOMDebuggerDOMBreakpointType)
-> Ord DOMDebuggerDOMBreakpointType
DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool
DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Ordering
DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> DOMDebuggerDOMBreakpointType
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 :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> DOMDebuggerDOMBreakpointType
$cmin :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> DOMDebuggerDOMBreakpointType
max :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> DOMDebuggerDOMBreakpointType
$cmax :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> DOMDebuggerDOMBreakpointType
>= :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool
$c>= :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool
> :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool
$c> :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool
<= :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool
$c<= :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool
< :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool
$c< :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool
compare :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Ordering
$ccompare :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Ordering
$cp1Ord :: Eq DOMDebuggerDOMBreakpointType
Ord, DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool
(DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool)
-> (DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool)
-> Eq DOMDebuggerDOMBreakpointType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool
$c/= :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool
== :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool
$c== :: DOMDebuggerDOMBreakpointType
-> DOMDebuggerDOMBreakpointType -> Bool
Eq, Int -> DOMDebuggerDOMBreakpointType -> ShowS
[DOMDebuggerDOMBreakpointType] -> ShowS
DOMDebuggerDOMBreakpointType -> String
(Int -> DOMDebuggerDOMBreakpointType -> ShowS)
-> (DOMDebuggerDOMBreakpointType -> String)
-> ([DOMDebuggerDOMBreakpointType] -> ShowS)
-> Show DOMDebuggerDOMBreakpointType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DOMDebuggerDOMBreakpointType] -> ShowS
$cshowList :: [DOMDebuggerDOMBreakpointType] -> ShowS
show :: DOMDebuggerDOMBreakpointType -> String
$cshow :: DOMDebuggerDOMBreakpointType -> String
showsPrec :: Int -> DOMDebuggerDOMBreakpointType -> ShowS
$cshowsPrec :: Int -> DOMDebuggerDOMBreakpointType -> ShowS
Show, ReadPrec [DOMDebuggerDOMBreakpointType]
ReadPrec DOMDebuggerDOMBreakpointType
Int -> ReadS DOMDebuggerDOMBreakpointType
ReadS [DOMDebuggerDOMBreakpointType]
(Int -> ReadS DOMDebuggerDOMBreakpointType)
-> ReadS [DOMDebuggerDOMBreakpointType]
-> ReadPrec DOMDebuggerDOMBreakpointType
-> ReadPrec [DOMDebuggerDOMBreakpointType]
-> Read DOMDebuggerDOMBreakpointType
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DOMDebuggerDOMBreakpointType]
$creadListPrec :: ReadPrec [DOMDebuggerDOMBreakpointType]
readPrec :: ReadPrec DOMDebuggerDOMBreakpointType
$creadPrec :: ReadPrec DOMDebuggerDOMBreakpointType
readList :: ReadS [DOMDebuggerDOMBreakpointType]
$creadList :: ReadS [DOMDebuggerDOMBreakpointType]
readsPrec :: Int -> ReadS DOMDebuggerDOMBreakpointType
$creadsPrec :: Int -> ReadS DOMDebuggerDOMBreakpointType
Read)
instance FromJSON DOMDebuggerDOMBreakpointType where
parseJSON :: Value -> Parser DOMDebuggerDOMBreakpointType
parseJSON = String
-> (Text -> Parser DOMDebuggerDOMBreakpointType)
-> Value
-> Parser DOMDebuggerDOMBreakpointType
forall a. String -> (Text -> Parser a) -> Value -> Parser a
A.withText String
"DOMDebuggerDOMBreakpointType" ((Text -> Parser DOMDebuggerDOMBreakpointType)
-> Value -> Parser DOMDebuggerDOMBreakpointType)
-> (Text -> Parser DOMDebuggerDOMBreakpointType)
-> Value
-> Parser DOMDebuggerDOMBreakpointType
forall a b. (a -> b) -> a -> b
$ \Text
v -> case Text
v of
Text
"subtree-modified" -> DOMDebuggerDOMBreakpointType -> Parser DOMDebuggerDOMBreakpointType
forall (f :: * -> *) a. Applicative f => a -> f a
pure DOMDebuggerDOMBreakpointType
DOMDebuggerDOMBreakpointTypeSubtreeModified
Text
"attribute-modified" -> DOMDebuggerDOMBreakpointType -> Parser DOMDebuggerDOMBreakpointType
forall (f :: * -> *) a. Applicative f => a -> f a
pure DOMDebuggerDOMBreakpointType
DOMDebuggerDOMBreakpointTypeAttributeModified
Text
"node-removed" -> DOMDebuggerDOMBreakpointType -> Parser DOMDebuggerDOMBreakpointType
forall (f :: * -> *) a. Applicative f => a -> f a
pure DOMDebuggerDOMBreakpointType
DOMDebuggerDOMBreakpointTypeNodeRemoved
Text
"_" -> String -> Parser DOMDebuggerDOMBreakpointType
forall (m :: * -> *) a. MonadFail m => String -> m a
fail String
"failed to parse DOMDebuggerDOMBreakpointType"
instance ToJSON DOMDebuggerDOMBreakpointType where
toJSON :: DOMDebuggerDOMBreakpointType -> Value
toJSON DOMDebuggerDOMBreakpointType
v = Text -> Value
A.String (Text -> Value) -> Text -> Value
forall a b. (a -> b) -> a -> b
$ case DOMDebuggerDOMBreakpointType
v of
DOMDebuggerDOMBreakpointType
DOMDebuggerDOMBreakpointTypeSubtreeModified -> Text
"subtree-modified"
DOMDebuggerDOMBreakpointType
DOMDebuggerDOMBreakpointTypeAttributeModified -> Text
"attribute-modified"
DOMDebuggerDOMBreakpointType
DOMDebuggerDOMBreakpointTypeNodeRemoved -> Text
"node-removed"
data DOMDebuggerCSPViolationType = DOMDebuggerCSPViolationTypeTrustedtypeSinkViolation | DOMDebuggerCSPViolationTypeTrustedtypePolicyViolation
deriving (Eq DOMDebuggerCSPViolationType
Eq DOMDebuggerCSPViolationType
-> (DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> Ordering)
-> (DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> Bool)
-> (DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> Bool)
-> (DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> Bool)
-> (DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> Bool)
-> (DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType)
-> (DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType)
-> Ord DOMDebuggerCSPViolationType
DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType -> Bool
DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> Ordering
DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType
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 :: DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType
$cmin :: DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType
max :: DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType
$cmax :: DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType
>= :: DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType -> Bool
$c>= :: DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType -> Bool
> :: DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType -> Bool
$c> :: DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType -> Bool
<= :: DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType -> Bool
$c<= :: DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType -> Bool
< :: DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType -> Bool
$c< :: DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType -> Bool
compare :: DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> Ordering
$ccompare :: DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> Ordering
$cp1Ord :: Eq DOMDebuggerCSPViolationType
Ord, DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType -> Bool
(DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> Bool)
-> (DOMDebuggerCSPViolationType
-> DOMDebuggerCSPViolationType -> Bool)
-> Eq DOMDebuggerCSPViolationType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType -> Bool
$c/= :: DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType -> Bool
== :: DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType -> Bool
$c== :: DOMDebuggerCSPViolationType -> DOMDebuggerCSPViolationType -> Bool
Eq, Int -> DOMDebuggerCSPViolationType -> ShowS
[DOMDebuggerCSPViolationType] -> ShowS
DOMDebuggerCSPViolationType -> String
(Int -> DOMDebuggerCSPViolationType -> ShowS)
-> (DOMDebuggerCSPViolationType -> String)
-> ([DOMDebuggerCSPViolationType] -> ShowS)
-> Show DOMDebuggerCSPViolationType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DOMDebuggerCSPViolationType] -> ShowS
$cshowList :: [DOMDebuggerCSPViolationType] -> ShowS
show :: DOMDebuggerCSPViolationType -> String
$cshow :: DOMDebuggerCSPViolationType -> String
showsPrec :: Int -> DOMDebuggerCSPViolationType -> ShowS
$cshowsPrec :: Int -> DOMDebuggerCSPViolationType -> ShowS
Show, ReadPrec [DOMDebuggerCSPViolationType]
ReadPrec DOMDebuggerCSPViolationType
Int -> ReadS DOMDebuggerCSPViolationType
ReadS [DOMDebuggerCSPViolationType]
(Int -> ReadS DOMDebuggerCSPViolationType)
-> ReadS [DOMDebuggerCSPViolationType]
-> ReadPrec DOMDebuggerCSPViolationType
-> ReadPrec [DOMDebuggerCSPViolationType]
-> Read DOMDebuggerCSPViolationType
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DOMDebuggerCSPViolationType]
$creadListPrec :: ReadPrec [DOMDebuggerCSPViolationType]
readPrec :: ReadPrec DOMDebuggerCSPViolationType
$creadPrec :: ReadPrec DOMDebuggerCSPViolationType
readList :: ReadS [DOMDebuggerCSPViolationType]
$creadList :: ReadS [DOMDebuggerCSPViolationType]
readsPrec :: Int -> ReadS DOMDebuggerCSPViolationType
$creadsPrec :: Int -> ReadS DOMDebuggerCSPViolationType
Read)
instance FromJSON DOMDebuggerCSPViolationType where
parseJSON :: Value -> Parser DOMDebuggerCSPViolationType
parseJSON = String
-> (Text -> Parser DOMDebuggerCSPViolationType)
-> Value
-> Parser DOMDebuggerCSPViolationType
forall a. String -> (Text -> Parser a) -> Value -> Parser a
A.withText String
"DOMDebuggerCSPViolationType" ((Text -> Parser DOMDebuggerCSPViolationType)
-> Value -> Parser DOMDebuggerCSPViolationType)
-> (Text -> Parser DOMDebuggerCSPViolationType)
-> Value
-> Parser DOMDebuggerCSPViolationType
forall a b. (a -> b) -> a -> b
$ \Text
v -> case Text
v of
Text
"trustedtype-sink-violation" -> DOMDebuggerCSPViolationType -> Parser DOMDebuggerCSPViolationType
forall (f :: * -> *) a. Applicative f => a -> f a
pure DOMDebuggerCSPViolationType
DOMDebuggerCSPViolationTypeTrustedtypeSinkViolation
Text
"trustedtype-policy-violation" -> DOMDebuggerCSPViolationType -> Parser DOMDebuggerCSPViolationType
forall (f :: * -> *) a. Applicative f => a -> f a
pure DOMDebuggerCSPViolationType
DOMDebuggerCSPViolationTypeTrustedtypePolicyViolation
Text
"_" -> String -> Parser DOMDebuggerCSPViolationType
forall (m :: * -> *) a. MonadFail m => String -> m a
fail String
"failed to parse DOMDebuggerCSPViolationType"
instance ToJSON DOMDebuggerCSPViolationType where
toJSON :: DOMDebuggerCSPViolationType -> Value
toJSON DOMDebuggerCSPViolationType
v = Text -> Value
A.String (Text -> Value) -> Text -> Value
forall a b. (a -> b) -> a -> b
$ case DOMDebuggerCSPViolationType
v of
DOMDebuggerCSPViolationType
DOMDebuggerCSPViolationTypeTrustedtypeSinkViolation -> Text
"trustedtype-sink-violation"
DOMDebuggerCSPViolationType
DOMDebuggerCSPViolationTypeTrustedtypePolicyViolation -> Text
"trustedtype-policy-violation"
data DOMDebuggerEventListener = DOMDebuggerEventListener
{
DOMDebuggerEventListener -> Text
dOMDebuggerEventListenerType :: T.Text,
DOMDebuggerEventListener -> Bool
dOMDebuggerEventListenerUseCapture :: Bool,
DOMDebuggerEventListener -> Bool
dOMDebuggerEventListenerPassive :: Bool,
DOMDebuggerEventListener -> Bool
dOMDebuggerEventListenerOnce :: Bool,
DOMDebuggerEventListener -> Text
dOMDebuggerEventListenerScriptId :: Runtime.RuntimeScriptId,
DOMDebuggerEventListener -> Int
dOMDebuggerEventListenerLineNumber :: Int,
DOMDebuggerEventListener -> Int
dOMDebuggerEventListenerColumnNumber :: Int,
DOMDebuggerEventListener -> Maybe RuntimeRemoteObject
dOMDebuggerEventListenerHandler :: Maybe Runtime.RuntimeRemoteObject,
DOMDebuggerEventListener -> Maybe RuntimeRemoteObject
dOMDebuggerEventListenerOriginalHandler :: Maybe Runtime.RuntimeRemoteObject,
DOMDebuggerEventListener -> Maybe Int
dOMDebuggerEventListenerBackendNodeId :: Maybe DOMPageNetworkEmulationSecurity.DOMBackendNodeId
}
deriving (DOMDebuggerEventListener -> DOMDebuggerEventListener -> Bool
(DOMDebuggerEventListener -> DOMDebuggerEventListener -> Bool)
-> (DOMDebuggerEventListener -> DOMDebuggerEventListener -> Bool)
-> Eq DOMDebuggerEventListener
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMDebuggerEventListener -> DOMDebuggerEventListener -> Bool
$c/= :: DOMDebuggerEventListener -> DOMDebuggerEventListener -> Bool
== :: DOMDebuggerEventListener -> DOMDebuggerEventListener -> Bool
$c== :: DOMDebuggerEventListener -> DOMDebuggerEventListener -> Bool
Eq, Int -> DOMDebuggerEventListener -> ShowS
[DOMDebuggerEventListener] -> ShowS
DOMDebuggerEventListener -> String
(Int -> DOMDebuggerEventListener -> ShowS)
-> (DOMDebuggerEventListener -> String)
-> ([DOMDebuggerEventListener] -> ShowS)
-> Show DOMDebuggerEventListener
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DOMDebuggerEventListener] -> ShowS
$cshowList :: [DOMDebuggerEventListener] -> ShowS
show :: DOMDebuggerEventListener -> String
$cshow :: DOMDebuggerEventListener -> String
showsPrec :: Int -> DOMDebuggerEventListener -> ShowS
$cshowsPrec :: Int -> DOMDebuggerEventListener -> ShowS
Show)
instance FromJSON DOMDebuggerEventListener where
parseJSON :: Value -> Parser DOMDebuggerEventListener
parseJSON = String
-> (Object -> Parser DOMDebuggerEventListener)
-> Value
-> Parser DOMDebuggerEventListener
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"DOMDebuggerEventListener" ((Object -> Parser DOMDebuggerEventListener)
-> Value -> Parser DOMDebuggerEventListener)
-> (Object -> Parser DOMDebuggerEventListener)
-> Value
-> Parser DOMDebuggerEventListener
forall a b. (a -> b) -> a -> b
$ \Object
o -> Text
-> Bool
-> Bool
-> Bool
-> Text
-> Int
-> Int
-> Maybe RuntimeRemoteObject
-> Maybe RuntimeRemoteObject
-> Maybe Int
-> DOMDebuggerEventListener
DOMDebuggerEventListener
(Text
-> Bool
-> Bool
-> Bool
-> Text
-> Int
-> Int
-> Maybe RuntimeRemoteObject
-> Maybe RuntimeRemoteObject
-> Maybe Int
-> DOMDebuggerEventListener)
-> Parser Text
-> Parser
(Bool
-> Bool
-> Bool
-> Text
-> Int
-> Int
-> Maybe RuntimeRemoteObject
-> Maybe RuntimeRemoteObject
-> Maybe Int
-> DOMDebuggerEventListener)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"type"
Parser
(Bool
-> Bool
-> Bool
-> Text
-> Int
-> Int
-> Maybe RuntimeRemoteObject
-> Maybe RuntimeRemoteObject
-> Maybe Int
-> DOMDebuggerEventListener)
-> Parser Bool
-> Parser
(Bool
-> Bool
-> Text
-> Int
-> Int
-> Maybe RuntimeRemoteObject
-> Maybe RuntimeRemoteObject
-> Maybe Int
-> DOMDebuggerEventListener)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"useCapture"
Parser
(Bool
-> Bool
-> Text
-> Int
-> Int
-> Maybe RuntimeRemoteObject
-> Maybe RuntimeRemoteObject
-> Maybe Int
-> DOMDebuggerEventListener)
-> Parser Bool
-> Parser
(Bool
-> Text
-> Int
-> Int
-> Maybe RuntimeRemoteObject
-> Maybe RuntimeRemoteObject
-> Maybe Int
-> DOMDebuggerEventListener)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"passive"
Parser
(Bool
-> Text
-> Int
-> Int
-> Maybe RuntimeRemoteObject
-> Maybe RuntimeRemoteObject
-> Maybe Int
-> DOMDebuggerEventListener)
-> Parser Bool
-> Parser
(Text
-> Int
-> Int
-> Maybe RuntimeRemoteObject
-> Maybe RuntimeRemoteObject
-> Maybe Int
-> DOMDebuggerEventListener)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser Bool
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"once"
Parser
(Text
-> Int
-> Int
-> Maybe RuntimeRemoteObject
-> Maybe RuntimeRemoteObject
-> Maybe Int
-> DOMDebuggerEventListener)
-> Parser Text
-> Parser
(Int
-> Int
-> Maybe RuntimeRemoteObject
-> Maybe RuntimeRemoteObject
-> Maybe Int
-> DOMDebuggerEventListener)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser Text
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"scriptId"
Parser
(Int
-> Int
-> Maybe RuntimeRemoteObject
-> Maybe RuntimeRemoteObject
-> Maybe Int
-> DOMDebuggerEventListener)
-> Parser Int
-> Parser
(Int
-> Maybe RuntimeRemoteObject
-> Maybe RuntimeRemoteObject
-> Maybe Int
-> DOMDebuggerEventListener)
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
"lineNumber"
Parser
(Int
-> Maybe RuntimeRemoteObject
-> Maybe RuntimeRemoteObject
-> Maybe Int
-> DOMDebuggerEventListener)
-> Parser Int
-> Parser
(Maybe RuntimeRemoteObject
-> Maybe RuntimeRemoteObject
-> Maybe Int
-> DOMDebuggerEventListener)
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
"columnNumber"
Parser
(Maybe RuntimeRemoteObject
-> Maybe RuntimeRemoteObject
-> Maybe Int
-> DOMDebuggerEventListener)
-> Parser (Maybe RuntimeRemoteObject)
-> Parser
(Maybe RuntimeRemoteObject
-> Maybe Int -> DOMDebuggerEventListener)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe RuntimeRemoteObject)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"handler"
Parser
(Maybe RuntimeRemoteObject
-> Maybe Int -> DOMDebuggerEventListener)
-> Parser (Maybe RuntimeRemoteObject)
-> Parser (Maybe Int -> DOMDebuggerEventListener)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe RuntimeRemoteObject)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"originalHandler"
Parser (Maybe Int -> DOMDebuggerEventListener)
-> Parser (Maybe Int) -> Parser DOMDebuggerEventListener
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Object
o Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
A..:? Text
"backendNodeId"
instance ToJSON DOMDebuggerEventListener where
toJSON :: DOMDebuggerEventListener -> Value
toJSON DOMDebuggerEventListener
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
"type" 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
<$> Text -> Maybe Text
forall a. a -> Maybe a
Just (DOMDebuggerEventListener -> Text
dOMDebuggerEventListenerType DOMDebuggerEventListener
p),
(Text
"useCapture" 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 (DOMDebuggerEventListener -> Bool
dOMDebuggerEventListenerUseCapture DOMDebuggerEventListener
p),
(Text
"passive" 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 (DOMDebuggerEventListener -> Bool
dOMDebuggerEventListenerPassive DOMDebuggerEventListener
p),
(Text
"once" 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 (DOMDebuggerEventListener -> Bool
dOMDebuggerEventListenerOnce DOMDebuggerEventListener
p),
(Text
"scriptId" 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
<$> Text -> Maybe Text
forall a. a -> Maybe a
Just (DOMDebuggerEventListener -> Text
dOMDebuggerEventListenerScriptId DOMDebuggerEventListener
p),
(Text
"lineNumber" 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 (DOMDebuggerEventListener -> Int
dOMDebuggerEventListenerLineNumber DOMDebuggerEventListener
p),
(Text
"columnNumber" 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 (DOMDebuggerEventListener -> Int
dOMDebuggerEventListenerColumnNumber DOMDebuggerEventListener
p),
(Text
"handler" Text -> RuntimeRemoteObject -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (RuntimeRemoteObject -> Pair)
-> Maybe RuntimeRemoteObject -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (DOMDebuggerEventListener -> Maybe RuntimeRemoteObject
dOMDebuggerEventListenerHandler DOMDebuggerEventListener
p),
(Text
"originalHandler" Text -> RuntimeRemoteObject -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (RuntimeRemoteObject -> Pair)
-> Maybe RuntimeRemoteObject -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (DOMDebuggerEventListener -> Maybe RuntimeRemoteObject
dOMDebuggerEventListenerOriginalHandler DOMDebuggerEventListener
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
<$> (DOMDebuggerEventListener -> Maybe Int
dOMDebuggerEventListenerBackendNodeId DOMDebuggerEventListener
p)
]
data PDOMDebuggerGetEventListeners = PDOMDebuggerGetEventListeners
{
PDOMDebuggerGetEventListeners -> Text
pDOMDebuggerGetEventListenersObjectId :: Runtime.RuntimeRemoteObjectId,
PDOMDebuggerGetEventListeners -> Maybe Int
pDOMDebuggerGetEventListenersDepth :: Maybe Int,
PDOMDebuggerGetEventListeners -> Maybe Bool
pDOMDebuggerGetEventListenersPierce :: Maybe Bool
}
deriving (PDOMDebuggerGetEventListeners
-> PDOMDebuggerGetEventListeners -> Bool
(PDOMDebuggerGetEventListeners
-> PDOMDebuggerGetEventListeners -> Bool)
-> (PDOMDebuggerGetEventListeners
-> PDOMDebuggerGetEventListeners -> Bool)
-> Eq PDOMDebuggerGetEventListeners
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PDOMDebuggerGetEventListeners
-> PDOMDebuggerGetEventListeners -> Bool
$c/= :: PDOMDebuggerGetEventListeners
-> PDOMDebuggerGetEventListeners -> Bool
== :: PDOMDebuggerGetEventListeners
-> PDOMDebuggerGetEventListeners -> Bool
$c== :: PDOMDebuggerGetEventListeners
-> PDOMDebuggerGetEventListeners -> Bool
Eq, Int -> PDOMDebuggerGetEventListeners -> ShowS
[PDOMDebuggerGetEventListeners] -> ShowS
PDOMDebuggerGetEventListeners -> String
(Int -> PDOMDebuggerGetEventListeners -> ShowS)
-> (PDOMDebuggerGetEventListeners -> String)
-> ([PDOMDebuggerGetEventListeners] -> ShowS)
-> Show PDOMDebuggerGetEventListeners
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PDOMDebuggerGetEventListeners] -> ShowS
$cshowList :: [PDOMDebuggerGetEventListeners] -> ShowS
show :: PDOMDebuggerGetEventListeners -> String
$cshow :: PDOMDebuggerGetEventListeners -> String
showsPrec :: Int -> PDOMDebuggerGetEventListeners -> ShowS
$cshowsPrec :: Int -> PDOMDebuggerGetEventListeners -> ShowS
Show)
pDOMDebuggerGetEventListeners
:: Runtime.RuntimeRemoteObjectId
-> PDOMDebuggerGetEventListeners
pDOMDebuggerGetEventListeners :: Text -> PDOMDebuggerGetEventListeners
pDOMDebuggerGetEventListeners
Text
arg_pDOMDebuggerGetEventListenersObjectId
= Text -> Maybe Int -> Maybe Bool -> PDOMDebuggerGetEventListeners
PDOMDebuggerGetEventListeners
Text
arg_pDOMDebuggerGetEventListenersObjectId
Maybe Int
forall a. Maybe a
Nothing
Maybe Bool
forall a. Maybe a
Nothing
instance ToJSON PDOMDebuggerGetEventListeners where
toJSON :: PDOMDebuggerGetEventListeners -> Value
toJSON PDOMDebuggerGetEventListeners
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
"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
<$> Text -> Maybe Text
forall a. a -> Maybe a
Just (PDOMDebuggerGetEventListeners -> Text
pDOMDebuggerGetEventListenersObjectId PDOMDebuggerGetEventListeners
p),
(Text
"depth" 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
<$> (PDOMDebuggerGetEventListeners -> Maybe Int
pDOMDebuggerGetEventListenersDepth PDOMDebuggerGetEventListeners
p),
(Text
"pierce" 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
<$> (PDOMDebuggerGetEventListeners -> Maybe Bool
pDOMDebuggerGetEventListenersPierce PDOMDebuggerGetEventListeners
p)
]
data DOMDebuggerGetEventListeners = DOMDebuggerGetEventListeners
{
DOMDebuggerGetEventListeners -> [DOMDebuggerEventListener]
dOMDebuggerGetEventListenersListeners :: [DOMDebuggerEventListener]
}
deriving (DOMDebuggerGetEventListeners
-> DOMDebuggerGetEventListeners -> Bool
(DOMDebuggerGetEventListeners
-> DOMDebuggerGetEventListeners -> Bool)
-> (DOMDebuggerGetEventListeners
-> DOMDebuggerGetEventListeners -> Bool)
-> Eq DOMDebuggerGetEventListeners
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMDebuggerGetEventListeners
-> DOMDebuggerGetEventListeners -> Bool
$c/= :: DOMDebuggerGetEventListeners
-> DOMDebuggerGetEventListeners -> Bool
== :: DOMDebuggerGetEventListeners
-> DOMDebuggerGetEventListeners -> Bool
$c== :: DOMDebuggerGetEventListeners
-> DOMDebuggerGetEventListeners -> Bool
Eq, Int -> DOMDebuggerGetEventListeners -> ShowS
[DOMDebuggerGetEventListeners] -> ShowS
DOMDebuggerGetEventListeners -> String
(Int -> DOMDebuggerGetEventListeners -> ShowS)
-> (DOMDebuggerGetEventListeners -> String)
-> ([DOMDebuggerGetEventListeners] -> ShowS)
-> Show DOMDebuggerGetEventListeners
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DOMDebuggerGetEventListeners] -> ShowS
$cshowList :: [DOMDebuggerGetEventListeners] -> ShowS
show :: DOMDebuggerGetEventListeners -> String
$cshow :: DOMDebuggerGetEventListeners -> String
showsPrec :: Int -> DOMDebuggerGetEventListeners -> ShowS
$cshowsPrec :: Int -> DOMDebuggerGetEventListeners -> ShowS
Show)
instance FromJSON DOMDebuggerGetEventListeners where
parseJSON :: Value -> Parser DOMDebuggerGetEventListeners
parseJSON = String
-> (Object -> Parser DOMDebuggerGetEventListeners)
-> Value
-> Parser DOMDebuggerGetEventListeners
forall a. String -> (Object -> Parser a) -> Value -> Parser a
A.withObject String
"DOMDebuggerGetEventListeners" ((Object -> Parser DOMDebuggerGetEventListeners)
-> Value -> Parser DOMDebuggerGetEventListeners)
-> (Object -> Parser DOMDebuggerGetEventListeners)
-> Value
-> Parser DOMDebuggerGetEventListeners
forall a b. (a -> b) -> a -> b
$ \Object
o -> [DOMDebuggerEventListener] -> DOMDebuggerGetEventListeners
DOMDebuggerGetEventListeners
([DOMDebuggerEventListener] -> DOMDebuggerGetEventListeners)
-> Parser [DOMDebuggerEventListener]
-> Parser DOMDebuggerGetEventListeners
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Object
o Object -> Text -> Parser [DOMDebuggerEventListener]
forall a. FromJSON a => Object -> Text -> Parser a
A..: Text
"listeners"
instance Command PDOMDebuggerGetEventListeners where
type CommandResponse PDOMDebuggerGetEventListeners = DOMDebuggerGetEventListeners
commandName :: Proxy PDOMDebuggerGetEventListeners -> String
commandName Proxy PDOMDebuggerGetEventListeners
_ = String
"DOMDebugger.getEventListeners"
data PDOMDebuggerRemoveDOMBreakpoint = PDOMDebuggerRemoveDOMBreakpoint
{
PDOMDebuggerRemoveDOMBreakpoint -> Int
pDOMDebuggerRemoveDOMBreakpointNodeId :: DOMPageNetworkEmulationSecurity.DOMNodeId,
PDOMDebuggerRemoveDOMBreakpoint -> DOMDebuggerDOMBreakpointType
pDOMDebuggerRemoveDOMBreakpointType :: DOMDebuggerDOMBreakpointType
}
deriving (PDOMDebuggerRemoveDOMBreakpoint
-> PDOMDebuggerRemoveDOMBreakpoint -> Bool
(PDOMDebuggerRemoveDOMBreakpoint
-> PDOMDebuggerRemoveDOMBreakpoint -> Bool)
-> (PDOMDebuggerRemoveDOMBreakpoint
-> PDOMDebuggerRemoveDOMBreakpoint -> Bool)
-> Eq PDOMDebuggerRemoveDOMBreakpoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PDOMDebuggerRemoveDOMBreakpoint
-> PDOMDebuggerRemoveDOMBreakpoint -> Bool
$c/= :: PDOMDebuggerRemoveDOMBreakpoint
-> PDOMDebuggerRemoveDOMBreakpoint -> Bool
== :: PDOMDebuggerRemoveDOMBreakpoint
-> PDOMDebuggerRemoveDOMBreakpoint -> Bool
$c== :: PDOMDebuggerRemoveDOMBreakpoint
-> PDOMDebuggerRemoveDOMBreakpoint -> Bool
Eq, Int -> PDOMDebuggerRemoveDOMBreakpoint -> ShowS
[PDOMDebuggerRemoveDOMBreakpoint] -> ShowS
PDOMDebuggerRemoveDOMBreakpoint -> String
(Int -> PDOMDebuggerRemoveDOMBreakpoint -> ShowS)
-> (PDOMDebuggerRemoveDOMBreakpoint -> String)
-> ([PDOMDebuggerRemoveDOMBreakpoint] -> ShowS)
-> Show PDOMDebuggerRemoveDOMBreakpoint
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PDOMDebuggerRemoveDOMBreakpoint] -> ShowS
$cshowList :: [PDOMDebuggerRemoveDOMBreakpoint] -> ShowS
show :: PDOMDebuggerRemoveDOMBreakpoint -> String
$cshow :: PDOMDebuggerRemoveDOMBreakpoint -> String
showsPrec :: Int -> PDOMDebuggerRemoveDOMBreakpoint -> ShowS
$cshowsPrec :: Int -> PDOMDebuggerRemoveDOMBreakpoint -> ShowS
Show)
pDOMDebuggerRemoveDOMBreakpoint
:: DOMPageNetworkEmulationSecurity.DOMNodeId
-> DOMDebuggerDOMBreakpointType
-> PDOMDebuggerRemoveDOMBreakpoint
pDOMDebuggerRemoveDOMBreakpoint :: Int
-> DOMDebuggerDOMBreakpointType -> PDOMDebuggerRemoveDOMBreakpoint
pDOMDebuggerRemoveDOMBreakpoint
Int
arg_pDOMDebuggerRemoveDOMBreakpointNodeId
DOMDebuggerDOMBreakpointType
arg_pDOMDebuggerRemoveDOMBreakpointType
= Int
-> DOMDebuggerDOMBreakpointType -> PDOMDebuggerRemoveDOMBreakpoint
PDOMDebuggerRemoveDOMBreakpoint
Int
arg_pDOMDebuggerRemoveDOMBreakpointNodeId
DOMDebuggerDOMBreakpointType
arg_pDOMDebuggerRemoveDOMBreakpointType
instance ToJSON PDOMDebuggerRemoveDOMBreakpoint where
toJSON :: PDOMDebuggerRemoveDOMBreakpoint -> Value
toJSON PDOMDebuggerRemoveDOMBreakpoint
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 (PDOMDebuggerRemoveDOMBreakpoint -> Int
pDOMDebuggerRemoveDOMBreakpointNodeId PDOMDebuggerRemoveDOMBreakpoint
p),
(Text
"type" Text -> DOMDebuggerDOMBreakpointType -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMDebuggerDOMBreakpointType -> Pair)
-> Maybe DOMDebuggerDOMBreakpointType -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> DOMDebuggerDOMBreakpointType -> Maybe DOMDebuggerDOMBreakpointType
forall a. a -> Maybe a
Just (PDOMDebuggerRemoveDOMBreakpoint -> DOMDebuggerDOMBreakpointType
pDOMDebuggerRemoveDOMBreakpointType PDOMDebuggerRemoveDOMBreakpoint
p)
]
instance Command PDOMDebuggerRemoveDOMBreakpoint where
type CommandResponse PDOMDebuggerRemoveDOMBreakpoint = ()
commandName :: Proxy PDOMDebuggerRemoveDOMBreakpoint -> String
commandName Proxy PDOMDebuggerRemoveDOMBreakpoint
_ = String
"DOMDebugger.removeDOMBreakpoint"
fromJSON :: Proxy PDOMDebuggerRemoveDOMBreakpoint
-> Value
-> Result (CommandResponse PDOMDebuggerRemoveDOMBreakpoint)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy PDOMDebuggerRemoveDOMBreakpoint -> Result ())
-> Proxy PDOMDebuggerRemoveDOMBreakpoint
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy PDOMDebuggerRemoveDOMBreakpoint -> ())
-> Proxy PDOMDebuggerRemoveDOMBreakpoint
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy PDOMDebuggerRemoveDOMBreakpoint -> ()
forall a b. a -> b -> a
const ()
data PDOMDebuggerRemoveEventListenerBreakpoint = PDOMDebuggerRemoveEventListenerBreakpoint
{
PDOMDebuggerRemoveEventListenerBreakpoint -> Text
pDOMDebuggerRemoveEventListenerBreakpointEventName :: T.Text,
PDOMDebuggerRemoveEventListenerBreakpoint -> Maybe Text
pDOMDebuggerRemoveEventListenerBreakpointTargetName :: Maybe T.Text
}
deriving (PDOMDebuggerRemoveEventListenerBreakpoint
-> PDOMDebuggerRemoveEventListenerBreakpoint -> Bool
(PDOMDebuggerRemoveEventListenerBreakpoint
-> PDOMDebuggerRemoveEventListenerBreakpoint -> Bool)
-> (PDOMDebuggerRemoveEventListenerBreakpoint
-> PDOMDebuggerRemoveEventListenerBreakpoint -> Bool)
-> Eq PDOMDebuggerRemoveEventListenerBreakpoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PDOMDebuggerRemoveEventListenerBreakpoint
-> PDOMDebuggerRemoveEventListenerBreakpoint -> Bool
$c/= :: PDOMDebuggerRemoveEventListenerBreakpoint
-> PDOMDebuggerRemoveEventListenerBreakpoint -> Bool
== :: PDOMDebuggerRemoveEventListenerBreakpoint
-> PDOMDebuggerRemoveEventListenerBreakpoint -> Bool
$c== :: PDOMDebuggerRemoveEventListenerBreakpoint
-> PDOMDebuggerRemoveEventListenerBreakpoint -> Bool
Eq, Int -> PDOMDebuggerRemoveEventListenerBreakpoint -> ShowS
[PDOMDebuggerRemoveEventListenerBreakpoint] -> ShowS
PDOMDebuggerRemoveEventListenerBreakpoint -> String
(Int -> PDOMDebuggerRemoveEventListenerBreakpoint -> ShowS)
-> (PDOMDebuggerRemoveEventListenerBreakpoint -> String)
-> ([PDOMDebuggerRemoveEventListenerBreakpoint] -> ShowS)
-> Show PDOMDebuggerRemoveEventListenerBreakpoint
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PDOMDebuggerRemoveEventListenerBreakpoint] -> ShowS
$cshowList :: [PDOMDebuggerRemoveEventListenerBreakpoint] -> ShowS
show :: PDOMDebuggerRemoveEventListenerBreakpoint -> String
$cshow :: PDOMDebuggerRemoveEventListenerBreakpoint -> String
showsPrec :: Int -> PDOMDebuggerRemoveEventListenerBreakpoint -> ShowS
$cshowsPrec :: Int -> PDOMDebuggerRemoveEventListenerBreakpoint -> ShowS
Show)
pDOMDebuggerRemoveEventListenerBreakpoint
:: T.Text
-> PDOMDebuggerRemoveEventListenerBreakpoint
pDOMDebuggerRemoveEventListenerBreakpoint :: Text -> PDOMDebuggerRemoveEventListenerBreakpoint
pDOMDebuggerRemoveEventListenerBreakpoint
Text
arg_pDOMDebuggerRemoveEventListenerBreakpointEventName
= Text -> Maybe Text -> PDOMDebuggerRemoveEventListenerBreakpoint
PDOMDebuggerRemoveEventListenerBreakpoint
Text
arg_pDOMDebuggerRemoveEventListenerBreakpointEventName
Maybe Text
forall a. Maybe a
Nothing
instance ToJSON PDOMDebuggerRemoveEventListenerBreakpoint where
toJSON :: PDOMDebuggerRemoveEventListenerBreakpoint -> Value
toJSON PDOMDebuggerRemoveEventListenerBreakpoint
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
"eventName" 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
<$> Text -> Maybe Text
forall a. a -> Maybe a
Just (PDOMDebuggerRemoveEventListenerBreakpoint -> Text
pDOMDebuggerRemoveEventListenerBreakpointEventName PDOMDebuggerRemoveEventListenerBreakpoint
p),
(Text
"targetName" 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
<$> (PDOMDebuggerRemoveEventListenerBreakpoint -> Maybe Text
pDOMDebuggerRemoveEventListenerBreakpointTargetName PDOMDebuggerRemoveEventListenerBreakpoint
p)
]
instance Command PDOMDebuggerRemoveEventListenerBreakpoint where
type CommandResponse PDOMDebuggerRemoveEventListenerBreakpoint = ()
commandName :: Proxy PDOMDebuggerRemoveEventListenerBreakpoint -> String
commandName Proxy PDOMDebuggerRemoveEventListenerBreakpoint
_ = String
"DOMDebugger.removeEventListenerBreakpoint"
fromJSON :: Proxy PDOMDebuggerRemoveEventListenerBreakpoint
-> Value
-> Result
(CommandResponse PDOMDebuggerRemoveEventListenerBreakpoint)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy PDOMDebuggerRemoveEventListenerBreakpoint -> Result ())
-> Proxy PDOMDebuggerRemoveEventListenerBreakpoint
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy PDOMDebuggerRemoveEventListenerBreakpoint -> ())
-> Proxy PDOMDebuggerRemoveEventListenerBreakpoint
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy PDOMDebuggerRemoveEventListenerBreakpoint -> ()
forall a b. a -> b -> a
const ()
data PDOMDebuggerRemoveInstrumentationBreakpoint = PDOMDebuggerRemoveInstrumentationBreakpoint
{
PDOMDebuggerRemoveInstrumentationBreakpoint -> Text
pDOMDebuggerRemoveInstrumentationBreakpointEventName :: T.Text
}
deriving (PDOMDebuggerRemoveInstrumentationBreakpoint
-> PDOMDebuggerRemoveInstrumentationBreakpoint -> Bool
(PDOMDebuggerRemoveInstrumentationBreakpoint
-> PDOMDebuggerRemoveInstrumentationBreakpoint -> Bool)
-> (PDOMDebuggerRemoveInstrumentationBreakpoint
-> PDOMDebuggerRemoveInstrumentationBreakpoint -> Bool)
-> Eq PDOMDebuggerRemoveInstrumentationBreakpoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PDOMDebuggerRemoveInstrumentationBreakpoint
-> PDOMDebuggerRemoveInstrumentationBreakpoint -> Bool
$c/= :: PDOMDebuggerRemoveInstrumentationBreakpoint
-> PDOMDebuggerRemoveInstrumentationBreakpoint -> Bool
== :: PDOMDebuggerRemoveInstrumentationBreakpoint
-> PDOMDebuggerRemoveInstrumentationBreakpoint -> Bool
$c== :: PDOMDebuggerRemoveInstrumentationBreakpoint
-> PDOMDebuggerRemoveInstrumentationBreakpoint -> Bool
Eq, Int -> PDOMDebuggerRemoveInstrumentationBreakpoint -> ShowS
[PDOMDebuggerRemoveInstrumentationBreakpoint] -> ShowS
PDOMDebuggerRemoveInstrumentationBreakpoint -> String
(Int -> PDOMDebuggerRemoveInstrumentationBreakpoint -> ShowS)
-> (PDOMDebuggerRemoveInstrumentationBreakpoint -> String)
-> ([PDOMDebuggerRemoveInstrumentationBreakpoint] -> ShowS)
-> Show PDOMDebuggerRemoveInstrumentationBreakpoint
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PDOMDebuggerRemoveInstrumentationBreakpoint] -> ShowS
$cshowList :: [PDOMDebuggerRemoveInstrumentationBreakpoint] -> ShowS
show :: PDOMDebuggerRemoveInstrumentationBreakpoint -> String
$cshow :: PDOMDebuggerRemoveInstrumentationBreakpoint -> String
showsPrec :: Int -> PDOMDebuggerRemoveInstrumentationBreakpoint -> ShowS
$cshowsPrec :: Int -> PDOMDebuggerRemoveInstrumentationBreakpoint -> ShowS
Show)
pDOMDebuggerRemoveInstrumentationBreakpoint
:: T.Text
-> PDOMDebuggerRemoveInstrumentationBreakpoint
pDOMDebuggerRemoveInstrumentationBreakpoint :: Text -> PDOMDebuggerRemoveInstrumentationBreakpoint
pDOMDebuggerRemoveInstrumentationBreakpoint
Text
arg_pDOMDebuggerRemoveInstrumentationBreakpointEventName
= Text -> PDOMDebuggerRemoveInstrumentationBreakpoint
PDOMDebuggerRemoveInstrumentationBreakpoint
Text
arg_pDOMDebuggerRemoveInstrumentationBreakpointEventName
instance ToJSON PDOMDebuggerRemoveInstrumentationBreakpoint where
toJSON :: PDOMDebuggerRemoveInstrumentationBreakpoint -> Value
toJSON PDOMDebuggerRemoveInstrumentationBreakpoint
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
"eventName" 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
<$> Text -> Maybe Text
forall a. a -> Maybe a
Just (PDOMDebuggerRemoveInstrumentationBreakpoint -> Text
pDOMDebuggerRemoveInstrumentationBreakpointEventName PDOMDebuggerRemoveInstrumentationBreakpoint
p)
]
instance Command PDOMDebuggerRemoveInstrumentationBreakpoint where
type CommandResponse PDOMDebuggerRemoveInstrumentationBreakpoint = ()
commandName :: Proxy PDOMDebuggerRemoveInstrumentationBreakpoint -> String
commandName Proxy PDOMDebuggerRemoveInstrumentationBreakpoint
_ = String
"DOMDebugger.removeInstrumentationBreakpoint"
fromJSON :: Proxy PDOMDebuggerRemoveInstrumentationBreakpoint
-> Value
-> Result
(CommandResponse PDOMDebuggerRemoveInstrumentationBreakpoint)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy PDOMDebuggerRemoveInstrumentationBreakpoint -> Result ())
-> Proxy PDOMDebuggerRemoveInstrumentationBreakpoint
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy PDOMDebuggerRemoveInstrumentationBreakpoint -> ())
-> Proxy PDOMDebuggerRemoveInstrumentationBreakpoint
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy PDOMDebuggerRemoveInstrumentationBreakpoint -> ()
forall a b. a -> b -> a
const ()
data PDOMDebuggerRemoveXHRBreakpoint = PDOMDebuggerRemoveXHRBreakpoint
{
PDOMDebuggerRemoveXHRBreakpoint -> Text
pDOMDebuggerRemoveXHRBreakpointUrl :: T.Text
}
deriving (PDOMDebuggerRemoveXHRBreakpoint
-> PDOMDebuggerRemoveXHRBreakpoint -> Bool
(PDOMDebuggerRemoveXHRBreakpoint
-> PDOMDebuggerRemoveXHRBreakpoint -> Bool)
-> (PDOMDebuggerRemoveXHRBreakpoint
-> PDOMDebuggerRemoveXHRBreakpoint -> Bool)
-> Eq PDOMDebuggerRemoveXHRBreakpoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PDOMDebuggerRemoveXHRBreakpoint
-> PDOMDebuggerRemoveXHRBreakpoint -> Bool
$c/= :: PDOMDebuggerRemoveXHRBreakpoint
-> PDOMDebuggerRemoveXHRBreakpoint -> Bool
== :: PDOMDebuggerRemoveXHRBreakpoint
-> PDOMDebuggerRemoveXHRBreakpoint -> Bool
$c== :: PDOMDebuggerRemoveXHRBreakpoint
-> PDOMDebuggerRemoveXHRBreakpoint -> Bool
Eq, Int -> PDOMDebuggerRemoveXHRBreakpoint -> ShowS
[PDOMDebuggerRemoveXHRBreakpoint] -> ShowS
PDOMDebuggerRemoveXHRBreakpoint -> String
(Int -> PDOMDebuggerRemoveXHRBreakpoint -> ShowS)
-> (PDOMDebuggerRemoveXHRBreakpoint -> String)
-> ([PDOMDebuggerRemoveXHRBreakpoint] -> ShowS)
-> Show PDOMDebuggerRemoveXHRBreakpoint
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PDOMDebuggerRemoveXHRBreakpoint] -> ShowS
$cshowList :: [PDOMDebuggerRemoveXHRBreakpoint] -> ShowS
show :: PDOMDebuggerRemoveXHRBreakpoint -> String
$cshow :: PDOMDebuggerRemoveXHRBreakpoint -> String
showsPrec :: Int -> PDOMDebuggerRemoveXHRBreakpoint -> ShowS
$cshowsPrec :: Int -> PDOMDebuggerRemoveXHRBreakpoint -> ShowS
Show)
pDOMDebuggerRemoveXHRBreakpoint
:: T.Text
-> PDOMDebuggerRemoveXHRBreakpoint
pDOMDebuggerRemoveXHRBreakpoint :: Text -> PDOMDebuggerRemoveXHRBreakpoint
pDOMDebuggerRemoveXHRBreakpoint
Text
arg_pDOMDebuggerRemoveXHRBreakpointUrl
= Text -> PDOMDebuggerRemoveXHRBreakpoint
PDOMDebuggerRemoveXHRBreakpoint
Text
arg_pDOMDebuggerRemoveXHRBreakpointUrl
instance ToJSON PDOMDebuggerRemoveXHRBreakpoint where
toJSON :: PDOMDebuggerRemoveXHRBreakpoint -> Value
toJSON PDOMDebuggerRemoveXHRBreakpoint
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
"url" 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
<$> Text -> Maybe Text
forall a. a -> Maybe a
Just (PDOMDebuggerRemoveXHRBreakpoint -> Text
pDOMDebuggerRemoveXHRBreakpointUrl PDOMDebuggerRemoveXHRBreakpoint
p)
]
instance Command PDOMDebuggerRemoveXHRBreakpoint where
type CommandResponse PDOMDebuggerRemoveXHRBreakpoint = ()
commandName :: Proxy PDOMDebuggerRemoveXHRBreakpoint -> String
commandName Proxy PDOMDebuggerRemoveXHRBreakpoint
_ = String
"DOMDebugger.removeXHRBreakpoint"
fromJSON :: Proxy PDOMDebuggerRemoveXHRBreakpoint
-> Value
-> Result (CommandResponse PDOMDebuggerRemoveXHRBreakpoint)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy PDOMDebuggerRemoveXHRBreakpoint -> Result ())
-> Proxy PDOMDebuggerRemoveXHRBreakpoint
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy PDOMDebuggerRemoveXHRBreakpoint -> ())
-> Proxy PDOMDebuggerRemoveXHRBreakpoint
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy PDOMDebuggerRemoveXHRBreakpoint -> ()
forall a b. a -> b -> a
const ()
data PDOMDebuggerSetBreakOnCSPViolation = PDOMDebuggerSetBreakOnCSPViolation
{
PDOMDebuggerSetBreakOnCSPViolation -> [DOMDebuggerCSPViolationType]
pDOMDebuggerSetBreakOnCSPViolationViolationTypes :: [DOMDebuggerCSPViolationType]
}
deriving (PDOMDebuggerSetBreakOnCSPViolation
-> PDOMDebuggerSetBreakOnCSPViolation -> Bool
(PDOMDebuggerSetBreakOnCSPViolation
-> PDOMDebuggerSetBreakOnCSPViolation -> Bool)
-> (PDOMDebuggerSetBreakOnCSPViolation
-> PDOMDebuggerSetBreakOnCSPViolation -> Bool)
-> Eq PDOMDebuggerSetBreakOnCSPViolation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PDOMDebuggerSetBreakOnCSPViolation
-> PDOMDebuggerSetBreakOnCSPViolation -> Bool
$c/= :: PDOMDebuggerSetBreakOnCSPViolation
-> PDOMDebuggerSetBreakOnCSPViolation -> Bool
== :: PDOMDebuggerSetBreakOnCSPViolation
-> PDOMDebuggerSetBreakOnCSPViolation -> Bool
$c== :: PDOMDebuggerSetBreakOnCSPViolation
-> PDOMDebuggerSetBreakOnCSPViolation -> Bool
Eq, Int -> PDOMDebuggerSetBreakOnCSPViolation -> ShowS
[PDOMDebuggerSetBreakOnCSPViolation] -> ShowS
PDOMDebuggerSetBreakOnCSPViolation -> String
(Int -> PDOMDebuggerSetBreakOnCSPViolation -> ShowS)
-> (PDOMDebuggerSetBreakOnCSPViolation -> String)
-> ([PDOMDebuggerSetBreakOnCSPViolation] -> ShowS)
-> Show PDOMDebuggerSetBreakOnCSPViolation
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PDOMDebuggerSetBreakOnCSPViolation] -> ShowS
$cshowList :: [PDOMDebuggerSetBreakOnCSPViolation] -> ShowS
show :: PDOMDebuggerSetBreakOnCSPViolation -> String
$cshow :: PDOMDebuggerSetBreakOnCSPViolation -> String
showsPrec :: Int -> PDOMDebuggerSetBreakOnCSPViolation -> ShowS
$cshowsPrec :: Int -> PDOMDebuggerSetBreakOnCSPViolation -> ShowS
Show)
pDOMDebuggerSetBreakOnCSPViolation
:: [DOMDebuggerCSPViolationType]
-> PDOMDebuggerSetBreakOnCSPViolation
pDOMDebuggerSetBreakOnCSPViolation :: [DOMDebuggerCSPViolationType] -> PDOMDebuggerSetBreakOnCSPViolation
pDOMDebuggerSetBreakOnCSPViolation
[DOMDebuggerCSPViolationType]
arg_pDOMDebuggerSetBreakOnCSPViolationViolationTypes
= [DOMDebuggerCSPViolationType] -> PDOMDebuggerSetBreakOnCSPViolation
PDOMDebuggerSetBreakOnCSPViolation
[DOMDebuggerCSPViolationType]
arg_pDOMDebuggerSetBreakOnCSPViolationViolationTypes
instance ToJSON PDOMDebuggerSetBreakOnCSPViolation where
toJSON :: PDOMDebuggerSetBreakOnCSPViolation -> Value
toJSON PDOMDebuggerSetBreakOnCSPViolation
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
"violationTypes" Text -> [DOMDebuggerCSPViolationType] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) ([DOMDebuggerCSPViolationType] -> Pair)
-> Maybe [DOMDebuggerCSPViolationType] -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [DOMDebuggerCSPViolationType]
-> Maybe [DOMDebuggerCSPViolationType]
forall a. a -> Maybe a
Just (PDOMDebuggerSetBreakOnCSPViolation -> [DOMDebuggerCSPViolationType]
pDOMDebuggerSetBreakOnCSPViolationViolationTypes PDOMDebuggerSetBreakOnCSPViolation
p)
]
instance Command PDOMDebuggerSetBreakOnCSPViolation where
type CommandResponse PDOMDebuggerSetBreakOnCSPViolation = ()
commandName :: Proxy PDOMDebuggerSetBreakOnCSPViolation -> String
commandName Proxy PDOMDebuggerSetBreakOnCSPViolation
_ = String
"DOMDebugger.setBreakOnCSPViolation"
fromJSON :: Proxy PDOMDebuggerSetBreakOnCSPViolation
-> Value
-> Result (CommandResponse PDOMDebuggerSetBreakOnCSPViolation)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy PDOMDebuggerSetBreakOnCSPViolation -> Result ())
-> Proxy PDOMDebuggerSetBreakOnCSPViolation
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy PDOMDebuggerSetBreakOnCSPViolation -> ())
-> Proxy PDOMDebuggerSetBreakOnCSPViolation
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy PDOMDebuggerSetBreakOnCSPViolation -> ()
forall a b. a -> b -> a
const ()
data PDOMDebuggerSetDOMBreakpoint = PDOMDebuggerSetDOMBreakpoint
{
PDOMDebuggerSetDOMBreakpoint -> Int
pDOMDebuggerSetDOMBreakpointNodeId :: DOMPageNetworkEmulationSecurity.DOMNodeId,
PDOMDebuggerSetDOMBreakpoint -> DOMDebuggerDOMBreakpointType
pDOMDebuggerSetDOMBreakpointType :: DOMDebuggerDOMBreakpointType
}
deriving (PDOMDebuggerSetDOMBreakpoint
-> PDOMDebuggerSetDOMBreakpoint -> Bool
(PDOMDebuggerSetDOMBreakpoint
-> PDOMDebuggerSetDOMBreakpoint -> Bool)
-> (PDOMDebuggerSetDOMBreakpoint
-> PDOMDebuggerSetDOMBreakpoint -> Bool)
-> Eq PDOMDebuggerSetDOMBreakpoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PDOMDebuggerSetDOMBreakpoint
-> PDOMDebuggerSetDOMBreakpoint -> Bool
$c/= :: PDOMDebuggerSetDOMBreakpoint
-> PDOMDebuggerSetDOMBreakpoint -> Bool
== :: PDOMDebuggerSetDOMBreakpoint
-> PDOMDebuggerSetDOMBreakpoint -> Bool
$c== :: PDOMDebuggerSetDOMBreakpoint
-> PDOMDebuggerSetDOMBreakpoint -> Bool
Eq, Int -> PDOMDebuggerSetDOMBreakpoint -> ShowS
[PDOMDebuggerSetDOMBreakpoint] -> ShowS
PDOMDebuggerSetDOMBreakpoint -> String
(Int -> PDOMDebuggerSetDOMBreakpoint -> ShowS)
-> (PDOMDebuggerSetDOMBreakpoint -> String)
-> ([PDOMDebuggerSetDOMBreakpoint] -> ShowS)
-> Show PDOMDebuggerSetDOMBreakpoint
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PDOMDebuggerSetDOMBreakpoint] -> ShowS
$cshowList :: [PDOMDebuggerSetDOMBreakpoint] -> ShowS
show :: PDOMDebuggerSetDOMBreakpoint -> String
$cshow :: PDOMDebuggerSetDOMBreakpoint -> String
showsPrec :: Int -> PDOMDebuggerSetDOMBreakpoint -> ShowS
$cshowsPrec :: Int -> PDOMDebuggerSetDOMBreakpoint -> ShowS
Show)
pDOMDebuggerSetDOMBreakpoint
:: DOMPageNetworkEmulationSecurity.DOMNodeId
-> DOMDebuggerDOMBreakpointType
-> PDOMDebuggerSetDOMBreakpoint
pDOMDebuggerSetDOMBreakpoint :: Int -> DOMDebuggerDOMBreakpointType -> PDOMDebuggerSetDOMBreakpoint
pDOMDebuggerSetDOMBreakpoint
Int
arg_pDOMDebuggerSetDOMBreakpointNodeId
DOMDebuggerDOMBreakpointType
arg_pDOMDebuggerSetDOMBreakpointType
= Int -> DOMDebuggerDOMBreakpointType -> PDOMDebuggerSetDOMBreakpoint
PDOMDebuggerSetDOMBreakpoint
Int
arg_pDOMDebuggerSetDOMBreakpointNodeId
DOMDebuggerDOMBreakpointType
arg_pDOMDebuggerSetDOMBreakpointType
instance ToJSON PDOMDebuggerSetDOMBreakpoint where
toJSON :: PDOMDebuggerSetDOMBreakpoint -> Value
toJSON PDOMDebuggerSetDOMBreakpoint
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 (PDOMDebuggerSetDOMBreakpoint -> Int
pDOMDebuggerSetDOMBreakpointNodeId PDOMDebuggerSetDOMBreakpoint
p),
(Text
"type" Text -> DOMDebuggerDOMBreakpointType -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
A..=) (DOMDebuggerDOMBreakpointType -> Pair)
-> Maybe DOMDebuggerDOMBreakpointType -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> DOMDebuggerDOMBreakpointType -> Maybe DOMDebuggerDOMBreakpointType
forall a. a -> Maybe a
Just (PDOMDebuggerSetDOMBreakpoint -> DOMDebuggerDOMBreakpointType
pDOMDebuggerSetDOMBreakpointType PDOMDebuggerSetDOMBreakpoint
p)
]
instance Command PDOMDebuggerSetDOMBreakpoint where
type CommandResponse PDOMDebuggerSetDOMBreakpoint = ()
commandName :: Proxy PDOMDebuggerSetDOMBreakpoint -> String
commandName Proxy PDOMDebuggerSetDOMBreakpoint
_ = String
"DOMDebugger.setDOMBreakpoint"
fromJSON :: Proxy PDOMDebuggerSetDOMBreakpoint
-> Value -> Result (CommandResponse PDOMDebuggerSetDOMBreakpoint)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy PDOMDebuggerSetDOMBreakpoint -> Result ())
-> Proxy PDOMDebuggerSetDOMBreakpoint
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy PDOMDebuggerSetDOMBreakpoint -> ())
-> Proxy PDOMDebuggerSetDOMBreakpoint
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy PDOMDebuggerSetDOMBreakpoint -> ()
forall a b. a -> b -> a
const ()
data PDOMDebuggerSetEventListenerBreakpoint = PDOMDebuggerSetEventListenerBreakpoint
{
PDOMDebuggerSetEventListenerBreakpoint -> Text
pDOMDebuggerSetEventListenerBreakpointEventName :: T.Text,
PDOMDebuggerSetEventListenerBreakpoint -> Maybe Text
pDOMDebuggerSetEventListenerBreakpointTargetName :: Maybe T.Text
}
deriving (PDOMDebuggerSetEventListenerBreakpoint
-> PDOMDebuggerSetEventListenerBreakpoint -> Bool
(PDOMDebuggerSetEventListenerBreakpoint
-> PDOMDebuggerSetEventListenerBreakpoint -> Bool)
-> (PDOMDebuggerSetEventListenerBreakpoint
-> PDOMDebuggerSetEventListenerBreakpoint -> Bool)
-> Eq PDOMDebuggerSetEventListenerBreakpoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PDOMDebuggerSetEventListenerBreakpoint
-> PDOMDebuggerSetEventListenerBreakpoint -> Bool
$c/= :: PDOMDebuggerSetEventListenerBreakpoint
-> PDOMDebuggerSetEventListenerBreakpoint -> Bool
== :: PDOMDebuggerSetEventListenerBreakpoint
-> PDOMDebuggerSetEventListenerBreakpoint -> Bool
$c== :: PDOMDebuggerSetEventListenerBreakpoint
-> PDOMDebuggerSetEventListenerBreakpoint -> Bool
Eq, Int -> PDOMDebuggerSetEventListenerBreakpoint -> ShowS
[PDOMDebuggerSetEventListenerBreakpoint] -> ShowS
PDOMDebuggerSetEventListenerBreakpoint -> String
(Int -> PDOMDebuggerSetEventListenerBreakpoint -> ShowS)
-> (PDOMDebuggerSetEventListenerBreakpoint -> String)
-> ([PDOMDebuggerSetEventListenerBreakpoint] -> ShowS)
-> Show PDOMDebuggerSetEventListenerBreakpoint
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PDOMDebuggerSetEventListenerBreakpoint] -> ShowS
$cshowList :: [PDOMDebuggerSetEventListenerBreakpoint] -> ShowS
show :: PDOMDebuggerSetEventListenerBreakpoint -> String
$cshow :: PDOMDebuggerSetEventListenerBreakpoint -> String
showsPrec :: Int -> PDOMDebuggerSetEventListenerBreakpoint -> ShowS
$cshowsPrec :: Int -> PDOMDebuggerSetEventListenerBreakpoint -> ShowS
Show)
pDOMDebuggerSetEventListenerBreakpoint
:: T.Text
-> PDOMDebuggerSetEventListenerBreakpoint
pDOMDebuggerSetEventListenerBreakpoint :: Text -> PDOMDebuggerSetEventListenerBreakpoint
pDOMDebuggerSetEventListenerBreakpoint
Text
arg_pDOMDebuggerSetEventListenerBreakpointEventName
= Text -> Maybe Text -> PDOMDebuggerSetEventListenerBreakpoint
PDOMDebuggerSetEventListenerBreakpoint
Text
arg_pDOMDebuggerSetEventListenerBreakpointEventName
Maybe Text
forall a. Maybe a
Nothing
instance ToJSON PDOMDebuggerSetEventListenerBreakpoint where
toJSON :: PDOMDebuggerSetEventListenerBreakpoint -> Value
toJSON PDOMDebuggerSetEventListenerBreakpoint
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
"eventName" 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
<$> Text -> Maybe Text
forall a. a -> Maybe a
Just (PDOMDebuggerSetEventListenerBreakpoint -> Text
pDOMDebuggerSetEventListenerBreakpointEventName PDOMDebuggerSetEventListenerBreakpoint
p),
(Text
"targetName" 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
<$> (PDOMDebuggerSetEventListenerBreakpoint -> Maybe Text
pDOMDebuggerSetEventListenerBreakpointTargetName PDOMDebuggerSetEventListenerBreakpoint
p)
]
instance Command PDOMDebuggerSetEventListenerBreakpoint where
type CommandResponse PDOMDebuggerSetEventListenerBreakpoint = ()
commandName :: Proxy PDOMDebuggerSetEventListenerBreakpoint -> String
commandName Proxy PDOMDebuggerSetEventListenerBreakpoint
_ = String
"DOMDebugger.setEventListenerBreakpoint"
fromJSON :: Proxy PDOMDebuggerSetEventListenerBreakpoint
-> Value
-> Result (CommandResponse PDOMDebuggerSetEventListenerBreakpoint)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy PDOMDebuggerSetEventListenerBreakpoint -> Result ())
-> Proxy PDOMDebuggerSetEventListenerBreakpoint
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy PDOMDebuggerSetEventListenerBreakpoint -> ())
-> Proxy PDOMDebuggerSetEventListenerBreakpoint
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy PDOMDebuggerSetEventListenerBreakpoint -> ()
forall a b. a -> b -> a
const ()
data PDOMDebuggerSetInstrumentationBreakpoint = PDOMDebuggerSetInstrumentationBreakpoint
{
PDOMDebuggerSetInstrumentationBreakpoint -> Text
pDOMDebuggerSetInstrumentationBreakpointEventName :: T.Text
}
deriving (PDOMDebuggerSetInstrumentationBreakpoint
-> PDOMDebuggerSetInstrumentationBreakpoint -> Bool
(PDOMDebuggerSetInstrumentationBreakpoint
-> PDOMDebuggerSetInstrumentationBreakpoint -> Bool)
-> (PDOMDebuggerSetInstrumentationBreakpoint
-> PDOMDebuggerSetInstrumentationBreakpoint -> Bool)
-> Eq PDOMDebuggerSetInstrumentationBreakpoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PDOMDebuggerSetInstrumentationBreakpoint
-> PDOMDebuggerSetInstrumentationBreakpoint -> Bool
$c/= :: PDOMDebuggerSetInstrumentationBreakpoint
-> PDOMDebuggerSetInstrumentationBreakpoint -> Bool
== :: PDOMDebuggerSetInstrumentationBreakpoint
-> PDOMDebuggerSetInstrumentationBreakpoint -> Bool
$c== :: PDOMDebuggerSetInstrumentationBreakpoint
-> PDOMDebuggerSetInstrumentationBreakpoint -> Bool
Eq, Int -> PDOMDebuggerSetInstrumentationBreakpoint -> ShowS
[PDOMDebuggerSetInstrumentationBreakpoint] -> ShowS
PDOMDebuggerSetInstrumentationBreakpoint -> String
(Int -> PDOMDebuggerSetInstrumentationBreakpoint -> ShowS)
-> (PDOMDebuggerSetInstrumentationBreakpoint -> String)
-> ([PDOMDebuggerSetInstrumentationBreakpoint] -> ShowS)
-> Show PDOMDebuggerSetInstrumentationBreakpoint
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PDOMDebuggerSetInstrumentationBreakpoint] -> ShowS
$cshowList :: [PDOMDebuggerSetInstrumentationBreakpoint] -> ShowS
show :: PDOMDebuggerSetInstrumentationBreakpoint -> String
$cshow :: PDOMDebuggerSetInstrumentationBreakpoint -> String
showsPrec :: Int -> PDOMDebuggerSetInstrumentationBreakpoint -> ShowS
$cshowsPrec :: Int -> PDOMDebuggerSetInstrumentationBreakpoint -> ShowS
Show)
pDOMDebuggerSetInstrumentationBreakpoint
:: T.Text
-> PDOMDebuggerSetInstrumentationBreakpoint
pDOMDebuggerSetInstrumentationBreakpoint :: Text -> PDOMDebuggerSetInstrumentationBreakpoint
pDOMDebuggerSetInstrumentationBreakpoint
Text
arg_pDOMDebuggerSetInstrumentationBreakpointEventName
= Text -> PDOMDebuggerSetInstrumentationBreakpoint
PDOMDebuggerSetInstrumentationBreakpoint
Text
arg_pDOMDebuggerSetInstrumentationBreakpointEventName
instance ToJSON PDOMDebuggerSetInstrumentationBreakpoint where
toJSON :: PDOMDebuggerSetInstrumentationBreakpoint -> Value
toJSON PDOMDebuggerSetInstrumentationBreakpoint
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
"eventName" 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
<$> Text -> Maybe Text
forall a. a -> Maybe a
Just (PDOMDebuggerSetInstrumentationBreakpoint -> Text
pDOMDebuggerSetInstrumentationBreakpointEventName PDOMDebuggerSetInstrumentationBreakpoint
p)
]
instance Command PDOMDebuggerSetInstrumentationBreakpoint where
type CommandResponse PDOMDebuggerSetInstrumentationBreakpoint = ()
commandName :: Proxy PDOMDebuggerSetInstrumentationBreakpoint -> String
commandName Proxy PDOMDebuggerSetInstrumentationBreakpoint
_ = String
"DOMDebugger.setInstrumentationBreakpoint"
fromJSON :: Proxy PDOMDebuggerSetInstrumentationBreakpoint
-> Value
-> Result
(CommandResponse PDOMDebuggerSetInstrumentationBreakpoint)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy PDOMDebuggerSetInstrumentationBreakpoint -> Result ())
-> Proxy PDOMDebuggerSetInstrumentationBreakpoint
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy PDOMDebuggerSetInstrumentationBreakpoint -> ())
-> Proxy PDOMDebuggerSetInstrumentationBreakpoint
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy PDOMDebuggerSetInstrumentationBreakpoint -> ()
forall a b. a -> b -> a
const ()
data PDOMDebuggerSetXHRBreakpoint = PDOMDebuggerSetXHRBreakpoint
{
PDOMDebuggerSetXHRBreakpoint -> Text
pDOMDebuggerSetXHRBreakpointUrl :: T.Text
}
deriving (PDOMDebuggerSetXHRBreakpoint
-> PDOMDebuggerSetXHRBreakpoint -> Bool
(PDOMDebuggerSetXHRBreakpoint
-> PDOMDebuggerSetXHRBreakpoint -> Bool)
-> (PDOMDebuggerSetXHRBreakpoint
-> PDOMDebuggerSetXHRBreakpoint -> Bool)
-> Eq PDOMDebuggerSetXHRBreakpoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PDOMDebuggerSetXHRBreakpoint
-> PDOMDebuggerSetXHRBreakpoint -> Bool
$c/= :: PDOMDebuggerSetXHRBreakpoint
-> PDOMDebuggerSetXHRBreakpoint -> Bool
== :: PDOMDebuggerSetXHRBreakpoint
-> PDOMDebuggerSetXHRBreakpoint -> Bool
$c== :: PDOMDebuggerSetXHRBreakpoint
-> PDOMDebuggerSetXHRBreakpoint -> Bool
Eq, Int -> PDOMDebuggerSetXHRBreakpoint -> ShowS
[PDOMDebuggerSetXHRBreakpoint] -> ShowS
PDOMDebuggerSetXHRBreakpoint -> String
(Int -> PDOMDebuggerSetXHRBreakpoint -> ShowS)
-> (PDOMDebuggerSetXHRBreakpoint -> String)
-> ([PDOMDebuggerSetXHRBreakpoint] -> ShowS)
-> Show PDOMDebuggerSetXHRBreakpoint
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PDOMDebuggerSetXHRBreakpoint] -> ShowS
$cshowList :: [PDOMDebuggerSetXHRBreakpoint] -> ShowS
show :: PDOMDebuggerSetXHRBreakpoint -> String
$cshow :: PDOMDebuggerSetXHRBreakpoint -> String
showsPrec :: Int -> PDOMDebuggerSetXHRBreakpoint -> ShowS
$cshowsPrec :: Int -> PDOMDebuggerSetXHRBreakpoint -> ShowS
Show)
pDOMDebuggerSetXHRBreakpoint
:: T.Text
-> PDOMDebuggerSetXHRBreakpoint
pDOMDebuggerSetXHRBreakpoint :: Text -> PDOMDebuggerSetXHRBreakpoint
pDOMDebuggerSetXHRBreakpoint
Text
arg_pDOMDebuggerSetXHRBreakpointUrl
= Text -> PDOMDebuggerSetXHRBreakpoint
PDOMDebuggerSetXHRBreakpoint
Text
arg_pDOMDebuggerSetXHRBreakpointUrl
instance ToJSON PDOMDebuggerSetXHRBreakpoint where
toJSON :: PDOMDebuggerSetXHRBreakpoint -> Value
toJSON PDOMDebuggerSetXHRBreakpoint
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
"url" 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
<$> Text -> Maybe Text
forall a. a -> Maybe a
Just (PDOMDebuggerSetXHRBreakpoint -> Text
pDOMDebuggerSetXHRBreakpointUrl PDOMDebuggerSetXHRBreakpoint
p)
]
instance Command PDOMDebuggerSetXHRBreakpoint where
type CommandResponse PDOMDebuggerSetXHRBreakpoint = ()
commandName :: Proxy PDOMDebuggerSetXHRBreakpoint -> String
commandName Proxy PDOMDebuggerSetXHRBreakpoint
_ = String
"DOMDebugger.setXHRBreakpoint"
fromJSON :: Proxy PDOMDebuggerSetXHRBreakpoint
-> Value -> Result (CommandResponse PDOMDebuggerSetXHRBreakpoint)
fromJSON = Result () -> Value -> Result ()
forall a b. a -> b -> a
const (Result () -> Value -> Result ())
-> (Proxy PDOMDebuggerSetXHRBreakpoint -> Result ())
-> Proxy PDOMDebuggerSetXHRBreakpoint
-> Value
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Result ()
forall a. a -> Result a
A.Success (() -> Result ())
-> (Proxy PDOMDebuggerSetXHRBreakpoint -> ())
-> Proxy PDOMDebuggerSetXHRBreakpoint
-> Result ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. () -> Proxy PDOMDebuggerSetXHRBreakpoint -> ()
forall a b. a -> b -> a
const ()