{-# 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 :: 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" ()))
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" ()))
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" ()))
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]))
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]))
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))
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" ()))
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)
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" ()))
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]))
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]))
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]))
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" ()))
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]))
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)
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" ()))
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)
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" ()))
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)
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" ()))
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))
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" ()))
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]))
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]))
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]))
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)
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" ()))
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]))
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]))
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]))
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)
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" ()))
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)
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" ()))
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
^. 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]))
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
^. 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]))
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]))
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]))
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)
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" ()))
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" ()))