{-# LANGUAGE PatternSynonyms #-}
-- For HasCallStack compatibility
{-# 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

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.loaded Mozilla InspectorFrontendHost.loaded documentation> 
loaded :: (MonadDOM m) => InspectorFrontendHost -> m ()
loaded :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"loaded" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.closeWindow Mozilla InspectorFrontendHost.closeWindow documentation> 
closeWindow :: (MonadDOM m) => InspectorFrontendHost -> m ()
closeWindow :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"closeWindow" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.bringToFront Mozilla InspectorFrontendHost.bringToFront documentation> 
bringToFront :: (MonadDOM m) => InspectorFrontendHost -> m ()
bringToFront :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"bringToFront" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.inspectedURLChanged Mozilla InspectorFrontendHost.inspectedURLChanged documentation> 
inspectedURLChanged ::
                    (MonadDOM m, ToJSString newURL) =>
                      InspectorFrontendHost -> newURL -> m ()
inspectedURLChanged :: forall (m :: * -> *) newURL.
(MonadDOM m, ToJSString newURL) =>
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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"inspectedURLChanged" [newURL -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal newURL
newURL]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setZoomFactor Mozilla InspectorFrontendHost.setZoomFactor documentation> 
setZoomFactor ::
              (MonadDOM m) => InspectorFrontendHost -> Float -> m ()
setZoomFactor :: forall (m :: * -> *).
MonadDOM m =>
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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"setZoomFactor" [Float -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Float
zoom]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.zoomFactor Mozilla InspectorFrontendHost.zoomFactor documentation> 
zoomFactor :: (MonadDOM m) => InspectorFrontendHost -> m Float
zoomFactor :: forall (m :: * -> *).
MonadDOM m =>
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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"zoomFactor" ()) JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.zoomFactor Mozilla InspectorFrontendHost.zoomFactor documentation> 
zoomFactor_ :: (MonadDOM m) => InspectorFrontendHost -> m ()
zoomFactor_ :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"zoomFactor" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.userInterfaceLayoutDirection Mozilla InspectorFrontendHost.userInterfaceLayoutDirection documentation> 
userInterfaceLayoutDirection ::
                             (MonadDOM m, FromJSString result) =>
                               InspectorFrontendHost -> m result
userInterfaceLayoutDirection :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"userInterfaceLayoutDirection" ()) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
         JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.userInterfaceLayoutDirection Mozilla InspectorFrontendHost.userInterfaceLayoutDirection documentation> 
userInterfaceLayoutDirection_ ::
                              (MonadDOM m) => InspectorFrontendHost -> m ()
userInterfaceLayoutDirection_ :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"userInterfaceLayoutDirection" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.requestSetDockSide Mozilla InspectorFrontendHost.requestSetDockSide documentation> 
requestSetDockSide ::
                   (MonadDOM m, ToJSString side) =>
                     InspectorFrontendHost -> side -> m ()
requestSetDockSide :: forall (m :: * -> *) newURL.
(MonadDOM m, ToJSString newURL) =>
InspectorFrontendHost -> newURL -> 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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"requestSetDockSide" [side -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal side
side]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setAttachedWindowHeight Mozilla InspectorFrontendHost.setAttachedWindowHeight documentation> 
setAttachedWindowHeight ::
                        (MonadDOM m) => InspectorFrontendHost -> Word -> m ()
setAttachedWindowHeight :: forall (m :: * -> *).
MonadDOM m =>
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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"setAttachedWindowHeight" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
height]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setAttachedWindowWidth Mozilla InspectorFrontendHost.setAttachedWindowWidth documentation> 
setAttachedWindowWidth ::
                       (MonadDOM m) => InspectorFrontendHost -> Word -> m ()
setAttachedWindowWidth :: forall (m :: * -> *).
MonadDOM m =>
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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"setAttachedWindowWidth" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
width]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.startWindowDrag Mozilla InspectorFrontendHost.startWindowDrag documentation> 
startWindowDrag :: (MonadDOM m) => InspectorFrontendHost -> m ()
startWindowDrag :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"startWindowDrag" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.moveWindowBy Mozilla InspectorFrontendHost.moveWindowBy documentation> 
moveWindowBy ::
             (MonadDOM m) => InspectorFrontendHost -> Float -> Float -> m ()
moveWindowBy :: forall (m :: * -> *).
MonadDOM m =>
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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"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]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.localizedStringsURL Mozilla InspectorFrontendHost.localizedStringsURL documentation> 
localizedStringsURL ::
                    (MonadDOM m, FromJSString result) =>
                      InspectorFrontendHost -> m result
localizedStringsURL :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"localizedStringsURL" ()) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.localizedStringsURL Mozilla InspectorFrontendHost.localizedStringsURL documentation> 
localizedStringsURL_ ::
                     (MonadDOM m) => InspectorFrontendHost -> m ()
localizedStringsURL_ :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"localizedStringsURL" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.backendCommandsURL Mozilla InspectorFrontendHost.backendCommandsURL documentation> 
backendCommandsURL ::
                   (MonadDOM m, FromJSString result) =>
                     InspectorFrontendHost -> m result
backendCommandsURL :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"backendCommandsURL" ()) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.backendCommandsURL Mozilla InspectorFrontendHost.backendCommandsURL documentation> 
backendCommandsURL_ ::
                    (MonadDOM m) => InspectorFrontendHost -> m ()
backendCommandsURL_ :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"backendCommandsURL" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.debuggableType Mozilla InspectorFrontendHost.debuggableType documentation> 
debuggableType ::
               (MonadDOM m, FromJSString result) =>
                 InspectorFrontendHost -> m result
debuggableType :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"debuggableType" ()) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.debuggableType Mozilla InspectorFrontendHost.debuggableType documentation> 
debuggableType_ :: (MonadDOM m) => InspectorFrontendHost -> m ()
debuggableType_ :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"debuggableType" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.inspectionLevel Mozilla InspectorFrontendHost.inspectionLevel documentation> 
inspectionLevel :: (MonadDOM m) => InspectorFrontendHost -> m Word
inspectionLevel :: forall (m :: * -> *). MonadDOM m => InspectorFrontendHost -> m Word
inspectionLevel InspectorFrontendHost
self
  = DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
      (Double -> Word
forall b. Integral b => Double -> b
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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"inspectionLevel" ()) JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.inspectionLevel Mozilla InspectorFrontendHost.inspectionLevel documentation> 
inspectionLevel_ :: (MonadDOM m) => InspectorFrontendHost -> m ()
inspectionLevel_ :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"inspectionLevel" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.copyText Mozilla InspectorFrontendHost.copyText documentation> 
copyText ::
         (MonadDOM m, ToJSString text) =>
           InspectorFrontendHost -> text -> m ()
copyText :: forall (m :: * -> *) newURL.
(MonadDOM m, ToJSString newURL) =>
InspectorFrontendHost -> newURL -> 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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"copyText" [text -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal text
text]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.killText Mozilla InspectorFrontendHost.killText documentation> 
killText ::
         (MonadDOM m, ToJSString text) =>
           InspectorFrontendHost -> text -> Bool -> Bool -> m ()
killText :: forall (m :: * -> *) text.
(MonadDOM m, ToJSString text) =>
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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"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]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.openInNewTab Mozilla InspectorFrontendHost.openInNewTab documentation> 
openInNewTab ::
             (MonadDOM m, ToJSString url) =>
               InspectorFrontendHost -> url -> m ()
openInNewTab :: forall (m :: * -> *) newURL.
(MonadDOM m, ToJSString newURL) =>
InspectorFrontendHost -> newURL -> 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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"openInNewTab" [url -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal url
url]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canSave Mozilla InspectorFrontendHost.canSave documentation> 
canSave :: (MonadDOM m) => InspectorFrontendHost -> m Bool
canSave :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"canSave" ()) JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canSave Mozilla InspectorFrontendHost.canSave documentation> 
canSave_ :: (MonadDOM m) => InspectorFrontendHost -> m ()
canSave_ :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"canSave" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.save Mozilla InspectorFrontendHost.save documentation> 
save ::
     (MonadDOM m, ToJSString url, ToJSString content) =>
       InspectorFrontendHost -> url -> content -> Bool -> Bool -> m ()
save :: forall (m :: * -> *) url content.
(MonadDOM m, ToJSString url, ToJSString content) =>
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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"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]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.append Mozilla InspectorFrontendHost.append documentation> 
append ::
       (MonadDOM m, ToJSString url, ToJSString content) =>
         InspectorFrontendHost -> url -> content -> m ()
append :: forall (m :: * -> *) url content.
(MonadDOM m, ToJSString url, ToJSString content) =>
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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"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]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.close Mozilla InspectorFrontendHost.close documentation> 
close ::
      (MonadDOM m, ToJSString url) =>
        InspectorFrontendHost -> url -> m ()
close :: forall (m :: * -> *) newURL.
(MonadDOM m, ToJSString newURL) =>
InspectorFrontendHost -> newURL -> 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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"close" [url -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal url
url]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.platform Mozilla InspectorFrontendHost.platform documentation> 
platform ::
         (MonadDOM m, FromJSString result) =>
           InspectorFrontendHost -> m result
platform :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"platform" ()) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.platform Mozilla InspectorFrontendHost.platform documentation> 
platform_ :: (MonadDOM m) => InspectorFrontendHost -> m ()
platform_ :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"platform" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.port Mozilla InspectorFrontendHost.port documentation> 
port ::
     (MonadDOM m, FromJSString result) =>
       InspectorFrontendHost -> m result
port :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"port" ()) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.port Mozilla InspectorFrontendHost.port documentation> 
port_ :: (MonadDOM m) => InspectorFrontendHost -> m ()
port_ :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"port" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.showContextMenu Mozilla InspectorFrontendHost.showContextMenu documentation> 
showContextMenu ::
                (MonadDOM m, IsMouseEvent event, ToJSVal items) =>
                  InspectorFrontendHost -> event -> items -> m ()
showContextMenu :: forall (m :: * -> *) event items.
(MonadDOM m, IsMouseEvent event, ToJSVal items) =>
InspectorFrontendHost -> event -> items -> m ()
showContextMenu 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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"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]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.dispatchEventAsContextMenuEvent Mozilla InspectorFrontendHost.dispatchEventAsContextMenuEvent documentation> 
dispatchEventAsContextMenuEvent ::
                                (MonadDOM m, IsEvent event) =>
                                  InspectorFrontendHost -> Maybe event -> m ()
dispatchEventAsContextMenuEvent :: forall (m :: * -> *) event.
(MonadDOM m, IsEvent event) =>
InspectorFrontendHost -> Maybe event -> m ()
dispatchEventAsContextMenuEvent 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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"dispatchEventAsContextMenuEvent" [Maybe event -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe event
event]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.sendMessageToBackend Mozilla InspectorFrontendHost.sendMessageToBackend documentation> 
sendMessageToBackend ::
                     (MonadDOM m, ToJSString message) =>
                       InspectorFrontendHost -> message -> m ()
sendMessageToBackend :: forall (m :: * -> *) newURL.
(MonadDOM m, ToJSString newURL) =>
InspectorFrontendHost -> newURL -> 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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"sendMessageToBackend" [message -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal message
message]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.unbufferedLog Mozilla InspectorFrontendHost.unbufferedLog documentation> 
unbufferedLog ::
              (MonadDOM m, ToJSString message) =>
                InspectorFrontendHost -> message -> m ()
unbufferedLog :: forall (m :: * -> *) newURL.
(MonadDOM m, ToJSString newURL) =>
InspectorFrontendHost -> newURL -> 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
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"unbufferedLog" [message -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal message
message]))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.isUnderTest Mozilla InspectorFrontendHost.isUnderTest documentation> 
isUnderTest :: (MonadDOM m) => InspectorFrontendHost -> m Bool
isUnderTest :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"isUnderTest" ()) JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.isUnderTest Mozilla InspectorFrontendHost.isUnderTest documentation> 
isUnderTest_ :: (MonadDOM m) => InspectorFrontendHost -> m ()
isUnderTest_ :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"isUnderTest" ()))

-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.beep Mozilla InspectorFrontendHost.beep documentation> 
beep :: (MonadDOM m) => InspectorFrontendHost -> m ()
beep :: forall (m :: * -> *). MonadDOM m => 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
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"beep" ()))