{-# LANGUAGE CPP #-}
module WebDriverPreCore.BiDi.API
(
sessionNew,
sessionStatus,
sessionEnd,
sessionSubscribe,
sessionUnsubscribe,
browsingContextActivate,
browsingContextCaptureScreenshot,
browsingContextClose,
browsingContextCreate,
browsingContextGetTree,
browsingContextHandleUserPrompt,
browsingContextLocateNodes,
browsingContextNavigate,
browsingContextPrint,
browsingContextReload,
browsingContextSetViewport,
browsingContextTraverseHistory,
browserClose,
browserCreateUserContext,
browserGetClientWindows,
browserGetUserContexts,
browserRemoveUserContext,
browserSetClientWindowState,
browserSetDownloadBehavior,
emulationSetForcedColorsModeThemeOverride,
emulationSetGeolocationOverride,
emulationSetLocaleOverride,
emulationSetNetworkConditions,
emulationSetScreenOrientationOverride,
emulationSetScreenSettingsOverride,
emulationSetScriptingEnabled,
emulationSetTimezoneOverride,
emulationSetTouchOverride,
emulationSetUserAgentOverride,
inputPerformActions,
inputReleaseActions,
inputSetFiles,
networkAddDataCollector,
networkAddIntercept,
networkContinueRequest,
networkContinueResponse,
networkContinueWithAuth,
networkDisownData,
networkFailRequest,
networkGetData,
networkProvideResponse,
networkRemoveDataCollector,
networkRemoveIntercept,
networkSetCacheBehavior,
networkSetExtraHeaders,
scriptAddPreloadScript,
scriptCallFunction,
scriptDisown,
scriptEvaluate,
scriptGetRealms,
scriptRemovePreloadScript,
storageDeleteCookies,
storageGetCookies,
storageSetCookie,
webExtensionInstall,
webExtensionUninstall,
subscribeLogEntryAdded,
subscribeBrowsingContextCreated,
subscribeBrowsingContextDestroyed,
subscribeBrowsingContextNavigationStarted,
subscribeBrowsingContextFragmentNavigated,
subscribeBrowsingContextHistoryUpdated,
subscribeBrowsingContextDomContentLoaded,
subscribeBrowsingContextLoad,
subscribeBrowsingContextDownloadWillBegin,
subscribeBrowsingContextDownloadEnd,
subscribeBrowsingContextNavigationAborted,
subscribeBrowsingContextNavigationCommitted,
subscribeBrowsingContextNavigationFailed,
subscribeBrowsingContextUserPromptClosed,
subscribeBrowsingContextUserPromptOpened,
subscribeNetworkAuthRequired,
subscribeNetworkBeforeRequestSent,
subscribeNetworkFetchError,
subscribeNetworkResponseCompleted,
subscribeNetworkResponseStarted,
subscribeScriptMessage,
subscribeScriptRealmCreated,
subscribeScriptRealmDestroyed,
subscribeInputFileDialogOpened,
subscribeMany,
subscribeOffSpecMany,
)
where
import Data.Aeson (Value)
import WebDriverPreCore.BiDi.Protocol
( Activate,
AddDataCollector,
AddDataCollectorResult,
AddIntercept,
AddInterceptResult,
AddPreloadScript,
AddPreloadScriptResult,
AuthRequired,
BeforeRequestSent,
BrowsingContext,
CallFunction,
Capabilities,
CaptureScreenshot,
CaptureScreenshotResult,
ClientWindowInfo,
Close,
Command,
ContinueRequest,
ContinueResponse,
ContinueWithAuth,
Create,
CreateUserContext,
DeleteCookies,
DeleteCookiesResult,
Disown,
DisownData,
DownloadEnd,
DownloadWillBegin,
Evaluate,
EvaluateResult,
Event,
FailRequest,
FetchError,
FileDialogOpened,
GetClientWindowsResult,
GetCookies,
GetCookiesResult,
GetData,
GetDataResult,
GetRealms,
GetRealmsResult,
GetTree,
GetTreeResult,
GetUserContextsResult,
HandleUserPrompt,
HistoryUpdated,
Info,
KnownCommand (..),
KnownSubscriptionType (..),
LocateNodes,
LocateNodesResult,
LogEntry,
Navigate,
NavigateResult,
NavigationInfo,
PerformActions,
Print,
PrintResult,
ProvideResponse,
RealmDestroyed,
ReleaseActions,
Reload,
RemoveDataCollector,
RemoveIntercept,
RemovePreloadScript,
RemoveUserContext,
ResponseCompleted,
ResponseStarted,
SessionNewResult,
SessionStatusResult,
SessionSubscibe (..),
SessionSubscribeResult (..),
SessionUnsubscribe (..),
SetCacheBehavior,
SetClientWindowState,
SetCookie,
SetCookieResult,
SetDownloadBehavior,
SetExtraHeaders,
SetFiles,
SetForcedColorsModeThemeOverride,
SetGeolocationOverride,
SetLocaleOverride,
SetNetworkConditions,
SetScreenOrientationOverride,
SetScreenSettingsOverride,
SetScriptingEnabled,
SetTimezoneOverride,
SetTouchOverride,
SetUserAgentOverride,
SetViewport,
Subscription,
TraverseHistory,
OffSpecSubscriptionType,
UserContext,
UserPromptClosed,
UserPromptOpened,
WebExtensionInstall,
WebExtensionResult,
WebExtensionUninstall,
emptyCommand,
mkCommand,
mkMultiSubscription,
mkSubscription,
mkOffSpecSubscription,
)
import WebDriverPreCore.BiDi.Script (Message, RealmInfo)
sessionNew :: Capabilities -> Command SessionNewResult
sessionNew :: Capabilities -> Command SessionNewResult
sessionNew = KnownCommand -> Capabilities -> Command SessionNewResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
SessionNew
sessionStatus :: Command SessionStatusResult
sessionStatus :: Command SessionStatusResult
sessionStatus = KnownCommand -> Command SessionStatusResult
forall {k} (r :: k). KnownCommand -> Command r
emptyCommand KnownCommand
SessionStatus
sessionEnd :: Command ()
sessionEnd :: Command ()
sessionEnd = KnownCommand -> Command ()
forall {k} (r :: k). KnownCommand -> Command r
emptyCommand KnownCommand
SessionEnd
sessionSubscribe :: SessionSubscibe -> Command SessionSubscribeResult
sessionSubscribe :: SessionSubscibe -> Command SessionSubscribeResult
sessionSubscribe = KnownCommand -> SessionSubscibe -> Command SessionSubscribeResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
SessionSubscribe
sessionUnsubscribe :: SessionUnsubscribe -> Command ()
sessionUnsubscribe :: SessionUnsubscribe -> Command ()
sessionUnsubscribe = KnownCommand -> SessionUnsubscribe -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
SessionUnsubscribe
browsingContextActivate :: Activate -> Command ()
browsingContextActivate :: Activate -> Command ()
browsingContextActivate = KnownCommand -> Activate -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
BrowsingContextActivate
browsingContextCaptureScreenshot :: CaptureScreenshot -> Command CaptureScreenshotResult
browsingContextCaptureScreenshot :: CaptureScreenshot -> Command CaptureScreenshotResult
browsingContextCaptureScreenshot = KnownCommand
-> CaptureScreenshot -> Command CaptureScreenshotResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
BrowsingContextCaptureScreenshot
browsingContextClose :: Close -> Command ()
browsingContextClose :: Close -> Command ()
browsingContextClose = KnownCommand -> Close -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
BrowsingContextClose
browsingContextCreate :: Create -> Command BrowsingContext
browsingContextCreate :: Create -> Command BrowsingContext
browsingContextCreate = KnownCommand -> Create -> Command BrowsingContext
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
BrowsingContextCreate
browsingContextGetTree :: GetTree -> Command GetTreeResult
browsingContextGetTree :: GetTree -> Command GetTreeResult
browsingContextGetTree = KnownCommand -> GetTree -> Command GetTreeResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
BrowsingContextGetTree
browsingContextHandleUserPrompt :: HandleUserPrompt -> Command ()
browsingContextHandleUserPrompt :: HandleUserPrompt -> Command ()
browsingContextHandleUserPrompt = KnownCommand -> HandleUserPrompt -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
BrowsingContextHandleUserPrompt
browsingContextLocateNodes :: LocateNodes -> Command LocateNodesResult
browsingContextLocateNodes :: LocateNodes -> Command LocateNodesResult
browsingContextLocateNodes = KnownCommand -> LocateNodes -> Command LocateNodesResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
BrowsingContextLocateNodes
browsingContextNavigate :: Navigate -> Command NavigateResult
browsingContextNavigate :: Navigate -> Command NavigateResult
browsingContextNavigate = KnownCommand -> Navigate -> Command NavigateResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
BrowsingContextNavigate
browsingContextPrint :: Print -> Command PrintResult
browsingContextPrint :: Print -> Command PrintResult
browsingContextPrint = KnownCommand -> Print -> Command PrintResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
BrowsingContextPrint
browsingContextReload :: Reload -> Command ()
browsingContextReload :: Reload -> Command ()
browsingContextReload = KnownCommand -> Reload -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
BrowsingContextReload
browsingContextSetViewport :: SetViewport -> Command ()
browsingContextSetViewport :: SetViewport -> Command ()
browsingContextSetViewport = KnownCommand -> SetViewport -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
BrowsingContextSetViewport
browsingContextTraverseHistory :: TraverseHistory -> Command ()
browsingContextTraverseHistory :: TraverseHistory -> Command ()
browsingContextTraverseHistory = KnownCommand -> TraverseHistory -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
BrowsingContextTraverseHistory
browserClose :: Command ()
browserClose :: Command ()
browserClose = KnownCommand -> Command ()
forall {k} (r :: k). KnownCommand -> Command r
emptyCommand KnownCommand
BrowserClose
browserCreateUserContext :: CreateUserContext -> Command UserContext
browserCreateUserContext :: CreateUserContext -> Command UserContext
browserCreateUserContext = KnownCommand -> CreateUserContext -> Command UserContext
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
BrowserCreateUserContext
browserGetClientWindows :: Command GetClientWindowsResult
browserGetClientWindows :: Command GetClientWindowsResult
browserGetClientWindows = KnownCommand -> Command GetClientWindowsResult
forall {k} (r :: k). KnownCommand -> Command r
emptyCommand KnownCommand
BrowserGetClientWindows
browserGetUserContexts :: Command GetUserContextsResult
browserGetUserContexts :: Command GetUserContextsResult
browserGetUserContexts = KnownCommand -> Command GetUserContextsResult
forall {k} (r :: k). KnownCommand -> Command r
emptyCommand KnownCommand
BrowserGetUserContexts
browserRemoveUserContext :: RemoveUserContext -> Command ()
browserRemoveUserContext :: RemoveUserContext -> Command ()
browserRemoveUserContext = KnownCommand -> RemoveUserContext -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
BrowserRemoveUserContext
browserSetClientWindowState :: SetClientWindowState -> Command ClientWindowInfo
browserSetClientWindowState :: SetClientWindowState -> Command ClientWindowInfo
browserSetClientWindowState = KnownCommand -> SetClientWindowState -> Command ClientWindowInfo
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
BrowserSetClientWindowState
browserSetDownloadBehavior :: SetDownloadBehavior -> Command ()
browserSetDownloadBehavior :: SetDownloadBehavior -> Command ()
browserSetDownloadBehavior = KnownCommand -> SetDownloadBehavior -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
BrowserSetDownloadBehavior
emulationSetForcedColorsModeThemeOverride :: SetForcedColorsModeThemeOverride -> Command ()
emulationSetForcedColorsModeThemeOverride :: SetForcedColorsModeThemeOverride -> Command ()
emulationSetForcedColorsModeThemeOverride = KnownCommand -> SetForcedColorsModeThemeOverride -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
EmulationSetForcedColorsModeThemeOverride
emulationSetGeolocationOverride :: SetGeolocationOverride -> Command ()
emulationSetGeolocationOverride :: SetGeolocationOverride -> Command ()
emulationSetGeolocationOverride = KnownCommand -> SetGeolocationOverride -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
EmulationSetGeolocationOverride
emulationSetLocaleOverride :: SetLocaleOverride -> Command ()
emulationSetLocaleOverride :: SetLocaleOverride -> Command ()
emulationSetLocaleOverride = KnownCommand -> SetLocaleOverride -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
EmulationSetLocaleOverride
emulationSetNetworkConditions :: SetNetworkConditions -> Command ()
emulationSetNetworkConditions :: SetNetworkConditions -> Command ()
emulationSetNetworkConditions = KnownCommand -> SetNetworkConditions -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
EmulationSetNetworkConditions
emulationSetScreenOrientationOverride :: SetScreenOrientationOverride -> Command ()
emulationSetScreenOrientationOverride :: SetScreenOrientationOverride -> Command ()
emulationSetScreenOrientationOverride = KnownCommand -> SetScreenOrientationOverride -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
EmulationSetScreenOrientationOverride
emulationSetScreenSettingsOverride :: SetScreenSettingsOverride -> Command ()
emulationSetScreenSettingsOverride :: SetScreenSettingsOverride -> Command ()
emulationSetScreenSettingsOverride = KnownCommand -> SetScreenSettingsOverride -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
EmulationSetScreenSettingsOverride
emulationSetScriptingEnabled :: SetScriptingEnabled -> Command ()
emulationSetScriptingEnabled :: SetScriptingEnabled -> Command ()
emulationSetScriptingEnabled = KnownCommand -> SetScriptingEnabled -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
EmulationSetScriptingEnabled
emulationSetTimezoneOverride :: SetTimezoneOverride -> Command ()
emulationSetTimezoneOverride :: SetTimezoneOverride -> Command ()
emulationSetTimezoneOverride = KnownCommand -> SetTimezoneOverride -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
EmulationSetTimezoneOverride
emulationSetTouchOverride :: SetTouchOverride -> Command ()
emulationSetTouchOverride :: SetTouchOverride -> Command ()
emulationSetTouchOverride = KnownCommand -> SetTouchOverride -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
EmulationSetTouchOverride
emulationSetUserAgentOverride :: SetUserAgentOverride -> Command ()
emulationSetUserAgentOverride :: SetUserAgentOverride -> Command ()
emulationSetUserAgentOverride = KnownCommand -> SetUserAgentOverride -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
EmulationSetUserAgentOverride
inputPerformActions :: PerformActions -> Command ()
inputPerformActions :: PerformActions -> Command ()
inputPerformActions = KnownCommand -> PerformActions -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
InputPerformActions
inputReleaseActions :: ReleaseActions -> Command ()
inputReleaseActions :: ReleaseActions -> Command ()
inputReleaseActions = KnownCommand -> ReleaseActions -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
InputReleaseActions
inputSetFiles :: SetFiles -> Command ()
inputSetFiles :: SetFiles -> Command ()
inputSetFiles = KnownCommand -> SetFiles -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
InputSetFiles
networkAddDataCollector :: AddDataCollector -> Command AddDataCollectorResult
networkAddDataCollector :: AddDataCollector -> Command AddDataCollectorResult
networkAddDataCollector = KnownCommand -> AddDataCollector -> Command AddDataCollectorResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
NetworkAddDataCollector
networkAddIntercept :: AddIntercept -> Command AddInterceptResult
networkAddIntercept :: AddIntercept -> Command AddInterceptResult
networkAddIntercept = KnownCommand -> AddIntercept -> Command AddInterceptResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
NetworkAddIntercept
networkContinueRequest :: ContinueRequest -> Command ()
networkContinueRequest :: ContinueRequest -> Command ()
networkContinueRequest = KnownCommand -> ContinueRequest -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
NetworkContinueRequest
networkContinueResponse :: ContinueResponse -> Command ()
networkContinueResponse :: ContinueResponse -> Command ()
networkContinueResponse = KnownCommand -> ContinueResponse -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
NetworkContinueResponse
networkContinueWithAuth :: ContinueWithAuth -> Command ()
networkContinueWithAuth :: ContinueWithAuth -> Command ()
networkContinueWithAuth = KnownCommand -> ContinueWithAuth -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
NetworkContinueWithAuth
networkDisownData :: DisownData -> Command ()
networkDisownData :: DisownData -> Command ()
networkDisownData = KnownCommand -> DisownData -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
NetworkDisownData
networkFailRequest :: FailRequest -> Command ()
networkFailRequest :: FailRequest -> Command ()
networkFailRequest = KnownCommand -> FailRequest -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
NetworkFailRequest
networkGetData :: GetData -> Command GetDataResult
networkGetData :: GetData -> Command GetDataResult
networkGetData = KnownCommand -> GetData -> Command GetDataResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
NetworkGetData
networkProvideResponse :: ProvideResponse -> Command ()
networkProvideResponse :: ProvideResponse -> Command ()
networkProvideResponse = KnownCommand -> ProvideResponse -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
NetworkProvideResponse
networkRemoveDataCollector :: RemoveDataCollector -> Command ()
networkRemoveDataCollector :: RemoveDataCollector -> Command ()
networkRemoveDataCollector = KnownCommand -> RemoveDataCollector -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
NetworkRemoveDataCollector
networkRemoveIntercept :: RemoveIntercept -> Command ()
networkRemoveIntercept :: RemoveIntercept -> Command ()
networkRemoveIntercept = KnownCommand -> RemoveIntercept -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
NetworkRemoveIntercept
networkSetCacheBehavior :: SetCacheBehavior -> Command ()
networkSetCacheBehavior :: SetCacheBehavior -> Command ()
networkSetCacheBehavior = KnownCommand -> SetCacheBehavior -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
NetworkSetCacheBehavior
networkSetExtraHeaders :: SetExtraHeaders -> Command ()
= KnownCommand -> SetExtraHeaders -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
NetworkSetExtraHeaders
scriptAddPreloadScript :: AddPreloadScript -> Command AddPreloadScriptResult
scriptAddPreloadScript :: AddPreloadScript -> Command AddPreloadScriptResult
scriptAddPreloadScript = KnownCommand -> AddPreloadScript -> Command AddPreloadScriptResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
ScriptAddPreloadScript
scriptCallFunction :: CallFunction -> Command EvaluateResult
scriptCallFunction :: CallFunction -> Command EvaluateResult
scriptCallFunction = KnownCommand -> CallFunction -> Command EvaluateResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
ScriptCallFunction
scriptDisown :: Disown -> Command ()
scriptDisown :: Disown -> Command ()
scriptDisown = KnownCommand -> Disown -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
ScriptDisown
scriptEvaluate :: Evaluate -> Command EvaluateResult
scriptEvaluate :: Evaluate -> Command EvaluateResult
scriptEvaluate = KnownCommand -> Evaluate -> Command EvaluateResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
ScriptEvaluate
scriptGetRealms :: GetRealms -> Command GetRealmsResult
scriptGetRealms :: GetRealms -> Command GetRealmsResult
scriptGetRealms = KnownCommand -> GetRealms -> Command GetRealmsResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
ScriptGetRealms
scriptRemovePreloadScript :: RemovePreloadScript -> Command ()
scriptRemovePreloadScript :: RemovePreloadScript -> Command ()
scriptRemovePreloadScript = KnownCommand -> RemovePreloadScript -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
ScriptRemovePreloadScript
storageDeleteCookies :: DeleteCookies -> Command DeleteCookiesResult
storageDeleteCookies :: DeleteCookies -> Command DeleteCookiesResult
storageDeleteCookies = KnownCommand -> DeleteCookies -> Command DeleteCookiesResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
StorageDeleteCookies
storageGetCookies :: GetCookies -> Command GetCookiesResult
storageGetCookies :: GetCookies -> Command GetCookiesResult
storageGetCookies = KnownCommand -> GetCookies -> Command GetCookiesResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
StorageGetCookies
storageSetCookie :: SetCookie -> Command SetCookieResult
storageSetCookie :: SetCookie -> Command SetCookieResult
storageSetCookie = KnownCommand -> SetCookie -> Command SetCookieResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
StorageSetCookie
webExtensionInstall :: WebExtensionInstall -> Command WebExtensionResult
webExtensionInstall :: WebExtensionInstall -> Command WebExtensionResult
webExtensionInstall = KnownCommand -> WebExtensionInstall -> Command WebExtensionResult
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
WebExtensionInstall
webExtensionUninstall :: WebExtensionUninstall -> Command ()
webExtensionUninstall :: WebExtensionUninstall -> Command ()
webExtensionUninstall = KnownCommand -> WebExtensionUninstall -> Command ()
forall {k} c (r :: k). ToJSON c => KnownCommand -> c -> Command r
mkCommand KnownCommand
WebExtensionUninstall
subscribeMany ::
[KnownSubscriptionType] ->
[BrowsingContext] ->
[UserContext] ->
(Event -> m ()) ->
Subscription m
subscribeMany :: forall (m :: * -> *).
[KnownSubscriptionType]
-> [BrowsingContext]
-> [UserContext]
-> (Event -> m ())
-> Subscription m
subscribeMany = [KnownSubscriptionType]
-> [BrowsingContext]
-> [UserContext]
-> (Event -> m ())
-> Subscription m
forall (m :: * -> *).
[KnownSubscriptionType]
-> [BrowsingContext]
-> [UserContext]
-> (Event -> m ())
-> Subscription m
mkMultiSubscription
subscribeOffSpecMany ::
[OffSpecSubscriptionType] ->
[BrowsingContext] ->
[UserContext] ->
(Value -> m ()) ->
Subscription m
subscribeOffSpecMany :: forall (m :: * -> *).
[OffSpecSubscriptionType]
-> [BrowsingContext]
-> [UserContext]
-> (Value -> m ())
-> Subscription m
subscribeOffSpecMany = [OffSpecSubscriptionType]
-> [BrowsingContext]
-> [UserContext]
-> (Value -> m ())
-> Subscription m
forall (m :: * -> *).
[OffSpecSubscriptionType]
-> [BrowsingContext]
-> [UserContext]
-> (Value -> m ())
-> Subscription m
mkOffSpecSubscription
subscribeBrowsingContextCreated ::
[BrowsingContext] ->
[UserContext] ->
(Info -> m ()) ->
Subscription m
subscribeBrowsingContextCreated :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (Info -> m ()) -> Subscription m
subscribeBrowsingContextCreated = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (Info -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
BrowsingContextContextCreated
subscribeBrowsingContextDestroyed ::
[BrowsingContext] ->
[UserContext] ->
(Info -> m ()) ->
Subscription m
subscribeBrowsingContextDestroyed :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (Info -> m ()) -> Subscription m
subscribeBrowsingContextDestroyed = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (Info -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
BrowsingContextContextDestroyed
subscribeBrowsingContextNavigationStarted ::
[BrowsingContext] ->
[UserContext] ->
(NavigationInfo -> m ()) ->
Subscription m
subscribeBrowsingContextNavigationStarted :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (NavigationInfo -> m ()) -> Subscription m
subscribeBrowsingContextNavigationStarted = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (NavigationInfo -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
BrowsingContextNavigationStarted
subscribeBrowsingContextFragmentNavigated ::
[BrowsingContext] ->
[UserContext] ->
(NavigationInfo -> m ()) ->
Subscription m
subscribeBrowsingContextFragmentNavigated :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (NavigationInfo -> m ()) -> Subscription m
subscribeBrowsingContextFragmentNavigated = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (NavigationInfo -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
BrowsingContextFragmentNavigated
subscribeBrowsingContextHistoryUpdated ::
[BrowsingContext] ->
[UserContext] ->
(HistoryUpdated -> m ()) ->
Subscription m
subscribeBrowsingContextHistoryUpdated :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (HistoryUpdated -> m ()) -> Subscription m
subscribeBrowsingContextHistoryUpdated = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (HistoryUpdated -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
BrowsingContextHistoryUpdated
subscribeBrowsingContextDomContentLoaded ::
[BrowsingContext] ->
[UserContext] ->
(NavigationInfo -> m ()) ->
Subscription m
subscribeBrowsingContextDomContentLoaded :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (NavigationInfo -> m ()) -> Subscription m
subscribeBrowsingContextDomContentLoaded = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (NavigationInfo -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
BrowsingContextDomContentLoaded
subscribeBrowsingContextLoad ::
[BrowsingContext] ->
[UserContext] ->
(NavigationInfo -> m ()) ->
Subscription m
subscribeBrowsingContextLoad :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (NavigationInfo -> m ()) -> Subscription m
subscribeBrowsingContextLoad = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (NavigationInfo -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
BrowsingContextLoad
subscribeBrowsingContextDownloadWillBegin ::
[BrowsingContext] ->
[UserContext] ->
(DownloadWillBegin -> m ()) ->
Subscription m
subscribeBrowsingContextDownloadWillBegin :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (DownloadWillBegin -> m ()) -> Subscription m
subscribeBrowsingContextDownloadWillBegin = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (DownloadWillBegin -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
BrowsingContextDownloadWillBegin
subscribeBrowsingContextDownloadEnd ::
[BrowsingContext] ->
[UserContext] ->
(DownloadEnd -> m ()) ->
Subscription m
subscribeBrowsingContextDownloadEnd :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (DownloadEnd -> m ()) -> Subscription m
subscribeBrowsingContextDownloadEnd = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (DownloadEnd -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
BrowsingContextDownloadEnd
subscribeBrowsingContextNavigationAborted ::
[BrowsingContext] ->
[UserContext] ->
(NavigationInfo -> m ()) ->
Subscription m
subscribeBrowsingContextNavigationAborted :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (NavigationInfo -> m ()) -> Subscription m
subscribeBrowsingContextNavigationAborted = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (NavigationInfo -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
BrowsingContextNavigationAborted
subscribeBrowsingContextNavigationCommitted ::
[BrowsingContext] ->
[UserContext] ->
(NavigationInfo -> m ()) ->
Subscription m
subscribeBrowsingContextNavigationCommitted :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (NavigationInfo -> m ()) -> Subscription m
subscribeBrowsingContextNavigationCommitted = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (NavigationInfo -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
BrowsingContextNavigationCommitted
subscribeBrowsingContextNavigationFailed ::
[BrowsingContext] ->
[UserContext] ->
(NavigationInfo -> m ()) ->
Subscription m
subscribeBrowsingContextNavigationFailed :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (NavigationInfo -> m ()) -> Subscription m
subscribeBrowsingContextNavigationFailed = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (NavigationInfo -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
BrowsingContextNavigationFailed
subscribeBrowsingContextUserPromptClosed ::
[BrowsingContext] ->
[UserContext] ->
(UserPromptClosed -> m ()) ->
Subscription m
subscribeBrowsingContextUserPromptClosed :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (UserPromptClosed -> m ()) -> Subscription m
subscribeBrowsingContextUserPromptClosed = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (UserPromptClosed -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
BrowsingContextUserPromptClosed
subscribeBrowsingContextUserPromptOpened ::
[BrowsingContext] ->
[UserContext] ->
(UserPromptOpened -> m ()) ->
Subscription m
subscribeBrowsingContextUserPromptOpened :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (UserPromptOpened -> m ()) -> Subscription m
subscribeBrowsingContextUserPromptOpened = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (UserPromptOpened -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
BrowsingContextUserPromptOpened
subscribeLogEntryAdded ::
[BrowsingContext] ->
[UserContext] ->
(LogEntry -> m ()) ->
Subscription m
subscribeLogEntryAdded :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (LogEntry -> m ()) -> Subscription m
subscribeLogEntryAdded = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (LogEntry -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
LogEntryAdded
subscribeNetworkAuthRequired ::
[BrowsingContext] ->
[UserContext] ->
(AuthRequired -> m ()) ->
Subscription m
subscribeNetworkAuthRequired :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (AuthRequired -> m ()) -> Subscription m
subscribeNetworkAuthRequired = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (AuthRequired -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
NetworkAuthRequired
subscribeNetworkBeforeRequestSent ::
[BrowsingContext] ->
[UserContext] ->
(BeforeRequestSent -> m ()) ->
Subscription m
subscribeNetworkBeforeRequestSent :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (BeforeRequestSent -> m ()) -> Subscription m
subscribeNetworkBeforeRequestSent = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (BeforeRequestSent -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
NetworkBeforeRequestSent
subscribeNetworkFetchError ::
[BrowsingContext] ->
[UserContext] ->
(FetchError -> m ()) ->
Subscription m
subscribeNetworkFetchError :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (FetchError -> m ()) -> Subscription m
subscribeNetworkFetchError = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (FetchError -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
NetworkFetchError
subscribeNetworkResponseCompleted ::
[BrowsingContext] ->
[UserContext] ->
(ResponseCompleted -> m ()) ->
Subscription m
subscribeNetworkResponseCompleted :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (ResponseCompleted -> m ()) -> Subscription m
subscribeNetworkResponseCompleted = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (ResponseCompleted -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
NetworkResponseCompleted
subscribeNetworkResponseStarted ::
[BrowsingContext] ->
[UserContext] ->
(ResponseStarted -> m ()) ->
Subscription m
subscribeNetworkResponseStarted :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (ResponseStarted -> m ()) -> Subscription m
subscribeNetworkResponseStarted = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (ResponseStarted -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
NetworkResponseStarted
subscribeScriptMessage ::
[BrowsingContext] ->
[UserContext] ->
(Message -> m ()) ->
Subscription m
subscribeScriptMessage :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (Message -> m ()) -> Subscription m
subscribeScriptMessage = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (Message -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
ScriptMessage
subscribeScriptRealmCreated ::
[BrowsingContext] ->
[UserContext] ->
(RealmInfo -> m ()) ->
Subscription m
subscribeScriptRealmCreated :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (RealmInfo -> m ()) -> Subscription m
subscribeScriptRealmCreated = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (RealmInfo -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
ScriptRealmCreated
subscribeScriptRealmDestroyed ::
[BrowsingContext] ->
[UserContext] ->
(RealmDestroyed -> m ()) ->
Subscription m
subscribeScriptRealmDestroyed :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (RealmDestroyed -> m ()) -> Subscription m
subscribeScriptRealmDestroyed = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (RealmDestroyed -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
ScriptRealmDestroyed
subscribeInputFileDialogOpened ::
[BrowsingContext] ->
[UserContext] ->
(FileDialogOpened -> m ()) ->
Subscription m
subscribeInputFileDialogOpened :: forall (m :: * -> *).
[BrowsingContext]
-> [UserContext] -> (FileDialogOpened -> m ()) -> Subscription m
subscribeInputFileDialogOpened = KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (FileDialogOpened -> m ())
-> Subscription m
forall (m :: * -> *) r.
FromJSON r =>
KnownSubscriptionType
-> [BrowsingContext]
-> [UserContext]
-> (r -> m ())
-> Subscription m
mkSubscription KnownSubscriptionType
InputFileDialogOpened