{-# LANGUAGE CPP #-} {-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.Internals (js_address, address, address_, js_nodeNeedsStyleRecalc, nodeNeedsStyleRecalc, nodeNeedsStyleRecalc_, js_description, description, description_, js_hasPausedImageAnimations, hasPausedImageAnimations, hasPausedImageAnimations_, js_elementRenderTreeAsText, elementRenderTreeAsText, elementRenderTreeAsText_, js_isPreloaded, isPreloaded, isPreloaded_, js_isLoadingFromMemoryCache, isLoadingFromMemoryCache, isLoadingFromMemoryCache_, js_xhrResponseSource, xhrResponseSource, xhrResponseSource_, js_clearMemoryCache, clearMemoryCache, js_pruneMemoryCacheToSize, pruneMemoryCacheToSize, js_memoryCacheSize, memoryCacheSize, memoryCacheSize_, js_clearPageCache, clearPageCache, js_pageCacheSize, pageCacheSize, pageCacheSize_, js_computedStyleIncludingVisitedInfo, computedStyleIncludingVisitedInfo, computedStyleIncludingVisitedInfo_, computedStyleIncludingVisitedInfoUnsafe, computedStyleIncludingVisitedInfoUnchecked, js_ensureShadowRoot, ensureShadowRoot, ensureShadowRoot_, ensureShadowRootUnsafe, ensureShadowRootUnchecked, js_createShadowRoot, createShadowRoot, createShadowRoot_, createShadowRootUnsafe, createShadowRootUnchecked, js_shadowRoot, shadowRoot, shadowRoot_, shadowRootUnsafe, shadowRootUnchecked, js_shadowRootType, shadowRootType, shadowRootType_, js_includerFor, includerFor, includerFor_, includerForUnsafe, includerForUnchecked, js_shadowPseudoId, shadowPseudoId, shadowPseudoId_, js_setShadowPseudoId, setShadowPseudoId, js_treeScopeRootNode, treeScopeRootNode, treeScopeRootNode_, treeScopeRootNodeUnsafe, treeScopeRootNodeUnchecked, js_parentTreeScope, parentTreeScope, parentTreeScope_, parentTreeScopeUnsafe, parentTreeScopeUnchecked, js_lastSpatialNavigationCandidateCount, lastSpatialNavigationCandidateCount, lastSpatialNavigationCandidateCount_, js_numberOfActiveAnimations, numberOfActiveAnimations, numberOfActiveAnimations_, js_suspendAnimations, suspendAnimations, js_resumeAnimations, resumeAnimations, js_animationsAreSuspended, animationsAreSuspended, animationsAreSuspended_, js_pauseAnimationAtTimeOnElement, pauseAnimationAtTimeOnElement, pauseAnimationAtTimeOnElement_, js_pauseAnimationAtTimeOnPseudoElement, pauseAnimationAtTimeOnPseudoElement, pauseAnimationAtTimeOnPseudoElement_, js_pauseTransitionAtTimeOnElement, pauseTransitionAtTimeOnElement, pauseTransitionAtTimeOnElement_, js_pauseTransitionAtTimeOnPseudoElement, pauseTransitionAtTimeOnPseudoElement, pauseTransitionAtTimeOnPseudoElement_, js_attached, attached, attached_, js_visiblePlaceholder, visiblePlaceholder, visiblePlaceholder_, js_selectColorInColorChooser, selectColorInColorChooser, js_formControlStateOfPreviousHistoryItem, formControlStateOfPreviousHistoryItem, formControlStateOfPreviousHistoryItem_, js_setFormControlStateOfPreviousHistoryItem, setFormControlStateOfPreviousHistoryItem, js_absoluteCaretBounds, absoluteCaretBounds, absoluteCaretBounds_, absoluteCaretBoundsUnsafe, absoluteCaretBoundsUnchecked, js_boundingBox, boundingBox, boundingBox_, boundingBoxUnsafe, boundingBoxUnchecked, js_inspectorHighlightRects, inspectorHighlightRects, inspectorHighlightRects_, inspectorHighlightRectsUnsafe, inspectorHighlightRectsUnchecked, js_inspectorHighlightObject, inspectorHighlightObject, inspectorHighlightObject_, js_markerCountForNode, markerCountForNode, markerCountForNode_, js_markerRangeForNode, markerRangeForNode, markerRangeForNode_, markerRangeForNodeUnsafe, markerRangeForNodeUnchecked, js_markerDescriptionForNode, markerDescriptionForNode, markerDescriptionForNode_, js_addTextMatchMarker, addTextMatchMarker, js_setMarkedTextMatchesAreHighlighted, setMarkedTextMatchesAreHighlighted, js_invalidateFontCache, invalidateFontCache, js_setScrollViewPosition, setScrollViewPosition, js_setPagination, setPagination, js_configurationForViewport, configurationForViewport, configurationForViewport_, js_wasLastChangeUserEdit, wasLastChangeUserEdit, wasLastChangeUserEdit_, js_elementShouldAutoComplete, elementShouldAutoComplete, elementShouldAutoComplete_, js_setEditingValue, setEditingValue, js_setAutofilled, setAutofilled, js_countMatchesForText, countMatchesForText, countMatchesForText_, js_paintControlTints, paintControlTints, js_scrollElementToRect, scrollElementToRect, js_rangeFromLocationAndLength, rangeFromLocationAndLength, rangeFromLocationAndLength_, rangeFromLocationAndLengthUnsafe, rangeFromLocationAndLengthUnchecked, js_locationFromRange, locationFromRange, locationFromRange_, js_lengthFromRange, lengthFromRange, lengthFromRange_, js_rangeAsText, rangeAsText, rangeAsText_, js_subrange, subrange, subrange_, subrangeUnsafe, subrangeUnchecked, js_rangeForDictionaryLookupAtLocation, rangeForDictionaryLookupAtLocation, rangeForDictionaryLookupAtLocation_, rangeForDictionaryLookupAtLocationUnsafe, rangeForDictionaryLookupAtLocationUnchecked, js_setDelegatesScrolling, setDelegatesScrolling, js_lastSpellCheckRequestSequence, lastSpellCheckRequestSequence, lastSpellCheckRequestSequence_, js_lastSpellCheckProcessedSequence, lastSpellCheckProcessedSequence, lastSpellCheckProcessedSequence_, js_userPreferredLanguages, userPreferredLanguages, userPreferredLanguages_, js_setUserPreferredLanguages, setUserPreferredLanguages, js_wheelEventHandlerCount, wheelEventHandlerCount, wheelEventHandlerCount_, js_touchEventHandlerCount, touchEventHandlerCount, touchEventHandlerCount_, js_nodesFromRect, nodesFromRect, nodesFromRect_, nodesFromRectUnsafe, nodesFromRectUnchecked, js_parserMetaData, parserMetaData, parserMetaData_, js_updateEditorUINowIfScheduled, updateEditorUINowIfScheduled, js_hasSpellingMarker, hasSpellingMarker, hasSpellingMarker_, js_hasGrammarMarker, hasGrammarMarker, hasGrammarMarker_, js_hasAutocorrectedMarker, hasAutocorrectedMarker, hasAutocorrectedMarker_, js_setContinuousSpellCheckingEnabled, setContinuousSpellCheckingEnabled, js_setAutomaticQuoteSubstitutionEnabled, setAutomaticQuoteSubstitutionEnabled, js_setAutomaticLinkDetectionEnabled, setAutomaticLinkDetectionEnabled, js_setAutomaticDashSubstitutionEnabled, setAutomaticDashSubstitutionEnabled, js_setAutomaticTextReplacementEnabled, setAutomaticTextReplacementEnabled, js_setAutomaticSpellingCorrectionEnabled, setAutomaticSpellingCorrectionEnabled, js_isOverwriteModeEnabled, isOverwriteModeEnabled, isOverwriteModeEnabled_, js_toggleOverwriteModeEnabled, toggleOverwriteModeEnabled, js_numberOfScrollableAreas, numberOfScrollableAreas, numberOfScrollableAreas_, js_isPageBoxVisible, isPageBoxVisible, isPageBoxVisible_, js_layerTreeAsText, layerTreeAsText, layerTreeAsText_, js_scrollingStateTreeAsText, scrollingStateTreeAsText, scrollingStateTreeAsText_, js_mainThreadScrollingReasons, mainThreadScrollingReasons, mainThreadScrollingReasons_, js_nonFastScrollableRects, nonFastScrollableRects, nonFastScrollableRects_, nonFastScrollableRectsUnsafe, nonFastScrollableRectsUnchecked, js_repaintRectsAsText, repaintRectsAsText, repaintRectsAsText_, js_garbageCollectDocumentResources, garbageCollectDocumentResources, js_allowRoundingHacks, allowRoundingHacks, js_insertAuthorCSS, insertAuthorCSS, js_insertUserCSS, insertUserCSS, js_setBatteryStatus, setBatteryStatus, js_setDeviceProximity, setDeviceProximity, js_numberOfLiveNodes, numberOfLiveNodes, numberOfLiveNodes_, js_numberOfLiveDocuments, numberOfLiveDocuments, numberOfLiveDocuments_, js_consoleMessageArgumentCounts, consoleMessageArgumentCounts, consoleMessageArgumentCounts_, js_openDummyInspectorFrontend, openDummyInspectorFrontend, openDummyInspectorFrontend_, openDummyInspectorFrontendUnsafe, openDummyInspectorFrontendUnchecked, js_closeDummyInspectorFrontend, closeDummyInspectorFrontend, js_setJavaScriptProfilingEnabled, setJavaScriptProfilingEnabled, js_setInspectorIsUnderTest, setInspectorIsUnderTest, js_counterValue, counterValue, counterValue_, js_pageNumber, pageNumber, pageNumber_, js_shortcutIconURLs, shortcutIconURLs, shortcutIconURLs_, js_allIconURLs, allIconURLs, allIconURLs_, js_numberOfPages, numberOfPages, numberOfPages_, js_pageProperty, pageProperty, pageProperty_, js_pageSizeAndMarginsInPixels, pageSizeAndMarginsInPixels, pageSizeAndMarginsInPixels_, js_setPageScaleFactor, setPageScaleFactor, js_setPageZoomFactor, setPageZoomFactor, js_setHeaderHeight, setHeaderHeight, js_setFooterHeight, setFooterHeight, js_setTopContentInset, setTopContentInset, js_webkitWillEnterFullScreenForElement, webkitWillEnterFullScreenForElement, js_webkitDidEnterFullScreenForElement, webkitDidEnterFullScreenForElement, js_webkitWillExitFullScreenForElement, webkitWillExitFullScreenForElement, js_webkitDidExitFullScreenForElement, webkitDidExitFullScreenForElement, js_setApplicationCacheOriginQuota, setApplicationCacheOriginQuota, js_registerURLSchemeAsBypassingContentSecurityPolicy, registerURLSchemeAsBypassingContentSecurityPolicy, js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy, removeURLSchemeRegisteredAsBypassingContentSecurityPolicy, js_mallocStatistics, mallocStatistics, mallocStatistics_, mallocStatisticsUnsafe, mallocStatisticsUnchecked, js_typeConversions, typeConversions, typeConversions_, typeConversionsUnsafe, typeConversionsUnchecked, js_memoryInfo, memoryInfo, memoryInfo_, memoryInfoUnsafe, memoryInfoUnchecked, js_getReferencedFilePaths, getReferencedFilePaths, getReferencedFilePaths_, js_startTrackingRepaints, startTrackingRepaints, js_stopTrackingRepaints, stopTrackingRepaints, js_isTimerThrottled, isTimerThrottled, isTimerThrottled_, js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks, updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks, js_getCurrentCursorInfo, getCurrentCursorInfo, getCurrentCursorInfo_, js_markerTextForListItem, markerTextForListItem, markerTextForListItem_, js_toolTipFromElement, toolTipFromElement, toolTipFromElement_, js_deserializeBuffer, deserializeBuffer, deserializeBuffer_, deserializeBufferUnsafe, deserializeBufferUnchecked, js_serializeObject, serializeObject, serializeObject_, serializeObjectUnsafe, serializeObjectUnchecked, js_setUsesOverlayScrollbars, setUsesOverlayScrollbars, js_forceReload, forceReload, js_simulateAudioInterruption, simulateAudioInterruption, js_mediaElementHasCharacteristic, mediaElementHasCharacteristic, mediaElementHasCharacteristic_, js_initializeMockCDM, initializeMockCDM, js_enableMockSpeechSynthesizer, enableMockSpeechSynthesizer, js_getImageSourceURL, getImageSourceURL, getImageSourceURL_, js_captionsStyleSheetOverride, captionsStyleSheetOverride, captionsStyleSheetOverride_, js_setCaptionsStyleSheetOverride, setCaptionsStyleSheetOverride, js_setPrimaryAudioTrackLanguageOverride, setPrimaryAudioTrackLanguageOverride, js_setCaptionDisplayMode, setCaptionDisplayMode, js_createTimeRanges, createTimeRanges, createTimeRanges_, createTimeRangesUnsafe, createTimeRangesUnchecked, js_closestTimeToTimeRanges, closestTimeToTimeRanges, closestTimeToTimeRanges_, js_isSelectPopupVisible, isSelectPopupVisible, isSelectPopupVisible_, js_isVibrating, isVibrating, isVibrating_, js_isPluginUnavailabilityIndicatorObscured, isPluginUnavailabilityIndicatorObscured, isPluginUnavailabilityIndicatorObscured_, js_isPluginSnapshotted, isPluginSnapshotted, isPluginSnapshotted_, js_selectionBounds, selectionBounds, selectionBounds_, selectionBoundsUnsafe, selectionBoundsUnchecked, js_initializeMockMediaSource, initializeMockMediaSource, js_bufferedSamplesForTrackID, bufferedSamplesForTrackID, bufferedSamplesForTrackID_, js_beginMediaSessionInterruption, beginMediaSessionInterruption, js_endMediaSessionInterruption, endMediaSessionInterruption, js_applicationWillEnterForeground, applicationWillEnterForeground, js_applicationWillEnterBackground, applicationWillEnterBackground, js_setMediaSessionRestrictions, setMediaSessionRestrictions, js_postRemoteControlCommand, postRemoteControlCommand, js_simulateSystemSleep, simulateSystemSleep, js_simulateSystemWake, simulateSystemWake, js_elementIsBlockingDisplaySleep, elementIsBlockingDisplaySleep, elementIsBlockingDisplaySleep_, js_installMockPageOverlay, installMockPageOverlay, js_pageOverlayLayerTreeAsText, pageOverlayLayerTreeAsText, pageOverlayLayerTreeAsText_, js_setPageMuted, setPageMuted, js_isPagePlayingAudio, isPagePlayingAudio, isPagePlayingAudio_, pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS, pattern LAYER_TREE_INCLUDES_TILE_CACHES, pattern LAYER_TREE_INCLUDES_REPAINT_RECTS, pattern LAYER_TREE_INCLUDES_PAINTING_PHASES, pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS, js_getSettings, getSettings, getSettingsUnsafe, getSettingsUnchecked, js_getWorkerThreadCount, getWorkerThreadCount, js_getConsoleProfiles, getConsoleProfiles, Internals(..), gTypeInternals) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums #if MIN_VERSION_base(4,9,0) import GHC.Stack (HasCallStack) #elif MIN_VERSION_base(4,8,0) import GHC.Stack (CallStack) import GHC.Exts (Constraint) type HasCallStack = ((?callStack :: CallStack) :: Constraint) #else import GHC.Exts (Constraint) type HasCallStack = (() :: Constraint) #endif foreign import javascript unsafe "$1[\"address\"]($2)" js_address :: Internals -> Nullable Node -> IO JSString -- | address :: (MonadIO m, IsNode node, FromJSString result) => Internals -> Maybe node -> m result address self node = liftIO (fromJSString <$> (js_address (self) (maybeToNullable (fmap toNode node)))) -- | address_ :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m () address_ self node = liftIO (void (js_address (self) (maybeToNullable (fmap toNode node)))) foreign import javascript unsafe "($1[\"nodeNeedsStyleRecalc\"]($2) ? 1 : 0)" js_nodeNeedsStyleRecalc :: Internals -> Nullable Node -> IO Bool -- | nodeNeedsStyleRecalc :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool nodeNeedsStyleRecalc self node = liftIO (js_nodeNeedsStyleRecalc (self) (maybeToNullable (fmap toNode node))) -- | nodeNeedsStyleRecalc_ :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m () nodeNeedsStyleRecalc_ self node = liftIO (void (js_nodeNeedsStyleRecalc (self) (maybeToNullable (fmap toNode node)))) foreign import javascript unsafe "$1[\"description\"]($2)" js_description :: Internals -> JSVal -> IO JSString -- | description :: (MonadIO m, FromJSString result) => Internals -> JSVal -> m result description self value = liftIO (fromJSString <$> (js_description (self) value)) -- | description_ :: (MonadIO m) => Internals -> JSVal -> m () description_ self value = liftIO (void (js_description (self) value)) foreign import javascript unsafe "($1[\"hasPausedImageAnimations\"]($2) ? 1 : 0)" js_hasPausedImageAnimations :: Internals -> Nullable Element -> IO Bool -- | hasPausedImageAnimations :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m Bool hasPausedImageAnimations self element = liftIO (js_hasPausedImageAnimations (self) (maybeToNullable (fmap toElement element))) -- | hasPausedImageAnimations_ :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m () hasPausedImageAnimations_ self element = liftIO (void (js_hasPausedImageAnimations (self) (maybeToNullable (fmap toElement element)))) foreign import javascript unsafe "$1[\"elementRenderTreeAsText\"]($2)" js_elementRenderTreeAsText :: Internals -> Nullable Element -> IO JSString -- | elementRenderTreeAsText :: (MonadIO m, IsElement element, FromJSString result) => Internals -> Maybe element -> m result elementRenderTreeAsText self element = liftIO (fromJSString <$> (js_elementRenderTreeAsText (self) (maybeToNullable (fmap toElement element)))) -- | elementRenderTreeAsText_ :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m () elementRenderTreeAsText_ self element = liftIO (void (js_elementRenderTreeAsText (self) (maybeToNullable (fmap toElement element)))) foreign import javascript unsafe "($1[\"isPreloaded\"]($2) ? 1 : 0)" js_isPreloaded :: Internals -> JSString -> IO Bool -- | isPreloaded :: (MonadIO m, ToJSString url) => Internals -> url -> m Bool isPreloaded self url = liftIO (js_isPreloaded (self) (toJSString url)) -- | isPreloaded_ :: (MonadIO m, ToJSString url) => Internals -> url -> m () isPreloaded_ self url = liftIO (void (js_isPreloaded (self) (toJSString url))) foreign import javascript unsafe "($1[\"isLoadingFromMemoryCache\"]($2) ? 1 : 0)" js_isLoadingFromMemoryCache :: Internals -> JSString -> IO Bool -- | isLoadingFromMemoryCache :: (MonadIO m, ToJSString url) => Internals -> url -> m Bool isLoadingFromMemoryCache self url = liftIO (js_isLoadingFromMemoryCache (self) (toJSString url)) -- | isLoadingFromMemoryCache_ :: (MonadIO m, ToJSString url) => Internals -> url -> m () isLoadingFromMemoryCache_ self url = liftIO (void (js_isLoadingFromMemoryCache (self) (toJSString url))) foreign import javascript unsafe "$1[\"xhrResponseSource\"]($2)" js_xhrResponseSource :: Internals -> Nullable XMLHttpRequest -> IO JSString -- | xhrResponseSource :: (MonadIO m, FromJSString result) => Internals -> Maybe XMLHttpRequest -> m result xhrResponseSource self xhr = liftIO (fromJSString <$> (js_xhrResponseSource (self) (maybeToNullable xhr))) -- | xhrResponseSource_ :: (MonadIO m) => Internals -> Maybe XMLHttpRequest -> m () xhrResponseSource_ self xhr = liftIO (void (js_xhrResponseSource (self) (maybeToNullable xhr))) foreign import javascript unsafe "$1[\"clearMemoryCache\"]()" js_clearMemoryCache :: Internals -> IO () -- | clearMemoryCache :: (MonadIO m) => Internals -> m () clearMemoryCache self = liftIO (js_clearMemoryCache (self)) foreign import javascript unsafe "$1[\"pruneMemoryCacheToSize\"]($2)" js_pruneMemoryCacheToSize :: Internals -> Int -> IO () -- | pruneMemoryCacheToSize :: (MonadIO m) => Internals -> Int -> m () pruneMemoryCacheToSize self size = liftIO (js_pruneMemoryCacheToSize (self) size) foreign import javascript unsafe "$1[\"memoryCacheSize\"]()" js_memoryCacheSize :: Internals -> IO Int -- | memoryCacheSize :: (MonadIO m) => Internals -> m Int memoryCacheSize self = liftIO (js_memoryCacheSize (self)) -- | memoryCacheSize_ :: (MonadIO m) => Internals -> m () memoryCacheSize_ self = liftIO (void (js_memoryCacheSize (self))) foreign import javascript unsafe "$1[\"clearPageCache\"]()" js_clearPageCache :: Internals -> IO () -- | clearPageCache :: (MonadIO m) => Internals -> m () clearPageCache self = liftIO (js_clearPageCache (self)) foreign import javascript unsafe "$1[\"pageCacheSize\"]()" js_pageCacheSize :: Internals -> IO Word -- | pageCacheSize :: (MonadIO m) => Internals -> m Word pageCacheSize self = liftIO (js_pageCacheSize (self)) -- | pageCacheSize_ :: (MonadIO m) => Internals -> m () pageCacheSize_ self = liftIO (void (js_pageCacheSize (self))) foreign import javascript unsafe "$1[\"computedStyleIncludingVisitedInfo\"]($2)" js_computedStyleIncludingVisitedInfo :: Internals -> Nullable Node -> IO (Nullable CSSStyleDeclaration) -- | computedStyleIncludingVisitedInfo :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m (Maybe CSSStyleDeclaration) computedStyleIncludingVisitedInfo self node = liftIO (nullableToMaybe <$> (js_computedStyleIncludingVisitedInfo (self) (maybeToNullable (fmap toNode node)))) -- | computedStyleIncludingVisitedInfo_ :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m () computedStyleIncludingVisitedInfo_ self node = liftIO (void (js_computedStyleIncludingVisitedInfo (self) (maybeToNullable (fmap toNode node)))) -- | computedStyleIncludingVisitedInfoUnsafe :: (MonadIO m, IsNode node, HasCallStack) => Internals -> Maybe node -> m CSSStyleDeclaration computedStyleIncludingVisitedInfoUnsafe self node = liftIO ((nullableToMaybe <$> (js_computedStyleIncludingVisitedInfo (self) (maybeToNullable (fmap toNode node)))) >>= maybe (Prelude.error "Nothing to return") return) -- | computedStyleIncludingVisitedInfoUnchecked :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m CSSStyleDeclaration computedStyleIncludingVisitedInfoUnchecked self node = liftIO (fromJust . nullableToMaybe <$> (js_computedStyleIncludingVisitedInfo (self) (maybeToNullable (fmap toNode node)))) foreign import javascript unsafe "$1[\"ensureShadowRoot\"]($2)" js_ensureShadowRoot :: Internals -> Nullable Element -> IO (Nullable Node) -- | ensureShadowRoot :: (MonadIO m, IsElement host) => Internals -> Maybe host -> m (Maybe Node) ensureShadowRoot self host = liftIO (nullableToMaybe <$> (js_ensureShadowRoot (self) (maybeToNullable (fmap toElement host)))) -- | ensureShadowRoot_ :: (MonadIO m, IsElement host) => Internals -> Maybe host -> m () ensureShadowRoot_ self host = liftIO (void (js_ensureShadowRoot (self) (maybeToNullable (fmap toElement host)))) -- | ensureShadowRootUnsafe :: (MonadIO m, IsElement host, HasCallStack) => Internals -> Maybe host -> m Node ensureShadowRootUnsafe self host = liftIO ((nullableToMaybe <$> (js_ensureShadowRoot (self) (maybeToNullable (fmap toElement host)))) >>= maybe (Prelude.error "Nothing to return") return) -- | ensureShadowRootUnchecked :: (MonadIO m, IsElement host) => Internals -> Maybe host -> m Node ensureShadowRootUnchecked self host = liftIO (fromJust . nullableToMaybe <$> (js_ensureShadowRoot (self) (maybeToNullable (fmap toElement host)))) foreign import javascript unsafe "$1[\"createShadowRoot\"]($2)" js_createShadowRoot :: Internals -> Nullable Element -> IO (Nullable Node) -- | createShadowRoot :: (MonadIO m, IsElement host) => Internals -> Maybe host -> m (Maybe Node) createShadowRoot self host = liftIO (nullableToMaybe <$> (js_createShadowRoot (self) (maybeToNullable (fmap toElement host)))) -- | createShadowRoot_ :: (MonadIO m, IsElement host) => Internals -> Maybe host -> m () createShadowRoot_ self host = liftIO (void (js_createShadowRoot (self) (maybeToNullable (fmap toElement host)))) -- | createShadowRootUnsafe :: (MonadIO m, IsElement host, HasCallStack) => Internals -> Maybe host -> m Node createShadowRootUnsafe self host = liftIO ((nullableToMaybe <$> (js_createShadowRoot (self) (maybeToNullable (fmap toElement host)))) >>= maybe (Prelude.error "Nothing to return") return) -- | createShadowRootUnchecked :: (MonadIO m, IsElement host) => Internals -> Maybe host -> m Node createShadowRootUnchecked self host = liftIO (fromJust . nullableToMaybe <$> (js_createShadowRoot (self) (maybeToNullable (fmap toElement host)))) foreign import javascript unsafe "$1[\"shadowRoot\"]($2)" js_shadowRoot :: Internals -> Nullable Element -> IO (Nullable Node) -- | shadowRoot :: (MonadIO m, IsElement host) => Internals -> Maybe host -> m (Maybe Node) shadowRoot self host = liftIO (nullableToMaybe <$> (js_shadowRoot (self) (maybeToNullable (fmap toElement host)))) -- | shadowRoot_ :: (MonadIO m, IsElement host) => Internals -> Maybe host -> m () shadowRoot_ self host = liftIO (void (js_shadowRoot (self) (maybeToNullable (fmap toElement host)))) -- | shadowRootUnsafe :: (MonadIO m, IsElement host, HasCallStack) => Internals -> Maybe host -> m Node shadowRootUnsafe self host = liftIO ((nullableToMaybe <$> (js_shadowRoot (self) (maybeToNullable (fmap toElement host)))) >>= maybe (Prelude.error "Nothing to return") return) -- | shadowRootUnchecked :: (MonadIO m, IsElement host) => Internals -> Maybe host -> m Node shadowRootUnchecked self host = liftIO (fromJust . nullableToMaybe <$> (js_shadowRoot (self) (maybeToNullable (fmap toElement host)))) foreign import javascript unsafe "$1[\"shadowRootType\"]($2)" js_shadowRootType :: Internals -> Nullable Node -> IO JSString -- | shadowRootType :: (MonadIO m, IsNode root, FromJSString result) => Internals -> Maybe root -> m result shadowRootType self root = liftIO (fromJSString <$> (js_shadowRootType (self) (maybeToNullable (fmap toNode root)))) -- | shadowRootType_ :: (MonadIO m, IsNode root) => Internals -> Maybe root -> m () shadowRootType_ self root = liftIO (void (js_shadowRootType (self) (maybeToNullable (fmap toNode root)))) foreign import javascript unsafe "$1[\"includerFor\"]($2)" js_includerFor :: Internals -> Nullable Node -> IO (Nullable Element) -- | includerFor :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m (Maybe Element) includerFor self node = liftIO (nullableToMaybe <$> (js_includerFor (self) (maybeToNullable (fmap toNode node)))) -- | includerFor_ :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m () includerFor_ self node = liftIO (void (js_includerFor (self) (maybeToNullable (fmap toNode node)))) -- | includerForUnsafe :: (MonadIO m, IsNode node, HasCallStack) => Internals -> Maybe node -> m Element includerForUnsafe self node = liftIO ((nullableToMaybe <$> (js_includerFor (self) (maybeToNullable (fmap toNode node)))) >>= maybe (Prelude.error "Nothing to return") return) -- | includerForUnchecked :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m Element includerForUnchecked self node = liftIO (fromJust . nullableToMaybe <$> (js_includerFor (self) (maybeToNullable (fmap toNode node)))) foreign import javascript unsafe "$1[\"shadowPseudoId\"]($2)" js_shadowPseudoId :: Internals -> Nullable Element -> IO JSString -- | shadowPseudoId :: (MonadIO m, IsElement element, FromJSString result) => Internals -> Maybe element -> m result shadowPseudoId self element = liftIO (fromJSString <$> (js_shadowPseudoId (self) (maybeToNullable (fmap toElement element)))) -- | shadowPseudoId_ :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m () shadowPseudoId_ self element = liftIO (void (js_shadowPseudoId (self) (maybeToNullable (fmap toElement element)))) foreign import javascript unsafe "$1[\"setShadowPseudoId\"]($2, $3)" js_setShadowPseudoId :: Internals -> Nullable Element -> JSString -> IO () -- | setShadowPseudoId :: (MonadIO m, IsElement element, ToJSString id) => Internals -> Maybe element -> id -> m () setShadowPseudoId self element id = liftIO (js_setShadowPseudoId (self) (maybeToNullable (fmap toElement element)) (toJSString id)) foreign import javascript unsafe "$1[\"treeScopeRootNode\"]($2)" js_treeScopeRootNode :: Internals -> Nullable Node -> IO (Nullable Node) -- | treeScopeRootNode :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m (Maybe Node) treeScopeRootNode self node = liftIO (nullableToMaybe <$> (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node)))) -- | treeScopeRootNode_ :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m () treeScopeRootNode_ self node = liftIO (void (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node)))) -- | treeScopeRootNodeUnsafe :: (MonadIO m, IsNode node, HasCallStack) => Internals -> Maybe node -> m Node treeScopeRootNodeUnsafe self node = liftIO ((nullableToMaybe <$> (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node)))) >>= maybe (Prelude.error "Nothing to return") return) -- | treeScopeRootNodeUnchecked :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m Node treeScopeRootNodeUnchecked self node = liftIO (fromJust . nullableToMaybe <$> (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node)))) foreign import javascript unsafe "$1[\"parentTreeScope\"]($2)" js_parentTreeScope :: Internals -> Nullable Node -> IO (Nullable Node) -- | parentTreeScope :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m (Maybe Node) parentTreeScope self node = liftIO (nullableToMaybe <$> (js_parentTreeScope (self) (maybeToNullable (fmap toNode node)))) -- | parentTreeScope_ :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m () parentTreeScope_ self node = liftIO (void (js_parentTreeScope (self) (maybeToNullable (fmap toNode node)))) -- | parentTreeScopeUnsafe :: (MonadIO m, IsNode node, HasCallStack) => Internals -> Maybe node -> m Node parentTreeScopeUnsafe self node = liftIO ((nullableToMaybe <$> (js_parentTreeScope (self) (maybeToNullable (fmap toNode node)))) >>= maybe (Prelude.error "Nothing to return") return) -- | parentTreeScopeUnchecked :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m Node parentTreeScopeUnchecked self node = liftIO (fromJust . nullableToMaybe <$> (js_parentTreeScope (self) (maybeToNullable (fmap toNode node)))) foreign import javascript unsafe "$1[\"lastSpatialNavigationCandidateCount\"]()" js_lastSpatialNavigationCandidateCount :: Internals -> IO Word -- | lastSpatialNavigationCandidateCount :: (MonadIO m) => Internals -> m Word lastSpatialNavigationCandidateCount self = liftIO (js_lastSpatialNavigationCandidateCount (self)) -- | lastSpatialNavigationCandidateCount_ :: (MonadIO m) => Internals -> m () lastSpatialNavigationCandidateCount_ self = liftIO (void (js_lastSpatialNavigationCandidateCount (self))) foreign import javascript unsafe "$1[\"numberOfActiveAnimations\"]()" js_numberOfActiveAnimations :: Internals -> IO Word -- | numberOfActiveAnimations :: (MonadIO m) => Internals -> m Word numberOfActiveAnimations self = liftIO (js_numberOfActiveAnimations (self)) -- | numberOfActiveAnimations_ :: (MonadIO m) => Internals -> m () numberOfActiveAnimations_ self = liftIO (void (js_numberOfActiveAnimations (self))) foreign import javascript unsafe "$1[\"suspendAnimations\"]()" js_suspendAnimations :: Internals -> IO () -- | suspendAnimations :: (MonadIO m) => Internals -> m () suspendAnimations self = liftIO (js_suspendAnimations (self)) foreign import javascript unsafe "$1[\"resumeAnimations\"]()" js_resumeAnimations :: Internals -> IO () -- | resumeAnimations :: (MonadIO m) => Internals -> m () resumeAnimations self = liftIO (js_resumeAnimations (self)) foreign import javascript unsafe "($1[\"animationsAreSuspended\"]() ? 1 : 0)" js_animationsAreSuspended :: Internals -> IO Bool -- | animationsAreSuspended :: (MonadIO m) => Internals -> m Bool animationsAreSuspended self = liftIO (js_animationsAreSuspended (self)) -- | animationsAreSuspended_ :: (MonadIO m) => Internals -> m () animationsAreSuspended_ self = liftIO (void (js_animationsAreSuspended (self))) foreign import javascript unsafe "($1[\"pauseAnimationAtTimeOnElement\"]($2,\n$3, $4) ? 1 : 0)" js_pauseAnimationAtTimeOnElement :: Internals -> JSString -> Double -> Nullable Element -> IO Bool -- | pauseAnimationAtTimeOnElement :: (MonadIO m, ToJSString animationName, IsElement element) => Internals -> animationName -> Double -> Maybe element -> m Bool pauseAnimationAtTimeOnElement self animationName pauseTime element = liftIO (js_pauseAnimationAtTimeOnElement (self) (toJSString animationName) pauseTime (maybeToNullable (fmap toElement element))) -- | pauseAnimationAtTimeOnElement_ :: (MonadIO m, ToJSString animationName, IsElement element) => Internals -> animationName -> Double -> Maybe element -> m () pauseAnimationAtTimeOnElement_ self animationName pauseTime element = liftIO (void (js_pauseAnimationAtTimeOnElement (self) (toJSString animationName) pauseTime (maybeToNullable (fmap toElement element)))) foreign import javascript unsafe "($1[\"pauseAnimationAtTimeOnPseudoElement\"]($2,\n$3, $4, $5) ? 1 : 0)" js_pauseAnimationAtTimeOnPseudoElement :: Internals -> JSString -> Double -> Nullable Element -> JSString -> IO Bool -- | pauseAnimationAtTimeOnPseudoElement :: (MonadIO m, ToJSString animationName, IsElement element, ToJSString pseudoId) => Internals -> animationName -> Double -> Maybe element -> pseudoId -> m Bool pauseAnimationAtTimeOnPseudoElement self animationName pauseTime element pseudoId = liftIO (js_pauseAnimationAtTimeOnPseudoElement (self) (toJSString animationName) pauseTime (maybeToNullable (fmap toElement element)) (toJSString pseudoId)) -- | pauseAnimationAtTimeOnPseudoElement_ :: (MonadIO m, ToJSString animationName, IsElement element, ToJSString pseudoId) => Internals -> animationName -> Double -> Maybe element -> pseudoId -> m () pauseAnimationAtTimeOnPseudoElement_ self animationName pauseTime element pseudoId = liftIO (void (js_pauseAnimationAtTimeOnPseudoElement (self) (toJSString animationName) pauseTime (maybeToNullable (fmap toElement element)) (toJSString pseudoId))) foreign import javascript unsafe "($1[\"pauseTransitionAtTimeOnElement\"]($2,\n$3, $4) ? 1 : 0)" js_pauseTransitionAtTimeOnElement :: Internals -> JSString -> Double -> Nullable Element -> IO Bool -- | pauseTransitionAtTimeOnElement :: (MonadIO m, ToJSString propertyName, IsElement element) => Internals -> propertyName -> Double -> Maybe element -> m Bool pauseTransitionAtTimeOnElement self propertyName pauseTime element = liftIO (js_pauseTransitionAtTimeOnElement (self) (toJSString propertyName) pauseTime (maybeToNullable (fmap toElement element))) -- | pauseTransitionAtTimeOnElement_ :: (MonadIO m, ToJSString propertyName, IsElement element) => Internals -> propertyName -> Double -> Maybe element -> m () pauseTransitionAtTimeOnElement_ self propertyName pauseTime element = liftIO (void (js_pauseTransitionAtTimeOnElement (self) (toJSString propertyName) pauseTime (maybeToNullable (fmap toElement element)))) foreign import javascript unsafe "($1[\"pauseTransitionAtTimeOnPseudoElement\"]($2,\n$3, $4, $5) ? 1 : 0)" js_pauseTransitionAtTimeOnPseudoElement :: Internals -> JSString -> Double -> Nullable Element -> JSString -> IO Bool -- | pauseTransitionAtTimeOnPseudoElement :: (MonadIO m, ToJSString property, IsElement element, ToJSString pseudoId) => Internals -> property -> Double -> Maybe element -> pseudoId -> m Bool pauseTransitionAtTimeOnPseudoElement self property pauseTime element pseudoId = liftIO (js_pauseTransitionAtTimeOnPseudoElement (self) (toJSString property) pauseTime (maybeToNullable (fmap toElement element)) (toJSString pseudoId)) -- | pauseTransitionAtTimeOnPseudoElement_ :: (MonadIO m, ToJSString property, IsElement element, ToJSString pseudoId) => Internals -> property -> Double -> Maybe element -> pseudoId -> m () pauseTransitionAtTimeOnPseudoElement_ self property pauseTime element pseudoId = liftIO (void (js_pauseTransitionAtTimeOnPseudoElement (self) (toJSString property) pauseTime (maybeToNullable (fmap toElement element)) (toJSString pseudoId))) foreign import javascript unsafe "($1[\"attached\"]($2) ? 1 : 0)" js_attached :: Internals -> Nullable Node -> IO Bool -- | attached :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool attached self node = liftIO (js_attached (self) (maybeToNullable (fmap toNode node))) -- | attached_ :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m () attached_ self node = liftIO (void (js_attached (self) (maybeToNullable (fmap toNode node)))) foreign import javascript unsafe "$1[\"visiblePlaceholder\"]($2)" js_visiblePlaceholder :: Internals -> Nullable Element -> IO JSString -- | visiblePlaceholder :: (MonadIO m, IsElement element, FromJSString result) => Internals -> Maybe element -> m result visiblePlaceholder self element = liftIO (fromJSString <$> (js_visiblePlaceholder (self) (maybeToNullable (fmap toElement element)))) -- | visiblePlaceholder_ :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m () visiblePlaceholder_ self element = liftIO (void (js_visiblePlaceholder (self) (maybeToNullable (fmap toElement element)))) foreign import javascript unsafe "$1[\"selectColorInColorChooser\"]($2,\n$3)" js_selectColorInColorChooser :: Internals -> Nullable Element -> JSString -> IO () -- | selectColorInColorChooser :: (MonadIO m, IsElement element, ToJSString colorValue) => Internals -> Maybe element -> colorValue -> m () selectColorInColorChooser self element colorValue = liftIO (js_selectColorInColorChooser (self) (maybeToNullable (fmap toElement element)) (toJSString colorValue)) foreign import javascript unsafe "$1[\"formControlStateOfPreviousHistoryItem\"]()" js_formControlStateOfPreviousHistoryItem :: Internals -> IO JSVal -- | formControlStateOfPreviousHistoryItem :: (MonadIO m, FromJSString result) => Internals -> m [result] formControlStateOfPreviousHistoryItem self = liftIO ((js_formControlStateOfPreviousHistoryItem (self)) >>= fromJSValUnchecked) -- | formControlStateOfPreviousHistoryItem_ :: (MonadIO m) => Internals -> m () formControlStateOfPreviousHistoryItem_ self = liftIO (void (js_formControlStateOfPreviousHistoryItem (self))) foreign import javascript unsafe "$1[\"setFormControlStateOfPreviousHistoryItem\"]($2)" js_setFormControlStateOfPreviousHistoryItem :: Internals -> JSVal -> IO () -- | setFormControlStateOfPreviousHistoryItem :: (MonadIO m, ToJSString values) => Internals -> [values] -> m () setFormControlStateOfPreviousHistoryItem self values = liftIO (toJSVal values >>= \ values' -> js_setFormControlStateOfPreviousHistoryItem (self) values') foreign import javascript unsafe "$1[\"absoluteCaretBounds\"]()" js_absoluteCaretBounds :: Internals -> IO (Nullable ClientRect) -- | absoluteCaretBounds :: (MonadIO m) => Internals -> m (Maybe ClientRect) absoluteCaretBounds self = liftIO (nullableToMaybe <$> (js_absoluteCaretBounds (self))) -- | absoluteCaretBounds_ :: (MonadIO m) => Internals -> m () absoluteCaretBounds_ self = liftIO (void (js_absoluteCaretBounds (self))) -- | absoluteCaretBoundsUnsafe :: (MonadIO m, HasCallStack) => Internals -> m ClientRect absoluteCaretBoundsUnsafe self = liftIO ((nullableToMaybe <$> (js_absoluteCaretBounds (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | absoluteCaretBoundsUnchecked :: (MonadIO m) => Internals -> m ClientRect absoluteCaretBoundsUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_absoluteCaretBounds (self))) foreign import javascript unsafe "$1[\"boundingBox\"]($2)" js_boundingBox :: Internals -> Nullable Element -> IO (Nullable ClientRect) -- | boundingBox :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m (Maybe ClientRect) boundingBox self element = liftIO (nullableToMaybe <$> (js_boundingBox (self) (maybeToNullable (fmap toElement element)))) -- | boundingBox_ :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m () boundingBox_ self element = liftIO (void (js_boundingBox (self) (maybeToNullable (fmap toElement element)))) -- | boundingBoxUnsafe :: (MonadIO m, IsElement element, HasCallStack) => Internals -> Maybe element -> m ClientRect boundingBoxUnsafe self element = liftIO ((nullableToMaybe <$> (js_boundingBox (self) (maybeToNullable (fmap toElement element)))) >>= maybe (Prelude.error "Nothing to return") return) -- | boundingBoxUnchecked :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m ClientRect boundingBoxUnchecked self element = liftIO (fromJust . nullableToMaybe <$> (js_boundingBox (self) (maybeToNullable (fmap toElement element)))) foreign import javascript unsafe "$1[\"inspectorHighlightRects\"]()" js_inspectorHighlightRects :: Internals -> IO (Nullable ClientRectList) -- | inspectorHighlightRects :: (MonadIO m) => Internals -> m (Maybe ClientRectList) inspectorHighlightRects self = liftIO (nullableToMaybe <$> (js_inspectorHighlightRects (self))) -- | inspectorHighlightRects_ :: (MonadIO m) => Internals -> m () inspectorHighlightRects_ self = liftIO (void (js_inspectorHighlightRects (self))) -- | inspectorHighlightRectsUnsafe :: (MonadIO m, HasCallStack) => Internals -> m ClientRectList inspectorHighlightRectsUnsafe self = liftIO ((nullableToMaybe <$> (js_inspectorHighlightRects (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | inspectorHighlightRectsUnchecked :: (MonadIO m) => Internals -> m ClientRectList inspectorHighlightRectsUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_inspectorHighlightRects (self))) foreign import javascript unsafe "$1[\"inspectorHighlightObject\"]()" js_inspectorHighlightObject :: Internals -> IO JSString -- | inspectorHighlightObject :: (MonadIO m, FromJSString result) => Internals -> m result inspectorHighlightObject self = liftIO (fromJSString <$> (js_inspectorHighlightObject (self))) -- | inspectorHighlightObject_ :: (MonadIO m) => Internals -> m () inspectorHighlightObject_ self = liftIO (void (js_inspectorHighlightObject (self))) foreign import javascript unsafe "$1[\"markerCountForNode\"]($2, $3)" js_markerCountForNode :: Internals -> Nullable Node -> JSString -> IO Word -- | markerCountForNode :: (MonadIO m, IsNode node, ToJSString markerType) => Internals -> Maybe node -> markerType -> m Word markerCountForNode self node markerType = liftIO (js_markerCountForNode (self) (maybeToNullable (fmap toNode node)) (toJSString markerType)) -- | markerCountForNode_ :: (MonadIO m, IsNode node, ToJSString markerType) => Internals -> Maybe node -> markerType -> m () markerCountForNode_ self node markerType = liftIO (void (js_markerCountForNode (self) (maybeToNullable (fmap toNode node)) (toJSString markerType))) foreign import javascript unsafe "$1[\"markerRangeForNode\"]($2, $3,\n$4)" js_markerRangeForNode :: Internals -> Nullable Node -> JSString -> Word -> IO (Nullable Range) -- | markerRangeForNode :: (MonadIO m, IsNode node, ToJSString markerType) => Internals -> Maybe node -> markerType -> Word -> m (Maybe Range) markerRangeForNode self node markerType index = liftIO (nullableToMaybe <$> (js_markerRangeForNode (self) (maybeToNullable (fmap toNode node)) (toJSString markerType) index)) -- | markerRangeForNode_ :: (MonadIO m, IsNode node, ToJSString markerType) => Internals -> Maybe node -> markerType -> Word -> m () markerRangeForNode_ self node markerType index = liftIO (void (js_markerRangeForNode (self) (maybeToNullable (fmap toNode node)) (toJSString markerType) index)) -- | markerRangeForNodeUnsafe :: (MonadIO m, IsNode node, ToJSString markerType, HasCallStack) => Internals -> Maybe node -> markerType -> Word -> m Range markerRangeForNodeUnsafe self node markerType index = liftIO ((nullableToMaybe <$> (js_markerRangeForNode (self) (maybeToNullable (fmap toNode node)) (toJSString markerType) index)) >>= maybe (Prelude.error "Nothing to return") return) -- | markerRangeForNodeUnchecked :: (MonadIO m, IsNode node, ToJSString markerType) => Internals -> Maybe node -> markerType -> Word -> m Range markerRangeForNodeUnchecked self node markerType index = liftIO (fromJust . nullableToMaybe <$> (js_markerRangeForNode (self) (maybeToNullable (fmap toNode node)) (toJSString markerType) index)) foreign import javascript unsafe "$1[\"markerDescriptionForNode\"]($2,\n$3, $4)" js_markerDescriptionForNode :: Internals -> Nullable Node -> JSString -> Word -> IO JSString -- | markerDescriptionForNode :: (MonadIO m, IsNode node, ToJSString markerType, FromJSString result) => Internals -> Maybe node -> markerType -> Word -> m result markerDescriptionForNode self node markerType index = liftIO (fromJSString <$> (js_markerDescriptionForNode (self) (maybeToNullable (fmap toNode node)) (toJSString markerType) index)) -- | markerDescriptionForNode_ :: (MonadIO m, IsNode node, ToJSString markerType) => Internals -> Maybe node -> markerType -> Word -> m () markerDescriptionForNode_ self node markerType index = liftIO (void (js_markerDescriptionForNode (self) (maybeToNullable (fmap toNode node)) (toJSString markerType) index)) foreign import javascript unsafe "$1[\"addTextMatchMarker\"]($2, $3)" js_addTextMatchMarker :: Internals -> Nullable Range -> Bool -> IO () -- | addTextMatchMarker :: (MonadIO m) => Internals -> Maybe Range -> Bool -> m () addTextMatchMarker self range isActive = liftIO (js_addTextMatchMarker (self) (maybeToNullable range) isActive) foreign import javascript unsafe "$1[\"setMarkedTextMatchesAreHighlighted\"]($2)" js_setMarkedTextMatchesAreHighlighted :: Internals -> Bool -> IO () -- | setMarkedTextMatchesAreHighlighted :: (MonadIO m) => Internals -> Bool -> m () setMarkedTextMatchesAreHighlighted self flag = liftIO (js_setMarkedTextMatchesAreHighlighted (self) flag) foreign import javascript unsafe "$1[\"invalidateFontCache\"]()" js_invalidateFontCache :: Internals -> IO () -- | invalidateFontCache :: (MonadIO m) => Internals -> m () invalidateFontCache self = liftIO (js_invalidateFontCache (self)) foreign import javascript unsafe "$1[\"setScrollViewPosition\"]($2,\n$3)" js_setScrollViewPosition :: Internals -> Int -> Int -> IO () -- | setScrollViewPosition :: (MonadIO m) => Internals -> Int -> Int -> m () setScrollViewPosition self x y = liftIO (js_setScrollViewPosition (self) x y) foreign import javascript unsafe "$1[\"setPagination\"]($2, $3, $4)" js_setPagination :: Internals -> JSString -> Int -> Int -> IO () -- | setPagination :: (MonadIO m, ToJSString mode) => Internals -> mode -> Int -> Int -> m () setPagination self mode gap pageLength = liftIO (js_setPagination (self) (toJSString mode) gap pageLength) foreign import javascript unsafe "$1[\"configurationForViewport\"]($2,\n$3, $4, $5, $6)" js_configurationForViewport :: Internals -> Float -> Int -> Int -> Int -> Int -> IO JSString -- | configurationForViewport :: (MonadIO m, FromJSString result) => Internals -> Float -> Int -> Int -> Int -> Int -> m result configurationForViewport self devicePixelRatio deviceWidth deviceHeight availableWidth availableHeight = liftIO (fromJSString <$> (js_configurationForViewport (self) devicePixelRatio deviceWidth deviceHeight availableWidth availableHeight)) -- | configurationForViewport_ :: (MonadIO m) => Internals -> Float -> Int -> Int -> Int -> Int -> m () configurationForViewport_ self devicePixelRatio deviceWidth deviceHeight availableWidth availableHeight = liftIO (void (js_configurationForViewport (self) devicePixelRatio deviceWidth deviceHeight availableWidth availableHeight)) foreign import javascript unsafe "($1[\"wasLastChangeUserEdit\"]($2) ? 1 : 0)" js_wasLastChangeUserEdit :: Internals -> Nullable Element -> IO Bool -- | wasLastChangeUserEdit :: (MonadIO m, IsElement textField) => Internals -> Maybe textField -> m Bool wasLastChangeUserEdit self textField = liftIO (js_wasLastChangeUserEdit (self) (maybeToNullable (fmap toElement textField))) -- | wasLastChangeUserEdit_ :: (MonadIO m, IsElement textField) => Internals -> Maybe textField -> m () wasLastChangeUserEdit_ self textField = liftIO (void (js_wasLastChangeUserEdit (self) (maybeToNullable (fmap toElement textField)))) foreign import javascript unsafe "($1[\"elementShouldAutoComplete\"]($2) ? 1 : 0)" js_elementShouldAutoComplete :: Internals -> Nullable Element -> IO Bool -- | elementShouldAutoComplete :: (MonadIO m, IsElement inputElement) => Internals -> Maybe inputElement -> m Bool elementShouldAutoComplete self inputElement = liftIO (js_elementShouldAutoComplete (self) (maybeToNullable (fmap toElement inputElement))) -- | elementShouldAutoComplete_ :: (MonadIO m, IsElement inputElement) => Internals -> Maybe inputElement -> m () elementShouldAutoComplete_ self inputElement = liftIO (void (js_elementShouldAutoComplete (self) (maybeToNullable (fmap toElement inputElement)))) foreign import javascript unsafe "$1[\"setEditingValue\"]($2, $3)" js_setEditingValue :: Internals -> Nullable Element -> JSString -> IO () -- | setEditingValue :: (MonadIO m, IsElement inputElement, ToJSString value) => Internals -> Maybe inputElement -> value -> m () setEditingValue self inputElement value = liftIO (js_setEditingValue (self) (maybeToNullable (fmap toElement inputElement)) (toJSString value)) foreign import javascript unsafe "$1[\"setAutofilled\"]($2, $3)" js_setAutofilled :: Internals -> Nullable Element -> Bool -> IO () -- | setAutofilled :: (MonadIO m, IsElement inputElement) => Internals -> Maybe inputElement -> Bool -> m () setAutofilled self inputElement enabled = liftIO (js_setAutofilled (self) (maybeToNullable (fmap toElement inputElement)) enabled) foreign import javascript unsafe "$1[\"countMatchesForText\"]($2,\n$3, $4)" js_countMatchesForText :: Internals -> JSString -> Word -> JSString -> IO Word -- | countMatchesForText :: (MonadIO m, ToJSString text, ToJSString markMatches) => Internals -> text -> Word -> markMatches -> m Word countMatchesForText self text findOptions markMatches = liftIO (js_countMatchesForText (self) (toJSString text) findOptions (toJSString markMatches)) -- | countMatchesForText_ :: (MonadIO m, ToJSString text, ToJSString markMatches) => Internals -> text -> Word -> markMatches -> m () countMatchesForText_ self text findOptions markMatches = liftIO (void (js_countMatchesForText (self) (toJSString text) findOptions (toJSString markMatches))) foreign import javascript unsafe "$1[\"paintControlTints\"]()" js_paintControlTints :: Internals -> IO () -- | paintControlTints :: (MonadIO m) => Internals -> m () paintControlTints self = liftIO (js_paintControlTints (self)) foreign import javascript unsafe "$1[\"scrollElementToRect\"]($2,\n$3, $4, $5, $6)" js_scrollElementToRect :: Internals -> Nullable Element -> Int -> Int -> Int -> Int -> IO () -- | scrollElementToRect :: (MonadIO m, IsElement element) => Internals -> Maybe element -> Int -> Int -> Int -> Int -> m () scrollElementToRect self element x y w h = liftIO (js_scrollElementToRect (self) (maybeToNullable (fmap toElement element)) x y w h) foreign import javascript unsafe "$1[\"rangeFromLocationAndLength\"]($2,\n$3, $4)" js_rangeFromLocationAndLength :: Internals -> Nullable Element -> Int -> Int -> IO (Nullable Range) -- | rangeFromLocationAndLength :: (MonadIO m, IsElement scope) => Internals -> Maybe scope -> Int -> Int -> m (Maybe Range) rangeFromLocationAndLength self scope rangeLocation rangeLength = liftIO (nullableToMaybe <$> (js_rangeFromLocationAndLength (self) (maybeToNullable (fmap toElement scope)) rangeLocation rangeLength)) -- | rangeFromLocationAndLength_ :: (MonadIO m, IsElement scope) => Internals -> Maybe scope -> Int -> Int -> m () rangeFromLocationAndLength_ self scope rangeLocation rangeLength = liftIO (void (js_rangeFromLocationAndLength (self) (maybeToNullable (fmap toElement scope)) rangeLocation rangeLength)) -- | rangeFromLocationAndLengthUnsafe :: (MonadIO m, IsElement scope, HasCallStack) => Internals -> Maybe scope -> Int -> Int -> m Range rangeFromLocationAndLengthUnsafe self scope rangeLocation rangeLength = liftIO ((nullableToMaybe <$> (js_rangeFromLocationAndLength (self) (maybeToNullable (fmap toElement scope)) rangeLocation rangeLength)) >>= maybe (Prelude.error "Nothing to return") return) -- | rangeFromLocationAndLengthUnchecked :: (MonadIO m, IsElement scope) => Internals -> Maybe scope -> Int -> Int -> m Range rangeFromLocationAndLengthUnchecked self scope rangeLocation rangeLength = liftIO (fromJust . nullableToMaybe <$> (js_rangeFromLocationAndLength (self) (maybeToNullable (fmap toElement scope)) rangeLocation rangeLength)) foreign import javascript unsafe "$1[\"locationFromRange\"]($2, $3)" js_locationFromRange :: Internals -> Nullable Element -> Nullable Range -> IO Word -- | locationFromRange :: (MonadIO m, IsElement scope) => Internals -> Maybe scope -> Maybe Range -> m Word locationFromRange self scope range = liftIO (js_locationFromRange (self) (maybeToNullable (fmap toElement scope)) (maybeToNullable range)) -- | locationFromRange_ :: (MonadIO m, IsElement scope) => Internals -> Maybe scope -> Maybe Range -> m () locationFromRange_ self scope range = liftIO (void (js_locationFromRange (self) (maybeToNullable (fmap toElement scope)) (maybeToNullable range))) foreign import javascript unsafe "$1[\"lengthFromRange\"]($2, $3)" js_lengthFromRange :: Internals -> Nullable Element -> Nullable Range -> IO Word -- | lengthFromRange :: (MonadIO m, IsElement scope) => Internals -> Maybe scope -> Maybe Range -> m Word lengthFromRange self scope range = liftIO (js_lengthFromRange (self) (maybeToNullable (fmap toElement scope)) (maybeToNullable range)) -- | lengthFromRange_ :: (MonadIO m, IsElement scope) => Internals -> Maybe scope -> Maybe Range -> m () lengthFromRange_ self scope range = liftIO (void (js_lengthFromRange (self) (maybeToNullable (fmap toElement scope)) (maybeToNullable range))) foreign import javascript unsafe "$1[\"rangeAsText\"]($2)" js_rangeAsText :: Internals -> Nullable Range -> IO JSString -- | rangeAsText :: (MonadIO m, FromJSString result) => Internals -> Maybe Range -> m result rangeAsText self range = liftIO (fromJSString <$> (js_rangeAsText (self) (maybeToNullable range))) -- | rangeAsText_ :: (MonadIO m) => Internals -> Maybe Range -> m () rangeAsText_ self range = liftIO (void (js_rangeAsText (self) (maybeToNullable range))) foreign import javascript unsafe "$1[\"subrange\"]($2, $3, $4)" js_subrange :: Internals -> Nullable Range -> Int -> Int -> IO (Nullable Range) -- | subrange :: (MonadIO m) => Internals -> Maybe Range -> Int -> Int -> m (Maybe Range) subrange self range rangeLocation rangeLength = liftIO (nullableToMaybe <$> (js_subrange (self) (maybeToNullable range) rangeLocation rangeLength)) -- | subrange_ :: (MonadIO m) => Internals -> Maybe Range -> Int -> Int -> m () subrange_ self range rangeLocation rangeLength = liftIO (void (js_subrange (self) (maybeToNullable range) rangeLocation rangeLength)) -- | subrangeUnsafe :: (MonadIO m, HasCallStack) => Internals -> Maybe Range -> Int -> Int -> m Range subrangeUnsafe self range rangeLocation rangeLength = liftIO ((nullableToMaybe <$> (js_subrange (self) (maybeToNullable range) rangeLocation rangeLength)) >>= maybe (Prelude.error "Nothing to return") return) -- | subrangeUnchecked :: (MonadIO m) => Internals -> Maybe Range -> Int -> Int -> m Range subrangeUnchecked self range rangeLocation rangeLength = liftIO (fromJust . nullableToMaybe <$> (js_subrange (self) (maybeToNullable range) rangeLocation rangeLength)) foreign import javascript unsafe "$1[\"rangeForDictionaryLookupAtLocation\"]($2,\n$3)" js_rangeForDictionaryLookupAtLocation :: Internals -> Int -> Int -> IO (Nullable Range) -- | rangeForDictionaryLookupAtLocation :: (MonadIO m) => Internals -> Int -> Int -> m (Maybe Range) rangeForDictionaryLookupAtLocation self x y = liftIO (nullableToMaybe <$> (js_rangeForDictionaryLookupAtLocation (self) x y)) -- | rangeForDictionaryLookupAtLocation_ :: (MonadIO m) => Internals -> Int -> Int -> m () rangeForDictionaryLookupAtLocation_ self x y = liftIO (void (js_rangeForDictionaryLookupAtLocation (self) x y)) -- | rangeForDictionaryLookupAtLocationUnsafe :: (MonadIO m, HasCallStack) => Internals -> Int -> Int -> m Range rangeForDictionaryLookupAtLocationUnsafe self x y = liftIO ((nullableToMaybe <$> (js_rangeForDictionaryLookupAtLocation (self) x y)) >>= maybe (Prelude.error "Nothing to return") return) -- | rangeForDictionaryLookupAtLocationUnchecked :: (MonadIO m) => Internals -> Int -> Int -> m Range rangeForDictionaryLookupAtLocationUnchecked self x y = liftIO (fromJust . nullableToMaybe <$> (js_rangeForDictionaryLookupAtLocation (self) x y)) foreign import javascript unsafe "$1[\"setDelegatesScrolling\"]($2)" js_setDelegatesScrolling :: Internals -> Bool -> IO () -- | setDelegatesScrolling :: (MonadIO m) => Internals -> Bool -> m () setDelegatesScrolling self enabled = liftIO (js_setDelegatesScrolling (self) enabled) foreign import javascript unsafe "$1[\"lastSpellCheckRequestSequence\"]()" js_lastSpellCheckRequestSequence :: Internals -> IO Int -- | lastSpellCheckRequestSequence :: (MonadIO m) => Internals -> m Int lastSpellCheckRequestSequence self = liftIO (js_lastSpellCheckRequestSequence (self)) -- | lastSpellCheckRequestSequence_ :: (MonadIO m) => Internals -> m () lastSpellCheckRequestSequence_ self = liftIO (void (js_lastSpellCheckRequestSequence (self))) foreign import javascript unsafe "$1[\"lastSpellCheckProcessedSequence\"]()" js_lastSpellCheckProcessedSequence :: Internals -> IO Int -- | lastSpellCheckProcessedSequence :: (MonadIO m) => Internals -> m Int lastSpellCheckProcessedSequence self = liftIO (js_lastSpellCheckProcessedSequence (self)) -- | lastSpellCheckProcessedSequence_ :: (MonadIO m) => Internals -> m () lastSpellCheckProcessedSequence_ self = liftIO (void (js_lastSpellCheckProcessedSequence (self))) foreign import javascript unsafe "$1[\"userPreferredLanguages\"]()" js_userPreferredLanguages :: Internals -> IO JSVal -- | userPreferredLanguages :: (MonadIO m, FromJSString result) => Internals -> m [result] userPreferredLanguages self = liftIO ((js_userPreferredLanguages (self)) >>= fromJSValUnchecked) -- | userPreferredLanguages_ :: (MonadIO m) => Internals -> m () userPreferredLanguages_ self = liftIO (void (js_userPreferredLanguages (self))) foreign import javascript unsafe "$1[\"setUserPreferredLanguages\"]($2)" js_setUserPreferredLanguages :: Internals -> JSVal -> IO () -- | setUserPreferredLanguages :: (MonadIO m, ToJSString languages) => Internals -> [languages] -> m () setUserPreferredLanguages self languages = liftIO (toJSVal languages >>= \ languages' -> js_setUserPreferredLanguages (self) languages') foreign import javascript unsafe "$1[\"wheelEventHandlerCount\"]()" js_wheelEventHandlerCount :: Internals -> IO Word -- | wheelEventHandlerCount :: (MonadIO m) => Internals -> m Word wheelEventHandlerCount self = liftIO (js_wheelEventHandlerCount (self)) -- | wheelEventHandlerCount_ :: (MonadIO m) => Internals -> m () wheelEventHandlerCount_ self = liftIO (void (js_wheelEventHandlerCount (self))) foreign import javascript unsafe "$1[\"touchEventHandlerCount\"]()" js_touchEventHandlerCount :: Internals -> IO Word -- | touchEventHandlerCount :: (MonadIO m) => Internals -> m Word touchEventHandlerCount self = liftIO (js_touchEventHandlerCount (self)) -- | touchEventHandlerCount_ :: (MonadIO m) => Internals -> m () touchEventHandlerCount_ self = liftIO (void (js_touchEventHandlerCount (self))) foreign import javascript unsafe "$1[\"nodesFromRect\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11)" js_nodesFromRect :: Internals -> Nullable Document -> Int -> Int -> Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> IO (Nullable NodeList) -- | nodesFromRect :: (MonadIO m, IsDocument document) => Internals -> Maybe document -> Int -> Int -> Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> m (Maybe NodeList) nodesFromRect self document x y topPadding rightPadding bottomPadding leftPadding ignoreClipping allowShadowContent allowChildFrameContent = liftIO (nullableToMaybe <$> (js_nodesFromRect (self) (maybeToNullable (fmap toDocument document)) x y topPadding rightPadding bottomPadding leftPadding ignoreClipping allowShadowContent allowChildFrameContent)) -- | nodesFromRect_ :: (MonadIO m, IsDocument document) => Internals -> Maybe document -> Int -> Int -> Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> m () nodesFromRect_ self document x y topPadding rightPadding bottomPadding leftPadding ignoreClipping allowShadowContent allowChildFrameContent = liftIO (void (js_nodesFromRect (self) (maybeToNullable (fmap toDocument document)) x y topPadding rightPadding bottomPadding leftPadding ignoreClipping allowShadowContent allowChildFrameContent)) -- | nodesFromRectUnsafe :: (MonadIO m, IsDocument document, HasCallStack) => Internals -> Maybe document -> Int -> Int -> Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> m NodeList nodesFromRectUnsafe self document x y topPadding rightPadding bottomPadding leftPadding ignoreClipping allowShadowContent allowChildFrameContent = liftIO ((nullableToMaybe <$> (js_nodesFromRect (self) (maybeToNullable (fmap toDocument document)) x y topPadding rightPadding bottomPadding leftPadding ignoreClipping allowShadowContent allowChildFrameContent)) >>= maybe (Prelude.error "Nothing to return") return) -- | nodesFromRectUnchecked :: (MonadIO m, IsDocument document) => Internals -> Maybe document -> Int -> Int -> Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> m NodeList nodesFromRectUnchecked self document x y topPadding rightPadding bottomPadding leftPadding ignoreClipping allowShadowContent allowChildFrameContent = liftIO (fromJust . nullableToMaybe <$> (js_nodesFromRect (self) (maybeToNullable (fmap toDocument document)) x y topPadding rightPadding bottomPadding leftPadding ignoreClipping allowShadowContent allowChildFrameContent)) foreign import javascript unsafe "$1[\"parserMetaData\"]($2)" js_parserMetaData :: Internals -> JSVal -> IO JSString -- | parserMetaData :: (MonadIO m, FromJSString result) => Internals -> JSVal -> m result parserMetaData self func = liftIO (fromJSString <$> (js_parserMetaData (self) func)) -- | parserMetaData_ :: (MonadIO m) => Internals -> JSVal -> m () parserMetaData_ self func = liftIO (void (js_parserMetaData (self) func)) foreign import javascript unsafe "$1[\"updateEditorUINowIfScheduled\"]()" js_updateEditorUINowIfScheduled :: Internals -> IO () -- | updateEditorUINowIfScheduled :: (MonadIO m) => Internals -> m () updateEditorUINowIfScheduled self = liftIO (js_updateEditorUINowIfScheduled (self)) foreign import javascript unsafe "($1[\"hasSpellingMarker\"]($2,\n$3) ? 1 : 0)" js_hasSpellingMarker :: Internals -> Int -> Int -> IO Bool -- | hasSpellingMarker :: (MonadIO m) => Internals -> Int -> Int -> m Bool hasSpellingMarker self from length = liftIO (js_hasSpellingMarker (self) from length) -- | hasSpellingMarker_ :: (MonadIO m) => Internals -> Int -> Int -> m () hasSpellingMarker_ self from length = liftIO (void (js_hasSpellingMarker (self) from length)) foreign import javascript unsafe "($1[\"hasGrammarMarker\"]($2,\n$3) ? 1 : 0)" js_hasGrammarMarker :: Internals -> Int -> Int -> IO Bool -- | hasGrammarMarker :: (MonadIO m) => Internals -> Int -> Int -> m Bool hasGrammarMarker self from length = liftIO (js_hasGrammarMarker (self) from length) -- | hasGrammarMarker_ :: (MonadIO m) => Internals -> Int -> Int -> m () hasGrammarMarker_ self from length = liftIO (void (js_hasGrammarMarker (self) from length)) foreign import javascript unsafe "($1[\"hasAutocorrectedMarker\"]($2,\n$3) ? 1 : 0)" js_hasAutocorrectedMarker :: Internals -> Int -> Int -> IO Bool -- | hasAutocorrectedMarker :: (MonadIO m) => Internals -> Int -> Int -> m Bool hasAutocorrectedMarker self from length = liftIO (js_hasAutocorrectedMarker (self) from length) -- | hasAutocorrectedMarker_ :: (MonadIO m) => Internals -> Int -> Int -> m () hasAutocorrectedMarker_ self from length = liftIO (void (js_hasAutocorrectedMarker (self) from length)) foreign import javascript unsafe "$1[\"setContinuousSpellCheckingEnabled\"]($2)" js_setContinuousSpellCheckingEnabled :: Internals -> Bool -> IO () -- | setContinuousSpellCheckingEnabled :: (MonadIO m) => Internals -> Bool -> m () setContinuousSpellCheckingEnabled self enabled = liftIO (js_setContinuousSpellCheckingEnabled (self) enabled) foreign import javascript unsafe "$1[\"setAutomaticQuoteSubstitutionEnabled\"]($2)" js_setAutomaticQuoteSubstitutionEnabled :: Internals -> Bool -> IO () -- | setAutomaticQuoteSubstitutionEnabled :: (MonadIO m) => Internals -> Bool -> m () setAutomaticQuoteSubstitutionEnabled self enabled = liftIO (js_setAutomaticQuoteSubstitutionEnabled (self) enabled) foreign import javascript unsafe "$1[\"setAutomaticLinkDetectionEnabled\"]($2)" js_setAutomaticLinkDetectionEnabled :: Internals -> Bool -> IO () -- | setAutomaticLinkDetectionEnabled :: (MonadIO m) => Internals -> Bool -> m () setAutomaticLinkDetectionEnabled self enabled = liftIO (js_setAutomaticLinkDetectionEnabled (self) enabled) foreign import javascript unsafe "$1[\"setAutomaticDashSubstitutionEnabled\"]($2)" js_setAutomaticDashSubstitutionEnabled :: Internals -> Bool -> IO () -- | setAutomaticDashSubstitutionEnabled :: (MonadIO m) => Internals -> Bool -> m () setAutomaticDashSubstitutionEnabled self enabled = liftIO (js_setAutomaticDashSubstitutionEnabled (self) enabled) foreign import javascript unsafe "$1[\"setAutomaticTextReplacementEnabled\"]($2)" js_setAutomaticTextReplacementEnabled :: Internals -> Bool -> IO () -- | setAutomaticTextReplacementEnabled :: (MonadIO m) => Internals -> Bool -> m () setAutomaticTextReplacementEnabled self enabled = liftIO (js_setAutomaticTextReplacementEnabled (self) enabled) foreign import javascript unsafe "$1[\"setAutomaticSpellingCorrectionEnabled\"]($2)" js_setAutomaticSpellingCorrectionEnabled :: Internals -> Bool -> IO () -- | setAutomaticSpellingCorrectionEnabled :: (MonadIO m) => Internals -> Bool -> m () setAutomaticSpellingCorrectionEnabled self enabled = liftIO (js_setAutomaticSpellingCorrectionEnabled (self) enabled) foreign import javascript unsafe "($1[\"isOverwriteModeEnabled\"]() ? 1 : 0)" js_isOverwriteModeEnabled :: Internals -> IO Bool -- | isOverwriteModeEnabled :: (MonadIO m) => Internals -> m Bool isOverwriteModeEnabled self = liftIO (js_isOverwriteModeEnabled (self)) -- | isOverwriteModeEnabled_ :: (MonadIO m) => Internals -> m () isOverwriteModeEnabled_ self = liftIO (void (js_isOverwriteModeEnabled (self))) foreign import javascript unsafe "$1[\"toggleOverwriteModeEnabled\"]()" js_toggleOverwriteModeEnabled :: Internals -> IO () -- | toggleOverwriteModeEnabled :: (MonadIO m) => Internals -> m () toggleOverwriteModeEnabled self = liftIO (js_toggleOverwriteModeEnabled (self)) foreign import javascript unsafe "$1[\"numberOfScrollableAreas\"]()" js_numberOfScrollableAreas :: Internals -> IO Word -- | numberOfScrollableAreas :: (MonadIO m) => Internals -> m Word numberOfScrollableAreas self = liftIO (js_numberOfScrollableAreas (self)) -- | numberOfScrollableAreas_ :: (MonadIO m) => Internals -> m () numberOfScrollableAreas_ self = liftIO (void (js_numberOfScrollableAreas (self))) foreign import javascript unsafe "($1[\"isPageBoxVisible\"]($2) ? 1 : 0)" js_isPageBoxVisible :: Internals -> Int -> IO Bool -- | isPageBoxVisible :: (MonadIO m) => Internals -> Int -> m Bool isPageBoxVisible self pageNumber = liftIO (js_isPageBoxVisible (self) pageNumber) -- | isPageBoxVisible_ :: (MonadIO m) => Internals -> Int -> m () isPageBoxVisible_ self pageNumber = liftIO (void (js_isPageBoxVisible (self) pageNumber)) foreign import javascript unsafe "$1[\"layerTreeAsText\"]($2, $3)" js_layerTreeAsText :: Internals -> Nullable Document -> Word -> IO JSString -- | layerTreeAsText :: (MonadIO m, IsDocument document, FromJSString result) => Internals -> Maybe document -> Word -> m result layerTreeAsText self document flags = liftIO (fromJSString <$> (js_layerTreeAsText (self) (maybeToNullable (fmap toDocument document)) flags)) -- | layerTreeAsText_ :: (MonadIO m, IsDocument document) => Internals -> Maybe document -> Word -> m () layerTreeAsText_ self document flags = liftIO (void (js_layerTreeAsText (self) (maybeToNullable (fmap toDocument document)) flags)) foreign import javascript unsafe "$1[\"scrollingStateTreeAsText\"]()" js_scrollingStateTreeAsText :: Internals -> IO JSString -- | scrollingStateTreeAsText :: (MonadIO m, FromJSString result) => Internals -> m result scrollingStateTreeAsText self = liftIO (fromJSString <$> (js_scrollingStateTreeAsText (self))) -- | scrollingStateTreeAsText_ :: (MonadIO m) => Internals -> m () scrollingStateTreeAsText_ self = liftIO (void (js_scrollingStateTreeAsText (self))) foreign import javascript unsafe "$1[\"mainThreadScrollingReasons\"]()" js_mainThreadScrollingReasons :: Internals -> IO JSString -- | mainThreadScrollingReasons :: (MonadIO m, FromJSString result) => Internals -> m result mainThreadScrollingReasons self = liftIO (fromJSString <$> (js_mainThreadScrollingReasons (self))) -- | mainThreadScrollingReasons_ :: (MonadIO m) => Internals -> m () mainThreadScrollingReasons_ self = liftIO (void (js_mainThreadScrollingReasons (self))) foreign import javascript unsafe "$1[\"nonFastScrollableRects\"]()" js_nonFastScrollableRects :: Internals -> IO (Nullable ClientRectList) -- | nonFastScrollableRects :: (MonadIO m) => Internals -> m (Maybe ClientRectList) nonFastScrollableRects self = liftIO (nullableToMaybe <$> (js_nonFastScrollableRects (self))) -- | nonFastScrollableRects_ :: (MonadIO m) => Internals -> m () nonFastScrollableRects_ self = liftIO (void (js_nonFastScrollableRects (self))) -- | nonFastScrollableRectsUnsafe :: (MonadIO m, HasCallStack) => Internals -> m ClientRectList nonFastScrollableRectsUnsafe self = liftIO ((nullableToMaybe <$> (js_nonFastScrollableRects (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | nonFastScrollableRectsUnchecked :: (MonadIO m) => Internals -> m ClientRectList nonFastScrollableRectsUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_nonFastScrollableRects (self))) foreign import javascript unsafe "$1[\"repaintRectsAsText\"]()" js_repaintRectsAsText :: Internals -> IO JSString -- | repaintRectsAsText :: (MonadIO m, FromJSString result) => Internals -> m result repaintRectsAsText self = liftIO (fromJSString <$> (js_repaintRectsAsText (self))) -- | repaintRectsAsText_ :: (MonadIO m) => Internals -> m () repaintRectsAsText_ self = liftIO (void (js_repaintRectsAsText (self))) foreign import javascript unsafe "$1[\"garbageCollectDocumentResources\"]()" js_garbageCollectDocumentResources :: Internals -> IO () -- | garbageCollectDocumentResources :: (MonadIO m) => Internals -> m () garbageCollectDocumentResources self = liftIO (js_garbageCollectDocumentResources (self)) foreign import javascript unsafe "$1[\"allowRoundingHacks\"]()" js_allowRoundingHacks :: Internals -> IO () -- | allowRoundingHacks :: (MonadIO m) => Internals -> m () allowRoundingHacks self = liftIO (js_allowRoundingHacks (self)) foreign import javascript unsafe "$1[\"insertAuthorCSS\"]($2)" js_insertAuthorCSS :: Internals -> JSString -> IO () -- | insertAuthorCSS :: (MonadIO m, ToJSString css) => Internals -> css -> m () insertAuthorCSS self css = liftIO (js_insertAuthorCSS (self) (toJSString css)) foreign import javascript unsafe "$1[\"insertUserCSS\"]($2)" js_insertUserCSS :: Internals -> JSString -> IO () -- | insertUserCSS :: (MonadIO m, ToJSString css) => Internals -> css -> m () insertUserCSS self css = liftIO (js_insertUserCSS (self) (toJSString css)) foreign import javascript unsafe "$1[\"setBatteryStatus\"]($2, $3,\n$4, $5, $6)" js_setBatteryStatus :: Internals -> JSString -> Bool -> Double -> Double -> Double -> IO () -- | setBatteryStatus :: (MonadIO m, ToJSString eventType) => Internals -> eventType -> Bool -> Double -> Double -> Double -> m () setBatteryStatus self eventType charging chargingTime dischargingTime level = liftIO (js_setBatteryStatus (self) (toJSString eventType) charging chargingTime dischargingTime level) foreign import javascript unsafe "$1[\"setDeviceProximity\"]($2, $3,\n$4, $5)" js_setDeviceProximity :: Internals -> JSString -> Double -> Double -> Double -> IO () -- | setDeviceProximity :: (MonadIO m, ToJSString eventType) => Internals -> eventType -> Double -> Double -> Double -> m () setDeviceProximity self eventType value min max = liftIO (js_setDeviceProximity (self) (toJSString eventType) value min max) foreign import javascript unsafe "$1[\"numberOfLiveNodes\"]()" js_numberOfLiveNodes :: Internals -> IO Word -- | numberOfLiveNodes :: (MonadIO m) => Internals -> m Word numberOfLiveNodes self = liftIO (js_numberOfLiveNodes (self)) -- | numberOfLiveNodes_ :: (MonadIO m) => Internals -> m () numberOfLiveNodes_ self = liftIO (void (js_numberOfLiveNodes (self))) foreign import javascript unsafe "$1[\"numberOfLiveDocuments\"]()" js_numberOfLiveDocuments :: Internals -> IO Word -- | numberOfLiveDocuments :: (MonadIO m) => Internals -> m Word numberOfLiveDocuments self = liftIO (js_numberOfLiveDocuments (self)) -- | numberOfLiveDocuments_ :: (MonadIO m) => Internals -> m () numberOfLiveDocuments_ self = liftIO (void (js_numberOfLiveDocuments (self))) foreign import javascript unsafe "$1[\"consoleMessageArgumentCounts\"]()" js_consoleMessageArgumentCounts :: Internals -> IO JSVal -- | consoleMessageArgumentCounts :: (MonadIO m, FromJSString result) => Internals -> m [result] consoleMessageArgumentCounts self = liftIO ((js_consoleMessageArgumentCounts (self)) >>= fromJSValUnchecked) -- | consoleMessageArgumentCounts_ :: (MonadIO m) => Internals -> m () consoleMessageArgumentCounts_ self = liftIO (void (js_consoleMessageArgumentCounts (self))) foreign import javascript unsafe "$1[\"openDummyInspectorFrontend\"]($2)" js_openDummyInspectorFrontend :: Internals -> JSString -> IO (Nullable Window) -- | openDummyInspectorFrontend :: (MonadIO m, ToJSString url) => Internals -> url -> m (Maybe Window) openDummyInspectorFrontend self url = liftIO (nullableToMaybe <$> (js_openDummyInspectorFrontend (self) (toJSString url))) -- | openDummyInspectorFrontend_ :: (MonadIO m, ToJSString url) => Internals -> url -> m () openDummyInspectorFrontend_ self url = liftIO (void (js_openDummyInspectorFrontend (self) (toJSString url))) -- | openDummyInspectorFrontendUnsafe :: (MonadIO m, ToJSString url, HasCallStack) => Internals -> url -> m Window openDummyInspectorFrontendUnsafe self url = liftIO ((nullableToMaybe <$> (js_openDummyInspectorFrontend (self) (toJSString url))) >>= maybe (Prelude.error "Nothing to return") return) -- | openDummyInspectorFrontendUnchecked :: (MonadIO m, ToJSString url) => Internals -> url -> m Window openDummyInspectorFrontendUnchecked self url = liftIO (fromJust . nullableToMaybe <$> (js_openDummyInspectorFrontend (self) (toJSString url))) foreign import javascript unsafe "$1[\"closeDummyInspectorFrontend\"]()" js_closeDummyInspectorFrontend :: Internals -> IO () -- | closeDummyInspectorFrontend :: (MonadIO m) => Internals -> m () closeDummyInspectorFrontend self = liftIO (js_closeDummyInspectorFrontend (self)) foreign import javascript unsafe "$1[\"setJavaScriptProfilingEnabled\"]($2)" js_setJavaScriptProfilingEnabled :: Internals -> Bool -> IO () -- | setJavaScriptProfilingEnabled :: (MonadIO m) => Internals -> Bool -> m () setJavaScriptProfilingEnabled self creates = liftIO (js_setJavaScriptProfilingEnabled (self) creates) foreign import javascript unsafe "$1[\"setInspectorIsUnderTest\"]($2)" js_setInspectorIsUnderTest :: Internals -> Bool -> IO () -- | setInspectorIsUnderTest :: (MonadIO m) => Internals -> Bool -> m () setInspectorIsUnderTest self isUnderTest = liftIO (js_setInspectorIsUnderTest (self) isUnderTest) foreign import javascript unsafe "$1[\"counterValue\"]($2)" js_counterValue :: Internals -> Nullable Element -> IO JSString -- | counterValue :: (MonadIO m, IsElement element, FromJSString result) => Internals -> Maybe element -> m result counterValue self element = liftIO (fromJSString <$> (js_counterValue (self) (maybeToNullable (fmap toElement element)))) -- | counterValue_ :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m () counterValue_ self element = liftIO (void (js_counterValue (self) (maybeToNullable (fmap toElement element)))) foreign import javascript unsafe "$1[\"pageNumber\"]($2, $3, $4)" js_pageNumber :: Internals -> Nullable Element -> Float -> Float -> IO Int -- | pageNumber :: (MonadIO m, IsElement element) => Internals -> Maybe element -> Float -> Float -> m Int pageNumber self element pageWidth pageHeight = liftIO (js_pageNumber (self) (maybeToNullable (fmap toElement element)) pageWidth pageHeight) -- | pageNumber_ :: (MonadIO m, IsElement element) => Internals -> Maybe element -> Float -> Float -> m () pageNumber_ self element pageWidth pageHeight = liftIO (void (js_pageNumber (self) (maybeToNullable (fmap toElement element)) pageWidth pageHeight)) foreign import javascript unsafe "$1[\"shortcutIconURLs\"]()" js_shortcutIconURLs :: Internals -> IO JSVal -- | shortcutIconURLs :: (MonadIO m, FromJSString result) => Internals -> m [result] shortcutIconURLs self = liftIO ((js_shortcutIconURLs (self)) >>= fromJSValUnchecked) -- | shortcutIconURLs_ :: (MonadIO m) => Internals -> m () shortcutIconURLs_ self = liftIO (void (js_shortcutIconURLs (self))) foreign import javascript unsafe "$1[\"allIconURLs\"]()" js_allIconURLs :: Internals -> IO JSVal -- | allIconURLs :: (MonadIO m, FromJSString result) => Internals -> m [result] allIconURLs self = liftIO ((js_allIconURLs (self)) >>= fromJSValUnchecked) -- | allIconURLs_ :: (MonadIO m) => Internals -> m () allIconURLs_ self = liftIO (void (js_allIconURLs (self))) foreign import javascript unsafe "$1[\"numberOfPages\"]($2, $3)" js_numberOfPages :: Internals -> Double -> Double -> IO Int -- | numberOfPages :: (MonadIO m) => Internals -> Double -> Double -> m Int numberOfPages self pageWidthInPixels pageHeightInPixels = liftIO (js_numberOfPages (self) pageWidthInPixels pageHeightInPixels) -- | numberOfPages_ :: (MonadIO m) => Internals -> Double -> Double -> m () numberOfPages_ self pageWidthInPixels pageHeightInPixels = liftIO (void (js_numberOfPages (self) pageWidthInPixels pageHeightInPixels)) foreign import javascript unsafe "$1[\"pageProperty\"]($2, $3)" js_pageProperty :: Internals -> JSString -> Int -> IO JSString -- | pageProperty :: (MonadIO m, ToJSString propertyName, FromJSString result) => Internals -> propertyName -> Int -> m result pageProperty self propertyName pageNumber = liftIO (fromJSString <$> (js_pageProperty (self) (toJSString propertyName) pageNumber)) -- | pageProperty_ :: (MonadIO m, ToJSString propertyName) => Internals -> propertyName -> Int -> m () pageProperty_ self propertyName pageNumber = liftIO (void (js_pageProperty (self) (toJSString propertyName) pageNumber)) foreign import javascript unsafe "$1[\"pageSizeAndMarginsInPixels\"]($2,\n$3, $4, $5, $6, $7, $8)" js_pageSizeAndMarginsInPixels :: Internals -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> IO JSString -- | pageSizeAndMarginsInPixels :: (MonadIO m, FromJSString result) => Internals -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> m result pageSizeAndMarginsInPixels self pageIndex width height marginTop marginRight marginBottom marginLeft = liftIO (fromJSString <$> (js_pageSizeAndMarginsInPixels (self) pageIndex width height marginTop marginRight marginBottom marginLeft)) -- | pageSizeAndMarginsInPixels_ :: (MonadIO m) => Internals -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> m () pageSizeAndMarginsInPixels_ self pageIndex width height marginTop marginRight marginBottom marginLeft = liftIO (void (js_pageSizeAndMarginsInPixels (self) pageIndex width height marginTop marginRight marginBottom marginLeft)) foreign import javascript unsafe "$1[\"setPageScaleFactor\"]($2, $3,\n$4)" js_setPageScaleFactor :: Internals -> Float -> Int -> Int -> IO () -- | setPageScaleFactor :: (MonadIO m) => Internals -> Float -> Int -> Int -> m () setPageScaleFactor self scaleFactor x y = liftIO (js_setPageScaleFactor (self) scaleFactor x y) foreign import javascript unsafe "$1[\"setPageZoomFactor\"]($2)" js_setPageZoomFactor :: Internals -> Float -> IO () -- | setPageZoomFactor :: (MonadIO m) => Internals -> Float -> m () setPageZoomFactor self zoomFactor = liftIO (js_setPageZoomFactor (self) zoomFactor) foreign import javascript unsafe "$1[\"setHeaderHeight\"]($2)" js_setHeaderHeight :: Internals -> Float -> IO () -- | setHeaderHeight :: (MonadIO m) => Internals -> Float -> m () setHeaderHeight self height = liftIO (js_setHeaderHeight (self) height) foreign import javascript unsafe "$1[\"setFooterHeight\"]($2)" js_setFooterHeight :: Internals -> Float -> IO () -- | setFooterHeight :: (MonadIO m) => Internals -> Float -> m () setFooterHeight self height = liftIO (js_setFooterHeight (self) height) foreign import javascript unsafe "$1[\"setTopContentInset\"]($2)" js_setTopContentInset :: Internals -> Float -> IO () -- | setTopContentInset :: (MonadIO m) => Internals -> Float -> m () setTopContentInset self contentInset = liftIO (js_setTopContentInset (self) contentInset) foreign import javascript unsafe "$1[\"webkitWillEnterFullScreenForElement\"]($2)" js_webkitWillEnterFullScreenForElement :: Internals -> Nullable Element -> IO () -- | webkitWillEnterFullScreenForElement :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m () webkitWillEnterFullScreenForElement self element = liftIO (js_webkitWillEnterFullScreenForElement (self) (maybeToNullable (fmap toElement element))) foreign import javascript unsafe "$1[\"webkitDidEnterFullScreenForElement\"]($2)" js_webkitDidEnterFullScreenForElement :: Internals -> Nullable Element -> IO () -- | webkitDidEnterFullScreenForElement :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m () webkitDidEnterFullScreenForElement self element = liftIO (js_webkitDidEnterFullScreenForElement (self) (maybeToNullable (fmap toElement element))) foreign import javascript unsafe "$1[\"webkitWillExitFullScreenForElement\"]($2)" js_webkitWillExitFullScreenForElement :: Internals -> Nullable Element -> IO () -- | webkitWillExitFullScreenForElement :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m () webkitWillExitFullScreenForElement self element = liftIO (js_webkitWillExitFullScreenForElement (self) (maybeToNullable (fmap toElement element))) foreign import javascript unsafe "$1[\"webkitDidExitFullScreenForElement\"]($2)" js_webkitDidExitFullScreenForElement :: Internals -> Nullable Element -> IO () -- | webkitDidExitFullScreenForElement :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m () webkitDidExitFullScreenForElement self element = liftIO (js_webkitDidExitFullScreenForElement (self) (maybeToNullable (fmap toElement element))) foreign import javascript unsafe "$1[\"setApplicationCacheOriginQuota\"]($2)" js_setApplicationCacheOriginQuota :: Internals -> Double -> IO () -- | setApplicationCacheOriginQuota :: (MonadIO m) => Internals -> Word64 -> m () setApplicationCacheOriginQuota self quota = liftIO (js_setApplicationCacheOriginQuota (self) (fromIntegral quota)) foreign import javascript unsafe "$1[\"registerURLSchemeAsBypassingContentSecurityPolicy\"]($2)" js_registerURLSchemeAsBypassingContentSecurityPolicy :: Internals -> JSString -> IO () -- | registerURLSchemeAsBypassingContentSecurityPolicy :: (MonadIO m, ToJSString scheme) => Internals -> scheme -> m () registerURLSchemeAsBypassingContentSecurityPolicy self scheme = liftIO (js_registerURLSchemeAsBypassingContentSecurityPolicy (self) (toJSString scheme)) foreign import javascript unsafe "$1[\"removeURLSchemeRegisteredAsBypassingContentSecurityPolicy\"]($2)" js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy :: Internals -> JSString -> IO () -- | removeURLSchemeRegisteredAsBypassingContentSecurityPolicy :: (MonadIO m, ToJSString scheme) => Internals -> scheme -> m () removeURLSchemeRegisteredAsBypassingContentSecurityPolicy self scheme = liftIO (js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy (self) (toJSString scheme)) foreign import javascript unsafe "$1[\"mallocStatistics\"]()" js_mallocStatistics :: Internals -> IO (Nullable MallocStatistics) -- | mallocStatistics :: (MonadIO m) => Internals -> m (Maybe MallocStatistics) mallocStatistics self = liftIO (nullableToMaybe <$> (js_mallocStatistics (self))) -- | mallocStatistics_ :: (MonadIO m) => Internals -> m () mallocStatistics_ self = liftIO (void (js_mallocStatistics (self))) -- | mallocStatisticsUnsafe :: (MonadIO m, HasCallStack) => Internals -> m MallocStatistics mallocStatisticsUnsafe self = liftIO ((nullableToMaybe <$> (js_mallocStatistics (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | mallocStatisticsUnchecked :: (MonadIO m) => Internals -> m MallocStatistics mallocStatisticsUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_mallocStatistics (self))) foreign import javascript unsafe "$1[\"typeConversions\"]()" js_typeConversions :: Internals -> IO (Nullable TypeConversions) -- | typeConversions :: (MonadIO m) => Internals -> m (Maybe TypeConversions) typeConversions self = liftIO (nullableToMaybe <$> (js_typeConversions (self))) -- | typeConversions_ :: (MonadIO m) => Internals -> m () typeConversions_ self = liftIO (void (js_typeConversions (self))) -- | typeConversionsUnsafe :: (MonadIO m, HasCallStack) => Internals -> m TypeConversions typeConversionsUnsafe self = liftIO ((nullableToMaybe <$> (js_typeConversions (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | typeConversionsUnchecked :: (MonadIO m) => Internals -> m TypeConversions typeConversionsUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_typeConversions (self))) foreign import javascript unsafe "$1[\"memoryInfo\"]()" js_memoryInfo :: Internals -> IO (Nullable MemoryInfo) -- | memoryInfo :: (MonadIO m) => Internals -> m (Maybe MemoryInfo) memoryInfo self = liftIO (nullableToMaybe <$> (js_memoryInfo (self))) -- | memoryInfo_ :: (MonadIO m) => Internals -> m () memoryInfo_ self = liftIO (void (js_memoryInfo (self))) -- | memoryInfoUnsafe :: (MonadIO m, HasCallStack) => Internals -> m MemoryInfo memoryInfoUnsafe self = liftIO ((nullableToMaybe <$> (js_memoryInfo (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | memoryInfoUnchecked :: (MonadIO m) => Internals -> m MemoryInfo memoryInfoUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_memoryInfo (self))) foreign import javascript unsafe "$1[\"getReferencedFilePaths\"]()" js_getReferencedFilePaths :: Internals -> IO JSVal -- | getReferencedFilePaths :: (MonadIO m, FromJSString result) => Internals -> m [result] getReferencedFilePaths self = liftIO ((js_getReferencedFilePaths (self)) >>= fromJSValUnchecked) -- | getReferencedFilePaths_ :: (MonadIO m) => Internals -> m () getReferencedFilePaths_ self = liftIO (void (js_getReferencedFilePaths (self))) foreign import javascript unsafe "$1[\"startTrackingRepaints\"]()" js_startTrackingRepaints :: Internals -> IO () -- | startTrackingRepaints :: (MonadIO m) => Internals -> m () startTrackingRepaints self = liftIO (js_startTrackingRepaints (self)) foreign import javascript unsafe "$1[\"stopTrackingRepaints\"]()" js_stopTrackingRepaints :: Internals -> IO () -- | stopTrackingRepaints :: (MonadIO m) => Internals -> m () stopTrackingRepaints self = liftIO (js_stopTrackingRepaints (self)) foreign import javascript unsafe "($1[\"isTimerThrottled\"]($2) ? 1 : 0)" js_isTimerThrottled :: Internals -> Int -> IO Bool -- | isTimerThrottled :: (MonadIO m) => Internals -> Int -> m Bool isTimerThrottled self timerHandle = liftIO (js_isTimerThrottled (self) timerHandle) -- | isTimerThrottled_ :: (MonadIO m) => Internals -> Int -> m () isTimerThrottled_ self timerHandle = liftIO (void (js_isTimerThrottled (self) timerHandle)) foreign import javascript unsafe "$1[\"updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks\"]($2)" js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks :: Internals -> Nullable Node -> IO () -- | updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m () updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks self node = liftIO (js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks (self) (maybeToNullable (fmap toNode node))) foreign import javascript unsafe "$1[\"getCurrentCursorInfo\"]()" js_getCurrentCursorInfo :: Internals -> IO JSString -- | getCurrentCursorInfo :: (MonadIO m, FromJSString result) => Internals -> m result getCurrentCursorInfo self = liftIO (fromJSString <$> (js_getCurrentCursorInfo (self))) -- | getCurrentCursorInfo_ :: (MonadIO m) => Internals -> m () getCurrentCursorInfo_ self = liftIO (void (js_getCurrentCursorInfo (self))) foreign import javascript unsafe "$1[\"markerTextForListItem\"]($2)" js_markerTextForListItem :: Internals -> Nullable Element -> IO JSString -- | markerTextForListItem :: (MonadIO m, IsElement element, FromJSString result) => Internals -> Maybe element -> m result markerTextForListItem self element = liftIO (fromJSString <$> (js_markerTextForListItem (self) (maybeToNullable (fmap toElement element)))) -- | markerTextForListItem_ :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m () markerTextForListItem_ self element = liftIO (void (js_markerTextForListItem (self) (maybeToNullable (fmap toElement element)))) foreign import javascript unsafe "$1[\"toolTipFromElement\"]($2)" js_toolTipFromElement :: Internals -> Nullable Element -> IO JSString -- | toolTipFromElement :: (MonadIO m, IsElement element, FromJSString result) => Internals -> Maybe element -> m result toolTipFromElement self element = liftIO (fromJSString <$> (js_toolTipFromElement (self) (maybeToNullable (fmap toElement element)))) -- | toolTipFromElement_ :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m () toolTipFromElement_ self element = liftIO (void (js_toolTipFromElement (self) (maybeToNullable (fmap toElement element)))) foreign import javascript unsafe "$1[\"deserializeBuffer\"]($2)" js_deserializeBuffer :: Internals -> Nullable ArrayBuffer -> IO (Nullable SerializedScriptValue) -- | deserializeBuffer :: (MonadIO m, IsArrayBuffer buffer) => Internals -> Maybe buffer -> m (Maybe SerializedScriptValue) deserializeBuffer self buffer = liftIO (nullableToMaybe <$> (js_deserializeBuffer (self) (maybeToNullable (fmap toArrayBuffer buffer)))) -- | deserializeBuffer_ :: (MonadIO m, IsArrayBuffer buffer) => Internals -> Maybe buffer -> m () deserializeBuffer_ self buffer = liftIO (void (js_deserializeBuffer (self) (maybeToNullable (fmap toArrayBuffer buffer)))) -- | deserializeBufferUnsafe :: (MonadIO m, IsArrayBuffer buffer, HasCallStack) => Internals -> Maybe buffer -> m SerializedScriptValue deserializeBufferUnsafe self buffer = liftIO ((nullableToMaybe <$> (js_deserializeBuffer (self) (maybeToNullable (fmap toArrayBuffer buffer)))) >>= maybe (Prelude.error "Nothing to return") return) -- | deserializeBufferUnchecked :: (MonadIO m, IsArrayBuffer buffer) => Internals -> Maybe buffer -> m SerializedScriptValue deserializeBufferUnchecked self buffer = liftIO (fromJust . nullableToMaybe <$> (js_deserializeBuffer (self) (maybeToNullable (fmap toArrayBuffer buffer)))) foreign import javascript unsafe "$1[\"serializeObject\"]($2)" js_serializeObject :: Internals -> Nullable SerializedScriptValue -> IO (Nullable ArrayBuffer) -- | serializeObject :: (MonadIO m, IsSerializedScriptValue obj) => Internals -> Maybe obj -> m (Maybe ArrayBuffer) serializeObject self obj = liftIO (nullableToMaybe <$> (js_serializeObject (self) (maybeToNullable (fmap toSerializedScriptValue obj)))) -- | serializeObject_ :: (MonadIO m, IsSerializedScriptValue obj) => Internals -> Maybe obj -> m () serializeObject_ self obj = liftIO (void (js_serializeObject (self) (maybeToNullable (fmap toSerializedScriptValue obj)))) -- | serializeObjectUnsafe :: (MonadIO m, IsSerializedScriptValue obj, HasCallStack) => Internals -> Maybe obj -> m ArrayBuffer serializeObjectUnsafe self obj = liftIO ((nullableToMaybe <$> (js_serializeObject (self) (maybeToNullable (fmap toSerializedScriptValue obj)))) >>= maybe (Prelude.error "Nothing to return") return) -- | serializeObjectUnchecked :: (MonadIO m, IsSerializedScriptValue obj) => Internals -> Maybe obj -> m ArrayBuffer serializeObjectUnchecked self obj = liftIO (fromJust . nullableToMaybe <$> (js_serializeObject (self) (maybeToNullable (fmap toSerializedScriptValue obj)))) foreign import javascript unsafe "$1[\"setUsesOverlayScrollbars\"]($2)" js_setUsesOverlayScrollbars :: Internals -> Bool -> IO () -- | setUsesOverlayScrollbars :: (MonadIO m) => Internals -> Bool -> m () setUsesOverlayScrollbars self enabled = liftIO (js_setUsesOverlayScrollbars (self) enabled) foreign import javascript unsafe "$1[\"forceReload\"]($2)" js_forceReload :: Internals -> Bool -> IO () -- | forceReload :: (MonadIO m) => Internals -> Bool -> m () forceReload self endToEnd = liftIO (js_forceReload (self) endToEnd) foreign import javascript unsafe "$1[\"simulateAudioInterruption\"]($2)" js_simulateAudioInterruption :: Internals -> Nullable Node -> IO () -- | simulateAudioInterruption :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m () simulateAudioInterruption self node = liftIO (js_simulateAudioInterruption (self) (maybeToNullable (fmap toNode node))) foreign import javascript unsafe "($1[\"mediaElementHasCharacteristic\"]($2,\n$3) ? 1 : 0)" js_mediaElementHasCharacteristic :: Internals -> Nullable Node -> JSString -> IO Bool -- | mediaElementHasCharacteristic :: (MonadIO m, IsNode node, ToJSString characteristic) => Internals -> Maybe node -> characteristic -> m Bool mediaElementHasCharacteristic self node characteristic = liftIO (js_mediaElementHasCharacteristic (self) (maybeToNullable (fmap toNode node)) (toJSString characteristic)) -- | mediaElementHasCharacteristic_ :: (MonadIO m, IsNode node, ToJSString characteristic) => Internals -> Maybe node -> characteristic -> m () mediaElementHasCharacteristic_ self node characteristic = liftIO (void (js_mediaElementHasCharacteristic (self) (maybeToNullable (fmap toNode node)) (toJSString characteristic))) foreign import javascript unsafe "$1[\"initializeMockCDM\"]()" js_initializeMockCDM :: Internals -> IO () -- | initializeMockCDM :: (MonadIO m) => Internals -> m () initializeMockCDM self = liftIO (js_initializeMockCDM (self)) foreign import javascript unsafe "$1[\"enableMockSpeechSynthesizer\"]()" js_enableMockSpeechSynthesizer :: Internals -> IO () -- | enableMockSpeechSynthesizer :: (MonadIO m) => Internals -> m () enableMockSpeechSynthesizer self = liftIO (js_enableMockSpeechSynthesizer (self)) foreign import javascript unsafe "$1[\"getImageSourceURL\"]($2)" js_getImageSourceURL :: Internals -> Nullable Element -> IO JSString -- | getImageSourceURL :: (MonadIO m, IsElement element, FromJSString result) => Internals -> Maybe element -> m result getImageSourceURL self element = liftIO (fromJSString <$> (js_getImageSourceURL (self) (maybeToNullable (fmap toElement element)))) -- | getImageSourceURL_ :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m () getImageSourceURL_ self element = liftIO (void (js_getImageSourceURL (self) (maybeToNullable (fmap toElement element)))) foreign import javascript unsafe "$1[\"captionsStyleSheetOverride\"]()" js_captionsStyleSheetOverride :: Internals -> IO JSString -- | captionsStyleSheetOverride :: (MonadIO m, FromJSString result) => Internals -> m result captionsStyleSheetOverride self = liftIO (fromJSString <$> (js_captionsStyleSheetOverride (self))) -- | captionsStyleSheetOverride_ :: (MonadIO m) => Internals -> m () captionsStyleSheetOverride_ self = liftIO (void (js_captionsStyleSheetOverride (self))) foreign import javascript unsafe "$1[\"setCaptionsStyleSheetOverride\"]($2)" js_setCaptionsStyleSheetOverride :: Internals -> JSString -> IO () -- | setCaptionsStyleSheetOverride :: (MonadIO m, ToJSString override) => Internals -> override -> m () setCaptionsStyleSheetOverride self override = liftIO (js_setCaptionsStyleSheetOverride (self) (toJSString override)) foreign import javascript unsafe "$1[\"setPrimaryAudioTrackLanguageOverride\"]($2)" js_setPrimaryAudioTrackLanguageOverride :: Internals -> JSString -> IO () -- | setPrimaryAudioTrackLanguageOverride :: (MonadIO m, ToJSString language) => Internals -> language -> m () setPrimaryAudioTrackLanguageOverride self language = liftIO (js_setPrimaryAudioTrackLanguageOverride (self) (toJSString language)) foreign import javascript unsafe "$1[\"setCaptionDisplayMode\"]($2)" js_setCaptionDisplayMode :: Internals -> JSString -> IO () -- | setCaptionDisplayMode :: (MonadIO m, ToJSString mode) => Internals -> mode -> m () setCaptionDisplayMode self mode = liftIO (js_setCaptionDisplayMode (self) (toJSString mode)) foreign import javascript unsafe "$1[\"createTimeRanges\"]($2, $3)" js_createTimeRanges :: Internals -> Nullable Float32Array -> Nullable Float32Array -> IO (Nullable TimeRanges) -- | createTimeRanges :: (MonadIO m, IsFloat32Array startTimes, IsFloat32Array endTimes) => Internals -> Maybe startTimes -> Maybe endTimes -> m (Maybe TimeRanges) createTimeRanges self startTimes endTimes = liftIO (nullableToMaybe <$> (js_createTimeRanges (self) (maybeToNullable (fmap toFloat32Array startTimes)) (maybeToNullable (fmap toFloat32Array endTimes)))) -- | createTimeRanges_ :: (MonadIO m, IsFloat32Array startTimes, IsFloat32Array endTimes) => Internals -> Maybe startTimes -> Maybe endTimes -> m () createTimeRanges_ self startTimes endTimes = liftIO (void (js_createTimeRanges (self) (maybeToNullable (fmap toFloat32Array startTimes)) (maybeToNullable (fmap toFloat32Array endTimes)))) -- | createTimeRangesUnsafe :: (MonadIO m, IsFloat32Array startTimes, IsFloat32Array endTimes, HasCallStack) => Internals -> Maybe startTimes -> Maybe endTimes -> m TimeRanges createTimeRangesUnsafe self startTimes endTimes = liftIO ((nullableToMaybe <$> (js_createTimeRanges (self) (maybeToNullable (fmap toFloat32Array startTimes)) (maybeToNullable (fmap toFloat32Array endTimes)))) >>= maybe (Prelude.error "Nothing to return") return) -- | createTimeRangesUnchecked :: (MonadIO m, IsFloat32Array startTimes, IsFloat32Array endTimes) => Internals -> Maybe startTimes -> Maybe endTimes -> m TimeRanges createTimeRangesUnchecked self startTimes endTimes = liftIO (fromJust . nullableToMaybe <$> (js_createTimeRanges (self) (maybeToNullable (fmap toFloat32Array startTimes)) (maybeToNullable (fmap toFloat32Array endTimes)))) foreign import javascript unsafe "$1[\"closestTimeToTimeRanges\"]($2,\n$3)" js_closestTimeToTimeRanges :: Internals -> Double -> Nullable TimeRanges -> IO Double -- | closestTimeToTimeRanges :: (MonadIO m) => Internals -> Double -> Maybe TimeRanges -> m Double closestTimeToTimeRanges self time ranges = liftIO (js_closestTimeToTimeRanges (self) time (maybeToNullable ranges)) -- | closestTimeToTimeRanges_ :: (MonadIO m) => Internals -> Double -> Maybe TimeRanges -> m () closestTimeToTimeRanges_ self time ranges = liftIO (void (js_closestTimeToTimeRanges (self) time (maybeToNullable ranges))) foreign import javascript unsafe "($1[\"isSelectPopupVisible\"]($2) ? 1 : 0)" js_isSelectPopupVisible :: Internals -> Nullable Node -> IO Bool -- | isSelectPopupVisible :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool isSelectPopupVisible self node = liftIO (js_isSelectPopupVisible (self) (maybeToNullable (fmap toNode node))) -- | isSelectPopupVisible_ :: (MonadIO m, IsNode node) => Internals -> Maybe node -> m () isSelectPopupVisible_ self node = liftIO (void (js_isSelectPopupVisible (self) (maybeToNullable (fmap toNode node)))) foreign import javascript unsafe "($1[\"isVibrating\"]() ? 1 : 0)" js_isVibrating :: Internals -> IO Bool -- | isVibrating :: (MonadIO m) => Internals -> m Bool isVibrating self = liftIO (js_isVibrating (self)) -- | isVibrating_ :: (MonadIO m) => Internals -> m () isVibrating_ self = liftIO (void (js_isVibrating (self))) foreign import javascript unsafe "($1[\"isPluginUnavailabilityIndicatorObscured\"]($2) ? 1 : 0)" js_isPluginUnavailabilityIndicatorObscured :: Internals -> Nullable Element -> IO Bool -- | isPluginUnavailabilityIndicatorObscured :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m Bool isPluginUnavailabilityIndicatorObscured self element = liftIO (js_isPluginUnavailabilityIndicatorObscured (self) (maybeToNullable (fmap toElement element))) -- | isPluginUnavailabilityIndicatorObscured_ :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m () isPluginUnavailabilityIndicatorObscured_ self element = liftIO (void (js_isPluginUnavailabilityIndicatorObscured (self) (maybeToNullable (fmap toElement element)))) foreign import javascript unsafe "($1[\"isPluginSnapshotted\"]($2) ? 1 : 0)" js_isPluginSnapshotted :: Internals -> Nullable Element -> IO Bool -- | isPluginSnapshotted :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m Bool isPluginSnapshotted self element = liftIO (js_isPluginSnapshotted (self) (maybeToNullable (fmap toElement element))) -- | isPluginSnapshotted_ :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m () isPluginSnapshotted_ self element = liftIO (void (js_isPluginSnapshotted (self) (maybeToNullable (fmap toElement element)))) foreign import javascript unsafe "$1[\"selectionBounds\"]()" js_selectionBounds :: Internals -> IO (Nullable ClientRect) -- | selectionBounds :: (MonadIO m) => Internals -> m (Maybe ClientRect) selectionBounds self = liftIO (nullableToMaybe <$> (js_selectionBounds (self))) -- | selectionBounds_ :: (MonadIO m) => Internals -> m () selectionBounds_ self = liftIO (void (js_selectionBounds (self))) -- | selectionBoundsUnsafe :: (MonadIO m, HasCallStack) => Internals -> m ClientRect selectionBoundsUnsafe self = liftIO ((nullableToMaybe <$> (js_selectionBounds (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | selectionBoundsUnchecked :: (MonadIO m) => Internals -> m ClientRect selectionBoundsUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_selectionBounds (self))) foreign import javascript unsafe "$1[\"initializeMockMediaSource\"]()" js_initializeMockMediaSource :: Internals -> IO () -- | initializeMockMediaSource :: (MonadIO m) => Internals -> m () initializeMockMediaSource self = liftIO (js_initializeMockMediaSource (self)) foreign import javascript unsafe "$1[\"bufferedSamplesForTrackID\"]($2,\n$3)" js_bufferedSamplesForTrackID :: Internals -> Nullable SourceBuffer -> JSString -> IO JSVal -- | bufferedSamplesForTrackID :: (MonadIO m, ToJSString trackID, FromJSString result) => Internals -> Maybe SourceBuffer -> trackID -> m [result] bufferedSamplesForTrackID self buffer trackID = liftIO ((js_bufferedSamplesForTrackID (self) (maybeToNullable buffer) (toJSString trackID)) >>= fromJSValUnchecked) -- | bufferedSamplesForTrackID_ :: (MonadIO m, ToJSString trackID) => Internals -> Maybe SourceBuffer -> trackID -> m () bufferedSamplesForTrackID_ self buffer trackID = liftIO (void (js_bufferedSamplesForTrackID (self) (maybeToNullable buffer) (toJSString trackID))) foreign import javascript unsafe "$1[\"beginMediaSessionInterruption\"]()" js_beginMediaSessionInterruption :: Internals -> IO () -- | beginMediaSessionInterruption :: (MonadIO m) => Internals -> m () beginMediaSessionInterruption self = liftIO (js_beginMediaSessionInterruption (self)) foreign import javascript unsafe "$1[\"endMediaSessionInterruption\"]($2)" js_endMediaSessionInterruption :: Internals -> JSString -> IO () -- | endMediaSessionInterruption :: (MonadIO m, ToJSString flags) => Internals -> flags -> m () endMediaSessionInterruption self flags = liftIO (js_endMediaSessionInterruption (self) (toJSString flags)) foreign import javascript unsafe "$1[\"applicationWillEnterForeground\"]()" js_applicationWillEnterForeground :: Internals -> IO () -- | applicationWillEnterForeground :: (MonadIO m) => Internals -> m () applicationWillEnterForeground self = liftIO (js_applicationWillEnterForeground (self)) foreign import javascript unsafe "$1[\"applicationWillEnterBackground\"]()" js_applicationWillEnterBackground :: Internals -> IO () -- | applicationWillEnterBackground :: (MonadIO m) => Internals -> m () applicationWillEnterBackground self = liftIO (js_applicationWillEnterBackground (self)) foreign import javascript unsafe "$1[\"setMediaSessionRestrictions\"]($2,\n$3)" js_setMediaSessionRestrictions :: Internals -> JSString -> JSString -> IO () -- | setMediaSessionRestrictions :: (MonadIO m, ToJSString mediaType, ToJSString restrictions) => Internals -> mediaType -> restrictions -> m () setMediaSessionRestrictions self mediaType restrictions = liftIO (js_setMediaSessionRestrictions (self) (toJSString mediaType) (toJSString restrictions)) foreign import javascript unsafe "$1[\"postRemoteControlCommand\"]($2)" js_postRemoteControlCommand :: Internals -> JSString -> IO () -- | postRemoteControlCommand :: (MonadIO m, ToJSString command) => Internals -> command -> m () postRemoteControlCommand self command = liftIO (js_postRemoteControlCommand (self) (toJSString command)) foreign import javascript unsafe "$1[\"simulateSystemSleep\"]()" js_simulateSystemSleep :: Internals -> IO () -- | simulateSystemSleep :: (MonadIO m) => Internals -> m () simulateSystemSleep self = liftIO (js_simulateSystemSleep (self)) foreign import javascript unsafe "$1[\"simulateSystemWake\"]()" js_simulateSystemWake :: Internals -> IO () -- | simulateSystemWake :: (MonadIO m) => Internals -> m () simulateSystemWake self = liftIO (js_simulateSystemWake (self)) foreign import javascript unsafe "($1[\"elementIsBlockingDisplaySleep\"]($2) ? 1 : 0)" js_elementIsBlockingDisplaySleep :: Internals -> Nullable Element -> IO Bool -- | elementIsBlockingDisplaySleep :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m Bool elementIsBlockingDisplaySleep self element = liftIO (js_elementIsBlockingDisplaySleep (self) (maybeToNullable (fmap toElement element))) -- | elementIsBlockingDisplaySleep_ :: (MonadIO m, IsElement element) => Internals -> Maybe element -> m () elementIsBlockingDisplaySleep_ self element = liftIO (void (js_elementIsBlockingDisplaySleep (self) (maybeToNullable (fmap toElement element)))) foreign import javascript unsafe "$1[\"installMockPageOverlay\"]($2)" js_installMockPageOverlay :: Internals -> JSVal -> IO () -- | installMockPageOverlay :: (MonadIO m) => Internals -> PageOverlayType -> m () installMockPageOverlay self type' = liftIO (js_installMockPageOverlay (self) (pToJSVal type')) foreign import javascript unsafe "$1[\"pageOverlayLayerTreeAsText\"]()" js_pageOverlayLayerTreeAsText :: Internals -> IO JSString -- | pageOverlayLayerTreeAsText :: (MonadIO m, FromJSString result) => Internals -> m result pageOverlayLayerTreeAsText self = liftIO (fromJSString <$> (js_pageOverlayLayerTreeAsText (self))) -- | pageOverlayLayerTreeAsText_ :: (MonadIO m) => Internals -> m () pageOverlayLayerTreeAsText_ self = liftIO (void (js_pageOverlayLayerTreeAsText (self))) foreign import javascript unsafe "$1[\"setPageMuted\"]($2)" js_setPageMuted :: Internals -> Bool -> IO () -- | setPageMuted :: (MonadIO m) => Internals -> Bool -> m () setPageMuted self muted = liftIO (js_setPageMuted (self) muted) foreign import javascript unsafe "($1[\"isPagePlayingAudio\"]() ? 1 : 0)" js_isPagePlayingAudio :: Internals -> IO Bool -- | isPagePlayingAudio :: (MonadIO m) => Internals -> m Bool isPagePlayingAudio self = liftIO (js_isPagePlayingAudio (self)) -- | isPagePlayingAudio_ :: (MonadIO m) => Internals -> m () isPagePlayingAudio_ self = liftIO (void (js_isPagePlayingAudio (self))) pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS = 1 pattern LAYER_TREE_INCLUDES_TILE_CACHES = 2 pattern LAYER_TREE_INCLUDES_REPAINT_RECTS = 4 pattern LAYER_TREE_INCLUDES_PAINTING_PHASES = 8 pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS = 16 foreign import javascript unsafe "$1[\"settings\"]" js_getSettings :: Internals -> IO (Nullable InternalSettings) -- | getSettings :: (MonadIO m) => Internals -> m (Maybe InternalSettings) getSettings self = liftIO (nullableToMaybe <$> (js_getSettings (self))) -- | getSettingsUnsafe :: (MonadIO m, HasCallStack) => Internals -> m InternalSettings getSettingsUnsafe self = liftIO ((nullableToMaybe <$> (js_getSettings (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getSettingsUnchecked :: (MonadIO m) => Internals -> m InternalSettings getSettingsUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getSettings (self))) foreign import javascript unsafe "$1[\"workerThreadCount\"]" js_getWorkerThreadCount :: Internals -> IO Word -- | getWorkerThreadCount :: (MonadIO m) => Internals -> m Word getWorkerThreadCount self = liftIO (js_getWorkerThreadCount (self)) foreign import javascript unsafe "$1[\"consoleProfiles\"]" js_getConsoleProfiles :: Internals -> IO JSVal -- | getConsoleProfiles :: (MonadIO m) => Internals -> m [Maybe ScriptProfile] getConsoleProfiles self = liftIO ((js_getConsoleProfiles (self)) >>= fromJSValUnchecked)