packages feed

ghcjs-dom-jsffi 0.4.0.0 → 0.4.1.0

raw patch · 515 files changed

+20353/−5151 lines, 515 files

This diff is very large; some files are shown as “too large to diff”. Download the raw patch for the complete diff.

Files

ghcjs-dom-jsffi.cabal view
@@ -1,5 +1,5 @@ name: ghcjs-dom-jsffi-version: 0.4.0.0+version: 0.4.1.0 cabal-version: >=1.24 build-type: Simple license: MIT
src/GHCJS/DOM.hs view
@@ -6,6 +6,8 @@ , run , syncPoint , syncAfter+, waitForAnimationFrame+, nextAnimationFrame , catch , bracket ) where@@ -13,6 +15,8 @@ import Control.Applicative ((<$>)) import Control.Exception (catch, bracket) +import JavaScript.Web.AnimationFrame (waitForAnimationFrame)+ import GHCJS.DOM.Types  foreign import javascript unsafe "$r = window"@@ -33,3 +37,6 @@  syncAfter :: IO () -> IO () syncAfter = id++nextAnimationFrame :: (Double -> JSM a) -> JSM a+nextAnimationFrame f = waitForAnimationFrame >>= f
src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs view
@@ -13,9 +13,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/AbstractView.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.AbstractView-       (js_getDocument, getDocument, js_getStyleMedia, getStyleMedia,+       (js_getDocument, getDocument, getDocumentUnchecked,+        js_getStyleMedia, getStyleMedia, getStyleMediaUnchecked,         AbstractView, castToAbstractView, gTypeAbstractView)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -10,9 +11,11 @@ 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)@@ -25,6 +28,11 @@ getDocument :: (MonadIO m) => AbstractView -> m (Maybe Document) getDocument self   = liftIO (nullableToMaybe <$> (js_getDocument (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.document Mozilla AbstractView.document documentation> +getDocumentUnchecked :: (MonadIO m) => AbstractView -> m Document+getDocumentUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getDocument (self)))   foreign import javascript unsafe "$1[\"styleMedia\"]"         js_getStyleMedia :: AbstractView -> IO (Nullable StyleMedia)@@ -34,3 +42,9 @@               (MonadIO m) => AbstractView -> m (Maybe StyleMedia) getStyleMedia self   = liftIO (nullableToMaybe <$> (js_getStyleMedia (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.styleMedia Mozilla AbstractView.styleMedia documentation> +getStyleMediaUnchecked ::+                       (MonadIO m) => AbstractView -> m StyleMedia+getStyleMediaUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getStyleMedia (self)))
src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs view
@@ -9,9 +9,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/AllAudioCapabilities.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.AllAudioCapabilities        (js_getSourceId, getSourceId, js_getVolume, getVolume,-        AllAudioCapabilities, castToAllAudioCapabilities,-        gTypeAllAudioCapabilities)+        getVolumeUnchecked, AllAudioCapabilities,+        castToAllAudioCapabilities, gTypeAllAudioCapabilities)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -36,3 +38,9 @@ getVolume ::           (MonadIO m) => AllAudioCapabilities -> m (Maybe CapabilityRange) getVolume self = liftIO (nullableToMaybe <$> (js_getVolume (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllAudioCapabilities.volume Mozilla AllAudioCapabilities.volume documentation> +getVolumeUnchecked ::+                   (MonadIO m) => AllAudioCapabilities -> m CapabilityRange+getVolumeUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getVolume (self)))
src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs view
@@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.AllVideoCapabilities        (js_getSourceType, getSourceType, js_getSourceId, getSourceId,-        js_getWidth, getWidth, js_getHeight, getHeight, js_getFrameRate,-        getFrameRate, js_getAspectRatio, getAspectRatio, js_getFacingMode,-        getFacingMode, AllVideoCapabilities, castToAllVideoCapabilities,+        js_getWidth, getWidth, getWidthUnchecked, js_getHeight, getHeight,+        getHeightUnchecked, js_getFrameRate, getFrameRate,+        getFrameRateUnchecked, js_getAspectRatio, getAspectRatio,+        getAspectRatioUnchecked, js_getFacingMode, getFacingMode,+        AllVideoCapabilities, castToAllVideoCapabilities,         gTypeAllVideoCapabilities)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -13,9 +15,11 @@ 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)@@ -48,6 +52,12 @@ getWidth ::          (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange) getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.width Mozilla AllVideoCapabilities.width documentation> +getWidthUnchecked ::+                  (MonadIO m) => AllVideoCapabilities -> m CapabilityRange+getWidthUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::         AllVideoCapabilities -> IO (Nullable CapabilityRange)@@ -56,6 +66,12 @@ getHeight ::           (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange) getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.height Mozilla AllVideoCapabilities.height documentation> +getHeightUnchecked ::+                   (MonadIO m) => AllVideoCapabilities -> m CapabilityRange+getHeightUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"frameRate\"]"         js_getFrameRate ::@@ -66,6 +82,12 @@              (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange) getFrameRate self   = liftIO (nullableToMaybe <$> (js_getFrameRate (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.frameRate Mozilla AllVideoCapabilities.frameRate documentation> +getFrameRateUnchecked ::+                      (MonadIO m) => AllVideoCapabilities -> m CapabilityRange+getFrameRateUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getFrameRate (self)))   foreign import javascript unsafe "$1[\"aspectRatio\"]"         js_getAspectRatio ::@@ -76,6 +98,13 @@                (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange) getAspectRatio self   = liftIO (nullableToMaybe <$> (js_getAspectRatio (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.aspectRatio Mozilla AllVideoCapabilities.aspectRatio documentation> +getAspectRatioUnchecked ::+                        (MonadIO m) => AllVideoCapabilities -> m CapabilityRange+getAspectRatioUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getAspectRatio (self)))   foreign import javascript unsafe "$1[\"facingMode\"]"         js_getFacingMode :: AllVideoCapabilities -> IO JSVal
src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs view
@@ -18,9 +18,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs view
@@ -14,9 +14,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/Attr.hs view
@@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Attr-       (js_getName, getName, js_getSpecified, getSpecified, js_setValue,-        setValue, js_getValue, getValue, js_getOwnerElement,-        getOwnerElement, js_getIsId, getIsId, Attr, castToAttr, gTypeAttr)+       (js_getName, getName, getNameUnchecked, js_getSpecified,+        getSpecified, js_setValue, setValue, js_getValue, getValue,+        getValueUnchecked, js_getOwnerElement, getOwnerElement,+        getOwnerElementUnchecked, js_getIsId, getIsId, Attr, castToAttr,+        gTypeAttr)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +13,11 @@ 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)@@ -26,6 +30,12 @@ getName ::         (MonadIO m, FromJSString result) => Attr -> m (Maybe result) getName self = liftIO (fromMaybeJSString <$> (js_getName (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.name Mozilla Attr.name documentation> +getNameUnchecked ::+                 (MonadIO m, FromJSString result) => Attr -> m result+getNameUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getName (self)))   foreign import javascript unsafe "($1[\"specified\"] ? 1 : 0)"         js_getSpecified :: Attr -> IO Bool@@ -50,6 +60,12 @@ getValue ::          (MonadIO m, FromJSString result) => Attr -> m (Maybe result) getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation> +getValueUnchecked ::+                  (MonadIO m, FromJSString result) => Attr -> m result+getValueUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getValue (self)))   foreign import javascript unsafe "$1[\"ownerElement\"]"         js_getOwnerElement :: Attr -> IO (Nullable Element)@@ -58,6 +74,12 @@ getOwnerElement :: (MonadIO m) => Attr -> m (Maybe Element) getOwnerElement self   = liftIO (nullableToMaybe <$> (js_getOwnerElement (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation> +getOwnerElementUnchecked :: (MonadIO m) => Attr -> m Element+getOwnerElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getOwnerElement (self)))   foreign import javascript unsafe "($1[\"isId\"] ? 1 : 0)"         js_getIsId :: Attr -> IO Bool
src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs view
@@ -1,10 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.AudioBuffer-       (js_getChannelData, getChannelData, js_getLength, getLength,-        js_getDuration, getDuration, js_getSampleRate, getSampleRate,-        js_setGain, setGain, js_getGain, getGain, js_getNumberOfChannels,-        getNumberOfChannels, AudioBuffer, castToAudioBuffer,-        gTypeAudioBuffer)+       (js_getChannelData, getChannelData, getChannelData_,+        getChannelDataUnchecked, js_getLength, getLength, js_getDuration,+        getDuration, js_getSampleRate, getSampleRate, js_setGain, setGain,+        js_getGain, getGain, js_getNumberOfChannels, getNumberOfChannels,+        AudioBuffer, castToAudioBuffer, gTypeAudioBuffer)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +13,11 @@ 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)@@ -31,6 +33,19 @@ getChannelData self channelIndex   = liftIO       (nullableToMaybe <$> (js_getChannelData (self) channelIndex))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.getChannelData Mozilla AudioBuffer.getChannelData documentation> +getChannelData_ :: (MonadIO m) => AudioBuffer -> Word -> m ()+getChannelData_ self channelIndex+  = liftIO (void (js_getChannelData (self) channelIndex))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.getChannelData Mozilla AudioBuffer.getChannelData documentation> +getChannelDataUnchecked ::+                        (MonadIO m) => AudioBuffer -> Word -> m Float32Array+getChannelDataUnchecked self channelIndex+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getChannelData (self) channelIndex))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         AudioBuffer -> IO Int
src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs view
@@ -4,11 +4,12 @@         noteGrainOn, js_noteOff, noteOff, pattern UNSCHEDULED_STATE,         pattern SCHEDULED_STATE, pattern PLAYING_STATE,         pattern FINISHED_STATE, js_setBuffer, setBuffer, js_getBuffer,-        getBuffer, js_getPlaybackState, getPlaybackState, js_getGain,-        getGain, js_getPlaybackRate, getPlaybackRate, js_setLoop, setLoop,-        js_getLoop, getLoop, js_setLoopStart, setLoopStart,-        js_getLoopStart, getLoopStart, js_setLoopEnd, setLoopEnd,-        js_getLoopEnd, getLoopEnd, js_setLooping, setLooping,+        getBuffer, getBufferUnchecked, js_getPlaybackState,+        getPlaybackState, js_getGain, getGain, getGainUnchecked,+        js_getPlaybackRate, getPlaybackRate, getPlaybackRateUnchecked,+        js_setLoop, setLoop, js_getLoop, getLoop, js_setLoopStart,+        setLoopStart, js_getLoopStart, getLoopStart, js_setLoopEnd,+        setLoopEnd, js_getLoopEnd, getLoopEnd, js_setLooping, setLooping,         js_getLooping, getLooping, ended, AudioBufferSourceNode,         castToAudioBufferSourceNode, gTypeAudioBufferSourceNode)        where@@ -19,9 +20,11 @@ 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)@@ -91,6 +94,12 @@ getBuffer ::           (MonadIO m) => AudioBufferSourceNode -> m (Maybe AudioBuffer) getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation> +getBufferUnchecked ::+                   (MonadIO m) => AudioBufferSourceNode -> m AudioBuffer+getBufferUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getBuffer (self)))   foreign import javascript unsafe "$1[\"playbackState\"]"         js_getPlaybackState :: AudioBufferSourceNode -> IO Word@@ -106,6 +115,12 @@ getGain ::         (MonadIO m) => AudioBufferSourceNode -> m (Maybe AudioParam) getGain self = liftIO (nullableToMaybe <$> (js_getGain (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.gain Mozilla AudioBufferSourceNode.gain documentation> +getGainUnchecked ::+                 (MonadIO m) => AudioBufferSourceNode -> m AudioParam+getGainUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getGain (self)))   foreign import javascript unsafe "$1[\"playbackRate\"]"         js_getPlaybackRate ::@@ -116,6 +131,13 @@                 (MonadIO m) => AudioBufferSourceNode -> m (Maybe AudioParam) getPlaybackRate self   = liftIO (nullableToMaybe <$> (js_getPlaybackRate (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackRate Mozilla AudioBufferSourceNode.playbackRate documentation> +getPlaybackRateUnchecked ::+                         (MonadIO m) => AudioBufferSourceNode -> m AudioParam+getPlaybackRateUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getPlaybackRate (self)))   foreign import javascript unsafe "$1[\"loop\"] = $2;" js_setLoop ::         AudioBufferSourceNode -> Bool -> IO ()
src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs view
@@ -1,26 +1,47 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.AudioContext        (js_newAudioContext, newAudioContext, js_createBuffer,-        createBuffer, js_createBufferFromArrayBuffer,-        createBufferFromArrayBuffer, js_decodeAudioData, decodeAudioData,-        js_createBufferSource, createBufferSource,-        js_createMediaElementSource, createMediaElementSource,-        js_createMediaStreamSource, createMediaStreamSource,-        js_createMediaStreamDestination, createMediaStreamDestination,-        js_createGain, createGain, js_createDelay, createDelay,-        js_createBiquadFilter, createBiquadFilter, js_createWaveShaper,-        createWaveShaper, js_createPanner, createPanner,-        js_createConvolver, createConvolver, js_createDynamicsCompressor,-        createDynamicsCompressor, js_createAnalyser, createAnalyser,+        createBuffer, createBuffer_, createBufferUnchecked,+        js_createBufferFromArrayBuffer, createBufferFromArrayBuffer,+        createBufferFromArrayBuffer_, createBufferFromArrayBufferUnchecked,+        js_decodeAudioData, decodeAudioData, js_createBufferSource,+        createBufferSource, createBufferSource_,+        createBufferSourceUnchecked, js_createMediaElementSource,+        createMediaElementSource, createMediaElementSource_,+        createMediaElementSourceUnchecked, js_createMediaStreamSource,+        createMediaStreamSource, createMediaStreamSource_,+        createMediaStreamSourceUnchecked, js_createMediaStreamDestination,+        createMediaStreamDestination, createMediaStreamDestination_,+        createMediaStreamDestinationUnchecked, js_createGain, createGain,+        createGain_, createGainUnchecked, js_createDelay, createDelay,+        createDelay_, createDelayUnchecked, js_createBiquadFilter,+        createBiquadFilter, createBiquadFilter_,+        createBiquadFilterUnchecked, js_createWaveShaper, createWaveShaper,+        createWaveShaper_, createWaveShaperUnchecked, js_createPanner,+        createPanner, createPanner_, createPannerUnchecked,+        js_createConvolver, createConvolver, createConvolver_,+        createConvolverUnchecked, js_createDynamicsCompressor,+        createDynamicsCompressor, createDynamicsCompressor_,+        createDynamicsCompressorUnchecked, js_createAnalyser,+        createAnalyser, createAnalyser_, createAnalyserUnchecked,         js_createScriptProcessor, createScriptProcessor,-        js_createOscillator, createOscillator, js_createPeriodicWave,-        createPeriodicWave, js_createChannelSplitter,-        createChannelSplitter, js_createChannelMerger, createChannelMerger,-        js_startRendering, startRendering, js_createGainNode,-        createGainNode, js_createDelayNode, createDelayNode,-        js_createJavaScriptNode, createJavaScriptNode, js_getDestination,-        getDestination, js_getCurrentTime, getCurrentTime,-        js_getSampleRate, getSampleRate, js_getListener, getListener,+        createScriptProcessor_, createScriptProcessorUnchecked,+        js_createOscillator, createOscillator, createOscillator_,+        createOscillatorUnchecked, js_createPeriodicWave,+        createPeriodicWave, createPeriodicWave_,+        createPeriodicWaveUnchecked, js_createChannelSplitter,+        createChannelSplitter, createChannelSplitter_,+        createChannelSplitterUnchecked, js_createChannelMerger,+        createChannelMerger, createChannelMerger_,+        createChannelMergerUnchecked, js_startRendering, startRendering,+        js_createGainNode, createGainNode, createGainNode_,+        createGainNodeUnchecked, js_createDelayNode, createDelayNode,+        createDelayNode_, createDelayNodeUnchecked,+        js_createJavaScriptNode, createJavaScriptNode,+        createJavaScriptNode_, createJavaScriptNodeUnchecked,+        js_getDestination, getDestination, getDestinationUnchecked,+        js_getCurrentTime, getCurrentTime, js_getSampleRate, getSampleRate,+        js_getListener, getListener, getListenerUnchecked,         js_getActiveSourceCount, getActiveSourceCount, complete,         AudioContext, castToAudioContext, gTypeAudioContext,         IsAudioContext, toAudioContext)@@ -32,9 +53,11 @@ 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)@@ -62,6 +85,29 @@          (js_createBuffer (toAudioContext self) numberOfChannels             numberOfFrames             sampleRate))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> +createBuffer_ ::+              (MonadIO m, IsAudioContext self) =>+                self -> Word -> Word -> Float -> m ()+createBuffer_ self numberOfChannels numberOfFrames sampleRate+  = liftIO+      (void+         (js_createBuffer (toAudioContext self) numberOfChannels+            numberOfFrames+            sampleRate))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> +createBufferUnchecked ::+                      (MonadIO m, IsAudioContext self) =>+                        self -> Word -> Word -> Float -> m AudioBuffer+createBufferUnchecked self numberOfChannels numberOfFrames+  sampleRate+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createBuffer (toAudioContext self) numberOfChannels+            numberOfFrames+            sampleRate))   foreign import javascript unsafe "$1[\"createBuffer\"]($2, $3)"         js_createBufferFromArrayBuffer ::@@ -78,6 +124,28 @@          (js_createBufferFromArrayBuffer (toAudioContext self)             (maybeToNullable (fmap toArrayBuffer buffer))             mixToMono))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> +createBufferFromArrayBuffer_ ::+                             (MonadIO m, IsAudioContext self, IsArrayBuffer buffer) =>+                               self -> Maybe buffer -> Bool -> m ()+createBufferFromArrayBuffer_ self buffer mixToMono+  = liftIO+      (void+         (js_createBufferFromArrayBuffer (toAudioContext self)+            (maybeToNullable (fmap toArrayBuffer buffer))+            mixToMono))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation> +createBufferFromArrayBufferUnchecked ::+                                     (MonadIO m, IsAudioContext self, IsArrayBuffer buffer) =>+                                       self -> Maybe buffer -> Bool -> m AudioBuffer+createBufferFromArrayBufferUnchecked self buffer mixToMono+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createBufferFromArrayBuffer (toAudioContext self)+            (maybeToNullable (fmap toArrayBuffer buffer))+            mixToMono))   foreign import javascript unsafe         "$1[\"decodeAudioData\"]($2, $3,\n$4)" js_decodeAudioData ::@@ -110,6 +178,20 @@ createBufferSource self   = liftIO       (nullableToMaybe <$> (js_createBufferSource (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBufferSource Mozilla AudioContext.createBufferSource documentation> +createBufferSource_ ::+                    (MonadIO m, IsAudioContext self) => self -> m ()+createBufferSource_ self+  = liftIO (void (js_createBufferSource (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBufferSource Mozilla AudioContext.createBufferSource documentation> +createBufferSourceUnchecked ::+                            (MonadIO m, IsAudioContext self) => self -> m AudioBufferSourceNode+createBufferSourceUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createBufferSource (toAudioContext self)))   foreign import javascript unsafe         "$1[\"createMediaElementSource\"]($2)" js_createMediaElementSource@@ -128,6 +210,28 @@       (nullableToMaybe <$>          (js_createMediaElementSource (toAudioContext self)             (maybeToNullable (fmap toHTMLMediaElement mediaElement))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaElementSource Mozilla AudioContext.createMediaElementSource documentation> +createMediaElementSource_ ::+                          (MonadIO m, IsAudioContext self,+                           IsHTMLMediaElement mediaElement) =>+                            self -> Maybe mediaElement -> m ()+createMediaElementSource_ self mediaElement+  = liftIO+      (void+         (js_createMediaElementSource (toAudioContext self)+            (maybeToNullable (fmap toHTMLMediaElement mediaElement))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaElementSource Mozilla AudioContext.createMediaElementSource documentation> +createMediaElementSourceUnchecked ::+                                  (MonadIO m, IsAudioContext self,+                                   IsHTMLMediaElement mediaElement) =>+                                    self -> Maybe mediaElement -> m MediaElementAudioSourceNode+createMediaElementSourceUnchecked self mediaElement+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createMediaElementSource (toAudioContext self)+            (maybeToNullable (fmap toHTMLMediaElement mediaElement))))   foreign import javascript unsafe         "$1[\"createMediaStreamSource\"]($2)" js_createMediaStreamSource ::@@ -143,6 +247,26 @@       (nullableToMaybe <$>          (js_createMediaStreamSource (toAudioContext self)             (maybeToNullable mediaStream)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamSource Mozilla AudioContext.createMediaStreamSource documentation> +createMediaStreamSource_ ::+                         (MonadIO m, IsAudioContext self) =>+                           self -> Maybe MediaStream -> m ()+createMediaStreamSource_ self mediaStream+  = liftIO+      (void+         (js_createMediaStreamSource (toAudioContext self)+            (maybeToNullable mediaStream)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamSource Mozilla AudioContext.createMediaStreamSource documentation> +createMediaStreamSourceUnchecked ::+                                 (MonadIO m, IsAudioContext self) =>+                                   self -> Maybe MediaStream -> m MediaStreamAudioSourceNode+createMediaStreamSourceUnchecked self mediaStream+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createMediaStreamSource (toAudioContext self)+            (maybeToNullable mediaStream)))   foreign import javascript unsafe         "$1[\"createMediaStreamDestination\"]()"@@ -157,6 +281,22 @@   = liftIO       (nullableToMaybe <$>          (js_createMediaStreamDestination (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamDestination Mozilla AudioContext.createMediaStreamDestination documentation> +createMediaStreamDestination_ ::+                              (MonadIO m, IsAudioContext self) => self -> m ()+createMediaStreamDestination_ self+  = liftIO+      (void (js_createMediaStreamDestination (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamDestination Mozilla AudioContext.createMediaStreamDestination documentation> +createMediaStreamDestinationUnchecked ::+                                      (MonadIO m, IsAudioContext self) =>+                                        self -> m MediaStreamAudioDestinationNode+createMediaStreamDestinationUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createMediaStreamDestination (toAudioContext self)))   foreign import javascript unsafe "$1[\"createGain\"]()"         js_createGain :: AudioContext -> IO (Nullable GainNode)@@ -167,6 +307,19 @@ createGain self   = liftIO       (nullableToMaybe <$> (js_createGain (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGain Mozilla AudioContext.createGain documentation> +createGain_ :: (MonadIO m, IsAudioContext self) => self -> m ()+createGain_ self+  = liftIO (void (js_createGain (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGain Mozilla AudioContext.createGain documentation> +createGainUnchecked ::+                    (MonadIO m, IsAudioContext self) => self -> m GainNode+createGainUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createGain (toAudioContext self)))   foreign import javascript unsafe "$1[\"createDelay\"]($2)"         js_createDelay :: AudioContext -> Double -> IO (Nullable DelayNode)@@ -179,6 +332,20 @@   = liftIO       (nullableToMaybe <$>          (js_createDelay (toAudioContext self) maxDelayTime))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelay Mozilla AudioContext.createDelay documentation> +createDelay_ ::+             (MonadIO m, IsAudioContext self) => self -> Double -> m ()+createDelay_ self maxDelayTime+  = liftIO (void (js_createDelay (toAudioContext self) maxDelayTime))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelay Mozilla AudioContext.createDelay documentation> +createDelayUnchecked ::+                     (MonadIO m, IsAudioContext self) => self -> Double -> m DelayNode+createDelayUnchecked self maxDelayTime+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createDelay (toAudioContext self) maxDelayTime))   foreign import javascript unsafe "$1[\"createBiquadFilter\"]()"         js_createBiquadFilter ::@@ -191,6 +358,20 @@ createBiquadFilter self   = liftIO       (nullableToMaybe <$> (js_createBiquadFilter (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBiquadFilter Mozilla AudioContext.createBiquadFilter documentation> +createBiquadFilter_ ::+                    (MonadIO m, IsAudioContext self) => self -> m ()+createBiquadFilter_ self+  = liftIO (void (js_createBiquadFilter (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBiquadFilter Mozilla AudioContext.createBiquadFilter documentation> +createBiquadFilterUnchecked ::+                            (MonadIO m, IsAudioContext self) => self -> m BiquadFilterNode+createBiquadFilterUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createBiquadFilter (toAudioContext self)))   foreign import javascript unsafe "$1[\"createWaveShaper\"]()"         js_createWaveShaper :: AudioContext -> IO (Nullable WaveShaperNode)@@ -202,6 +383,20 @@ createWaveShaper self   = liftIO       (nullableToMaybe <$> (js_createWaveShaper (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createWaveShaper Mozilla AudioContext.createWaveShaper documentation> +createWaveShaper_ ::+                  (MonadIO m, IsAudioContext self) => self -> m ()+createWaveShaper_ self+  = liftIO (void (js_createWaveShaper (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createWaveShaper Mozilla AudioContext.createWaveShaper documentation> +createWaveShaperUnchecked ::+                          (MonadIO m, IsAudioContext self) => self -> m WaveShaperNode+createWaveShaperUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createWaveShaper (toAudioContext self)))   foreign import javascript unsafe "$1[\"createPanner\"]()"         js_createPanner :: AudioContext -> IO (Nullable PannerNode)@@ -212,6 +407,19 @@ createPanner self   = liftIO       (nullableToMaybe <$> (js_createPanner (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPanner Mozilla AudioContext.createPanner documentation> +createPanner_ :: (MonadIO m, IsAudioContext self) => self -> m ()+createPanner_ self+  = liftIO (void (js_createPanner (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPanner Mozilla AudioContext.createPanner documentation> +createPannerUnchecked ::+                      (MonadIO m, IsAudioContext self) => self -> m PannerNode+createPannerUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createPanner (toAudioContext self)))   foreign import javascript unsafe "$1[\"createConvolver\"]()"         js_createConvolver :: AudioContext -> IO (Nullable ConvolverNode)@@ -222,6 +430,20 @@ createConvolver self   = liftIO       (nullableToMaybe <$> (js_createConvolver (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createConvolver Mozilla AudioContext.createConvolver documentation> +createConvolver_ ::+                 (MonadIO m, IsAudioContext self) => self -> m ()+createConvolver_ self+  = liftIO (void (js_createConvolver (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createConvolver Mozilla AudioContext.createConvolver documentation> +createConvolverUnchecked ::+                         (MonadIO m, IsAudioContext self) => self -> m ConvolverNode+createConvolverUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createConvolver (toAudioContext self)))   foreign import javascript unsafe         "$1[\"createDynamicsCompressor\"]()" js_createDynamicsCompressor ::@@ -235,6 +457,21 @@   = liftIO       (nullableToMaybe <$>          (js_createDynamicsCompressor (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDynamicsCompressor Mozilla AudioContext.createDynamicsCompressor documentation> +createDynamicsCompressor_ ::+                          (MonadIO m, IsAudioContext self) => self -> m ()+createDynamicsCompressor_ self+  = liftIO (void (js_createDynamicsCompressor (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDynamicsCompressor Mozilla AudioContext.createDynamicsCompressor documentation> +createDynamicsCompressorUnchecked ::+                                  (MonadIO m, IsAudioContext self) =>+                                    self -> m DynamicsCompressorNode+createDynamicsCompressorUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createDynamicsCompressor (toAudioContext self)))   foreign import javascript unsafe "$1[\"createAnalyser\"]()"         js_createAnalyser :: AudioContext -> IO (Nullable AnalyserNode)@@ -245,6 +482,19 @@ createAnalyser self   = liftIO       (nullableToMaybe <$> (js_createAnalyser (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createAnalyser Mozilla AudioContext.createAnalyser documentation> +createAnalyser_ :: (MonadIO m, IsAudioContext self) => self -> m ()+createAnalyser_ self+  = liftIO (void (js_createAnalyser (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createAnalyser Mozilla AudioContext.createAnalyser documentation> +createAnalyserUnchecked ::+                        (MonadIO m, IsAudioContext self) => self -> m AnalyserNode+createAnalyserUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createAnalyser (toAudioContext self)))   foreign import javascript unsafe         "$1[\"createScriptProcessor\"]($2,\n$3, $4)"@@ -263,6 +513,30 @@          (js_createScriptProcessor (toAudioContext self) bufferSize             numberOfInputChannels             numberOfOutputChannels))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createScriptProcessor Mozilla AudioContext.createScriptProcessor documentation> +createScriptProcessor_ ::+                       (MonadIO m, IsAudioContext self) =>+                         self -> Word -> Word -> Word -> m ()+createScriptProcessor_ self bufferSize numberOfInputChannels+  numberOfOutputChannels+  = liftIO+      (void+         (js_createScriptProcessor (toAudioContext self) bufferSize+            numberOfInputChannels+            numberOfOutputChannels))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createScriptProcessor Mozilla AudioContext.createScriptProcessor documentation> +createScriptProcessorUnchecked ::+                               (MonadIO m, IsAudioContext self) =>+                                 self -> Word -> Word -> Word -> m ScriptProcessorNode+createScriptProcessorUnchecked self bufferSize+  numberOfInputChannels numberOfOutputChannels+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createScriptProcessor (toAudioContext self) bufferSize+            numberOfInputChannels+            numberOfOutputChannels))   foreign import javascript unsafe "$1[\"createOscillator\"]()"         js_createOscillator :: AudioContext -> IO (Nullable OscillatorNode)@@ -274,6 +548,20 @@ createOscillator self   = liftIO       (nullableToMaybe <$> (js_createOscillator (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createOscillator Mozilla AudioContext.createOscillator documentation> +createOscillator_ ::+                  (MonadIO m, IsAudioContext self) => self -> m ()+createOscillator_ self+  = liftIO (void (js_createOscillator (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createOscillator Mozilla AudioContext.createOscillator documentation> +createOscillatorUnchecked ::+                          (MonadIO m, IsAudioContext self) => self -> m OscillatorNode+createOscillatorUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createOscillator (toAudioContext self)))   foreign import javascript unsafe         "$1[\"createPeriodicWave\"]($2, $3)" js_createPeriodicWave ::@@ -292,6 +580,30 @@          (js_createPeriodicWave (toAudioContext self)             (maybeToNullable (fmap toFloat32Array real))             (maybeToNullable (fmap toFloat32Array imag))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPeriodicWave Mozilla AudioContext.createPeriodicWave documentation> +createPeriodicWave_ ::+                    (MonadIO m, IsAudioContext self, IsFloat32Array real,+                     IsFloat32Array imag) =>+                      self -> Maybe real -> Maybe imag -> m ()+createPeriodicWave_ self real imag+  = liftIO+      (void+         (js_createPeriodicWave (toAudioContext self)+            (maybeToNullable (fmap toFloat32Array real))+            (maybeToNullable (fmap toFloat32Array imag))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPeriodicWave Mozilla AudioContext.createPeriodicWave documentation> +createPeriodicWaveUnchecked ::+                            (MonadIO m, IsAudioContext self, IsFloat32Array real,+                             IsFloat32Array imag) =>+                              self -> Maybe real -> Maybe imag -> m PeriodicWave+createPeriodicWaveUnchecked self real imag+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createPeriodicWave (toAudioContext self)+            (maybeToNullable (fmap toFloat32Array real))+            (maybeToNullable (fmap toFloat32Array imag))))   foreign import javascript unsafe         "$1[\"createChannelSplitter\"]($2)" js_createChannelSplitter ::@@ -305,6 +617,23 @@   = liftIO       (nullableToMaybe <$>          (js_createChannelSplitter (toAudioContext self) numberOfOutputs))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelSplitter Mozilla AudioContext.createChannelSplitter documentation> +createChannelSplitter_ ::+                       (MonadIO m, IsAudioContext self) => self -> Word -> m ()+createChannelSplitter_ self numberOfOutputs+  = liftIO+      (void+         (js_createChannelSplitter (toAudioContext self) numberOfOutputs))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelSplitter Mozilla AudioContext.createChannelSplitter documentation> +createChannelSplitterUnchecked ::+                               (MonadIO m, IsAudioContext self) =>+                                 self -> Word -> m ChannelSplitterNode+createChannelSplitterUnchecked self numberOfOutputs+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createChannelSplitter (toAudioContext self) numberOfOutputs))   foreign import javascript unsafe "$1[\"createChannelMerger\"]($2)"         js_createChannelMerger ::@@ -318,6 +647,23 @@   = liftIO       (nullableToMaybe <$>          (js_createChannelMerger (toAudioContext self) numberOfInputs))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelMerger Mozilla AudioContext.createChannelMerger documentation> +createChannelMerger_ ::+                     (MonadIO m, IsAudioContext self) => self -> Word -> m ()+createChannelMerger_ self numberOfInputs+  = liftIO+      (void+         (js_createChannelMerger (toAudioContext self) numberOfInputs))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelMerger Mozilla AudioContext.createChannelMerger documentation> +createChannelMergerUnchecked ::+                             (MonadIO m, IsAudioContext self) =>+                               self -> Word -> m ChannelMergerNode+createChannelMergerUnchecked self numberOfInputs+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createChannelMerger (toAudioContext self) numberOfInputs))   foreign import javascript unsafe "$1[\"startRendering\"]()"         js_startRendering :: AudioContext -> IO ()@@ -336,6 +682,19 @@ createGainNode self   = liftIO       (nullableToMaybe <$> (js_createGainNode (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGainNode Mozilla AudioContext.createGainNode documentation> +createGainNode_ :: (MonadIO m, IsAudioContext self) => self -> m ()+createGainNode_ self+  = liftIO (void (js_createGainNode (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGainNode Mozilla AudioContext.createGainNode documentation> +createGainNodeUnchecked ::+                        (MonadIO m, IsAudioContext self) => self -> m GainNode+createGainNodeUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createGainNode (toAudioContext self)))   foreign import javascript unsafe "$1[\"createDelayNode\"]($2)"         js_createDelayNode ::@@ -349,6 +708,21 @@   = liftIO       (nullableToMaybe <$>          (js_createDelayNode (toAudioContext self) maxDelayTime))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelayNode Mozilla AudioContext.createDelayNode documentation> +createDelayNode_ ::+                 (MonadIO m, IsAudioContext self) => self -> Double -> m ()+createDelayNode_ self maxDelayTime+  = liftIO+      (void (js_createDelayNode (toAudioContext self) maxDelayTime))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelayNode Mozilla AudioContext.createDelayNode documentation> +createDelayNodeUnchecked ::+                         (MonadIO m, IsAudioContext self) => self -> Double -> m DelayNode+createDelayNodeUnchecked self maxDelayTime+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createDelayNode (toAudioContext self) maxDelayTime))   foreign import javascript unsafe         "$1[\"createJavaScriptNode\"]($2,\n$3, $4)" js_createJavaScriptNode@@ -367,6 +741,30 @@          (js_createJavaScriptNode (toAudioContext self) bufferSize             numberOfInputChannels             numberOfOutputChannels))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createJavaScriptNode Mozilla AudioContext.createJavaScriptNode documentation> +createJavaScriptNode_ ::+                      (MonadIO m, IsAudioContext self) =>+                        self -> Word -> Word -> Word -> m ()+createJavaScriptNode_ self bufferSize numberOfInputChannels+  numberOfOutputChannels+  = liftIO+      (void+         (js_createJavaScriptNode (toAudioContext self) bufferSize+            numberOfInputChannels+            numberOfOutputChannels))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createJavaScriptNode Mozilla AudioContext.createJavaScriptNode documentation> +createJavaScriptNodeUnchecked ::+                              (MonadIO m, IsAudioContext self) =>+                                self -> Word -> Word -> Word -> m ScriptProcessorNode+createJavaScriptNodeUnchecked self bufferSize numberOfInputChannels+  numberOfOutputChannels+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createJavaScriptNode (toAudioContext self) bufferSize+            numberOfInputChannels+            numberOfOutputChannels))   foreign import javascript unsafe "$1[\"destination\"]"         js_getDestination ::@@ -379,6 +777,14 @@ getDestination self   = liftIO       (nullableToMaybe <$> (js_getDestination (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.destination Mozilla AudioContext.destination documentation> +getDestinationUnchecked ::+                        (MonadIO m, IsAudioContext self) => self -> m AudioDestinationNode+getDestinationUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getDestination (toAudioContext self)))   foreign import javascript unsafe "$1[\"currentTime\"]"         js_getCurrentTime :: AudioContext -> IO Double@@ -407,6 +813,14 @@ getListener self   = liftIO       (nullableToMaybe <$> (js_getListener (toAudioContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.listener Mozilla AudioContext.listener documentation> +getListenerUnchecked ::+                     (MonadIO m, IsAudioContext self) => self -> m AudioListener+getListenerUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getListener (toAudioContext self)))   foreign import javascript unsafe "$1[\"activeSourceCount\"]"         js_getActiveSourceCount :: AudioContext -> IO Word
src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs view
@@ -13,9 +13,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs view
@@ -1,11 +1,11 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.AudioNode        (js_connect, connect, js_connectParam, connectParam, js_disconnect,-        disconnect, js_getContext, getContext, js_getNumberOfInputs,-        getNumberOfInputs, js_getNumberOfOutputs, getNumberOfOutputs,-        js_setChannelCount, setChannelCount, js_getChannelCount,-        getChannelCount, js_setChannelCountMode, setChannelCountMode,-        js_getChannelCountMode, getChannelCountMode,+        disconnect, js_getContext, getContext, getContextUnchecked,+        js_getNumberOfInputs, getNumberOfInputs, js_getNumberOfOutputs,+        getNumberOfOutputs, js_setChannelCount, setChannelCount,+        js_getChannelCount, getChannelCount, js_setChannelCountMode,+        setChannelCountMode, js_getChannelCountMode, getChannelCountMode,         js_setChannelInterpretation, setChannelInterpretation,         js_getChannelInterpretation, getChannelInterpretation, AudioNode,         castToAudioNode, gTypeAudioNode, IsAudioNode, toAudioNode)@@ -17,9 +17,11 @@ 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)@@ -69,6 +71,13 @@            (MonadIO m, IsAudioNode self) => self -> m (Maybe AudioContext) getContext self   = liftIO (nullableToMaybe <$> (js_getContext (toAudioNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.context Mozilla AudioNode.context documentation> +getContextUnchecked ::+                    (MonadIO m, IsAudioNode self) => self -> m AudioContext+getContextUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getContext (toAudioNode self)))   foreign import javascript unsafe "$1[\"numberOfInputs\"]"         js_getNumberOfInputs :: AudioNode -> IO Word
src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs view
@@ -18,9 +18,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs view
@@ -1,9 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.AudioProcessingEvent        (js_getPlaybackTime, getPlaybackTime, js_getInputBuffer,-        getInputBuffer, js_getOutputBuffer, getOutputBuffer,-        AudioProcessingEvent, castToAudioProcessingEvent,-        gTypeAudioProcessingEvent)+        getInputBuffer, getInputBufferUnchecked, js_getOutputBuffer,+        getOutputBuffer, getOutputBufferUnchecked, AudioProcessingEvent,+        castToAudioProcessingEvent, gTypeAudioProcessingEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -12,9 +12,11 @@ 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)@@ -36,6 +38,13 @@                (MonadIO m) => AudioProcessingEvent -> m (Maybe AudioBuffer) getInputBuffer self   = liftIO (nullableToMaybe <$> (js_getInputBuffer (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.inputBuffer Mozilla AudioProcessingEvent.inputBuffer documentation> +getInputBufferUnchecked ::+                        (MonadIO m) => AudioProcessingEvent -> m AudioBuffer+getInputBufferUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getInputBuffer (self)))   foreign import javascript unsafe "$1[\"outputBuffer\"]"         js_getOutputBuffer ::@@ -46,3 +55,10 @@                 (MonadIO m) => AudioProcessingEvent -> m (Maybe AudioBuffer) getOutputBuffer self   = liftIO (nullableToMaybe <$> (js_getOutputBuffer (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.outputBuffer Mozilla AudioProcessingEvent.outputBuffer documentation> +getOutputBufferUnchecked ::+                         (MonadIO m) => AudioProcessingEvent -> m AudioBuffer+getOutputBufferUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getOutputBuffer (self)))
src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs view
@@ -3,8 +3,8 @@        (js_getId, getId, js_setKind, setKind, js_getKind, getKind,         js_getLabel, getLabel, js_setLanguage, setLanguage, js_getLanguage,         getLanguage, js_setEnabled, setEnabled, js_getEnabled, getEnabled,-        js_getSourceBuffer, getSourceBuffer, AudioTrack, castToAudioTrack,-        gTypeAudioTrack)+        js_getSourceBuffer, getSourceBuffer, getSourceBufferUnchecked,+        AudioTrack, castToAudioTrack, gTypeAudioTrack)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +13,11 @@ 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)@@ -91,3 +93,10 @@                 (MonadIO m) => AudioTrack -> m (Maybe SourceBuffer) getSourceBuffer self   = liftIO (nullableToMaybe <$> (js_getSourceBuffer (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.sourceBuffer Mozilla AudioTrack.sourceBuffer documentation> +getSourceBufferUnchecked ::+                         (MonadIO m) => AudioTrack -> m SourceBuffer+getSourceBufferUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getSourceBuffer (self)))
src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.AudioTrackList-       (js_item, item, js_getTrackById, getTrackById, js_getLength,+       (js_item, item, item_, itemUnchecked, js_getTrackById,+        getTrackById, getTrackById_, getTrackByIdUnchecked, js_getLength,         getLength, change, addTrack, removeTrack, AudioTrackList,         castToAudioTrackList, gTypeAudioTrackList)        where@@ -11,9 +12,11 @@ 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)@@ -27,6 +30,16 @@      (MonadIO m) => AudioTrackList -> Word -> m (Maybe AudioTrack) item self index   = liftIO (nullableToMaybe <$> (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.item Mozilla AudioTrackList.item documentation> +item_ :: (MonadIO m) => AudioTrackList -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.item Mozilla AudioTrackList.item documentation> +itemUnchecked ::+              (MonadIO m) => AudioTrackList -> Word -> m AudioTrack+itemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"getTrackById\"]($2)"         js_getTrackById ::@@ -39,6 +52,20 @@ getTrackById self id   = liftIO       (nullableToMaybe <$> (js_getTrackById (self) (toJSString id)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.getTrackById Mozilla AudioTrackList.getTrackById documentation> +getTrackById_ ::+              (MonadIO m, ToJSString id) => AudioTrackList -> id -> m ()+getTrackById_ self id+  = liftIO (void (js_getTrackById (self) (toJSString id)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.getTrackById Mozilla AudioTrackList.getTrackById documentation> +getTrackByIdUnchecked ::+                      (MonadIO m, ToJSString id) => AudioTrackList -> id -> m AudioTrack+getTrackByIdUnchecked self id+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getTrackById (self) (toJSString id)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         AudioTrackList -> IO Word
src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/BarProp.hs view
@@ -9,9 +9,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs view
@@ -13,9 +13,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs view
@@ -4,9 +4,10 @@         pattern HIGHPASS, pattern BANDPASS, pattern LOWSHELF,         pattern HIGHSHELF, pattern PEAKING, pattern NOTCH, pattern ALLPASS,         js_setType, setType, js_getType, getType, js_getFrequency,-        getFrequency, js_getDetune, getDetune, js_getQ, getQ, js_getGain,-        getGain, BiquadFilterNode, castToBiquadFilterNode,-        gTypeBiquadFilterNode)+        getFrequency, getFrequencyUnchecked, js_getDetune, getDetune,+        getDetuneUnchecked, js_getQ, getQ, getQUnchecked, js_getGain,+        getGain, getGainUnchecked, BiquadFilterNode,+        castToBiquadFilterNode, gTypeBiquadFilterNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -15,9 +16,11 @@ 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)@@ -76,6 +79,12 @@              (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam) getFrequency self   = liftIO (nullableToMaybe <$> (js_getFrequency (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.frequency Mozilla BiquadFilterNode.frequency documentation> +getFrequencyUnchecked ::+                      (MonadIO m) => BiquadFilterNode -> m AudioParam+getFrequencyUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getFrequency (self)))   foreign import javascript unsafe "$1[\"detune\"]" js_getDetune ::         BiquadFilterNode -> IO (Nullable AudioParam)@@ -84,6 +93,12 @@ getDetune ::           (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam) getDetune self = liftIO (nullableToMaybe <$> (js_getDetune (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.detune Mozilla BiquadFilterNode.detune documentation> +getDetuneUnchecked ::+                   (MonadIO m) => BiquadFilterNode -> m AudioParam+getDetuneUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getDetune (self)))   foreign import javascript unsafe "$1[\"Q\"]" js_getQ ::         BiquadFilterNode -> IO (Nullable AudioParam)@@ -91,6 +106,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.Q Mozilla BiquadFilterNode.Q documentation>  getQ :: (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam) getQ self = liftIO (nullableToMaybe <$> (js_getQ (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.Q Mozilla BiquadFilterNode.Q documentation> +getQUnchecked :: (MonadIO m) => BiquadFilterNode -> m AudioParam+getQUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getQ (self)))   foreign import javascript unsafe "$1[\"gain\"]" js_getGain ::         BiquadFilterNode -> IO (Nullable AudioParam)@@ -98,3 +118,8 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.gain Mozilla BiquadFilterNode.gain documentation>  getGain :: (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam) getGain self = liftIO (nullableToMaybe <$> (js_getGain (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.gain Mozilla BiquadFilterNode.gain documentation> +getGainUnchecked :: (MonadIO m) => BiquadFilterNode -> m AudioParam+getGainUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getGain (self)))
src/GHCJS/DOM/JSFFI/Generated/Blob.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Blob        (js_newBlob, newBlob, js_newBlob', newBlob', js_slice, slice,-        js_getSize, getSize, js_getType, getType, Blob, castToBlob,-        gTypeBlob, IsBlob, toBlob)+        slice_, sliceUnchecked, js_getSize, getSize, js_getType, getType,+        Blob, castToBlob, gTypeBlob, IsBlob, toBlob)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -49,6 +51,26 @@ slice self start end contentType   = liftIO       (nullableToMaybe <$>+         (js_slice (toBlob self) (fromIntegral start) (fromIntegral end)+            (toMaybeJSString contentType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.slice Mozilla Blob.slice documentation> +slice_ ::+       (MonadIO m, IsBlob self, ToJSString contentType) =>+         self -> Int64 -> Int64 -> Maybe contentType -> m ()+slice_ self start end contentType+  = liftIO+      (void+         (js_slice (toBlob self) (fromIntegral start) (fromIntegral end)+            (toMaybeJSString contentType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.slice Mozilla Blob.slice documentation> +sliceUnchecked ::+               (MonadIO m, IsBlob self, ToJSString contentType) =>+                 self -> Int64 -> Int64 -> Maybe contentType -> m Blob+sliceUnchecked self start end contentType+  = liftIO+      (fromJust . nullableToMaybe <$>          (js_slice (toBlob self) (fromIntegral start) (fromIntegral end)             (toMaybeJSString contentType)))
src/GHCJS/DOM/JSFFI/Generated/CSS.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSS-       (js_supports2, supports2, js_supports, supports, CSS, castToCSS,-        gTypeCSS)+       (js_supports2, supports2, supports2_, js_supports, supports,+        supports_, CSS, castToCSS, gTypeCSS)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -29,6 +31,15 @@ supports2 self property value   = liftIO       (js_supports2 (self) (toJSString property) (toJSString value))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation> +supports2_ ::+           (MonadIO m, ToJSString property, ToJSString value) =>+             CSS -> property -> value -> m ()+supports2_ self property value+  = liftIO+      (void+         (js_supports2 (self) (toJSString property) (toJSString value)))   foreign import javascript unsafe "($1[\"supports\"]($2) ? 1 : 0)"         js_supports :: CSS -> JSString -> IO Bool@@ -39,3 +50,10 @@            CSS -> conditionText -> m Bool supports self conditionText   = liftIO (js_supports (self) (toJSString conditionText))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation> +supports_ ::+          (MonadIO m, ToJSString conditionText) =>+            CSS -> conditionText -> m ()+supports_ self conditionText+  = liftIO (void (js_supports (self) (toJSString conditionText)))
src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSCharsetRule        (js_setEncoding, setEncoding, js_getEncoding, getEncoding,-        CSSCharsetRule, castToCSSCharsetRule, gTypeCSSCharsetRule)+        getEncodingUnchecked, CSSCharsetRule, castToCSSCharsetRule,+        gTypeCSSCharsetRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -36,3 +39,9 @@               CSSCharsetRule -> m (Maybe result) getEncoding self   = liftIO (fromMaybeJSString <$> (js_getEncoding (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSCharsetRule.encoding Mozilla CSSCharsetRule.encoding documentation> +getEncodingUnchecked ::+                     (MonadIO m, FromJSString result) => CSSCharsetRule -> m result+getEncodingUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getEncoding (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSFontFaceLoadEvent-       (js_getFontface, getFontface, js_getError, getError,-        CSSFontFaceLoadEvent, castToCSSFontFaceLoadEvent,-        gTypeCSSFontFaceLoadEvent)+       (js_getFontface, getFontface, getFontfaceUnchecked, js_getError,+        getError, getErrorUnchecked, CSSFontFaceLoadEvent,+        castToCSSFontFaceLoadEvent, gTypeCSSFontFaceLoadEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -27,6 +29,12 @@             (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe CSSFontFaceRule) getFontface self   = liftIO (nullableToMaybe <$> (js_getFontface (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.fontface Mozilla CSSFontFaceLoadEvent.fontface documentation> +getFontfaceUnchecked ::+                     (MonadIO m) => CSSFontFaceLoadEvent -> m CSSFontFaceRule+getFontfaceUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getFontface (self)))   foreign import javascript unsafe "$1[\"error\"]" js_getError ::         CSSFontFaceLoadEvent -> IO (Nullable DOMError)@@ -35,3 +43,9 @@ getError ::          (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe DOMError) getError self = liftIO (nullableToMaybe <$> (js_getError (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.error Mozilla CSSFontFaceLoadEvent.error documentation> +getErrorUnchecked ::+                  (MonadIO m) => CSSFontFaceLoadEvent -> m DOMError+getErrorUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getError (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSFontFaceRule-       (js_getStyle, getStyle, CSSFontFaceRule, castToCSSFontFaceRule,-        gTypeCSSFontFaceRule)+       (js_getStyle, getStyle, getStyleUnchecked, CSSFontFaceRule,+        castToCSSFontFaceRule, gTypeCSSFontFaceRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -25,3 +27,9 @@ getStyle ::          (MonadIO m) => CSSFontFaceRule -> m (Maybe CSSStyleDeclaration) getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceRule.style Mozilla CSSFontFaceRule.style documentation> +getStyleUnchecked ::+                  (MonadIO m) => CSSFontFaceRule -> m CSSStyleDeclaration+getStyleUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getStyle (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSImportRule-       (js_getHref, getHref, js_getMedia, getMedia, js_getStyleSheet,-        getStyleSheet, CSSImportRule, castToCSSImportRule,+       (js_getHref, getHref, getHrefUnchecked, js_getMedia, getMedia,+        getMediaUnchecked, js_getStyleSheet, getStyleSheet,+        getStyleSheetUnchecked, CSSImportRule, castToCSSImportRule,         gTypeCSSImportRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -11,9 +12,11 @@ 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)@@ -27,6 +30,12 @@         (MonadIO m, FromJSString result) =>           CSSImportRule -> m (Maybe result) getHref self = liftIO (fromMaybeJSString <$> (js_getHref (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.href Mozilla CSSImportRule.href documentation> +getHrefUnchecked ::+                 (MonadIO m, FromJSString result) => CSSImportRule -> m result+getHrefUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getHref (self)))   foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::         CSSImportRule -> IO (Nullable MediaList)@@ -34,6 +43,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.media Mozilla CSSImportRule.media documentation>  getMedia :: (MonadIO m) => CSSImportRule -> m (Maybe MediaList) getMedia self = liftIO (nullableToMaybe <$> (js_getMedia (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.media Mozilla CSSImportRule.media documentation> +getMediaUnchecked :: (MonadIO m) => CSSImportRule -> m MediaList+getMediaUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getMedia (self)))   foreign import javascript unsafe "$1[\"styleSheet\"]"         js_getStyleSheet :: CSSImportRule -> IO (Nullable CSSStyleSheet)@@ -43,3 +57,9 @@               (MonadIO m) => CSSImportRule -> m (Maybe CSSStyleSheet) getStyleSheet self   = liftIO (nullableToMaybe <$> (js_getStyleSheet (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.styleSheet Mozilla CSSImportRule.styleSheet documentation> +getStyleSheetUnchecked ::+                       (MonadIO m) => CSSImportRule -> m CSSStyleSheet+getStyleSheetUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getStyleSheet (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSKeyframeRule        (js_setKeyText, setKeyText, js_getKeyText, getKeyText, js_getStyle,-        getStyle, CSSKeyframeRule, castToCSSKeyframeRule,-        gTypeCSSKeyframeRule)+        getStyle, getStyleUnchecked, CSSKeyframeRule,+        castToCSSKeyframeRule, gTypeCSSKeyframeRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -43,3 +45,9 @@ getStyle ::          (MonadIO m) => CSSKeyframeRule -> m (Maybe CSSStyleDeclaration) getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.style Mozilla CSSKeyframeRule.style documentation> +getStyleUnchecked ::+                  (MonadIO m) => CSSKeyframeRule -> m CSSStyleDeclaration+getStyleUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getStyle (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs view
@@ -1,10 +1,11 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSKeyframesRule        (js_insertRule, insertRule, js_appendRule, appendRule,-        js_deleteRule, deleteRule, js_findRule, findRule, js__get, _get,-        js_setName, setName, js_getName, getName, js_getCssRules,-        getCssRules, CSSKeyframesRule, castToCSSKeyframesRule,-        gTypeCSSKeyframesRule)+        js_deleteRule, deleteRule, js_findRule, findRule, findRule_,+        findRuleUnchecked, js__get, _get, _get_, _getUnchecked, js_setName,+        setName, js_getName, getName, getNameUnchecked, js_getCssRules,+        getCssRules, getCssRulesUnchecked, CSSKeyframesRule,+        castToCSSKeyframesRule, gTypeCSSKeyframesRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +14,11 @@ 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)@@ -58,6 +61,21 @@ findRule self key   = liftIO       (nullableToMaybe <$> (js_findRule (self) (toJSString key)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation> +findRule_ ::+          (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m ()+findRule_ self key+  = liftIO (void (js_findRule (self) (toJSString key)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation> +findRuleUnchecked ::+                  (MonadIO m, ToJSString key) =>+                    CSSKeyframesRule -> key -> m CSSKeyframeRule+findRuleUnchecked self key+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_findRule (self) (toJSString key)))   foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::         CSSKeyframesRule -> Word -> IO (Nullable CSSKeyframeRule)@@ -68,6 +86,16 @@        CSSKeyframesRule -> Word -> m (Maybe CSSKeyframeRule) _get self index   = liftIO (nullableToMaybe <$> (js__get (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule._get Mozilla CSSKeyframesRule._get documentation> +_get_ :: (MonadIO m) => CSSKeyframesRule -> Word -> m ()+_get_ self index = liftIO (void (js__get (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule._get Mozilla CSSKeyframesRule._get documentation> +_getUnchecked ::+              (MonadIO m) => CSSKeyframesRule -> Word -> m CSSKeyframeRule+_getUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js__get (self) index))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         CSSKeyframesRule -> Nullable JSString -> IO ()@@ -86,6 +114,12 @@         (MonadIO m, FromJSString result) =>           CSSKeyframesRule -> m (Maybe result) getName self = liftIO (fromMaybeJSString <$> (js_getName (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation> +getNameUnchecked ::+                 (MonadIO m, FromJSString result) => CSSKeyframesRule -> m result+getNameUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules         :: CSSKeyframesRule -> IO (Nullable CSSRuleList)@@ -95,3 +129,9 @@             (MonadIO m) => CSSKeyframesRule -> m (Maybe CSSRuleList) getCssRules self   = liftIO (nullableToMaybe <$> (js_getCssRules (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.cssRules Mozilla CSSKeyframesRule.cssRules documentation> +getCssRulesUnchecked ::+                     (MonadIO m) => CSSKeyframesRule -> m CSSRuleList+getCssRulesUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getCssRules (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSMediaRule-       (js_insertRule, insertRule, js_deleteRule, deleteRule, js_getMedia,-        getMedia, js_getCssRules, getCssRules, CSSMediaRule,+       (js_insertRule, insertRule, insertRule_, js_deleteRule, deleteRule,+        js_getMedia, getMedia, getMediaUnchecked, js_getCssRules,+        getCssRules, getCssRulesUnchecked, CSSMediaRule,         castToCSSMediaRule, gTypeCSSMediaRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -11,9 +12,11 @@ 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)@@ -28,6 +31,13 @@              CSSMediaRule -> rule -> Word -> m Word insertRule self rule index   = liftIO (js_insertRule (self) (toJSString rule) index)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.insertRule Mozilla CSSMediaRule.insertRule documentation> +insertRule_ ::+            (MonadIO m, ToJSString rule) =>+              CSSMediaRule -> rule -> Word -> m ()+insertRule_ self rule index+  = liftIO (void (js_insertRule (self) (toJSString rule) index))   foreign import javascript unsafe "$1[\"deleteRule\"]($2)"         js_deleteRule :: CSSMediaRule -> Word -> IO ()@@ -42,6 +52,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.media Mozilla CSSMediaRule.media documentation>  getMedia :: (MonadIO m) => CSSMediaRule -> m (Maybe MediaList) getMedia self = liftIO (nullableToMaybe <$> (js_getMedia (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.media Mozilla CSSMediaRule.media documentation> +getMediaUnchecked :: (MonadIO m) => CSSMediaRule -> m MediaList+getMediaUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getMedia (self)))   foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules         :: CSSMediaRule -> IO (Nullable CSSRuleList)@@ -50,3 +65,9 @@ getCssRules :: (MonadIO m) => CSSMediaRule -> m (Maybe CSSRuleList) getCssRules self   = liftIO (nullableToMaybe <$> (js_getCssRules (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.cssRules Mozilla CSSMediaRule.cssRules documentation> +getCssRulesUnchecked ::+                     (MonadIO m) => CSSMediaRule -> m CSSRuleList+getCssRulesUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getCssRules (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs view
@@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSPageRule        (js_setSelectorText, setSelectorText, js_getSelectorText,-        getSelectorText, js_getStyle, getStyle, CSSPageRule,-        castToCSSPageRule, gTypeCSSPageRule)+        getSelectorText, getSelectorTextUnchecked, js_getStyle, getStyle,+        getStyleUnchecked, CSSPageRule, castToCSSPageRule,+        gTypeCSSPageRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +12,11 @@ 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)@@ -36,6 +39,13 @@                 (MonadIO m, FromJSString result) => CSSPageRule -> m (Maybe result) getSelectorText self   = liftIO (fromMaybeJSString <$> (js_getSelectorText (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation> +getSelectorTextUnchecked ::+                         (MonadIO m, FromJSString result) => CSSPageRule -> m result+getSelectorTextUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getSelectorText (self)))   foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::         CSSPageRule -> IO (Nullable CSSStyleDeclaration)@@ -44,3 +54,9 @@ getStyle ::          (MonadIO m) => CSSPageRule -> m (Maybe CSSStyleDeclaration) getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.style Mozilla CSSPageRule.style documentation> +getStyleUnchecked ::+                  (MonadIO m) => CSSPageRule -> m CSSStyleDeclaration+getStyleUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getStyle (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs view
@@ -1,18 +1,21 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSPrimitiveValue        (js_setFloatValue, setFloatValue, js_getFloatValue, getFloatValue,-        js_setStringValue, setStringValue, js_getStringValue,-        getStringValue, js_getCounterValue, getCounterValue,-        js_getRectValue, getRectValue, js_getRGBColorValue,-        getRGBColorValue, pattern CSS_UNKNOWN, pattern CSS_NUMBER,-        pattern CSS_PERCENTAGE, pattern CSS_EMS, pattern CSS_EXS,-        pattern CSS_PX, pattern CSS_CM, pattern CSS_MM, pattern CSS_IN,-        pattern CSS_PT, pattern CSS_PC, pattern CSS_DEG, pattern CSS_RAD,-        pattern CSS_GRAD, pattern CSS_MS, pattern CSS_S, pattern CSS_HZ,-        pattern CSS_KHZ, pattern CSS_DIMENSION, pattern CSS_STRING,-        pattern CSS_URI, pattern CSS_IDENT, pattern CSS_ATTR,-        pattern CSS_COUNTER, pattern CSS_RECT, pattern CSS_RGBCOLOR,-        pattern CSS_VW, pattern CSS_VH, pattern CSS_VMIN, pattern CSS_VMAX,+        getFloatValue_, js_setStringValue, setStringValue,+        js_getStringValue, getStringValue, getStringValue_,+        js_getCounterValue, getCounterValue, getCounterValue_,+        getCounterValueUnchecked, js_getRectValue, getRectValue,+        getRectValue_, getRectValueUnchecked, js_getRGBColorValue,+        getRGBColorValue, getRGBColorValue_, getRGBColorValueUnchecked,+        pattern CSS_UNKNOWN, pattern CSS_NUMBER, pattern CSS_PERCENTAGE,+        pattern CSS_EMS, pattern CSS_EXS, pattern CSS_PX, pattern CSS_CM,+        pattern CSS_MM, pattern CSS_IN, pattern CSS_PT, pattern CSS_PC,+        pattern CSS_DEG, pattern CSS_RAD, pattern CSS_GRAD, pattern CSS_MS,+        pattern CSS_S, pattern CSS_HZ, pattern CSS_KHZ,+        pattern CSS_DIMENSION, pattern CSS_STRING, pattern CSS_URI,+        pattern CSS_IDENT, pattern CSS_ATTR, pattern CSS_COUNTER,+        pattern CSS_RECT, pattern CSS_RGBCOLOR, pattern CSS_VW,+        pattern CSS_VH, pattern CSS_VMIN, pattern CSS_VMAX,         js_getPrimitiveType, getPrimitiveType, CSSPrimitiveValue,         castToCSSPrimitiveValue, gTypeCSSPrimitiveValue)        where@@ -23,9 +26,11 @@ 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)@@ -48,6 +53,11 @@               (MonadIO m) => CSSPrimitiveValue -> Word -> m Float getFloatValue self unitType   = liftIO (js_getFloatValue (self) unitType)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getFloatValue Mozilla CSSPrimitiveValue.getFloatValue documentation> +getFloatValue_ :: (MonadIO m) => CSSPrimitiveValue -> Word -> m ()+getFloatValue_ self unitType+  = liftIO (void (js_getFloatValue (self) unitType))   foreign import javascript unsafe "$1[\"setStringValue\"]($2, $3)"         js_setStringValue :: CSSPrimitiveValue -> Word -> JSString -> IO ()@@ -68,6 +78,10 @@                (MonadIO m, FromJSString result) => CSSPrimitiveValue -> m result getStringValue self   = liftIO (fromJSString <$> (js_getStringValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getStringValue Mozilla CSSPrimitiveValue.getStringValue documentation> +getStringValue_ :: (MonadIO m) => CSSPrimitiveValue -> m ()+getStringValue_ self = liftIO (void (js_getStringValue (self)))   foreign import javascript unsafe "$1[\"getCounterValue\"]()"         js_getCounterValue :: CSSPrimitiveValue -> IO (Nullable Counter)@@ -77,6 +91,17 @@                 (MonadIO m) => CSSPrimitiveValue -> m (Maybe Counter) getCounterValue self   = liftIO (nullableToMaybe <$> (js_getCounterValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getCounterValue Mozilla CSSPrimitiveValue.getCounterValue documentation> +getCounterValue_ :: (MonadIO m) => CSSPrimitiveValue -> m ()+getCounterValue_ self = liftIO (void (js_getCounterValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getCounterValue Mozilla CSSPrimitiveValue.getCounterValue documentation> +getCounterValueUnchecked ::+                         (MonadIO m) => CSSPrimitiveValue -> m Counter+getCounterValueUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getCounterValue (self)))   foreign import javascript unsafe "$1[\"getRectValue\"]()"         js_getRectValue :: CSSPrimitiveValue -> IO (Nullable Rect)@@ -85,6 +110,15 @@ getRectValue :: (MonadIO m) => CSSPrimitiveValue -> m (Maybe Rect) getRectValue self   = liftIO (nullableToMaybe <$> (js_getRectValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRectValue Mozilla CSSPrimitiveValue.getRectValue documentation> +getRectValue_ :: (MonadIO m) => CSSPrimitiveValue -> m ()+getRectValue_ self = liftIO (void (js_getRectValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRectValue Mozilla CSSPrimitiveValue.getRectValue documentation> +getRectValueUnchecked :: (MonadIO m) => CSSPrimitiveValue -> m Rect+getRectValueUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRectValue (self)))   foreign import javascript unsafe "$1[\"getRGBColorValue\"]()"         js_getRGBColorValue :: CSSPrimitiveValue -> IO (Nullable RGBColor)@@ -94,6 +128,17 @@                  (MonadIO m) => CSSPrimitiveValue -> m (Maybe RGBColor) getRGBColorValue self   = liftIO (nullableToMaybe <$> (js_getRGBColorValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation> +getRGBColorValue_ :: (MonadIO m) => CSSPrimitiveValue -> m ()+getRGBColorValue_ self = liftIO (void (js_getRGBColorValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation> +getRGBColorValueUnchecked ::+                          (MonadIO m) => CSSPrimitiveValue -> m RGBColor+getRGBColorValueUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getRGBColorValue (self))) pattern CSS_UNKNOWN = 0 pattern CSS_NUMBER = 1 pattern CSS_PERCENTAGE = 2
src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs view
@@ -6,9 +6,11 @@         pattern SUPPORTS_RULE, pattern WEBKIT_VIEWPORT_RULE,         pattern WEBKIT_REGION_RULE, pattern WEBKIT_KEYFRAMES_RULE,         pattern WEBKIT_KEYFRAME_RULE, js_getType, getType, js_setCssText,-        setCssText, js_getCssText, getCssText, js_getParentStyleSheet,-        getParentStyleSheet, js_getParentRule, getParentRule, CSSRule,-        castToCSSRule, gTypeCSSRule, IsCSSRule, toCSSRule)+        setCssText, js_getCssText, getCssText, getCssTextUnchecked,+        js_getParentStyleSheet, getParentStyleSheet,+        getParentStyleSheetUnchecked, js_getParentRule, getParentRule,+        getParentRuleUnchecked, CSSRule, castToCSSRule, gTypeCSSRule,+        IsCSSRule, toCSSRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -17,9 +19,11 @@ 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)@@ -65,6 +69,14 @@              self -> m (Maybe result) getCssText self   = liftIO (fromMaybeJSString <$> (js_getCssText (toCSSRule self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation> +getCssTextUnchecked ::+                    (MonadIO m, IsCSSRule self, FromJSString result) =>+                      self -> m result+getCssTextUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getCssText (toCSSRule self)))   foreign import javascript unsafe "$1[\"parentStyleSheet\"]"         js_getParentStyleSheet :: CSSRule -> IO (Nullable CSSStyleSheet)@@ -75,6 +87,14 @@ getParentStyleSheet self   = liftIO       (nullableToMaybe <$> (js_getParentStyleSheet (toCSSRule self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentStyleSheet Mozilla CSSRule.parentStyleSheet documentation> +getParentStyleSheetUnchecked ::+                             (MonadIO m, IsCSSRule self) => self -> m CSSStyleSheet+getParentStyleSheetUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getParentStyleSheet (toCSSRule self)))   foreign import javascript unsafe "$1[\"parentRule\"]"         js_getParentRule :: CSSRule -> IO (Nullable CSSRule)@@ -84,3 +104,11 @@               (MonadIO m, IsCSSRule self) => self -> m (Maybe CSSRule) getParentRule self   = liftIO (nullableToMaybe <$> (js_getParentRule (toCSSRule self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentRule Mozilla CSSRule.parentRule documentation> +getParentRuleUnchecked ::+                       (MonadIO m, IsCSSRule self) => self -> m CSSRule+getParentRuleUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getParentRule (toCSSRule self)))
src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSRuleList-       (js_item, item, js_getLength, getLength, CSSRuleList,-        castToCSSRuleList, gTypeCSSRuleList)+       (js_item, item, item_, itemUnchecked, js_getLength, getLength,+        CSSRuleList, castToCSSRuleList, gTypeCSSRuleList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -25,6 +27,15 @@ item :: (MonadIO m) => CSSRuleList -> Word -> m (Maybe CSSRule) item self index   = liftIO (nullableToMaybe <$> (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation> +item_ :: (MonadIO m) => CSSRuleList -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation> +itemUnchecked :: (MonadIO m) => CSSRuleList -> Word -> m CSSRule+itemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         CSSRuleList -> IO Word
src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs view
@@ -1,12 +1,18 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSStyleDeclaration-       (js_getPropertyValue, getPropertyValue, js_getPropertyCSSValue,-        getPropertyCSSValue, js_removeProperty, removeProperty,-        js_getPropertyPriority, getPropertyPriority, js_setProperty,-        setProperty, js_item, item, js_getPropertyShorthand,-        getPropertyShorthand, js_isPropertyImplicit, isPropertyImplicit,-        js_setCssText, setCssText, js_getCssText, getCssText, js_getLength,-        getLength, js_getParentRule, getParentRule, CSSStyleDeclaration,+       (js_getPropertyValue, getPropertyValue, getPropertyValue_,+        getPropertyValueUnchecked, js_getPropertyCSSValue,+        getPropertyCSSValue, getPropertyCSSValue_,+        getPropertyCSSValueUnchecked, js_removeProperty, removeProperty,+        removeProperty_, removePropertyUnchecked, js_getPropertyPriority,+        getPropertyPriority, getPropertyPriority_,+        getPropertyPriorityUnchecked, js_setProperty, setProperty, js_item,+        item, item_, js_getPropertyShorthand, getPropertyShorthand,+        getPropertyShorthand_, getPropertyShorthandUnchecked,+        js_isPropertyImplicit, isPropertyImplicit, isPropertyImplicit_,+        js_setCssText, setCssText, js_getCssText, getCssText,+        getCssTextUnchecked, js_getLength, getLength, js_getParentRule,+        getParentRule, getParentRuleUnchecked, CSSStyleDeclaration,         castToCSSStyleDeclaration, gTypeCSSStyleDeclaration)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -16,9 +22,11 @@ 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)@@ -36,6 +44,23 @@   = liftIO       (fromMaybeJSString <$>          (js_getPropertyValue (self) (toJSString propertyName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyValue Mozilla CSSStyleDeclaration.getPropertyValue documentation> +getPropertyValue_ ::+                  (MonadIO m, ToJSString propertyName) =>+                    CSSStyleDeclaration -> propertyName -> m ()+getPropertyValue_ self propertyName+  = liftIO+      (void (js_getPropertyValue (self) (toJSString propertyName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyValue Mozilla CSSStyleDeclaration.getPropertyValue documentation> +getPropertyValueUnchecked ::+                          (MonadIO m, ToJSString propertyName, FromJSString result) =>+                            CSSStyleDeclaration -> propertyName -> m result+getPropertyValueUnchecked self propertyName+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getPropertyValue (self) (toJSString propertyName)))   foreign import javascript unsafe "$1[\"getPropertyCSSValue\"]($2)"         js_getPropertyCSSValue ::@@ -49,6 +74,23 @@   = liftIO       (nullableToMaybe <$>          (js_getPropertyCSSValue (self) (toJSString propertyName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation> +getPropertyCSSValue_ ::+                     (MonadIO m, ToJSString propertyName) =>+                       CSSStyleDeclaration -> propertyName -> m ()+getPropertyCSSValue_ self propertyName+  = liftIO+      (void (js_getPropertyCSSValue (self) (toJSString propertyName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation> +getPropertyCSSValueUnchecked ::+                             (MonadIO m, ToJSString propertyName) =>+                               CSSStyleDeclaration -> propertyName -> m CSSValue+getPropertyCSSValueUnchecked self propertyName+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getPropertyCSSValue (self) (toJSString propertyName)))   foreign import javascript unsafe "$1[\"removeProperty\"]($2)"         js_removeProperty ::@@ -62,6 +104,23 @@   = liftIO       (fromMaybeJSString <$>          (js_removeProperty (self) (toJSString propertyName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.removeProperty Mozilla CSSStyleDeclaration.removeProperty documentation> +removeProperty_ ::+                (MonadIO m, ToJSString propertyName) =>+                  CSSStyleDeclaration -> propertyName -> m ()+removeProperty_ self propertyName+  = liftIO+      (void (js_removeProperty (self) (toJSString propertyName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.removeProperty Mozilla CSSStyleDeclaration.removeProperty documentation> +removePropertyUnchecked ::+                        (MonadIO m, ToJSString propertyName, FromJSString result) =>+                          CSSStyleDeclaration -> propertyName -> m result+removePropertyUnchecked self propertyName+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_removeProperty (self) (toJSString propertyName)))   foreign import javascript unsafe "$1[\"getPropertyPriority\"]($2)"         js_getPropertyPriority ::@@ -75,6 +134,23 @@   = liftIO       (fromMaybeJSString <$>          (js_getPropertyPriority (self) (toJSString propertyName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation> +getPropertyPriority_ ::+                     (MonadIO m, ToJSString propertyName) =>+                       CSSStyleDeclaration -> propertyName -> m ()+getPropertyPriority_ self propertyName+  = liftIO+      (void (js_getPropertyPriority (self) (toJSString propertyName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation> +getPropertyPriorityUnchecked ::+                             (MonadIO m, ToJSString propertyName, FromJSString result) =>+                               CSSStyleDeclaration -> propertyName -> m result+getPropertyPriorityUnchecked self propertyName+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getPropertyPriority (self) (toJSString propertyName)))   foreign import javascript unsafe "$1[\"setProperty\"]($2, $3, $4)"         js_setProperty ::@@ -101,6 +177,10 @@      (MonadIO m, FromJSString result) =>        CSSStyleDeclaration -> Word -> m result item self index = liftIO (fromJSString <$> (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.item Mozilla CSSStyleDeclaration.item documentation> +item_ :: (MonadIO m) => CSSStyleDeclaration -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))   foreign import javascript unsafe "$1[\"getPropertyShorthand\"]($2)"         js_getPropertyShorthand ::@@ -114,6 +194,23 @@   = liftIO       (fromMaybeJSString <$>          (js_getPropertyShorthand (self) (toJSString propertyName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation> +getPropertyShorthand_ ::+                      (MonadIO m, ToJSString propertyName) =>+                        CSSStyleDeclaration -> propertyName -> m ()+getPropertyShorthand_ self propertyName+  = liftIO+      (void (js_getPropertyShorthand (self) (toJSString propertyName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation> +getPropertyShorthandUnchecked ::+                              (MonadIO m, ToJSString propertyName, FromJSString result) =>+                                CSSStyleDeclaration -> propertyName -> m result+getPropertyShorthandUnchecked self propertyName+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getPropertyShorthand (self) (toJSString propertyName)))   foreign import javascript unsafe         "($1[\"isPropertyImplicit\"]($2) ? 1 : 0)" js_isPropertyImplicit ::@@ -125,6 +222,14 @@                      CSSStyleDeclaration -> propertyName -> m Bool isPropertyImplicit self propertyName   = liftIO (js_isPropertyImplicit (self) (toJSString propertyName))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.isPropertyImplicit Mozilla CSSStyleDeclaration.isPropertyImplicit documentation> +isPropertyImplicit_ ::+                    (MonadIO m, ToJSString propertyName) =>+                      CSSStyleDeclaration -> propertyName -> m ()+isPropertyImplicit_ self propertyName+  = liftIO+      (void (js_isPropertyImplicit (self) (toJSString propertyName)))   foreign import javascript unsafe "$1[\"cssText\"] = $2;"         js_setCssText :: CSSStyleDeclaration -> Nullable JSString -> IO ()@@ -145,6 +250,12 @@              CSSStyleDeclaration -> m (Maybe result) getCssText self   = liftIO (fromMaybeJSString <$> (js_getCssText (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation> +getCssTextUnchecked ::+                    (MonadIO m, FromJSString result) => CSSStyleDeclaration -> m result+getCssTextUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getCssText (self)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         CSSStyleDeclaration -> IO Word@@ -161,3 +272,9 @@               (MonadIO m) => CSSStyleDeclaration -> m (Maybe CSSRule) getParentRule self   = liftIO (nullableToMaybe <$> (js_getParentRule (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.parentRule Mozilla CSSStyleDeclaration.parentRule documentation> +getParentRuleUnchecked ::+                       (MonadIO m) => CSSStyleDeclaration -> m CSSRule+getParentRuleUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getParentRule (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs view
@@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSStyleRule        (js_setSelectorText, setSelectorText, js_getSelectorText,-        getSelectorText, js_getStyle, getStyle, CSSStyleRule,-        castToCSSStyleRule, gTypeCSSStyleRule)+        getSelectorText, getSelectorTextUnchecked, js_getStyle, getStyle,+        getStyleUnchecked, CSSStyleRule, castToCSSStyleRule,+        gTypeCSSStyleRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +12,11 @@ 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)@@ -37,6 +40,13 @@                   CSSStyleRule -> m (Maybe result) getSelectorText self   = liftIO (fromMaybeJSString <$> (js_getSelectorText (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation> +getSelectorTextUnchecked ::+                         (MonadIO m, FromJSString result) => CSSStyleRule -> m result+getSelectorTextUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getSelectorText (self)))   foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::         CSSStyleRule -> IO (Nullable CSSStyleDeclaration)@@ -45,3 +55,9 @@ getStyle ::          (MonadIO m) => CSSStyleRule -> m (Maybe CSSStyleDeclaration) getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.style Mozilla CSSStyleRule.style documentation> +getStyleUnchecked ::+                  (MonadIO m) => CSSStyleRule -> m CSSStyleDeclaration+getStyleUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getStyle (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs view
@@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSStyleSheet-       (js_insertRule, insertRule, js_deleteRule, deleteRule, js_addRule,-        addRule, js_removeRule, removeRule, js_getOwnerRule, getOwnerRule,-        js_getCssRules, getCssRules, js_getRules, getRules, CSSStyleSheet,-        castToCSSStyleSheet, gTypeCSSStyleSheet)+       (js_insertRule, insertRule, insertRule_, js_deleteRule, deleteRule,+        js_addRule, addRule, addRule_, js_removeRule, removeRule,+        js_getOwnerRule, getOwnerRule, getOwnerRuleUnchecked,+        js_getCssRules, getCssRules, getCssRulesUnchecked, js_getRules,+        getRules, getRulesUnchecked, CSSStyleSheet, castToCSSStyleSheet,+        gTypeCSSStyleSheet)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -12,9 +14,11 @@ 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)@@ -29,6 +33,13 @@              CSSStyleSheet -> rule -> Word -> m Word insertRule self rule index   = liftIO (js_insertRule (self) (toJSString rule) index)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.insertRule Mozilla CSSStyleSheet.insertRule documentation> +insertRule_ ::+            (MonadIO m, ToJSString rule) =>+              CSSStyleSheet -> rule -> Word -> m ()+insertRule_ self rule index+  = liftIO (void (js_insertRule (self) (toJSString rule) index))   foreign import javascript unsafe "$1[\"deleteRule\"]($2)"         js_deleteRule :: CSSStyleSheet -> Word -> IO ()@@ -48,6 +59,15 @@ addRule self selector style index   = liftIO       (js_addRule (self) (toJSString selector) (toJSString style) index)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.addRule Mozilla CSSStyleSheet.addRule documentation> +addRule_ ::+         (MonadIO m, ToJSString selector, ToJSString style) =>+           CSSStyleSheet -> selector -> style -> Word -> m ()+addRule_ self selector style index+  = liftIO+      (void+         (js_addRule (self) (toJSString selector) (toJSString style) index))   foreign import javascript unsafe "$1[\"removeRule\"]($2)"         js_removeRule :: CSSStyleSheet -> Word -> IO ()@@ -63,6 +83,11 @@ getOwnerRule :: (MonadIO m) => CSSStyleSheet -> m (Maybe CSSRule) getOwnerRule self   = liftIO (nullableToMaybe <$> (js_getOwnerRule (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.ownerRule Mozilla CSSStyleSheet.ownerRule documentation> +getOwnerRuleUnchecked :: (MonadIO m) => CSSStyleSheet -> m CSSRule+getOwnerRuleUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getOwnerRule (self)))   foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules         :: CSSStyleSheet -> IO (Nullable CSSRuleList)@@ -72,6 +97,12 @@             (MonadIO m) => CSSStyleSheet -> m (Maybe CSSRuleList) getCssRules self   = liftIO (nullableToMaybe <$> (js_getCssRules (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.cssRules Mozilla CSSStyleSheet.cssRules documentation> +getCssRulesUnchecked ::+                     (MonadIO m) => CSSStyleSheet -> m CSSRuleList+getCssRulesUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getCssRules (self)))   foreign import javascript unsafe "$1[\"rules\"]" js_getRules ::         CSSStyleSheet -> IO (Nullable CSSRuleList)@@ -79,3 +110,8 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.rules Mozilla CSSStyleSheet.rules documentation>  getRules :: (MonadIO m) => CSSStyleSheet -> m (Maybe CSSRuleList) getRules self = liftIO (nullableToMaybe <$> (js_getRules (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.rules Mozilla CSSStyleSheet.rules documentation> +getRulesUnchecked :: (MonadIO m) => CSSStyleSheet -> m CSSRuleList+getRulesUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRules (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs view
@@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSSupportsRule-       (js_insertRule, insertRule, js_deleteRule, deleteRule,-        js_getCssRules, getCssRules, js_getConditionText, getConditionText,-        CSSSupportsRule, castToCSSSupportsRule, gTypeCSSSupportsRule)+       (js_insertRule, insertRule, insertRule_, js_deleteRule, deleteRule,+        js_getCssRules, getCssRules, getCssRulesUnchecked,+        js_getConditionText, getConditionText, CSSSupportsRule,+        castToCSSSupportsRule, gTypeCSSSupportsRule)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +12,11 @@ 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)@@ -28,6 +31,13 @@              CSSSupportsRule -> rule -> Word -> m Word insertRule self rule index   = liftIO (js_insertRule (self) (toJSString rule) index)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.insertRule Mozilla CSSSupportsRule.insertRule documentation> +insertRule_ ::+            (MonadIO m, ToJSString rule) =>+              CSSSupportsRule -> rule -> Word -> m ()+insertRule_ self rule index+  = liftIO (void (js_insertRule (self) (toJSString rule) index))   foreign import javascript unsafe "$1[\"deleteRule\"]($2)"         js_deleteRule :: CSSSupportsRule -> Word -> IO ()@@ -44,6 +54,12 @@             (MonadIO m) => CSSSupportsRule -> m (Maybe CSSRuleList) getCssRules self   = liftIO (nullableToMaybe <$> (js_getCssRules (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.cssRules Mozilla CSSSupportsRule.cssRules documentation> +getCssRulesUnchecked ::+                     (MonadIO m) => CSSSupportsRule -> m CSSRuleList+getCssRulesUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getCssRules (self)))   foreign import javascript unsafe "$1[\"conditionText\"]"         js_getConditionText :: CSSSupportsRule -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs view
@@ -2,9 +2,9 @@ module GHCJS.DOM.JSFFI.Generated.CSSValue        (pattern CSS_INHERIT, pattern CSS_PRIMITIVE_VALUE,         pattern CSS_VALUE_LIST, pattern CSS_CUSTOM, js_setCssText,-        setCssText, js_getCssText, getCssText, js_getCssValueType,-        getCssValueType, CSSValue, castToCSSValue, gTypeCSSValue,-        IsCSSValue, toCSSValue)+        setCssText, js_getCssText, getCssText, getCssTextUnchecked,+        js_getCssValueType, getCssValueType, CSSValue, castToCSSValue,+        gTypeCSSValue, IsCSSValue, toCSSValue)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +13,11 @@ 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)@@ -44,6 +46,15 @@              self -> m (Maybe result) getCssText self   = liftIO (fromMaybeJSString <$> (js_getCssText (toCSSValue self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation> +getCssTextUnchecked ::+                    (MonadIO m, IsCSSValue self, FromJSString result) =>+                      self -> m result+getCssTextUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getCssText (toCSSValue self)))   foreign import javascript unsafe "$1[\"cssValueType\"]"         js_getCssValueType :: CSSValue -> IO Word
src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CSSValueList-       (js_item, item, js_getLength, getLength, CSSValueList,-        castToCSSValueList, gTypeCSSValueList, IsCSSValueList,-        toCSSValueList)+       (js_item, item, item_, itemUnchecked, js_getLength, getLength,+        CSSValueList, castToCSSValueList, gTypeCSSValueList,+        IsCSSValueList, toCSSValueList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -29,6 +31,19 @@ item self index   = liftIO       (nullableToMaybe <$> (js_item (toCSSValueList self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.item Mozilla CSSValueList.item documentation> +item_ :: (MonadIO m, IsCSSValueList self) => self -> Word -> m ()+item_ self index+  = liftIO (void (js_item (toCSSValueList self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.item Mozilla CSSValueList.item documentation> +itemUnchecked ::+              (MonadIO m, IsCSSValueList self) => self -> Word -> m CSSValue+itemUnchecked self index+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_item (toCSSValueList self) index))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         CSSValueList -> IO Word
src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs view
@@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CanvasRenderingContext-       (js_getCanvas, getCanvas, CanvasRenderingContext,-        castToCanvasRenderingContext, gTypeCanvasRenderingContext,-        IsCanvasRenderingContext, toCanvasRenderingContext)+       (js_getCanvas, getCanvas, getCanvasUnchecked,+        CanvasRenderingContext, castToCanvasRenderingContext,+        gTypeCanvasRenderingContext, IsCanvasRenderingContext,+        toCanvasRenderingContext)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +12,11 @@ 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)@@ -29,4 +32,13 @@ getCanvas self   = liftIO       (nullableToMaybe <$>+         (js_getCanvas (toCanvasRenderingContext self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext.canvas Mozilla CanvasRenderingContext.canvas documentation> +getCanvasUnchecked ::+                   (MonadIO m, IsCanvasRenderingContext self) =>+                     self -> m HTMLCanvasElement+getCanvasUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>          (js_getCanvas (toCanvasRenderingContext self)))
src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs view
@@ -3,18 +3,23 @@        (js_save, save, js_restore, restore, js_scale, scale, js_rotate,         rotate, js_translate, translate, js_transform, transform,         js_setTransform, setTransform, js_createLinearGradient,-        createLinearGradient, js_createRadialGradient,-        createRadialGradient, js_setLineDash, setLineDash, js_getLineDash,-        getLineDash, js_clearRect, clearRect, js_fillRect, fillRect,-        js_beginPath, beginPath, js_closePath, closePath, js_moveTo,-        moveTo, js_lineTo, lineTo, js_quadraticCurveTo, quadraticCurveTo,-        js_bezierCurveTo, bezierCurveTo, js_arcTo, arcTo, js_rect, rect,-        js_arc, arc, js_fillPath, fillPath, js_strokePath, strokePath,-        js_clipPath, clipPath, js_fill, fill, js_stroke, stroke, js_clip,-        clip, js_isPointInPathPath, isPointInPathPath,-        js_isPointInStrokePath, isPointInStrokePath, js_isPointInPath,-        isPointInPath, js_isPointInStroke, isPointInStroke, js_measureText,-        measureText, js_setAlpha, setAlpha, js_setCompositeOperation,+        createLinearGradient, createLinearGradient_,+        createLinearGradientUnchecked, js_createRadialGradient,+        createRadialGradient, createRadialGradient_,+        createRadialGradientUnchecked, js_setLineDash, setLineDash,+        js_getLineDash, getLineDash, getLineDash_, js_clearRect, clearRect,+        js_fillRect, fillRect, js_beginPath, beginPath, js_closePath,+        closePath, js_moveTo, moveTo, js_lineTo, lineTo,+        js_quadraticCurveTo, quadraticCurveTo, js_bezierCurveTo,+        bezierCurveTo, js_arcTo, arcTo, js_rect, rect, js_arc, arc,+        js_fillPath, fillPath, js_strokePath, strokePath, js_clipPath,+        clipPath, js_fill, fill, js_stroke, stroke, js_clip, clip,+        js_isPointInPathPath, isPointInPathPath, isPointInPathPath_,+        js_isPointInStrokePath, isPointInStrokePath, isPointInStrokePath_,+        js_isPointInPath, isPointInPath, isPointInPath_,+        js_isPointInStroke, isPointInStroke, isPointInStroke_,+        js_measureText, measureText, measureText_, measureTextUnchecked,+        js_setAlpha, setAlpha, js_setCompositeOperation,         setCompositeOperation, js_setLineWidthFunction,         setLineWidthFunction, js_setLineCapFunction, setLineCapFunction,         js_setLineJoinFunction, setLineJoinFunction,@@ -39,35 +44,43 @@         js_putImageDataDirty, putImageDataDirty, js_webkitPutImageDataHD,         webkitPutImageDataHD, js_webkitPutImageDataHDDirty,         webkitPutImageDataHDDirty, js_createPatternFromCanvas,-        createPatternFromCanvas, js_createPattern, createPattern,-        js_createImageData, createImageData, js_createImageDataSize,-        createImageDataSize, js_getImageData, getImageData,-        js_webkitGetImageDataHD, webkitGetImageDataHD,-        js_drawFocusIfNeeded, drawFocusIfNeeded, js_drawFocusIfNeededPath,-        drawFocusIfNeededPath, js_setGlobalAlpha, setGlobalAlpha,-        js_getGlobalAlpha, getGlobalAlpha, js_setGlobalCompositeOperation,+        createPatternFromCanvas, createPatternFromCanvas_,+        createPatternFromCanvasUnchecked, js_createPattern, createPattern,+        createPattern_, createPatternUnchecked, js_createImageData,+        createImageData, createImageData_, createImageDataUnchecked,+        js_createImageDataSize, createImageDataSize, createImageDataSize_,+        createImageDataSizeUnchecked, js_getImageData, getImageData,+        getImageData_, getImageDataUnchecked, js_webkitGetImageDataHD,+        webkitGetImageDataHD, webkitGetImageDataHD_,+        webkitGetImageDataHDUnchecked, js_drawFocusIfNeeded,+        drawFocusIfNeeded, js_drawFocusIfNeededPath, drawFocusIfNeededPath,+        js_setGlobalAlpha, setGlobalAlpha, js_getGlobalAlpha,+        getGlobalAlpha, js_setGlobalCompositeOperation,         setGlobalCompositeOperation, js_getGlobalCompositeOperation,-        getGlobalCompositeOperation, js_setLineWidth, setLineWidth,-        js_getLineWidth, getLineWidth, js_setLineCap, setLineCap,-        js_getLineCap, getLineCap, js_setLineJoin, setLineJoin,-        js_getLineJoin, getLineJoin, js_setMiterLimit, setMiterLimit,+        getGlobalCompositeOperation, getGlobalCompositeOperationUnchecked,+        js_setLineWidth, setLineWidth, js_getLineWidth, getLineWidth,+        js_setLineCap, setLineCap, js_getLineCap, getLineCap,+        getLineCapUnchecked, js_setLineJoin, setLineJoin, js_getLineJoin,+        getLineJoin, getLineJoinUnchecked, js_setMiterLimit, setMiterLimit,         js_getMiterLimit, getMiterLimit, js_setShadowOffsetX,         setShadowOffsetX, js_getShadowOffsetX, getShadowOffsetX,         js_setShadowOffsetY, setShadowOffsetY, js_getShadowOffsetY,         getShadowOffsetY, js_setShadowBlur, setShadowBlur,         js_getShadowBlur, getShadowBlur, js_setShadowColor, setShadowColor,-        js_getShadowColor, getShadowColor, js_setLineDashOffset,-        setLineDashOffset, js_getLineDashOffset, getLineDashOffset,-        js_setWebkitLineDash, setWebkitLineDash, js_getWebkitLineDash,-        getWebkitLineDash, js_setWebkitLineDashOffset,+        js_getShadowColor, getShadowColor, getShadowColorUnchecked,+        js_setLineDashOffset, setLineDashOffset, js_getLineDashOffset,+        getLineDashOffset, js_setWebkitLineDash, setWebkitLineDash,+        js_getWebkitLineDash, getWebkitLineDash,+        getWebkitLineDashUnchecked, js_setWebkitLineDashOffset,         setWebkitLineDashOffset, js_getWebkitLineDashOffset,         getWebkitLineDashOffset, js_setFont, setFont, js_getFont, getFont,         js_setTextAlign, setTextAlign, js_getTextAlign, getTextAlign,         js_setTextBaseline, setTextBaseline, js_getTextBaseline,         getTextBaseline, js_setDirection, setDirection, js_getDirection,         getDirection, js_setStrokeStyle, setStrokeStyle, js_getStrokeStyle,-        getStrokeStyle, js_setFillStyle, setFillStyle, js_getFillStyle,-        getFillStyle, js_getWebkitBackingStorePixelRatio,+        getStrokeStyle, getStrokeStyleUnchecked, js_setFillStyle,+        setFillStyle, js_getFillStyle, getFillStyle, getFillStyleUnchecked,+        js_getWebkitBackingStorePixelRatio,         getWebkitBackingStorePixelRatio, js_setWebkitImageSmoothingEnabled,         setWebkitImageSmoothingEnabled, js_getWebkitImageSmoothingEnabled,         getWebkitImageSmoothingEnabled, CanvasRenderingContext2D,@@ -80,9 +93,11 @@ 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)@@ -165,6 +180,24 @@ createLinearGradient self x0 y0 x1 y1   = liftIO       (nullableToMaybe <$> (js_createLinearGradient (self) x0 y0 x1 y1))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation> +createLinearGradient_ ::+                      (MonadIO m) =>+                        CanvasRenderingContext2D ->+                          Float -> Float -> Float -> Float -> m ()+createLinearGradient_ self x0 y0 x1 y1+  = liftIO (void (js_createLinearGradient (self) x0 y0 x1 y1))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation> +createLinearGradientUnchecked ::+                              (MonadIO m) =>+                                CanvasRenderingContext2D ->+                                  Float -> Float -> Float -> Float -> m CanvasGradient+createLinearGradientUnchecked self x0 y0 x1 y1+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createLinearGradient (self) x0 y0 x1 y1))   foreign import javascript unsafe         "$1[\"createRadialGradient\"]($2,\n$3, $4, $5, $6, $7)"@@ -185,6 +218,25 @@   = liftIO       (nullableToMaybe <$>          (js_createRadialGradient (self) x0 y0 r0 x1 y1 r1))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation> +createRadialGradient_ ::+                      (MonadIO m) =>+                        CanvasRenderingContext2D ->+                          Float -> Float -> Float -> Float -> Float -> Float -> m ()+createRadialGradient_ self x0 y0 r0 x1 y1 r1+  = liftIO (void (js_createRadialGradient (self) x0 y0 r0 x1 y1 r1))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation> +createRadialGradientUnchecked ::+                              (MonadIO m) =>+                                CanvasRenderingContext2D ->+                                  Float ->+                                    Float -> Float -> Float -> Float -> Float -> m CanvasGradient+createRadialGradientUnchecked self x0 y0 r0 x1 y1 r1+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createRadialGradient (self) x0 y0 r0 x1 y1 r1))   foreign import javascript unsafe "$1[\"setLineDash\"]($2)"         js_setLineDash :: CanvasRenderingContext2D -> JSVal -> IO ()@@ -202,6 +254,10 @@ getLineDash :: (MonadIO m) => CanvasRenderingContext2D -> m [Float] getLineDash self   = liftIO ((js_getLineDash (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getLineDash Mozilla CanvasRenderingContext2D.getLineDash documentation> +getLineDash_ :: (MonadIO m) => CanvasRenderingContext2D -> m ()+getLineDash_ self = liftIO (void (js_getLineDash (self)))   foreign import javascript unsafe         "$1[\"clearRect\"]($2, $3, $4, $5)" js_clearRect ::@@ -399,6 +455,17 @@   = liftIO       (js_isPointInPathPath (self) (maybeToNullable path) x y          (pToJSVal winding))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> +isPointInPathPath_ ::+                   (MonadIO m) =>+                     CanvasRenderingContext2D ->+                       Maybe Path2D -> Float -> Float -> CanvasWindingRule -> m ()+isPointInPathPath_ self path x y winding+  = liftIO+      (void+         (js_isPointInPathPath (self) (maybeToNullable path) x y+            (pToJSVal winding)))   foreign import javascript unsafe         "($1[\"isPointInStroke\"]($2, $3,\n$4) ? 1 : 0)"@@ -413,6 +480,14 @@                         Maybe Path2D -> Float -> Float -> m Bool isPointInStrokePath self path x y   = liftIO (js_isPointInStrokePath (self) (maybeToNullable path) x y)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> +isPointInStrokePath_ ::+                     (MonadIO m) =>+                       CanvasRenderingContext2D -> Maybe Path2D -> Float -> Float -> m ()+isPointInStrokePath_ self path x y+  = liftIO+      (void (js_isPointInStrokePath (self) (maybeToNullable path) x y))   foreign import javascript unsafe         "($1[\"isPointInPath\"]($2, $3,\n$4) ? 1 : 0)" js_isPointInPath ::@@ -425,6 +500,14 @@                   Float -> Float -> CanvasWindingRule -> m Bool isPointInPath self x y winding   = liftIO (js_isPointInPath (self) x y (pToJSVal winding))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation> +isPointInPath_ ::+               (MonadIO m) =>+                 CanvasRenderingContext2D ->+                   Float -> Float -> CanvasWindingRule -> m ()+isPointInPath_ self x y winding+  = liftIO (void (js_isPointInPath (self) x y (pToJSVal winding)))   foreign import javascript unsafe         "($1[\"isPointInStroke\"]($2,\n$3) ? 1 : 0)" js_isPointInStroke ::@@ -434,6 +517,12 @@ isPointInStroke ::                 (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m Bool isPointInStroke self x y = liftIO (js_isPointInStroke (self) x y)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation> +isPointInStroke_ ::+                 (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()+isPointInStroke_ self x y+  = liftIO (void (js_isPointInStroke (self) x y))   foreign import javascript unsafe "$1[\"measureText\"]($2)"         js_measureText ::@@ -446,6 +535,22 @@ measureText self text   = liftIO       (nullableToMaybe <$> (js_measureText (self) (toJSString text)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation> +measureText_ ::+             (MonadIO m, ToJSString text) =>+               CanvasRenderingContext2D -> text -> m ()+measureText_ self text+  = liftIO (void (js_measureText (self) (toJSString text)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation> +measureTextUnchecked ::+                     (MonadIO m, ToJSString text) =>+                       CanvasRenderingContext2D -> text -> m TextMetrics+measureTextUnchecked self text+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_measureText (self) (toJSString text)))   foreign import javascript unsafe "$1[\"setAlpha\"]($2)" js_setAlpha         :: CanvasRenderingContext2D -> Float -> IO ()@@ -991,6 +1096,29 @@       (nullableToMaybe <$>          (js_createPatternFromCanvas (self) (maybeToNullable canvas)             (toMaybeJSString repetitionType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> +createPatternFromCanvas_ ::+                         (MonadIO m, ToJSString repetitionType) =>+                           CanvasRenderingContext2D ->+                             Maybe HTMLCanvasElement -> Maybe repetitionType -> m ()+createPatternFromCanvas_ self canvas repetitionType+  = liftIO+      (void+         (js_createPatternFromCanvas (self) (maybeToNullable canvas)+            (toMaybeJSString repetitionType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> +createPatternFromCanvasUnchecked ::+                                 (MonadIO m, ToJSString repetitionType) =>+                                   CanvasRenderingContext2D ->+                                     Maybe HTMLCanvasElement ->+                                       Maybe repetitionType -> m CanvasPattern+createPatternFromCanvasUnchecked self canvas repetitionType+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createPatternFromCanvas (self) (maybeToNullable canvas)+            (toMaybeJSString repetitionType)))   foreign import javascript unsafe "$1[\"createPattern\"]($2, $3)"         js_createPattern ::@@ -1009,6 +1137,28 @@       (nullableToMaybe <$>          (js_createPattern (self) (maybeToNullable image)             (toMaybeJSString repetitionType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> +createPattern_ ::+               (MonadIO m, ToJSString repetitionType) =>+                 CanvasRenderingContext2D ->+                   Maybe HTMLImageElement -> Maybe repetitionType -> m ()+createPattern_ self image repetitionType+  = liftIO+      (void+         (js_createPattern (self) (maybeToNullable image)+            (toMaybeJSString repetitionType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation> +createPatternUnchecked ::+                       (MonadIO m, ToJSString repetitionType) =>+                         CanvasRenderingContext2D ->+                           Maybe HTMLImageElement -> Maybe repetitionType -> m CanvasPattern+createPatternUnchecked self image repetitionType+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createPattern (self) (maybeToNullable image)+            (toMaybeJSString repetitionType)))   foreign import javascript unsafe "$1[\"createImageData\"]($2)"         js_createImageData ::@@ -1023,6 +1173,22 @@   = liftIO       (nullableToMaybe <$>          (js_createImageData (self) (maybeToNullable imagedata)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> +createImageData_ ::+                 (MonadIO m) => CanvasRenderingContext2D -> Maybe ImageData -> m ()+createImageData_ self imagedata+  = liftIO+      (void (js_createImageData (self) (maybeToNullable imagedata)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> +createImageDataUnchecked ::+                         (MonadIO m) =>+                           CanvasRenderingContext2D -> Maybe ImageData -> m ImageData+createImageDataUnchecked self imagedata+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createImageData (self) (maybeToNullable imagedata)))   foreign import javascript unsafe "$1[\"createImageData\"]($2, $3)"         js_createImageDataSize ::@@ -1036,6 +1202,21 @@ createImageDataSize self sw sh   = liftIO       (nullableToMaybe <$> (js_createImageDataSize (self) sw sh))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> +createImageDataSize_ ::+                     (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()+createImageDataSize_ self sw sh+  = liftIO (void (js_createImageDataSize (self) sw sh))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation> +createImageDataSizeUnchecked ::+                             (MonadIO m) =>+                               CanvasRenderingContext2D -> Float -> Float -> m ImageData+createImageDataSizeUnchecked self sw sh+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createImageDataSize (self) sw sh))   foreign import javascript unsafe         "$1[\"getImageData\"]($2, $3, $4,\n$5)" js_getImageData ::@@ -1049,6 +1230,24 @@                  Float -> Float -> Float -> Float -> m (Maybe ImageData) getImageData self sx sy sw sh   = liftIO (nullableToMaybe <$> (js_getImageData (self) sx sy sw sh))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation> +getImageData_ ::+              (MonadIO m) =>+                CanvasRenderingContext2D ->+                  Float -> Float -> Float -> Float -> m ()+getImageData_ self sx sy sw sh+  = liftIO (void (js_getImageData (self) sx sy sw sh))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation> +getImageDataUnchecked ::+                      (MonadIO m) =>+                        CanvasRenderingContext2D ->+                          Float -> Float -> Float -> Float -> m ImageData+getImageDataUnchecked self sx sy sw sh+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getImageData (self) sx sy sw sh))   foreign import javascript unsafe         "$1[\"webkitGetImageDataHD\"]($2,\n$3, $4, $5)"@@ -1064,6 +1263,24 @@ webkitGetImageDataHD self sx sy sw sh   = liftIO       (nullableToMaybe <$> (js_webkitGetImageDataHD (self) sx sy sw sh))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation> +webkitGetImageDataHD_ ::+                      (MonadIO m) =>+                        CanvasRenderingContext2D ->+                          Float -> Float -> Float -> Float -> m ()+webkitGetImageDataHD_ self sx sy sw sh+  = liftIO (void (js_webkitGetImageDataHD (self) sx sy sw sh))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation> +webkitGetImageDataHDUnchecked ::+                              (MonadIO m) =>+                                CanvasRenderingContext2D ->+                                  Float -> Float -> Float -> Float -> m ImageData+webkitGetImageDataHDUnchecked self sx sy sw sh+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_webkitGetImageDataHD (self) sx sy sw sh))   foreign import javascript unsafe "$1[\"drawFocusIfNeeded\"]($2)"         js_drawFocusIfNeeded ::@@ -1132,6 +1349,15 @@ getGlobalCompositeOperation self   = liftIO       (fromMaybeJSString <$> (js_getGlobalCompositeOperation (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation> +getGlobalCompositeOperationUnchecked ::+                                     (MonadIO m, FromJSString result) =>+                                       CanvasRenderingContext2D -> m result+getGlobalCompositeOperationUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getGlobalCompositeOperation (self)))   foreign import javascript unsafe "$1[\"lineWidth\"] = $2;"         js_setLineWidth :: CanvasRenderingContext2D -> Float -> IO ()@@ -1168,6 +1394,13 @@              CanvasRenderingContext2D -> m (Maybe result) getLineCap self   = liftIO (fromMaybeJSString <$> (js_getLineCap (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation> +getLineCapUnchecked ::+                    (MonadIO m, FromJSString result) =>+                      CanvasRenderingContext2D -> m result+getLineCapUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getLineCap (self)))   foreign import javascript unsafe "$1[\"lineJoin\"] = $2;"         js_setLineJoin ::@@ -1189,6 +1422,13 @@               CanvasRenderingContext2D -> m (Maybe result) getLineJoin self   = liftIO (fromMaybeJSString <$> (js_getLineJoin (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation> +getLineJoinUnchecked ::+                     (MonadIO m, FromJSString result) =>+                       CanvasRenderingContext2D -> m result+getLineJoinUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getLineJoin (self)))   foreign import javascript unsafe "$1[\"miterLimit\"] = $2;"         js_setMiterLimit :: CanvasRenderingContext2D -> Float -> IO ()@@ -1273,6 +1513,14 @@                  CanvasRenderingContext2D -> m (Maybe result) getShadowColor self   = liftIO (fromMaybeJSString <$> (js_getShadowColor (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation> +getShadowColorUnchecked ::+                        (MonadIO m, FromJSString result) =>+                          CanvasRenderingContext2D -> m result+getShadowColorUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getShadowColor (self)))   foreign import javascript unsafe "$1[\"lineDashOffset\"] = $2;"         js_setLineDashOffset :: CanvasRenderingContext2D -> Float -> IO ()@@ -1312,6 +1560,13 @@                   (MonadIO m) => CanvasRenderingContext2D -> m (Maybe Array) getWebkitLineDash self   = liftIO (nullableToMaybe <$> (js_getWebkitLineDash (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation> +getWebkitLineDashUnchecked ::+                           (MonadIO m) => CanvasRenderingContext2D -> m Array+getWebkitLineDashUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getWebkitLineDash (self)))   foreign import javascript unsafe         "$1[\"webkitLineDashOffset\"] = $2;" js_setWebkitLineDashOffset ::@@ -1432,6 +1687,13 @@                (MonadIO m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle) getStrokeStyle self   = liftIO (nullableToMaybe <$> (js_getStrokeStyle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation> +getStrokeStyleUnchecked ::+                        (MonadIO m) => CanvasRenderingContext2D -> m CanvasStyle+getStrokeStyleUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getStrokeStyle (self)))   foreign import javascript unsafe "$1[\"fillStyle\"] = $2;"         js_setFillStyle ::@@ -1454,6 +1716,12 @@              (MonadIO m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle) getFillStyle self   = liftIO (nullableToMaybe <$> (js_getFillStyle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation> +getFillStyleUnchecked ::+                      (MonadIO m) => CanvasRenderingContext2D -> m CanvasStyle+getFillStyleUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getFillStyle (self)))   foreign import javascript unsafe         "$1[\"webkitBackingStorePixelRatio\"]"
src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs view
@@ -1,11 +1,11 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CharacterData-       (js_substringData, substringData, js_appendData, appendData,-        js_insertData, insertData, js_deleteData, deleteData,-        js_replaceData, replaceData, js_setData, setData, js_getData,-        getData, js_getLength, getLength, CharacterData,-        castToCharacterData, gTypeCharacterData, IsCharacterData,-        toCharacterData)+       (js_substringData, substringData, substringData_,+        substringDataUnchecked, js_appendData, appendData, js_insertData,+        insertData, js_deleteData, deleteData, js_replaceData, replaceData,+        js_setData, setData, js_getData, getData, getDataUnchecked,+        js_getLength, getLength, CharacterData, castToCharacterData,+        gTypeCharacterData, IsCharacterData, toCharacterData)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -14,9 +14,11 @@ 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)@@ -34,6 +36,22 @@   = liftIO       (fromMaybeJSString <$>          (js_substringData (toCharacterData self) offset length))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.substringData Mozilla CharacterData.substringData documentation> +substringData_ ::+               (MonadIO m, IsCharacterData self) => self -> Word -> Word -> m ()+substringData_ self offset length+  = liftIO+      (void (js_substringData (toCharacterData self) offset length))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.substringData Mozilla CharacterData.substringData documentation> +substringDataUnchecked ::+                       (MonadIO m, IsCharacterData self, FromJSString result) =>+                         self -> Word -> Word -> m result+substringDataUnchecked self offset length+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_substringData (toCharacterData self) offset length))   foreign import javascript unsafe "$1[\"appendData\"]($2)"         js_appendData :: CharacterData -> JSString -> IO ()@@ -98,6 +116,15 @@ getData self   = liftIO       (fromMaybeJSString <$> (js_getData (toCharacterData self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.data Mozilla CharacterData.data documentation> +getDataUnchecked ::+                 (MonadIO m, IsCharacterData self, FromJSString result) =>+                   self -> m result+getDataUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getData (toCharacterData self)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         CharacterData -> IO Word
src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs view
@@ -9,9 +9,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/ClientRect.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/ClientRectList.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.ClientRectList-       (js_item, item, js_getLength, getLength, ClientRectList,-        castToClientRectList, gTypeClientRectList)+       (js_item, item, item_, itemUnchecked, js_getLength, getLength,+        ClientRectList, castToClientRectList, gTypeClientRectList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -26,6 +28,16 @@      (MonadIO m) => ClientRectList -> Word -> m (Maybe ClientRect) item self index   = liftIO (nullableToMaybe <$> (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList.item Mozilla ClientRectList.item documentation> +item_ :: (MonadIO m) => ClientRectList -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList.item Mozilla ClientRectList.item documentation> +itemUnchecked ::+              (MonadIO m) => ClientRectList -> Word -> m ClientRect+itemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         ClientRectList -> IO Word
src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs view
@@ -2,9 +2,11 @@ module GHCJS.DOM.JSFFI.Generated.CommandLineAPIHost        (js_clearConsoleMessages, clearConsoleMessages, js_copyText,         copyText, js_inspect, inspect, js_inspectedObject, inspectedObject,-        js_getEventListeners, getEventListeners, js_databaseId, databaseId,-        js_storageId, storageId, CommandLineAPIHost,-        castToCommandLineAPIHost, gTypeCommandLineAPIHost)+        inspectedObject_, js_getEventListeners, getEventListeners,+        getEventListeners_, getEventListenersUnchecked, js_databaseId,+        databaseId, databaseId_, js_storageId, storageId, storageId_,+        CommandLineAPIHost, castToCommandLineAPIHost,+        gTypeCommandLineAPIHost)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +15,11 @@ 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)@@ -52,6 +56,12 @@ inspectedObject ::                 (MonadIO m) => CommandLineAPIHost -> Int -> m JSVal inspectedObject self num = liftIO (js_inspectedObject (self) num)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspectedObject Mozilla CommandLineAPIHost.inspectedObject documentation> +inspectedObject_ ::+                 (MonadIO m) => CommandLineAPIHost -> Int -> m ()+inspectedObject_ self num+  = liftIO (void (js_inspectedObject (self) num))   foreign import javascript unsafe "$1[\"getEventListeners\"]($2)"         js_getEventListeners ::@@ -65,6 +75,24 @@   = liftIO       (nullableToMaybe <$>          (js_getEventListeners (self) (maybeToNullable (fmap toNode node))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.getEventListeners Mozilla CommandLineAPIHost.getEventListeners documentation> +getEventListeners_ ::+                   (MonadIO m, IsNode node) =>+                     CommandLineAPIHost -> Maybe node -> m ()+getEventListeners_ self node+  = liftIO+      (void+         (js_getEventListeners (self) (maybeToNullable (fmap toNode node))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.getEventListeners Mozilla CommandLineAPIHost.getEventListeners documentation> +getEventListenersUnchecked ::+                           (MonadIO m, IsNode node) =>+                             CommandLineAPIHost -> Maybe node -> m Array+getEventListenersUnchecked self node+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getEventListeners (self) (maybeToNullable (fmap toNode node))))   foreign import javascript unsafe "$1[\"databaseId\"]($2)"         js_databaseId :: CommandLineAPIHost -> JSVal -> IO JSString@@ -75,6 +103,11 @@              CommandLineAPIHost -> JSVal -> m result databaseId self database   = liftIO (fromJSString <$> (js_databaseId (self) database))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.databaseId Mozilla CommandLineAPIHost.databaseId documentation> +databaseId_ :: (MonadIO m) => CommandLineAPIHost -> JSVal -> m ()+databaseId_ self database+  = liftIO (void (js_databaseId (self) database))   foreign import javascript unsafe "$1[\"storageId\"]($2)"         js_storageId :: CommandLineAPIHost -> JSVal -> IO JSString@@ -85,3 +118,8 @@             CommandLineAPIHost -> JSVal -> m result storageId self storage   = liftIO (fromJSString <$> (js_storageId (self) storage))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.storageId Mozilla CommandLineAPIHost.storageId documentation> +storageId_ :: (MonadIO m) => CommandLineAPIHost -> JSVal -> m ()+storageId_ self storage+  = liftIO (void (js_storageId (self) storage))
src/GHCJS/DOM/JSFFI/Generated/Comment.hs view
@@ -9,9 +9,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs view
@@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.ConvolverNode-       (js_setBuffer, setBuffer, js_getBuffer, getBuffer, js_setNormalize,-        setNormalize, js_getNormalize, getNormalize, ConvolverNode,-        castToConvolverNode, gTypeConvolverNode)+       (js_setBuffer, setBuffer, js_getBuffer, getBuffer,+        getBufferUnchecked, js_setNormalize, setNormalize, js_getNormalize,+        getNormalize, ConvolverNode, castToConvolverNode,+        gTypeConvolverNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +12,11 @@ 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)@@ -34,6 +37,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation>  getBuffer :: (MonadIO m) => ConvolverNode -> m (Maybe AudioBuffer) getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation> +getBufferUnchecked :: (MonadIO m) => ConvolverNode -> m AudioBuffer+getBufferUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getBuffer (self)))   foreign import javascript unsafe "$1[\"normalize\"] = $2;"         js_setNormalize :: ConvolverNode -> Bool -> IO ()
src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs view
@@ -1,10 +1,11 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Coordinates        (js_getLatitude, getLatitude, js_getLongitude, getLongitude,-        js_getAltitude, getAltitude, js_getAccuracy, getAccuracy,-        js_getAltitudeAccuracy, getAltitudeAccuracy, js_getHeading,-        getHeading, js_getSpeed, getSpeed, Coordinates, castToCoordinates,-        gTypeCoordinates)+        js_getAltitude, getAltitude, getAltitudeUnchecked, js_getAccuracy,+        getAccuracy, js_getAltitudeAccuracy, getAltitudeAccuracy,+        getAltitudeAccuracyUnchecked, js_getHeading, getHeading,+        getHeadingUnchecked, js_getSpeed, getSpeed, getSpeedUnchecked,+        Coordinates, castToCoordinates, gTypeCoordinates)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +14,11 @@ 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)@@ -42,6 +45,11 @@ getAltitude :: (MonadIO m) => Coordinates -> m (Maybe Double) getAltitude self   = liftIO ((js_getAltitude (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitude Mozilla Coordinates.altitude documentation> +getAltitudeUnchecked :: (MonadIO m) => Coordinates -> m Double+getAltitudeUnchecked self+  = liftIO ((js_getAltitude (self)) >>= fromJSValUnchecked)   foreign import javascript unsafe "$1[\"accuracy\"]" js_getAccuracy         :: Coordinates -> IO Double@@ -58,6 +66,12 @@                     (MonadIO m) => Coordinates -> m (Maybe Double) getAltitudeAccuracy self   = liftIO ((js_getAltitudeAccuracy (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitudeAccuracy Mozilla Coordinates.altitudeAccuracy documentation> +getAltitudeAccuracyUnchecked ::+                             (MonadIO m) => Coordinates -> m Double+getAltitudeAccuracyUnchecked self+  = liftIO ((js_getAltitudeAccuracy (self)) >>= fromJSValUnchecked)   foreign import javascript unsafe "$1[\"heading\"]" js_getHeading ::         Coordinates -> IO JSVal@@ -66,6 +80,11 @@ getHeading :: (MonadIO m) => Coordinates -> m (Maybe Double) getHeading self   = liftIO ((js_getHeading (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.heading Mozilla Coordinates.heading documentation> +getHeadingUnchecked :: (MonadIO m) => Coordinates -> m Double+getHeadingUnchecked self+  = liftIO ((js_getHeading (self)) >>= fromJSValUnchecked)   foreign import javascript unsafe "$1[\"speed\"]" js_getSpeed ::         Coordinates -> IO JSVal@@ -73,4 +92,9 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation>  getSpeed :: (MonadIO m) => Coordinates -> m (Maybe Double) getSpeed self+  = liftIO ((js_getSpeed (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation> +getSpeedUnchecked :: (MonadIO m) => Coordinates -> m Double+getSpeedUnchecked self   = liftIO ((js_getSpeed (self)) >>= fromJSValUnchecked)
src/GHCJS/DOM/JSFFI/Generated/Counter.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/Crypto.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Crypto-       (js_getRandomValues, getRandomValues, js_getWebkitSubtle,-        getWebkitSubtle, Crypto, castToCrypto, gTypeCrypto)+       (js_getRandomValues, getRandomValues, getRandomValues_,+        getRandomValuesUnchecked, js_getWebkitSubtle, getWebkitSubtle,+        getWebkitSubtleUnchecked, Crypto, castToCrypto, gTypeCrypto)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -31,6 +34,26 @@       (nullableToMaybe <$>          (js_getRandomValues (self)             (maybeToNullable (fmap toArrayBufferView array))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.getRandomValues Mozilla Crypto.getRandomValues documentation> +getRandomValues_ ::+                 (MonadIO m, IsArrayBufferView array) =>+                   Crypto -> Maybe array -> m ()+getRandomValues_ self array+  = liftIO+      (void+         (js_getRandomValues (self)+            (maybeToNullable (fmap toArrayBufferView array))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.getRandomValues Mozilla Crypto.getRandomValues documentation> +getRandomValuesUnchecked ::+                         (MonadIO m, IsArrayBufferView array) =>+                           Crypto -> Maybe array -> m ArrayBufferView+getRandomValuesUnchecked self array+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getRandomValues (self)+            (maybeToNullable (fmap toArrayBufferView array))))   foreign import javascript unsafe "$1[\"webkitSubtle\"]"         js_getWebkitSubtle :: Crypto -> IO (Nullable SubtleCrypto)@@ -39,3 +62,9 @@ getWebkitSubtle :: (MonadIO m) => Crypto -> m (Maybe SubtleCrypto) getWebkitSubtle self   = liftIO (nullableToMaybe <$> (js_getWebkitSubtle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.webkitSubtle Mozilla Crypto.webkitSubtle documentation> +getWebkitSubtleUnchecked :: (MonadIO m) => Crypto -> m SubtleCrypto+getWebkitSubtleUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getWebkitSubtle (self)))
src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CryptoKey        (js_getType, getType, js_getExtractable, getExtractable,-        js_getAlgorithm, getAlgorithm, js_getUsages, getUsages, CryptoKey,-        castToCryptoKey, gTypeCryptoKey)+        js_getAlgorithm, getAlgorithm, getAlgorithmUnchecked, js_getUsages,+        getUsages, CryptoKey, castToCryptoKey, gTypeCryptoKey)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -40,6 +42,11 @@ getAlgorithm :: (MonadIO m) => CryptoKey -> m (Maybe Algorithm) getAlgorithm self   = liftIO (nullableToMaybe <$> (js_getAlgorithm (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.algorithm Mozilla CryptoKey.algorithm documentation> +getAlgorithmUnchecked :: (MonadIO m) => CryptoKey -> m Algorithm+getAlgorithmUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getAlgorithm (self)))   foreign import javascript unsafe "$1[\"usages\"]" js_getUsages ::         CryptoKey -> IO JSVal
src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.CryptoKeyPair-       (js_getPublicKey, getPublicKey, js_getPrivateKey, getPrivateKey,+       (js_getPublicKey, getPublicKey, getPublicKeyUnchecked,+        js_getPrivateKey, getPrivateKey, getPrivateKeyUnchecked,         CryptoKeyPair, castToCryptoKeyPair, gTypeCryptoKeyPair)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -10,9 +11,11 @@ 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)@@ -25,6 +28,12 @@ getPublicKey :: (MonadIO m) => CryptoKeyPair -> m (Maybe CryptoKey) getPublicKey self   = liftIO (nullableToMaybe <$> (js_getPublicKey (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.publicKey Mozilla CryptoKeyPair.publicKey documentation> +getPublicKeyUnchecked ::+                      (MonadIO m) => CryptoKeyPair -> m CryptoKey+getPublicKeyUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getPublicKey (self)))   foreign import javascript unsafe "$1[\"privateKey\"]"         js_getPrivateKey :: CryptoKeyPair -> IO (Nullable CryptoKey)@@ -34,3 +43,9 @@               (MonadIO m) => CryptoKeyPair -> m (Maybe CryptoKey) getPrivateKey self   = liftIO (nullableToMaybe <$> (js_getPrivateKey (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.privateKey Mozilla CryptoKeyPair.privateKey documentation> +getPrivateKeyUnchecked ::+                       (MonadIO m) => CryptoKeyPair -> m CryptoKey+getPrivateKeyUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getPrivateKey (self)))
src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/DOMError.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs view
@@ -1,10 +1,14 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DOMImplementation-       (js_hasFeature, hasFeature, js_createDocumentType,-        createDocumentType, js_createDocument, createDocument,-        js_createCSSStyleSheet, createCSSStyleSheet, js_createHTMLDocument,-        createHTMLDocument, DOMImplementation, castToDOMImplementation,-        gTypeDOMImplementation)+       (js_hasFeature, hasFeature, hasFeature_, js_createDocumentType,+        createDocumentType, createDocumentType_,+        createDocumentTypeUnchecked, js_createDocument, createDocument,+        createDocument_, createDocumentUnchecked, js_createCSSStyleSheet,+        createCSSStyleSheet, createCSSStyleSheet_,+        createCSSStyleSheetUnchecked, js_createHTMLDocument,+        createHTMLDocument, createHTMLDocument_,+        createHTMLDocumentUnchecked, DOMImplementation,+        castToDOMImplementation, gTypeDOMImplementation)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +17,11 @@ 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)@@ -33,6 +39,16 @@   = liftIO       (js_hasFeature (self) (toJSString feature)          (toMaybeJSString version))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.hasFeature Mozilla DOMImplementation.hasFeature documentation> +hasFeature_ ::+            (MonadIO m, ToJSString feature, ToJSString version) =>+              DOMImplementation -> feature -> Maybe version -> m ()+hasFeature_ self feature version+  = liftIO+      (void+         (js_hasFeature (self) (toJSString feature)+            (toMaybeJSString version)))   foreign import javascript unsafe         "$1[\"createDocumentType\"]($2, $3,\n$4)" js_createDocumentType ::@@ -54,6 +70,33 @@          (js_createDocumentType (self) (toMaybeJSString qualifiedName)             (toMaybeJSString publicId)             (toMaybeJSString systemId)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocumentType Mozilla DOMImplementation.createDocumentType documentation> +createDocumentType_ ::+                    (MonadIO m, ToJSString qualifiedName, ToJSString publicId,+                     ToJSString systemId) =>+                      DOMImplementation ->+                        Maybe qualifiedName -> Maybe publicId -> Maybe systemId -> m ()+createDocumentType_ self qualifiedName publicId systemId+  = liftIO+      (void+         (js_createDocumentType (self) (toMaybeJSString qualifiedName)+            (toMaybeJSString publicId)+            (toMaybeJSString systemId)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocumentType Mozilla DOMImplementation.createDocumentType documentation> +createDocumentTypeUnchecked ::+                            (MonadIO m, ToJSString qualifiedName, ToJSString publicId,+                             ToJSString systemId) =>+                              DOMImplementation ->+                                Maybe qualifiedName ->+                                  Maybe publicId -> Maybe systemId -> m DocumentType+createDocumentTypeUnchecked self qualifiedName publicId systemId+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createDocumentType (self) (toMaybeJSString qualifiedName)+            (toMaybeJSString publicId)+            (toMaybeJSString systemId)))   foreign import javascript unsafe         "$1[\"createDocument\"]($2, $3, $4)" js_createDocument ::@@ -74,6 +117,32 @@          (js_createDocument (self) (toMaybeJSString namespaceURI)             (toMaybeJSString qualifiedName)             (maybeToNullable doctype)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocument Mozilla DOMImplementation.createDocument documentation> +createDocument_ ::+                (MonadIO m, ToJSString namespaceURI, ToJSString qualifiedName) =>+                  DOMImplementation ->+                    Maybe namespaceURI ->+                      Maybe qualifiedName -> Maybe DocumentType -> m ()+createDocument_ self namespaceURI qualifiedName doctype+  = liftIO+      (void+         (js_createDocument (self) (toMaybeJSString namespaceURI)+            (toMaybeJSString qualifiedName)+            (maybeToNullable doctype)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocument Mozilla DOMImplementation.createDocument documentation> +createDocumentUnchecked ::+                        (MonadIO m, ToJSString namespaceURI, ToJSString qualifiedName) =>+                          DOMImplementation ->+                            Maybe namespaceURI ->+                              Maybe qualifiedName -> Maybe DocumentType -> m Document+createDocumentUnchecked self namespaceURI qualifiedName doctype+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createDocument (self) (toMaybeJSString namespaceURI)+            (toMaybeJSString qualifiedName)+            (maybeToNullable doctype)))   foreign import javascript unsafe         "$1[\"createCSSStyleSheet\"]($2,\n$3)" js_createCSSStyleSheet ::@@ -89,6 +158,26 @@       (nullableToMaybe <$>          (js_createCSSStyleSheet (self) (toJSString title)             (toJSString media)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createCSSStyleSheet Mozilla DOMImplementation.createCSSStyleSheet documentation> +createCSSStyleSheet_ ::+                     (MonadIO m, ToJSString title, ToJSString media) =>+                       DOMImplementation -> title -> media -> m ()+createCSSStyleSheet_ self title media+  = liftIO+      (void+         (js_createCSSStyleSheet (self) (toJSString title)+            (toJSString media)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createCSSStyleSheet Mozilla DOMImplementation.createCSSStyleSheet documentation> +createCSSStyleSheetUnchecked ::+                             (MonadIO m, ToJSString title, ToJSString media) =>+                               DOMImplementation -> title -> media -> m CSSStyleSheet+createCSSStyleSheetUnchecked self title media+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createCSSStyleSheet (self) (toJSString title)+            (toJSString media)))   foreign import javascript unsafe "$1[\"createHTMLDocument\"]($2)"         js_createHTMLDocument ::@@ -101,4 +190,19 @@ createHTMLDocument self title   = liftIO       (nullableToMaybe <$>+         (js_createHTMLDocument (self) (toJSString title)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation> +createHTMLDocument_ ::+                    (MonadIO m, ToJSString title) => DOMImplementation -> title -> m ()+createHTMLDocument_ self title+  = liftIO (void (js_createHTMLDocument (self) (toJSString title)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation> +createHTMLDocumentUnchecked ::+                            (MonadIO m, ToJSString title) =>+                              DOMImplementation -> title -> m HTMLDocument+createHTMLDocumentUnchecked self title+  = liftIO+      (fromJust . nullableToMaybe <$>          (js_createHTMLDocument (self) (toJSString title)))
src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DOMNamedFlowCollection-       (js_item, item, js_namedItem, namedItem, js_getLength, getLength,+       (js_item, item, item_, itemUnchecked, js_namedItem, namedItem,+        namedItem_, namedItemUnchecked, js_getLength, getLength,         DOMNamedFlowCollection, castToDOMNamedFlowCollection,         gTypeDOMNamedFlowCollection)        where@@ -11,9 +12,11 @@ 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)@@ -28,6 +31,16 @@        DOMNamedFlowCollection -> Word -> m (Maybe WebKitNamedFlow) item self index   = liftIO (nullableToMaybe <$> (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation> +item_ :: (MonadIO m) => DOMNamedFlowCollection -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation> +itemUnchecked ::+              (MonadIO m) => DOMNamedFlowCollection -> Word -> m WebKitNamedFlow+itemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"         js_namedItem ::@@ -40,6 +53,22 @@ namedItem self name   = liftIO       (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> +namedItem_ ::+           (MonadIO m, ToJSString name) =>+             DOMNamedFlowCollection -> name -> m ()+namedItem_ self name+  = liftIO (void (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation> +namedItemUnchecked ::+                   (MonadIO m, ToJSString name) =>+                     DOMNamedFlowCollection -> name -> m WebKitNamedFlow+namedItemUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_namedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         DOMNamedFlowCollection -> IO Word
src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DOMParser        (js_newDOMParser, newDOMParser, js_parseFromString,-        parseFromString, DOMParser, castToDOMParser, gTypeDOMParser)+        parseFromString, parseFromString_, parseFromStringUnchecked,+        DOMParser, castToDOMParser, gTypeDOMParser)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -36,5 +39,25 @@ parseFromString self str contentType   = liftIO       (nullableToMaybe <$>+         (js_parseFromString (self) (toJSString str)+            (toJSString contentType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser.parseFromString Mozilla DOMParser.parseFromString documentation> +parseFromString_ ::+                 (MonadIO m, ToJSString str, ToJSString contentType) =>+                   DOMParser -> str -> contentType -> m ()+parseFromString_ self str contentType+  = liftIO+      (void+         (js_parseFromString (self) (toJSString str)+            (toJSString contentType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser.parseFromString Mozilla DOMParser.parseFromString documentation> +parseFromStringUnchecked ::+                         (MonadIO m, ToJSString str, ToJSString contentType) =>+                           DOMParser -> str -> contentType -> m Document+parseFromStringUnchecked self str contentType+  = liftIO+      (fromJust . nullableToMaybe <$>          (js_parseFromString (self) (toJSString str)             (toJSString contentType)))
src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DOMSettableTokenList-       (js__get, _get, js_setValue, setValue, js_getValue, getValue,-        DOMSettableTokenList, castToDOMSettableTokenList,-        gTypeDOMSettableTokenList)+       (js__get, _get, _get_, _getUnchecked, js_setValue, setValue,+        js_getValue, getValue, DOMSettableTokenList,+        castToDOMSettableTokenList, gTypeDOMSettableTokenList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -28,6 +30,17 @@        DOMSettableTokenList -> Word -> m (Maybe result) _get self index   = liftIO (fromMaybeJSString <$> (js__get (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList._get Mozilla DOMSettableTokenList._get documentation> +_get_ :: (MonadIO m) => DOMSettableTokenList -> Word -> m ()+_get_ self index = liftIO (void (js__get (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList._get Mozilla DOMSettableTokenList._get documentation> +_getUnchecked ::+              (MonadIO m, FromJSString result) =>+                DOMSettableTokenList -> Word -> m result+_getUnchecked self index+  = liftIO (fromJust . fromMaybeJSString <$> (js__get (self) index))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue         :: DOMSettableTokenList -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DOMStringList-       (js_item, item, js_contains, contains, js_getLength, getLength,-        DOMStringList, castToDOMStringList, gTypeDOMStringList)+       (js_item, item, item_, itemUnchecked, js_contains, contains,+        contains_, js_getLength, getLength, DOMStringList,+        castToDOMStringList, gTypeDOMStringList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -27,6 +30,17 @@        DOMStringList -> Word -> m (Maybe result) item self index   = liftIO (fromMaybeJSString <$> (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> +item_ :: (MonadIO m) => DOMStringList -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation> +itemUnchecked ::+              (MonadIO m, FromJSString result) =>+                DOMStringList -> Word -> m result+itemUnchecked self index+  = liftIO (fromJust . fromMaybeJSString <$> (js_item (self) index))   foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"         js_contains :: DOMStringList -> JSString -> IO Bool@@ -36,6 +50,12 @@          (MonadIO m, ToJSString string) => DOMStringList -> string -> m Bool contains self string   = liftIO (js_contains (self) (toJSString string))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.contains Mozilla DOMStringList.contains documentation> +contains_ ::+          (MonadIO m, ToJSString string) => DOMStringList -> string -> m ()+contains_ self string+  = liftIO (void (js_contains (self) (toJSString string)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         DOMStringList -> IO Word
src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs view
@@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DOMTokenList-       (js_item, item, js_contains, contains, js_add, add, js_remove,-        remove, js_toggle, toggle, js_toString, toString, js_getLength,-        getLength, DOMTokenList, castToDOMTokenList, gTypeDOMTokenList,+       (js_item, item, item_, itemUnchecked, js_contains, contains,+        contains_, js_add, add, js_remove, remove, js_toggle, toggle,+        toggle_, js_toString, toString, toString_, js_getLength, getLength,+        DOMTokenList, castToDOMTokenList, gTypeDOMTokenList,         IsDOMTokenList, toDOMTokenList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -12,9 +13,11 @@ 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)@@ -30,6 +33,20 @@ item self index   = liftIO       (fromMaybeJSString <$> (js_item (toDOMTokenList self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation> +item_ :: (MonadIO m, IsDOMTokenList self) => self -> Word -> m ()+item_ self index+  = liftIO (void (js_item (toDOMTokenList self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation> +itemUnchecked ::+              (MonadIO m, IsDOMTokenList self, FromJSString result) =>+                self -> Word -> m result+itemUnchecked self index+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_item (toDOMTokenList self) index))   foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"         js_contains :: DOMTokenList -> JSString -> IO Bool@@ -40,6 +57,14 @@            self -> token -> m Bool contains self token   = liftIO (js_contains (toDOMTokenList self) (toJSString token))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.contains Mozilla DOMTokenList.contains documentation> +contains_ ::+          (MonadIO m, IsDOMTokenList self, ToJSString token) =>+            self -> token -> m ()+contains_ self token+  = liftIO+      (void (js_contains (toDOMTokenList self) (toJSString token)))   foreign import javascript unsafe "$1[\"add\"].apply($1, $2)" js_add         :: DOMTokenList -> JSVal -> IO ()@@ -76,6 +101,14 @@          self -> token -> Bool -> m Bool toggle self token force   = liftIO (js_toggle (toDOMTokenList self) (toJSString token) force)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.toggle Mozilla DOMTokenList.toggle documentation> +toggle_ ::+        (MonadIO m, IsDOMTokenList self, ToJSString token) =>+          self -> token -> Bool -> m ()+toggle_ self token force+  = liftIO+      (void (js_toggle (toDOMTokenList self) (toJSString token) force))   foreign import javascript unsafe "$1[\"toString\"]()" js_toString         :: DOMTokenList -> IO JSString@@ -86,6 +119,10 @@            self -> m result toString self   = liftIO (fromJSString <$> (js_toString (toDOMTokenList self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.toString Mozilla DOMTokenList.toString documentation> +toString_ :: (MonadIO m, IsDOMTokenList self) => self -> m ()+toString_ self = liftIO (void (js_toString (toDOMTokenList self)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         DOMTokenList -> IO Word
src/GHCJS/DOM/JSFFI/Generated/DataCue.hs view
@@ -1,9 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DataCue        (js_newDataCue, newDataCue, js_newDataCue', newDataCue',-        js_setData, setData, js_getData, getData, js_setValue, setValue,-        js_getValue, getValue, js_getType, getType, DataCue, castToDataCue,-        gTypeDataCue)+        js_setData, setData, js_getData, getData, getDataUnchecked,+        js_setValue, setValue, js_getValue, getValue, js_getType, getType,+        DataCue, castToDataCue, gTypeDataCue)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -12,9 +12,11 @@ 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)@@ -55,6 +57,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation>  getData :: (MonadIO m) => DataCue -> m (Maybe ArrayBuffer) getData self = liftIO (nullableToMaybe <$> (js_getData (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation> +getDataUnchecked :: (MonadIO m) => DataCue -> m ArrayBuffer+getDataUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getData (self)))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue         :: DataCue -> JSVal -> IO ()
src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs view
@@ -1,11 +1,13 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DataTransfer-       (js_clearData, clearData, js_getData, getData, js_setData, setData,-        js_setDragImage, setDragImage, js_setDropEffect, setDropEffect,-        js_getDropEffect, getDropEffect, js_setEffectAllowed,-        setEffectAllowed, js_getEffectAllowed, getEffectAllowed,-        js_getTypes, getTypes, js_getFiles, getFiles, js_getItems,-        getItems, DataTransfer, castToDataTransfer, gTypeDataTransfer)+       (js_clearData, clearData, js_getData, getData, getData_,+        js_setData, setData, js_setDragImage, setDragImage,+        js_setDropEffect, setDropEffect, js_getDropEffect, getDropEffect,+        js_setEffectAllowed, setEffectAllowed, js_getEffectAllowed,+        getEffectAllowed, js_getTypes, getTypes, getTypesUnchecked,+        js_getFiles, getFiles, getFilesUnchecked, js_getItems, getItems,+        getItemsUnchecked, DataTransfer, castToDataTransfer,+        gTypeDataTransfer)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -14,9 +16,11 @@ 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)@@ -40,6 +44,12 @@           DataTransfer -> type' -> m result getData self type'   = liftIO (fromJSString <$> (js_getData (self) (toJSString type')))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.getData Mozilla DataTransfer.getData documentation> +getData_ ::+         (MonadIO m, ToJSString type') => DataTransfer -> type' -> m ()+getData_ self type'+  = liftIO (void (js_getData (self) (toJSString type')))   foreign import javascript unsafe "$1[\"setData\"]($2, $3)"         js_setData :: DataTransfer -> JSString -> JSString -> IO ()@@ -106,6 +116,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.types Mozilla DataTransfer.types documentation>  getTypes :: (MonadIO m) => DataTransfer -> m (Maybe Array) getTypes self = liftIO (nullableToMaybe <$> (js_getTypes (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.types Mozilla DataTransfer.types documentation> +getTypesUnchecked :: (MonadIO m) => DataTransfer -> m Array+getTypesUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getTypes (self)))   foreign import javascript unsafe "$1[\"files\"]" js_getFiles ::         DataTransfer -> IO (Nullable FileList)@@ -113,6 +128,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.files Mozilla DataTransfer.files documentation>  getFiles :: (MonadIO m) => DataTransfer -> m (Maybe FileList) getFiles self = liftIO (nullableToMaybe <$> (js_getFiles (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.files Mozilla DataTransfer.files documentation> +getFilesUnchecked :: (MonadIO m) => DataTransfer -> m FileList+getFilesUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getFiles (self)))   foreign import javascript unsafe "$1[\"items\"]" js_getItems ::         DataTransfer -> IO (Nullable DataTransferItemList)@@ -121,3 +141,9 @@ getItems ::          (MonadIO m) => DataTransfer -> m (Maybe DataTransferItemList) getItems self = liftIO (nullableToMaybe <$> (js_getItems (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.items Mozilla DataTransfer.items documentation> +getItemsUnchecked ::+                  (MonadIO m) => DataTransfer -> m DataTransferItemList+getItemsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getItems (self)))
src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DataTransferItem-       (js_getAsString, getAsString, js_getAsFile, getAsFile, js_getKind,-        getKind, js_getType, getType, DataTransferItem,-        castToDataTransferItem, gTypeDataTransferItem)+       (js_getAsString, getAsString, js_getAsFile, getAsFile, getAsFile_,+        getAsFileUnchecked, js_getKind, getKind, js_getType, getType,+        DataTransferItem, castToDataTransferItem, gTypeDataTransferItem)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -36,6 +38,15 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation>  getAsFile :: (MonadIO m) => DataTransferItem -> m (Maybe Blob) getAsFile self = liftIO (nullableToMaybe <$> (js_getAsFile (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation> +getAsFile_ :: (MonadIO m) => DataTransferItem -> m ()+getAsFile_ self = liftIO (void (js_getAsFile (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation> +getAsFileUnchecked :: (MonadIO m) => DataTransferItem -> m Blob+getAsFileUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getAsFile (self)))   foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::         DataTransferItem -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs view
@@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DataTransferItemList-       (js_item, item, js_clear, clear, js_addFile, addFile, js_add, add,-        js_getLength, getLength, DataTransferItemList,-        castToDataTransferItemList, gTypeDataTransferItemList)+       (js_item, item, item_, itemUnchecked, js_clear, clear, js_addFile,+        addFile, js_add, add, js_getLength, getLength,+        DataTransferItemList, castToDataTransferItemList,+        gTypeDataTransferItemList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +12,11 @@ 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)@@ -28,6 +31,16 @@        DataTransferItemList -> Word -> m (Maybe DataTransferItem) item self index   = liftIO (nullableToMaybe <$> (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation> +item_ :: (MonadIO m) => DataTransferItemList -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation> +itemUnchecked ::+              (MonadIO m) => DataTransferItemList -> Word -> m DataTransferItem+itemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::         DataTransferItemList -> IO ()
src/GHCJS/DOM/JSFFI/Generated/Database.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DelayNode-       (js_getDelayTime, getDelayTime, DelayNode, castToDelayNode,-        gTypeDelayNode)+       (js_getDelayTime, getDelayTime, getDelayTimeUnchecked, DelayNode,+        castToDelayNode, gTypeDelayNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -25,3 +27,8 @@ getDelayTime :: (MonadIO m) => DelayNode -> m (Maybe AudioParam) getDelayTime self   = liftIO (nullableToMaybe <$> (js_getDelayTime (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DelayNode.delayTime Mozilla DelayNode.delayTime documentation> +getDelayTimeUnchecked :: (MonadIO m) => DelayNode -> m AudioParam+getDelayTimeUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getDelayTime (self)))
src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs view
@@ -1,11 +1,13 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DeviceMotionEvent        (js_initDeviceMotionEvent, initDeviceMotionEvent,-        js_getAcceleration, getAcceleration,+        js_getAcceleration, getAcceleration, getAccelerationUnchecked,         js_getAccelerationIncludingGravity,-        getAccelerationIncludingGravity, js_getRotationRate,-        getRotationRate, js_getInterval, getInterval, DeviceMotionEvent,-        castToDeviceMotionEvent, gTypeDeviceMotionEvent)+        getAccelerationIncludingGravity,+        getAccelerationIncludingGravityUnchecked, js_getRotationRate,+        getRotationRate, getRotationRateUnchecked, js_getInterval,+        getInterval, DeviceMotionEvent, castToDeviceMotionEvent,+        gTypeDeviceMotionEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -14,9 +16,11 @@ 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)@@ -64,6 +68,13 @@                 (MonadIO m) => DeviceMotionEvent -> m (Maybe Acceleration) getAcceleration self   = liftIO (nullableToMaybe <$> (js_getAcceleration (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.acceleration Mozilla DeviceMotionEvent.acceleration documentation> +getAccelerationUnchecked ::+                         (MonadIO m) => DeviceMotionEvent -> m Acceleration+getAccelerationUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getAcceleration (self)))   foreign import javascript unsafe         "$1[\"accelerationIncludingGravity\"]"@@ -76,6 +87,14 @@ getAccelerationIncludingGravity self   = liftIO       (nullableToMaybe <$> (js_getAccelerationIncludingGravity (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.accelerationIncludingGravity Mozilla DeviceMotionEvent.accelerationIncludingGravity documentation> +getAccelerationIncludingGravityUnchecked ::+                                         (MonadIO m) => DeviceMotionEvent -> m Acceleration+getAccelerationIncludingGravityUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getAccelerationIncludingGravity (self)))   foreign import javascript unsafe "$1[\"rotationRate\"]"         js_getRotationRate ::@@ -86,6 +105,13 @@                 (MonadIO m) => DeviceMotionEvent -> m (Maybe RotationRate) getRotationRate self   = liftIO (nullableToMaybe <$> (js_getRotationRate (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.rotationRate Mozilla DeviceMotionEvent.rotationRate documentation> +getRotationRateUnchecked ::+                         (MonadIO m) => DeviceMotionEvent -> m RotationRate+getRotationRateUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getRotationRate (self)))   foreign import javascript unsafe "$1[\"interval\"]" js_getInterval         :: DeviceMotionEvent -> IO Double
src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/Document.hs view
@@ -1,1558 +1,2620 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Document        (js_newDocument, newDocument, js_createElement, createElement,-        js_createDocumentFragment, createDocumentFragment,-        js_createTextNode, createTextNode, js_createComment, createComment,-        js_createCDATASection, createCDATASection,-        js_createProcessingInstruction, createProcessingInstruction,-        js_createAttribute, createAttribute, js_createEntityReference,-        createEntityReference, js_getElementsByTagName,-        getElementsByTagName, js_importNode, importNode,-        js_createElementNS, createElementNS, js_createAttributeNS,-        createAttributeNS, js_getElementsByTagNameNS,-        getElementsByTagNameNS, js_getElementById, getElementById,-        js_adoptNode, adoptNode, js_createEvent, createEvent,-        js_createRange, createRange, js_createNodeIterator,-        createNodeIterator, js_createTreeWalker, createTreeWalker,-        js_getOverrideStyle, getOverrideStyle, js_createExpression,-        createExpression, js_createNSResolver, createNSResolver,-        js_evaluate, evaluate, js_execCommand, execCommand,-        js_queryCommandEnabled, queryCommandEnabled,-        js_queryCommandIndeterm, queryCommandIndeterm,-        js_queryCommandState, queryCommandState, js_queryCommandSupported,-        queryCommandSupported, js_queryCommandValue, queryCommandValue,-        js_getElementsByName, getElementsByName, js_elementFromPoint,-        elementFromPoint, js_caretRangeFromPoint, caretRangeFromPoint,-        js_getSelection, getSelection, js_getCSSCanvasContext,-        getCSSCanvasContext, js_getElementsByClassName,-        getElementsByClassName, js_hasFocus, hasFocus, js_querySelector,-        querySelector, js_querySelectorAll, querySelectorAll,-        js_webkitCancelFullScreen, webkitCancelFullScreen,-        js_webkitExitFullscreen, webkitExitFullscreen, js_exitPointerLock,-        exitPointerLock, js_webkitGetNamedFlows, webkitGetNamedFlows,-        js_createTouch, createTouch, js_createTouchList, createTouchList,-        js_getDoctype, getDoctype, js_getImplementation, getImplementation,-        js_getDocumentElement, getDocumentElement, js_getInputEncoding,-        getInputEncoding, js_getXmlEncoding, getXmlEncoding,-        js_setXmlVersion, setXmlVersion, js_getXmlVersion, getXmlVersion,-        js_setXmlStandalone, setXmlStandalone, js_getXmlStandalone,-        getXmlStandalone, js_getDocumentURI, getDocumentURI,-        js_getDefaultView, getDefaultView, js_getStyleSheets,-        getStyleSheets, js_getContentType, getContentType, js_setTitle,-        setTitle, js_getTitle, getTitle, js_getReferrer, getReferrer,-        js_setDomain, setDomain, js_getDomain, getDomain, js_getURL,-        getURL, js_setCookie, setCookie, js_getCookie, getCookie,-        js_setBody, setBody, js_getBody, getBody, js_getHead, getHead,-        js_getImages, getImages, js_getApplets, getApplets, js_getLinks,-        getLinks, js_getForms, getForms, js_getAnchors, getAnchors,-        js_getLastModified, getLastModified, js_setLocation, setLocation,-        js_getLocation, getLocation, js_setCharset, setCharset,-        js_getCharset, getCharset, js_getDefaultCharset, getDefaultCharset,-        js_getReadyState, getReadyState, js_getCharacterSet,-        getCharacterSet, js_getPreferredStylesheetSet,-        getPreferredStylesheetSet, js_setSelectedStylesheetSet,-        setSelectedStylesheetSet, js_getSelectedStylesheetSet,-        getSelectedStylesheetSet, js_getActiveElement, getActiveElement,-        js_getCompatMode, getCompatMode, js_getWebkitIsFullScreen,-        getWebkitIsFullScreen, js_getWebkitFullScreenKeyboardInputAllowed,-        getWebkitFullScreenKeyboardInputAllowed,-        js_getWebkitCurrentFullScreenElement,-        getWebkitCurrentFullScreenElement, js_getWebkitFullscreenEnabled,-        getWebkitFullscreenEnabled, js_getWebkitFullscreenElement,-        getWebkitFullscreenElement, js_getPointerLockElement,-        getPointerLockElement, js_getFonts, getFonts, abort, blur, change,-        click, contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave,-        dragOver, dragStart, drop, error, focus, input, invalid, keyDown,-        keyPress, keyUp, load, mouseDown, mouseEnter, mouseLeave,-        mouseMove, mouseOut, mouseOver, mouseUp, mouseWheel,-        readyStateChange, scroll, select, submit, wheel, beforeCut, cut,-        beforeCopy, copy, beforePaste, paste, reset, search, selectStart,-        selectionchange, touchStart, touchMove, touchEnd, touchCancel,-        webKitFullscreenChange, webKitFullscreenError, pointerlockchange,-        pointerlockerror, securitypolicyviolation, webKitWillRevealBottom,-        webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop,-        js_getVisibilityState, getVisibilityState, js_getHidden, getHidden,-        js_getSecurityPolicy, getSecurityPolicy, js_getCurrentScript,-        getCurrentScript, js_getOrigin, getOrigin, Document,-        castToDocument, gTypeDocument, IsDocument, toDocument)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-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.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "new window[\"Document\"]()"-        js_newDocument :: IO Document---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document Mozilla Document documentation> -newDocument :: (MonadIO m) => m Document-newDocument = liftIO (js_newDocument)- -foreign import javascript unsafe "$1[\"createElement\"]($2)"-        js_createElement ::-        Document -> Nullable JSString -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation> -createElement ::-              (MonadIO m, IsDocument self, ToJSString tagName) =>-                self -> Maybe tagName -> m (Maybe Element)-createElement self tagName-  = liftIO-      (nullableToMaybe <$>-         (js_createElement (toDocument self) (toMaybeJSString tagName)))- -foreign import javascript unsafe "$1[\"createDocumentFragment\"]()"-        js_createDocumentFragment ::-        Document -> IO (Nullable DocumentFragment)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> -createDocumentFragment ::-                       (MonadIO m, IsDocument self) => self -> m (Maybe DocumentFragment)-createDocumentFragment self-  = liftIO-      (nullableToMaybe <$> (js_createDocumentFragment (toDocument self)))- -foreign import javascript unsafe "$1[\"createTextNode\"]($2)"-        js_createTextNode :: Document -> JSString -> IO (Nullable Text)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> -createTextNode ::-               (MonadIO m, IsDocument self, ToJSString data') =>-                 self -> data' -> m (Maybe Text)-createTextNode self data'-  = liftIO-      (nullableToMaybe <$>-         (js_createTextNode (toDocument self) (toJSString data')))- -foreign import javascript unsafe "$1[\"createComment\"]($2)"-        js_createComment :: Document -> JSString -> IO (Nullable Comment)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> -createComment ::-              (MonadIO m, IsDocument self, ToJSString data') =>-                self -> data' -> m (Maybe Comment)-createComment self data'-  = liftIO-      (nullableToMaybe <$>-         (js_createComment (toDocument self) (toJSString data')))- -foreign import javascript unsafe "$1[\"createCDATASection\"]($2)"-        js_createCDATASection ::-        Document -> JSString -> IO (Nullable CDATASection)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> -createCDATASection ::-                   (MonadIO m, IsDocument self, ToJSString data') =>-                     self -> data' -> m (Maybe CDATASection)-createCDATASection self data'-  = liftIO-      (nullableToMaybe <$>-         (js_createCDATASection (toDocument self) (toJSString data')))- -foreign import javascript unsafe-        "$1[\"createProcessingInstruction\"]($2,\n$3)"-        js_createProcessingInstruction ::-        Document ->-          JSString -> JSString -> IO (Nullable ProcessingInstruction)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> -createProcessingInstruction ::-                            (MonadIO m, IsDocument self, ToJSString target,-                             ToJSString data') =>-                              self -> target -> data' -> m (Maybe ProcessingInstruction)-createProcessingInstruction self target data'-  = liftIO-      (nullableToMaybe <$>-         (js_createProcessingInstruction (toDocument self)-            (toJSString target)-            (toJSString data')))- -foreign import javascript unsafe "$1[\"createAttribute\"]($2)"-        js_createAttribute :: Document -> JSString -> IO (Nullable Attr)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation> -createAttribute ::-                (MonadIO m, IsDocument self, ToJSString name) =>-                  self -> name -> m (Maybe Attr)-createAttribute self name-  = liftIO-      (nullableToMaybe <$>-         (js_createAttribute (toDocument self) (toJSString name)))- -foreign import javascript unsafe-        "$1[\"createEntityReference\"]($2)" js_createEntityReference ::-        Document -> JSString -> IO (Nullable EntityReference)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEntityReference Mozilla Document.createEntityReference documentation> -createEntityReference ::-                      (MonadIO m, IsDocument self, ToJSString name) =>-                        self -> name -> m (Maybe EntityReference)-createEntityReference self name-  = liftIO-      (nullableToMaybe <$>-         (js_createEntityReference (toDocument self) (toJSString name)))- -foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"-        js_getElementsByTagName ::-        Document -> JSString -> IO (Nullable NodeList)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation> -getElementsByTagName ::-                     (MonadIO m, IsDocument self, ToJSString tagname) =>-                       self -> tagname -> m (Maybe NodeList)-getElementsByTagName self tagname-  = liftIO-      (nullableToMaybe <$>-         (js_getElementsByTagName (toDocument self) (toJSString tagname)))- -foreign import javascript unsafe "$1[\"importNode\"]($2, $3)"-        js_importNode ::-        Document -> Nullable Node -> Bool -> IO (Nullable Node)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation> -importNode ::-           (MonadIO m, IsDocument self, IsNode importedNode) =>-             self -> Maybe importedNode -> Bool -> m (Maybe Node)-importNode self importedNode deep-  = liftIO-      (nullableToMaybe <$>-         (js_importNode (toDocument self)-            (maybeToNullable (fmap toNode importedNode))-            deep))- -foreign import javascript unsafe "$1[\"createElementNS\"]($2, $3)"-        js_createElementNS ::-        Document ->-          Nullable JSString -> Nullable JSString -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation> -createElementNS ::-                (MonadIO m, IsDocument self, ToJSString namespaceURI,-                 ToJSString qualifiedName) =>-                  self ->-                    Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Element)-createElementNS self namespaceURI qualifiedName-  = liftIO-      (nullableToMaybe <$>-         (js_createElementNS (toDocument self)-            (toMaybeJSString namespaceURI)-            (toMaybeJSString qualifiedName)))- -foreign import javascript unsafe-        "$1[\"createAttributeNS\"]($2, $3)" js_createAttributeNS ::-        Document ->-          Nullable JSString -> Nullable JSString -> IO (Nullable Attr)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation> -createAttributeNS ::-                  (MonadIO m, IsDocument self, ToJSString namespaceURI,-                   ToJSString qualifiedName) =>-                    self -> Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Attr)-createAttributeNS self namespaceURI qualifiedName-  = liftIO-      (nullableToMaybe <$>-         (js_createAttributeNS (toDocument self)-            (toMaybeJSString namespaceURI)-            (toMaybeJSString qualifiedName)))- -foreign import javascript unsafe-        "$1[\"getElementsByTagNameNS\"]($2,\n$3)" js_getElementsByTagNameNS-        ::-        Document -> Nullable JSString -> JSString -> IO (Nullable NodeList)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> -getElementsByTagNameNS ::-                       (MonadIO m, IsDocument self, ToJSString namespaceURI,-                        ToJSString localName) =>-                         self -> Maybe namespaceURI -> localName -> m (Maybe NodeList)-getElementsByTagNameNS self namespaceURI localName-  = liftIO-      (nullableToMaybe <$>-         (js_getElementsByTagNameNS (toDocument self)-            (toMaybeJSString namespaceURI)-            (toJSString localName)))- -foreign import javascript unsafe "$1[\"getElementById\"]($2)"-        js_getElementById :: Document -> JSString -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementById Mozilla Document.getElementById documentation> -getElementById ::-               (MonadIO m, IsDocument self, ToJSString elementId) =>-                 self -> elementId -> m (Maybe Element)-getElementById self elementId-  = liftIO-      (nullableToMaybe <$>-         (js_getElementById (toDocument self) (toJSString elementId)))- -foreign import javascript unsafe "$1[\"adoptNode\"]($2)"-        js_adoptNode :: Document -> Nullable Node -> IO (Nullable Node)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation> -adoptNode ::-          (MonadIO m, IsDocument self, IsNode source) =>-            self -> Maybe source -> m (Maybe Node)-adoptNode self source-  = liftIO-      (nullableToMaybe <$>-         (js_adoptNode (toDocument self)-            (maybeToNullable (fmap toNode source))))- -foreign import javascript unsafe "$1[\"createEvent\"]($2)"-        js_createEvent :: Document -> JSString -> IO (Nullable Event)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation> -createEvent ::-            (MonadIO m, IsDocument self, ToJSString eventType) =>-              self -> eventType -> m (Maybe Event)-createEvent self eventType-  = liftIO-      (nullableToMaybe <$>-         (js_createEvent (toDocument self) (toJSString eventType)))- -foreign import javascript unsafe "$1[\"createRange\"]()"-        js_createRange :: Document -> IO (Nullable Range)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> -createRange ::-            (MonadIO m, IsDocument self) => self -> m (Maybe Range)-createRange self-  = liftIO (nullableToMaybe <$> (js_createRange (toDocument self)))- -foreign import javascript unsafe-        "$1[\"createNodeIterator\"]($2, $3,\n$4, $5)" js_createNodeIterator-        ::-        Document ->-          Nullable Node ->-            Word -> Nullable NodeFilter -> Bool -> IO (Nullable NodeIterator)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation> -createNodeIterator ::-                   (MonadIO m, IsDocument self, IsNode root) =>-                     self ->-                       Maybe root ->-                         Word -> Maybe NodeFilter -> Bool -> m (Maybe NodeIterator)-createNodeIterator self root whatToShow filter-  expandEntityReferences-  = liftIO-      (nullableToMaybe <$>-         (js_createNodeIterator (toDocument self)-            (maybeToNullable (fmap toNode root))-            whatToShow-            (maybeToNullable filter)-            expandEntityReferences))- -foreign import javascript unsafe-        "$1[\"createTreeWalker\"]($2, $3,\n$4, $5)" js_createTreeWalker ::-        Document ->-          Nullable Node ->-            Word -> Nullable NodeFilter -> Bool -> IO (Nullable TreeWalker)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation> -createTreeWalker ::-                 (MonadIO m, IsDocument self, IsNode root) =>-                   self ->-                     Maybe root ->-                       Word -> Maybe NodeFilter -> Bool -> m (Maybe TreeWalker)-createTreeWalker self root whatToShow filter expandEntityReferences-  = liftIO-      (nullableToMaybe <$>-         (js_createTreeWalker (toDocument self)-            (maybeToNullable (fmap toNode root))-            whatToShow-            (maybeToNullable filter)-            expandEntityReferences))- -foreign import javascript unsafe "$1[\"getOverrideStyle\"]($2, $3)"-        js_getOverrideStyle ::-        Document ->-          Nullable Element -> JSString -> IO (Nullable CSSStyleDeclaration)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation> -getOverrideStyle ::-                 (MonadIO m, IsDocument self, IsElement element,-                  ToJSString pseudoElement) =>-                   self ->-                     Maybe element -> pseudoElement -> m (Maybe CSSStyleDeclaration)-getOverrideStyle self element pseudoElement-  = liftIO-      (nullableToMaybe <$>-         (js_getOverrideStyle (toDocument self)-            (maybeToNullable (fmap toElement element))-            (toJSString pseudoElement)))- -foreign import javascript unsafe "$1[\"createExpression\"]($2, $3)"-        js_createExpression ::-        Document ->-          JSString ->-            Nullable XPathNSResolver -> IO (Nullable XPathExpression)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation> -createExpression ::-                 (MonadIO m, IsDocument self, ToJSString expression) =>-                   self ->-                     expression -> Maybe XPathNSResolver -> m (Maybe XPathExpression)-createExpression self expression resolver-  = liftIO-      (nullableToMaybe <$>-         (js_createExpression (toDocument self) (toJSString expression)-            (maybeToNullable resolver)))- -foreign import javascript unsafe "$1[\"createNSResolver\"]($2)"-        js_createNSResolver ::-        Document -> Nullable Node -> IO (Nullable XPathNSResolver)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> -createNSResolver ::-                 (MonadIO m, IsDocument self, IsNode nodeResolver) =>-                   self -> Maybe nodeResolver -> m (Maybe XPathNSResolver)-createNSResolver self nodeResolver-  = liftIO-      (nullableToMaybe <$>-         (js_createNSResolver (toDocument self)-            (maybeToNullable (fmap toNode nodeResolver))))- -foreign import javascript unsafe-        "$1[\"evaluate\"]($2, $3, $4, $5,\n$6)" js_evaluate ::-        Document ->-          JSString ->-            Nullable Node ->-              Nullable XPathNSResolver ->-                Word -> Nullable XPathResult -> IO (Nullable XPathResult)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation> -evaluate ::-         (MonadIO m, IsDocument self, ToJSString expression,-          IsNode contextNode) =>-           self ->-             expression ->-               Maybe contextNode ->-                 Maybe XPathNSResolver ->-                   Word -> Maybe XPathResult -> m (Maybe XPathResult)-evaluate self expression contextNode resolver type' inResult-  = liftIO-      (nullableToMaybe <$>-         (js_evaluate (toDocument self) (toJSString expression)-            (maybeToNullable (fmap toNode contextNode))-            (maybeToNullable resolver)-            type'-            (maybeToNullable inResult)))- -foreign import javascript unsafe-        "($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0)" js_execCommand ::-        Document -> JSString -> Bool -> Nullable JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.execCommand Mozilla Document.execCommand documentation> -execCommand ::-            (MonadIO m, IsDocument self, ToJSString command,-             ToJSString value) =>-              self -> command -> Bool -> Maybe value -> m Bool-execCommand self command userInterface value-  = liftIO-      (js_execCommand (toDocument self) (toJSString command)-         userInterface-         (toMaybeJSString value))- -foreign import javascript unsafe-        "($1[\"queryCommandEnabled\"]($2) ? 1 : 0)" js_queryCommandEnabled-        :: Document -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandEnabled Mozilla Document.queryCommandEnabled documentation> -queryCommandEnabled ::-                    (MonadIO m, IsDocument self, ToJSString command) =>-                      self -> command -> m Bool-queryCommandEnabled self command-  = liftIO-      (js_queryCommandEnabled (toDocument self) (toJSString command))- -foreign import javascript unsafe-        "($1[\"queryCommandIndeterm\"]($2) ? 1 : 0)"-        js_queryCommandIndeterm :: Document -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandIndeterm Mozilla Document.queryCommandIndeterm documentation> -queryCommandIndeterm ::-                     (MonadIO m, IsDocument self, ToJSString command) =>-                       self -> command -> m Bool-queryCommandIndeterm self command-  = liftIO-      (js_queryCommandIndeterm (toDocument self) (toJSString command))- -foreign import javascript unsafe-        "($1[\"queryCommandState\"]($2) ? 1 : 0)" js_queryCommandState ::-        Document -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandState Mozilla Document.queryCommandState documentation> -queryCommandState ::-                  (MonadIO m, IsDocument self, ToJSString command) =>-                    self -> command -> m Bool-queryCommandState self command-  = liftIO-      (js_queryCommandState (toDocument self) (toJSString command))- -foreign import javascript unsafe-        "($1[\"queryCommandSupported\"]($2) ? 1 : 0)"-        js_queryCommandSupported :: Document -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandSupported Mozilla Document.queryCommandSupported documentation> -queryCommandSupported ::-                      (MonadIO m, IsDocument self, ToJSString command) =>-                        self -> command -> m Bool-queryCommandSupported self command-  = liftIO-      (js_queryCommandSupported (toDocument self) (toJSString command))- -foreign import javascript unsafe "$1[\"queryCommandValue\"]($2)"-        js_queryCommandValue :: Document -> JSString -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandValue Mozilla Document.queryCommandValue documentation> -queryCommandValue ::-                  (MonadIO m, IsDocument self, ToJSString command,-                   FromJSString result) =>-                    self -> command -> m result-queryCommandValue self command-  = liftIO-      (fromJSString <$>-         (js_queryCommandValue (toDocument self) (toJSString command)))- -foreign import javascript unsafe "$1[\"getElementsByName\"]($2)"-        js_getElementsByName ::-        Document -> JSString -> IO (Nullable NodeList)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> -getElementsByName ::-                  (MonadIO m, IsDocument self, ToJSString elementName) =>-                    self -> elementName -> m (Maybe NodeList)-getElementsByName self elementName-  = liftIO-      (nullableToMaybe <$>-         (js_getElementsByName (toDocument self) (toJSString elementName)))- -foreign import javascript unsafe "$1[\"elementFromPoint\"]($2, $3)"-        js_elementFromPoint ::-        Document -> Int -> Int -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.elementFromPoint Mozilla Document.elementFromPoint documentation> -elementFromPoint ::-                 (MonadIO m, IsDocument self) =>-                   self -> Int -> Int -> m (Maybe Element)-elementFromPoint self x y-  = liftIO-      (nullableToMaybe <$> (js_elementFromPoint (toDocument self) x y))- -foreign import javascript unsafe-        "$1[\"caretRangeFromPoint\"]($2,\n$3)" js_caretRangeFromPoint ::-        Document -> Int -> Int -> IO (Nullable Range)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> -caretRangeFromPoint ::-                    (MonadIO m, IsDocument self) =>-                      self -> Int -> Int -> m (Maybe Range)-caretRangeFromPoint self x y-  = liftIO-      (nullableToMaybe <$>-         (js_caretRangeFromPoint (toDocument self) x y))- -foreign import javascript unsafe "$1[\"getSelection\"]()"-        js_getSelection :: Document -> IO (Nullable Selection)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> -getSelection ::-             (MonadIO m, IsDocument self) => self -> m (Maybe Selection)-getSelection self-  = liftIO (nullableToMaybe <$> (js_getSelection (toDocument self)))- -foreign import javascript unsafe-        "$1[\"getCSSCanvasContext\"]($2,\n$3, $4, $5)"-        js_getCSSCanvasContext ::-        Document ->-          JSString ->-            JSString -> Int -> Int -> IO (Nullable CanvasRenderingContext)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> -getCSSCanvasContext ::-                    (MonadIO m, IsDocument self, ToJSString contextId,-                     ToJSString name) =>-                      self ->-                        contextId -> name -> Int -> Int -> m (Maybe CanvasRenderingContext)-getCSSCanvasContext self contextId name width height-  = liftIO-      (nullableToMaybe <$>-         (js_getCSSCanvasContext (toDocument self) (toJSString contextId)-            (toJSString name)-            width-            height))- -foreign import javascript unsafe-        "$1[\"getElementsByClassName\"]($2)" js_getElementsByClassName ::-        Document -> JSString -> IO (Nullable NodeList)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation> -getElementsByClassName ::-                       (MonadIO m, IsDocument self, ToJSString tagname) =>-                         self -> tagname -> m (Maybe NodeList)-getElementsByClassName self tagname-  = liftIO-      (nullableToMaybe <$>-         (js_getElementsByClassName (toDocument self) (toJSString tagname)))- -foreign import javascript unsafe "($1[\"hasFocus\"]() ? 1 : 0)"-        js_hasFocus :: Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hasFocus Mozilla Document.hasFocus documentation> -hasFocus :: (MonadIO m, IsDocument self) => self -> m Bool-hasFocus self = liftIO (js_hasFocus (toDocument self))- -foreign import javascript unsafe "$1[\"querySelector\"]($2)"-        js_querySelector :: Document -> JSString -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelector Mozilla Document.querySelector documentation> -querySelector ::-              (MonadIO m, IsDocument self, ToJSString selectors) =>-                self -> selectors -> m (Maybe Element)-querySelector self selectors-  = liftIO-      (nullableToMaybe <$>-         (js_querySelector (toDocument self) (toJSString selectors)))- -foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"-        js_querySelectorAll ::-        Document -> JSString -> IO (Nullable NodeList)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelectorAll Mozilla Document.querySelectorAll documentation> -querySelectorAll ::-                 (MonadIO m, IsDocument self, ToJSString selectors) =>-                   self -> selectors -> m (Maybe NodeList)-querySelectorAll self selectors-  = liftIO-      (nullableToMaybe <$>-         (js_querySelectorAll (toDocument self) (toJSString selectors)))- -foreign import javascript unsafe "$1[\"webkitCancelFullScreen\"]()"-        js_webkitCancelFullScreen :: Document -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCancelFullScreen Mozilla Document.webkitCancelFullScreen documentation> -webkitCancelFullScreen ::-                       (MonadIO m, IsDocument self) => self -> m ()-webkitCancelFullScreen self-  = liftIO (js_webkitCancelFullScreen (toDocument self))- -foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()"-        js_webkitExitFullscreen :: Document -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitExitFullscreen Mozilla Document.webkitExitFullscreen documentation> -webkitExitFullscreen ::-                     (MonadIO m, IsDocument self) => self -> m ()-webkitExitFullscreen self-  = liftIO (js_webkitExitFullscreen (toDocument self))- -foreign import javascript unsafe "$1[\"exitPointerLock\"]()"-        js_exitPointerLock :: Document -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.exitPointerLock Mozilla Document.exitPointerLock documentation> -exitPointerLock :: (MonadIO m, IsDocument self) => self -> m ()-exitPointerLock self-  = liftIO (js_exitPointerLock (toDocument self))- -foreign import javascript unsafe "$1[\"webkitGetNamedFlows\"]()"-        js_webkitGetNamedFlows ::-        Document -> IO (Nullable DOMNamedFlowCollection)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> -webkitGetNamedFlows ::-                    (MonadIO m, IsDocument self) =>-                      self -> m (Maybe DOMNamedFlowCollection)-webkitGetNamedFlows self-  = liftIO-      (nullableToMaybe <$> (js_webkitGetNamedFlows (toDocument self)))- -foreign import javascript unsafe-        "$1[\"createTouch\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12)"-        js_createTouch ::-        Document ->-          Nullable Window ->-            Nullable EventTarget ->-              Int ->-                Int ->-                  Int ->-                    Int -> Int -> Int -> Int -> Float -> Float -> IO (Nullable Touch)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation> -createTouch ::-            (MonadIO m, IsDocument self, IsEventTarget target) =>-              self ->-                Maybe Window ->-                  Maybe target ->-                    Int ->-                      Int ->-                        Int ->-                          Int -> Int -> Int -> Int -> Float -> Float -> m (Maybe Touch)-createTouch self window target identifier pageX pageY screenX-  screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce-  = liftIO-      (nullableToMaybe <$>-         (js_createTouch (toDocument self) (maybeToNullable window)-            (maybeToNullable (fmap toEventTarget target))-            identifier-            pageX-            pageY-            screenX-            screenY-            webkitRadiusX-            webkitRadiusY-            webkitRotationAngle-            webkitForce))- -foreign import javascript unsafe "$1[\"createTouchList\"]()"-        js_createTouchList :: Document -> IO (Nullable TouchList)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> -createTouchList ::-                (MonadIO m, IsDocument self) => self -> m (Maybe TouchList)-createTouchList self-  = liftIO-      (nullableToMaybe <$> (js_createTouchList (toDocument self)))- -foreign import javascript unsafe "$1[\"doctype\"]" js_getDoctype ::-        Document -> IO (Nullable DocumentType)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> -getDoctype ::-           (MonadIO m, IsDocument self) => self -> m (Maybe DocumentType)-getDoctype self-  = liftIO (nullableToMaybe <$> (js_getDoctype (toDocument self)))- -foreign import javascript unsafe "$1[\"implementation\"]"-        js_getImplementation :: Document -> IO (Nullable DOMImplementation)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.implementation Mozilla Document.implementation documentation> -getImplementation ::-                  (MonadIO m, IsDocument self) => self -> m (Maybe DOMImplementation)-getImplementation self-  = liftIO-      (nullableToMaybe <$> (js_getImplementation (toDocument self)))- -foreign import javascript unsafe "$1[\"documentElement\"]"-        js_getDocumentElement :: Document -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> -getDocumentElement ::-                   (MonadIO m, IsDocument self) => self -> m (Maybe Element)-getDocumentElement self-  = liftIO-      (nullableToMaybe <$> (js_getDocumentElement (toDocument self)))- -foreign import javascript unsafe "$1[\"inputEncoding\"]"-        js_getInputEncoding :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.inputEncoding Mozilla Document.inputEncoding documentation> -getInputEncoding ::-                 (MonadIO m, IsDocument self, FromJSString result) =>-                   self -> m (Maybe result)-getInputEncoding self-  = liftIO-      (fromMaybeJSString <$> (js_getInputEncoding (toDocument self)))- -foreign import javascript unsafe "$1[\"xmlEncoding\"]"-        js_getXmlEncoding :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> -getXmlEncoding ::-               (MonadIO m, IsDocument self, FromJSString result) =>-                 self -> m (Maybe result)-getXmlEncoding self-  = liftIO-      (fromMaybeJSString <$> (js_getXmlEncoding (toDocument self)))- -foreign import javascript unsafe "$1[\"xmlVersion\"] = $2;"-        js_setXmlVersion :: Document -> Nullable JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> -setXmlVersion ::-              (MonadIO m, IsDocument self, ToJSString val) =>-                self -> Maybe val -> m ()-setXmlVersion self val-  = liftIO (js_setXmlVersion (toDocument self) (toMaybeJSString val))- -foreign import javascript unsafe "$1[\"xmlVersion\"]"-        js_getXmlVersion :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> -getXmlVersion ::-              (MonadIO m, IsDocument self, FromJSString result) =>-                self -> m (Maybe result)-getXmlVersion self-  = liftIO-      (fromMaybeJSString <$> (js_getXmlVersion (toDocument self)))- -foreign import javascript unsafe "$1[\"xmlStandalone\"] = $2;"-        js_setXmlStandalone :: Document -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation> -setXmlStandalone ::-                 (MonadIO m, IsDocument self) => self -> Bool -> m ()-setXmlStandalone self val-  = liftIO (js_setXmlStandalone (toDocument self) val)- -foreign import javascript unsafe "($1[\"xmlStandalone\"] ? 1 : 0)"-        js_getXmlStandalone :: Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation> -getXmlStandalone :: (MonadIO m, IsDocument self) => self -> m Bool-getXmlStandalone self-  = liftIO (js_getXmlStandalone (toDocument self))- -foreign import javascript unsafe "$1[\"documentURI\"]"-        js_getDocumentURI :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentURI Mozilla Document.documentURI documentation> -getDocumentURI ::-               (MonadIO m, IsDocument self, FromJSString result) =>-                 self -> m (Maybe result)-getDocumentURI self-  = liftIO-      (fromMaybeJSString <$> (js_getDocumentURI (toDocument self)))- -foreign import javascript unsafe "$1[\"defaultView\"]"-        js_getDefaultView :: Document -> IO (Nullable Window)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> -getDefaultView ::-               (MonadIO m, IsDocument self) => self -> m (Maybe Window)-getDefaultView self-  = liftIO-      (nullableToMaybe <$> (js_getDefaultView (toDocument self)))- -foreign import javascript unsafe "$1[\"styleSheets\"]"-        js_getStyleSheets :: Document -> IO (Nullable StyleSheetList)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.styleSheets Mozilla Document.styleSheets documentation> -getStyleSheets ::-               (MonadIO m, IsDocument self) => self -> m (Maybe StyleSheetList)-getStyleSheets self-  = liftIO-      (nullableToMaybe <$> (js_getStyleSheets (toDocument self)))- -foreign import javascript unsafe "$1[\"contentType\"]"-        js_getContentType :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.contentType Mozilla Document.contentType documentation> -getContentType ::-               (MonadIO m, IsDocument self, FromJSString result) =>-                 self -> m result-getContentType self-  = liftIO (fromJSString <$> (js_getContentType (toDocument self)))- -foreign import javascript unsafe "$1[\"title\"] = $2;" js_setTitle-        :: Document -> Nullable JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> -setTitle ::-         (MonadIO m, IsDocument self, ToJSString val) =>-           self -> Maybe val -> m ()-setTitle self val-  = liftIO (js_setTitle (toDocument self) (toMaybeJSString val))- -foreign import javascript unsafe "$1[\"title\"]" js_getTitle ::-        Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> -getTitle ::-         (MonadIO m, IsDocument self, FromJSString result) =>-           self -> m (Maybe result)-getTitle self-  = liftIO (fromMaybeJSString <$> (js_getTitle (toDocument self)))- -foreign import javascript unsafe "$1[\"referrer\"]" js_getReferrer-        :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.referrer Mozilla Document.referrer documentation> -getReferrer ::-            (MonadIO m, IsDocument self, FromJSString result) =>-              self -> m result-getReferrer self-  = liftIO (fromJSString <$> (js_getReferrer (toDocument self)))- -foreign import javascript unsafe "$1[\"domain\"] = $2;"-        js_setDomain :: Document -> Nullable JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> -setDomain ::-          (MonadIO m, IsDocument self, ToJSString val) =>-            self -> Maybe val -> m ()-setDomain self val-  = liftIO (js_setDomain (toDocument self) (toMaybeJSString val))- -foreign import javascript unsafe "$1[\"domain\"]" js_getDomain ::-        Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> -getDomain ::-          (MonadIO m, IsDocument self, FromJSString result) =>-            self -> m (Maybe result)-getDomain self-  = liftIO (fromMaybeJSString <$> (js_getDomain (toDocument self)))- -foreign import javascript unsafe "$1[\"URL\"]" js_getURL ::-        Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.URL Mozilla Document.URL documentation> -getURL ::-       (MonadIO m, IsDocument self, FromJSString result) =>-         self -> m result-getURL self-  = liftIO (fromJSString <$> (js_getURL (toDocument self)))- -foreign import javascript unsafe "$1[\"cookie\"] = $2;"-        js_setCookie :: Document -> Nullable JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> -setCookie ::-          (MonadIO m, IsDocument self, ToJSString val) =>-            self -> Maybe val -> m ()-setCookie self val-  = liftIO (js_setCookie (toDocument self) (toMaybeJSString val))- -foreign import javascript unsafe "$1[\"cookie\"]" js_getCookie ::-        Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> -getCookie ::-          (MonadIO m, IsDocument self, FromJSString result) =>-            self -> m (Maybe result)-getCookie self-  = liftIO (fromMaybeJSString <$> (js_getCookie (toDocument self)))- -foreign import javascript unsafe "$1[\"body\"] = $2;" js_setBody ::-        Document -> Nullable HTMLElement -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> -setBody ::-        (MonadIO m, IsDocument self, IsHTMLElement val) =>-          self -> Maybe val -> m ()-setBody self val-  = liftIO-      (js_setBody (toDocument self)-         (maybeToNullable (fmap toHTMLElement val)))- -foreign import javascript unsafe "$1[\"body\"]" js_getBody ::-        Document -> IO (Nullable HTMLElement)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> -getBody ::-        (MonadIO m, IsDocument self) => self -> m (Maybe HTMLElement)-getBody self-  = liftIO (nullableToMaybe <$> (js_getBody (toDocument self)))- -foreign import javascript unsafe "$1[\"head\"]" js_getHead ::-        Document -> IO (Nullable HTMLHeadElement)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> -getHead ::-        (MonadIO m, IsDocument self) => self -> m (Maybe HTMLHeadElement)-getHead self-  = liftIO (nullableToMaybe <$> (js_getHead (toDocument self)))- -foreign import javascript unsafe "$1[\"images\"]" js_getImages ::-        Document -> IO (Nullable HTMLCollection)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.images Mozilla Document.images documentation> -getImages ::-          (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)-getImages self-  = liftIO (nullableToMaybe <$> (js_getImages (toDocument self)))- -foreign import javascript unsafe "$1[\"applets\"]" js_getApplets ::-        Document -> IO (Nullable HTMLCollection)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.applets Mozilla Document.applets documentation> -getApplets ::-           (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)-getApplets self-  = liftIO (nullableToMaybe <$> (js_getApplets (toDocument self)))- -foreign import javascript unsafe "$1[\"links\"]" js_getLinks ::-        Document -> IO (Nullable HTMLCollection)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.links Mozilla Document.links documentation> -getLinks ::-         (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)-getLinks self-  = liftIO (nullableToMaybe <$> (js_getLinks (toDocument self)))- -foreign import javascript unsafe "$1[\"forms\"]" js_getForms ::-        Document -> IO (Nullable HTMLCollection)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.forms Mozilla Document.forms documentation> -getForms ::-         (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)-getForms self-  = liftIO (nullableToMaybe <$> (js_getForms (toDocument self)))- -foreign import javascript unsafe "$1[\"anchors\"]" js_getAnchors ::-        Document -> IO (Nullable HTMLCollection)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.anchors Mozilla Document.anchors documentation> -getAnchors ::-           (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)-getAnchors self-  = liftIO (nullableToMaybe <$> (js_getAnchors (toDocument self)))- -foreign import javascript unsafe "$1[\"lastModified\"]"-        js_getLastModified :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.lastModified Mozilla Document.lastModified documentation> -getLastModified ::-                (MonadIO m, IsDocument self, FromJSString result) =>-                  self -> m result-getLastModified self-  = liftIO (fromJSString <$> (js_getLastModified (toDocument self)))- -foreign import javascript unsafe "$1[\"location\"] = $2;"-        js_setLocation :: Document -> Nullable Location -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> -setLocation ::-            (MonadIO m, IsDocument self) => self -> Maybe Location -> m ()-setLocation self val-  = liftIO (js_setLocation (toDocument self) (maybeToNullable val))- -foreign import javascript unsafe "$1[\"location\"]" js_getLocation-        :: Document -> IO (Nullable Location)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> -getLocation ::-            (MonadIO m, IsDocument self) => self -> m (Maybe Location)-getLocation self-  = liftIO (nullableToMaybe <$> (js_getLocation (toDocument self)))- -foreign import javascript unsafe "$1[\"charset\"] = $2;"-        js_setCharset :: Document -> Nullable JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> -setCharset ::-           (MonadIO m, IsDocument self, ToJSString val) =>-             self -> Maybe val -> m ()-setCharset self val-  = liftIO (js_setCharset (toDocument self) (toMaybeJSString val))- -foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::-        Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> -getCharset ::-           (MonadIO m, IsDocument self, FromJSString result) =>-             self -> m (Maybe result)-getCharset self-  = liftIO (fromMaybeJSString <$> (js_getCharset (toDocument self)))- -foreign import javascript unsafe "$1[\"defaultCharset\"]"-        js_getDefaultCharset :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultCharset Mozilla Document.defaultCharset documentation> -getDefaultCharset ::-                  (MonadIO m, IsDocument self, FromJSString result) =>-                    self -> m (Maybe result)-getDefaultCharset self-  = liftIO-      (fromMaybeJSString <$> (js_getDefaultCharset (toDocument self)))- -foreign import javascript unsafe "$1[\"readyState\"]"-        js_getReadyState :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.readyState Mozilla Document.readyState documentation> -getReadyState ::-              (MonadIO m, IsDocument self, FromJSString result) =>-                self -> m (Maybe result)-getReadyState self-  = liftIO-      (fromMaybeJSString <$> (js_getReadyState (toDocument self)))- -foreign import javascript unsafe "$1[\"characterSet\"]"-        js_getCharacterSet :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.characterSet Mozilla Document.characterSet documentation> -getCharacterSet ::-                (MonadIO m, IsDocument self, FromJSString result) =>-                  self -> m (Maybe result)-getCharacterSet self-  = liftIO-      (fromMaybeJSString <$> (js_getCharacterSet (toDocument self)))- -foreign import javascript unsafe "$1[\"preferredStylesheetSet\"]"-        js_getPreferredStylesheetSet :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> -getPreferredStylesheetSet ::-                          (MonadIO m, IsDocument self, FromJSString result) =>-                            self -> m (Maybe result)-getPreferredStylesheetSet self-  = liftIO-      (fromMaybeJSString <$>-         (js_getPreferredStylesheetSet (toDocument self)))- -foreign import javascript unsafe-        "$1[\"selectedStylesheetSet\"] = $2;" js_setSelectedStylesheetSet-        :: Document -> Nullable JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> -setSelectedStylesheetSet ::-                         (MonadIO m, IsDocument self, ToJSString val) =>-                           self -> Maybe val -> m ()-setSelectedStylesheetSet self val-  = liftIO-      (js_setSelectedStylesheetSet (toDocument self)-         (toMaybeJSString val))- -foreign import javascript unsafe "$1[\"selectedStylesheetSet\"]"-        js_getSelectedStylesheetSet :: Document -> IO (Nullable JSString)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> -getSelectedStylesheetSet ::-                         (MonadIO m, IsDocument self, FromJSString result) =>-                           self -> m (Maybe result)-getSelectedStylesheetSet self-  = liftIO-      (fromMaybeJSString <$>-         (js_getSelectedStylesheetSet (toDocument self)))- -foreign import javascript unsafe "$1[\"activeElement\"]"-        js_getActiveElement :: Document -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.activeElement Mozilla Document.activeElement documentation> -getActiveElement ::-                 (MonadIO m, IsDocument self) => self -> m (Maybe Element)-getActiveElement self-  = liftIO-      (nullableToMaybe <$> (js_getActiveElement (toDocument self)))- -foreign import javascript unsafe "$1[\"compatMode\"]"-        js_getCompatMode :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.compatMode Mozilla Document.compatMode documentation> -getCompatMode ::-              (MonadIO m, IsDocument self, FromJSString result) =>-                self -> m result-getCompatMode self-  = liftIO (fromJSString <$> (js_getCompatMode (toDocument self)))- -foreign import javascript unsafe-        "($1[\"webkitIsFullScreen\"] ? 1 : 0)" js_getWebkitIsFullScreen ::-        Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitIsFullScreen Mozilla Document.webkitIsFullScreen documentation> -getWebkitIsFullScreen ::-                      (MonadIO m, IsDocument self) => self -> m Bool-getWebkitIsFullScreen self-  = liftIO (js_getWebkitIsFullScreen (toDocument self))- -foreign import javascript unsafe-        "($1[\"webkitFullScreenKeyboardInputAllowed\"] ? 1 : 0)"-        js_getWebkitFullScreenKeyboardInputAllowed :: Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullScreenKeyboardInputAllowed Mozilla Document.webkitFullScreenKeyboardInputAllowed documentation> -getWebkitFullScreenKeyboardInputAllowed ::-                                        (MonadIO m, IsDocument self) => self -> m Bool-getWebkitFullScreenKeyboardInputAllowed self-  = liftIO-      (js_getWebkitFullScreenKeyboardInputAllowed (toDocument self))- -foreign import javascript unsafe-        "$1[\"webkitCurrentFullScreenElement\"]"-        js_getWebkitCurrentFullScreenElement ::-        Document -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCurrentFullScreenElement Mozilla Document.webkitCurrentFullScreenElement documentation> -getWebkitCurrentFullScreenElement ::-                                  (MonadIO m, IsDocument self) => self -> m (Maybe Element)-getWebkitCurrentFullScreenElement self-  = liftIO-      (nullableToMaybe <$>-         (js_getWebkitCurrentFullScreenElement (toDocument self)))- -foreign import javascript unsafe-        "($1[\"webkitFullscreenEnabled\"] ? 1 : 0)"-        js_getWebkitFullscreenEnabled :: Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenEnabled Mozilla Document.webkitFullscreenEnabled documentation> -getWebkitFullscreenEnabled ::-                           (MonadIO m, IsDocument self) => self -> m Bool-getWebkitFullscreenEnabled self-  = liftIO (js_getWebkitFullscreenEnabled (toDocument self))- -foreign import javascript unsafe "$1[\"webkitFullscreenElement\"]"-        js_getWebkitFullscreenElement :: Document -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> -getWebkitFullscreenElement ::-                           (MonadIO m, IsDocument self) => self -> m (Maybe Element)-getWebkitFullscreenElement self-  = liftIO-      (nullableToMaybe <$>-         (js_getWebkitFullscreenElement (toDocument self)))- -foreign import javascript unsafe "$1[\"pointerLockElement\"]"-        js_getPointerLockElement :: Document -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.pointerLockElement Mozilla Document.pointerLockElement documentation> -getPointerLockElement ::-                      (MonadIO m, IsDocument self) => self -> m (Maybe Element)-getPointerLockElement self-  = liftIO-      (nullableToMaybe <$> (js_getPointerLockElement (toDocument self)))- -foreign import javascript unsafe "$1[\"fonts\"]" js_getFonts ::-        Document -> IO (Nullable FontLoader)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.fonts Mozilla Document.fonts documentation> -getFonts ::-         (MonadIO m, IsDocument self) => self -> m (Maybe FontLoader)-getFonts self-  = liftIO (nullableToMaybe <$> (js_getFonts (toDocument self)))---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onabort Mozilla Document.onabort documentation> -abort ::-      (IsDocument self, IsEventTarget self) => EventName self UIEvent-abort = unsafeEventName (toJSString "abort")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onblur Mozilla Document.onblur documentation> -blur ::-     (IsDocument self, IsEventTarget self) => EventName self FocusEvent-blur = unsafeEventName (toJSString "blur")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onchange Mozilla Document.onchange documentation> -change ::-       (IsDocument self, IsEventTarget self) => EventName self Event-change = unsafeEventName (toJSString "change")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onclick Mozilla Document.onclick documentation> -click ::-      (IsDocument self, IsEventTarget self) => EventName self MouseEvent-click = unsafeEventName (toJSString "click")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oncontextmenu Mozilla Document.oncontextmenu documentation> -contextMenu ::-            (IsDocument self, IsEventTarget self) => EventName self MouseEvent-contextMenu = unsafeEventName (toJSString "contextmenu")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondblclick Mozilla Document.ondblclick documentation> -dblClick ::-         (IsDocument self, IsEventTarget self) => EventName self MouseEvent-dblClick = unsafeEventName (toJSString "dblclick")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondrag Mozilla Document.ondrag documentation> -drag ::-     (IsDocument self, IsEventTarget self) => EventName self MouseEvent-drag = unsafeEventName (toJSString "drag")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragend Mozilla Document.ondragend documentation> -dragEnd ::-        (IsDocument self, IsEventTarget self) => EventName self MouseEvent-dragEnd = unsafeEventName (toJSString "dragend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragenter Mozilla Document.ondragenter documentation> -dragEnter ::-          (IsDocument self, IsEventTarget self) => EventName self MouseEvent-dragEnter = unsafeEventName (toJSString "dragenter")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragleave Mozilla Document.ondragleave documentation> -dragLeave ::-          (IsDocument self, IsEventTarget self) => EventName self MouseEvent-dragLeave = unsafeEventName (toJSString "dragleave")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragover Mozilla Document.ondragover documentation> -dragOver ::-         (IsDocument self, IsEventTarget self) => EventName self MouseEvent-dragOver = unsafeEventName (toJSString "dragover")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragstart Mozilla Document.ondragstart documentation> -dragStart ::-          (IsDocument self, IsEventTarget self) => EventName self MouseEvent-dragStart = unsafeEventName (toJSString "dragstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondrop Mozilla Document.ondrop documentation> -drop ::-     (IsDocument self, IsEventTarget self) => EventName self MouseEvent-drop = unsafeEventName (toJSString "drop")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onerror Mozilla Document.onerror documentation> -error ::-      (IsDocument self, IsEventTarget self) => EventName self UIEvent-error = unsafeEventName (toJSString "error")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onfocus Mozilla Document.onfocus documentation> -focus ::-      (IsDocument self, IsEventTarget self) => EventName self FocusEvent-focus = unsafeEventName (toJSString "focus")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oninput Mozilla Document.oninput documentation> -input ::-      (IsDocument self, IsEventTarget self) => EventName self Event-input = unsafeEventName (toJSString "input")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oninvalid Mozilla Document.oninvalid documentation> -invalid ::-        (IsDocument self, IsEventTarget self) => EventName self Event-invalid = unsafeEventName (toJSString "invalid")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onkeydown Mozilla Document.onkeydown documentation> -keyDown ::-        (IsDocument self, IsEventTarget self) =>-          EventName self KeyboardEvent-keyDown = unsafeEventName (toJSString "keydown")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onkeypress Mozilla Document.onkeypress documentation> -keyPress ::-         (IsDocument self, IsEventTarget self) =>-           EventName self KeyboardEvent-keyPress = unsafeEventName (toJSString "keypress")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onkeyup Mozilla Document.onkeyup documentation> -keyUp ::-      (IsDocument self, IsEventTarget self) =>-        EventName self KeyboardEvent-keyUp = unsafeEventName (toJSString "keyup")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onload Mozilla Document.onload documentation> -load ::-     (IsDocument self, IsEventTarget self) => EventName self UIEvent-load = unsafeEventName (toJSString "load")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmousedown Mozilla Document.onmousedown documentation> -mouseDown ::-          (IsDocument self, IsEventTarget self) => EventName self MouseEvent-mouseDown = unsafeEventName (toJSString "mousedown")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseenter Mozilla Document.onmouseenter documentation> -mouseEnter ::-           (IsDocument self, IsEventTarget self) => EventName self MouseEvent-mouseEnter = unsafeEventName (toJSString "mouseenter")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseleave Mozilla Document.onmouseleave documentation> -mouseLeave ::-           (IsDocument self, IsEventTarget self) => EventName self MouseEvent-mouseLeave = unsafeEventName (toJSString "mouseleave")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmousemove Mozilla Document.onmousemove documentation> -mouseMove ::-          (IsDocument self, IsEventTarget self) => EventName self MouseEvent-mouseMove = unsafeEventName (toJSString "mousemove")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseout Mozilla Document.onmouseout documentation> -mouseOut ::-         (IsDocument self, IsEventTarget self) => EventName self MouseEvent-mouseOut = unsafeEventName (toJSString "mouseout")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseover Mozilla Document.onmouseover documentation> -mouseOver ::-          (IsDocument self, IsEventTarget self) => EventName self MouseEvent-mouseOver = unsafeEventName (toJSString "mouseover")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseup Mozilla Document.onmouseup documentation> -mouseUp ::-        (IsDocument self, IsEventTarget self) => EventName self MouseEvent-mouseUp = unsafeEventName (toJSString "mouseup")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmousewheel Mozilla Document.onmousewheel documentation> -mouseWheel ::-           (IsDocument self, IsEventTarget self) => EventName self MouseEvent-mouseWheel = unsafeEventName (toJSString "mousewheel")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onreadystatechange Mozilla Document.onreadystatechange documentation> -readyStateChange ::-                 (IsDocument self, IsEventTarget self) => EventName self Event-readyStateChange = unsafeEventName (toJSString "readystatechange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onscroll Mozilla Document.onscroll documentation> -scroll ::-       (IsDocument self, IsEventTarget self) => EventName self UIEvent-scroll = unsafeEventName (toJSString "scroll")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onselect Mozilla Document.onselect documentation> -select ::-       (IsDocument self, IsEventTarget self) => EventName self UIEvent-select = unsafeEventName (toJSString "select")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onsubmit Mozilla Document.onsubmit documentation> -submit ::-       (IsDocument self, IsEventTarget self) => EventName self Event-submit = unsafeEventName (toJSString "submit")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwheel Mozilla Document.onwheel documentation> -wheel ::-      (IsDocument self, IsEventTarget self) => EventName self WheelEvent-wheel = unsafeEventName (toJSString "wheel")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onbeforecut Mozilla Document.onbeforecut documentation> -beforeCut ::-          (IsDocument self, IsEventTarget self) => EventName self Event-beforeCut = unsafeEventName (toJSString "beforecut")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oncut Mozilla Document.oncut documentation> -cut ::-    (IsDocument self, IsEventTarget self) => EventName self Event-cut = unsafeEventName (toJSString "cut")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onbeforecopy Mozilla Document.onbeforecopy documentation> -beforeCopy ::-           (IsDocument self, IsEventTarget self) => EventName self Event-beforeCopy = unsafeEventName (toJSString "beforecopy")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oncopy Mozilla Document.oncopy documentation> -copy ::-     (IsDocument self, IsEventTarget self) => EventName self Event-copy = unsafeEventName (toJSString "copy")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onbeforepaste Mozilla Document.onbeforepaste documentation> -beforePaste ::-            (IsDocument self, IsEventTarget self) => EventName self Event-beforePaste = unsafeEventName (toJSString "beforepaste")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onpaste Mozilla Document.onpaste documentation> -paste ::-      (IsDocument self, IsEventTarget self) => EventName self Event-paste = unsafeEventName (toJSString "paste")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onreset Mozilla Document.onreset documentation> -reset ::-      (IsDocument self, IsEventTarget self) => EventName self Event-reset = unsafeEventName (toJSString "reset")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onsearch Mozilla Document.onsearch documentation> -search ::-       (IsDocument self, IsEventTarget self) => EventName self Event-search = unsafeEventName (toJSString "search")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onselectstart Mozilla Document.onselectstart documentation> -selectStart ::-            (IsDocument self, IsEventTarget self) => EventName self Event-selectStart = unsafeEventName (toJSString "selectstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onselectionchange Mozilla Document.onselectionchange documentation> -selectionchange ::-                (IsDocument self, IsEventTarget self) =>-                  EventName self onselectionchange-selectionchange = unsafeEventName (toJSString "selectionchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ontouchstart Mozilla Document.ontouchstart documentation> -touchStart ::-           (IsDocument self, IsEventTarget self) => EventName self TouchEvent-touchStart = unsafeEventName (toJSString "touchstart")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ontouchmove Mozilla Document.ontouchmove documentation> -touchMove ::-          (IsDocument self, IsEventTarget self) => EventName self TouchEvent-touchMove = unsafeEventName (toJSString "touchmove")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ontouchend Mozilla Document.ontouchend documentation> -touchEnd ::-         (IsDocument self, IsEventTarget self) => EventName self TouchEvent-touchEnd = unsafeEventName (toJSString "touchend")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ontouchcancel Mozilla Document.ontouchcancel documentation> -touchCancel ::-            (IsDocument self, IsEventTarget self) => EventName self TouchEvent-touchCancel = unsafeEventName (toJSString "touchcancel")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitfullscreenchange Mozilla Document.onwebkitfullscreenchange documentation> -webKitFullscreenChange ::-                       (IsDocument self, IsEventTarget self) => EventName self Event-webKitFullscreenChange-  = unsafeEventName (toJSString "webkitfullscreenchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitfullscreenerror Mozilla Document.onwebkitfullscreenerror documentation> -webKitFullscreenError ::-                      (IsDocument self, IsEventTarget self) => EventName self Event-webKitFullscreenError-  = unsafeEventName (toJSString "webkitfullscreenerror")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onpointerlockchange Mozilla Document.onpointerlockchange documentation> -pointerlockchange ::-                  (IsDocument self, IsEventTarget self) => EventName self Event-pointerlockchange-  = unsafeEventName (toJSString "pointerlockchange")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onpointerlockerror Mozilla Document.onpointerlockerror documentation> -pointerlockerror ::-                 (IsDocument self, IsEventTarget self) => EventName self Event-pointerlockerror = unsafeEventName (toJSString "pointerlockerror")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onsecuritypolicyviolation Mozilla Document.onsecuritypolicyviolation documentation> -securitypolicyviolation ::-                        (IsDocument self, IsEventTarget self) =>-                          EventName self onsecuritypolicyviolation-securitypolicyviolation-  = unsafeEventName (toJSString "securitypolicyviolation")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitwillrevealbottom Mozilla Document.onwebkitwillrevealbottom documentation> -webKitWillRevealBottom ::-                       (IsDocument self, IsEventTarget self) => EventName self Event-webKitWillRevealBottom-  = unsafeEventName (toJSString "webkitwillrevealbottom")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitwillrevealleft Mozilla Document.onwebkitwillrevealleft documentation> -webKitWillRevealLeft ::-                     (IsDocument self, IsEventTarget self) => EventName self Event-webKitWillRevealLeft-  = unsafeEventName (toJSString "webkitwillrevealleft")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitwillrevealright Mozilla Document.onwebkitwillrevealright documentation> -webKitWillRevealRight ::-                      (IsDocument self, IsEventTarget self) => EventName self Event-webKitWillRevealRight-  = unsafeEventName (toJSString "webkitwillrevealright")---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitwillrevealtop Mozilla Document.onwebkitwillrevealtop documentation> -webKitWillRevealTop ::-                    (IsDocument self, IsEventTarget self) => EventName self Event-webKitWillRevealTop-  = unsafeEventName (toJSString "webkitwillrevealtop")- -foreign import javascript unsafe "$1[\"visibilityState\"]"-        js_getVisibilityState :: Document -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.visibilityState Mozilla Document.visibilityState documentation> -getVisibilityState ::-                   (MonadIO m, IsDocument self, FromJSString result) =>-                     self -> m result-getVisibilityState self-  = liftIO-      (fromJSString <$> (js_getVisibilityState (toDocument self)))- -foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"-        js_getHidden :: Document -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hidden Mozilla Document.hidden documentation> -getHidden :: (MonadIO m, IsDocument self) => self -> m Bool-getHidden self = liftIO (js_getHidden (toDocument self))- -foreign import javascript unsafe "$1[\"securityPolicy\"]"-        js_getSecurityPolicy :: Document -> IO (Nullable SecurityPolicy)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.securityPolicy Mozilla Document.securityPolicy documentation> -getSecurityPolicy ::-                  (MonadIO m, IsDocument self) => self -> m (Maybe SecurityPolicy)-getSecurityPolicy self-  = liftIO-      (nullableToMaybe <$> (js_getSecurityPolicy (toDocument self)))- -foreign import javascript unsafe "$1[\"currentScript\"]"-        js_getCurrentScript :: Document -> IO (Nullable HTMLScriptElement)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> -getCurrentScript ::-                 (MonadIO m, IsDocument self) => self -> m (Maybe HTMLScriptElement)-getCurrentScript self-  = liftIO-      (nullableToMaybe <$> (js_getCurrentScript (toDocument self)))+        createElement_, createElementUnchecked, js_createDocumentFragment,+        createDocumentFragment, createDocumentFragment_,+        createDocumentFragmentUnchecked, js_createTextNode, createTextNode,+        createTextNode_, createTextNodeUnchecked, js_createComment,+        createComment, createComment_, createCommentUnchecked,+        js_createCDATASection, createCDATASection, createCDATASection_,+        createCDATASectionUnchecked, js_createProcessingInstruction,+        createProcessingInstruction, createProcessingInstruction_,+        createProcessingInstructionUnchecked, js_createAttribute,+        createAttribute, createAttribute_, createAttributeUnchecked,+        js_createEntityReference, createEntityReference,+        createEntityReference_, createEntityReferenceUnchecked,+        js_getElementsByTagName, getElementsByTagName,+        getElementsByTagName_, getElementsByTagNameUnchecked,+        js_importNode, importNode, importNode_, importNodeUnchecked,+        js_createElementNS, createElementNS, createElementNS_,+        createElementNSUnchecked, js_createAttributeNS, createAttributeNS,+        createAttributeNS_, createAttributeNSUnchecked,+        js_getElementsByTagNameNS, getElementsByTagNameNS,+        getElementsByTagNameNS_, getElementsByTagNameNSUnchecked,+        js_getElementById, getElementById, getElementById_,+        getElementByIdUnchecked, js_adoptNode, adoptNode, adoptNode_,+        adoptNodeUnchecked, js_createEvent, createEvent, createEvent_,+        createEventUnchecked, js_createRange, createRange, createRange_,+        createRangeUnchecked, js_createNodeIterator, createNodeIterator,+        createNodeIterator_, createNodeIteratorUnchecked,+        js_createTreeWalker, createTreeWalker, createTreeWalker_,+        createTreeWalkerUnchecked, js_getOverrideStyle, getOverrideStyle,+        getOverrideStyle_, getOverrideStyleUnchecked, js_createExpression,+        createExpression, createExpression_, createExpressionUnchecked,+        js_createNSResolver, createNSResolver, createNSResolver_,+        createNSResolverUnchecked, js_evaluate, evaluate, evaluate_,+        evaluateUnchecked, js_execCommand, execCommand, execCommand_,+        js_queryCommandEnabled, queryCommandEnabled, queryCommandEnabled_,+        js_queryCommandIndeterm, queryCommandIndeterm,+        queryCommandIndeterm_, js_queryCommandState, queryCommandState,+        queryCommandState_, js_queryCommandSupported,+        queryCommandSupported, queryCommandSupported_,+        js_queryCommandValue, queryCommandValue, queryCommandValue_,+        js_getElementsByName, getElementsByName, getElementsByName_,+        getElementsByNameUnchecked, js_elementFromPoint, elementFromPoint,+        elementFromPoint_, elementFromPointUnchecked,+        js_caretRangeFromPoint, caretRangeFromPoint, caretRangeFromPoint_,+        caretRangeFromPointUnchecked, js_getSelection, getSelection,+        getSelection_, getSelectionUnchecked, js_getCSSCanvasContext,+        getCSSCanvasContext, getCSSCanvasContext_,+        getCSSCanvasContextUnchecked, js_getElementsByClassName,+        getElementsByClassName, getElementsByClassName_,+        getElementsByClassNameUnchecked, js_hasFocus, hasFocus, hasFocus_,+        js_querySelector, querySelector, querySelector_,+        querySelectorUnchecked, js_querySelectorAll, querySelectorAll,+        querySelectorAll_, querySelectorAllUnchecked,+        js_webkitCancelFullScreen, webkitCancelFullScreen,+        js_webkitExitFullscreen, webkitExitFullscreen, js_exitPointerLock,+        exitPointerLock, js_webkitGetNamedFlows, webkitGetNamedFlows,+        webkitGetNamedFlows_, webkitGetNamedFlowsUnchecked, js_createTouch,+        createTouch, createTouch_, createTouchUnchecked,+        js_createTouchList, createTouchList, createTouchList_,+        createTouchListUnchecked, js_getDoctype, getDoctype,+        getDoctypeUnchecked, js_getImplementation, getImplementation,+        getImplementationUnchecked, js_getDocumentElement,+        getDocumentElement, getDocumentElementUnchecked,+        js_getInputEncoding, getInputEncoding, getInputEncodingUnchecked,+        js_getXmlEncoding, getXmlEncoding, getXmlEncodingUnchecked,+        js_setXmlVersion, setXmlVersion, js_getXmlVersion, getXmlVersion,+        getXmlVersionUnchecked, js_setXmlStandalone, setXmlStandalone,+        js_getXmlStandalone, getXmlStandalone, js_getDocumentURI,+        getDocumentURI, getDocumentURIUnchecked, js_getDefaultView,+        getDefaultView, getDefaultViewUnchecked, js_getStyleSheets,+        getStyleSheets, getStyleSheetsUnchecked, js_getContentType,+        getContentType, js_setTitle, setTitle, js_getTitle, getTitle,+        getTitleUnchecked, js_getReferrer, getReferrer, js_setDomain,+        setDomain, js_getDomain, getDomain, getDomainUnchecked, js_getURL,+        getURL, js_setCookie, setCookie, js_getCookie, getCookie,+        getCookieUnchecked, js_setBody, setBody, js_getBody, getBody,+        getBodyUnchecked, js_getHead, getHead, getHeadUnchecked,+        js_getImages, getImages, getImagesUnchecked, js_getApplets,+        getApplets, getAppletsUnchecked, js_getLinks, getLinks,+        getLinksUnchecked, js_getForms, getForms, getFormsUnchecked,+        js_getAnchors, getAnchors, getAnchorsUnchecked, js_getLastModified,+        getLastModified, js_setLocation, setLocation, js_getLocation,+        getLocation, getLocationUnchecked, js_setCharset, setCharset,+        js_getCharset, getCharset, getCharsetUnchecked,+        js_getDefaultCharset, getDefaultCharset,+        getDefaultCharsetUnchecked, js_getReadyState, getReadyState,+        getReadyStateUnchecked, js_getCharacterSet, getCharacterSet,+        getCharacterSetUnchecked, js_getPreferredStylesheetSet,+        getPreferredStylesheetSet, getPreferredStylesheetSetUnchecked,+        js_setSelectedStylesheetSet, setSelectedStylesheetSet,+        js_getSelectedStylesheetSet, getSelectedStylesheetSet,+        getSelectedStylesheetSetUnchecked, js_getActiveElement,+        getActiveElement, getActiveElementUnchecked, js_getCompatMode,+        getCompatMode, js_getWebkitIsFullScreen, getWebkitIsFullScreen,+        js_getWebkitFullScreenKeyboardInputAllowed,+        getWebkitFullScreenKeyboardInputAllowed,+        js_getWebkitCurrentFullScreenElement,+        getWebkitCurrentFullScreenElement,+        getWebkitCurrentFullScreenElementUnchecked,+        js_getWebkitFullscreenEnabled, getWebkitFullscreenEnabled,+        js_getWebkitFullscreenElement, getWebkitFullscreenElement,+        getWebkitFullscreenElementUnchecked, js_getPointerLockElement,+        getPointerLockElement, getPointerLockElementUnchecked, js_getFonts,+        getFonts, getFontsUnchecked, abort, blur, change, click,+        contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave,+        dragOver, dragStart, drop, error, focus, input, invalid, keyDown,+        keyPress, keyUp, load, mouseDown, mouseEnter, mouseLeave,+        mouseMove, mouseOut, mouseOver, mouseUp, mouseWheel,+        readyStateChange, scroll, select, submit, wheel, beforeCut, cut,+        beforeCopy, copy, beforePaste, paste, reset, search, selectStart,+        selectionchange, touchStart, touchMove, touchEnd, touchCancel,+        webKitFullscreenChange, webKitFullscreenError, pointerlockchange,+        pointerlockerror, securitypolicyviolation, webKitWillRevealBottom,+        webKitWillRevealLeft, webKitWillRevealRight, webKitWillRevealTop,+        js_getVisibilityState, getVisibilityState, js_getHidden, getHidden,+        js_getSecurityPolicy, getSecurityPolicy,+        getSecurityPolicyUnchecked, js_getCurrentScript, getCurrentScript,+        getCurrentScriptUnchecked, js_getOrigin, getOrigin, Document,+        castToDocument, gTypeDocument, IsDocument, toDocument)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+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+ +foreign import javascript unsafe "new window[\"Document\"]()"+        js_newDocument :: IO Document++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document Mozilla Document documentation> +newDocument :: (MonadIO m) => m Document+newDocument = liftIO (js_newDocument)+ +foreign import javascript unsafe "$1[\"createElement\"]($2)"+        js_createElement ::+        Document -> Nullable JSString -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation> +createElement ::+              (MonadIO m, IsDocument self, ToJSString tagName) =>+                self -> Maybe tagName -> m (Maybe Element)+createElement self tagName+  = liftIO+      (nullableToMaybe <$>+         (js_createElement (toDocument self) (toMaybeJSString tagName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation> +createElement_ ::+               (MonadIO m, IsDocument self, ToJSString tagName) =>+                 self -> Maybe tagName -> m ()+createElement_ self tagName+  = liftIO+      (void+         (js_createElement (toDocument self) (toMaybeJSString tagName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation> +createElementUnchecked ::+                       (MonadIO m, IsDocument self, ToJSString tagName) =>+                         self -> Maybe tagName -> m Element+createElementUnchecked self tagName+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createElement (toDocument self) (toMaybeJSString tagName)))+ +foreign import javascript unsafe "$1[\"createDocumentFragment\"]()"+        js_createDocumentFragment ::+        Document -> IO (Nullable DocumentFragment)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> +createDocumentFragment ::+                       (MonadIO m, IsDocument self) => self -> m (Maybe DocumentFragment)+createDocumentFragment self+  = liftIO+      (nullableToMaybe <$> (js_createDocumentFragment (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> +createDocumentFragment_ ::+                        (MonadIO m, IsDocument self) => self -> m ()+createDocumentFragment_ self+  = liftIO (void (js_createDocumentFragment (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation> +createDocumentFragmentUnchecked ::+                                (MonadIO m, IsDocument self) => self -> m DocumentFragment+createDocumentFragmentUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createDocumentFragment (toDocument self)))+ +foreign import javascript unsafe "$1[\"createTextNode\"]($2)"+        js_createTextNode :: Document -> JSString -> IO (Nullable Text)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> +createTextNode ::+               (MonadIO m, IsDocument self, ToJSString data') =>+                 self -> data' -> m (Maybe Text)+createTextNode self data'+  = liftIO+      (nullableToMaybe <$>+         (js_createTextNode (toDocument self) (toJSString data')))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> +createTextNode_ ::+                (MonadIO m, IsDocument self, ToJSString data') =>+                  self -> data' -> m ()+createTextNode_ self data'+  = liftIO+      (void (js_createTextNode (toDocument self) (toJSString data')))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation> +createTextNodeUnchecked ::+                        (MonadIO m, IsDocument self, ToJSString data') =>+                          self -> data' -> m Text+createTextNodeUnchecked self data'+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createTextNode (toDocument self) (toJSString data')))+ +foreign import javascript unsafe "$1[\"createComment\"]($2)"+        js_createComment :: Document -> JSString -> IO (Nullable Comment)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> +createComment ::+              (MonadIO m, IsDocument self, ToJSString data') =>+                self -> data' -> m (Maybe Comment)+createComment self data'+  = liftIO+      (nullableToMaybe <$>+         (js_createComment (toDocument self) (toJSString data')))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> +createComment_ ::+               (MonadIO m, IsDocument self, ToJSString data') =>+                 self -> data' -> m ()+createComment_ self data'+  = liftIO+      (void (js_createComment (toDocument self) (toJSString data')))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation> +createCommentUnchecked ::+                       (MonadIO m, IsDocument self, ToJSString data') =>+                         self -> data' -> m Comment+createCommentUnchecked self data'+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createComment (toDocument self) (toJSString data')))+ +foreign import javascript unsafe "$1[\"createCDATASection\"]($2)"+        js_createCDATASection ::+        Document -> JSString -> IO (Nullable CDATASection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> +createCDATASection ::+                   (MonadIO m, IsDocument self, ToJSString data') =>+                     self -> data' -> m (Maybe CDATASection)+createCDATASection self data'+  = liftIO+      (nullableToMaybe <$>+         (js_createCDATASection (toDocument self) (toJSString data')))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> +createCDATASection_ ::+                    (MonadIO m, IsDocument self, ToJSString data') =>+                      self -> data' -> m ()+createCDATASection_ self data'+  = liftIO+      (void (js_createCDATASection (toDocument self) (toJSString data')))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation> +createCDATASectionUnchecked ::+                            (MonadIO m, IsDocument self, ToJSString data') =>+                              self -> data' -> m CDATASection+createCDATASectionUnchecked self data'+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createCDATASection (toDocument self) (toJSString data')))+ +foreign import javascript unsafe+        "$1[\"createProcessingInstruction\"]($2,\n$3)"+        js_createProcessingInstruction ::+        Document ->+          JSString -> JSString -> IO (Nullable ProcessingInstruction)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> +createProcessingInstruction ::+                            (MonadIO m, IsDocument self, ToJSString target,+                             ToJSString data') =>+                              self -> target -> data' -> m (Maybe ProcessingInstruction)+createProcessingInstruction self target data'+  = liftIO+      (nullableToMaybe <$>+         (js_createProcessingInstruction (toDocument self)+            (toJSString target)+            (toJSString data')))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> +createProcessingInstruction_ ::+                             (MonadIO m, IsDocument self, ToJSString target,+                              ToJSString data') =>+                               self -> target -> data' -> m ()+createProcessingInstruction_ self target data'+  = liftIO+      (void+         (js_createProcessingInstruction (toDocument self)+            (toJSString target)+            (toJSString data')))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation> +createProcessingInstructionUnchecked ::+                                     (MonadIO m, IsDocument self, ToJSString target,+                                      ToJSString data') =>+                                       self -> target -> data' -> m ProcessingInstruction+createProcessingInstructionUnchecked self target data'+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createProcessingInstruction (toDocument self)+            (toJSString target)+            (toJSString data')))+ +foreign import javascript unsafe "$1[\"createAttribute\"]($2)"+        js_createAttribute :: Document -> JSString -> IO (Nullable Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation> +createAttribute ::+                (MonadIO m, IsDocument self, ToJSString name) =>+                  self -> name -> m (Maybe Attr)+createAttribute self name+  = liftIO+      (nullableToMaybe <$>+         (js_createAttribute (toDocument self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation> +createAttribute_ ::+                 (MonadIO m, IsDocument self, ToJSString name) =>+                   self -> name -> m ()+createAttribute_ self name+  = liftIO+      (void (js_createAttribute (toDocument self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation> +createAttributeUnchecked ::+                         (MonadIO m, IsDocument self, ToJSString name) =>+                           self -> name -> m Attr+createAttributeUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createAttribute (toDocument self) (toJSString name)))+ +foreign import javascript unsafe+        "$1[\"createEntityReference\"]($2)" js_createEntityReference ::+        Document -> JSString -> IO (Nullable EntityReference)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEntityReference Mozilla Document.createEntityReference documentation> +createEntityReference ::+                      (MonadIO m, IsDocument self, ToJSString name) =>+                        self -> name -> m (Maybe EntityReference)+createEntityReference self name+  = liftIO+      (nullableToMaybe <$>+         (js_createEntityReference (toDocument self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEntityReference Mozilla Document.createEntityReference documentation> +createEntityReference_ ::+                       (MonadIO m, IsDocument self, ToJSString name) =>+                         self -> name -> m ()+createEntityReference_ self name+  = liftIO+      (void+         (js_createEntityReference (toDocument self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEntityReference Mozilla Document.createEntityReference documentation> +createEntityReferenceUnchecked ::+                               (MonadIO m, IsDocument self, ToJSString name) =>+                                 self -> name -> m EntityReference+createEntityReferenceUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createEntityReference (toDocument self) (toJSString name)))+ +foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"+        js_getElementsByTagName ::+        Document -> JSString -> IO (Nullable NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation> +getElementsByTagName ::+                     (MonadIO m, IsDocument self, ToJSString tagname) =>+                       self -> tagname -> m (Maybe NodeList)+getElementsByTagName self tagname+  = liftIO+      (nullableToMaybe <$>+         (js_getElementsByTagName (toDocument self) (toJSString tagname)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation> +getElementsByTagName_ ::+                      (MonadIO m, IsDocument self, ToJSString tagname) =>+                        self -> tagname -> m ()+getElementsByTagName_ self tagname+  = liftIO+      (void+         (js_getElementsByTagName (toDocument self) (toJSString tagname)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation> +getElementsByTagNameUnchecked ::+                              (MonadIO m, IsDocument self, ToJSString tagname) =>+                                self -> tagname -> m NodeList+getElementsByTagNameUnchecked self tagname+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getElementsByTagName (toDocument self) (toJSString tagname)))+ +foreign import javascript unsafe "$1[\"importNode\"]($2, $3)"+        js_importNode ::+        Document -> Nullable Node -> Bool -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation> +importNode ::+           (MonadIO m, IsDocument self, IsNode importedNode) =>+             self -> Maybe importedNode -> Bool -> m (Maybe Node)+importNode self importedNode deep+  = liftIO+      (nullableToMaybe <$>+         (js_importNode (toDocument self)+            (maybeToNullable (fmap toNode importedNode))+            deep))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation> +importNode_ ::+            (MonadIO m, IsDocument self, IsNode importedNode) =>+              self -> Maybe importedNode -> Bool -> m ()+importNode_ self importedNode deep+  = liftIO+      (void+         (js_importNode (toDocument self)+            (maybeToNullable (fmap toNode importedNode))+            deep))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation> +importNodeUnchecked ::+                    (MonadIO m, IsDocument self, IsNode importedNode) =>+                      self -> Maybe importedNode -> Bool -> m Node+importNodeUnchecked self importedNode deep+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_importNode (toDocument self)+            (maybeToNullable (fmap toNode importedNode))+            deep))+ +foreign import javascript unsafe "$1[\"createElementNS\"]($2, $3)"+        js_createElementNS ::+        Document ->+          Nullable JSString -> Nullable JSString -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation> +createElementNS ::+                (MonadIO m, IsDocument self, ToJSString namespaceURI,+                 ToJSString qualifiedName) =>+                  self ->+                    Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Element)+createElementNS self namespaceURI qualifiedName+  = liftIO+      (nullableToMaybe <$>+         (js_createElementNS (toDocument self)+            (toMaybeJSString namespaceURI)+            (toMaybeJSString qualifiedName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation> +createElementNS_ ::+                 (MonadIO m, IsDocument self, ToJSString namespaceURI,+                  ToJSString qualifiedName) =>+                   self -> Maybe namespaceURI -> Maybe qualifiedName -> m ()+createElementNS_ self namespaceURI qualifiedName+  = liftIO+      (void+         (js_createElementNS (toDocument self)+            (toMaybeJSString namespaceURI)+            (toMaybeJSString qualifiedName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation> +createElementNSUnchecked ::+                         (MonadIO m, IsDocument self, ToJSString namespaceURI,+                          ToJSString qualifiedName) =>+                           self -> Maybe namespaceURI -> Maybe qualifiedName -> m Element+createElementNSUnchecked self namespaceURI qualifiedName+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createElementNS (toDocument self)+            (toMaybeJSString namespaceURI)+            (toMaybeJSString qualifiedName)))+ +foreign import javascript unsafe+        "$1[\"createAttributeNS\"]($2, $3)" js_createAttributeNS ::+        Document ->+          Nullable JSString -> Nullable JSString -> IO (Nullable Attr)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation> +createAttributeNS ::+                  (MonadIO m, IsDocument self, ToJSString namespaceURI,+                   ToJSString qualifiedName) =>+                    self -> Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Attr)+createAttributeNS self namespaceURI qualifiedName+  = liftIO+      (nullableToMaybe <$>+         (js_createAttributeNS (toDocument self)+            (toMaybeJSString namespaceURI)+            (toMaybeJSString qualifiedName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation> +createAttributeNS_ ::+                   (MonadIO m, IsDocument self, ToJSString namespaceURI,+                    ToJSString qualifiedName) =>+                     self -> Maybe namespaceURI -> Maybe qualifiedName -> m ()+createAttributeNS_ self namespaceURI qualifiedName+  = liftIO+      (void+         (js_createAttributeNS (toDocument self)+            (toMaybeJSString namespaceURI)+            (toMaybeJSString qualifiedName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation> +createAttributeNSUnchecked ::+                           (MonadIO m, IsDocument self, ToJSString namespaceURI,+                            ToJSString qualifiedName) =>+                             self -> Maybe namespaceURI -> Maybe qualifiedName -> m Attr+createAttributeNSUnchecked self namespaceURI qualifiedName+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createAttributeNS (toDocument self)+            (toMaybeJSString namespaceURI)+            (toMaybeJSString qualifiedName)))+ +foreign import javascript unsafe+        "$1[\"getElementsByTagNameNS\"]($2,\n$3)" js_getElementsByTagNameNS+        ::+        Document -> Nullable JSString -> JSString -> IO (Nullable NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> +getElementsByTagNameNS ::+                       (MonadIO m, IsDocument self, ToJSString namespaceURI,+                        ToJSString localName) =>+                         self -> Maybe namespaceURI -> localName -> m (Maybe NodeList)+getElementsByTagNameNS self namespaceURI localName+  = liftIO+      (nullableToMaybe <$>+         (js_getElementsByTagNameNS (toDocument self)+            (toMaybeJSString namespaceURI)+            (toJSString localName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> +getElementsByTagNameNS_ ::+                        (MonadIO m, IsDocument self, ToJSString namespaceURI,+                         ToJSString localName) =>+                          self -> Maybe namespaceURI -> localName -> m ()+getElementsByTagNameNS_ self namespaceURI localName+  = liftIO+      (void+         (js_getElementsByTagNameNS (toDocument self)+            (toMaybeJSString namespaceURI)+            (toJSString localName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation> +getElementsByTagNameNSUnchecked ::+                                (MonadIO m, IsDocument self, ToJSString namespaceURI,+                                 ToJSString localName) =>+                                  self -> Maybe namespaceURI -> localName -> m NodeList+getElementsByTagNameNSUnchecked self namespaceURI localName+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getElementsByTagNameNS (toDocument self)+            (toMaybeJSString namespaceURI)+            (toJSString localName)))+ +foreign import javascript unsafe "$1[\"getElementById\"]($2)"+        js_getElementById :: Document -> JSString -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementById Mozilla Document.getElementById documentation> +getElementById ::+               (MonadIO m, IsDocument self, ToJSString elementId) =>+                 self -> elementId -> m (Maybe Element)+getElementById self elementId+  = liftIO+      (nullableToMaybe <$>+         (js_getElementById (toDocument self) (toJSString elementId)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementById Mozilla Document.getElementById documentation> +getElementById_ ::+                (MonadIO m, IsDocument self, ToJSString elementId) =>+                  self -> elementId -> m ()+getElementById_ self elementId+  = liftIO+      (void (js_getElementById (toDocument self) (toJSString elementId)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementById Mozilla Document.getElementById documentation> +getElementByIdUnchecked ::+                        (MonadIO m, IsDocument self, ToJSString elementId) =>+                          self -> elementId -> m Element+getElementByIdUnchecked self elementId+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getElementById (toDocument self) (toJSString elementId)))+ +foreign import javascript unsafe "$1[\"adoptNode\"]($2)"+        js_adoptNode :: Document -> Nullable Node -> IO (Nullable Node)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation> +adoptNode ::+          (MonadIO m, IsDocument self, IsNode source) =>+            self -> Maybe source -> m (Maybe Node)+adoptNode self source+  = liftIO+      (nullableToMaybe <$>+         (js_adoptNode (toDocument self)+            (maybeToNullable (fmap toNode source))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation> +adoptNode_ ::+           (MonadIO m, IsDocument self, IsNode source) =>+             self -> Maybe source -> m ()+adoptNode_ self source+  = liftIO+      (void+         (js_adoptNode (toDocument self)+            (maybeToNullable (fmap toNode source))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation> +adoptNodeUnchecked ::+                   (MonadIO m, IsDocument self, IsNode source) =>+                     self -> Maybe source -> m Node+adoptNodeUnchecked self source+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_adoptNode (toDocument self)+            (maybeToNullable (fmap toNode source))))+ +foreign import javascript unsafe "$1[\"createEvent\"]($2)"+        js_createEvent :: Document -> JSString -> IO (Nullable Event)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation> +createEvent ::+            (MonadIO m, IsDocument self, ToJSString eventType) =>+              self -> eventType -> m (Maybe Event)+createEvent self eventType+  = liftIO+      (nullableToMaybe <$>+         (js_createEvent (toDocument self) (toJSString eventType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation> +createEvent_ ::+             (MonadIO m, IsDocument self, ToJSString eventType) =>+               self -> eventType -> m ()+createEvent_ self eventType+  = liftIO+      (void (js_createEvent (toDocument self) (toJSString eventType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation> +createEventUnchecked ::+                     (MonadIO m, IsDocument self, ToJSString eventType) =>+                       self -> eventType -> m Event+createEventUnchecked self eventType+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createEvent (toDocument self) (toJSString eventType)))+ +foreign import javascript unsafe "$1[\"createRange\"]()"+        js_createRange :: Document -> IO (Nullable Range)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> +createRange ::+            (MonadIO m, IsDocument self) => self -> m (Maybe Range)+createRange self+  = liftIO (nullableToMaybe <$> (js_createRange (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> +createRange_ :: (MonadIO m, IsDocument self) => self -> m ()+createRange_ self+  = liftIO (void (js_createRange (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation> +createRangeUnchecked ::+                     (MonadIO m, IsDocument self) => self -> m Range+createRangeUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_createRange (toDocument self)))+ +foreign import javascript unsafe+        "$1[\"createNodeIterator\"]($2, $3,\n$4, $5)" js_createNodeIterator+        ::+        Document ->+          Nullable Node ->+            Word -> Nullable NodeFilter -> Bool -> IO (Nullable NodeIterator)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation> +createNodeIterator ::+                   (MonadIO m, IsDocument self, IsNode root) =>+                     self ->+                       Maybe root ->+                         Word -> Maybe NodeFilter -> Bool -> m (Maybe NodeIterator)+createNodeIterator self root whatToShow filter+  expandEntityReferences+  = liftIO+      (nullableToMaybe <$>+         (js_createNodeIterator (toDocument self)+            (maybeToNullable (fmap toNode root))+            whatToShow+            (maybeToNullable filter)+            expandEntityReferences))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation> +createNodeIterator_ ::+                    (MonadIO m, IsDocument self, IsNode root) =>+                      self -> Maybe root -> Word -> Maybe NodeFilter -> Bool -> m ()+createNodeIterator_ self root whatToShow filter+  expandEntityReferences+  = liftIO+      (void+         (js_createNodeIterator (toDocument self)+            (maybeToNullable (fmap toNode root))+            whatToShow+            (maybeToNullable filter)+            expandEntityReferences))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation> +createNodeIteratorUnchecked ::+                            (MonadIO m, IsDocument self, IsNode root) =>+                              self ->+                                Maybe root -> Word -> Maybe NodeFilter -> Bool -> m NodeIterator+createNodeIteratorUnchecked self root whatToShow filter+  expandEntityReferences+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createNodeIterator (toDocument self)+            (maybeToNullable (fmap toNode root))+            whatToShow+            (maybeToNullable filter)+            expandEntityReferences))+ +foreign import javascript unsafe+        "$1[\"createTreeWalker\"]($2, $3,\n$4, $5)" js_createTreeWalker ::+        Document ->+          Nullable Node ->+            Word -> Nullable NodeFilter -> Bool -> IO (Nullable TreeWalker)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation> +createTreeWalker ::+                 (MonadIO m, IsDocument self, IsNode root) =>+                   self ->+                     Maybe root ->+                       Word -> Maybe NodeFilter -> Bool -> m (Maybe TreeWalker)+createTreeWalker self root whatToShow filter expandEntityReferences+  = liftIO+      (nullableToMaybe <$>+         (js_createTreeWalker (toDocument self)+            (maybeToNullable (fmap toNode root))+            whatToShow+            (maybeToNullable filter)+            expandEntityReferences))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation> +createTreeWalker_ ::+                  (MonadIO m, IsDocument self, IsNode root) =>+                    self -> Maybe root -> Word -> Maybe NodeFilter -> Bool -> m ()+createTreeWalker_ self root whatToShow filter+  expandEntityReferences+  = liftIO+      (void+         (js_createTreeWalker (toDocument self)+            (maybeToNullable (fmap toNode root))+            whatToShow+            (maybeToNullable filter)+            expandEntityReferences))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation> +createTreeWalkerUnchecked ::+                          (MonadIO m, IsDocument self, IsNode root) =>+                            self ->+                              Maybe root -> Word -> Maybe NodeFilter -> Bool -> m TreeWalker+createTreeWalkerUnchecked self root whatToShow filter+  expandEntityReferences+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createTreeWalker (toDocument self)+            (maybeToNullable (fmap toNode root))+            whatToShow+            (maybeToNullable filter)+            expandEntityReferences))+ +foreign import javascript unsafe "$1[\"getOverrideStyle\"]($2, $3)"+        js_getOverrideStyle ::+        Document ->+          Nullable Element -> JSString -> IO (Nullable CSSStyleDeclaration)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation> +getOverrideStyle ::+                 (MonadIO m, IsDocument self, IsElement element,+                  ToJSString pseudoElement) =>+                   self ->+                     Maybe element -> pseudoElement -> m (Maybe CSSStyleDeclaration)+getOverrideStyle self element pseudoElement+  = liftIO+      (nullableToMaybe <$>+         (js_getOverrideStyle (toDocument self)+            (maybeToNullable (fmap toElement element))+            (toJSString pseudoElement)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation> +getOverrideStyle_ ::+                  (MonadIO m, IsDocument self, IsElement element,+                   ToJSString pseudoElement) =>+                    self -> Maybe element -> pseudoElement -> m ()+getOverrideStyle_ self element pseudoElement+  = liftIO+      (void+         (js_getOverrideStyle (toDocument self)+            (maybeToNullable (fmap toElement element))+            (toJSString pseudoElement)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation> +getOverrideStyleUnchecked ::+                          (MonadIO m, IsDocument self, IsElement element,+                           ToJSString pseudoElement) =>+                            self -> Maybe element -> pseudoElement -> m CSSStyleDeclaration+getOverrideStyleUnchecked self element pseudoElement+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getOverrideStyle (toDocument self)+            (maybeToNullable (fmap toElement element))+            (toJSString pseudoElement)))+ +foreign import javascript unsafe "$1[\"createExpression\"]($2, $3)"+        js_createExpression ::+        Document ->+          JSString ->+            Nullable XPathNSResolver -> IO (Nullable XPathExpression)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation> +createExpression ::+                 (MonadIO m, IsDocument self, ToJSString expression) =>+                   self ->+                     expression -> Maybe XPathNSResolver -> m (Maybe XPathExpression)+createExpression self expression resolver+  = liftIO+      (nullableToMaybe <$>+         (js_createExpression (toDocument self) (toJSString expression)+            (maybeToNullable resolver)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation> +createExpression_ ::+                  (MonadIO m, IsDocument self, ToJSString expression) =>+                    self -> expression -> Maybe XPathNSResolver -> m ()+createExpression_ self expression resolver+  = liftIO+      (void+         (js_createExpression (toDocument self) (toJSString expression)+            (maybeToNullable resolver)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation> +createExpressionUnchecked ::+                          (MonadIO m, IsDocument self, ToJSString expression) =>+                            self -> expression -> Maybe XPathNSResolver -> m XPathExpression+createExpressionUnchecked self expression resolver+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createExpression (toDocument self) (toJSString expression)+            (maybeToNullable resolver)))+ +foreign import javascript unsafe "$1[\"createNSResolver\"]($2)"+        js_createNSResolver ::+        Document -> Nullable Node -> IO (Nullable XPathNSResolver)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> +createNSResolver ::+                 (MonadIO m, IsDocument self, IsNode nodeResolver) =>+                   self -> Maybe nodeResolver -> m (Maybe XPathNSResolver)+createNSResolver self nodeResolver+  = liftIO+      (nullableToMaybe <$>+         (js_createNSResolver (toDocument self)+            (maybeToNullable (fmap toNode nodeResolver))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> +createNSResolver_ ::+                  (MonadIO m, IsDocument self, IsNode nodeResolver) =>+                    self -> Maybe nodeResolver -> m ()+createNSResolver_ self nodeResolver+  = liftIO+      (void+         (js_createNSResolver (toDocument self)+            (maybeToNullable (fmap toNode nodeResolver))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation> +createNSResolverUnchecked ::+                          (MonadIO m, IsDocument self, IsNode nodeResolver) =>+                            self -> Maybe nodeResolver -> m XPathNSResolver+createNSResolverUnchecked self nodeResolver+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createNSResolver (toDocument self)+            (maybeToNullable (fmap toNode nodeResolver))))+ +foreign import javascript unsafe+        "$1[\"evaluate\"]($2, $3, $4, $5,\n$6)" js_evaluate ::+        Document ->+          JSString ->+            Nullable Node ->+              Nullable XPathNSResolver ->+                Word -> Nullable XPathResult -> IO (Nullable XPathResult)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation> +evaluate ::+         (MonadIO m, IsDocument self, ToJSString expression,+          IsNode contextNode) =>+           self ->+             expression ->+               Maybe contextNode ->+                 Maybe XPathNSResolver ->+                   Word -> Maybe XPathResult -> m (Maybe XPathResult)+evaluate self expression contextNode resolver type' inResult+  = liftIO+      (nullableToMaybe <$>+         (js_evaluate (toDocument self) (toJSString expression)+            (maybeToNullable (fmap toNode contextNode))+            (maybeToNullable resolver)+            type'+            (maybeToNullable inResult)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation> +evaluate_ ::+          (MonadIO m, IsDocument self, ToJSString expression,+           IsNode contextNode) =>+            self ->+              expression ->+                Maybe contextNode ->+                  Maybe XPathNSResolver -> Word -> Maybe XPathResult -> m ()+evaluate_ self expression contextNode resolver type' inResult+  = liftIO+      (void+         (js_evaluate (toDocument self) (toJSString expression)+            (maybeToNullable (fmap toNode contextNode))+            (maybeToNullable resolver)+            type'+            (maybeToNullable inResult)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation> +evaluateUnchecked ::+                  (MonadIO m, IsDocument self, ToJSString expression,+                   IsNode contextNode) =>+                    self ->+                      expression ->+                        Maybe contextNode ->+                          Maybe XPathNSResolver -> Word -> Maybe XPathResult -> m XPathResult+evaluateUnchecked self expression contextNode resolver type'+  inResult+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_evaluate (toDocument self) (toJSString expression)+            (maybeToNullable (fmap toNode contextNode))+            (maybeToNullable resolver)+            type'+            (maybeToNullable inResult)))+ +foreign import javascript unsafe+        "($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0)" js_execCommand ::+        Document -> JSString -> Bool -> Nullable JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.execCommand Mozilla Document.execCommand documentation> +execCommand ::+            (MonadIO m, IsDocument self, ToJSString command,+             ToJSString value) =>+              self -> command -> Bool -> Maybe value -> m Bool+execCommand self command userInterface value+  = liftIO+      (js_execCommand (toDocument self) (toJSString command)+         userInterface+         (toMaybeJSString value))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.execCommand Mozilla Document.execCommand documentation> +execCommand_ ::+             (MonadIO m, IsDocument self, ToJSString command,+              ToJSString value) =>+               self -> command -> Bool -> Maybe value -> m ()+execCommand_ self command userInterface value+  = liftIO+      (void+         (js_execCommand (toDocument self) (toJSString command)+            userInterface+            (toMaybeJSString value)))+ +foreign import javascript unsafe+        "($1[\"queryCommandEnabled\"]($2) ? 1 : 0)" js_queryCommandEnabled+        :: Document -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandEnabled Mozilla Document.queryCommandEnabled documentation> +queryCommandEnabled ::+                    (MonadIO m, IsDocument self, ToJSString command) =>+                      self -> command -> m Bool+queryCommandEnabled self command+  = liftIO+      (js_queryCommandEnabled (toDocument self) (toJSString command))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandEnabled Mozilla Document.queryCommandEnabled documentation> +queryCommandEnabled_ ::+                     (MonadIO m, IsDocument self, ToJSString command) =>+                       self -> command -> m ()+queryCommandEnabled_ self command+  = liftIO+      (void+         (js_queryCommandEnabled (toDocument self) (toJSString command)))+ +foreign import javascript unsafe+        "($1[\"queryCommandIndeterm\"]($2) ? 1 : 0)"+        js_queryCommandIndeterm :: Document -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandIndeterm Mozilla Document.queryCommandIndeterm documentation> +queryCommandIndeterm ::+                     (MonadIO m, IsDocument self, ToJSString command) =>+                       self -> command -> m Bool+queryCommandIndeterm self command+  = liftIO+      (js_queryCommandIndeterm (toDocument self) (toJSString command))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandIndeterm Mozilla Document.queryCommandIndeterm documentation> +queryCommandIndeterm_ ::+                      (MonadIO m, IsDocument self, ToJSString command) =>+                        self -> command -> m ()+queryCommandIndeterm_ self command+  = liftIO+      (void+         (js_queryCommandIndeterm (toDocument self) (toJSString command)))+ +foreign import javascript unsafe+        "($1[\"queryCommandState\"]($2) ? 1 : 0)" js_queryCommandState ::+        Document -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandState Mozilla Document.queryCommandState documentation> +queryCommandState ::+                  (MonadIO m, IsDocument self, ToJSString command) =>+                    self -> command -> m Bool+queryCommandState self command+  = liftIO+      (js_queryCommandState (toDocument self) (toJSString command))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandState Mozilla Document.queryCommandState documentation> +queryCommandState_ ::+                   (MonadIO m, IsDocument self, ToJSString command) =>+                     self -> command -> m ()+queryCommandState_ self command+  = liftIO+      (void+         (js_queryCommandState (toDocument self) (toJSString command)))+ +foreign import javascript unsafe+        "($1[\"queryCommandSupported\"]($2) ? 1 : 0)"+        js_queryCommandSupported :: Document -> JSString -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandSupported Mozilla Document.queryCommandSupported documentation> +queryCommandSupported ::+                      (MonadIO m, IsDocument self, ToJSString command) =>+                        self -> command -> m Bool+queryCommandSupported self command+  = liftIO+      (js_queryCommandSupported (toDocument self) (toJSString command))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandSupported Mozilla Document.queryCommandSupported documentation> +queryCommandSupported_ ::+                       (MonadIO m, IsDocument self, ToJSString command) =>+                         self -> command -> m ()+queryCommandSupported_ self command+  = liftIO+      (void+         (js_queryCommandSupported (toDocument self) (toJSString command)))+ +foreign import javascript unsafe "$1[\"queryCommandValue\"]($2)"+        js_queryCommandValue :: Document -> JSString -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandValue Mozilla Document.queryCommandValue documentation> +queryCommandValue ::+                  (MonadIO m, IsDocument self, ToJSString command,+                   FromJSString result) =>+                    self -> command -> m result+queryCommandValue self command+  = liftIO+      (fromJSString <$>+         (js_queryCommandValue (toDocument self) (toJSString command)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandValue Mozilla Document.queryCommandValue documentation> +queryCommandValue_ ::+                   (MonadIO m, IsDocument self, ToJSString command) =>+                     self -> command -> m ()+queryCommandValue_ self command+  = liftIO+      (void+         (js_queryCommandValue (toDocument self) (toJSString command)))+ +foreign import javascript unsafe "$1[\"getElementsByName\"]($2)"+        js_getElementsByName ::+        Document -> JSString -> IO (Nullable NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> +getElementsByName ::+                  (MonadIO m, IsDocument self, ToJSString elementName) =>+                    self -> elementName -> m (Maybe NodeList)+getElementsByName self elementName+  = liftIO+      (nullableToMaybe <$>+         (js_getElementsByName (toDocument self) (toJSString elementName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> +getElementsByName_ ::+                   (MonadIO m, IsDocument self, ToJSString elementName) =>+                     self -> elementName -> m ()+getElementsByName_ self elementName+  = liftIO+      (void+         (js_getElementsByName (toDocument self) (toJSString elementName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation> +getElementsByNameUnchecked ::+                           (MonadIO m, IsDocument self, ToJSString elementName) =>+                             self -> elementName -> m NodeList+getElementsByNameUnchecked self elementName+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getElementsByName (toDocument self) (toJSString elementName)))+ +foreign import javascript unsafe "$1[\"elementFromPoint\"]($2, $3)"+        js_elementFromPoint ::+        Document -> Int -> Int -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.elementFromPoint Mozilla Document.elementFromPoint documentation> +elementFromPoint ::+                 (MonadIO m, IsDocument self) =>+                   self -> Int -> Int -> m (Maybe Element)+elementFromPoint self x y+  = liftIO+      (nullableToMaybe <$> (js_elementFromPoint (toDocument self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.elementFromPoint Mozilla Document.elementFromPoint documentation> +elementFromPoint_ ::+                  (MonadIO m, IsDocument self) => self -> Int -> Int -> m ()+elementFromPoint_ self x y+  = liftIO (void (js_elementFromPoint (toDocument self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.elementFromPoint Mozilla Document.elementFromPoint documentation> +elementFromPointUnchecked ::+                          (MonadIO m, IsDocument self) => self -> Int -> Int -> m Element+elementFromPointUnchecked self x y+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_elementFromPoint (toDocument self) x y))+ +foreign import javascript unsafe+        "$1[\"caretRangeFromPoint\"]($2,\n$3)" js_caretRangeFromPoint ::+        Document -> Int -> Int -> IO (Nullable Range)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> +caretRangeFromPoint ::+                    (MonadIO m, IsDocument self) =>+                      self -> Int -> Int -> m (Maybe Range)+caretRangeFromPoint self x y+  = liftIO+      (nullableToMaybe <$>+         (js_caretRangeFromPoint (toDocument self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> +caretRangeFromPoint_ ::+                     (MonadIO m, IsDocument self) => self -> Int -> Int -> m ()+caretRangeFromPoint_ self x y+  = liftIO (void (js_caretRangeFromPoint (toDocument self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation> +caretRangeFromPointUnchecked ::+                             (MonadIO m, IsDocument self) => self -> Int -> Int -> m Range+caretRangeFromPointUnchecked self x y+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_caretRangeFromPoint (toDocument self) x y))+ +foreign import javascript unsafe "$1[\"getSelection\"]()"+        js_getSelection :: Document -> IO (Nullable Selection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> +getSelection ::+             (MonadIO m, IsDocument self) => self -> m (Maybe Selection)+getSelection self+  = liftIO (nullableToMaybe <$> (js_getSelection (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> +getSelection_ :: (MonadIO m, IsDocument self) => self -> m ()+getSelection_ self+  = liftIO (void (js_getSelection (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation> +getSelectionUnchecked ::+                      (MonadIO m, IsDocument self) => self -> m Selection+getSelectionUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getSelection (toDocument self)))+ +foreign import javascript unsafe+        "$1[\"getCSSCanvasContext\"]($2,\n$3, $4, $5)"+        js_getCSSCanvasContext ::+        Document ->+          JSString ->+            JSString -> Int -> Int -> IO (Nullable CanvasRenderingContext)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> +getCSSCanvasContext ::+                    (MonadIO m, IsDocument self, ToJSString contextId,+                     ToJSString name) =>+                      self ->+                        contextId -> name -> Int -> Int -> m (Maybe CanvasRenderingContext)+getCSSCanvasContext self contextId name width height+  = liftIO+      (nullableToMaybe <$>+         (js_getCSSCanvasContext (toDocument self) (toJSString contextId)+            (toJSString name)+            width+            height))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> +getCSSCanvasContext_ ::+                     (MonadIO m, IsDocument self, ToJSString contextId,+                      ToJSString name) =>+                       self -> contextId -> name -> Int -> Int -> m ()+getCSSCanvasContext_ self contextId name width height+  = liftIO+      (void+         (js_getCSSCanvasContext (toDocument self) (toJSString contextId)+            (toJSString name)+            width+            height))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation> +getCSSCanvasContextUnchecked ::+                             (MonadIO m, IsDocument self, ToJSString contextId,+                              ToJSString name) =>+                               self -> contextId -> name -> Int -> Int -> m CanvasRenderingContext+getCSSCanvasContextUnchecked self contextId name width height+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getCSSCanvasContext (toDocument self) (toJSString contextId)+            (toJSString name)+            width+            height))+ +foreign import javascript unsafe+        "$1[\"getElementsByClassName\"]($2)" js_getElementsByClassName ::+        Document -> JSString -> IO (Nullable NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation> +getElementsByClassName ::+                       (MonadIO m, IsDocument self, ToJSString tagname) =>+                         self -> tagname -> m (Maybe NodeList)+getElementsByClassName self tagname+  = liftIO+      (nullableToMaybe <$>+         (js_getElementsByClassName (toDocument self) (toJSString tagname)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation> +getElementsByClassName_ ::+                        (MonadIO m, IsDocument self, ToJSString tagname) =>+                          self -> tagname -> m ()+getElementsByClassName_ self tagname+  = liftIO+      (void+         (js_getElementsByClassName (toDocument self) (toJSString tagname)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation> +getElementsByClassNameUnchecked ::+                                (MonadIO m, IsDocument self, ToJSString tagname) =>+                                  self -> tagname -> m NodeList+getElementsByClassNameUnchecked self tagname+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getElementsByClassName (toDocument self) (toJSString tagname)))+ +foreign import javascript unsafe "($1[\"hasFocus\"]() ? 1 : 0)"+        js_hasFocus :: Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hasFocus Mozilla Document.hasFocus documentation> +hasFocus :: (MonadIO m, IsDocument self) => self -> m Bool+hasFocus self = liftIO (js_hasFocus (toDocument self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hasFocus Mozilla Document.hasFocus documentation> +hasFocus_ :: (MonadIO m, IsDocument self) => self -> m ()+hasFocus_ self = liftIO (void (js_hasFocus (toDocument self)))+ +foreign import javascript unsafe "$1[\"querySelector\"]($2)"+        js_querySelector :: Document -> JSString -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelector Mozilla Document.querySelector documentation> +querySelector ::+              (MonadIO m, IsDocument self, ToJSString selectors) =>+                self -> selectors -> m (Maybe Element)+querySelector self selectors+  = liftIO+      (nullableToMaybe <$>+         (js_querySelector (toDocument self) (toJSString selectors)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelector Mozilla Document.querySelector documentation> +querySelector_ ::+               (MonadIO m, IsDocument self, ToJSString selectors) =>+                 self -> selectors -> m ()+querySelector_ self selectors+  = liftIO+      (void (js_querySelector (toDocument self) (toJSString selectors)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelector Mozilla Document.querySelector documentation> +querySelectorUnchecked ::+                       (MonadIO m, IsDocument self, ToJSString selectors) =>+                         self -> selectors -> m Element+querySelectorUnchecked self selectors+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_querySelector (toDocument self) (toJSString selectors)))+ +foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"+        js_querySelectorAll ::+        Document -> JSString -> IO (Nullable NodeList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelectorAll Mozilla Document.querySelectorAll documentation> +querySelectorAll ::+                 (MonadIO m, IsDocument self, ToJSString selectors) =>+                   self -> selectors -> m (Maybe NodeList)+querySelectorAll self selectors+  = liftIO+      (nullableToMaybe <$>+         (js_querySelectorAll (toDocument self) (toJSString selectors)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelectorAll Mozilla Document.querySelectorAll documentation> +querySelectorAll_ ::+                  (MonadIO m, IsDocument self, ToJSString selectors) =>+                    self -> selectors -> m ()+querySelectorAll_ self selectors+  = liftIO+      (void+         (js_querySelectorAll (toDocument self) (toJSString selectors)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelectorAll Mozilla Document.querySelectorAll documentation> +querySelectorAllUnchecked ::+                          (MonadIO m, IsDocument self, ToJSString selectors) =>+                            self -> selectors -> m NodeList+querySelectorAllUnchecked self selectors+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_querySelectorAll (toDocument self) (toJSString selectors)))+ +foreign import javascript unsafe "$1[\"webkitCancelFullScreen\"]()"+        js_webkitCancelFullScreen :: Document -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCancelFullScreen Mozilla Document.webkitCancelFullScreen documentation> +webkitCancelFullScreen ::+                       (MonadIO m, IsDocument self) => self -> m ()+webkitCancelFullScreen self+  = liftIO (js_webkitCancelFullScreen (toDocument self))+ +foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()"+        js_webkitExitFullscreen :: Document -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitExitFullscreen Mozilla Document.webkitExitFullscreen documentation> +webkitExitFullscreen ::+                     (MonadIO m, IsDocument self) => self -> m ()+webkitExitFullscreen self+  = liftIO (js_webkitExitFullscreen (toDocument self))+ +foreign import javascript unsafe "$1[\"exitPointerLock\"]()"+        js_exitPointerLock :: Document -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.exitPointerLock Mozilla Document.exitPointerLock documentation> +exitPointerLock :: (MonadIO m, IsDocument self) => self -> m ()+exitPointerLock self+  = liftIO (js_exitPointerLock (toDocument self))+ +foreign import javascript unsafe "$1[\"webkitGetNamedFlows\"]()"+        js_webkitGetNamedFlows ::+        Document -> IO (Nullable DOMNamedFlowCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> +webkitGetNamedFlows ::+                    (MonadIO m, IsDocument self) =>+                      self -> m (Maybe DOMNamedFlowCollection)+webkitGetNamedFlows self+  = liftIO+      (nullableToMaybe <$> (js_webkitGetNamedFlows (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> +webkitGetNamedFlows_ ::+                     (MonadIO m, IsDocument self) => self -> m ()+webkitGetNamedFlows_ self+  = liftIO (void (js_webkitGetNamedFlows (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation> +webkitGetNamedFlowsUnchecked ::+                             (MonadIO m, IsDocument self) => self -> m DOMNamedFlowCollection+webkitGetNamedFlowsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_webkitGetNamedFlows (toDocument self)))+ +foreign import javascript unsafe+        "$1[\"createTouch\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12)"+        js_createTouch ::+        Document ->+          Nullable Window ->+            Nullable EventTarget ->+              Int ->+                Int ->+                  Int ->+                    Int -> Int -> Int -> Int -> Float -> Float -> IO (Nullable Touch)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation> +createTouch ::+            (MonadIO m, IsDocument self, IsEventTarget target) =>+              self ->+                Maybe Window ->+                  Maybe target ->+                    Int ->+                      Int ->+                        Int ->+                          Int -> Int -> Int -> Int -> Float -> Float -> m (Maybe Touch)+createTouch self window target identifier pageX pageY screenX+  screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce+  = liftIO+      (nullableToMaybe <$>+         (js_createTouch (toDocument self) (maybeToNullable window)+            (maybeToNullable (fmap toEventTarget target))+            identifier+            pageX+            pageY+            screenX+            screenY+            webkitRadiusX+            webkitRadiusY+            webkitRotationAngle+            webkitForce))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation> +createTouch_ ::+             (MonadIO m, IsDocument self, IsEventTarget target) =>+               self ->+                 Maybe Window ->+                   Maybe target ->+                     Int ->+                       Int -> Int -> Int -> Int -> Int -> Int -> Float -> Float -> m ()+createTouch_ self window target identifier pageX pageY screenX+  screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce+  = liftIO+      (void+         (js_createTouch (toDocument self) (maybeToNullable window)+            (maybeToNullable (fmap toEventTarget target))+            identifier+            pageX+            pageY+            screenX+            screenY+            webkitRadiusX+            webkitRadiusY+            webkitRotationAngle+            webkitForce))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation> +createTouchUnchecked ::+                     (MonadIO m, IsDocument self, IsEventTarget target) =>+                       self ->+                         Maybe Window ->+                           Maybe target ->+                             Int ->+                               Int -> Int -> Int -> Int -> Int -> Int -> Float -> Float -> m Touch+createTouchUnchecked self window target identifier pageX pageY+  screenX screenY webkitRadiusX webkitRadiusY webkitRotationAngle+  webkitForce+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createTouch (toDocument self) (maybeToNullable window)+            (maybeToNullable (fmap toEventTarget target))+            identifier+            pageX+            pageY+            screenX+            screenY+            webkitRadiusX+            webkitRadiusY+            webkitRotationAngle+            webkitForce))+ +foreign import javascript unsafe "$1[\"createTouchList\"]()"+        js_createTouchList :: Document -> IO (Nullable TouchList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> +createTouchList ::+                (MonadIO m, IsDocument self) => self -> m (Maybe TouchList)+createTouchList self+  = liftIO+      (nullableToMaybe <$> (js_createTouchList (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> +createTouchList_ :: (MonadIO m, IsDocument self) => self -> m ()+createTouchList_ self+  = liftIO (void (js_createTouchList (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation> +createTouchListUnchecked ::+                         (MonadIO m, IsDocument self) => self -> m TouchList+createTouchListUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createTouchList (toDocument self)))+ +foreign import javascript unsafe "$1[\"doctype\"]" js_getDoctype ::+        Document -> IO (Nullable DocumentType)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> +getDoctype ::+           (MonadIO m, IsDocument self) => self -> m (Maybe DocumentType)+getDoctype self+  = liftIO (nullableToMaybe <$> (js_getDoctype (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation> +getDoctypeUnchecked ::+                    (MonadIO m, IsDocument self) => self -> m DocumentType+getDoctypeUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getDoctype (toDocument self)))+ +foreign import javascript unsafe "$1[\"implementation\"]"+        js_getImplementation :: Document -> IO (Nullable DOMImplementation)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.implementation Mozilla Document.implementation documentation> +getImplementation ::+                  (MonadIO m, IsDocument self) => self -> m (Maybe DOMImplementation)+getImplementation self+  = liftIO+      (nullableToMaybe <$> (js_getImplementation (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.implementation Mozilla Document.implementation documentation> +getImplementationUnchecked ::+                           (MonadIO m, IsDocument self) => self -> m DOMImplementation+getImplementationUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getImplementation (toDocument self)))+ +foreign import javascript unsafe "$1[\"documentElement\"]"+        js_getDocumentElement :: Document -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> +getDocumentElement ::+                   (MonadIO m, IsDocument self) => self -> m (Maybe Element)+getDocumentElement self+  = liftIO+      (nullableToMaybe <$> (js_getDocumentElement (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation> +getDocumentElementUnchecked ::+                            (MonadIO m, IsDocument self) => self -> m Element+getDocumentElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getDocumentElement (toDocument self)))+ +foreign import javascript unsafe "$1[\"inputEncoding\"]"+        js_getInputEncoding :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.inputEncoding Mozilla Document.inputEncoding documentation> +getInputEncoding ::+                 (MonadIO m, IsDocument self, FromJSString result) =>+                   self -> m (Maybe result)+getInputEncoding self+  = liftIO+      (fromMaybeJSString <$> (js_getInputEncoding (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.inputEncoding Mozilla Document.inputEncoding documentation> +getInputEncodingUnchecked ::+                          (MonadIO m, IsDocument self, FromJSString result) =>+                            self -> m result+getInputEncodingUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getInputEncoding (toDocument self)))+ +foreign import javascript unsafe "$1[\"xmlEncoding\"]"+        js_getXmlEncoding :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> +getXmlEncoding ::+               (MonadIO m, IsDocument self, FromJSString result) =>+                 self -> m (Maybe result)+getXmlEncoding self+  = liftIO+      (fromMaybeJSString <$> (js_getXmlEncoding (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation> +getXmlEncodingUnchecked ::+                        (MonadIO m, IsDocument self, FromJSString result) =>+                          self -> m result+getXmlEncodingUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getXmlEncoding (toDocument self)))+ +foreign import javascript unsafe "$1[\"xmlVersion\"] = $2;"+        js_setXmlVersion :: Document -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> +setXmlVersion ::+              (MonadIO m, IsDocument self, ToJSString val) =>+                self -> Maybe val -> m ()+setXmlVersion self val+  = liftIO (js_setXmlVersion (toDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"xmlVersion\"]"+        js_getXmlVersion :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> +getXmlVersion ::+              (MonadIO m, IsDocument self, FromJSString result) =>+                self -> m (Maybe result)+getXmlVersion self+  = liftIO+      (fromMaybeJSString <$> (js_getXmlVersion (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation> +getXmlVersionUnchecked ::+                       (MonadIO m, IsDocument self, FromJSString result) =>+                         self -> m result+getXmlVersionUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getXmlVersion (toDocument self)))+ +foreign import javascript unsafe "$1[\"xmlStandalone\"] = $2;"+        js_setXmlStandalone :: Document -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation> +setXmlStandalone ::+                 (MonadIO m, IsDocument self) => self -> Bool -> m ()+setXmlStandalone self val+  = liftIO (js_setXmlStandalone (toDocument self) val)+ +foreign import javascript unsafe "($1[\"xmlStandalone\"] ? 1 : 0)"+        js_getXmlStandalone :: Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation> +getXmlStandalone :: (MonadIO m, IsDocument self) => self -> m Bool+getXmlStandalone self+  = liftIO (js_getXmlStandalone (toDocument self))+ +foreign import javascript unsafe "$1[\"documentURI\"]"+        js_getDocumentURI :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentURI Mozilla Document.documentURI documentation> +getDocumentURI ::+               (MonadIO m, IsDocument self, FromJSString result) =>+                 self -> m (Maybe result)+getDocumentURI self+  = liftIO+      (fromMaybeJSString <$> (js_getDocumentURI (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentURI Mozilla Document.documentURI documentation> +getDocumentURIUnchecked ::+                        (MonadIO m, IsDocument self, FromJSString result) =>+                          self -> m result+getDocumentURIUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getDocumentURI (toDocument self)))+ +foreign import javascript unsafe "$1[\"defaultView\"]"+        js_getDefaultView :: Document -> IO (Nullable Window)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> +getDefaultView ::+               (MonadIO m, IsDocument self) => self -> m (Maybe Window)+getDefaultView self+  = liftIO+      (nullableToMaybe <$> (js_getDefaultView (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation> +getDefaultViewUnchecked ::+                        (MonadIO m, IsDocument self) => self -> m Window+getDefaultViewUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getDefaultView (toDocument self)))+ +foreign import javascript unsafe "$1[\"styleSheets\"]"+        js_getStyleSheets :: Document -> IO (Nullable StyleSheetList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.styleSheets Mozilla Document.styleSheets documentation> +getStyleSheets ::+               (MonadIO m, IsDocument self) => self -> m (Maybe StyleSheetList)+getStyleSheets self+  = liftIO+      (nullableToMaybe <$> (js_getStyleSheets (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.styleSheets Mozilla Document.styleSheets documentation> +getStyleSheetsUnchecked ::+                        (MonadIO m, IsDocument self) => self -> m StyleSheetList+getStyleSheetsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getStyleSheets (toDocument self)))+ +foreign import javascript unsafe "$1[\"contentType\"]"+        js_getContentType :: Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.contentType Mozilla Document.contentType documentation> +getContentType ::+               (MonadIO m, IsDocument self, FromJSString result) =>+                 self -> m result+getContentType self+  = liftIO (fromJSString <$> (js_getContentType (toDocument self)))+ +foreign import javascript unsafe "$1[\"title\"] = $2;" js_setTitle+        :: Document -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> +setTitle ::+         (MonadIO m, IsDocument self, ToJSString val) =>+           self -> Maybe val -> m ()+setTitle self val+  = liftIO (js_setTitle (toDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"title\"]" js_getTitle ::+        Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> +getTitle ::+         (MonadIO m, IsDocument self, FromJSString result) =>+           self -> m (Maybe result)+getTitle self+  = liftIO (fromMaybeJSString <$> (js_getTitle (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation> +getTitleUnchecked ::+                  (MonadIO m, IsDocument self, FromJSString result) =>+                    self -> m result+getTitleUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getTitle (toDocument self)))+ +foreign import javascript unsafe "$1[\"referrer\"]" js_getReferrer+        :: Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.referrer Mozilla Document.referrer documentation> +getReferrer ::+            (MonadIO m, IsDocument self, FromJSString result) =>+              self -> m result+getReferrer self+  = liftIO (fromJSString <$> (js_getReferrer (toDocument self)))+ +foreign import javascript unsafe "$1[\"domain\"] = $2;"+        js_setDomain :: Document -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> +setDomain ::+          (MonadIO m, IsDocument self, ToJSString val) =>+            self -> Maybe val -> m ()+setDomain self val+  = liftIO (js_setDomain (toDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"domain\"]" js_getDomain ::+        Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> +getDomain ::+          (MonadIO m, IsDocument self, FromJSString result) =>+            self -> m (Maybe result)+getDomain self+  = liftIO (fromMaybeJSString <$> (js_getDomain (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation> +getDomainUnchecked ::+                   (MonadIO m, IsDocument self, FromJSString result) =>+                     self -> m result+getDomainUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getDomain (toDocument self)))+ +foreign import javascript unsafe "$1[\"URL\"]" js_getURL ::+        Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.URL Mozilla Document.URL documentation> +getURL ::+       (MonadIO m, IsDocument self, FromJSString result) =>+         self -> m result+getURL self+  = liftIO (fromJSString <$> (js_getURL (toDocument self)))+ +foreign import javascript unsafe "$1[\"cookie\"] = $2;"+        js_setCookie :: Document -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> +setCookie ::+          (MonadIO m, IsDocument self, ToJSString val) =>+            self -> Maybe val -> m ()+setCookie self val+  = liftIO (js_setCookie (toDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"cookie\"]" js_getCookie ::+        Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> +getCookie ::+          (MonadIO m, IsDocument self, FromJSString result) =>+            self -> m (Maybe result)+getCookie self+  = liftIO (fromMaybeJSString <$> (js_getCookie (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation> +getCookieUnchecked ::+                   (MonadIO m, IsDocument self, FromJSString result) =>+                     self -> m result+getCookieUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getCookie (toDocument self)))+ +foreign import javascript unsafe "$1[\"body\"] = $2;" js_setBody ::+        Document -> Nullable HTMLElement -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> +setBody ::+        (MonadIO m, IsDocument self, IsHTMLElement val) =>+          self -> Maybe val -> m ()+setBody self val+  = liftIO+      (js_setBody (toDocument self)+         (maybeToNullable (fmap toHTMLElement val)))+ +foreign import javascript unsafe "$1[\"body\"]" js_getBody ::+        Document -> IO (Nullable HTMLElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> +getBody ::+        (MonadIO m, IsDocument self) => self -> m (Maybe HTMLElement)+getBody self+  = liftIO (nullableToMaybe <$> (js_getBody (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation> +getBodyUnchecked ::+                 (MonadIO m, IsDocument self) => self -> m HTMLElement+getBodyUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getBody (toDocument self)))+ +foreign import javascript unsafe "$1[\"head\"]" js_getHead ::+        Document -> IO (Nullable HTMLHeadElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> +getHead ::+        (MonadIO m, IsDocument self) => self -> m (Maybe HTMLHeadElement)+getHead self+  = liftIO (nullableToMaybe <$> (js_getHead (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation> +getHeadUnchecked ::+                 (MonadIO m, IsDocument self) => self -> m HTMLHeadElement+getHeadUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getHead (toDocument self)))+ +foreign import javascript unsafe "$1[\"images\"]" js_getImages ::+        Document -> IO (Nullable HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.images Mozilla Document.images documentation> +getImages ::+          (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)+getImages self+  = liftIO (nullableToMaybe <$> (js_getImages (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.images Mozilla Document.images documentation> +getImagesUnchecked ::+                   (MonadIO m, IsDocument self) => self -> m HTMLCollection+getImagesUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getImages (toDocument self)))+ +foreign import javascript unsafe "$1[\"applets\"]" js_getApplets ::+        Document -> IO (Nullable HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.applets Mozilla Document.applets documentation> +getApplets ::+           (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)+getApplets self+  = liftIO (nullableToMaybe <$> (js_getApplets (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.applets Mozilla Document.applets documentation> +getAppletsUnchecked ::+                    (MonadIO m, IsDocument self) => self -> m HTMLCollection+getAppletsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getApplets (toDocument self)))+ +foreign import javascript unsafe "$1[\"links\"]" js_getLinks ::+        Document -> IO (Nullable HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.links Mozilla Document.links documentation> +getLinks ::+         (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)+getLinks self+  = liftIO (nullableToMaybe <$> (js_getLinks (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.links Mozilla Document.links documentation> +getLinksUnchecked ::+                  (MonadIO m, IsDocument self) => self -> m HTMLCollection+getLinksUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getLinks (toDocument self)))+ +foreign import javascript unsafe "$1[\"forms\"]" js_getForms ::+        Document -> IO (Nullable HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.forms Mozilla Document.forms documentation> +getForms ::+         (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)+getForms self+  = liftIO (nullableToMaybe <$> (js_getForms (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.forms Mozilla Document.forms documentation> +getFormsUnchecked ::+                  (MonadIO m, IsDocument self) => self -> m HTMLCollection+getFormsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getForms (toDocument self)))+ +foreign import javascript unsafe "$1[\"anchors\"]" js_getAnchors ::+        Document -> IO (Nullable HTMLCollection)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.anchors Mozilla Document.anchors documentation> +getAnchors ::+           (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection)+getAnchors self+  = liftIO (nullableToMaybe <$> (js_getAnchors (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.anchors Mozilla Document.anchors documentation> +getAnchorsUnchecked ::+                    (MonadIO m, IsDocument self) => self -> m HTMLCollection+getAnchorsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getAnchors (toDocument self)))+ +foreign import javascript unsafe "$1[\"lastModified\"]"+        js_getLastModified :: Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.lastModified Mozilla Document.lastModified documentation> +getLastModified ::+                (MonadIO m, IsDocument self, FromJSString result) =>+                  self -> m result+getLastModified self+  = liftIO (fromJSString <$> (js_getLastModified (toDocument self)))+ +foreign import javascript unsafe "$1[\"location\"] = $2;"+        js_setLocation :: Document -> Nullable Location -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> +setLocation ::+            (MonadIO m, IsDocument self) => self -> Maybe Location -> m ()+setLocation self val+  = liftIO (js_setLocation (toDocument self) (maybeToNullable val))+ +foreign import javascript unsafe "$1[\"location\"]" js_getLocation+        :: Document -> IO (Nullable Location)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> +getLocation ::+            (MonadIO m, IsDocument self) => self -> m (Maybe Location)+getLocation self+  = liftIO (nullableToMaybe <$> (js_getLocation (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation> +getLocationUnchecked ::+                     (MonadIO m, IsDocument self) => self -> m Location+getLocationUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getLocation (toDocument self)))+ +foreign import javascript unsafe "$1[\"charset\"] = $2;"+        js_setCharset :: Document -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> +setCharset ::+           (MonadIO m, IsDocument self, ToJSString val) =>+             self -> Maybe val -> m ()+setCharset self val+  = liftIO (js_setCharset (toDocument self) (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::+        Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> +getCharset ::+           (MonadIO m, IsDocument self, FromJSString result) =>+             self -> m (Maybe result)+getCharset self+  = liftIO (fromMaybeJSString <$> (js_getCharset (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation> +getCharsetUnchecked ::+                    (MonadIO m, IsDocument self, FromJSString result) =>+                      self -> m result+getCharsetUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getCharset (toDocument self)))+ +foreign import javascript unsafe "$1[\"defaultCharset\"]"+        js_getDefaultCharset :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultCharset Mozilla Document.defaultCharset documentation> +getDefaultCharset ::+                  (MonadIO m, IsDocument self, FromJSString result) =>+                    self -> m (Maybe result)+getDefaultCharset self+  = liftIO+      (fromMaybeJSString <$> (js_getDefaultCharset (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultCharset Mozilla Document.defaultCharset documentation> +getDefaultCharsetUnchecked ::+                           (MonadIO m, IsDocument self, FromJSString result) =>+                             self -> m result+getDefaultCharsetUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getDefaultCharset (toDocument self)))+ +foreign import javascript unsafe "$1[\"readyState\"]"+        js_getReadyState :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.readyState Mozilla Document.readyState documentation> +getReadyState ::+              (MonadIO m, IsDocument self, FromJSString result) =>+                self -> m (Maybe result)+getReadyState self+  = liftIO+      (fromMaybeJSString <$> (js_getReadyState (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.readyState Mozilla Document.readyState documentation> +getReadyStateUnchecked ::+                       (MonadIO m, IsDocument self, FromJSString result) =>+                         self -> m result+getReadyStateUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getReadyState (toDocument self)))+ +foreign import javascript unsafe "$1[\"characterSet\"]"+        js_getCharacterSet :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.characterSet Mozilla Document.characterSet documentation> +getCharacterSet ::+                (MonadIO m, IsDocument self, FromJSString result) =>+                  self -> m (Maybe result)+getCharacterSet self+  = liftIO+      (fromMaybeJSString <$> (js_getCharacterSet (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.characterSet Mozilla Document.characterSet documentation> +getCharacterSetUnchecked ::+                         (MonadIO m, IsDocument self, FromJSString result) =>+                           self -> m result+getCharacterSetUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getCharacterSet (toDocument self)))+ +foreign import javascript unsafe "$1[\"preferredStylesheetSet\"]"+        js_getPreferredStylesheetSet :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> +getPreferredStylesheetSet ::+                          (MonadIO m, IsDocument self, FromJSString result) =>+                            self -> m (Maybe result)+getPreferredStylesheetSet self+  = liftIO+      (fromMaybeJSString <$>+         (js_getPreferredStylesheetSet (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation> +getPreferredStylesheetSetUnchecked ::+                                   (MonadIO m, IsDocument self, FromJSString result) =>+                                     self -> m result+getPreferredStylesheetSetUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getPreferredStylesheetSet (toDocument self)))+ +foreign import javascript unsafe+        "$1[\"selectedStylesheetSet\"] = $2;" js_setSelectedStylesheetSet+        :: Document -> Nullable JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> +setSelectedStylesheetSet ::+                         (MonadIO m, IsDocument self, ToJSString val) =>+                           self -> Maybe val -> m ()+setSelectedStylesheetSet self val+  = liftIO+      (js_setSelectedStylesheetSet (toDocument self)+         (toMaybeJSString val))+ +foreign import javascript unsafe "$1[\"selectedStylesheetSet\"]"+        js_getSelectedStylesheetSet :: Document -> IO (Nullable JSString)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> +getSelectedStylesheetSet ::+                         (MonadIO m, IsDocument self, FromJSString result) =>+                           self -> m (Maybe result)+getSelectedStylesheetSet self+  = liftIO+      (fromMaybeJSString <$>+         (js_getSelectedStylesheetSet (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation> +getSelectedStylesheetSetUnchecked ::+                                  (MonadIO m, IsDocument self, FromJSString result) =>+                                    self -> m result+getSelectedStylesheetSetUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getSelectedStylesheetSet (toDocument self)))+ +foreign import javascript unsafe "$1[\"activeElement\"]"+        js_getActiveElement :: Document -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.activeElement Mozilla Document.activeElement documentation> +getActiveElement ::+                 (MonadIO m, IsDocument self) => self -> m (Maybe Element)+getActiveElement self+  = liftIO+      (nullableToMaybe <$> (js_getActiveElement (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.activeElement Mozilla Document.activeElement documentation> +getActiveElementUnchecked ::+                          (MonadIO m, IsDocument self) => self -> m Element+getActiveElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getActiveElement (toDocument self)))+ +foreign import javascript unsafe "$1[\"compatMode\"]"+        js_getCompatMode :: Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.compatMode Mozilla Document.compatMode documentation> +getCompatMode ::+              (MonadIO m, IsDocument self, FromJSString result) =>+                self -> m result+getCompatMode self+  = liftIO (fromJSString <$> (js_getCompatMode (toDocument self)))+ +foreign import javascript unsafe+        "($1[\"webkitIsFullScreen\"] ? 1 : 0)" js_getWebkitIsFullScreen ::+        Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitIsFullScreen Mozilla Document.webkitIsFullScreen documentation> +getWebkitIsFullScreen ::+                      (MonadIO m, IsDocument self) => self -> m Bool+getWebkitIsFullScreen self+  = liftIO (js_getWebkitIsFullScreen (toDocument self))+ +foreign import javascript unsafe+        "($1[\"webkitFullScreenKeyboardInputAllowed\"] ? 1 : 0)"+        js_getWebkitFullScreenKeyboardInputAllowed :: Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullScreenKeyboardInputAllowed Mozilla Document.webkitFullScreenKeyboardInputAllowed documentation> +getWebkitFullScreenKeyboardInputAllowed ::+                                        (MonadIO m, IsDocument self) => self -> m Bool+getWebkitFullScreenKeyboardInputAllowed self+  = liftIO+      (js_getWebkitFullScreenKeyboardInputAllowed (toDocument self))+ +foreign import javascript unsafe+        "$1[\"webkitCurrentFullScreenElement\"]"+        js_getWebkitCurrentFullScreenElement ::+        Document -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCurrentFullScreenElement Mozilla Document.webkitCurrentFullScreenElement documentation> +getWebkitCurrentFullScreenElement ::+                                  (MonadIO m, IsDocument self) => self -> m (Maybe Element)+getWebkitCurrentFullScreenElement self+  = liftIO+      (nullableToMaybe <$>+         (js_getWebkitCurrentFullScreenElement (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCurrentFullScreenElement Mozilla Document.webkitCurrentFullScreenElement documentation> +getWebkitCurrentFullScreenElementUnchecked ::+                                           (MonadIO m, IsDocument self) => self -> m Element+getWebkitCurrentFullScreenElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getWebkitCurrentFullScreenElement (toDocument self)))+ +foreign import javascript unsafe+        "($1[\"webkitFullscreenEnabled\"] ? 1 : 0)"+        js_getWebkitFullscreenEnabled :: Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenEnabled Mozilla Document.webkitFullscreenEnabled documentation> +getWebkitFullscreenEnabled ::+                           (MonadIO m, IsDocument self) => self -> m Bool+getWebkitFullscreenEnabled self+  = liftIO (js_getWebkitFullscreenEnabled (toDocument self))+ +foreign import javascript unsafe "$1[\"webkitFullscreenElement\"]"+        js_getWebkitFullscreenElement :: Document -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> +getWebkitFullscreenElement ::+                           (MonadIO m, IsDocument self) => self -> m (Maybe Element)+getWebkitFullscreenElement self+  = liftIO+      (nullableToMaybe <$>+         (js_getWebkitFullscreenElement (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation> +getWebkitFullscreenElementUnchecked ::+                                    (MonadIO m, IsDocument self) => self -> m Element+getWebkitFullscreenElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getWebkitFullscreenElement (toDocument self)))+ +foreign import javascript unsafe "$1[\"pointerLockElement\"]"+        js_getPointerLockElement :: Document -> IO (Nullable Element)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.pointerLockElement Mozilla Document.pointerLockElement documentation> +getPointerLockElement ::+                      (MonadIO m, IsDocument self) => self -> m (Maybe Element)+getPointerLockElement self+  = liftIO+      (nullableToMaybe <$> (js_getPointerLockElement (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.pointerLockElement Mozilla Document.pointerLockElement documentation> +getPointerLockElementUnchecked ::+                               (MonadIO m, IsDocument self) => self -> m Element+getPointerLockElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getPointerLockElement (toDocument self)))+ +foreign import javascript unsafe "$1[\"fonts\"]" js_getFonts ::+        Document -> IO (Nullable FontLoader)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.fonts Mozilla Document.fonts documentation> +getFonts ::+         (MonadIO m, IsDocument self) => self -> m (Maybe FontLoader)+getFonts self+  = liftIO (nullableToMaybe <$> (js_getFonts (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.fonts Mozilla Document.fonts documentation> +getFontsUnchecked ::+                  (MonadIO m, IsDocument self) => self -> m FontLoader+getFontsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getFonts (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onabort Mozilla Document.onabort documentation> +abort ::+      (IsDocument self, IsEventTarget self) => EventName self UIEvent+abort = unsafeEventName (toJSString "abort")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onblur Mozilla Document.onblur documentation> +blur ::+     (IsDocument self, IsEventTarget self) => EventName self FocusEvent+blur = unsafeEventName (toJSString "blur")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onchange Mozilla Document.onchange documentation> +change ::+       (IsDocument self, IsEventTarget self) => EventName self Event+change = unsafeEventName (toJSString "change")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onclick Mozilla Document.onclick documentation> +click ::+      (IsDocument self, IsEventTarget self) => EventName self MouseEvent+click = unsafeEventName (toJSString "click")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oncontextmenu Mozilla Document.oncontextmenu documentation> +contextMenu ::+            (IsDocument self, IsEventTarget self) => EventName self MouseEvent+contextMenu = unsafeEventName (toJSString "contextmenu")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondblclick Mozilla Document.ondblclick documentation> +dblClick ::+         (IsDocument self, IsEventTarget self) => EventName self MouseEvent+dblClick = unsafeEventName (toJSString "dblclick")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondrag Mozilla Document.ondrag documentation> +drag ::+     (IsDocument self, IsEventTarget self) => EventName self MouseEvent+drag = unsafeEventName (toJSString "drag")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragend Mozilla Document.ondragend documentation> +dragEnd ::+        (IsDocument self, IsEventTarget self) => EventName self MouseEvent+dragEnd = unsafeEventName (toJSString "dragend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragenter Mozilla Document.ondragenter documentation> +dragEnter ::+          (IsDocument self, IsEventTarget self) => EventName self MouseEvent+dragEnter = unsafeEventName (toJSString "dragenter")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragleave Mozilla Document.ondragleave documentation> +dragLeave ::+          (IsDocument self, IsEventTarget self) => EventName self MouseEvent+dragLeave = unsafeEventName (toJSString "dragleave")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragover Mozilla Document.ondragover documentation> +dragOver ::+         (IsDocument self, IsEventTarget self) => EventName self MouseEvent+dragOver = unsafeEventName (toJSString "dragover")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondragstart Mozilla Document.ondragstart documentation> +dragStart ::+          (IsDocument self, IsEventTarget self) => EventName self MouseEvent+dragStart = unsafeEventName (toJSString "dragstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ondrop Mozilla Document.ondrop documentation> +drop ::+     (IsDocument self, IsEventTarget self) => EventName self MouseEvent+drop = unsafeEventName (toJSString "drop")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onerror Mozilla Document.onerror documentation> +error ::+      (IsDocument self, IsEventTarget self) => EventName self UIEvent+error = unsafeEventName (toJSString "error")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onfocus Mozilla Document.onfocus documentation> +focus ::+      (IsDocument self, IsEventTarget self) => EventName self FocusEvent+focus = unsafeEventName (toJSString "focus")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oninput Mozilla Document.oninput documentation> +input ::+      (IsDocument self, IsEventTarget self) => EventName self Event+input = unsafeEventName (toJSString "input")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oninvalid Mozilla Document.oninvalid documentation> +invalid ::+        (IsDocument self, IsEventTarget self) => EventName self Event+invalid = unsafeEventName (toJSString "invalid")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onkeydown Mozilla Document.onkeydown documentation> +keyDown ::+        (IsDocument self, IsEventTarget self) =>+          EventName self KeyboardEvent+keyDown = unsafeEventName (toJSString "keydown")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onkeypress Mozilla Document.onkeypress documentation> +keyPress ::+         (IsDocument self, IsEventTarget self) =>+           EventName self KeyboardEvent+keyPress = unsafeEventName (toJSString "keypress")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onkeyup Mozilla Document.onkeyup documentation> +keyUp ::+      (IsDocument self, IsEventTarget self) =>+        EventName self KeyboardEvent+keyUp = unsafeEventName (toJSString "keyup")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onload Mozilla Document.onload documentation> +load ::+     (IsDocument self, IsEventTarget self) => EventName self UIEvent+load = unsafeEventName (toJSString "load")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmousedown Mozilla Document.onmousedown documentation> +mouseDown ::+          (IsDocument self, IsEventTarget self) => EventName self MouseEvent+mouseDown = unsafeEventName (toJSString "mousedown")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseenter Mozilla Document.onmouseenter documentation> +mouseEnter ::+           (IsDocument self, IsEventTarget self) => EventName self MouseEvent+mouseEnter = unsafeEventName (toJSString "mouseenter")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseleave Mozilla Document.onmouseleave documentation> +mouseLeave ::+           (IsDocument self, IsEventTarget self) => EventName self MouseEvent+mouseLeave = unsafeEventName (toJSString "mouseleave")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmousemove Mozilla Document.onmousemove documentation> +mouseMove ::+          (IsDocument self, IsEventTarget self) => EventName self MouseEvent+mouseMove = unsafeEventName (toJSString "mousemove")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseout Mozilla Document.onmouseout documentation> +mouseOut ::+         (IsDocument self, IsEventTarget self) => EventName self MouseEvent+mouseOut = unsafeEventName (toJSString "mouseout")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseover Mozilla Document.onmouseover documentation> +mouseOver ::+          (IsDocument self, IsEventTarget self) => EventName self MouseEvent+mouseOver = unsafeEventName (toJSString "mouseover")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmouseup Mozilla Document.onmouseup documentation> +mouseUp ::+        (IsDocument self, IsEventTarget self) => EventName self MouseEvent+mouseUp = unsafeEventName (toJSString "mouseup")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onmousewheel Mozilla Document.onmousewheel documentation> +mouseWheel ::+           (IsDocument self, IsEventTarget self) => EventName self MouseEvent+mouseWheel = unsafeEventName (toJSString "mousewheel")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onreadystatechange Mozilla Document.onreadystatechange documentation> +readyStateChange ::+                 (IsDocument self, IsEventTarget self) => EventName self Event+readyStateChange = unsafeEventName (toJSString "readystatechange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onscroll Mozilla Document.onscroll documentation> +scroll ::+       (IsDocument self, IsEventTarget self) => EventName self UIEvent+scroll = unsafeEventName (toJSString "scroll")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onselect Mozilla Document.onselect documentation> +select ::+       (IsDocument self, IsEventTarget self) => EventName self UIEvent+select = unsafeEventName (toJSString "select")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onsubmit Mozilla Document.onsubmit documentation> +submit ::+       (IsDocument self, IsEventTarget self) => EventName self Event+submit = unsafeEventName (toJSString "submit")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwheel Mozilla Document.onwheel documentation> +wheel ::+      (IsDocument self, IsEventTarget self) => EventName self WheelEvent+wheel = unsafeEventName (toJSString "wheel")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onbeforecut Mozilla Document.onbeforecut documentation> +beforeCut ::+          (IsDocument self, IsEventTarget self) => EventName self Event+beforeCut = unsafeEventName (toJSString "beforecut")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oncut Mozilla Document.oncut documentation> +cut ::+    (IsDocument self, IsEventTarget self) => EventName self Event+cut = unsafeEventName (toJSString "cut")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onbeforecopy Mozilla Document.onbeforecopy documentation> +beforeCopy ::+           (IsDocument self, IsEventTarget self) => EventName self Event+beforeCopy = unsafeEventName (toJSString "beforecopy")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.oncopy Mozilla Document.oncopy documentation> +copy ::+     (IsDocument self, IsEventTarget self) => EventName self Event+copy = unsafeEventName (toJSString "copy")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onbeforepaste Mozilla Document.onbeforepaste documentation> +beforePaste ::+            (IsDocument self, IsEventTarget self) => EventName self Event+beforePaste = unsafeEventName (toJSString "beforepaste")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onpaste Mozilla Document.onpaste documentation> +paste ::+      (IsDocument self, IsEventTarget self) => EventName self Event+paste = unsafeEventName (toJSString "paste")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onreset Mozilla Document.onreset documentation> +reset ::+      (IsDocument self, IsEventTarget self) => EventName self Event+reset = unsafeEventName (toJSString "reset")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onsearch Mozilla Document.onsearch documentation> +search ::+       (IsDocument self, IsEventTarget self) => EventName self Event+search = unsafeEventName (toJSString "search")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onselectstart Mozilla Document.onselectstart documentation> +selectStart ::+            (IsDocument self, IsEventTarget self) => EventName self Event+selectStart = unsafeEventName (toJSString "selectstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onselectionchange Mozilla Document.onselectionchange documentation> +selectionchange ::+                (IsDocument self, IsEventTarget self) =>+                  EventName self onselectionchange+selectionchange = unsafeEventName (toJSString "selectionchange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ontouchstart Mozilla Document.ontouchstart documentation> +touchStart ::+           (IsDocument self, IsEventTarget self) => EventName self TouchEvent+touchStart = unsafeEventName (toJSString "touchstart")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ontouchmove Mozilla Document.ontouchmove documentation> +touchMove ::+          (IsDocument self, IsEventTarget self) => EventName self TouchEvent+touchMove = unsafeEventName (toJSString "touchmove")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ontouchend Mozilla Document.ontouchend documentation> +touchEnd ::+         (IsDocument self, IsEventTarget self) => EventName self TouchEvent+touchEnd = unsafeEventName (toJSString "touchend")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.ontouchcancel Mozilla Document.ontouchcancel documentation> +touchCancel ::+            (IsDocument self, IsEventTarget self) => EventName self TouchEvent+touchCancel = unsafeEventName (toJSString "touchcancel")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitfullscreenchange Mozilla Document.onwebkitfullscreenchange documentation> +webKitFullscreenChange ::+                       (IsDocument self, IsEventTarget self) => EventName self Event+webKitFullscreenChange+  = unsafeEventName (toJSString "webkitfullscreenchange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitfullscreenerror Mozilla Document.onwebkitfullscreenerror documentation> +webKitFullscreenError ::+                      (IsDocument self, IsEventTarget self) => EventName self Event+webKitFullscreenError+  = unsafeEventName (toJSString "webkitfullscreenerror")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onpointerlockchange Mozilla Document.onpointerlockchange documentation> +pointerlockchange ::+                  (IsDocument self, IsEventTarget self) => EventName self Event+pointerlockchange+  = unsafeEventName (toJSString "pointerlockchange")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onpointerlockerror Mozilla Document.onpointerlockerror documentation> +pointerlockerror ::+                 (IsDocument self, IsEventTarget self) => EventName self Event+pointerlockerror = unsafeEventName (toJSString "pointerlockerror")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onsecuritypolicyviolation Mozilla Document.onsecuritypolicyviolation documentation> +securitypolicyviolation ::+                        (IsDocument self, IsEventTarget self) =>+                          EventName self onsecuritypolicyviolation+securitypolicyviolation+  = unsafeEventName (toJSString "securitypolicyviolation")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitwillrevealbottom Mozilla Document.onwebkitwillrevealbottom documentation> +webKitWillRevealBottom ::+                       (IsDocument self, IsEventTarget self) => EventName self Event+webKitWillRevealBottom+  = unsafeEventName (toJSString "webkitwillrevealbottom")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitwillrevealleft Mozilla Document.onwebkitwillrevealleft documentation> +webKitWillRevealLeft ::+                     (IsDocument self, IsEventTarget self) => EventName self Event+webKitWillRevealLeft+  = unsafeEventName (toJSString "webkitwillrevealleft")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitwillrevealright Mozilla Document.onwebkitwillrevealright documentation> +webKitWillRevealRight ::+                      (IsDocument self, IsEventTarget self) => EventName self Event+webKitWillRevealRight+  = unsafeEventName (toJSString "webkitwillrevealright")++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onwebkitwillrevealtop Mozilla Document.onwebkitwillrevealtop documentation> +webKitWillRevealTop ::+                    (IsDocument self, IsEventTarget self) => EventName self Event+webKitWillRevealTop+  = unsafeEventName (toJSString "webkitwillrevealtop")+ +foreign import javascript unsafe "$1[\"visibilityState\"]"+        js_getVisibilityState :: Document -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.visibilityState Mozilla Document.visibilityState documentation> +getVisibilityState ::+                   (MonadIO m, IsDocument self, FromJSString result) =>+                     self -> m result+getVisibilityState self+  = liftIO+      (fromJSString <$> (js_getVisibilityState (toDocument self)))+ +foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"+        js_getHidden :: Document -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hidden Mozilla Document.hidden documentation> +getHidden :: (MonadIO m, IsDocument self) => self -> m Bool+getHidden self = liftIO (js_getHidden (toDocument self))+ +foreign import javascript unsafe "$1[\"securityPolicy\"]"+        js_getSecurityPolicy :: Document -> IO (Nullable SecurityPolicy)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.securityPolicy Mozilla Document.securityPolicy documentation> +getSecurityPolicy ::+                  (MonadIO m, IsDocument self) => self -> m (Maybe SecurityPolicy)+getSecurityPolicy self+  = liftIO+      (nullableToMaybe <$> (js_getSecurityPolicy (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.securityPolicy Mozilla Document.securityPolicy documentation> +getSecurityPolicyUnchecked ::+                           (MonadIO m, IsDocument self) => self -> m SecurityPolicy+getSecurityPolicyUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getSecurityPolicy (toDocument self)))+ +foreign import javascript unsafe "$1[\"currentScript\"]"+        js_getCurrentScript :: Document -> IO (Nullable HTMLScriptElement)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> +getCurrentScript ::+                 (MonadIO m, IsDocument self) => self -> m (Maybe HTMLScriptElement)+getCurrentScript self+  = liftIO+      (nullableToMaybe <$> (js_getCurrentScript (toDocument self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation> +getCurrentScriptUnchecked ::+                          (MonadIO m, IsDocument self) => self -> m HTMLScriptElement+getCurrentScriptUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getCurrentScript (toDocument self)))   foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::         Document -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs view
@@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DocumentFragment        (js_newDocumentFragment, newDocumentFragment, js_querySelector,-        querySelector, js_querySelectorAll, querySelectorAll,-        DocumentFragment, castToDocumentFragment, gTypeDocumentFragment)+        querySelector, querySelector_, querySelectorUnchecked,+        js_querySelectorAll, querySelectorAll, querySelectorAll_,+        querySelectorAllUnchecked, DocumentFragment,+        castToDocumentFragment, gTypeDocumentFragment)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +13,11 @@ 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)@@ -39,6 +43,22 @@   = liftIO       (nullableToMaybe <$>          (js_querySelector (self) (toJSString selectors)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelector Mozilla DocumentFragment.querySelector documentation> +querySelector_ ::+               (MonadIO m, ToJSString selectors) =>+                 DocumentFragment -> selectors -> m ()+querySelector_ self selectors+  = liftIO (void (js_querySelector (self) (toJSString selectors)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelector Mozilla DocumentFragment.querySelector documentation> +querySelectorUnchecked ::+                       (MonadIO m, ToJSString selectors) =>+                         DocumentFragment -> selectors -> m Element+querySelectorUnchecked self selectors+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_querySelector (self) (toJSString selectors)))   foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"         js_querySelectorAll ::@@ -51,4 +71,20 @@ querySelectorAll self selectors   = liftIO       (nullableToMaybe <$>+         (js_querySelectorAll (self) (toJSString selectors)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelectorAll Mozilla DocumentFragment.querySelectorAll documentation> +querySelectorAll_ ::+                  (MonadIO m, ToJSString selectors) =>+                    DocumentFragment -> selectors -> m ()+querySelectorAll_ self selectors+  = liftIO (void (js_querySelectorAll (self) (toJSString selectors)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelectorAll Mozilla DocumentFragment.querySelectorAll documentation> +querySelectorAllUnchecked ::+                          (MonadIO m, ToJSString selectors) =>+                            DocumentFragment -> selectors -> m NodeList+querySelectorAllUnchecked self selectors+  = liftIO+      (fromJust . nullableToMaybe <$>          (js_querySelectorAll (self) (toJSString selectors)))
src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs view
@@ -1,9 +1,12 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DocumentType-       (js_getName, getName, js_getEntities, getEntities, js_getNotations,-        getNotations, js_getPublicId, getPublicId, js_getSystemId,-        getSystemId, js_getInternalSubset, getInternalSubset, DocumentType,-        castToDocumentType, gTypeDocumentType)+       (js_getName, getName, js_getEntities, getEntities,+        getEntitiesUnchecked, js_getNotations, getNotations,+        getNotationsUnchecked, js_getPublicId, getPublicId,+        getPublicIdUnchecked, js_getSystemId, getSystemId,+        getSystemIdUnchecked, js_getInternalSubset, getInternalSubset,+        getInternalSubsetUnchecked, DocumentType, castToDocumentType,+        gTypeDocumentType)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -12,9 +15,11 @@ 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)@@ -36,6 +41,12 @@             (MonadIO m) => DocumentType -> m (Maybe NamedNodeMap) getEntities self   = liftIO (nullableToMaybe <$> (js_getEntities (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.entities Mozilla DocumentType.entities documentation> +getEntitiesUnchecked ::+                     (MonadIO m) => DocumentType -> m NamedNodeMap+getEntitiesUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getEntities (self)))   foreign import javascript unsafe "$1[\"notations\"]"         js_getNotations :: DocumentType -> IO (Nullable NamedNodeMap)@@ -45,6 +56,12 @@              (MonadIO m) => DocumentType -> m (Maybe NamedNodeMap) getNotations self   = liftIO (nullableToMaybe <$> (js_getNotations (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.notations Mozilla DocumentType.notations documentation> +getNotationsUnchecked ::+                      (MonadIO m) => DocumentType -> m NamedNodeMap+getNotationsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getNotations (self)))   foreign import javascript unsafe "$1[\"publicId\"]" js_getPublicId         :: DocumentType -> IO (Nullable JSString)@@ -55,6 +72,12 @@               DocumentType -> m (Maybe result) getPublicId self   = liftIO (fromMaybeJSString <$> (js_getPublicId (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.publicId Mozilla DocumentType.publicId documentation> +getPublicIdUnchecked ::+                     (MonadIO m, FromJSString result) => DocumentType -> m result+getPublicIdUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getPublicId (self)))   foreign import javascript unsafe "$1[\"systemId\"]" js_getSystemId         :: DocumentType -> IO (Nullable JSString)@@ -65,6 +88,12 @@               DocumentType -> m (Maybe result) getSystemId self   = liftIO (fromMaybeJSString <$> (js_getSystemId (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.systemId Mozilla DocumentType.systemId documentation> +getSystemIdUnchecked ::+                     (MonadIO m, FromJSString result) => DocumentType -> m result+getSystemIdUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getSystemId (self)))   foreign import javascript unsafe "$1[\"internalSubset\"]"         js_getInternalSubset :: DocumentType -> IO (Nullable JSString)@@ -75,3 +104,10 @@                     DocumentType -> m (Maybe result) getInternalSubset self   = liftIO (fromMaybeJSString <$> (js_getInternalSubset (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.internalSubset Mozilla DocumentType.internalSubset documentation> +getInternalSubsetUnchecked ::+                           (MonadIO m, FromJSString result) => DocumentType -> m result+getInternalSubsetUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getInternalSubset (self)))
src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs view
@@ -1,9 +1,12 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.DynamicsCompressorNode-       (js_getThreshold, getThreshold, js_getKnee, getKnee, js_getRatio,-        getRatio, js_getReduction, getReduction, js_getAttack, getAttack,-        js_getRelease, getRelease, DynamicsCompressorNode,-        castToDynamicsCompressorNode, gTypeDynamicsCompressorNode)+       (js_getThreshold, getThreshold, getThresholdUnchecked, js_getKnee,+        getKnee, getKneeUnchecked, js_getRatio, getRatio,+        getRatioUnchecked, js_getReduction, getReduction,+        getReductionUnchecked, js_getAttack, getAttack, getAttackUnchecked,+        js_getRelease, getRelease, getReleaseUnchecked,+        DynamicsCompressorNode, castToDynamicsCompressorNode,+        gTypeDynamicsCompressorNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -12,9 +15,11 @@ 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)@@ -29,6 +34,12 @@              (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam) getThreshold self   = liftIO (nullableToMaybe <$> (js_getThreshold (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.threshold Mozilla DynamicsCompressorNode.threshold documentation> +getThresholdUnchecked ::+                      (MonadIO m) => DynamicsCompressorNode -> m AudioParam+getThresholdUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getThreshold (self)))   foreign import javascript unsafe "$1[\"knee\"]" js_getKnee ::         DynamicsCompressorNode -> IO (Nullable AudioParam)@@ -37,6 +48,12 @@ getKnee ::         (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam) getKnee self = liftIO (nullableToMaybe <$> (js_getKnee (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.knee Mozilla DynamicsCompressorNode.knee documentation> +getKneeUnchecked ::+                 (MonadIO m) => DynamicsCompressorNode -> m AudioParam+getKneeUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getKnee (self)))   foreign import javascript unsafe "$1[\"ratio\"]" js_getRatio ::         DynamicsCompressorNode -> IO (Nullable AudioParam)@@ -45,6 +62,12 @@ getRatio ::          (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam) getRatio self = liftIO (nullableToMaybe <$> (js_getRatio (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.ratio Mozilla DynamicsCompressorNode.ratio documentation> +getRatioUnchecked ::+                  (MonadIO m) => DynamicsCompressorNode -> m AudioParam+getRatioUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRatio (self)))   foreign import javascript unsafe "$1[\"reduction\"]"         js_getReduction ::@@ -55,6 +78,12 @@              (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam) getReduction self   = liftIO (nullableToMaybe <$> (js_getReduction (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.reduction Mozilla DynamicsCompressorNode.reduction documentation> +getReductionUnchecked ::+                      (MonadIO m) => DynamicsCompressorNode -> m AudioParam+getReductionUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getReduction (self)))   foreign import javascript unsafe "$1[\"attack\"]" js_getAttack ::         DynamicsCompressorNode -> IO (Nullable AudioParam)@@ -63,6 +92,12 @@ getAttack ::           (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam) getAttack self = liftIO (nullableToMaybe <$> (js_getAttack (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.attack Mozilla DynamicsCompressorNode.attack documentation> +getAttackUnchecked ::+                   (MonadIO m) => DynamicsCompressorNode -> m AudioParam+getAttackUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getAttack (self)))   foreign import javascript unsafe "$1[\"release\"]" js_getRelease ::         DynamicsCompressorNode -> IO (Nullable AudioParam)@@ -72,3 +107,9 @@            (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam) getRelease self   = liftIO (nullableToMaybe <$> (js_getRelease (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.release Mozilla DynamicsCompressorNode.release documentation> +getReleaseUnchecked ::+                    (MonadIO m) => DynamicsCompressorNode -> m AudioParam+getReleaseUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRelease (self)))
src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/EXTTextureFilterAnisotropic.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/EXTsRGB.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/Element.hs view
@@ -1,47 +1,67 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Element-       (js_getAttribute, getAttribute, js_setAttribute, setAttribute,+       (js_getAttribute, getAttribute, getAttribute_,+        getAttributeUnchecked, js_setAttribute, setAttribute,         js_removeAttribute, removeAttribute, js_getAttributeNode,-        getAttributeNode, js_setAttributeNode, setAttributeNode,-        js_removeAttributeNode, removeAttributeNode,-        js_getElementsByTagName, getElementsByTagName, js_hasAttributes,-        hasAttributes, js_getAttributeNS, getAttributeNS,+        getAttributeNode, getAttributeNode_, getAttributeNodeUnchecked,+        js_setAttributeNode, setAttributeNode, setAttributeNode_,+        setAttributeNodeUnchecked, js_removeAttributeNode,+        removeAttributeNode, removeAttributeNode_,+        removeAttributeNodeUnchecked, js_getElementsByTagName,+        getElementsByTagName, getElementsByTagName_,+        getElementsByTagNameUnchecked, js_hasAttributes, hasAttributes,+        hasAttributes_, js_getAttributeNS, getAttributeNS, getAttributeNS_,         js_setAttributeNS, setAttributeNS, js_removeAttributeNS,         removeAttributeNS, js_getElementsByTagNameNS,-        getElementsByTagNameNS, js_getAttributeNodeNS, getAttributeNodeNS,-        js_setAttributeNodeNS, setAttributeNodeNS, js_hasAttribute,-        hasAttribute, js_hasAttributeNS, hasAttributeNS, js_focus, focus,-        js_blur, blur, js_scrollIntoView, scrollIntoView,+        getElementsByTagNameNS, getElementsByTagNameNS_,+        getElementsByTagNameNSUnchecked, js_getAttributeNodeNS,+        getAttributeNodeNS, getAttributeNodeNS_,+        getAttributeNodeNSUnchecked, js_setAttributeNodeNS,+        setAttributeNodeNS, setAttributeNodeNS_,+        setAttributeNodeNSUnchecked, js_hasAttribute, hasAttribute,+        hasAttribute_, js_hasAttributeNS, hasAttributeNS, hasAttributeNS_,+        js_focus, focus, js_blur, blur, js_scrollIntoView, scrollIntoView,         js_scrollIntoViewIfNeeded, scrollIntoViewIfNeeded,         js_scrollByLines, scrollByLines, js_scrollByPages, scrollByPages,         js_getElementsByClassName, getElementsByClassName,-        js_querySelector, querySelector, js_querySelectorAll,-        querySelectorAll, js_matches, matches, js_closest, closest,-        js_webkitMatchesSelector, webkitMatchesSelector, js_getClientRects,-        getClientRects, js_getBoundingClientRect, getBoundingClientRect,-        js_webkitRequestFullScreen, webkitRequestFullScreen,-        js_webkitRequestFullscreen, webkitRequestFullscreen,-        js_requestPointerLock, requestPointerLock,+        getElementsByClassName_, getElementsByClassNameUnchecked,+        js_querySelector, querySelector, querySelector_,+        querySelectorUnchecked, js_querySelectorAll, querySelectorAll,+        querySelectorAll_, querySelectorAllUnchecked, js_matches, matches,+        matches_, js_closest, closest, closest_, closestUnchecked,+        js_webkitMatchesSelector, webkitMatchesSelector,+        webkitMatchesSelector_, js_getClientRects, getClientRects,+        getClientRects_, getClientRectsUnchecked, js_getBoundingClientRect,+        getBoundingClientRect, getBoundingClientRect_,+        getBoundingClientRectUnchecked, js_webkitRequestFullScreen,+        webkitRequestFullScreen, js_webkitRequestFullscreen,+        webkitRequestFullscreen, js_requestPointerLock, requestPointerLock,         js_webkitGetRegionFlowRanges, webkitGetRegionFlowRanges,-        pattern ALLOW_KEYBOARD_INPUT, js_getTagName, getTagName,-        js_getAttributes, getAttributes, js_getStyle, getStyle, js_setId,-        setId, js_getId, getId, js_getOffsetLeft, getOffsetLeft,-        js_getOffsetTop, getOffsetTop, js_getOffsetWidth, getOffsetWidth,-        js_getOffsetHeight, getOffsetHeight, js_getClientLeft,-        getClientLeft, js_getClientTop, getClientTop, js_getClientWidth,-        getClientWidth, js_getClientHeight, getClientHeight,-        js_setScrollLeft, setScrollLeft, js_getScrollLeft, getScrollLeft,-        js_setScrollTop, setScrollTop, js_getScrollTop, getScrollTop,-        js_getScrollWidth, getScrollWidth, js_getScrollHeight,-        getScrollHeight, js_getOffsetParent, getOffsetParent,+        webkitGetRegionFlowRanges_, pattern ALLOW_KEYBOARD_INPUT,+        js_getTagName, getTagName, getTagNameUnchecked, js_getAttributes,+        getAttributes, getAttributesUnchecked, js_getStyle, getStyle,+        getStyleUnchecked, js_setId, setId, js_getId, getId,+        js_getOffsetLeft, getOffsetLeft, js_getOffsetTop, getOffsetTop,+        js_getOffsetWidth, getOffsetWidth, js_getOffsetHeight,+        getOffsetHeight, js_getClientLeft, getClientLeft, js_getClientTop,+        getClientTop, js_getClientWidth, getClientWidth,+        js_getClientHeight, getClientHeight, js_setScrollLeft,+        setScrollLeft, js_getScrollLeft, getScrollLeft, js_setScrollTop,+        setScrollTop, js_getScrollTop, getScrollTop, js_getScrollWidth,+        getScrollWidth, js_getScrollHeight, getScrollHeight,+        js_getOffsetParent, getOffsetParent, getOffsetParentUnchecked,         js_setInnerHTML, setInnerHTML, js_getInnerHTML, getInnerHTML,-        js_setOuterHTML, setOuterHTML, js_getOuterHTML, getOuterHTML,+        getInnerHTMLUnchecked, js_setOuterHTML, setOuterHTML,+        js_getOuterHTML, getOuterHTML, getOuterHTMLUnchecked,         js_setClassName, setClassName, js_getClassName, getClassName,-        js_getClassList, getClassList, js_getDataset, getDataset,+        js_getClassList, getClassList, getClassListUnchecked,+        js_getDataset, getDataset, getDatasetUnchecked,         js_getFirstElementChild, getFirstElementChild,-        js_getLastElementChild, getLastElementChild,+        getFirstElementChildUnchecked, js_getLastElementChild,+        getLastElementChild, getLastElementChildUnchecked,         js_getPreviousElementSibling, getPreviousElementSibling,-        js_getNextElementSibling, getNextElementSibling,+        getPreviousElementSiblingUnchecked, js_getNextElementSibling,+        getNextElementSibling, getNextElementSiblingUnchecked,         js_getChildElementCount, getChildElementCount, js_setUiactions,         setUiactions, js_getUiactions, getUiactions,         js_getWebkitRegionOverset, getWebkitRegionOverset, abort,@@ -64,9 +84,11 @@ 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)@@ -84,6 +106,24 @@   = liftIO       (fromMaybeJSString <$>          (js_getAttribute (toElement self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> +getAttribute_ ::+              (MonadIO m, IsElement self, ToJSString name) =>+                self -> name -> m ()+getAttribute_ self name+  = liftIO+      (void (js_getAttribute (toElement self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation> +getAttributeUnchecked ::+                      (MonadIO m, IsElement self, ToJSString name,+                       FromJSString result) =>+                        self -> name -> m result+getAttributeUnchecked self name+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getAttribute (toElement self) (toJSString name)))   foreign import javascript unsafe "$1[\"setAttribute\"]($2, $3)"         js_setAttribute :: Element -> JSString -> JSString -> IO ()@@ -118,6 +158,23 @@   = liftIO       (nullableToMaybe <$>          (js_getAttributeNode (toElement self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> +getAttributeNode_ ::+                  (MonadIO m, IsElement self, ToJSString name) =>+                    self -> name -> m ()+getAttributeNode_ self name+  = liftIO+      (void (js_getAttributeNode (toElement self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation> +getAttributeNodeUnchecked ::+                          (MonadIO m, IsElement self, ToJSString name) =>+                            self -> name -> m Attr+getAttributeNodeUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getAttributeNode (toElement self) (toJSString name)))   foreign import javascript unsafe "$1[\"setAttributeNode\"]($2)"         js_setAttributeNode ::@@ -130,6 +187,22 @@   = liftIO       (nullableToMaybe <$>          (js_setAttributeNode (toElement self) (maybeToNullable newAttr)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> +setAttributeNode_ ::+                  (MonadIO m, IsElement self) => self -> Maybe Attr -> m ()+setAttributeNode_ self newAttr+  = liftIO+      (void+         (js_setAttributeNode (toElement self) (maybeToNullable newAttr)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation> +setAttributeNodeUnchecked ::+                          (MonadIO m, IsElement self) => self -> Maybe Attr -> m Attr+setAttributeNodeUnchecked self newAttr+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_setAttributeNode (toElement self) (maybeToNullable newAttr)))   foreign import javascript unsafe "$1[\"removeAttributeNode\"]($2)"         js_removeAttributeNode ::@@ -143,6 +216,24 @@       (nullableToMaybe <$>          (js_removeAttributeNode (toElement self)             (maybeToNullable oldAttr)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation> +removeAttributeNode_ ::+                     (MonadIO m, IsElement self) => self -> Maybe Attr -> m ()+removeAttributeNode_ self oldAttr+  = liftIO+      (void+         (js_removeAttributeNode (toElement self)+            (maybeToNullable oldAttr)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation> +removeAttributeNodeUnchecked ::+                             (MonadIO m, IsElement self) => self -> Maybe Attr -> m Attr+removeAttributeNodeUnchecked self oldAttr+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_removeAttributeNode (toElement self)+            (maybeToNullable oldAttr)))   foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"         js_getElementsByTagName ::@@ -156,6 +247,23 @@   = liftIO       (nullableToMaybe <$>          (js_getElementsByTagName (toElement self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagName Mozilla Element.getElementsByTagName documentation> +getElementsByTagName_ ::+                      (MonadIO m, IsElement self, ToJSString name) =>+                        self -> name -> m ()+getElementsByTagName_ self name+  = liftIO+      (void (js_getElementsByTagName (toElement self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagName Mozilla Element.getElementsByTagName documentation> +getElementsByTagNameUnchecked ::+                              (MonadIO m, IsElement self, ToJSString name) =>+                                self -> name -> m NodeList+getElementsByTagNameUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getElementsByTagName (toElement self) (toJSString name)))   foreign import javascript unsafe         "($1[\"hasAttributes\"]() ? 1 : 0)" js_hasAttributes ::@@ -164,6 +272,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributes Mozilla Element.hasAttributes documentation>  hasAttributes :: (MonadIO m, IsElement self) => self -> m Bool hasAttributes self = liftIO (js_hasAttributes (toElement self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributes Mozilla Element.hasAttributes documentation> +hasAttributes_ :: (MonadIO m, IsElement self) => self -> m ()+hasAttributes_ self+  = liftIO (void (js_hasAttributes (toElement self)))   foreign import javascript unsafe "$1[\"getAttributeNS\"]($2, $3)"         js_getAttributeNS ::@@ -179,6 +292,17 @@       (fromJSString <$>          (js_getAttributeNS (toElement self) (toMaybeJSString namespaceURI)             (toJSString localName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation> +getAttributeNS_ ::+                (MonadIO m, IsElement self, ToJSString namespaceURI,+                 ToJSString localName) =>+                  self -> Maybe namespaceURI -> localName -> m ()+getAttributeNS_ self namespaceURI localName+  = liftIO+      (void+         (js_getAttributeNS (toElement self) (toMaybeJSString namespaceURI)+            (toJSString localName)))   foreign import javascript unsafe         "$1[\"setAttributeNS\"]($2, $3, $4)" js_setAttributeNS ::@@ -226,6 +350,30 @@          (js_getElementsByTagNameNS (toElement self)             (toMaybeJSString namespaceURI)             (toJSString localName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation> +getElementsByTagNameNS_ ::+                        (MonadIO m, IsElement self, ToJSString namespaceURI,+                         ToJSString localName) =>+                          self -> Maybe namespaceURI -> localName -> m ()+getElementsByTagNameNS_ self namespaceURI localName+  = liftIO+      (void+         (js_getElementsByTagNameNS (toElement self)+            (toMaybeJSString namespaceURI)+            (toJSString localName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation> +getElementsByTagNameNSUnchecked ::+                                (MonadIO m, IsElement self, ToJSString namespaceURI,+                                 ToJSString localName) =>+                                  self -> Maybe namespaceURI -> localName -> m NodeList+getElementsByTagNameNSUnchecked self namespaceURI localName+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getElementsByTagNameNS (toElement self)+            (toMaybeJSString namespaceURI)+            (toJSString localName)))   foreign import javascript unsafe         "$1[\"getAttributeNodeNS\"]($2, $3)" js_getAttributeNodeNS ::@@ -242,6 +390,30 @@          (js_getAttributeNodeNS (toElement self)             (toMaybeJSString namespaceURI)             (toJSString localName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> +getAttributeNodeNS_ ::+                    (MonadIO m, IsElement self, ToJSString namespaceURI,+                     ToJSString localName) =>+                      self -> Maybe namespaceURI -> localName -> m ()+getAttributeNodeNS_ self namespaceURI localName+  = liftIO+      (void+         (js_getAttributeNodeNS (toElement self)+            (toMaybeJSString namespaceURI)+            (toJSString localName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation> +getAttributeNodeNSUnchecked ::+                            (MonadIO m, IsElement self, ToJSString namespaceURI,+                             ToJSString localName) =>+                              self -> Maybe namespaceURI -> localName -> m Attr+getAttributeNodeNSUnchecked self namespaceURI localName+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getAttributeNodeNS (toElement self)+            (toMaybeJSString namespaceURI)+            (toJSString localName)))   foreign import javascript unsafe "$1[\"setAttributeNodeNS\"]($2)"         js_setAttributeNodeNS ::@@ -254,6 +426,22 @@   = liftIO       (nullableToMaybe <$>          (js_setAttributeNodeNS (toElement self) (maybeToNullable newAttr)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> +setAttributeNodeNS_ ::+                    (MonadIO m, IsElement self) => self -> Maybe Attr -> m ()+setAttributeNodeNS_ self newAttr+  = liftIO+      (void+         (js_setAttributeNodeNS (toElement self) (maybeToNullable newAttr)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation> +setAttributeNodeNSUnchecked ::+                            (MonadIO m, IsElement self) => self -> Maybe Attr -> m Attr+setAttributeNodeNSUnchecked self newAttr+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_setAttributeNodeNS (toElement self) (maybeToNullable newAttr)))   foreign import javascript unsafe         "($1[\"hasAttribute\"]($2) ? 1 : 0)" js_hasAttribute ::@@ -265,6 +453,14 @@                self -> name -> m Bool hasAttribute self name   = liftIO (js_hasAttribute (toElement self) (toJSString name))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttribute Mozilla Element.hasAttribute documentation> +hasAttribute_ ::+              (MonadIO m, IsElement self, ToJSString name) =>+                self -> name -> m ()+hasAttribute_ self name+  = liftIO+      (void (js_hasAttribute (toElement self) (toJSString name)))   foreign import javascript unsafe         "($1[\"hasAttributeNS\"]($2,\n$3) ? 1 : 0)" js_hasAttributeNS ::@@ -279,6 +475,17 @@   = liftIO       (js_hasAttributeNS (toElement self) (toMaybeJSString namespaceURI)          (toJSString localName))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributeNS Mozilla Element.hasAttributeNS documentation> +hasAttributeNS_ ::+                (MonadIO m, IsElement self, ToJSString namespaceURI,+                 ToJSString localName) =>+                  self -> Maybe namespaceURI -> localName -> m ()+hasAttributeNS_ self namespaceURI localName+  = liftIO+      (void+         (js_hasAttributeNS (toElement self) (toMaybeJSString namespaceURI)+            (toJSString localName)))   foreign import javascript unsafe "$1[\"focus\"]()" js_focus ::         Element -> IO ()@@ -342,6 +549,24 @@   = liftIO       (nullableToMaybe <$>          (js_getElementsByClassName (toElement self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation> +getElementsByClassName_ ::+                        (MonadIO m, IsElement self, ToJSString name) =>+                          self -> name -> m ()+getElementsByClassName_ self name+  = liftIO+      (void+         (js_getElementsByClassName (toElement self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation> +getElementsByClassNameUnchecked ::+                                (MonadIO m, IsElement self, ToJSString name) =>+                                  self -> name -> m NodeList+getElementsByClassNameUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getElementsByClassName (toElement self) (toJSString name)))   foreign import javascript unsafe "$1[\"querySelector\"]($2)"         js_querySelector :: Element -> JSString -> IO (Nullable Element)@@ -354,6 +579,23 @@   = liftIO       (nullableToMaybe <$>          (js_querySelector (toElement self) (toJSString selectors)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelector Mozilla Element.querySelector documentation> +querySelector_ ::+               (MonadIO m, IsElement self, ToJSString selectors) =>+                 self -> selectors -> m ()+querySelector_ self selectors+  = liftIO+      (void (js_querySelector (toElement self) (toJSString selectors)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelector Mozilla Element.querySelector documentation> +querySelectorUnchecked ::+                       (MonadIO m, IsElement self, ToJSString selectors) =>+                         self -> selectors -> m Element+querySelectorUnchecked self selectors+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_querySelector (toElement self) (toJSString selectors)))   foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"         js_querySelectorAll ::@@ -367,6 +609,24 @@   = liftIO       (nullableToMaybe <$>          (js_querySelectorAll (toElement self) (toJSString selectors)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelectorAll Mozilla Element.querySelectorAll documentation> +querySelectorAll_ ::+                  (MonadIO m, IsElement self, ToJSString selectors) =>+                    self -> selectors -> m ()+querySelectorAll_ self selectors+  = liftIO+      (void+         (js_querySelectorAll (toElement self) (toJSString selectors)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelectorAll Mozilla Element.querySelectorAll documentation> +querySelectorAllUnchecked ::+                          (MonadIO m, IsElement self, ToJSString selectors) =>+                            self -> selectors -> m NodeList+querySelectorAllUnchecked self selectors+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_querySelectorAll (toElement self) (toJSString selectors)))   foreign import javascript unsafe "($1[\"matches\"]($2) ? 1 : 0)"         js_matches :: Element -> JSString -> IO Bool@@ -377,6 +637,14 @@           self -> selectors -> m Bool matches self selectors   = liftIO (js_matches (toElement self) (toJSString selectors))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.matches Mozilla Element.matches documentation> +matches_ ::+         (MonadIO m, IsElement self, ToJSString selectors) =>+           self -> selectors -> m ()+matches_ self selectors+  = liftIO+      (void (js_matches (toElement self) (toJSString selectors)))   foreign import javascript unsafe "$1[\"closest\"]($2)" js_closest         :: Element -> JSString -> IO (Nullable Element)@@ -389,6 +657,23 @@   = liftIO       (nullableToMaybe <$>          (js_closest (toElement self) (toJSString selectors)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> +closest_ ::+         (MonadIO m, IsElement self, ToJSString selectors) =>+           self -> selectors -> m ()+closest_ self selectors+  = liftIO+      (void (js_closest (toElement self) (toJSString selectors)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation> +closestUnchecked ::+                 (MonadIO m, IsElement self, ToJSString selectors) =>+                   self -> selectors -> m Element+closestUnchecked self selectors+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_closest (toElement self) (toJSString selectors)))   foreign import javascript unsafe         "($1[\"webkitMatchesSelector\"]($2) ? 1 : 0)"@@ -401,6 +686,15 @@ webkitMatchesSelector self selectors   = liftIO       (js_webkitMatchesSelector (toElement self) (toJSString selectors))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitMatchesSelector Mozilla Element.webkitMatchesSelector documentation> +webkitMatchesSelector_ ::+                       (MonadIO m, IsElement self, ToJSString selectors) =>+                         self -> selectors -> m ()+webkitMatchesSelector_ self selectors+  = liftIO+      (void+         (js_webkitMatchesSelector (toElement self) (toJSString selectors)))   foreign import javascript unsafe "$1[\"getClientRects\"]()"         js_getClientRects :: Element -> IO (Nullable ClientRectList)@@ -410,6 +704,19 @@                (MonadIO m, IsElement self) => self -> m (Maybe ClientRectList) getClientRects self   = liftIO (nullableToMaybe <$> (js_getClientRects (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation> +getClientRects_ :: (MonadIO m, IsElement self) => self -> m ()+getClientRects_ self+  = liftIO (void (js_getClientRects (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation> +getClientRectsUnchecked ::+                        (MonadIO m, IsElement self) => self -> m ClientRectList+getClientRectsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getClientRects (toElement self)))   foreign import javascript unsafe "$1[\"getBoundingClientRect\"]()"         js_getBoundingClientRect :: Element -> IO (Nullable ClientRect)@@ -420,6 +727,20 @@ getBoundingClientRect self   = liftIO       (nullableToMaybe <$> (js_getBoundingClientRect (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation> +getBoundingClientRect_ ::+                       (MonadIO m, IsElement self) => self -> m ()+getBoundingClientRect_ self+  = liftIO (void (js_getBoundingClientRect (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation> +getBoundingClientRectUnchecked ::+                               (MonadIO m, IsElement self) => self -> m ClientRect+getBoundingClientRectUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getBoundingClientRect (toElement self)))   foreign import javascript unsafe         "$1[\"webkitRequestFullScreen\"]($2)" js_webkitRequestFullScreen ::@@ -460,6 +781,12 @@   = liftIO       ((js_webkitGetRegionFlowRanges (toElement self)) >>=          fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitGetRegionFlowRanges Mozilla Element.webkitGetRegionFlowRanges documentation> +webkitGetRegionFlowRanges_ ::+                           (MonadIO m, IsElement self) => self -> m ()+webkitGetRegionFlowRanges_ self+  = liftIO (void (js_webkitGetRegionFlowRanges (toElement self))) pattern ALLOW_KEYBOARD_INPUT = 1   foreign import javascript unsafe "$1[\"tagName\"]" js_getTagName ::@@ -471,6 +798,14 @@              self -> m (Maybe result) getTagName self   = liftIO (fromMaybeJSString <$> (js_getTagName (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.tagName Mozilla Element.tagName documentation> +getTagNameUnchecked ::+                    (MonadIO m, IsElement self, FromJSString result) =>+                      self -> m result+getTagNameUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getTagName (toElement self)))   foreign import javascript unsafe "$1[\"attributes\"]"         js_getAttributes :: Element -> IO (Nullable NamedNodeMap)@@ -480,6 +815,14 @@               (MonadIO m, IsElement self) => self -> m (Maybe NamedNodeMap) getAttributes self   = liftIO (nullableToMaybe <$> (js_getAttributes (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attributes Mozilla Element.attributes documentation> +getAttributesUnchecked ::+                       (MonadIO m, IsElement self) => self -> m NamedNodeMap+getAttributesUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getAttributes (toElement self)))   foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::         Element -> IO (Nullable CSSStyleDeclaration)@@ -490,6 +833,13 @@            self -> m (Maybe CSSStyleDeclaration) getStyle self   = liftIO (nullableToMaybe <$> (js_getStyle (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.style Mozilla Element.style documentation> +getStyleUnchecked ::+                  (MonadIO m, IsElement self) => self -> m CSSStyleDeclaration+getStyleUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getStyle (toElement self)))   foreign import javascript unsafe "$1[\"id\"] = $2;" js_setId ::         Element -> JSString -> IO ()@@ -618,6 +968,14 @@ getOffsetParent self   = liftIO       (nullableToMaybe <$> (js_getOffsetParent (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetParent Mozilla Element.offsetParent documentation> +getOffsetParentUnchecked ::+                         (MonadIO m, IsElement self) => self -> m Element+getOffsetParentUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getOffsetParent (toElement self)))   foreign import javascript unsafe "$1[\"innerHTML\"] = $2;"         js_setInnerHTML :: Element -> Nullable JSString -> IO ()@@ -638,6 +996,15 @@                self -> m (Maybe result) getInnerHTML self   = liftIO (fromMaybeJSString <$> (js_getInnerHTML (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation> +getInnerHTMLUnchecked ::+                      (MonadIO m, IsElement self, FromJSString result) =>+                        self -> m result+getInnerHTMLUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getInnerHTML (toElement self)))   foreign import javascript unsafe "$1[\"outerHTML\"] = $2;"         js_setOuterHTML :: Element -> Nullable JSString -> IO ()@@ -658,6 +1025,15 @@                self -> m (Maybe result) getOuterHTML self   = liftIO (fromMaybeJSString <$> (js_getOuterHTML (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation> +getOuterHTMLUnchecked ::+                      (MonadIO m, IsElement self, FromJSString result) =>+                        self -> m result+getOuterHTMLUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getOuterHTML (toElement self)))   foreign import javascript unsafe "$1[\"className\"] = $2;"         js_setClassName :: Element -> JSString -> IO ()@@ -686,6 +1062,13 @@              (MonadIO m, IsElement self) => self -> m (Maybe DOMTokenList) getClassList self   = liftIO (nullableToMaybe <$> (js_getClassList (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.classList Mozilla Element.classList documentation> +getClassListUnchecked ::+                      (MonadIO m, IsElement self) => self -> m DOMTokenList+getClassListUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getClassList (toElement self)))   foreign import javascript unsafe "$1[\"dataset\"]" js_getDataset ::         Element -> IO (Nullable DOMStringMap)@@ -695,6 +1078,13 @@            (MonadIO m, IsElement self) => self -> m (Maybe DOMStringMap) getDataset self   = liftIO (nullableToMaybe <$> (js_getDataset (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.dataset Mozilla Element.dataset documentation> +getDatasetUnchecked ::+                    (MonadIO m, IsElement self) => self -> m DOMStringMap+getDatasetUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getDataset (toElement self)))   foreign import javascript unsafe "$1[\"firstElementChild\"]"         js_getFirstElementChild :: Element -> IO (Nullable Element)@@ -705,6 +1095,14 @@ getFirstElementChild self   = liftIO       (nullableToMaybe <$> (js_getFirstElementChild (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.firstElementChild Mozilla Element.firstElementChild documentation> +getFirstElementChildUnchecked ::+                              (MonadIO m, IsElement self) => self -> m Element+getFirstElementChildUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getFirstElementChild (toElement self)))   foreign import javascript unsafe "$1[\"lastElementChild\"]"         js_getLastElementChild :: Element -> IO (Nullable Element)@@ -715,6 +1113,14 @@ getLastElementChild self   = liftIO       (nullableToMaybe <$> (js_getLastElementChild (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.lastElementChild Mozilla Element.lastElementChild documentation> +getLastElementChildUnchecked ::+                             (MonadIO m, IsElement self) => self -> m Element+getLastElementChildUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getLastElementChild (toElement self)))   foreign import javascript unsafe "$1[\"previousElementSibling\"]"         js_getPreviousElementSibling :: Element -> IO (Nullable Element)@@ -726,6 +1132,14 @@   = liftIO       (nullableToMaybe <$>          (js_getPreviousElementSibling (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.previousElementSibling Mozilla Element.previousElementSibling documentation> +getPreviousElementSiblingUnchecked ::+                                   (MonadIO m, IsElement self) => self -> m Element+getPreviousElementSiblingUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getPreviousElementSibling (toElement self)))   foreign import javascript unsafe "$1[\"nextElementSibling\"]"         js_getNextElementSibling :: Element -> IO (Nullable Element)@@ -736,6 +1150,14 @@ getNextElementSibling self   = liftIO       (nullableToMaybe <$> (js_getNextElementSibling (toElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.nextElementSibling Mozilla Element.nextElementSibling documentation> +getNextElementSiblingUnchecked ::+                               (MonadIO m, IsElement self) => self -> m Element+getNextElementSiblingUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getNextElementSibling (toElement self)))   foreign import javascript unsafe "$1[\"childElementCount\"]"         js_getChildElementCount :: Element -> IO Word
src/GHCJS/DOM/JSFFI/Generated/Entity.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Entity-       (js_getPublicId, getPublicId, js_getSystemId, getSystemId,-        js_getNotationName, getNotationName, Entity, castToEntity,+       (js_getPublicId, getPublicId, getPublicIdUnchecked, js_getSystemId,+        getSystemId, getSystemIdUnchecked, js_getNotationName,+        getNotationName, getNotationNameUnchecked, Entity, castToEntity,         gTypeEntity)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -11,9 +12,11 @@ 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)@@ -27,6 +30,12 @@             (MonadIO m, FromJSString result) => Entity -> m (Maybe result) getPublicId self   = liftIO (fromMaybeJSString <$> (js_getPublicId (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.publicId Mozilla Entity.publicId documentation> +getPublicIdUnchecked ::+                     (MonadIO m, FromJSString result) => Entity -> m result+getPublicIdUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getPublicId (self)))   foreign import javascript unsafe "$1[\"systemId\"]" js_getSystemId         :: Entity -> IO (Nullable JSString)@@ -36,6 +45,12 @@             (MonadIO m, FromJSString result) => Entity -> m (Maybe result) getSystemId self   = liftIO (fromMaybeJSString <$> (js_getSystemId (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.systemId Mozilla Entity.systemId documentation> +getSystemIdUnchecked ::+                     (MonadIO m, FromJSString result) => Entity -> m result+getSystemIdUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getSystemId (self)))   foreign import javascript unsafe "$1[\"notationName\"]"         js_getNotationName :: Entity -> IO (Nullable JSString)@@ -45,3 +60,10 @@                 (MonadIO m, FromJSString result) => Entity -> m (Maybe result) getNotationName self   = liftIO (fromMaybeJSString <$> (js_getNotationName (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.notationName Mozilla Entity.notationName documentation> +getNotationNameUnchecked ::+                         (MonadIO m, FromJSString result) => Entity -> m result+getNotationNameUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getNotationName (self)))
src/GHCJS/DOM/JSFFI/Generated/Enums.hs view
@@ -51,9 +51,11 @@ 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 ((<$>))
src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/Event.hs view
@@ -9,15 +9,17 @@         pattern MOUSEDRAG, pattern CLICK, pattern DBLCLICK,         pattern KEYDOWN, pattern KEYUP, pattern KEYPRESS, pattern DRAGDROP,         pattern FOCUS, pattern BLUR, pattern SELECT, pattern CHANGE,-        js_getType, getType, js_getTarget, getTarget, js_getCurrentTarget,-        getCurrentTarget, js_getEventPhase, getEventPhase, js_getBubbles,-        getBubbles, js_getCancelable, getCancelable, js_getTimeStamp,-        getTimeStamp, js_getDefaultPrevented, getDefaultPrevented,-        js_getSrcElement, getSrcElement, js_setReturnValue, setReturnValue,-        js_getReturnValue, getReturnValue, js_setCancelBubble,-        setCancelBubble, js_getCancelBubble, getCancelBubble,-        js_getClipboardData, getClipboardData, Event, castToEvent,-        gTypeEvent, IsEvent, toEvent)+        js_getType, getType, js_getTarget, getTarget, getTargetUnchecked,+        js_getCurrentTarget, getCurrentTarget, getCurrentTargetUnchecked,+        js_getEventPhase, getEventPhase, js_getBubbles, getBubbles,+        js_getCancelable, getCancelable, js_getTimeStamp, getTimeStamp,+        js_getDefaultPrevented, getDefaultPrevented, js_getSrcElement,+        getSrcElement, getSrcElementUnchecked, js_setReturnValue,+        setReturnValue, js_getReturnValue, getReturnValue,+        js_setCancelBubble, setCancelBubble, js_getCancelBubble,+        getCancelBubble, js_getClipboardData, getClipboardData,+        getClipboardDataUnchecked, Event, castToEvent, gTypeEvent, IsEvent,+        toEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -26,9 +28,11 @@ 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.JSFFI.Generated.Enums@@ -106,6 +110,13 @@           (MonadIO m, IsEvent self) => self -> m (Maybe EventTarget) getTarget self   = liftIO (nullableToMaybe <$> (js_getTarget (toEvent self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.target Mozilla Event.target documentation> +getTargetUnchecked ::+                   (MonadIO m, IsEvent self) => self -> m EventTarget+getTargetUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getTarget (toEvent self)))   foreign import javascript unsafe "$1[\"currentTarget\"]"         js_getCurrentTarget :: Event -> IO (Nullable EventTarget)@@ -115,6 +126,14 @@                  (MonadIO m, IsEvent self) => self -> m (Maybe EventTarget) getCurrentTarget self   = liftIO (nullableToMaybe <$> (js_getCurrentTarget (toEvent self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.currentTarget Mozilla Event.currentTarget documentation> +getCurrentTargetUnchecked ::+                          (MonadIO m, IsEvent self) => self -> m EventTarget+getCurrentTargetUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getCurrentTarget (toEvent self)))   foreign import javascript unsafe "$1[\"eventPhase\"]"         js_getEventPhase :: Event -> IO Word@@ -161,6 +180,13 @@               (MonadIO m, IsEvent self) => self -> m (Maybe EventTarget) getSrcElement self   = liftIO (nullableToMaybe <$> (js_getSrcElement (toEvent self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.srcElement Mozilla Event.srcElement documentation> +getSrcElementUnchecked ::+                       (MonadIO m, IsEvent self) => self -> m EventTarget+getSrcElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getSrcElement (toEvent self)))   foreign import javascript unsafe "$1[\"returnValue\"] = $2;"         js_setReturnValue :: Event -> Bool -> IO ()@@ -201,3 +227,11 @@                  (MonadIO m, IsEvent self) => self -> m (Maybe DataTransfer) getClipboardData self   = liftIO (nullableToMaybe <$> (js_getClipboardData (toEvent self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.clipboardData Mozilla Event.clipboardData documentation> +getClipboardDataUnchecked ::+                          (MonadIO m, IsEvent self) => self -> m DataTransfer+getClipboardDataUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getClipboardData (toEvent self)))
src/GHCJS/DOM/JSFFI/Generated/EventListener.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/EventSource.hs view
@@ -13,9 +13,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs view
@@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.EventTarget        (js_addEventListener, addEventListener, js_removeEventListener,-        removeEventListener, js_dispatchEvent, dispatchEvent, EventTarget,-        castToEventTarget, gTypeEventTarget, IsEventTarget, toEventTarget)+        removeEventListener, js_dispatchEvent, dispatchEvent,+        dispatchEvent_, EventTarget, castToEventTarget, gTypeEventTarget,+        IsEventTarget, toEventTarget)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +12,11 @@ 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.JSFFI.Generated.Enums@@ -59,3 +62,13 @@   = liftIO       (js_dispatchEvent (toEventTarget self)          (maybeToNullable (fmap toEvent event)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.dispatchEvent Mozilla EventTarget.dispatchEvent documentation> +dispatchEvent_ ::+               (MonadIO m, IsEventTarget self, IsEvent event) =>+                 self -> Maybe event -> m ()+dispatchEvent_ self event+  = liftIO+      (void+         (js_dispatchEvent (toEventTarget self)+            (maybeToNullable (fmap toEvent event))))
src/GHCJS/DOM/JSFFI/Generated/File.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.File        (js_getName, getName, js_getLastModifiedDate, getLastModifiedDate,-        File, castToFile, gTypeFile)+        getLastModifiedDateUnchecked, File, castToFile, gTypeFile)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -32,3 +34,9 @@ getLastModifiedDate :: (MonadIO m) => File -> m (Maybe Date) getLastModifiedDate self   = liftIO (nullableToMaybe <$> (js_getLastModifiedDate (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/File.lastModifiedDate Mozilla File.lastModifiedDate documentation> +getLastModifiedDateUnchecked :: (MonadIO m) => File -> m Date+getLastModifiedDateUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getLastModifiedDate (self)))
src/GHCJS/DOM/JSFFI/Generated/FileError.hs view
@@ -15,9 +15,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/FileList.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.FileList-       (js_item, item, js_getLength, getLength, FileList, castToFileList,-        gTypeFileList)+       (js_item, item, item_, itemUnchecked, js_getLength, getLength,+        FileList, castToFileList, gTypeFileList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -25,6 +27,15 @@ item :: (MonadIO m) => FileList -> Word -> m (Maybe File) item self index   = liftIO (nullableToMaybe <$> (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileList.item Mozilla FileList.item documentation> +item_ :: (MonadIO m) => FileList -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileList.item Mozilla FileList.item documentation> +itemUnchecked :: (MonadIO m) => FileList -> Word -> m File+itemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         FileList -> IO Word
src/GHCJS/DOM/JSFFI/Generated/FileReader.hs view
@@ -5,8 +5,9 @@         js_readAsText, readAsText, js_readAsDataURL, readAsDataURL,         js_abort, abort, pattern EMPTY, pattern LOADING, pattern DONE,         js_getReadyState, getReadyState, js_getResult, getResult,-        js_getError, getError, loadStart, progress, load, abortEvent,-        error, loadEnd, FileReader, castToFileReader, gTypeFileReader)+        js_getError, getError, getErrorUnchecked, loadStart, progress,+        load, abortEvent, error, loadEnd, FileReader, castToFileReader,+        gTypeFileReader)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -15,9 +16,11 @@ 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)@@ -102,6 +105,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.error Mozilla FileReader.error documentation>  getError :: (MonadIO m) => FileReader -> m (Maybe FileError) getError self = liftIO (nullableToMaybe <$> (js_getError (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.error Mozilla FileReader.error documentation> +getErrorUnchecked :: (MonadIO m) => FileReader -> m FileError+getErrorUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getError (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.onloadstart Mozilla FileReader.onloadstart documentation>  loadStart :: EventName FileReader ProgressEvent
src/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs view
@@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.FileReaderSync        (js_newFileReaderSync, newFileReaderSync, js_readAsArrayBuffer,-        readAsArrayBuffer, js_readAsBinaryString, readAsBinaryString,-        js_readAsText, readAsText, js_readAsDataURL, readAsDataURL,-        FileReaderSync, castToFileReaderSync, gTypeFileReaderSync)+        readAsArrayBuffer, readAsArrayBuffer_, readAsArrayBufferUnchecked,+        js_readAsBinaryString, readAsBinaryString, readAsBinaryString_,+        js_readAsText, readAsText, readAsText_, js_readAsDataURL,+        readAsDataURL, readAsDataURL_, FileReaderSync,+        castToFileReaderSync, gTypeFileReaderSync)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -12,9 +14,11 @@ 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)@@ -39,6 +43,23 @@   = liftIO       (nullableToMaybe <$>          (js_readAsArrayBuffer (self) (maybeToNullable (fmap toBlob blob))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsArrayBuffer Mozilla FileReaderSync.readAsArrayBuffer documentation> +readAsArrayBuffer_ ::+                   (MonadIO m, IsBlob blob) => FileReaderSync -> Maybe blob -> m ()+readAsArrayBuffer_ self blob+  = liftIO+      (void+         (js_readAsArrayBuffer (self) (maybeToNullable (fmap toBlob blob))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsArrayBuffer Mozilla FileReaderSync.readAsArrayBuffer documentation> +readAsArrayBufferUnchecked ::+                           (MonadIO m, IsBlob blob) =>+                             FileReaderSync -> Maybe blob -> m ArrayBuffer+readAsArrayBufferUnchecked self blob+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_readAsArrayBuffer (self) (maybeToNullable (fmap toBlob blob))))   foreign import javascript unsafe "$1[\"readAsBinaryString\"]($2)"         js_readAsBinaryString ::@@ -53,6 +74,15 @@       (fromJSString <$>          (js_readAsBinaryString (self)             (maybeToNullable (fmap toBlob blob))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsBinaryString Mozilla FileReaderSync.readAsBinaryString documentation> +readAsBinaryString_ ::+                    (MonadIO m, IsBlob blob) => FileReaderSync -> Maybe blob -> m ()+readAsBinaryString_ self blob+  = liftIO+      (void+         (js_readAsBinaryString (self)+            (maybeToNullable (fmap toBlob blob))))   foreign import javascript unsafe "$1[\"readAsText\"]($2, $3)"         js_readAsText ::@@ -68,6 +98,16 @@       (fromJSString <$>          (js_readAsText (self) (maybeToNullable (fmap toBlob blob))             (toJSString encoding)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsText Mozilla FileReaderSync.readAsText documentation> +readAsText_ ::+            (MonadIO m, IsBlob blob, ToJSString encoding) =>+              FileReaderSync -> Maybe blob -> encoding -> m ()+readAsText_ self blob encoding+  = liftIO+      (void+         (js_readAsText (self) (maybeToNullable (fmap toBlob blob))+            (toJSString encoding)))   foreign import javascript unsafe "$1[\"readAsDataURL\"]($2)"         js_readAsDataURL :: FileReaderSync -> Nullable Blob -> IO JSString@@ -79,4 +119,12 @@ readAsDataURL self blob   = liftIO       (fromJSString <$>+         (js_readAsDataURL (self) (maybeToNullable (fmap toBlob blob))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsDataURL Mozilla FileReaderSync.readAsDataURL documentation> +readAsDataURL_ ::+               (MonadIO m, IsBlob blob) => FileReaderSync -> Maybe blob -> m ()+readAsDataURL_ self blob+  = liftIO+      (void          (js_readAsDataURL (self) (maybeToNullable (fmap toBlob blob))))
src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.FocusEvent-       (js_getRelatedTarget, getRelatedTarget, FocusEvent,-        castToFocusEvent, gTypeFocusEvent)+       (js_getRelatedTarget, getRelatedTarget, getRelatedTargetUnchecked,+        FocusEvent, castToFocusEvent, gTypeFocusEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -26,3 +28,10 @@                  (MonadIO m) => FocusEvent -> m (Maybe EventTarget) getRelatedTarget self   = liftIO (nullableToMaybe <$> (js_getRelatedTarget (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FocusEvent.relatedTarget Mozilla FocusEvent.relatedTarget documentation> +getRelatedTargetUnchecked ::+                          (MonadIO m) => FocusEvent -> m EventTarget+getRelatedTargetUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getRelatedTarget (self)))
src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs view
@@ -1,6 +1,6 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.FontLoader-       (js_checkFont, checkFont, js_loadFont, loadFont,+       (js_checkFont, checkFont, checkFont_, js_loadFont, loadFont,         js_notifyWhenFontsReady, notifyWhenFontsReady, loading,         loadingDone, loadStart, load, error, js_getLoading, getLoading,         FontLoader, castToFontLoader, gTypeFontLoader)@@ -12,9 +12,11 @@ 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)@@ -30,6 +32,14 @@             FontLoader -> font -> text -> m Bool checkFont self font text   = liftIO (js_checkFont (self) (toJSString font) (toJSString text))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.checkFont Mozilla FontLoader.checkFont documentation> +checkFont_ ::+           (MonadIO m, ToJSString font, ToJSString text) =>+             FontLoader -> font -> text -> m ()+checkFont_ self font text+  = liftIO+      (void (js_checkFont (self) (toJSString font) (toJSString text)))   foreign import javascript unsafe "$1[\"loadFont\"]($2)" js_loadFont         :: FontLoader -> Nullable Dictionary -> IO ()
src/GHCJS/DOM/JSFFI/Generated/FormData.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/GainNode.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.GainNode-       (js_getGain, getGain, GainNode, castToGainNode, gTypeGainNode)+       (js_getGain, getGain, getGainUnchecked, GainNode, castToGainNode,+        gTypeGainNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -9,9 +10,11 @@ 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)@@ -23,3 +26,8 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/GainNode.gain Mozilla GainNode.gain documentation>  getGain :: (MonadIO m) => GainNode -> m (Maybe AudioParam) getGain self = liftIO (nullableToMaybe <$> (js_getGain (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GainNode.gain Mozilla GainNode.gain documentation> +getGainUnchecked :: (MonadIO m) => GainNode -> m AudioParam+getGainUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getGain (self)))
src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.GamepadEvent-       (js_getGamepad, getGamepad, GamepadEvent, castToGamepadEvent,-        gTypeGamepadEvent)+       (js_getGamepad, getGamepad, getGamepadUnchecked, GamepadEvent,+        castToGamepadEvent, gTypeGamepadEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -25,3 +27,8 @@ getGamepad :: (MonadIO m) => GamepadEvent -> m (Maybe Gamepad) getGamepad self   = liftIO (nullableToMaybe <$> (js_getGamepad (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadEvent.gamepad Mozilla GamepadEvent.gamepad documentation> +getGamepadUnchecked :: (MonadIO m) => GamepadEvent -> m Gamepad+getGamepadUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getGamepad (self)))
src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Geolocation        (js_getCurrentPosition, getCurrentPosition, js_watchPosition,-        watchPosition, js_clearWatch, clearWatch, Geolocation,-        castToGeolocation, gTypeGeolocation)+        watchPosition, watchPosition_, js_clearWatch, clearWatch,+        Geolocation, castToGeolocation, gTypeGeolocation)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -55,6 +57,19 @@       (js_watchPosition (self) (maybeToNullable successCallback)          (maybeToNullable errorCallback)          (maybeToNullable (fmap toPositionOptions options)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.watchPosition Mozilla Geolocation.watchPosition documentation> +watchPosition_ ::+               (MonadIO m, IsPositionOptions options) =>+                 Geolocation ->+                   Maybe PositionCallback ->+                     Maybe PositionErrorCallback -> Maybe options -> m ()+watchPosition_ self successCallback errorCallback options+  = liftIO+      (void+         (js_watchPosition (self) (maybeToNullable successCallback)+            (maybeToNullable errorCallback)+            (maybeToNullable (fmap toPositionOptions options))))   foreign import javascript unsafe "$1[\"clearWatch\"]($2)"         js_clearWatch :: Geolocation -> Int -> IO ()
src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Geoposition-       (js_getCoords, getCoords, js_getTimestamp, getTimestamp,-        Geoposition, castToGeoposition, gTypeGeoposition)+       (js_getCoords, getCoords, getCoordsUnchecked, js_getTimestamp,+        getTimestamp, Geoposition, castToGeoposition, gTypeGeoposition)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -24,6 +26,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition.coords Mozilla Geoposition.coords documentation>  getCoords :: (MonadIO m) => Geoposition -> m (Maybe Coordinates) getCoords self = liftIO (nullableToMaybe <$> (js_getCoords (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition.coords Mozilla Geoposition.coords documentation> +getCoordsUnchecked :: (MonadIO m) => Geoposition -> m Coordinates+getCoordsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getCoords (self)))   foreign import javascript unsafe "$1[\"timestamp\"]"         js_getTimestamp :: Geoposition -> IO Word
src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLAllCollection-       (js_item, item, js_namedItem, namedItem, js_tags, tags,-        js_getLength, getLength, HTMLAllCollection,+       (js_item, item, item_, itemUnchecked, js_namedItem, namedItem,+        namedItem_, namedItemUnchecked, js_tags, tags, tags_,+        tagsUnchecked, js_getLength, getLength, HTMLAllCollection,         castToHTMLAllCollection, gTypeHTMLAllCollection)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -11,9 +12,11 @@ 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)@@ -26,6 +29,15 @@ item :: (MonadIO m) => HTMLAllCollection -> Word -> m (Maybe Node) item self index   = liftIO (nullableToMaybe <$> (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.item Mozilla HTMLAllCollection.item documentation> +item_ :: (MonadIO m) => HTMLAllCollection -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.item Mozilla HTMLAllCollection.item documentation> +itemUnchecked :: (MonadIO m) => HTMLAllCollection -> Word -> m Node+itemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"         js_namedItem :: HTMLAllCollection -> JSString -> IO (Nullable Node)@@ -37,6 +49,20 @@ namedItem self name   = liftIO       (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.namedItem Mozilla HTMLAllCollection.namedItem documentation> +namedItem_ ::+           (MonadIO m, ToJSString name) => HTMLAllCollection -> name -> m ()+namedItem_ self name+  = liftIO (void (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.namedItem Mozilla HTMLAllCollection.namedItem documentation> +namedItemUnchecked ::+                   (MonadIO m, ToJSString name) => HTMLAllCollection -> name -> m Node+namedItemUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_namedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"tags\"]($2)" js_tags ::         HTMLAllCollection -> JSString -> IO (Nullable NodeList)@@ -47,6 +73,19 @@        HTMLAllCollection -> name -> m (Maybe NodeList) tags self name   = liftIO (nullableToMaybe <$> (js_tags (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.tags Mozilla HTMLAllCollection.tags documentation> +tags_ ::+      (MonadIO m, ToJSString name) => HTMLAllCollection -> name -> m ()+tags_ self name = liftIO (void (js_tags (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.tags Mozilla HTMLAllCollection.tags documentation> +tagsUnchecked ::+              (MonadIO m, ToJSString name) =>+                HTMLAllCollection -> name -> m NodeList+tagsUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$> (js_tags (self) (toJSString name)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         HTMLAllCollection -> IO Word
src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs view
@@ -1,23 +1,26 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLAnchorElement-       (js_toString, toString, js_setCharset, setCharset, js_getCharset,-        getCharset, js_setCoords, setCoords, js_getCoords, getCoords,-        js_setDownload, setDownload, js_getDownload, getDownload,-        js_setHref, setHref, js_getHref, getHref, js_setHreflang,-        setHreflang, js_getHreflang, getHreflang, js_setName, setName,-        js_getName, getName, js_setPing, setPing, js_getPing, getPing,-        js_setRel, setRel, js_getRel, getRel, js_setRev, setRev, js_getRev,-        getRev, js_setShape, setShape, js_getShape, getShape, js_setTarget,-        setTarget, js_getTarget, getTarget, js_setType, setType,-        js_getType, getType, js_setHash, setHash, js_getHash, getHash,-        js_setHost, setHost, js_getHost, getHost, js_setHostname,-        setHostname, js_getHostname, getHostname, js_setPathname,-        setPathname, js_getPathname, getPathname, js_setPort, setPort,-        js_getPort, getPort, js_setProtocol, setProtocol, js_getProtocol,-        getProtocol, js_setSearch, setSearch, js_getSearch, getSearch,-        js_getOrigin, getOrigin, js_setText, setText, js_getText, getText,-        js_getRelList, getRelList, HTMLAnchorElement,-        castToHTMLAnchorElement, gTypeHTMLAnchorElement)+       (js_toString, toString, toString_, js_setCharset, setCharset,+        js_getCharset, getCharset, js_setCoords, setCoords, js_getCoords,+        getCoords, js_setDownload, setDownload, js_getDownload,+        getDownload, js_setHref, setHref, js_getHref, getHref,+        js_setHreflang, setHreflang, js_getHreflang, getHreflang,+        js_setName, setName, js_getName, getName, js_setPing, setPing,+        js_getPing, getPing, js_setRel, setRel, js_getRel, getRel,+        js_setRev, setRev, js_getRev, getRev, js_setShape, setShape,+        js_getShape, getShape, js_setTarget, setTarget, js_getTarget,+        getTarget, js_setType, setType, js_getType, getType, js_setHash,+        setHash, js_getHash, getHash, getHashUnchecked, js_setHost,+        setHost, js_getHost, getHost, getHostUnchecked, js_setHostname,+        setHostname, js_getHostname, getHostname, getHostnameUnchecked,+        js_setPathname, setPathname, js_getPathname, getPathname,+        getPathnameUnchecked, js_setPort, setPort, js_getPort, getPort,+        getPortUnchecked, js_setProtocol, setProtocol, js_getProtocol,+        getProtocol, getProtocolUnchecked, js_setSearch, setSearch,+        js_getSearch, getSearch, getSearchUnchecked, js_getOrigin,+        getOrigin, getOriginUnchecked, js_setText, setText, js_getText,+        getText, js_getRelList, getRelList, getRelListUnchecked,+        HTMLAnchorElement, castToHTMLAnchorElement, gTypeHTMLAnchorElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -26,9 +29,11 @@ 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)@@ -41,6 +46,10 @@ toString ::          (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result toString self = liftIO (fromJSString <$> (js_toString (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.toString Mozilla HTMLAnchorElement.toString documentation> +toString_ :: (MonadIO m) => HTMLAnchorElement -> m ()+toString_ self = liftIO (void (js_toString (self)))   foreign import javascript unsafe "$1[\"charset\"] = $2;"         js_setCharset :: HTMLAnchorElement -> JSString -> IO ()@@ -256,6 +265,12 @@         (MonadIO m, FromJSString result) =>           HTMLAnchorElement -> m (Maybe result) getHash self = liftIO (fromMaybeJSString <$> (js_getHash (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hash Mozilla HTMLAnchorElement.hash documentation> +getHashUnchecked ::+                 (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getHashUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getHash (self)))   foreign import javascript unsafe "$1[\"host\"] = $2;" js_setHost ::         HTMLAnchorElement -> Nullable JSString -> IO ()@@ -274,6 +289,12 @@         (MonadIO m, FromJSString result) =>           HTMLAnchorElement -> m (Maybe result) getHost self = liftIO (fromMaybeJSString <$> (js_getHost (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.host Mozilla HTMLAnchorElement.host documentation> +getHostUnchecked ::+                 (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getHostUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getHost (self)))   foreign import javascript unsafe "$1[\"hostname\"] = $2;"         js_setHostname :: HTMLAnchorElement -> Nullable JSString -> IO ()@@ -294,6 +315,12 @@               HTMLAnchorElement -> m (Maybe result) getHostname self   = liftIO (fromMaybeJSString <$> (js_getHostname (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hostname Mozilla HTMLAnchorElement.hostname documentation> +getHostnameUnchecked ::+                     (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getHostnameUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getHostname (self)))   foreign import javascript unsafe "$1[\"pathname\"] = $2;"         js_setPathname :: HTMLAnchorElement -> Nullable JSString -> IO ()@@ -314,6 +341,12 @@               HTMLAnchorElement -> m (Maybe result) getPathname self   = liftIO (fromMaybeJSString <$> (js_getPathname (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.pathname Mozilla HTMLAnchorElement.pathname documentation> +getPathnameUnchecked ::+                     (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getPathnameUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getPathname (self)))   foreign import javascript unsafe "$1[\"port\"] = $2;" js_setPort ::         HTMLAnchorElement -> Nullable JSString -> IO ()@@ -332,6 +365,12 @@         (MonadIO m, FromJSString result) =>           HTMLAnchorElement -> m (Maybe result) getPort self = liftIO (fromMaybeJSString <$> (js_getPort (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.port Mozilla HTMLAnchorElement.port documentation> +getPortUnchecked ::+                 (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getPortUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getPort (self)))   foreign import javascript unsafe "$1[\"protocol\"] = $2;"         js_setProtocol :: HTMLAnchorElement -> Nullable JSString -> IO ()@@ -352,6 +391,12 @@               HTMLAnchorElement -> m (Maybe result) getProtocol self   = liftIO (fromMaybeJSString <$> (js_getProtocol (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.protocol Mozilla HTMLAnchorElement.protocol documentation> +getProtocolUnchecked ::+                     (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getProtocolUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getProtocol (self)))   foreign import javascript unsafe "$1[\"search\"] = $2;"         js_setSearch :: HTMLAnchorElement -> Nullable JSString -> IO ()@@ -372,6 +417,12 @@             HTMLAnchorElement -> m (Maybe result) getSearch self   = liftIO (fromMaybeJSString <$> (js_getSearch (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.search Mozilla HTMLAnchorElement.search documentation> +getSearchUnchecked ::+                   (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getSearchUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getSearch (self)))   foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::         HTMLAnchorElement -> IO (Nullable JSString)@@ -382,6 +433,12 @@             HTMLAnchorElement -> m (Maybe result) getOrigin self   = liftIO (fromMaybeJSString <$> (js_getOrigin (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.origin Mozilla HTMLAnchorElement.origin documentation> +getOriginUnchecked ::+                   (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result+getOriginUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getOrigin (self)))   foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::         HTMLAnchorElement -> JSString -> IO ()@@ -407,3 +464,9 @@            (MonadIO m) => HTMLAnchorElement -> m (Maybe DOMTokenList) getRelList self   = liftIO (nullableToMaybe <$> (js_getRelList (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.relList Mozilla HTMLAnchorElement.relList documentation> +getRelListUnchecked ::+                    (MonadIO m) => HTMLAnchorElement -> m DOMTokenList+getRelListUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRelList (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs view
@@ -18,9 +18,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs view
@@ -9,7 +9,8 @@         js_getHost, getHost, js_getHostname, getHostname, js_getPathname,         getPathname, js_getPort, getPort, js_getProtocol, getProtocol,         js_getSearch, getSearch, js_getRelList, getRelList,-        HTMLAreaElement, castToHTMLAreaElement, gTypeHTMLAreaElement)+        getRelListUnchecked, HTMLAreaElement, castToHTMLAreaElement,+        gTypeHTMLAreaElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -18,9 +19,11 @@ 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)@@ -219,3 +222,9 @@            (MonadIO m) => HTMLAreaElement -> m (Maybe DOMTokenList) getRelList self   = liftIO (nullableToMaybe <$> (js_getRelList (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.relList Mozilla HTMLAreaElement.relList documentation> +getRelListUnchecked ::+                    (MonadIO m) => HTMLAreaElement -> m DOMTokenList+getRelListUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRelList (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLBaseElement-       (js_setHref, setHref, js_getHref, getHref, js_setTarget, setTarget,-        js_getTarget, getTarget, HTMLBaseElement, castToHTMLBaseElement,-        gTypeHTMLBaseElement)+       (js_setHref, setHref, js_getHref, getHref, getHrefUnchecked,+        js_setTarget, setTarget, js_getTarget, getTarget, HTMLBaseElement,+        castToHTMLBaseElement, gTypeHTMLBaseElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -35,6 +37,12 @@         (MonadIO m, FromJSString result) =>           HTMLBaseElement -> m (Maybe result) getHref self = liftIO (fromMaybeJSString <$> (js_getHref (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.href Mozilla HTMLBaseElement.href documentation> +getHrefUnchecked ::+                 (MonadIO m, FromJSString result) => HTMLBaseElement -> m result+getHrefUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getHref (self)))   foreign import javascript unsafe "$1[\"target\"] = $2;"         js_setTarget :: HTMLBaseElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs view
@@ -16,9 +16,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs view
@@ -1,20 +1,22 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLButtonElement-       (js_checkValidity, checkValidity, js_setCustomValidity,-        setCustomValidity, js_setAutofocus, setAutofocus, js_getAutofocus,-        getAutofocus, js_setDisabled, setDisabled, js_getDisabled,-        getDisabled, js_getForm, getForm, js_setFormAction, setFormAction,+       (js_checkValidity, checkValidity, checkValidity_,+        js_setCustomValidity, setCustomValidity, js_setAutofocus,+        setAutofocus, js_getAutofocus, getAutofocus, js_setDisabled,+        setDisabled, js_getDisabled, getDisabled, js_getForm, getForm,+        getFormUnchecked, js_setFormAction, setFormAction,         js_getFormAction, getFormAction, js_setFormEnctype, setFormEnctype,-        js_getFormEnctype, getFormEnctype, js_setFormMethod, setFormMethod,-        js_getFormMethod, getFormMethod, js_setFormNoValidate,-        setFormNoValidate, js_getFormNoValidate, getFormNoValidate,-        js_setFormTarget, setFormTarget, js_getFormTarget, getFormTarget,-        js_setName, setName, js_getName, getName, js_setType, setType,-        js_getType, getType, js_setValue, setValue, js_getValue, getValue,-        js_getWillValidate, getWillValidate, js_getValidity, getValidity,-        js_getValidationMessage, getValidationMessage, js_getLabels,-        getLabels, HTMLButtonElement, castToHTMLButtonElement,-        gTypeHTMLButtonElement)+        js_getFormEnctype, getFormEnctype, getFormEnctypeUnchecked,+        js_setFormMethod, setFormMethod, js_getFormMethod, getFormMethod,+        getFormMethodUnchecked, js_setFormNoValidate, setFormNoValidate,+        js_getFormNoValidate, getFormNoValidate, js_setFormTarget,+        setFormTarget, js_getFormTarget, getFormTarget, js_setName,+        setName, js_getName, getName, js_setType, setType, js_getType,+        getType, getTypeUnchecked, js_setValue, setValue, js_getValue,+        getValue, js_getWillValidate, getWillValidate, js_getValidity,+        getValidity, getValidityUnchecked, js_getValidationMessage,+        getValidationMessage, js_getLabels, getLabels, getLabelsUnchecked,+        HTMLButtonElement, castToHTMLButtonElement, gTypeHTMLButtonElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -23,9 +25,11 @@ 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)@@ -38,6 +42,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.checkValidity Mozilla HTMLButtonElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLButtonElement -> m Bool checkValidity self = liftIO (js_checkValidity (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.checkValidity Mozilla HTMLButtonElement.checkValidity documentation> +checkValidity_ :: (MonadIO m) => HTMLButtonElement -> m ()+checkValidity_ self = liftIO (void (js_checkValidity (self)))   foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         js_setCustomValidity ::@@ -85,6 +93,12 @@ getForm ::         (MonadIO m) => HTMLButtonElement -> m (Maybe HTMLFormElement) getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.form Mozilla HTMLButtonElement.form documentation> +getFormUnchecked ::+                 (MonadIO m) => HTMLButtonElement -> m HTMLFormElement+getFormUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"formAction\"] = $2;"         js_setFormAction :: HTMLButtonElement -> JSString -> IO ()@@ -124,6 +138,13 @@                  HTMLButtonElement -> m (Maybe result) getFormEnctype self   = liftIO (fromMaybeJSString <$> (js_getFormEnctype (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formEnctype Mozilla HTMLButtonElement.formEnctype documentation> +getFormEnctypeUnchecked ::+                        (MonadIO m, FromJSString result) => HTMLButtonElement -> m result+getFormEnctypeUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getFormEnctype (self)))   foreign import javascript unsafe "$1[\"formMethod\"] = $2;"         js_setFormMethod :: HTMLButtonElement -> Nullable JSString -> IO ()@@ -144,6 +165,13 @@                 HTMLButtonElement -> m (Maybe result) getFormMethod self   = liftIO (fromMaybeJSString <$> (js_getFormMethod (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formMethod Mozilla HTMLButtonElement.formMethod documentation> +getFormMethodUnchecked ::+                       (MonadIO m, FromJSString result) => HTMLButtonElement -> m result+getFormMethodUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getFormMethod (self)))   foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"         js_setFormNoValidate :: HTMLButtonElement -> Bool -> IO ()@@ -212,6 +240,12 @@         (MonadIO m, FromJSString result) =>           HTMLButtonElement -> m (Maybe result) getType self = liftIO (fromMaybeJSString <$> (js_getType (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.type Mozilla HTMLButtonElement.type documentation> +getTypeUnchecked ::+                 (MonadIO m, FromJSString result) => HTMLButtonElement -> m result+getTypeUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue         :: HTMLButtonElement -> JSString -> IO ()@@ -244,6 +278,12 @@             (MonadIO m) => HTMLButtonElement -> m (Maybe ValidityState) getValidity self   = liftIO (nullableToMaybe <$> (js_getValidity (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.validity Mozilla HTMLButtonElement.validity documentation> +getValidityUnchecked ::+                     (MonadIO m) => HTMLButtonElement -> m ValidityState+getValidityUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))   foreign import javascript unsafe "$1[\"validationMessage\"]"         js_getValidationMessage :: HTMLButtonElement -> IO JSString@@ -260,3 +300,9 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.labels Mozilla HTMLButtonElement.labels documentation>  getLabels :: (MonadIO m) => HTMLButtonElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.labels Mozilla HTMLButtonElement.labels documentation> +getLabelsUnchecked ::+                   (MonadIO m) => HTMLButtonElement -> m NodeList+getLabelsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs view
@@ -1,10 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLCanvasElement-       (js_toDataURL, toDataURL, js_getContext, getContext,-        js_probablySupportsContext, probablySupportsContext, js_setWidth,-        setWidth, js_getWidth, getWidth, js_setHeight, setHeight,-        js_getHeight, getHeight, HTMLCanvasElement,-        castToHTMLCanvasElement, gTypeHTMLCanvasElement)+       (js_toDataURL, toDataURL, toDataURL_, js_getContext, getContext,+        getContext_, js_probablySupportsContext, probablySupportsContext,+        probablySupportsContext_, js_setWidth, setWidth, js_getWidth,+        getWidth, js_setHeight, setHeight, js_getHeight, getHeight,+        HTMLCanvasElement, castToHTMLCanvasElement, gTypeHTMLCanvasElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +13,11 @@ 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)@@ -32,6 +34,13 @@ toDataURL self type'   = liftIO       (fromJSString <$> (js_toDataURL (self) (toMaybeJSString type')))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.toDataURL Mozilla HTMLCanvasElement.toDataURL documentation> +toDataURL_ ::+           (MonadIO m, ToJSString type') =>+             HTMLCanvasElement -> Maybe type' -> m ()+toDataURL_ self type'+  = liftIO (void (js_toDataURL (self) (toMaybeJSString type')))   foreign import javascript unsafe "$1[\"getContext\"]($2)"         js_getContext :: HTMLCanvasElement -> JSString -> IO JSVal@@ -42,6 +51,13 @@              HTMLCanvasElement -> contextId -> m JSVal getContext self contextId   = liftIO (js_getContext (self) (toJSString contextId))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.getContext Mozilla HTMLCanvasElement.getContext documentation> +getContext_ ::+            (MonadIO m, ToJSString contextId) =>+              HTMLCanvasElement -> contextId -> m ()+getContext_ self contextId+  = liftIO (void (js_getContext (self) (toJSString contextId)))   foreign import javascript unsafe         "$1[\"probablySupportsContext\"]($2)" js_probablySupportsContext ::@@ -53,6 +69,14 @@                           HTMLCanvasElement -> contextId -> m JSVal probablySupportsContext self contextId   = liftIO (js_probablySupportsContext (self) (toJSString contextId))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.probablySupportsContext Mozilla HTMLCanvasElement.probablySupportsContext documentation> +probablySupportsContext_ ::+                         (MonadIO m, ToJSString contextId) =>+                           HTMLCanvasElement -> contextId -> m ()+probablySupportsContext_ self contextId+  = liftIO+      (void (js_probablySupportsContext (self) (toJSString contextId)))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth         :: HTMLCanvasElement -> Int -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLCollection-       (js_item, item, js_namedItem, namedItem, js_getLength, getLength,+       (js_item, item, item_, itemUnchecked, js_namedItem, namedItem,+        namedItem_, namedItemUnchecked, js_getLength, getLength,         HTMLCollection, castToHTMLCollection, gTypeHTMLCollection,         IsHTMLCollection, toHTMLCollection)        where@@ -11,9 +12,11 @@ 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)@@ -29,6 +32,19 @@ item self index   = liftIO       (nullableToMaybe <$> (js_item (toHTMLCollection self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.item Mozilla HTMLCollection.item documentation> +item_ :: (MonadIO m, IsHTMLCollection self) => self -> Word -> m ()+item_ self index+  = liftIO (void (js_item (toHTMLCollection self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.item Mozilla HTMLCollection.item documentation> +itemUnchecked ::+              (MonadIO m, IsHTMLCollection self) => self -> Word -> m Node+itemUnchecked self index+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_item (toHTMLCollection self) index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"         js_namedItem :: HTMLCollection -> JSString -> IO (Nullable Node)@@ -40,6 +56,23 @@ namedItem self name   = liftIO       (nullableToMaybe <$>+         (js_namedItem (toHTMLCollection self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.namedItem Mozilla HTMLCollection.namedItem documentation> +namedItem_ ::+           (MonadIO m, IsHTMLCollection self, ToJSString name) =>+             self -> name -> m ()+namedItem_ self name+  = liftIO+      (void (js_namedItem (toHTMLCollection self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.namedItem Mozilla HTMLCollection.namedItem documentation> +namedItemUnchecked ::+                   (MonadIO m, IsHTMLCollection self, ToJSString name) =>+                     self -> name -> m Node+namedItemUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>          (js_namedItem (toHTMLCollection self) (toJSString name)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::
src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLDataListElement-       (js_getOptions, getOptions, HTMLDataListElement,-        castToHTMLDataListElement, gTypeHTMLDataListElement)+       (js_getOptions, getOptions, getOptionsUnchecked,+        HTMLDataListElement, castToHTMLDataListElement,+        gTypeHTMLDataListElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -26,3 +29,9 @@            (MonadIO m) => HTMLDataListElement -> m (Maybe HTMLCollection) getOptions self   = liftIO (nullableToMaybe <$> (js_getOptions (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDataListElement.options Mozilla HTMLDataListElement.options documentation> +getOptionsUnchecked ::+                    (MonadIO m) => HTMLDataListElement -> m HTMLCollection+getOptionsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getOptions (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs view
@@ -3,15 +3,19 @@        (js_open, open, js_close, close, js_write, write, js_writeln,         writeln, js_clear, clear, js_captureEvents, captureEvents,         js_releaseEvents, releaseEvents, js_getEmbeds, getEmbeds,-        js_getPlugins, getPlugins, js_getScripts, getScripts, js_getAll,-        getAll, js_getWidth, getWidth, js_getHeight, getHeight, js_setDir,-        setDir, js_getDir, getDir, js_setDesignMode, setDesignMode,-        js_getDesignMode, getDesignMode, js_getCompatMode, getCompatMode,+        getEmbedsUnchecked, js_getPlugins, getPlugins, getPluginsUnchecked,+        js_getScripts, getScripts, getScriptsUnchecked, js_getAll, getAll,+        getAllUnchecked, js_getWidth, getWidth, js_getHeight, getHeight,+        js_setDir, setDir, js_getDir, getDir, getDirUnchecked,+        js_setDesignMode, setDesignMode, js_getDesignMode, getDesignMode,+        getDesignModeUnchecked, js_getCompatMode, getCompatMode,         js_setBgColor, setBgColor, js_getBgColor, getBgColor,-        js_setFgColor, setFgColor, js_getFgColor, getFgColor,-        js_setAlinkColor, setAlinkColor, js_getAlinkColor, getAlinkColor,+        getBgColorUnchecked, js_setFgColor, setFgColor, js_getFgColor,+        getFgColor, getFgColorUnchecked, js_setAlinkColor, setAlinkColor,+        js_getAlinkColor, getAlinkColor, getAlinkColorUnchecked,         js_setLinkColor, setLinkColor, js_getLinkColor, getLinkColor,-        js_setVlinkColor, setVlinkColor, js_getVlinkColor, getVlinkColor,+        getLinkColorUnchecked, js_setVlinkColor, setVlinkColor,+        js_getVlinkColor, getVlinkColor, getVlinkColorUnchecked,         HTMLDocument, castToHTMLDocument, gTypeHTMLDocument)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -21,9 +25,11 @@ 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)@@ -87,6 +93,12 @@ getEmbeds ::           (MonadIO m) => HTMLDocument -> m (Maybe HTMLCollection) getEmbeds self = liftIO (nullableToMaybe <$> (js_getEmbeds (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.embeds Mozilla HTMLDocument.embeds documentation> +getEmbedsUnchecked ::+                   (MonadIO m) => HTMLDocument -> m HTMLCollection+getEmbedsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getEmbeds (self)))   foreign import javascript unsafe "$1[\"plugins\"]" js_getPlugins ::         HTMLDocument -> IO (Nullable HTMLCollection)@@ -96,6 +108,12 @@            (MonadIO m) => HTMLDocument -> m (Maybe HTMLCollection) getPlugins self   = liftIO (nullableToMaybe <$> (js_getPlugins (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.plugins Mozilla HTMLDocument.plugins documentation> +getPluginsUnchecked ::+                    (MonadIO m) => HTMLDocument -> m HTMLCollection+getPluginsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getPlugins (self)))   foreign import javascript unsafe "$1[\"scripts\"]" js_getScripts ::         HTMLDocument -> IO (Nullable HTMLCollection)@@ -105,6 +123,12 @@            (MonadIO m) => HTMLDocument -> m (Maybe HTMLCollection) getScripts self   = liftIO (nullableToMaybe <$> (js_getScripts (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.scripts Mozilla HTMLDocument.scripts documentation> +getScriptsUnchecked ::+                    (MonadIO m) => HTMLDocument -> m HTMLCollection+getScriptsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getScripts (self)))   foreign import javascript unsafe "$1[\"all\"]" js_getAll ::         HTMLDocument -> IO (Nullable HTMLAllCollection)@@ -113,6 +137,12 @@ getAll ::        (MonadIO m) => HTMLDocument -> m (Maybe HTMLAllCollection) getAll self = liftIO (nullableToMaybe <$> (js_getAll (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.all Mozilla HTMLDocument.all documentation> +getAllUnchecked ::+                (MonadIO m) => HTMLDocument -> m HTMLAllCollection+getAllUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getAll (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         HTMLDocument -> IO Int@@ -144,6 +174,12 @@        (MonadIO m, FromJSString result) =>          HTMLDocument -> m (Maybe result) getDir self = liftIO (fromMaybeJSString <$> (js_getDir (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.dir Mozilla HTMLDocument.dir documentation> +getDirUnchecked ::+                (MonadIO m, FromJSString result) => HTMLDocument -> m result+getDirUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getDir (self)))   foreign import javascript unsafe "$1[\"designMode\"] = $2;"         js_setDesignMode :: HTMLDocument -> Nullable JSString -> IO ()@@ -163,6 +199,13 @@                 HTMLDocument -> m (Maybe result) getDesignMode self   = liftIO (fromMaybeJSString <$> (js_getDesignMode (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.designMode Mozilla HTMLDocument.designMode documentation> +getDesignModeUnchecked ::+                       (MonadIO m, FromJSString result) => HTMLDocument -> m result+getDesignModeUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getDesignMode (self)))   foreign import javascript unsafe "$1[\"compatMode\"]"         js_getCompatMode :: HTMLDocument -> IO JSString@@ -191,6 +234,12 @@              HTMLDocument -> m (Maybe result) getBgColor self   = liftIO (fromMaybeJSString <$> (js_getBgColor (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.bgColor Mozilla HTMLDocument.bgColor documentation> +getBgColorUnchecked ::+                    (MonadIO m, FromJSString result) => HTMLDocument -> m result+getBgColorUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getBgColor (self)))   foreign import javascript unsafe "$1[\"fgColor\"] = $2;"         js_setFgColor :: HTMLDocument -> Nullable JSString -> IO ()@@ -210,6 +259,12 @@              HTMLDocument -> m (Maybe result) getFgColor self   = liftIO (fromMaybeJSString <$> (js_getFgColor (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.fgColor Mozilla HTMLDocument.fgColor documentation> +getFgColorUnchecked ::+                    (MonadIO m, FromJSString result) => HTMLDocument -> m result+getFgColorUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getFgColor (self)))   foreign import javascript unsafe "$1[\"alinkColor\"] = $2;"         js_setAlinkColor :: HTMLDocument -> Nullable JSString -> IO ()@@ -229,6 +284,13 @@                 HTMLDocument -> m (Maybe result) getAlinkColor self   = liftIO (fromMaybeJSString <$> (js_getAlinkColor (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.alinkColor Mozilla HTMLDocument.alinkColor documentation> +getAlinkColorUnchecked ::+                       (MonadIO m, FromJSString result) => HTMLDocument -> m result+getAlinkColorUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getAlinkColor (self)))   foreign import javascript unsafe "$1[\"linkColor\"] = $2;"         js_setLinkColor :: HTMLDocument -> Nullable JSString -> IO ()@@ -248,6 +310,13 @@                HTMLDocument -> m (Maybe result) getLinkColor self   = liftIO (fromMaybeJSString <$> (js_getLinkColor (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.linkColor Mozilla HTMLDocument.linkColor documentation> +getLinkColorUnchecked ::+                      (MonadIO m, FromJSString result) => HTMLDocument -> m result+getLinkColorUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getLinkColor (self)))   foreign import javascript unsafe "$1[\"vlinkColor\"] = $2;"         js_setVlinkColor :: HTMLDocument -> Nullable JSString -> IO ()@@ -267,3 +336,10 @@                 HTMLDocument -> m (Maybe result) getVlinkColor self   = liftIO (fromMaybeJSString <$> (js_getVlinkColor (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.vlinkColor Mozilla HTMLDocument.vlinkColor documentation> +getVlinkColorUnchecked ::+                       (MonadIO m, FromJSString result) => HTMLDocument -> m result+getVlinkColorUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getVlinkColor (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLElement        (js_insertAdjacentElement, insertAdjacentElement,+        insertAdjacentElement_, insertAdjacentElementUnchecked,         js_insertAdjacentHTML, insertAdjacentHTML, js_insertAdjacentText,         insertAdjacentText, js_click, click, js_setTitle, setTitle,         js_getTitle, getTitle, js_setLang, setLang, js_getLang, getLang,@@ -11,10 +12,12 @@         setWebkitdropzone, js_getWebkitdropzone, getWebkitdropzone,         js_setHidden, setHidden, js_getHidden, getHidden, js_setAccessKey,         setAccessKey, js_getAccessKey, getAccessKey, js_setInnerText,-        setInnerText, js_getInnerText, getInnerText, js_setOuterText,-        setOuterText, js_getOuterText, getOuterText, js_getChildren,-        getChildren, js_setContentEditable, setContentEditable,-        js_getContentEditable, getContentEditable, js_getIsContentEditable,+        setInnerText, js_getInnerText, getInnerText, getInnerTextUnchecked,+        js_setOuterText, setOuterText, js_getOuterText, getOuterText,+        getOuterTextUnchecked, js_getChildren, getChildren,+        getChildrenUnchecked, js_setContentEditable, setContentEditable,+        js_getContentEditable, getContentEditable,+        getContentEditableUnchecked, js_getIsContentEditable,         getIsContentEditable, js_setSpellcheck, setSpellcheck,         js_getSpellcheck, getSpellcheck, HTMLElement, castToHTMLElement,         gTypeHTMLElement, IsHTMLElement, toHTMLElement)@@ -26,9 +29,11 @@ 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)@@ -50,6 +55,28 @@       (nullableToMaybe <$>          (js_insertAdjacentElement (toHTMLElement self) (toJSString where')             (maybeToNullable (fmap toElement element))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentElement Mozilla HTMLElement.insertAdjacentElement documentation> +insertAdjacentElement_ ::+                       (MonadIO m, IsHTMLElement self, ToJSString where',+                        IsElement element) =>+                         self -> where' -> Maybe element -> m ()+insertAdjacentElement_ self where' element+  = liftIO+      (void+         (js_insertAdjacentElement (toHTMLElement self) (toJSString where')+            (maybeToNullable (fmap toElement element))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentElement Mozilla HTMLElement.insertAdjacentElement documentation> +insertAdjacentElementUnchecked ::+                               (MonadIO m, IsHTMLElement self, ToJSString where',+                                IsElement element) =>+                                 self -> where' -> Maybe element -> m Element+insertAdjacentElementUnchecked self where' element+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_insertAdjacentElement (toHTMLElement self) (toJSString where')+            (maybeToNullable (fmap toElement element))))   foreign import javascript unsafe         "$1[\"insertAdjacentHTML\"]($2, $3)" js_insertAdjacentHTML ::@@ -272,6 +299,15 @@ getInnerText self   = liftIO       (fromMaybeJSString <$> (js_getInnerText (toHTMLElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.innerText Mozilla HTMLElement.innerText documentation> +getInnerTextUnchecked ::+                      (MonadIO m, IsHTMLElement self, FromJSString result) =>+                        self -> m result+getInnerTextUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getInnerText (toHTMLElement self)))   foreign import javascript unsafe "$1[\"outerText\"] = $2;"         js_setOuterText :: HTMLElement -> Nullable JSString -> IO ()@@ -294,6 +330,15 @@ getOuterText self   = liftIO       (fromMaybeJSString <$> (js_getOuterText (toHTMLElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.outerText Mozilla HTMLElement.outerText documentation> +getOuterTextUnchecked ::+                      (MonadIO m, IsHTMLElement self, FromJSString result) =>+                        self -> m result+getOuterTextUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getOuterText (toHTMLElement self)))   foreign import javascript unsafe "$1[\"children\"]" js_getChildren         :: HTMLElement -> IO (Nullable HTMLCollection)@@ -304,6 +349,14 @@ getChildren self   = liftIO       (nullableToMaybe <$> (js_getChildren (toHTMLElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.children Mozilla HTMLElement.children documentation> +getChildrenUnchecked ::+                     (MonadIO m, IsHTMLElement self) => self -> m HTMLCollection+getChildrenUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getChildren (toHTMLElement self)))   foreign import javascript unsafe "$1[\"contentEditable\"] = $2;"         js_setContentEditable :: HTMLElement -> Nullable JSString -> IO ()@@ -326,6 +379,15 @@ getContentEditable self   = liftIO       (fromMaybeJSString <$>+         (js_getContentEditable (toHTMLElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.contentEditable Mozilla HTMLElement.contentEditable documentation> +getContentEditableUnchecked ::+                            (MonadIO m, IsHTMLElement self, FromJSString result) =>+                              self -> m result+getContentEditableUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>          (js_getContentEditable (toHTMLElement self)))   foreign import javascript unsafe
src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs view
@@ -1,11 +1,12 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLEmbedElement-       (js_getSVGDocument, getSVGDocument, js_setAlign, setAlign,-        js_getAlign, getAlign, js_setHeight, setHeight, js_getHeight,-        getHeight, js_setName, setName, js_getName, getName, js_setSrc,-        setSrc, js_getSrc, getSrc, js_setType, setType, js_getType,-        getType, js_setWidth, setWidth, js_getWidth, getWidth,-        HTMLEmbedElement, castToHTMLEmbedElement, gTypeHTMLEmbedElement)+       (js_getSVGDocument, getSVGDocument, getSVGDocument_,+        getSVGDocumentUnchecked, js_setAlign, setAlign, js_getAlign,+        getAlign, js_setHeight, setHeight, js_getHeight, getHeight,+        js_setName, setName, js_getName, getName, js_setSrc, setSrc,+        js_getSrc, getSrc, js_setType, setType, js_getType, getType,+        js_setWidth, setWidth, js_getWidth, getWidth, HTMLEmbedElement,+        castToHTMLEmbedElement, gTypeHTMLEmbedElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -14,9 +15,11 @@ 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)@@ -30,6 +33,17 @@                (MonadIO m) => HTMLEmbedElement -> m (Maybe SVGDocument) getSVGDocument self   = liftIO (nullableToMaybe <$> (js_getSVGDocument (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.getSVGDocument Mozilla HTMLEmbedElement.getSVGDocument documentation> +getSVGDocument_ :: (MonadIO m) => HTMLEmbedElement -> m ()+getSVGDocument_ self = liftIO (void (js_getSVGDocument (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.getSVGDocument Mozilla HTMLEmbedElement.getSVGDocument documentation> +getSVGDocumentUnchecked ::+                        (MonadIO m) => HTMLEmbedElement -> m SVGDocument+getSVGDocumentUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getSVGDocument (self)))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLEmbedElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs view
@@ -1,10 +1,12 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLFieldSetElement-       (js_checkValidity, checkValidity, js_setCustomValidity,-        setCustomValidity, js_setDisabled, setDisabled, js_getDisabled,-        getDisabled, js_getForm, getForm, js_setName, setName, js_getName,-        getName, js_getType, getType, js_getElements, getElements,-        js_getWillValidate, getWillValidate, js_getValidity, getValidity,+       (js_checkValidity, checkValidity, checkValidity_,+        js_setCustomValidity, setCustomValidity, js_setDisabled,+        setDisabled, js_getDisabled, getDisabled, js_getForm, getForm,+        getFormUnchecked, js_setName, setName, js_getName, getName,+        js_getType, getType, js_getElements, getElements,+        getElementsUnchecked, js_getWillValidate, getWillValidate,+        js_getValidity, getValidity, getValidityUnchecked,         js_getValidationMessage, getValidationMessage, HTMLFieldSetElement,         castToHTMLFieldSetElement, gTypeHTMLFieldSetElement)        where@@ -15,9 +17,11 @@ 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)@@ -30,6 +34,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.checkValidity Mozilla HTMLFieldSetElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLFieldSetElement -> m Bool checkValidity self = liftIO (js_checkValidity (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.checkValidity Mozilla HTMLFieldSetElement.checkValidity documentation> +checkValidity_ :: (MonadIO m) => HTMLFieldSetElement -> m ()+checkValidity_ self = liftIO (void (js_checkValidity (self)))   foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         js_setCustomValidity ::@@ -63,6 +71,12 @@ getForm ::         (MonadIO m) => HTMLFieldSetElement -> m (Maybe HTMLFormElement) getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.form Mozilla HTMLFieldSetElement.form documentation> +getFormUnchecked ::+                 (MonadIO m) => HTMLFieldSetElement -> m HTMLFormElement+getFormUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLFieldSetElement -> JSString -> IO ()@@ -96,6 +110,12 @@             (MonadIO m) => HTMLFieldSetElement -> m (Maybe HTMLCollection) getElements self   = liftIO (nullableToMaybe <$> (js_getElements (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.elements Mozilla HTMLFieldSetElement.elements documentation> +getElementsUnchecked ::+                     (MonadIO m) => HTMLFieldSetElement -> m HTMLCollection+getElementsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getElements (self)))   foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"         js_getWillValidate :: HTMLFieldSetElement -> IO Bool@@ -112,6 +132,12 @@             (MonadIO m) => HTMLFieldSetElement -> m (Maybe ValidityState) getValidity self   = liftIO (nullableToMaybe <$> (js_getValidity (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.validity Mozilla HTMLFieldSetElement.validity documentation> +getValidityUnchecked ::+                     (MonadIO m) => HTMLFieldSetElement -> m ValidityState+getValidityUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))   foreign import javascript unsafe "$1[\"validationMessage\"]"         js_getValidationMessage :: HTMLFieldSetElement -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLFormControlsCollection-       (js__get, _get, js_namedItem, namedItem,-        HTMLFormControlsCollection, castToHTMLFormControlsCollection,-        gTypeHTMLFormControlsCollection)+       (js__get, _get, _get_, _getUnchecked, js_namedItem, namedItem,+        namedItem_, namedItemUnchecked, HTMLFormControlsCollection,+        castToHTMLFormControlsCollection, gTypeHTMLFormControlsCollection)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -27,6 +29,16 @@      (MonadIO m) => HTMLFormControlsCollection -> Word -> m (Maybe Node) _get self index   = liftIO (nullableToMaybe <$> (js__get (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection._get Mozilla HTMLFormControlsCollection._get documentation> +_get_ :: (MonadIO m) => HTMLFormControlsCollection -> Word -> m ()+_get_ self index = liftIO (void (js__get (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection._get Mozilla HTMLFormControlsCollection._get documentation> +_getUnchecked ::+              (MonadIO m) => HTMLFormControlsCollection -> Word -> m Node+_getUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js__get (self) index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"         js_namedItem ::@@ -39,3 +51,19 @@ namedItem self name   = liftIO       (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection.namedItem Mozilla HTMLFormControlsCollection.namedItem documentation> +namedItem_ ::+           (MonadIO m, ToJSString name) =>+             HTMLFormControlsCollection -> name -> m ()+namedItem_ self name+  = liftIO (void (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection.namedItem Mozilla HTMLFormControlsCollection.namedItem documentation> +namedItemUnchecked ::+                   (MonadIO m, ToJSString name) =>+                     HTMLFormControlsCollection -> name -> m Node+namedItemUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_namedItem (self) (toJSString name)))
src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs view
@@ -1,21 +1,24 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLFormElement-       (js__get, _get, js_submit, submit, js_reset, reset,-        js_checkValidity, checkValidity, js_requestAutocomplete,-        requestAutocomplete, js_setAcceptCharset, setAcceptCharset,-        js_getAcceptCharset, getAcceptCharset, js_setAction, setAction,-        js_getAction, getAction, js_setAutocomplete, setAutocomplete,-        js_getAutocomplete, getAutocomplete, js_setEnctype, setEnctype,-        js_getEnctype, getEnctype, js_setEncoding, setEncoding,-        js_getEncoding, getEncoding, js_setMethod, setMethod, js_getMethod,-        getMethod, js_setName, setName, js_getName, getName,-        js_setNoValidate, setNoValidate, js_getNoValidate, getNoValidate,-        js_setTarget, setTarget, js_getTarget, getTarget, js_getElements,-        getElements, js_getLength, getLength, js_setAutocorrect,+       (js__get, _get, _get_, _getUnchecked, js_submit, submit, js_reset,+        reset, js_checkValidity, checkValidity, checkValidity_,+        js_requestAutocomplete, requestAutocomplete, js_setAcceptCharset,+        setAcceptCharset, js_getAcceptCharset, getAcceptCharset,+        js_setAction, setAction, js_getAction, getAction,+        js_setAutocomplete, setAutocomplete, js_getAutocomplete,+        getAutocomplete, js_setEnctype, setEnctype, js_getEnctype,+        getEnctype, getEnctypeUnchecked, js_setEncoding, setEncoding,+        js_getEncoding, getEncoding, getEncodingUnchecked, js_setMethod,+        setMethod, js_getMethod, getMethod, getMethodUnchecked, js_setName,+        setName, js_getName, getName, js_setNoValidate, setNoValidate,+        js_getNoValidate, getNoValidate, js_setTarget, setTarget,+        js_getTarget, getTarget, js_getElements, getElements,+        getElementsUnchecked, js_getLength, getLength, js_setAutocorrect,         setAutocorrect, js_getAutocorrect, getAutocorrect,         js_setAutocapitalize, setAutocapitalize, js_getAutocapitalize,-        getAutocapitalize, autocomplete, autocompleteerror,-        HTMLFormElement, castToHTMLFormElement, gTypeHTMLFormElement)+        getAutocapitalize, getAutocapitalizeUnchecked, autocomplete,+        autocompleteerror, HTMLFormElement, castToHTMLFormElement,+        gTypeHTMLFormElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -24,9 +27,11 @@ 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)@@ -39,6 +44,16 @@ _get :: (MonadIO m) => HTMLFormElement -> Word -> m (Maybe Element) _get self index   = liftIO (nullableToMaybe <$> (js__get (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement._get Mozilla HTMLFormElement._get documentation> +_get_ :: (MonadIO m) => HTMLFormElement -> Word -> m ()+_get_ self index = liftIO (void (js__get (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement._get Mozilla HTMLFormElement._get documentation> +_getUnchecked ::+              (MonadIO m) => HTMLFormElement -> Word -> m Element+_getUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js__get (self) index))   foreign import javascript unsafe "$1[\"submit\"]()" js_submit ::         HTMLFormElement -> IO ()@@ -61,6 +76,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.checkValidity Mozilla HTMLFormElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLFormElement -> m Bool checkValidity self = liftIO (js_checkValidity (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.checkValidity Mozilla HTMLFormElement.checkValidity documentation> +checkValidity_ :: (MonadIO m) => HTMLFormElement -> m ()+checkValidity_ self = liftIO (void (js_checkValidity (self)))   foreign import javascript unsafe "$1[\"requestAutocomplete\"]()"         js_requestAutocomplete :: HTMLFormElement -> IO ()@@ -139,6 +158,12 @@              HTMLFormElement -> m (Maybe result) getEnctype self   = liftIO (fromMaybeJSString <$> (js_getEnctype (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.enctype Mozilla HTMLFormElement.enctype documentation> +getEnctypeUnchecked ::+                    (MonadIO m, FromJSString result) => HTMLFormElement -> m result+getEnctypeUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getEnctype (self)))   foreign import javascript unsafe "$1[\"encoding\"] = $2;"         js_setEncoding :: HTMLFormElement -> Nullable JSString -> IO ()@@ -158,6 +183,12 @@               HTMLFormElement -> m (Maybe result) getEncoding self   = liftIO (fromMaybeJSString <$> (js_getEncoding (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.encoding Mozilla HTMLFormElement.encoding documentation> +getEncodingUnchecked ::+                     (MonadIO m, FromJSString result) => HTMLFormElement -> m result+getEncodingUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getEncoding (self)))   foreign import javascript unsafe "$1[\"method\"] = $2;"         js_setMethod :: HTMLFormElement -> Nullable JSString -> IO ()@@ -177,6 +208,12 @@             HTMLFormElement -> m (Maybe result) getMethod self   = liftIO (fromMaybeJSString <$> (js_getMethod (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.method Mozilla HTMLFormElement.method documentation> +getMethodUnchecked ::+                   (MonadIO m, FromJSString result) => HTMLFormElement -> m result+getMethodUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getMethod (self)))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLFormElement -> JSString -> IO ()@@ -232,6 +269,12 @@             (MonadIO m) => HTMLFormElement -> m (Maybe HTMLCollection) getElements self   = liftIO (nullableToMaybe <$> (js_getElements (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.elements Mozilla HTMLFormElement.elements documentation> +getElementsUnchecked ::+                     (MonadIO m) => HTMLFormElement -> m HTMLCollection+getElementsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getElements (self)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         HTMLFormElement -> IO Int@@ -273,6 +316,13 @@                     HTMLFormElement -> m (Maybe result) getAutocapitalize self   = liftIO (fromMaybeJSString <$> (js_getAutocapitalize (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocapitalize Mozilla HTMLFormElement.autocapitalize documentation> +getAutocapitalizeUnchecked ::+                           (MonadIO m, FromJSString result) => HTMLFormElement -> m result+getAutocapitalizeUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getAutocapitalize (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.onautocomplete Mozilla HTMLFormElement.onautocomplete documentation>  autocomplete :: EventName HTMLFormElement onautocomplete
src/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs view
@@ -1,17 +1,19 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLFrameElement-       (js_getSVGDocument, getSVGDocument, js_setFrameBorder,-        setFrameBorder, js_getFrameBorder, getFrameBorder, js_setLongDesc,-        setLongDesc, js_getLongDesc, getLongDesc, js_setMarginHeight,-        setMarginHeight, js_getMarginHeight, getMarginHeight,-        js_setMarginWidth, setMarginWidth, js_getMarginWidth,-        getMarginWidth, js_setName, setName, js_getName, getName,-        js_setNoResize, setNoResize, js_getNoResize, getNoResize,-        js_setScrolling, setScrolling, js_getScrolling, getScrolling,-        js_setSrc, setSrc, js_getSrc, getSrc, js_getContentDocument,-        getContentDocument, js_getContentWindow, getContentWindow,-        js_setLocation, setLocation, js_getLocation, getLocation,-        js_getWidth, getWidth, js_getHeight, getHeight, HTMLFrameElement,+       (js_getSVGDocument, getSVGDocument, getSVGDocument_,+        getSVGDocumentUnchecked, js_setFrameBorder, setFrameBorder,+        js_getFrameBorder, getFrameBorder, js_setLongDesc, setLongDesc,+        js_getLongDesc, getLongDesc, js_setMarginHeight, setMarginHeight,+        js_getMarginHeight, getMarginHeight, js_setMarginWidth,+        setMarginWidth, js_getMarginWidth, getMarginWidth, js_setName,+        setName, js_getName, getName, js_setNoResize, setNoResize,+        js_getNoResize, getNoResize, js_setScrolling, setScrolling,+        js_getScrolling, getScrolling, js_setSrc, setSrc, js_getSrc,+        getSrc, js_getContentDocument, getContentDocument,+        getContentDocumentUnchecked, js_getContentWindow, getContentWindow,+        getContentWindowUnchecked, js_setLocation, setLocation,+        js_getLocation, getLocation, getLocationUnchecked, js_getWidth,+        getWidth, js_getHeight, getHeight, HTMLFrameElement,         castToHTMLFrameElement, gTypeHTMLFrameElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -21,9 +23,11 @@ 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)@@ -37,6 +41,17 @@                (MonadIO m) => HTMLFrameElement -> m (Maybe SVGDocument) getSVGDocument self   = liftIO (nullableToMaybe <$> (js_getSVGDocument (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.getSVGDocument Mozilla HTMLFrameElement.getSVGDocument documentation> +getSVGDocument_ :: (MonadIO m) => HTMLFrameElement -> m ()+getSVGDocument_ self = liftIO (void (js_getSVGDocument (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.getSVGDocument Mozilla HTMLFrameElement.getSVGDocument documentation> +getSVGDocumentUnchecked ::+                        (MonadIO m) => HTMLFrameElement -> m SVGDocument+getSVGDocumentUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getSVGDocument (self)))   foreign import javascript unsafe "$1[\"frameBorder\"] = $2;"         js_setFrameBorder :: HTMLFrameElement -> JSString -> IO ()@@ -182,6 +197,13 @@                    (MonadIO m) => HTMLFrameElement -> m (Maybe Document) getContentDocument self   = liftIO (nullableToMaybe <$> (js_getContentDocument (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentDocument Mozilla HTMLFrameElement.contentDocument documentation> +getContentDocumentUnchecked ::+                            (MonadIO m) => HTMLFrameElement -> m Document+getContentDocumentUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getContentDocument (self)))   foreign import javascript unsafe "$1[\"contentWindow\"]"         js_getContentWindow :: HTMLFrameElement -> IO (Nullable Window)@@ -191,6 +213,13 @@                  (MonadIO m) => HTMLFrameElement -> m (Maybe Window) getContentWindow self   = liftIO (nullableToMaybe <$> (js_getContentWindow (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentWindow Mozilla HTMLFrameElement.contentWindow documentation> +getContentWindowUnchecked ::+                          (MonadIO m) => HTMLFrameElement -> m Window+getContentWindowUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getContentWindow (self)))   foreign import javascript unsafe "$1[\"location\"] = $2;"         js_setLocation :: HTMLFrameElement -> Nullable JSString -> IO ()@@ -211,6 +240,12 @@               HTMLFrameElement -> m (Maybe result) getLocation self   = liftIO (fromMaybeJSString <$> (js_getLocation (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.location Mozilla HTMLFrameElement.location documentation> +getLocationUnchecked ::+                     (MonadIO m, FromJSString result) => HTMLFrameElement -> m result+getLocationUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getLocation (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         HTMLFrameElement -> IO Int
src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs view
@@ -13,9 +13,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs view
@@ -1,20 +1,21 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLIFrameElement-       (js_getSVGDocument, getSVGDocument, js_setAlign, setAlign,-        js_getAlign, getAlign, js_setFrameBorder, setFrameBorder,-        js_getFrameBorder, getFrameBorder, js_setHeight, setHeight,-        js_getHeight, getHeight, js_setLongDesc, setLongDesc,-        js_getLongDesc, getLongDesc, js_setMarginHeight, setMarginHeight,-        js_getMarginHeight, getMarginHeight, js_setMarginWidth,-        setMarginWidth, js_getMarginWidth, getMarginWidth, js_setName,-        setName, js_getName, getName, js_setSandbox, setSandbox,-        js_getSandbox, getSandbox, js_setScrolling, setScrolling,-        js_getScrolling, getScrolling, js_setSrc, setSrc, js_getSrc,-        getSrc, js_setSrcdoc, setSrcdoc, js_getSrcdoc, getSrcdoc,-        js_setWidth, setWidth, js_getWidth, getWidth,-        js_getContentDocument, getContentDocument, js_getContentWindow,-        getContentWindow, HTMLIFrameElement, castToHTMLIFrameElement,-        gTypeHTMLIFrameElement)+       (js_getSVGDocument, getSVGDocument, getSVGDocument_,+        getSVGDocumentUnchecked, js_setAlign, setAlign, js_getAlign,+        getAlign, js_setFrameBorder, setFrameBorder, js_getFrameBorder,+        getFrameBorder, js_setHeight, setHeight, js_getHeight, getHeight,+        js_setLongDesc, setLongDesc, js_getLongDesc, getLongDesc,+        js_setMarginHeight, setMarginHeight, js_getMarginHeight,+        getMarginHeight, js_setMarginWidth, setMarginWidth,+        js_getMarginWidth, getMarginWidth, js_setName, setName, js_getName,+        getName, js_setSandbox, setSandbox, js_getSandbox, getSandbox,+        js_setScrolling, setScrolling, js_getScrolling, getScrolling,+        js_setSrc, setSrc, js_getSrc, getSrc, js_setSrcdoc, setSrcdoc,+        js_getSrcdoc, getSrcdoc, js_setWidth, setWidth, js_getWidth,+        getWidth, js_getContentDocument, getContentDocument,+        getContentDocumentUnchecked, js_getContentWindow, getContentWindow,+        getContentWindowUnchecked, HTMLIFrameElement,+        castToHTMLIFrameElement, gTypeHTMLIFrameElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -23,9 +24,11 @@ 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)@@ -39,6 +42,17 @@                (MonadIO m) => HTMLIFrameElement -> m (Maybe SVGDocument) getSVGDocument self   = liftIO (nullableToMaybe <$> (js_getSVGDocument (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.getSVGDocument Mozilla HTMLIFrameElement.getSVGDocument documentation> +getSVGDocument_ :: (MonadIO m) => HTMLIFrameElement -> m ()+getSVGDocument_ self = liftIO (void (js_getSVGDocument (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.getSVGDocument Mozilla HTMLIFrameElement.getSVGDocument documentation> +getSVGDocumentUnchecked ::+                        (MonadIO m) => HTMLIFrameElement -> m SVGDocument+getSVGDocumentUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getSVGDocument (self)))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLIFrameElement -> JSString -> IO ()@@ -252,6 +266,13 @@                    (MonadIO m) => HTMLIFrameElement -> m (Maybe Document) getContentDocument self   = liftIO (nullableToMaybe <$> (js_getContentDocument (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentDocument Mozilla HTMLIFrameElement.contentDocument documentation> +getContentDocumentUnchecked ::+                            (MonadIO m) => HTMLIFrameElement -> m Document+getContentDocumentUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getContentDocument (self)))   foreign import javascript unsafe "$1[\"contentWindow\"]"         js_getContentWindow :: HTMLIFrameElement -> IO (Nullable Window)@@ -261,3 +282,10 @@                  (MonadIO m) => HTMLIFrameElement -> m (Maybe Window) getContentWindow self   = liftIO (nullableToMaybe <$> (js_getContentWindow (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentWindow Mozilla HTMLIFrameElement.contentWindow documentation> +getContentWindowUnchecked ::+                          (MonadIO m) => HTMLIFrameElement -> m Window+getContentWindowUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getContentWindow (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs view
@@ -25,9 +25,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs view
@@ -1,57 +1,61 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLInputElement        (js_stepUp, stepUp, js_stepDown, stepDown, js_checkValidity,-        checkValidity, js_setCustomValidity, setCustomValidity, js_select,-        select, js_setRangeText, setRangeText, js_setRangeText4,-        setRangeText4, js_setSelectionRange, setSelectionRange,-        js_setAccept, setAccept, js_getAccept, getAccept, js_setAlt,-        setAlt, js_getAlt, getAlt, js_setAutocomplete, setAutocomplete,-        js_getAutocomplete, getAutocomplete, js_setAutofocus, setAutofocus,-        js_getAutofocus, getAutofocus, js_setDefaultChecked,-        setDefaultChecked, js_getDefaultChecked, getDefaultChecked,-        js_setChecked, setChecked, js_getChecked, getChecked,-        js_setDirName, setDirName, js_getDirName, getDirName,-        js_setDisabled, setDisabled, js_getDisabled, getDisabled,-        js_getForm, getForm, js_setFiles, setFiles, js_getFiles, getFiles,+        checkValidity, checkValidity_, js_setCustomValidity,+        setCustomValidity, js_select, select, js_setRangeText,+        setRangeText, js_setRangeText4, setRangeText4,+        js_setSelectionRange, setSelectionRange, js_setAccept, setAccept,+        js_getAccept, getAccept, js_setAlt, setAlt, js_getAlt, getAlt,+        js_setAutocomplete, setAutocomplete, js_getAutocomplete,+        getAutocomplete, js_setAutofocus, setAutofocus, js_getAutofocus,+        getAutofocus, js_setDefaultChecked, setDefaultChecked,+        js_getDefaultChecked, getDefaultChecked, js_setChecked, setChecked,+        js_getChecked, getChecked, js_setDirName, setDirName,+        js_getDirName, getDirName, js_setDisabled, setDisabled,+        js_getDisabled, getDisabled, js_getForm, getForm, getFormUnchecked,+        js_setFiles, setFiles, js_getFiles, getFiles, getFilesUnchecked,         js_setFormAction, setFormAction, js_getFormAction, getFormAction,         js_setFormEnctype, setFormEnctype, js_getFormEnctype,-        getFormEnctype, js_setFormMethod, setFormMethod, js_getFormMethod,-        getFormMethod, js_setFormNoValidate, setFormNoValidate,+        getFormEnctype, getFormEnctypeUnchecked, js_setFormMethod,+        setFormMethod, js_getFormMethod, getFormMethod,+        getFormMethodUnchecked, js_setFormNoValidate, setFormNoValidate,         js_getFormNoValidate, getFormNoValidate, js_setFormTarget,         setFormTarget, js_getFormTarget, getFormTarget, js_setHeight,         setHeight, js_getHeight, getHeight, js_setIndeterminate,         setIndeterminate, js_getIndeterminate, getIndeterminate,-        js_getList, getList, js_setMax, setMax, js_getMax, getMax,-        js_setMaxLength, setMaxLength, js_getMaxLength, getMaxLength,-        js_setMin, setMin, js_getMin, getMin, js_setMultiple, setMultiple,-        js_getMultiple, getMultiple, js_setName, setName, js_getName,-        getName, js_setPattern, setPattern, js_getPattern, getPattern,-        js_setPlaceholder, setPlaceholder, js_getPlaceholder,+        js_getList, getList, getListUnchecked, js_setMax, setMax,+        js_getMax, getMax, js_setMaxLength, setMaxLength, js_getMaxLength,+        getMaxLength, js_setMin, setMin, js_getMin, getMin, js_setMultiple,+        setMultiple, js_getMultiple, getMultiple, js_setName, setName,+        js_getName, getName, js_setPattern, setPattern, js_getPattern,+        getPattern, js_setPlaceholder, setPlaceholder, js_getPlaceholder,         getPlaceholder, js_setReadOnly, setReadOnly, js_getReadOnly,         getReadOnly, js_setRequired, setRequired, js_getRequired,         getRequired, js_setSize, setSize, js_getSize, getSize, js_setSrc,         setSrc, js_getSrc, getSrc, js_setStep, setStep, js_getStep,         getStep, js_setType, setType, js_getType, getType,         js_setDefaultValue, setDefaultValue, js_getDefaultValue,-        getDefaultValue, js_setValue, setValue, js_getValue, getValue,-        js_setValueAsDate, setValueAsDate, js_getValueAsDate,-        getValueAsDate, js_setValueAsNumber, setValueAsNumber,+        getDefaultValue, getDefaultValueUnchecked, js_setValue, setValue,+        js_getValue, getValue, getValueUnchecked, js_setValueAsDate,+        setValueAsDate, js_getValueAsDate, getValueAsDate,+        getValueAsDateUnchecked, js_setValueAsNumber, setValueAsNumber,         js_getValueAsNumber, getValueAsNumber, js_setWidth, setWidth,         js_getWidth, getWidth, js_getWillValidate, getWillValidate,-        js_getValidity, getValidity, js_getValidationMessage,-        getValidationMessage, js_getLabels, getLabels,-        js_setSelectionStart, setSelectionStart, js_getSelectionStart,-        getSelectionStart, js_setSelectionEnd, setSelectionEnd,-        js_getSelectionEnd, getSelectionEnd, js_setSelectionDirection,-        setSelectionDirection, js_getSelectionDirection,-        getSelectionDirection, js_setAlign, setAlign, js_getAlign,-        getAlign, js_setUseMap, setUseMap, js_getUseMap, getUseMap,-        js_setIncremental, setIncremental, js_getIncremental,-        getIncremental, js_setAutocorrect, setAutocorrect,-        js_getAutocorrect, getAutocorrect, js_setAutocapitalize,-        setAutocapitalize, js_getAutocapitalize, getAutocapitalize,-        js_setCapture, setCapture, js_getCapture, getCapture,-        HTMLInputElement, castToHTMLInputElement, gTypeHTMLInputElement)+        js_getValidity, getValidity, getValidityUnchecked,+        js_getValidationMessage, getValidationMessage, js_getLabels,+        getLabels, getLabelsUnchecked, js_setSelectionStart,+        setSelectionStart, js_getSelectionStart, getSelectionStart,+        js_setSelectionEnd, setSelectionEnd, js_getSelectionEnd,+        getSelectionEnd, js_setSelectionDirection, setSelectionDirection,+        js_getSelectionDirection, getSelectionDirection, js_setAlign,+        setAlign, js_getAlign, getAlign, js_setUseMap, setUseMap,+        js_getUseMap, getUseMap, js_setIncremental, setIncremental,+        js_getIncremental, getIncremental, js_setAutocorrect,+        setAutocorrect, js_getAutocorrect, getAutocorrect,+        js_setAutocapitalize, setAutocapitalize, js_getAutocapitalize,+        getAutocapitalize, getAutocapitalizeUnchecked, js_setCapture,+        setCapture, js_getCapture, getCapture, HTMLInputElement,+        castToHTMLInputElement, gTypeHTMLInputElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -60,9 +64,11 @@ 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)@@ -89,6 +95,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.checkValidity Mozilla HTMLInputElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLInputElement -> m Bool checkValidity self = liftIO (js_checkValidity (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.checkValidity Mozilla HTMLInputElement.checkValidity documentation> +checkValidity_ :: (MonadIO m) => HTMLInputElement -> m ()+checkValidity_ self = liftIO (void (js_checkValidity (self)))   foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         js_setCustomValidity ::@@ -276,6 +286,12 @@ getForm ::         (MonadIO m) => HTMLInputElement -> m (Maybe HTMLFormElement) getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.form Mozilla HTMLInputElement.form documentation> +getFormUnchecked ::+                 (MonadIO m) => HTMLInputElement -> m HTMLFormElement+getFormUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"files\"] = $2;" js_setFiles         :: HTMLInputElement -> Nullable FileList -> IO ()@@ -292,6 +308,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.files Mozilla HTMLInputElement.files documentation>  getFiles :: (MonadIO m) => HTMLInputElement -> m (Maybe FileList) getFiles self = liftIO (nullableToMaybe <$> (js_getFiles (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.files Mozilla HTMLInputElement.files documentation> +getFilesUnchecked :: (MonadIO m) => HTMLInputElement -> m FileList+getFilesUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getFiles (self)))   foreign import javascript unsafe "$1[\"formAction\"] = $2;"         js_setFormAction :: HTMLInputElement -> JSString -> IO ()@@ -330,6 +351,13 @@                  HTMLInputElement -> m (Maybe result) getFormEnctype self   = liftIO (fromMaybeJSString <$> (js_getFormEnctype (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formEnctype Mozilla HTMLInputElement.formEnctype documentation> +getFormEnctypeUnchecked ::+                        (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getFormEnctypeUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getFormEnctype (self)))   foreign import javascript unsafe "$1[\"formMethod\"] = $2;"         js_setFormMethod :: HTMLInputElement -> Nullable JSString -> IO ()@@ -350,6 +378,13 @@                 HTMLInputElement -> m (Maybe result) getFormMethod self   = liftIO (fromMaybeJSString <$> (js_getFormMethod (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formMethod Mozilla HTMLInputElement.formMethod documentation> +getFormMethodUnchecked ::+                       (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getFormMethodUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getFormMethod (self)))   foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"         js_setFormNoValidate :: HTMLInputElement -> Bool -> IO ()@@ -419,6 +454,12 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.list Mozilla HTMLInputElement.list documentation>  getList :: (MonadIO m) => HTMLInputElement -> m (Maybe HTMLElement) getList self = liftIO (nullableToMaybe <$> (js_getList (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.list Mozilla HTMLInputElement.list documentation> +getListUnchecked ::+                 (MonadIO m) => HTMLInputElement -> m HTMLElement+getListUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getList (self)))   foreign import javascript unsafe "$1[\"max\"] = $2;" js_setMax ::         HTMLInputElement -> JSString -> IO ()@@ -641,6 +682,13 @@                   HTMLInputElement -> m (Maybe result) getDefaultValue self   = liftIO (fromMaybeJSString <$> (js_getDefaultValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultValue Mozilla HTMLInputElement.defaultValue documentation> +getDefaultValueUnchecked ::+                         (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getDefaultValueUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getDefaultValue (self)))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue         :: HTMLInputElement -> Nullable JSString -> IO ()@@ -660,6 +708,12 @@          (MonadIO m, FromJSString result) =>            HTMLInputElement -> m (Maybe result) getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.value Mozilla HTMLInputElement.value documentation> +getValueUnchecked ::+                  (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getValueUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getValue (self)))   foreign import javascript unsafe "$1[\"valueAsDate\"] = $2;"         js_setValueAsDate :: HTMLInputElement -> Nullable Date -> IO ()@@ -678,6 +732,13 @@ getValueAsDate :: (MonadIO m) => HTMLInputElement -> m (Maybe Date) getValueAsDate self   = liftIO (nullableToMaybe <$> (js_getValueAsDate (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsDate Mozilla HTMLInputElement.valueAsDate documentation> +getValueAsDateUnchecked ::+                        (MonadIO m) => HTMLInputElement -> m Date+getValueAsDateUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getValueAsDate (self)))   foreign import javascript unsafe "$1[\"valueAsNumber\"] = $2;"         js_setValueAsNumber :: HTMLInputElement -> Double -> IO ()@@ -723,6 +784,12 @@             (MonadIO m) => HTMLInputElement -> m (Maybe ValidityState) getValidity self   = liftIO (nullableToMaybe <$> (js_getValidity (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.validity Mozilla HTMLInputElement.validity documentation> +getValidityUnchecked ::+                     (MonadIO m) => HTMLInputElement -> m ValidityState+getValidityUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))   foreign import javascript unsafe "$1[\"validationMessage\"]"         js_getValidationMessage :: HTMLInputElement -> IO JSString@@ -739,6 +806,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.labels Mozilla HTMLInputElement.labels documentation>  getLabels :: (MonadIO m) => HTMLInputElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.labels Mozilla HTMLInputElement.labels documentation> +getLabelsUnchecked :: (MonadIO m) => HTMLInputElement -> m NodeList+getLabelsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))   foreign import javascript unsafe "$1[\"selectionStart\"] = $2;"         js_setSelectionStart :: HTMLInputElement -> Int -> IO ()@@ -867,6 +939,13 @@                     HTMLInputElement -> m (Maybe result) getAutocapitalize self   = liftIO (fromMaybeJSString <$> (js_getAutocapitalize (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocapitalize Mozilla HTMLInputElement.autocapitalize documentation> +getAutocapitalizeUnchecked ::+                           (MonadIO m, FromJSString result) => HTMLInputElement -> m result+getAutocapitalizeUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getAutocapitalize (self)))   foreign import javascript unsafe "$1[\"capture\"] = $2;"         js_setCapture :: HTMLInputElement -> Bool -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs view
@@ -1,15 +1,16 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLKeygenElement-       (js_checkValidity, checkValidity, js_setCustomValidity,-        setCustomValidity, js_setAutofocus, setAutofocus, js_getAutofocus,-        getAutofocus, js_setChallenge, setChallenge, js_getChallenge,-        getChallenge, js_setDisabled, setDisabled, js_getDisabled,-        getDisabled, js_getForm, getForm, js_setKeytype, setKeytype,-        js_getKeytype, getKeytype, js_setName, setName, js_getName,-        getName, js_getType, getType, js_getWillValidate, getWillValidate,-        js_getValidity, getValidity, js_getValidationMessage,-        getValidationMessage, js_getLabels, getLabels, HTMLKeygenElement,-        castToHTMLKeygenElement, gTypeHTMLKeygenElement)+       (js_checkValidity, checkValidity, checkValidity_,+        js_setCustomValidity, setCustomValidity, js_setAutofocus,+        setAutofocus, js_getAutofocus, getAutofocus, js_setChallenge,+        setChallenge, js_getChallenge, getChallenge, js_setDisabled,+        setDisabled, js_getDisabled, getDisabled, js_getForm, getForm,+        getFormUnchecked, js_setKeytype, setKeytype, js_getKeytype,+        getKeytype, js_setName, setName, js_getName, getName, js_getType,+        getType, js_getWillValidate, getWillValidate, js_getValidity,+        getValidity, getValidityUnchecked, js_getValidationMessage,+        getValidationMessage, js_getLabels, getLabels, getLabelsUnchecked,+        HTMLKeygenElement, castToHTMLKeygenElement, gTypeHTMLKeygenElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -18,9 +19,11 @@ 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)@@ -33,6 +36,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.checkValidity Mozilla HTMLKeygenElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLKeygenElement -> m Bool checkValidity self = liftIO (js_checkValidity (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.checkValidity Mozilla HTMLKeygenElement.checkValidity documentation> +checkValidity_ :: (MonadIO m) => HTMLKeygenElement -> m ()+checkValidity_ self = liftIO (void (js_checkValidity (self)))   foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         js_setCustomValidity ::@@ -98,6 +105,12 @@ getForm ::         (MonadIO m) => HTMLKeygenElement -> m (Maybe HTMLFormElement) getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.form Mozilla HTMLKeygenElement.form documentation> +getFormUnchecked ::+                 (MonadIO m) => HTMLKeygenElement -> m HTMLFormElement+getFormUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"keytype\"] = $2;"         js_setKeytype :: HTMLKeygenElement -> JSString -> IO ()@@ -155,6 +168,12 @@             (MonadIO m) => HTMLKeygenElement -> m (Maybe ValidityState) getValidity self   = liftIO (nullableToMaybe <$> (js_getValidity (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.validity Mozilla HTMLKeygenElement.validity documentation> +getValidityUnchecked ::+                     (MonadIO m) => HTMLKeygenElement -> m ValidityState+getValidityUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))   foreign import javascript unsafe "$1[\"validationMessage\"]"         js_getValidationMessage :: HTMLKeygenElement -> IO JSString@@ -171,3 +190,9 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.labels Mozilla HTMLKeygenElement.labels documentation>  getLabels :: (MonadIO m) => HTMLKeygenElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.labels Mozilla HTMLKeygenElement.labels documentation> +getLabelsUnchecked ::+                   (MonadIO m) => HTMLKeygenElement -> m NodeList+getLabelsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs view
@@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLLabelElement-       (js_getForm, getForm, js_setHtmlFor, setHtmlFor, js_getHtmlFor,-        getHtmlFor, js_getControl, getControl, HTMLLabelElement,-        castToHTMLLabelElement, gTypeHTMLLabelElement)+       (js_getForm, getForm, getFormUnchecked, js_setHtmlFor, setHtmlFor,+        js_getHtmlFor, getHtmlFor, js_getControl, getControl,+        getControlUnchecked, HTMLLabelElement, castToHTMLLabelElement,+        gTypeHTMLLabelElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +12,11 @@ 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)@@ -26,6 +29,12 @@ getForm ::         (MonadIO m) => HTMLLabelElement -> m (Maybe HTMLFormElement) getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.form Mozilla HTMLLabelElement.form documentation> +getFormUnchecked ::+                 (MonadIO m) => HTMLLabelElement -> m HTMLFormElement+getFormUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"         js_setHtmlFor :: HTMLLabelElement -> JSString -> IO ()@@ -52,3 +61,9 @@            (MonadIO m) => HTMLLabelElement -> m (Maybe HTMLElement) getControl self   = liftIO (nullableToMaybe <$> (js_getControl (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.control Mozilla HTMLLabelElement.control documentation> +getControlUnchecked ::+                    (MonadIO m) => HTMLLabelElement -> m HTMLElement+getControlUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getControl (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLLegendElement-       (js_getForm, getForm, js_setAlign, setAlign, js_getAlign, getAlign,-        HTMLLegendElement, castToHTMLLegendElement, gTypeHTMLLegendElement)+       (js_getForm, getForm, getFormUnchecked, js_setAlign, setAlign,+        js_getAlign, getAlign, HTMLLegendElement, castToHTMLLegendElement,+        gTypeHTMLLegendElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -25,6 +28,12 @@ getForm ::         (MonadIO m) => HTMLLegendElement -> m (Maybe HTMLFormElement) getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.form Mozilla HTMLLegendElement.form documentation> +getFormUnchecked ::+                 (MonadIO m) => HTMLLegendElement -> m HTMLFormElement+getFormUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLLegendElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs view
@@ -6,9 +6,10 @@         js_getHreflang, getHreflang, js_setMedia, setMedia, js_getMedia,         getMedia, js_setRel, setRel, js_getRel, getRel, js_setRev, setRev,         js_getRev, getRev, js_setSizes, setSizes, js_getSizes, getSizes,-        js_setTarget, setTarget, js_getTarget, getTarget, js_setType,-        setType, js_getType, getType, js_getSheet, getSheet, js_getRelList,-        getRelList, HTMLLinkElement, castToHTMLLinkElement,+        getSizesUnchecked, js_setTarget, setTarget, js_getTarget,+        getTarget, js_setType, setType, js_getType, getType, js_getSheet,+        getSheet, getSheetUnchecked, js_getRelList, getRelList,+        getRelListUnchecked, HTMLLinkElement, castToHTMLLinkElement,         gTypeHTMLLinkElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -18,9 +19,11 @@ 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)@@ -156,6 +159,12 @@ getSizes ::          (MonadIO m) => HTMLLinkElement -> m (Maybe DOMSettableTokenList) getSizes self = liftIO (nullableToMaybe <$> (js_getSizes (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sizes Mozilla HTMLLinkElement.sizes documentation> +getSizesUnchecked ::+                  (MonadIO m) => HTMLLinkElement -> m DOMSettableTokenList+getSizesUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getSizes (self)))   foreign import javascript unsafe "$1[\"target\"] = $2;"         js_setTarget :: HTMLLinkElement -> JSString -> IO ()@@ -195,6 +204,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sheet Mozilla HTMLLinkElement.sheet documentation>  getSheet :: (MonadIO m) => HTMLLinkElement -> m (Maybe StyleSheet) getSheet self = liftIO (nullableToMaybe <$> (js_getSheet (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sheet Mozilla HTMLLinkElement.sheet documentation> +getSheetUnchecked :: (MonadIO m) => HTMLLinkElement -> m StyleSheet+getSheetUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getSheet (self)))   foreign import javascript unsafe "$1[\"relList\"]" js_getRelList ::         HTMLLinkElement -> IO (Nullable DOMTokenList)@@ -204,3 +218,9 @@            (MonadIO m) => HTMLLinkElement -> m (Maybe DOMTokenList) getRelList self   = liftIO (nullableToMaybe <$> (js_getRelList (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.relList Mozilla HTMLLinkElement.relList documentation> +getRelListUnchecked ::+                    (MonadIO m) => HTMLLinkElement -> m DOMTokenList+getRelListUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRelList (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLMapElement-       (js_getAreas, getAreas, js_setName, setName, js_getName, getName,-        HTMLMapElement, castToHTMLMapElement, gTypeHTMLMapElement)+       (js_getAreas, getAreas, getAreasUnchecked, js_setName, setName,+        js_getName, getName, HTMLMapElement, castToHTMLMapElement,+        gTypeHTMLMapElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -25,6 +28,12 @@ getAreas ::          (MonadIO m) => HTMLMapElement -> m (Maybe HTMLCollection) getAreas self = liftIO (nullableToMaybe <$> (js_getAreas (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.areas Mozilla HTMLMapElement.areas documentation> +getAreasUnchecked ::+                  (MonadIO m) => HTMLMapElement -> m HTMLCollection+getAreasUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getAreas (self)))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLMapElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs view
@@ -21,9 +21,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs view
@@ -1,32 +1,36 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLMediaElement-       (js_load, load, js_canPlayType, canPlayType, js_play, play,-        js_pause, pause, js_fastSeek, fastSeek,+       (js_load, load, js_canPlayType, canPlayType, canPlayType_, js_play,+        play, js_pause, pause, js_fastSeek, fastSeek,         js_webkitGenerateKeyRequest, webkitGenerateKeyRequest,         js_webkitAddKey, webkitAddKey, js_webkitCancelKeyRequest,         webkitCancelKeyRequest, js_webkitSetMediaKeys, webkitSetMediaKeys,-        js_addTextTrack, addTextTrack, js_getVideoPlaybackQuality,-        getVideoPlaybackQuality, js_webkitShowPlaybackTargetPicker,-        webkitShowPlaybackTargetPicker, pattern NETWORK_EMPTY,-        pattern NETWORK_IDLE, pattern NETWORK_LOADING,-        pattern NETWORK_NO_SOURCE, pattern HAVE_NOTHING,-        pattern HAVE_METADATA, pattern HAVE_CURRENT_DATA,-        pattern HAVE_FUTURE_DATA, pattern HAVE_ENOUGH_DATA, js_getError,-        getError, js_setSrc, setSrc, js_getSrc, getSrc, js_getCurrentSrc,+        js_addTextTrack, addTextTrack, addTextTrack_,+        addTextTrackUnchecked, js_getVideoPlaybackQuality,+        getVideoPlaybackQuality, getVideoPlaybackQuality_,+        getVideoPlaybackQualityUnchecked,+        js_webkitShowPlaybackTargetPicker, webkitShowPlaybackTargetPicker,+        pattern NETWORK_EMPTY, pattern NETWORK_IDLE,+        pattern NETWORK_LOADING, pattern NETWORK_NO_SOURCE,+        pattern HAVE_NOTHING, pattern HAVE_METADATA,+        pattern HAVE_CURRENT_DATA, pattern HAVE_FUTURE_DATA,+        pattern HAVE_ENOUGH_DATA, js_getError, getError, getErrorUnchecked,+        js_setSrc, setSrc, js_getSrc, getSrc, js_getCurrentSrc,         getCurrentSrc, js_getNetworkState, getNetworkState, js_setPreload,         setPreload, js_getPreload, getPreload, js_getBuffered, getBuffered,-        js_getReadyState, getReadyState, js_getSeeking, getSeeking,-        js_setCurrentTime, setCurrentTime, js_getCurrentTime,-        getCurrentTime, js_getDuration, getDuration, js_getPaused,-        getPaused, js_setDefaultPlaybackRate, setDefaultPlaybackRate,-        js_getDefaultPlaybackRate, getDefaultPlaybackRate,-        js_setPlaybackRate, setPlaybackRate, js_getPlaybackRate,-        getPlaybackRate, js_getPlayed, getPlayed, js_getSeekable,-        getSeekable, js_getEnded, getEnded, js_setAutoplay, setAutoplay,-        js_getAutoplay, getAutoplay, js_setLoop, setLoop, js_getLoop,-        getLoop, js_setControls, setControls, js_getControls, getControls,-        js_setVolume, setVolume, js_getVolume, getVolume, js_setMuted,-        setMuted, js_getMuted, getMuted, js_setDefaultMuted,+        getBufferedUnchecked, js_getReadyState, getReadyState,+        js_getSeeking, getSeeking, js_setCurrentTime, setCurrentTime,+        js_getCurrentTime, getCurrentTime, js_getDuration, getDuration,+        js_getPaused, getPaused, js_setDefaultPlaybackRate,+        setDefaultPlaybackRate, js_getDefaultPlaybackRate,+        getDefaultPlaybackRate, js_setPlaybackRate, setPlaybackRate,+        js_getPlaybackRate, getPlaybackRate, js_getPlayed, getPlayed,+        getPlayedUnchecked, js_getSeekable, getSeekable,+        getSeekableUnchecked, js_getEnded, getEnded, js_setAutoplay,+        setAutoplay, js_getAutoplay, getAutoplay, js_setLoop, setLoop,+        js_getLoop, getLoop, js_setControls, setControls, js_getControls,+        getControls, js_setVolume, setVolume, js_getVolume, getVolume,+        js_setMuted, setMuted, js_getMuted, getMuted, js_setDefaultMuted,         setDefaultMuted, js_getDefaultMuted, getDefaultMuted, emptied,         loadedMetadata, loadedData, canPlay, canPlayThrough, playing,         ended, waiting, durationChange, timeUpdate, playEvent, pauseEvent,@@ -39,17 +43,20 @@         getWebkitAudioDecodedByteCount, js_getWebkitVideoDecodedByteCount,         getWebkitVideoDecodedByteCount, webKitKeyAdded, webKitKeyError,         webKitKeyMessage, webKitNeedKey, js_getWebkitKeys, getWebkitKeys,-        js_getAudioTracks, getAudioTracks, js_getTextTracks, getTextTracks,-        js_getVideoTracks, getVideoTracks, js_setMediaGroup, setMediaGroup,-        js_getMediaGroup, getMediaGroup, js_setController, setController,-        js_getController, getController,+        getWebkitKeysUnchecked, js_getAudioTracks, getAudioTracks,+        getAudioTracksUnchecked, js_getTextTracks, getTextTracks,+        getTextTracksUnchecked, js_getVideoTracks, getVideoTracks,+        getVideoTracksUnchecked, js_setMediaGroup, setMediaGroup,+        js_getMediaGroup, getMediaGroup, getMediaGroupUnchecked,+        js_setController, setController, js_getController, getController,+        getControllerUnchecked,         js_getWebkitCurrentPlaybackTargetIsWireless,         getWebkitCurrentPlaybackTargetIsWireless,         webKitCurrentPlaybackTargetIsWirelessChanged,         webKitPlaybackTargetAvailabilityChanged, js_setSrcObject,-        setSrcObject, js_getSrcObject, getSrcObject, HTMLMediaElement,-        castToHTMLMediaElement, gTypeHTMLMediaElement, IsHTMLMediaElement,-        toHTMLMediaElement)+        setSrcObject, js_getSrcObject, getSrcObject, getSrcObjectUnchecked,+        HTMLMediaElement, castToHTMLMediaElement, gTypeHTMLMediaElement,+        IsHTMLMediaElement, toHTMLMediaElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -58,9 +65,11 @@ 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)@@ -87,6 +96,17 @@       (fromJSString <$>          (js_canPlayType (toHTMLMediaElement self) (toJSString type')             (toMaybeJSString keySystem)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.canPlayType Mozilla HTMLMediaElement.canPlayType documentation> +canPlayType_ ::+             (MonadIO m, IsHTMLMediaElement self, ToJSString type',+              ToJSString keySystem) =>+               self -> type' -> Maybe keySystem -> m ()+canPlayType_ self type' keySystem+  = liftIO+      (void+         (js_canPlayType (toHTMLMediaElement self) (toJSString type')+            (toMaybeJSString keySystem)))   foreign import javascript unsafe "$1[\"play\"]()" js_play ::         HTMLMediaElement -> IO ()@@ -192,6 +212,30 @@          (js_addTextTrack (toHTMLMediaElement self) (toJSString kind)             (toJSString label)             (toJSString language)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.addTextTrack Mozilla HTMLMediaElement.addTextTrack documentation> +addTextTrack_ ::+              (MonadIO m, IsHTMLMediaElement self, ToJSString kind,+               ToJSString label, ToJSString language) =>+                self -> kind -> label -> language -> m ()+addTextTrack_ self kind label language+  = liftIO+      (void+         (js_addTextTrack (toHTMLMediaElement self) (toJSString kind)+            (toJSString label)+            (toJSString language)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.addTextTrack Mozilla HTMLMediaElement.addTextTrack documentation> +addTextTrackUnchecked ::+                      (MonadIO m, IsHTMLMediaElement self, ToJSString kind,+                       ToJSString label, ToJSString language) =>+                        self -> kind -> label -> language -> m TextTrack+addTextTrackUnchecked self kind label language+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_addTextTrack (toHTMLMediaElement self) (toJSString kind)+            (toJSString label)+            (toJSString language)))   foreign import javascript unsafe         "$1[\"getVideoPlaybackQuality\"]()" js_getVideoPlaybackQuality ::@@ -205,6 +249,22 @@   = liftIO       (nullableToMaybe <$>          (js_getVideoPlaybackQuality (toHTMLMediaElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.getVideoPlaybackQuality Mozilla HTMLMediaElement.getVideoPlaybackQuality documentation> +getVideoPlaybackQuality_ ::+                         (MonadIO m, IsHTMLMediaElement self) => self -> m ()+getVideoPlaybackQuality_ self+  = liftIO+      (void (js_getVideoPlaybackQuality (toHTMLMediaElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.getVideoPlaybackQuality Mozilla HTMLMediaElement.getVideoPlaybackQuality documentation> +getVideoPlaybackQualityUnchecked ::+                                 (MonadIO m, IsHTMLMediaElement self) =>+                                   self -> m VideoPlaybackQuality+getVideoPlaybackQualityUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getVideoPlaybackQuality (toHTMLMediaElement self)))   foreign import javascript unsafe         "$1[\"webkitShowPlaybackTargetPicker\"]()"@@ -236,6 +296,14 @@ getError self   = liftIO       (nullableToMaybe <$> (js_getError (toHTMLMediaElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.error Mozilla HTMLMediaElement.error documentation> +getErrorUnchecked ::+                  (MonadIO m, IsHTMLMediaElement self) => self -> m MediaError+getErrorUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getError (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::         HTMLMediaElement -> JSString -> IO ()@@ -308,6 +376,14 @@ getBuffered self   = liftIO       (nullableToMaybe <$> (js_getBuffered (toHTMLMediaElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.buffered Mozilla HTMLMediaElement.buffered documentation> +getBufferedUnchecked ::+                     (MonadIO m, IsHTMLMediaElement self) => self -> m TimeRanges+getBufferedUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getBuffered (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"readyState\"]"         js_getReadyState :: HTMLMediaElement -> IO Word@@ -407,6 +483,14 @@ getPlayed self   = liftIO       (nullableToMaybe <$> (js_getPlayed (toHTMLMediaElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.played Mozilla HTMLMediaElement.played documentation> +getPlayedUnchecked ::+                   (MonadIO m, IsHTMLMediaElement self) => self -> m TimeRanges+getPlayedUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getPlayed (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"seekable\"]" js_getSeekable         :: HTMLMediaElement -> IO (Nullable TimeRanges)@@ -418,6 +502,14 @@ getSeekable self   = liftIO       (nullableToMaybe <$> (js_getSeekable (toHTMLMediaElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.seekable Mozilla HTMLMediaElement.seekable documentation> +getSeekableUnchecked ::+                     (MonadIO m, IsHTMLMediaElement self) => self -> m TimeRanges+getSeekableUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getSeekable (toHTMLMediaElement self)))   foreign import javascript unsafe "($1[\"ended\"] ? 1 : 0)"         js_getEnded :: HTMLMediaElement -> IO Bool@@ -721,6 +813,14 @@ getWebkitKeys self   = liftIO       (nullableToMaybe <$> (js_getWebkitKeys (toHTMLMediaElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitKeys Mozilla HTMLMediaElement.webkitKeys documentation> +getWebkitKeysUnchecked ::+                       (MonadIO m, IsHTMLMediaElement self) => self -> m MediaKeys+getWebkitKeysUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getWebkitKeys (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"audioTracks\"]"         js_getAudioTracks ::@@ -733,6 +833,14 @@ getAudioTracks self   = liftIO       (nullableToMaybe <$> (js_getAudioTracks (toHTMLMediaElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.audioTracks Mozilla HTMLMediaElement.audioTracks documentation> +getAudioTracksUnchecked ::+                        (MonadIO m, IsHTMLMediaElement self) => self -> m AudioTrackList+getAudioTracksUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getAudioTracks (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"textTracks\"]"         js_getTextTracks :: HTMLMediaElement -> IO (Nullable TextTrackList)@@ -744,6 +852,14 @@ getTextTracks self   = liftIO       (nullableToMaybe <$> (js_getTextTracks (toHTMLMediaElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.textTracks Mozilla HTMLMediaElement.textTracks documentation> +getTextTracksUnchecked ::+                       (MonadIO m, IsHTMLMediaElement self) => self -> m TextTrackList+getTextTracksUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getTextTracks (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"videoTracks\"]"         js_getVideoTracks ::@@ -756,6 +872,14 @@ getVideoTracks self   = liftIO       (nullableToMaybe <$> (js_getVideoTracks (toHTMLMediaElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.videoTracks Mozilla HTMLMediaElement.videoTracks documentation> +getVideoTracksUnchecked ::+                        (MonadIO m, IsHTMLMediaElement self) => self -> m VideoTrackList+getVideoTracksUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getVideoTracks (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"mediaGroup\"] = $2;"         js_setMediaGroup :: HTMLMediaElement -> Nullable JSString -> IO ()@@ -779,6 +903,15 @@   = liftIO       (fromMaybeJSString <$>          (js_getMediaGroup (toHTMLMediaElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.mediaGroup Mozilla HTMLMediaElement.mediaGroup documentation> +getMediaGroupUnchecked ::+                       (MonadIO m, IsHTMLMediaElement self, FromJSString result) =>+                         self -> m result+getMediaGroupUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getMediaGroup (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"controller\"] = $2;"         js_setController ::@@ -803,6 +936,14 @@ getController self   = liftIO       (nullableToMaybe <$> (js_getController (toHTMLMediaElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controller Mozilla HTMLMediaElement.controller documentation> +getControllerUnchecked ::+                       (MonadIO m, IsHTMLMediaElement self) => self -> m MediaController+getControllerUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getController (toHTMLMediaElement self)))   foreign import javascript unsafe         "($1[\"webkitCurrentPlaybackTargetIsWireless\"] ? 1 : 0)"@@ -853,6 +994,14 @@              (MonadIO m, IsHTMLMediaElement self) =>                self -> m (Maybe MediaStream) getSrcObject self+  = liftIO+      ((js_getSrcObject (toHTMLMediaElement self)) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation> +getSrcObjectUnchecked ::+                      (MonadIO m, IsHTMLMediaElement self) => self -> m MediaStream+getSrcObjectUnchecked self   = liftIO       ((js_getSrcObject (toHTMLMediaElement self)) >>=          fromJSValUnchecked)
src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs view
@@ -13,9 +13,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs view
@@ -4,8 +4,8 @@         js_getMin, getMin, js_setMax, setMax, js_getMax, getMax, js_setLow,         setLow, js_getLow, getLow, js_setHigh, setHigh, js_getHigh,         getHigh, js_setOptimum, setOptimum, js_getOptimum, getOptimum,-        js_getLabels, getLabels, HTMLMeterElement, castToHTMLMeterElement,-        gTypeHTMLMeterElement)+        js_getLabels, getLabels, getLabelsUnchecked, HTMLMeterElement,+        castToHTMLMeterElement, gTypeHTMLMeterElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -14,9 +14,11 @@ 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)@@ -112,3 +114,8 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.labels Mozilla HTMLMeterElement.labels documentation>  getLabels :: (MonadIO m) => HTMLMeterElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.labels Mozilla HTMLMeterElement.labels documentation> +getLabelsUnchecked :: (MonadIO m) => HTMLMeterElement -> m NodeList+getLabelsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs view
@@ -13,9 +13,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs view
@@ -1,23 +1,25 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLObjectElement-       (js_checkValidity, checkValidity, js_setCustomValidity,-        setCustomValidity, js_getSVGDocument, getSVGDocument, js_getForm,-        getForm, js_setCode, setCode, js_getCode, getCode, js_setAlign,-        setAlign, js_getAlign, getAlign, js_setArchive, setArchive,-        js_getArchive, getArchive, js_setBorder, setBorder, js_getBorder,-        getBorder, js_setCodeBase, setCodeBase, js_getCodeBase,-        getCodeBase, js_setCodeType, setCodeType, js_getCodeType,-        getCodeType, js_setData, setData, js_getData, getData,-        js_setDeclare, setDeclare, js_getDeclare, getDeclare, js_setHeight,-        setHeight, js_getHeight, getHeight, js_setHspace, setHspace,-        js_getHspace, getHspace, js_setName, setName, js_getName, getName,-        js_setStandby, setStandby, js_getStandby, getStandby, js_setType,-        setType, js_getType, getType, js_setUseMap, setUseMap,-        js_getUseMap, getUseMap, js_setVspace, setVspace, js_getVspace,-        getVspace, js_setWidth, setWidth, js_getWidth, getWidth,-        js_getWillValidate, getWillValidate, js_getValidity, getValidity,-        js_getValidationMessage, getValidationMessage,-        js_getContentDocument, getContentDocument, HTMLObjectElement,+       (js_checkValidity, checkValidity, checkValidity_,+        js_setCustomValidity, setCustomValidity, js_getSVGDocument,+        getSVGDocument, getSVGDocument_, getSVGDocumentUnchecked,+        js_getForm, getForm, getFormUnchecked, js_setCode, setCode,+        js_getCode, getCode, js_setAlign, setAlign, js_getAlign, getAlign,+        js_setArchive, setArchive, js_getArchive, getArchive, js_setBorder,+        setBorder, js_getBorder, getBorder, js_setCodeBase, setCodeBase,+        js_getCodeBase, getCodeBase, js_setCodeType, setCodeType,+        js_getCodeType, getCodeType, js_setData, setData, js_getData,+        getData, js_setDeclare, setDeclare, js_getDeclare, getDeclare,+        js_setHeight, setHeight, js_getHeight, getHeight, js_setHspace,+        setHspace, js_getHspace, getHspace, js_setName, setName,+        js_getName, getName, js_setStandby, setStandby, js_getStandby,+        getStandby, js_setType, setType, js_getType, getType, js_setUseMap,+        setUseMap, js_getUseMap, getUseMap, js_setVspace, setVspace,+        js_getVspace, getVspace, js_setWidth, setWidth, js_getWidth,+        getWidth, js_getWillValidate, getWillValidate, js_getValidity,+        getValidity, getValidityUnchecked, js_getValidationMessage,+        getValidationMessage, js_getContentDocument, getContentDocument,+        getContentDocumentUnchecked, HTMLObjectElement,         castToHTMLObjectElement, gTypeHTMLObjectElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -27,9 +29,11 @@ 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)@@ -42,6 +46,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.checkValidity Mozilla HTMLObjectElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLObjectElement -> m Bool checkValidity self = liftIO (js_checkValidity (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.checkValidity Mozilla HTMLObjectElement.checkValidity documentation> +checkValidity_ :: (MonadIO m) => HTMLObjectElement -> m ()+checkValidity_ self = liftIO (void (js_checkValidity (self)))   foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         js_setCustomValidity ::@@ -62,6 +70,17 @@                (MonadIO m) => HTMLObjectElement -> m (Maybe SVGDocument) getSVGDocument self   = liftIO (nullableToMaybe <$> (js_getSVGDocument (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.getSVGDocument Mozilla HTMLObjectElement.getSVGDocument documentation> +getSVGDocument_ :: (MonadIO m) => HTMLObjectElement -> m ()+getSVGDocument_ self = liftIO (void (js_getSVGDocument (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.getSVGDocument Mozilla HTMLObjectElement.getSVGDocument documentation> +getSVGDocumentUnchecked ::+                        (MonadIO m) => HTMLObjectElement -> m SVGDocument+getSVGDocumentUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getSVGDocument (self)))   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::         HTMLObjectElement -> IO (Nullable HTMLFormElement)@@ -70,6 +89,12 @@ getForm ::         (MonadIO m) => HTMLObjectElement -> m (Maybe HTMLFormElement) getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.form Mozilla HTMLObjectElement.form documentation> +getFormUnchecked ::+                 (MonadIO m) => HTMLObjectElement -> m HTMLFormElement+getFormUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"code\"] = $2;" js_setCode ::         HTMLObjectElement -> JSString -> IO ()@@ -342,6 +367,12 @@             (MonadIO m) => HTMLObjectElement -> m (Maybe ValidityState) getValidity self   = liftIO (nullableToMaybe <$> (js_getValidity (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.validity Mozilla HTMLObjectElement.validity documentation> +getValidityUnchecked ::+                     (MonadIO m) => HTMLObjectElement -> m ValidityState+getValidityUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))   foreign import javascript unsafe "$1[\"validationMessage\"]"         js_getValidationMessage :: HTMLObjectElement -> IO JSString@@ -361,3 +392,10 @@                    (MonadIO m) => HTMLObjectElement -> m (Maybe Document) getContentDocument self   = liftIO (nullableToMaybe <$> (js_getContentDocument (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.contentDocument Mozilla HTMLObjectElement.contentDocument documentation> +getContentDocumentUnchecked ::+                            (MonadIO m) => HTMLObjectElement -> m Document+getContentDocumentUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getContentDocument (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs view
@@ -1,12 +1,13 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLOptionElement        (js_setDisabled, setDisabled, js_getDisabled, getDisabled,-        js_getForm, getForm, js_setLabel, setLabel, js_getLabel, getLabel,-        js_setDefaultSelected, setDefaultSelected, js_getDefaultSelected,-        getDefaultSelected, js_setSelected, setSelected, js_getSelected,-        getSelected, js_setValue, setValue, js_getValue, getValue,-        js_setText, setText, js_getText, getText, js_getIndex, getIndex,-        HTMLOptionElement, castToHTMLOptionElement, gTypeHTMLOptionElement)+        js_getForm, getForm, getFormUnchecked, js_setLabel, setLabel,+        js_getLabel, getLabel, js_setDefaultSelected, setDefaultSelected,+        js_getDefaultSelected, getDefaultSelected, js_setSelected,+        setSelected, js_getSelected, getSelected, js_setValue, setValue,+        js_getValue, getValue, js_setText, setText, js_getText, getText,+        js_getIndex, getIndex, HTMLOptionElement, castToHTMLOptionElement,+        gTypeHTMLOptionElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -15,9 +16,11 @@ 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)@@ -44,6 +47,12 @@ getForm ::         (MonadIO m) => HTMLOptionElement -> m (Maybe HTMLFormElement) getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.form Mozilla HTMLOptionElement.form documentation> +getFormUnchecked ::+                 (MonadIO m) => HTMLOptionElement -> m HTMLFormElement+getFormUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel         :: HTMLOptionElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs view
@@ -1,10 +1,11 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLOptionsCollection-       (js_namedItem, namedItem, js_addBefore, addBefore, js_add, add,-        js_remove, remove, js_setSelectedIndex, setSelectedIndex,-        js_getSelectedIndex, getSelectedIndex, js_setLength, setLength,-        js_getLength, getLength, HTMLOptionsCollection,-        castToHTMLOptionsCollection, gTypeHTMLOptionsCollection)+       (js_namedItem, namedItem, namedItem_, namedItemUnchecked,+        js_addBefore, addBefore, js_add, add, js_remove, remove,+        js_setSelectedIndex, setSelectedIndex, js_getSelectedIndex,+        getSelectedIndex, js_setLength, setLength, js_getLength, getLength,+        HTMLOptionsCollection, castToHTMLOptionsCollection,+        gTypeHTMLOptionsCollection)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +14,11 @@ 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)@@ -32,6 +35,22 @@ namedItem self name   = liftIO       (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.namedItem Mozilla HTMLOptionsCollection.namedItem documentation> +namedItem_ ::+           (MonadIO m, ToJSString name) =>+             HTMLOptionsCollection -> name -> m ()+namedItem_ self name+  = liftIO (void (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.namedItem Mozilla HTMLOptionsCollection.namedItem documentation> +namedItemUnchecked ::+                   (MonadIO m, ToJSString name) =>+                     HTMLOptionsCollection -> name -> m Node+namedItemUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_namedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_addBefore         ::
src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs view
@@ -1,14 +1,16 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLOutputElement-       (js_checkValidity, checkValidity, js_setCustomValidity,-        setCustomValidity, js_getHtmlFor, getHtmlFor, js_getForm, getForm,+       (js_checkValidity, checkValidity, checkValidity_,+        js_setCustomValidity, setCustomValidity, js_getHtmlFor, getHtmlFor,+        getHtmlForUnchecked, js_getForm, getForm, getFormUnchecked,         js_setName, setName, js_getName, getName, js_getType, getType,         js_setDefaultValue, setDefaultValue, js_getDefaultValue,-        getDefaultValue, js_setValue, setValue, js_getValue, getValue,-        js_getWillValidate, getWillValidate, js_getValidity, getValidity,+        getDefaultValue, getDefaultValueUnchecked, js_setValue, setValue,+        js_getValue, getValue, getValueUnchecked, js_getWillValidate,+        getWillValidate, js_getValidity, getValidity, getValidityUnchecked,         js_getValidationMessage, getValidationMessage, js_getLabels,-        getLabels, HTMLOutputElement, castToHTMLOutputElement,-        gTypeHTMLOutputElement)+        getLabels, getLabelsUnchecked, HTMLOutputElement,+        castToHTMLOutputElement, gTypeHTMLOutputElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -17,9 +19,11 @@ 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)@@ -32,6 +36,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.checkValidity Mozilla HTMLOutputElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLOutputElement -> m Bool checkValidity self = liftIO (js_checkValidity (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.checkValidity Mozilla HTMLOutputElement.checkValidity documentation> +checkValidity_ :: (MonadIO m) => HTMLOutputElement -> m ()+checkValidity_ self = liftIO (void (js_checkValidity (self)))   foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         js_setCustomValidity ::@@ -52,6 +60,12 @@            (MonadIO m) => HTMLOutputElement -> m (Maybe DOMSettableTokenList) getHtmlFor self   = liftIO (nullableToMaybe <$> (js_getHtmlFor (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.htmlFor Mozilla HTMLOutputElement.htmlFor documentation> +getHtmlForUnchecked ::+                    (MonadIO m) => HTMLOutputElement -> m DOMSettableTokenList+getHtmlForUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getHtmlFor (self)))   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::         HTMLOutputElement -> IO (Nullable HTMLFormElement)@@ -60,6 +74,12 @@ getForm ::         (MonadIO m) => HTMLOutputElement -> m (Maybe HTMLFormElement) getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.form Mozilla HTMLOutputElement.form documentation> +getFormUnchecked ::+                 (MonadIO m) => HTMLOutputElement -> m HTMLFormElement+getFormUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::         HTMLOutputElement -> JSString -> IO ()@@ -105,6 +125,13 @@                   HTMLOutputElement -> m (Maybe result) getDefaultValue self   = liftIO (fromMaybeJSString <$> (js_getDefaultValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.defaultValue Mozilla HTMLOutputElement.defaultValue documentation> +getDefaultValueUnchecked ::+                         (MonadIO m, FromJSString result) => HTMLOutputElement -> m result+getDefaultValueUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getDefaultValue (self)))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue         :: HTMLOutputElement -> Nullable JSString -> IO ()@@ -124,6 +151,12 @@          (MonadIO m, FromJSString result) =>            HTMLOutputElement -> m (Maybe result) getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.value Mozilla HTMLOutputElement.value documentation> +getValueUnchecked ::+                  (MonadIO m, FromJSString result) => HTMLOutputElement -> m result+getValueUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getValue (self)))   foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"         js_getWillValidate :: HTMLOutputElement -> IO Bool@@ -140,6 +173,12 @@             (MonadIO m) => HTMLOutputElement -> m (Maybe ValidityState) getValidity self   = liftIO (nullableToMaybe <$> (js_getValidity (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.validity Mozilla HTMLOutputElement.validity documentation> +getValidityUnchecked ::+                     (MonadIO m) => HTMLOutputElement -> m ValidityState+getValidityUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))   foreign import javascript unsafe "$1[\"validationMessage\"]"         js_getValidationMessage :: HTMLOutputElement -> IO JSString@@ -156,3 +195,9 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.labels Mozilla HTMLOutputElement.labels documentation>  getLabels :: (MonadIO m) => HTMLOutputElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.labels Mozilla HTMLOutputElement.labels documentation> +getLabelsUnchecked ::+                   (MonadIO m) => HTMLOutputElement -> m NodeList+getLabelsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs view
@@ -2,8 +2,8 @@ module GHCJS.DOM.JSFFI.Generated.HTMLProgressElement        (js_setValue, setValue, js_getValue, getValue, js_setMax, setMax,         js_getMax, getMax, js_getPosition, getPosition, js_getLabels,-        getLabels, HTMLProgressElement, castToHTMLProgressElement,-        gTypeHTMLProgressElement)+        getLabels, getLabelsUnchecked, HTMLProgressElement,+        castToHTMLProgressElement, gTypeHTMLProgressElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -12,9 +12,11 @@ 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)@@ -62,3 +64,9 @@ getLabels ::           (MonadIO m) => HTMLProgressElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.labels Mozilla HTMLProgressElement.labels documentation> +getLabelsUnchecked ::+                   (MonadIO m) => HTMLProgressElement -> m NodeList+getLabelsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs view
@@ -1,12 +1,12 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLScriptElement-       (js_setText, setText, js_getText, getText, js_setHtmlFor,-        setHtmlFor, js_getHtmlFor, getHtmlFor, js_setEvent, setEvent,-        js_getEvent, getEvent, js_setCharset, setCharset, js_getCharset,-        getCharset, js_setAsync, setAsync, js_getAsync, getAsync,-        js_setDefer, setDefer, js_getDefer, getDefer, js_setSrc, setSrc,-        js_getSrc, getSrc, js_setType, setType, js_getType, getType,-        js_setCrossOrigin, setCrossOrigin, js_getCrossOrigin,+       (js_setText, setText, js_getText, getText, getTextUnchecked,+        js_setHtmlFor, setHtmlFor, js_getHtmlFor, getHtmlFor, js_setEvent,+        setEvent, js_getEvent, getEvent, js_setCharset, setCharset,+        js_getCharset, getCharset, js_setAsync, setAsync, js_getAsync,+        getAsync, js_setDefer, setDefer, js_getDefer, getDefer, js_setSrc,+        setSrc, js_getSrc, getSrc, js_setType, setType, js_getType,+        getType, js_setCrossOrigin, setCrossOrigin, js_getCrossOrigin,         getCrossOrigin, js_setNonce, setNonce, js_getNonce, getNonce,         HTMLScriptElement, castToHTMLScriptElement, gTypeHTMLScriptElement)        where@@ -17,9 +17,11 @@ 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)@@ -42,6 +44,12 @@         (MonadIO m, FromJSString result) =>           HTMLScriptElement -> m (Maybe result) getText self = liftIO (fromMaybeJSString <$> (js_getText (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.text Mozilla HTMLScriptElement.text documentation> +getTextUnchecked ::+                 (MonadIO m, FromJSString result) => HTMLScriptElement -> m result+getTextUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getText (self)))   foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"         js_setHtmlFor :: HTMLScriptElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs view
@@ -1,22 +1,25 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLSelectElement-       (js_item, item, js_namedItem, namedItem, js_addBefore, addBefore,-        js_add, add, js_remove, remove, js_checkValidity, checkValidity,-        js_setCustomValidity, setCustomValidity, js_setAutofocus,-        setAutofocus, js_getAutofocus, getAutofocus, js_setDisabled,-        setDisabled, js_getDisabled, getDisabled, js_getForm, getForm,-        js_setMultiple, setMultiple, js_getMultiple, getMultiple,-        js_setName, setName, js_getName, getName, js_setRequired,-        setRequired, js_getRequired, getRequired, js_setSize, setSize,-        js_getSize, getSize, js_getType, getType, js_getOptions,-        getOptions, js_setLength, setLength, js_getLength, getLength,-        js_getSelectedOptions, getSelectedOptions, js_setSelectedIndex,-        setSelectedIndex, js_getSelectedIndex, getSelectedIndex,-        js_setValue, setValue, js_getValue, getValue, js_getWillValidate,-        getWillValidate, js_getValidity, getValidity,+       (js_item, item, item_, itemUnchecked, js_namedItem, namedItem,+        namedItem_, namedItemUnchecked, js_addBefore, addBefore, js_add,+        add, js_remove, remove, js_checkValidity, checkValidity,+        checkValidity_, js_setCustomValidity, setCustomValidity,+        js_setAutofocus, setAutofocus, js_getAutofocus, getAutofocus,+        js_setDisabled, setDisabled, js_getDisabled, getDisabled,+        js_getForm, getForm, getFormUnchecked, js_setMultiple, setMultiple,+        js_getMultiple, getMultiple, js_setName, setName, js_getName,+        getName, js_setRequired, setRequired, js_getRequired, getRequired,+        js_setSize, setSize, js_getSize, getSize, js_getType, getType,+        js_getOptions, getOptions, getOptionsUnchecked, js_setLength,+        setLength, js_getLength, getLength, js_getSelectedOptions,+        getSelectedOptions, getSelectedOptionsUnchecked,+        js_setSelectedIndex, setSelectedIndex, js_getSelectedIndex,+        getSelectedIndex, js_setValue, setValue, js_getValue, getValue,+        getValueUnchecked, js_getWillValidate, getWillValidate,+        js_getValidity, getValidity, getValidityUnchecked,         js_getValidationMessage, getValidationMessage, js_getLabels,-        getLabels, HTMLSelectElement, castToHTMLSelectElement,-        gTypeHTMLSelectElement)+        getLabels, getLabelsUnchecked, HTMLSelectElement,+        castToHTMLSelectElement, gTypeHTMLSelectElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -25,9 +28,11 @@ 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)@@ -40,6 +45,15 @@ item :: (MonadIO m) => HTMLSelectElement -> Word -> m (Maybe Node) item self index   = liftIO (nullableToMaybe <$> (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.item Mozilla HTMLSelectElement.item documentation> +item_ :: (MonadIO m) => HTMLSelectElement -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.item Mozilla HTMLSelectElement.item documentation> +itemUnchecked :: (MonadIO m) => HTMLSelectElement -> Word -> m Node+itemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"         js_namedItem :: HTMLSelectElement -> JSString -> IO (Nullable Node)@@ -51,6 +65,20 @@ namedItem self name   = liftIO       (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.namedItem Mozilla HTMLSelectElement.namedItem documentation> +namedItem_ ::+           (MonadIO m, ToJSString name) => HTMLSelectElement -> name -> m ()+namedItem_ self name+  = liftIO (void (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.namedItem Mozilla HTMLSelectElement.namedItem documentation> +namedItemUnchecked ::+                   (MonadIO m, ToJSString name) => HTMLSelectElement -> name -> m Node+namedItemUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_namedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_addBefore         ::@@ -92,6 +120,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.checkValidity Mozilla HTMLSelectElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLSelectElement -> m Bool checkValidity self = liftIO (js_checkValidity (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.checkValidity Mozilla HTMLSelectElement.checkValidity documentation> +checkValidity_ :: (MonadIO m) => HTMLSelectElement -> m ()+checkValidity_ self = liftIO (void (js_checkValidity (self)))   foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         js_setCustomValidity ::@@ -139,6 +171,12 @@ getForm ::         (MonadIO m) => HTMLSelectElement -> m (Maybe HTMLFormElement) getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.form Mozilla HTMLSelectElement.form documentation> +getFormUnchecked ::+                 (MonadIO m) => HTMLSelectElement -> m HTMLFormElement+getFormUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"multiple\"] = $2;"         js_setMultiple :: HTMLSelectElement -> Bool -> IO ()@@ -214,6 +252,12 @@            (MonadIO m) => HTMLSelectElement -> m (Maybe HTMLOptionsCollection) getOptions self   = liftIO (nullableToMaybe <$> (js_getOptions (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.options Mozilla HTMLSelectElement.options documentation> +getOptionsUnchecked ::+                    (MonadIO m) => HTMLSelectElement -> m HTMLOptionsCollection+getOptionsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getOptions (self)))   foreign import javascript unsafe "$1[\"length\"] = $2;"         js_setLength :: HTMLSelectElement -> Word -> IO ()@@ -238,6 +282,13 @@                    (MonadIO m) => HTMLSelectElement -> m (Maybe HTMLCollection) getSelectedOptions self   = liftIO (nullableToMaybe <$> (js_getSelectedOptions (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedOptions Mozilla HTMLSelectElement.selectedOptions documentation> +getSelectedOptionsUnchecked ::+                            (MonadIO m) => HTMLSelectElement -> m HTMLCollection+getSelectedOptionsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getSelectedOptions (self)))   foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;"         js_setSelectedIndex :: HTMLSelectElement -> Int -> IO ()@@ -271,6 +322,12 @@          (MonadIO m, FromJSString result) =>            HTMLSelectElement -> m (Maybe result) getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.value Mozilla HTMLSelectElement.value documentation> +getValueUnchecked ::+                  (MonadIO m, FromJSString result) => HTMLSelectElement -> m result+getValueUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getValue (self)))   foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"         js_getWillValidate :: HTMLSelectElement -> IO Bool@@ -287,6 +344,12 @@             (MonadIO m) => HTMLSelectElement -> m (Maybe ValidityState) getValidity self   = liftIO (nullableToMaybe <$> (js_getValidity (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.validity Mozilla HTMLSelectElement.validity documentation> +getValidityUnchecked ::+                     (MonadIO m) => HTMLSelectElement -> m ValidityState+getValidityUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))   foreign import javascript unsafe "$1[\"validationMessage\"]"         js_getValidationMessage :: HTMLSelectElement -> IO JSString@@ -303,3 +366,9 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.labels Mozilla HTMLSelectElement.labels documentation>  getLabels :: (MonadIO m) => HTMLSelectElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.labels Mozilla HTMLSelectElement.labels documentation> +getLabelsUnchecked ::+                   (MonadIO m) => HTMLSelectElement -> m NodeList+getLabelsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs view
@@ -2,8 +2,8 @@ module GHCJS.DOM.JSFFI.Generated.HTMLStyleElement        (js_setDisabled, setDisabled, js_getDisabled, getDisabled,         js_setMedia, setMedia, js_getMedia, getMedia, js_setType, setType,-        js_getType, getType, js_getSheet, getSheet, HTMLStyleElement,-        castToHTMLStyleElement, gTypeHTMLStyleElement)+        js_getType, getType, js_getSheet, getSheet, getSheetUnchecked,+        HTMLStyleElement, castToHTMLStyleElement, gTypeHTMLStyleElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -12,9 +12,11 @@ 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)@@ -72,3 +74,9 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.sheet Mozilla HTMLStyleElement.sheet documentation>  getSheet :: (MonadIO m) => HTMLStyleElement -> m (Maybe StyleSheet) getSheet self = liftIO (nullableToMaybe <$> (js_getSheet (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.sheet Mozilla HTMLStyleElement.sheet documentation> +getSheetUnchecked ::+                  (MonadIO m) => HTMLStyleElement -> m StyleSheet+getSheetUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getSheet (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs view
@@ -21,9 +21,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs view
@@ -14,9 +14,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs view
@@ -1,22 +1,26 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLTableElement-       (js_createTHead, createTHead, js_deleteTHead, deleteTHead,-        js_createTFoot, createTFoot, js_deleteTFoot, deleteTFoot,-        js_createTBody, createTBody, js_createCaption, createCaption,-        js_deleteCaption, deleteCaption, js_insertRow, insertRow,+       (js_createTHead, createTHead, createTHead_, createTHeadUnchecked,+        js_deleteTHead, deleteTHead, js_createTFoot, createTFoot,+        createTFoot_, createTFootUnchecked, js_deleteTFoot, deleteTFoot,+        js_createTBody, createTBody, createTBody_, createTBodyUnchecked,+        js_createCaption, createCaption, createCaption_,+        createCaptionUnchecked, js_deleteCaption, deleteCaption,+        js_insertRow, insertRow, insertRow_, insertRowUnchecked,         js_deleteRow, deleteRow, js_setCaption, setCaption, js_getCaption,-        getCaption, js_setTHead, setTHead, js_getTHead, getTHead,-        js_setTFoot, setTFoot, js_getTFoot, getTFoot, js_getRows, getRows,-        js_getTBodies, getTBodies, js_setAlign, setAlign, js_getAlign,-        getAlign, js_setBgColor, setBgColor, js_getBgColor, getBgColor,-        js_setBorder, setBorder, js_getBorder, getBorder,-        js_setCellPadding, setCellPadding, js_getCellPadding,-        getCellPadding, js_setCellSpacing, setCellSpacing,-        js_getCellSpacing, getCellSpacing, js_setFrame, setFrame,-        js_getFrame, getFrame, js_setRules, setRules, js_getRules,-        getRules, js_setSummary, setSummary, js_getSummary, getSummary,-        js_setWidth, setWidth, js_getWidth, getWidth, HTMLTableElement,-        castToHTMLTableElement, gTypeHTMLTableElement)+        getCaption, getCaptionUnchecked, js_setTHead, setTHead,+        js_getTHead, getTHead, getTHeadUnchecked, js_setTFoot, setTFoot,+        js_getTFoot, getTFoot, getTFootUnchecked, js_getRows, getRows,+        getRowsUnchecked, js_getTBodies, getTBodies, getTBodiesUnchecked,+        js_setAlign, setAlign, js_getAlign, getAlign, js_setBgColor,+        setBgColor, js_getBgColor, getBgColor, js_setBorder, setBorder,+        js_getBorder, getBorder, js_setCellPadding, setCellPadding,+        js_getCellPadding, getCellPadding, js_setCellSpacing,+        setCellSpacing, js_getCellSpacing, getCellSpacing, js_setFrame,+        setFrame, js_getFrame, getFrame, js_setRules, setRules,+        js_getRules, getRules, js_setSummary, setSummary, js_getSummary,+        getSummary, js_setWidth, setWidth, js_getWidth, getWidth,+        HTMLTableElement, castToHTMLTableElement, gTypeHTMLTableElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -25,9 +29,11 @@ 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)@@ -41,6 +47,16 @@             (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement) createTHead self   = liftIO (nullableToMaybe <$> (js_createTHead (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTHead Mozilla HTMLTableElement.createTHead documentation> +createTHead_ :: (MonadIO m) => HTMLTableElement -> m ()+createTHead_ self = liftIO (void (js_createTHead (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTHead Mozilla HTMLTableElement.createTHead documentation> +createTHeadUnchecked ::+                     (MonadIO m) => HTMLTableElement -> m HTMLElement+createTHeadUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_createTHead (self)))   foreign import javascript unsafe "$1[\"deleteTHead\"]()"         js_deleteTHead :: HTMLTableElement -> IO ()@@ -57,6 +73,16 @@             (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement) createTFoot self   = liftIO (nullableToMaybe <$> (js_createTFoot (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTFoot Mozilla HTMLTableElement.createTFoot documentation> +createTFoot_ :: (MonadIO m) => HTMLTableElement -> m ()+createTFoot_ self = liftIO (void (js_createTFoot (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTFoot Mozilla HTMLTableElement.createTFoot documentation> +createTFootUnchecked ::+                     (MonadIO m) => HTMLTableElement -> m HTMLElement+createTFootUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_createTFoot (self)))   foreign import javascript unsafe "$1[\"deleteTFoot\"]()"         js_deleteTFoot :: HTMLTableElement -> IO ()@@ -73,6 +99,16 @@             (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement) createTBody self   = liftIO (nullableToMaybe <$> (js_createTBody (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTBody Mozilla HTMLTableElement.createTBody documentation> +createTBody_ :: (MonadIO m) => HTMLTableElement -> m ()+createTBody_ self = liftIO (void (js_createTBody (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTBody Mozilla HTMLTableElement.createTBody documentation> +createTBodyUnchecked ::+                     (MonadIO m) => HTMLTableElement -> m HTMLElement+createTBodyUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_createTBody (self)))   foreign import javascript unsafe "$1[\"createCaption\"]()"         js_createCaption :: HTMLTableElement -> IO (Nullable HTMLElement)@@ -82,6 +118,16 @@               (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement) createCaption self   = liftIO (nullableToMaybe <$> (js_createCaption (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createCaption Mozilla HTMLTableElement.createCaption documentation> +createCaption_ :: (MonadIO m) => HTMLTableElement -> m ()+createCaption_ self = liftIO (void (js_createCaption (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createCaption Mozilla HTMLTableElement.createCaption documentation> +createCaptionUnchecked ::+                       (MonadIO m) => HTMLTableElement -> m HTMLElement+createCaptionUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_createCaption (self)))   foreign import javascript unsafe "$1[\"deleteCaption\"]()"         js_deleteCaption :: HTMLTableElement -> IO ()@@ -99,6 +145,17 @@           (MonadIO m) => HTMLTableElement -> Int -> m (Maybe HTMLElement) insertRow self index   = liftIO (nullableToMaybe <$> (js_insertRow (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.insertRow Mozilla HTMLTableElement.insertRow documentation> +insertRow_ :: (MonadIO m) => HTMLTableElement -> Int -> m ()+insertRow_ self index = liftIO (void (js_insertRow (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.insertRow Mozilla HTMLTableElement.insertRow documentation> +insertRowUnchecked ::+                   (MonadIO m) => HTMLTableElement -> Int -> m HTMLElement+insertRowUnchecked self index+  = liftIO+      (fromJust . nullableToMaybe <$> (js_insertRow (self) index))   foreign import javascript unsafe "$1[\"deleteRow\"]($2)"         js_deleteRow :: HTMLTableElement -> Int -> IO ()@@ -127,6 +184,12 @@              HTMLTableElement -> m (Maybe HTMLTableCaptionElement) getCaption self   = liftIO (nullableToMaybe <$> (js_getCaption (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.caption Mozilla HTMLTableElement.caption documentation> +getCaptionUnchecked ::+                    (MonadIO m) => HTMLTableElement -> m HTMLTableCaptionElement+getCaptionUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getCaption (self)))   foreign import javascript unsafe "$1[\"tHead\"] = $2;" js_setTHead         :: HTMLTableElement -> Nullable HTMLTableSectionElement -> IO ()@@ -146,6 +209,12 @@          (MonadIO m) =>            HTMLTableElement -> m (Maybe HTMLTableSectionElement) getTHead self = liftIO (nullableToMaybe <$> (js_getTHead (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tHead Mozilla HTMLTableElement.tHead documentation> +getTHeadUnchecked ::+                  (MonadIO m) => HTMLTableElement -> m HTMLTableSectionElement+getTHeadUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getTHead (self)))   foreign import javascript unsafe "$1[\"tFoot\"] = $2;" js_setTFoot         :: HTMLTableElement -> Nullable HTMLTableSectionElement -> IO ()@@ -165,6 +234,12 @@          (MonadIO m) =>            HTMLTableElement -> m (Maybe HTMLTableSectionElement) getTFoot self = liftIO (nullableToMaybe <$> (js_getTFoot (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tFoot Mozilla HTMLTableElement.tFoot documentation> +getTFootUnchecked ::+                  (MonadIO m) => HTMLTableElement -> m HTMLTableSectionElement+getTFootUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getTFoot (self)))   foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::         HTMLTableElement -> IO (Nullable HTMLCollection)@@ -173,6 +248,12 @@ getRows ::         (MonadIO m) => HTMLTableElement -> m (Maybe HTMLCollection) getRows self = liftIO (nullableToMaybe <$> (js_getRows (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rows Mozilla HTMLTableElement.rows documentation> +getRowsUnchecked ::+                 (MonadIO m) => HTMLTableElement -> m HTMLCollection+getRowsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRows (self)))   foreign import javascript unsafe "$1[\"tBodies\"]" js_getTBodies ::         HTMLTableElement -> IO (Nullable HTMLCollection)@@ -182,6 +263,12 @@            (MonadIO m) => HTMLTableElement -> m (Maybe HTMLCollection) getTBodies self   = liftIO (nullableToMaybe <$> (js_getTBodies (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tBodies Mozilla HTMLTableElement.tBodies documentation> +getTBodiesUnchecked ::+                    (MonadIO m) => HTMLTableElement -> m HTMLCollection+getTBodiesUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getTBodies (self)))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLTableElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs view
@@ -1,13 +1,14 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLTableRowElement-       (js_insertCell, insertCell, js_deleteCell, deleteCell,-        js_getRowIndex, getRowIndex, js_getSectionRowIndex,-        getSectionRowIndex, js_getCells, getCells, js_setAlign, setAlign,-        js_getAlign, getAlign, js_setBgColor, setBgColor, js_getBgColor,-        getBgColor, js_setCh, setCh, js_getCh, getCh, js_setChOff,-        setChOff, js_getChOff, getChOff, js_setVAlign, setVAlign,-        js_getVAlign, getVAlign, HTMLTableRowElement,-        castToHTMLTableRowElement, gTypeHTMLTableRowElement)+       (js_insertCell, insertCell, insertCell_, insertCellUnchecked,+        js_deleteCell, deleteCell, js_getRowIndex, getRowIndex,+        js_getSectionRowIndex, getSectionRowIndex, js_getCells, getCells,+        getCellsUnchecked, js_setAlign, setAlign, js_getAlign, getAlign,+        js_setBgColor, setBgColor, js_getBgColor, getBgColor, js_setCh,+        setCh, js_getCh, getCh, js_setChOff, setChOff, js_getChOff,+        getChOff, js_setVAlign, setVAlign, js_getVAlign, getVAlign,+        HTMLTableRowElement, castToHTMLTableRowElement,+        gTypeHTMLTableRowElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -16,9 +17,11 @@ 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)@@ -33,6 +36,17 @@            (MonadIO m) => HTMLTableRowElement -> Int -> m (Maybe HTMLElement) insertCell self index   = liftIO (nullableToMaybe <$> (js_insertCell (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.insertCell Mozilla HTMLTableRowElement.insertCell documentation> +insertCell_ :: (MonadIO m) => HTMLTableRowElement -> Int -> m ()+insertCell_ self index = liftIO (void (js_insertCell (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.insertCell Mozilla HTMLTableRowElement.insertCell documentation> +insertCellUnchecked ::+                    (MonadIO m) => HTMLTableRowElement -> Int -> m HTMLElement+insertCellUnchecked self index+  = liftIO+      (fromJust . nullableToMaybe <$> (js_insertCell (self) index))   foreign import javascript unsafe "$1[\"deleteCell\"]($2)"         js_deleteCell :: HTMLTableRowElement -> Int -> IO ()@@ -62,6 +76,12 @@ getCells ::          (MonadIO m) => HTMLTableRowElement -> m (Maybe HTMLCollection) getCells self = liftIO (nullableToMaybe <$> (js_getCells (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.cells Mozilla HTMLTableRowElement.cells documentation> +getCellsUnchecked ::+                  (MonadIO m) => HTMLTableRowElement -> m HTMLCollection+getCellsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getCells (self)))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign         :: HTMLTableRowElement -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs view
@@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLTableSectionElement-       (js_insertRow, insertRow, js_deleteRow, deleteRow, js_setAlign,-        setAlign, js_getAlign, getAlign, js_setCh, setCh, js_getCh, getCh,-        js_setChOff, setChOff, js_getChOff, getChOff, js_setVAlign,-        setVAlign, js_getVAlign, getVAlign, js_getRows, getRows,+       (js_insertRow, insertRow, insertRow_, insertRowUnchecked,+        js_deleteRow, deleteRow, js_setAlign, setAlign, js_getAlign,+        getAlign, js_setCh, setCh, js_getCh, getCh, js_setChOff, setChOff,+        js_getChOff, getChOff, js_setVAlign, setVAlign, js_getVAlign,+        getVAlign, js_getRows, getRows, getRowsUnchecked,         HTMLTableSectionElement, castToHTMLTableSectionElement,         gTypeHTMLTableSectionElement)        where@@ -14,9 +15,11 @@ 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)@@ -32,6 +35,17 @@             HTMLTableSectionElement -> Int -> m (Maybe HTMLElement) insertRow self index   = liftIO (nullableToMaybe <$> (js_insertRow (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.insertRow Mozilla HTMLTableSectionElement.insertRow documentation> +insertRow_ :: (MonadIO m) => HTMLTableSectionElement -> Int -> m ()+insertRow_ self index = liftIO (void (js_insertRow (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.insertRow Mozilla HTMLTableSectionElement.insertRow documentation> +insertRowUnchecked ::+                   (MonadIO m) => HTMLTableSectionElement -> Int -> m HTMLElement+insertRowUnchecked self index+  = liftIO+      (fromJust . nullableToMaybe <$> (js_insertRow (self) index))   foreign import javascript unsafe "$1[\"deleteRow\"]($2)"         js_deleteRow :: HTMLTableSectionElement -> Int -> IO ()@@ -119,3 +133,9 @@ getRows ::         (MonadIO m) => HTMLTableSectionElement -> m (Maybe HTMLCollection) getRows self = liftIO (nullableToMaybe <$> (js_getRows (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.rows Mozilla HTMLTableSectionElement.rows documentation> +getRowsUnchecked ::+                 (MonadIO m) => HTMLTableSectionElement -> m HTMLCollection+getRowsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRows (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLTemplateElement-       (js_getContent, getContent, HTMLTemplateElement,-        castToHTMLTemplateElement, gTypeHTMLTemplateElement)+       (js_getContent, getContent, getContentUnchecked,+        HTMLTemplateElement, castToHTMLTemplateElement,+        gTypeHTMLTemplateElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -26,3 +29,9 @@            (MonadIO m) => HTMLTemplateElement -> m (Maybe DocumentFragment) getContent self   = liftIO (nullableToMaybe <$> (js_getContent (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTemplateElement.content Mozilla HTMLTemplateElement.content documentation> +getContentUnchecked ::+                    (MonadIO m) => HTMLTemplateElement -> m DocumentFragment+getContentUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getContent (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs view
@@ -1,33 +1,34 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLTextAreaElement-       (js_checkValidity, checkValidity, js_setCustomValidity,-        setCustomValidity, js_select, select, js_setRangeText,-        setRangeText, js_setRangeText4, setRangeText4,+       (js_checkValidity, checkValidity, checkValidity_,+        js_setCustomValidity, setCustomValidity, js_select, select,+        js_setRangeText, setRangeText, js_setRangeText4, setRangeText4,         js_setSelectionRange, setSelectionRange, js_setAutofocus,         setAutofocus, js_getAutofocus, getAutofocus, js_setCols, setCols,         js_getCols, getCols, js_setDirName, setDirName, js_getDirName,         getDirName, js_setDisabled, setDisabled, js_getDisabled,-        getDisabled, js_getForm, getForm, js_setMaxLength, setMaxLength,-        js_getMaxLength, getMaxLength, js_setName, setName, js_getName,-        getName, js_setPlaceholder, setPlaceholder, js_getPlaceholder,-        getPlaceholder, js_setReadOnly, setReadOnly, js_getReadOnly,-        getReadOnly, js_setRequired, setRequired, js_getRequired,-        getRequired, js_setRows, setRows, js_getRows, getRows, js_setWrap,-        setWrap, js_getWrap, getWrap, js_getType, getType,-        js_setDefaultValue, setDefaultValue, js_getDefaultValue,-        getDefaultValue, js_setValue, setValue, js_getValue, getValue,+        getDisabled, js_getForm, getForm, getFormUnchecked,+        js_setMaxLength, setMaxLength, js_getMaxLength, getMaxLength,+        js_setName, setName, js_getName, getName, js_setPlaceholder,+        setPlaceholder, js_getPlaceholder, getPlaceholder, js_setReadOnly,+        setReadOnly, js_getReadOnly, getReadOnly, js_setRequired,+        setRequired, js_getRequired, getRequired, js_setRows, setRows,+        js_getRows, getRows, js_setWrap, setWrap, js_getWrap, getWrap,+        js_getType, getType, js_setDefaultValue, setDefaultValue,+        js_getDefaultValue, getDefaultValue, getDefaultValueUnchecked,+        js_setValue, setValue, js_getValue, getValue, getValueUnchecked,         js_getTextLength, getTextLength, js_getWillValidate,-        getWillValidate, js_getValidity, getValidity,+        getWillValidate, js_getValidity, getValidity, getValidityUnchecked,         js_getValidationMessage, getValidationMessage, js_getLabels,-        getLabels, js_setSelectionStart, setSelectionStart,-        js_getSelectionStart, getSelectionStart, js_setSelectionEnd,-        setSelectionEnd, js_getSelectionEnd, getSelectionEnd,-        js_setSelectionDirection, setSelectionDirection,+        getLabels, getLabelsUnchecked, js_setSelectionStart,+        setSelectionStart, js_getSelectionStart, getSelectionStart,+        js_setSelectionEnd, setSelectionEnd, js_getSelectionEnd,+        getSelectionEnd, js_setSelectionDirection, setSelectionDirection,         js_getSelectionDirection, getSelectionDirection, js_setAutocorrect,         setAutocorrect, js_getAutocorrect, getAutocorrect,         js_setAutocapitalize, setAutocapitalize, js_getAutocapitalize,-        getAutocapitalize, HTMLTextAreaElement, castToHTMLTextAreaElement,-        gTypeHTMLTextAreaElement)+        getAutocapitalize, getAutocapitalizeUnchecked, HTMLTextAreaElement,+        castToHTMLTextAreaElement, gTypeHTMLTextAreaElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -36,9 +37,11 @@ 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)@@ -51,6 +54,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.checkValidity Mozilla HTMLTextAreaElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLTextAreaElement -> m Bool checkValidity self = liftIO (js_checkValidity (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.checkValidity Mozilla HTMLTextAreaElement.checkValidity documentation> +checkValidity_ :: (MonadIO m) => HTMLTextAreaElement -> m ()+checkValidity_ self = liftIO (void (js_checkValidity (self)))   foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         js_setCustomValidity ::@@ -173,6 +180,12 @@ getForm ::         (MonadIO m) => HTMLTextAreaElement -> m (Maybe HTMLFormElement) getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.form Mozilla HTMLTextAreaElement.form documentation> +getFormUnchecked ::+                 (MonadIO m) => HTMLTextAreaElement -> m HTMLFormElement+getFormUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"maxLength\"] = $2;"         js_setMaxLength :: HTMLTextAreaElement -> Int -> IO ()@@ -308,6 +321,13 @@                   HTMLTextAreaElement -> m (Maybe result) getDefaultValue self   = liftIO (fromMaybeJSString <$> (js_getDefaultValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.defaultValue Mozilla HTMLTextAreaElement.defaultValue documentation> +getDefaultValueUnchecked ::+                         (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result+getDefaultValueUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getDefaultValue (self)))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue         :: HTMLTextAreaElement -> Nullable JSString -> IO ()@@ -327,6 +347,12 @@          (MonadIO m, FromJSString result) =>            HTMLTextAreaElement -> m (Maybe result) getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.value Mozilla HTMLTextAreaElement.value documentation> +getValueUnchecked ::+                  (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result+getValueUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getValue (self)))   foreign import javascript unsafe "$1[\"textLength\"]"         js_getTextLength :: HTMLTextAreaElement -> IO Word@@ -350,6 +376,12 @@             (MonadIO m) => HTMLTextAreaElement -> m (Maybe ValidityState) getValidity self   = liftIO (nullableToMaybe <$> (js_getValidity (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.validity Mozilla HTMLTextAreaElement.validity documentation> +getValidityUnchecked ::+                     (MonadIO m) => HTMLTextAreaElement -> m ValidityState+getValidityUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getValidity (self)))   foreign import javascript unsafe "$1[\"validationMessage\"]"         js_getValidationMessage :: HTMLTextAreaElement -> IO JSString@@ -367,6 +399,12 @@ getLabels ::           (MonadIO m) => HTMLTextAreaElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.labels Mozilla HTMLTextAreaElement.labels documentation> +getLabelsUnchecked ::+                   (MonadIO m) => HTMLTextAreaElement -> m NodeList+getLabelsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self)))   foreign import javascript unsafe "$1[\"selectionStart\"] = $2;"         js_setSelectionStart :: HTMLTextAreaElement -> Int -> IO ()@@ -454,3 +492,10 @@                     HTMLTextAreaElement -> m (Maybe result) getAutocapitalize self   = liftIO (fromMaybeJSString <$> (js_getAutocapitalize (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocapitalize Mozilla HTMLTextAreaElement.autocapitalize documentation> +getAutocapitalizeUnchecked ::+                           (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result+getAutocapitalizeUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getAutocapitalize (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLTitleElement-       (js_setText, setText, js_getText, getText, HTMLTitleElement,-        castToHTMLTitleElement, gTypeHTMLTitleElement)+       (js_setText, setText, js_getText, getText, getTextUnchecked,+        HTMLTitleElement, castToHTMLTitleElement, gTypeHTMLTitleElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -35,3 +37,9 @@         (MonadIO m, FromJSString result) =>           HTMLTitleElement -> m (Maybe result) getText self = liftIO (fromMaybeJSString <$> (js_getText (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTitleElement.text Mozilla HTMLTitleElement.text documentation> +getTextUnchecked ::+                 (MonadIO m, FromJSString result) => HTMLTitleElement -> m result+getTextUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getText (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs view
@@ -6,7 +6,8 @@         getSrclang, js_setLabel, setLabel, js_getLabel, getLabel,         js_setDefault, setDefault, js_getDefault, getDefault,         js_getReadyState, getReadyState, js_getTrack, getTrack,-        HTMLTrackElement, castToHTMLTrackElement, gTypeHTMLTrackElement)+        getTrackUnchecked, HTMLTrackElement, castToHTMLTrackElement,+        gTypeHTMLTrackElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -15,9 +16,11 @@ 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)@@ -119,3 +122,8 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.track Mozilla HTMLTrackElement.track documentation>  getTrack :: (MonadIO m) => HTMLTrackElement -> m (Maybe TextTrack) getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.track Mozilla HTMLTrackElement.track documentation> +getTrackUnchecked :: (MonadIO m) => HTMLTrackElement -> m TextTrack+getTrackUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getTrack (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs view
@@ -5,13 +5,13 @@         js_webkitEnterFullScreen, webkitEnterFullScreen,         js_webkitExitFullScreen, webkitExitFullScreen,         js_webkitSupportsPresentationMode, webkitSupportsPresentationMode,-        js_webkitSetPresentationMode, webkitSetPresentationMode,-        js_setWidth, setWidth, js_getWidth, getWidth, js_setHeight,-        setHeight, js_getHeight, getHeight, js_getVideoWidth,-        getVideoWidth, js_getVideoHeight, getVideoHeight, js_setPoster,-        setPoster, js_getPoster, getPoster, js_getWebkitSupportsFullscreen,-        getWebkitSupportsFullscreen, js_getWebkitDisplayingFullscreen,-        getWebkitDisplayingFullscreen,+        webkitSupportsPresentationMode_, js_webkitSetPresentationMode,+        webkitSetPresentationMode, js_setWidth, setWidth, js_getWidth,+        getWidth, js_setHeight, setHeight, js_getHeight, getHeight,+        js_getVideoWidth, getVideoWidth, js_getVideoHeight, getVideoHeight,+        js_setPoster, setPoster, js_getPoster, getPoster,+        js_getWebkitSupportsFullscreen, getWebkitSupportsFullscreen,+        js_getWebkitDisplayingFullscreen, getWebkitDisplayingFullscreen,         js_setWebkitWirelessVideoPlaybackDisabled,         setWebkitWirelessVideoPlaybackDisabled,         js_getWebkitWirelessVideoPlaybackDisabled,@@ -29,9 +29,11 @@ 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)@@ -77,6 +79,13 @@                                (MonadIO m) => HTMLVideoElement -> VideoPresentationMode -> m Bool webkitSupportsPresentationMode self mode   = liftIO (js_webkitSupportsPresentationMode (self) (pToJSVal mode))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitSupportsPresentationMode Mozilla HTMLVideoElement.webkitSupportsPresentationMode documentation> +webkitSupportsPresentationMode_ ::+                                (MonadIO m) => HTMLVideoElement -> VideoPresentationMode -> m ()+webkitSupportsPresentationMode_ self mode+  = liftIO+      (void (js_webkitSupportsPresentationMode (self) (pToJSVal mode)))   foreign import javascript unsafe         "$1[\"webkitSetPresentationMode\"]($2)"
src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/History.hs view
@@ -2,7 +2,8 @@ module GHCJS.DOM.JSFFI.Generated.History        (js_back, back, js_forward, forward, js_go, go, js_pushState,         pushState, js_replaceState, replaceState, js_getLength, getLength,-        js_getState, getState, History, castToHistory, gTypeHistory)+        js_getState, getState, getStateUnchecked, History, castToHistory,+        gTypeHistory)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +12,11 @@ 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)@@ -77,3 +80,9 @@ getState ::          (MonadIO m) => History -> m (Maybe SerializedScriptValue) getState self = liftIO (nullableToMaybe <$> (js_getState (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/History.state Mozilla History.state documentation> +getStateUnchecked ::+                  (MonadIO m) => History -> m SerializedScriptValue+getStateUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getState (self)))
src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.IDBCursor-       (js_update, update, js_advance, advance, js_continue, continue,-        js_delete, delete, js_getSource, getSource, js_getDirection,+       (js_update, update, update_, updateUnchecked, js_advance, advance,+        js_continue, continue, js_delete, delete, delete_, deleteUnchecked,+        js_getSource, getSource, getSourceUnchecked, js_getDirection,         getDirection, js_getKey, getKey, js_getPrimaryKey, getPrimaryKey,         IDBCursor, castToIDBCursor, gTypeIDBCursor, IsIDBCursor,         toIDBCursor)@@ -13,9 +14,11 @@ 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)@@ -30,6 +33,19 @@          self -> JSVal -> m (Maybe IDBRequest) update self value   = liftIO (nullableToMaybe <$> (js_update (toIDBCursor self) value))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.update Mozilla IDBCursor.update documentation> +update_ :: (MonadIO m, IsIDBCursor self) => self -> JSVal -> m ()+update_ self value+  = liftIO (void (js_update (toIDBCursor self) value))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.update Mozilla IDBCursor.update documentation> +updateUnchecked ::+                (MonadIO m, IsIDBCursor self) => self -> JSVal -> m IDBRequest+updateUnchecked self value+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_update (toIDBCursor self) value))   foreign import javascript unsafe "$1[\"advance\"]($2)" js_advance         :: IDBCursor -> Word -> IO ()@@ -53,6 +69,17 @@        (MonadIO m, IsIDBCursor self) => self -> m (Maybe IDBRequest) delete self   = liftIO (nullableToMaybe <$> (js_delete (toIDBCursor self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.delete Mozilla IDBCursor.delete documentation> +delete_ :: (MonadIO m, IsIDBCursor self) => self -> m ()+delete_ self = liftIO (void (js_delete (toIDBCursor self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.delete Mozilla IDBCursor.delete documentation> +deleteUnchecked ::+                (MonadIO m, IsIDBCursor self) => self -> m IDBRequest+deleteUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_delete (toIDBCursor self)))   foreign import javascript unsafe "$1[\"source\"]" js_getSource ::         IDBCursor -> IO (Nullable IDBAny)@@ -62,6 +89,13 @@           (MonadIO m, IsIDBCursor self) => self -> m (Maybe IDBAny) getSource self   = liftIO (nullableToMaybe <$> (js_getSource (toIDBCursor self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.source Mozilla IDBCursor.source documentation> +getSourceUnchecked ::+                   (MonadIO m, IsIDBCursor self) => self -> m IDBAny+getSourceUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getSource (toIDBCursor self)))   foreign import javascript unsafe "$1[\"direction\"]"         js_getDirection :: IDBCursor -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs view
@@ -1,11 +1,13 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.IDBDatabase-       (js_createObjectStore, createObjectStore, js_deleteObjectStore,-        deleteObjectStore, js_transaction, transaction, js_transaction',-        transaction', js_close, close, js_getName, getName, js_getVersion,-        getVersion, js_getObjectStoreNames, getObjectStoreNames, abort,-        error, versionChange, IDBDatabase, castToIDBDatabase,-        gTypeIDBDatabase)+       (js_createObjectStore, createObjectStore, createObjectStore_,+        createObjectStoreUnchecked, js_deleteObjectStore,+        deleteObjectStore, js_transaction, transaction, transaction_,+        transactionUnchecked, js_transaction', transaction', transaction'_,+        transaction'Unchecked, js_close, close, js_getName, getName,+        js_getVersion, getVersion, js_getObjectStoreNames,+        getObjectStoreNames, getObjectStoreNamesUnchecked, abort, error,+        versionChange, IDBDatabase, castToIDBDatabase, gTypeIDBDatabase)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -14,9 +16,11 @@ 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)@@ -36,6 +40,26 @@       (nullableToMaybe <$>          (js_createObjectStore (self) (toJSString name)             (maybeToNullable (fmap toDictionary options))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.createObjectStore Mozilla IDBDatabase.createObjectStore documentation> +createObjectStore_ ::+                   (MonadIO m, ToJSString name, IsDictionary options) =>+                     IDBDatabase -> name -> Maybe options -> m ()+createObjectStore_ self name options+  = liftIO+      (void+         (js_createObjectStore (self) (toJSString name)+            (maybeToNullable (fmap toDictionary options))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.createObjectStore Mozilla IDBDatabase.createObjectStore documentation> +createObjectStoreUnchecked ::+                           (MonadIO m, ToJSString name, IsDictionary options) =>+                             IDBDatabase -> name -> Maybe options -> m IDBObjectStore+createObjectStoreUnchecked self name options+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createObjectStore (self) (toJSString name)+            (maybeToNullable (fmap toDictionary options))))   foreign import javascript unsafe "$1[\"deleteObjectStore\"]($2)"         js_deleteObjectStore :: IDBDatabase -> JSString -> IO ()@@ -58,6 +82,24 @@   = liftIO       (nullableToMaybe <$>          (js_transaction (self) (toJSString storeName) (toJSString mode)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation> +transaction_ ::+             (MonadIO m, ToJSString storeName, ToJSString mode) =>+               IDBDatabase -> storeName -> mode -> m ()+transaction_ self storeName mode+  = liftIO+      (void+         (js_transaction (self) (toJSString storeName) (toJSString mode)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation> +transactionUnchecked ::+                     (MonadIO m, ToJSString storeName, ToJSString mode) =>+                       IDBDatabase -> storeName -> mode -> m IDBTransaction+transactionUnchecked self storeName mode+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_transaction (self) (toJSString storeName) (toJSString mode)))   foreign import javascript unsafe "$1[\"transaction\"]($2, $3)"         js_transaction' ::@@ -73,6 +115,28 @@          (toJSVal storeNames >>=             \ storeNames' -> js_transaction' (self) storeNames'             (toJSString mode)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation> +transaction'_ ::+              (MonadIO m, ToJSString storeNames, ToJSString mode) =>+                IDBDatabase -> [storeNames] -> mode -> m ()+transaction'_ self storeNames mode+  = liftIO+      (void+         (toJSVal storeNames >>=+            \ storeNames' -> js_transaction' (self) storeNames'+            (toJSString mode)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation> +transaction'Unchecked ::+                      (MonadIO m, ToJSString storeNames, ToJSString mode) =>+                        IDBDatabase -> [storeNames] -> mode -> m IDBTransaction+transaction'Unchecked self storeNames mode+  = liftIO+      (fromJust . nullableToMaybe <$>+         (toJSVal storeNames >>=+            \ storeNames' -> js_transaction' (self) storeNames'+            (toJSString mode)))   foreign import javascript unsafe "$1[\"close\"]()" js_close ::         IDBDatabase -> IO ()@@ -105,6 +169,13 @@                     (MonadIO m) => IDBDatabase -> m (Maybe DOMStringList) getObjectStoreNames self   = liftIO (nullableToMaybe <$> (js_getObjectStoreNames (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.objectStoreNames Mozilla IDBDatabase.objectStoreNames documentation> +getObjectStoreNamesUnchecked ::+                             (MonadIO m) => IDBDatabase -> m DOMStringList+getObjectStoreNamesUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getObjectStoreNames (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.onabort Mozilla IDBDatabase.onabort documentation>  abort :: EventName IDBDatabase Event
src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.IDBFactory-       (js_open, open, js_deleteDatabase, deleteDatabase, js_cmp, cmp,-        IDBFactory, castToIDBFactory, gTypeIDBFactory)+       (js_open, open, open_, openUnchecked, js_deleteDatabase,+        deleteDatabase, deleteDatabase_, deleteDatabaseUnchecked, js_cmp,+        cmp, cmp_, IDBFactory, castToIDBFactory, gTypeIDBFactory)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -29,6 +32,23 @@   = liftIO       (nullableToMaybe <$>          (js_open (self) (toJSString name) (fromIntegral version)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.open Mozilla IDBFactory.open documentation> +open_ ::+      (MonadIO m, ToJSString name) =>+        IDBFactory -> name -> Word64 -> m ()+open_ self name version+  = liftIO+      (void (js_open (self) (toJSString name) (fromIntegral version)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.open Mozilla IDBFactory.open documentation> +openUnchecked ::+              (MonadIO m, ToJSString name) =>+                IDBFactory -> name -> Word64 -> m IDBOpenDBRequest+openUnchecked self name version+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_open (self) (toJSString name) (fromIntegral version)))   foreign import javascript unsafe "$1[\"deleteDatabase\"]($2)"         js_deleteDatabase ::@@ -41,6 +61,21 @@ deleteDatabase self name   = liftIO       (nullableToMaybe <$> (js_deleteDatabase (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.deleteDatabase Mozilla IDBFactory.deleteDatabase documentation> +deleteDatabase_ ::+                (MonadIO m, ToJSString name) => IDBFactory -> name -> m ()+deleteDatabase_ self name+  = liftIO (void (js_deleteDatabase (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.deleteDatabase Mozilla IDBFactory.deleteDatabase documentation> +deleteDatabaseUnchecked ::+                        (MonadIO m, ToJSString name) =>+                          IDBFactory -> name -> m IDBOpenDBRequest+deleteDatabaseUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_deleteDatabase (self) (toJSString name)))   foreign import javascript unsafe "$1[\"cmp\"]($2, $3)" js_cmp ::         IDBFactory -> JSVal -> JSVal -> IO Int@@ -48,3 +83,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.cmp Mozilla IDBFactory.cmp documentation>  cmp :: (MonadIO m) => IDBFactory -> JSVal -> JSVal -> m Int cmp self first second = liftIO (js_cmp (self) first second)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.cmp Mozilla IDBFactory.cmp documentation> +cmp_ :: (MonadIO m) => IDBFactory -> JSVal -> JSVal -> m ()+cmp_ self first second = liftIO (void (js_cmp (self) first second))
src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs view
@@ -1,11 +1,17 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.IDBIndex-       (js_openCursorRange, openCursorRange, js_openCursor, openCursor,-        js_openKeyCursorRange, openKeyCursorRange, js_openKeyCursor,-        openKeyCursor, js_getRange, getRange, js_get, get, js_getKeyRange,-        getKeyRange, js_getKey, getKey, js_countRange, countRange,-        js_count, count, js_getName, getName, js_getObjectStore,-        getObjectStore, js_getKeyPath, getKeyPath, js_getMultiEntry,+       (js_openCursorRange, openCursorRange, openCursorRange_,+        openCursorRangeUnchecked, js_openCursor, openCursor, openCursor_,+        openCursorUnchecked, js_openKeyCursorRange, openKeyCursorRange,+        openKeyCursorRange_, openKeyCursorRangeUnchecked, js_openKeyCursor,+        openKeyCursor, openKeyCursor_, openKeyCursorUnchecked, js_getRange,+        getRange, getRange_, getRangeUnchecked, js_get, get, get_,+        getUnchecked, js_getKeyRange, getKeyRange, getKeyRange_,+        getKeyRangeUnchecked, js_getKey, getKey, getKey_, getKeyUnchecked,+        js_countRange, countRange, countRange_, countRangeUnchecked,+        js_count, count, count_, countUnchecked, js_getName, getName,+        js_getObjectStore, getObjectStore, getObjectStoreUnchecked,+        js_getKeyPath, getKeyPath, getKeyPathUnchecked, js_getMultiEntry,         getMultiEntry, js_getUnique, getUnique, IDBIndex, castToIDBIndex,         gTypeIDBIndex)        where@@ -16,9 +22,11 @@ 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)@@ -38,6 +46,26 @@       (nullableToMaybe <$>          (js_openCursorRange (self) (maybeToNullable range)             (toJSString direction)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation> +openCursorRange_ ::+                 (MonadIO m, ToJSString direction) =>+                   IDBIndex -> Maybe IDBKeyRange -> direction -> m ()+openCursorRange_ self range direction+  = liftIO+      (void+         (js_openCursorRange (self) (maybeToNullable range)+            (toJSString direction)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation> +openCursorRangeUnchecked ::+                         (MonadIO m, ToJSString direction) =>+                           IDBIndex -> Maybe IDBKeyRange -> direction -> m IDBRequest+openCursorRangeUnchecked self range direction+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_openCursorRange (self) (maybeToNullable range)+            (toJSString direction)))   foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)"         js_openCursor ::@@ -51,6 +79,22 @@   = liftIO       (nullableToMaybe <$>          (js_openCursor (self) key (toJSString direction)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation> +openCursor_ ::+            (MonadIO m, ToJSString direction) =>+              IDBIndex -> JSVal -> direction -> m ()+openCursor_ self key direction+  = liftIO (void (js_openCursor (self) key (toJSString direction)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation> +openCursorUnchecked ::+                    (MonadIO m, ToJSString direction) =>+                      IDBIndex -> JSVal -> direction -> m IDBRequest+openCursorUnchecked self key direction+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_openCursor (self) key (toJSString direction)))   foreign import javascript unsafe "$1[\"openKeyCursor\"]($2, $3)"         js_openKeyCursorRange ::@@ -66,6 +110,26 @@       (nullableToMaybe <$>          (js_openKeyCursorRange (self) (maybeToNullable range)             (toJSString direction)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation> +openKeyCursorRange_ ::+                    (MonadIO m, ToJSString direction) =>+                      IDBIndex -> Maybe IDBKeyRange -> direction -> m ()+openKeyCursorRange_ self range direction+  = liftIO+      (void+         (js_openKeyCursorRange (self) (maybeToNullable range)+            (toJSString direction)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation> +openKeyCursorRangeUnchecked ::+                            (MonadIO m, ToJSString direction) =>+                              IDBIndex -> Maybe IDBKeyRange -> direction -> m IDBRequest+openKeyCursorRangeUnchecked self range direction+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_openKeyCursorRange (self) (maybeToNullable range)+            (toJSString direction)))   foreign import javascript unsafe "$1[\"openKeyCursor\"]($2, $3)"         js_openKeyCursor ::@@ -79,6 +143,23 @@   = liftIO       (nullableToMaybe <$>          (js_openKeyCursor (self) key (toJSString direction)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation> +openKeyCursor_ ::+               (MonadIO m, ToJSString direction) =>+                 IDBIndex -> JSVal -> direction -> m ()+openKeyCursor_ self key direction+  = liftIO+      (void (js_openKeyCursor (self) key (toJSString direction)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation> +openKeyCursorUnchecked ::+                       (MonadIO m, ToJSString direction) =>+                         IDBIndex -> JSVal -> direction -> m IDBRequest+openKeyCursorUnchecked self key direction+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_openKeyCursor (self) key (toJSString direction)))   foreign import javascript unsafe "$1[\"get\"]($2)" js_getRange ::         IDBIndex -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)@@ -90,6 +171,19 @@ getRange self key   = liftIO       (nullableToMaybe <$> (js_getRange (self) (maybeToNullable key)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> +getRange_ :: (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m ()+getRange_ self key+  = liftIO (void (js_getRange (self) (maybeToNullable key)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> +getRangeUnchecked ::+                  (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest+getRangeUnchecked self key+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getRange (self) (maybeToNullable key)))   foreign import javascript unsafe "$1[\"get\"]($2)" js_get ::         IDBIndex -> JSVal -> IO (Nullable IDBRequest)@@ -97,6 +191,15 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation>  get :: (MonadIO m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) get self key = liftIO (nullableToMaybe <$> (js_get (self) key))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> +get_ :: (MonadIO m) => IDBIndex -> JSVal -> m ()+get_ self key = liftIO (void (js_get (self) key))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> +getUnchecked :: (MonadIO m) => IDBIndex -> JSVal -> m IDBRequest+getUnchecked self key+  = liftIO (fromJust . nullableToMaybe <$> (js_get (self) key))   foreign import javascript unsafe "$1[\"getKey\"]($2)"         js_getKeyRange ::@@ -109,6 +212,20 @@ getKeyRange self key   = liftIO       (nullableToMaybe <$> (js_getKeyRange (self) (maybeToNullable key)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> +getKeyRange_ ::+             (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m ()+getKeyRange_ self key+  = liftIO (void (js_getKeyRange (self) (maybeToNullable key)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> +getKeyRangeUnchecked ::+                     (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest+getKeyRangeUnchecked self key+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getKeyRange (self) (maybeToNullable key)))   foreign import javascript unsafe "$1[\"getKey\"]($2)" js_getKey ::         IDBIndex -> JSVal -> IO (Nullable IDBRequest)@@ -117,6 +234,15 @@ getKey :: (MonadIO m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) getKey self key   = liftIO (nullableToMaybe <$> (js_getKey (self) key))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> +getKey_ :: (MonadIO m) => IDBIndex -> JSVal -> m ()+getKey_ self key = liftIO (void (js_getKey (self) key))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> +getKeyUnchecked :: (MonadIO m) => IDBIndex -> JSVal -> m IDBRequest+getKeyUnchecked self key+  = liftIO (fromJust . nullableToMaybe <$> (js_getKey (self) key))   foreign import javascript unsafe "$1[\"count\"]($2)" js_countRange         :: IDBIndex -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)@@ -129,6 +255,19 @@   = liftIO       (nullableToMaybe <$>          (js_countRange (self) (maybeToNullable range)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> +countRange_ :: (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m ()+countRange_ self range+  = liftIO (void (js_countRange (self) (maybeToNullable range)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> +countRangeUnchecked ::+                    (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest+countRangeUnchecked self range+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_countRange (self) (maybeToNullable range)))   foreign import javascript unsafe "$1[\"count\"]($2)" js_count ::         IDBIndex -> JSVal -> IO (Nullable IDBRequest)@@ -136,6 +275,15 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation>  count :: (MonadIO m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) count self key = liftIO (nullableToMaybe <$> (js_count (self) key))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> +count_ :: (MonadIO m) => IDBIndex -> JSVal -> m ()+count_ self key = liftIO (void (js_count (self) key))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> +countUnchecked :: (MonadIO m) => IDBIndex -> JSVal -> m IDBRequest+countUnchecked self key+  = liftIO (fromJust . nullableToMaybe <$> (js_count (self) key))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         IDBIndex -> IO JSString@@ -152,6 +300,13 @@                (MonadIO m) => IDBIndex -> m (Maybe IDBObjectStore) getObjectStore self   = liftIO (nullableToMaybe <$> (js_getObjectStore (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.objectStore Mozilla IDBIndex.objectStore documentation> +getObjectStoreUnchecked ::+                        (MonadIO m) => IDBIndex -> m IDBObjectStore+getObjectStoreUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getObjectStore (self)))   foreign import javascript unsafe "$1[\"keyPath\"]" js_getKeyPath ::         IDBIndex -> IO (Nullable IDBAny)@@ -160,6 +315,11 @@ getKeyPath :: (MonadIO m) => IDBIndex -> m (Maybe IDBAny) getKeyPath self   = liftIO (nullableToMaybe <$> (js_getKeyPath (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.keyPath Mozilla IDBIndex.keyPath documentation> +getKeyPathUnchecked :: (MonadIO m) => IDBIndex -> m IDBAny+getKeyPathUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getKeyPath (self)))   foreign import javascript unsafe "($1[\"multiEntry\"] ? 1 : 0)"         js_getMultiEntry :: IDBIndex -> IO Bool
src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs view
@@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.IDBKeyRange-       (js_only, only, js_lowerBound, lowerBound, js_upperBound,-        upperBound, js_bound, bound, js_getLower, getLower, js_getUpper,-        getUpper, js_getLowerOpen, getLowerOpen, js_getUpperOpen,-        getUpperOpen, IDBKeyRange, castToIDBKeyRange, gTypeIDBKeyRange)+       (js_only, only, only_, onlyUnchecked, js_lowerBound, lowerBound,+        lowerBound_, lowerBoundUnchecked, js_upperBound, upperBound,+        upperBound_, upperBoundUnchecked, js_bound, bound, bound_,+        boundUnchecked, js_getLower, getLower, js_getUpper, getUpper,+        js_getLowerOpen, getLowerOpen, js_getUpperOpen, getUpperOpen,+        IDBKeyRange, castToIDBKeyRange, gTypeIDBKeyRange)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -12,9 +14,11 @@ 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)@@ -28,6 +32,16 @@      (MonadIO m) => IDBKeyRange -> JSVal -> m (Maybe IDBKeyRange) only self value   = liftIO (nullableToMaybe <$> (js_only (self) value))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.only Mozilla IDBKeyRange.only documentation> +only_ :: (MonadIO m) => IDBKeyRange -> JSVal -> m ()+only_ self value = liftIO (void (js_only (self) value))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.only Mozilla IDBKeyRange.only documentation> +onlyUnchecked ::+              (MonadIO m) => IDBKeyRange -> JSVal -> m IDBKeyRange+onlyUnchecked self value+  = liftIO (fromJust . nullableToMaybe <$> (js_only (self) value))   foreign import javascript unsafe "$1[\"lowerBound\"]($2, $3)"         js_lowerBound ::@@ -39,6 +53,18 @@              IDBKeyRange -> JSVal -> Bool -> m (Maybe IDBKeyRange) lowerBound self lower open   = liftIO (nullableToMaybe <$> (js_lowerBound (self) lower open))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lowerBound Mozilla IDBKeyRange.lowerBound documentation> +lowerBound_ :: (MonadIO m) => IDBKeyRange -> JSVal -> Bool -> m ()+lowerBound_ self lower open+  = liftIO (void (js_lowerBound (self) lower open))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lowerBound Mozilla IDBKeyRange.lowerBound documentation> +lowerBoundUnchecked ::+                    (MonadIO m) => IDBKeyRange -> JSVal -> Bool -> m IDBKeyRange+lowerBoundUnchecked self lower open+  = liftIO+      (fromJust . nullableToMaybe <$> (js_lowerBound (self) lower open))   foreign import javascript unsafe "$1[\"upperBound\"]($2, $3)"         js_upperBound ::@@ -50,6 +76,18 @@              IDBKeyRange -> JSVal -> Bool -> m (Maybe IDBKeyRange) upperBound self upper open   = liftIO (nullableToMaybe <$> (js_upperBound (self) upper open))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upperBound Mozilla IDBKeyRange.upperBound documentation> +upperBound_ :: (MonadIO m) => IDBKeyRange -> JSVal -> Bool -> m ()+upperBound_ self upper open+  = liftIO (void (js_upperBound (self) upper open))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upperBound Mozilla IDBKeyRange.upperBound documentation> +upperBoundUnchecked ::+                    (MonadIO m) => IDBKeyRange -> JSVal -> Bool -> m IDBKeyRange+upperBoundUnchecked self upper open+  = liftIO+      (fromJust . nullableToMaybe <$> (js_upperBound (self) upper open))   foreign import javascript unsafe "$1[\"bound\"]($2, $3, $4, $5)"         js_bound ::@@ -64,6 +102,22 @@ bound self lower upper lowerOpen upperOpen   = liftIO       (nullableToMaybe <$>+         (js_bound (self) lower upper lowerOpen upperOpen))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.bound Mozilla IDBKeyRange.bound documentation> +bound_ ::+       (MonadIO m) =>+         IDBKeyRange -> JSVal -> JSVal -> Bool -> Bool -> m ()+bound_ self lower upper lowerOpen upperOpen+  = liftIO (void (js_bound (self) lower upper lowerOpen upperOpen))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.bound Mozilla IDBKeyRange.bound documentation> +boundUnchecked ::+               (MonadIO m) =>+                 IDBKeyRange -> JSVal -> JSVal -> Bool -> Bool -> m IDBKeyRange+boundUnchecked self lower upper lowerOpen upperOpen+  = liftIO+      (fromJust . nullableToMaybe <$>          (js_bound (self) lower upper lowerOpen upperOpen))   foreign import javascript unsafe "$1[\"lower\"]" js_getLower ::
src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs view
@@ -1,14 +1,23 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.IDBObjectStore-       (js_put, put, js_add, add, js_deleteRange, deleteRange, js_delete,-        delete, js_getRange, getRange, js_get, get, js_clear, clear,-        js_openCursorRange, openCursorRange, js_openCursor, openCursor,-        js_createIndex', createIndex', js_createIndex, createIndex,-        js_index, index, js_deleteIndex, deleteIndex, js_countRange,-        countRange, js_count, count, js_getName, getName, js_getKeyPath,-        getKeyPath, js_getIndexNames, getIndexNames, js_getTransaction,-        getTransaction, js_getAutoIncrement, getAutoIncrement,-        IDBObjectStore, castToIDBObjectStore, gTypeIDBObjectStore)+       (js_put, put, put_, putUnchecked, js_add, add, add_, addUnchecked,+        js_deleteRange, deleteRange, deleteRange_, deleteRangeUnchecked,+        js_delete, delete, delete_, deleteUnchecked, js_getRange, getRange,+        getRange_, getRangeUnchecked, js_get, get, get_, getUnchecked,+        js_clear, clear, clear_, clearUnchecked, js_openCursorRange,+        openCursorRange, openCursorRange_, openCursorRangeUnchecked,+        js_openCursor, openCursor, openCursor_, openCursorUnchecked,+        js_createIndex', createIndex', createIndex'_,+        createIndex'Unchecked, js_createIndex, createIndex, createIndex_,+        createIndexUnchecked, js_index, index, index_, indexUnchecked,+        js_deleteIndex, deleteIndex, js_countRange, countRange,+        countRange_, countRangeUnchecked, js_count, count, count_,+        countUnchecked, js_getName, getName, getNameUnchecked,+        js_getKeyPath, getKeyPath, getKeyPathUnchecked, js_getIndexNames,+        getIndexNames, getIndexNamesUnchecked, js_getTransaction,+        getTransaction, getTransactionUnchecked, js_getAutoIncrement,+        getAutoIncrement, IDBObjectStore, castToIDBObjectStore,+        gTypeIDBObjectStore)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -17,9 +26,11 @@ 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)@@ -34,6 +45,16 @@       IDBObjectStore -> JSVal -> JSVal -> m (Maybe IDBRequest) put self value key   = liftIO (nullableToMaybe <$> (js_put (self) value key))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.put Mozilla IDBObjectStore.put documentation> +put_ :: (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m ()+put_ self value key = liftIO (void (js_put (self) value key))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.put Mozilla IDBObjectStore.put documentation> +putUnchecked ::+             (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m IDBRequest+putUnchecked self value key+  = liftIO (fromJust . nullableToMaybe <$> (js_put (self) value key))   foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add ::         IDBObjectStore -> JSVal -> JSVal -> IO (Nullable IDBRequest)@@ -44,6 +65,16 @@       IDBObjectStore -> JSVal -> JSVal -> m (Maybe IDBRequest) add self value key   = liftIO (nullableToMaybe <$> (js_add (self) value key))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.add Mozilla IDBObjectStore.add documentation> +add_ :: (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m ()+add_ self value key = liftIO (void (js_add (self) value key))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.add Mozilla IDBObjectStore.add documentation> +addUnchecked ::+             (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m IDBRequest+addUnchecked self value key+  = liftIO (fromJust . nullableToMaybe <$> (js_add (self) value key))   foreign import javascript unsafe "$1[\"delete\"]($2)"         js_deleteRange ::@@ -57,6 +88,20 @@   = liftIO       (nullableToMaybe <$>          (js_deleteRange (self) (maybeToNullable keyRange)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> +deleteRange_ ::+             (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m ()+deleteRange_ self keyRange+  = liftIO (void (js_deleteRange (self) (maybeToNullable keyRange)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> +deleteRangeUnchecked ::+                     (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest+deleteRangeUnchecked self keyRange+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_deleteRange (self) (maybeToNullable keyRange)))   foreign import javascript unsafe "$1[\"delete\"]($2)" js_delete ::         IDBObjectStore -> JSVal -> IO (Nullable IDBRequest)@@ -66,6 +111,16 @@        (MonadIO m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest) delete self key   = liftIO (nullableToMaybe <$> (js_delete (self) key))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> +delete_ :: (MonadIO m) => IDBObjectStore -> JSVal -> m ()+delete_ self key = liftIO (void (js_delete (self) key))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation> +deleteUnchecked ::+                (MonadIO m) => IDBObjectStore -> JSVal -> m IDBRequest+deleteUnchecked self key+  = liftIO (fromJust . nullableToMaybe <$> (js_delete (self) key))   foreign import javascript unsafe "$1[\"get\"]($2)" js_getRange ::         IDBObjectStore -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)@@ -77,6 +132,20 @@ getRange self key   = liftIO       (nullableToMaybe <$> (js_getRange (self) (maybeToNullable key)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> +getRange_ ::+          (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m ()+getRange_ self key+  = liftIO (void (js_getRange (self) (maybeToNullable key)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> +getRangeUnchecked ::+                  (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest+getRangeUnchecked self key+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getRange (self) (maybeToNullable key)))   foreign import javascript unsafe "$1[\"get\"]($2)" js_get ::         IDBObjectStore -> JSVal -> IO (Nullable IDBRequest)@@ -85,6 +154,16 @@ get ::     (MonadIO m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest) get self key = liftIO (nullableToMaybe <$> (js_get (self) key))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> +get_ :: (MonadIO m) => IDBObjectStore -> JSVal -> m ()+get_ self key = liftIO (void (js_get (self) key))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation> +getUnchecked ::+             (MonadIO m) => IDBObjectStore -> JSVal -> m IDBRequest+getUnchecked self key+  = liftIO (fromJust . nullableToMaybe <$> (js_get (self) key))   foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::         IDBObjectStore -> IO (Nullable IDBRequest)@@ -92,6 +171,15 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.clear Mozilla IDBObjectStore.clear documentation>  clear :: (MonadIO m) => IDBObjectStore -> m (Maybe IDBRequest) clear self = liftIO (nullableToMaybe <$> (js_clear (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.clear Mozilla IDBObjectStore.clear documentation> +clear_ :: (MonadIO m) => IDBObjectStore -> m ()+clear_ self = liftIO (void (js_clear (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.clear Mozilla IDBObjectStore.clear documentation> +clearUnchecked :: (MonadIO m) => IDBObjectStore -> m IDBRequest+clearUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_clear (self)))   foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)"         js_openCursorRange ::@@ -108,6 +196,26 @@       (nullableToMaybe <$>          (js_openCursorRange (self) (maybeToNullable range)             (toJSString direction)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation> +openCursorRange_ ::+                 (MonadIO m, ToJSString direction) =>+                   IDBObjectStore -> Maybe IDBKeyRange -> direction -> m ()+openCursorRange_ self range direction+  = liftIO+      (void+         (js_openCursorRange (self) (maybeToNullable range)+            (toJSString direction)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation> +openCursorRangeUnchecked ::+                         (MonadIO m, ToJSString direction) =>+                           IDBObjectStore -> Maybe IDBKeyRange -> direction -> m IDBRequest+openCursorRangeUnchecked self range direction+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_openCursorRange (self) (maybeToNullable range)+            (toJSString direction)))   foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)"         js_openCursor ::@@ -121,6 +229,22 @@   = liftIO       (nullableToMaybe <$>          (js_openCursor (self) key (toJSString direction)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation> +openCursor_ ::+            (MonadIO m, ToJSString direction) =>+              IDBObjectStore -> JSVal -> direction -> m ()+openCursor_ self key direction+  = liftIO (void (js_openCursor (self) key (toJSString direction)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation> +openCursorUnchecked ::+                    (MonadIO m, ToJSString direction) =>+                      IDBObjectStore -> JSVal -> direction -> m IDBRequest+openCursorUnchecked self key direction+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_openCursor (self) key (toJSString direction)))   foreign import javascript unsafe "$1[\"createIndex\"]($2, $3, $4)"         js_createIndex' ::@@ -139,6 +263,30 @@          (toJSVal keyPath >>=             \ keyPath' -> js_createIndex' (self) (toJSString name) keyPath'             (maybeToNullable (fmap toDictionary options))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation> +createIndex'_ ::+              (MonadIO m, ToJSString name, ToJSString keyPath,+               IsDictionary options) =>+                IDBObjectStore -> name -> [keyPath] -> Maybe options -> m ()+createIndex'_ self name keyPath options+  = liftIO+      (void+         (toJSVal keyPath >>=+            \ keyPath' -> js_createIndex' (self) (toJSString name) keyPath'+            (maybeToNullable (fmap toDictionary options))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation> +createIndex'Unchecked ::+                      (MonadIO m, ToJSString name, ToJSString keyPath,+                       IsDictionary options) =>+                        IDBObjectStore -> name -> [keyPath] -> Maybe options -> m IDBIndex+createIndex'Unchecked self name keyPath options+  = liftIO+      (fromJust . nullableToMaybe <$>+         (toJSVal keyPath >>=+            \ keyPath' -> js_createIndex' (self) (toJSString name) keyPath'+            (maybeToNullable (fmap toDictionary options))))   foreign import javascript unsafe "$1[\"createIndex\"]($2, $3, $4)"         js_createIndex ::@@ -157,6 +305,28 @@       (nullableToMaybe <$>          (js_createIndex (self) (toJSString name) (toJSString keyPath)             (maybeToNullable (fmap toDictionary options))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation> +createIndex_ ::+             (MonadIO m, ToJSString name, ToJSString keyPath,+              IsDictionary options) =>+               IDBObjectStore -> name -> keyPath -> Maybe options -> m ()+createIndex_ self name keyPath options+  = liftIO+      (void+         (js_createIndex (self) (toJSString name) (toJSString keyPath)+            (maybeToNullable (fmap toDictionary options))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation> +createIndexUnchecked ::+                     (MonadIO m, ToJSString name, ToJSString keyPath,+                      IsDictionary options) =>+                       IDBObjectStore -> name -> keyPath -> Maybe options -> m IDBIndex+createIndexUnchecked self name keyPath options+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createIndex (self) (toJSString name) (toJSString keyPath)+            (maybeToNullable (fmap toDictionary options))))   foreign import javascript unsafe "$1[\"index\"]($2)" js_index ::         IDBObjectStore -> JSString -> IO (Nullable IDBIndex)@@ -167,6 +337,21 @@         IDBObjectStore -> name -> m (Maybe IDBIndex) index self name   = liftIO (nullableToMaybe <$> (js_index (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.index Mozilla IDBObjectStore.index documentation> +index_ ::+       (MonadIO m, ToJSString name) => IDBObjectStore -> name -> m ()+index_ self name+  = liftIO (void (js_index (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.index Mozilla IDBObjectStore.index documentation> +indexUnchecked ::+               (MonadIO m, ToJSString name) =>+                 IDBObjectStore -> name -> m IDBIndex+indexUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_index (self) (toJSString name)))   foreign import javascript unsafe "$1[\"deleteIndex\"]($2)"         js_deleteIndex :: IDBObjectStore -> JSString -> IO ()@@ -189,6 +374,20 @@   = liftIO       (nullableToMaybe <$>          (js_countRange (self) (maybeToNullable range)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> +countRange_ ::+            (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m ()+countRange_ self range+  = liftIO (void (js_countRange (self) (maybeToNullable range)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> +countRangeUnchecked ::+                    (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest+countRangeUnchecked self range+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_countRange (self) (maybeToNullable range)))   foreign import javascript unsafe "$1[\"count\"]($2)" js_count ::         IDBObjectStore -> JSVal -> IO (Nullable IDBRequest)@@ -197,6 +396,16 @@ count ::       (MonadIO m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest) count self key = liftIO (nullableToMaybe <$> (js_count (self) key))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> +count_ :: (MonadIO m) => IDBObjectStore -> JSVal -> m ()+count_ self key = liftIO (void (js_count (self) key))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation> +countUnchecked ::+               (MonadIO m) => IDBObjectStore -> JSVal -> m IDBRequest+countUnchecked self key+  = liftIO (fromJust . nullableToMaybe <$> (js_count (self) key))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         IDBObjectStore -> IO (Nullable JSString)@@ -206,6 +415,12 @@         (MonadIO m, FromJSString result) =>           IDBObjectStore -> m (Maybe result) getName self = liftIO (fromMaybeJSString <$> (js_getName (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.name Mozilla IDBObjectStore.name documentation> +getNameUnchecked ::+                 (MonadIO m, FromJSString result) => IDBObjectStore -> m result+getNameUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"keyPath\"]" js_getKeyPath ::         IDBObjectStore -> IO (Nullable IDBAny)@@ -214,6 +429,11 @@ getKeyPath :: (MonadIO m) => IDBObjectStore -> m (Maybe IDBAny) getKeyPath self   = liftIO (nullableToMaybe <$> (js_getKeyPath (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.keyPath Mozilla IDBObjectStore.keyPath documentation> +getKeyPathUnchecked :: (MonadIO m) => IDBObjectStore -> m IDBAny+getKeyPathUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getKeyPath (self)))   foreign import javascript unsafe "$1[\"indexNames\"]"         js_getIndexNames :: IDBObjectStore -> IO (Nullable DOMStringList)@@ -223,6 +443,12 @@               (MonadIO m) => IDBObjectStore -> m (Maybe DOMStringList) getIndexNames self   = liftIO (nullableToMaybe <$> (js_getIndexNames (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.indexNames Mozilla IDBObjectStore.indexNames documentation> +getIndexNamesUnchecked ::+                       (MonadIO m) => IDBObjectStore -> m DOMStringList+getIndexNamesUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIndexNames (self)))   foreign import javascript unsafe "$1[\"transaction\"]"         js_getTransaction :: IDBObjectStore -> IO (Nullable IDBTransaction)@@ -232,6 +458,13 @@                (MonadIO m) => IDBObjectStore -> m (Maybe IDBTransaction) getTransaction self   = liftIO (nullableToMaybe <$> (js_getTransaction (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.transaction Mozilla IDBObjectStore.transaction documentation> +getTransactionUnchecked ::+                        (MonadIO m) => IDBObjectStore -> m IDBTransaction+getTransactionUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getTransaction (self)))   foreign import javascript unsafe "($1[\"autoIncrement\"] ? 1 : 0)"         js_getAutoIncrement :: IDBObjectStore -> IO Bool
src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs view
@@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.IDBRequest-       (js_getResult, getResult, js_getError, getError, js_getSource,-        getSource, js_getTransaction, getTransaction, js_getReadyState,-        getReadyState, success, error, IDBRequest, castToIDBRequest,-        gTypeIDBRequest, IsIDBRequest, toIDBRequest)+       (js_getResult, getResult, getResultUnchecked, js_getError,+        getError, getErrorUnchecked, js_getSource, getSource,+        getSourceUnchecked, js_getTransaction, getTransaction,+        getTransactionUnchecked, js_getReadyState, getReadyState, success,+        error, IDBRequest, castToIDBRequest, gTypeIDBRequest, IsIDBRequest,+        toIDBRequest)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -12,9 +14,11 @@ 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)@@ -28,6 +32,13 @@           (MonadIO m, IsIDBRequest self) => self -> m (Maybe IDBAny) getResult self   = liftIO (nullableToMaybe <$> (js_getResult (toIDBRequest self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.result Mozilla IDBRequest.result documentation> +getResultUnchecked ::+                   (MonadIO m, IsIDBRequest self) => self -> m IDBAny+getResultUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getResult (toIDBRequest self)))   foreign import javascript unsafe "$1[\"error\"]" js_getError ::         IDBRequest -> IO (Nullable DOMError)@@ -37,6 +48,13 @@          (MonadIO m, IsIDBRequest self) => self -> m (Maybe DOMError) getError self   = liftIO (nullableToMaybe <$> (js_getError (toIDBRequest self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.error Mozilla IDBRequest.error documentation> +getErrorUnchecked ::+                  (MonadIO m, IsIDBRequest self) => self -> m DOMError+getErrorUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getError (toIDBRequest self)))   foreign import javascript unsafe "$1[\"source\"]" js_getSource ::         IDBRequest -> IO (Nullable IDBAny)@@ -46,6 +64,13 @@           (MonadIO m, IsIDBRequest self) => self -> m (Maybe IDBAny) getSource self   = liftIO (nullableToMaybe <$> (js_getSource (toIDBRequest self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.source Mozilla IDBRequest.source documentation> +getSourceUnchecked ::+                   (MonadIO m, IsIDBRequest self) => self -> m IDBAny+getSourceUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getSource (toIDBRequest self)))   foreign import javascript unsafe "$1[\"transaction\"]"         js_getTransaction :: IDBRequest -> IO (Nullable IDBTransaction)@@ -56,6 +81,14 @@ getTransaction self   = liftIO       (nullableToMaybe <$> (js_getTransaction (toIDBRequest self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.transaction Mozilla IDBRequest.transaction documentation> +getTransactionUnchecked ::+                        (MonadIO m, IsIDBRequest self) => self -> m IDBTransaction+getTransactionUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getTransaction (toIDBRequest self)))   foreign import javascript unsafe "$1[\"readyState\"]"         js_getReadyState :: IDBRequest -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs view
@@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.IDBTransaction-       (js_objectStore, objectStore, js_abort, abort, js_getMode, getMode,-        js_getDb, getDb, js_getError, getError, abortEvent, complete,-        error, IDBTransaction, castToIDBTransaction, gTypeIDBTransaction)+       (js_objectStore, objectStore, objectStore_, objectStoreUnchecked,+        js_abort, abort, js_getMode, getMode, js_getDb, getDb,+        getDbUnchecked, js_getError, getError, getErrorUnchecked,+        abortEvent, complete, error, IDBTransaction, castToIDBTransaction,+        gTypeIDBTransaction)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +13,11 @@ 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)@@ -30,6 +34,21 @@ objectStore self name   = liftIO       (nullableToMaybe <$> (js_objectStore (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.objectStore Mozilla IDBTransaction.objectStore documentation> +objectStore_ ::+             (MonadIO m, ToJSString name) => IDBTransaction -> name -> m ()+objectStore_ self name+  = liftIO (void (js_objectStore (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.objectStore Mozilla IDBTransaction.objectStore documentation> +objectStoreUnchecked ::+                     (MonadIO m, ToJSString name) =>+                       IDBTransaction -> name -> m IDBObjectStore+objectStoreUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_objectStore (self) (toJSString name)))   foreign import javascript unsafe "$1[\"abort\"]()" js_abort ::         IDBTransaction -> IO ()@@ -52,6 +71,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.db Mozilla IDBTransaction.db documentation>  getDb :: (MonadIO m) => IDBTransaction -> m (Maybe IDBDatabase) getDb self = liftIO (nullableToMaybe <$> (js_getDb (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.db Mozilla IDBTransaction.db documentation> +getDbUnchecked :: (MonadIO m) => IDBTransaction -> m IDBDatabase+getDbUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getDb (self)))   foreign import javascript unsafe "$1[\"error\"]" js_getError ::         IDBTransaction -> IO (Nullable DOMError)@@ -59,6 +83,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.error Mozilla IDBTransaction.error documentation>  getError :: (MonadIO m) => IDBTransaction -> m (Maybe DOMError) getError self = liftIO (nullableToMaybe <$> (js_getError (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.error Mozilla IDBTransaction.error documentation> +getErrorUnchecked :: (MonadIO m) => IDBTransaction -> m DOMError+getErrorUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getError (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.onabort Mozilla IDBTransaction.onabort documentation>  abortEvent :: EventName IDBTransaction Event
src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.IDBVersionChangeEvent        (js_getOldVersion, getOldVersion, js_getNewVersion, getNewVersion,-        IDBVersionChangeEvent, castToIDBVersionChangeEvent,-        gTypeIDBVersionChangeEvent)+        getNewVersionUnchecked, IDBVersionChangeEvent,+        castToIDBVersionChangeEvent, gTypeIDBVersionChangeEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -35,3 +37,10 @@ getNewVersion self   = liftIO       (fmap round . nullableToMaybe <$> (js_getNewVersion (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBVersionChangeEvent.newVersion Mozilla IDBVersionChangeEvent.newVersion documentation> +getNewVersionUnchecked ::+                       (MonadIO m) => IDBVersionChangeEvent -> m Word64+getNewVersionUnchecked self+  = liftIO+      (round . fromJust . nullableToMaybe <$> (js_getNewVersion (self)))
src/GHCJS/DOM/JSFFI/Generated/ImageData.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs view
@@ -7,15 +7,17 @@         setAttachedWindowHeight, js_setAttachedWindowWidth,         setAttachedWindowWidth, js_setToolbarHeight, setToolbarHeight,         js_moveWindowBy, moveWindowBy, js_localizedStringsURL,-        localizedStringsURL, js_debuggableType, debuggableType,-        js_copyText, copyText, js_openInNewTab, openInNewTab, js_canSave,-        canSave, js_save, save, js_append, append, js_close, close,-        js_platform, platform, js_port, port, js_showContextMenu,+        localizedStringsURL, localizedStringsURL_, js_debuggableType,+        debuggableType, debuggableType_, js_copyText, copyText,+        js_openInNewTab, openInNewTab, js_canSave, canSave, canSave_,+        js_save, save, js_append, append, js_close, close, js_platform,+        platform, platform_, js_port, port, port_, js_showContextMenu,         showContextMenu, js_dispatchEventAsContextMenuEvent,         dispatchEventAsContextMenuEvent, js_sendMessageToBackend,         sendMessageToBackend, js_unbufferedLog, unbufferedLog,-        js_isUnderTest, isUnderTest, js_beep, beep, js_canInspectWorkers,-        canInspectWorkers, js_canSaveAs, canSaveAs, InspectorFrontendHost,+        js_isUnderTest, isUnderTest, isUnderTest_, js_beep, beep,+        js_canInspectWorkers, canInspectWorkers, canInspectWorkers_,+        js_canSaveAs, canSaveAs, canSaveAs_, InspectorFrontendHost,         castToInspectorFrontendHost, gTypeInspectorFrontendHost)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -25,9 +27,11 @@ 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)@@ -129,6 +133,12 @@                       InspectorFrontendHost -> m result localizedStringsURL self   = liftIO (fromJSString <$> (js_localizedStringsURL (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.localizedStringsURL Mozilla InspectorFrontendHost.localizedStringsURL documentation> +localizedStringsURL_ ::+                     (MonadIO m) => InspectorFrontendHost -> m ()+localizedStringsURL_ self+  = liftIO (void (js_localizedStringsURL (self)))   foreign import javascript unsafe "$1[\"debuggableType\"]()"         js_debuggableType :: InspectorFrontendHost -> IO JSString@@ -139,6 +149,10 @@                  InspectorFrontendHost -> m result debuggableType self   = liftIO (fromJSString <$> (js_debuggableType (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.debuggableType Mozilla InspectorFrontendHost.debuggableType documentation> +debuggableType_ :: (MonadIO m) => InspectorFrontendHost -> m ()+debuggableType_ self = liftIO (void (js_debuggableType (self)))   foreign import javascript unsafe "$1[\"copyText\"]($2)" js_copyText         :: InspectorFrontendHost -> JSString -> IO ()@@ -164,6 +178,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canSave Mozilla InspectorFrontendHost.canSave documentation>  canSave :: (MonadIO m) => InspectorFrontendHost -> m Bool canSave self = liftIO (js_canSave (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canSave Mozilla InspectorFrontendHost.canSave documentation> +canSave_ :: (MonadIO m) => InspectorFrontendHost -> m ()+canSave_ self = liftIO (void (js_canSave (self)))   foreign import javascript unsafe "$1[\"save\"]($2, $3, $4, $5)"         js_save ::@@ -205,6 +223,10 @@          (MonadIO m, FromJSString result) =>            InspectorFrontendHost -> m result platform self = liftIO (fromJSString <$> (js_platform (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.platform Mozilla InspectorFrontendHost.platform documentation> +platform_ :: (MonadIO m) => InspectorFrontendHost -> m ()+platform_ self = liftIO (void (js_platform (self)))   foreign import javascript unsafe "$1[\"port\"]()" js_port ::         InspectorFrontendHost -> IO JSString@@ -214,6 +236,10 @@      (MonadIO m, FromJSString result) =>        InspectorFrontendHost -> m result port self = liftIO (fromJSString <$> (js_port (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.port Mozilla InspectorFrontendHost.port documentation> +port_ :: (MonadIO m) => InspectorFrontendHost -> m ()+port_ self = liftIO (void (js_port (self)))   foreign import javascript unsafe "$1[\"showContextMenu\"]($2, $3)"         js_showContextMenu ::@@ -270,6 +296,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.isUnderTest Mozilla InspectorFrontendHost.isUnderTest documentation>  isUnderTest :: (MonadIO m) => InspectorFrontendHost -> m Bool isUnderTest self = liftIO (js_isUnderTest (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.isUnderTest Mozilla InspectorFrontendHost.isUnderTest documentation> +isUnderTest_ :: (MonadIO m) => InspectorFrontendHost -> m ()+isUnderTest_ self = liftIO (void (js_isUnderTest (self)))   foreign import javascript unsafe "$1[\"beep\"]()" js_beep ::         InspectorFrontendHost -> IO ()@@ -285,6 +315,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canInspectWorkers Mozilla InspectorFrontendHost.canInspectWorkers documentation>  canInspectWorkers :: (MonadIO m) => InspectorFrontendHost -> m Bool canInspectWorkers self = liftIO (js_canInspectWorkers (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canInspectWorkers Mozilla InspectorFrontendHost.canInspectWorkers documentation> +canInspectWorkers_ :: (MonadIO m) => InspectorFrontendHost -> m ()+canInspectWorkers_ self+  = liftIO (void (js_canInspectWorkers (self)))   foreign import javascript unsafe "($1[\"canSaveAs\"]() ? 1 : 0)"         js_canSaveAs :: InspectorFrontendHost -> IO Bool@@ -292,3 +327,7 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canSaveAs Mozilla InspectorFrontendHost.canSaveAs documentation>  canSaveAs :: (MonadIO m) => InspectorFrontendHost -> m Bool canSaveAs self = liftIO (js_canSaveAs (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canSaveAs Mozilla InspectorFrontendHost.canSaveAs documentation> +canSaveAs_ :: (MonadIO m) => InspectorFrontendHost -> m ()+canSaveAs_ self = liftIO (void (js_canSaveAs (self)))
src/GHCJS/DOM/JSFFI/Generated/InternalSettings.hs view
@@ -16,7 +16,8 @@         setCSSShapesEnabled, js_setCanStartMedia, setCanStartMedia,         js_setShouldDisplayTrackKind, setShouldDisplayTrackKind,         js_shouldDisplayTrackKind, shouldDisplayTrackKind,-        js_setDefaultVideoPosterURL, setDefaultVideoPosterURL,+        shouldDisplayTrackKind_, js_setDefaultVideoPosterURL,+        setDefaultVideoPosterURL,         js_setTimeWithoutMouseMovementBeforeHidingControls,         setTimeWithoutMouseMovementBeforeHidingControls,         js_setMediaTypeOverride, setMediaTypeOverride,@@ -45,9 +46,11 @@ 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)@@ -243,6 +246,14 @@                          InternalSettings -> trackKind -> m Bool shouldDisplayTrackKind self trackKind   = liftIO (js_shouldDisplayTrackKind (self) (toJSString trackKind))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.shouldDisplayTrackKind Mozilla InternalSettings.shouldDisplayTrackKind documentation> +shouldDisplayTrackKind_ ::+                        (MonadIO m, ToJSString trackKind) =>+                          InternalSettings -> trackKind -> m ()+shouldDisplayTrackKind_ self trackKind+  = liftIO+      (void (js_shouldDisplayTrackKind (self) (toJSString trackKind)))   foreign import javascript unsafe         "$1[\"setDefaultVideoPosterURL\"]($2)" js_setDefaultVideoPosterURL
src/GHCJS/DOM/JSFFI/Generated/Internals.hs view
@@ -1,2135 +1,3193 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Internals-       (js_address, address, js_nodeNeedsStyleRecalc,-        nodeNeedsStyleRecalc, js_description, description,-        js_hasPausedImageAnimations, hasPausedImageAnimations,-        js_elementRenderTreeAsText, elementRenderTreeAsText,-        js_isPreloaded, isPreloaded, js_isLoadingFromMemoryCache,-        isLoadingFromMemoryCache, js_xhrResponseSource, xhrResponseSource,-        js_clearMemoryCache, clearMemoryCache, js_pruneMemoryCacheToSize,-        pruneMemoryCacheToSize, js_memoryCacheSize, memoryCacheSize,-        js_clearPageCache, clearPageCache, js_pageCacheSize, pageCacheSize,-        js_computedStyleIncludingVisitedInfo,-        computedStyleIncludingVisitedInfo, js_ensureShadowRoot,-        ensureShadowRoot, js_createShadowRoot, createShadowRoot,-        js_shadowRoot, shadowRoot, js_shadowRootType, shadowRootType,-        js_includerFor, includerFor, js_shadowPseudoId, shadowPseudoId,-        js_setShadowPseudoId, setShadowPseudoId, js_treeScopeRootNode,-        treeScopeRootNode, js_parentTreeScope, parentTreeScope,-        js_lastSpatialNavigationCandidateCount,-        lastSpatialNavigationCandidateCount, js_numberOfActiveAnimations,-        numberOfActiveAnimations, js_suspendAnimations, suspendAnimations,-        js_resumeAnimations, resumeAnimations, js_animationsAreSuspended,-        animationsAreSuspended, js_pauseAnimationAtTimeOnElement,-        pauseAnimationAtTimeOnElement,-        js_pauseAnimationAtTimeOnPseudoElement,-        pauseAnimationAtTimeOnPseudoElement,-        js_pauseTransitionAtTimeOnElement, pauseTransitionAtTimeOnElement,-        js_pauseTransitionAtTimeOnPseudoElement,-        pauseTransitionAtTimeOnPseudoElement, js_attached, attached,-        js_visiblePlaceholder, visiblePlaceholder,-        js_selectColorInColorChooser, selectColorInColorChooser,-        js_formControlStateOfPreviousHistoryItem,-        formControlStateOfPreviousHistoryItem,-        js_setFormControlStateOfPreviousHistoryItem,-        setFormControlStateOfPreviousHistoryItem, js_absoluteCaretBounds,-        absoluteCaretBounds, js_boundingBox, boundingBox,-        js_inspectorHighlightRects, inspectorHighlightRects,-        js_inspectorHighlightObject, inspectorHighlightObject,-        js_markerCountForNode, markerCountForNode, js_markerRangeForNode,-        markerRangeForNode, js_markerDescriptionForNode,-        markerDescriptionForNode, js_addTextMatchMarker,-        addTextMatchMarker, js_setMarkedTextMatchesAreHighlighted,-        setMarkedTextMatchesAreHighlighted, js_invalidateFontCache,-        invalidateFontCache, js_setScrollViewPosition,-        setScrollViewPosition, js_setPagination, setPagination,-        js_configurationForViewport, configurationForViewport,-        js_wasLastChangeUserEdit, wasLastChangeUserEdit,-        js_elementShouldAutoComplete, elementShouldAutoComplete,-        js_setEditingValue, setEditingValue, js_setAutofilled,-        setAutofilled, js_countMatchesForText, countMatchesForText,-        js_paintControlTints, paintControlTints, js_scrollElementToRect,-        scrollElementToRect, js_rangeFromLocationAndLength,-        rangeFromLocationAndLength, js_locationFromRange,-        locationFromRange, js_lengthFromRange, lengthFromRange,-        js_rangeAsText, rangeAsText, js_subrange, subrange,-        js_rangeForDictionaryLookupAtLocation,-        rangeForDictionaryLookupAtLocation, js_setDelegatesScrolling,-        setDelegatesScrolling, js_lastSpellCheckRequestSequence,-        lastSpellCheckRequestSequence, js_lastSpellCheckProcessedSequence,-        lastSpellCheckProcessedSequence, js_userPreferredLanguages,-        userPreferredLanguages, js_setUserPreferredLanguages,-        setUserPreferredLanguages, js_wheelEventHandlerCount,-        wheelEventHandlerCount, js_touchEventHandlerCount,-        touchEventHandlerCount, js_nodesFromRect, nodesFromRect,-        js_parserMetaData, parserMetaData, js_updateEditorUINowIfScheduled,-        updateEditorUINowIfScheduled, js_hasSpellingMarker,-        hasSpellingMarker, js_hasGrammarMarker, hasGrammarMarker,-        js_hasAutocorrectedMarker, hasAutocorrectedMarker,-        js_setContinuousSpellCheckingEnabled,-        setContinuousSpellCheckingEnabled,-        js_setAutomaticQuoteSubstitutionEnabled,-        setAutomaticQuoteSubstitutionEnabled,-        js_setAutomaticLinkDetectionEnabled,-        setAutomaticLinkDetectionEnabled,-        js_setAutomaticDashSubstitutionEnabled,-        setAutomaticDashSubstitutionEnabled,-        js_setAutomaticTextReplacementEnabled,-        setAutomaticTextReplacementEnabled,-        js_setAutomaticSpellingCorrectionEnabled,-        setAutomaticSpellingCorrectionEnabled, js_isOverwriteModeEnabled,-        isOverwriteModeEnabled, js_toggleOverwriteModeEnabled,-        toggleOverwriteModeEnabled, js_numberOfScrollableAreas,-        numberOfScrollableAreas, js_isPageBoxVisible, isPageBoxVisible,-        js_layerTreeAsText, layerTreeAsText, js_scrollingStateTreeAsText,-        scrollingStateTreeAsText, js_mainThreadScrollingReasons,-        mainThreadScrollingReasons, js_nonFastScrollableRects,-        nonFastScrollableRects, js_repaintRectsAsText, repaintRectsAsText,-        js_garbageCollectDocumentResources,-        garbageCollectDocumentResources, js_allowRoundingHacks,-        allowRoundingHacks, js_insertAuthorCSS, insertAuthorCSS,-        js_insertUserCSS, insertUserCSS, js_setBatteryStatus,-        setBatteryStatus, js_setDeviceProximity, setDeviceProximity,-        js_numberOfLiveNodes, numberOfLiveNodes, js_numberOfLiveDocuments,-        numberOfLiveDocuments, js_consoleMessageArgumentCounts,-        consoleMessageArgumentCounts, js_openDummyInspectorFrontend,-        openDummyInspectorFrontend, js_closeDummyInspectorFrontend,-        closeDummyInspectorFrontend, js_setJavaScriptProfilingEnabled,-        setJavaScriptProfilingEnabled, js_setInspectorIsUnderTest,-        setInspectorIsUnderTest, js_counterValue, counterValue,-        js_pageNumber, pageNumber, js_shortcutIconURLs, shortcutIconURLs,-        js_allIconURLs, allIconURLs, js_numberOfPages, numberOfPages,-        js_pageProperty, pageProperty, js_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, js_typeConversions,-        typeConversions, js_memoryInfo, memoryInfo,-        js_getReferencedFilePaths, getReferencedFilePaths,-        js_startTrackingRepaints, startTrackingRepaints,-        js_stopTrackingRepaints, stopTrackingRepaints, js_isTimerThrottled,-        isTimerThrottled,-        js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks,-        updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks,-        js_getCurrentCursorInfo, getCurrentCursorInfo,-        js_markerTextForListItem, markerTextForListItem,-        js_toolTipFromElement, toolTipFromElement, js_deserializeBuffer,-        deserializeBuffer, js_serializeObject, serializeObject,-        js_setUsesOverlayScrollbars, setUsesOverlayScrollbars,-        js_forceReload, forceReload, js_simulateAudioInterruption,-        simulateAudioInterruption, js_mediaElementHasCharacteristic,-        mediaElementHasCharacteristic, js_initializeMockCDM,-        initializeMockCDM, js_enableMockSpeechSynthesizer,-        enableMockSpeechSynthesizer, js_getImageSourceURL,-        getImageSourceURL, js_captionsStyleSheetOverride,-        captionsStyleSheetOverride, js_setCaptionsStyleSheetOverride,-        setCaptionsStyleSheetOverride,-        js_setPrimaryAudioTrackLanguageOverride,-        setPrimaryAudioTrackLanguageOverride, js_setCaptionDisplayMode,-        setCaptionDisplayMode, js_createTimeRanges, createTimeRanges,-        js_closestTimeToTimeRanges, closestTimeToTimeRanges,-        js_isSelectPopupVisible, isSelectPopupVisible, js_isVibrating,-        isVibrating, js_isPluginUnavailabilityIndicatorObscured,-        isPluginUnavailabilityIndicatorObscured, js_isPluginSnapshotted,-        isPluginSnapshotted, js_selectionBounds, selectionBounds,-        js_initializeMockMediaSource, initializeMockMediaSource,-        js_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, js_installMockPageOverlay,-        installMockPageOverlay, js_pageOverlayLayerTreeAsText,-        pageOverlayLayerTreeAsText, js_setPageMuted, setPageMuted,-        js_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, js_getWorkerThreadCount, getWorkerThreadCount,-        js_getConsoleProfiles, getConsoleProfiles, Internals,-        castToInternals, gTypeInternals)-       where-import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)-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.IO.Class (MonadIO(..))-import Data.Int (Int64)-import Data.Word (Word, Word64)-import GHCJS.DOM.Types-import Control.Applicative ((<$>))-import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)-import GHCJS.DOM.JSFFI.Generated.Enums- -foreign import javascript unsafe "$1[\"address\"]($2)" js_address-        :: Internals -> Nullable Node -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.address Mozilla Internals.address documentation> -address ::-        (MonadIO m, IsNode node, FromJSString result) =>-          Internals -> Maybe node -> m result-address self node-  = liftIO-      (fromJSString <$>-         (js_address (self) (maybeToNullable (fmap toNode node))))- -foreign import javascript unsafe-        "($1[\"nodeNeedsStyleRecalc\"]($2) ? 1 : 0)"-        js_nodeNeedsStyleRecalc :: Internals -> Nullable Node -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodeNeedsStyleRecalc Mozilla Internals.nodeNeedsStyleRecalc documentation> -nodeNeedsStyleRecalc ::-                     (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool-nodeNeedsStyleRecalc self node-  = liftIO-      (js_nodeNeedsStyleRecalc (self)-         (maybeToNullable (fmap toNode node)))- -foreign import javascript unsafe "$1[\"description\"]($2)"-        js_description :: Internals -> JSVal -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.description Mozilla Internals.description documentation> -description ::-            (MonadIO m, FromJSString result) => Internals -> JSVal -> m result-description self value-  = liftIO (fromJSString <$> (js_description (self) value))- -foreign import javascript unsafe-        "($1[\"hasPausedImageAnimations\"]($2) ? 1 : 0)"-        js_hasPausedImageAnimations ::-        Internals -> Nullable Element -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasPausedImageAnimations Mozilla Internals.hasPausedImageAnimations documentation> -hasPausedImageAnimations ::-                         (MonadIO m, IsElement element) =>-                           Internals -> Maybe element -> m Bool-hasPausedImageAnimations self element-  = liftIO-      (js_hasPausedImageAnimations (self)-         (maybeToNullable (fmap toElement element)))- -foreign import javascript unsafe-        "$1[\"elementRenderTreeAsText\"]($2)" js_elementRenderTreeAsText ::-        Internals -> Nullable Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementRenderTreeAsText Mozilla Internals.elementRenderTreeAsText documentation> -elementRenderTreeAsText ::-                        (MonadIO m, IsElement element, FromJSString result) =>-                          Internals -> Maybe element -> m result-elementRenderTreeAsText self element-  = liftIO-      (fromJSString <$>-         (js_elementRenderTreeAsText (self)-            (maybeToNullable (fmap toElement element))))- -foreign import javascript unsafe-        "($1[\"isPreloaded\"]($2) ? 1 : 0)" js_isPreloaded ::-        Internals -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPreloaded Mozilla Internals.isPreloaded documentation> -isPreloaded ::-            (MonadIO m, ToJSString url) => Internals -> url -> m Bool-isPreloaded self url-  = liftIO (js_isPreloaded (self) (toJSString url))- -foreign import javascript unsafe-        "($1[\"isLoadingFromMemoryCache\"]($2) ? 1 : 0)"-        js_isLoadingFromMemoryCache :: Internals -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isLoadingFromMemoryCache Mozilla Internals.isLoadingFromMemoryCache documentation> -isLoadingFromMemoryCache ::-                         (MonadIO m, ToJSString url) => Internals -> url -> m Bool-isLoadingFromMemoryCache self url-  = liftIO (js_isLoadingFromMemoryCache (self) (toJSString url))- -foreign import javascript unsafe "$1[\"xhrResponseSource\"]($2)"-        js_xhrResponseSource ::-        Internals -> Nullable XMLHttpRequest -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.xhrResponseSource Mozilla Internals.xhrResponseSource documentation> -xhrResponseSource ::-                  (MonadIO m, FromJSString result) =>-                    Internals -> Maybe XMLHttpRequest -> m result-xhrResponseSource self xhr-  = liftIO-      (fromJSString <$>-         (js_xhrResponseSource (self) (maybeToNullable xhr)))- -foreign import javascript unsafe "$1[\"clearMemoryCache\"]()"-        js_clearMemoryCache :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.clearMemoryCache Mozilla Internals.clearMemoryCache documentation> -clearMemoryCache :: (MonadIO m) => Internals -> m ()-clearMemoryCache self = liftIO (js_clearMemoryCache (self))- -foreign import javascript unsafe-        "$1[\"pruneMemoryCacheToSize\"]($2)" js_pruneMemoryCacheToSize ::-        Internals -> Int -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pruneMemoryCacheToSize Mozilla Internals.pruneMemoryCacheToSize documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryCacheSize Mozilla Internals.memoryCacheSize documentation> -memoryCacheSize :: (MonadIO m) => Internals -> m Int-memoryCacheSize self = liftIO (js_memoryCacheSize (self))- -foreign import javascript unsafe "$1[\"clearPageCache\"]()"-        js_clearPageCache :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.clearPageCache Mozilla Internals.clearPageCache documentation> -clearPageCache :: (MonadIO m) => Internals -> m ()-clearPageCache self = liftIO (js_clearPageCache (self))- -foreign import javascript unsafe "$1[\"pageCacheSize\"]()"-        js_pageCacheSize :: Internals -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageCacheSize Mozilla Internals.pageCacheSize documentation> -pageCacheSize :: (MonadIO m) => Internals -> m Word-pageCacheSize self = liftIO (js_pageCacheSize (self))- -foreign import javascript unsafe-        "$1[\"computedStyleIncludingVisitedInfo\"]($2)"-        js_computedStyleIncludingVisitedInfo ::-        Internals -> Nullable Node -> IO (Nullable CSSStyleDeclaration)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.computedStyleIncludingVisitedInfo Mozilla Internals.computedStyleIncludingVisitedInfo documentation> -computedStyleIncludingVisitedInfo ::-                                  (MonadIO m, IsNode node) =>-                                    Internals -> Maybe node -> m (Maybe CSSStyleDeclaration)-computedStyleIncludingVisitedInfo self node-  = liftIO-      (nullableToMaybe <$>-         (js_computedStyleIncludingVisitedInfo (self)-            (maybeToNullable (fmap toNode node))))- -foreign import javascript unsafe "$1[\"ensureShadowRoot\"]($2)"-        js_ensureShadowRoot ::-        Internals -> Nullable Element -> IO (Nullable Node)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.ensureShadowRoot Mozilla Internals.ensureShadowRoot documentation> -ensureShadowRoot ::-                 (MonadIO m, IsElement host) =>-                   Internals -> Maybe host -> m (Maybe Node)-ensureShadowRoot self host-  = liftIO-      (nullableToMaybe <$>-         (js_ensureShadowRoot (self)-            (maybeToNullable (fmap toElement host))))- -foreign import javascript unsafe "$1[\"createShadowRoot\"]($2)"-        js_createShadowRoot ::-        Internals -> Nullable Element -> IO (Nullable Node)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createShadowRoot Mozilla Internals.createShadowRoot documentation> -createShadowRoot ::-                 (MonadIO m, IsElement host) =>-                   Internals -> Maybe host -> m (Maybe Node)-createShadowRoot self host-  = liftIO-      (nullableToMaybe <$>-         (js_createShadowRoot (self)-            (maybeToNullable (fmap toElement host))))- -foreign import javascript unsafe "$1[\"shadowRoot\"]($2)"-        js_shadowRoot ::-        Internals -> Nullable Element -> IO (Nullable Node)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRoot Mozilla Internals.shadowRoot documentation> -shadowRoot ::-           (MonadIO m, IsElement host) =>-             Internals -> Maybe host -> m (Maybe Node)-shadowRoot self host-  = liftIO-      (nullableToMaybe <$>-         (js_shadowRoot (self) (maybeToNullable (fmap toElement host))))- -foreign import javascript unsafe "$1[\"shadowRootType\"]($2)"-        js_shadowRootType :: Internals -> Nullable Node -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRootType Mozilla Internals.shadowRootType documentation> -shadowRootType ::-               (MonadIO m, IsNode root, FromJSString result) =>-                 Internals -> Maybe root -> m result-shadowRootType self root-  = liftIO-      (fromJSString <$>-         (js_shadowRootType (self) (maybeToNullable (fmap toNode root))))- -foreign import javascript unsafe "$1[\"includerFor\"]($2)"-        js_includerFor ::-        Internals -> Nullable Node -> IO (Nullable Element)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.includerFor Mozilla Internals.includerFor documentation> -includerFor ::-            (MonadIO m, IsNode node) =>-              Internals -> Maybe node -> m (Maybe Element)-includerFor self node-  = liftIO-      (nullableToMaybe <$>-         (js_includerFor (self) (maybeToNullable (fmap toNode node))))- -foreign import javascript unsafe "$1[\"shadowPseudoId\"]($2)"-        js_shadowPseudoId :: Internals -> Nullable Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowPseudoId Mozilla Internals.shadowPseudoId documentation> -shadowPseudoId ::-               (MonadIO m, IsElement element, FromJSString result) =>-                 Internals -> Maybe element -> m result-shadowPseudoId self element-  = liftIO-      (fromJSString <$>-         (js_shadowPseudoId (self)-            (maybeToNullable (fmap toElement element))))- -foreign import javascript unsafe-        "$1[\"setShadowPseudoId\"]($2, $3)" js_setShadowPseudoId ::-        Internals -> Nullable Element -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setShadowPseudoId Mozilla Internals.setShadowPseudoId documentation> -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.treeScopeRootNode Mozilla Internals.treeScopeRootNode documentation> -treeScopeRootNode ::-                  (MonadIO m, IsNode node) =>-                    Internals -> Maybe node -> m (Maybe Node)-treeScopeRootNode self node-  = liftIO-      (nullableToMaybe <$>-         (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node))))- -foreign import javascript unsafe "$1[\"parentTreeScope\"]($2)"-        js_parentTreeScope ::-        Internals -> Nullable Node -> IO (Nullable Node)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parentTreeScope Mozilla Internals.parentTreeScope documentation> -parentTreeScope ::-                (MonadIO m, IsNode node) =>-                  Internals -> Maybe node -> m (Maybe Node)-parentTreeScope self node-  = liftIO-      (nullableToMaybe <$>-         (js_parentTreeScope (self) (maybeToNullable (fmap toNode node))))- -foreign import javascript unsafe-        "$1[\"lastSpatialNavigationCandidateCount\"]()"-        js_lastSpatialNavigationCandidateCount :: Internals -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpatialNavigationCandidateCount Mozilla Internals.lastSpatialNavigationCandidateCount documentation> -lastSpatialNavigationCandidateCount ::-                                    (MonadIO m) => Internals -> m Word-lastSpatialNavigationCandidateCount self-  = liftIO (js_lastSpatialNavigationCandidateCount (self))- -foreign import javascript unsafe-        "$1[\"numberOfActiveAnimations\"]()" js_numberOfActiveAnimations ::-        Internals -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfActiveAnimations Mozilla Internals.numberOfActiveAnimations documentation> -numberOfActiveAnimations :: (MonadIO m) => Internals -> m Word-numberOfActiveAnimations self-  = liftIO (js_numberOfActiveAnimations (self))- -foreign import javascript unsafe "$1[\"suspendAnimations\"]()"-        js_suspendAnimations :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.suspendAnimations Mozilla Internals.suspendAnimations documentation> -suspendAnimations :: (MonadIO m) => Internals -> m ()-suspendAnimations self = liftIO (js_suspendAnimations (self))- -foreign import javascript unsafe "$1[\"resumeAnimations\"]()"-        js_resumeAnimations :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.resumeAnimations Mozilla Internals.resumeAnimations documentation> -resumeAnimations :: (MonadIO m) => Internals -> m ()-resumeAnimations self = liftIO (js_resumeAnimations (self))- -foreign import javascript unsafe-        "($1[\"animationsAreSuspended\"]() ? 1 : 0)"-        js_animationsAreSuspended :: Internals -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.animationsAreSuspended Mozilla Internals.animationsAreSuspended documentation> -animationsAreSuspended :: (MonadIO m) => Internals -> m Bool-animationsAreSuspended self-  = liftIO (js_animationsAreSuspended (self))- -foreign import javascript unsafe-        "($1[\"pauseAnimationAtTimeOnElement\"]($2,\n$3, $4) ? 1 : 0)"-        js_pauseAnimationAtTimeOnElement ::-        Internals -> JSString -> Double -> Nullable Element -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseAnimationAtTimeOnElement Mozilla Internals.pauseAnimationAtTimeOnElement documentation> -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)))- -foreign import javascript unsafe-        "($1[\"pauseAnimationAtTimeOnPseudoElement\"]($2,\n$3, $4, $5) ? 1 : 0)"-        js_pauseAnimationAtTimeOnPseudoElement ::-        Internals ->-          JSString -> Double -> Nullable Element -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseAnimationAtTimeOnPseudoElement Mozilla Internals.pauseAnimationAtTimeOnPseudoElement documentation> -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))- -foreign import javascript unsafe-        "($1[\"pauseTransitionAtTimeOnElement\"]($2,\n$3, $4) ? 1 : 0)"-        js_pauseTransitionAtTimeOnElement ::-        Internals -> JSString -> Double -> Nullable Element -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseTransitionAtTimeOnElement Mozilla Internals.pauseTransitionAtTimeOnElement documentation> -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)))- -foreign import javascript unsafe-        "($1[\"pauseTransitionAtTimeOnPseudoElement\"]($2,\n$3, $4, $5) ? 1 : 0)"-        js_pauseTransitionAtTimeOnPseudoElement ::-        Internals ->-          JSString -> Double -> Nullable Element -> JSString -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseTransitionAtTimeOnPseudoElement Mozilla Internals.pauseTransitionAtTimeOnPseudoElement documentation> -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))- -foreign import javascript unsafe "($1[\"attached\"]($2) ? 1 : 0)"-        js_attached :: Internals -> Nullable Node -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.attached Mozilla Internals.attached documentation> -attached ::-         (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool-attached self node-  = liftIO (js_attached (self) (maybeToNullable (fmap toNode node)))- -foreign import javascript unsafe "$1[\"visiblePlaceholder\"]($2)"-        js_visiblePlaceholder ::-        Internals -> Nullable Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.visiblePlaceholder Mozilla Internals.visiblePlaceholder documentation> -visiblePlaceholder ::-                   (MonadIO m, IsElement element, FromJSString result) =>-                     Internals -> Maybe element -> m result-visiblePlaceholder self element-  = liftIO-      (fromJSString <$>-         (js_visiblePlaceholder (self)-            (maybeToNullable (fmap toElement element))))- -foreign import javascript unsafe-        "$1[\"selectColorInColorChooser\"]($2,\n$3)"-        js_selectColorInColorChooser ::-        Internals -> Nullable Element -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectColorInColorChooser Mozilla Internals.selectColorInColorChooser documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.formControlStateOfPreviousHistoryItem Mozilla Internals.formControlStateOfPreviousHistoryItem documentation> -formControlStateOfPreviousHistoryItem ::-                                      (MonadIO m, FromJSString result) => Internals -> m [result]-formControlStateOfPreviousHistoryItem self-  = liftIO-      ((js_formControlStateOfPreviousHistoryItem (self)) >>=-         fromJSValUnchecked)- -foreign import javascript unsafe-        "$1[\"setFormControlStateOfPreviousHistoryItem\"]($2)"-        js_setFormControlStateOfPreviousHistoryItem ::-        Internals -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setFormControlStateOfPreviousHistoryItem Mozilla Internals.setFormControlStateOfPreviousHistoryItem documentation> -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.absoluteCaretBounds Mozilla Internals.absoluteCaretBounds documentation> -absoluteCaretBounds ::-                    (MonadIO m) => Internals -> m (Maybe ClientRect)-absoluteCaretBounds self-  = liftIO (nullableToMaybe <$> (js_absoluteCaretBounds (self)))- -foreign import javascript unsafe "$1[\"boundingBox\"]($2)"-        js_boundingBox ::-        Internals -> Nullable Element -> IO (Nullable ClientRect)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.boundingBox Mozilla Internals.boundingBox documentation> -boundingBox ::-            (MonadIO m, IsElement element) =>-              Internals -> Maybe element -> m (Maybe ClientRect)-boundingBox self element-  = liftIO-      (nullableToMaybe <$>-         (js_boundingBox (self) (maybeToNullable (fmap toElement element))))- -foreign import javascript unsafe-        "$1[\"inspectorHighlightRects\"]()" js_inspectorHighlightRects ::-        Internals -> IO (Nullable ClientRectList)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightRects Mozilla Internals.inspectorHighlightRects documentation> -inspectorHighlightRects ::-                        (MonadIO m) => Internals -> m (Maybe ClientRectList)-inspectorHighlightRects self-  = liftIO (nullableToMaybe <$> (js_inspectorHighlightRects (self)))- -foreign import javascript unsafe-        "$1[\"inspectorHighlightObject\"]()" js_inspectorHighlightObject ::-        Internals -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightObject Mozilla Internals.inspectorHighlightObject documentation> -inspectorHighlightObject ::-                         (MonadIO m, FromJSString result) => Internals -> m result-inspectorHighlightObject self-  = liftIO (fromJSString <$> (js_inspectorHighlightObject (self)))- -foreign import javascript unsafe-        "$1[\"markerCountForNode\"]($2, $3)" js_markerCountForNode ::-        Internals -> Nullable Node -> JSString -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerCountForNode Mozilla Internals.markerCountForNode documentation> -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))- -foreign import javascript unsafe-        "$1[\"markerRangeForNode\"]($2, $3,\n$4)" js_markerRangeForNode ::-        Internals ->-          Nullable Node -> JSString -> Word -> IO (Nullable Range)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerRangeForNode Mozilla Internals.markerRangeForNode documentation> -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))- -foreign import javascript unsafe-        "$1[\"markerDescriptionForNode\"]($2,\n$3, $4)"-        js_markerDescriptionForNode ::-        Internals -> Nullable Node -> JSString -> Word -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerDescriptionForNode Mozilla Internals.markerDescriptionForNode documentation> -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))- -foreign import javascript unsafe-        "$1[\"addTextMatchMarker\"]($2, $3)" js_addTextMatchMarker ::-        Internals -> Nullable Range -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.addTextMatchMarker Mozilla Internals.addTextMatchMarker documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setMarkedTextMatchesAreHighlighted Mozilla Internals.setMarkedTextMatchesAreHighlighted documentation> -setMarkedTextMatchesAreHighlighted ::-                                   (MonadIO m) => Internals -> Bool -> m ()-setMarkedTextMatchesAreHighlighted self flag-  = liftIO (js_setMarkedTextMatchesAreHighlighted (self) flag)- -foreign import javascript unsafe "$1[\"invalidateFontCache\"]()"-        js_invalidateFontCache :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.invalidateFontCache Mozilla Internals.invalidateFontCache documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setScrollViewPosition Mozilla Internals.setScrollViewPosition documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPagination Mozilla Internals.setPagination documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.configurationForViewport Mozilla Internals.configurationForViewport documentation> -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))- -foreign import javascript unsafe-        "($1[\"wasLastChangeUserEdit\"]($2) ? 1 : 0)"-        js_wasLastChangeUserEdit ::-        Internals -> Nullable Element -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wasLastChangeUserEdit Mozilla Internals.wasLastChangeUserEdit documentation> -wasLastChangeUserEdit ::-                      (MonadIO m, IsElement textField) =>-                        Internals -> Maybe textField -> m Bool-wasLastChangeUserEdit self textField-  = liftIO-      (js_wasLastChangeUserEdit (self)-         (maybeToNullable (fmap toElement textField)))- -foreign import javascript unsafe-        "($1[\"elementShouldAutoComplete\"]($2) ? 1 : 0)"-        js_elementShouldAutoComplete ::-        Internals -> Nullable Element -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementShouldAutoComplete Mozilla Internals.elementShouldAutoComplete documentation> -elementShouldAutoComplete ::-                          (MonadIO m, IsElement inputElement) =>-                            Internals -> Maybe inputElement -> m Bool-elementShouldAutoComplete self inputElement-  = liftIO-      (js_elementShouldAutoComplete (self)-         (maybeToNullable (fmap toElement inputElement)))- -foreign import javascript unsafe "$1[\"setEditingValue\"]($2, $3)"-        js_setEditingValue ::-        Internals -> Nullable Element -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setEditingValue Mozilla Internals.setEditingValue documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutofilled Mozilla Internals.setAutofilled documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.countMatchesForText Mozilla Internals.countMatchesForText documentation> -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))- -foreign import javascript unsafe "$1[\"paintControlTints\"]()"-        js_paintControlTints :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.paintControlTints Mozilla Internals.paintControlTints documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.scrollElementToRect Mozilla Internals.scrollElementToRect documentation> -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeFromLocationAndLength Mozilla Internals.rangeFromLocationAndLength documentation> -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))- -foreign import javascript unsafe-        "$1[\"locationFromRange\"]($2, $3)" js_locationFromRange ::-        Internals -> Nullable Element -> Nullable Range -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.locationFromRange Mozilla Internals.locationFromRange documentation> -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))- -foreign import javascript unsafe "$1[\"lengthFromRange\"]($2, $3)"-        js_lengthFromRange ::-        Internals -> Nullable Element -> Nullable Range -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lengthFromRange Mozilla Internals.lengthFromRange documentation> -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))- -foreign import javascript unsafe "$1[\"rangeAsText\"]($2)"-        js_rangeAsText :: Internals -> Nullable Range -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeAsText Mozilla Internals.rangeAsText documentation> -rangeAsText ::-            (MonadIO m, FromJSString result) =>-              Internals -> Maybe Range -> m result-rangeAsText self range-  = liftIO-      (fromJSString <$> (js_rangeAsText (self) (maybeToNullable range)))- -foreign import javascript unsafe "$1[\"subrange\"]($2, $3, $4)"-        js_subrange ::-        Internals -> Nullable Range -> Int -> Int -> IO (Nullable Range)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.subrange Mozilla Internals.subrange documentation> -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))- -foreign import javascript unsafe-        "$1[\"rangeForDictionaryLookupAtLocation\"]($2,\n$3)"-        js_rangeForDictionaryLookupAtLocation ::-        Internals -> Int -> Int -> IO (Nullable Range)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeForDictionaryLookupAtLocation Mozilla Internals.rangeForDictionaryLookupAtLocation documentation> -rangeForDictionaryLookupAtLocation ::-                                   (MonadIO m) => Internals -> Int -> Int -> m (Maybe Range)-rangeForDictionaryLookupAtLocation self x y-  = liftIO-      (nullableToMaybe <$>-         (js_rangeForDictionaryLookupAtLocation (self) x y))- -foreign import javascript unsafe-        "$1[\"setDelegatesScrolling\"]($2)" js_setDelegatesScrolling ::-        Internals -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setDelegatesScrolling Mozilla Internals.setDelegatesScrolling documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckRequestSequence Mozilla Internals.lastSpellCheckRequestSequence documentation> -lastSpellCheckRequestSequence :: (MonadIO m) => Internals -> m Int-lastSpellCheckRequestSequence self-  = liftIO (js_lastSpellCheckRequestSequence (self))- -foreign import javascript unsafe-        "$1[\"lastSpellCheckProcessedSequence\"]()"-        js_lastSpellCheckProcessedSequence :: Internals -> IO Int---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckProcessedSequence Mozilla Internals.lastSpellCheckProcessedSequence documentation> -lastSpellCheckProcessedSequence ::-                                (MonadIO m) => Internals -> m Int-lastSpellCheckProcessedSequence self-  = liftIO (js_lastSpellCheckProcessedSequence (self))- -foreign import javascript unsafe "$1[\"userPreferredLanguages\"]()"-        js_userPreferredLanguages :: Internals -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.userPreferredLanguages Mozilla Internals.userPreferredLanguages documentation> -userPreferredLanguages ::-                       (MonadIO m, FromJSString result) => Internals -> m [result]-userPreferredLanguages self-  = liftIO-      ((js_userPreferredLanguages (self)) >>= fromJSValUnchecked)- -foreign import javascript unsafe-        "$1[\"setUserPreferredLanguages\"]($2)"-        js_setUserPreferredLanguages :: Internals -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setUserPreferredLanguages Mozilla Internals.setUserPreferredLanguages documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wheelEventHandlerCount Mozilla Internals.wheelEventHandlerCount documentation> -wheelEventHandlerCount :: (MonadIO m) => Internals -> m Word-wheelEventHandlerCount self-  = liftIO (js_wheelEventHandlerCount (self))- -foreign import javascript unsafe "$1[\"touchEventHandlerCount\"]()"-        js_touchEventHandlerCount :: Internals -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.touchEventHandlerCount Mozilla Internals.touchEventHandlerCount documentation> -touchEventHandlerCount :: (MonadIO m) => Internals -> m Word-touchEventHandlerCount self-  = liftIO (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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodesFromRect Mozilla Internals.nodesFromRect documentation> -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))- -foreign import javascript unsafe "$1[\"parserMetaData\"]($2)"-        js_parserMetaData :: Internals -> JSVal -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parserMetaData Mozilla Internals.parserMetaData documentation> -parserMetaData ::-               (MonadIO m, FromJSString result) => Internals -> JSVal -> m result-parserMetaData self func-  = liftIO (fromJSString <$> (js_parserMetaData (self) func))- -foreign import javascript unsafe-        "$1[\"updateEditorUINowIfScheduled\"]()"-        js_updateEditorUINowIfScheduled :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.updateEditorUINowIfScheduled Mozilla Internals.updateEditorUINowIfScheduled documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasSpellingMarker Mozilla Internals.hasSpellingMarker documentation> -hasSpellingMarker ::-                  (MonadIO m) => Internals -> Int -> Int -> m Bool-hasSpellingMarker self from length-  = liftIO (js_hasSpellingMarker (self) from length)- -foreign import javascript unsafe-        "($1[\"hasGrammarMarker\"]($2,\n$3) ? 1 : 0)" js_hasGrammarMarker-        :: Internals -> Int -> Int -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasGrammarMarker Mozilla Internals.hasGrammarMarker documentation> -hasGrammarMarker ::-                 (MonadIO m) => Internals -> Int -> Int -> m Bool-hasGrammarMarker self from length-  = liftIO (js_hasGrammarMarker (self) from length)- -foreign import javascript unsafe-        "($1[\"hasAutocorrectedMarker\"]($2,\n$3) ? 1 : 0)"-        js_hasAutocorrectedMarker :: Internals -> Int -> Int -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasAutocorrectedMarker Mozilla Internals.hasAutocorrectedMarker documentation> -hasAutocorrectedMarker ::-                       (MonadIO m) => Internals -> Int -> Int -> m Bool-hasAutocorrectedMarker self from length-  = liftIO (js_hasAutocorrectedMarker (self) from length)- -foreign import javascript unsafe-        "$1[\"setContinuousSpellCheckingEnabled\"]($2)"-        js_setContinuousSpellCheckingEnabled :: Internals -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setContinuousSpellCheckingEnabled Mozilla Internals.setContinuousSpellCheckingEnabled documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticQuoteSubstitutionEnabled Mozilla Internals.setAutomaticQuoteSubstitutionEnabled documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticLinkDetectionEnabled Mozilla Internals.setAutomaticLinkDetectionEnabled documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticDashSubstitutionEnabled Mozilla Internals.setAutomaticDashSubstitutionEnabled documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticTextReplacementEnabled Mozilla Internals.setAutomaticTextReplacementEnabled documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticSpellingCorrectionEnabled Mozilla Internals.setAutomaticSpellingCorrectionEnabled documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isOverwriteModeEnabled Mozilla Internals.isOverwriteModeEnabled documentation> -isOverwriteModeEnabled :: (MonadIO m) => Internals -> m Bool-isOverwriteModeEnabled self-  = liftIO (js_isOverwriteModeEnabled (self))- -foreign import javascript unsafe-        "$1[\"toggleOverwriteModeEnabled\"]()"-        js_toggleOverwriteModeEnabled :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.toggleOverwriteModeEnabled Mozilla Internals.toggleOverwriteModeEnabled documentation> -toggleOverwriteModeEnabled :: (MonadIO m) => Internals -> m ()-toggleOverwriteModeEnabled self-  = liftIO (js_toggleOverwriteModeEnabled (self))- -foreign import javascript unsafe-        "$1[\"numberOfScrollableAreas\"]()" js_numberOfScrollableAreas ::-        Internals -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfScrollableAreas Mozilla Internals.numberOfScrollableAreas documentation> -numberOfScrollableAreas :: (MonadIO m) => Internals -> m Word-numberOfScrollableAreas self-  = liftIO (js_numberOfScrollableAreas (self))- -foreign import javascript unsafe-        "($1[\"isPageBoxVisible\"]($2) ? 1 : 0)" js_isPageBoxVisible ::-        Internals -> Int -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPageBoxVisible Mozilla Internals.isPageBoxVisible documentation> -isPageBoxVisible :: (MonadIO m) => Internals -> Int -> m Bool-isPageBoxVisible self pageNumber-  = liftIO (js_isPageBoxVisible (self) pageNumber)- -foreign import javascript unsafe "$1[\"layerTreeAsText\"]($2, $3)"-        js_layerTreeAsText ::-        Internals -> Nullable Document -> Word -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.layerTreeAsText Mozilla Internals.layerTreeAsText documentation> -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))- -foreign import javascript unsafe-        "$1[\"scrollingStateTreeAsText\"]()" js_scrollingStateTreeAsText ::-        Internals -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.scrollingStateTreeAsText Mozilla Internals.scrollingStateTreeAsText documentation> -scrollingStateTreeAsText ::-                         (MonadIO m, FromJSString result) => Internals -> m result-scrollingStateTreeAsText self-  = liftIO (fromJSString <$> (js_scrollingStateTreeAsText (self)))- -foreign import javascript unsafe-        "$1[\"mainThreadScrollingReasons\"]()"-        js_mainThreadScrollingReasons :: Internals -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mainThreadScrollingReasons Mozilla Internals.mainThreadScrollingReasons documentation> -mainThreadScrollingReasons ::-                           (MonadIO m, FromJSString result) => Internals -> m result-mainThreadScrollingReasons self-  = liftIO (fromJSString <$> (js_mainThreadScrollingReasons (self)))- -foreign import javascript unsafe "$1[\"nonFastScrollableRects\"]()"-        js_nonFastScrollableRects ::-        Internals -> IO (Nullable ClientRectList)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nonFastScrollableRects Mozilla Internals.nonFastScrollableRects documentation> -nonFastScrollableRects ::-                       (MonadIO m) => Internals -> m (Maybe ClientRectList)-nonFastScrollableRects self-  = liftIO (nullableToMaybe <$> (js_nonFastScrollableRects (self)))- -foreign import javascript unsafe "$1[\"repaintRectsAsText\"]()"-        js_repaintRectsAsText :: Internals -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.repaintRectsAsText Mozilla Internals.repaintRectsAsText documentation> -repaintRectsAsText ::-                   (MonadIO m, FromJSString result) => Internals -> m result-repaintRectsAsText self-  = liftIO (fromJSString <$> (js_repaintRectsAsText (self)))- -foreign import javascript unsafe-        "$1[\"garbageCollectDocumentResources\"]()"-        js_garbageCollectDocumentResources :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.garbageCollectDocumentResources Mozilla Internals.garbageCollectDocumentResources documentation> -garbageCollectDocumentResources :: (MonadIO m) => Internals -> m ()-garbageCollectDocumentResources self-  = liftIO (js_garbageCollectDocumentResources (self))- -foreign import javascript unsafe "$1[\"allowRoundingHacks\"]()"-        js_allowRoundingHacks :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.allowRoundingHacks Mozilla Internals.allowRoundingHacks documentation> -allowRoundingHacks :: (MonadIO m) => Internals -> m ()-allowRoundingHacks self = liftIO (js_allowRoundingHacks (self))- -foreign import javascript unsafe "$1[\"insertAuthorCSS\"]($2)"-        js_insertAuthorCSS :: Internals -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.insertAuthorCSS Mozilla Internals.insertAuthorCSS documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.insertUserCSS Mozilla Internals.insertUserCSS documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setBatteryStatus Mozilla Internals.setBatteryStatus documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setDeviceProximity Mozilla Internals.setDeviceProximity documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveNodes Mozilla Internals.numberOfLiveNodes documentation> -numberOfLiveNodes :: (MonadIO m) => Internals -> m Word-numberOfLiveNodes self = liftIO (js_numberOfLiveNodes (self))- -foreign import javascript unsafe "$1[\"numberOfLiveDocuments\"]()"-        js_numberOfLiveDocuments :: Internals -> IO Word---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveDocuments Mozilla Internals.numberOfLiveDocuments documentation> -numberOfLiveDocuments :: (MonadIO m) => Internals -> m Word-numberOfLiveDocuments self-  = liftIO (js_numberOfLiveDocuments (self))- -foreign import javascript unsafe-        "$1[\"consoleMessageArgumentCounts\"]()"-        js_consoleMessageArgumentCounts :: Internals -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.consoleMessageArgumentCounts Mozilla Internals.consoleMessageArgumentCounts documentation> -consoleMessageArgumentCounts ::-                             (MonadIO m, FromJSString result) => Internals -> m [result]-consoleMessageArgumentCounts self-  = liftIO-      ((js_consoleMessageArgumentCounts (self)) >>= fromJSValUnchecked)- -foreign import javascript unsafe-        "$1[\"openDummyInspectorFrontend\"]($2)"-        js_openDummyInspectorFrontend ::-        Internals -> JSString -> IO (Nullable Window)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.openDummyInspectorFrontend Mozilla Internals.openDummyInspectorFrontend documentation> -openDummyInspectorFrontend ::-                           (MonadIO m, ToJSString url) => Internals -> url -> m (Maybe Window)-openDummyInspectorFrontend self url-  = liftIO-      (nullableToMaybe <$>-         (js_openDummyInspectorFrontend (self) (toJSString url)))- -foreign import javascript unsafe-        "$1[\"closeDummyInspectorFrontend\"]()"-        js_closeDummyInspectorFrontend :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.closeDummyInspectorFrontend Mozilla Internals.closeDummyInspectorFrontend documentation> -closeDummyInspectorFrontend :: (MonadIO m) => Internals -> m ()-closeDummyInspectorFrontend self-  = liftIO (js_closeDummyInspectorFrontend (self))- -foreign import javascript unsafe-        "$1[\"setJavaScriptProfilingEnabled\"]($2)"-        js_setJavaScriptProfilingEnabled :: Internals -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setJavaScriptProfilingEnabled Mozilla Internals.setJavaScriptProfilingEnabled documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setInspectorIsUnderTest Mozilla Internals.setInspectorIsUnderTest documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.counterValue Mozilla Internals.counterValue documentation> -counterValue ::-             (MonadIO m, IsElement element, FromJSString result) =>-               Internals -> Maybe element -> m result-counterValue self element-  = liftIO-      (fromJSString <$>-         (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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageNumber Mozilla Internals.pageNumber documentation> -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)- -foreign import javascript unsafe "$1[\"shortcutIconURLs\"]()"-        js_shortcutIconURLs :: Internals -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shortcutIconURLs Mozilla Internals.shortcutIconURLs documentation> -shortcutIconURLs ::-                 (MonadIO m, FromJSString result) => Internals -> m [result]-shortcutIconURLs self-  = liftIO ((js_shortcutIconURLs (self)) >>= fromJSValUnchecked)- -foreign import javascript unsafe "$1[\"allIconURLs\"]()"-        js_allIconURLs :: Internals -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.allIconURLs Mozilla Internals.allIconURLs documentation> -allIconURLs ::-            (MonadIO m, FromJSString result) => Internals -> m [result]-allIconURLs self-  = liftIO ((js_allIconURLs (self)) >>= fromJSValUnchecked)- -foreign import javascript unsafe "$1[\"numberOfPages\"]($2, $3)"-        js_numberOfPages :: Internals -> Double -> Double -> IO Int---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfPages Mozilla Internals.numberOfPages documentation> -numberOfPages ::-              (MonadIO m) => Internals -> Double -> Double -> m Int-numberOfPages self pageWidthInPixels pageHeightInPixels-  = liftIO-      (js_numberOfPages (self) pageWidthInPixels pageHeightInPixels)- -foreign import javascript unsafe "$1[\"pageProperty\"]($2, $3)"-        js_pageProperty :: Internals -> JSString -> Int -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageProperty Mozilla Internals.pageProperty documentation> -pageProperty ::-             (MonadIO m, ToJSString propertyName, FromJSString result) =>-               Internals -> propertyName -> Int -> m result-pageProperty self propertyName pageNumber-  = liftIO-      (fromJSString <$>-         (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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageSizeAndMarginsInPixels Mozilla Internals.pageSizeAndMarginsInPixels documentation> -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))- -foreign import javascript unsafe-        "$1[\"setPageScaleFactor\"]($2, $3,\n$4)" js_setPageScaleFactor ::-        Internals -> Float -> Int -> Int -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageScaleFactor Mozilla Internals.setPageScaleFactor documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageZoomFactor Mozilla Internals.setPageZoomFactor documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setHeaderHeight Mozilla Internals.setHeaderHeight documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setFooterHeight Mozilla Internals.setFooterHeight documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setTopContentInset Mozilla Internals.setTopContentInset documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitWillEnterFullScreenForElement Mozilla Internals.webkitWillEnterFullScreenForElement documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitDidEnterFullScreenForElement Mozilla Internals.webkitDidEnterFullScreenForElement documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitWillExitFullScreenForElement Mozilla Internals.webkitWillExitFullScreenForElement documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitDidExitFullScreenForElement Mozilla Internals.webkitDidExitFullScreenForElement documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setApplicationCacheOriginQuota Mozilla Internals.setApplicationCacheOriginQuota documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.registerURLSchemeAsBypassingContentSecurityPolicy Mozilla Internals.registerURLSchemeAsBypassingContentSecurityPolicy documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.removeURLSchemeRegisteredAsBypassingContentSecurityPolicy Mozilla Internals.removeURLSchemeRegisteredAsBypassingContentSecurityPolicy documentation> -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mallocStatistics Mozilla Internals.mallocStatistics documentation> -mallocStatistics ::-                 (MonadIO m) => Internals -> m (Maybe MallocStatistics)-mallocStatistics self-  = liftIO (nullableToMaybe <$> (js_mallocStatistics (self)))- -foreign import javascript unsafe "$1[\"typeConversions\"]()"-        js_typeConversions :: Internals -> IO (Nullable TypeConversions)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.typeConversions Mozilla Internals.typeConversions documentation> -typeConversions ::-                (MonadIO m) => Internals -> m (Maybe TypeConversions)-typeConversions self-  = liftIO (nullableToMaybe <$> (js_typeConversions (self)))- -foreign import javascript unsafe "$1[\"memoryInfo\"]()"-        js_memoryInfo :: Internals -> IO (Nullable MemoryInfo)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryInfo Mozilla Internals.memoryInfo documentation> -memoryInfo :: (MonadIO m) => Internals -> m (Maybe MemoryInfo)-memoryInfo self-  = liftIO (nullableToMaybe <$> (js_memoryInfo (self)))- -foreign import javascript unsafe "$1[\"getReferencedFilePaths\"]()"-        js_getReferencedFilePaths :: Internals -> IO JSVal---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getReferencedFilePaths Mozilla Internals.getReferencedFilePaths documentation> -getReferencedFilePaths ::-                       (MonadIO m, FromJSString result) => Internals -> m [result]-getReferencedFilePaths self-  = liftIO-      ((js_getReferencedFilePaths (self)) >>= fromJSValUnchecked)- -foreign import javascript unsafe "$1[\"startTrackingRepaints\"]()"-        js_startTrackingRepaints :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.startTrackingRepaints Mozilla Internals.startTrackingRepaints documentation> -startTrackingRepaints :: (MonadIO m) => Internals -> m ()-startTrackingRepaints self-  = liftIO (js_startTrackingRepaints (self))- -foreign import javascript unsafe "$1[\"stopTrackingRepaints\"]()"-        js_stopTrackingRepaints :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.stopTrackingRepaints Mozilla Internals.stopTrackingRepaints documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isTimerThrottled Mozilla Internals.isTimerThrottled documentation> -isTimerThrottled :: (MonadIO m) => Internals -> Int -> m Bool-isTimerThrottled self timerHandle-  = liftIO (js_isTimerThrottled (self) timerHandle)- -foreign import javascript unsafe-        "$1[\"updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks\"]($2)"-        js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks ::-        Internals -> Nullable Node -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks Mozilla Internals.updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getCurrentCursorInfo Mozilla Internals.getCurrentCursorInfo documentation> -getCurrentCursorInfo ::-                     (MonadIO m, FromJSString result) => Internals -> m result-getCurrentCursorInfo self-  = liftIO (fromJSString <$> (js_getCurrentCursorInfo (self)))- -foreign import javascript unsafe-        "$1[\"markerTextForListItem\"]($2)" js_markerTextForListItem ::-        Internals -> Nullable Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerTextForListItem Mozilla Internals.markerTextForListItem documentation> -markerTextForListItem ::-                      (MonadIO m, IsElement element, FromJSString result) =>-                        Internals -> Maybe element -> m result-markerTextForListItem self element-  = liftIO-      (fromJSString <$>-         (js_markerTextForListItem (self)-            (maybeToNullable (fmap toElement element))))- -foreign import javascript unsafe "$1[\"toolTipFromElement\"]($2)"-        js_toolTipFromElement ::-        Internals -> Nullable Element -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.toolTipFromElement Mozilla Internals.toolTipFromElement documentation> -toolTipFromElement ::-                   (MonadIO m, IsElement element, FromJSString result) =>-                     Internals -> Maybe element -> m result-toolTipFromElement self element-  = liftIO-      (fromJSString <$>-         (js_toolTipFromElement (self)-            (maybeToNullable (fmap toElement element))))- -foreign import javascript unsafe "$1[\"deserializeBuffer\"]($2)"-        js_deserializeBuffer ::-        Internals ->-          Nullable ArrayBuffer -> IO (Nullable SerializedScriptValue)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.deserializeBuffer Mozilla Internals.deserializeBuffer documentation> -deserializeBuffer ::-                  (MonadIO m, IsArrayBuffer buffer) =>-                    Internals -> Maybe buffer -> m (Maybe SerializedScriptValue)-deserializeBuffer self buffer-  = liftIO-      (nullableToMaybe <$>-         (js_deserializeBuffer (self)-            (maybeToNullable (fmap toArrayBuffer buffer))))- -foreign import javascript unsafe "$1[\"serializeObject\"]($2)"-        js_serializeObject ::-        Internals ->-          Nullable SerializedScriptValue -> IO (Nullable ArrayBuffer)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.serializeObject Mozilla Internals.serializeObject documentation> -serializeObject ::-                (MonadIO m, IsSerializedScriptValue obj) =>-                  Internals -> Maybe obj -> m (Maybe ArrayBuffer)-serializeObject self obj-  = liftIO-      (nullableToMaybe <$>-         (js_serializeObject (self)-            (maybeToNullable (fmap toSerializedScriptValue obj))))- -foreign import javascript unsafe-        "$1[\"setUsesOverlayScrollbars\"]($2)" js_setUsesOverlayScrollbars-        :: Internals -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setUsesOverlayScrollbars Mozilla Internals.setUsesOverlayScrollbars documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.forceReload Mozilla Internals.forceReload documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateAudioInterruption Mozilla Internals.simulateAudioInterruption documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mediaElementHasCharacteristic Mozilla Internals.mediaElementHasCharacteristic documentation> -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))- -foreign import javascript unsafe "$1[\"initializeMockCDM\"]()"-        js_initializeMockCDM :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.initializeMockCDM Mozilla Internals.initializeMockCDM documentation> -initializeMockCDM :: (MonadIO m) => Internals -> m ()-initializeMockCDM self = liftIO (js_initializeMockCDM (self))- -foreign import javascript unsafe-        "$1[\"enableMockSpeechSynthesizer\"]()"-        js_enableMockSpeechSynthesizer :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.enableMockSpeechSynthesizer Mozilla Internals.enableMockSpeechSynthesizer documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getImageSourceURL Mozilla Internals.getImageSourceURL documentation> -getImageSourceURL ::-                  (MonadIO m, IsElement element, FromJSString result) =>-                    Internals -> Maybe element -> m result-getImageSourceURL self element-  = liftIO-      (fromJSString <$>-         (js_getImageSourceURL (self)-            (maybeToNullable (fmap toElement element))))- -foreign import javascript unsafe-        "$1[\"captionsStyleSheetOverride\"]()"-        js_captionsStyleSheetOverride :: Internals -> IO JSString---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.captionsStyleSheetOverride Mozilla Internals.captionsStyleSheetOverride documentation> -captionsStyleSheetOverride ::-                           (MonadIO m, FromJSString result) => Internals -> m result-captionsStyleSheetOverride self-  = liftIO (fromJSString <$> (js_captionsStyleSheetOverride (self)))- -foreign import javascript unsafe-        "$1[\"setCaptionsStyleSheetOverride\"]($2)"-        js_setCaptionsStyleSheetOverride :: Internals -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setCaptionsStyleSheetOverride Mozilla Internals.setCaptionsStyleSheetOverride documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPrimaryAudioTrackLanguageOverride Mozilla Internals.setPrimaryAudioTrackLanguageOverride documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setCaptionDisplayMode Mozilla Internals.setCaptionDisplayMode documentation> -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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createTimeRanges Mozilla Internals.createTimeRanges documentation> -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))))- -foreign import javascript unsafe-        "$1[\"closestTimeToTimeRanges\"]($2,\n$3)"-        js_closestTimeToTimeRanges ::-        Internals -> Double -> Nullable TimeRanges -> IO Double---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.closestTimeToTimeRanges Mozilla Internals.closestTimeToTimeRanges documentation> -closestTimeToTimeRanges ::-                        (MonadIO m) => Internals -> Double -> Maybe TimeRanges -> m Double-closestTimeToTimeRanges self time ranges-  = liftIO-      (js_closestTimeToTimeRanges (self) time (maybeToNullable ranges))- -foreign import javascript unsafe-        "($1[\"isSelectPopupVisible\"]($2) ? 1 : 0)"-        js_isSelectPopupVisible :: Internals -> Nullable Node -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isSelectPopupVisible Mozilla Internals.isSelectPopupVisible documentation> -isSelectPopupVisible ::-                     (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool-isSelectPopupVisible self node-  = liftIO-      (js_isSelectPopupVisible (self)-         (maybeToNullable (fmap toNode node)))- -foreign import javascript unsafe "($1[\"isVibrating\"]() ? 1 : 0)"-        js_isVibrating :: Internals -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isVibrating Mozilla Internals.isVibrating documentation> -isVibrating :: (MonadIO m) => Internals -> m Bool-isVibrating self = liftIO (js_isVibrating (self))- -foreign import javascript unsafe-        "($1[\"isPluginUnavailabilityIndicatorObscured\"]($2) ? 1 : 0)"-        js_isPluginUnavailabilityIndicatorObscured ::-        Internals -> Nullable Element -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginUnavailabilityIndicatorObscured Mozilla Internals.isPluginUnavailabilityIndicatorObscured documentation> -isPluginUnavailabilityIndicatorObscured ::-                                        (MonadIO m, IsElement element) =>-                                          Internals -> Maybe element -> m Bool-isPluginUnavailabilityIndicatorObscured self element-  = liftIO-      (js_isPluginUnavailabilityIndicatorObscured (self)-         (maybeToNullable (fmap toElement element)))- -foreign import javascript unsafe-        "($1[\"isPluginSnapshotted\"]($2) ? 1 : 0)" js_isPluginSnapshotted-        :: Internals -> Nullable Element -> IO Bool---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginSnapshotted Mozilla Internals.isPluginSnapshotted documentation> -isPluginSnapshotted ::-                    (MonadIO m, IsElement element) =>-                      Internals -> Maybe element -> m Bool-isPluginSnapshotted self element-  = liftIO-      (js_isPluginSnapshotted (self)-         (maybeToNullable (fmap toElement element)))- -foreign import javascript unsafe "$1[\"selectionBounds\"]()"-        js_selectionBounds :: Internals -> IO (Nullable ClientRect)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectionBounds Mozilla Internals.selectionBounds documentation> -selectionBounds :: (MonadIO m) => Internals -> m (Maybe ClientRect)-selectionBounds self-  = liftIO (nullableToMaybe <$> (js_selectionBounds (self)))- -foreign import javascript unsafe-        "$1[\"initializeMockMediaSource\"]()" js_initializeMockMediaSource-        :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.initializeMockMediaSource Mozilla Internals.initializeMockMediaSource documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.bufferedSamplesForTrackID Mozilla Internals.bufferedSamplesForTrackID documentation> -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)- -foreign import javascript unsafe-        "$1[\"beginMediaSessionInterruption\"]()"-        js_beginMediaSessionInterruption :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.beginMediaSessionInterruption Mozilla Internals.beginMediaSessionInterruption documentation> -beginMediaSessionInterruption :: (MonadIO m) => Internals -> m ()-beginMediaSessionInterruption self-  = liftIO (js_beginMediaSessionInterruption (self))- -foreign import javascript unsafe-        "$1[\"endMediaSessionInterruption\"]($2)"-        js_endMediaSessionInterruption :: Internals -> JSString -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.endMediaSessionInterruption Mozilla Internals.endMediaSessionInterruption documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.applicationWillEnterForeground Mozilla Internals.applicationWillEnterForeground documentation> -applicationWillEnterForeground :: (MonadIO m) => Internals -> m ()-applicationWillEnterForeground self-  = liftIO (js_applicationWillEnterForeground (self))- -foreign import javascript unsafe-        "$1[\"applicationWillEnterBackground\"]()"-        js_applicationWillEnterBackground :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.applicationWillEnterBackground Mozilla Internals.applicationWillEnterBackground documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setMediaSessionRestrictions Mozilla Internals.setMediaSessionRestrictions documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.postRemoteControlCommand Mozilla Internals.postRemoteControlCommand documentation> -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 ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateSystemSleep Mozilla Internals.simulateSystemSleep documentation> -simulateSystemSleep :: (MonadIO m) => Internals -> m ()-simulateSystemSleep self = liftIO (js_simulateSystemSleep (self))- -foreign import javascript unsafe "$1[\"simulateSystemWake\"]()"-        js_simulateSystemWake :: Internals -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateSystemWake Mozilla Internals.simulateSystemWake documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementIsBlockingDisplaySleep Mozilla Internals.elementIsBlockingDisplaySleep documentation> -elementIsBlockingDisplaySleep ::-                              (MonadIO m, IsElement element) =>-                                Internals -> Maybe element -> m Bool-elementIsBlockingDisplaySleep self element-  = liftIO-      (js_elementIsBlockingDisplaySleep (self)-         (maybeToNullable (fmap toElement element)))- -foreign import javascript unsafe-        "$1[\"installMockPageOverlay\"]($2)" js_installMockPageOverlay ::-        Internals -> JSVal -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.installMockPageOverlay Mozilla Internals.installMockPageOverlay documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageOverlayLayerTreeAsText Mozilla Internals.pageOverlayLayerTreeAsText documentation> -pageOverlayLayerTreeAsText ::-                           (MonadIO m, FromJSString result) => Internals -> m result-pageOverlayLayerTreeAsText self-  = liftIO (fromJSString <$> (js_pageOverlayLayerTreeAsText (self)))- -foreign import javascript unsafe "$1[\"setPageMuted\"]($2)"-        js_setPageMuted :: Internals -> Bool -> IO ()---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageMuted Mozilla Internals.setPageMuted documentation> -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---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPagePlayingAudio Mozilla Internals.isPagePlayingAudio documentation> -isPagePlayingAudio :: (MonadIO m) => Internals -> m Bool-isPagePlayingAudio self = liftIO (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)---- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.settings Mozilla Internals.settings documentation> -getSettings ::-            (MonadIO m) => Internals -> m (Maybe InternalSettings)-getSettings self-  = liftIO (nullableToMaybe <$> (js_getSettings (self)))+       (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_,+        computedStyleIncludingVisitedInfoUnchecked, js_ensureShadowRoot,+        ensureShadowRoot, ensureShadowRoot_, ensureShadowRootUnchecked,+        js_createShadowRoot, createShadowRoot, createShadowRoot_,+        createShadowRootUnchecked, js_shadowRoot, shadowRoot, shadowRoot_,+        shadowRootUnchecked, js_shadowRootType, shadowRootType,+        shadowRootType_, js_includerFor, includerFor, includerFor_,+        includerForUnchecked, js_shadowPseudoId, shadowPseudoId,+        shadowPseudoId_, js_setShadowPseudoId, setShadowPseudoId,+        js_treeScopeRootNode, treeScopeRootNode, treeScopeRootNode_,+        treeScopeRootNodeUnchecked, js_parentTreeScope, parentTreeScope,+        parentTreeScope_, 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_,+        absoluteCaretBoundsUnchecked, js_boundingBox, boundingBox,+        boundingBox_, boundingBoxUnchecked, js_inspectorHighlightRects,+        inspectorHighlightRects, inspectorHighlightRects_,+        inspectorHighlightRectsUnchecked, js_inspectorHighlightObject,+        inspectorHighlightObject, inspectorHighlightObject_,+        js_markerCountForNode, markerCountForNode, markerCountForNode_,+        js_markerRangeForNode, markerRangeForNode, markerRangeForNode_,+        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_, rangeFromLocationAndLengthUnchecked,+        js_locationFromRange, locationFromRange, locationFromRange_,+        js_lengthFromRange, lengthFromRange, lengthFromRange_,+        js_rangeAsText, rangeAsText, rangeAsText_, js_subrange, subrange,+        subrange_, subrangeUnchecked,+        js_rangeForDictionaryLookupAtLocation,+        rangeForDictionaryLookupAtLocation,+        rangeForDictionaryLookupAtLocation_,+        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_, 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_,+        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_, 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_,+        mallocStatisticsUnchecked, js_typeConversions, typeConversions,+        typeConversions_, typeConversionsUnchecked, js_memoryInfo,+        memoryInfo, memoryInfo_, 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_,+        deserializeBufferUnchecked, js_serializeObject, serializeObject,+        serializeObject_, 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_, 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_, 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, getSettingsUnchecked, js_getWorkerThreadCount,+        getWorkerThreadCount, js_getConsoleProfiles, getConsoleProfiles,+        Internals, castToInternals, gTypeInternals)+       where+import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)+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+ +foreign import javascript unsafe "$1[\"address\"]($2)" js_address+        :: Internals -> Nullable Node -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.address Mozilla Internals.address documentation> +address ::+        (MonadIO m, IsNode node, FromJSString result) =>+          Internals -> Maybe node -> m result+address self node+  = liftIO+      (fromJSString <$>+         (js_address (self) (maybeToNullable (fmap toNode node))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.address Mozilla Internals.address documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodeNeedsStyleRecalc Mozilla Internals.nodeNeedsStyleRecalc documentation> +nodeNeedsStyleRecalc ::+                     (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool+nodeNeedsStyleRecalc self node+  = liftIO+      (js_nodeNeedsStyleRecalc (self)+         (maybeToNullable (fmap toNode node)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodeNeedsStyleRecalc Mozilla Internals.nodeNeedsStyleRecalc documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.description Mozilla Internals.description documentation> +description ::+            (MonadIO m, FromJSString result) => Internals -> JSVal -> m result+description self value+  = liftIO (fromJSString <$> (js_description (self) value))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.description Mozilla Internals.description documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasPausedImageAnimations Mozilla Internals.hasPausedImageAnimations documentation> +hasPausedImageAnimations ::+                         (MonadIO m, IsElement element) =>+                           Internals -> Maybe element -> m Bool+hasPausedImageAnimations self element+  = liftIO+      (js_hasPausedImageAnimations (self)+         (maybeToNullable (fmap toElement element)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasPausedImageAnimations Mozilla Internals.hasPausedImageAnimations documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementRenderTreeAsText Mozilla Internals.elementRenderTreeAsText documentation> +elementRenderTreeAsText ::+                        (MonadIO m, IsElement element, FromJSString result) =>+                          Internals -> Maybe element -> m result+elementRenderTreeAsText self element+  = liftIO+      (fromJSString <$>+         (js_elementRenderTreeAsText (self)+            (maybeToNullable (fmap toElement element))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementRenderTreeAsText Mozilla Internals.elementRenderTreeAsText documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPreloaded Mozilla Internals.isPreloaded documentation> +isPreloaded ::+            (MonadIO m, ToJSString url) => Internals -> url -> m Bool+isPreloaded self url+  = liftIO (js_isPreloaded (self) (toJSString url))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPreloaded Mozilla Internals.isPreloaded documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isLoadingFromMemoryCache Mozilla Internals.isLoadingFromMemoryCache documentation> +isLoadingFromMemoryCache ::+                         (MonadIO m, ToJSString url) => Internals -> url -> m Bool+isLoadingFromMemoryCache self url+  = liftIO (js_isLoadingFromMemoryCache (self) (toJSString url))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isLoadingFromMemoryCache Mozilla Internals.isLoadingFromMemoryCache documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.xhrResponseSource Mozilla Internals.xhrResponseSource documentation> +xhrResponseSource ::+                  (MonadIO m, FromJSString result) =>+                    Internals -> Maybe XMLHttpRequest -> m result+xhrResponseSource self xhr+  = liftIO+      (fromJSString <$>+         (js_xhrResponseSource (self) (maybeToNullable xhr)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.xhrResponseSource Mozilla Internals.xhrResponseSource documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.clearMemoryCache Mozilla Internals.clearMemoryCache documentation> +clearMemoryCache :: (MonadIO m) => Internals -> m ()+clearMemoryCache self = liftIO (js_clearMemoryCache (self))+ +foreign import javascript unsafe+        "$1[\"pruneMemoryCacheToSize\"]($2)" js_pruneMemoryCacheToSize ::+        Internals -> Int -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pruneMemoryCacheToSize Mozilla Internals.pruneMemoryCacheToSize documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryCacheSize Mozilla Internals.memoryCacheSize documentation> +memoryCacheSize :: (MonadIO m) => Internals -> m Int+memoryCacheSize self = liftIO (js_memoryCacheSize (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryCacheSize Mozilla Internals.memoryCacheSize documentation> +memoryCacheSize_ :: (MonadIO m) => Internals -> m ()+memoryCacheSize_ self = liftIO (void (js_memoryCacheSize (self)))+ +foreign import javascript unsafe "$1[\"clearPageCache\"]()"+        js_clearPageCache :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.clearPageCache Mozilla Internals.clearPageCache documentation> +clearPageCache :: (MonadIO m) => Internals -> m ()+clearPageCache self = liftIO (js_clearPageCache (self))+ +foreign import javascript unsafe "$1[\"pageCacheSize\"]()"+        js_pageCacheSize :: Internals -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageCacheSize Mozilla Internals.pageCacheSize documentation> +pageCacheSize :: (MonadIO m) => Internals -> m Word+pageCacheSize self = liftIO (js_pageCacheSize (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageCacheSize Mozilla Internals.pageCacheSize documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.computedStyleIncludingVisitedInfo Mozilla Internals.computedStyleIncludingVisitedInfo documentation> +computedStyleIncludingVisitedInfo ::+                                  (MonadIO m, IsNode node) =>+                                    Internals -> Maybe node -> m (Maybe CSSStyleDeclaration)+computedStyleIncludingVisitedInfo self node+  = liftIO+      (nullableToMaybe <$>+         (js_computedStyleIncludingVisitedInfo (self)+            (maybeToNullable (fmap toNode node))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.computedStyleIncludingVisitedInfo Mozilla Internals.computedStyleIncludingVisitedInfo documentation> +computedStyleIncludingVisitedInfo_ ::+                                   (MonadIO m, IsNode node) => Internals -> Maybe node -> m ()+computedStyleIncludingVisitedInfo_ self node+  = liftIO+      (void+         (js_computedStyleIncludingVisitedInfo (self)+            (maybeToNullable (fmap toNode node))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.computedStyleIncludingVisitedInfo Mozilla Internals.computedStyleIncludingVisitedInfo documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.ensureShadowRoot Mozilla Internals.ensureShadowRoot documentation> +ensureShadowRoot ::+                 (MonadIO m, IsElement host) =>+                   Internals -> Maybe host -> m (Maybe Node)+ensureShadowRoot self host+  = liftIO+      (nullableToMaybe <$>+         (js_ensureShadowRoot (self)+            (maybeToNullable (fmap toElement host))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.ensureShadowRoot Mozilla Internals.ensureShadowRoot documentation> +ensureShadowRoot_ ::+                  (MonadIO m, IsElement host) => Internals -> Maybe host -> m ()+ensureShadowRoot_ self host+  = liftIO+      (void+         (js_ensureShadowRoot (self)+            (maybeToNullable (fmap toElement host))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.ensureShadowRoot Mozilla Internals.ensureShadowRoot documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createShadowRoot Mozilla Internals.createShadowRoot documentation> +createShadowRoot ::+                 (MonadIO m, IsElement host) =>+                   Internals -> Maybe host -> m (Maybe Node)+createShadowRoot self host+  = liftIO+      (nullableToMaybe <$>+         (js_createShadowRoot (self)+            (maybeToNullable (fmap toElement host))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createShadowRoot Mozilla Internals.createShadowRoot documentation> +createShadowRoot_ ::+                  (MonadIO m, IsElement host) => Internals -> Maybe host -> m ()+createShadowRoot_ self host+  = liftIO+      (void+         (js_createShadowRoot (self)+            (maybeToNullable (fmap toElement host))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createShadowRoot Mozilla Internals.createShadowRoot documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRoot Mozilla Internals.shadowRoot documentation> +shadowRoot ::+           (MonadIO m, IsElement host) =>+             Internals -> Maybe host -> m (Maybe Node)+shadowRoot self host+  = liftIO+      (nullableToMaybe <$>+         (js_shadowRoot (self) (maybeToNullable (fmap toElement host))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRoot Mozilla Internals.shadowRoot documentation> +shadowRoot_ ::+            (MonadIO m, IsElement host) => Internals -> Maybe host -> m ()+shadowRoot_ self host+  = liftIO+      (void+         (js_shadowRoot (self) (maybeToNullable (fmap toElement host))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRoot Mozilla Internals.shadowRoot documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRootType Mozilla Internals.shadowRootType documentation> +shadowRootType ::+               (MonadIO m, IsNode root, FromJSString result) =>+                 Internals -> Maybe root -> m result+shadowRootType self root+  = liftIO+      (fromJSString <$>+         (js_shadowRootType (self) (maybeToNullable (fmap toNode root))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRootType Mozilla Internals.shadowRootType documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.includerFor Mozilla Internals.includerFor documentation> +includerFor ::+            (MonadIO m, IsNode node) =>+              Internals -> Maybe node -> m (Maybe Element)+includerFor self node+  = liftIO+      (nullableToMaybe <$>+         (js_includerFor (self) (maybeToNullable (fmap toNode node))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.includerFor Mozilla Internals.includerFor documentation> +includerFor_ ::+             (MonadIO m, IsNode node) => Internals -> Maybe node -> m ()+includerFor_ self node+  = liftIO+      (void (js_includerFor (self) (maybeToNullable (fmap toNode node))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.includerFor Mozilla Internals.includerFor documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowPseudoId Mozilla Internals.shadowPseudoId documentation> +shadowPseudoId ::+               (MonadIO m, IsElement element, FromJSString result) =>+                 Internals -> Maybe element -> m result+shadowPseudoId self element+  = liftIO+      (fromJSString <$>+         (js_shadowPseudoId (self)+            (maybeToNullable (fmap toElement element))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowPseudoId Mozilla Internals.shadowPseudoId documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setShadowPseudoId Mozilla Internals.setShadowPseudoId documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.treeScopeRootNode Mozilla Internals.treeScopeRootNode documentation> +treeScopeRootNode ::+                  (MonadIO m, IsNode node) =>+                    Internals -> Maybe node -> m (Maybe Node)+treeScopeRootNode self node+  = liftIO+      (nullableToMaybe <$>+         (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.treeScopeRootNode Mozilla Internals.treeScopeRootNode documentation> +treeScopeRootNode_ ::+                   (MonadIO m, IsNode node) => Internals -> Maybe node -> m ()+treeScopeRootNode_ self node+  = liftIO+      (void+         (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.treeScopeRootNode Mozilla Internals.treeScopeRootNode documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parentTreeScope Mozilla Internals.parentTreeScope documentation> +parentTreeScope ::+                (MonadIO m, IsNode node) =>+                  Internals -> Maybe node -> m (Maybe Node)+parentTreeScope self node+  = liftIO+      (nullableToMaybe <$>+         (js_parentTreeScope (self) (maybeToNullable (fmap toNode node))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parentTreeScope Mozilla Internals.parentTreeScope documentation> +parentTreeScope_ ::+                 (MonadIO m, IsNode node) => Internals -> Maybe node -> m ()+parentTreeScope_ self node+  = liftIO+      (void+         (js_parentTreeScope (self) (maybeToNullable (fmap toNode node))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parentTreeScope Mozilla Internals.parentTreeScope documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpatialNavigationCandidateCount Mozilla Internals.lastSpatialNavigationCandidateCount documentation> +lastSpatialNavigationCandidateCount ::+                                    (MonadIO m) => Internals -> m Word+lastSpatialNavigationCandidateCount self+  = liftIO (js_lastSpatialNavigationCandidateCount (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpatialNavigationCandidateCount Mozilla Internals.lastSpatialNavigationCandidateCount documentation> +lastSpatialNavigationCandidateCount_ ::+                                     (MonadIO m) => Internals -> m ()+lastSpatialNavigationCandidateCount_ self+  = liftIO (void (js_lastSpatialNavigationCandidateCount (self)))+ +foreign import javascript unsafe+        "$1[\"numberOfActiveAnimations\"]()" js_numberOfActiveAnimations ::+        Internals -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfActiveAnimations Mozilla Internals.numberOfActiveAnimations documentation> +numberOfActiveAnimations :: (MonadIO m) => Internals -> m Word+numberOfActiveAnimations self+  = liftIO (js_numberOfActiveAnimations (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfActiveAnimations Mozilla Internals.numberOfActiveAnimations documentation> +numberOfActiveAnimations_ :: (MonadIO m) => Internals -> m ()+numberOfActiveAnimations_ self+  = liftIO (void (js_numberOfActiveAnimations (self)))+ +foreign import javascript unsafe "$1[\"suspendAnimations\"]()"+        js_suspendAnimations :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.suspendAnimations Mozilla Internals.suspendAnimations documentation> +suspendAnimations :: (MonadIO m) => Internals -> m ()+suspendAnimations self = liftIO (js_suspendAnimations (self))+ +foreign import javascript unsafe "$1[\"resumeAnimations\"]()"+        js_resumeAnimations :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.resumeAnimations Mozilla Internals.resumeAnimations documentation> +resumeAnimations :: (MonadIO m) => Internals -> m ()+resumeAnimations self = liftIO (js_resumeAnimations (self))+ +foreign import javascript unsafe+        "($1[\"animationsAreSuspended\"]() ? 1 : 0)"+        js_animationsAreSuspended :: Internals -> IO Bool++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.animationsAreSuspended Mozilla Internals.animationsAreSuspended documentation> +animationsAreSuspended :: (MonadIO m) => Internals -> m Bool+animationsAreSuspended self+  = liftIO (js_animationsAreSuspended (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.animationsAreSuspended Mozilla Internals.animationsAreSuspended documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseAnimationAtTimeOnElement Mozilla Internals.pauseAnimationAtTimeOnElement documentation> +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)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseAnimationAtTimeOnElement Mozilla Internals.pauseAnimationAtTimeOnElement documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseAnimationAtTimeOnPseudoElement Mozilla Internals.pauseAnimationAtTimeOnPseudoElement documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseAnimationAtTimeOnPseudoElement Mozilla Internals.pauseAnimationAtTimeOnPseudoElement documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseTransitionAtTimeOnElement Mozilla Internals.pauseTransitionAtTimeOnElement documentation> +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)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseTransitionAtTimeOnElement Mozilla Internals.pauseTransitionAtTimeOnElement documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseTransitionAtTimeOnPseudoElement Mozilla Internals.pauseTransitionAtTimeOnPseudoElement documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseTransitionAtTimeOnPseudoElement Mozilla Internals.pauseTransitionAtTimeOnPseudoElement documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.attached Mozilla Internals.attached documentation> +attached ::+         (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool+attached self node+  = liftIO (js_attached (self) (maybeToNullable (fmap toNode node)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.attached Mozilla Internals.attached documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.visiblePlaceholder Mozilla Internals.visiblePlaceholder documentation> +visiblePlaceholder ::+                   (MonadIO m, IsElement element, FromJSString result) =>+                     Internals -> Maybe element -> m result+visiblePlaceholder self element+  = liftIO+      (fromJSString <$>+         (js_visiblePlaceholder (self)+            (maybeToNullable (fmap toElement element))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.visiblePlaceholder Mozilla Internals.visiblePlaceholder documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectColorInColorChooser Mozilla Internals.selectColorInColorChooser documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.formControlStateOfPreviousHistoryItem Mozilla Internals.formControlStateOfPreviousHistoryItem documentation> +formControlStateOfPreviousHistoryItem ::+                                      (MonadIO m, FromJSString result) => Internals -> m [result]+formControlStateOfPreviousHistoryItem self+  = liftIO+      ((js_formControlStateOfPreviousHistoryItem (self)) >>=+         fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.formControlStateOfPreviousHistoryItem Mozilla Internals.formControlStateOfPreviousHistoryItem documentation> +formControlStateOfPreviousHistoryItem_ ::+                                       (MonadIO m) => Internals -> m ()+formControlStateOfPreviousHistoryItem_ self+  = liftIO (void (js_formControlStateOfPreviousHistoryItem (self)))+ +foreign import javascript unsafe+        "$1[\"setFormControlStateOfPreviousHistoryItem\"]($2)"+        js_setFormControlStateOfPreviousHistoryItem ::+        Internals -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setFormControlStateOfPreviousHistoryItem Mozilla Internals.setFormControlStateOfPreviousHistoryItem documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.absoluteCaretBounds Mozilla Internals.absoluteCaretBounds documentation> +absoluteCaretBounds ::+                    (MonadIO m) => Internals -> m (Maybe ClientRect)+absoluteCaretBounds self+  = liftIO (nullableToMaybe <$> (js_absoluteCaretBounds (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.absoluteCaretBounds Mozilla Internals.absoluteCaretBounds documentation> +absoluteCaretBounds_ :: (MonadIO m) => Internals -> m ()+absoluteCaretBounds_ self+  = liftIO (void (js_absoluteCaretBounds (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.absoluteCaretBounds Mozilla Internals.absoluteCaretBounds documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.boundingBox Mozilla Internals.boundingBox documentation> +boundingBox ::+            (MonadIO m, IsElement element) =>+              Internals -> Maybe element -> m (Maybe ClientRect)+boundingBox self element+  = liftIO+      (nullableToMaybe <$>+         (js_boundingBox (self) (maybeToNullable (fmap toElement element))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.boundingBox Mozilla Internals.boundingBox documentation> +boundingBox_ ::+             (MonadIO m, IsElement element) =>+               Internals -> Maybe element -> m ()+boundingBox_ self element+  = liftIO+      (void+         (js_boundingBox (self) (maybeToNullable (fmap toElement element))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.boundingBox Mozilla Internals.boundingBox documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightRects Mozilla Internals.inspectorHighlightRects documentation> +inspectorHighlightRects ::+                        (MonadIO m) => Internals -> m (Maybe ClientRectList)+inspectorHighlightRects self+  = liftIO (nullableToMaybe <$> (js_inspectorHighlightRects (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightRects Mozilla Internals.inspectorHighlightRects documentation> +inspectorHighlightRects_ :: (MonadIO m) => Internals -> m ()+inspectorHighlightRects_ self+  = liftIO (void (js_inspectorHighlightRects (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightRects Mozilla Internals.inspectorHighlightRects documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightObject Mozilla Internals.inspectorHighlightObject documentation> +inspectorHighlightObject ::+                         (MonadIO m, FromJSString result) => Internals -> m result+inspectorHighlightObject self+  = liftIO (fromJSString <$> (js_inspectorHighlightObject (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightObject Mozilla Internals.inspectorHighlightObject documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerCountForNode Mozilla Internals.markerCountForNode documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerCountForNode Mozilla Internals.markerCountForNode documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerRangeForNode Mozilla Internals.markerRangeForNode documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerRangeForNode Mozilla Internals.markerRangeForNode documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerRangeForNode Mozilla Internals.markerRangeForNode documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerDescriptionForNode Mozilla Internals.markerDescriptionForNode documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerDescriptionForNode Mozilla Internals.markerDescriptionForNode documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.addTextMatchMarker Mozilla Internals.addTextMatchMarker documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setMarkedTextMatchesAreHighlighted Mozilla Internals.setMarkedTextMatchesAreHighlighted documentation> +setMarkedTextMatchesAreHighlighted ::+                                   (MonadIO m) => Internals -> Bool -> m ()+setMarkedTextMatchesAreHighlighted self flag+  = liftIO (js_setMarkedTextMatchesAreHighlighted (self) flag)+ +foreign import javascript unsafe "$1[\"invalidateFontCache\"]()"+        js_invalidateFontCache :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.invalidateFontCache Mozilla Internals.invalidateFontCache documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setScrollViewPosition Mozilla Internals.setScrollViewPosition documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPagination Mozilla Internals.setPagination documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.configurationForViewport Mozilla Internals.configurationForViewport documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.configurationForViewport Mozilla Internals.configurationForViewport documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wasLastChangeUserEdit Mozilla Internals.wasLastChangeUserEdit documentation> +wasLastChangeUserEdit ::+                      (MonadIO m, IsElement textField) =>+                        Internals -> Maybe textField -> m Bool+wasLastChangeUserEdit self textField+  = liftIO+      (js_wasLastChangeUserEdit (self)+         (maybeToNullable (fmap toElement textField)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wasLastChangeUserEdit Mozilla Internals.wasLastChangeUserEdit documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementShouldAutoComplete Mozilla Internals.elementShouldAutoComplete documentation> +elementShouldAutoComplete ::+                          (MonadIO m, IsElement inputElement) =>+                            Internals -> Maybe inputElement -> m Bool+elementShouldAutoComplete self inputElement+  = liftIO+      (js_elementShouldAutoComplete (self)+         (maybeToNullable (fmap toElement inputElement)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementShouldAutoComplete Mozilla Internals.elementShouldAutoComplete documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setEditingValue Mozilla Internals.setEditingValue documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutofilled Mozilla Internals.setAutofilled documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.countMatchesForText Mozilla Internals.countMatchesForText documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.countMatchesForText Mozilla Internals.countMatchesForText documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.paintControlTints Mozilla Internals.paintControlTints documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.scrollElementToRect Mozilla Internals.scrollElementToRect documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeFromLocationAndLength Mozilla Internals.rangeFromLocationAndLength documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeFromLocationAndLength Mozilla Internals.rangeFromLocationAndLength documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeFromLocationAndLength Mozilla Internals.rangeFromLocationAndLength documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.locationFromRange Mozilla Internals.locationFromRange documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.locationFromRange Mozilla Internals.locationFromRange documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lengthFromRange Mozilla Internals.lengthFromRange documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lengthFromRange Mozilla Internals.lengthFromRange documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeAsText Mozilla Internals.rangeAsText documentation> +rangeAsText ::+            (MonadIO m, FromJSString result) =>+              Internals -> Maybe Range -> m result+rangeAsText self range+  = liftIO+      (fromJSString <$> (js_rangeAsText (self) (maybeToNullable range)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeAsText Mozilla Internals.rangeAsText documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.subrange Mozilla Internals.subrange documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.subrange Mozilla Internals.subrange documentation> +subrange_ ::+          (MonadIO m) => Internals -> Maybe Range -> Int -> Int -> m ()+subrange_ self range rangeLocation rangeLength+  = liftIO+      (void+         (js_subrange (self) (maybeToNullable range) rangeLocation+            rangeLength))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.subrange Mozilla Internals.subrange documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeForDictionaryLookupAtLocation Mozilla Internals.rangeForDictionaryLookupAtLocation documentation> +rangeForDictionaryLookupAtLocation ::+                                   (MonadIO m) => Internals -> Int -> Int -> m (Maybe Range)+rangeForDictionaryLookupAtLocation self x y+  = liftIO+      (nullableToMaybe <$>+         (js_rangeForDictionaryLookupAtLocation (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeForDictionaryLookupAtLocation Mozilla Internals.rangeForDictionaryLookupAtLocation documentation> +rangeForDictionaryLookupAtLocation_ ::+                                    (MonadIO m) => Internals -> Int -> Int -> m ()+rangeForDictionaryLookupAtLocation_ self x y+  = liftIO (void (js_rangeForDictionaryLookupAtLocation (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeForDictionaryLookupAtLocation Mozilla Internals.rangeForDictionaryLookupAtLocation documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setDelegatesScrolling Mozilla Internals.setDelegatesScrolling documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckRequestSequence Mozilla Internals.lastSpellCheckRequestSequence documentation> +lastSpellCheckRequestSequence :: (MonadIO m) => Internals -> m Int+lastSpellCheckRequestSequence self+  = liftIO (js_lastSpellCheckRequestSequence (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckRequestSequence Mozilla Internals.lastSpellCheckRequestSequence documentation> +lastSpellCheckRequestSequence_ :: (MonadIO m) => Internals -> m ()+lastSpellCheckRequestSequence_ self+  = liftIO (void (js_lastSpellCheckRequestSequence (self)))+ +foreign import javascript unsafe+        "$1[\"lastSpellCheckProcessedSequence\"]()"+        js_lastSpellCheckProcessedSequence :: Internals -> IO Int++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckProcessedSequence Mozilla Internals.lastSpellCheckProcessedSequence documentation> +lastSpellCheckProcessedSequence ::+                                (MonadIO m) => Internals -> m Int+lastSpellCheckProcessedSequence self+  = liftIO (js_lastSpellCheckProcessedSequence (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckProcessedSequence Mozilla Internals.lastSpellCheckProcessedSequence documentation> +lastSpellCheckProcessedSequence_ ::+                                 (MonadIO m) => Internals -> m ()+lastSpellCheckProcessedSequence_ self+  = liftIO (void (js_lastSpellCheckProcessedSequence (self)))+ +foreign import javascript unsafe "$1[\"userPreferredLanguages\"]()"+        js_userPreferredLanguages :: Internals -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.userPreferredLanguages Mozilla Internals.userPreferredLanguages documentation> +userPreferredLanguages ::+                       (MonadIO m, FromJSString result) => Internals -> m [result]+userPreferredLanguages self+  = liftIO+      ((js_userPreferredLanguages (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.userPreferredLanguages Mozilla Internals.userPreferredLanguages documentation> +userPreferredLanguages_ :: (MonadIO m) => Internals -> m ()+userPreferredLanguages_ self+  = liftIO (void (js_userPreferredLanguages (self)))+ +foreign import javascript unsafe+        "$1[\"setUserPreferredLanguages\"]($2)"+        js_setUserPreferredLanguages :: Internals -> JSVal -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setUserPreferredLanguages Mozilla Internals.setUserPreferredLanguages documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wheelEventHandlerCount Mozilla Internals.wheelEventHandlerCount documentation> +wheelEventHandlerCount :: (MonadIO m) => Internals -> m Word+wheelEventHandlerCount self+  = liftIO (js_wheelEventHandlerCount (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wheelEventHandlerCount Mozilla Internals.wheelEventHandlerCount documentation> +wheelEventHandlerCount_ :: (MonadIO m) => Internals -> m ()+wheelEventHandlerCount_ self+  = liftIO (void (js_wheelEventHandlerCount (self)))+ +foreign import javascript unsafe "$1[\"touchEventHandlerCount\"]()"+        js_touchEventHandlerCount :: Internals -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.touchEventHandlerCount Mozilla Internals.touchEventHandlerCount documentation> +touchEventHandlerCount :: (MonadIO m) => Internals -> m Word+touchEventHandlerCount self+  = liftIO (js_touchEventHandlerCount (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.touchEventHandlerCount Mozilla Internals.touchEventHandlerCount documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodesFromRect Mozilla Internals.nodesFromRect documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodesFromRect Mozilla Internals.nodesFromRect documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodesFromRect Mozilla Internals.nodesFromRect documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parserMetaData Mozilla Internals.parserMetaData documentation> +parserMetaData ::+               (MonadIO m, FromJSString result) => Internals -> JSVal -> m result+parserMetaData self func+  = liftIO (fromJSString <$> (js_parserMetaData (self) func))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parserMetaData Mozilla Internals.parserMetaData documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.updateEditorUINowIfScheduled Mozilla Internals.updateEditorUINowIfScheduled documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasSpellingMarker Mozilla Internals.hasSpellingMarker documentation> +hasSpellingMarker ::+                  (MonadIO m) => Internals -> Int -> Int -> m Bool+hasSpellingMarker self from length+  = liftIO (js_hasSpellingMarker (self) from length)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasSpellingMarker Mozilla Internals.hasSpellingMarker documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasGrammarMarker Mozilla Internals.hasGrammarMarker documentation> +hasGrammarMarker ::+                 (MonadIO m) => Internals -> Int -> Int -> m Bool+hasGrammarMarker self from length+  = liftIO (js_hasGrammarMarker (self) from length)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasGrammarMarker Mozilla Internals.hasGrammarMarker documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasAutocorrectedMarker Mozilla Internals.hasAutocorrectedMarker documentation> +hasAutocorrectedMarker ::+                       (MonadIO m) => Internals -> Int -> Int -> m Bool+hasAutocorrectedMarker self from length+  = liftIO (js_hasAutocorrectedMarker (self) from length)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasAutocorrectedMarker Mozilla Internals.hasAutocorrectedMarker documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setContinuousSpellCheckingEnabled Mozilla Internals.setContinuousSpellCheckingEnabled documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticQuoteSubstitutionEnabled Mozilla Internals.setAutomaticQuoteSubstitutionEnabled documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticLinkDetectionEnabled Mozilla Internals.setAutomaticLinkDetectionEnabled documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticDashSubstitutionEnabled Mozilla Internals.setAutomaticDashSubstitutionEnabled documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticTextReplacementEnabled Mozilla Internals.setAutomaticTextReplacementEnabled documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticSpellingCorrectionEnabled Mozilla Internals.setAutomaticSpellingCorrectionEnabled documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isOverwriteModeEnabled Mozilla Internals.isOverwriteModeEnabled documentation> +isOverwriteModeEnabled :: (MonadIO m) => Internals -> m Bool+isOverwriteModeEnabled self+  = liftIO (js_isOverwriteModeEnabled (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isOverwriteModeEnabled Mozilla Internals.isOverwriteModeEnabled documentation> +isOverwriteModeEnabled_ :: (MonadIO m) => Internals -> m ()+isOverwriteModeEnabled_ self+  = liftIO (void (js_isOverwriteModeEnabled (self)))+ +foreign import javascript unsafe+        "$1[\"toggleOverwriteModeEnabled\"]()"+        js_toggleOverwriteModeEnabled :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.toggleOverwriteModeEnabled Mozilla Internals.toggleOverwriteModeEnabled documentation> +toggleOverwriteModeEnabled :: (MonadIO m) => Internals -> m ()+toggleOverwriteModeEnabled self+  = liftIO (js_toggleOverwriteModeEnabled (self))+ +foreign import javascript unsafe+        "$1[\"numberOfScrollableAreas\"]()" js_numberOfScrollableAreas ::+        Internals -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfScrollableAreas Mozilla Internals.numberOfScrollableAreas documentation> +numberOfScrollableAreas :: (MonadIO m) => Internals -> m Word+numberOfScrollableAreas self+  = liftIO (js_numberOfScrollableAreas (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfScrollableAreas Mozilla Internals.numberOfScrollableAreas documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPageBoxVisible Mozilla Internals.isPageBoxVisible documentation> +isPageBoxVisible :: (MonadIO m) => Internals -> Int -> m Bool+isPageBoxVisible self pageNumber+  = liftIO (js_isPageBoxVisible (self) pageNumber)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPageBoxVisible Mozilla Internals.isPageBoxVisible documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.layerTreeAsText Mozilla Internals.layerTreeAsText documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.layerTreeAsText Mozilla Internals.layerTreeAsText documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.scrollingStateTreeAsText Mozilla Internals.scrollingStateTreeAsText documentation> +scrollingStateTreeAsText ::+                         (MonadIO m, FromJSString result) => Internals -> m result+scrollingStateTreeAsText self+  = liftIO (fromJSString <$> (js_scrollingStateTreeAsText (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.scrollingStateTreeAsText Mozilla Internals.scrollingStateTreeAsText documentation> +scrollingStateTreeAsText_ :: (MonadIO m) => Internals -> m ()+scrollingStateTreeAsText_ self+  = liftIO (void (js_scrollingStateTreeAsText (self)))+ +foreign import javascript unsafe+        "$1[\"mainThreadScrollingReasons\"]()"+        js_mainThreadScrollingReasons :: Internals -> IO JSString++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mainThreadScrollingReasons Mozilla Internals.mainThreadScrollingReasons documentation> +mainThreadScrollingReasons ::+                           (MonadIO m, FromJSString result) => Internals -> m result+mainThreadScrollingReasons self+  = liftIO (fromJSString <$> (js_mainThreadScrollingReasons (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mainThreadScrollingReasons Mozilla Internals.mainThreadScrollingReasons documentation> +mainThreadScrollingReasons_ :: (MonadIO m) => Internals -> m ()+mainThreadScrollingReasons_ self+  = liftIO (void (js_mainThreadScrollingReasons (self)))+ +foreign import javascript unsafe "$1[\"nonFastScrollableRects\"]()"+        js_nonFastScrollableRects ::+        Internals -> IO (Nullable ClientRectList)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nonFastScrollableRects Mozilla Internals.nonFastScrollableRects documentation> +nonFastScrollableRects ::+                       (MonadIO m) => Internals -> m (Maybe ClientRectList)+nonFastScrollableRects self+  = liftIO (nullableToMaybe <$> (js_nonFastScrollableRects (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nonFastScrollableRects Mozilla Internals.nonFastScrollableRects documentation> +nonFastScrollableRects_ :: (MonadIO m) => Internals -> m ()+nonFastScrollableRects_ self+  = liftIO (void (js_nonFastScrollableRects (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nonFastScrollableRects Mozilla Internals.nonFastScrollableRects documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.repaintRectsAsText Mozilla Internals.repaintRectsAsText documentation> +repaintRectsAsText ::+                   (MonadIO m, FromJSString result) => Internals -> m result+repaintRectsAsText self+  = liftIO (fromJSString <$> (js_repaintRectsAsText (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.repaintRectsAsText Mozilla Internals.repaintRectsAsText documentation> +repaintRectsAsText_ :: (MonadIO m) => Internals -> m ()+repaintRectsAsText_ self+  = liftIO (void (js_repaintRectsAsText (self)))+ +foreign import javascript unsafe+        "$1[\"garbageCollectDocumentResources\"]()"+        js_garbageCollectDocumentResources :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.garbageCollectDocumentResources Mozilla Internals.garbageCollectDocumentResources documentation> +garbageCollectDocumentResources :: (MonadIO m) => Internals -> m ()+garbageCollectDocumentResources self+  = liftIO (js_garbageCollectDocumentResources (self))+ +foreign import javascript unsafe "$1[\"allowRoundingHacks\"]()"+        js_allowRoundingHacks :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.allowRoundingHacks Mozilla Internals.allowRoundingHacks documentation> +allowRoundingHacks :: (MonadIO m) => Internals -> m ()+allowRoundingHacks self = liftIO (js_allowRoundingHacks (self))+ +foreign import javascript unsafe "$1[\"insertAuthorCSS\"]($2)"+        js_insertAuthorCSS :: Internals -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.insertAuthorCSS Mozilla Internals.insertAuthorCSS documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.insertUserCSS Mozilla Internals.insertUserCSS documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setBatteryStatus Mozilla Internals.setBatteryStatus documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setDeviceProximity Mozilla Internals.setDeviceProximity documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveNodes Mozilla Internals.numberOfLiveNodes documentation> +numberOfLiveNodes :: (MonadIO m) => Internals -> m Word+numberOfLiveNodes self = liftIO (js_numberOfLiveNodes (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveNodes Mozilla Internals.numberOfLiveNodes documentation> +numberOfLiveNodes_ :: (MonadIO m) => Internals -> m ()+numberOfLiveNodes_ self+  = liftIO (void (js_numberOfLiveNodes (self)))+ +foreign import javascript unsafe "$1[\"numberOfLiveDocuments\"]()"+        js_numberOfLiveDocuments :: Internals -> IO Word++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveDocuments Mozilla Internals.numberOfLiveDocuments documentation> +numberOfLiveDocuments :: (MonadIO m) => Internals -> m Word+numberOfLiveDocuments self+  = liftIO (js_numberOfLiveDocuments (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveDocuments Mozilla Internals.numberOfLiveDocuments documentation> +numberOfLiveDocuments_ :: (MonadIO m) => Internals -> m ()+numberOfLiveDocuments_ self+  = liftIO (void (js_numberOfLiveDocuments (self)))+ +foreign import javascript unsafe+        "$1[\"consoleMessageArgumentCounts\"]()"+        js_consoleMessageArgumentCounts :: Internals -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.consoleMessageArgumentCounts Mozilla Internals.consoleMessageArgumentCounts documentation> +consoleMessageArgumentCounts ::+                             (MonadIO m, FromJSString result) => Internals -> m [result]+consoleMessageArgumentCounts self+  = liftIO+      ((js_consoleMessageArgumentCounts (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.consoleMessageArgumentCounts Mozilla Internals.consoleMessageArgumentCounts documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.openDummyInspectorFrontend Mozilla Internals.openDummyInspectorFrontend documentation> +openDummyInspectorFrontend ::+                           (MonadIO m, ToJSString url) => Internals -> url -> m (Maybe Window)+openDummyInspectorFrontend self url+  = liftIO+      (nullableToMaybe <$>+         (js_openDummyInspectorFrontend (self) (toJSString url)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.openDummyInspectorFrontend Mozilla Internals.openDummyInspectorFrontend documentation> +openDummyInspectorFrontend_ ::+                            (MonadIO m, ToJSString url) => Internals -> url -> m ()+openDummyInspectorFrontend_ self url+  = liftIO+      (void (js_openDummyInspectorFrontend (self) (toJSString url)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.openDummyInspectorFrontend Mozilla Internals.openDummyInspectorFrontend documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.closeDummyInspectorFrontend Mozilla Internals.closeDummyInspectorFrontend documentation> +closeDummyInspectorFrontend :: (MonadIO m) => Internals -> m ()+closeDummyInspectorFrontend self+  = liftIO (js_closeDummyInspectorFrontend (self))+ +foreign import javascript unsafe+        "$1[\"setJavaScriptProfilingEnabled\"]($2)"+        js_setJavaScriptProfilingEnabled :: Internals -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setJavaScriptProfilingEnabled Mozilla Internals.setJavaScriptProfilingEnabled documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setInspectorIsUnderTest Mozilla Internals.setInspectorIsUnderTest documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.counterValue Mozilla Internals.counterValue documentation> +counterValue ::+             (MonadIO m, IsElement element, FromJSString result) =>+               Internals -> Maybe element -> m result+counterValue self element+  = liftIO+      (fromJSString <$>+         (js_counterValue (self)+            (maybeToNullable (fmap toElement element))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.counterValue Mozilla Internals.counterValue documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageNumber Mozilla Internals.pageNumber documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageNumber Mozilla Internals.pageNumber documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shortcutIconURLs Mozilla Internals.shortcutIconURLs documentation> +shortcutIconURLs ::+                 (MonadIO m, FromJSString result) => Internals -> m [result]+shortcutIconURLs self+  = liftIO ((js_shortcutIconURLs (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shortcutIconURLs Mozilla Internals.shortcutIconURLs documentation> +shortcutIconURLs_ :: (MonadIO m) => Internals -> m ()+shortcutIconURLs_ self = liftIO (void (js_shortcutIconURLs (self)))+ +foreign import javascript unsafe "$1[\"allIconURLs\"]()"+        js_allIconURLs :: Internals -> IO JSVal++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.allIconURLs Mozilla Internals.allIconURLs documentation> +allIconURLs ::+            (MonadIO m, FromJSString result) => Internals -> m [result]+allIconURLs self+  = liftIO ((js_allIconURLs (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.allIconURLs Mozilla Internals.allIconURLs documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfPages Mozilla Internals.numberOfPages documentation> +numberOfPages ::+              (MonadIO m) => Internals -> Double -> Double -> m Int+numberOfPages self pageWidthInPixels pageHeightInPixels+  = liftIO+      (js_numberOfPages (self) pageWidthInPixels pageHeightInPixels)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfPages Mozilla Internals.numberOfPages documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageProperty Mozilla Internals.pageProperty documentation> +pageProperty ::+             (MonadIO m, ToJSString propertyName, FromJSString result) =>+               Internals -> propertyName -> Int -> m result+pageProperty self propertyName pageNumber+  = liftIO+      (fromJSString <$>+         (js_pageProperty (self) (toJSString propertyName) pageNumber))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageProperty Mozilla Internals.pageProperty documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageSizeAndMarginsInPixels Mozilla Internals.pageSizeAndMarginsInPixels documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageSizeAndMarginsInPixels Mozilla Internals.pageSizeAndMarginsInPixels documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageScaleFactor Mozilla Internals.setPageScaleFactor documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageZoomFactor Mozilla Internals.setPageZoomFactor documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setHeaderHeight Mozilla Internals.setHeaderHeight documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setFooterHeight Mozilla Internals.setFooterHeight documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setTopContentInset Mozilla Internals.setTopContentInset documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitWillEnterFullScreenForElement Mozilla Internals.webkitWillEnterFullScreenForElement documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitDidEnterFullScreenForElement Mozilla Internals.webkitDidEnterFullScreenForElement documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitWillExitFullScreenForElement Mozilla Internals.webkitWillExitFullScreenForElement documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitDidExitFullScreenForElement Mozilla Internals.webkitDidExitFullScreenForElement documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setApplicationCacheOriginQuota Mozilla Internals.setApplicationCacheOriginQuota documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.registerURLSchemeAsBypassingContentSecurityPolicy Mozilla Internals.registerURLSchemeAsBypassingContentSecurityPolicy documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.removeURLSchemeRegisteredAsBypassingContentSecurityPolicy Mozilla Internals.removeURLSchemeRegisteredAsBypassingContentSecurityPolicy documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mallocStatistics Mozilla Internals.mallocStatistics documentation> +mallocStatistics ::+                 (MonadIO m) => Internals -> m (Maybe MallocStatistics)+mallocStatistics self+  = liftIO (nullableToMaybe <$> (js_mallocStatistics (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mallocStatistics Mozilla Internals.mallocStatistics documentation> +mallocStatistics_ :: (MonadIO m) => Internals -> m ()+mallocStatistics_ self = liftIO (void (js_mallocStatistics (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mallocStatistics Mozilla Internals.mallocStatistics documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.typeConversions Mozilla Internals.typeConversions documentation> +typeConversions ::+                (MonadIO m) => Internals -> m (Maybe TypeConversions)+typeConversions self+  = liftIO (nullableToMaybe <$> (js_typeConversions (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.typeConversions Mozilla Internals.typeConversions documentation> +typeConversions_ :: (MonadIO m) => Internals -> m ()+typeConversions_ self = liftIO (void (js_typeConversions (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.typeConversions Mozilla Internals.typeConversions documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryInfo Mozilla Internals.memoryInfo documentation> +memoryInfo :: (MonadIO m) => Internals -> m (Maybe MemoryInfo)+memoryInfo self+  = liftIO (nullableToMaybe <$> (js_memoryInfo (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryInfo Mozilla Internals.memoryInfo documentation> +memoryInfo_ :: (MonadIO m) => Internals -> m ()+memoryInfo_ self = liftIO (void (js_memoryInfo (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryInfo Mozilla Internals.memoryInfo documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getReferencedFilePaths Mozilla Internals.getReferencedFilePaths documentation> +getReferencedFilePaths ::+                       (MonadIO m, FromJSString result) => Internals -> m [result]+getReferencedFilePaths self+  = liftIO+      ((js_getReferencedFilePaths (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getReferencedFilePaths Mozilla Internals.getReferencedFilePaths documentation> +getReferencedFilePaths_ :: (MonadIO m) => Internals -> m ()+getReferencedFilePaths_ self+  = liftIO (void (js_getReferencedFilePaths (self)))+ +foreign import javascript unsafe "$1[\"startTrackingRepaints\"]()"+        js_startTrackingRepaints :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.startTrackingRepaints Mozilla Internals.startTrackingRepaints documentation> +startTrackingRepaints :: (MonadIO m) => Internals -> m ()+startTrackingRepaints self+  = liftIO (js_startTrackingRepaints (self))+ +foreign import javascript unsafe "$1[\"stopTrackingRepaints\"]()"+        js_stopTrackingRepaints :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.stopTrackingRepaints Mozilla Internals.stopTrackingRepaints documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isTimerThrottled Mozilla Internals.isTimerThrottled documentation> +isTimerThrottled :: (MonadIO m) => Internals -> Int -> m Bool+isTimerThrottled self timerHandle+  = liftIO (js_isTimerThrottled (self) timerHandle)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isTimerThrottled Mozilla Internals.isTimerThrottled documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks Mozilla Internals.updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getCurrentCursorInfo Mozilla Internals.getCurrentCursorInfo documentation> +getCurrentCursorInfo ::+                     (MonadIO m, FromJSString result) => Internals -> m result+getCurrentCursorInfo self+  = liftIO (fromJSString <$> (js_getCurrentCursorInfo (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getCurrentCursorInfo Mozilla Internals.getCurrentCursorInfo documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerTextForListItem Mozilla Internals.markerTextForListItem documentation> +markerTextForListItem ::+                      (MonadIO m, IsElement element, FromJSString result) =>+                        Internals -> Maybe element -> m result+markerTextForListItem self element+  = liftIO+      (fromJSString <$>+         (js_markerTextForListItem (self)+            (maybeToNullable (fmap toElement element))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerTextForListItem Mozilla Internals.markerTextForListItem documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.toolTipFromElement Mozilla Internals.toolTipFromElement documentation> +toolTipFromElement ::+                   (MonadIO m, IsElement element, FromJSString result) =>+                     Internals -> Maybe element -> m result+toolTipFromElement self element+  = liftIO+      (fromJSString <$>+         (js_toolTipFromElement (self)+            (maybeToNullable (fmap toElement element))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.toolTipFromElement Mozilla Internals.toolTipFromElement documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.deserializeBuffer Mozilla Internals.deserializeBuffer documentation> +deserializeBuffer ::+                  (MonadIO m, IsArrayBuffer buffer) =>+                    Internals -> Maybe buffer -> m (Maybe SerializedScriptValue)+deserializeBuffer self buffer+  = liftIO+      (nullableToMaybe <$>+         (js_deserializeBuffer (self)+            (maybeToNullable (fmap toArrayBuffer buffer))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.deserializeBuffer Mozilla Internals.deserializeBuffer documentation> +deserializeBuffer_ ::+                   (MonadIO m, IsArrayBuffer buffer) =>+                     Internals -> Maybe buffer -> m ()+deserializeBuffer_ self buffer+  = liftIO+      (void+         (js_deserializeBuffer (self)+            (maybeToNullable (fmap toArrayBuffer buffer))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.deserializeBuffer Mozilla Internals.deserializeBuffer documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.serializeObject Mozilla Internals.serializeObject documentation> +serializeObject ::+                (MonadIO m, IsSerializedScriptValue obj) =>+                  Internals -> Maybe obj -> m (Maybe ArrayBuffer)+serializeObject self obj+  = liftIO+      (nullableToMaybe <$>+         (js_serializeObject (self)+            (maybeToNullable (fmap toSerializedScriptValue obj))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.serializeObject Mozilla Internals.serializeObject documentation> +serializeObject_ ::+                 (MonadIO m, IsSerializedScriptValue obj) =>+                   Internals -> Maybe obj -> m ()+serializeObject_ self obj+  = liftIO+      (void+         (js_serializeObject (self)+            (maybeToNullable (fmap toSerializedScriptValue obj))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.serializeObject Mozilla Internals.serializeObject documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setUsesOverlayScrollbars Mozilla Internals.setUsesOverlayScrollbars documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.forceReload Mozilla Internals.forceReload documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateAudioInterruption Mozilla Internals.simulateAudioInterruption documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mediaElementHasCharacteristic Mozilla Internals.mediaElementHasCharacteristic documentation> +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))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mediaElementHasCharacteristic Mozilla Internals.mediaElementHasCharacteristic documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.initializeMockCDM Mozilla Internals.initializeMockCDM documentation> +initializeMockCDM :: (MonadIO m) => Internals -> m ()+initializeMockCDM self = liftIO (js_initializeMockCDM (self))+ +foreign import javascript unsafe+        "$1[\"enableMockSpeechSynthesizer\"]()"+        js_enableMockSpeechSynthesizer :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.enableMockSpeechSynthesizer Mozilla Internals.enableMockSpeechSynthesizer documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getImageSourceURL Mozilla Internals.getImageSourceURL documentation> +getImageSourceURL ::+                  (MonadIO m, IsElement element, FromJSString result) =>+                    Internals -> Maybe element -> m result+getImageSourceURL self element+  = liftIO+      (fromJSString <$>+         (js_getImageSourceURL (self)+            (maybeToNullable (fmap toElement element))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getImageSourceURL Mozilla Internals.getImageSourceURL documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.captionsStyleSheetOverride Mozilla Internals.captionsStyleSheetOverride documentation> +captionsStyleSheetOverride ::+                           (MonadIO m, FromJSString result) => Internals -> m result+captionsStyleSheetOverride self+  = liftIO (fromJSString <$> (js_captionsStyleSheetOverride (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.captionsStyleSheetOverride Mozilla Internals.captionsStyleSheetOverride documentation> +captionsStyleSheetOverride_ :: (MonadIO m) => Internals -> m ()+captionsStyleSheetOverride_ self+  = liftIO (void (js_captionsStyleSheetOverride (self)))+ +foreign import javascript unsafe+        "$1[\"setCaptionsStyleSheetOverride\"]($2)"+        js_setCaptionsStyleSheetOverride :: Internals -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setCaptionsStyleSheetOverride Mozilla Internals.setCaptionsStyleSheetOverride documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPrimaryAudioTrackLanguageOverride Mozilla Internals.setPrimaryAudioTrackLanguageOverride documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setCaptionDisplayMode Mozilla Internals.setCaptionDisplayMode documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createTimeRanges Mozilla Internals.createTimeRanges documentation> +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))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createTimeRanges Mozilla Internals.createTimeRanges documentation> +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))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createTimeRanges Mozilla Internals.createTimeRanges documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.closestTimeToTimeRanges Mozilla Internals.closestTimeToTimeRanges documentation> +closestTimeToTimeRanges ::+                        (MonadIO m) => Internals -> Double -> Maybe TimeRanges -> m Double+closestTimeToTimeRanges self time ranges+  = liftIO+      (js_closestTimeToTimeRanges (self) time (maybeToNullable ranges))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.closestTimeToTimeRanges Mozilla Internals.closestTimeToTimeRanges documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isSelectPopupVisible Mozilla Internals.isSelectPopupVisible documentation> +isSelectPopupVisible ::+                     (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool+isSelectPopupVisible self node+  = liftIO+      (js_isSelectPopupVisible (self)+         (maybeToNullable (fmap toNode node)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isSelectPopupVisible Mozilla Internals.isSelectPopupVisible documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isVibrating Mozilla Internals.isVibrating documentation> +isVibrating :: (MonadIO m) => Internals -> m Bool+isVibrating self = liftIO (js_isVibrating (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isVibrating Mozilla Internals.isVibrating documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginUnavailabilityIndicatorObscured Mozilla Internals.isPluginUnavailabilityIndicatorObscured documentation> +isPluginUnavailabilityIndicatorObscured ::+                                        (MonadIO m, IsElement element) =>+                                          Internals -> Maybe element -> m Bool+isPluginUnavailabilityIndicatorObscured self element+  = liftIO+      (js_isPluginUnavailabilityIndicatorObscured (self)+         (maybeToNullable (fmap toElement element)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginUnavailabilityIndicatorObscured Mozilla Internals.isPluginUnavailabilityIndicatorObscured documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginSnapshotted Mozilla Internals.isPluginSnapshotted documentation> +isPluginSnapshotted ::+                    (MonadIO m, IsElement element) =>+                      Internals -> Maybe element -> m Bool+isPluginSnapshotted self element+  = liftIO+      (js_isPluginSnapshotted (self)+         (maybeToNullable (fmap toElement element)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginSnapshotted Mozilla Internals.isPluginSnapshotted documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectionBounds Mozilla Internals.selectionBounds documentation> +selectionBounds :: (MonadIO m) => Internals -> m (Maybe ClientRect)+selectionBounds self+  = liftIO (nullableToMaybe <$> (js_selectionBounds (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectionBounds Mozilla Internals.selectionBounds documentation> +selectionBounds_ :: (MonadIO m) => Internals -> m ()+selectionBounds_ self = liftIO (void (js_selectionBounds (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectionBounds Mozilla Internals.selectionBounds documentation> +selectionBoundsUnchecked ::+                         (MonadIO m) => Internals -> m ClientRect+selectionBoundsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_selectionBounds (self)))+ +foreign import javascript unsafe+        "$1[\"initializeMockMediaSource\"]()" js_initializeMockMediaSource+        :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.initializeMockMediaSource Mozilla Internals.initializeMockMediaSource documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.bufferedSamplesForTrackID Mozilla Internals.bufferedSamplesForTrackID documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.bufferedSamplesForTrackID Mozilla Internals.bufferedSamplesForTrackID documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.beginMediaSessionInterruption Mozilla Internals.beginMediaSessionInterruption documentation> +beginMediaSessionInterruption :: (MonadIO m) => Internals -> m ()+beginMediaSessionInterruption self+  = liftIO (js_beginMediaSessionInterruption (self))+ +foreign import javascript unsafe+        "$1[\"endMediaSessionInterruption\"]($2)"+        js_endMediaSessionInterruption :: Internals -> JSString -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.endMediaSessionInterruption Mozilla Internals.endMediaSessionInterruption documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.applicationWillEnterForeground Mozilla Internals.applicationWillEnterForeground documentation> +applicationWillEnterForeground :: (MonadIO m) => Internals -> m ()+applicationWillEnterForeground self+  = liftIO (js_applicationWillEnterForeground (self))+ +foreign import javascript unsafe+        "$1[\"applicationWillEnterBackground\"]()"+        js_applicationWillEnterBackground :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.applicationWillEnterBackground Mozilla Internals.applicationWillEnterBackground documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setMediaSessionRestrictions Mozilla Internals.setMediaSessionRestrictions documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.postRemoteControlCommand Mozilla Internals.postRemoteControlCommand documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateSystemSleep Mozilla Internals.simulateSystemSleep documentation> +simulateSystemSleep :: (MonadIO m) => Internals -> m ()+simulateSystemSleep self = liftIO (js_simulateSystemSleep (self))+ +foreign import javascript unsafe "$1[\"simulateSystemWake\"]()"+        js_simulateSystemWake :: Internals -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateSystemWake Mozilla Internals.simulateSystemWake documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementIsBlockingDisplaySleep Mozilla Internals.elementIsBlockingDisplaySleep documentation> +elementIsBlockingDisplaySleep ::+                              (MonadIO m, IsElement element) =>+                                Internals -> Maybe element -> m Bool+elementIsBlockingDisplaySleep self element+  = liftIO+      (js_elementIsBlockingDisplaySleep (self)+         (maybeToNullable (fmap toElement element)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementIsBlockingDisplaySleep Mozilla Internals.elementIsBlockingDisplaySleep documentation> +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 ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.installMockPageOverlay Mozilla Internals.installMockPageOverlay documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageOverlayLayerTreeAsText Mozilla Internals.pageOverlayLayerTreeAsText documentation> +pageOverlayLayerTreeAsText ::+                           (MonadIO m, FromJSString result) => Internals -> m result+pageOverlayLayerTreeAsText self+  = liftIO (fromJSString <$> (js_pageOverlayLayerTreeAsText (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageOverlayLayerTreeAsText Mozilla Internals.pageOverlayLayerTreeAsText documentation> +pageOverlayLayerTreeAsText_ :: (MonadIO m) => Internals -> m ()+pageOverlayLayerTreeAsText_ self+  = liftIO (void (js_pageOverlayLayerTreeAsText (self)))+ +foreign import javascript unsafe "$1[\"setPageMuted\"]($2)"+        js_setPageMuted :: Internals -> Bool -> IO ()++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageMuted Mozilla Internals.setPageMuted documentation> +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++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPagePlayingAudio Mozilla Internals.isPagePlayingAudio documentation> +isPagePlayingAudio :: (MonadIO m) => Internals -> m Bool+isPagePlayingAudio self = liftIO (js_isPagePlayingAudio (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPagePlayingAudio Mozilla Internals.isPagePlayingAudio documentation> +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)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.settings Mozilla Internals.settings documentation> +getSettings ::+            (MonadIO m) => Internals -> m (Maybe InternalSettings)+getSettings self+  = liftIO (nullableToMaybe <$> (js_getSettings (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.settings Mozilla Internals.settings documentation> +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
src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs view
@@ -16,9 +16,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/Location.hs view
@@ -1,15 +1,16 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Location        (js_assign, assign, js_replace, replace, js_reload, reload,-        js_toString, toString, js_setHref, setHref, js_getHref, getHref,-        js_setProtocol, setProtocol, js_getProtocol, getProtocol,+        js_toString, toString, toString_, js_setHref, setHref, js_getHref,+        getHref, js_setProtocol, setProtocol, js_getProtocol, getProtocol,         js_setHost, setHost, js_getHost, getHost, js_setHostname,         setHostname, js_getHostname, getHostname, js_setPort, setPort,         js_getPort, getPort, js_setPathname, setPathname, js_getPathname,         getPathname, js_setSearch, setSearch, js_getSearch, getSearch,         js_setHash, setHash, js_getHash, getHash, js_getOrigin, getOrigin,-        js_getAncestorOrigins, getAncestorOrigins, Location,-        castToLocation, gTypeLocation)+        js_getAncestorOrigins, getAncestorOrigins,+        getAncestorOriginsUnchecked, Location, castToLocation,+        gTypeLocation)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -18,9 +19,11 @@ 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)@@ -54,6 +57,10 @@ toString ::          (MonadIO m, FromJSString result) => Location -> m result toString self = liftIO (fromJSString <$> (js_toString (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.toString Mozilla Location.toString documentation> +toString_ :: (MonadIO m) => Location -> m ()+toString_ self = liftIO (void (js_toString (self)))   foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::         Location -> JSString -> IO ()@@ -196,3 +203,10 @@                    (MonadIO m) => Location -> m (Maybe DOMStringList) getAncestorOrigins self   = liftIO (nullableToMaybe <$> (js_getAncestorOrigins (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.ancestorOrigins Mozilla Location.ancestorOrigins documentation> +getAncestorOriginsUnchecked ::+                            (MonadIO m) => Location -> m DOMStringList+getAncestorOriginsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getAncestorOrigins (self)))
src/GHCJS/DOM/JSFFI/Generated/MallocStatistics.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/MediaController.hs view
@@ -2,16 +2,17 @@ module GHCJS.DOM.JSFFI.Generated.MediaController        (js_newMediaController, newMediaController, js_play, play,         js_pause, pause, js_unpause, unpause, js_getBuffered, getBuffered,-        js_getSeekable, getSeekable, js_getDuration, getDuration,+        getBufferedUnchecked, js_getSeekable, getSeekable,+        getSeekableUnchecked, js_getDuration, getDuration,         js_setCurrentTime, setCurrentTime, js_getCurrentTime,         getCurrentTime, js_getPaused, getPaused, js_getPlayed, getPlayed,-        js_getPlaybackState, getPlaybackState, js_setDefaultPlaybackRate,-        setDefaultPlaybackRate, js_getDefaultPlaybackRate,-        getDefaultPlaybackRate, js_setPlaybackRate, setPlaybackRate,-        js_getPlaybackRate, getPlaybackRate, js_setVolume, setVolume,-        js_getVolume, getVolume, js_setMuted, setMuted, js_getMuted,-        getMuted, MediaController, castToMediaController,-        gTypeMediaController)+        getPlayedUnchecked, js_getPlaybackState, getPlaybackState,+        js_setDefaultPlaybackRate, setDefaultPlaybackRate,+        js_getDefaultPlaybackRate, getDefaultPlaybackRate,+        js_setPlaybackRate, setPlaybackRate, js_getPlaybackRate,+        getPlaybackRate, js_setVolume, setVolume, js_getVolume, getVolume,+        js_setMuted, setMuted, js_getMuted, getMuted, MediaController,+        castToMediaController, gTypeMediaController)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -20,9 +21,11 @@ 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)@@ -65,6 +68,12 @@             (MonadIO m) => MediaController -> m (Maybe TimeRanges) getBuffered self   = liftIO (nullableToMaybe <$> (js_getBuffered (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.buffered Mozilla MediaController.buffered documentation> +getBufferedUnchecked ::+                     (MonadIO m) => MediaController -> m TimeRanges+getBufferedUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getBuffered (self)))   foreign import javascript unsafe "$1[\"seekable\"]" js_getSeekable         :: MediaController -> IO (Nullable TimeRanges)@@ -74,6 +83,12 @@             (MonadIO m) => MediaController -> m (Maybe TimeRanges) getSeekable self   = liftIO (nullableToMaybe <$> (js_getSeekable (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.seekable Mozilla MediaController.seekable documentation> +getSeekableUnchecked ::+                     (MonadIO m) => MediaController -> m TimeRanges+getSeekableUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getSeekable (self)))   foreign import javascript unsafe "$1[\"duration\"]" js_getDuration         :: MediaController -> IO Double@@ -109,6 +124,12 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.played Mozilla MediaController.played documentation>  getPlayed :: (MonadIO m) => MediaController -> m (Maybe TimeRanges) getPlayed self = liftIO (nullableToMaybe <$> (js_getPlayed (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.played Mozilla MediaController.played documentation> +getPlayedUnchecked ::+                   (MonadIO m) => MediaController -> m TimeRanges+getPlayedUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getPlayed (self)))   foreign import javascript unsafe "$1[\"playbackState\"]"         js_getPlaybackState :: MediaController -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs view
@@ -1,24 +1,26 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaControlsHost        (js_sortedTrackListForMenu, sortedTrackListForMenu,-        js_sortedTrackListForMenuAudio, sortedTrackListForMenuAudio,-        js_displayNameForTrack, displayNameForTrack,+        sortedTrackListForMenu_, js_sortedTrackListForMenuAudio,+        sortedTrackListForMenuAudio, sortedTrackListForMenuAudio_,+        js_displayNameForTrack, displayNameForTrack, displayNameForTrack_,         js_displayNameForTrackAudio, displayNameForTrackAudio,-        js_setSelectedTextTrack, setSelectedTextTrack,-        js_updateTextTrackContainer, updateTextTrackContainer,-        js_enteredFullscreen, enteredFullscreen, js_exitedFullscreen,-        exitedFullscreen, js_enterFullscreenOptimized,+        displayNameForTrackAudio_, js_setSelectedTextTrack,+        setSelectedTextTrack, js_updateTextTrackContainer,+        updateTextTrackContainer, js_enteredFullscreen, enteredFullscreen,+        js_exitedFullscreen, exitedFullscreen, js_enterFullscreenOptimized,         enterFullscreenOptimized, js_mediaUIImageData, mediaUIImageData,-        js_getCaptionMenuOffItem, getCaptionMenuOffItem,-        js_getCaptionMenuAutomaticItem, getCaptionMenuAutomaticItem,+        mediaUIImageData_, js_getCaptionMenuOffItem, getCaptionMenuOffItem,+        getCaptionMenuOffItemUnchecked, js_getCaptionMenuAutomaticItem,+        getCaptionMenuAutomaticItem, getCaptionMenuAutomaticItemUnchecked,         js_getCaptionDisplayMode, getCaptionDisplayMode,         js_getTextTrackContainer, getTextTrackContainer,-        js_getMediaPlaybackAllowsInline, getMediaPlaybackAllowsInline,-        js_getSupportsFullscreen, getSupportsFullscreen,-        js_getUserGestureRequired, getUserGestureRequired,-        js_getExternalDeviceDisplayName, getExternalDeviceDisplayName,-        js_getExternalDeviceType, getExternalDeviceType,-        js_setControlsDependOnPageScaleFactor,+        getTextTrackContainerUnchecked, js_getMediaPlaybackAllowsInline,+        getMediaPlaybackAllowsInline, js_getSupportsFullscreen,+        getSupportsFullscreen, js_getUserGestureRequired,+        getUserGestureRequired, js_getExternalDeviceDisplayName,+        getExternalDeviceDisplayName, js_getExternalDeviceType,+        getExternalDeviceType, js_setControlsDependOnPageScaleFactor,         setControlsDependOnPageScaleFactor,         js_getControlsDependOnPageScaleFactor,         getControlsDependOnPageScaleFactor, MediaControlsHost,@@ -31,9 +33,11 @@ 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)@@ -51,6 +55,14 @@   = liftIO       ((js_sortedTrackListForMenu (self) (maybeToNullable trackList)) >>=          fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.sortedTrackListForMenu Mozilla MediaControlsHost.sortedTrackListForMenu documentation> +sortedTrackListForMenu_ ::+                        (MonadIO m) => MediaControlsHost -> Maybe TextTrackList -> m ()+sortedTrackListForMenu_ self trackList+  = liftIO+      (void+         (js_sortedTrackListForMenu (self) (maybeToNullable trackList)))   foreign import javascript unsafe         "$1[\"sortedTrackListForMenu\"]($2)" js_sortedTrackListForMenuAudio@@ -65,6 +77,15 @@       ((js_sortedTrackListForMenuAudio (self)           (maybeToNullable trackList))          >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.sortedTrackListForMenu Mozilla MediaControlsHost.sortedTrackListForMenu documentation> +sortedTrackListForMenuAudio_ ::+                             (MonadIO m) => MediaControlsHost -> Maybe AudioTrackList -> m ()+sortedTrackListForMenuAudio_ self trackList+  = liftIO+      (void+         (js_sortedTrackListForMenuAudio (self)+            (maybeToNullable trackList)))   foreign import javascript unsafe "$1[\"displayNameForTrack\"]($2)"         js_displayNameForTrack ::@@ -78,6 +99,13 @@   = liftIO       (fromJSString <$>          (js_displayNameForTrack (self) (maybeToNullable track)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.displayNameForTrack Mozilla MediaControlsHost.displayNameForTrack documentation> +displayNameForTrack_ ::+                     (MonadIO m) => MediaControlsHost -> Maybe TextTrack -> m ()+displayNameForTrack_ self track+  = liftIO+      (void (js_displayNameForTrack (self) (maybeToNullable track)))   foreign import javascript unsafe "$1[\"displayNameForTrack\"]($2)"         js_displayNameForTrackAudio ::@@ -91,6 +119,13 @@   = liftIO       (fromJSString <$>          (js_displayNameForTrackAudio (self) (maybeToNullable track)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.displayNameForTrack Mozilla MediaControlsHost.displayNameForTrack documentation> +displayNameForTrackAudio_ ::+                          (MonadIO m) => MediaControlsHost -> Maybe AudioTrack -> m ()+displayNameForTrackAudio_ self track+  = liftIO+      (void (js_displayNameForTrackAudio (self) (maybeToNullable track)))   foreign import javascript unsafe "$1[\"setSelectedTextTrack\"]($2)"         js_setSelectedTextTrack ::@@ -146,6 +181,12 @@ mediaUIImageData self partID   = liftIO       (fromJSString <$> (js_mediaUIImageData (self) (pToJSVal partID)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.mediaUIImageData Mozilla MediaControlsHost.mediaUIImageData documentation> +mediaUIImageData_ ::+                  (MonadIO m) => MediaControlsHost -> MediaUIPartID -> m ()+mediaUIImageData_ self partID+  = liftIO (void (js_mediaUIImageData (self) (pToJSVal partID)))   foreign import javascript unsafe "$1[\"captionMenuOffItem\"]"         js_getCaptionMenuOffItem ::@@ -156,6 +197,13 @@                       (MonadIO m) => MediaControlsHost -> m (Maybe TextTrack) getCaptionMenuOffItem self   = liftIO (nullableToMaybe <$> (js_getCaptionMenuOffItem (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuOffItem Mozilla MediaControlsHost.captionMenuOffItem documentation> +getCaptionMenuOffItemUnchecked ::+                               (MonadIO m) => MediaControlsHost -> m TextTrack+getCaptionMenuOffItemUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getCaptionMenuOffItem (self)))   foreign import javascript unsafe "$1[\"captionMenuAutomaticItem\"]"         js_getCaptionMenuAutomaticItem ::@@ -167,6 +215,14 @@ getCaptionMenuAutomaticItem self   = liftIO       (nullableToMaybe <$> (js_getCaptionMenuAutomaticItem (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuAutomaticItem Mozilla MediaControlsHost.captionMenuAutomaticItem documentation> +getCaptionMenuAutomaticItemUnchecked ::+                                     (MonadIO m) => MediaControlsHost -> m TextTrack+getCaptionMenuAutomaticItemUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getCaptionMenuAutomaticItem (self)))   foreign import javascript unsafe "$1[\"captionDisplayMode\"]"         js_getCaptionDisplayMode :: MediaControlsHost -> IO JSString@@ -186,6 +242,13 @@                       (MonadIO m) => MediaControlsHost -> m (Maybe HTMLElement) getTextTrackContainer self   = liftIO (nullableToMaybe <$> (js_getTextTrackContainer (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.textTrackContainer Mozilla MediaControlsHost.textTrackContainer documentation> +getTextTrackContainerUnchecked ::+                               (MonadIO m) => MediaControlsHost -> m HTMLElement+getTextTrackContainerUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getTextTrackContainer (self)))   foreign import javascript unsafe         "($1[\"mediaPlaybackAllowsInline\"] ? 1 : 0)"
src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaElementAudioSourceNode-       (js_getMediaElement, getMediaElement, MediaElementAudioSourceNode,-        castToMediaElementAudioSourceNode,+       (js_getMediaElement, getMediaElement, getMediaElementUnchecked,+        MediaElementAudioSourceNode, castToMediaElementAudioSourceNode,         gTypeMediaElementAudioSourceNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -11,9 +11,11 @@ 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)@@ -29,3 +31,10 @@                   MediaElementAudioSourceNode -> m (Maybe HTMLMediaElement) getMediaElement self   = liftIO (nullableToMaybe <$> (js_getMediaElement (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaElementAudioSourceNode.mediaElement Mozilla MediaElementAudioSourceNode.mediaElement documentation> +getMediaElementUnchecked ::+                         (MonadIO m) => MediaElementAudioSourceNode -> m HTMLMediaElement+getMediaElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getMediaElement (self)))
src/GHCJS/DOM/JSFFI/Generated/MediaError.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/MediaKeyError.hs view
@@ -13,9 +13,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/MediaKeyEvent.hs view
@@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaKeyEvent        (js_getKeySystem, getKeySystem, js_getSessionId, getSessionId,-        js_getInitData, getInitData, js_getMessage, getMessage,-        js_getDefaultURL, getDefaultURL, js_getErrorCode, getErrorCode,+        js_getInitData, getInitData, getInitDataUnchecked, js_getMessage,+        getMessage, getMessageUnchecked, js_getDefaultURL, getDefaultURL,+        js_getErrorCode, getErrorCode, getErrorCodeUnchecked,         js_getSystemCode, getSystemCode, MediaKeyEvent,         castToMediaKeyEvent, gTypeMediaKeyEvent)        where@@ -13,9 +14,11 @@ 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)@@ -46,6 +49,12 @@ getInitData :: (MonadIO m) => MediaKeyEvent -> m (Maybe Uint8Array) getInitData self   = liftIO (nullableToMaybe <$> (js_getInitData (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.initData Mozilla MediaKeyEvent.initData documentation> +getInitDataUnchecked ::+                     (MonadIO m) => MediaKeyEvent -> m Uint8Array+getInitDataUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getInitData (self)))   foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::         MediaKeyEvent -> IO (Nullable Uint8Array)@@ -54,6 +63,11 @@ getMessage :: (MonadIO m) => MediaKeyEvent -> m (Maybe Uint8Array) getMessage self   = liftIO (nullableToMaybe <$> (js_getMessage (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.message Mozilla MediaKeyEvent.message documentation> +getMessageUnchecked :: (MonadIO m) => MediaKeyEvent -> m Uint8Array+getMessageUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getMessage (self)))   foreign import javascript unsafe "$1[\"defaultURL\"]"         js_getDefaultURL :: MediaKeyEvent -> IO JSString@@ -72,6 +86,12 @@              (MonadIO m) => MediaKeyEvent -> m (Maybe MediaKeyError) getErrorCode self   = liftIO (nullableToMaybe <$> (js_getErrorCode (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.errorCode Mozilla MediaKeyEvent.errorCode documentation> +getErrorCodeUnchecked ::+                      (MonadIO m) => MediaKeyEvent -> m MediaKeyError+getErrorCodeUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getErrorCode (self)))   foreign import javascript unsafe "$1[\"systemCode\"]"         js_getSystemCode :: MediaKeyEvent -> IO Word
src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEvent.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaKeyMessageEvent-       (js_getMessage, getMessage, js_getDestinationURL,-        getDestinationURL, MediaKeyMessageEvent,+       (js_getMessage, getMessage, getMessageUnchecked,+        js_getDestinationURL, getDestinationURL, MediaKeyMessageEvent,         castToMediaKeyMessageEvent, gTypeMediaKeyMessageEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -11,9 +11,11 @@ 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)@@ -27,6 +29,12 @@            (MonadIO m) => MediaKeyMessageEvent -> m (Maybe Uint8Array) getMessage self   = liftIO (nullableToMaybe <$> (js_getMessage (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent.message Mozilla WebKitMediaKeyMessageEvent.message documentation> +getMessageUnchecked ::+                    (MonadIO m) => MediaKeyMessageEvent -> m Uint8Array+getMessageUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getMessage (self)))   foreign import javascript unsafe "$1[\"destinationURL\"]"         js_getDestinationURL :: MediaKeyMessageEvent -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/MediaKeyNeededEvent.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaKeyNeededEvent-       (js_getInitData, getInitData, MediaKeyNeededEvent,-        castToMediaKeyNeededEvent, gTypeMediaKeyNeededEvent)+       (js_getInitData, getInitData, getInitDataUnchecked,+        MediaKeyNeededEvent, castToMediaKeyNeededEvent,+        gTypeMediaKeyNeededEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -26,3 +29,9 @@             (MonadIO m) => MediaKeyNeededEvent -> m (Maybe Uint8Array) getInitData self   = liftIO (nullableToMaybe <$> (js_getInitData (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyNeededEvent.initData Mozilla MediaKeyNeededEvent.initData documentation> +getInitDataUnchecked ::+                     (MonadIO m) => MediaKeyNeededEvent -> m Uint8Array+getInitDataUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getInitData (self)))
src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs view
@@ -1,9 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaKeySession        (js_update, update, js_close, close, js_getError, getError,-        js_getKeySystem, getKeySystem, js_getSessionId, getSessionId,-        webKitKeyAdded, webKitKeyError, webKitKeyMessage, MediaKeySession,-        castToMediaKeySession, gTypeMediaKeySession)+        getErrorUnchecked, js_getKeySystem, getKeySystem, js_getSessionId,+        getSessionId, webKitKeyAdded, webKitKeyError, webKitKeyMessage,+        MediaKeySession, castToMediaKeySession, gTypeMediaKeySession)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -12,9 +12,11 @@ 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)@@ -45,6 +47,12 @@ getError ::          (MonadIO m) => MediaKeySession -> m (Maybe MediaKeyError) getError self = liftIO (nullableToMaybe <$> (js_getError (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.error Mozilla WebKitMediaKeySession.error documentation> +getErrorUnchecked ::+                  (MonadIO m) => MediaKeySession -> m MediaKeyError+getErrorUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getError (self)))   foreign import javascript unsafe "$1[\"keySystem\"]"         js_getKeySystem :: MediaKeySession -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaKeys        (js_newMediaKeys, newMediaKeys, js_createSession, createSession,-        js_isTypeSupported, isTypeSupported, js_getKeySystem, getKeySystem,+        createSession_, createSessionUnchecked, js_isTypeSupported,+        isTypeSupported, isTypeSupported_, js_getKeySystem, getKeySystem,         MediaKeys, castToMediaKeys, gTypeMediaKeys)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -11,9 +12,11 @@ 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)@@ -43,6 +46,26 @@       (nullableToMaybe <$>          (js_createSession (self) (toJSString type')             (maybeToNullable (fmap toUint8Array initData))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.createSession Mozilla WebKitMediaKeys.createSession documentation> +createSession_ ::+               (MonadIO m, ToJSString type', IsUint8Array initData) =>+                 MediaKeys -> type' -> Maybe initData -> m ()+createSession_ self type' initData+  = liftIO+      (void+         (js_createSession (self) (toJSString type')+            (maybeToNullable (fmap toUint8Array initData))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.createSession Mozilla WebKitMediaKeys.createSession documentation> +createSessionUnchecked ::+                       (MonadIO m, ToJSString type', IsUint8Array initData) =>+                         MediaKeys -> type' -> Maybe initData -> m MediaKeySession+createSessionUnchecked self type' initData+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSession (self) (toJSString type')+            (maybeToNullable (fmap toUint8Array initData))))   foreign import javascript unsafe         "($1[\"isTypeSupported\"]($2,\n$3) ? 1 : 0)" js_isTypeSupported ::@@ -56,6 +79,16 @@   = liftIO       (js_isTypeSupported (self) (toJSString keySystem)          (toJSString type'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.isTypeSupported Mozilla WebKitMediaKeys.isTypeSupported documentation> +isTypeSupported_ ::+                 (MonadIO m, ToJSString keySystem, ToJSString type') =>+                   MediaKeys -> keySystem -> type' -> m ()+isTypeSupported_ self keySystem type'+  = liftIO+      (void+         (js_isTypeSupported (self) (toJSString keySystem)+            (toJSString type')))   foreign import javascript unsafe "$1[\"keySystem\"]"         js_getKeySystem :: MediaKeys -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/MediaList.hs view
@@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaList-       (js_item, item, js_deleteMedium, deleteMedium, js_appendMedium,-        appendMedium, js_setMediaText, setMediaText, js_getMediaText,-        getMediaText, js_getLength, getLength, MediaList, castToMediaList,+       (js_item, item, item_, itemUnchecked, js_deleteMedium,+        deleteMedium, js_appendMedium, appendMedium, js_setMediaText,+        setMediaText, js_getMediaText, getMediaText, getMediaTextUnchecked,+        js_getLength, getLength, MediaList, castToMediaList,         gTypeMediaList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -12,9 +13,11 @@ 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)@@ -29,6 +32,16 @@        MediaList -> Word -> m (Maybe result) item self index   = liftIO (fromMaybeJSString <$> (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.item Mozilla MediaList.item documentation> +item_ :: (MonadIO m) => MediaList -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.item Mozilla MediaList.item documentation> +itemUnchecked ::+              (MonadIO m, FromJSString result) => MediaList -> Word -> m result+itemUnchecked self index+  = liftIO (fromJust . fromMaybeJSString <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"deleteMedium\"]($2)"         js_deleteMedium :: MediaList -> JSString -> IO ()@@ -65,6 +78,13 @@              (MonadIO m, FromJSString result) => MediaList -> m (Maybe result) getMediaText self   = liftIO (fromMaybeJSString <$> (js_getMediaText (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.mediaText Mozilla MediaList.mediaText documentation> +getMediaTextUnchecked ::+                      (MonadIO m, FromJSString result) => MediaList -> m result+getMediaTextUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getMediaText (self)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         MediaList -> IO Word
src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs view
@@ -1,10 +1,12 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaSource        (js_newMediaSource, newMediaSource, js_addSourceBuffer,-        addSourceBuffer, js_removeSourceBuffer, removeSourceBuffer,-        js_endOfStream, endOfStream, js_isTypeSupported, isTypeSupported,-        js_getSourceBuffers, getSourceBuffers, js_getActiveSourceBuffers,-        getActiveSourceBuffers, js_setDuration, setDuration,+        addSourceBuffer, addSourceBuffer_, addSourceBufferUnchecked,+        js_removeSourceBuffer, removeSourceBuffer, js_endOfStream,+        endOfStream, js_isTypeSupported, isTypeSupported, isTypeSupported_,+        js_getSourceBuffers, getSourceBuffers, getSourceBuffersUnchecked,+        js_getActiveSourceBuffers, getActiveSourceBuffers,+        getActiveSourceBuffersUnchecked, js_setDuration, setDuration,         js_getDuration, getDuration, js_getReadyState, getReadyState,         MediaSource, castToMediaSource, gTypeMediaSource)        where@@ -15,9 +17,11 @@ 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)@@ -42,6 +46,21 @@   = liftIO       (nullableToMaybe <$>          (js_addSourceBuffer (self) (toJSString type')))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.addSourceBuffer Mozilla MediaSource.addSourceBuffer documentation> +addSourceBuffer_ ::+                 (MonadIO m, ToJSString type') => MediaSource -> type' -> m ()+addSourceBuffer_ self type'+  = liftIO (void (js_addSourceBuffer (self) (toJSString type')))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.addSourceBuffer Mozilla MediaSource.addSourceBuffer documentation> +addSourceBufferUnchecked ::+                         (MonadIO m, ToJSString type') =>+                           MediaSource -> type' -> m SourceBuffer+addSourceBufferUnchecked self type'+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_addSourceBuffer (self) (toJSString type')))   foreign import javascript unsafe "$1[\"removeSourceBuffer\"]($2)"         js_removeSourceBuffer ::@@ -71,6 +90,12 @@                 (MonadIO m, ToJSString type') => MediaSource -> type' -> m Bool isTypeSupported self type'   = liftIO (js_isTypeSupported (self) (toJSString type'))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.isTypeSupported Mozilla MediaSource.isTypeSupported documentation> +isTypeSupported_ ::+                 (MonadIO m, ToJSString type') => MediaSource -> type' -> m ()+isTypeSupported_ self type'+  = liftIO (void (js_isTypeSupported (self) (toJSString type')))   foreign import javascript unsafe "$1[\"sourceBuffers\"]"         js_getSourceBuffers ::@@ -81,6 +106,13 @@                  (MonadIO m) => MediaSource -> m (Maybe SourceBufferList) getSourceBuffers self   = liftIO (nullableToMaybe <$> (js_getSourceBuffers (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.sourceBuffers Mozilla MediaSource.sourceBuffers documentation> +getSourceBuffersUnchecked ::+                          (MonadIO m) => MediaSource -> m SourceBufferList+getSourceBuffersUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getSourceBuffers (self)))   foreign import javascript unsafe "$1[\"activeSourceBuffers\"]"         js_getActiveSourceBuffers ::@@ -91,6 +123,13 @@                        (MonadIO m) => MediaSource -> m (Maybe SourceBufferList) getActiveSourceBuffers self   = liftIO (nullableToMaybe <$> (js_getActiveSourceBuffers (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.activeSourceBuffers Mozilla MediaSource.activeSourceBuffers documentation> +getActiveSourceBuffersUnchecked ::+                                (MonadIO m) => MediaSource -> m SourceBufferList+getActiveSourceBuffersUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getActiveSourceBuffers (self)))   foreign import javascript unsafe "$1[\"duration\"] = $2;"         js_setDuration :: MediaSource -> Double -> IO ()
src/GHCJS/DOM/JSFFI/Generated/MediaSourceStates.hs view
@@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaSourceStates        (js_getSourceType, getSourceType, js_getSourceId, getSourceId,-        js_getWidth, getWidth, js_getHeight, getHeight, js_getFrameRate,-        getFrameRate, js_getAspectRatio, getAspectRatio, js_getFacingMode,-        getFacingMode, js_getVolume, getVolume, MediaSourceStates,+        js_getWidth, getWidth, getWidthUnchecked, js_getHeight, getHeight,+        getHeightUnchecked, js_getFrameRate, getFrameRate,+        getFrameRateUnchecked, js_getAspectRatio, getAspectRatio,+        getAspectRatioUnchecked, js_getFacingMode, getFacingMode,+        js_getVolume, getVolume, getVolumeUnchecked, MediaSourceStates,         castToMediaSourceStates, gTypeMediaSourceStates)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -13,9 +15,11 @@ 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)@@ -46,6 +50,11 @@ getWidth :: (MonadIO m) => MediaSourceStates -> m (Maybe Word) getWidth self   = liftIO ((js_getWidth (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.width Mozilla MediaSourceStates.width documentation> +getWidthUnchecked :: (MonadIO m) => MediaSourceStates -> m Word+getWidthUnchecked self+  = liftIO ((js_getWidth (self)) >>= fromJSValUnchecked)   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::         MediaSourceStates -> IO JSVal@@ -54,6 +63,11 @@ getHeight :: (MonadIO m) => MediaSourceStates -> m (Maybe Word) getHeight self   = liftIO ((js_getHeight (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.height Mozilla MediaSourceStates.height documentation> +getHeightUnchecked :: (MonadIO m) => MediaSourceStates -> m Word+getHeightUnchecked self+  = liftIO ((js_getHeight (self)) >>= fromJSValUnchecked)   foreign import javascript unsafe "$1[\"frameRate\"]"         js_getFrameRate :: MediaSourceStates -> IO JSVal@@ -62,6 +76,12 @@ getFrameRate :: (MonadIO m) => MediaSourceStates -> m (Maybe Float) getFrameRate self   = liftIO ((js_getFrameRate (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.frameRate Mozilla MediaSourceStates.frameRate documentation> +getFrameRateUnchecked ::+                      (MonadIO m) => MediaSourceStates -> m Float+getFrameRateUnchecked self+  = liftIO ((js_getFrameRate (self)) >>= fromJSValUnchecked)   foreign import javascript unsafe "$1[\"aspectRatio\"]"         js_getAspectRatio :: MediaSourceStates -> IO JSVal@@ -71,6 +91,12 @@                (MonadIO m) => MediaSourceStates -> m (Maybe Float) getAspectRatio self   = liftIO ((js_getAspectRatio (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.aspectRatio Mozilla MediaSourceStates.aspectRatio documentation> +getAspectRatioUnchecked ::+                        (MonadIO m) => MediaSourceStates -> m Float+getAspectRatioUnchecked self+  = liftIO ((js_getAspectRatio (self)) >>= fromJSValUnchecked)   foreign import javascript unsafe "$1[\"facingMode\"]"         js_getFacingMode :: MediaSourceStates -> IO JSVal@@ -87,4 +113,9 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.volume Mozilla MediaSourceStates.volume documentation>  getVolume :: (MonadIO m) => MediaSourceStates -> m (Maybe Word) getVolume self+  = liftIO ((js_getVolume (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.volume Mozilla MediaSourceStates.volume documentation> +getVolumeUnchecked :: (MonadIO m) => MediaSourceStates -> m Word+getVolumeUnchecked self   = liftIO ((js_getVolume (self)) >>= fromJSValUnchecked)
src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs view
@@ -2,12 +2,14 @@ module GHCJS.DOM.JSFFI.Generated.MediaStream        (js_newMediaStream, newMediaStream, js_newMediaStream',         newMediaStream', js_newMediaStream'', newMediaStream'',-        js_getAudioTracks, getAudioTracks, js_getVideoTracks,-        getVideoTracks, js_getTracks, getTracks, js_addTrack, addTrack,-        js_removeTrack, removeTrack, js_getTrackById, getTrackById,-        js_clone, clone, js_getId, getId, js_getActive, getActive, active,-        inactive, addTrackEvent, removeTrackEvent, MediaStream,-        castToMediaStream, gTypeMediaStream)+        js_getAudioTracks, getAudioTracks, getAudioTracks_,+        js_getVideoTracks, getVideoTracks, getVideoTracks_, js_getTracks,+        getTracks, getTracks_, js_addTrack, addTrack, js_removeTrack,+        removeTrack, js_getTrackById, getTrackById, getTrackById_,+        getTrackByIdUnchecked, js_clone, clone, clone_, cloneUnchecked,+        js_getId, getId, js_getActive, getActive, active, inactive,+        addTrackEvent, removeTrackEvent, MediaStream, castToMediaStream,+        gTypeMediaStream)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -16,9 +18,11 @@ 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)@@ -62,6 +66,10 @@                (MonadIO m) => MediaStream -> m [Maybe MediaStreamTrack] getAudioTracks self   = liftIO ((js_getAudioTracks (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getAudioTracks Mozilla webkitMediaStream.getAudioTracks documentation> +getAudioTracks_ :: (MonadIO m) => MediaStream -> m ()+getAudioTracks_ self = liftIO (void (js_getAudioTracks (self)))   foreign import javascript unsafe "$1[\"getVideoTracks\"]()"         js_getVideoTracks :: MediaStream -> IO JSVal@@ -71,6 +79,10 @@                (MonadIO m) => MediaStream -> m [Maybe MediaStreamTrack] getVideoTracks self   = liftIO ((js_getVideoTracks (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getVideoTracks Mozilla webkitMediaStream.getVideoTracks documentation> +getVideoTracks_ :: (MonadIO m) => MediaStream -> m ()+getVideoTracks_ self = liftIO (void (js_getVideoTracks (self)))   foreign import javascript unsafe "$1[\"getTracks\"]()" js_getTracks         :: MediaStream -> IO JSVal@@ -80,6 +92,10 @@           (MonadIO m) => MediaStream -> m [Maybe MediaStreamTrack] getTracks self   = liftIO ((js_getTracks (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTracks Mozilla webkitMediaStream.getTracks documentation> +getTracks_ :: (MonadIO m) => MediaStream -> m ()+getTracks_ self = liftIO (void (js_getTracks (self)))   foreign import javascript unsafe "$1[\"addTrack\"]($2)" js_addTrack         :: MediaStream -> Nullable MediaStreamTrack -> IO ()@@ -116,6 +132,21 @@ getTrackById self trackId   = liftIO       (nullableToMaybe <$> (js_getTrackById (self) (toJSString trackId)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTrackById Mozilla webkitMediaStream.getTrackById documentation> +getTrackById_ ::+              (MonadIO m, ToJSString trackId) => MediaStream -> trackId -> m ()+getTrackById_ self trackId+  = liftIO (void (js_getTrackById (self) (toJSString trackId)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTrackById Mozilla webkitMediaStream.getTrackById documentation> +getTrackByIdUnchecked ::+                      (MonadIO m, ToJSString trackId) =>+                        MediaStream -> trackId -> m MediaStreamTrack+getTrackByIdUnchecked self trackId+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getTrackById (self) (toJSString trackId)))   foreign import javascript unsafe "$1[\"clone\"]()" js_clone ::         MediaStream -> IO (Nullable MediaStream)@@ -123,6 +154,15 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.clone Mozilla webkitMediaStream.clone documentation>  clone :: (MonadIO m) => MediaStream -> m (Maybe MediaStream) clone self = liftIO (nullableToMaybe <$> (js_clone (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.clone Mozilla webkitMediaStream.clone documentation> +clone_ :: (MonadIO m) => MediaStream -> m ()+clone_ self = liftIO (void (js_clone (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.clone Mozilla webkitMediaStream.clone documentation> +cloneUnchecked :: (MonadIO m) => MediaStream -> m MediaStream+cloneUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_clone (self)))   foreign import javascript unsafe "$1[\"id\"]" js_getId ::         MediaStream -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaStreamAudioDestinationNode-       (js_getStream, getStream, MediaStreamAudioDestinationNode,+       (js_getStream, getStream, getStreamUnchecked,+        MediaStreamAudioDestinationNode,         castToMediaStreamAudioDestinationNode,         gTypeMediaStreamAudioDestinationNode)        where@@ -11,9 +12,11 @@ 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)@@ -27,3 +30,9 @@           (MonadIO m) =>             MediaStreamAudioDestinationNode -> m (Maybe MediaStream) getStream self = liftIO (nullableToMaybe <$> (js_getStream (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioDestinationNode.stream Mozilla MediaStreamAudioDestinationNode.stream documentation> +getStreamUnchecked ::+                   (MonadIO m) => MediaStreamAudioDestinationNode -> m MediaStream+getStreamUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getStream (self)))
src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaStreamAudioSourceNode-       (js_getMediaStream, getMediaStream, MediaStreamAudioSourceNode,-        castToMediaStreamAudioSourceNode, gTypeMediaStreamAudioSourceNode)+       (js_getMediaStream, getMediaStream, getMediaStreamUnchecked,+        MediaStreamAudioSourceNode, castToMediaStreamAudioSourceNode,+        gTypeMediaStreamAudioSourceNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -27,3 +30,10 @@                (MonadIO m) => MediaStreamAudioSourceNode -> m (Maybe MediaStream) getMediaStream self   = liftIO (nullableToMaybe <$> (js_getMediaStream (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioSourceNode.mediaStream Mozilla MediaStreamAudioSourceNode.mediaStream documentation> +getMediaStreamUnchecked ::+                        (MonadIO m) => MediaStreamAudioSourceNode -> m MediaStream+getMediaStreamUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getMediaStream (self)))
src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaStreamEvent-       (js_getStream, getStream, MediaStreamEvent, castToMediaStreamEvent,-        gTypeMediaStreamEvent)+       (js_getStream, getStream, getStreamUnchecked, MediaStreamEvent,+        castToMediaStreamEvent, gTypeMediaStreamEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -25,3 +27,9 @@ getStream ::           (MonadIO m) => MediaStreamEvent -> m (Maybe MediaStream) getStream self = liftIO (nullableToMaybe <$> (js_getStream (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamEvent.stream Mozilla MediaStreamEvent.stream documentation> +getStreamUnchecked ::+                   (MonadIO m) => MediaStreamEvent -> m MediaStream+getStreamUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getStream (self)))
src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs view
@@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaStreamTrack        (js_getSources, getSources, js_getConstraints, getConstraints,-        js_states, states, js_getCapabilities, getCapabilities,-        js_applyConstraints, applyConstraints, js_clone, clone, js_stop,+        getConstraints_, getConstraintsUnchecked, js_states, states,+        states_, statesUnchecked, js_getCapabilities, getCapabilities,+        getCapabilities_, getCapabilitiesUnchecked, js_applyConstraints,+        applyConstraints, js_clone, clone, clone_, cloneUnchecked, js_stop,         stop, js_getKind, getKind, js_getId, getId, js_getLabel, getLabel,         js_setEnabled, setEnabled, js_getEnabled, getEnabled, js_getMuted,         getMuted, mute, unmute, js_get_readonly, get_readonly,@@ -17,9 +19,11 @@ 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)@@ -50,6 +54,21 @@ getConstraints self   = liftIO       (nullableToMaybe <$> (js_getConstraints (toMediaStreamTrack self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getConstraints Mozilla MediaStreamTrack.getConstraints documentation> +getConstraints_ ::+                (MonadIO m, IsMediaStreamTrack self) => self -> m ()+getConstraints_ self+  = liftIO (void (js_getConstraints (toMediaStreamTrack self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getConstraints Mozilla MediaStreamTrack.getConstraints documentation> +getConstraintsUnchecked ::+                        (MonadIO m, IsMediaStreamTrack self) =>+                          self -> m MediaTrackConstraints+getConstraintsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getConstraints (toMediaStreamTrack self)))   foreign import javascript unsafe "$1[\"states\"]()" js_states ::         MediaStreamTrack -> IO (Nullable MediaSourceStates)@@ -61,6 +80,18 @@ states self   = liftIO       (nullableToMaybe <$> (js_states (toMediaStreamTrack self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.states Mozilla MediaStreamTrack.states documentation> +states_ :: (MonadIO m, IsMediaStreamTrack self) => self -> m ()+states_ self = liftIO (void (js_states (toMediaStreamTrack self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.states Mozilla MediaStreamTrack.states documentation> +statesUnchecked ::+                (MonadIO m, IsMediaStreamTrack self) => self -> m MediaSourceStates+statesUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_states (toMediaStreamTrack self)))   foreign import javascript unsafe "$1[\"getCapabilities\"]()"         js_getCapabilities ::@@ -74,6 +105,21 @@   = liftIO       (nullableToMaybe <$>          (js_getCapabilities (toMediaStreamTrack self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getCapabilities Mozilla MediaStreamTrack.getCapabilities documentation> +getCapabilities_ ::+                 (MonadIO m, IsMediaStreamTrack self) => self -> m ()+getCapabilities_ self+  = liftIO (void (js_getCapabilities (toMediaStreamTrack self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getCapabilities Mozilla MediaStreamTrack.getCapabilities documentation> +getCapabilitiesUnchecked ::+                         (MonadIO m, IsMediaStreamTrack self) =>+                           self -> m MediaStreamCapabilities+getCapabilitiesUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getCapabilities (toMediaStreamTrack self)))   foreign import javascript unsafe "$1[\"applyConstraints\"]($2)"         js_applyConstraints ::@@ -97,6 +143,18 @@         self -> m (Maybe MediaStreamTrack) clone self   = liftIO (nullableToMaybe <$> (js_clone (toMediaStreamTrack self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.clone Mozilla MediaStreamTrack.clone documentation> +clone_ :: (MonadIO m, IsMediaStreamTrack self) => self -> m ()+clone_ self = liftIO (void (js_clone (toMediaStreamTrack self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.clone Mozilla MediaStreamTrack.clone documentation> +cloneUnchecked ::+               (MonadIO m, IsMediaStreamTrack self) => self -> m MediaStreamTrack+cloneUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_clone (toMediaStreamTrack self)))   foreign import javascript unsafe "$1[\"stop\"]()" js_stop ::         MediaStreamTrack -> IO ()
src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs view
@@ -1,6 +1,6 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaStreamTrackEvent-       (js_getTrack, getTrack, MediaStreamTrackEvent,+       (js_getTrack, getTrack, getTrackUnchecked, MediaStreamTrackEvent,         castToMediaStreamTrackEvent, gTypeMediaStreamTrackEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -10,9 +10,11 @@ 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)@@ -25,3 +27,9 @@ getTrack ::          (MonadIO m) => MediaStreamTrackEvent -> m (Maybe MediaStreamTrack) getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackEvent.track Mozilla MediaStreamTrackEvent.track documentation> +getTrackUnchecked ::+                  (MonadIO m) => MediaStreamTrackEvent -> m MediaStreamTrack+getTrackUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getTrack (self)))
src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackSourcesCallback.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaTrackConstraints-       (js_getMandatory, getMandatory, js_getOptional, getOptional,-        MediaTrackConstraints, castToMediaTrackConstraints,-        gTypeMediaTrackConstraints)+       (js_getMandatory, getMandatory, getMandatoryUnchecked,+        js_getOptional, getOptional, MediaTrackConstraints,+        castToMediaTrackConstraints, gTypeMediaTrackConstraints)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -27,6 +29,12 @@              (MonadIO m) =>                MediaTrackConstraints -> m (Maybe MediaTrackConstraintSet) getMandatory self+  = liftIO ((js_getMandatory (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraints.mandatory Mozilla MediaTrackConstraints.mandatory documentation> +getMandatoryUnchecked ::+                      (MonadIO m) => MediaTrackConstraints -> m MediaTrackConstraintSet+getMandatoryUnchecked self   = liftIO ((js_getMandatory (self)) >>= fromJSValUnchecked)   foreign import javascript unsafe "$1[\"optional\"]" js_getOptional
src/GHCJS/DOM/JSFFI/Generated/MemoryInfo.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/MessageChannel.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MessageChannel        (js_newMessageChannel, newMessageChannel, js_getPort1, getPort1,-        js_getPort2, getPort2, MessageChannel, castToMessageChannel,-        gTypeMessageChannel)+        getPort1Unchecked, js_getPort2, getPort2, getPort2Unchecked,+        MessageChannel, castToMessageChannel, gTypeMessageChannel)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -32,6 +34,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port1 Mozilla MessageChannel.port1 documentation>  getPort1 :: (MonadIO m) => MessageChannel -> m (Maybe MessagePort) getPort1 self = liftIO (nullableToMaybe <$> (js_getPort1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port1 Mozilla MessageChannel.port1 documentation> +getPort1Unchecked :: (MonadIO m) => MessageChannel -> m MessagePort+getPort1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getPort1 (self)))   foreign import javascript unsafe "$1[\"port2\"]" js_getPort2 ::         MessageChannel -> IO (Nullable MessagePort)@@ -39,3 +46,8 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port2 Mozilla MessageChannel.port2 documentation>  getPort2 :: (MonadIO m) => MessageChannel -> m (Maybe MessagePort) getPort2 self = liftIO (nullableToMaybe <$> (js_getPort2 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port2 Mozilla MessageChannel.port2 documentation> +getPort2Unchecked :: (MonadIO m) => MessageChannel -> m MessagePort+getPort2Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getPort2 (self)))
src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs view
@@ -2,9 +2,9 @@ module GHCJS.DOM.JSFFI.Generated.MessageEvent        (js_initMessageEvent, initMessageEvent, js_webkitInitMessageEvent,         webkitInitMessageEvent, js_getOrigin, getOrigin, js_getLastEventId,-        getLastEventId, js_getSource, getSource, js_getData, getData,-        js_getPorts, getPorts, MessageEvent, castToMessageEvent,-        gTypeMessageEvent)+        getLastEventId, js_getSource, getSource, getSourceUnchecked,+        js_getData, getData, js_getPorts, getPorts, MessageEvent,+        castToMessageEvent, gTypeMessageEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +13,11 @@ 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)@@ -108,6 +110,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.source Mozilla MessageEvent.source documentation>  getSource :: (MonadIO m) => MessageEvent -> m (Maybe EventTarget) getSource self = liftIO (nullableToMaybe <$> (js_getSource (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.source Mozilla MessageEvent.source documentation> +getSourceUnchecked :: (MonadIO m) => MessageEvent -> m EventTarget+getSourceUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getSource (self)))   foreign import javascript unsafe "$1[\"data\"]" js_getData ::         MessageEvent -> IO JSVal
src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/MimeType.hs view
@@ -2,7 +2,8 @@ module GHCJS.DOM.JSFFI.Generated.MimeType        (js_getType, getType, js_getSuffixes, getSuffixes,         js_getDescription, getDescription, js_getEnabledPlugin,-        getEnabledPlugin, MimeType, castToMimeType, gTypeMimeType)+        getEnabledPlugin, getEnabledPluginUnchecked, MimeType,+        castToMimeType, gTypeMimeType)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +12,11 @@ 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)@@ -51,3 +54,9 @@ getEnabledPlugin :: (MonadIO m) => MimeType -> m (Maybe Plugin) getEnabledPlugin self   = liftIO (nullableToMaybe <$> (js_getEnabledPlugin (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.enabledPlugin Mozilla MimeType.enabledPlugin documentation> +getEnabledPluginUnchecked :: (MonadIO m) => MimeType -> m Plugin+getEnabledPluginUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getEnabledPlugin (self)))
src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MimeTypeArray-       (js_item, item, js_namedItem, namedItem, js_getLength, getLength,+       (js_item, item, item_, itemUnchecked, js_namedItem, namedItem,+        namedItem_, namedItemUnchecked, js_getLength, getLength,         MimeTypeArray, castToMimeTypeArray, gTypeMimeTypeArray)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -10,9 +11,11 @@ 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)@@ -25,6 +28,15 @@ item :: (MonadIO m) => MimeTypeArray -> Word -> m (Maybe MimeType) item self index   = liftIO (nullableToMaybe <$> (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.item Mozilla MimeTypeArray.item documentation> +item_ :: (MonadIO m) => MimeTypeArray -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.item Mozilla MimeTypeArray.item documentation> +itemUnchecked :: (MonadIO m) => MimeTypeArray -> Word -> m MimeType+itemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"         js_namedItem :: MimeTypeArray -> JSString -> IO (Nullable MimeType)@@ -36,6 +48,20 @@ namedItem self name   = liftIO       (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.namedItem Mozilla MimeTypeArray.namedItem documentation> +namedItem_ ::+           (MonadIO m, ToJSString name) => MimeTypeArray -> name -> m ()+namedItem_ self name+  = liftIO (void (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.namedItem Mozilla MimeTypeArray.namedItem documentation> +namedItemUnchecked ::+                   (MonadIO m, ToJSString name) => MimeTypeArray -> name -> m MimeType+namedItemUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_namedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         MimeTypeArray -> IO Word
src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs view
@@ -5,12 +5,14 @@         js_getClientY, getClientY, js_getCtrlKey, getCtrlKey,         js_getShiftKey, getShiftKey, js_getAltKey, getAltKey,         js_getMetaKey, getMetaKey, js_getButton, getButton,-        js_getRelatedTarget, getRelatedTarget, js_getMovementX,-        getMovementX, js_getMovementY, getMovementY, js_getOffsetX,-        getOffsetX, js_getOffsetY, getOffsetY, js_getX, getX, js_getY,-        getY, js_getFromElement, getFromElement, js_getToElement,-        getToElement, js_getDataTransfer, getDataTransfer, MouseEvent,-        castToMouseEvent, gTypeMouseEvent, IsMouseEvent, toMouseEvent)+        js_getRelatedTarget, getRelatedTarget, getRelatedTargetUnchecked,+        js_getMovementX, getMovementX, js_getMovementY, getMovementY,+        js_getOffsetX, getOffsetX, js_getOffsetY, getOffsetY, js_getX,+        getX, js_getY, getY, js_getFromElement, getFromElement,+        getFromElementUnchecked, js_getToElement, getToElement,+        getToElementUnchecked, js_getDataTransfer, getDataTransfer,+        getDataTransferUnchecked, MouseEvent, castToMouseEvent,+        gTypeMouseEvent, IsMouseEvent, toMouseEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -19,9 +21,11 @@ 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.JSFFI.Generated.Enums@@ -149,6 +153,14 @@ getRelatedTarget self   = liftIO       (nullableToMaybe <$> (js_getRelatedTarget (toMouseEvent self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.relatedTarget Mozilla MouseEvent.relatedTarget documentation> +getRelatedTargetUnchecked ::+                          (MonadIO m, IsMouseEvent self) => self -> m EventTarget+getRelatedTargetUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getRelatedTarget (toMouseEvent self)))   foreign import javascript unsafe "$1[\"movementX\"]"         js_getMovementX :: MouseEvent -> IO Int@@ -201,6 +213,14 @@ getFromElement self   = liftIO       (nullableToMaybe <$> (js_getFromElement (toMouseEvent self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.fromElement Mozilla MouseEvent.fromElement documentation> +getFromElementUnchecked ::+                        (MonadIO m, IsMouseEvent self) => self -> m Node+getFromElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getFromElement (toMouseEvent self)))   foreign import javascript unsafe "$1[\"toElement\"]"         js_getToElement :: MouseEvent -> IO (Nullable Node)@@ -211,6 +231,14 @@ getToElement self   = liftIO       (nullableToMaybe <$> (js_getToElement (toMouseEvent self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.toElement Mozilla MouseEvent.toElement documentation> +getToElementUnchecked ::+                      (MonadIO m, IsMouseEvent self) => self -> m Node+getToElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getToElement (toMouseEvent self)))   foreign import javascript unsafe "$1[\"dataTransfer\"]"         js_getDataTransfer :: MouseEvent -> IO (Nullable DataTransfer)@@ -221,3 +249,11 @@ getDataTransfer self   = liftIO       (nullableToMaybe <$> (js_getDataTransfer (toMouseEvent self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.dataTransfer Mozilla MouseEvent.dataTransfer documentation> +getDataTransferUnchecked ::+                         (MonadIO m, IsMouseEvent self) => self -> m DataTransfer+getDataTransferUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getDataTransfer (toMouseEvent self)))
src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs view
@@ -2,10 +2,10 @@ module GHCJS.DOM.JSFFI.Generated.MutationEvent        (js_initMutationEvent, initMutationEvent, pattern MODIFICATION,         pattern ADDITION, pattern REMOVAL, js_getRelatedNode,-        getRelatedNode, js_getPrevValue, getPrevValue, js_getNewValue,-        getNewValue, js_getAttrName, getAttrName, js_getAttrChange,-        getAttrChange, MutationEvent, castToMutationEvent,-        gTypeMutationEvent)+        getRelatedNode, getRelatedNodeUnchecked, js_getPrevValue,+        getPrevValue, js_getNewValue, getNewValue, js_getAttrName,+        getAttrName, js_getAttrChange, getAttrChange, MutationEvent,+        castToMutationEvent, gTypeMutationEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -14,9 +14,11 @@ 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)@@ -62,6 +64,12 @@ getRelatedNode :: (MonadIO m) => MutationEvent -> m (Maybe Node) getRelatedNode self   = liftIO (nullableToMaybe <$> (js_getRelatedNode (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.relatedNode Mozilla MutationEvent.relatedNode documentation> +getRelatedNodeUnchecked :: (MonadIO m) => MutationEvent -> m Node+getRelatedNodeUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getRelatedNode (self)))   foreign import javascript unsafe "$1[\"prevValue\"]"         js_getPrevValue :: MutationEvent -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs view
@@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MutationObserver        (js_newMutationObserver, newMutationObserver, js_observe, observe,-        js_takeRecords, takeRecords, js_disconnect, disconnect,-        MutationObserver, castToMutationObserver, gTypeMutationObserver)+        js_takeRecords, takeRecords, takeRecords_, js_disconnect,+        disconnect, MutationObserver, castToMutationObserver,+        gTypeMutationObserver)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +12,11 @@ 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)@@ -53,6 +56,10 @@             (MonadIO m) => MutationObserver -> m [Maybe MutationRecord] takeRecords self   = liftIO ((js_takeRecords (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver.takeRecords Mozilla MutationObserver.takeRecords documentation> +takeRecords_ :: (MonadIO m) => MutationObserver -> m ()+takeRecords_ self = liftIO (void (js_takeRecords (self)))   foreign import javascript unsafe "$1[\"disconnect\"]()"         js_disconnect :: MutationObserver -> IO ()
src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs view
@@ -1,12 +1,15 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MutationRecord-       (js_getType, getType, js_getTarget, getTarget, js_getAddedNodes,-        getAddedNodes, js_getRemovedNodes, getRemovedNodes,-        js_getPreviousSibling, getPreviousSibling, js_getNextSibling,-        getNextSibling, js_getAttributeName, getAttributeName,-        js_getAttributeNamespace, getAttributeNamespace, js_getOldValue,-        getOldValue, MutationRecord, castToMutationRecord,-        gTypeMutationRecord)+       (js_getType, getType, js_getTarget, getTarget, getTargetUnchecked,+        js_getAddedNodes, getAddedNodes, getAddedNodesUnchecked,+        js_getRemovedNodes, getRemovedNodes, getRemovedNodesUnchecked,+        js_getPreviousSibling, getPreviousSibling,+        getPreviousSiblingUnchecked, js_getNextSibling, getNextSibling,+        getNextSiblingUnchecked, js_getAttributeName, getAttributeName,+        getAttributeNameUnchecked, js_getAttributeNamespace,+        getAttributeNamespace, getAttributeNamespaceUnchecked,+        js_getOldValue, getOldValue, getOldValueUnchecked, MutationRecord,+        castToMutationRecord, gTypeMutationRecord)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -15,9 +18,11 @@ 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)@@ -37,6 +42,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.target Mozilla MutationRecord.target documentation>  getTarget :: (MonadIO m) => MutationRecord -> m (Maybe Node) getTarget self = liftIO (nullableToMaybe <$> (js_getTarget (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.target Mozilla MutationRecord.target documentation> +getTargetUnchecked :: (MonadIO m) => MutationRecord -> m Node+getTargetUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getTarget (self)))   foreign import javascript unsafe "$1[\"addedNodes\"]"         js_getAddedNodes :: MutationRecord -> IO (Nullable NodeList)@@ -46,6 +56,12 @@               (MonadIO m) => MutationRecord -> m (Maybe NodeList) getAddedNodes self   = liftIO (nullableToMaybe <$> (js_getAddedNodes (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.addedNodes Mozilla MutationRecord.addedNodes documentation> +getAddedNodesUnchecked ::+                       (MonadIO m) => MutationRecord -> m NodeList+getAddedNodesUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getAddedNodes (self)))   foreign import javascript unsafe "$1[\"removedNodes\"]"         js_getRemovedNodes :: MutationRecord -> IO (Nullable NodeList)@@ -55,6 +71,13 @@                 (MonadIO m) => MutationRecord -> m (Maybe NodeList) getRemovedNodes self   = liftIO (nullableToMaybe <$> (js_getRemovedNodes (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.removedNodes Mozilla MutationRecord.removedNodes documentation> +getRemovedNodesUnchecked ::+                         (MonadIO m) => MutationRecord -> m NodeList+getRemovedNodesUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getRemovedNodes (self)))   foreign import javascript unsafe "$1[\"previousSibling\"]"         js_getPreviousSibling :: MutationRecord -> IO (Nullable Node)@@ -64,6 +87,13 @@                    (MonadIO m) => MutationRecord -> m (Maybe Node) getPreviousSibling self   = liftIO (nullableToMaybe <$> (js_getPreviousSibling (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.previousSibling Mozilla MutationRecord.previousSibling documentation> +getPreviousSiblingUnchecked ::+                            (MonadIO m) => MutationRecord -> m Node+getPreviousSiblingUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getPreviousSibling (self)))   foreign import javascript unsafe "$1[\"nextSibling\"]"         js_getNextSibling :: MutationRecord -> IO (Nullable Node)@@ -72,6 +102,12 @@ getNextSibling :: (MonadIO m) => MutationRecord -> m (Maybe Node) getNextSibling self   = liftIO (nullableToMaybe <$> (js_getNextSibling (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.nextSibling Mozilla MutationRecord.nextSibling documentation> +getNextSiblingUnchecked :: (MonadIO m) => MutationRecord -> m Node+getNextSiblingUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getNextSibling (self)))   foreign import javascript unsafe "$1[\"attributeName\"]"         js_getAttributeName :: MutationRecord -> IO (Nullable JSString)@@ -82,6 +118,13 @@                    MutationRecord -> m (Maybe result) getAttributeName self   = liftIO (fromMaybeJSString <$> (js_getAttributeName (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeName Mozilla MutationRecord.attributeName documentation> +getAttributeNameUnchecked ::+                          (MonadIO m, FromJSString result) => MutationRecord -> m result+getAttributeNameUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getAttributeName (self)))   foreign import javascript unsafe "$1[\"attributeNamespace\"]"         js_getAttributeNamespace ::@@ -93,6 +136,14 @@                         MutationRecord -> m (Maybe result) getAttributeNamespace self   = liftIO (fromMaybeJSString <$> (js_getAttributeNamespace (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeNamespace Mozilla MutationRecord.attributeNamespace documentation> +getAttributeNamespaceUnchecked ::+                               (MonadIO m, FromJSString result) => MutationRecord -> m result+getAttributeNamespaceUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getAttributeNamespace (self)))   foreign import javascript unsafe "$1[\"oldValue\"]" js_getOldValue         :: MutationRecord -> IO (Nullable JSString)@@ -103,3 +154,9 @@               MutationRecord -> m (Maybe result) getOldValue self   = liftIO (fromMaybeJSString <$> (js_getOldValue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.oldValue Mozilla MutationRecord.oldValue documentation> +getOldValueUnchecked ::+                     (MonadIO m, FromJSString result) => MutationRecord -> m result+getOldValueUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getOldValue (self)))
src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs view
@@ -1,11 +1,15 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.NamedNodeMap-       (js_getNamedItem, getNamedItem, js_setNamedItem, setNamedItem,-        js_removeNamedItem, removeNamedItem, js_item, item,-        js_getNamedItemNS, getNamedItemNS, js_setNamedItemNS,-        setNamedItemNS, js_removeNamedItemNS, removeNamedItemNS,-        js_getLength, getLength, NamedNodeMap, castToNamedNodeMap,-        gTypeNamedNodeMap)+       (js_getNamedItem, getNamedItem, getNamedItem_,+        getNamedItemUnchecked, js_setNamedItem, setNamedItem,+        setNamedItem_, setNamedItemUnchecked, js_removeNamedItem,+        removeNamedItem, removeNamedItem_, removeNamedItemUnchecked,+        js_item, item, item_, itemUnchecked, js_getNamedItemNS,+        getNamedItemNS, getNamedItemNS_, getNamedItemNSUnchecked,+        js_setNamedItemNS, setNamedItemNS, setNamedItemNS_,+        setNamedItemNSUnchecked, js_removeNamedItemNS, removeNamedItemNS,+        removeNamedItemNS_, removeNamedItemNSUnchecked, js_getLength,+        getLength, NamedNodeMap, castToNamedNodeMap, gTypeNamedNodeMap)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -14,9 +18,11 @@ 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)@@ -32,6 +38,20 @@ getNamedItem self name   = liftIO       (nullableToMaybe <$> (js_getNamedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItem Mozilla NamedNodeMap.getNamedItem documentation> +getNamedItem_ ::+              (MonadIO m, ToJSString name) => NamedNodeMap -> name -> m ()+getNamedItem_ self name+  = liftIO (void (js_getNamedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItem Mozilla NamedNodeMap.getNamedItem documentation> +getNamedItemUnchecked ::+                      (MonadIO m, ToJSString name) => NamedNodeMap -> name -> m Node+getNamedItemUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getNamedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"setNamedItem\"]($2)"         js_setNamedItem ::@@ -45,6 +65,22 @@   = liftIO       (nullableToMaybe <$>          (js_setNamedItem (self) (maybeToNullable (fmap toNode node))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItem Mozilla NamedNodeMap.setNamedItem documentation> +setNamedItem_ ::+              (MonadIO m, IsNode node) => NamedNodeMap -> Maybe node -> m ()+setNamedItem_ self node+  = liftIO+      (void+         (js_setNamedItem (self) (maybeToNullable (fmap toNode node))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItem Mozilla NamedNodeMap.setNamedItem documentation> +setNamedItemUnchecked ::+                      (MonadIO m, IsNode node) => NamedNodeMap -> Maybe node -> m Node+setNamedItemUnchecked self node+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_setNamedItem (self) (maybeToNullable (fmap toNode node))))   foreign import javascript unsafe "$1[\"removeNamedItem\"]($2)"         js_removeNamedItem ::@@ -57,6 +93,20 @@ removeNamedItem self name   = liftIO       (nullableToMaybe <$> (js_removeNamedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItem Mozilla NamedNodeMap.removeNamedItem documentation> +removeNamedItem_ ::+                 (MonadIO m, ToJSString name) => NamedNodeMap -> name -> m ()+removeNamedItem_ self name+  = liftIO (void (js_removeNamedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItem Mozilla NamedNodeMap.removeNamedItem documentation> +removeNamedItemUnchecked ::+                         (MonadIO m, ToJSString name) => NamedNodeMap -> name -> m Node+removeNamedItemUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_removeNamedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::         NamedNodeMap -> Word -> IO (Nullable Node)@@ -65,6 +115,15 @@ item :: (MonadIO m) => NamedNodeMap -> Word -> m (Maybe Node) item self index   = liftIO (nullableToMaybe <$> (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.item Mozilla NamedNodeMap.item documentation> +item_ :: (MonadIO m) => NamedNodeMap -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.item Mozilla NamedNodeMap.item documentation> +itemUnchecked :: (MonadIO m) => NamedNodeMap -> Word -> m Node+itemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"getNamedItemNS\"]($2, $3)"         js_getNamedItemNS ::@@ -79,6 +138,26 @@       (nullableToMaybe <$>          (js_getNamedItemNS (self) (toMaybeJSString namespaceURI)             (toJSString localName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItemNS Mozilla NamedNodeMap.getNamedItemNS documentation> +getNamedItemNS_ ::+                (MonadIO m, ToJSString namespaceURI, ToJSString localName) =>+                  NamedNodeMap -> Maybe namespaceURI -> localName -> m ()+getNamedItemNS_ self namespaceURI localName+  = liftIO+      (void+         (js_getNamedItemNS (self) (toMaybeJSString namespaceURI)+            (toJSString localName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItemNS Mozilla NamedNodeMap.getNamedItemNS documentation> +getNamedItemNSUnchecked ::+                        (MonadIO m, ToJSString namespaceURI, ToJSString localName) =>+                          NamedNodeMap -> Maybe namespaceURI -> localName -> m Node+getNamedItemNSUnchecked self namespaceURI localName+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getNamedItemNS (self) (toMaybeJSString namespaceURI)+            (toJSString localName)))   foreign import javascript unsafe "$1[\"setNamedItemNS\"]($2)"         js_setNamedItemNS ::@@ -92,6 +171,22 @@   = liftIO       (nullableToMaybe <$>          (js_setNamedItemNS (self) (maybeToNullable (fmap toNode node))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItemNS Mozilla NamedNodeMap.setNamedItemNS documentation> +setNamedItemNS_ ::+                (MonadIO m, IsNode node) => NamedNodeMap -> Maybe node -> m ()+setNamedItemNS_ self node+  = liftIO+      (void+         (js_setNamedItemNS (self) (maybeToNullable (fmap toNode node))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItemNS Mozilla NamedNodeMap.setNamedItemNS documentation> +setNamedItemNSUnchecked ::+                        (MonadIO m, IsNode node) => NamedNodeMap -> Maybe node -> m Node+setNamedItemNSUnchecked self node+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_setNamedItemNS (self) (maybeToNullable (fmap toNode node))))   foreign import javascript unsafe         "$1[\"removeNamedItemNS\"]($2, $3)" js_removeNamedItemNS ::@@ -104,6 +199,26 @@ removeNamedItemNS self namespaceURI localName   = liftIO       (nullableToMaybe <$>+         (js_removeNamedItemNS (self) (toMaybeJSString namespaceURI)+            (toJSString localName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItemNS Mozilla NamedNodeMap.removeNamedItemNS documentation> +removeNamedItemNS_ ::+                   (MonadIO m, ToJSString namespaceURI, ToJSString localName) =>+                     NamedNodeMap -> Maybe namespaceURI -> localName -> m ()+removeNamedItemNS_ self namespaceURI localName+  = liftIO+      (void+         (js_removeNamedItemNS (self) (toMaybeJSString namespaceURI)+            (toJSString localName)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItemNS Mozilla NamedNodeMap.removeNamedItemNS documentation> +removeNamedItemNSUnchecked ::+                           (MonadIO m, ToJSString namespaceURI, ToJSString localName) =>+                             NamedNodeMap -> Maybe namespaceURI -> localName -> m Node+removeNamedItemNSUnchecked self namespaceURI localName+  = liftIO+      (fromJust . nullableToMaybe <$>          (js_removeNamedItemNS (self) (toMaybeJSString namespaceURI)             (toJSString localName)))
src/GHCJS/DOM/JSFFI/Generated/Navigator.hs view
@@ -1,22 +1,26 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Navigator-       (js_getGamepads, getGamepads, js_webkitGetUserMedia,+       (js_getGamepads, getGamepads, getGamepads_, js_webkitGetUserMedia,         webkitGetUserMedia, js_registerProtocolHandler,         registerProtocolHandler, js_isProtocolHandlerRegistered,-        isProtocolHandlerRegistered, js_unregisterProtocolHandler,-        unregisterProtocolHandler, js_vibratePattern, vibratePattern,-        js_vibrate, vibrate, js_javaEnabled, javaEnabled,+        isProtocolHandlerRegistered, isProtocolHandlerRegistered_,+        js_unregisterProtocolHandler, unregisterProtocolHandler,+        js_vibratePattern, vibratePattern, vibratePattern_, js_vibrate,+        vibrate, vibrate_, js_javaEnabled, javaEnabled, javaEnabled_,         js_getStorageUpdates, getStorageUpdates, js_getWebkitBattery,-        getWebkitBattery, js_getGeolocation, getGeolocation,+        getWebkitBattery, getWebkitBatteryUnchecked, js_getGeolocation,+        getGeolocation, getGeolocationUnchecked,         js_getWebkitTemporaryStorage, getWebkitTemporaryStorage,-        js_getWebkitPersistentStorage, getWebkitPersistentStorage,+        getWebkitTemporaryStorageUnchecked, js_getWebkitPersistentStorage,+        getWebkitPersistentStorage, getWebkitPersistentStorageUnchecked,         js_getAppCodeName, getAppCodeName, js_getAppName, getAppName,         js_getAppVersion, getAppVersion, js_getLanguage, getLanguage,         js_getUserAgent, getUserAgent, js_getPlatform, getPlatform,-        js_getPlugins, getPlugins, js_getMimeTypes, getMimeTypes,-        js_getProduct, getProduct, js_getProductSub, getProductSub,-        js_getVendor, getVendor, js_getVendorSub, getVendorSub,-        js_getCookieEnabled, getCookieEnabled, js_getOnLine, getOnLine,+        js_getPlugins, getPlugins, getPluginsUnchecked, js_getMimeTypes,+        getMimeTypes, getMimeTypesUnchecked, js_getProduct, getProduct,+        js_getProductSub, getProductSub, js_getVendor, getVendor,+        js_getVendorSub, getVendorSub, js_getCookieEnabled,+        getCookieEnabled, js_getOnLine, getOnLine,         js_getHardwareConcurrency, getHardwareConcurrency, Navigator,         castToNavigator, gTypeNavigator)        where@@ -27,9 +31,11 @@ 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)@@ -42,6 +48,10 @@ getGamepads :: (MonadIO m) => Navigator -> m [Maybe Gamepad] getGamepads self   = liftIO ((js_getGamepads (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.getGamepads Mozilla Navigator.getGamepads documentation> +getGamepads_ :: (MonadIO m) => Navigator -> m ()+getGamepads_ self = liftIO (void (js_getGamepads (self)))   foreign import javascript unsafe         "$1[\"webkitGetUserMedia\"]($2, $3,\n$4)" js_webkitGetUserMedia ::@@ -94,6 +104,16 @@       (fromJSString <$>          (js_isProtocolHandlerRegistered (self) (toJSString scheme)             (toJSString url)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.isProtocolHandlerRegistered Mozilla Navigator.isProtocolHandlerRegistered documentation> +isProtocolHandlerRegistered_ ::+                             (MonadIO m, ToJSString scheme, ToJSString url) =>+                               Navigator -> scheme -> url -> m ()+isProtocolHandlerRegistered_ self scheme url+  = liftIO+      (void+         (js_isProtocolHandlerRegistered (self) (toJSString scheme)+            (toJSString url)))   foreign import javascript unsafe         "$1[\"unregisterProtocolHandler\"]($2,\n$3)"@@ -118,6 +138,14 @@   = liftIO       (toJSVal pattern' >>=          \ pattern'' -> js_vibratePattern (self) pattern'')++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vibrate Mozilla Navigator.vibrate documentation> +vibratePattern_ :: (MonadIO m) => Navigator -> [Word] -> m ()+vibratePattern_ self pattern'+  = liftIO+      (void+         (toJSVal pattern' >>=+            \ pattern'' -> js_vibratePattern (self) pattern''))   foreign import javascript unsafe "($1[\"vibrate\"]($2) ? 1 : 0)"         js_vibrate :: Navigator -> Word -> IO Bool@@ -125,6 +153,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vibrate Mozilla Navigator.vibrate documentation>  vibrate :: (MonadIO m) => Navigator -> Word -> m Bool vibrate self time = liftIO (js_vibrate (self) time)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vibrate Mozilla Navigator.vibrate documentation> +vibrate_ :: (MonadIO m) => Navigator -> Word -> m ()+vibrate_ self time = liftIO (void (js_vibrate (self) time))   foreign import javascript unsafe "($1[\"javaEnabled\"]() ? 1 : 0)"         js_javaEnabled :: Navigator -> IO Bool@@ -132,6 +164,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.javaEnabled Mozilla Navigator.javaEnabled documentation>  javaEnabled :: (MonadIO m) => Navigator -> m Bool javaEnabled self = liftIO (js_javaEnabled (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.javaEnabled Mozilla Navigator.javaEnabled documentation> +javaEnabled_ :: (MonadIO m) => Navigator -> m ()+javaEnabled_ self = liftIO (void (js_javaEnabled (self)))   foreign import javascript unsafe "$1[\"getStorageUpdates\"]()"         js_getStorageUpdates :: Navigator -> IO ()@@ -148,6 +184,13 @@                  (MonadIO m) => Navigator -> m (Maybe BatteryManager) getWebkitBattery self   = liftIO (nullableToMaybe <$> (js_getWebkitBattery (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitBattery Mozilla Navigator.webkitBattery documentation> +getWebkitBatteryUnchecked ::+                          (MonadIO m) => Navigator -> m BatteryManager+getWebkitBatteryUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getWebkitBattery (self)))   foreign import javascript unsafe "$1[\"geolocation\"]"         js_getGeolocation :: Navigator -> IO (Nullable Geolocation)@@ -156,6 +199,13 @@ getGeolocation :: (MonadIO m) => Navigator -> m (Maybe Geolocation) getGeolocation self   = liftIO (nullableToMaybe <$> (js_getGeolocation (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.geolocation Mozilla Navigator.geolocation documentation> +getGeolocationUnchecked ::+                        (MonadIO m) => Navigator -> m Geolocation+getGeolocationUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getGeolocation (self)))   foreign import javascript unsafe "$1[\"webkitTemporaryStorage\"]"         js_getWebkitTemporaryStorage ::@@ -167,6 +217,14 @@ getWebkitTemporaryStorage self   = liftIO       (nullableToMaybe <$> (js_getWebkitTemporaryStorage (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitTemporaryStorage Mozilla Navigator.webkitTemporaryStorage documentation> +getWebkitTemporaryStorageUnchecked ::+                                   (MonadIO m) => Navigator -> m StorageQuota+getWebkitTemporaryStorageUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getWebkitTemporaryStorage (self)))   foreign import javascript unsafe "$1[\"webkitPersistentStorage\"]"         js_getWebkitPersistentStorage ::@@ -178,6 +236,14 @@ getWebkitPersistentStorage self   = liftIO       (nullableToMaybe <$> (js_getWebkitPersistentStorage (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitPersistentStorage Mozilla Navigator.webkitPersistentStorage documentation> +getWebkitPersistentStorageUnchecked ::+                                    (MonadIO m) => Navigator -> m StorageQuota+getWebkitPersistentStorageUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getWebkitPersistentStorage (self)))   foreign import javascript unsafe "$1[\"appCodeName\"]"         js_getAppCodeName :: Navigator -> IO JSString@@ -239,6 +305,11 @@ getPlugins :: (MonadIO m) => Navigator -> m (Maybe PluginArray) getPlugins self   = liftIO (nullableToMaybe <$> (js_getPlugins (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.plugins Mozilla Navigator.plugins documentation> +getPluginsUnchecked :: (MonadIO m) => Navigator -> m PluginArray+getPluginsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getPlugins (self)))   foreign import javascript unsafe "$1[\"mimeTypes\"]"         js_getMimeTypes :: Navigator -> IO (Nullable MimeTypeArray)@@ -247,6 +318,12 @@ getMimeTypes :: (MonadIO m) => Navigator -> m (Maybe MimeTypeArray) getMimeTypes self   = liftIO (nullableToMaybe <$> (js_getMimeTypes (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.mimeTypes Mozilla Navigator.mimeTypes documentation> +getMimeTypesUnchecked ::+                      (MonadIO m) => Navigator -> m MimeTypeArray+getMimeTypesUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getMimeTypes (self)))   foreign import javascript unsafe "$1[\"product\"]" js_getProduct ::         Navigator -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/Node.hs view
@@ -1,14 +1,20 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Node-       (js_insertBefore, insertBefore, js_replaceChild, replaceChild,-        js_removeChild, removeChild, js_appendChild, appendChild,-        js_hasChildNodes, hasChildNodes, js_cloneNode, cloneNode,-        js_normalize, normalize, js_isSupported, isSupported,-        js_isSameNode, isSameNode, js_isEqualNode, isEqualNode,-        js_lookupPrefix, lookupPrefix, js_isDefaultNamespace,-        isDefaultNamespace, js_lookupNamespaceURI, lookupNamespaceURI,-        js_compareDocumentPosition, compareDocumentPosition, js_contains,-        contains, pattern ELEMENT_NODE, pattern ATTRIBUTE_NODE,+       (js_insertBefore, insertBefore, insertBefore_,+        insertBeforeUnchecked, js_replaceChild, replaceChild,+        replaceChild_, replaceChildUnchecked, js_removeChild, removeChild,+        removeChild_, removeChildUnchecked, js_appendChild, appendChild,+        appendChild_, appendChildUnchecked, js_hasChildNodes,+        hasChildNodes, hasChildNodes_, js_cloneNode, cloneNode, cloneNode_,+        cloneNodeUnchecked, js_normalize, normalize, js_isSupported,+        isSupported, isSupported_, js_isSameNode, isSameNode, isSameNode_,+        js_isEqualNode, isEqualNode, isEqualNode_, js_lookupPrefix,+        lookupPrefix, lookupPrefix_, lookupPrefixUnchecked,+        js_isDefaultNamespace, isDefaultNamespace, isDefaultNamespace_,+        js_lookupNamespaceURI, lookupNamespaceURI, lookupNamespaceURI_,+        lookupNamespaceURIUnchecked, js_compareDocumentPosition,+        compareDocumentPosition, compareDocumentPosition_, js_contains,+        contains, contains_, pattern ELEMENT_NODE, pattern ATTRIBUTE_NODE,         pattern TEXT_NODE, pattern CDATA_SECTION_NODE,         pattern ENTITY_REFERENCE_NODE, pattern ENTITY_NODE,         pattern PROCESSING_INSTRUCTION_NODE, pattern COMMENT_NODE,@@ -20,17 +26,23 @@         pattern DOCUMENT_POSITION_CONTAINS,         pattern DOCUMENT_POSITION_CONTAINED_BY,         pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC, js_getNodeName,-        getNodeName, js_setNodeValue, setNodeValue, js_getNodeValue,-        getNodeValue, js_getNodeType, getNodeType, js_getParentNode,-        getParentNode, js_getChildNodes, getChildNodes, js_getFirstChild,-        getFirstChild, js_getLastChild, getLastChild,-        js_getPreviousSibling, getPreviousSibling, js_getNextSibling,-        getNextSibling, js_getOwnerDocument, getOwnerDocument,-        js_getNamespaceURI, getNamespaceURI, js_setPrefix, setPrefix,-        js_getPrefix, getPrefix, js_getLocalName, getLocalName,-        js_getBaseURI, getBaseURI, js_setTextContent, setTextContent,-        js_getTextContent, getTextContent, js_getParentElement,-        getParentElement, Node, castToNode, gTypeNode, IsNode, toNode)+        getNodeName, getNodeNameUnchecked, js_setNodeValue, setNodeValue,+        js_getNodeValue, getNodeValue, getNodeValueUnchecked,+        js_getNodeType, getNodeType, js_getParentNode, getParentNode,+        getParentNodeUnchecked, js_getChildNodes, getChildNodes,+        getChildNodesUnchecked, js_getFirstChild, getFirstChild,+        getFirstChildUnchecked, js_getLastChild, getLastChild,+        getLastChildUnchecked, js_getPreviousSibling, getPreviousSibling,+        getPreviousSiblingUnchecked, js_getNextSibling, getNextSibling,+        getNextSiblingUnchecked, js_getOwnerDocument, getOwnerDocument,+        getOwnerDocumentUnchecked, js_getNamespaceURI, getNamespaceURI,+        getNamespaceURIUnchecked, js_setPrefix, setPrefix, js_getPrefix,+        getPrefix, getPrefixUnchecked, js_getLocalName, getLocalName,+        getLocalNameUnchecked, js_getBaseURI, getBaseURI,+        getBaseURIUnchecked, js_setTextContent, setTextContent,+        js_getTextContent, getTextContent, getTextContentUnchecked,+        js_getParentElement, getParentElement, getParentElementUnchecked,+        Node, castToNode, gTypeNode, IsNode, toNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -39,9 +51,11 @@ 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)@@ -61,6 +75,28 @@          (js_insertBefore (toNode self)             (maybeToNullable (fmap toNode newChild))             (maybeToNullable (fmap toNode refChild))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.insertBefore Mozilla Node.insertBefore documentation> +insertBefore_ ::+              (MonadIO m, IsNode self, IsNode newChild, IsNode refChild) =>+                self -> Maybe newChild -> Maybe refChild -> m ()+insertBefore_ self newChild refChild+  = liftIO+      (void+         (js_insertBefore (toNode self)+            (maybeToNullable (fmap toNode newChild))+            (maybeToNullable (fmap toNode refChild))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.insertBefore Mozilla Node.insertBefore documentation> +insertBeforeUnchecked ::+                      (MonadIO m, IsNode self, IsNode newChild, IsNode refChild) =>+                        self -> Maybe newChild -> Maybe refChild -> m Node+insertBeforeUnchecked self newChild refChild+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_insertBefore (toNode self)+            (maybeToNullable (fmap toNode newChild))+            (maybeToNullable (fmap toNode refChild))))   foreign import javascript unsafe "$1[\"replaceChild\"]($2, $3)"         js_replaceChild ::@@ -76,6 +112,28 @@          (js_replaceChild (toNode self)             (maybeToNullable (fmap toNode newChild))             (maybeToNullable (fmap toNode oldChild))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.replaceChild Mozilla Node.replaceChild documentation> +replaceChild_ ::+              (MonadIO m, IsNode self, IsNode newChild, IsNode oldChild) =>+                self -> Maybe newChild -> Maybe oldChild -> m ()+replaceChild_ self newChild oldChild+  = liftIO+      (void+         (js_replaceChild (toNode self)+            (maybeToNullable (fmap toNode newChild))+            (maybeToNullable (fmap toNode oldChild))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.replaceChild Mozilla Node.replaceChild documentation> +replaceChildUnchecked ::+                      (MonadIO m, IsNode self, IsNode newChild, IsNode oldChild) =>+                        self -> Maybe newChild -> Maybe oldChild -> m Node+replaceChildUnchecked self newChild oldChild+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_replaceChild (toNode self)+            (maybeToNullable (fmap toNode newChild))+            (maybeToNullable (fmap toNode oldChild))))   foreign import javascript unsafe "$1[\"removeChild\"]($2)"         js_removeChild :: Node -> Nullable Node -> IO (Nullable Node)@@ -89,6 +147,26 @@       (nullableToMaybe <$>          (js_removeChild (toNode self)             (maybeToNullable (fmap toNode oldChild))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.removeChild Mozilla Node.removeChild documentation> +removeChild_ ::+             (MonadIO m, IsNode self, IsNode oldChild) =>+               self -> Maybe oldChild -> m ()+removeChild_ self oldChild+  = liftIO+      (void+         (js_removeChild (toNode self)+            (maybeToNullable (fmap toNode oldChild))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.removeChild Mozilla Node.removeChild documentation> +removeChildUnchecked ::+                     (MonadIO m, IsNode self, IsNode oldChild) =>+                       self -> Maybe oldChild -> m Node+removeChildUnchecked self oldChild+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_removeChild (toNode self)+            (maybeToNullable (fmap toNode oldChild))))   foreign import javascript unsafe "$1[\"appendChild\"]($2)"         js_appendChild :: Node -> Nullable Node -> IO (Nullable Node)@@ -102,6 +180,26 @@       (nullableToMaybe <$>          (js_appendChild (toNode self)             (maybeToNullable (fmap toNode newChild))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.appendChild Mozilla Node.appendChild documentation> +appendChild_ ::+             (MonadIO m, IsNode self, IsNode newChild) =>+               self -> Maybe newChild -> m ()+appendChild_ self newChild+  = liftIO+      (void+         (js_appendChild (toNode self)+            (maybeToNullable (fmap toNode newChild))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.appendChild Mozilla Node.appendChild documentation> +appendChildUnchecked ::+                     (MonadIO m, IsNode self, IsNode newChild) =>+                       self -> Maybe newChild -> m Node+appendChildUnchecked self newChild+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_appendChild (toNode self)+            (maybeToNullable (fmap toNode newChild))))   foreign import javascript unsafe         "($1[\"hasChildNodes\"]() ? 1 : 0)" js_hasChildNodes ::@@ -110,6 +208,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.hasChildNodes Mozilla Node.hasChildNodes documentation>  hasChildNodes :: (MonadIO m, IsNode self) => self -> m Bool hasChildNodes self = liftIO (js_hasChildNodes (toNode self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.hasChildNodes Mozilla Node.hasChildNodes documentation> +hasChildNodes_ :: (MonadIO m, IsNode self) => self -> m ()+hasChildNodes_ self+  = liftIO (void (js_hasChildNodes (toNode self)))   foreign import javascript unsafe "$1[\"cloneNode\"]($2)"         js_cloneNode :: Node -> Bool -> IO (Nullable Node)@@ -119,6 +222,18 @@           (MonadIO m, IsNode self) => self -> Bool -> m (Maybe Node) cloneNode self deep   = liftIO (nullableToMaybe <$> (js_cloneNode (toNode self) deep))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.cloneNode Mozilla Node.cloneNode documentation> +cloneNode_ :: (MonadIO m, IsNode self) => self -> Bool -> m ()+cloneNode_ self deep+  = liftIO (void (js_cloneNode (toNode self) deep))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.cloneNode Mozilla Node.cloneNode documentation> +cloneNodeUnchecked ::+                   (MonadIO m, IsNode self) => self -> Bool -> m Node+cloneNodeUnchecked self deep+  = liftIO+      (fromJust . nullableToMaybe <$> (js_cloneNode (toNode self) deep))   foreign import javascript unsafe "$1[\"normalize\"]()" js_normalize         :: Node -> IO ()@@ -139,6 +254,16 @@   = liftIO       (js_isSupported (toNode self) (toJSString feature)          (toMaybeJSString version))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isSupported Mozilla Node.isSupported documentation> +isSupported_ ::+             (MonadIO m, IsNode self, ToJSString feature, ToJSString version) =>+               self -> feature -> Maybe version -> m ()+isSupported_ self feature version+  = liftIO+      (void+         (js_isSupported (toNode self) (toJSString feature)+            (toMaybeJSString version)))   foreign import javascript unsafe "($1[\"isSameNode\"]($2) ? 1 : 0)"         js_isSameNode :: Node -> Nullable Node -> IO Bool@@ -150,6 +275,16 @@ isSameNode self other   = liftIO       (js_isSameNode (toNode self) (maybeToNullable (fmap toNode other)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isSameNode Mozilla Node.isSameNode documentation> +isSameNode_ ::+            (MonadIO m, IsNode self, IsNode other) =>+              self -> Maybe other -> m ()+isSameNode_ self other+  = liftIO+      (void+         (js_isSameNode (toNode self)+            (maybeToNullable (fmap toNode other))))   foreign import javascript unsafe         "($1[\"isEqualNode\"]($2) ? 1 : 0)" js_isEqualNode ::@@ -163,6 +298,16 @@   = liftIO       (js_isEqualNode (toNode self)          (maybeToNullable (fmap toNode other)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isEqualNode Mozilla Node.isEqualNode documentation> +isEqualNode_ ::+             (MonadIO m, IsNode self, IsNode other) =>+               self -> Maybe other -> m ()+isEqualNode_ self other+  = liftIO+      (void+         (js_isEqualNode (toNode self)+            (maybeToNullable (fmap toNode other))))   foreign import javascript unsafe "$1[\"lookupPrefix\"]($2)"         js_lookupPrefix ::@@ -177,6 +322,25 @@   = liftIO       (fromMaybeJSString <$>          (js_lookupPrefix (toNode self) (toMaybeJSString namespaceURI)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupPrefix Mozilla Node.lookupPrefix documentation> +lookupPrefix_ ::+              (MonadIO m, IsNode self, ToJSString namespaceURI) =>+                self -> Maybe namespaceURI -> m ()+lookupPrefix_ self namespaceURI+  = liftIO+      (void+         (js_lookupPrefix (toNode self) (toMaybeJSString namespaceURI)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupPrefix Mozilla Node.lookupPrefix documentation> +lookupPrefixUnchecked ::+                      (MonadIO m, IsNode self, ToJSString namespaceURI,+                       FromJSString result) =>+                        self -> Maybe namespaceURI -> m result+lookupPrefixUnchecked self namespaceURI+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_lookupPrefix (toNode self) (toMaybeJSString namespaceURI)))   foreign import javascript unsafe         "($1[\"isDefaultNamespace\"]($2) ? 1 : 0)" js_isDefaultNamespace ::@@ -190,6 +354,16 @@   = liftIO       (js_isDefaultNamespace (toNode self)          (toMaybeJSString namespaceURI))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isDefaultNamespace Mozilla Node.isDefaultNamespace documentation> +isDefaultNamespace_ ::+                    (MonadIO m, IsNode self, ToJSString namespaceURI) =>+                      self -> Maybe namespaceURI -> m ()+isDefaultNamespace_ self namespaceURI+  = liftIO+      (void+         (js_isDefaultNamespace (toNode self)+            (toMaybeJSString namespaceURI)))   foreign import javascript unsafe "$1[\"lookupNamespaceURI\"]($2)"         js_lookupNamespaceURI ::@@ -203,6 +377,24 @@   = liftIO       (fromMaybeJSString <$>          (js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupNamespaceURI Mozilla Node.lookupNamespaceURI documentation> +lookupNamespaceURI_ ::+                    (MonadIO m, IsNode self, ToJSString prefix) =>+                      self -> Maybe prefix -> m ()+lookupNamespaceURI_ self prefix+  = liftIO+      (void+         (js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupNamespaceURI Mozilla Node.lookupNamespaceURI documentation> +lookupNamespaceURIUnchecked ::+                            (MonadIO m, IsNode self, ToJSString prefix, FromJSString result) =>+                              self -> Maybe prefix -> m result+lookupNamespaceURIUnchecked self prefix+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix)))   foreign import javascript unsafe         "$1[\"compareDocumentPosition\"]($2)" js_compareDocumentPosition ::@@ -216,6 +408,16 @@   = liftIO       (js_compareDocumentPosition (toNode self)          (maybeToNullable (fmap toNode other)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.compareDocumentPosition Mozilla Node.compareDocumentPosition documentation> +compareDocumentPosition_ ::+                         (MonadIO m, IsNode self, IsNode other) =>+                           self -> Maybe other -> m ()+compareDocumentPosition_ self other+  = liftIO+      (void+         (js_compareDocumentPosition (toNode self)+            (maybeToNullable (fmap toNode other))))   foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"         js_contains :: Node -> Nullable Node -> IO Bool@@ -227,6 +429,15 @@ contains self other   = liftIO       (js_contains (toNode self) (maybeToNullable (fmap toNode other)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.contains Mozilla Node.contains documentation> +contains_ ::+          (MonadIO m, IsNode self, IsNode other) =>+            self -> Maybe other -> m ()+contains_ self other+  = liftIO+      (void+         (js_contains (toNode self) (maybeToNullable (fmap toNode other)))) pattern ELEMENT_NODE = 1 pattern ATTRIBUTE_NODE = 2 pattern TEXT_NODE = 3@@ -255,6 +466,13 @@               self -> m (Maybe result) getNodeName self   = liftIO (fromMaybeJSString <$> (js_getNodeName (toNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeName Mozilla Node.nodeName documentation> +getNodeNameUnchecked ::+                     (MonadIO m, IsNode self, FromJSString result) => self -> m result+getNodeNameUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getNodeName (toNode self)))   foreign import javascript unsafe "$1[\"nodeValue\"] = $2;"         js_setNodeValue :: Node -> Nullable JSString -> IO ()@@ -275,6 +493,13 @@                self -> m (Maybe result) getNodeValue self   = liftIO (fromMaybeJSString <$> (js_getNodeValue (toNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeValue Mozilla Node.nodeValue documentation> +getNodeValueUnchecked ::+                      (MonadIO m, IsNode self, FromJSString result) => self -> m result+getNodeValueUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getNodeValue (toNode self)))   foreign import javascript unsafe "$1[\"nodeType\"]" js_getNodeType         :: Node -> IO Word@@ -290,6 +515,13 @@ getParentNode :: (MonadIO m, IsNode self) => self -> m (Maybe Node) getParentNode self   = liftIO (nullableToMaybe <$> (js_getParentNode (toNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.parentNode Mozilla Node.parentNode documentation> +getParentNodeUnchecked ::+                       (MonadIO m, IsNode self) => self -> m Node+getParentNodeUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getParentNode (toNode self)))   foreign import javascript unsafe "$1[\"childNodes\"]"         js_getChildNodes :: Node -> IO (Nullable NodeList)@@ -299,6 +531,13 @@               (MonadIO m, IsNode self) => self -> m (Maybe NodeList) getChildNodes self   = liftIO (nullableToMaybe <$> (js_getChildNodes (toNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.childNodes Mozilla Node.childNodes documentation> +getChildNodesUnchecked ::+                       (MonadIO m, IsNode self) => self -> m NodeList+getChildNodesUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getChildNodes (toNode self)))   foreign import javascript unsafe "$1[\"firstChild\"]"         js_getFirstChild :: Node -> IO (Nullable Node)@@ -307,6 +546,13 @@ getFirstChild :: (MonadIO m, IsNode self) => self -> m (Maybe Node) getFirstChild self   = liftIO (nullableToMaybe <$> (js_getFirstChild (toNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.firstChild Mozilla Node.firstChild documentation> +getFirstChildUnchecked ::+                       (MonadIO m, IsNode self) => self -> m Node+getFirstChildUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getFirstChild (toNode self)))   foreign import javascript unsafe "$1[\"lastChild\"]"         js_getLastChild :: Node -> IO (Nullable Node)@@ -315,6 +561,12 @@ getLastChild :: (MonadIO m, IsNode self) => self -> m (Maybe Node) getLastChild self   = liftIO (nullableToMaybe <$> (js_getLastChild (toNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lastChild Mozilla Node.lastChild documentation> +getLastChildUnchecked :: (MonadIO m, IsNode self) => self -> m Node+getLastChildUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getLastChild (toNode self)))   foreign import javascript unsafe "$1[\"previousSibling\"]"         js_getPreviousSibling :: Node -> IO (Nullable Node)@@ -325,6 +577,14 @@ getPreviousSibling self   = liftIO       (nullableToMaybe <$> (js_getPreviousSibling (toNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.previousSibling Mozilla Node.previousSibling documentation> +getPreviousSiblingUnchecked ::+                            (MonadIO m, IsNode self) => self -> m Node+getPreviousSiblingUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getPreviousSibling (toNode self)))   foreign import javascript unsafe "$1[\"nextSibling\"]"         js_getNextSibling :: Node -> IO (Nullable Node)@@ -334,6 +594,13 @@                (MonadIO m, IsNode self) => self -> m (Maybe Node) getNextSibling self   = liftIO (nullableToMaybe <$> (js_getNextSibling (toNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nextSibling Mozilla Node.nextSibling documentation> +getNextSiblingUnchecked ::+                        (MonadIO m, IsNode self) => self -> m Node+getNextSiblingUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getNextSibling (toNode self)))   foreign import javascript unsafe "$1[\"ownerDocument\"]"         js_getOwnerDocument :: Node -> IO (Nullable Document)@@ -343,6 +610,14 @@                  (MonadIO m, IsNode self) => self -> m (Maybe Document) getOwnerDocument self   = liftIO (nullableToMaybe <$> (js_getOwnerDocument (toNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.ownerDocument Mozilla Node.ownerDocument documentation> +getOwnerDocumentUnchecked ::+                          (MonadIO m, IsNode self) => self -> m Document+getOwnerDocumentUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getOwnerDocument (toNode self)))   foreign import javascript unsafe "$1[\"namespaceURI\"]"         js_getNamespaceURI :: Node -> IO (Nullable JSString)@@ -353,6 +628,14 @@                   self -> m (Maybe result) getNamespaceURI self   = liftIO (fromMaybeJSString <$> (js_getNamespaceURI (toNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.namespaceURI Mozilla Node.namespaceURI documentation> +getNamespaceURIUnchecked ::+                         (MonadIO m, IsNode self, FromJSString result) => self -> m result+getNamespaceURIUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getNamespaceURI (toNode self)))   foreign import javascript unsafe "$1[\"prefix\"] = $2;"         js_setPrefix :: Node -> Nullable JSString -> IO ()@@ -373,6 +656,13 @@             self -> m (Maybe result) getPrefix self   = liftIO (fromMaybeJSString <$> (js_getPrefix (toNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.prefix Mozilla Node.prefix documentation> +getPrefixUnchecked ::+                   (MonadIO m, IsNode self, FromJSString result) => self -> m result+getPrefixUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getPrefix (toNode self)))   foreign import javascript unsafe "$1[\"localName\"]"         js_getLocalName :: Node -> IO (Nullable JSString)@@ -383,6 +673,13 @@                self -> m (Maybe result) getLocalName self   = liftIO (fromMaybeJSString <$> (js_getLocalName (toNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.localName Mozilla Node.localName documentation> +getLocalNameUnchecked ::+                      (MonadIO m, IsNode self, FromJSString result) => self -> m result+getLocalNameUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getLocalName (toNode self)))   foreign import javascript unsafe "$1[\"baseURI\"]" js_getBaseURI ::         Node -> IO (Nullable JSString)@@ -393,6 +690,13 @@              self -> m (Maybe result) getBaseURI self   = liftIO (fromMaybeJSString <$> (js_getBaseURI (toNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.baseURI Mozilla Node.baseURI documentation> +getBaseURIUnchecked ::+                    (MonadIO m, IsNode self, FromJSString result) => self -> m result+getBaseURIUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getBaseURI (toNode self)))   foreign import javascript unsafe "$1[\"textContent\"] = $2;"         js_setTextContent :: Node -> Nullable JSString -> IO ()@@ -413,6 +717,14 @@                  self -> m (Maybe result) getTextContent self   = liftIO (fromMaybeJSString <$> (js_getTextContent (toNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.textContent Mozilla Node.textContent documentation> +getTextContentUnchecked ::+                        (MonadIO m, IsNode self, FromJSString result) => self -> m result+getTextContentUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getTextContent (toNode self)))   foreign import javascript unsafe "$1[\"parentElement\"]"         js_getParentElement :: Node -> IO (Nullable Element)@@ -422,3 +734,11 @@                  (MonadIO m, IsNode self) => self -> m (Maybe Element) getParentElement self   = liftIO (nullableToMaybe <$> (js_getParentElement (toNode self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.parentElement Mozilla Node.parentElement documentation> +getParentElementUnchecked ::+                          (MonadIO m, IsNode self) => self -> m Element+getParentElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getParentElement (toNode self)))
src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs view
@@ -1,6 +1,6 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.NodeFilter-       (js_acceptNode, acceptNode, pattern FILTER_ACCEPT,+       (js_acceptNode, acceptNode, acceptNode_, pattern FILTER_ACCEPT,         pattern FILTER_REJECT, pattern FILTER_SKIP, pattern SHOW_ALL,         pattern SHOW_ELEMENT, pattern SHOW_ATTRIBUTE, pattern SHOW_TEXT,         pattern SHOW_CDATA_SECTION, pattern SHOW_ENTITY_REFERENCE,@@ -17,9 +17,11 @@ 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)@@ -33,6 +35,13 @@            (MonadIO m, IsNode n) => NodeFilter -> Maybe n -> m Int acceptNode self n   = liftIO (js_acceptNode (self) (maybeToNullable (fmap toNode n)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeFilter.acceptNode Mozilla NodeFilter.acceptNode documentation> +acceptNode_ ::+            (MonadIO m, IsNode n) => NodeFilter -> Maybe n -> m ()+acceptNode_ self n+  = liftIO+      (void (js_acceptNode (self) (maybeToNullable (fmap toNode n)))) pattern FILTER_ACCEPT = 1 pattern FILTER_REJECT = 2 pattern FILTER_SKIP = 3
src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs view
@@ -1,11 +1,14 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.NodeIterator-       (js_nextNode, nextNode, js_previousNode, previousNode, js_detach,-        detach, js_getRoot, getRoot, js_getWhatToShow, getWhatToShow,-        js_getFilter, getFilter, js_getExpandEntityReferences,+       (js_nextNode, nextNode, nextNode_, nextNodeUnchecked,+        js_previousNode, previousNode, previousNode_,+        previousNodeUnchecked, js_detach, detach, js_getRoot, getRoot,+        getRootUnchecked, js_getWhatToShow, getWhatToShow, js_getFilter,+        getFilter, getFilterUnchecked, js_getExpandEntityReferences,         getExpandEntityReferences, js_getReferenceNode, getReferenceNode,-        js_getPointerBeforeReferenceNode, getPointerBeforeReferenceNode,-        NodeIterator, castToNodeIterator, gTypeNodeIterator)+        getReferenceNodeUnchecked, js_getPointerBeforeReferenceNode,+        getPointerBeforeReferenceNode, NodeIterator, castToNodeIterator,+        gTypeNodeIterator)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -14,9 +17,11 @@ 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)@@ -28,6 +33,15 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.nextNode Mozilla NodeIterator.nextNode documentation>  nextNode :: (MonadIO m) => NodeIterator -> m (Maybe Node) nextNode self = liftIO (nullableToMaybe <$> (js_nextNode (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.nextNode Mozilla NodeIterator.nextNode documentation> +nextNode_ :: (MonadIO m) => NodeIterator -> m ()+nextNode_ self = liftIO (void (js_nextNode (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.nextNode Mozilla NodeIterator.nextNode documentation> +nextNodeUnchecked :: (MonadIO m) => NodeIterator -> m Node+nextNodeUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_nextNode (self)))   foreign import javascript unsafe "$1[\"previousNode\"]()"         js_previousNode :: NodeIterator -> IO (Nullable Node)@@ -36,6 +50,15 @@ previousNode :: (MonadIO m) => NodeIterator -> m (Maybe Node) previousNode self   = liftIO (nullableToMaybe <$> (js_previousNode (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.previousNode Mozilla NodeIterator.previousNode documentation> +previousNode_ :: (MonadIO m) => NodeIterator -> m ()+previousNode_ self = liftIO (void (js_previousNode (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.previousNode Mozilla NodeIterator.previousNode documentation> +previousNodeUnchecked :: (MonadIO m) => NodeIterator -> m Node+previousNodeUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_previousNode (self)))   foreign import javascript unsafe "$1[\"detach\"]()" js_detach ::         NodeIterator -> IO ()@@ -50,6 +73,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.root Mozilla NodeIterator.root documentation>  getRoot :: (MonadIO m) => NodeIterator -> m (Maybe Node) getRoot self = liftIO (nullableToMaybe <$> (js_getRoot (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.root Mozilla NodeIterator.root documentation> +getRootUnchecked :: (MonadIO m) => NodeIterator -> m Node+getRootUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRoot (self)))   foreign import javascript unsafe "$1[\"whatToShow\"]"         js_getWhatToShow :: NodeIterator -> IO Word@@ -64,6 +92,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.filter Mozilla NodeIterator.filter documentation>  getFilter :: (MonadIO m) => NodeIterator -> m (Maybe NodeFilter) getFilter self = liftIO (nullableToMaybe <$> (js_getFilter (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.filter Mozilla NodeIterator.filter documentation> +getFilterUnchecked :: (MonadIO m) => NodeIterator -> m NodeFilter+getFilterUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getFilter (self)))   foreign import javascript unsafe         "($1[\"expandEntityReferences\"] ? 1 : 0)"@@ -81,6 +114,12 @@ getReferenceNode :: (MonadIO m) => NodeIterator -> m (Maybe Node) getReferenceNode self   = liftIO (nullableToMaybe <$> (js_getReferenceNode (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.referenceNode Mozilla NodeIterator.referenceNode documentation> +getReferenceNodeUnchecked :: (MonadIO m) => NodeIterator -> m Node+getReferenceNodeUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getReferenceNode (self)))   foreign import javascript unsafe         "($1[\"pointerBeforeReferenceNode\"] ? 1 : 0)"
src/GHCJS/DOM/JSFFI/Generated/NodeList.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.NodeList-       (js_item, item, js_getLength, getLength, NodeList, castToNodeList,-        gTypeNodeList, IsNodeList, toNodeList)+       (js_item, item, item_, itemUnchecked, js_getLength, getLength,+        NodeList, castToNodeList, gTypeNodeList, IsNodeList, toNodeList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -26,6 +28,17 @@      (MonadIO m, IsNodeList self) => self -> Word -> m (Maybe Node) item self index   = liftIO (nullableToMaybe <$> (js_item (toNodeList self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeList.item Mozilla NodeList.item documentation> +item_ :: (MonadIO m, IsNodeList self) => self -> Word -> m ()+item_ self index = liftIO (void (js_item (toNodeList self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeList.item Mozilla NodeList.item documentation> +itemUnchecked ::+              (MonadIO m, IsNodeList self) => self -> Word -> m Node+itemUnchecked self index+  = liftIO+      (fromJust . nullableToMaybe <$> (js_item (toNodeList self) index))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         NodeList -> IO Word
src/GHCJS/DOM/JSFFI/Generated/Notification.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/NotificationCenter.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.NotificationCenter-       (js_createNotification, createNotification, js_checkPermission,-        checkPermission, js_requestPermission, requestPermission,+       (js_createNotification, createNotification, createNotification_,+        createNotificationUnchecked, js_checkPermission, checkPermission,+        checkPermission_, js_requestPermission, requestPermission,         NotificationCenter, castToNotificationCenter,         gTypeNotificationCenter)        where@@ -12,9 +13,11 @@ 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)@@ -37,6 +40,30 @@          (js_createNotification (self) (toJSString iconUrl)             (toJSString title)             (toJSString body)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.createNotification Mozilla NotificationCenter.createNotification documentation> +createNotification_ ::+                    (MonadIO m, ToJSString iconUrl, ToJSString title,+                     ToJSString body) =>+                      NotificationCenter -> iconUrl -> title -> body -> m ()+createNotification_ self iconUrl title body+  = liftIO+      (void+         (js_createNotification (self) (toJSString iconUrl)+            (toJSString title)+            (toJSString body)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.createNotification Mozilla NotificationCenter.createNotification documentation> +createNotificationUnchecked ::+                            (MonadIO m, ToJSString iconUrl, ToJSString title,+                             ToJSString body) =>+                              NotificationCenter -> iconUrl -> title -> body -> m Notification+createNotificationUnchecked self iconUrl title body+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createNotification (self) (toJSString iconUrl)+            (toJSString title)+            (toJSString body)))   foreign import javascript unsafe "$1[\"checkPermission\"]()"         js_checkPermission :: NotificationCenter -> IO Int@@ -44,6 +71,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.checkPermission Mozilla NotificationCenter.checkPermission documentation>  checkPermission :: (MonadIO m) => NotificationCenter -> m Int checkPermission self = liftIO (js_checkPermission (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.checkPermission Mozilla NotificationCenter.checkPermission documentation> +checkPermission_ :: (MonadIO m) => NotificationCenter -> m ()+checkPermission_ self = liftIO (void (js_checkPermission (self)))   foreign import javascript unsafe "$1[\"requestPermission\"]($2)"         js_requestPermission ::
src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/OESTextureHalfFloat.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs view
@@ -1,10 +1,12 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.OESVertexArrayObject        (js_createVertexArrayOES, createVertexArrayOES,+        createVertexArrayOES_, createVertexArrayOESUnchecked,         js_deleteVertexArrayOES, deleteVertexArrayOES, js_isVertexArrayOES,-        isVertexArrayOES, js_bindVertexArrayOES, bindVertexArrayOES,-        pattern VERTEX_ARRAY_BINDING_OES, OESVertexArrayObject,-        castToOESVertexArrayObject, gTypeOESVertexArrayObject)+        isVertexArrayOES, isVertexArrayOES_, js_bindVertexArrayOES,+        bindVertexArrayOES, pattern VERTEX_ARRAY_BINDING_OES,+        OESVertexArrayObject, castToOESVertexArrayObject,+        gTypeOESVertexArrayObject)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +15,11 @@ 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)@@ -31,6 +35,19 @@                        OESVertexArrayObject -> m (Maybe WebGLVertexArrayObjectOES) createVertexArrayOES self   = liftIO (nullableToMaybe <$> (js_createVertexArrayOES (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.createVertexArrayOES Mozilla OESVertexArrayObject.createVertexArrayOES documentation> +createVertexArrayOES_ ::+                      (MonadIO m) => OESVertexArrayObject -> m ()+createVertexArrayOES_ self+  = liftIO (void (js_createVertexArrayOES (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.createVertexArrayOES Mozilla OESVertexArrayObject.createVertexArrayOES documentation> +createVertexArrayOESUnchecked ::+                              (MonadIO m) => OESVertexArrayObject -> m WebGLVertexArrayObjectOES+createVertexArrayOESUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_createVertexArrayOES (self)))   foreign import javascript unsafe "$1[\"deleteVertexArrayOES\"]($2)"         js_deleteVertexArrayOES ::@@ -55,6 +72,14 @@                    OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m Bool isVertexArrayOES self arrayObject   = liftIO (js_isVertexArrayOES (self) (maybeToNullable arrayObject))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.isVertexArrayOES Mozilla OESVertexArrayObject.isVertexArrayOES documentation> +isVertexArrayOES_ ::+                  (MonadIO m) =>+                    OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m ()+isVertexArrayOES_ self arrayObject+  = liftIO+      (void (js_isVertexArrayOES (self) (maybeToNullable arrayObject)))   foreign import javascript unsafe "$1[\"bindVertexArrayOES\"]($2)"         js_bindVertexArrayOES ::
src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.OfflineAudioCompletionEvent        (js_getRenderedBuffer, getRenderedBuffer,-        OfflineAudioCompletionEvent, castToOfflineAudioCompletionEvent,+        getRenderedBufferUnchecked, OfflineAudioCompletionEvent,+        castToOfflineAudioCompletionEvent,         gTypeOfflineAudioCompletionEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -11,9 +12,11 @@ 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)@@ -28,3 +31,10 @@                   (MonadIO m) => OfflineAudioCompletionEvent -> m (Maybe AudioBuffer) getRenderedBuffer self   = liftIO (nullableToMaybe <$> (js_getRenderedBuffer (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioCompletionEvent.renderedBuffer Mozilla OfflineAudioCompletionEvent.renderedBuffer documentation> +getRenderedBufferUnchecked ::+                           (MonadIO m) => OfflineAudioCompletionEvent -> m AudioBuffer+getRenderedBufferUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getRenderedBuffer (self)))
src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs view
@@ -6,8 +6,9 @@         pattern UNSCHEDULED_STATE, pattern SCHEDULED_STATE,         pattern PLAYING_STATE, pattern FINISHED_STATE, js_setType, setType,         js_getType, getType, js_getPlaybackState, getPlaybackState,-        js_getFrequency, getFrequency, js_getDetune, getDetune, ended,-        OscillatorNode, castToOscillatorNode, gTypeOscillatorNode)+        js_getFrequency, getFrequency, getFrequencyUnchecked, js_getDetune,+        getDetune, getDetuneUnchecked, ended, OscillatorNode,+        castToOscillatorNode, gTypeOscillatorNode)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -16,9 +17,11 @@ 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)@@ -102,6 +105,12 @@              (MonadIO m) => OscillatorNode -> m (Maybe AudioParam) getFrequency self   = liftIO (nullableToMaybe <$> (js_getFrequency (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.frequency Mozilla OscillatorNode.frequency documentation> +getFrequencyUnchecked ::+                      (MonadIO m) => OscillatorNode -> m AudioParam+getFrequencyUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getFrequency (self)))   foreign import javascript unsafe "$1[\"detune\"]" js_getDetune ::         OscillatorNode -> IO (Nullable AudioParam)@@ -109,6 +118,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.detune Mozilla OscillatorNode.detune documentation>  getDetune :: (MonadIO m) => OscillatorNode -> m (Maybe AudioParam) getDetune self = liftIO (nullableToMaybe <$> (js_getDetune (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.detune Mozilla OscillatorNode.detune documentation> +getDetuneUnchecked :: (MonadIO m) => OscillatorNode -> m AudioParam+getDetuneUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getDetune (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.onended Mozilla OscillatorNode.onended documentation>  ended :: EventName OscillatorNode Event
src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs view
@@ -24,9 +24,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/Path2D.hs view
@@ -14,9 +14,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/Performance.hs view
@@ -1,13 +1,17 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Performance-       (js_webkitGetEntries, webkitGetEntries, js_webkitGetEntriesByType,-        webkitGetEntriesByType, js_webkitGetEntriesByName,-        webkitGetEntriesByName, js_webkitClearResourceTimings,+       (js_webkitGetEntries, webkitGetEntries, webkitGetEntries_,+        webkitGetEntriesUnchecked, js_webkitGetEntriesByType,+        webkitGetEntriesByType, webkitGetEntriesByType_,+        webkitGetEntriesByTypeUnchecked, js_webkitGetEntriesByName,+        webkitGetEntriesByName, webkitGetEntriesByName_,+        webkitGetEntriesByNameUnchecked, js_webkitClearResourceTimings,         webkitClearResourceTimings, js_webkitSetResourceTimingBufferSize,         webkitSetResourceTimingBufferSize, js_webkitMark, webkitMark,         js_webkitClearMarks, webkitClearMarks, js_webkitMeasure,         webkitMeasure, js_webkitClearMeasures, webkitClearMeasures, js_now,-        now, js_getNavigation, getNavigation, js_getTiming, getTiming,+        now, now_, js_getNavigation, getNavigation, getNavigationUnchecked,+        js_getTiming, getTiming, getTimingUnchecked,         webKitResourceTimingBufferFull, Performance, castToPerformance,         gTypePerformance)        where@@ -18,9 +22,11 @@ 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)@@ -35,6 +41,17 @@                  (MonadIO m) => Performance -> m (Maybe PerformanceEntryList) webkitGetEntries self   = liftIO (nullableToMaybe <$> (js_webkitGetEntries (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntries Mozilla Performance.webkitGetEntries documentation> +webkitGetEntries_ :: (MonadIO m) => Performance -> m ()+webkitGetEntries_ self = liftIO (void (js_webkitGetEntries (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntries Mozilla Performance.webkitGetEntries documentation> +webkitGetEntriesUnchecked ::+                          (MonadIO m) => Performance -> m PerformanceEntryList+webkitGetEntriesUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_webkitGetEntries (self)))   foreign import javascript unsafe         "$1[\"webkitGetEntriesByType\"]($2)" js_webkitGetEntriesByType ::@@ -48,6 +65,23 @@   = liftIO       (nullableToMaybe <$>          (js_webkitGetEntriesByType (self) (toJSString entryType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByType Mozilla Performance.webkitGetEntriesByType documentation> +webkitGetEntriesByType_ ::+                        (MonadIO m, ToJSString entryType) =>+                          Performance -> entryType -> m ()+webkitGetEntriesByType_ self entryType+  = liftIO+      (void (js_webkitGetEntriesByType (self) (toJSString entryType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByType Mozilla Performance.webkitGetEntriesByType documentation> +webkitGetEntriesByTypeUnchecked ::+                                (MonadIO m, ToJSString entryType) =>+                                  Performance -> entryType -> m PerformanceEntryList+webkitGetEntriesByTypeUnchecked self entryType+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_webkitGetEntriesByType (self) (toJSString entryType)))   foreign import javascript unsafe         "$1[\"webkitGetEntriesByName\"]($2,\n$3)" js_webkitGetEntriesByName@@ -64,6 +98,26 @@       (nullableToMaybe <$>          (js_webkitGetEntriesByName (self) (toJSString name)             (toJSString entryType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByName Mozilla Performance.webkitGetEntriesByName documentation> +webkitGetEntriesByName_ ::+                        (MonadIO m, ToJSString name, ToJSString entryType) =>+                          Performance -> name -> entryType -> m ()+webkitGetEntriesByName_ self name entryType+  = liftIO+      (void+         (js_webkitGetEntriesByName (self) (toJSString name)+            (toJSString entryType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByName Mozilla Performance.webkitGetEntriesByName documentation> +webkitGetEntriesByNameUnchecked ::+                                (MonadIO m, ToJSString name, ToJSString entryType) =>+                                  Performance -> name -> entryType -> m PerformanceEntryList+webkitGetEntriesByNameUnchecked self name entryType+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_webkitGetEntriesByName (self) (toJSString name)+            (toJSString entryType)))   foreign import javascript unsafe         "$1[\"webkitClearResourceTimings\"]()"@@ -134,6 +188,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.now Mozilla Performance.now documentation>  now :: (MonadIO m) => Performance -> m Double now self = liftIO (js_now (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.now Mozilla Performance.now documentation> +now_ :: (MonadIO m) => Performance -> m ()+now_ self = liftIO (void (js_now (self)))   foreign import javascript unsafe "$1[\"navigation\"]"         js_getNavigation ::@@ -144,6 +202,12 @@               (MonadIO m) => Performance -> m (Maybe PerformanceNavigation) getNavigation self   = liftIO (nullableToMaybe <$> (js_getNavigation (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.navigation Mozilla Performance.navigation documentation> +getNavigationUnchecked ::+                       (MonadIO m) => Performance -> m PerformanceNavigation+getNavigationUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getNavigation (self)))   foreign import javascript unsafe "$1[\"timing\"]" js_getTiming ::         Performance -> IO (Nullable PerformanceTiming)@@ -152,6 +216,12 @@ getTiming ::           (MonadIO m) => Performance -> m (Maybe PerformanceTiming) getTiming self = liftIO (nullableToMaybe <$> (js_getTiming (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.timing Mozilla Performance.timing documentation> +getTimingUnchecked ::+                   (MonadIO m) => Performance -> m PerformanceTiming+getTimingUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getTiming (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.onwebkitresourcetimingbufferfull Mozilla Performance.onwebkitresourcetimingbufferfull documentation>  webKitResourceTimingBufferFull :: EventName Performance Event
src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/PerformanceEntryList.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.PerformanceEntryList-       (js_item, item, js_getLength, getLength, PerformanceEntryList,-        castToPerformanceEntryList, gTypePerformanceEntryList)+       (js_item, item, item_, itemUnchecked, js_getLength, getLength,+        PerformanceEntryList, castToPerformanceEntryList,+        gTypePerformanceEntryList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -27,6 +30,16 @@        PerformanceEntryList -> Word -> m (Maybe PerformanceEntry) item self index   = liftIO (nullableToMaybe <$> (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList.item Mozilla PerformanceEntryList.item documentation> +item_ :: (MonadIO m) => PerformanceEntryList -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList.item Mozilla PerformanceEntryList.item documentation> +itemUnchecked ::+              (MonadIO m) => PerformanceEntryList -> Word -> m PerformanceEntry+itemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         PerformanceEntryList -> IO Word
src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigation.hs view
@@ -13,9 +13,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs view
@@ -17,9 +17,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs view
@@ -25,9 +25,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/Plugin.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Plugin-       (js_item, item, js_namedItem, namedItem, js_getName, getName,+       (js_item, item, item_, itemUnchecked, js_namedItem, namedItem,+        namedItem_, namedItemUnchecked, js_getName, getName,         js_getFilename, getFilename, js_getDescription, getDescription,         js_getLength, getLength, Plugin, castToPlugin, gTypePlugin)        where@@ -11,9 +12,11 @@ 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)@@ -26,6 +29,15 @@ item :: (MonadIO m) => Plugin -> Word -> m (Maybe MimeType) item self index   = liftIO (nullableToMaybe <$> (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.item Mozilla Plugin.item documentation> +item_ :: (MonadIO m) => Plugin -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.item Mozilla Plugin.item documentation> +itemUnchecked :: (MonadIO m) => Plugin -> Word -> m MimeType+itemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"         js_namedItem :: Plugin -> JSString -> IO (Nullable MimeType)@@ -37,6 +49,20 @@ namedItem self name   = liftIO       (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.namedItem Mozilla Plugin.namedItem documentation> +namedItem_ ::+           (MonadIO m, ToJSString name) => Plugin -> name -> m ()+namedItem_ self name+  = liftIO (void (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.namedItem Mozilla Plugin.namedItem documentation> +namedItemUnchecked ::+                   (MonadIO m, ToJSString name) => Plugin -> name -> m MimeType+namedItemUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_namedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::         Plugin -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.PluginArray-       (js_item, item, js_namedItem, namedItem, js_refresh, refresh,-        js_getLength, getLength, PluginArray, castToPluginArray,-        gTypePluginArray)+       (js_item, item, item_, itemUnchecked, js_namedItem, namedItem,+        namedItem_, namedItemUnchecked, js_refresh, refresh, js_getLength,+        getLength, PluginArray, castToPluginArray, gTypePluginArray)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -26,6 +28,15 @@ item :: (MonadIO m) => PluginArray -> Word -> m (Maybe Plugin) item self index   = liftIO (nullableToMaybe <$> (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.item Mozilla PluginArray.item documentation> +item_ :: (MonadIO m) => PluginArray -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.item Mozilla PluginArray.item documentation> +itemUnchecked :: (MonadIO m) => PluginArray -> Word -> m Plugin+itemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"         js_namedItem :: PluginArray -> JSString -> IO (Nullable Plugin)@@ -37,6 +48,20 @@ namedItem self name   = liftIO       (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.namedItem Mozilla PluginArray.namedItem documentation> +namedItem_ ::+           (MonadIO m, ToJSString name) => PluginArray -> name -> m ()+namedItem_ self name+  = liftIO (void (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.namedItem Mozilla PluginArray.namedItem documentation> +namedItemUnchecked ::+                   (MonadIO m, ToJSString name) => PluginArray -> name -> m Plugin+namedItemUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_namedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"refresh\"]($2)" js_refresh         :: PluginArray -> Bool -> IO ()
src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/PositionError.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.ProcessingInstruction-       (js_getTarget, getTarget, js_getSheet, getSheet,-        ProcessingInstruction, castToProcessingInstruction,-        gTypeProcessingInstruction)+       (js_getTarget, getTarget, getTargetUnchecked, js_getSheet,+        getSheet, getSheetUnchecked, ProcessingInstruction,+        castToProcessingInstruction, gTypeProcessingInstruction)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -28,6 +30,13 @@             ProcessingInstruction -> m (Maybe result) getTarget self   = liftIO (fromMaybeJSString <$> (js_getTarget (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.target Mozilla ProcessingInstruction.target documentation> +getTargetUnchecked ::+                   (MonadIO m, FromJSString result) =>+                     ProcessingInstruction -> m result+getTargetUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getTarget (self)))   foreign import javascript unsafe "$1[\"sheet\"]" js_getSheet ::         ProcessingInstruction -> IO (Nullable StyleSheet)@@ -36,3 +45,9 @@ getSheet ::          (MonadIO m) => ProcessingInstruction -> m (Maybe StyleSheet) getSheet self = liftIO (nullableToMaybe <$> (js_getSheet (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.sheet Mozilla ProcessingInstruction.sheet documentation> +getSheetUnchecked ::+                  (MonadIO m) => ProcessingInstruction -> m StyleSheet+getSheetUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getSheet (self)))
src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs view
@@ -13,9 +13,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.RGBColor-       (js_getRed, getRed, js_getGreen, getGreen, js_getBlue, getBlue,-        RGBColor, castToRGBColor, gTypeRGBColor)+       (js_getRed, getRed, getRedUnchecked, js_getGreen, getGreen,+        getGreenUnchecked, js_getBlue, getBlue, getBlueUnchecked, RGBColor,+        castToRGBColor, gTypeRGBColor)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -24,6 +27,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.red Mozilla RGBColor.red documentation>  getRed :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue) getRed self = liftIO (nullableToMaybe <$> (js_getRed (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.red Mozilla RGBColor.red documentation> +getRedUnchecked :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue+getRedUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRed (self)))   foreign import javascript unsafe "$1[\"green\"]" js_getGreen ::         RGBColor -> IO (Nullable CSSPrimitiveValue)@@ -31,6 +39,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.green Mozilla RGBColor.green documentation>  getGreen :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue) getGreen self = liftIO (nullableToMaybe <$> (js_getGreen (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.green Mozilla RGBColor.green documentation> +getGreenUnchecked :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue+getGreenUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getGreen (self)))   foreign import javascript unsafe "$1[\"blue\"]" js_getBlue ::         RGBColor -> IO (Nullable CSSPrimitiveValue)@@ -38,3 +51,8 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.blue Mozilla RGBColor.blue documentation>  getBlue :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue) getBlue self = liftIO (nullableToMaybe <$> (js_getBlue (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.blue Mozilla RGBColor.blue documentation> +getBlueUnchecked :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue+getBlueUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getBlue (self)))
src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/RTCDTMFSender.hs view
@@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.RTCDTMFSender        (js_insertDTMF, insertDTMF, js_getCanInsertDTMF, getCanInsertDTMF,-        js_getTrack, getTrack, js_getToneBuffer, getToneBuffer,-        js_getDuration, getDuration, js_getInterToneGap, getInterToneGap,-        toneChange, RTCDTMFSender, castToRTCDTMFSender, gTypeRTCDTMFSender)+        js_getTrack, getTrack, getTrackUnchecked, js_getToneBuffer,+        getToneBuffer, js_getDuration, getDuration, js_getInterToneGap,+        getInterToneGap, toneChange, RTCDTMFSender, castToRTCDTMFSender,+        gTypeRTCDTMFSender)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -12,9 +13,11 @@ 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)@@ -45,6 +48,12 @@ getTrack ::          (MonadIO m) => RTCDTMFSender -> m (Maybe MediaStreamTrack) getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.track Mozilla RTCDTMFSender.track documentation> +getTrackUnchecked ::+                  (MonadIO m) => RTCDTMFSender -> m MediaStreamTrack+getTrackUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getTrack (self)))   foreign import javascript unsafe "$1[\"toneBuffer\"]"         js_getToneBuffer :: RTCDTMFSender -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs view
@@ -18,9 +18,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.RTCDataChannelEvent-       (js_getChannel, getChannel, RTCDataChannelEvent,-        castToRTCDataChannelEvent, gTypeRTCDataChannelEvent)+       (js_getChannel, getChannel, getChannelUnchecked,+        RTCDataChannelEvent, castToRTCDataChannelEvent,+        gTypeRTCDataChannelEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -26,3 +29,9 @@            (MonadIO m) => RTCDataChannelEvent -> m (Maybe RTCDataChannel) getChannel self   = liftIO (nullableToMaybe <$> (js_getChannel (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannelEvent.channel Mozilla RTCDataChannelEvent.channel documentation> +getChannelUnchecked ::+                    (MonadIO m) => RTCDataChannelEvent -> m RTCDataChannel+getChannelUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getChannel (self)))
src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.RTCIceCandidateEvent-       (js_getCandidate, getCandidate, RTCIceCandidateEvent,-        castToRTCIceCandidateEvent, gTypeRTCIceCandidateEvent)+       (js_getCandidate, getCandidate, getCandidateUnchecked,+        RTCIceCandidateEvent, castToRTCIceCandidateEvent,+        gTypeRTCIceCandidateEvent)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -27,3 +30,9 @@              (MonadIO m) => RTCIceCandidateEvent -> m (Maybe RTCIceCandidate) getCandidate self   = liftIO (nullableToMaybe <$> (js_getCandidate (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidateEvent.candidate Mozilla RTCIceCandidateEvent.candidate documentation> +getCandidateUnchecked ::+                      (MonadIO m) => RTCIceCandidateEvent -> m RTCIceCandidate+getCandidateUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getCandidate (self)))
src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnection.hs view
@@ -4,13 +4,18 @@         createOffer, js_createAnswer, createAnswer, js_setLocalDescription,         setLocalDescription, js_setRemoteDescription, setRemoteDescription,         js_updateIce, updateIce, js_addIceCandidate, addIceCandidate,-        js_getLocalStreams, getLocalStreams, js_getRemoteStreams,-        getRemoteStreams, js_getStreamById, getStreamById,-        js_getConfiguration, getConfiguration, js_addStream, addStream,-        js_removeStream, removeStream, js_getStats, getStats,-        js_createDataChannel, createDataChannel, js_createDTMFSender,-        createDTMFSender, js_close, close, js_getLocalDescription,-        getLocalDescription, js_getRemoteDescription, getRemoteDescription,+        js_getLocalStreams, getLocalStreams, getLocalStreams_,+        js_getRemoteStreams, getRemoteStreams, getRemoteStreams_,+        js_getStreamById, getStreamById, getStreamById_,+        getStreamByIdUnchecked, js_getConfiguration, getConfiguration,+        getConfiguration_, getConfigurationUnchecked, js_addStream,+        addStream, js_removeStream, removeStream, js_getStats, getStats,+        js_createDataChannel, createDataChannel, createDataChannel_,+        createDataChannelUnchecked, js_createDTMFSender, createDTMFSender,+        createDTMFSender_, createDTMFSenderUnchecked, js_close, close,+        js_getLocalDescription, getLocalDescription,+        getLocalDescriptionUnchecked, js_getRemoteDescription,+        getRemoteDescription, getRemoteDescriptionUnchecked,         js_getSignalingState, getSignalingState, js_getIceGatheringState,         getIceGatheringState, js_getIceConnectionState,         getIceConnectionState, negotiationNeeded, iceCandidate,@@ -25,9 +30,11 @@ 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)@@ -166,6 +173,10 @@                 (MonadIO m) => RTCPeerConnection -> m [Maybe MediaStream] getLocalStreams self   = liftIO ((js_getLocalStreams (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getLocalStreams Mozilla webkitRTCPeerConnection.getLocalStreams documentation> +getLocalStreams_ :: (MonadIO m) => RTCPeerConnection -> m ()+getLocalStreams_ self = liftIO (void (js_getLocalStreams (self)))   foreign import javascript unsafe "$1[\"getRemoteStreams\"]()"         js_getRemoteStreams :: RTCPeerConnection -> IO JSVal@@ -175,6 +186,10 @@                  (MonadIO m) => RTCPeerConnection -> m [Maybe MediaStream] getRemoteStreams self   = liftIO ((js_getRemoteStreams (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getRemoteStreams Mozilla webkitRTCPeerConnection.getRemoteStreams documentation> +getRemoteStreams_ :: (MonadIO m) => RTCPeerConnection -> m ()+getRemoteStreams_ self = liftIO (void (js_getRemoteStreams (self)))   foreign import javascript unsafe "$1[\"getStreamById\"]($2)"         js_getStreamById ::@@ -188,6 +203,22 @@   = liftIO       (nullableToMaybe <$>          (js_getStreamById (self) (toJSString streamId)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getStreamById Mozilla webkitRTCPeerConnection.getStreamById documentation> +getStreamById_ ::+               (MonadIO m, ToJSString streamId) =>+                 RTCPeerConnection -> streamId -> m ()+getStreamById_ self streamId+  = liftIO (void (js_getStreamById (self) (toJSString streamId)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getStreamById Mozilla webkitRTCPeerConnection.getStreamById documentation> +getStreamByIdUnchecked ::+                       (MonadIO m, ToJSString streamId) =>+                         RTCPeerConnection -> streamId -> m MediaStream+getStreamByIdUnchecked self streamId+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getStreamById (self) (toJSString streamId)))   foreign import javascript unsafe "$1[\"getConfiguration\"]()"         js_getConfiguration ::@@ -198,6 +229,17 @@                  (MonadIO m) => RTCPeerConnection -> m (Maybe RTCConfiguration) getConfiguration self   = liftIO (nullableToMaybe <$> (js_getConfiguration (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getConfiguration Mozilla webkitRTCPeerConnection.getConfiguration documentation> +getConfiguration_ :: (MonadIO m) => RTCPeerConnection -> m ()+getConfiguration_ self = liftIO (void (js_getConfiguration (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getConfiguration Mozilla webkitRTCPeerConnection.getConfiguration documentation> +getConfigurationUnchecked ::+                          (MonadIO m) => RTCPeerConnection -> m RTCConfiguration+getConfigurationUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getConfiguration (self)))   foreign import javascript unsafe "$1[\"addStream\"]($2)"         js_addStream :: RTCPeerConnection -> Nullable MediaStream -> IO ()@@ -253,6 +295,27 @@       (nullableToMaybe <$>          (js_createDataChannel (self) (toMaybeJSString label)             (maybeToNullable (fmap toDictionary options))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDataChannel Mozilla webkitRTCPeerConnection.createDataChannel documentation> +createDataChannel_ ::+                   (MonadIO m, ToJSString label, IsDictionary options) =>+                     RTCPeerConnection -> Maybe label -> Maybe options -> m ()+createDataChannel_ self label options+  = liftIO+      (void+         (js_createDataChannel (self) (toMaybeJSString label)+            (maybeToNullable (fmap toDictionary options))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDataChannel Mozilla webkitRTCPeerConnection.createDataChannel documentation> +createDataChannelUnchecked ::+                           (MonadIO m, ToJSString label, IsDictionary options) =>+                             RTCPeerConnection ->+                               Maybe label -> Maybe options -> m RTCDataChannel+createDataChannelUnchecked self label options+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createDataChannel (self) (toMaybeJSString label)+            (maybeToNullable (fmap toDictionary options))))   foreign import javascript unsafe "$1[\"createDTMFSender\"]($2)"         js_createDTMFSender ::@@ -268,6 +331,26 @@       (nullableToMaybe <$>          (js_createDTMFSender (self)             (maybeToNullable (fmap toMediaStreamTrack track))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDTMFSender Mozilla webkitRTCPeerConnection.createDTMFSender documentation> +createDTMFSender_ ::+                  (MonadIO m, IsMediaStreamTrack track) =>+                    RTCPeerConnection -> Maybe track -> m ()+createDTMFSender_ self track+  = liftIO+      (void+         (js_createDTMFSender (self)+            (maybeToNullable (fmap toMediaStreamTrack track))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDTMFSender Mozilla webkitRTCPeerConnection.createDTMFSender documentation> +createDTMFSenderUnchecked ::+                          (MonadIO m, IsMediaStreamTrack track) =>+                            RTCPeerConnection -> Maybe track -> m RTCDTMFSender+createDTMFSenderUnchecked self track+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createDTMFSender (self)+            (maybeToNullable (fmap toMediaStreamTrack track))))   foreign import javascript unsafe "$1[\"close\"]()" js_close ::         RTCPeerConnection -> IO ()@@ -285,6 +368,13 @@                     (MonadIO m) => RTCPeerConnection -> m (Maybe RTCSessionDescription) getLocalDescription self   = liftIO (nullableToMaybe <$> (js_getLocalDescription (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.localDescription Mozilla webkitRTCPeerConnection.localDescription documentation> +getLocalDescriptionUnchecked ::+                             (MonadIO m) => RTCPeerConnection -> m RTCSessionDescription+getLocalDescriptionUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getLocalDescription (self)))   foreign import javascript unsafe "$1[\"remoteDescription\"]"         js_getRemoteDescription ::@@ -295,6 +385,13 @@                      (MonadIO m) => RTCPeerConnection -> m (Maybe RTCSessionDescription) getRemoteDescription self   = liftIO (nullableToMaybe <$> (js_getRemoteDescription (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.remoteDescription Mozilla webkitRTCPeerConnection.remoteDescription documentation> +getRemoteDescriptionUnchecked ::+                              (MonadIO m) => RTCPeerConnection -> m RTCSessionDescription+getRemoteDescriptionUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getRemoteDescription (self)))   foreign import javascript unsafe "$1[\"signalingState\"]"         js_getSignalingState :: RTCPeerConnection -> IO JSString
src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/RTCStatsCallback.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs view
@@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.RTCStatsReport-       (js_stat, stat, js_names, names, js_getTimestamp, getTimestamp,-        js_getId, getId, js_getType, getType, js_getLocal, getLocal,-        js_getRemote, getRemote, RTCStatsReport, castToRTCStatsReport,-        gTypeRTCStatsReport)+       (js_stat, stat, stat_, js_names, names, names_, js_getTimestamp,+        getTimestamp, getTimestampUnchecked, js_getId, getId, js_getType,+        getType, js_getLocal, getLocal, getLocalUnchecked, js_getRemote,+        getRemote, getRemoteUnchecked, RTCStatsReport,+        castToRTCStatsReport, gTypeRTCStatsReport)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -12,9 +13,11 @@ 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)@@ -29,6 +32,11 @@        RTCStatsReport -> name -> m result stat self name   = liftIO (fromJSString <$> (js_stat (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.stat Mozilla RTCStatsReport.stat documentation> +stat_ ::+      (MonadIO m, ToJSString name) => RTCStatsReport -> name -> m ()+stat_ self name = liftIO (void (js_stat (self) (toJSString name)))   foreign import javascript unsafe "$1[\"names\"]()" js_names ::         RTCStatsReport -> IO JSVal@@ -37,6 +45,10 @@ names ::       (MonadIO m, FromJSString result) => RTCStatsReport -> m [result] names self = liftIO ((js_names (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.names Mozilla RTCStatsReport.names documentation> +names_ :: (MonadIO m) => RTCStatsReport -> m ()+names_ self = liftIO (void (js_names (self)))   foreign import javascript unsafe "$1[\"timestamp\"]"         js_getTimestamp :: RTCStatsReport -> IO (Nullable Date)@@ -45,6 +57,11 @@ getTimestamp :: (MonadIO m) => RTCStatsReport -> m (Maybe Date) getTimestamp self   = liftIO (nullableToMaybe <$> (js_getTimestamp (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.timestamp Mozilla RTCStatsReport.timestamp documentation> +getTimestampUnchecked :: (MonadIO m) => RTCStatsReport -> m Date+getTimestampUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getTimestamp (self)))   foreign import javascript unsafe "$1[\"id\"]" js_getId ::         RTCStatsReport -> IO JSString@@ -69,6 +86,12 @@ getLocal ::          (MonadIO m) => RTCStatsReport -> m (Maybe RTCStatsReport) getLocal self = liftIO (nullableToMaybe <$> (js_getLocal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.local Mozilla RTCStatsReport.local documentation> +getLocalUnchecked ::+                  (MonadIO m) => RTCStatsReport -> m RTCStatsReport+getLocalUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getLocal (self)))   foreign import javascript unsafe "$1[\"remote\"]" js_getRemote ::         RTCStatsReport -> IO (Nullable RTCStatsReport)@@ -77,3 +100,9 @@ getRemote ::           (MonadIO m) => RTCStatsReport -> m (Maybe RTCStatsReport) getRemote self = liftIO (nullableToMaybe <$> (js_getRemote (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.remote Mozilla RTCStatsReport.remote documentation> +getRemoteUnchecked ::+                   (MonadIO m) => RTCStatsReport -> m RTCStatsReport+getRemoteUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRemote (self)))
src/GHCJS/DOM/JSFFI/Generated/RTCStatsResponse.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.RTCStatsResponse-       (js_result, result, js_namedItem, namedItem, RTCStatsResponse,-        castToRTCStatsResponse, gTypeRTCStatsResponse)+       (js_result, result, result_, js_namedItem, namedItem, namedItem_,+        namedItemUnchecked, RTCStatsResponse, castToRTCStatsResponse,+        gTypeRTCStatsResponse)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -25,6 +28,10 @@ result ::        (MonadIO m) => RTCStatsResponse -> m [Maybe RTCStatsReport] result self = liftIO ((js_result (self)) >>= fromJSValUnchecked)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.result Mozilla RTCStatsResponse.result documentation> +result_ :: (MonadIO m) => RTCStatsResponse -> m ()+result_ self = liftIO (void (js_result (self)))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"         js_namedItem ::@@ -37,3 +44,18 @@ namedItem self name   = liftIO       (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.namedItem Mozilla RTCStatsResponse.namedItem documentation> +namedItem_ ::+           (MonadIO m, ToJSString name) => RTCStatsResponse -> name -> m ()+namedItem_ self name+  = liftIO (void (js_namedItem (self) (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.namedItem Mozilla RTCStatsResponse.namedItem documentation> +namedItemUnchecked ::+                   (MonadIO m, ToJSString name) =>+                     RTCStatsResponse -> name -> m RTCStatsReport+namedItemUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_namedItem (self) (toJSString name)))
src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.RadioNodeList-       (js__get, _get, js_setValue, setValue, js_getValue, getValue,-        RadioNodeList, castToRadioNodeList, gTypeRadioNodeList)+       (js__get, _get, _get_, _getUnchecked, js_setValue, setValue,+        js_getValue, getValue, RadioNodeList, castToRadioNodeList,+        gTypeRadioNodeList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -25,6 +28,15 @@ _get :: (MonadIO m) => RadioNodeList -> Word -> m (Maybe Node) _get self index   = liftIO (nullableToMaybe <$> (js__get (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList._get Mozilla RadioNodeList._get documentation> +_get_ :: (MonadIO m) => RadioNodeList -> Word -> m ()+_get_ self index = liftIO (void (js__get (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList._get Mozilla RadioNodeList._get documentation> +_getUnchecked :: (MonadIO m) => RadioNodeList -> Word -> m Node+_getUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js__get (self) index))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue         :: RadioNodeList -> JSString -> IO ()
src/GHCJS/DOM/JSFFI/Generated/Range.hs view
@@ -5,23 +5,32 @@         js_setEndBefore, setEndBefore, js_setEndAfter, setEndAfter,         js_collapse, collapse, js_selectNode, selectNode,         js_selectNodeContents, selectNodeContents,-        js_compareBoundaryPoints, compareBoundaryPoints, js_deleteContents,-        deleteContents, js_extractContents, extractContents,-        js_cloneContents, cloneContents, js_insertNode, insertNode,+        js_compareBoundaryPoints, compareBoundaryPoints,+        compareBoundaryPoints_, js_deleteContents, deleteContents,+        js_extractContents, extractContents, extractContents_,+        extractContentsUnchecked, js_cloneContents, cloneContents,+        cloneContents_, cloneContentsUnchecked, js_insertNode, insertNode,         js_surroundContents, surroundContents, js_cloneRange, cloneRange,-        js_toString, toString, js_detach, detach, js_getClientRects,-        getClientRects, js_getBoundingClientRect, getBoundingClientRect,-        js_createContextualFragment, createContextualFragment,-        js_intersectsNode, intersectsNode, js_compareNode, compareNode,-        js_comparePoint, comparePoint, js_isPointInRange, isPointInRange,-        js_expand, expand, pattern START_TO_START, pattern START_TO_END,+        cloneRange_, cloneRangeUnchecked, js_toString, toString, toString_,+        js_detach, detach, js_getClientRects, getClientRects,+        getClientRects_, getClientRectsUnchecked, js_getBoundingClientRect,+        getBoundingClientRect, getBoundingClientRect_,+        getBoundingClientRectUnchecked, js_createContextualFragment,+        createContextualFragment, createContextualFragment_,+        createContextualFragmentUnchecked, js_intersectsNode,+        intersectsNode, intersectsNode_, js_compareNode, compareNode,+        compareNode_, js_comparePoint, comparePoint, comparePoint_,+        js_isPointInRange, isPointInRange, isPointInRange_, js_expand,+        expand, pattern START_TO_START, pattern START_TO_END,         pattern END_TO_END, pattern END_TO_START, pattern NODE_BEFORE,         pattern NODE_AFTER, pattern NODE_BEFORE_AND_AFTER,         pattern NODE_INSIDE, js_getStartContainer, getStartContainer,-        js_getStartOffset, getStartOffset, js_getEndContainer,-        getEndContainer, js_getEndOffset, getEndOffset, js_getCollapsed,-        getCollapsed, js_getCommonAncestorContainer,-        getCommonAncestorContainer, Range, castToRange, gTypeRange)+        getStartContainerUnchecked, js_getStartOffset, getStartOffset,+        js_getEndContainer, getEndContainer, getEndContainerUnchecked,+        js_getEndOffset, getEndOffset, js_getCollapsed, getCollapsed,+        js_getCommonAncestorContainer, getCommonAncestorContainer,+        getCommonAncestorContainerUnchecked, Range, castToRange,+        gTypeRange)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -30,9 +39,11 @@ 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)@@ -145,6 +156,15 @@ compareBoundaryPoints self how sourceRange   = liftIO       (js_compareBoundaryPoints (self) how (maybeToNullable sourceRange))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.compareBoundaryPoints Mozilla Range.compareBoundaryPoints documentation> +compareBoundaryPoints_ ::+                       (MonadIO m) => Range -> Word -> Maybe Range -> m ()+compareBoundaryPoints_ self how sourceRange+  = liftIO+      (void+         (js_compareBoundaryPoints (self) how+            (maybeToNullable sourceRange)))   foreign import javascript unsafe "$1[\"deleteContents\"]()"         js_deleteContents :: Range -> IO ()@@ -161,6 +181,17 @@                 (MonadIO m) => Range -> m (Maybe DocumentFragment) extractContents self   = liftIO (nullableToMaybe <$> (js_extractContents (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.extractContents Mozilla Range.extractContents documentation> +extractContents_ :: (MonadIO m) => Range -> m ()+extractContents_ self = liftIO (void (js_extractContents (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.extractContents Mozilla Range.extractContents documentation> +extractContentsUnchecked ::+                         (MonadIO m) => Range -> m DocumentFragment+extractContentsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_extractContents (self)))   foreign import javascript unsafe "$1[\"cloneContents\"]()"         js_cloneContents :: Range -> IO (Nullable DocumentFragment)@@ -169,6 +200,16 @@ cloneContents :: (MonadIO m) => Range -> m (Maybe DocumentFragment) cloneContents self   = liftIO (nullableToMaybe <$> (js_cloneContents (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneContents Mozilla Range.cloneContents documentation> +cloneContents_ :: (MonadIO m) => Range -> m ()+cloneContents_ self = liftIO (void (js_cloneContents (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneContents Mozilla Range.cloneContents documentation> +cloneContentsUnchecked ::+                       (MonadIO m) => Range -> m DocumentFragment+cloneContentsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_cloneContents (self)))   foreign import javascript unsafe "$1[\"insertNode\"]($2)"         js_insertNode :: Range -> Nullable Node -> IO ()@@ -198,6 +239,15 @@ cloneRange :: (MonadIO m) => Range -> m (Maybe Range) cloneRange self   = liftIO (nullableToMaybe <$> (js_cloneRange (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneRange Mozilla Range.cloneRange documentation> +cloneRange_ :: (MonadIO m) => Range -> m ()+cloneRange_ self = liftIO (void (js_cloneRange (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneRange Mozilla Range.cloneRange documentation> +cloneRangeUnchecked :: (MonadIO m) => Range -> m Range+cloneRangeUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_cloneRange (self)))   foreign import javascript unsafe "$1[\"toString\"]()" js_toString         :: Range -> IO JSString@@ -205,6 +255,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.toString Mozilla Range.toString documentation>  toString :: (MonadIO m, FromJSString result) => Range -> m result toString self = liftIO (fromJSString <$> (js_toString (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.toString Mozilla Range.toString documentation> +toString_ :: (MonadIO m) => Range -> m ()+toString_ self = liftIO (void (js_toString (self)))   foreign import javascript unsafe "$1[\"detach\"]()" js_detach ::         Range -> IO ()@@ -220,6 +274,16 @@ getClientRects :: (MonadIO m) => Range -> m (Maybe ClientRectList) getClientRects self   = liftIO (nullableToMaybe <$> (js_getClientRects (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getClientRects Mozilla Range.getClientRects documentation> +getClientRects_ :: (MonadIO m) => Range -> m ()+getClientRects_ self = liftIO (void (js_getClientRects (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getClientRects Mozilla Range.getClientRects documentation> +getClientRectsUnchecked :: (MonadIO m) => Range -> m ClientRectList+getClientRectsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getClientRects (self)))   foreign import javascript unsafe "$1[\"getBoundingClientRect\"]()"         js_getBoundingClientRect :: Range -> IO (Nullable ClientRect)@@ -229,6 +293,18 @@                       (MonadIO m) => Range -> m (Maybe ClientRect) getBoundingClientRect self   = liftIO (nullableToMaybe <$> (js_getBoundingClientRect (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getBoundingClientRect Mozilla Range.getBoundingClientRect documentation> +getBoundingClientRect_ :: (MonadIO m) => Range -> m ()+getBoundingClientRect_ self+  = liftIO (void (js_getBoundingClientRect (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getBoundingClientRect Mozilla Range.getBoundingClientRect documentation> +getBoundingClientRectUnchecked ::+                               (MonadIO m) => Range -> m ClientRect+getBoundingClientRectUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getBoundingClientRect (self)))   foreign import javascript unsafe         "$1[\"createContextualFragment\"]($2)" js_createContextualFragment@@ -242,6 +318,22 @@   = liftIO       (nullableToMaybe <$>          (js_createContextualFragment (self) (toJSString html)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.createContextualFragment Mozilla Range.createContextualFragment documentation> +createContextualFragment_ ::+                          (MonadIO m, ToJSString html) => Range -> html -> m ()+createContextualFragment_ self html+  = liftIO+      (void (js_createContextualFragment (self) (toJSString html)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.createContextualFragment Mozilla Range.createContextualFragment documentation> +createContextualFragmentUnchecked ::+                                  (MonadIO m, ToJSString html) =>+                                    Range -> html -> m DocumentFragment+createContextualFragmentUnchecked self html+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createContextualFragment (self) (toJSString html)))   foreign import javascript unsafe         "($1[\"intersectsNode\"]($2) ? 1 : 0)" js_intersectsNode ::@@ -253,6 +345,14 @@ intersectsNode self refNode   = liftIO       (js_intersectsNode (self) (maybeToNullable (fmap toNode refNode)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.intersectsNode Mozilla Range.intersectsNode documentation> +intersectsNode_ ::+                (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m ()+intersectsNode_ self refNode+  = liftIO+      (void+         (js_intersectsNode (self) (maybeToNullable (fmap toNode refNode))))   foreign import javascript unsafe "$1[\"compareNode\"]($2)"         js_compareNode :: Range -> Nullable Node -> IO Int@@ -263,6 +363,14 @@ compareNode self refNode   = liftIO       (js_compareNode (self) (maybeToNullable (fmap toNode refNode)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.compareNode Mozilla Range.compareNode documentation> +compareNode_ ::+             (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m ()+compareNode_ self refNode+  = liftIO+      (void+         (js_compareNode (self) (maybeToNullable (fmap toNode refNode))))   foreign import javascript unsafe "$1[\"comparePoint\"]($2, $3)"         js_comparePoint :: Range -> Nullable Node -> Int -> IO Int@@ -275,6 +383,16 @@   = liftIO       (js_comparePoint (self) (maybeToNullable (fmap toNode refNode))          offset)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.comparePoint Mozilla Range.comparePoint documentation> +comparePoint_ ::+              (MonadIO m, IsNode refNode) =>+                Range -> Maybe refNode -> Int -> m ()+comparePoint_ self refNode offset+  = liftIO+      (void+         (js_comparePoint (self) (maybeToNullable (fmap toNode refNode))+            offset))   foreign import javascript unsafe         "($1[\"isPointInRange\"]($2,\n$3) ? 1 : 0)" js_isPointInRange ::@@ -288,6 +406,16 @@   = liftIO       (js_isPointInRange (self) (maybeToNullable (fmap toNode refNode))          offset)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.isPointInRange Mozilla Range.isPointInRange documentation> +isPointInRange_ ::+                (MonadIO m, IsNode refNode) =>+                  Range -> Maybe refNode -> Int -> m ()+isPointInRange_ self refNode offset+  = liftIO+      (void+         (js_isPointInRange (self) (maybeToNullable (fmap toNode refNode))+            offset))   foreign import javascript unsafe "$1[\"expand\"]($2)" js_expand ::         Range -> JSString -> IO ()@@ -311,6 +439,12 @@ getStartContainer :: (MonadIO m) => Range -> m (Maybe Node) getStartContainer self   = liftIO (nullableToMaybe <$> (js_getStartContainer (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.startContainer Mozilla Range.startContainer documentation> +getStartContainerUnchecked :: (MonadIO m) => Range -> m Node+getStartContainerUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getStartContainer (self)))   foreign import javascript unsafe "$1[\"startOffset\"]"         js_getStartOffset :: Range -> IO Int@@ -326,6 +460,12 @@ getEndContainer :: (MonadIO m) => Range -> m (Maybe Node) getEndContainer self   = liftIO (nullableToMaybe <$> (js_getEndContainer (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.endContainer Mozilla Range.endContainer documentation> +getEndContainerUnchecked :: (MonadIO m) => Range -> m Node+getEndContainerUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getEndContainer (self)))   foreign import javascript unsafe "$1[\"endOffset\"]"         js_getEndOffset :: Range -> IO Int@@ -350,3 +490,11 @@ getCommonAncestorContainer self   = liftIO       (nullableToMaybe <$> (js_getCommonAncestorContainer (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.commonAncestorContainer Mozilla Range.commonAncestorContainer documentation> +getCommonAncestorContainerUnchecked ::+                                    (MonadIO m) => Range -> m Node+getCommonAncestorContainerUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getCommonAncestorContainer (self)))
src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs view
@@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.ReadableStream-       (js_newReadableStream, newReadableStream, js_read, read, js_cancel,-        cancel, js_pipeTo, pipeTo, js_pipeThrough, pipeThrough,-        js_getState, getState, js_getClosed, getClosed, js_getReady,-        getReady, ReadableStream, castToReadableStream,+       (js_newReadableStream, newReadableStream, js_read, read, read_,+        readUnchecked, js_cancel, cancel, cancel_, cancelUnchecked,+        js_pipeTo, pipeTo, pipeTo_, pipeToUnchecked, js_pipeThrough,+        pipeThrough, pipeThrough_, pipeThroughUnchecked, js_getState,+        getState, js_getClosed, getClosed, getClosedUnchecked, js_getReady,+        getReady, getReadyUnchecked, ReadableStream, castToReadableStream,         gTypeReadableStream)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -13,9 +15,11 @@ 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)@@ -36,6 +40,15 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.read Mozilla ReadableStream.read documentation>  read :: (MonadIO m) => ReadableStream -> m (Maybe GObject) read self = liftIO (nullableToMaybe <$> (js_read (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.read Mozilla ReadableStream.read documentation> +read_ :: (MonadIO m) => ReadableStream -> m ()+read_ self = liftIO (void (js_read (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.read Mozilla ReadableStream.read documentation> +readUnchecked :: (MonadIO m) => ReadableStream -> m GObject+readUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_read (self)))   foreign import javascript unsafe "$1[\"cancel\"]($2)" js_cancel ::         ReadableStream -> JSString -> IO (Nullable Promise)@@ -47,6 +60,21 @@ cancel self reason   = liftIO       (nullableToMaybe <$> (js_cancel (self) (toJSString reason)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.cancel Mozilla ReadableStream.cancel documentation> +cancel_ ::+        (MonadIO m, ToJSString reason) => ReadableStream -> reason -> m ()+cancel_ self reason+  = liftIO (void (js_cancel (self) (toJSString reason)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.cancel Mozilla ReadableStream.cancel documentation> +cancelUnchecked ::+                (MonadIO m, ToJSString reason) =>+                  ReadableStream -> reason -> m Promise+cancelUnchecked self reason+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_cancel (self) (toJSString reason)))   foreign import javascript unsafe "$1[\"pipeTo\"]($2, $3)" js_pipeTo         :: ReadableStream -> JSVal -> JSVal -> IO (Nullable Promise)@@ -57,6 +85,18 @@          ReadableStream -> JSVal -> JSVal -> m (Maybe Promise) pipeTo self streams options   = liftIO (nullableToMaybe <$> (js_pipeTo (self) streams options))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeTo Mozilla ReadableStream.pipeTo documentation> +pipeTo_ :: (MonadIO m) => ReadableStream -> JSVal -> JSVal -> m ()+pipeTo_ self streams options+  = liftIO (void (js_pipeTo (self) streams options))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeTo Mozilla ReadableStream.pipeTo documentation> +pipeToUnchecked ::+                (MonadIO m) => ReadableStream -> JSVal -> JSVal -> m Promise+pipeToUnchecked self streams options+  = liftIO+      (fromJust . nullableToMaybe <$> (js_pipeTo (self) streams options))   foreign import javascript unsafe "$1[\"pipeThrough\"]($2, $3)"         js_pipeThrough ::@@ -68,6 +108,20 @@               ReadableStream -> JSVal -> JSVal -> m (Maybe GObject) pipeThrough self dest options   = liftIO (nullableToMaybe <$> (js_pipeThrough (self) dest options))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeThrough Mozilla ReadableStream.pipeThrough documentation> +pipeThrough_ ::+             (MonadIO m) => ReadableStream -> JSVal -> JSVal -> m ()+pipeThrough_ self dest options+  = liftIO (void (js_pipeThrough (self) dest options))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeThrough Mozilla ReadableStream.pipeThrough documentation> +pipeThroughUnchecked ::+                     (MonadIO m) => ReadableStream -> JSVal -> JSVal -> m GObject+pipeThroughUnchecked self dest options+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_pipeThrough (self) dest options))   foreign import javascript unsafe "$1[\"state\"]" js_getState ::         ReadableStream -> IO JSVal@@ -84,6 +138,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.closed Mozilla ReadableStream.closed documentation>  getClosed :: (MonadIO m) => ReadableStream -> m (Maybe Promise) getClosed self = liftIO (nullableToMaybe <$> (js_getClosed (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.closed Mozilla ReadableStream.closed documentation> +getClosedUnchecked :: (MonadIO m) => ReadableStream -> m Promise+getClosedUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getClosed (self)))   foreign import javascript unsafe "$1[\"ready\"]" js_getReady ::         ReadableStream -> IO (Nullable Promise)@@ -91,3 +150,8 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.ready Mozilla ReadableStream.ready documentation>  getReady :: (MonadIO m) => ReadableStream -> m (Maybe Promise) getReady self = liftIO (nullableToMaybe <$> (js_getReady (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.ready Mozilla ReadableStream.ready documentation> +getReadyUnchecked :: (MonadIO m) => ReadableStream -> m Promise+getReadyUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getReady (self)))
src/GHCJS/DOM/JSFFI/Generated/Rect.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Rect-       (js_getTop, getTop, js_getRight, getRight, js_getBottom, getBottom,-        js_getLeft, getLeft, Rect, castToRect, gTypeRect)+       (js_getTop, getTop, getTopUnchecked, js_getRight, getRight,+        getRightUnchecked, js_getBottom, getBottom, getBottomUnchecked,+        js_getLeft, getLeft, getLeftUnchecked, Rect, castToRect, gTypeRect)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -24,6 +27,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.top Mozilla Rect.top documentation>  getTop :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) getTop self = liftIO (nullableToMaybe <$> (js_getTop (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.top Mozilla Rect.top documentation> +getTopUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue+getTopUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getTop (self)))   foreign import javascript unsafe "$1[\"right\"]" js_getRight ::         Rect -> IO (Nullable CSSPrimitiveValue)@@ -31,6 +39,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.right Mozilla Rect.right documentation>  getRight :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) getRight self = liftIO (nullableToMaybe <$> (js_getRight (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.right Mozilla Rect.right documentation> +getRightUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue+getRightUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRight (self)))   foreign import javascript unsafe "$1[\"bottom\"]" js_getBottom ::         Rect -> IO (Nullable CSSPrimitiveValue)@@ -38,6 +51,11 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.bottom Mozilla Rect.bottom documentation>  getBottom :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) getBottom self = liftIO (nullableToMaybe <$> (js_getBottom (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.bottom Mozilla Rect.bottom documentation> +getBottomUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue+getBottomUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getBottom (self)))   foreign import javascript unsafe "$1[\"left\"]" js_getLeft ::         Rect -> IO (Nullable CSSPrimitiveValue)@@ -45,3 +63,8 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.left Mozilla Rect.left documentation>  getLeft :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) getLeft self = liftIO (nullableToMaybe <$> (js_getLeft (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.left Mozilla Rect.left documentation> +getLeftUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue+getLeftUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getLeft (self)))
src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SQLError.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SQLResultSet-       (js_getRows, getRows, js_getInsertId, getInsertId,-        js_getRowsAffected, getRowsAffected, SQLResultSet,+       (js_getRows, getRows, getRowsUnchecked, js_getInsertId,+        getInsertId, js_getRowsAffected, getRowsAffected, SQLResultSet,         castToSQLResultSet, gTypeSQLResultSet)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -11,9 +11,11 @@ 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)@@ -26,6 +28,12 @@ getRows ::         (MonadIO m) => SQLResultSet -> m (Maybe SQLResultSetRowList) getRows self = liftIO (nullableToMaybe <$> (js_getRows (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.rows Mozilla SQLResultSet.rows documentation> +getRowsUnchecked ::+                 (MonadIO m) => SQLResultSet -> m SQLResultSetRowList+getRowsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRows (self)))   foreign import javascript unsafe "$1[\"insertId\"]" js_getInsertId         :: SQLResultSet -> IO Int
src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SQLResultSetRowList-       (js_item, item, js_getLength, getLength, SQLResultSetRowList,-        castToSQLResultSetRowList, gTypeSQLResultSetRowList)+       (js_item, item, item_, js_getLength, getLength,+        SQLResultSetRowList, castToSQLResultSetRowList,+        gTypeSQLResultSetRowList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -24,6 +27,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSetRowList.item Mozilla SQLResultSetRowList.item documentation>  item :: (MonadIO m) => SQLResultSetRowList -> Word -> m JSVal item self index = liftIO (js_item (self) index)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSetRowList.item Mozilla SQLResultSetRowList.item documentation> +item_ :: (MonadIO m) => SQLResultSetRowList -> Word -> m ()+item_ self index = liftIO (void (js_item (self) index))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::         SQLResultSetRowList -> IO Word
src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGAElement-       (js_getTarget, getTarget, SVGAElement, castToSVGAElement,-        gTypeSVGAElement)+       (js_getTarget, getTarget, getTargetUnchecked, SVGAElement,+        castToSVGAElement, gTypeSVGAElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -25,3 +27,9 @@ getTarget ::           (MonadIO m) => SVGAElement -> m (Maybe SVGAnimatedString) getTarget self = liftIO (nullableToMaybe <$> (js_getTarget (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAElement.target Mozilla SVGAElement.target documentation> +getTargetUnchecked ::+                   (MonadIO m) => SVGAElement -> m SVGAnimatedString+getTargetUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getTarget (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs view
@@ -9,7 +9,8 @@         js_setValueInSpecifiedUnits, setValueInSpecifiedUnits,         js_getValueInSpecifiedUnits, getValueInSpecifiedUnits,         js_setValueAsString, setValueAsString, js_getValueAsString,-        getValueAsString, SVGAngle, castToSVGAngle, gTypeSVGAngle)+        getValueAsString, getValueAsStringUnchecked, SVGAngle,+        castToSVGAngle, gTypeSVGAngle)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -18,9 +19,11 @@ 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)@@ -107,3 +110,10 @@                  (MonadIO m, FromJSString result) => SVGAngle -> m (Maybe result) getValueAsString self   = liftIO (fromMaybeJSString <$> (js_getValueAsString (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueAsString Mozilla SVGAngle.valueAsString documentation> +getValueAsStringUnchecked ::+                          (MonadIO m, FromJSString result) => SVGAngle -> m result+getValueAsStringUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getValueAsString (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedAngle-       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,-        SVGAnimatedAngle, castToSVGAnimatedAngle, gTypeSVGAnimatedAngle)+       (js_getBaseVal, getBaseVal, getBaseValUnchecked, js_getAnimVal,+        getAnimVal, getAnimValUnchecked, SVGAnimatedAngle,+        castToSVGAnimatedAngle, gTypeSVGAnimatedAngle)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -25,6 +28,12 @@ getBaseVal :: (MonadIO m) => SVGAnimatedAngle -> m (Maybe SVGAngle) getBaseVal self   = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.baseVal Mozilla SVGAnimatedAngle.baseVal documentation> +getBaseValUnchecked ::+                    (MonadIO m) => SVGAnimatedAngle -> m SVGAngle+getBaseValUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getBaseVal (self)))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::         SVGAnimatedAngle -> IO (Nullable SVGAngle)@@ -33,3 +42,9 @@ getAnimVal :: (MonadIO m) => SVGAnimatedAngle -> m (Maybe SVGAngle) getAnimVal self   = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.animVal Mozilla SVGAnimatedAngle.animVal documentation> +getAnimValUnchecked ::+                    (MonadIO m) => SVGAnimatedAngle -> m SVGAngle+getAnimValUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedLength-       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,-        SVGAnimatedLength, castToSVGAnimatedLength, gTypeSVGAnimatedLength)+       (js_getBaseVal, getBaseVal, getBaseValUnchecked, js_getAnimVal,+        getAnimVal, getAnimValUnchecked, SVGAnimatedLength,+        castToSVGAnimatedLength, gTypeSVGAnimatedLength)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -26,6 +29,12 @@            (MonadIO m) => SVGAnimatedLength -> m (Maybe SVGLength) getBaseVal self   = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.baseVal Mozilla SVGAnimatedLength.baseVal documentation> +getBaseValUnchecked ::+                    (MonadIO m) => SVGAnimatedLength -> m SVGLength+getBaseValUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getBaseVal (self)))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::         SVGAnimatedLength -> IO (Nullable SVGLength)@@ -35,3 +44,9 @@            (MonadIO m) => SVGAnimatedLength -> m (Maybe SVGLength) getAnimVal self   = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.animVal Mozilla SVGAnimatedLength.animVal documentation> +getAnimValUnchecked ::+                    (MonadIO m) => SVGAnimatedLength -> m SVGLength+getAnimValUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedLengthList-       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,-        SVGAnimatedLengthList, castToSVGAnimatedLengthList,-        gTypeSVGAnimatedLengthList)+       (js_getBaseVal, getBaseVal, getBaseValUnchecked, js_getAnimVal,+        getAnimVal, getAnimValUnchecked, SVGAnimatedLengthList,+        castToSVGAnimatedLengthList, gTypeSVGAnimatedLengthList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -27,6 +29,12 @@            (MonadIO m) => SVGAnimatedLengthList -> m (Maybe SVGLengthList) getBaseVal self   = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.baseVal Mozilla SVGAnimatedLengthList.baseVal documentation> +getBaseValUnchecked ::+                    (MonadIO m) => SVGAnimatedLengthList -> m SVGLengthList+getBaseValUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getBaseVal (self)))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::         SVGAnimatedLengthList -> IO (Nullable SVGLengthList)@@ -36,3 +44,9 @@            (MonadIO m) => SVGAnimatedLengthList -> m (Maybe SVGLengthList) getAnimVal self   = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.animVal Mozilla SVGAnimatedLengthList.animVal documentation> +getAnimValUnchecked ::+                    (MonadIO m) => SVGAnimatedLengthList -> m SVGLengthList+getAnimValUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedNumberList-       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,-        SVGAnimatedNumberList, castToSVGAnimatedNumberList,-        gTypeSVGAnimatedNumberList)+       (js_getBaseVal, getBaseVal, getBaseValUnchecked, js_getAnimVal,+        getAnimVal, getAnimValUnchecked, SVGAnimatedNumberList,+        castToSVGAnimatedNumberList, gTypeSVGAnimatedNumberList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -27,6 +29,12 @@            (MonadIO m) => SVGAnimatedNumberList -> m (Maybe SVGNumberList) getBaseVal self   = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.baseVal Mozilla SVGAnimatedNumberList.baseVal documentation> +getBaseValUnchecked ::+                    (MonadIO m) => SVGAnimatedNumberList -> m SVGNumberList+getBaseValUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getBaseVal (self)))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::         SVGAnimatedNumberList -> IO (Nullable SVGNumberList)@@ -36,3 +44,9 @@            (MonadIO m) => SVGAnimatedNumberList -> m (Maybe SVGNumberList) getAnimVal self   = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.animVal Mozilla SVGAnimatedNumberList.animVal documentation> +getAnimValUnchecked ::+                    (MonadIO m) => SVGAnimatedNumberList -> m SVGNumberList+getAnimValUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedPreserveAspectRatio-       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,-        SVGAnimatedPreserveAspectRatio,+       (js_getBaseVal, getBaseVal, getBaseValUnchecked, js_getAnimVal,+        getAnimVal, getAnimValUnchecked, SVGAnimatedPreserveAspectRatio,         castToSVGAnimatedPreserveAspectRatio,         gTypeSVGAnimatedPreserveAspectRatio)        where@@ -12,9 +12,11 @@ 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)@@ -30,6 +32,13 @@              SVGAnimatedPreserveAspectRatio -> m (Maybe SVGPreserveAspectRatio) getBaseVal self   = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.baseVal Mozilla SVGAnimatedPreserveAspectRatio.baseVal documentation> +getBaseValUnchecked ::+                    (MonadIO m) =>+                      SVGAnimatedPreserveAspectRatio -> m SVGPreserveAspectRatio+getBaseValUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getBaseVal (self)))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::         SVGAnimatedPreserveAspectRatio ->@@ -41,3 +50,10 @@              SVGAnimatedPreserveAspectRatio -> m (Maybe SVGPreserveAspectRatio) getAnimVal self   = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.animVal Mozilla SVGAnimatedPreserveAspectRatio.animVal documentation> +getAnimValUnchecked ::+                    (MonadIO m) =>+                      SVGAnimatedPreserveAspectRatio -> m SVGPreserveAspectRatio+getAnimValUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedRect-       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,-        SVGAnimatedRect, castToSVGAnimatedRect, gTypeSVGAnimatedRect)+       (js_getBaseVal, getBaseVal, getBaseValUnchecked, js_getAnimVal,+        getAnimVal, getAnimValUnchecked, SVGAnimatedRect,+        castToSVGAnimatedRect, gTypeSVGAnimatedRect)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -25,6 +28,11 @@ getBaseVal :: (MonadIO m) => SVGAnimatedRect -> m (Maybe SVGRect) getBaseVal self   = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.baseVal Mozilla SVGAnimatedRect.baseVal documentation> +getBaseValUnchecked :: (MonadIO m) => SVGAnimatedRect -> m SVGRect+getBaseValUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getBaseVal (self)))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::         SVGAnimatedRect -> IO (Nullable SVGRect)@@ -33,3 +41,8 @@ getAnimVal :: (MonadIO m) => SVGAnimatedRect -> m (Maybe SVGRect) getAnimVal self   = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.animVal Mozilla SVGAnimatedRect.animVal documentation> +getAnimValUnchecked :: (MonadIO m) => SVGAnimatedRect -> m SVGRect+getAnimValUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimatedTransformList-       (js_getBaseVal, getBaseVal, js_getAnimVal, getAnimVal,-        SVGAnimatedTransformList, castToSVGAnimatedTransformList,-        gTypeSVGAnimatedTransformList)+       (js_getBaseVal, getBaseVal, getBaseValUnchecked, js_getAnimVal,+        getAnimVal, getAnimValUnchecked, SVGAnimatedTransformList,+        castToSVGAnimatedTransformList, gTypeSVGAnimatedTransformList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -28,6 +30,12 @@              SVGAnimatedTransformList -> m (Maybe SVGTransformList) getBaseVal self   = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.baseVal Mozilla SVGAnimatedTransformList.baseVal documentation> +getBaseValUnchecked ::+                    (MonadIO m) => SVGAnimatedTransformList -> m SVGTransformList+getBaseValUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getBaseVal (self)))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::         SVGAnimatedTransformList -> IO (Nullable SVGTransformList)@@ -38,3 +46,9 @@              SVGAnimatedTransformList -> m (Maybe SVGTransformList) getAnimVal self   = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.animVal Mozilla SVGAnimatedTransformList.animVal documentation> +getAnimValUnchecked ::+                    (MonadIO m) => SVGAnimatedTransformList -> m SVGTransformList+getAnimValUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs view
@@ -1,12 +1,13 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGAnimationElement-       (js_getStartTime, getStartTime, js_getCurrentTime, getCurrentTime,-        js_getSimpleDuration, getSimpleDuration, js_beginElement,+       (js_getStartTime, getStartTime, getStartTime_, js_getCurrentTime,+        getCurrentTime, getCurrentTime_, js_getSimpleDuration,+        getSimpleDuration, getSimpleDuration_, js_beginElement,         beginElement, js_beginElementAt, beginElementAt, js_endElement,         endElement, js_endElementAt, endElementAt, js_getTargetElement,-        getTargetElement, SVGAnimationElement, castToSVGAnimationElement,-        gTypeSVGAnimationElement, IsSVGAnimationElement,-        toSVGAnimationElement)+        getTargetElement, getTargetElementUnchecked, SVGAnimationElement,+        castToSVGAnimationElement, gTypeSVGAnimationElement,+        IsSVGAnimationElement, toSVGAnimationElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -15,9 +16,11 @@ 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)@@ -31,6 +34,12 @@              (MonadIO m, IsSVGAnimationElement self) => self -> m Float getStartTime self   = liftIO (js_getStartTime (toSVGAnimationElement self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.getStartTime Mozilla SVGAnimationElement.getStartTime documentation> +getStartTime_ ::+              (MonadIO m, IsSVGAnimationElement self) => self -> m ()+getStartTime_ self+  = liftIO (void (js_getStartTime (toSVGAnimationElement self)))   foreign import javascript unsafe "$1[\"getCurrentTime\"]()"         js_getCurrentTime :: SVGAnimationElement -> IO Float@@ -40,6 +49,12 @@                (MonadIO m, IsSVGAnimationElement self) => self -> m Float getCurrentTime self   = liftIO (js_getCurrentTime (toSVGAnimationElement self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.getCurrentTime Mozilla SVGAnimationElement.getCurrentTime documentation> +getCurrentTime_ ::+                (MonadIO m, IsSVGAnimationElement self) => self -> m ()+getCurrentTime_ self+  = liftIO (void (js_getCurrentTime (toSVGAnimationElement self)))   foreign import javascript unsafe "$1[\"getSimpleDuration\"]()"         js_getSimpleDuration :: SVGAnimationElement -> IO Float@@ -49,6 +64,12 @@                   (MonadIO m, IsSVGAnimationElement self) => self -> m Float getSimpleDuration self   = liftIO (js_getSimpleDuration (toSVGAnimationElement self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.getSimpleDuration Mozilla SVGAnimationElement.getSimpleDuration documentation> +getSimpleDuration_ ::+                   (MonadIO m, IsSVGAnimationElement self) => self -> m ()+getSimpleDuration_ self+  = liftIO (void (js_getSimpleDuration (toSVGAnimationElement self)))   foreign import javascript unsafe "$1[\"beginElement\"]()"         js_beginElement :: SVGAnimationElement -> IO ()@@ -97,4 +118,12 @@ getTargetElement self   = liftIO       (nullableToMaybe <$>+         (js_getTargetElement (toSVGAnimationElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.targetElement Mozilla SVGAnimationElement.targetElement documentation> +getTargetElementUnchecked ::+                          (MonadIO m, IsSVGAnimationElement self) => self -> m SVGElement+getTargetElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>          (js_getTargetElement (toSVGAnimationElement self)))
src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGCircleElement-       (js_getCx, getCx, js_getCy, getCy, js_getR, getR, SVGCircleElement,+       (js_getCx, getCx, getCxUnchecked, js_getCy, getCy, getCyUnchecked,+        js_getR, getR, getRUnchecked, SVGCircleElement,         castToSVGCircleElement, gTypeSVGCircleElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -10,9 +11,11 @@ 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)@@ -25,6 +28,12 @@ getCx ::       (MonadIO m) => SVGCircleElement -> m (Maybe SVGAnimatedLength) getCx self = liftIO (nullableToMaybe <$> (js_getCx (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cx Mozilla SVGCircleElement.cx documentation> +getCxUnchecked ::+               (MonadIO m) => SVGCircleElement -> m SVGAnimatedLength+getCxUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getCx (self)))   foreign import javascript unsafe "$1[\"cy\"]" js_getCy ::         SVGCircleElement -> IO (Nullable SVGAnimatedLength)@@ -33,6 +42,12 @@ getCy ::       (MonadIO m) => SVGCircleElement -> m (Maybe SVGAnimatedLength) getCy self = liftIO (nullableToMaybe <$> (js_getCy (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cy Mozilla SVGCircleElement.cy documentation> +getCyUnchecked ::+               (MonadIO m) => SVGCircleElement -> m SVGAnimatedLength+getCyUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getCy (self)))   foreign import javascript unsafe "$1[\"r\"]" js_getR ::         SVGCircleElement -> IO (Nullable SVGAnimatedLength)@@ -41,3 +56,9 @@ getR ::      (MonadIO m) => SVGCircleElement -> m (Maybe SVGAnimatedLength) getR self = liftIO (nullableToMaybe <$> (js_getR (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.r Mozilla SVGCircleElement.r documentation> +getRUnchecked ::+              (MonadIO m) => SVGCircleElement -> m SVGAnimatedLength+getRUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getR (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGClipPathElement-       (js_getClipPathUnits, getClipPathUnits, SVGClipPathElement,-        castToSVGClipPathElement, gTypeSVGClipPathElement)+       (js_getClipPathUnits, getClipPathUnits, getClipPathUnitsUnchecked,+        SVGClipPathElement, castToSVGClipPathElement,+        gTypeSVGClipPathElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -28,3 +31,10 @@                    SVGClipPathElement -> m (Maybe SVGAnimatedEnumeration) getClipPathUnits self   = liftIO (nullableToMaybe <$> (js_getClipPathUnits (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGClipPathElement.clipPathUnits Mozilla SVGClipPathElement.clipPathUnits documentation> +getClipPathUnitsUnchecked ::+                          (MonadIO m) => SVGClipPathElement -> m SVGAnimatedEnumeration+getClipPathUnitsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getClipPathUnits (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGColor.hs view
@@ -5,8 +5,8 @@         pattern SVG_COLORTYPE_UNKNOWN, pattern SVG_COLORTYPE_RGBCOLOR,         pattern SVG_COLORTYPE_RGBCOLOR_ICCCOLOR,         pattern SVG_COLORTYPE_CURRENTCOLOR, js_getColorType, getColorType,-        js_getRgbColor, getRgbColor, SVGColor, castToSVGColor,-        gTypeSVGColor, IsSVGColor, toSVGColor)+        js_getRgbColor, getRgbColor, getRgbColorUnchecked, SVGColor,+        castToSVGColor, gTypeSVGColor, IsSVGColor, toSVGColor)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -15,9 +15,11 @@ 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)@@ -79,3 +81,10 @@             (MonadIO m, IsSVGColor self) => self -> m (Maybe RGBColor) getRgbColor self   = liftIO (nullableToMaybe <$> (js_getRgbColor (toSVGColor self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.rgbColor Mozilla SVGColor.rgbColor documentation> +getRgbColorUnchecked ::+                     (MonadIO m, IsSVGColor self) => self -> m RGBColor+getRgbColorUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getRgbColor (toSVGColor self)))
src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs view
@@ -6,10 +6,12 @@         pattern SVG_FECOMPONENTTRANSFER_TYPE_DISCRETE,         pattern SVG_FECOMPONENTTRANSFER_TYPE_LINEAR,         pattern SVG_FECOMPONENTTRANSFER_TYPE_GAMMA, js_getType, getType,-        js_getTableValues, getTableValues, js_getSlope, getSlope,-        js_getIntercept, getIntercept, js_getAmplitude, getAmplitude,-        js_getExponent, getExponent, js_getOffset, getOffset,-        SVGComponentTransferFunctionElement,+        getTypeUnchecked, js_getTableValues, getTableValues,+        getTableValuesUnchecked, js_getSlope, getSlope, getSlopeUnchecked,+        js_getIntercept, getIntercept, getInterceptUnchecked,+        js_getAmplitude, getAmplitude, getAmplitudeUnchecked,+        js_getExponent, getExponent, getExponentUnchecked, js_getOffset,+        getOffset, getOffsetUnchecked, SVGComponentTransferFunctionElement,         castToSVGComponentTransferFunctionElement,         gTypeSVGComponentTransferFunctionElement,         IsSVGComponentTransferFunctionElement,@@ -22,9 +24,11 @@ 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)@@ -48,6 +52,15 @@   = liftIO       (nullableToMaybe <$>          (js_getType (toSVGComponentTransferFunctionElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.type Mozilla SVGComponentTransferFunctionElement.type documentation> +getTypeUnchecked ::+                 (MonadIO m, IsSVGComponentTransferFunctionElement self) =>+                   self -> m SVGAnimatedEnumeration+getTypeUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getType (toSVGComponentTransferFunctionElement self)))   foreign import javascript unsafe "$1[\"tableValues\"]"         js_getTableValues ::@@ -62,6 +75,15 @@   = liftIO       (nullableToMaybe <$>          (js_getTableValues (toSVGComponentTransferFunctionElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.tableValues Mozilla SVGComponentTransferFunctionElement.tableValues documentation> +getTableValuesUnchecked ::+                        (MonadIO m, IsSVGComponentTransferFunctionElement self) =>+                          self -> m SVGAnimatedNumberList+getTableValuesUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getTableValues (toSVGComponentTransferFunctionElement self)))   foreign import javascript unsafe "$1[\"slope\"]" js_getSlope ::         SVGComponentTransferFunctionElement ->@@ -75,6 +97,15 @@   = liftIO       (nullableToMaybe <$>          (js_getSlope (toSVGComponentTransferFunctionElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.slope Mozilla SVGComponentTransferFunctionElement.slope documentation> +getSlopeUnchecked ::+                  (MonadIO m, IsSVGComponentTransferFunctionElement self) =>+                    self -> m SVGAnimatedNumber+getSlopeUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getSlope (toSVGComponentTransferFunctionElement self)))   foreign import javascript unsafe "$1[\"intercept\"]"         js_getIntercept ::@@ -89,6 +120,15 @@   = liftIO       (nullableToMaybe <$>          (js_getIntercept (toSVGComponentTransferFunctionElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.intercept Mozilla SVGComponentTransferFunctionElement.intercept documentation> +getInterceptUnchecked ::+                      (MonadIO m, IsSVGComponentTransferFunctionElement self) =>+                        self -> m SVGAnimatedNumber+getInterceptUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getIntercept (toSVGComponentTransferFunctionElement self)))   foreign import javascript unsafe "$1[\"amplitude\"]"         js_getAmplitude ::@@ -103,6 +143,15 @@   = liftIO       (nullableToMaybe <$>          (js_getAmplitude (toSVGComponentTransferFunctionElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.amplitude Mozilla SVGComponentTransferFunctionElement.amplitude documentation> +getAmplitudeUnchecked ::+                      (MonadIO m, IsSVGComponentTransferFunctionElement self) =>+                        self -> m SVGAnimatedNumber+getAmplitudeUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getAmplitude (toSVGComponentTransferFunctionElement self)))   foreign import javascript unsafe "$1[\"exponent\"]" js_getExponent         ::@@ -117,6 +166,15 @@   = liftIO       (nullableToMaybe <$>          (js_getExponent (toSVGComponentTransferFunctionElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.exponent Mozilla SVGComponentTransferFunctionElement.exponent documentation> +getExponentUnchecked ::+                     (MonadIO m, IsSVGComponentTransferFunctionElement self) =>+                       self -> m SVGAnimatedNumber+getExponentUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getExponent (toSVGComponentTransferFunctionElement self)))   foreign import javascript unsafe "$1[\"offset\"]" js_getOffset ::         SVGComponentTransferFunctionElement ->@@ -129,4 +187,13 @@ getOffset self   = liftIO       (nullableToMaybe <$>+         (js_getOffset (toSVGComponentTransferFunctionElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.offset Mozilla SVGComponentTransferFunctionElement.offset documentation> +getOffsetUnchecked ::+                   (MonadIO m, IsSVGComponentTransferFunctionElement self) =>+                     self -> m SVGAnimatedNumber+getOffsetUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>          (js_getOffset (toSVGComponentTransferFunctionElement self)))
src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGCursorElement-       (js_getX, getX, js_getY, getY, SVGCursorElement,-        castToSVGCursorElement, gTypeSVGCursorElement)+       (js_getX, getX, getXUnchecked, js_getY, getY, getYUnchecked,+        SVGCursorElement, castToSVGCursorElement, gTypeSVGCursorElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -25,6 +27,12 @@ getX ::      (MonadIO m) => SVGCursorElement -> m (Maybe SVGAnimatedLength) getX self = liftIO (nullableToMaybe <$> (js_getX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.x Mozilla SVGCursorElement.x documentation> +getXUnchecked ::+              (MonadIO m) => SVGCursorElement -> m SVGAnimatedLength+getXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::         SVGCursorElement -> IO (Nullable SVGAnimatedLength)@@ -33,3 +41,9 @@ getY ::      (MonadIO m) => SVGCursorElement -> m (Maybe SVGAnimatedLength) getY self = liftIO (nullableToMaybe <$> (js_getY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.y Mozilla SVGCursorElement.y documentation> +getYUnchecked ::+              (MonadIO m) => SVGCursorElement -> m SVGAnimatedLength+getYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getY (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGDocument.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGDocument-       (js_createEvent, createEvent, js_getRootElement, getRootElement,+       (js_createEvent, createEvent, createEvent_, createEventUnchecked,+        js_getRootElement, getRootElement, getRootElementUnchecked,         SVGDocument, castToSVGDocument, gTypeSVGDocument)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -10,9 +11,11 @@ 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)@@ -29,6 +32,22 @@   = liftIO       (nullableToMaybe <$>          (js_createEvent (self) (toJSString eventType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.createEvent Mozilla SVGDocument.createEvent documentation> +createEvent_ ::+             (MonadIO m, ToJSString eventType) =>+               SVGDocument -> eventType -> m ()+createEvent_ self eventType+  = liftIO (void (js_createEvent (self) (toJSString eventType)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.createEvent Mozilla SVGDocument.createEvent documentation> +createEventUnchecked ::+                     (MonadIO m, ToJSString eventType) =>+                       SVGDocument -> eventType -> m Event+createEventUnchecked self eventType+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createEvent (self) (toJSString eventType)))   foreign import javascript unsafe "$1[\"rootElement\"]"         js_getRootElement :: SVGDocument -> IO (Nullable SVGSVGElement)@@ -38,3 +57,10 @@                (MonadIO m) => SVGDocument -> m (Maybe SVGSVGElement) getRootElement self   = liftIO (nullableToMaybe <$> (js_getRootElement (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.rootElement Mozilla SVGDocument.rootElement documentation> +getRootElementUnchecked ::+                        (MonadIO m) => SVGDocument -> m SVGSVGElement+getRootElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getRootElement (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs view
@@ -1,11 +1,14 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGElement        (js_getPresentationAttribute, getPresentationAttribute,+        getPresentationAttribute_, getPresentationAttributeUnchecked,         js_setXmlbase, setXmlbase, js_getXmlbase, getXmlbase,-        js_getOwnerSVGElement, getOwnerSVGElement, js_getViewportElement,-        getViewportElement, js_setXmllang, setXmllang, js_getXmllang,-        getXmllang, js_setXmlspace, setXmlspace, js_getXmlspace,-        getXmlspace, js_getClassName, getClassName, js_getStyle, getStyle,+        getXmlbaseUnchecked, js_getOwnerSVGElement, getOwnerSVGElement,+        getOwnerSVGElementUnchecked, js_getViewportElement,+        getViewportElement, getViewportElementUnchecked, js_setXmllang,+        setXmllang, js_getXmllang, getXmllang, js_setXmlspace, setXmlspace,+        js_getXmlspace, getXmlspace, js_getClassName, getClassName,+        getClassNameUnchecked, js_getStyle, getStyle, getStyleUnchecked,         js_setTabIndex, setTabIndex, js_getTabIndex, getTabIndex,         SVGElement, castToSVGElement, gTypeSVGElement, IsSVGElement,         toSVGElement)@@ -17,9 +20,11 @@ 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)@@ -38,6 +43,26 @@       (nullableToMaybe <$>          (js_getPresentationAttribute (toSVGElement self)             (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.getPresentationAttribute Mozilla SVGElement.getPresentationAttribute documentation> +getPresentationAttribute_ ::+                          (MonadIO m, IsSVGElement self, ToJSString name) =>+                            self -> name -> m ()+getPresentationAttribute_ self name+  = liftIO+      (void+         (js_getPresentationAttribute (toSVGElement self)+            (toJSString name)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.getPresentationAttribute Mozilla SVGElement.getPresentationAttribute documentation> +getPresentationAttributeUnchecked ::+                                  (MonadIO m, IsSVGElement self, ToJSString name) =>+                                    self -> name -> m CSSValue+getPresentationAttributeUnchecked self name+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getPresentationAttribute (toSVGElement self)+            (toJSString name)))   foreign import javascript unsafe "$1[\"xmlbase\"] = $2;"         js_setXmlbase :: SVGElement -> Nullable JSString -> IO ()@@ -59,6 +84,15 @@ getXmlbase self   = liftIO       (fromMaybeJSString <$> (js_getXmlbase (toSVGElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlbase Mozilla SVGElement.xmlbase documentation> +getXmlbaseUnchecked ::+                    (MonadIO m, IsSVGElement self, FromJSString result) =>+                      self -> m result+getXmlbaseUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$>+         (js_getXmlbase (toSVGElement self)))   foreign import javascript unsafe "$1[\"ownerSVGElement\"]"         js_getOwnerSVGElement :: SVGElement -> IO (Nullable SVGSVGElement)@@ -69,6 +103,14 @@ getOwnerSVGElement self   = liftIO       (nullableToMaybe <$> (js_getOwnerSVGElement (toSVGElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.ownerSVGElement Mozilla SVGElement.ownerSVGElement documentation> +getOwnerSVGElementUnchecked ::+                            (MonadIO m, IsSVGElement self) => self -> m SVGSVGElement+getOwnerSVGElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getOwnerSVGElement (toSVGElement self)))   foreign import javascript unsafe "$1[\"viewportElement\"]"         js_getViewportElement :: SVGElement -> IO (Nullable SVGElement)@@ -79,6 +121,14 @@ getViewportElement self   = liftIO       (nullableToMaybe <$> (js_getViewportElement (toSVGElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.viewportElement Mozilla SVGElement.viewportElement documentation> +getViewportElementUnchecked ::+                            (MonadIO m, IsSVGElement self) => self -> m SVGElement+getViewportElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getViewportElement (toSVGElement self)))   foreign import javascript unsafe "$1[\"xmllang\"] = $2;"         js_setXmllang :: SVGElement -> JSString -> IO ()@@ -130,6 +180,14 @@ getClassName self   = liftIO       (nullableToMaybe <$> (js_getClassName (toSVGElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.className Mozilla SVGElement.className documentation> +getClassNameUnchecked ::+                      (MonadIO m, IsSVGElement self) => self -> m SVGAnimatedString+getClassNameUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getClassName (toSVGElement self)))   foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::         SVGElement -> IO (Nullable CSSStyleDeclaration)@@ -140,6 +198,13 @@            self -> m (Maybe CSSStyleDeclaration) getStyle self   = liftIO (nullableToMaybe <$> (js_getStyle (toSVGElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.style Mozilla SVGElement.style documentation> +getStyleUnchecked ::+                  (MonadIO m, IsSVGElement self) => self -> m CSSStyleDeclaration+getStyleUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getStyle (toSVGElement self)))   foreign import javascript unsafe "$1[\"tabIndex\"] = $2;"         js_setTabIndex :: SVGElement -> Int -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGEllipseElement-       (js_getCx, getCx, js_getCy, getCy, js_getRx, getRx, js_getRy,-        getRy, SVGEllipseElement, castToSVGEllipseElement,-        gTypeSVGEllipseElement)+       (js_getCx, getCx, getCxUnchecked, js_getCy, getCy, getCyUnchecked,+        js_getRx, getRx, getRxUnchecked, js_getRy, getRy, getRyUnchecked,+        SVGEllipseElement, castToSVGEllipseElement, gTypeSVGEllipseElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -26,6 +28,12 @@ getCx ::       (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength) getCx self = liftIO (nullableToMaybe <$> (js_getCx (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cx Mozilla SVGEllipseElement.cx documentation> +getCxUnchecked ::+               (MonadIO m) => SVGEllipseElement -> m SVGAnimatedLength+getCxUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getCx (self)))   foreign import javascript unsafe "$1[\"cy\"]" js_getCy ::         SVGEllipseElement -> IO (Nullable SVGAnimatedLength)@@ -34,6 +42,12 @@ getCy ::       (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength) getCy self = liftIO (nullableToMaybe <$> (js_getCy (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cy Mozilla SVGEllipseElement.cy documentation> +getCyUnchecked ::+               (MonadIO m) => SVGEllipseElement -> m SVGAnimatedLength+getCyUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getCy (self)))   foreign import javascript unsafe "$1[\"rx\"]" js_getRx ::         SVGEllipseElement -> IO (Nullable SVGAnimatedLength)@@ -42,6 +56,12 @@ getRx ::       (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength) getRx self = liftIO (nullableToMaybe <$> (js_getRx (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.rx Mozilla SVGEllipseElement.rx documentation> +getRxUnchecked ::+               (MonadIO m) => SVGEllipseElement -> m SVGAnimatedLength+getRxUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRx (self)))   foreign import javascript unsafe "$1[\"ry\"]" js_getRy ::         SVGEllipseElement -> IO (Nullable SVGAnimatedLength)@@ -50,3 +70,9 @@ getRy ::       (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength) getRy self = liftIO (nullableToMaybe <$> (js_getRy (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.ry Mozilla SVGEllipseElement.ry documentation> +getRyUnchecked ::+               (MonadIO m) => SVGEllipseElement -> m SVGAnimatedLength+getRyUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRy (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGExternalResourcesRequired        (js_getExternalResourcesRequired, getExternalResourcesRequired,+        getExternalResourcesRequiredUnchecked,         SVGExternalResourcesRequired, castToSVGExternalResourcesRequired,         gTypeSVGExternalResourcesRequired)        where@@ -11,9 +12,11 @@ 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)@@ -30,3 +33,12 @@ getExternalResourcesRequired self   = liftIO       (nullableToMaybe <$> (js_getExternalResourcesRequired (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGExternalResourcesRequired.externalResourcesRequired Mozilla SVGExternalResourcesRequired.externalResourcesRequired documentation> +getExternalResourcesRequiredUnchecked ::+                                      (MonadIO m) =>+                                        SVGExternalResourcesRequired -> m SVGAnimatedBoolean+getExternalResourcesRequiredUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getExternalResourcesRequired (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEBlendElement.hs view
@@ -3,7 +3,8 @@        (pattern SVG_FEBLEND_MODE_UNKNOWN, pattern SVG_FEBLEND_MODE_NORMAL,         pattern SVG_FEBLEND_MODE_MULTIPLY, pattern SVG_FEBLEND_MODE_SCREEN,         pattern SVG_FEBLEND_MODE_DARKEN, pattern SVG_FEBLEND_MODE_LIGHTEN,-        js_getIn1, getIn1, js_getIn2, getIn2, js_getMode, getMode,+        js_getIn1, getIn1, getIn1Unchecked, js_getIn2, getIn2,+        getIn2Unchecked, js_getMode, getMode, getModeUnchecked,         SVGFEBlendElement, castToSVGFEBlendElement, gTypeSVGFEBlendElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -13,9 +14,11 @@ 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)@@ -34,6 +37,12 @@ getIn1 ::        (MonadIO m) => SVGFEBlendElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.in1 Mozilla SVGFEBlendElement.in1 documentation> +getIn1Unchecked ::+                (MonadIO m) => SVGFEBlendElement -> m SVGAnimatedString+getIn1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"in2\"]" js_getIn2 ::         SVGFEBlendElement -> IO (Nullable SVGAnimatedString)@@ -42,6 +51,12 @@ getIn2 ::        (MonadIO m) => SVGFEBlendElement -> m (Maybe SVGAnimatedString) getIn2 self = liftIO (nullableToMaybe <$> (js_getIn2 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.in2 Mozilla SVGFEBlendElement.in2 documentation> +getIn2Unchecked ::+                (MonadIO m) => SVGFEBlendElement -> m SVGAnimatedString+getIn2Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn2 (self)))   foreign import javascript unsafe "$1[\"mode\"]" js_getMode ::         SVGFEBlendElement -> IO (Nullable SVGAnimatedEnumeration)@@ -51,3 +66,9 @@         (MonadIO m) =>           SVGFEBlendElement -> m (Maybe SVGAnimatedEnumeration) getMode self = liftIO (nullableToMaybe <$> (js_getMode (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.mode Mozilla SVGFEBlendElement.mode documentation> +getModeUnchecked ::+                 (MonadIO m) => SVGFEBlendElement -> m SVGAnimatedEnumeration+getModeUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getMode (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEColorMatrixElement.hs view
@@ -5,7 +5,8 @@         pattern SVG_FECOLORMATRIX_TYPE_SATURATE,         pattern SVG_FECOLORMATRIX_TYPE_HUEROTATE,         pattern SVG_FECOLORMATRIX_TYPE_LUMINANCETOALPHA, js_getIn1, getIn1,-        js_getType, getType, js_getValues, getValues,+        getIn1Unchecked, js_getType, getType, getTypeUnchecked,+        js_getValues, getValues, getValuesUnchecked,         SVGFEColorMatrixElement, castToSVGFEColorMatrixElement,         gTypeSVGFEColorMatrixElement)        where@@ -16,9 +17,11 @@ 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)@@ -37,6 +40,12 @@        (MonadIO m) =>          SVGFEColorMatrixElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.in1 Mozilla SVGFEColorMatrixElement.in1 documentation> +getIn1Unchecked ::+                (MonadIO m) => SVGFEColorMatrixElement -> m SVGAnimatedString+getIn1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         SVGFEColorMatrixElement -> IO (Nullable SVGAnimatedEnumeration)@@ -46,6 +55,12 @@         (MonadIO m) =>           SVGFEColorMatrixElement -> m (Maybe SVGAnimatedEnumeration) getType self = liftIO (nullableToMaybe <$> (js_getType (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.type Mozilla SVGFEColorMatrixElement.type documentation> +getTypeUnchecked ::+                 (MonadIO m) => SVGFEColorMatrixElement -> m SVGAnimatedEnumeration+getTypeUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"values\"]" js_getValues ::         SVGFEColorMatrixElement -> IO (Nullable SVGAnimatedNumberList)@@ -55,3 +70,9 @@           (MonadIO m) =>             SVGFEColorMatrixElement -> m (Maybe SVGAnimatedNumberList) getValues self = liftIO (nullableToMaybe <$> (js_getValues (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.values Mozilla SVGFEColorMatrixElement.values documentation> +getValuesUnchecked ::+                   (MonadIO m) => SVGFEColorMatrixElement -> m SVGAnimatedNumberList+getValuesUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getValues (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEComponentTransferElement.hs view
@@ -1,6 +1,6 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGFEComponentTransferElement-       (js_getIn1, getIn1, SVGFEComponentTransferElement,+       (js_getIn1, getIn1, getIn1Unchecked, SVGFEComponentTransferElement,         castToSVGFEComponentTransferElement,         gTypeSVGFEComponentTransferElement)        where@@ -11,9 +11,11 @@ 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)@@ -27,3 +29,9 @@        (MonadIO m) =>          SVGFEComponentTransferElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEComponentTransferElement.in1 Mozilla SVGFEComponentTransferElement.in1 documentation> +getIn1Unchecked ::+                (MonadIO m) => SVGFEComponentTransferElement -> m SVGAnimatedString+getIn1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFECompositeElement.hs view
@@ -7,8 +7,10 @@         pattern SVG_FECOMPOSITE_OPERATOR_ATOP,         pattern SVG_FECOMPOSITE_OPERATOR_XOR,         pattern SVG_FECOMPOSITE_OPERATOR_ARITHMETIC, js_getIn1, getIn1,-        js_getIn2, getIn2, js_getOperator, getOperator, js_getK1, getK1,-        js_getK2, getK2, js_getK3, getK3, js_getK4, getK4,+        getIn1Unchecked, js_getIn2, getIn2, getIn2Unchecked,+        js_getOperator, getOperator, getOperatorUnchecked, js_getK1, getK1,+        getK1Unchecked, js_getK2, getK2, getK2Unchecked, js_getK3, getK3,+        getK3Unchecked, js_getK4, getK4, getK4Unchecked,         SVGFECompositeElement, castToSVGFECompositeElement,         gTypeSVGFECompositeElement)        where@@ -19,9 +21,11 @@ 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)@@ -41,6 +45,12 @@ getIn1 ::        (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.in1 Mozilla SVGFECompositeElement.in1 documentation> +getIn1Unchecked ::+                (MonadIO m) => SVGFECompositeElement -> m SVGAnimatedString+getIn1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"in2\"]" js_getIn2 ::         SVGFECompositeElement -> IO (Nullable SVGAnimatedString)@@ -49,6 +59,12 @@ getIn2 ::        (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedString) getIn2 self = liftIO (nullableToMaybe <$> (js_getIn2 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.in2 Mozilla SVGFECompositeElement.in2 documentation> +getIn2Unchecked ::+                (MonadIO m) => SVGFECompositeElement -> m SVGAnimatedString+getIn2Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn2 (self)))   foreign import javascript unsafe "$1[\"operator\"]" js_getOperator         :: SVGFECompositeElement -> IO (Nullable SVGAnimatedEnumeration)@@ -59,6 +75,12 @@               SVGFECompositeElement -> m (Maybe SVGAnimatedEnumeration) getOperator self   = liftIO (nullableToMaybe <$> (js_getOperator (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.operator Mozilla SVGFECompositeElement.operator documentation> +getOperatorUnchecked ::+                     (MonadIO m) => SVGFECompositeElement -> m SVGAnimatedEnumeration+getOperatorUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getOperator (self)))   foreign import javascript unsafe "$1[\"k1\"]" js_getK1 ::         SVGFECompositeElement -> IO (Nullable SVGAnimatedNumber)@@ -67,6 +89,12 @@ getK1 ::       (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber) getK1 self = liftIO (nullableToMaybe <$> (js_getK1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k1 Mozilla SVGFECompositeElement.k1 documentation> +getK1Unchecked ::+               (MonadIO m) => SVGFECompositeElement -> m SVGAnimatedNumber+getK1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getK1 (self)))   foreign import javascript unsafe "$1[\"k2\"]" js_getK2 ::         SVGFECompositeElement -> IO (Nullable SVGAnimatedNumber)@@ -75,6 +103,12 @@ getK2 ::       (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber) getK2 self = liftIO (nullableToMaybe <$> (js_getK2 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k2 Mozilla SVGFECompositeElement.k2 documentation> +getK2Unchecked ::+               (MonadIO m) => SVGFECompositeElement -> m SVGAnimatedNumber+getK2Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getK2 (self)))   foreign import javascript unsafe "$1[\"k3\"]" js_getK3 ::         SVGFECompositeElement -> IO (Nullable SVGAnimatedNumber)@@ -83,6 +117,12 @@ getK3 ::       (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber) getK3 self = liftIO (nullableToMaybe <$> (js_getK3 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k3 Mozilla SVGFECompositeElement.k3 documentation> +getK3Unchecked ::+               (MonadIO m) => SVGFECompositeElement -> m SVGAnimatedNumber+getK3Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getK3 (self)))   foreign import javascript unsafe "$1[\"k4\"]" js_getK4 ::         SVGFECompositeElement -> IO (Nullable SVGAnimatedNumber)@@ -91,3 +131,9 @@ getK4 ::       (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber) getK4 self = liftIO (nullableToMaybe <$> (js_getK4 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k4 Mozilla SVGFECompositeElement.k4 documentation> +getK4Unchecked ::+               (MonadIO m) => SVGFECompositeElement -> m SVGAnimatedNumber+getK4Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getK4 (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEConvolveMatrixElement.hs view
@@ -2,12 +2,18 @@ module GHCJS.DOM.JSFFI.Generated.SVGFEConvolveMatrixElement        (pattern SVG_EDGEMODE_UNKNOWN, pattern SVG_EDGEMODE_DUPLICATE,         pattern SVG_EDGEMODE_WRAP, pattern SVG_EDGEMODE_NONE, js_getIn1,-        getIn1, js_getOrderX, getOrderX, js_getOrderY, getOrderY,-        js_getKernelMatrix, getKernelMatrix, js_getDivisor, getDivisor,-        js_getBias, getBias, js_getTargetX, getTargetX, js_getTargetY,-        getTargetY, js_getEdgeMode, getEdgeMode, js_getKernelUnitLengthX,-        getKernelUnitLengthX, js_getKernelUnitLengthY,-        getKernelUnitLengthY, js_getPreserveAlpha, getPreserveAlpha,+        getIn1, getIn1Unchecked, js_getOrderX, getOrderX,+        getOrderXUnchecked, js_getOrderY, getOrderY, getOrderYUnchecked,+        js_getKernelMatrix, getKernelMatrix, getKernelMatrixUnchecked,+        js_getDivisor, getDivisor, getDivisorUnchecked, js_getBias,+        getBias, getBiasUnchecked, js_getTargetX, getTargetX,+        getTargetXUnchecked, js_getTargetY, getTargetY,+        getTargetYUnchecked, js_getEdgeMode, getEdgeMode,+        getEdgeModeUnchecked, js_getKernelUnitLengthX,+        getKernelUnitLengthX, getKernelUnitLengthXUnchecked,+        js_getKernelUnitLengthY, getKernelUnitLengthY,+        getKernelUnitLengthYUnchecked, js_getPreserveAlpha,+        getPreserveAlpha, getPreserveAlphaUnchecked,         SVGFEConvolveMatrixElement, castToSVGFEConvolveMatrixElement,         gTypeSVGFEConvolveMatrixElement)        where@@ -18,9 +24,11 @@ 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)@@ -38,6 +46,12 @@        (MonadIO m) =>          SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.in1 Mozilla SVGFEConvolveMatrixElement.in1 documentation> +getIn1Unchecked ::+                (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedString+getIn1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"orderX\"]" js_getOrderX ::         SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedInteger)@@ -47,6 +61,12 @@           (MonadIO m) =>             SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger) getOrderX self = liftIO (nullableToMaybe <$> (js_getOrderX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.orderX Mozilla SVGFEConvolveMatrixElement.orderX documentation> +getOrderXUnchecked ::+                   (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedInteger+getOrderXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getOrderX (self)))   foreign import javascript unsafe "$1[\"orderY\"]" js_getOrderY ::         SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedInteger)@@ -56,6 +76,12 @@           (MonadIO m) =>             SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger) getOrderY self = liftIO (nullableToMaybe <$> (js_getOrderY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.orderY Mozilla SVGFEConvolveMatrixElement.orderY documentation> +getOrderYUnchecked ::+                   (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedInteger+getOrderYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getOrderY (self)))   foreign import javascript unsafe "$1[\"kernelMatrix\"]"         js_getKernelMatrix ::@@ -67,6 +93,14 @@                   SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumberList) getKernelMatrix self   = liftIO (nullableToMaybe <$> (js_getKernelMatrix (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelMatrix Mozilla SVGFEConvolveMatrixElement.kernelMatrix documentation> +getKernelMatrixUnchecked ::+                         (MonadIO m) =>+                           SVGFEConvolveMatrixElement -> m SVGAnimatedNumberList+getKernelMatrixUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getKernelMatrix (self)))   foreign import javascript unsafe "$1[\"divisor\"]" js_getDivisor ::         SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumber)@@ -77,6 +111,12 @@              SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber) getDivisor self   = liftIO (nullableToMaybe <$> (js_getDivisor (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.divisor Mozilla SVGFEConvolveMatrixElement.divisor documentation> +getDivisorUnchecked ::+                    (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedNumber+getDivisorUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getDivisor (self)))   foreign import javascript unsafe "$1[\"bias\"]" js_getBias ::         SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumber)@@ -86,6 +126,12 @@         (MonadIO m) =>           SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber) getBias self = liftIO (nullableToMaybe <$> (js_getBias (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.bias Mozilla SVGFEConvolveMatrixElement.bias documentation> +getBiasUnchecked ::+                 (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedNumber+getBiasUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getBias (self)))   foreign import javascript unsafe "$1[\"targetX\"]" js_getTargetX ::         SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedInteger)@@ -96,6 +142,12 @@              SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger) getTargetX self   = liftIO (nullableToMaybe <$> (js_getTargetX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.targetX Mozilla SVGFEConvolveMatrixElement.targetX documentation> +getTargetXUnchecked ::+                    (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedInteger+getTargetXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getTargetX (self)))   foreign import javascript unsafe "$1[\"targetY\"]" js_getTargetY ::         SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedInteger)@@ -106,6 +158,12 @@              SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger) getTargetY self   = liftIO (nullableToMaybe <$> (js_getTargetY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.targetY Mozilla SVGFEConvolveMatrixElement.targetY documentation> +getTargetYUnchecked ::+                    (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedInteger+getTargetYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getTargetY (self)))   foreign import javascript unsafe "$1[\"edgeMode\"]" js_getEdgeMode         ::@@ -117,6 +175,13 @@               SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedEnumeration) getEdgeMode self   = liftIO (nullableToMaybe <$> (js_getEdgeMode (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.edgeMode Mozilla SVGFEConvolveMatrixElement.edgeMode documentation> +getEdgeModeUnchecked ::+                     (MonadIO m) =>+                       SVGFEConvolveMatrixElement -> m SVGAnimatedEnumeration+getEdgeModeUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getEdgeMode (self)))   foreign import javascript unsafe "$1[\"kernelUnitLengthX\"]"         js_getKernelUnitLengthX ::@@ -128,6 +193,13 @@                        SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber) getKernelUnitLengthX self   = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelUnitLengthX Mozilla SVGFEConvolveMatrixElement.kernelUnitLengthX documentation> +getKernelUnitLengthXUnchecked ::+                              (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedNumber+getKernelUnitLengthXUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getKernelUnitLengthX (self)))   foreign import javascript unsafe "$1[\"kernelUnitLengthY\"]"         js_getKernelUnitLengthY ::@@ -139,6 +211,13 @@                        SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber) getKernelUnitLengthY self   = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelUnitLengthY Mozilla SVGFEConvolveMatrixElement.kernelUnitLengthY documentation> +getKernelUnitLengthYUnchecked ::+                              (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedNumber+getKernelUnitLengthYUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getKernelUnitLengthY (self)))   foreign import javascript unsafe "$1[\"preserveAlpha\"]"         js_getPreserveAlpha ::@@ -150,3 +229,10 @@                    SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedBoolean) getPreserveAlpha self   = liftIO (nullableToMaybe <$> (js_getPreserveAlpha (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.preserveAlpha Mozilla SVGFEConvolveMatrixElement.preserveAlpha documentation> +getPreserveAlphaUnchecked ::+                          (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedBoolean+getPreserveAlphaUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getPreserveAlpha (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEDiffuseLightingElement.hs view
@@ -1,10 +1,12 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGFEDiffuseLightingElement-       (js_getIn1, getIn1, js_getSurfaceScale, getSurfaceScale,-        js_getDiffuseConstant, getDiffuseConstant, js_getKernelUnitLengthX,-        getKernelUnitLengthX, js_getKernelUnitLengthY,-        getKernelUnitLengthY, SVGFEDiffuseLightingElement,-        castToSVGFEDiffuseLightingElement,+       (js_getIn1, getIn1, getIn1Unchecked, js_getSurfaceScale,+        getSurfaceScale, getSurfaceScaleUnchecked, js_getDiffuseConstant,+        getDiffuseConstant, getDiffuseConstantUnchecked,+        js_getKernelUnitLengthX, getKernelUnitLengthX,+        getKernelUnitLengthXUnchecked, js_getKernelUnitLengthY,+        getKernelUnitLengthY, getKernelUnitLengthYUnchecked,+        SVGFEDiffuseLightingElement, castToSVGFEDiffuseLightingElement,         gTypeSVGFEDiffuseLightingElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -14,9 +16,11 @@ 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)@@ -30,6 +34,12 @@        (MonadIO m) =>          SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.in1 Mozilla SVGFEDiffuseLightingElement.in1 documentation> +getIn1Unchecked ::+                (MonadIO m) => SVGFEDiffuseLightingElement -> m SVGAnimatedString+getIn1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"surfaceScale\"]"         js_getSurfaceScale ::@@ -41,6 +51,13 @@                   SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber) getSurfaceScale self   = liftIO (nullableToMaybe <$> (js_getSurfaceScale (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.surfaceScale Mozilla SVGFEDiffuseLightingElement.surfaceScale documentation> +getSurfaceScaleUnchecked ::+                         (MonadIO m) => SVGFEDiffuseLightingElement -> m SVGAnimatedNumber+getSurfaceScaleUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getSurfaceScale (self)))   foreign import javascript unsafe "$1[\"diffuseConstant\"]"         js_getDiffuseConstant ::@@ -52,6 +69,13 @@                      SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber) getDiffuseConstant self   = liftIO (nullableToMaybe <$> (js_getDiffuseConstant (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.diffuseConstant Mozilla SVGFEDiffuseLightingElement.diffuseConstant documentation> +getDiffuseConstantUnchecked ::+                            (MonadIO m) => SVGFEDiffuseLightingElement -> m SVGAnimatedNumber+getDiffuseConstantUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getDiffuseConstant (self)))   foreign import javascript unsafe "$1[\"kernelUnitLengthX\"]"         js_getKernelUnitLengthX ::@@ -63,6 +87,13 @@                        SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber) getKernelUnitLengthX self   = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.kernelUnitLengthX Mozilla SVGFEDiffuseLightingElement.kernelUnitLengthX documentation> +getKernelUnitLengthXUnchecked ::+                              (MonadIO m) => SVGFEDiffuseLightingElement -> m SVGAnimatedNumber+getKernelUnitLengthXUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getKernelUnitLengthX (self)))   foreign import javascript unsafe "$1[\"kernelUnitLengthY\"]"         js_getKernelUnitLengthY ::@@ -74,3 +105,10 @@                        SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber) getKernelUnitLengthY self   = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.kernelUnitLengthY Mozilla SVGFEDiffuseLightingElement.kernelUnitLengthY documentation> +getKernelUnitLengthYUnchecked ::+                              (MonadIO m) => SVGFEDiffuseLightingElement -> m SVGAnimatedNumber+getKernelUnitLengthYUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getKernelUnitLengthY (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEDisplacementMapElement.hs view
@@ -2,9 +2,11 @@ module GHCJS.DOM.JSFFI.Generated.SVGFEDisplacementMapElement        (pattern SVG_CHANNEL_UNKNOWN, pattern SVG_CHANNEL_R,         pattern SVG_CHANNEL_G, pattern SVG_CHANNEL_B,-        pattern SVG_CHANNEL_A, js_getIn1, getIn1, js_getIn2, getIn2,-        js_getScale, getScale, js_getXChannelSelector, getXChannelSelector,-        js_getYChannelSelector, getYChannelSelector,+        pattern SVG_CHANNEL_A, js_getIn1, getIn1, getIn1Unchecked,+        js_getIn2, getIn2, getIn2Unchecked, js_getScale, getScale,+        getScaleUnchecked, js_getXChannelSelector, getXChannelSelector,+        getXChannelSelectorUnchecked, js_getYChannelSelector,+        getYChannelSelector, getYChannelSelectorUnchecked,         SVGFEDisplacementMapElement, castToSVGFEDisplacementMapElement,         gTypeSVGFEDisplacementMapElement)        where@@ -15,9 +17,11 @@ 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)@@ -36,6 +40,12 @@        (MonadIO m) =>          SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.in1 Mozilla SVGFEDisplacementMapElement.in1 documentation> +getIn1Unchecked ::+                (MonadIO m) => SVGFEDisplacementMapElement -> m SVGAnimatedString+getIn1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"in2\"]" js_getIn2 ::         SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedString)@@ -45,6 +55,12 @@        (MonadIO m) =>          SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedString) getIn2 self = liftIO (nullableToMaybe <$> (js_getIn2 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.in2 Mozilla SVGFEDisplacementMapElement.in2 documentation> +getIn2Unchecked ::+                (MonadIO m) => SVGFEDisplacementMapElement -> m SVGAnimatedString+getIn2Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn2 (self)))   foreign import javascript unsafe "$1[\"scale\"]" js_getScale ::         SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedNumber)@@ -54,6 +70,12 @@          (MonadIO m) =>            SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedNumber) getScale self = liftIO (nullableToMaybe <$> (js_getScale (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.scale Mozilla SVGFEDisplacementMapElement.scale documentation> +getScaleUnchecked ::+                  (MonadIO m) => SVGFEDisplacementMapElement -> m SVGAnimatedNumber+getScaleUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getScale (self)))   foreign import javascript unsafe "$1[\"xChannelSelector\"]"         js_getXChannelSelector ::@@ -65,6 +87,14 @@                       SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedEnumeration) getXChannelSelector self   = liftIO (nullableToMaybe <$> (js_getXChannelSelector (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.xChannelSelector Mozilla SVGFEDisplacementMapElement.xChannelSelector documentation> +getXChannelSelectorUnchecked ::+                             (MonadIO m) =>+                               SVGFEDisplacementMapElement -> m SVGAnimatedEnumeration+getXChannelSelectorUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getXChannelSelector (self)))   foreign import javascript unsafe "$1[\"yChannelSelector\"]"         js_getYChannelSelector ::@@ -76,3 +106,11 @@                       SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedEnumeration) getYChannelSelector self   = liftIO (nullableToMaybe <$> (js_getYChannelSelector (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.yChannelSelector Mozilla SVGFEDisplacementMapElement.yChannelSelector documentation> +getYChannelSelectorUnchecked ::+                             (MonadIO m) =>+                               SVGFEDisplacementMapElement -> m SVGAnimatedEnumeration+getYChannelSelectorUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getYChannelSelector (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEDistantLightElement.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGFEDistantLightElement-       (js_getAzimuth, getAzimuth, js_getElevation, getElevation,-        SVGFEDistantLightElement, castToSVGFEDistantLightElement,-        gTypeSVGFEDistantLightElement)+       (js_getAzimuth, getAzimuth, getAzimuthUnchecked, js_getElevation,+        getElevation, getElevationUnchecked, SVGFEDistantLightElement,+        castToSVGFEDistantLightElement, gTypeSVGFEDistantLightElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -28,6 +30,12 @@              SVGFEDistantLightElement -> m (Maybe SVGAnimatedNumber) getAzimuth self   = liftIO (nullableToMaybe <$> (js_getAzimuth (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDistantLightElement.azimuth Mozilla SVGFEDistantLightElement.azimuth documentation> +getAzimuthUnchecked ::+                    (MonadIO m) => SVGFEDistantLightElement -> m SVGAnimatedNumber+getAzimuthUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getAzimuth (self)))   foreign import javascript unsafe "$1[\"elevation\"]"         js_getElevation ::@@ -39,3 +47,9 @@                SVGFEDistantLightElement -> m (Maybe SVGAnimatedNumber) getElevation self   = liftIO (nullableToMaybe <$> (js_getElevation (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDistantLightElement.elevation Mozilla SVGFEDistantLightElement.elevation documentation> +getElevationUnchecked ::+                      (MonadIO m) => SVGFEDistantLightElement -> m SVGAnimatedNumber+getElevationUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getElevation (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEDropShadowElement.hs view
@@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGFEDropShadowElement-       (js_setStdDeviation, setStdDeviation, js_getIn1, getIn1, js_getDx,-        getDx, js_getDy, getDy, js_getStdDeviationX, getStdDeviationX,-        js_getStdDeviationY, getStdDeviationY, SVGFEDropShadowElement,+       (js_setStdDeviation, setStdDeviation, js_getIn1, getIn1,+        getIn1Unchecked, js_getDx, getDx, getDxUnchecked, js_getDy, getDy,+        getDyUnchecked, js_getStdDeviationX, getStdDeviationX,+        getStdDeviationXUnchecked, js_getStdDeviationY, getStdDeviationY,+        getStdDeviationYUnchecked, SVGFEDropShadowElement,         castToSVGFEDropShadowElement, gTypeSVGFEDropShadowElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -12,9 +14,11 @@ 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)@@ -38,6 +42,12 @@        (MonadIO m) =>          SVGFEDropShadowElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.in1 Mozilla SVGFEDropShadowElement.in1 documentation> +getIn1Unchecked ::+                (MonadIO m) => SVGFEDropShadowElement -> m SVGAnimatedString+getIn1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"dx\"]" js_getDx ::         SVGFEDropShadowElement -> IO (Nullable SVGAnimatedNumber)@@ -47,6 +57,12 @@       (MonadIO m) =>         SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber) getDx self = liftIO (nullableToMaybe <$> (js_getDx (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.dx Mozilla SVGFEDropShadowElement.dx documentation> +getDxUnchecked ::+               (MonadIO m) => SVGFEDropShadowElement -> m SVGAnimatedNumber+getDxUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getDx (self)))   foreign import javascript unsafe "$1[\"dy\"]" js_getDy ::         SVGFEDropShadowElement -> IO (Nullable SVGAnimatedNumber)@@ -56,6 +72,12 @@       (MonadIO m) =>         SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber) getDy self = liftIO (nullableToMaybe <$> (js_getDy (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.dy Mozilla SVGFEDropShadowElement.dy documentation> +getDyUnchecked ::+               (MonadIO m) => SVGFEDropShadowElement -> m SVGAnimatedNumber+getDyUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getDy (self)))   foreign import javascript unsafe "$1[\"stdDeviationX\"]"         js_getStdDeviationX ::@@ -67,6 +89,13 @@                    SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber) getStdDeviationX self   = liftIO (nullableToMaybe <$> (js_getStdDeviationX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.stdDeviationX Mozilla SVGFEDropShadowElement.stdDeviationX documentation> +getStdDeviationXUnchecked ::+                          (MonadIO m) => SVGFEDropShadowElement -> m SVGAnimatedNumber+getStdDeviationXUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getStdDeviationX (self)))   foreign import javascript unsafe "$1[\"stdDeviationY\"]"         js_getStdDeviationY ::@@ -78,3 +107,10 @@                    SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber) getStdDeviationY self   = liftIO (nullableToMaybe <$> (js_getStdDeviationY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.stdDeviationY Mozilla SVGFEDropShadowElement.stdDeviationY documentation> +getStdDeviationYUnchecked ::+                          (MonadIO m) => SVGFEDropShadowElement -> m SVGAnimatedNumber+getStdDeviationYUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getStdDeviationY (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEGaussianBlurElement.hs view
@@ -2,10 +2,12 @@ module GHCJS.DOM.JSFFI.Generated.SVGFEGaussianBlurElement        (js_setStdDeviation, setStdDeviation, pattern SVG_EDGEMODE_UNKNOWN,         pattern SVG_EDGEMODE_DUPLICATE, pattern SVG_EDGEMODE_WRAP,-        pattern SVG_EDGEMODE_NONE, js_getIn1, getIn1, js_getStdDeviationX,-        getStdDeviationX, js_getStdDeviationY, getStdDeviationY,-        js_getEdgeMode, getEdgeMode, SVGFEGaussianBlurElement,-        castToSVGFEGaussianBlurElement, gTypeSVGFEGaussianBlurElement)+        pattern SVG_EDGEMODE_NONE, js_getIn1, getIn1, getIn1Unchecked,+        js_getStdDeviationX, getStdDeviationX, getStdDeviationXUnchecked,+        js_getStdDeviationY, getStdDeviationY, getStdDeviationYUnchecked,+        js_getEdgeMode, getEdgeMode, getEdgeModeUnchecked,+        SVGFEGaussianBlurElement, castToSVGFEGaussianBlurElement,+        gTypeSVGFEGaussianBlurElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -14,9 +16,11 @@ 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)@@ -44,6 +48,12 @@        (MonadIO m) =>          SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.in1 Mozilla SVGFEGaussianBlurElement.in1 documentation> +getIn1Unchecked ::+                (MonadIO m) => SVGFEGaussianBlurElement -> m SVGAnimatedString+getIn1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"stdDeviationX\"]"         js_getStdDeviationX ::@@ -55,6 +65,13 @@                    SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedNumber) getStdDeviationX self   = liftIO (nullableToMaybe <$> (js_getStdDeviationX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.stdDeviationX Mozilla SVGFEGaussianBlurElement.stdDeviationX documentation> +getStdDeviationXUnchecked ::+                          (MonadIO m) => SVGFEGaussianBlurElement -> m SVGAnimatedNumber+getStdDeviationXUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getStdDeviationX (self)))   foreign import javascript unsafe "$1[\"stdDeviationY\"]"         js_getStdDeviationY ::@@ -66,6 +83,13 @@                    SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedNumber) getStdDeviationY self   = liftIO (nullableToMaybe <$> (js_getStdDeviationY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.stdDeviationY Mozilla SVGFEGaussianBlurElement.stdDeviationY documentation> +getStdDeviationYUnchecked ::+                          (MonadIO m) => SVGFEGaussianBlurElement -> m SVGAnimatedNumber+getStdDeviationYUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getStdDeviationY (self)))   foreign import javascript unsafe "$1[\"edgeMode\"]" js_getEdgeMode         :: SVGFEGaussianBlurElement -> IO (Nullable SVGAnimatedEnumeration)@@ -76,3 +100,9 @@               SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedEnumeration) getEdgeMode self   = liftIO (nullableToMaybe <$> (js_getEdgeMode (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.edgeMode Mozilla SVGFEGaussianBlurElement.edgeMode documentation> +getEdgeModeUnchecked ::+                     (MonadIO m) => SVGFEGaussianBlurElement -> m SVGAnimatedEnumeration+getEdgeModeUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getEdgeMode (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEImageElement.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGFEImageElement        (js_getPreserveAspectRatio, getPreserveAspectRatio,-        SVGFEImageElement, castToSVGFEImageElement, gTypeSVGFEImageElement)+        getPreserveAspectRatioUnchecked, SVGFEImageElement,+        castToSVGFEImageElement, gTypeSVGFEImageElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -28,3 +31,11 @@                          SVGFEImageElement -> m (Maybe SVGAnimatedPreserveAspectRatio) getPreserveAspectRatio self   = liftIO (nullableToMaybe <$> (js_getPreserveAspectRatio (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEImageElement.preserveAspectRatio Mozilla SVGFEImageElement.preserveAspectRatio documentation> +getPreserveAspectRatioUnchecked ::+                                (MonadIO m) =>+                                  SVGFEImageElement -> m SVGAnimatedPreserveAspectRatio+getPreserveAspectRatioUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getPreserveAspectRatio (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeNodeElement.hs view
@@ -1,6 +1,6 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGFEMergeNodeElement-       (js_getIn1, getIn1, SVGFEMergeNodeElement,+       (js_getIn1, getIn1, getIn1Unchecked, SVGFEMergeNodeElement,         castToSVGFEMergeNodeElement, gTypeSVGFEMergeNodeElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -10,9 +10,11 @@ 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)@@ -25,3 +27,9 @@ getIn1 ::        (MonadIO m) => SVGFEMergeNodeElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMergeNodeElement.in1 Mozilla SVGFEMergeNodeElement.in1 documentation> +getIn1Unchecked ::+                (MonadIO m) => SVGFEMergeNodeElement -> m SVGAnimatedString+getIn1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEMorphologyElement.hs view
@@ -3,8 +3,9 @@        (js_setRadius, setRadius, pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN,         pattern SVG_MORPHOLOGY_OPERATOR_ERODE,         pattern SVG_MORPHOLOGY_OPERATOR_DILATE, js_getIn1, getIn1,-        js_getOperator, getOperator, js_getRadiusX, getRadiusX,-        js_getRadiusY, getRadiusY, SVGFEMorphologyElement,+        getIn1Unchecked, js_getOperator, getOperator, getOperatorUnchecked,+        js_getRadiusX, getRadiusX, getRadiusXUnchecked, js_getRadiusY,+        getRadiusY, getRadiusYUnchecked, SVGFEMorphologyElement,         castToSVGFEMorphologyElement, gTypeSVGFEMorphologyElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -14,9 +15,11 @@ 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)@@ -42,6 +45,12 @@        (MonadIO m) =>          SVGFEMorphologyElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.in1 Mozilla SVGFEMorphologyElement.in1 documentation> +getIn1Unchecked ::+                (MonadIO m) => SVGFEMorphologyElement -> m SVGAnimatedString+getIn1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"operator\"]" js_getOperator         :: SVGFEMorphologyElement -> IO (Nullable SVGAnimatedEnumeration)@@ -52,6 +61,12 @@               SVGFEMorphologyElement -> m (Maybe SVGAnimatedEnumeration) getOperator self   = liftIO (nullableToMaybe <$> (js_getOperator (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.operator Mozilla SVGFEMorphologyElement.operator documentation> +getOperatorUnchecked ::+                     (MonadIO m) => SVGFEMorphologyElement -> m SVGAnimatedEnumeration+getOperatorUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getOperator (self)))   foreign import javascript unsafe "$1[\"radiusX\"]" js_getRadiusX ::         SVGFEMorphologyElement -> IO (Nullable SVGAnimatedNumber)@@ -62,6 +77,12 @@              SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber) getRadiusX self   = liftIO (nullableToMaybe <$> (js_getRadiusX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.radiusX Mozilla SVGFEMorphologyElement.radiusX documentation> +getRadiusXUnchecked ::+                    (MonadIO m) => SVGFEMorphologyElement -> m SVGAnimatedNumber+getRadiusXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRadiusX (self)))   foreign import javascript unsafe "$1[\"radiusY\"]" js_getRadiusY ::         SVGFEMorphologyElement -> IO (Nullable SVGAnimatedNumber)@@ -72,3 +93,9 @@              SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber) getRadiusY self   = liftIO (nullableToMaybe <$> (js_getRadiusY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.radiusY Mozilla SVGFEMorphologyElement.radiusY documentation> +getRadiusYUnchecked ::+                    (MonadIO m) => SVGFEMorphologyElement -> m SVGAnimatedNumber+getRadiusYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRadiusY (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEOffsetElement.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGFEOffsetElement-       (js_getIn1, getIn1, js_getDx, getDx, js_getDy, getDy,+       (js_getIn1, getIn1, getIn1Unchecked, js_getDx, getDx,+        getDxUnchecked, js_getDy, getDy, getDyUnchecked,         SVGFEOffsetElement, castToSVGFEOffsetElement,         gTypeSVGFEOffsetElement)        where@@ -11,9 +12,11 @@ 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)@@ -26,6 +29,12 @@ getIn1 ::        (MonadIO m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.in1 Mozilla SVGFEOffsetElement.in1 documentation> +getIn1Unchecked ::+                (MonadIO m) => SVGFEOffsetElement -> m SVGAnimatedString+getIn1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"dx\"]" js_getDx ::         SVGFEOffsetElement -> IO (Nullable SVGAnimatedNumber)@@ -34,6 +43,12 @@ getDx ::       (MonadIO m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedNumber) getDx self = liftIO (nullableToMaybe <$> (js_getDx (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.dx Mozilla SVGFEOffsetElement.dx documentation> +getDxUnchecked ::+               (MonadIO m) => SVGFEOffsetElement -> m SVGAnimatedNumber+getDxUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getDx (self)))   foreign import javascript unsafe "$1[\"dy\"]" js_getDy ::         SVGFEOffsetElement -> IO (Nullable SVGAnimatedNumber)@@ -42,3 +57,9 @@ getDy ::       (MonadIO m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedNumber) getDy self = liftIO (nullableToMaybe <$> (js_getDy (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.dy Mozilla SVGFEOffsetElement.dy documentation> +getDyUnchecked ::+               (MonadIO m) => SVGFEOffsetElement -> m SVGAnimatedNumber+getDyUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getDy (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEPointLightElement.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGFEPointLightElement-       (js_getX, getX, js_getY, getY, js_getZ, getZ,-        SVGFEPointLightElement, castToSVGFEPointLightElement,-        gTypeSVGFEPointLightElement)+       (js_getX, getX, getXUnchecked, js_getY, getY, getYUnchecked,+        js_getZ, getZ, getZUnchecked, SVGFEPointLightElement,+        castToSVGFEPointLightElement, gTypeSVGFEPointLightElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -27,6 +29,12 @@      (MonadIO m) =>        SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber) getX self = liftIO (nullableToMaybe <$> (js_getX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.x Mozilla SVGFEPointLightElement.x documentation> +getXUnchecked ::+              (MonadIO m) => SVGFEPointLightElement -> m SVGAnimatedNumber+getXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::         SVGFEPointLightElement -> IO (Nullable SVGAnimatedNumber)@@ -36,6 +44,12 @@      (MonadIO m) =>        SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber) getY self = liftIO (nullableToMaybe <$> (js_getY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.y Mozilla SVGFEPointLightElement.y documentation> +getYUnchecked ::+              (MonadIO m) => SVGFEPointLightElement -> m SVGAnimatedNumber+getYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"z\"]" js_getZ ::         SVGFEPointLightElement -> IO (Nullable SVGAnimatedNumber)@@ -45,3 +59,9 @@      (MonadIO m) =>        SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber) getZ self = liftIO (nullableToMaybe <$> (js_getZ (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.z Mozilla SVGFEPointLightElement.z documentation> +getZUnchecked ::+              (MonadIO m) => SVGFEPointLightElement -> m SVGAnimatedNumber+getZUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getZ (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFESpecularLightingElement.hs view
@@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGFESpecularLightingElement-       (js_getIn1, getIn1, js_getSurfaceScale, getSurfaceScale,-        js_getSpecularConstant, getSpecularConstant,+       (js_getIn1, getIn1, getIn1Unchecked, js_getSurfaceScale,+        getSurfaceScale, getSurfaceScaleUnchecked, js_getSpecularConstant,+        getSpecularConstant, getSpecularConstantUnchecked,         js_getSpecularExponent, getSpecularExponent,-        SVGFESpecularLightingElement, castToSVGFESpecularLightingElement,+        getSpecularExponentUnchecked, SVGFESpecularLightingElement,+        castToSVGFESpecularLightingElement,         gTypeSVGFESpecularLightingElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -13,9 +15,11 @@ 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)@@ -29,6 +33,12 @@        (MonadIO m) =>          SVGFESpecularLightingElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.in1 Mozilla SVGFESpecularLightingElement.in1 documentation> +getIn1Unchecked ::+                (MonadIO m) => SVGFESpecularLightingElement -> m SVGAnimatedString+getIn1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"surfaceScale\"]"         js_getSurfaceScale ::@@ -40,6 +50,13 @@                   SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber) getSurfaceScale self   = liftIO (nullableToMaybe <$> (js_getSurfaceScale (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.surfaceScale Mozilla SVGFESpecularLightingElement.surfaceScale documentation> +getSurfaceScaleUnchecked ::+                         (MonadIO m) => SVGFESpecularLightingElement -> m SVGAnimatedNumber+getSurfaceScaleUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getSurfaceScale (self)))   foreign import javascript unsafe "$1[\"specularConstant\"]"         js_getSpecularConstant ::@@ -51,6 +68,13 @@                       SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber) getSpecularConstant self   = liftIO (nullableToMaybe <$> (js_getSpecularConstant (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.specularConstant Mozilla SVGFESpecularLightingElement.specularConstant documentation> +getSpecularConstantUnchecked ::+                             (MonadIO m) => SVGFESpecularLightingElement -> m SVGAnimatedNumber+getSpecularConstantUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getSpecularConstant (self)))   foreign import javascript unsafe "$1[\"specularExponent\"]"         js_getSpecularExponent ::@@ -62,3 +86,10 @@                       SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber) getSpecularExponent self   = liftIO (nullableToMaybe <$> (js_getSpecularExponent (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.specularExponent Mozilla SVGFESpecularLightingElement.specularExponent documentation> +getSpecularExponentUnchecked ::+                             (MonadIO m) => SVGFESpecularLightingElement -> m SVGAnimatedNumber+getSpecularExponentUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getSpecularExponent (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFESpotLightElement.hs view
@@ -1,9 +1,12 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGFESpotLightElement-       (js_getX, getX, js_getY, getY, js_getZ, getZ, js_getPointsAtX,-        getPointsAtX, js_getPointsAtY, getPointsAtY, js_getPointsAtZ,-        getPointsAtZ, js_getSpecularExponent, getSpecularExponent,-        js_getLimitingConeAngle, getLimitingConeAngle,+       (js_getX, getX, getXUnchecked, js_getY, getY, getYUnchecked,+        js_getZ, getZ, getZUnchecked, js_getPointsAtX, getPointsAtX,+        getPointsAtXUnchecked, js_getPointsAtY, getPointsAtY,+        getPointsAtYUnchecked, js_getPointsAtZ, getPointsAtZ,+        getPointsAtZUnchecked, js_getSpecularExponent, getSpecularExponent,+        getSpecularExponentUnchecked, js_getLimitingConeAngle,+        getLimitingConeAngle, getLimitingConeAngleUnchecked,         SVGFESpotLightElement, castToSVGFESpotLightElement,         gTypeSVGFESpotLightElement)        where@@ -14,9 +17,11 @@ 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)@@ -29,6 +34,12 @@ getX ::      (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getX self = liftIO (nullableToMaybe <$> (js_getX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.x Mozilla SVGFESpotLightElement.x documentation> +getXUnchecked ::+              (MonadIO m) => SVGFESpotLightElement -> m SVGAnimatedNumber+getXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::         SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)@@ -37,6 +48,12 @@ getY ::      (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getY self = liftIO (nullableToMaybe <$> (js_getY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.y Mozilla SVGFESpotLightElement.y documentation> +getYUnchecked ::+              (MonadIO m) => SVGFESpotLightElement -> m SVGAnimatedNumber+getYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"z\"]" js_getZ ::         SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)@@ -45,6 +62,12 @@ getZ ::      (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getZ self = liftIO (nullableToMaybe <$> (js_getZ (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.z Mozilla SVGFESpotLightElement.z documentation> +getZUnchecked ::+              (MonadIO m) => SVGFESpotLightElement -> m SVGAnimatedNumber+getZUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getZ (self)))   foreign import javascript unsafe "$1[\"pointsAtX\"]"         js_getPointsAtX ::@@ -55,6 +78,12 @@              (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getPointsAtX self   = liftIO (nullableToMaybe <$> (js_getPointsAtX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtX Mozilla SVGFESpotLightElement.pointsAtX documentation> +getPointsAtXUnchecked ::+                      (MonadIO m) => SVGFESpotLightElement -> m SVGAnimatedNumber+getPointsAtXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getPointsAtX (self)))   foreign import javascript unsafe "$1[\"pointsAtY\"]"         js_getPointsAtY ::@@ -65,6 +94,12 @@              (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getPointsAtY self   = liftIO (nullableToMaybe <$> (js_getPointsAtY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtY Mozilla SVGFESpotLightElement.pointsAtY documentation> +getPointsAtYUnchecked ::+                      (MonadIO m) => SVGFESpotLightElement -> m SVGAnimatedNumber+getPointsAtYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getPointsAtY (self)))   foreign import javascript unsafe "$1[\"pointsAtZ\"]"         js_getPointsAtZ ::@@ -75,6 +110,12 @@              (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getPointsAtZ self   = liftIO (nullableToMaybe <$> (js_getPointsAtZ (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtZ Mozilla SVGFESpotLightElement.pointsAtZ documentation> +getPointsAtZUnchecked ::+                      (MonadIO m) => SVGFESpotLightElement -> m SVGAnimatedNumber+getPointsAtZUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getPointsAtZ (self)))   foreign import javascript unsafe "$1[\"specularExponent\"]"         js_getSpecularExponent ::@@ -85,6 +126,13 @@                     (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getSpecularExponent self   = liftIO (nullableToMaybe <$> (js_getSpecularExponent (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.specularExponent Mozilla SVGFESpotLightElement.specularExponent documentation> +getSpecularExponentUnchecked ::+                             (MonadIO m) => SVGFESpotLightElement -> m SVGAnimatedNumber+getSpecularExponentUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getSpecularExponent (self)))   foreign import javascript unsafe "$1[\"limitingConeAngle\"]"         js_getLimitingConeAngle ::@@ -95,3 +143,10 @@                      (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getLimitingConeAngle self   = liftIO (nullableToMaybe <$> (js_getLimitingConeAngle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.limitingConeAngle Mozilla SVGFESpotLightElement.limitingConeAngle documentation> +getLimitingConeAngleUnchecked ::+                              (MonadIO m) => SVGFESpotLightElement -> m SVGAnimatedNumber+getLimitingConeAngleUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getLimitingConeAngle (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFETileElement.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGFETileElement-       (js_getIn1, getIn1, SVGFETileElement, castToSVGFETileElement,-        gTypeSVGFETileElement)+       (js_getIn1, getIn1, getIn1Unchecked, SVGFETileElement,+        castToSVGFETileElement, gTypeSVGFETileElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -25,3 +27,9 @@ getIn1 ::        (MonadIO m) => SVGFETileElement -> m (Maybe SVGAnimatedString) getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETileElement.in1 Mozilla SVGFETileElement.in1 documentation> +getIn1Unchecked ::+                (MonadIO m) => SVGFETileElement -> m SVGAnimatedString+getIn1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFETurbulenceElement.hs view
@@ -5,11 +5,13 @@         pattern SVG_TURBULENCE_TYPE_TURBULENCE,         pattern SVG_STITCHTYPE_UNKNOWN, pattern SVG_STITCHTYPE_STITCH,         pattern SVG_STITCHTYPE_NOSTITCH, js_getBaseFrequencyX,-        getBaseFrequencyX, js_getBaseFrequencyY, getBaseFrequencyY,-        js_getNumOctaves, getNumOctaves, js_getSeed, getSeed,-        js_getStitchTiles, getStitchTiles, js_getType, getType,-        SVGFETurbulenceElement, castToSVGFETurbulenceElement,-        gTypeSVGFETurbulenceElement)+        getBaseFrequencyX, getBaseFrequencyXUnchecked,+        js_getBaseFrequencyY, getBaseFrequencyY,+        getBaseFrequencyYUnchecked, js_getNumOctaves, getNumOctaves,+        getNumOctavesUnchecked, js_getSeed, getSeed, getSeedUnchecked,+        js_getStitchTiles, getStitchTiles, getStitchTilesUnchecked,+        js_getType, getType, getTypeUnchecked, SVGFETurbulenceElement,+        castToSVGFETurbulenceElement, gTypeSVGFETurbulenceElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -18,9 +20,11 @@ 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)@@ -42,6 +46,13 @@                     SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber) getBaseFrequencyX self   = liftIO (nullableToMaybe <$> (js_getBaseFrequencyX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.baseFrequencyX Mozilla SVGFETurbulenceElement.baseFrequencyX documentation> +getBaseFrequencyXUnchecked ::+                           (MonadIO m) => SVGFETurbulenceElement -> m SVGAnimatedNumber+getBaseFrequencyXUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getBaseFrequencyX (self)))   foreign import javascript unsafe "$1[\"baseFrequencyY\"]"         js_getBaseFrequencyY ::@@ -53,6 +64,13 @@                     SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber) getBaseFrequencyY self   = liftIO (nullableToMaybe <$> (js_getBaseFrequencyY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.baseFrequencyY Mozilla SVGFETurbulenceElement.baseFrequencyY documentation> +getBaseFrequencyYUnchecked ::+                           (MonadIO m) => SVGFETurbulenceElement -> m SVGAnimatedNumber+getBaseFrequencyYUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getBaseFrequencyY (self)))   foreign import javascript unsafe "$1[\"numOctaves\"]"         js_getNumOctaves ::@@ -64,6 +82,12 @@                 SVGFETurbulenceElement -> m (Maybe SVGAnimatedInteger) getNumOctaves self   = liftIO (nullableToMaybe <$> (js_getNumOctaves (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.numOctaves Mozilla SVGFETurbulenceElement.numOctaves documentation> +getNumOctavesUnchecked ::+                       (MonadIO m) => SVGFETurbulenceElement -> m SVGAnimatedInteger+getNumOctavesUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getNumOctaves (self)))   foreign import javascript unsafe "$1[\"seed\"]" js_getSeed ::         SVGFETurbulenceElement -> IO (Nullable SVGAnimatedNumber)@@ -73,6 +97,12 @@         (MonadIO m) =>           SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber) getSeed self = liftIO (nullableToMaybe <$> (js_getSeed (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.seed Mozilla SVGFETurbulenceElement.seed documentation> +getSeedUnchecked ::+                 (MonadIO m) => SVGFETurbulenceElement -> m SVGAnimatedNumber+getSeedUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getSeed (self)))   foreign import javascript unsafe "$1[\"stitchTiles\"]"         js_getStitchTiles ::@@ -84,6 +114,13 @@                  SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration) getStitchTiles self   = liftIO (nullableToMaybe <$> (js_getStitchTiles (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.stitchTiles Mozilla SVGFETurbulenceElement.stitchTiles documentation> +getStitchTilesUnchecked ::+                        (MonadIO m) => SVGFETurbulenceElement -> m SVGAnimatedEnumeration+getStitchTilesUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getStitchTiles (self)))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::         SVGFETurbulenceElement -> IO (Nullable SVGAnimatedEnumeration)@@ -93,3 +130,9 @@         (MonadIO m) =>           SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration) getType self = liftIO (nullableToMaybe <$> (js_getType (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.type Mozilla SVGFETurbulenceElement.type documentation> +getTypeUnchecked ::+                 (MonadIO m) => SVGFETurbulenceElement -> m SVGAnimatedEnumeration+getTypeUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getType (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFilterElement.hs view
@@ -1,10 +1,13 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGFilterElement        (js_setFilterRes, setFilterRes, js_getFilterUnits, getFilterUnits,-        js_getPrimitiveUnits, getPrimitiveUnits, js_getX, getX, js_getY,-        getY, js_getWidth, getWidth, js_getHeight, getHeight,-        js_getFilterResX, getFilterResX, js_getFilterResY, getFilterResY,-        SVGFilterElement, castToSVGFilterElement, gTypeSVGFilterElement)+        getFilterUnitsUnchecked, js_getPrimitiveUnits, getPrimitiveUnits,+        getPrimitiveUnitsUnchecked, js_getX, getX, getXUnchecked, js_getY,+        getY, getYUnchecked, js_getWidth, getWidth, getWidthUnchecked,+        js_getHeight, getHeight, getHeightUnchecked, js_getFilterResX,+        getFilterResX, getFilterResXUnchecked, js_getFilterResY,+        getFilterResY, getFilterResYUnchecked, SVGFilterElement,+        castToSVGFilterElement, gTypeSVGFilterElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +16,11 @@ 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)@@ -39,6 +44,13 @@                (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedEnumeration) getFilterUnits self   = liftIO (nullableToMaybe <$> (js_getFilterUnits (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterUnits Mozilla SVGFilterElement.filterUnits documentation> +getFilterUnitsUnchecked ::+                        (MonadIO m) => SVGFilterElement -> m SVGAnimatedEnumeration+getFilterUnitsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getFilterUnits (self)))   foreign import javascript unsafe "$1[\"primitiveUnits\"]"         js_getPrimitiveUnits ::@@ -49,6 +61,13 @@                   (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedEnumeration) getPrimitiveUnits self   = liftIO (nullableToMaybe <$> (js_getPrimitiveUnits (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.primitiveUnits Mozilla SVGFilterElement.primitiveUnits documentation> +getPrimitiveUnitsUnchecked ::+                           (MonadIO m) => SVGFilterElement -> m SVGAnimatedEnumeration+getPrimitiveUnitsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getPrimitiveUnits (self)))   foreign import javascript unsafe "$1[\"x\"]" js_getX ::         SVGFilterElement -> IO (Nullable SVGAnimatedLength)@@ -57,6 +76,12 @@ getX ::      (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedLength) getX self = liftIO (nullableToMaybe <$> (js_getX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.x Mozilla SVGFilterElement.x documentation> +getXUnchecked ::+              (MonadIO m) => SVGFilterElement -> m SVGAnimatedLength+getXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::         SVGFilterElement -> IO (Nullable SVGAnimatedLength)@@ -65,6 +90,12 @@ getY ::      (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedLength) getY self = liftIO (nullableToMaybe <$> (js_getY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.y Mozilla SVGFilterElement.y documentation> +getYUnchecked ::+              (MonadIO m) => SVGFilterElement -> m SVGAnimatedLength+getYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         SVGFilterElement -> IO (Nullable SVGAnimatedLength)@@ -73,6 +104,12 @@ getWidth ::          (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedLength) getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.width Mozilla SVGFilterElement.width documentation> +getWidthUnchecked ::+                  (MonadIO m) => SVGFilterElement -> m SVGAnimatedLength+getWidthUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::         SVGFilterElement -> IO (Nullable SVGAnimatedLength)@@ -81,6 +118,12 @@ getHeight ::           (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedLength) getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.height Mozilla SVGFilterElement.height documentation> +getHeightUnchecked ::+                   (MonadIO m) => SVGFilterElement -> m SVGAnimatedLength+getHeightUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"filterResX\"]"         js_getFilterResX ::@@ -91,6 +134,12 @@               (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedInteger) getFilterResX self   = liftIO (nullableToMaybe <$> (js_getFilterResX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterResX Mozilla SVGFilterElement.filterResX documentation> +getFilterResXUnchecked ::+                       (MonadIO m) => SVGFilterElement -> m SVGAnimatedInteger+getFilterResXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getFilterResX (self)))   foreign import javascript unsafe "$1[\"filterResY\"]"         js_getFilterResY ::@@ -101,3 +150,9 @@               (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedInteger) getFilterResY self   = liftIO (nullableToMaybe <$> (js_getFilterResY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterResY Mozilla SVGFilterElement.filterResY documentation> +getFilterResYUnchecked ::+                       (MonadIO m) => SVGFilterElement -> m SVGAnimatedInteger+getFilterResYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getFilterResY (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFilterPrimitiveStandardAttributes.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGFilterPrimitiveStandardAttributes-       (js_getX, getX, js_getY, getY, js_getWidth, getWidth, js_getHeight,-        getHeight, js_getResult, getResult,+       (js_getX, getX, getXUnchecked, js_getY, getY, getYUnchecked,+        js_getWidth, getWidth, getWidthUnchecked, js_getHeight, getHeight,+        getHeightUnchecked, js_getResult, getResult, getResultUnchecked,         SVGFilterPrimitiveStandardAttributes,         castToSVGFilterPrimitiveStandardAttributes,         gTypeSVGFilterPrimitiveStandardAttributes)@@ -13,9 +14,11 @@ 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)@@ -30,6 +33,13 @@      (MonadIO m) =>        SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength) getX self = liftIO (nullableToMaybe <$> (js_getX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.x Mozilla SVGFilterPrimitiveStandardAttributes.x documentation> +getXUnchecked ::+              (MonadIO m) =>+                SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedLength+getXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::         SVGFilterPrimitiveStandardAttributes ->@@ -40,6 +50,13 @@      (MonadIO m) =>        SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength) getY self = liftIO (nullableToMaybe <$> (js_getY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.y Mozilla SVGFilterPrimitiveStandardAttributes.y documentation> +getYUnchecked ::+              (MonadIO m) =>+                SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedLength+getYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         SVGFilterPrimitiveStandardAttributes ->@@ -50,6 +67,13 @@          (MonadIO m) =>            SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength) getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.width Mozilla SVGFilterPrimitiveStandardAttributes.width documentation> +getWidthUnchecked ::+                  (MonadIO m) =>+                    SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedLength+getWidthUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::         SVGFilterPrimitiveStandardAttributes ->@@ -60,6 +84,13 @@           (MonadIO m) =>             SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength) getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.height Mozilla SVGFilterPrimitiveStandardAttributes.height documentation> +getHeightUnchecked ::+                   (MonadIO m) =>+                     SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedLength+getHeightUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"result\"]" js_getResult ::         SVGFilterPrimitiveStandardAttributes ->@@ -70,3 +101,10 @@           (MonadIO m) =>             SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedString) getResult self = liftIO (nullableToMaybe <$> (js_getResult (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.result Mozilla SVGFilterPrimitiveStandardAttributes.result documentation> +getResultUnchecked ::+                   (MonadIO m) =>+                     SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedString+getResultUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getResult (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFitToViewBox.hs view
@@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGFitToViewBox-       (js_getViewBox, getViewBox, js_getPreserveAspectRatio,-        getPreserveAspectRatio, SVGFitToViewBox, castToSVGFitToViewBox,-        gTypeSVGFitToViewBox)+       (js_getViewBox, getViewBox, getViewBoxUnchecked,+        js_getPreserveAspectRatio, getPreserveAspectRatio,+        getPreserveAspectRatioUnchecked, SVGFitToViewBox,+        castToSVGFitToViewBox, gTypeSVGFitToViewBox)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +12,11 @@ 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)@@ -27,6 +30,12 @@            (MonadIO m) => SVGFitToViewBox -> m (Maybe SVGAnimatedRect) getViewBox self   = liftIO (nullableToMaybe <$> (js_getViewBox (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFitToViewBox.viewBox Mozilla SVGFitToViewBox.viewBox documentation> +getViewBoxUnchecked ::+                    (MonadIO m) => SVGFitToViewBox -> m SVGAnimatedRect+getViewBoxUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getViewBox (self)))   foreign import javascript unsafe "$1[\"preserveAspectRatio\"]"         js_getPreserveAspectRatio ::@@ -38,3 +47,10 @@                          SVGFitToViewBox -> m (Maybe SVGAnimatedPreserveAspectRatio) getPreserveAspectRatio self   = liftIO (nullableToMaybe <$> (js_getPreserveAspectRatio (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFitToViewBox.preserveAspectRatio Mozilla SVGFitToViewBox.preserveAspectRatio documentation> +getPreserveAspectRatioUnchecked ::+                                (MonadIO m) => SVGFitToViewBox -> m SVGAnimatedPreserveAspectRatio+getPreserveAspectRatioUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getPreserveAspectRatio (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGForeignObjectElement.hs view
@@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGForeignObjectElement-       (js_getX, getX, js_getY, getY, js_getWidth, getWidth, js_getHeight,-        getHeight, SVGForeignObjectElement, castToSVGForeignObjectElement,-        gTypeSVGForeignObjectElement)+       (js_getX, getX, getXUnchecked, js_getY, getY, getYUnchecked,+        js_getWidth, getWidth, getWidthUnchecked, js_getHeight, getHeight,+        getHeightUnchecked, SVGForeignObjectElement,+        castToSVGForeignObjectElement, gTypeSVGForeignObjectElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +12,11 @@ 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)@@ -27,6 +30,12 @@      (MonadIO m) =>        SVGForeignObjectElement -> m (Maybe SVGAnimatedLength) getX self = liftIO (nullableToMaybe <$> (js_getX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.x Mozilla SVGForeignObjectElement.x documentation> +getXUnchecked ::+              (MonadIO m) => SVGForeignObjectElement -> m SVGAnimatedLength+getXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::         SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength)@@ -36,6 +45,12 @@      (MonadIO m) =>        SVGForeignObjectElement -> m (Maybe SVGAnimatedLength) getY self = liftIO (nullableToMaybe <$> (js_getY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.y Mozilla SVGForeignObjectElement.y documentation> +getYUnchecked ::+              (MonadIO m) => SVGForeignObjectElement -> m SVGAnimatedLength+getYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength)@@ -45,6 +60,12 @@          (MonadIO m) =>            SVGForeignObjectElement -> m (Maybe SVGAnimatedLength) getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.width Mozilla SVGForeignObjectElement.width documentation> +getWidthUnchecked ::+                  (MonadIO m) => SVGForeignObjectElement -> m SVGAnimatedLength+getWidthUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::         SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength)@@ -54,3 +75,9 @@           (MonadIO m) =>             SVGForeignObjectElement -> m (Maybe SVGAnimatedLength) getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.height Mozilla SVGForeignObjectElement.height documentation> +getHeightUnchecked ::+                   (MonadIO m) => SVGForeignObjectElement -> m SVGAnimatedLength+getHeightUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getHeight (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs view
@@ -14,9 +14,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGGradientElement.hs view
@@ -2,11 +2,12 @@ module GHCJS.DOM.JSFFI.Generated.SVGGradientElement        (pattern SVG_SPREADMETHOD_UNKNOWN, pattern SVG_SPREADMETHOD_PAD,         pattern SVG_SPREADMETHOD_REFLECT, pattern SVG_SPREADMETHOD_REPEAT,-        js_getGradientUnits, getGradientUnits, js_getGradientTransform,-        getGradientTransform, js_getSpreadMethod, getSpreadMethod,-        SVGGradientElement, castToSVGGradientElement,-        gTypeSVGGradientElement, IsSVGGradientElement,-        toSVGGradientElement)+        js_getGradientUnits, getGradientUnits, getGradientUnitsUnchecked,+        js_getGradientTransform, getGradientTransform,+        getGradientTransformUnchecked, js_getSpreadMethod, getSpreadMethod,+        getSpreadMethodUnchecked, SVGGradientElement,+        castToSVGGradientElement, gTypeSVGGradientElement,+        IsSVGGradientElement, toSVGGradientElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -15,9 +16,11 @@ 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)@@ -39,6 +42,15 @@   = liftIO       (nullableToMaybe <$>          (js_getGradientUnits (toSVGGradientElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.gradientUnits Mozilla SVGGradientElement.gradientUnits documentation> +getGradientUnitsUnchecked ::+                          (MonadIO m, IsSVGGradientElement self) =>+                            self -> m SVGAnimatedEnumeration+getGradientUnitsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getGradientUnits (toSVGGradientElement self)))   foreign import javascript unsafe "$1[\"gradientTransform\"]"         js_getGradientTransform ::@@ -52,6 +64,15 @@   = liftIO       (nullableToMaybe <$>          (js_getGradientTransform (toSVGGradientElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.gradientTransform Mozilla SVGGradientElement.gradientTransform documentation> +getGradientTransformUnchecked ::+                              (MonadIO m, IsSVGGradientElement self) =>+                                self -> m SVGAnimatedTransformList+getGradientTransformUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getGradientTransform (toSVGGradientElement self)))   foreign import javascript unsafe "$1[\"spreadMethod\"]"         js_getSpreadMethod ::@@ -64,4 +85,13 @@ getSpreadMethod self   = liftIO       (nullableToMaybe <$>+         (js_getSpreadMethod (toSVGGradientElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.spreadMethod Mozilla SVGGradientElement.spreadMethod documentation> +getSpreadMethodUnchecked ::+                         (MonadIO m, IsSVGGradientElement self) =>+                           self -> m SVGAnimatedEnumeration+getSpreadMethodUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>          (js_getSpreadMethod (toSVGGradientElement self)))
src/GHCJS/DOM/JSFFI/Generated/SVGGraphicsElement.hs view
@@ -1,10 +1,14 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGGraphicsElement-       (js_getBBox, getBBox, js_getCTM, getCTM, js_getScreenCTM,-        getScreenCTM, js_getTransformToElement, getTransformToElement,-        js_getTransform, getTransform, js_getNearestViewportElement,-        getNearestViewportElement, js_getFarthestViewportElement,-        getFarthestViewportElement, SVGGraphicsElement,+       (js_getBBox, getBBox, getBBox_, getBBoxUnchecked, js_getCTM,+        getCTM, getCTM_, getCTMUnchecked, js_getScreenCTM, getScreenCTM,+        getScreenCTM_, getScreenCTMUnchecked, js_getTransformToElement,+        getTransformToElement, getTransformToElement_,+        getTransformToElementUnchecked, js_getTransform, getTransform,+        getTransformUnchecked, js_getNearestViewportElement,+        getNearestViewportElement, getNearestViewportElementUnchecked,+        js_getFarthestViewportElement, getFarthestViewportElement,+        getFarthestViewportElementUnchecked, SVGGraphicsElement,         castToSVGGraphicsElement, gTypeSVGGraphicsElement,         IsSVGGraphicsElement, toSVGGraphicsElement)        where@@ -15,9 +19,11 @@ 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)@@ -32,6 +38,19 @@ getBBox self   = liftIO       (nullableToMaybe <$> (js_getBBox (toSVGGraphicsElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getBBox Mozilla SVGGraphicsElement.getBBox documentation> +getBBox_ :: (MonadIO m, IsSVGGraphicsElement self) => self -> m ()+getBBox_ self+  = liftIO (void (js_getBBox (toSVGGraphicsElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getBBox Mozilla SVGGraphicsElement.getBBox documentation> +getBBoxUnchecked ::+                 (MonadIO m, IsSVGGraphicsElement self) => self -> m SVGRect+getBBoxUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getBBox (toSVGGraphicsElement self)))   foreign import javascript unsafe "$1[\"getCTM\"]()" js_getCTM ::         SVGGraphicsElement -> IO (Nullable SVGMatrix)@@ -43,6 +62,19 @@ getCTM self   = liftIO       (nullableToMaybe <$> (js_getCTM (toSVGGraphicsElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getCTM Mozilla SVGGraphicsElement.getCTM documentation> +getCTM_ :: (MonadIO m, IsSVGGraphicsElement self) => self -> m ()+getCTM_ self+  = liftIO (void (js_getCTM (toSVGGraphicsElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getCTM Mozilla SVGGraphicsElement.getCTM documentation> +getCTMUnchecked ::+                (MonadIO m, IsSVGGraphicsElement self) => self -> m SVGMatrix+getCTMUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getCTM (toSVGGraphicsElement self)))   foreign import javascript unsafe "$1[\"getScreenCTM\"]()"         js_getScreenCTM :: SVGGraphicsElement -> IO (Nullable SVGMatrix)@@ -54,6 +86,20 @@ getScreenCTM self   = liftIO       (nullableToMaybe <$> (js_getScreenCTM (toSVGGraphicsElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getScreenCTM Mozilla SVGGraphicsElement.getScreenCTM documentation> +getScreenCTM_ ::+              (MonadIO m, IsSVGGraphicsElement self) => self -> m ()+getScreenCTM_ self+  = liftIO (void (js_getScreenCTM (toSVGGraphicsElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getScreenCTM Mozilla SVGGraphicsElement.getScreenCTM documentation> +getScreenCTMUnchecked ::+                      (MonadIO m, IsSVGGraphicsElement self) => self -> m SVGMatrix+getScreenCTMUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getScreenCTM (toSVGGraphicsElement self)))   foreign import javascript unsafe         "$1[\"getTransformToElement\"]($2)" js_getTransformToElement ::@@ -69,6 +115,26 @@       (nullableToMaybe <$>          (js_getTransformToElement (toSVGGraphicsElement self)             (maybeToNullable (fmap toSVGElement element))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getTransformToElement Mozilla SVGGraphicsElement.getTransformToElement documentation> +getTransformToElement_ ::+                       (MonadIO m, IsSVGGraphicsElement self, IsSVGElement element) =>+                         self -> Maybe element -> m ()+getTransformToElement_ self element+  = liftIO+      (void+         (js_getTransformToElement (toSVGGraphicsElement self)+            (maybeToNullable (fmap toSVGElement element))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getTransformToElement Mozilla SVGGraphicsElement.getTransformToElement documentation> +getTransformToElementUnchecked ::+                               (MonadIO m, IsSVGGraphicsElement self, IsSVGElement element) =>+                                 self -> Maybe element -> m SVGMatrix+getTransformToElementUnchecked self element+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getTransformToElement (toSVGGraphicsElement self)+            (maybeToNullable (fmap toSVGElement element))))   foreign import javascript unsafe "$1[\"transform\"]"         js_getTransform ::@@ -81,6 +147,15 @@ getTransform self   = liftIO       (nullableToMaybe <$> (js_getTransform (toSVGGraphicsElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.transform Mozilla SVGGraphicsElement.transform documentation> +getTransformUnchecked ::+                      (MonadIO m, IsSVGGraphicsElement self) =>+                        self -> m SVGAnimatedTransformList+getTransformUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getTransform (toSVGGraphicsElement self)))   foreign import javascript unsafe "$1[\"nearestViewportElement\"]"         js_getNearestViewportElement ::@@ -94,6 +169,14 @@   = liftIO       (nullableToMaybe <$>          (js_getNearestViewportElement (toSVGGraphicsElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.nearestViewportElement Mozilla SVGGraphicsElement.nearestViewportElement documentation> +getNearestViewportElementUnchecked ::+                                   (MonadIO m, IsSVGGraphicsElement self) => self -> m SVGElement+getNearestViewportElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getNearestViewportElement (toSVGGraphicsElement self)))   foreign import javascript unsafe "$1[\"farthestViewportElement\"]"         js_getFarthestViewportElement ::@@ -106,4 +189,12 @@ getFarthestViewportElement self   = liftIO       (nullableToMaybe <$>+         (js_getFarthestViewportElement (toSVGGraphicsElement self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.farthestViewportElement Mozilla SVGGraphicsElement.farthestViewportElement documentation> +getFarthestViewportElementUnchecked ::+                                    (MonadIO m, IsSVGGraphicsElement self) => self -> m SVGElement+getFarthestViewportElementUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>          (js_getFarthestViewportElement (toSVGGraphicsElement self)))
src/GHCJS/DOM/JSFFI/Generated/SVGImageElement.hs view
@@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGImageElement-       (js_getX, getX, js_getY, getY, js_getWidth, getWidth, js_getHeight,-        getHeight, js_getPreserveAspectRatio, getPreserveAspectRatio,+       (js_getX, getX, getXUnchecked, js_getY, getY, getYUnchecked,+        js_getWidth, getWidth, getWidthUnchecked, js_getHeight, getHeight,+        getHeightUnchecked, js_getPreserveAspectRatio,+        getPreserveAspectRatio, getPreserveAspectRatioUnchecked,         SVGImageElement, castToSVGImageElement, gTypeSVGImageElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -11,9 +13,11 @@ 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)@@ -26,6 +30,12 @@ getX ::      (MonadIO m) => SVGImageElement -> m (Maybe SVGAnimatedLength) getX self = liftIO (nullableToMaybe <$> (js_getX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.x Mozilla SVGImageElement.x documentation> +getXUnchecked ::+              (MonadIO m) => SVGImageElement -> m SVGAnimatedLength+getXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::         SVGImageElement -> IO (Nullable SVGAnimatedLength)@@ -34,6 +44,12 @@ getY ::      (MonadIO m) => SVGImageElement -> m (Maybe SVGAnimatedLength) getY self = liftIO (nullableToMaybe <$> (js_getY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.y Mozilla SVGImageElement.y documentation> +getYUnchecked ::+              (MonadIO m) => SVGImageElement -> m SVGAnimatedLength+getYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         SVGImageElement -> IO (Nullable SVGAnimatedLength)@@ -42,6 +58,12 @@ getWidth ::          (MonadIO m) => SVGImageElement -> m (Maybe SVGAnimatedLength) getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.width Mozilla SVGImageElement.width documentation> +getWidthUnchecked ::+                  (MonadIO m) => SVGImageElement -> m SVGAnimatedLength+getWidthUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::         SVGImageElement -> IO (Nullable SVGAnimatedLength)@@ -50,6 +72,12 @@ getHeight ::           (MonadIO m) => SVGImageElement -> m (Maybe SVGAnimatedLength) getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.height Mozilla SVGImageElement.height documentation> +getHeightUnchecked ::+                   (MonadIO m) => SVGImageElement -> m SVGAnimatedLength+getHeightUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"preserveAspectRatio\"]"         js_getPreserveAspectRatio ::@@ -61,3 +89,10 @@                          SVGImageElement -> m (Maybe SVGAnimatedPreserveAspectRatio) getPreserveAspectRatio self   = liftIO (nullableToMaybe <$> (js_getPreserveAspectRatio (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.preserveAspectRatio Mozilla SVGImageElement.preserveAspectRatio documentation> +getPreserveAspectRatioUnchecked ::+                                (MonadIO m) => SVGImageElement -> m SVGAnimatedPreserveAspectRatio+getPreserveAspectRatioUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getPreserveAspectRatio (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGLength.hs view
@@ -12,7 +12,8 @@         js_setValueInSpecifiedUnits, setValueInSpecifiedUnits,         js_getValueInSpecifiedUnits, getValueInSpecifiedUnits,         js_setValueAsString, setValueAsString, js_getValueAsString,-        getValueAsString, SVGLength, castToSVGLength, gTypeSVGLength)+        getValueAsString, getValueAsStringUnchecked, SVGLength,+        castToSVGLength, gTypeSVGLength)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -21,9 +22,11 @@ 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)@@ -116,3 +119,10 @@                  (MonadIO m, FromJSString result) => SVGLength -> m (Maybe result) getValueAsString self   = liftIO (fromMaybeJSString <$> (js_getValueAsString (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueAsString Mozilla SVGLength.valueAsString documentation> +getValueAsStringUnchecked ::+                          (MonadIO m, FromJSString result) => SVGLength -> m result+getValueAsStringUnchecked self+  = liftIO+      (fromJust . fromMaybeJSString <$> (js_getValueAsString (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGLengthList.hs view
@@ -1,10 +1,14 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGLengthList-       (js_clear, clear, js_initialize, initialize, js_getItem, getItem,-        js_insertItemBefore, insertItemBefore, js_replaceItem, replaceItem,-        js_removeItem, removeItem, js_appendItem, appendItem,-        js_getNumberOfItems, getNumberOfItems, SVGLengthList,-        castToSVGLengthList, gTypeSVGLengthList)+       (js_clear, clear, js_initialize, initialize, initialize_,+        initializeUnchecked, js_getItem, getItem, getItem_,+        getItemUnchecked, js_insertItemBefore, insertItemBefore,+        insertItemBefore_, insertItemBeforeUnchecked, js_replaceItem,+        replaceItem, replaceItem_, replaceItemUnchecked, js_removeItem,+        removeItem, removeItem_, removeItemUnchecked, js_appendItem,+        appendItem, appendItem_, appendItemUnchecked, js_getNumberOfItems,+        getNumberOfItems, SVGLengthList, castToSVGLengthList,+        gTypeSVGLengthList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +17,11 @@ 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)@@ -39,6 +45,20 @@ initialize self item   = liftIO       (nullableToMaybe <$> (js_initialize (self) (maybeToNullable item)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.initialize Mozilla SVGLengthList.initialize documentation> +initialize_ ::+            (MonadIO m) => SVGLengthList -> Maybe SVGLength -> m ()+initialize_ self item+  = liftIO (void (js_initialize (self) (maybeToNullable item)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.initialize Mozilla SVGLengthList.initialize documentation> +initializeUnchecked ::+                    (MonadIO m) => SVGLengthList -> Maybe SVGLength -> m SVGLength+initializeUnchecked self item+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_initialize (self) (maybeToNullable item)))   foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem         :: SVGLengthList -> Word -> IO (Nullable SVGLength)@@ -48,6 +68,16 @@         (MonadIO m) => SVGLengthList -> Word -> m (Maybe SVGLength) getItem self index   = liftIO (nullableToMaybe <$> (js_getItem (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.getItem Mozilla SVGLengthList.getItem documentation> +getItem_ :: (MonadIO m) => SVGLengthList -> Word -> m ()+getItem_ self index = liftIO (void (js_getItem (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.getItem Mozilla SVGLengthList.getItem documentation> +getItemUnchecked ::+                 (MonadIO m) => SVGLengthList -> Word -> m SVGLength+getItemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_getItem (self) index))   foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)"         js_insertItemBefore ::@@ -62,6 +92,22 @@   = liftIO       (nullableToMaybe <$>          (js_insertItemBefore (self) (maybeToNullable item) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.insertItemBefore Mozilla SVGLengthList.insertItemBefore documentation> +insertItemBefore_ ::+                  (MonadIO m) => SVGLengthList -> Maybe SVGLength -> Word -> m ()+insertItemBefore_ self item index+  = liftIO+      (void (js_insertItemBefore (self) (maybeToNullable item) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.insertItemBefore Mozilla SVGLengthList.insertItemBefore documentation> +insertItemBeforeUnchecked ::+                          (MonadIO m) =>+                            SVGLengthList -> Maybe SVGLength -> Word -> m SVGLength+insertItemBeforeUnchecked self item index+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_insertItemBefore (self) (maybeToNullable item) index))   foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)"         js_replaceItem ::@@ -76,6 +122,22 @@   = liftIO       (nullableToMaybe <$>          (js_replaceItem (self) (maybeToNullable item) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.replaceItem Mozilla SVGLengthList.replaceItem documentation> +replaceItem_ ::+             (MonadIO m) => SVGLengthList -> Maybe SVGLength -> Word -> m ()+replaceItem_ self item index+  = liftIO+      (void (js_replaceItem (self) (maybeToNullable item) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.replaceItem Mozilla SVGLengthList.replaceItem documentation> +replaceItemUnchecked ::+                     (MonadIO m) =>+                       SVGLengthList -> Maybe SVGLength -> Word -> m SVGLength+replaceItemUnchecked self item index+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_replaceItem (self) (maybeToNullable item) index))   foreign import javascript unsafe "$1[\"removeItem\"]($2)"         js_removeItem :: SVGLengthList -> Word -> IO (Nullable SVGLength)@@ -85,6 +147,17 @@            (MonadIO m) => SVGLengthList -> Word -> m (Maybe SVGLength) removeItem self index   = liftIO (nullableToMaybe <$> (js_removeItem (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.removeItem Mozilla SVGLengthList.removeItem documentation> +removeItem_ :: (MonadIO m) => SVGLengthList -> Word -> m ()+removeItem_ self index = liftIO (void (js_removeItem (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.removeItem Mozilla SVGLengthList.removeItem documentation> +removeItemUnchecked ::+                    (MonadIO m) => SVGLengthList -> Word -> m SVGLength+removeItemUnchecked self index+  = liftIO+      (fromJust . nullableToMaybe <$> (js_removeItem (self) index))   foreign import javascript unsafe "$1[\"appendItem\"]($2)"         js_appendItem ::@@ -97,6 +170,20 @@ appendItem self item   = liftIO       (nullableToMaybe <$> (js_appendItem (self) (maybeToNullable item)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.appendItem Mozilla SVGLengthList.appendItem documentation> +appendItem_ ::+            (MonadIO m) => SVGLengthList -> Maybe SVGLength -> m ()+appendItem_ self item+  = liftIO (void (js_appendItem (self) (maybeToNullable item)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.appendItem Mozilla SVGLengthList.appendItem documentation> +appendItemUnchecked ::+                    (MonadIO m) => SVGLengthList -> Maybe SVGLength -> m SVGLength+appendItemUnchecked self item+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_appendItem (self) (maybeToNullable item)))   foreign import javascript unsafe "$1[\"numberOfItems\"]"         js_getNumberOfItems :: SVGLengthList -> IO Word
src/GHCJS/DOM/JSFFI/Generated/SVGLineElement.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGLineElement-       (js_getX1, getX1, js_getY1, getY1, js_getX2, getX2, js_getY2,-        getY2, SVGLineElement, castToSVGLineElement, gTypeSVGLineElement)+       (js_getX1, getX1, getX1Unchecked, js_getY1, getY1, getY1Unchecked,+        js_getX2, getX2, getX2Unchecked, js_getY2, getY2, getY2Unchecked,+        SVGLineElement, castToSVGLineElement, gTypeSVGLineElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -25,6 +28,12 @@ getX1 ::       (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength) getX1 self = liftIO (nullableToMaybe <$> (js_getX1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.x1 Mozilla SVGLineElement.x1 documentation> +getX1Unchecked ::+               (MonadIO m) => SVGLineElement -> m SVGAnimatedLength+getX1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getX1 (self)))   foreign import javascript unsafe "$1[\"y1\"]" js_getY1 ::         SVGLineElement -> IO (Nullable SVGAnimatedLength)@@ -33,6 +42,12 @@ getY1 ::       (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength) getY1 self = liftIO (nullableToMaybe <$> (js_getY1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.y1 Mozilla SVGLineElement.y1 documentation> +getY1Unchecked ::+               (MonadIO m) => SVGLineElement -> m SVGAnimatedLength+getY1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getY1 (self)))   foreign import javascript unsafe "$1[\"x2\"]" js_getX2 ::         SVGLineElement -> IO (Nullable SVGAnimatedLength)@@ -41,6 +56,12 @@ getX2 ::       (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength) getX2 self = liftIO (nullableToMaybe <$> (js_getX2 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.x2 Mozilla SVGLineElement.x2 documentation> +getX2Unchecked ::+               (MonadIO m) => SVGLineElement -> m SVGAnimatedLength+getX2Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getX2 (self)))   foreign import javascript unsafe "$1[\"y2\"]" js_getY2 ::         SVGLineElement -> IO (Nullable SVGAnimatedLength)@@ -49,3 +70,9 @@ getY2 ::       (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength) getY2 self = liftIO (nullableToMaybe <$> (js_getY2 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.y2 Mozilla SVGLineElement.y2 documentation> +getY2Unchecked ::+               (MonadIO m) => SVGLineElement -> m SVGAnimatedLength+getY2Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getY2 (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGLinearGradientElement.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGLinearGradientElement-       (js_getX1, getX1, js_getY1, getY1, js_getX2, getX2, js_getY2,-        getY2, SVGLinearGradientElement, castToSVGLinearGradientElement,+       (js_getX1, getX1, getX1Unchecked, js_getY1, getY1, getY1Unchecked,+        js_getX2, getX2, getX2Unchecked, js_getY2, getY2, getY2Unchecked,+        SVGLinearGradientElement, castToSVGLinearGradientElement,         gTypeSVGLinearGradientElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -11,9 +12,11 @@ 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)@@ -27,6 +30,12 @@       (MonadIO m) =>         SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) getX1 self = liftIO (nullableToMaybe <$> (js_getX1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.x1 Mozilla SVGLinearGradientElement.x1 documentation> +getX1Unchecked ::+               (MonadIO m) => SVGLinearGradientElement -> m SVGAnimatedLength+getX1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getX1 (self)))   foreign import javascript unsafe "$1[\"y1\"]" js_getY1 ::         SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength)@@ -36,6 +45,12 @@       (MonadIO m) =>         SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) getY1 self = liftIO (nullableToMaybe <$> (js_getY1 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.y1 Mozilla SVGLinearGradientElement.y1 documentation> +getY1Unchecked ::+               (MonadIO m) => SVGLinearGradientElement -> m SVGAnimatedLength+getY1Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getY1 (self)))   foreign import javascript unsafe "$1[\"x2\"]" js_getX2 ::         SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength)@@ -45,6 +60,12 @@       (MonadIO m) =>         SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) getX2 self = liftIO (nullableToMaybe <$> (js_getX2 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.x2 Mozilla SVGLinearGradientElement.x2 documentation> +getX2Unchecked ::+               (MonadIO m) => SVGLinearGradientElement -> m SVGAnimatedLength+getX2Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getX2 (self)))   foreign import javascript unsafe "$1[\"y2\"]" js_getY2 ::         SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength)@@ -54,3 +75,9 @@       (MonadIO m) =>         SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) getY2 self = liftIO (nullableToMaybe <$> (js_getY2 (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.y2 Mozilla SVGLinearGradientElement.y2 documentation> +getY2Unchecked ::+               (MonadIO m) => SVGLinearGradientElement -> m SVGAnimatedLength+getY2Unchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getY2 (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGMarkerElement.hs view
@@ -5,10 +5,13 @@         pattern SVG_MARKERUNITS_USERSPACEONUSE,         pattern SVG_MARKERUNITS_STROKEWIDTH,         pattern SVG_MARKER_ORIENT_UNKNOWN, pattern SVG_MARKER_ORIENT_AUTO,-        pattern SVG_MARKER_ORIENT_ANGLE, js_getRefX, getRefX, js_getRefY,-        getRefY, js_getMarkerUnits, getMarkerUnits, js_getMarkerWidth,-        getMarkerWidth, js_getMarkerHeight, getMarkerHeight,-        js_getOrientType, getOrientType, js_getOrientAngle, getOrientAngle,+        pattern SVG_MARKER_ORIENT_ANGLE, js_getRefX, getRefX,+        getRefXUnchecked, js_getRefY, getRefY, getRefYUnchecked,+        js_getMarkerUnits, getMarkerUnits, getMarkerUnitsUnchecked,+        js_getMarkerWidth, getMarkerWidth, getMarkerWidthUnchecked,+        js_getMarkerHeight, getMarkerHeight, getMarkerHeightUnchecked,+        js_getOrientType, getOrientType, getOrientTypeUnchecked,+        js_getOrientAngle, getOrientAngle, getOrientAngleUnchecked,         SVGMarkerElement, castToSVGMarkerElement, gTypeSVGMarkerElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -18,9 +21,11 @@ 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)@@ -56,6 +61,12 @@ getRefX ::         (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getRefX self = liftIO (nullableToMaybe <$> (js_getRefX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.refX Mozilla SVGMarkerElement.refX documentation> +getRefXUnchecked ::+                 (MonadIO m) => SVGMarkerElement -> m SVGAnimatedLength+getRefXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRefX (self)))   foreign import javascript unsafe "$1[\"refY\"]" js_getRefY ::         SVGMarkerElement -> IO (Nullable SVGAnimatedLength)@@ -64,6 +75,12 @@ getRefY ::         (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getRefY self = liftIO (nullableToMaybe <$> (js_getRefY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.refY Mozilla SVGMarkerElement.refY documentation> +getRefYUnchecked ::+                 (MonadIO m) => SVGMarkerElement -> m SVGAnimatedLength+getRefYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRefY (self)))   foreign import javascript unsafe "$1[\"markerUnits\"]"         js_getMarkerUnits ::@@ -74,6 +91,13 @@                (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration) getMarkerUnits self   = liftIO (nullableToMaybe <$> (js_getMarkerUnits (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerUnits Mozilla SVGMarkerElement.markerUnits documentation> +getMarkerUnitsUnchecked ::+                        (MonadIO m) => SVGMarkerElement -> m SVGAnimatedEnumeration+getMarkerUnitsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getMarkerUnits (self)))   foreign import javascript unsafe "$1[\"markerWidth\"]"         js_getMarkerWidth ::@@ -84,6 +108,13 @@                (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getMarkerWidth self   = liftIO (nullableToMaybe <$> (js_getMarkerWidth (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerWidth Mozilla SVGMarkerElement.markerWidth documentation> +getMarkerWidthUnchecked ::+                        (MonadIO m) => SVGMarkerElement -> m SVGAnimatedLength+getMarkerWidthUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getMarkerWidth (self)))   foreign import javascript unsafe "$1[\"markerHeight\"]"         js_getMarkerHeight ::@@ -94,6 +125,13 @@                 (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getMarkerHeight self   = liftIO (nullableToMaybe <$> (js_getMarkerHeight (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerHeight Mozilla SVGMarkerElement.markerHeight documentation> +getMarkerHeightUnchecked ::+                         (MonadIO m) => SVGMarkerElement -> m SVGAnimatedLength+getMarkerHeightUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getMarkerHeight (self)))   foreign import javascript unsafe "$1[\"orientType\"]"         js_getOrientType ::@@ -104,6 +142,12 @@               (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration) getOrientType self   = liftIO (nullableToMaybe <$> (js_getOrientType (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.orientType Mozilla SVGMarkerElement.orientType documentation> +getOrientTypeUnchecked ::+                       (MonadIO m) => SVGMarkerElement -> m SVGAnimatedEnumeration+getOrientTypeUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getOrientType (self)))   foreign import javascript unsafe "$1[\"orientAngle\"]"         js_getOrientAngle ::@@ -114,3 +158,10 @@                (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedAngle) getOrientAngle self   = liftIO (nullableToMaybe <$> (js_getOrientAngle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.orientAngle Mozilla SVGMarkerElement.orientAngle documentation> +getOrientAngleUnchecked ::+                        (MonadIO m) => SVGMarkerElement -> m SVGAnimatedAngle+getOrientAngleUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getOrientAngle (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGMaskElement.hs view
@@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGMaskElement-       (js_getMaskUnits, getMaskUnits, js_getMaskContentUnits,-        getMaskContentUnits, js_getX, getX, js_getY, getY, js_getWidth,-        getWidth, js_getHeight, getHeight, SVGMaskElement,-        castToSVGMaskElement, gTypeSVGMaskElement)+       (js_getMaskUnits, getMaskUnits, getMaskUnitsUnchecked,+        js_getMaskContentUnits, getMaskContentUnits,+        getMaskContentUnitsUnchecked, js_getX, getX, getXUnchecked,+        js_getY, getY, getYUnchecked, js_getWidth, getWidth,+        getWidthUnchecked, js_getHeight, getHeight, getHeightUnchecked,+        SVGMaskElement, castToSVGMaskElement, gTypeSVGMaskElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -12,9 +14,11 @@ 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)@@ -29,6 +33,12 @@              (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedEnumeration) getMaskUnits self   = liftIO (nullableToMaybe <$> (js_getMaskUnits (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.maskUnits Mozilla SVGMaskElement.maskUnits documentation> +getMaskUnitsUnchecked ::+                      (MonadIO m) => SVGMaskElement -> m SVGAnimatedEnumeration+getMaskUnitsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getMaskUnits (self)))   foreign import javascript unsafe "$1[\"maskContentUnits\"]"         js_getMaskContentUnits ::@@ -39,6 +49,13 @@                     (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedEnumeration) getMaskContentUnits self   = liftIO (nullableToMaybe <$> (js_getMaskContentUnits (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.maskContentUnits Mozilla SVGMaskElement.maskContentUnits documentation> +getMaskContentUnitsUnchecked ::+                             (MonadIO m) => SVGMaskElement -> m SVGAnimatedEnumeration+getMaskContentUnitsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getMaskContentUnits (self)))   foreign import javascript unsafe "$1[\"x\"]" js_getX ::         SVGMaskElement -> IO (Nullable SVGAnimatedLength)@@ -47,6 +64,12 @@ getX ::      (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength) getX self = liftIO (nullableToMaybe <$> (js_getX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.x Mozilla SVGMaskElement.x documentation> +getXUnchecked ::+              (MonadIO m) => SVGMaskElement -> m SVGAnimatedLength+getXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::         SVGMaskElement -> IO (Nullable SVGAnimatedLength)@@ -55,6 +78,12 @@ getY ::      (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength) getY self = liftIO (nullableToMaybe <$> (js_getY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.y Mozilla SVGMaskElement.y documentation> +getYUnchecked ::+              (MonadIO m) => SVGMaskElement -> m SVGAnimatedLength+getYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         SVGMaskElement -> IO (Nullable SVGAnimatedLength)@@ -63,6 +92,12 @@ getWidth ::          (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength) getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.width Mozilla SVGMaskElement.width documentation> +getWidthUnchecked ::+                  (MonadIO m) => SVGMaskElement -> m SVGAnimatedLength+getWidthUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::         SVGMaskElement -> IO (Nullable SVGAnimatedLength)@@ -71,3 +106,9 @@ getHeight ::           (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength) getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.height Mozilla SVGMaskElement.height documentation> +getHeightUnchecked ::+                   (MonadIO m) => SVGMaskElement -> m SVGAnimatedLength+getHeightUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getHeight (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs view
@@ -1,13 +1,18 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGMatrix-       (js_multiply, multiply, js_inverse, inverse, js_translate,-        translate, js_scale, scale, js_scaleNonUniform, scaleNonUniform,-        js_rotate, rotate, js_rotateFromVector, rotateFromVector, js_flipX,-        flipX, js_flipY, flipY, js_skewX, skewX, js_skewY, skewY, js_setA,-        setA, js_getA, getA, js_setB, setB, js_getB, getB, js_setC, setC,-        js_getC, getC, js_setD, setD, js_getD, getD, js_setE, setE,-        js_getE, getE, js_setF, setF, js_getF, getF, SVGMatrix,-        castToSVGMatrix, gTypeSVGMatrix)+       (js_multiply, multiply, multiply_, multiplyUnchecked, js_inverse,+        inverse, inverse_, inverseUnchecked, js_translate, translate,+        translate_, translateUnchecked, js_scale, scale, scale_,+        scaleUnchecked, js_scaleNonUniform, scaleNonUniform,+        scaleNonUniform_, scaleNonUniformUnchecked, js_rotate, rotate,+        rotate_, rotateUnchecked, js_rotateFromVector, rotateFromVector,+        rotateFromVector_, rotateFromVectorUnchecked, js_flipX, flipX,+        flipX_, flipXUnchecked, js_flipY, flipY, flipY_, flipYUnchecked,+        js_skewX, skewX, skewX_, skewXUnchecked, js_skewY, skewY, skewY_,+        skewYUnchecked, js_setA, setA, js_getA, getA, js_setB, setB,+        js_getB, getB, js_setC, setC, js_getC, getC, js_setD, setD,+        js_getD, getD, js_setE, setE, js_getE, getE, js_setF, setF,+        js_getF, getF, SVGMatrix, castToSVGMatrix, gTypeSVGMatrix)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -16,9 +21,11 @@ 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)@@ -34,6 +41,19 @@   = liftIO       (nullableToMaybe <$>          (js_multiply (self) (maybeToNullable secondMatrix)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.multiply Mozilla SVGMatrix.multiply documentation> +multiply_ :: (MonadIO m) => SVGMatrix -> Maybe SVGMatrix -> m ()+multiply_ self secondMatrix+  = liftIO (void (js_multiply (self) (maybeToNullable secondMatrix)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.multiply Mozilla SVGMatrix.multiply documentation> +multiplyUnchecked ::+                  (MonadIO m) => SVGMatrix -> Maybe SVGMatrix -> m SVGMatrix+multiplyUnchecked self secondMatrix+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_multiply (self) (maybeToNullable secondMatrix)))   foreign import javascript unsafe "$1[\"inverse\"]()" js_inverse ::         SVGMatrix -> IO (Nullable SVGMatrix)@@ -41,6 +61,15 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.inverse Mozilla SVGMatrix.inverse documentation>  inverse :: (MonadIO m) => SVGMatrix -> m (Maybe SVGMatrix) inverse self = liftIO (nullableToMaybe <$> (js_inverse (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.inverse Mozilla SVGMatrix.inverse documentation> +inverse_ :: (MonadIO m) => SVGMatrix -> m ()+inverse_ self = liftIO (void (js_inverse (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.inverse Mozilla SVGMatrix.inverse documentation> +inverseUnchecked :: (MonadIO m) => SVGMatrix -> m SVGMatrix+inverseUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_inverse (self)))   foreign import javascript unsafe "$1[\"translate\"]($2, $3)"         js_translate ::@@ -51,6 +80,16 @@           (MonadIO m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix) translate self x y   = liftIO (nullableToMaybe <$> (js_translate (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.translate Mozilla SVGMatrix.translate documentation> +translate_ :: (MonadIO m) => SVGMatrix -> Float -> Float -> m ()+translate_ self x y = liftIO (void (js_translate (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.translate Mozilla SVGMatrix.translate documentation> +translateUnchecked ::+                   (MonadIO m) => SVGMatrix -> Float -> Float -> m SVGMatrix+translateUnchecked self x y+  = liftIO (fromJust . nullableToMaybe <$> (js_translate (self) x y))   foreign import javascript unsafe "$1[\"scale\"]($2)" js_scale ::         SVGMatrix -> Float -> IO (Nullable SVGMatrix)@@ -59,6 +98,17 @@ scale :: (MonadIO m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) scale self scaleFactor   = liftIO (nullableToMaybe <$> (js_scale (self) scaleFactor))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.scale Mozilla SVGMatrix.scale documentation> +scale_ :: (MonadIO m) => SVGMatrix -> Float -> m ()+scale_ self scaleFactor+  = liftIO (void (js_scale (self) scaleFactor))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.scale Mozilla SVGMatrix.scale documentation> +scaleUnchecked :: (MonadIO m) => SVGMatrix -> Float -> m SVGMatrix+scaleUnchecked self scaleFactor+  = liftIO+      (fromJust . nullableToMaybe <$> (js_scale (self) scaleFactor))   foreign import javascript unsafe "$1[\"scaleNonUniform\"]($2, $3)"         js_scaleNonUniform ::@@ -71,6 +121,21 @@   = liftIO       (nullableToMaybe <$>          (js_scaleNonUniform (self) scaleFactorX scaleFactorY))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.scaleNonUniform Mozilla SVGMatrix.scaleNonUniform documentation> +scaleNonUniform_ ::+                 (MonadIO m) => SVGMatrix -> Float -> Float -> m ()+scaleNonUniform_ self scaleFactorX scaleFactorY+  = liftIO+      (void (js_scaleNonUniform (self) scaleFactorX scaleFactorY))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.scaleNonUniform Mozilla SVGMatrix.scaleNonUniform documentation> +scaleNonUniformUnchecked ::+                         (MonadIO m) => SVGMatrix -> Float -> Float -> m SVGMatrix+scaleNonUniformUnchecked self scaleFactorX scaleFactorY+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_scaleNonUniform (self) scaleFactorX scaleFactorY))   foreign import javascript unsafe "$1[\"rotate\"]($2)" js_rotate ::         SVGMatrix -> Float -> IO (Nullable SVGMatrix)@@ -79,6 +144,15 @@ rotate :: (MonadIO m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) rotate self angle   = liftIO (nullableToMaybe <$> (js_rotate (self) angle))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.rotate Mozilla SVGMatrix.rotate documentation> +rotate_ :: (MonadIO m) => SVGMatrix -> Float -> m ()+rotate_ self angle = liftIO (void (js_rotate (self) angle))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.rotate Mozilla SVGMatrix.rotate documentation> +rotateUnchecked :: (MonadIO m) => SVGMatrix -> Float -> m SVGMatrix+rotateUnchecked self angle+  = liftIO (fromJust . nullableToMaybe <$> (js_rotate (self) angle))   foreign import javascript unsafe "$1[\"rotateFromVector\"]($2, $3)"         js_rotateFromVector ::@@ -89,6 +163,19 @@                  (MonadIO m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix) rotateFromVector self x y   = liftIO (nullableToMaybe <$> (js_rotateFromVector (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.rotateFromVector Mozilla SVGMatrix.rotateFromVector documentation> +rotateFromVector_ ::+                  (MonadIO m) => SVGMatrix -> Float -> Float -> m ()+rotateFromVector_ self x y+  = liftIO (void (js_rotateFromVector (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.rotateFromVector Mozilla SVGMatrix.rotateFromVector documentation> +rotateFromVectorUnchecked ::+                          (MonadIO m) => SVGMatrix -> Float -> Float -> m SVGMatrix+rotateFromVectorUnchecked self x y+  = liftIO+      (fromJust . nullableToMaybe <$> (js_rotateFromVector (self) x y))   foreign import javascript unsafe "$1[\"flipX\"]()" js_flipX ::         SVGMatrix -> IO (Nullable SVGMatrix)@@ -96,6 +183,15 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipX Mozilla SVGMatrix.flipX documentation>  flipX :: (MonadIO m) => SVGMatrix -> m (Maybe SVGMatrix) flipX self = liftIO (nullableToMaybe <$> (js_flipX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipX Mozilla SVGMatrix.flipX documentation> +flipX_ :: (MonadIO m) => SVGMatrix -> m ()+flipX_ self = liftIO (void (js_flipX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipX Mozilla SVGMatrix.flipX documentation> +flipXUnchecked :: (MonadIO m) => SVGMatrix -> m SVGMatrix+flipXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_flipX (self)))   foreign import javascript unsafe "$1[\"flipY\"]()" js_flipY ::         SVGMatrix -> IO (Nullable SVGMatrix)@@ -103,6 +199,15 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipY Mozilla SVGMatrix.flipY documentation>  flipY :: (MonadIO m) => SVGMatrix -> m (Maybe SVGMatrix) flipY self = liftIO (nullableToMaybe <$> (js_flipY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipY Mozilla SVGMatrix.flipY documentation> +flipY_ :: (MonadIO m) => SVGMatrix -> m ()+flipY_ self = liftIO (void (js_flipY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipY Mozilla SVGMatrix.flipY documentation> +flipYUnchecked :: (MonadIO m) => SVGMatrix -> m SVGMatrix+flipYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_flipY (self)))   foreign import javascript unsafe "$1[\"skewX\"]($2)" js_skewX ::         SVGMatrix -> Float -> IO (Nullable SVGMatrix)@@ -111,6 +216,15 @@ skewX :: (MonadIO m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) skewX self angle   = liftIO (nullableToMaybe <$> (js_skewX (self) angle))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewX Mozilla SVGMatrix.skewX documentation> +skewX_ :: (MonadIO m) => SVGMatrix -> Float -> m ()+skewX_ self angle = liftIO (void (js_skewX (self) angle))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewX Mozilla SVGMatrix.skewX documentation> +skewXUnchecked :: (MonadIO m) => SVGMatrix -> Float -> m SVGMatrix+skewXUnchecked self angle+  = liftIO (fromJust . nullableToMaybe <$> (js_skewX (self) angle))   foreign import javascript unsafe "$1[\"skewY\"]($2)" js_skewY ::         SVGMatrix -> Float -> IO (Nullable SVGMatrix)@@ -119,6 +233,15 @@ skewY :: (MonadIO m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) skewY self angle   = liftIO (nullableToMaybe <$> (js_skewY (self) angle))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewY Mozilla SVGMatrix.skewY documentation> +skewY_ :: (MonadIO m) => SVGMatrix -> Float -> m ()+skewY_ self angle = liftIO (void (js_skewY (self) angle))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewY Mozilla SVGMatrix.skewY documentation> +skewYUnchecked :: (MonadIO m) => SVGMatrix -> Float -> m SVGMatrix+skewYUnchecked self angle+  = liftIO (fromJust . nullableToMaybe <$> (js_skewY (self) angle))   foreign import javascript unsafe "$1[\"a\"] = $2;" js_setA ::         SVGMatrix -> Double -> IO ()
src/GHCJS/DOM/JSFFI/Generated/SVGNumber.hs view
@@ -10,9 +10,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGNumberList.hs view
@@ -1,10 +1,14 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGNumberList-       (js_clear, clear, js_initialize, initialize, js_getItem, getItem,-        js_insertItemBefore, insertItemBefore, js_replaceItem, replaceItem,-        js_removeItem, removeItem, js_appendItem, appendItem,-        js_getNumberOfItems, getNumberOfItems, SVGNumberList,-        castToSVGNumberList, gTypeSVGNumberList)+       (js_clear, clear, js_initialize, initialize, initialize_,+        initializeUnchecked, js_getItem, getItem, getItem_,+        getItemUnchecked, js_insertItemBefore, insertItemBefore,+        insertItemBefore_, insertItemBeforeUnchecked, js_replaceItem,+        replaceItem, replaceItem_, replaceItemUnchecked, js_removeItem,+        removeItem, removeItem_, removeItemUnchecked, js_appendItem,+        appendItem, appendItem_, appendItemUnchecked, js_getNumberOfItems,+        getNumberOfItems, SVGNumberList, castToSVGNumberList,+        gTypeSVGNumberList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +17,11 @@ 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)@@ -39,6 +45,20 @@ initialize self item   = liftIO       (nullableToMaybe <$> (js_initialize (self) (maybeToNullable item)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.initialize Mozilla SVGNumberList.initialize documentation> +initialize_ ::+            (MonadIO m) => SVGNumberList -> Maybe SVGNumber -> m ()+initialize_ self item+  = liftIO (void (js_initialize (self) (maybeToNullable item)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.initialize Mozilla SVGNumberList.initialize documentation> +initializeUnchecked ::+                    (MonadIO m) => SVGNumberList -> Maybe SVGNumber -> m SVGNumber+initializeUnchecked self item+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_initialize (self) (maybeToNullable item)))   foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem         :: SVGNumberList -> Word -> IO (Nullable SVGNumber)@@ -48,6 +68,16 @@         (MonadIO m) => SVGNumberList -> Word -> m (Maybe SVGNumber) getItem self index   = liftIO (nullableToMaybe <$> (js_getItem (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.getItem Mozilla SVGNumberList.getItem documentation> +getItem_ :: (MonadIO m) => SVGNumberList -> Word -> m ()+getItem_ self index = liftIO (void (js_getItem (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.getItem Mozilla SVGNumberList.getItem documentation> +getItemUnchecked ::+                 (MonadIO m) => SVGNumberList -> Word -> m SVGNumber+getItemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_getItem (self) index))   foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)"         js_insertItemBefore ::@@ -62,6 +92,22 @@   = liftIO       (nullableToMaybe <$>          (js_insertItemBefore (self) (maybeToNullable item) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.insertItemBefore Mozilla SVGNumberList.insertItemBefore documentation> +insertItemBefore_ ::+                  (MonadIO m) => SVGNumberList -> Maybe SVGNumber -> Word -> m ()+insertItemBefore_ self item index+  = liftIO+      (void (js_insertItemBefore (self) (maybeToNullable item) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.insertItemBefore Mozilla SVGNumberList.insertItemBefore documentation> +insertItemBeforeUnchecked ::+                          (MonadIO m) =>+                            SVGNumberList -> Maybe SVGNumber -> Word -> m SVGNumber+insertItemBeforeUnchecked self item index+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_insertItemBefore (self) (maybeToNullable item) index))   foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)"         js_replaceItem ::@@ -76,6 +122,22 @@   = liftIO       (nullableToMaybe <$>          (js_replaceItem (self) (maybeToNullable item) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.replaceItem Mozilla SVGNumberList.replaceItem documentation> +replaceItem_ ::+             (MonadIO m) => SVGNumberList -> Maybe SVGNumber -> Word -> m ()+replaceItem_ self item index+  = liftIO+      (void (js_replaceItem (self) (maybeToNullable item) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.replaceItem Mozilla SVGNumberList.replaceItem documentation> +replaceItemUnchecked ::+                     (MonadIO m) =>+                       SVGNumberList -> Maybe SVGNumber -> Word -> m SVGNumber+replaceItemUnchecked self item index+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_replaceItem (self) (maybeToNullable item) index))   foreign import javascript unsafe "$1[\"removeItem\"]($2)"         js_removeItem :: SVGNumberList -> Word -> IO (Nullable SVGNumber)@@ -85,6 +147,17 @@            (MonadIO m) => SVGNumberList -> Word -> m (Maybe SVGNumber) removeItem self index   = liftIO (nullableToMaybe <$> (js_removeItem (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.removeItem Mozilla SVGNumberList.removeItem documentation> +removeItem_ :: (MonadIO m) => SVGNumberList -> Word -> m ()+removeItem_ self index = liftIO (void (js_removeItem (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.removeItem Mozilla SVGNumberList.removeItem documentation> +removeItemUnchecked ::+                    (MonadIO m) => SVGNumberList -> Word -> m SVGNumber+removeItemUnchecked self index+  = liftIO+      (fromJust . nullableToMaybe <$> (js_removeItem (self) index))   foreign import javascript unsafe "$1[\"appendItem\"]($2)"         js_appendItem ::@@ -97,6 +170,20 @@ appendItem self item   = liftIO       (nullableToMaybe <$> (js_appendItem (self) (maybeToNullable item)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.appendItem Mozilla SVGNumberList.appendItem documentation> +appendItem_ ::+            (MonadIO m) => SVGNumberList -> Maybe SVGNumber -> m ()+appendItem_ self item+  = liftIO (void (js_appendItem (self) (maybeToNullable item)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.appendItem Mozilla SVGNumberList.appendItem documentation> +appendItemUnchecked ::+                    (MonadIO m) => SVGNumberList -> Maybe SVGNumber -> m SVGNumber+appendItemUnchecked self item+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_appendItem (self) (maybeToNullable item)))   foreign import javascript unsafe "$1[\"numberOfItems\"]"         js_getNumberOfItems :: SVGNumberList -> IO Word
src/GHCJS/DOM/JSFFI/Generated/SVGPaint.hs view
@@ -18,9 +18,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathElement.hs view
@@ -1,42 +1,77 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGPathElement-       (js_getTotalLength, getTotalLength, js_getPointAtLength,-        getPointAtLength, js_getPathSegAtLength, getPathSegAtLength,+       (js_getTotalLength, getTotalLength, getTotalLength_,+        js_getPointAtLength, getPointAtLength, getPointAtLength_,+        getPointAtLengthUnchecked, js_getPathSegAtLength,+        getPathSegAtLength, getPathSegAtLength_,         js_createSVGPathSegClosePath, createSVGPathSegClosePath,+        createSVGPathSegClosePath_, createSVGPathSegClosePathUnchecked,         js_createSVGPathSegMovetoAbs, createSVGPathSegMovetoAbs,+        createSVGPathSegMovetoAbs_, createSVGPathSegMovetoAbsUnchecked,         js_createSVGPathSegMovetoRel, createSVGPathSegMovetoRel,+        createSVGPathSegMovetoRel_, createSVGPathSegMovetoRelUnchecked,         js_createSVGPathSegLinetoAbs, createSVGPathSegLinetoAbs,+        createSVGPathSegLinetoAbs_, createSVGPathSegLinetoAbsUnchecked,         js_createSVGPathSegLinetoRel, createSVGPathSegLinetoRel,+        createSVGPathSegLinetoRel_, createSVGPathSegLinetoRelUnchecked,         js_createSVGPathSegCurvetoCubicAbs,-        createSVGPathSegCurvetoCubicAbs,+        createSVGPathSegCurvetoCubicAbs, createSVGPathSegCurvetoCubicAbs_,+        createSVGPathSegCurvetoCubicAbsUnchecked,         js_createSVGPathSegCurvetoCubicRel,-        createSVGPathSegCurvetoCubicRel,+        createSVGPathSegCurvetoCubicRel, createSVGPathSegCurvetoCubicRel_,+        createSVGPathSegCurvetoCubicRelUnchecked,         js_createSVGPathSegCurvetoQuadraticAbs,         createSVGPathSegCurvetoQuadraticAbs,+        createSVGPathSegCurvetoQuadraticAbs_,+        createSVGPathSegCurvetoQuadraticAbsUnchecked,         js_createSVGPathSegCurvetoQuadraticRel,-        createSVGPathSegCurvetoQuadraticRel, js_createSVGPathSegArcAbs,-        createSVGPathSegArcAbs, js_createSVGPathSegArcRel,-        createSVGPathSegArcRel, js_createSVGPathSegLinetoHorizontalAbs,+        createSVGPathSegCurvetoQuadraticRel,+        createSVGPathSegCurvetoQuadraticRel_,+        createSVGPathSegCurvetoQuadraticRelUnchecked,+        js_createSVGPathSegArcAbs, createSVGPathSegArcAbs,+        createSVGPathSegArcAbs_, createSVGPathSegArcAbsUnchecked,+        js_createSVGPathSegArcRel, createSVGPathSegArcRel,+        createSVGPathSegArcRel_, createSVGPathSegArcRelUnchecked,+        js_createSVGPathSegLinetoHorizontalAbs,         createSVGPathSegLinetoHorizontalAbs,+        createSVGPathSegLinetoHorizontalAbs_,+        createSVGPathSegLinetoHorizontalAbsUnchecked,         js_createSVGPathSegLinetoHorizontalRel,         createSVGPathSegLinetoHorizontalRel,+        createSVGPathSegLinetoHorizontalRel_,+        createSVGPathSegLinetoHorizontalRelUnchecked,         js_createSVGPathSegLinetoVerticalAbs,         createSVGPathSegLinetoVerticalAbs,+        createSVGPathSegLinetoVerticalAbs_,+        createSVGPathSegLinetoVerticalAbsUnchecked,         js_createSVGPathSegLinetoVerticalRel,         createSVGPathSegLinetoVerticalRel,+        createSVGPathSegLinetoVerticalRel_,+        createSVGPathSegLinetoVerticalRelUnchecked,         js_createSVGPathSegCurvetoCubicSmoothAbs,         createSVGPathSegCurvetoCubicSmoothAbs,+        createSVGPathSegCurvetoCubicSmoothAbs_,+        createSVGPathSegCurvetoCubicSmoothAbsUnchecked,         js_createSVGPathSegCurvetoCubicSmoothRel,         createSVGPathSegCurvetoCubicSmoothRel,+        createSVGPathSegCurvetoCubicSmoothRel_,+        createSVGPathSegCurvetoCubicSmoothRelUnchecked,         js_createSVGPathSegCurvetoQuadraticSmoothAbs,         createSVGPathSegCurvetoQuadraticSmoothAbs,+        createSVGPathSegCurvetoQuadraticSmoothAbs_,+        createSVGPathSegCurvetoQuadraticSmoothAbsUnchecked,         js_createSVGPathSegCurvetoQuadraticSmoothRel,-        createSVGPathSegCurvetoQuadraticSmoothRel, js_getPathLength,-        getPathLength, js_getPathSegList, getPathSegList,+        createSVGPathSegCurvetoQuadraticSmoothRel,+        createSVGPathSegCurvetoQuadraticSmoothRel_,+        createSVGPathSegCurvetoQuadraticSmoothRelUnchecked,+        js_getPathLength, getPathLength, getPathLengthUnchecked,+        js_getPathSegList, getPathSegList, getPathSegListUnchecked,         js_getNormalizedPathSegList, getNormalizedPathSegList,-        js_getAnimatedPathSegList, getAnimatedPathSegList,+        getNormalizedPathSegListUnchecked, js_getAnimatedPathSegList,+        getAnimatedPathSegList, getAnimatedPathSegListUnchecked,         js_getAnimatedNormalizedPathSegList,-        getAnimatedNormalizedPathSegList, SVGPathElement,+        getAnimatedNormalizedPathSegList,+        getAnimatedNormalizedPathSegListUnchecked, SVGPathElement,         castToSVGPathElement, gTypeSVGPathElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)@@ -46,9 +81,11 @@ 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)@@ -60,6 +97,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getTotalLength Mozilla SVGPathElement.getTotalLength documentation>  getTotalLength :: (MonadIO m) => SVGPathElement -> m Float getTotalLength self = liftIO (js_getTotalLength (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getTotalLength Mozilla SVGPathElement.getTotalLength documentation> +getTotalLength_ :: (MonadIO m) => SVGPathElement -> m ()+getTotalLength_ self = liftIO (void (js_getTotalLength (self)))   foreign import javascript unsafe "$1[\"getPointAtLength\"]($2)"         js_getPointAtLength ::@@ -71,6 +112,19 @@ getPointAtLength self distance   = liftIO       (nullableToMaybe <$> (js_getPointAtLength (self) distance))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getPointAtLength Mozilla SVGPathElement.getPointAtLength documentation> +getPointAtLength_ :: (MonadIO m) => SVGPathElement -> Float -> m ()+getPointAtLength_ self distance+  = liftIO (void (js_getPointAtLength (self) distance))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getPointAtLength Mozilla SVGPathElement.getPointAtLength documentation> +getPointAtLengthUnchecked ::+                          (MonadIO m) => SVGPathElement -> Float -> m SVGPoint+getPointAtLengthUnchecked self distance+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getPointAtLength (self) distance))   foreign import javascript unsafe "$1[\"getPathSegAtLength\"]($2)"         js_getPathSegAtLength :: SVGPathElement -> Float -> IO Word@@ -80,6 +134,12 @@                    (MonadIO m) => SVGPathElement -> Float -> m Word getPathSegAtLength self distance   = liftIO (js_getPathSegAtLength (self) distance)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getPathSegAtLength Mozilla SVGPathElement.getPathSegAtLength documentation> +getPathSegAtLength_ ::+                    (MonadIO m) => SVGPathElement -> Float -> m ()+getPathSegAtLength_ self distance+  = liftIO (void (js_getPathSegAtLength (self) distance))   foreign import javascript unsafe         "$1[\"createSVGPathSegClosePath\"]()" js_createSVGPathSegClosePath@@ -91,6 +151,19 @@ createSVGPathSegClosePath self   = liftIO       (nullableToMaybe <$> (js_createSVGPathSegClosePath (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegClosePath Mozilla SVGPathElement.createSVGPathSegClosePath documentation> +createSVGPathSegClosePath_ :: (MonadIO m) => SVGPathElement -> m ()+createSVGPathSegClosePath_ self+  = liftIO (void (js_createSVGPathSegClosePath (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegClosePath Mozilla SVGPathElement.createSVGPathSegClosePath documentation> +createSVGPathSegClosePathUnchecked ::+                                   (MonadIO m) => SVGPathElement -> m SVGPathSegClosePath+createSVGPathSegClosePathUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegClosePath (self)))   foreign import javascript unsafe         "$1[\"createSVGPathSegMovetoAbs\"]($2,\n$3)"@@ -105,6 +178,21 @@ createSVGPathSegMovetoAbs self x y   = liftIO       (nullableToMaybe <$> (js_createSVGPathSegMovetoAbs (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegMovetoAbs Mozilla SVGPathElement.createSVGPathSegMovetoAbs documentation> +createSVGPathSegMovetoAbs_ ::+                           (MonadIO m) => SVGPathElement -> Float -> Float -> m ()+createSVGPathSegMovetoAbs_ self x y+  = liftIO (void (js_createSVGPathSegMovetoAbs (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegMovetoAbs Mozilla SVGPathElement.createSVGPathSegMovetoAbs documentation> +createSVGPathSegMovetoAbsUnchecked ::+                                   (MonadIO m) =>+                                     SVGPathElement -> Float -> Float -> m SVGPathSegMovetoAbs+createSVGPathSegMovetoAbsUnchecked self x y+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegMovetoAbs (self) x y))   foreign import javascript unsafe         "$1[\"createSVGPathSegMovetoRel\"]($2,\n$3)"@@ -119,6 +207,21 @@ createSVGPathSegMovetoRel self x y   = liftIO       (nullableToMaybe <$> (js_createSVGPathSegMovetoRel (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegMovetoRel Mozilla SVGPathElement.createSVGPathSegMovetoRel documentation> +createSVGPathSegMovetoRel_ ::+                           (MonadIO m) => SVGPathElement -> Float -> Float -> m ()+createSVGPathSegMovetoRel_ self x y+  = liftIO (void (js_createSVGPathSegMovetoRel (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegMovetoRel Mozilla SVGPathElement.createSVGPathSegMovetoRel documentation> +createSVGPathSegMovetoRelUnchecked ::+                                   (MonadIO m) =>+                                     SVGPathElement -> Float -> Float -> m SVGPathSegMovetoRel+createSVGPathSegMovetoRelUnchecked self x y+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegMovetoRel (self) x y))   foreign import javascript unsafe         "$1[\"createSVGPathSegLinetoAbs\"]($2,\n$3)"@@ -133,6 +236,21 @@ createSVGPathSegLinetoAbs self x y   = liftIO       (nullableToMaybe <$> (js_createSVGPathSegLinetoAbs (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoAbs Mozilla SVGPathElement.createSVGPathSegLinetoAbs documentation> +createSVGPathSegLinetoAbs_ ::+                           (MonadIO m) => SVGPathElement -> Float -> Float -> m ()+createSVGPathSegLinetoAbs_ self x y+  = liftIO (void (js_createSVGPathSegLinetoAbs (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoAbs Mozilla SVGPathElement.createSVGPathSegLinetoAbs documentation> +createSVGPathSegLinetoAbsUnchecked ::+                                   (MonadIO m) =>+                                     SVGPathElement -> Float -> Float -> m SVGPathSegLinetoAbs+createSVGPathSegLinetoAbsUnchecked self x y+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegLinetoAbs (self) x y))   foreign import javascript unsafe         "$1[\"createSVGPathSegLinetoRel\"]($2,\n$3)"@@ -147,6 +265,21 @@ createSVGPathSegLinetoRel self x y   = liftIO       (nullableToMaybe <$> (js_createSVGPathSegLinetoRel (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoRel Mozilla SVGPathElement.createSVGPathSegLinetoRel documentation> +createSVGPathSegLinetoRel_ ::+                           (MonadIO m) => SVGPathElement -> Float -> Float -> m ()+createSVGPathSegLinetoRel_ self x y+  = liftIO (void (js_createSVGPathSegLinetoRel (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoRel Mozilla SVGPathElement.createSVGPathSegLinetoRel documentation> +createSVGPathSegLinetoRelUnchecked ::+                                   (MonadIO m) =>+                                     SVGPathElement -> Float -> Float -> m SVGPathSegLinetoRel+createSVGPathSegLinetoRelUnchecked self x y+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegLinetoRel (self) x y))   foreign import javascript unsafe         "$1[\"createSVGPathSegCurvetoCubicAbs\"]($2,\n$3, $4, $5, $6, $7)"@@ -170,6 +303,29 @@   = liftIO       (nullableToMaybe <$>          (js_createSVGPathSegCurvetoCubicAbs (self) x y x1 y1 x2 y2))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicAbs Mozilla SVGPathElement.createSVGPathSegCurvetoCubicAbs documentation> +createSVGPathSegCurvetoCubicAbs_ ::+                                 (MonadIO m) =>+                                   SVGPathElement ->+                                     Float -> Float -> Float -> Float -> Float -> Float -> m ()+createSVGPathSegCurvetoCubicAbs_ self x y x1 y1 x2 y2+  = liftIO+      (void (js_createSVGPathSegCurvetoCubicAbs (self) x y x1 y1 x2 y2))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicAbs Mozilla SVGPathElement.createSVGPathSegCurvetoCubicAbs documentation> +createSVGPathSegCurvetoCubicAbsUnchecked ::+                                         (MonadIO m) =>+                                           SVGPathElement ->+                                             Float ->+                                               Float ->+                                                 Float ->+                                                   Float ->+                                                     Float -> Float -> m SVGPathSegCurvetoCubicAbs+createSVGPathSegCurvetoCubicAbsUnchecked self x y x1 y1 x2 y2+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegCurvetoCubicAbs (self) x y x1 y1 x2 y2))   foreign import javascript unsafe         "$1[\"createSVGPathSegCurvetoCubicRel\"]($2,\n$3, $4, $5, $6, $7)"@@ -193,6 +349,29 @@   = liftIO       (nullableToMaybe <$>          (js_createSVGPathSegCurvetoCubicRel (self) x y x1 y1 x2 y2))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicRel Mozilla SVGPathElement.createSVGPathSegCurvetoCubicRel documentation> +createSVGPathSegCurvetoCubicRel_ ::+                                 (MonadIO m) =>+                                   SVGPathElement ->+                                     Float -> Float -> Float -> Float -> Float -> Float -> m ()+createSVGPathSegCurvetoCubicRel_ self x y x1 y1 x2 y2+  = liftIO+      (void (js_createSVGPathSegCurvetoCubicRel (self) x y x1 y1 x2 y2))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicRel Mozilla SVGPathElement.createSVGPathSegCurvetoCubicRel documentation> +createSVGPathSegCurvetoCubicRelUnchecked ::+                                         (MonadIO m) =>+                                           SVGPathElement ->+                                             Float ->+                                               Float ->+                                                 Float ->+                                                   Float ->+                                                     Float -> Float -> m SVGPathSegCurvetoCubicRel+createSVGPathSegCurvetoCubicRelUnchecked self x y x1 y1 x2 y2+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegCurvetoCubicRel (self) x y x1 y1 x2 y2))   foreign import javascript unsafe         "$1[\"createSVGPathSegCurvetoQuadraticAbs\"]($2,\n$3, $4, $5)"@@ -214,6 +393,27 @@   = liftIO       (nullableToMaybe <$>          (js_createSVGPathSegCurvetoQuadraticAbs (self) x y x1 y1))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticAbs Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticAbs documentation> +createSVGPathSegCurvetoQuadraticAbs_ ::+                                     (MonadIO m) =>+                                       SVGPathElement -> Float -> Float -> Float -> Float -> m ()+createSVGPathSegCurvetoQuadraticAbs_ self x y x1 y1+  = liftIO+      (void (js_createSVGPathSegCurvetoQuadraticAbs (self) x y x1 y1))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticAbs Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticAbs documentation> +createSVGPathSegCurvetoQuadraticAbsUnchecked ::+                                             (MonadIO m) =>+                                               SVGPathElement ->+                                                 Float ->+                                                   Float ->+                                                     Float ->+                                                       Float -> m SVGPathSegCurvetoQuadraticAbs+createSVGPathSegCurvetoQuadraticAbsUnchecked self x y x1 y1+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegCurvetoQuadraticAbs (self) x y x1 y1))   foreign import javascript unsafe         "$1[\"createSVGPathSegCurvetoQuadraticRel\"]($2,\n$3, $4, $5)"@@ -235,6 +435,27 @@   = liftIO       (nullableToMaybe <$>          (js_createSVGPathSegCurvetoQuadraticRel (self) x y x1 y1))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticRel Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticRel documentation> +createSVGPathSegCurvetoQuadraticRel_ ::+                                     (MonadIO m) =>+                                       SVGPathElement -> Float -> Float -> Float -> Float -> m ()+createSVGPathSegCurvetoQuadraticRel_ self x y x1 y1+  = liftIO+      (void (js_createSVGPathSegCurvetoQuadraticRel (self) x y x1 y1))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticRel Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticRel documentation> +createSVGPathSegCurvetoQuadraticRelUnchecked ::+                                             (MonadIO m) =>+                                               SVGPathElement ->+                                                 Float ->+                                                   Float ->+                                                     Float ->+                                                       Float -> m SVGPathSegCurvetoQuadraticRel+createSVGPathSegCurvetoQuadraticRelUnchecked self x y x1 y1+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegCurvetoQuadraticRel (self) x y x1 y1))   foreign import javascript unsafe         "$1[\"createSVGPathSegArcAbs\"]($2,\n$3, $4, $5, $6, $7, $8)"@@ -258,6 +479,32 @@       (nullableToMaybe <$>          (js_createSVGPathSegArcAbs (self) x y r1 r2 angle largeArcFlag             sweepFlag))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegArcAbs Mozilla SVGPathElement.createSVGPathSegArcAbs documentation> +createSVGPathSegArcAbs_ ::+                        (MonadIO m) =>+                          SVGPathElement ->+                            Float -> Float -> Float -> Float -> Float -> Bool -> Bool -> m ()+createSVGPathSegArcAbs_ self x y r1 r2 angle largeArcFlag sweepFlag+  = liftIO+      (void+         (js_createSVGPathSegArcAbs (self) x y r1 r2 angle largeArcFlag+            sweepFlag))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegArcAbs Mozilla SVGPathElement.createSVGPathSegArcAbs documentation> +createSVGPathSegArcAbsUnchecked ::+                                (MonadIO m) =>+                                  SVGPathElement ->+                                    Float ->+                                      Float ->+                                        Float ->+                                          Float -> Float -> Bool -> Bool -> m SVGPathSegArcAbs+createSVGPathSegArcAbsUnchecked self x y r1 r2 angle largeArcFlag+  sweepFlag+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegArcAbs (self) x y r1 r2 angle largeArcFlag+            sweepFlag))   foreign import javascript unsafe         "$1[\"createSVGPathSegArcRel\"]($2,\n$3, $4, $5, $6, $7, $8)"@@ -281,6 +528,32 @@       (nullableToMaybe <$>          (js_createSVGPathSegArcRel (self) x y r1 r2 angle largeArcFlag             sweepFlag))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegArcRel Mozilla SVGPathElement.createSVGPathSegArcRel documentation> +createSVGPathSegArcRel_ ::+                        (MonadIO m) =>+                          SVGPathElement ->+                            Float -> Float -> Float -> Float -> Float -> Bool -> Bool -> m ()+createSVGPathSegArcRel_ self x y r1 r2 angle largeArcFlag sweepFlag+  = liftIO+      (void+         (js_createSVGPathSegArcRel (self) x y r1 r2 angle largeArcFlag+            sweepFlag))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegArcRel Mozilla SVGPathElement.createSVGPathSegArcRel documentation> +createSVGPathSegArcRelUnchecked ::+                                (MonadIO m) =>+                                  SVGPathElement ->+                                    Float ->+                                      Float ->+                                        Float ->+                                          Float -> Float -> Bool -> Bool -> m SVGPathSegArcRel+createSVGPathSegArcRelUnchecked self x y r1 r2 angle largeArcFlag+  sweepFlag+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegArcRel (self) x y r1 r2 angle largeArcFlag+            sweepFlag))   foreign import javascript unsafe         "$1[\"createSVGPathSegLinetoHorizontalAbs\"]($2)"@@ -297,6 +570,22 @@   = liftIO       (nullableToMaybe <$>          (js_createSVGPathSegLinetoHorizontalAbs (self) x))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoHorizontalAbs Mozilla SVGPathElement.createSVGPathSegLinetoHorizontalAbs documentation> +createSVGPathSegLinetoHorizontalAbs_ ::+                                     (MonadIO m) => SVGPathElement -> Float -> m ()+createSVGPathSegLinetoHorizontalAbs_ self x+  = liftIO (void (js_createSVGPathSegLinetoHorizontalAbs (self) x))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoHorizontalAbs Mozilla SVGPathElement.createSVGPathSegLinetoHorizontalAbs documentation> +createSVGPathSegLinetoHorizontalAbsUnchecked ::+                                             (MonadIO m) =>+                                               SVGPathElement ->+                                                 Float -> m SVGPathSegLinetoHorizontalAbs+createSVGPathSegLinetoHorizontalAbsUnchecked self x+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegLinetoHorizontalAbs (self) x))   foreign import javascript unsafe         "$1[\"createSVGPathSegLinetoHorizontalRel\"]($2)"@@ -313,6 +602,22 @@   = liftIO       (nullableToMaybe <$>          (js_createSVGPathSegLinetoHorizontalRel (self) x))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoHorizontalRel Mozilla SVGPathElement.createSVGPathSegLinetoHorizontalRel documentation> +createSVGPathSegLinetoHorizontalRel_ ::+                                     (MonadIO m) => SVGPathElement -> Float -> m ()+createSVGPathSegLinetoHorizontalRel_ self x+  = liftIO (void (js_createSVGPathSegLinetoHorizontalRel (self) x))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoHorizontalRel Mozilla SVGPathElement.createSVGPathSegLinetoHorizontalRel documentation> +createSVGPathSegLinetoHorizontalRelUnchecked ::+                                             (MonadIO m) =>+                                               SVGPathElement ->+                                                 Float -> m SVGPathSegLinetoHorizontalRel+createSVGPathSegLinetoHorizontalRelUnchecked self x+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegLinetoHorizontalRel (self) x))   foreign import javascript unsafe         "$1[\"createSVGPathSegLinetoVerticalAbs\"]($2)"@@ -328,6 +633,22 @@   = liftIO       (nullableToMaybe <$>          (js_createSVGPathSegLinetoVerticalAbs (self) y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoVerticalAbs Mozilla SVGPathElement.createSVGPathSegLinetoVerticalAbs documentation> +createSVGPathSegLinetoVerticalAbs_ ::+                                   (MonadIO m) => SVGPathElement -> Float -> m ()+createSVGPathSegLinetoVerticalAbs_ self y+  = liftIO (void (js_createSVGPathSegLinetoVerticalAbs (self) y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoVerticalAbs Mozilla SVGPathElement.createSVGPathSegLinetoVerticalAbs documentation> +createSVGPathSegLinetoVerticalAbsUnchecked ::+                                           (MonadIO m) =>+                                             SVGPathElement ->+                                               Float -> m SVGPathSegLinetoVerticalAbs+createSVGPathSegLinetoVerticalAbsUnchecked self y+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegLinetoVerticalAbs (self) y))   foreign import javascript unsafe         "$1[\"createSVGPathSegLinetoVerticalRel\"]($2)"@@ -343,6 +664,22 @@   = liftIO       (nullableToMaybe <$>          (js_createSVGPathSegLinetoVerticalRel (self) y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoVerticalRel Mozilla SVGPathElement.createSVGPathSegLinetoVerticalRel documentation> +createSVGPathSegLinetoVerticalRel_ ::+                                   (MonadIO m) => SVGPathElement -> Float -> m ()+createSVGPathSegLinetoVerticalRel_ self y+  = liftIO (void (js_createSVGPathSegLinetoVerticalRel (self) y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoVerticalRel Mozilla SVGPathElement.createSVGPathSegLinetoVerticalRel documentation> +createSVGPathSegLinetoVerticalRelUnchecked ::+                                           (MonadIO m) =>+                                             SVGPathElement ->+                                               Float -> m SVGPathSegLinetoVerticalRel+createSVGPathSegLinetoVerticalRelUnchecked self y+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegLinetoVerticalRel (self) y))   foreign import javascript unsafe         "$1[\"createSVGPathSegCurvetoCubicSmoothAbs\"]($2,\n$3, $4, $5)"@@ -364,6 +701,27 @@   = liftIO       (nullableToMaybe <$>          (js_createSVGPathSegCurvetoCubicSmoothAbs (self) x y x2 y2))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicSmoothAbs Mozilla SVGPathElement.createSVGPathSegCurvetoCubicSmoothAbs documentation> +createSVGPathSegCurvetoCubicSmoothAbs_ ::+                                       (MonadIO m) =>+                                         SVGPathElement -> Float -> Float -> Float -> Float -> m ()+createSVGPathSegCurvetoCubicSmoothAbs_ self x y x2 y2+  = liftIO+      (void (js_createSVGPathSegCurvetoCubicSmoothAbs (self) x y x2 y2))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicSmoothAbs Mozilla SVGPathElement.createSVGPathSegCurvetoCubicSmoothAbs documentation> +createSVGPathSegCurvetoCubicSmoothAbsUnchecked ::+                                               (MonadIO m) =>+                                                 SVGPathElement ->+                                                   Float ->+                                                     Float ->+                                                       Float ->+                                                         Float -> m SVGPathSegCurvetoCubicSmoothAbs+createSVGPathSegCurvetoCubicSmoothAbsUnchecked self x y x2 y2+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegCurvetoCubicSmoothAbs (self) x y x2 y2))   foreign import javascript unsafe         "$1[\"createSVGPathSegCurvetoCubicSmoothRel\"]($2,\n$3, $4, $5)"@@ -385,6 +743,27 @@   = liftIO       (nullableToMaybe <$>          (js_createSVGPathSegCurvetoCubicSmoothRel (self) x y x2 y2))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicSmoothRel Mozilla SVGPathElement.createSVGPathSegCurvetoCubicSmoothRel documentation> +createSVGPathSegCurvetoCubicSmoothRel_ ::+                                       (MonadIO m) =>+                                         SVGPathElement -> Float -> Float -> Float -> Float -> m ()+createSVGPathSegCurvetoCubicSmoothRel_ self x y x2 y2+  = liftIO+      (void (js_createSVGPathSegCurvetoCubicSmoothRel (self) x y x2 y2))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicSmoothRel Mozilla SVGPathElement.createSVGPathSegCurvetoCubicSmoothRel documentation> +createSVGPathSegCurvetoCubicSmoothRelUnchecked ::+                                               (MonadIO m) =>+                                                 SVGPathElement ->+                                                   Float ->+                                                     Float ->+                                                       Float ->+                                                         Float -> m SVGPathSegCurvetoCubicSmoothRel+createSVGPathSegCurvetoCubicSmoothRelUnchecked self x y x2 y2+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegCurvetoCubicSmoothRel (self) x y x2 y2))   foreign import javascript unsafe         "$1[\"createSVGPathSegCurvetoQuadraticSmoothAbs\"]($2,\n$3)"@@ -403,6 +782,25 @@   = liftIO       (nullableToMaybe <$>          (js_createSVGPathSegCurvetoQuadraticSmoothAbs (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothAbs Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothAbs documentation> +createSVGPathSegCurvetoQuadraticSmoothAbs_ ::+                                           (MonadIO m) => SVGPathElement -> Float -> Float -> m ()+createSVGPathSegCurvetoQuadraticSmoothAbs_ self x y+  = liftIO+      (void (js_createSVGPathSegCurvetoQuadraticSmoothAbs (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothAbs Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothAbs documentation> +createSVGPathSegCurvetoQuadraticSmoothAbsUnchecked ::+                                                   (MonadIO m) =>+                                                     SVGPathElement ->+                                                       Float ->+                                                         Float ->+                                                           m SVGPathSegCurvetoQuadraticSmoothAbs+createSVGPathSegCurvetoQuadraticSmoothAbsUnchecked self x y+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegCurvetoQuadraticSmoothAbs (self) x y))   foreign import javascript unsafe         "$1[\"createSVGPathSegCurvetoQuadraticSmoothRel\"]($2,\n$3)"@@ -421,6 +819,25 @@   = liftIO       (nullableToMaybe <$>          (js_createSVGPathSegCurvetoQuadraticSmoothRel (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothRel Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothRel documentation> +createSVGPathSegCurvetoQuadraticSmoothRel_ ::+                                           (MonadIO m) => SVGPathElement -> Float -> Float -> m ()+createSVGPathSegCurvetoQuadraticSmoothRel_ self x y+  = liftIO+      (void (js_createSVGPathSegCurvetoQuadraticSmoothRel (self) x y))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothRel Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothRel documentation> +createSVGPathSegCurvetoQuadraticSmoothRelUnchecked ::+                                                   (MonadIO m) =>+                                                     SVGPathElement ->+                                                       Float ->+                                                         Float ->+                                                           m SVGPathSegCurvetoQuadraticSmoothRel+createSVGPathSegCurvetoQuadraticSmoothRelUnchecked self x y+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGPathSegCurvetoQuadraticSmoothRel (self) x y))   foreign import javascript unsafe "$1[\"pathLength\"]"         js_getPathLength ::@@ -431,6 +848,12 @@               (MonadIO m) => SVGPathElement -> m (Maybe SVGAnimatedNumber) getPathLength self   = liftIO (nullableToMaybe <$> (js_getPathLength (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.pathLength Mozilla SVGPathElement.pathLength documentation> +getPathLengthUnchecked ::+                       (MonadIO m) => SVGPathElement -> m SVGAnimatedNumber+getPathLengthUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getPathLength (self)))   foreign import javascript unsafe "$1[\"pathSegList\"]"         js_getPathSegList :: SVGPathElement -> IO (Nullable SVGPathSegList)@@ -440,6 +863,13 @@                (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegList) getPathSegList self   = liftIO (nullableToMaybe <$> (js_getPathSegList (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.pathSegList Mozilla SVGPathElement.pathSegList documentation> +getPathSegListUnchecked ::+                        (MonadIO m) => SVGPathElement -> m SVGPathSegList+getPathSegListUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getPathSegList (self)))   foreign import javascript unsafe "$1[\"normalizedPathSegList\"]"         js_getNormalizedPathSegList ::@@ -450,6 +880,14 @@                          (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegList) getNormalizedPathSegList self   = liftIO (nullableToMaybe <$> (js_getNormalizedPathSegList (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.normalizedPathSegList Mozilla SVGPathElement.normalizedPathSegList documentation> +getNormalizedPathSegListUnchecked ::+                                  (MonadIO m) => SVGPathElement -> m SVGPathSegList+getNormalizedPathSegListUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getNormalizedPathSegList (self)))   foreign import javascript unsafe "$1[\"animatedPathSegList\"]"         js_getAnimatedPathSegList ::@@ -460,6 +898,13 @@                        (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegList) getAnimatedPathSegList self   = liftIO (nullableToMaybe <$> (js_getAnimatedPathSegList (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.animatedPathSegList Mozilla SVGPathElement.animatedPathSegList documentation> +getAnimatedPathSegListUnchecked ::+                                (MonadIO m) => SVGPathElement -> m SVGPathSegList+getAnimatedPathSegListUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getAnimatedPathSegList (self)))   foreign import javascript unsafe         "$1[\"animatedNormalizedPathSegList\"]"@@ -472,3 +917,11 @@ getAnimatedNormalizedPathSegList self   = liftIO       (nullableToMaybe <$> (js_getAnimatedNormalizedPathSegList (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.animatedNormalizedPathSegList Mozilla SVGPathElement.animatedNormalizedPathSegList documentation> +getAnimatedNormalizedPathSegListUnchecked ::+                                          (MonadIO m) => SVGPathElement -> m SVGPathSegList+getAnimatedNormalizedPathSegListUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getAnimatedNormalizedPathSegList (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs view
@@ -26,9 +26,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs view
@@ -14,9 +14,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs view
@@ -14,9 +14,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs view
@@ -13,9 +13,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs view
@@ -13,9 +13,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs view
@@ -13,9 +13,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs view
@@ -13,9 +13,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs view
@@ -1,10 +1,14 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGPathSegList-       (js_clear, clear, js_initialize, initialize, js_getItem, getItem,-        js_insertItemBefore, insertItemBefore, js_replaceItem, replaceItem,-        js_removeItem, removeItem, js_appendItem, appendItem,-        js_getNumberOfItems, getNumberOfItems, SVGPathSegList,-        castToSVGPathSegList, gTypeSVGPathSegList)+       (js_clear, clear, js_initialize, initialize, initialize_,+        initializeUnchecked, js_getItem, getItem, getItem_,+        getItemUnchecked, js_insertItemBefore, insertItemBefore,+        insertItemBefore_, insertItemBeforeUnchecked, js_replaceItem,+        replaceItem, replaceItem_, replaceItemUnchecked, js_removeItem,+        removeItem, removeItem_, removeItemUnchecked, js_appendItem,+        appendItem, appendItem_, appendItemUnchecked, js_getNumberOfItems,+        getNumberOfItems, SVGPathSegList, castToSVGPathSegList,+        gTypeSVGPathSegList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +17,11 @@ 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)@@ -41,6 +47,26 @@       (nullableToMaybe <$>          (js_initialize (self)             (maybeToNullable (fmap toSVGPathSeg newItem))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.initialize Mozilla SVGPathSegList.initialize documentation> +initialize_ ::+            (MonadIO m, IsSVGPathSeg newItem) =>+              SVGPathSegList -> Maybe newItem -> m ()+initialize_ self newItem+  = liftIO+      (void+         (js_initialize (self)+            (maybeToNullable (fmap toSVGPathSeg newItem))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.initialize Mozilla SVGPathSegList.initialize documentation> +initializeUnchecked ::+                    (MonadIO m, IsSVGPathSeg newItem) =>+                      SVGPathSegList -> Maybe newItem -> m SVGPathSeg+initializeUnchecked self newItem+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_initialize (self)+            (maybeToNullable (fmap toSVGPathSeg newItem))))   foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem         :: SVGPathSegList -> Word -> IO (Nullable SVGPathSeg)@@ -50,6 +76,16 @@         (MonadIO m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg) getItem self index   = liftIO (nullableToMaybe <$> (js_getItem (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.getItem Mozilla SVGPathSegList.getItem documentation> +getItem_ :: (MonadIO m) => SVGPathSegList -> Word -> m ()+getItem_ self index = liftIO (void (js_getItem (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.getItem Mozilla SVGPathSegList.getItem documentation> +getItemUnchecked ::+                 (MonadIO m) => SVGPathSegList -> Word -> m SVGPathSeg+getItemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_getItem (self) index))   foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)"         js_insertItemBefore ::@@ -66,6 +102,28 @@          (js_insertItemBefore (self)             (maybeToNullable (fmap toSVGPathSeg newItem))             index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.insertItemBefore Mozilla SVGPathSegList.insertItemBefore documentation> +insertItemBefore_ ::+                  (MonadIO m, IsSVGPathSeg newItem) =>+                    SVGPathSegList -> Maybe newItem -> Word -> m ()+insertItemBefore_ self newItem index+  = liftIO+      (void+         (js_insertItemBefore (self)+            (maybeToNullable (fmap toSVGPathSeg newItem))+            index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.insertItemBefore Mozilla SVGPathSegList.insertItemBefore documentation> +insertItemBeforeUnchecked ::+                          (MonadIO m, IsSVGPathSeg newItem) =>+                            SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg+insertItemBeforeUnchecked self newItem index+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_insertItemBefore (self)+            (maybeToNullable (fmap toSVGPathSeg newItem))+            index))   foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)"         js_replaceItem ::@@ -82,6 +140,28 @@          (js_replaceItem (self)             (maybeToNullable (fmap toSVGPathSeg newItem))             index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.replaceItem Mozilla SVGPathSegList.replaceItem documentation> +replaceItem_ ::+             (MonadIO m, IsSVGPathSeg newItem) =>+               SVGPathSegList -> Maybe newItem -> Word -> m ()+replaceItem_ self newItem index+  = liftIO+      (void+         (js_replaceItem (self)+            (maybeToNullable (fmap toSVGPathSeg newItem))+            index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.replaceItem Mozilla SVGPathSegList.replaceItem documentation> +replaceItemUnchecked ::+                     (MonadIO m, IsSVGPathSeg newItem) =>+                       SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg+replaceItemUnchecked self newItem index+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_replaceItem (self)+            (maybeToNullable (fmap toSVGPathSeg newItem))+            index))   foreign import javascript unsafe "$1[\"removeItem\"]($2)"         js_removeItem :: SVGPathSegList -> Word -> IO (Nullable SVGPathSeg)@@ -91,6 +171,17 @@            (MonadIO m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg) removeItem self index   = liftIO (nullableToMaybe <$> (js_removeItem (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.removeItem Mozilla SVGPathSegList.removeItem documentation> +removeItem_ :: (MonadIO m) => SVGPathSegList -> Word -> m ()+removeItem_ self index = liftIO (void (js_removeItem (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.removeItem Mozilla SVGPathSegList.removeItem documentation> +removeItemUnchecked ::+                    (MonadIO m) => SVGPathSegList -> Word -> m SVGPathSeg+removeItemUnchecked self index+  = liftIO+      (fromJust . nullableToMaybe <$> (js_removeItem (self) index))   foreign import javascript unsafe "$1[\"appendItem\"]($2)"         js_appendItem ::@@ -103,6 +194,26 @@ appendItem self newItem   = liftIO       (nullableToMaybe <$>+         (js_appendItem (self)+            (maybeToNullable (fmap toSVGPathSeg newItem))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.appendItem Mozilla SVGPathSegList.appendItem documentation> +appendItem_ ::+            (MonadIO m, IsSVGPathSeg newItem) =>+              SVGPathSegList -> Maybe newItem -> m ()+appendItem_ self newItem+  = liftIO+      (void+         (js_appendItem (self)+            (maybeToNullable (fmap toSVGPathSeg newItem))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.appendItem Mozilla SVGPathSegList.appendItem documentation> +appendItemUnchecked ::+                    (MonadIO m, IsSVGPathSeg newItem) =>+                      SVGPathSegList -> Maybe newItem -> m SVGPathSeg+appendItemUnchecked self newItem+  = liftIO+      (fromJust . nullableToMaybe <$>          (js_appendItem (self)             (maybeToNullable (fmap toSVGPathSeg newItem))))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs view
@@ -11,9 +11,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGPatternElement.hs view
@@ -1,10 +1,12 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGPatternElement-       (js_getPatternUnits, getPatternUnits, js_getPatternContentUnits,-        getPatternContentUnits, js_getPatternTransform,-        getPatternTransform, js_getX, getX, js_getY, getY, js_getWidth,-        getWidth, js_getHeight, getHeight, SVGPatternElement,-        castToSVGPatternElement, gTypeSVGPatternElement)+       (js_getPatternUnits, getPatternUnits, getPatternUnitsUnchecked,+        js_getPatternContentUnits, getPatternContentUnits,+        getPatternContentUnitsUnchecked, js_getPatternTransform,+        getPatternTransform, getPatternTransformUnchecked, js_getX, getX,+        getXUnchecked, js_getY, getY, getYUnchecked, js_getWidth, getWidth,+        getWidthUnchecked, js_getHeight, getHeight, getHeightUnchecked,+        SVGPatternElement, castToSVGPatternElement, gTypeSVGPatternElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +15,11 @@ 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)@@ -31,6 +35,13 @@                   SVGPatternElement -> m (Maybe SVGAnimatedEnumeration) getPatternUnits self   = liftIO (nullableToMaybe <$> (js_getPatternUnits (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternUnits Mozilla SVGPatternElement.patternUnits documentation> +getPatternUnitsUnchecked ::+                         (MonadIO m) => SVGPatternElement -> m SVGAnimatedEnumeration+getPatternUnitsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getPatternUnits (self)))   foreign import javascript unsafe "$1[\"patternContentUnits\"]"         js_getPatternContentUnits ::@@ -42,6 +53,13 @@                          SVGPatternElement -> m (Maybe SVGAnimatedEnumeration) getPatternContentUnits self   = liftIO (nullableToMaybe <$> (js_getPatternContentUnits (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternContentUnits Mozilla SVGPatternElement.patternContentUnits documentation> +getPatternContentUnitsUnchecked ::+                                (MonadIO m) => SVGPatternElement -> m SVGAnimatedEnumeration+getPatternContentUnitsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getPatternContentUnits (self)))   foreign import javascript unsafe "$1[\"patternTransform\"]"         js_getPatternTransform ::@@ -53,6 +71,13 @@                       SVGPatternElement -> m (Maybe SVGAnimatedTransformList) getPatternTransform self   = liftIO (nullableToMaybe <$> (js_getPatternTransform (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternTransform Mozilla SVGPatternElement.patternTransform documentation> +getPatternTransformUnchecked ::+                             (MonadIO m) => SVGPatternElement -> m SVGAnimatedTransformList+getPatternTransformUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getPatternTransform (self)))   foreign import javascript unsafe "$1[\"x\"]" js_getX ::         SVGPatternElement -> IO (Nullable SVGAnimatedLength)@@ -61,6 +86,12 @@ getX ::      (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength) getX self = liftIO (nullableToMaybe <$> (js_getX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.x Mozilla SVGPatternElement.x documentation> +getXUnchecked ::+              (MonadIO m) => SVGPatternElement -> m SVGAnimatedLength+getXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::         SVGPatternElement -> IO (Nullable SVGAnimatedLength)@@ -69,6 +100,12 @@ getY ::      (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength) getY self = liftIO (nullableToMaybe <$> (js_getY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.y Mozilla SVGPatternElement.y documentation> +getYUnchecked ::+              (MonadIO m) => SVGPatternElement -> m SVGAnimatedLength+getYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         SVGPatternElement -> IO (Nullable SVGAnimatedLength)@@ -77,6 +114,12 @@ getWidth ::          (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength) getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.width Mozilla SVGPatternElement.width documentation> +getWidthUnchecked ::+                  (MonadIO m) => SVGPatternElement -> m SVGAnimatedLength+getWidthUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::         SVGPatternElement -> IO (Nullable SVGAnimatedLength)@@ -85,3 +128,9 @@ getHeight ::           (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength) getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.height Mozilla SVGPatternElement.height documentation> +getHeightUnchecked ::+                   (MonadIO m) => SVGPatternElement -> m SVGAnimatedLength+getHeightUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getHeight (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGPoint-       (js_matrixTransform, matrixTransform, js_setX, setX, js_getX, getX,-        js_setY, setY, js_getY, getY, SVGPoint, castToSVGPoint,-        gTypeSVGPoint)+       (js_matrixTransform, matrixTransform, matrixTransform_,+        matrixTransformUnchecked, js_setX, setX, js_getX, getX, js_setY,+        setY, js_getY, getY, SVGPoint, castToSVGPoint, gTypeSVGPoint)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -29,6 +31,21 @@ matrixTransform self matrix   = liftIO       (nullableToMaybe <$>+         (js_matrixTransform (self) (maybeToNullable matrix)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.matrixTransform Mozilla SVGPoint.matrixTransform documentation> +matrixTransform_ ::+                 (MonadIO m) => SVGPoint -> Maybe SVGMatrix -> m ()+matrixTransform_ self matrix+  = liftIO+      (void (js_matrixTransform (self) (maybeToNullable matrix)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.matrixTransform Mozilla SVGPoint.matrixTransform documentation> +matrixTransformUnchecked ::+                         (MonadIO m) => SVGPoint -> Maybe SVGMatrix -> m SVGPoint+matrixTransformUnchecked self matrix+  = liftIO+      (fromJust . nullableToMaybe <$>          (js_matrixTransform (self) (maybeToNullable matrix)))   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::
src/GHCJS/DOM/JSFFI/Generated/SVGPointList.hs view
@@ -1,10 +1,14 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGPointList-       (js_clear, clear, js_initialize, initialize, js_getItem, getItem,-        js_insertItemBefore, insertItemBefore, js_replaceItem, replaceItem,-        js_removeItem, removeItem, js_appendItem, appendItem,-        js_getNumberOfItems, getNumberOfItems, SVGPointList,-        castToSVGPointList, gTypeSVGPointList)+       (js_clear, clear, js_initialize, initialize, initialize_,+        initializeUnchecked, js_getItem, getItem, getItem_,+        getItemUnchecked, js_insertItemBefore, insertItemBefore,+        insertItemBefore_, insertItemBeforeUnchecked, js_replaceItem,+        replaceItem, replaceItem_, replaceItemUnchecked, js_removeItem,+        removeItem, removeItem_, removeItemUnchecked, js_appendItem,+        appendItem, appendItem_, appendItemUnchecked, js_getNumberOfItems,+        getNumberOfItems, SVGPointList, castToSVGPointList,+        gTypeSVGPointList)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -13,9 +17,11 @@ 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)@@ -38,6 +44,20 @@ initialize self item   = liftIO       (nullableToMaybe <$> (js_initialize (self) (maybeToNullable item)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.initialize Mozilla SVGPointList.initialize documentation> +initialize_ ::+            (MonadIO m) => SVGPointList -> Maybe SVGPoint -> m ()+initialize_ self item+  = liftIO (void (js_initialize (self) (maybeToNullable item)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.initialize Mozilla SVGPointList.initialize documentation> +initializeUnchecked ::+                    (MonadIO m) => SVGPointList -> Maybe SVGPoint -> m SVGPoint+initializeUnchecked self item+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_initialize (self) (maybeToNullable item)))   foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem         :: SVGPointList -> Word -> IO (Nullable SVGPoint)@@ -47,6 +67,16 @@         (MonadIO m) => SVGPointList -> Word -> m (Maybe SVGPoint) getItem self index   = liftIO (nullableToMaybe <$> (js_getItem (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.getItem Mozilla SVGPointList.getItem documentation> +getItem_ :: (MonadIO m) => SVGPointList -> Word -> m ()+getItem_ self index = liftIO (void (js_getItem (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.getItem Mozilla SVGPointList.getItem documentation> +getItemUnchecked ::+                 (MonadIO m) => SVGPointList -> Word -> m SVGPoint+getItemUnchecked self index+  = liftIO (fromJust . nullableToMaybe <$> (js_getItem (self) index))   foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)"         js_insertItemBefore ::@@ -60,6 +90,21 @@   = liftIO       (nullableToMaybe <$>          (js_insertItemBefore (self) (maybeToNullable item) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.insertItemBefore Mozilla SVGPointList.insertItemBefore documentation> +insertItemBefore_ ::+                  (MonadIO m) => SVGPointList -> Maybe SVGPoint -> Word -> m ()+insertItemBefore_ self item index+  = liftIO+      (void (js_insertItemBefore (self) (maybeToNullable item) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.insertItemBefore Mozilla SVGPointList.insertItemBefore documentation> +insertItemBeforeUnchecked ::+                          (MonadIO m) => SVGPointList -> Maybe SVGPoint -> Word -> m SVGPoint+insertItemBeforeUnchecked self item index+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_insertItemBefore (self) (maybeToNullable item) index))   foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)"         js_replaceItem ::@@ -73,6 +118,21 @@   = liftIO       (nullableToMaybe <$>          (js_replaceItem (self) (maybeToNullable item) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.replaceItem Mozilla SVGPointList.replaceItem documentation> +replaceItem_ ::+             (MonadIO m) => SVGPointList -> Maybe SVGPoint -> Word -> m ()+replaceItem_ self item index+  = liftIO+      (void (js_replaceItem (self) (maybeToNullable item) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.replaceItem Mozilla SVGPointList.replaceItem documentation> +replaceItemUnchecked ::+                     (MonadIO m) => SVGPointList -> Maybe SVGPoint -> Word -> m SVGPoint+replaceItemUnchecked self item index+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_replaceItem (self) (maybeToNullable item) index))   foreign import javascript unsafe "$1[\"removeItem\"]($2)"         js_removeItem :: SVGPointList -> Word -> IO (Nullable SVGPoint)@@ -82,6 +142,17 @@            (MonadIO m) => SVGPointList -> Word -> m (Maybe SVGPoint) removeItem self index   = liftIO (nullableToMaybe <$> (js_removeItem (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.removeItem Mozilla SVGPointList.removeItem documentation> +removeItem_ :: (MonadIO m) => SVGPointList -> Word -> m ()+removeItem_ self index = liftIO (void (js_removeItem (self) index))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.removeItem Mozilla SVGPointList.removeItem documentation> +removeItemUnchecked ::+                    (MonadIO m) => SVGPointList -> Word -> m SVGPoint+removeItemUnchecked self index+  = liftIO+      (fromJust . nullableToMaybe <$> (js_removeItem (self) index))   foreign import javascript unsafe "$1[\"appendItem\"]($2)"         js_appendItem ::@@ -93,6 +164,20 @@ appendItem self item   = liftIO       (nullableToMaybe <$> (js_appendItem (self) (maybeToNullable item)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.appendItem Mozilla SVGPointList.appendItem documentation> +appendItem_ ::+            (MonadIO m) => SVGPointList -> Maybe SVGPoint -> m ()+appendItem_ self item+  = liftIO (void (js_appendItem (self) (maybeToNullable item)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.appendItem Mozilla SVGPointList.appendItem documentation> +appendItemUnchecked ::+                    (MonadIO m) => SVGPointList -> Maybe SVGPoint -> m SVGPoint+appendItemUnchecked self item+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_appendItem (self) (maybeToNullable item)))   foreign import javascript unsafe "$1[\"numberOfItems\"]"         js_getNumberOfItems :: SVGPointList -> IO Word
src/GHCJS/DOM/JSFFI/Generated/SVGPolygonElement.hs view
@@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGPolygonElement-       (js_getPoints, getPoints, js_getAnimatedPoints, getAnimatedPoints,-        SVGPolygonElement, castToSVGPolygonElement, gTypeSVGPolygonElement)+       (js_getPoints, getPoints, getPointsUnchecked, js_getAnimatedPoints,+        getAnimatedPoints, getAnimatedPointsUnchecked, SVGPolygonElement,+        castToSVGPolygonElement, gTypeSVGPolygonElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +11,11 @@ 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)@@ -25,6 +28,12 @@ getPoints ::           (MonadIO m) => SVGPolygonElement -> m (Maybe SVGPointList) getPoints self = liftIO (nullableToMaybe <$> (js_getPoints (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolygonElement.points Mozilla SVGPolygonElement.points documentation> +getPointsUnchecked ::+                   (MonadIO m) => SVGPolygonElement -> m SVGPointList+getPointsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getPoints (self)))   foreign import javascript unsafe "$1[\"animatedPoints\"]"         js_getAnimatedPoints ::@@ -35,3 +44,10 @@                   (MonadIO m) => SVGPolygonElement -> m (Maybe SVGPointList) getAnimatedPoints self   = liftIO (nullableToMaybe <$> (js_getAnimatedPoints (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolygonElement.animatedPoints Mozilla SVGPolygonElement.animatedPoints documentation> +getAnimatedPointsUnchecked ::+                           (MonadIO m) => SVGPolygonElement -> m SVGPointList+getAnimatedPointsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getAnimatedPoints (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGPolylineElement.hs view
@@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGPolylineElement-       (js_getPoints, getPoints, js_getAnimatedPoints, getAnimatedPoints,-        SVGPolylineElement, castToSVGPolylineElement,-        gTypeSVGPolylineElement)+       (js_getPoints, getPoints, getPointsUnchecked, js_getAnimatedPoints,+        getAnimatedPoints, getAnimatedPointsUnchecked, SVGPolylineElement,+        castToSVGPolylineElement, gTypeSVGPolylineElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +11,11 @@ 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)@@ -26,6 +28,12 @@ getPoints ::           (MonadIO m) => SVGPolylineElement -> m (Maybe SVGPointList) getPoints self = liftIO (nullableToMaybe <$> (js_getPoints (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolylineElement.points Mozilla SVGPolylineElement.points documentation> +getPointsUnchecked ::+                   (MonadIO m) => SVGPolylineElement -> m SVGPointList+getPointsUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getPoints (self)))   foreign import javascript unsafe "$1[\"animatedPoints\"]"         js_getAnimatedPoints ::@@ -36,3 +44,10 @@                   (MonadIO m) => SVGPolylineElement -> m (Maybe SVGPointList) getAnimatedPoints self   = liftIO (nullableToMaybe <$> (js_getAnimatedPoints (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolylineElement.animatedPoints Mozilla SVGPolylineElement.animatedPoints documentation> +getAnimatedPointsUnchecked ::+                           (MonadIO m) => SVGPolylineElement -> m SVGPointList+getAnimatedPointsUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getAnimatedPoints (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGPreserveAspectRatio.hs view
@@ -24,9 +24,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGRadialGradientElement.hs view
@@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGRadialGradientElement-       (js_getCx, getCx, js_getCy, getCy, js_getR, getR, js_getFx, getFx,-        js_getFy, getFy, js_getFr, getFr, SVGRadialGradientElement,-        castToSVGRadialGradientElement, gTypeSVGRadialGradientElement)+       (js_getCx, getCx, getCxUnchecked, js_getCy, getCy, getCyUnchecked,+        js_getR, getR, getRUnchecked, js_getFx, getFx, getFxUnchecked,+        js_getFy, getFy, getFyUnchecked, js_getFr, getFr, getFrUnchecked,+        SVGRadialGradientElement, castToSVGRadialGradientElement,+        gTypeSVGRadialGradientElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +13,11 @@ 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)@@ -27,6 +31,12 @@       (MonadIO m) =>         SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) getCx self = liftIO (nullableToMaybe <$> (js_getCx (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.cx Mozilla SVGRadialGradientElement.cx documentation> +getCxUnchecked ::+               (MonadIO m) => SVGRadialGradientElement -> m SVGAnimatedLength+getCxUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getCx (self)))   foreign import javascript unsafe "$1[\"cy\"]" js_getCy ::         SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength)@@ -36,6 +46,12 @@       (MonadIO m) =>         SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) getCy self = liftIO (nullableToMaybe <$> (js_getCy (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.cy Mozilla SVGRadialGradientElement.cy documentation> +getCyUnchecked ::+               (MonadIO m) => SVGRadialGradientElement -> m SVGAnimatedLength+getCyUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getCy (self)))   foreign import javascript unsafe "$1[\"r\"]" js_getR ::         SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength)@@ -45,6 +61,12 @@      (MonadIO m) =>        SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) getR self = liftIO (nullableToMaybe <$> (js_getR (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.r Mozilla SVGRadialGradientElement.r documentation> +getRUnchecked ::+              (MonadIO m) => SVGRadialGradientElement -> m SVGAnimatedLength+getRUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getR (self)))   foreign import javascript unsafe "$1[\"fx\"]" js_getFx ::         SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength)@@ -54,6 +76,12 @@       (MonadIO m) =>         SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) getFx self = liftIO (nullableToMaybe <$> (js_getFx (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fx Mozilla SVGRadialGradientElement.fx documentation> +getFxUnchecked ::+               (MonadIO m) => SVGRadialGradientElement -> m SVGAnimatedLength+getFxUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getFx (self)))   foreign import javascript unsafe "$1[\"fy\"]" js_getFy ::         SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength)@@ -63,6 +91,12 @@       (MonadIO m) =>         SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) getFy self = liftIO (nullableToMaybe <$> (js_getFy (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fy Mozilla SVGRadialGradientElement.fy documentation> +getFyUnchecked ::+               (MonadIO m) => SVGRadialGradientElement -> m SVGAnimatedLength+getFyUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getFy (self)))   foreign import javascript unsafe "$1[\"fr\"]" js_getFr ::         SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength)@@ -72,3 +106,9 @@       (MonadIO m) =>         SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) getFr self = liftIO (nullableToMaybe <$> (js_getFr (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fr Mozilla SVGRadialGradientElement.fr documentation> +getFrUnchecked ::+               (MonadIO m) => SVGRadialGradientElement -> m SVGAnimatedLength+getFrUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getFr (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGRect.hs view
@@ -12,9 +12,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGRectElement.hs view
@@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGRectElement-       (js_getX, getX, js_getY, getY, js_getWidth, getWidth, js_getHeight,-        getHeight, js_getRx, getRx, js_getRy, getRy, SVGRectElement,-        castToSVGRectElement, gTypeSVGRectElement)+       (js_getX, getX, getXUnchecked, js_getY, getY, getYUnchecked,+        js_getWidth, getWidth, getWidthUnchecked, js_getHeight, getHeight,+        getHeightUnchecked, js_getRx, getRx, getRxUnchecked, js_getRy,+        getRy, getRyUnchecked, SVGRectElement, castToSVGRectElement,+        gTypeSVGRectElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -11,9 +13,11 @@ 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)@@ -26,6 +30,12 @@ getX ::      (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getX self = liftIO (nullableToMaybe <$> (js_getX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.x Mozilla SVGRectElement.x documentation> +getXUnchecked ::+              (MonadIO m) => SVGRectElement -> m SVGAnimatedLength+getXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::         SVGRectElement -> IO (Nullable SVGAnimatedLength)@@ -34,6 +44,12 @@ getY ::      (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getY self = liftIO (nullableToMaybe <$> (js_getY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.y Mozilla SVGRectElement.y documentation> +getYUnchecked ::+              (MonadIO m) => SVGRectElement -> m SVGAnimatedLength+getYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         SVGRectElement -> IO (Nullable SVGAnimatedLength)@@ -42,6 +58,12 @@ getWidth ::          (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.width Mozilla SVGRectElement.width documentation> +getWidthUnchecked ::+                  (MonadIO m) => SVGRectElement -> m SVGAnimatedLength+getWidthUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::         SVGRectElement -> IO (Nullable SVGAnimatedLength)@@ -50,6 +72,12 @@ getHeight ::           (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.height Mozilla SVGRectElement.height documentation> +getHeightUnchecked ::+                   (MonadIO m) => SVGRectElement -> m SVGAnimatedLength+getHeightUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"rx\"]" js_getRx ::         SVGRectElement -> IO (Nullable SVGAnimatedLength)@@ -58,6 +86,12 @@ getRx ::       (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getRx self = liftIO (nullableToMaybe <$> (js_getRx (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.rx Mozilla SVGRectElement.rx documentation> +getRxUnchecked ::+               (MonadIO m) => SVGRectElement -> m SVGAnimatedLength+getRxUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRx (self)))   foreign import javascript unsafe "$1[\"ry\"]" js_getRy ::         SVGRectElement -> IO (Nullable SVGAnimatedLength)@@ -66,3 +100,9 @@ getRy ::       (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getRy self = liftIO (nullableToMaybe <$> (js_getRy (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.ry Mozilla SVGRectElement.ry documentation> +getRyUnchecked ::+               (MonadIO m) => SVGRectElement -> m SVGAnimatedLength+getRyUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getRy (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGRenderingIntent.hs view
@@ -14,9 +14,11 @@ 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)
src/GHCJS/DOM/JSFFI/Generated/SVGSVGElement.hs view
@@ -1,34 +1,46 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGSVGElement-       (js_suspendRedraw, suspendRedraw, js_unsuspendRedraw,-        unsuspendRedraw, js_unsuspendRedrawAll, unsuspendRedrawAll,-        js_forceRedraw, forceRedraw, js_pauseAnimations, pauseAnimations,-        js_unpauseAnimations, unpauseAnimations, js_animationsPaused,-        animationsPaused, js_getCurrentTime, getCurrentTime,-        js_setCurrentTime, setCurrentTime, js_getIntersectionList,-        getIntersectionList, js_getEnclosureList, getEnclosureList,-        js_checkIntersection, checkIntersection, js_checkEnclosure,-        checkEnclosure, js_deselectAll, deselectAll, js_createSVGNumber,-        createSVGNumber, js_createSVGLength, createSVGLength,-        js_createSVGAngle, createSVGAngle, js_createSVGPoint,-        createSVGPoint, js_createSVGMatrix, createSVGMatrix,-        js_createSVGRect, createSVGRect, js_createSVGTransform,-        createSVGTransform, js_createSVGTransformFromMatrix,-        createSVGTransformFromMatrix, js_getElementById, getElementById,-        js_getX, getX, js_getY, getY, js_getWidth, getWidth, js_getHeight,-        getHeight, js_setContentScriptType, setContentScriptType,+       (js_suspendRedraw, suspendRedraw, suspendRedraw_,+        js_unsuspendRedraw, unsuspendRedraw, js_unsuspendRedrawAll,+        unsuspendRedrawAll, js_forceRedraw, forceRedraw,+        js_pauseAnimations, pauseAnimations, js_unpauseAnimations,+        unpauseAnimations, js_animationsPaused, animationsPaused,+        animationsPaused_, js_getCurrentTime, getCurrentTime,+        getCurrentTime_, js_setCurrentTime, setCurrentTime,+        js_getIntersectionList, getIntersectionList, getIntersectionList_,+        getIntersectionListUnchecked, js_getEnclosureList,+        getEnclosureList, getEnclosureList_, getEnclosureListUnchecked,+        js_checkIntersection, checkIntersection, checkIntersection_,+        js_checkEnclosure, checkEnclosure, checkEnclosure_, js_deselectAll,+        deselectAll, js_createSVGNumber, createSVGNumber, createSVGNumber_,+        createSVGNumberUnchecked, js_createSVGLength, createSVGLength,+        createSVGLength_, createSVGLengthUnchecked, js_createSVGAngle,+        createSVGAngle, createSVGAngle_, createSVGAngleUnchecked,+        js_createSVGPoint, createSVGPoint, createSVGPoint_,+        createSVGPointUnchecked, js_createSVGMatrix, createSVGMatrix,+        createSVGMatrix_, createSVGMatrixUnchecked, js_createSVGRect,+        createSVGRect, createSVGRect_, createSVGRectUnchecked,+        js_createSVGTransform, createSVGTransform, createSVGTransform_,+        createSVGTransformUnchecked, js_createSVGTransformFromMatrix,+        createSVGTransformFromMatrix, createSVGTransformFromMatrix_,+        createSVGTransformFromMatrixUnchecked, js_getElementById,+        getElementById, getElementById_, getElementByIdUnchecked, js_getX,+        getX, getXUnchecked, js_getY, getY, getYUnchecked, js_getWidth,+        getWidth, getWidthUnchecked, js_getHeight, getHeight,+        getHeightUnchecked, js_setContentScriptType, setContentScriptType,         js_getContentScriptType, getContentScriptType,         js_setContentStyleType, setContentStyleType,         js_getContentStyleType, getContentStyleType, js_getViewport,-        getViewport, js_getPixelUnitToMillimeterX,+        getViewport, getViewportUnchecked, js_getPixelUnitToMillimeterX,         getPixelUnitToMillimeterX, js_getPixelUnitToMillimeterY,         getPixelUnitToMillimeterY, js_getScreenPixelToMillimeterX,         getScreenPixelToMillimeterX, js_getScreenPixelToMillimeterY,         getScreenPixelToMillimeterY, js_getUseCurrentView,         getUseCurrentView, js_getCurrentView, getCurrentView,-        js_setCurrentScale, setCurrentScale, js_getCurrentScale,-        getCurrentScale, js_getCurrentTranslate, getCurrentTranslate,-        SVGSVGElement, castToSVGSVGElement, gTypeSVGSVGElement)+        getCurrentViewUnchecked, js_setCurrentScale, setCurrentScale,+        js_getCurrentScale, getCurrentScale, js_getCurrentTranslate,+        getCurrentTranslate, getCurrentTranslateUnchecked, SVGSVGElement,+        castToSVGSVGElement, gTypeSVGSVGElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -37,9 +49,11 @@ 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)@@ -52,6 +66,11 @@ suspendRedraw :: (MonadIO m) => SVGSVGElement -> Word -> m Word suspendRedraw self maxWaitMilliseconds   = liftIO (js_suspendRedraw (self) maxWaitMilliseconds)++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.suspendRedraw Mozilla SVGSVGElement.suspendRedraw documentation> +suspendRedraw_ :: (MonadIO m) => SVGSVGElement -> Word -> m ()+suspendRedraw_ self maxWaitMilliseconds+  = liftIO (void (js_suspendRedraw (self) maxWaitMilliseconds))   foreign import javascript unsafe "$1[\"unsuspendRedraw\"]($2)"         js_unsuspendRedraw :: SVGSVGElement -> Word -> IO ()@@ -96,6 +115,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.animationsPaused Mozilla SVGSVGElement.animationsPaused documentation>  animationsPaused :: (MonadIO m) => SVGSVGElement -> m Bool animationsPaused self = liftIO (js_animationsPaused (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.animationsPaused Mozilla SVGSVGElement.animationsPaused documentation> +animationsPaused_ :: (MonadIO m) => SVGSVGElement -> m ()+animationsPaused_ self = liftIO (void (js_animationsPaused (self)))   foreign import javascript unsafe "$1[\"getCurrentTime\"]()"         js_getCurrentTime :: SVGSVGElement -> IO Float@@ -103,6 +126,10 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getCurrentTime Mozilla SVGSVGElement.getCurrentTime documentation>  getCurrentTime :: (MonadIO m) => SVGSVGElement -> m Float getCurrentTime self = liftIO (js_getCurrentTime (self))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getCurrentTime Mozilla SVGSVGElement.getCurrentTime documentation> +getCurrentTime_ :: (MonadIO m) => SVGSVGElement -> m ()+getCurrentTime_ self = liftIO (void (js_getCurrentTime (self)))   foreign import javascript unsafe "$1[\"setCurrentTime\"]($2)"         js_setCurrentTime :: SVGSVGElement -> Float -> IO ()@@ -127,6 +154,27 @@       (nullableToMaybe <$>          (js_getIntersectionList (self) (maybeToNullable rect)             (maybeToNullable (fmap toSVGElement referenceElement))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getIntersectionList Mozilla SVGSVGElement.getIntersectionList documentation> +getIntersectionList_ ::+                     (MonadIO m, IsSVGElement referenceElement) =>+                       SVGSVGElement -> Maybe SVGRect -> Maybe referenceElement -> m ()+getIntersectionList_ self rect referenceElement+  = liftIO+      (void+         (js_getIntersectionList (self) (maybeToNullable rect)+            (maybeToNullable (fmap toSVGElement referenceElement))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getIntersectionList Mozilla SVGSVGElement.getIntersectionList documentation> +getIntersectionListUnchecked ::+                             (MonadIO m, IsSVGElement referenceElement) =>+                               SVGSVGElement ->+                                 Maybe SVGRect -> Maybe referenceElement -> m NodeList+getIntersectionListUnchecked self rect referenceElement+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getIntersectionList (self) (maybeToNullable rect)+            (maybeToNullable (fmap toSVGElement referenceElement))))   foreign import javascript unsafe "$1[\"getEnclosureList\"]($2, $3)"         js_getEnclosureList ::@@ -143,6 +191,27 @@       (nullableToMaybe <$>          (js_getEnclosureList (self) (maybeToNullable rect)             (maybeToNullable (fmap toSVGElement referenceElement))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getEnclosureList Mozilla SVGSVGElement.getEnclosureList documentation> +getEnclosureList_ ::+                  (MonadIO m, IsSVGElement referenceElement) =>+                    SVGSVGElement -> Maybe SVGRect -> Maybe referenceElement -> m ()+getEnclosureList_ self rect referenceElement+  = liftIO+      (void+         (js_getEnclosureList (self) (maybeToNullable rect)+            (maybeToNullable (fmap toSVGElement referenceElement))))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getEnclosureList Mozilla SVGSVGElement.getEnclosureList documentation> +getEnclosureListUnchecked ::+                          (MonadIO m, IsSVGElement referenceElement) =>+                            SVGSVGElement ->+                              Maybe SVGRect -> Maybe referenceElement -> m NodeList+getEnclosureListUnchecked self rect referenceElement+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getEnclosureList (self) (maybeToNullable rect)+            (maybeToNullable (fmap toSVGElement referenceElement))))   foreign import javascript unsafe         "($1[\"checkIntersection\"]($2,\n$3) ? 1 : 0)" js_checkIntersection@@ -158,6 +227,17 @@       (js_checkIntersection (self)          (maybeToNullable (fmap toSVGElement element))          (maybeToNullable rect))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.checkIntersection Mozilla SVGSVGElement.checkIntersection documentation> +checkIntersection_ ::+                   (MonadIO m, IsSVGElement element) =>+                     SVGSVGElement -> Maybe element -> Maybe SVGRect -> m ()+checkIntersection_ self element rect+  = liftIO+      (void+         (js_checkIntersection (self)+            (maybeToNullable (fmap toSVGElement element))+            (maybeToNullable rect)))   foreign import javascript unsafe         "($1[\"checkEnclosure\"]($2,\n$3) ? 1 : 0)" js_checkEnclosure ::@@ -172,6 +252,17 @@       (js_checkEnclosure (self)          (maybeToNullable (fmap toSVGElement element))          (maybeToNullable rect))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.checkEnclosure Mozilla SVGSVGElement.checkEnclosure documentation> +checkEnclosure_ ::+                (MonadIO m, IsSVGElement element) =>+                  SVGSVGElement -> Maybe element -> Maybe SVGRect -> m ()+checkEnclosure_ self element rect+  = liftIO+      (void+         (js_checkEnclosure (self)+            (maybeToNullable (fmap toSVGElement element))+            (maybeToNullable rect)))   foreign import javascript unsafe "$1[\"deselectAll\"]()"         js_deselectAll :: SVGSVGElement -> IO ()@@ -188,6 +279,17 @@                 (MonadIO m) => SVGSVGElement -> m (Maybe SVGNumber) createSVGNumber self   = liftIO (nullableToMaybe <$> (js_createSVGNumber (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGNumber Mozilla SVGSVGElement.createSVGNumber documentation> +createSVGNumber_ :: (MonadIO m) => SVGSVGElement -> m ()+createSVGNumber_ self = liftIO (void (js_createSVGNumber (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGNumber Mozilla SVGSVGElement.createSVGNumber documentation> +createSVGNumberUnchecked ::+                         (MonadIO m) => SVGSVGElement -> m SVGNumber+createSVGNumberUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_createSVGNumber (self)))   foreign import javascript unsafe "$1[\"createSVGLength\"]()"         js_createSVGLength :: SVGSVGElement -> IO (Nullable SVGLength)@@ -197,6 +299,17 @@                 (MonadIO m) => SVGSVGElement -> m (Maybe SVGLength) createSVGLength self   = liftIO (nullableToMaybe <$> (js_createSVGLength (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGLength Mozilla SVGSVGElement.createSVGLength documentation> +createSVGLength_ :: (MonadIO m) => SVGSVGElement -> m ()+createSVGLength_ self = liftIO (void (js_createSVGLength (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGLength Mozilla SVGSVGElement.createSVGLength documentation> +createSVGLengthUnchecked ::+                         (MonadIO m) => SVGSVGElement -> m SVGLength+createSVGLengthUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_createSVGLength (self)))   foreign import javascript unsafe "$1[\"createSVGAngle\"]()"         js_createSVGAngle :: SVGSVGElement -> IO (Nullable SVGAngle)@@ -206,6 +319,17 @@                (MonadIO m) => SVGSVGElement -> m (Maybe SVGAngle) createSVGAngle self   = liftIO (nullableToMaybe <$> (js_createSVGAngle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGAngle Mozilla SVGSVGElement.createSVGAngle documentation> +createSVGAngle_ :: (MonadIO m) => SVGSVGElement -> m ()+createSVGAngle_ self = liftIO (void (js_createSVGAngle (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGAngle Mozilla SVGSVGElement.createSVGAngle documentation> +createSVGAngleUnchecked ::+                        (MonadIO m) => SVGSVGElement -> m SVGAngle+createSVGAngleUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_createSVGAngle (self)))   foreign import javascript unsafe "$1[\"createSVGPoint\"]()"         js_createSVGPoint :: SVGSVGElement -> IO (Nullable SVGPoint)@@ -215,6 +339,17 @@                (MonadIO m) => SVGSVGElement -> m (Maybe SVGPoint) createSVGPoint self   = liftIO (nullableToMaybe <$> (js_createSVGPoint (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGPoint Mozilla SVGSVGElement.createSVGPoint documentation> +createSVGPoint_ :: (MonadIO m) => SVGSVGElement -> m ()+createSVGPoint_ self = liftIO (void (js_createSVGPoint (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGPoint Mozilla SVGSVGElement.createSVGPoint documentation> +createSVGPointUnchecked ::+                        (MonadIO m) => SVGSVGElement -> m SVGPoint+createSVGPointUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_createSVGPoint (self)))   foreign import javascript unsafe "$1[\"createSVGMatrix\"]()"         js_createSVGMatrix :: SVGSVGElement -> IO (Nullable SVGMatrix)@@ -224,6 +359,17 @@                 (MonadIO m) => SVGSVGElement -> m (Maybe SVGMatrix) createSVGMatrix self   = liftIO (nullableToMaybe <$> (js_createSVGMatrix (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGMatrix Mozilla SVGSVGElement.createSVGMatrix documentation> +createSVGMatrix_ :: (MonadIO m) => SVGSVGElement -> m ()+createSVGMatrix_ self = liftIO (void (js_createSVGMatrix (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGMatrix Mozilla SVGSVGElement.createSVGMatrix documentation> +createSVGMatrixUnchecked ::+                         (MonadIO m) => SVGSVGElement -> m SVGMatrix+createSVGMatrixUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_createSVGMatrix (self)))   foreign import javascript unsafe "$1[\"createSVGRect\"]()"         js_createSVGRect :: SVGSVGElement -> IO (Nullable SVGRect)@@ -232,6 +378,15 @@ createSVGRect :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGRect) createSVGRect self   = liftIO (nullableToMaybe <$> (js_createSVGRect (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGRect Mozilla SVGSVGElement.createSVGRect documentation> +createSVGRect_ :: (MonadIO m) => SVGSVGElement -> m ()+createSVGRect_ self = liftIO (void (js_createSVGRect (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGRect Mozilla SVGSVGElement.createSVGRect documentation> +createSVGRectUnchecked :: (MonadIO m) => SVGSVGElement -> m SVGRect+createSVGRectUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_createSVGRect (self)))   foreign import javascript unsafe "$1[\"createSVGTransform\"]()"         js_createSVGTransform ::@@ -242,6 +397,18 @@                    (MonadIO m) => SVGSVGElement -> m (Maybe SVGTransform) createSVGTransform self   = liftIO (nullableToMaybe <$> (js_createSVGTransform (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGTransform Mozilla SVGSVGElement.createSVGTransform documentation> +createSVGTransform_ :: (MonadIO m) => SVGSVGElement -> m ()+createSVGTransform_ self+  = liftIO (void (js_createSVGTransform (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGTransform Mozilla SVGSVGElement.createSVGTransform documentation> +createSVGTransformUnchecked ::+                            (MonadIO m) => SVGSVGElement -> m SVGTransform+createSVGTransformUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_createSVGTransform (self)))   foreign import javascript unsafe         "$1[\"createSVGTransformFromMatrix\"]($2)"@@ -256,6 +423,23 @@   = liftIO       (nullableToMaybe <$>          (js_createSVGTransformFromMatrix (self) (maybeToNullable matrix)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGTransformFromMatrix Mozilla SVGSVGElement.createSVGTransformFromMatrix documentation> +createSVGTransformFromMatrix_ ::+                              (MonadIO m) => SVGSVGElement -> Maybe SVGMatrix -> m ()+createSVGTransformFromMatrix_ self matrix+  = liftIO+      (void+         (js_createSVGTransformFromMatrix (self) (maybeToNullable matrix)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.createSVGTransformFromMatrix Mozilla SVGSVGElement.createSVGTransformFromMatrix documentation> +createSVGTransformFromMatrixUnchecked ::+                                      (MonadIO m) =>+                                        SVGSVGElement -> Maybe SVGMatrix -> m SVGTransform+createSVGTransformFromMatrixUnchecked self matrix+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_createSVGTransformFromMatrix (self) (maybeToNullable matrix)))   foreign import javascript unsafe "$1[\"getElementById\"]($2)"         js_getElementById ::@@ -269,6 +453,22 @@   = liftIO       (nullableToMaybe <$>          (js_getElementById (self) (toJSString elementId)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getElementById Mozilla SVGSVGElement.getElementById documentation> +getElementById_ ::+                (MonadIO m, ToJSString elementId) =>+                  SVGSVGElement -> elementId -> m ()+getElementById_ self elementId+  = liftIO (void (js_getElementById (self) (toJSString elementId)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.getElementById Mozilla SVGSVGElement.getElementById documentation> +getElementByIdUnchecked ::+                        (MonadIO m, ToJSString elementId) =>+                          SVGSVGElement -> elementId -> m Element+getElementByIdUnchecked self elementId+  = liftIO+      (fromJust . nullableToMaybe <$>+         (js_getElementById (self) (toJSString elementId)))   foreign import javascript unsafe "$1[\"x\"]" js_getX ::         SVGSVGElement -> IO (Nullable SVGAnimatedLength)@@ -276,6 +476,12 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.x Mozilla SVGSVGElement.x documentation>  getX :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getX self = liftIO (nullableToMaybe <$> (js_getX (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.x Mozilla SVGSVGElement.x documentation> +getXUnchecked ::+              (MonadIO m) => SVGSVGElement -> m SVGAnimatedLength+getXUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::         SVGSVGElement -> IO (Nullable SVGAnimatedLength)@@ -283,6 +489,12 @@ -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.y Mozilla SVGSVGElement.y documentation>  getY :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getY self = liftIO (nullableToMaybe <$> (js_getY (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.y Mozilla SVGSVGElement.y documentation> +getYUnchecked ::+              (MonadIO m) => SVGSVGElement -> m SVGAnimatedLength+getYUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::         SVGSVGElement -> IO (Nullable SVGAnimatedLength)@@ -291,6 +503,12 @@ getWidth ::          (MonadIO m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.width Mozilla SVGSVGElement.width documentation> +getWidthUnchecked ::+                  (MonadIO m) => SVGSVGElement -> m SVGAnimatedLength+getWidthUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::         SVGSVGElement -> IO (Nullable SVGAnimatedLength)@@ -299,6 +517,12 @@ getHeight ::           (MonadIO m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.height Mozilla SVGSVGElement.height documentation> +getHeightUnchecked ::+                   (MonadIO m) => SVGSVGElement -> m SVGAnimatedLength+getHeightUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"contentScriptType\"] = $2;"         js_setContentScriptType :: SVGSVGElement -> JSString -> IO ()@@ -343,6 +567,11 @@ getViewport :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGRect) getViewport self   = liftIO (nullableToMaybe <$> (js_getViewport (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.viewport Mozilla SVGSVGElement.viewport documentation> +getViewportUnchecked :: (MonadIO m) => SVGSVGElement -> m SVGRect+getViewportUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getViewport (self)))   foreign import javascript unsafe "$1[\"pixelUnitToMillimeterX\"]"         js_getPixelUnitToMillimeterX :: SVGSVGElement -> IO Float@@ -395,6 +624,13 @@                (MonadIO m) => SVGSVGElement -> m (Maybe SVGViewSpec) getCurrentView self   = liftIO (nullableToMaybe <$> (js_getCurrentView (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.currentView Mozilla SVGSVGElement.currentView documentation> +getCurrentViewUnchecked ::+                        (MonadIO m) => SVGSVGElement -> m SVGViewSpec+getCurrentViewUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getCurrentView (self)))   foreign import javascript unsafe "$1[\"currentScale\"] = $2;"         js_setCurrentScale :: SVGSVGElement -> Float -> IO ()@@ -418,3 +654,10 @@                     (MonadIO m) => SVGSVGElement -> m (Maybe SVGPoint) getCurrentTranslate self   = liftIO (nullableToMaybe <$> (js_getCurrentTranslate (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGSVGElement.currentTranslate Mozilla SVGSVGElement.currentTranslate documentation> +getCurrentTranslateUnchecked ::+                             (MonadIO m) => SVGSVGElement -> m SVGPoint+getCurrentTranslateUnchecked self+  = liftIO+      (fromJust . nullableToMaybe <$> (js_getCurrentTranslate (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGScriptElement.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGScriptElement-       (js_setType, setType, js_getType, getType, SVGScriptElement,-        castToSVGScriptElement, gTypeSVGScriptElement)+       (js_setType, setType, js_getType, getType, getTypeUnchecked,+        SVGScriptElement, castToSVGScriptElement, gTypeSVGScriptElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -35,3 +37,9 @@         (MonadIO m, FromJSString result) =>           SVGScriptElement -> m (Maybe result) getType self = liftIO (fromMaybeJSString <$> (js_getType (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGScriptElement.type Mozilla SVGScriptElement.type documentation> +getTypeUnchecked ::+                 (MonadIO m, FromJSString result) => SVGScriptElement -> m result+getTypeUnchecked self+  = liftIO (fromJust . fromMaybeJSString <$> (js_getType (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGStopElement.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGStopElement-       (js_getOffset, getOffset, SVGStopElement, castToSVGStopElement,-        gTypeSVGStopElement)+       (js_getOffset, getOffset, getOffsetUnchecked, SVGStopElement,+        castToSVGStopElement, gTypeSVGStopElement)        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)@@ -10,9 +10,11 @@ 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)@@ -25,3 +27,9 @@ getOffset ::           (MonadIO m) => SVGStopElement -> m (Maybe SVGAnimatedNumber) getOffset self = liftIO (nullableToMaybe <$> (js_getOffset (self)))++-- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGStopElement.offset Mozilla SVGStopElement.offset documentation> +getOffsetUnchecked ::+                   (MonadIO m) => SVGStopElement -> m SVGAnimatedNumber+getOffsetUnchecked self+  = liftIO (fromJust . nullableToMaybe <$> (js_getOffset (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGStringList.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SVGStyleElement.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SVGTests.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SVGTextContentElement.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SVGTextPathElement.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SVGTextPositioningElement.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SVGTransform.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SVGTransformList.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SVGURIReference.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SVGUnitTypes.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SVGUseElement.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SVGViewElement.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SVGViewSpec.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SVGZoomAndPan.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SVGZoomEvent.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/Screen.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/ScriptProcessorNode.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/ScriptProfile.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/ScriptProfileNode.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SecurityPolicy.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SecurityPolicyViolationEvent.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/Selection.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SourceBuffer.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SourceBufferList.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SourceInfo.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesis.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisEvent.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisUtterance.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisVoice.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/Storage.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/StorageErrorCallback.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/StorageEvent.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/StorageInfo.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/StorageQuota.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/StorageQuotaCallback.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/StorageUsageCallback.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/StringCallback.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/StyleMedia.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/StyleSheet.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/StyleSheetList.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/SubtleCrypto.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/Text.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/TextEvent.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/TextMetrics.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/TextTrack.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/TextTrackCue.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/TextTrackCueList.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/TextTrackList.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/TimeRanges.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/Touch.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/TouchEvent.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/TouchList.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/TrackEvent.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/TransitionEvent.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/TreeWalker.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/TypeConversions.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/UIEvent.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/UIRequestEvent.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/URL.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/URLUtils.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/UserMessageHandler.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/VTTCue.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/VTTRegion.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/VTTRegionList.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/ValidityState.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/VideoPlaybackQuality.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/VideoStreamTrack.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/VideoTrack.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/VideoTrackList.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/VoidCallback.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WaveShaperNode.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContext.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebGLActiveInfo.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureATC.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTexturePVRTC.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureS3TC.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebGLContextAttributes.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebGLContextEvent.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebGLDebugRendererInfo.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebGLDebugShaders.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebGLDepthTexture.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebGLDrawBuffers.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebGLLoseContext.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContextBase.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebGLShaderPrecisionFormat.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebKitAnimationEvent.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebKitCSSFilterValue.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebKitCSSMatrix.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebKitCSSRegionRule.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebKitCSSTransformValue.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebKitCSSViewportRule.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebKitNamedFlow.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebKitNamespace.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebKitPlaybackTargetAvailabilityEvent.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebKitPoint.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebKitTransitionEvent.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WebSocket.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WheelEvent.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/Window.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WindowBase64.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WindowTimers.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/Worker.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WorkerGlobalScope.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WorkerLocation.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/WorkerNavigator.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequest.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestProgressEvent.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestUpload.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/XMLSerializer.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/XPathEvaluator.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/XPathExpression.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/XPathNSResolver.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/XPathResult.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Generated/XSLTProcessor.hs view

file too large to diff

src/GHCJS/DOM/Types.hs view

file too large to diff