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


{- |
= DOMDebugger

DOM debugging allows setting breakpoints on particular DOM operations and events. JavaScript
execution will stop on these operations as if there was a regular breakpoint set.
-}


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


-- | Type 'DOMDebugger.DOMBreakpointType'.
--   DOM breakpoint type.
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"

-- | Type 'DOMDebugger.CSPViolationType'.
--   CSP Violation type.
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"

-- | Type 'DOMDebugger.EventListener'.
--   Object event listener.
data DOMDebuggerEventListener = DOMDebuggerEventListener
  {
    -- | `EventListener`'s type.
    DOMDebuggerEventListener -> Text
dOMDebuggerEventListenerType :: T.Text,
    -- | `EventListener`'s useCapture.
    DOMDebuggerEventListener -> Bool
dOMDebuggerEventListenerUseCapture :: Bool,
    -- | `EventListener`'s passive flag.
    DOMDebuggerEventListener -> Bool
dOMDebuggerEventListenerPassive :: Bool,
    -- | `EventListener`'s once flag.
    DOMDebuggerEventListener -> Bool
dOMDebuggerEventListenerOnce :: Bool,
    -- | Script id of the handler code.
    DOMDebuggerEventListener -> Text
dOMDebuggerEventListenerScriptId :: Runtime.RuntimeScriptId,
    -- | Line number in the script (0-based).
    DOMDebuggerEventListener -> Int
dOMDebuggerEventListenerLineNumber :: Int,
    -- | Column number in the script (0-based).
    DOMDebuggerEventListener -> Int
dOMDebuggerEventListenerColumnNumber :: Int,
    -- | Event handler function value.
    DOMDebuggerEventListener -> Maybe RuntimeRemoteObject
dOMDebuggerEventListenerHandler :: Maybe Runtime.RuntimeRemoteObject,
    -- | Event original handler function value.
    DOMDebuggerEventListener -> Maybe RuntimeRemoteObject
dOMDebuggerEventListenerOriginalHandler :: Maybe Runtime.RuntimeRemoteObject,
    -- | Node the listener is added to (if any).
    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)
    ]

-- | Returns event listeners of the given object.

-- | Parameters of the 'DOMDebugger.getEventListeners' command.
data PDOMDebuggerGetEventListeners = PDOMDebuggerGetEventListeners
  {
    -- | Identifier of the object to return listeners for.
    PDOMDebuggerGetEventListeners -> Text
pDOMDebuggerGetEventListenersObjectId :: Runtime.RuntimeRemoteObjectId,
    -- | The maximum depth at which Node children should be retrieved, defaults to 1. Use -1 for the
    --   entire subtree or provide an integer larger than 0.
    PDOMDebuggerGetEventListeners -> Maybe Int
pDOMDebuggerGetEventListenersDepth :: Maybe Int,
    -- | Whether or not iframes and shadow roots should be traversed when returning the subtree
    --   (default is false). Reports listeners for all contexts if pierce is enabled.
    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
  {-
  -- | Identifier of the object to return listeners for.
  -}
  :: 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
  {
    -- | Array of relevant listeners.
    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"

-- | Removes DOM breakpoint that was set using `setDOMBreakpoint`.

-- | Parameters of the 'DOMDebugger.removeDOMBreakpoint' command.
data PDOMDebuggerRemoveDOMBreakpoint = PDOMDebuggerRemoveDOMBreakpoint
  {
    -- | Identifier of the node to remove breakpoint from.
    PDOMDebuggerRemoveDOMBreakpoint -> Int
pDOMDebuggerRemoveDOMBreakpointNodeId :: DOMPageNetworkEmulationSecurity.DOMNodeId,
    -- | Type of the breakpoint to remove.
    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
  {-
  -- | Identifier of the node to remove breakpoint from.
  -}
  :: DOMPageNetworkEmulationSecurity.DOMNodeId
  {-
  -- | Type of the breakpoint to remove.
  -}
  -> 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 ()

-- | Removes breakpoint on particular DOM event.

-- | Parameters of the 'DOMDebugger.removeEventListenerBreakpoint' command.
data PDOMDebuggerRemoveEventListenerBreakpoint = PDOMDebuggerRemoveEventListenerBreakpoint
  {
    -- | Event name.
    PDOMDebuggerRemoveEventListenerBreakpoint -> Text
pDOMDebuggerRemoveEventListenerBreakpointEventName :: T.Text,
    -- | EventTarget interface name.
    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
  {-
  -- | Event name.
  -}
  :: 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 ()

-- | Removes breakpoint on particular native event.

-- | Parameters of the 'DOMDebugger.removeInstrumentationBreakpoint' command.
data PDOMDebuggerRemoveInstrumentationBreakpoint = PDOMDebuggerRemoveInstrumentationBreakpoint
  {
    -- | Instrumentation name to stop on.
    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
  {-
  -- | Instrumentation name to stop on.
  -}
  :: 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 ()

-- | Removes breakpoint from XMLHttpRequest.

-- | Parameters of the 'DOMDebugger.removeXHRBreakpoint' command.
data PDOMDebuggerRemoveXHRBreakpoint = PDOMDebuggerRemoveXHRBreakpoint
  {
    -- | Resource URL substring.
    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
  {-
  -- | Resource URL substring.
  -}
  :: 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 ()

-- | Sets breakpoint on particular CSP violations.

-- | Parameters of the 'DOMDebugger.setBreakOnCSPViolation' command.
data PDOMDebuggerSetBreakOnCSPViolation = PDOMDebuggerSetBreakOnCSPViolation
  {
    -- | CSP Violations to stop upon.
    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
  {-
  -- | CSP Violations to stop upon.
  -}
  :: [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 ()

-- | Sets breakpoint on particular operation with DOM.

-- | Parameters of the 'DOMDebugger.setDOMBreakpoint' command.
data PDOMDebuggerSetDOMBreakpoint = PDOMDebuggerSetDOMBreakpoint
  {
    -- | Identifier of the node to set breakpoint on.
    PDOMDebuggerSetDOMBreakpoint -> Int
pDOMDebuggerSetDOMBreakpointNodeId :: DOMPageNetworkEmulationSecurity.DOMNodeId,
    -- | Type of the operation to stop upon.
    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
  {-
  -- | Identifier of the node to set breakpoint on.
  -}
  :: DOMPageNetworkEmulationSecurity.DOMNodeId
  {-
  -- | Type of the operation to stop upon.
  -}
  -> 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 ()

-- | Sets breakpoint on particular DOM event.

-- | Parameters of the 'DOMDebugger.setEventListenerBreakpoint' command.
data PDOMDebuggerSetEventListenerBreakpoint = PDOMDebuggerSetEventListenerBreakpoint
  {
    -- | DOM Event name to stop on (any DOM event will do).
    PDOMDebuggerSetEventListenerBreakpoint -> Text
pDOMDebuggerSetEventListenerBreakpointEventName :: T.Text,
    -- | EventTarget interface name to stop on. If equal to `"*"` or not provided, will stop on any
    --   EventTarget.
    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
  {-
  -- | DOM Event name to stop on (any DOM event will do).
  -}
  :: 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 ()

-- | Sets breakpoint on particular native event.

-- | Parameters of the 'DOMDebugger.setInstrumentationBreakpoint' command.
data PDOMDebuggerSetInstrumentationBreakpoint = PDOMDebuggerSetInstrumentationBreakpoint
  {
    -- | Instrumentation name to stop on.
    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
  {-
  -- | Instrumentation name to stop on.
  -}
  :: 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 ()

-- | Sets breakpoint on XMLHttpRequest.

-- | Parameters of the 'DOMDebugger.setXHRBreakpoint' command.
data PDOMDebuggerSetXHRBreakpoint = PDOMDebuggerSetXHRBreakpoint
  {
    -- | Resource URL substring. All XHRs having this substring in the URL will get stopped upon.
    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
  {-
  -- | Resource URL substring. All XHRs having this substring in the URL will get stopped upon.
  -}
  :: 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 ()