{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.InspectorFrontendHost
(loaded, closeWindow, bringToFront, inspectedURLChanged,
setZoomFactor, zoomFactor, zoomFactor_,
userInterfaceLayoutDirection, userInterfaceLayoutDirection_,
requestSetDockSide, setAttachedWindowHeight,
setAttachedWindowWidth, startWindowDrag, moveWindowBy,
localizedStringsURL, localizedStringsURL_, backendCommandsURL,
backendCommandsURL_, debuggableType, debuggableType_,
inspectionLevel, inspectionLevel_, copyText, killText,
openInNewTab, canSave, canSave_, save, append, close, platform,
platform_, port, port_, showContextMenu,
dispatchEventAsContextMenuEvent, sendMessageToBackend,
unbufferedLog, isUnderTest, isUnderTest_, beep,
InspectorFrontendHost(..), gTypeInspectorFrontendHost)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums
loaded :: (MonadDOM m) => InspectorFrontendHost -> m ()
loaded :: InspectorFrontendHost -> m ()
loaded InspectorFrontendHost
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"loaded" ()))
closeWindow :: (MonadDOM m) => InspectorFrontendHost -> m ()
closeWindow :: InspectorFrontendHost -> m ()
closeWindow InspectorFrontendHost
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"closeWindow" ()))
bringToFront :: (MonadDOM m) => InspectorFrontendHost -> m ()
bringToFront :: InspectorFrontendHost -> m ()
bringToFront InspectorFrontendHost
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"bringToFront" ()))
inspectedURLChanged ::
(MonadDOM m, ToJSString newURL) =>
InspectorFrontendHost -> newURL -> m ()
inspectedURLChanged :: InspectorFrontendHost -> newURL -> m ()
inspectedURLChanged InspectorFrontendHost
self newURL
newURL
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"inspectedURLChanged" [newURL -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal newURL
newURL]))
setZoomFactor ::
(MonadDOM m) => InspectorFrontendHost -> Float -> m ()
setZoomFactor :: InspectorFrontendHost -> Float -> m ()
setZoomFactor InspectorFrontendHost
self Float
zoom
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"setZoomFactor" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
zoom]))
zoomFactor :: (MonadDOM m) => InspectorFrontendHost -> m Float
zoomFactor :: InspectorFrontendHost -> m Float
zoomFactor InspectorFrontendHost
self
= DOM Float -> m Float
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac (Double -> Float) -> JSM Double -> DOM Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"zoomFactor" ()) JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
zoomFactor_ :: (MonadDOM m) => InspectorFrontendHost -> m ()
zoomFactor_ :: InspectorFrontendHost -> m ()
zoomFactor_ InspectorFrontendHost
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"zoomFactor" ()))
userInterfaceLayoutDirection ::
(MonadDOM m, FromJSString result) =>
InspectorFrontendHost -> m result
userInterfaceLayoutDirection :: InspectorFrontendHost -> m result
userInterfaceLayoutDirection InspectorFrontendHost
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"userInterfaceLayoutDirection" ()) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
userInterfaceLayoutDirection_ ::
(MonadDOM m) => InspectorFrontendHost -> m ()
userInterfaceLayoutDirection_ :: InspectorFrontendHost -> m ()
userInterfaceLayoutDirection_ InspectorFrontendHost
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"userInterfaceLayoutDirection" ()))
requestSetDockSide ::
(MonadDOM m, ToJSString side) =>
InspectorFrontendHost -> side -> m ()
requestSetDockSide :: InspectorFrontendHost -> side -> m ()
requestSetDockSide InspectorFrontendHost
self side
side
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"requestSetDockSide" [side -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal side
side]))
setAttachedWindowHeight ::
(MonadDOM m) => InspectorFrontendHost -> Word -> m ()
setAttachedWindowHeight :: InspectorFrontendHost -> Word -> m ()
setAttachedWindowHeight InspectorFrontendHost
self Word
height
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"setAttachedWindowHeight" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
height]))
setAttachedWindowWidth ::
(MonadDOM m) => InspectorFrontendHost -> Word -> m ()
setAttachedWindowWidth :: InspectorFrontendHost -> Word -> m ()
setAttachedWindowWidth InspectorFrontendHost
self Word
width
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"setAttachedWindowWidth" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
width]))
startWindowDrag :: (MonadDOM m) => InspectorFrontendHost -> m ()
startWindowDrag :: InspectorFrontendHost -> m ()
startWindowDrag InspectorFrontendHost
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"startWindowDrag" ()))
moveWindowBy ::
(MonadDOM m) => InspectorFrontendHost -> Float -> Float -> m ()
moveWindowBy :: InspectorFrontendHost -> Float -> Float -> m ()
moveWindowBy InspectorFrontendHost
self Float
x Float
y
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"moveWindowBy" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
x, Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
y]))
localizedStringsURL ::
(MonadDOM m, FromJSString result) =>
InspectorFrontendHost -> m result
localizedStringsURL :: InspectorFrontendHost -> m result
localizedStringsURL InspectorFrontendHost
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"localizedStringsURL" ()) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
localizedStringsURL_ ::
(MonadDOM m) => InspectorFrontendHost -> m ()
localizedStringsURL_ :: InspectorFrontendHost -> m ()
localizedStringsURL_ InspectorFrontendHost
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"localizedStringsURL" ()))
backendCommandsURL ::
(MonadDOM m, FromJSString result) =>
InspectorFrontendHost -> m result
backendCommandsURL :: InspectorFrontendHost -> m result
backendCommandsURL InspectorFrontendHost
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"backendCommandsURL" ()) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
backendCommandsURL_ ::
(MonadDOM m) => InspectorFrontendHost -> m ()
backendCommandsURL_ :: InspectorFrontendHost -> m ()
backendCommandsURL_ InspectorFrontendHost
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"backendCommandsURL" ()))
debuggableType ::
(MonadDOM m, FromJSString result) =>
InspectorFrontendHost -> m result
debuggableType :: InspectorFrontendHost -> m result
debuggableType InspectorFrontendHost
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"debuggableType" ()) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
debuggableType_ :: (MonadDOM m) => InspectorFrontendHost -> m ()
debuggableType_ :: InspectorFrontendHost -> m ()
debuggableType_ InspectorFrontendHost
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"debuggableType" ()))
inspectionLevel :: (MonadDOM m) => InspectorFrontendHost -> m Word
inspectionLevel :: InspectorFrontendHost -> m Word
inspectionLevel InspectorFrontendHost
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Word
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"inspectionLevel" ()) JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
inspectionLevel_ :: (MonadDOM m) => InspectorFrontendHost -> m ()
inspectionLevel_ :: InspectorFrontendHost -> m ()
inspectionLevel_ InspectorFrontendHost
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"inspectionLevel" ()))
copyText ::
(MonadDOM m, ToJSString text) =>
InspectorFrontendHost -> text -> m ()
copyText :: InspectorFrontendHost -> text -> m ()
copyText InspectorFrontendHost
self text
text
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"copyText" [text -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal text
text]))
killText ::
(MonadDOM m, ToJSString text) =>
InspectorFrontendHost -> text -> Bool -> Bool -> m ()
killText :: InspectorFrontendHost -> text -> Bool -> Bool -> m ()
killText InspectorFrontendHost
self text
text Bool
shouldPrependToKillRing Bool
shouldStartNewSequence
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"killText"
[text -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal text
text, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
shouldPrependToKillRing,
Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
shouldStartNewSequence]))
openInNewTab ::
(MonadDOM m, ToJSString url) =>
InspectorFrontendHost -> url -> m ()
openInNewTab :: InspectorFrontendHost -> url -> m ()
openInNewTab InspectorFrontendHost
self url
url
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"openInNewTab" [url -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal url
url]))
canSave :: (MonadDOM m) => InspectorFrontendHost -> m Bool
canSave :: InspectorFrontendHost -> m Bool
canSave InspectorFrontendHost
self = DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"canSave" ()) JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
canSave_ :: (MonadDOM m) => InspectorFrontendHost -> m ()
canSave_ :: InspectorFrontendHost -> m ()
canSave_ InspectorFrontendHost
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"canSave" ()))
save ::
(MonadDOM m, ToJSString url, ToJSString content) =>
InspectorFrontendHost -> url -> content -> Bool -> Bool -> m ()
save :: InspectorFrontendHost -> url -> content -> Bool -> Bool -> m ()
save InspectorFrontendHost
self url
url content
content Bool
base64Encoded Bool
forceSaveAs
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"save"
[url -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal url
url, content -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal content
content, Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
base64Encoded,
Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
forceSaveAs]))
append ::
(MonadDOM m, ToJSString url, ToJSString content) =>
InspectorFrontendHost -> url -> content -> m ()
append :: InspectorFrontendHost -> url -> content -> m ()
append InspectorFrontendHost
self url
url content
content
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"append" [url -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal url
url, content -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal content
content]))
close ::
(MonadDOM m, ToJSString url) =>
InspectorFrontendHost -> url -> m ()
close :: InspectorFrontendHost -> url -> m ()
close InspectorFrontendHost
self url
url = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"close" [url -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal url
url]))
platform ::
(MonadDOM m, FromJSString result) =>
InspectorFrontendHost -> m result
platform :: InspectorFrontendHost -> m result
platform InspectorFrontendHost
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"platform" ()) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
platform_ :: (MonadDOM m) => InspectorFrontendHost -> m ()
platform_ :: InspectorFrontendHost -> m ()
platform_ InspectorFrontendHost
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"platform" ()))
port ::
(MonadDOM m, FromJSString result) =>
InspectorFrontendHost -> m result
port :: InspectorFrontendHost -> m result
port InspectorFrontendHost
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"port" ()) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
port_ :: (MonadDOM m) => InspectorFrontendHost -> m ()
port_ :: InspectorFrontendHost -> m ()
port_ InspectorFrontendHost
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"port" ()))
showContextMenu ::
(MonadDOM m, IsMouseEvent event, ToJSVal items) =>
InspectorFrontendHost -> event -> items -> m ()
InspectorFrontendHost
self event
event items
items
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"showContextMenu" [event -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal event
event, items -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal items
items]))
dispatchEventAsContextMenuEvent ::
(MonadDOM m, IsEvent event) =>
InspectorFrontendHost -> Maybe event -> m ()
InspectorFrontendHost
self Maybe event
event
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"dispatchEventAsContextMenuEvent" [Maybe event -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe event
event]))
sendMessageToBackend ::
(MonadDOM m, ToJSString message) =>
InspectorFrontendHost -> message -> m ()
sendMessageToBackend :: InspectorFrontendHost -> message -> m ()
sendMessageToBackend InspectorFrontendHost
self message
message
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"sendMessageToBackend" [message -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal message
message]))
unbufferedLog ::
(MonadDOM m, ToJSString message) =>
InspectorFrontendHost -> message -> m ()
unbufferedLog :: InspectorFrontendHost -> message -> m ()
unbufferedLog InspectorFrontendHost
self message
message
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"unbufferedLog" [message -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal message
message]))
isUnderTest :: (MonadDOM m) => InspectorFrontendHost -> m Bool
isUnderTest :: InspectorFrontendHost -> m Bool
isUnderTest InspectorFrontendHost
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"isUnderTest" ()) JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
isUnderTest_ :: (MonadDOM m) => InspectorFrontendHost -> m ()
isUnderTest_ :: InspectorFrontendHost -> m ()
isUnderTest_ InspectorFrontendHost
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"isUnderTest" ()))
beep :: (MonadDOM m) => InspectorFrontendHost -> m ()
beep :: InspectorFrontendHost -> m ()
beep InspectorFrontendHost
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (InspectorFrontendHost
self InspectorFrontendHost
-> Getting (JSM JSVal) InspectorFrontendHost (JSM JSVal)
-> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"beep" ()))