diff --git a/ghcjs-dom-jsffi.cabal b/ghcjs-dom-jsffi.cabal --- a/ghcjs-dom-jsffi.cabal +++ b/ghcjs-dom-jsffi.cabal @@ -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 diff --git a/src/GHCJS/DOM.hs b/src/GHCJS/DOM.hs --- a/src/GHCJS/DOM.hs +++ b/src/GHCJS/DOM.hs @@ -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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs b/src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AbstractView.hs b/src/GHCJS/DOM/JSFFI/Generated/AbstractView.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AbstractView.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AbstractView.hs @@ -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))) + +-- | +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))) + +-- | +getStyleMediaUnchecked :: + (MonadIO m) => AbstractView -> m StyleMedia +getStyleMediaUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getStyleMedia (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs b/src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AllAudioCapabilities.hs b/src/GHCJS/DOM/JSFFI/Generated/AllAudioCapabilities.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AllAudioCapabilities.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AllAudioCapabilities.hs @@ -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))) + +-- | +getVolumeUnchecked :: + (MonadIO m) => AllAudioCapabilities -> m CapabilityRange +getVolumeUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getVolume (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs b/src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs b/src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Attr.hs b/src/GHCJS/DOM/JSFFI/Generated/Attr.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Attr.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Attr.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs @@ -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)) + +-- | +getChannelData_ :: (MonadIO m) => AudioBuffer -> Word -> m () +getChannelData_ self channelIndex + = liftIO (void (js_getChannelData (self) channelIndex)) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs @@ -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)) + +-- | +createBuffer_ :: + (MonadIO m, IsAudioContext self) => + self -> Word -> Word -> Float -> m () +createBuffer_ self numberOfChannels numberOfFrames sampleRate + = liftIO + (void + (js_createBuffer (toAudioContext self) numberOfChannels + numberOfFrames + sampleRate)) + +-- | +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)) + +-- | +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)) + +-- | +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))) + +-- | +createBufferSource_ :: + (MonadIO m, IsAudioContext self) => self -> m () +createBufferSource_ self + = liftIO (void (js_createBufferSource (toAudioContext self))) + +-- | +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)))) + +-- | +createMediaElementSource_ :: + (MonadIO m, IsAudioContext self, + IsHTMLMediaElement mediaElement) => + self -> Maybe mediaElement -> m () +createMediaElementSource_ self mediaElement + = liftIO + (void + (js_createMediaElementSource (toAudioContext self) + (maybeToNullable (fmap toHTMLMediaElement mediaElement)))) + +-- | +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))) + +-- | +createMediaStreamSource_ :: + (MonadIO m, IsAudioContext self) => + self -> Maybe MediaStream -> m () +createMediaStreamSource_ self mediaStream + = liftIO + (void + (js_createMediaStreamSource (toAudioContext self) + (maybeToNullable mediaStream))) + +-- | +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))) + +-- | +createMediaStreamDestination_ :: + (MonadIO m, IsAudioContext self) => self -> m () +createMediaStreamDestination_ self + = liftIO + (void (js_createMediaStreamDestination (toAudioContext self))) + +-- | +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))) + +-- | +createGain_ :: (MonadIO m, IsAudioContext self) => self -> m () +createGain_ self + = liftIO (void (js_createGain (toAudioContext self))) + +-- | +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)) + +-- | +createDelay_ :: + (MonadIO m, IsAudioContext self) => self -> Double -> m () +createDelay_ self maxDelayTime + = liftIO (void (js_createDelay (toAudioContext self) maxDelayTime)) + +-- | +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))) + +-- | +createBiquadFilter_ :: + (MonadIO m, IsAudioContext self) => self -> m () +createBiquadFilter_ self + = liftIO (void (js_createBiquadFilter (toAudioContext self))) + +-- | +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))) + +-- | +createWaveShaper_ :: + (MonadIO m, IsAudioContext self) => self -> m () +createWaveShaper_ self + = liftIO (void (js_createWaveShaper (toAudioContext self))) + +-- | +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))) + +-- | +createPanner_ :: (MonadIO m, IsAudioContext self) => self -> m () +createPanner_ self + = liftIO (void (js_createPanner (toAudioContext self))) + +-- | +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))) + +-- | +createConvolver_ :: + (MonadIO m, IsAudioContext self) => self -> m () +createConvolver_ self + = liftIO (void (js_createConvolver (toAudioContext self))) + +-- | +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))) + +-- | +createDynamicsCompressor_ :: + (MonadIO m, IsAudioContext self) => self -> m () +createDynamicsCompressor_ self + = liftIO (void (js_createDynamicsCompressor (toAudioContext self))) + +-- | +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))) + +-- | +createAnalyser_ :: (MonadIO m, IsAudioContext self) => self -> m () +createAnalyser_ self + = liftIO (void (js_createAnalyser (toAudioContext self))) + +-- | +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)) + +-- | +createScriptProcessor_ :: + (MonadIO m, IsAudioContext self) => + self -> Word -> Word -> Word -> m () +createScriptProcessor_ self bufferSize numberOfInputChannels + numberOfOutputChannels + = liftIO + (void + (js_createScriptProcessor (toAudioContext self) bufferSize + numberOfInputChannels + numberOfOutputChannels)) + +-- | +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))) + +-- | +createOscillator_ :: + (MonadIO m, IsAudioContext self) => self -> m () +createOscillator_ self + = liftIO (void (js_createOscillator (toAudioContext self))) + +-- | +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)))) + +-- | +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)))) + +-- | +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)) + +-- | +createChannelSplitter_ :: + (MonadIO m, IsAudioContext self) => self -> Word -> m () +createChannelSplitter_ self numberOfOutputs + = liftIO + (void + (js_createChannelSplitter (toAudioContext self) numberOfOutputs)) + +-- | +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)) + +-- | +createChannelMerger_ :: + (MonadIO m, IsAudioContext self) => self -> Word -> m () +createChannelMerger_ self numberOfInputs + = liftIO + (void + (js_createChannelMerger (toAudioContext self) numberOfInputs)) + +-- | +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))) + +-- | +createGainNode_ :: (MonadIO m, IsAudioContext self) => self -> m () +createGainNode_ self + = liftIO (void (js_createGainNode (toAudioContext self))) + +-- | +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)) + +-- | +createDelayNode_ :: + (MonadIO m, IsAudioContext self) => self -> Double -> m () +createDelayNode_ self maxDelayTime + = liftIO + (void (js_createDelayNode (toAudioContext self) maxDelayTime)) + +-- | +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)) + +-- | +createJavaScriptNode_ :: + (MonadIO m, IsAudioContext self) => + self -> Word -> Word -> Word -> m () +createJavaScriptNode_ self bufferSize numberOfInputChannels + numberOfOutputChannels + = liftIO + (void + (js_createJavaScriptNode (toAudioContext self) bufferSize + numberOfInputChannels + numberOfOutputChannels)) + +-- | +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))) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs @@ -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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs @@ -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))) + +-- | +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))) + +-- | +getOutputBufferUnchecked :: + (MonadIO m) => AudioProcessingEvent -> m AudioBuffer +getOutputBufferUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getOutputBuffer (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs @@ -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))) + +-- | +getSourceBufferUnchecked :: + (MonadIO m) => AudioTrack -> m SourceBuffer +getSourceBufferUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getSourceBuffer (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs b/src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs @@ -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)) + +-- | +item_ :: (MonadIO m) => AudioTrackList -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +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))) + +-- | +getTrackById_ :: + (MonadIO m, ToJSString id) => AudioTrackList -> id -> m () +getTrackById_ self id + = liftIO (void (js_getTrackById (self) (toJSString id))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BarProp.hs b/src/GHCJS/DOM/JSFFI/Generated/BarProp.hs --- a/src/GHCJS/DOM/JSFFI/Generated/BarProp.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/BarProp.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs b/src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs --- a/src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs b/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs @@ -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))) + +-- | +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))) + +-- | +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 @@ -- | getQ :: (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam) getQ self = liftIO (nullableToMaybe <$> (js_getQ (self))) + +-- | +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 @@ -- | getGain :: (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam) getGain self = liftIO (nullableToMaybe <$> (js_getGain (self))) + +-- | +getGainUnchecked :: (MonadIO m) => BiquadFilterNode -> m AudioParam +getGainUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getGain (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Blob.hs b/src/GHCJS/DOM/JSFFI/Generated/Blob.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Blob.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Blob.hs @@ -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))) + +-- | +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))) + +-- | +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))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSS.hs b/src/GHCJS/DOM/JSFFI/Generated/CSS.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSS.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSS.hs @@ -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)) + +-- | +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)) + +-- | +supports_ :: + (MonadIO m, ToJSString conditionText) => + CSS -> conditionText -> m () +supports_ self conditionText + = liftIO (void (js_supports (self) (toJSString conditionText))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs @@ -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))) + +-- | +getEncodingUnchecked :: + (MonadIO m, FromJSString result) => CSSCharsetRule -> m result +getEncodingUnchecked self + = liftIO (fromJust . fromMaybeJSString <$> (js_getEncoding (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs @@ -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))) + +-- | +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))) + +-- | +getErrorUnchecked :: + (MonadIO m) => CSSFontFaceLoadEvent -> m DOMError +getErrorUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getError (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs @@ -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))) + +-- | +getStyleUnchecked :: + (MonadIO m) => CSSFontFaceRule -> m CSSStyleDeclaration +getStyleUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getStyle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs @@ -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))) + +-- | +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 @@ -- | getMedia :: (MonadIO m) => CSSImportRule -> m (Maybe MediaList) getMedia self = liftIO (nullableToMaybe <$> (js_getMedia (self))) + +-- | +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))) + +-- | +getStyleSheetUnchecked :: + (MonadIO m) => CSSImportRule -> m CSSStyleSheet +getStyleSheetUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getStyleSheet (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs @@ -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))) + +-- | +getStyleUnchecked :: + (MonadIO m) => CSSKeyframeRule -> m CSSStyleDeclaration +getStyleUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getStyle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs @@ -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))) + +-- | +findRule_ :: + (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m () +findRule_ self key + = liftIO (void (js_findRule (self) (toJSString key))) + +-- | +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)) + +-- | +_get_ :: (MonadIO m) => CSSKeyframesRule -> Word -> m () +_get_ self index = liftIO (void (js__get (self) index)) + +-- | +_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))) + +-- | +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))) + +-- | +getCssRulesUnchecked :: + (MonadIO m) => CSSKeyframesRule -> m CSSRuleList +getCssRulesUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getCssRules (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs @@ -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) + +-- | +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 @@ -- | getMedia :: (MonadIO m) => CSSMediaRule -> m (Maybe MediaList) getMedia self = liftIO (nullableToMaybe <$> (js_getMedia (self))) + +-- | +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))) + +-- | +getCssRulesUnchecked :: + (MonadIO m) => CSSMediaRule -> m CSSRuleList +getCssRulesUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getCssRules (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs @@ -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))) + +-- | +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))) + +-- | +getStyleUnchecked :: + (MonadIO m) => CSSPageRule -> m CSSStyleDeclaration +getStyleUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getStyle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs @@ -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) + +-- | +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))) + +-- | +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))) + +-- | +getCounterValue_ :: (MonadIO m) => CSSPrimitiveValue -> m () +getCounterValue_ self = liftIO (void (js_getCounterValue (self))) + +-- | +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))) + +-- | +getRectValue_ :: (MonadIO m) => CSSPrimitiveValue -> m () +getRectValue_ self = liftIO (void (js_getRectValue (self))) + +-- | +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))) + +-- | +getRGBColorValue_ :: (MonadIO m) => CSSPrimitiveValue -> m () +getRGBColorValue_ self = liftIO (void (js_getRGBColorValue (self))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +getParentRuleUnchecked :: + (MonadIO m, IsCSSRule self) => self -> m CSSRule +getParentRuleUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getParentRule (toCSSRule self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs @@ -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)) + +-- | +item_ :: (MonadIO m) => CSSRuleList -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs @@ -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))) + +-- | +getPropertyValue_ :: + (MonadIO m, ToJSString propertyName) => + CSSStyleDeclaration -> propertyName -> m () +getPropertyValue_ self propertyName + = liftIO + (void (js_getPropertyValue (self) (toJSString propertyName))) + +-- | +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))) + +-- | +getPropertyCSSValue_ :: + (MonadIO m, ToJSString propertyName) => + CSSStyleDeclaration -> propertyName -> m () +getPropertyCSSValue_ self propertyName + = liftIO + (void (js_getPropertyCSSValue (self) (toJSString propertyName))) + +-- | +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))) + +-- | +removeProperty_ :: + (MonadIO m, ToJSString propertyName) => + CSSStyleDeclaration -> propertyName -> m () +removeProperty_ self propertyName + = liftIO + (void (js_removeProperty (self) (toJSString propertyName))) + +-- | +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))) + +-- | +getPropertyPriority_ :: + (MonadIO m, ToJSString propertyName) => + CSSStyleDeclaration -> propertyName -> m () +getPropertyPriority_ self propertyName + = liftIO + (void (js_getPropertyPriority (self) (toJSString propertyName))) + +-- | +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)) + +-- | +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))) + +-- | +getPropertyShorthand_ :: + (MonadIO m, ToJSString propertyName) => + CSSStyleDeclaration -> propertyName -> m () +getPropertyShorthand_ self propertyName + = liftIO + (void (js_getPropertyShorthand (self) (toJSString propertyName))) + +-- | +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)) + +-- | +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))) + +-- | +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))) + +-- | +getParentRuleUnchecked :: + (MonadIO m) => CSSStyleDeclaration -> m CSSRule +getParentRuleUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getParentRule (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs @@ -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))) + +-- | +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))) + +-- | +getStyleUnchecked :: + (MonadIO m) => CSSStyleRule -> m CSSStyleDeclaration +getStyleUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getStyle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs @@ -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) + +-- | +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) + +-- | +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))) + +-- | +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))) + +-- | +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 @@ -- | getRules :: (MonadIO m) => CSSStyleSheet -> m (Maybe CSSRuleList) getRules self = liftIO (nullableToMaybe <$> (js_getRules (self))) + +-- | +getRulesUnchecked :: (MonadIO m) => CSSStyleSheet -> m CSSRuleList +getRulesUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getRules (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs @@ -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) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs @@ -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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs b/src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs @@ -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)) + +-- | +item_ :: (MonadIO m, IsCSSValueList self) => self -> Word -> m () +item_ self index + = liftIO (void (js_item (toCSSValueList self) index)) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs @@ -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))) + +-- | +getCanvasUnchecked :: + (MonadIO m, IsCanvasRenderingContext self) => + self -> m HTMLCanvasElement +getCanvasUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getCanvas (toCanvasRenderingContext self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs b/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs @@ -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)) + +-- | +createLinearGradient_ :: + (MonadIO m) => + CanvasRenderingContext2D -> + Float -> Float -> Float -> Float -> m () +createLinearGradient_ self x0 y0 x1 y1 + = liftIO (void (js_createLinearGradient (self) x0 y0 x1 y1)) + +-- | +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)) + +-- | +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)) + +-- | +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) + +-- | +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)) + +-- | +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) + +-- | +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)) + +-- | +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) + +-- | +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))) + +-- | +measureText_ :: + (MonadIO m, ToJSString text) => + CanvasRenderingContext2D -> text -> m () +measureText_ self text + = liftIO (void (js_measureText (self) (toJSString text))) + +-- | +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))) + +-- | +createPatternFromCanvas_ :: + (MonadIO m, ToJSString repetitionType) => + CanvasRenderingContext2D -> + Maybe HTMLCanvasElement -> Maybe repetitionType -> m () +createPatternFromCanvas_ self canvas repetitionType + = liftIO + (void + (js_createPatternFromCanvas (self) (maybeToNullable canvas) + (toMaybeJSString repetitionType))) + +-- | +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))) + +-- | +createPattern_ :: + (MonadIO m, ToJSString repetitionType) => + CanvasRenderingContext2D -> + Maybe HTMLImageElement -> Maybe repetitionType -> m () +createPattern_ self image repetitionType + = liftIO + (void + (js_createPattern (self) (maybeToNullable image) + (toMaybeJSString repetitionType))) + +-- | +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))) + +-- | +createImageData_ :: + (MonadIO m) => CanvasRenderingContext2D -> Maybe ImageData -> m () +createImageData_ self imagedata + = liftIO + (void (js_createImageData (self) (maybeToNullable imagedata))) + +-- | +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)) + +-- | +createImageDataSize_ :: + (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () +createImageDataSize_ self sw sh + = liftIO (void (js_createImageDataSize (self) sw sh)) + +-- | +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)) + +-- | +getImageData_ :: + (MonadIO m) => + CanvasRenderingContext2D -> + Float -> Float -> Float -> Float -> m () +getImageData_ self sx sy sw sh + = liftIO (void (js_getImageData (self) sx sy sw sh)) + +-- | +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)) + +-- | +webkitGetImageDataHD_ :: + (MonadIO m) => + CanvasRenderingContext2D -> + Float -> Float -> Float -> Float -> m () +webkitGetImageDataHD_ self sx sy sw sh + = liftIO (void (js_webkitGetImageDataHD (self) sx sy sw sh)) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getFillStyleUnchecked :: + (MonadIO m) => CanvasRenderingContext2D -> m CanvasStyle +getFillStyleUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getFillStyle (self))) foreign import javascript unsafe "$1[\"webkitBackingStorePixelRatio\"]" diff --git a/src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs b/src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs b/src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs @@ -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)) + +-- | +substringData_ :: + (MonadIO m, IsCharacterData self) => self -> Word -> Word -> m () +substringData_ self offset length + = liftIO + (void (js_substringData (toCharacterData self) offset length)) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ClientRect.hs b/src/GHCJS/DOM/JSFFI/Generated/ClientRect.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ClientRect.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ClientRect.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ClientRectList.hs b/src/GHCJS/DOM/JSFFI/Generated/ClientRectList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ClientRectList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ClientRectList.hs @@ -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)) + +-- | +item_ :: (MonadIO m) => ClientRectList -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs b/src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs @@ -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) + +-- | +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)))) + +-- | +getEventListeners_ :: + (MonadIO m, IsNode node) => + CommandLineAPIHost -> Maybe node -> m () +getEventListeners_ self node + = liftIO + (void + (js_getEventListeners (self) (maybeToNullable (fmap toNode node)))) + +-- | +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)) + +-- | +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)) + +-- | +storageId_ :: (MonadIO m) => CommandLineAPIHost -> JSVal -> m () +storageId_ self storage + = liftIO (void (js_storageId (self) storage)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Comment.hs b/src/GHCJS/DOM/JSFFI/Generated/Comment.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Comment.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Comment.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs @@ -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 @@ -- | getBuffer :: (MonadIO m) => ConvolverNode -> m (Maybe AudioBuffer) getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer (self))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs b/src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs @@ -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) + +-- | +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) + +-- | +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) + +-- | +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 @@ -- | getSpeed :: (MonadIO m) => Coordinates -> m (Maybe Double) getSpeed self + = liftIO ((js_getSpeed (self)) >>= fromJSValUnchecked) + +-- | +getSpeedUnchecked :: (MonadIO m) => Coordinates -> m Double +getSpeedUnchecked self = liftIO ((js_getSpeed (self)) >>= fromJSValUnchecked) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Counter.hs b/src/GHCJS/DOM/JSFFI/Generated/Counter.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Counter.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Counter.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Crypto.hs b/src/GHCJS/DOM/JSFFI/Generated/Crypto.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Crypto.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Crypto.hs @@ -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)))) + +-- | +getRandomValues_ :: + (MonadIO m, IsArrayBufferView array) => + Crypto -> Maybe array -> m () +getRandomValues_ self array + = liftIO + (void + (js_getRandomValues (self) + (maybeToNullable (fmap toArrayBufferView array)))) + +-- | +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))) + +-- | +getWebkitSubtleUnchecked :: (MonadIO m) => Crypto -> m SubtleCrypto +getWebkitSubtleUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getWebkitSubtle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs b/src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs @@ -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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs b/src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs @@ -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))) + +-- | +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))) + +-- | +getPrivateKeyUnchecked :: + (MonadIO m) => CryptoKeyPair -> m CryptoKey +getPrivateKeyUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getPrivateKey (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMError.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMError.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMError.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMError.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs @@ -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)) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +createCSSStyleSheet_ :: + (MonadIO m, ToJSString title, ToJSString media) => + DOMImplementation -> title -> media -> m () +createCSSStyleSheet_ self title media + = liftIO + (void + (js_createCSSStyleSheet (self) (toJSString title) + (toJSString media))) + +-- | +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))) + +-- | +createHTMLDocument_ :: + (MonadIO m, ToJSString title) => DOMImplementation -> title -> m () +createHTMLDocument_ self title + = liftIO (void (js_createHTMLDocument (self) (toJSString title))) + +-- | +createHTMLDocumentUnchecked :: + (MonadIO m, ToJSString title) => + DOMImplementation -> title -> m HTMLDocument +createHTMLDocumentUnchecked self title + = liftIO + (fromJust . nullableToMaybe <$> (js_createHTMLDocument (self) (toJSString title))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs @@ -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)) + +-- | +item_ :: (MonadIO m) => DOMNamedFlowCollection -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +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))) + +-- | +namedItem_ :: + (MonadIO m, ToJSString name) => + DOMNamedFlowCollection -> name -> m () +namedItem_ self name + = liftIO (void (js_namedItem (self) (toJSString name))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs @@ -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))) + +-- | +parseFromString_ :: + (MonadIO m, ToJSString str, ToJSString contentType) => + DOMParser -> str -> contentType -> m () +parseFromString_ self str contentType + = liftIO + (void + (js_parseFromString (self) (toJSString str) + (toJSString contentType))) + +-- | +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))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs @@ -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)) + +-- | +_get_ :: (MonadIO m) => DOMSettableTokenList -> Word -> m () +_get_ self index = liftIO (void (js__get (self) index)) + +-- | +_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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs @@ -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)) + +-- | +item_ :: (MonadIO m) => DOMStringList -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +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)) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs b/src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs @@ -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)) + +-- | +item_ :: (MonadIO m, IsDOMTokenList self) => self -> Word -> m () +item_ self index + = liftIO (void (js_item (toDOMTokenList self) index)) + +-- | +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)) + +-- | +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) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/DataCue.hs b/src/GHCJS/DOM/JSFFI/Generated/DataCue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DataCue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DataCue.hs @@ -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 @@ -- | getData :: (MonadIO m) => DataCue -> m (Maybe ArrayBuffer) getData self = liftIO (nullableToMaybe <$> (js_getData (self))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs b/src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs @@ -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'))) + +-- | +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 @@ -- | getTypes :: (MonadIO m) => DataTransfer -> m (Maybe Array) getTypes self = liftIO (nullableToMaybe <$> (js_getTypes (self))) + +-- | +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 @@ -- | getFiles :: (MonadIO m) => DataTransfer -> m (Maybe FileList) getFiles self = liftIO (nullableToMaybe <$> (js_getFiles (self))) + +-- | +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))) + +-- | +getItemsUnchecked :: + (MonadIO m) => DataTransfer -> m DataTransferItemList +getItemsUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getItems (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs b/src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs @@ -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 @@ -- | getAsFile :: (MonadIO m) => DataTransferItem -> m (Maybe Blob) getAsFile self = liftIO (nullableToMaybe <$> (js_getAsFile (self))) + +-- | +getAsFile_ :: (MonadIO m) => DataTransferItem -> m () +getAsFile_ self = liftIO (void (js_getAsFile (self))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs b/src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs @@ -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)) + +-- | +item_ :: (MonadIO m) => DataTransferItemList -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/Database.hs b/src/GHCJS/DOM/JSFFI/Generated/Database.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Database.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Database.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs b/src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs b/src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs @@ -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))) + +-- | +getDelayTimeUnchecked :: (MonadIO m) => DelayNode -> m AudioParam +getDelayTimeUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getDelayTime (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Document.hs b/src/GHCJS/DOM/JSFFI/Generated/Document.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Document.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Document.hs @@ -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 - --- | -newDocument :: (MonadIO m) => m Document -newDocument = liftIO (js_newDocument) - -foreign import javascript unsafe "$1[\"createElement\"]($2)" - js_createElement :: - Document -> Nullable JSString -> IO (Nullable Element) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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 - --- | -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 - --- | -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 - --- | -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 - --- | -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 - --- | -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 - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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 - --- | -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) - --- | -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) - --- | -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 () - --- | -webkitCancelFullScreen :: - (MonadIO m, IsDocument self) => self -> m () -webkitCancelFullScreen self - = liftIO (js_webkitCancelFullScreen (toDocument self)) - -foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()" - js_webkitExitFullscreen :: Document -> IO () - --- | -webkitExitFullscreen :: - (MonadIO m, IsDocument self) => self -> m () -webkitExitFullscreen self - = liftIO (js_webkitExitFullscreen (toDocument self)) - -foreign import javascript unsafe "$1[\"exitPointerLock\"]()" - js_exitPointerLock :: Document -> IO () - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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 () - --- | -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) - --- | -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 () - --- | -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 - --- | -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) - --- | -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) - --- | -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) - --- | -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 - --- | -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 () - --- | -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) - --- | -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 - --- | -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 () - --- | -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) - --- | -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 - --- | -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 () - --- | -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) - --- | -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 () - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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 - --- | -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 () - --- | -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) - --- | -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 () - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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) - --- | -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 () - --- | -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) - --- | -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) - --- | -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 - --- | -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 - --- | -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 - --- | -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) - --- | -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 - --- | -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) - --- | -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) - --- | -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) - --- | -getFonts :: - (MonadIO m, IsDocument self) => self -> m (Maybe FontLoader) -getFonts self - = liftIO (nullableToMaybe <$> (js_getFonts (toDocument self))) - --- | -abort :: - (IsDocument self, IsEventTarget self) => EventName self UIEvent -abort = unsafeEventName (toJSString "abort") - --- | -blur :: - (IsDocument self, IsEventTarget self) => EventName self FocusEvent -blur = unsafeEventName (toJSString "blur") - --- | -change :: - (IsDocument self, IsEventTarget self) => EventName self Event -change = unsafeEventName (toJSString "change") - --- | -click :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -click = unsafeEventName (toJSString "click") - --- | -contextMenu :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -contextMenu = unsafeEventName (toJSString "contextmenu") - --- | -dblClick :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -dblClick = unsafeEventName (toJSString "dblclick") - --- | -drag :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -drag = unsafeEventName (toJSString "drag") - --- | -dragEnd :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -dragEnd = unsafeEventName (toJSString "dragend") - --- | -dragEnter :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -dragEnter = unsafeEventName (toJSString "dragenter") - --- | -dragLeave :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -dragLeave = unsafeEventName (toJSString "dragleave") - --- | -dragOver :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -dragOver = unsafeEventName (toJSString "dragover") - --- | -dragStart :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -dragStart = unsafeEventName (toJSString "dragstart") - --- | -drop :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -drop = unsafeEventName (toJSString "drop") - --- | -error :: - (IsDocument self, IsEventTarget self) => EventName self UIEvent -error = unsafeEventName (toJSString "error") - --- | -focus :: - (IsDocument self, IsEventTarget self) => EventName self FocusEvent -focus = unsafeEventName (toJSString "focus") - --- | -input :: - (IsDocument self, IsEventTarget self) => EventName self Event -input = unsafeEventName (toJSString "input") - --- | -invalid :: - (IsDocument self, IsEventTarget self) => EventName self Event -invalid = unsafeEventName (toJSString "invalid") - --- | -keyDown :: - (IsDocument self, IsEventTarget self) => - EventName self KeyboardEvent -keyDown = unsafeEventName (toJSString "keydown") - --- | -keyPress :: - (IsDocument self, IsEventTarget self) => - EventName self KeyboardEvent -keyPress = unsafeEventName (toJSString "keypress") - --- | -keyUp :: - (IsDocument self, IsEventTarget self) => - EventName self KeyboardEvent -keyUp = unsafeEventName (toJSString "keyup") - --- | -load :: - (IsDocument self, IsEventTarget self) => EventName self UIEvent -load = unsafeEventName (toJSString "load") - --- | -mouseDown :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -mouseDown = unsafeEventName (toJSString "mousedown") - --- | -mouseEnter :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -mouseEnter = unsafeEventName (toJSString "mouseenter") - --- | -mouseLeave :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -mouseLeave = unsafeEventName (toJSString "mouseleave") - --- | -mouseMove :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -mouseMove = unsafeEventName (toJSString "mousemove") - --- | -mouseOut :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -mouseOut = unsafeEventName (toJSString "mouseout") - --- | -mouseOver :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -mouseOver = unsafeEventName (toJSString "mouseover") - --- | -mouseUp :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -mouseUp = unsafeEventName (toJSString "mouseup") - --- | -mouseWheel :: - (IsDocument self, IsEventTarget self) => EventName self MouseEvent -mouseWheel = unsafeEventName (toJSString "mousewheel") - --- | -readyStateChange :: - (IsDocument self, IsEventTarget self) => EventName self Event -readyStateChange = unsafeEventName (toJSString "readystatechange") - --- | -scroll :: - (IsDocument self, IsEventTarget self) => EventName self UIEvent -scroll = unsafeEventName (toJSString "scroll") - --- | -select :: - (IsDocument self, IsEventTarget self) => EventName self UIEvent -select = unsafeEventName (toJSString "select") - --- | -submit :: - (IsDocument self, IsEventTarget self) => EventName self Event -submit = unsafeEventName (toJSString "submit") - --- | -wheel :: - (IsDocument self, IsEventTarget self) => EventName self WheelEvent -wheel = unsafeEventName (toJSString "wheel") - --- | -beforeCut :: - (IsDocument self, IsEventTarget self) => EventName self Event -beforeCut = unsafeEventName (toJSString "beforecut") - --- | -cut :: - (IsDocument self, IsEventTarget self) => EventName self Event -cut = unsafeEventName (toJSString "cut") - --- | -beforeCopy :: - (IsDocument self, IsEventTarget self) => EventName self Event -beforeCopy = unsafeEventName (toJSString "beforecopy") - --- | -copy :: - (IsDocument self, IsEventTarget self) => EventName self Event -copy = unsafeEventName (toJSString "copy") - --- | -beforePaste :: - (IsDocument self, IsEventTarget self) => EventName self Event -beforePaste = unsafeEventName (toJSString "beforepaste") - --- | -paste :: - (IsDocument self, IsEventTarget self) => EventName self Event -paste = unsafeEventName (toJSString "paste") - --- | -reset :: - (IsDocument self, IsEventTarget self) => EventName self Event -reset = unsafeEventName (toJSString "reset") - --- | -search :: - (IsDocument self, IsEventTarget self) => EventName self Event -search = unsafeEventName (toJSString "search") - --- | -selectStart :: - (IsDocument self, IsEventTarget self) => EventName self Event -selectStart = unsafeEventName (toJSString "selectstart") - --- | -selectionchange :: - (IsDocument self, IsEventTarget self) => - EventName self onselectionchange -selectionchange = unsafeEventName (toJSString "selectionchange") - --- | -touchStart :: - (IsDocument self, IsEventTarget self) => EventName self TouchEvent -touchStart = unsafeEventName (toJSString "touchstart") - --- | -touchMove :: - (IsDocument self, IsEventTarget self) => EventName self TouchEvent -touchMove = unsafeEventName (toJSString "touchmove") - --- | -touchEnd :: - (IsDocument self, IsEventTarget self) => EventName self TouchEvent -touchEnd = unsafeEventName (toJSString "touchend") - --- | -touchCancel :: - (IsDocument self, IsEventTarget self) => EventName self TouchEvent -touchCancel = unsafeEventName (toJSString "touchcancel") - --- | -webKitFullscreenChange :: - (IsDocument self, IsEventTarget self) => EventName self Event -webKitFullscreenChange - = unsafeEventName (toJSString "webkitfullscreenchange") - --- | -webKitFullscreenError :: - (IsDocument self, IsEventTarget self) => EventName self Event -webKitFullscreenError - = unsafeEventName (toJSString "webkitfullscreenerror") - --- | -pointerlockchange :: - (IsDocument self, IsEventTarget self) => EventName self Event -pointerlockchange - = unsafeEventName (toJSString "pointerlockchange") - --- | -pointerlockerror :: - (IsDocument self, IsEventTarget self) => EventName self Event -pointerlockerror = unsafeEventName (toJSString "pointerlockerror") - --- | -securitypolicyviolation :: - (IsDocument self, IsEventTarget self) => - EventName self onsecuritypolicyviolation -securitypolicyviolation - = unsafeEventName (toJSString "securitypolicyviolation") - --- | -webKitWillRevealBottom :: - (IsDocument self, IsEventTarget self) => EventName self Event -webKitWillRevealBottom - = unsafeEventName (toJSString "webkitwillrevealbottom") - --- | -webKitWillRevealLeft :: - (IsDocument self, IsEventTarget self) => EventName self Event -webKitWillRevealLeft - = unsafeEventName (toJSString "webkitwillrevealleft") - --- | -webKitWillRevealRight :: - (IsDocument self, IsEventTarget self) => EventName self Event -webKitWillRevealRight - = unsafeEventName (toJSString "webkitwillrevealright") - --- | -webKitWillRevealTop :: - (IsDocument self, IsEventTarget self) => EventName self Event -webKitWillRevealTop - = unsafeEventName (toJSString "webkitwillrevealtop") - -foreign import javascript unsafe "$1[\"visibilityState\"]" - js_getVisibilityState :: Document -> IO JSString - --- | -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 - --- | -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) - --- | -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) - --- | -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 + +-- | +newDocument :: (MonadIO m) => m Document +newDocument = liftIO (js_newDocument) + +foreign import javascript unsafe "$1[\"createElement\"]($2)" + js_createElement :: + Document -> Nullable JSString -> IO (Nullable Element) + +-- | +createElement :: + (MonadIO m, IsDocument self, ToJSString tagName) => + self -> Maybe tagName -> m (Maybe Element) +createElement self tagName + = liftIO + (nullableToMaybe <$> + (js_createElement (toDocument self) (toMaybeJSString tagName))) + +-- | +createElement_ :: + (MonadIO m, IsDocument self, ToJSString tagName) => + self -> Maybe tagName -> m () +createElement_ self tagName + = liftIO + (void + (js_createElement (toDocument self) (toMaybeJSString tagName))) + +-- | +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) + +-- | +createDocumentFragment :: + (MonadIO m, IsDocument self) => self -> m (Maybe DocumentFragment) +createDocumentFragment self + = liftIO + (nullableToMaybe <$> (js_createDocumentFragment (toDocument self))) + +-- | +createDocumentFragment_ :: + (MonadIO m, IsDocument self) => self -> m () +createDocumentFragment_ self + = liftIO (void (js_createDocumentFragment (toDocument self))) + +-- | +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) + +-- | +createTextNode :: + (MonadIO m, IsDocument self, ToJSString data') => + self -> data' -> m (Maybe Text) +createTextNode self data' + = liftIO + (nullableToMaybe <$> + (js_createTextNode (toDocument self) (toJSString data'))) + +-- | +createTextNode_ :: + (MonadIO m, IsDocument self, ToJSString data') => + self -> data' -> m () +createTextNode_ self data' + = liftIO + (void (js_createTextNode (toDocument self) (toJSString data'))) + +-- | +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) + +-- | +createComment :: + (MonadIO m, IsDocument self, ToJSString data') => + self -> data' -> m (Maybe Comment) +createComment self data' + = liftIO + (nullableToMaybe <$> + (js_createComment (toDocument self) (toJSString data'))) + +-- | +createComment_ :: + (MonadIO m, IsDocument self, ToJSString data') => + self -> data' -> m () +createComment_ self data' + = liftIO + (void (js_createComment (toDocument self) (toJSString data'))) + +-- | +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) + +-- | +createCDATASection :: + (MonadIO m, IsDocument self, ToJSString data') => + self -> data' -> m (Maybe CDATASection) +createCDATASection self data' + = liftIO + (nullableToMaybe <$> + (js_createCDATASection (toDocument self) (toJSString data'))) + +-- | +createCDATASection_ :: + (MonadIO m, IsDocument self, ToJSString data') => + self -> data' -> m () +createCDATASection_ self data' + = liftIO + (void (js_createCDATASection (toDocument self) (toJSString data'))) + +-- | +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) + +-- | +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'))) + +-- | +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'))) + +-- | +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) + +-- | +createAttribute :: + (MonadIO m, IsDocument self, ToJSString name) => + self -> name -> m (Maybe Attr) +createAttribute self name + = liftIO + (nullableToMaybe <$> + (js_createAttribute (toDocument self) (toJSString name))) + +-- | +createAttribute_ :: + (MonadIO m, IsDocument self, ToJSString name) => + self -> name -> m () +createAttribute_ self name + = liftIO + (void (js_createAttribute (toDocument self) (toJSString name))) + +-- | +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) + +-- | +createEntityReference :: + (MonadIO m, IsDocument self, ToJSString name) => + self -> name -> m (Maybe EntityReference) +createEntityReference self name + = liftIO + (nullableToMaybe <$> + (js_createEntityReference (toDocument self) (toJSString name))) + +-- | +createEntityReference_ :: + (MonadIO m, IsDocument self, ToJSString name) => + self -> name -> m () +createEntityReference_ self name + = liftIO + (void + (js_createEntityReference (toDocument self) (toJSString name))) + +-- | +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) + +-- | +getElementsByTagName :: + (MonadIO m, IsDocument self, ToJSString tagname) => + self -> tagname -> m (Maybe NodeList) +getElementsByTagName self tagname + = liftIO + (nullableToMaybe <$> + (js_getElementsByTagName (toDocument self) (toJSString tagname))) + +-- | +getElementsByTagName_ :: + (MonadIO m, IsDocument self, ToJSString tagname) => + self -> tagname -> m () +getElementsByTagName_ self tagname + = liftIO + (void + (js_getElementsByTagName (toDocument self) (toJSString tagname))) + +-- | +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) + +-- | +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)) + +-- | +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)) + +-- | +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) + +-- | +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))) + +-- | +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))) + +-- | +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) + +-- | +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))) + +-- | +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))) + +-- | +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) + +-- | +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))) + +-- | +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))) + +-- | +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) + +-- | +getElementById :: + (MonadIO m, IsDocument self, ToJSString elementId) => + self -> elementId -> m (Maybe Element) +getElementById self elementId + = liftIO + (nullableToMaybe <$> + (js_getElementById (toDocument self) (toJSString elementId))) + +-- | +getElementById_ :: + (MonadIO m, IsDocument self, ToJSString elementId) => + self -> elementId -> m () +getElementById_ self elementId + = liftIO + (void (js_getElementById (toDocument self) (toJSString elementId))) + +-- | +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) + +-- | +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)))) + +-- | +adoptNode_ :: + (MonadIO m, IsDocument self, IsNode source) => + self -> Maybe source -> m () +adoptNode_ self source + = liftIO + (void + (js_adoptNode (toDocument self) + (maybeToNullable (fmap toNode source)))) + +-- | +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) + +-- | +createEvent :: + (MonadIO m, IsDocument self, ToJSString eventType) => + self -> eventType -> m (Maybe Event) +createEvent self eventType + = liftIO + (nullableToMaybe <$> + (js_createEvent (toDocument self) (toJSString eventType))) + +-- | +createEvent_ :: + (MonadIO m, IsDocument self, ToJSString eventType) => + self -> eventType -> m () +createEvent_ self eventType + = liftIO + (void (js_createEvent (toDocument self) (toJSString eventType))) + +-- | +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) + +-- | +createRange :: + (MonadIO m, IsDocument self) => self -> m (Maybe Range) +createRange self + = liftIO (nullableToMaybe <$> (js_createRange (toDocument self))) + +-- | +createRange_ :: (MonadIO m, IsDocument self) => self -> m () +createRange_ self + = liftIO (void (js_createRange (toDocument self))) + +-- | +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) + +-- | +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)) + +-- | +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)) + +-- | +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) + +-- | +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)) + +-- | +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)) + +-- | +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) + +-- | +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))) + +-- | +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))) + +-- | +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) + +-- | +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))) + +-- | +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))) + +-- | +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) + +-- | +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)))) + +-- | +createNSResolver_ :: + (MonadIO m, IsDocument self, IsNode nodeResolver) => + self -> Maybe nodeResolver -> m () +createNSResolver_ self nodeResolver + = liftIO + (void + (js_createNSResolver (toDocument self) + (maybeToNullable (fmap toNode nodeResolver)))) + +-- | +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) + +-- | +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))) + +-- | +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))) + +-- | +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 + +-- | +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)) + +-- | +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 + +-- | +queryCommandEnabled :: + (MonadIO m, IsDocument self, ToJSString command) => + self -> command -> m Bool +queryCommandEnabled self command + = liftIO + (js_queryCommandEnabled (toDocument self) (toJSString command)) + +-- | +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 + +-- | +queryCommandIndeterm :: + (MonadIO m, IsDocument self, ToJSString command) => + self -> command -> m Bool +queryCommandIndeterm self command + = liftIO + (js_queryCommandIndeterm (toDocument self) (toJSString command)) + +-- | +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 + +-- | +queryCommandState :: + (MonadIO m, IsDocument self, ToJSString command) => + self -> command -> m Bool +queryCommandState self command + = liftIO + (js_queryCommandState (toDocument self) (toJSString command)) + +-- | +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 + +-- | +queryCommandSupported :: + (MonadIO m, IsDocument self, ToJSString command) => + self -> command -> m Bool +queryCommandSupported self command + = liftIO + (js_queryCommandSupported (toDocument self) (toJSString command)) + +-- | +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 + +-- | +queryCommandValue :: + (MonadIO m, IsDocument self, ToJSString command, + FromJSString result) => + self -> command -> m result +queryCommandValue self command + = liftIO + (fromJSString <$> + (js_queryCommandValue (toDocument self) (toJSString command))) + +-- | +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) + +-- | +getElementsByName :: + (MonadIO m, IsDocument self, ToJSString elementName) => + self -> elementName -> m (Maybe NodeList) +getElementsByName self elementName + = liftIO + (nullableToMaybe <$> + (js_getElementsByName (toDocument self) (toJSString elementName))) + +-- | +getElementsByName_ :: + (MonadIO m, IsDocument self, ToJSString elementName) => + self -> elementName -> m () +getElementsByName_ self elementName + = liftIO + (void + (js_getElementsByName (toDocument self) (toJSString elementName))) + +-- | +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) + +-- | +elementFromPoint :: + (MonadIO m, IsDocument self) => + self -> Int -> Int -> m (Maybe Element) +elementFromPoint self x y + = liftIO + (nullableToMaybe <$> (js_elementFromPoint (toDocument self) x y)) + +-- | +elementFromPoint_ :: + (MonadIO m, IsDocument self) => self -> Int -> Int -> m () +elementFromPoint_ self x y + = liftIO (void (js_elementFromPoint (toDocument self) x y)) + +-- | +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) + +-- | +caretRangeFromPoint :: + (MonadIO m, IsDocument self) => + self -> Int -> Int -> m (Maybe Range) +caretRangeFromPoint self x y + = liftIO + (nullableToMaybe <$> + (js_caretRangeFromPoint (toDocument self) x y)) + +-- | +caretRangeFromPoint_ :: + (MonadIO m, IsDocument self) => self -> Int -> Int -> m () +caretRangeFromPoint_ self x y + = liftIO (void (js_caretRangeFromPoint (toDocument self) x y)) + +-- | +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) + +-- | +getSelection :: + (MonadIO m, IsDocument self) => self -> m (Maybe Selection) +getSelection self + = liftIO (nullableToMaybe <$> (js_getSelection (toDocument self))) + +-- | +getSelection_ :: (MonadIO m, IsDocument self) => self -> m () +getSelection_ self + = liftIO (void (js_getSelection (toDocument self))) + +-- | +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) + +-- | +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)) + +-- | +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)) + +-- | +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) + +-- | +getElementsByClassName :: + (MonadIO m, IsDocument self, ToJSString tagname) => + self -> tagname -> m (Maybe NodeList) +getElementsByClassName self tagname + = liftIO + (nullableToMaybe <$> + (js_getElementsByClassName (toDocument self) (toJSString tagname))) + +-- | +getElementsByClassName_ :: + (MonadIO m, IsDocument self, ToJSString tagname) => + self -> tagname -> m () +getElementsByClassName_ self tagname + = liftIO + (void + (js_getElementsByClassName (toDocument self) (toJSString tagname))) + +-- | +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 + +-- | +hasFocus :: (MonadIO m, IsDocument self) => self -> m Bool +hasFocus self = liftIO (js_hasFocus (toDocument self)) + +-- | +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) + +-- | +querySelector :: + (MonadIO m, IsDocument self, ToJSString selectors) => + self -> selectors -> m (Maybe Element) +querySelector self selectors + = liftIO + (nullableToMaybe <$> + (js_querySelector (toDocument self) (toJSString selectors))) + +-- | +querySelector_ :: + (MonadIO m, IsDocument self, ToJSString selectors) => + self -> selectors -> m () +querySelector_ self selectors + = liftIO + (void (js_querySelector (toDocument self) (toJSString selectors))) + +-- | +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) + +-- | +querySelectorAll :: + (MonadIO m, IsDocument self, ToJSString selectors) => + self -> selectors -> m (Maybe NodeList) +querySelectorAll self selectors + = liftIO + (nullableToMaybe <$> + (js_querySelectorAll (toDocument self) (toJSString selectors))) + +-- | +querySelectorAll_ :: + (MonadIO m, IsDocument self, ToJSString selectors) => + self -> selectors -> m () +querySelectorAll_ self selectors + = liftIO + (void + (js_querySelectorAll (toDocument self) (toJSString selectors))) + +-- | +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 () + +-- | +webkitCancelFullScreen :: + (MonadIO m, IsDocument self) => self -> m () +webkitCancelFullScreen self + = liftIO (js_webkitCancelFullScreen (toDocument self)) + +foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()" + js_webkitExitFullscreen :: Document -> IO () + +-- | +webkitExitFullscreen :: + (MonadIO m, IsDocument self) => self -> m () +webkitExitFullscreen self + = liftIO (js_webkitExitFullscreen (toDocument self)) + +foreign import javascript unsafe "$1[\"exitPointerLock\"]()" + js_exitPointerLock :: Document -> IO () + +-- | +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) + +-- | +webkitGetNamedFlows :: + (MonadIO m, IsDocument self) => + self -> m (Maybe DOMNamedFlowCollection) +webkitGetNamedFlows self + = liftIO + (nullableToMaybe <$> (js_webkitGetNamedFlows (toDocument self))) + +-- | +webkitGetNamedFlows_ :: + (MonadIO m, IsDocument self) => self -> m () +webkitGetNamedFlows_ self + = liftIO (void (js_webkitGetNamedFlows (toDocument self))) + +-- | +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) + +-- | +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)) + +-- | +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)) + +-- | +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) + +-- | +createTouchList :: + (MonadIO m, IsDocument self) => self -> m (Maybe TouchList) +createTouchList self + = liftIO + (nullableToMaybe <$> (js_createTouchList (toDocument self))) + +-- | +createTouchList_ :: (MonadIO m, IsDocument self) => self -> m () +createTouchList_ self + = liftIO (void (js_createTouchList (toDocument self))) + +-- | +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) + +-- | +getDoctype :: + (MonadIO m, IsDocument self) => self -> m (Maybe DocumentType) +getDoctype self + = liftIO (nullableToMaybe <$> (js_getDoctype (toDocument self))) + +-- | +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) + +-- | +getImplementation :: + (MonadIO m, IsDocument self) => self -> m (Maybe DOMImplementation) +getImplementation self + = liftIO + (nullableToMaybe <$> (js_getImplementation (toDocument self))) + +-- | +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) + +-- | +getDocumentElement :: + (MonadIO m, IsDocument self) => self -> m (Maybe Element) +getDocumentElement self + = liftIO + (nullableToMaybe <$> (js_getDocumentElement (toDocument self))) + +-- | +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) + +-- | +getInputEncoding :: + (MonadIO m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getInputEncoding self + = liftIO + (fromMaybeJSString <$> (js_getInputEncoding (toDocument self))) + +-- | +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) + +-- | +getXmlEncoding :: + (MonadIO m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getXmlEncoding self + = liftIO + (fromMaybeJSString <$> (js_getXmlEncoding (toDocument self))) + +-- | +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 () + +-- | +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) + +-- | +getXmlVersion :: + (MonadIO m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getXmlVersion self + = liftIO + (fromMaybeJSString <$> (js_getXmlVersion (toDocument self))) + +-- | +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 () + +-- | +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 + +-- | +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) + +-- | +getDocumentURI :: + (MonadIO m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getDocumentURI self + = liftIO + (fromMaybeJSString <$> (js_getDocumentURI (toDocument self))) + +-- | +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) + +-- | +getDefaultView :: + (MonadIO m, IsDocument self) => self -> m (Maybe Window) +getDefaultView self + = liftIO + (nullableToMaybe <$> (js_getDefaultView (toDocument self))) + +-- | +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) + +-- | +getStyleSheets :: + (MonadIO m, IsDocument self) => self -> m (Maybe StyleSheetList) +getStyleSheets self + = liftIO + (nullableToMaybe <$> (js_getStyleSheets (toDocument self))) + +-- | +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 + +-- | +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 () + +-- | +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) + +-- | +getTitle :: + (MonadIO m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getTitle self + = liftIO (fromMaybeJSString <$> (js_getTitle (toDocument self))) + +-- | +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 + +-- | +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 () + +-- | +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) + +-- | +getDomain :: + (MonadIO m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getDomain self + = liftIO (fromMaybeJSString <$> (js_getDomain (toDocument self))) + +-- | +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 + +-- | +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 () + +-- | +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) + +-- | +getCookie :: + (MonadIO m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getCookie self + = liftIO (fromMaybeJSString <$> (js_getCookie (toDocument self))) + +-- | +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 () + +-- | +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) + +-- | +getBody :: + (MonadIO m, IsDocument self) => self -> m (Maybe HTMLElement) +getBody self + = liftIO (nullableToMaybe <$> (js_getBody (toDocument self))) + +-- | +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) + +-- | +getHead :: + (MonadIO m, IsDocument self) => self -> m (Maybe HTMLHeadElement) +getHead self + = liftIO (nullableToMaybe <$> (js_getHead (toDocument self))) + +-- | +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) + +-- | +getImages :: + (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection) +getImages self + = liftIO (nullableToMaybe <$> (js_getImages (toDocument self))) + +-- | +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) + +-- | +getApplets :: + (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection) +getApplets self + = liftIO (nullableToMaybe <$> (js_getApplets (toDocument self))) + +-- | +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) + +-- | +getLinks :: + (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection) +getLinks self + = liftIO (nullableToMaybe <$> (js_getLinks (toDocument self))) + +-- | +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) + +-- | +getForms :: + (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection) +getForms self + = liftIO (nullableToMaybe <$> (js_getForms (toDocument self))) + +-- | +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) + +-- | +getAnchors :: + (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection) +getAnchors self + = liftIO (nullableToMaybe <$> (js_getAnchors (toDocument self))) + +-- | +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 + +-- | +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 () + +-- | +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) + +-- | +getLocation :: + (MonadIO m, IsDocument self) => self -> m (Maybe Location) +getLocation self + = liftIO (nullableToMaybe <$> (js_getLocation (toDocument self))) + +-- | +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 () + +-- | +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) + +-- | +getCharset :: + (MonadIO m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getCharset self + = liftIO (fromMaybeJSString <$> (js_getCharset (toDocument self))) + +-- | +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) + +-- | +getDefaultCharset :: + (MonadIO m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getDefaultCharset self + = liftIO + (fromMaybeJSString <$> (js_getDefaultCharset (toDocument self))) + +-- | +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) + +-- | +getReadyState :: + (MonadIO m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getReadyState self + = liftIO + (fromMaybeJSString <$> (js_getReadyState (toDocument self))) + +-- | +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) + +-- | +getCharacterSet :: + (MonadIO m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getCharacterSet self + = liftIO + (fromMaybeJSString <$> (js_getCharacterSet (toDocument self))) + +-- | +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) + +-- | +getPreferredStylesheetSet :: + (MonadIO m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getPreferredStylesheetSet self + = liftIO + (fromMaybeJSString <$> + (js_getPreferredStylesheetSet (toDocument self))) + +-- | +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 () + +-- | +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) + +-- | +getSelectedStylesheetSet :: + (MonadIO m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getSelectedStylesheetSet self + = liftIO + (fromMaybeJSString <$> + (js_getSelectedStylesheetSet (toDocument self))) + +-- | +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) + +-- | +getActiveElement :: + (MonadIO m, IsDocument self) => self -> m (Maybe Element) +getActiveElement self + = liftIO + (nullableToMaybe <$> (js_getActiveElement (toDocument self))) + +-- | +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 + +-- | +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 + +-- | +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 + +-- | +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) + +-- | +getWebkitCurrentFullScreenElement :: + (MonadIO m, IsDocument self) => self -> m (Maybe Element) +getWebkitCurrentFullScreenElement self + = liftIO + (nullableToMaybe <$> + (js_getWebkitCurrentFullScreenElement (toDocument self))) + +-- | +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 + +-- | +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) + +-- | +getWebkitFullscreenElement :: + (MonadIO m, IsDocument self) => self -> m (Maybe Element) +getWebkitFullscreenElement self + = liftIO + (nullableToMaybe <$> + (js_getWebkitFullscreenElement (toDocument self))) + +-- | +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) + +-- | +getPointerLockElement :: + (MonadIO m, IsDocument self) => self -> m (Maybe Element) +getPointerLockElement self + = liftIO + (nullableToMaybe <$> (js_getPointerLockElement (toDocument self))) + +-- | +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) + +-- | +getFonts :: + (MonadIO m, IsDocument self) => self -> m (Maybe FontLoader) +getFonts self + = liftIO (nullableToMaybe <$> (js_getFonts (toDocument self))) + +-- | +getFontsUnchecked :: + (MonadIO m, IsDocument self) => self -> m FontLoader +getFontsUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getFonts (toDocument self))) + +-- | +abort :: + (IsDocument self, IsEventTarget self) => EventName self UIEvent +abort = unsafeEventName (toJSString "abort") + +-- | +blur :: + (IsDocument self, IsEventTarget self) => EventName self FocusEvent +blur = unsafeEventName (toJSString "blur") + +-- | +change :: + (IsDocument self, IsEventTarget self) => EventName self Event +change = unsafeEventName (toJSString "change") + +-- | +click :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +click = unsafeEventName (toJSString "click") + +-- | +contextMenu :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +contextMenu = unsafeEventName (toJSString "contextmenu") + +-- | +dblClick :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +dblClick = unsafeEventName (toJSString "dblclick") + +-- | +drag :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +drag = unsafeEventName (toJSString "drag") + +-- | +dragEnd :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +dragEnd = unsafeEventName (toJSString "dragend") + +-- | +dragEnter :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +dragEnter = unsafeEventName (toJSString "dragenter") + +-- | +dragLeave :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +dragLeave = unsafeEventName (toJSString "dragleave") + +-- | +dragOver :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +dragOver = unsafeEventName (toJSString "dragover") + +-- | +dragStart :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +dragStart = unsafeEventName (toJSString "dragstart") + +-- | +drop :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +drop = unsafeEventName (toJSString "drop") + +-- | +error :: + (IsDocument self, IsEventTarget self) => EventName self UIEvent +error = unsafeEventName (toJSString "error") + +-- | +focus :: + (IsDocument self, IsEventTarget self) => EventName self FocusEvent +focus = unsafeEventName (toJSString "focus") + +-- | +input :: + (IsDocument self, IsEventTarget self) => EventName self Event +input = unsafeEventName (toJSString "input") + +-- | +invalid :: + (IsDocument self, IsEventTarget self) => EventName self Event +invalid = unsafeEventName (toJSString "invalid") + +-- | +keyDown :: + (IsDocument self, IsEventTarget self) => + EventName self KeyboardEvent +keyDown = unsafeEventName (toJSString "keydown") + +-- | +keyPress :: + (IsDocument self, IsEventTarget self) => + EventName self KeyboardEvent +keyPress = unsafeEventName (toJSString "keypress") + +-- | +keyUp :: + (IsDocument self, IsEventTarget self) => + EventName self KeyboardEvent +keyUp = unsafeEventName (toJSString "keyup") + +-- | +load :: + (IsDocument self, IsEventTarget self) => EventName self UIEvent +load = unsafeEventName (toJSString "load") + +-- | +mouseDown :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +mouseDown = unsafeEventName (toJSString "mousedown") + +-- | +mouseEnter :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +mouseEnter = unsafeEventName (toJSString "mouseenter") + +-- | +mouseLeave :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +mouseLeave = unsafeEventName (toJSString "mouseleave") + +-- | +mouseMove :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +mouseMove = unsafeEventName (toJSString "mousemove") + +-- | +mouseOut :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +mouseOut = unsafeEventName (toJSString "mouseout") + +-- | +mouseOver :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +mouseOver = unsafeEventName (toJSString "mouseover") + +-- | +mouseUp :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +mouseUp = unsafeEventName (toJSString "mouseup") + +-- | +mouseWheel :: + (IsDocument self, IsEventTarget self) => EventName self MouseEvent +mouseWheel = unsafeEventName (toJSString "mousewheel") + +-- | +readyStateChange :: + (IsDocument self, IsEventTarget self) => EventName self Event +readyStateChange = unsafeEventName (toJSString "readystatechange") + +-- | +scroll :: + (IsDocument self, IsEventTarget self) => EventName self UIEvent +scroll = unsafeEventName (toJSString "scroll") + +-- | +select :: + (IsDocument self, IsEventTarget self) => EventName self UIEvent +select = unsafeEventName (toJSString "select") + +-- | +submit :: + (IsDocument self, IsEventTarget self) => EventName self Event +submit = unsafeEventName (toJSString "submit") + +-- | +wheel :: + (IsDocument self, IsEventTarget self) => EventName self WheelEvent +wheel = unsafeEventName (toJSString "wheel") + +-- | +beforeCut :: + (IsDocument self, IsEventTarget self) => EventName self Event +beforeCut = unsafeEventName (toJSString "beforecut") + +-- | +cut :: + (IsDocument self, IsEventTarget self) => EventName self Event +cut = unsafeEventName (toJSString "cut") + +-- | +beforeCopy :: + (IsDocument self, IsEventTarget self) => EventName self Event +beforeCopy = unsafeEventName (toJSString "beforecopy") + +-- | +copy :: + (IsDocument self, IsEventTarget self) => EventName self Event +copy = unsafeEventName (toJSString "copy") + +-- | +beforePaste :: + (IsDocument self, IsEventTarget self) => EventName self Event +beforePaste = unsafeEventName (toJSString "beforepaste") + +-- | +paste :: + (IsDocument self, IsEventTarget self) => EventName self Event +paste = unsafeEventName (toJSString "paste") + +-- | +reset :: + (IsDocument self, IsEventTarget self) => EventName self Event +reset = unsafeEventName (toJSString "reset") + +-- | +search :: + (IsDocument self, IsEventTarget self) => EventName self Event +search = unsafeEventName (toJSString "search") + +-- | +selectStart :: + (IsDocument self, IsEventTarget self) => EventName self Event +selectStart = unsafeEventName (toJSString "selectstart") + +-- | +selectionchange :: + (IsDocument self, IsEventTarget self) => + EventName self onselectionchange +selectionchange = unsafeEventName (toJSString "selectionchange") + +-- | +touchStart :: + (IsDocument self, IsEventTarget self) => EventName self TouchEvent +touchStart = unsafeEventName (toJSString "touchstart") + +-- | +touchMove :: + (IsDocument self, IsEventTarget self) => EventName self TouchEvent +touchMove = unsafeEventName (toJSString "touchmove") + +-- | +touchEnd :: + (IsDocument self, IsEventTarget self) => EventName self TouchEvent +touchEnd = unsafeEventName (toJSString "touchend") + +-- | +touchCancel :: + (IsDocument self, IsEventTarget self) => EventName self TouchEvent +touchCancel = unsafeEventName (toJSString "touchcancel") + +-- | +webKitFullscreenChange :: + (IsDocument self, IsEventTarget self) => EventName self Event +webKitFullscreenChange + = unsafeEventName (toJSString "webkitfullscreenchange") + +-- | +webKitFullscreenError :: + (IsDocument self, IsEventTarget self) => EventName self Event +webKitFullscreenError + = unsafeEventName (toJSString "webkitfullscreenerror") + +-- | +pointerlockchange :: + (IsDocument self, IsEventTarget self) => EventName self Event +pointerlockchange + = unsafeEventName (toJSString "pointerlockchange") + +-- | +pointerlockerror :: + (IsDocument self, IsEventTarget self) => EventName self Event +pointerlockerror = unsafeEventName (toJSString "pointerlockerror") + +-- | +securitypolicyviolation :: + (IsDocument self, IsEventTarget self) => + EventName self onsecuritypolicyviolation +securitypolicyviolation + = unsafeEventName (toJSString "securitypolicyviolation") + +-- | +webKitWillRevealBottom :: + (IsDocument self, IsEventTarget self) => EventName self Event +webKitWillRevealBottom + = unsafeEventName (toJSString "webkitwillrevealbottom") + +-- | +webKitWillRevealLeft :: + (IsDocument self, IsEventTarget self) => EventName self Event +webKitWillRevealLeft + = unsafeEventName (toJSString "webkitwillrevealleft") + +-- | +webKitWillRevealRight :: + (IsDocument self, IsEventTarget self) => EventName self Event +webKitWillRevealRight + = unsafeEventName (toJSString "webkitwillrevealright") + +-- | +webKitWillRevealTop :: + (IsDocument self, IsEventTarget self) => EventName self Event +webKitWillRevealTop + = unsafeEventName (toJSString "webkitwillrevealtop") + +foreign import javascript unsafe "$1[\"visibilityState\"]" + js_getVisibilityState :: Document -> IO JSString + +-- | +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 + +-- | +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) + +-- | +getSecurityPolicy :: + (MonadIO m, IsDocument self) => self -> m (Maybe SecurityPolicy) +getSecurityPolicy self + = liftIO + (nullableToMaybe <$> (js_getSecurityPolicy (toDocument self))) + +-- | +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) + +-- | +getCurrentScript :: + (MonadIO m, IsDocument self) => self -> m (Maybe HTMLScriptElement) +getCurrentScript self + = liftIO + (nullableToMaybe <$> (js_getCurrentScript (toDocument self))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs b/src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs @@ -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))) + +-- | +querySelector_ :: + (MonadIO m, ToJSString selectors) => + DocumentFragment -> selectors -> m () +querySelector_ self selectors + = liftIO (void (js_querySelector (self) (toJSString selectors))) + +-- | +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))) + +-- | +querySelectorAll_ :: + (MonadIO m, ToJSString selectors) => + DocumentFragment -> selectors -> m () +querySelectorAll_ self selectors + = liftIO (void (js_querySelectorAll (self) (toJSString selectors))) + +-- | +querySelectorAllUnchecked :: + (MonadIO m, ToJSString selectors) => + DocumentFragment -> selectors -> m NodeList +querySelectorAllUnchecked self selectors + = liftIO + (fromJust . nullableToMaybe <$> (js_querySelectorAll (self) (toJSString selectors))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs b/src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getInternalSubsetUnchecked :: + (MonadIO m, FromJSString result) => DocumentType -> m result +getInternalSubsetUnchecked self + = liftIO + (fromJust . fromMaybeJSString <$> (js_getInternalSubset (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs b/src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getReleaseUnchecked :: + (MonadIO m) => DynamicsCompressorNode -> m AudioParam +getReleaseUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getRelease (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs b/src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs --- a/src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/EXTTextureFilterAnisotropic.hs b/src/GHCJS/DOM/JSFFI/Generated/EXTTextureFilterAnisotropic.hs --- a/src/GHCJS/DOM/JSFFI/Generated/EXTTextureFilterAnisotropic.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/EXTTextureFilterAnisotropic.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/EXTsRGB.hs b/src/GHCJS/DOM/JSFFI/Generated/EXTsRGB.hs --- a/src/GHCJS/DOM/JSFFI/Generated/EXTsRGB.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/EXTsRGB.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Element.hs b/src/GHCJS/DOM/JSFFI/Generated/Element.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Element.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Element.hs @@ -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))) + +-- | +getAttribute_ :: + (MonadIO m, IsElement self, ToJSString name) => + self -> name -> m () +getAttribute_ self name + = liftIO + (void (js_getAttribute (toElement self) (toJSString name))) + +-- | +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))) + +-- | +getAttributeNode_ :: + (MonadIO m, IsElement self, ToJSString name) => + self -> name -> m () +getAttributeNode_ self name + = liftIO + (void (js_getAttributeNode (toElement self) (toJSString name))) + +-- | +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))) + +-- | +setAttributeNode_ :: + (MonadIO m, IsElement self) => self -> Maybe Attr -> m () +setAttributeNode_ self newAttr + = liftIO + (void + (js_setAttributeNode (toElement self) (maybeToNullable newAttr))) + +-- | +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))) + +-- | +removeAttributeNode_ :: + (MonadIO m, IsElement self) => self -> Maybe Attr -> m () +removeAttributeNode_ self oldAttr + = liftIO + (void + (js_removeAttributeNode (toElement self) + (maybeToNullable oldAttr))) + +-- | +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))) + +-- | +getElementsByTagName_ :: + (MonadIO m, IsElement self, ToJSString name) => + self -> name -> m () +getElementsByTagName_ self name + = liftIO + (void (js_getElementsByTagName (toElement self) (toJSString name))) + +-- | +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 @@ -- | hasAttributes :: (MonadIO m, IsElement self) => self -> m Bool hasAttributes self = liftIO (js_hasAttributes (toElement self)) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +setAttributeNodeNS_ :: + (MonadIO m, IsElement self) => self -> Maybe Attr -> m () +setAttributeNodeNS_ self newAttr + = liftIO + (void + (js_setAttributeNodeNS (toElement self) (maybeToNullable newAttr))) + +-- | +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)) + +-- | +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)) + +-- | +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))) + +-- | +getElementsByClassName_ :: + (MonadIO m, IsElement self, ToJSString name) => + self -> name -> m () +getElementsByClassName_ self name + = liftIO + (void + (js_getElementsByClassName (toElement self) (toJSString name))) + +-- | +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))) + +-- | +querySelector_ :: + (MonadIO m, IsElement self, ToJSString selectors) => + self -> selectors -> m () +querySelector_ self selectors + = liftIO + (void (js_querySelector (toElement self) (toJSString selectors))) + +-- | +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))) + +-- | +querySelectorAll_ :: + (MonadIO m, IsElement self, ToJSString selectors) => + self -> selectors -> m () +querySelectorAll_ self selectors + = liftIO + (void + (js_querySelectorAll (toElement self) (toJSString selectors))) + +-- | +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)) + +-- | +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))) + +-- | +closest_ :: + (MonadIO m, IsElement self, ToJSString selectors) => + self -> selectors -> m () +closest_ self selectors + = liftIO + (void (js_closest (toElement self) (toJSString selectors))) + +-- | +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)) + +-- | +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))) + +-- | +getClientRects_ :: (MonadIO m, IsElement self) => self -> m () +getClientRects_ self + = liftIO (void (js_getClientRects (toElement self))) + +-- | +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))) + +-- | +getBoundingClientRect_ :: + (MonadIO m, IsElement self) => self -> m () +getBoundingClientRect_ self + = liftIO (void (js_getBoundingClientRect (toElement self))) + +-- | +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) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/Entity.hs b/src/GHCJS/DOM/JSFFI/Generated/Entity.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Entity.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Entity.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +getNotationNameUnchecked :: + (MonadIO m, FromJSString result) => Entity -> m result +getNotationNameUnchecked self + = liftIO + (fromJust . fromMaybeJSString <$> (js_getNotationName (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Enums.hs b/src/GHCJS/DOM/JSFFI/Generated/Enums.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Enums.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Enums.hs @@ -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 ((<$>)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Event.hs b/src/GHCJS/DOM/JSFFI/Generated/Event.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Event.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Event.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getClipboardDataUnchecked :: + (MonadIO m, IsEvent self) => self -> m DataTransfer +getClipboardDataUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getClipboardData (toEvent self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/EventListener.hs b/src/GHCJS/DOM/JSFFI/Generated/EventListener.hs --- a/src/GHCJS/DOM/JSFFI/Generated/EventListener.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/EventListener.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/EventSource.hs b/src/GHCJS/DOM/JSFFI/Generated/EventSource.hs --- a/src/GHCJS/DOM/JSFFI/Generated/EventSource.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/EventSource.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs b/src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs --- a/src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs @@ -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))) + +-- | +dispatchEvent_ :: + (MonadIO m, IsEventTarget self, IsEvent event) => + self -> Maybe event -> m () +dispatchEvent_ self event + = liftIO + (void + (js_dispatchEvent (toEventTarget self) + (maybeToNullable (fmap toEvent event)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/File.hs b/src/GHCJS/DOM/JSFFI/Generated/File.hs --- a/src/GHCJS/DOM/JSFFI/Generated/File.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/File.hs @@ -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))) + +-- | +getLastModifiedDateUnchecked :: (MonadIO m) => File -> m Date +getLastModifiedDateUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getLastModifiedDate (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/FileError.hs b/src/GHCJS/DOM/JSFFI/Generated/FileError.hs --- a/src/GHCJS/DOM/JSFFI/Generated/FileError.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/FileError.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/FileList.hs b/src/GHCJS/DOM/JSFFI/Generated/FileList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/FileList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/FileList.hs @@ -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)) + +-- | +item_ :: (MonadIO m) => FileList -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/FileReader.hs b/src/GHCJS/DOM/JSFFI/Generated/FileReader.hs --- a/src/GHCJS/DOM/JSFFI/Generated/FileReader.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/FileReader.hs @@ -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 @@ -- | getError :: (MonadIO m) => FileReader -> m (Maybe FileError) getError self = liftIO (nullableToMaybe <$> (js_getError (self))) + +-- | +getErrorUnchecked :: (MonadIO m) => FileReader -> m FileError +getErrorUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getError (self))) -- | loadStart :: EventName FileReader ProgressEvent diff --git a/src/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs b/src/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs --- a/src/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs @@ -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)))) + +-- | +readAsArrayBuffer_ :: + (MonadIO m, IsBlob blob) => FileReaderSync -> Maybe blob -> m () +readAsArrayBuffer_ self blob + = liftIO + (void + (js_readAsArrayBuffer (self) (maybeToNullable (fmap toBlob blob)))) + +-- | +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)))) + +-- | +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))) + +-- | +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)))) + +-- | +readAsDataURL_ :: + (MonadIO m, IsBlob blob) => FileReaderSync -> Maybe blob -> m () +readAsDataURL_ self blob + = liftIO + (void (js_readAsDataURL (self) (maybeToNullable (fmap toBlob blob)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs @@ -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))) + +-- | +getRelatedTargetUnchecked :: + (MonadIO m) => FocusEvent -> m EventTarget +getRelatedTargetUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getRelatedTarget (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs b/src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs --- a/src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs @@ -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)) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/FormData.hs b/src/GHCJS/DOM/JSFFI/Generated/FormData.hs --- a/src/GHCJS/DOM/JSFFI/Generated/FormData.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/FormData.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/GainNode.hs b/src/GHCJS/DOM/JSFFI/Generated/GainNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/GainNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/GainNode.hs @@ -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 @@ -- | getGain :: (MonadIO m) => GainNode -> m (Maybe AudioParam) getGain self = liftIO (nullableToMaybe <$> (js_getGain (self))) + +-- | +getGainUnchecked :: (MonadIO m) => GainNode -> m AudioParam +getGainUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getGain (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs b/src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs b/src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs --- a/src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs @@ -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))) + +-- | +getGamepadUnchecked :: (MonadIO m) => GamepadEvent -> m Gamepad +getGamepadUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getGamepad (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs b/src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs @@ -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))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs b/src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs @@ -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 @@ -- | getCoords :: (MonadIO m) => Geoposition -> m (Maybe Coordinates) getCoords self = liftIO (nullableToMaybe <$> (js_getCoords (self))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs @@ -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)) + +-- | +item_ :: (MonadIO m) => HTMLAllCollection -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +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))) + +-- | +namedItem_ :: + (MonadIO m, ToJSString name) => HTMLAllCollection -> name -> m () +namedItem_ self name + = liftIO (void (js_namedItem (self) (toJSString name))) + +-- | +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))) + +-- | +tags_ :: + (MonadIO m, ToJSString name) => HTMLAllCollection -> name -> m () +tags_ self name = liftIO (void (js_tags (self) (toJSString name))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getRelListUnchecked :: + (MonadIO m) => HTMLAnchorElement -> m DOMTokenList +getRelListUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getRelList (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs @@ -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))) + +-- | +getRelListUnchecked :: + (MonadIO m) => HTMLAreaElement -> m DOMTokenList +getRelListUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getRelList (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs @@ -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))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs @@ -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 @@ -- | checkValidity :: (MonadIO m) => HTMLButtonElement -> m Bool checkValidity self = liftIO (js_checkValidity (self)) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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 @@ -- | getLabels :: (MonadIO m) => HTMLButtonElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self))) + +-- | +getLabelsUnchecked :: + (MonadIO m) => HTMLButtonElement -> m NodeList +getLabelsUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs @@ -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'))) + +-- | +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)) + +-- | +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)) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs @@ -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)) + +-- | +item_ :: (MonadIO m, IsHTMLCollection self) => self -> Word -> m () +item_ self index + = liftIO (void (js_item (toHTMLCollection self) index)) + +-- | +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))) + +-- | +namedItem_ :: + (MonadIO m, IsHTMLCollection self, ToJSString name) => + self -> name -> m () +namedItem_ self name + = liftIO + (void (js_namedItem (toHTMLCollection self) (toJSString name))) + +-- | +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 :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs @@ -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))) + +-- | +getOptionsUnchecked :: + (MonadIO m) => HTMLDataListElement -> m HTMLCollection +getOptionsUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getOptions (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getVlinkColorUnchecked :: + (MonadIO m, FromJSString result) => HTMLDocument -> m result +getVlinkColorUnchecked self + = liftIO + (fromJust . fromMaybeJSString <$> (js_getVlinkColor (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs @@ -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)))) + +-- | +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)))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getContentEditableUnchecked :: + (MonadIO m, IsHTMLElement self, FromJSString result) => + self -> m result +getContentEditableUnchecked self + = liftIO + (fromJust . fromMaybeJSString <$> (js_getContentEditable (toHTMLElement self))) foreign import javascript unsafe diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs @@ -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))) + +-- | +getSVGDocument_ :: (MonadIO m) => HTMLEmbedElement -> m () +getSVGDocument_ self = liftIO (void (js_getSVGDocument (self))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs @@ -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 @@ -- | checkValidity :: (MonadIO m) => HTMLFieldSetElement -> m Bool checkValidity self = liftIO (js_checkValidity (self)) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs @@ -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)) + +-- | +_get_ :: (MonadIO m) => HTMLFormControlsCollection -> Word -> m () +_get_ self index = liftIO (void (js__get (self) index)) + +-- | +_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))) + +-- | +namedItem_ :: + (MonadIO m, ToJSString name) => + HTMLFormControlsCollection -> name -> m () +namedItem_ self name + = liftIO (void (js_namedItem (self) (toJSString name))) + +-- | +namedItemUnchecked :: + (MonadIO m, ToJSString name) => + HTMLFormControlsCollection -> name -> m Node +namedItemUnchecked self name + = liftIO + (fromJust . nullableToMaybe <$> + (js_namedItem (self) (toJSString name))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs @@ -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)) + +-- | +_get_ :: (MonadIO m) => HTMLFormElement -> Word -> m () +_get_ self index = liftIO (void (js__get (self) index)) + +-- | +_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 @@ -- | checkValidity :: (MonadIO m) => HTMLFormElement -> m Bool checkValidity self = liftIO (js_checkValidity (self)) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getAutocapitalizeUnchecked :: + (MonadIO m, FromJSString result) => HTMLFormElement -> m result +getAutocapitalizeUnchecked self + = liftIO + (fromJust . fromMaybeJSString <$> (js_getAutocapitalize (self))) -- | autocomplete :: EventName HTMLFormElement onautocomplete diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs @@ -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))) + +-- | +getSVGDocument_ :: (MonadIO m) => HTMLFrameElement -> m () +getSVGDocument_ self = liftIO (void (js_getSVGDocument (self))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs @@ -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))) + +-- | +getSVGDocument_ :: (MonadIO m) => HTMLIFrameElement -> m () +getSVGDocument_ self = liftIO (void (js_getSVGDocument (self))) + +-- | +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))) + +-- | +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))) + +-- | +getContentWindowUnchecked :: + (MonadIO m) => HTMLIFrameElement -> m Window +getContentWindowUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getContentWindow (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs @@ -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 @@ -- | checkValidity :: (MonadIO m) => HTMLInputElement -> m Bool checkValidity self = liftIO (js_checkValidity (self)) + +-- | +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))) + +-- | +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 @@ -- | getFiles :: (MonadIO m) => HTMLInputElement -> m (Maybe FileList) getFiles self = liftIO (nullableToMaybe <$> (js_getFiles (self))) + +-- | +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))) + +-- | +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))) + +-- | +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 @@ -- | getList :: (MonadIO m) => HTMLInputElement -> m (Maybe HTMLElement) getList self = liftIO (nullableToMaybe <$> (js_getList (self))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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 @@ -- | getLabels :: (MonadIO m) => HTMLInputElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self))) + +-- | +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))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs @@ -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 @@ -- | checkValidity :: (MonadIO m) => HTMLKeygenElement -> m Bool checkValidity self = liftIO (js_checkValidity (self)) + +-- | +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))) + +-- | +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))) + +-- | +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 @@ -- | getLabels :: (MonadIO m) => HTMLKeygenElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self))) + +-- | +getLabelsUnchecked :: + (MonadIO m) => HTMLKeygenElement -> m NodeList +getLabelsUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs @@ -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))) + +-- | +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))) + +-- | +getControlUnchecked :: + (MonadIO m) => HTMLLabelElement -> m HTMLElement +getControlUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getControl (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs @@ -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))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs @@ -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))) + +-- | +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 @@ -- | getSheet :: (MonadIO m) => HTMLLinkElement -> m (Maybe StyleSheet) getSheet self = liftIO (nullableToMaybe <$> (js_getSheet (self))) + +-- | +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))) + +-- | +getRelListUnchecked :: + (MonadIO m) => HTMLLinkElement -> m DOMTokenList +getRelListUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getRelList (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs @@ -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))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getVideoPlaybackQuality_ :: + (MonadIO m, IsHTMLMediaElement self) => self -> m () +getVideoPlaybackQuality_ self + = liftIO + (void (js_getVideoPlaybackQuality (toHTMLMediaElement self))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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) + +-- | +getSrcObjectUnchecked :: + (MonadIO m, IsHTMLMediaElement self) => self -> m MediaStream +getSrcObjectUnchecked self = liftIO ((js_getSrcObject (toHTMLMediaElement self)) >>= fromJSValUnchecked) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs @@ -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 @@ -- | getLabels :: (MonadIO m) => HTMLMeterElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self))) + +-- | +getLabelsUnchecked :: (MonadIO m) => HTMLMeterElement -> m NodeList +getLabelsUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs @@ -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 @@ -- | checkValidity :: (MonadIO m) => HTMLObjectElement -> m Bool checkValidity self = liftIO (js_checkValidity (self)) + +-- | +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))) + +-- | +getSVGDocument_ :: (MonadIO m) => HTMLObjectElement -> m () +getSVGDocument_ self = liftIO (void (js_getSVGDocument (self))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getContentDocumentUnchecked :: + (MonadIO m) => HTMLObjectElement -> m Document +getContentDocumentUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getContentDocument (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs @@ -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))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs @@ -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))) + +-- | +namedItem_ :: + (MonadIO m, ToJSString name) => + HTMLOptionsCollection -> name -> m () +namedItem_ self name + = liftIO (void (js_namedItem (self) (toJSString name))) + +-- | +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 :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs @@ -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 @@ -- | checkValidity :: (MonadIO m) => HTMLOutputElement -> m Bool checkValidity self = liftIO (js_checkValidity (self)) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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 @@ -- | getLabels :: (MonadIO m) => HTMLOutputElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self))) + +-- | +getLabelsUnchecked :: + (MonadIO m) => HTMLOutputElement -> m NodeList +getLabelsUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs @@ -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))) + +-- | +getLabelsUnchecked :: + (MonadIO m) => HTMLProgressElement -> m NodeList +getLabelsUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs @@ -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))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs @@ -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)) + +-- | +item_ :: (MonadIO m) => HTMLSelectElement -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +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))) + +-- | +namedItem_ :: + (MonadIO m, ToJSString name) => HTMLSelectElement -> name -> m () +namedItem_ self name + = liftIO (void (js_namedItem (self) (toJSString name))) + +-- | +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 @@ -- | checkValidity :: (MonadIO m) => HTMLSelectElement -> m Bool checkValidity self = liftIO (js_checkValidity (self)) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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 @@ -- | getLabels :: (MonadIO m) => HTMLSelectElement -> m (Maybe NodeList) getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self))) + +-- | +getLabelsUnchecked :: + (MonadIO m) => HTMLSelectElement -> m NodeList +getLabelsUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getLabels (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs @@ -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 @@ -- | getSheet :: (MonadIO m) => HTMLStyleElement -> m (Maybe StyleSheet) getSheet self = liftIO (nullableToMaybe <$> (js_getSheet (self))) + +-- | +getSheetUnchecked :: + (MonadIO m) => HTMLStyleElement -> m StyleSheet +getSheetUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getSheet (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs @@ -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))) + +-- | +createTHead_ :: (MonadIO m) => HTMLTableElement -> m () +createTHead_ self = liftIO (void (js_createTHead (self))) + +-- | +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))) + +-- | +createTFoot_ :: (MonadIO m) => HTMLTableElement -> m () +createTFoot_ self = liftIO (void (js_createTFoot (self))) + +-- | +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))) + +-- | +createTBody_ :: (MonadIO m) => HTMLTableElement -> m () +createTBody_ self = liftIO (void (js_createTBody (self))) + +-- | +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))) + +-- | +createCaption_ :: (MonadIO m) => HTMLTableElement -> m () +createCaption_ self = liftIO (void (js_createCaption (self))) + +-- | +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)) + +-- | +insertRow_ :: (MonadIO m) => HTMLTableElement -> Int -> m () +insertRow_ self index = liftIO (void (js_insertRow (self) index)) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs @@ -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)) + +-- | +insertCell_ :: (MonadIO m) => HTMLTableRowElement -> Int -> m () +insertCell_ self index = liftIO (void (js_insertCell (self) index)) + +-- | +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))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs @@ -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)) + +-- | +insertRow_ :: (MonadIO m) => HTMLTableSectionElement -> Int -> m () +insertRow_ self index = liftIO (void (js_insertRow (self) index)) + +-- | +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))) + +-- | +getRowsUnchecked :: + (MonadIO m) => HTMLTableSectionElement -> m HTMLCollection +getRowsUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getRows (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs @@ -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))) + +-- | +getContentUnchecked :: + (MonadIO m) => HTMLTemplateElement -> m DocumentFragment +getContentUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getContent (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs @@ -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 @@ -- | checkValidity :: (MonadIO m) => HTMLTextAreaElement -> m Bool checkValidity self = liftIO (js_checkValidity (self)) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getAutocapitalizeUnchecked :: + (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result +getAutocapitalizeUnchecked self + = liftIO + (fromJust . fromMaybeJSString <$> (js_getAutocapitalize (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs @@ -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))) + +-- | +getTextUnchecked :: + (MonadIO m, FromJSString result) => HTMLTitleElement -> m result +getTextUnchecked self + = liftIO (fromJust . fromMaybeJSString <$> (js_getText (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs @@ -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 @@ -- | getTrack :: (MonadIO m) => HTMLTrackElement -> m (Maybe TextTrack) getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self))) + +-- | +getTrackUnchecked :: (MonadIO m) => HTMLTrackElement -> m TextTrack +getTrackUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getTrack (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs b/src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs @@ -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)) + +-- | +webkitSupportsPresentationMode_ :: + (MonadIO m) => HTMLVideoElement -> VideoPresentationMode -> m () +webkitSupportsPresentationMode_ self mode + = liftIO + (void (js_webkitSupportsPresentationMode (self) (pToJSVal mode))) foreign import javascript unsafe "$1[\"webkitSetPresentationMode\"]($2)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/History.hs b/src/GHCJS/DOM/JSFFI/Generated/History.hs --- a/src/GHCJS/DOM/JSFFI/Generated/History.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/History.hs @@ -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))) + +-- | +getStateUnchecked :: + (MonadIO m) => History -> m SerializedScriptValue +getStateUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getState (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs @@ -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)) + +-- | +update_ :: (MonadIO m, IsIDBCursor self) => self -> JSVal -> m () +update_ self value + = liftIO (void (js_update (toIDBCursor self) value)) + +-- | +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))) + +-- | +delete_ :: (MonadIO m, IsIDBCursor self) => self -> m () +delete_ self = liftIO (void (js_delete (toIDBCursor self))) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs @@ -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)))) + +-- | +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)))) + +-- | +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))) + +-- | +transaction_ :: + (MonadIO m, ToJSString storeName, ToJSString mode) => + IDBDatabase -> storeName -> mode -> m () +transaction_ self storeName mode + = liftIO + (void + (js_transaction (self) (toJSString storeName) (toJSString mode))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getObjectStoreNamesUnchecked :: + (MonadIO m) => IDBDatabase -> m DOMStringList +getObjectStoreNamesUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getObjectStoreNames (self))) -- | abort :: EventName IDBDatabase Event diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs @@ -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))) + +-- | +open_ :: + (MonadIO m, ToJSString name) => + IDBFactory -> name -> Word64 -> m () +open_ self name version + = liftIO + (void (js_open (self) (toJSString name) (fromIntegral version))) + +-- | +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))) + +-- | +deleteDatabase_ :: + (MonadIO m, ToJSString name) => IDBFactory -> name -> m () +deleteDatabase_ self name + = liftIO (void (js_deleteDatabase (self) (toJSString name))) + +-- | +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 @@ -- | cmp :: (MonadIO m) => IDBFactory -> JSVal -> JSVal -> m Int cmp self first second = liftIO (js_cmp (self) first second) + +-- | +cmp_ :: (MonadIO m) => IDBFactory -> JSVal -> JSVal -> m () +cmp_ self first second = liftIO (void (js_cmp (self) first second)) diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs @@ -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))) + +-- | +openCursorRange_ :: + (MonadIO m, ToJSString direction) => + IDBIndex -> Maybe IDBKeyRange -> direction -> m () +openCursorRange_ self range direction + = liftIO + (void + (js_openCursorRange (self) (maybeToNullable range) + (toJSString direction))) + +-- | +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))) + +-- | +openCursor_ :: + (MonadIO m, ToJSString direction) => + IDBIndex -> JSVal -> direction -> m () +openCursor_ self key direction + = liftIO (void (js_openCursor (self) key (toJSString direction))) + +-- | +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))) + +-- | +openKeyCursorRange_ :: + (MonadIO m, ToJSString direction) => + IDBIndex -> Maybe IDBKeyRange -> direction -> m () +openKeyCursorRange_ self range direction + = liftIO + (void + (js_openKeyCursorRange (self) (maybeToNullable range) + (toJSString direction))) + +-- | +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))) + +-- | +openKeyCursor_ :: + (MonadIO m, ToJSString direction) => + IDBIndex -> JSVal -> direction -> m () +openKeyCursor_ self key direction + = liftIO + (void (js_openKeyCursor (self) key (toJSString direction))) + +-- | +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))) + +-- | +getRange_ :: (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m () +getRange_ self key + = liftIO (void (js_getRange (self) (maybeToNullable key))) + +-- | +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 @@ -- | get :: (MonadIO m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) get self key = liftIO (nullableToMaybe <$> (js_get (self) key)) + +-- | +get_ :: (MonadIO m) => IDBIndex -> JSVal -> m () +get_ self key = liftIO (void (js_get (self) key)) + +-- | +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))) + +-- | +getKeyRange_ :: + (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m () +getKeyRange_ self key + = liftIO (void (js_getKeyRange (self) (maybeToNullable key))) + +-- | +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)) + +-- | +getKey_ :: (MonadIO m) => IDBIndex -> JSVal -> m () +getKey_ self key = liftIO (void (js_getKey (self) key)) + +-- | +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))) + +-- | +countRange_ :: (MonadIO m) => IDBIndex -> Maybe IDBKeyRange -> m () +countRange_ self range + = liftIO (void (js_countRange (self) (maybeToNullable range))) + +-- | +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 @@ -- | count :: (MonadIO m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) count self key = liftIO (nullableToMaybe <$> (js_count (self) key)) + +-- | +count_ :: (MonadIO m) => IDBIndex -> JSVal -> m () +count_ self key = liftIO (void (js_count (self) key)) + +-- | +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))) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs @@ -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)) + +-- | +only_ :: (MonadIO m) => IDBKeyRange -> JSVal -> m () +only_ self value = liftIO (void (js_only (self) value)) + +-- | +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)) + +-- | +lowerBound_ :: (MonadIO m) => IDBKeyRange -> JSVal -> Bool -> m () +lowerBound_ self lower open + = liftIO (void (js_lowerBound (self) lower open)) + +-- | +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)) + +-- | +upperBound_ :: (MonadIO m) => IDBKeyRange -> JSVal -> Bool -> m () +upperBound_ self upper open + = liftIO (void (js_upperBound (self) upper open)) + +-- | +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)) + +-- | +bound_ :: + (MonadIO m) => + IDBKeyRange -> JSVal -> JSVal -> Bool -> Bool -> m () +bound_ self lower upper lowerOpen upperOpen + = liftIO (void (js_bound (self) lower upper lowerOpen upperOpen)) + +-- | +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 :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs @@ -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)) + +-- | +put_ :: (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m () +put_ self value key = liftIO (void (js_put (self) value key)) + +-- | +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)) + +-- | +add_ :: (MonadIO m) => IDBObjectStore -> JSVal -> JSVal -> m () +add_ self value key = liftIO (void (js_add (self) value key)) + +-- | +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))) + +-- | +deleteRange_ :: + (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m () +deleteRange_ self keyRange + = liftIO (void (js_deleteRange (self) (maybeToNullable keyRange))) + +-- | +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)) + +-- | +delete_ :: (MonadIO m) => IDBObjectStore -> JSVal -> m () +delete_ self key = liftIO (void (js_delete (self) key)) + +-- | +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))) + +-- | +getRange_ :: + (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m () +getRange_ self key + = liftIO (void (js_getRange (self) (maybeToNullable key))) + +-- | +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)) + +-- | +get_ :: (MonadIO m) => IDBObjectStore -> JSVal -> m () +get_ self key = liftIO (void (js_get (self) key)) + +-- | +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 @@ -- | clear :: (MonadIO m) => IDBObjectStore -> m (Maybe IDBRequest) clear self = liftIO (nullableToMaybe <$> (js_clear (self))) + +-- | +clear_ :: (MonadIO m) => IDBObjectStore -> m () +clear_ self = liftIO (void (js_clear (self))) + +-- | +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))) + +-- | +openCursorRange_ :: + (MonadIO m, ToJSString direction) => + IDBObjectStore -> Maybe IDBKeyRange -> direction -> m () +openCursorRange_ self range direction + = liftIO + (void + (js_openCursorRange (self) (maybeToNullable range) + (toJSString direction))) + +-- | +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))) + +-- | +openCursor_ :: + (MonadIO m, ToJSString direction) => + IDBObjectStore -> JSVal -> direction -> m () +openCursor_ self key direction + = liftIO (void (js_openCursor (self) key (toJSString direction))) + +-- | +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)))) + +-- | +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)))) + +-- | +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)))) + +-- | +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)))) + +-- | +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))) + +-- | +index_ :: + (MonadIO m, ToJSString name) => IDBObjectStore -> name -> m () +index_ self name + = liftIO (void (js_index (self) (toJSString name))) + +-- | +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))) + +-- | +countRange_ :: + (MonadIO m) => IDBObjectStore -> Maybe IDBKeyRange -> m () +countRange_ self range + = liftIO (void (js_countRange (self) (maybeToNullable range))) + +-- | +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)) + +-- | +count_ :: (MonadIO m) => IDBObjectStore -> JSVal -> m () +count_ self key = liftIO (void (js_count (self) key)) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs @@ -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))) + +-- | +objectStore_ :: + (MonadIO m, ToJSString name) => IDBTransaction -> name -> m () +objectStore_ self name + = liftIO (void (js_objectStore (self) (toJSString name))) + +-- | +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 @@ -- | getDb :: (MonadIO m) => IDBTransaction -> m (Maybe IDBDatabase) getDb self = liftIO (nullableToMaybe <$> (js_getDb (self))) + +-- | +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 @@ -- | getError :: (MonadIO m) => IDBTransaction -> m (Maybe DOMError) getError self = liftIO (nullableToMaybe <$> (js_getError (self))) + +-- | +getErrorUnchecked :: (MonadIO m) => IDBTransaction -> m DOMError +getErrorUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getError (self))) -- | abortEvent :: EventName IDBTransaction Event diff --git a/src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs @@ -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))) + +-- | +getNewVersionUnchecked :: + (MonadIO m) => IDBVersionChangeEvent -> m Word64 +getNewVersionUnchecked self + = liftIO + (round . fromJust . nullableToMaybe <$> (js_getNewVersion (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ImageData.hs b/src/GHCJS/DOM/JSFFI/Generated/ImageData.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ImageData.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ImageData.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs b/src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs --- a/src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs @@ -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))) + +-- | +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))) + +-- | +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 @@ -- | canSave :: (MonadIO m) => InspectorFrontendHost -> m Bool canSave self = liftIO (js_canSave (self)) + +-- | +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))) + +-- | +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))) + +-- | +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 @@ -- | isUnderTest :: (MonadIO m) => InspectorFrontendHost -> m Bool isUnderTest self = liftIO (js_isUnderTest (self)) + +-- | +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 @@ -- | canInspectWorkers :: (MonadIO m) => InspectorFrontendHost -> m Bool canInspectWorkers self = liftIO (js_canInspectWorkers (self)) + +-- | +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 @@ -- | canSaveAs :: (MonadIO m) => InspectorFrontendHost -> m Bool canSaveAs self = liftIO (js_canSaveAs (self)) + +-- | +canSaveAs_ :: (MonadIO m) => InspectorFrontendHost -> m () +canSaveAs_ self = liftIO (void (js_canSaveAs (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/InternalSettings.hs b/src/GHCJS/DOM/JSFFI/Generated/InternalSettings.hs --- a/src/GHCJS/DOM/JSFFI/Generated/InternalSettings.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/InternalSettings.hs @@ -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)) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/Internals.hs b/src/GHCJS/DOM/JSFFI/Generated/Internals.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Internals.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Internals.hs @@ -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 - --- | -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 - --- | -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 - --- | -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 - --- | -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 - --- | -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 - --- | -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 - --- | -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 - --- | -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 () - --- | -clearMemoryCache :: (MonadIO m) => Internals -> m () -clearMemoryCache self = liftIO (js_clearMemoryCache (self)) - -foreign import javascript unsafe - "$1[\"pruneMemoryCacheToSize\"]($2)" js_pruneMemoryCacheToSize :: - Internals -> Int -> IO () - --- | -pruneMemoryCacheToSize :: (MonadIO m) => Internals -> Int -> m () -pruneMemoryCacheToSize self size - = liftIO (js_pruneMemoryCacheToSize (self) size) - -foreign import javascript unsafe "$1[\"memoryCacheSize\"]()" - js_memoryCacheSize :: Internals -> IO Int - --- | -memoryCacheSize :: (MonadIO m) => Internals -> m Int -memoryCacheSize self = liftIO (js_memoryCacheSize (self)) - -foreign import javascript unsafe "$1[\"clearPageCache\"]()" - js_clearPageCache :: Internals -> IO () - --- | -clearPageCache :: (MonadIO m) => Internals -> m () -clearPageCache self = liftIO (js_clearPageCache (self)) - -foreign import javascript unsafe "$1[\"pageCacheSize\"]()" - js_pageCacheSize :: Internals -> IO Word - --- | -pageCacheSize :: (MonadIO m) => Internals -> m Word -pageCacheSize self = liftIO (js_pageCacheSize (self)) - -foreign import javascript unsafe - "$1[\"computedStyleIncludingVisitedInfo\"]($2)" - js_computedStyleIncludingVisitedInfo :: - Internals -> Nullable Node -> IO (Nullable CSSStyleDeclaration) - --- | -computedStyleIncludingVisitedInfo :: - (MonadIO m, IsNode node) => - Internals -> Maybe node -> m (Maybe CSSStyleDeclaration) -computedStyleIncludingVisitedInfo self node - = liftIO - (nullableToMaybe <$> - (js_computedStyleIncludingVisitedInfo (self) - (maybeToNullable (fmap toNode node)))) - -foreign import javascript unsafe "$1[\"ensureShadowRoot\"]($2)" - js_ensureShadowRoot :: - Internals -> Nullable Element -> IO (Nullable Node) - --- | -ensureShadowRoot :: - (MonadIO m, IsElement host) => - Internals -> Maybe host -> m (Maybe Node) -ensureShadowRoot self host - = liftIO - (nullableToMaybe <$> - (js_ensureShadowRoot (self) - (maybeToNullable (fmap toElement host)))) - -foreign import javascript unsafe "$1[\"createShadowRoot\"]($2)" - js_createShadowRoot :: - Internals -> Nullable Element -> IO (Nullable Node) - --- | -createShadowRoot :: - (MonadIO m, IsElement host) => - Internals -> Maybe host -> m (Maybe Node) -createShadowRoot self host - = liftIO - (nullableToMaybe <$> - (js_createShadowRoot (self) - (maybeToNullable (fmap toElement host)))) - -foreign import javascript unsafe "$1[\"shadowRoot\"]($2)" - js_shadowRoot :: - Internals -> Nullable Element -> IO (Nullable Node) - --- | -shadowRoot :: - (MonadIO m, IsElement host) => - Internals -> Maybe host -> m (Maybe Node) -shadowRoot self host - = liftIO - (nullableToMaybe <$> - (js_shadowRoot (self) (maybeToNullable (fmap toElement host)))) - -foreign import javascript unsafe "$1[\"shadowRootType\"]($2)" - js_shadowRootType :: Internals -> Nullable Node -> IO JSString - --- | -shadowRootType :: - (MonadIO m, IsNode root, FromJSString result) => - Internals -> Maybe root -> m result -shadowRootType self root - = liftIO - (fromJSString <$> - (js_shadowRootType (self) (maybeToNullable (fmap toNode root)))) - -foreign import javascript unsafe "$1[\"includerFor\"]($2)" - js_includerFor :: - Internals -> Nullable Node -> IO (Nullable Element) - --- | -includerFor :: - (MonadIO m, IsNode node) => - Internals -> Maybe node -> m (Maybe Element) -includerFor self node - = liftIO - (nullableToMaybe <$> - (js_includerFor (self) (maybeToNullable (fmap toNode node)))) - -foreign import javascript unsafe "$1[\"shadowPseudoId\"]($2)" - js_shadowPseudoId :: Internals -> Nullable Element -> IO JSString - --- | -shadowPseudoId :: - (MonadIO m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -shadowPseudoId self element - = liftIO - (fromJSString <$> - (js_shadowPseudoId (self) - (maybeToNullable (fmap toElement element)))) - -foreign import javascript unsafe - "$1[\"setShadowPseudoId\"]($2, $3)" js_setShadowPseudoId :: - Internals -> Nullable Element -> JSString -> IO () - --- | -setShadowPseudoId :: - (MonadIO m, IsElement element, ToJSString id) => - Internals -> Maybe element -> id -> m () -setShadowPseudoId self element id - = liftIO - (js_setShadowPseudoId (self) - (maybeToNullable (fmap toElement element)) - (toJSString id)) - -foreign import javascript unsafe "$1[\"treeScopeRootNode\"]($2)" - js_treeScopeRootNode :: - Internals -> Nullable Node -> IO (Nullable Node) - --- | -treeScopeRootNode :: - (MonadIO m, IsNode node) => - Internals -> Maybe node -> m (Maybe Node) -treeScopeRootNode self node - = liftIO - (nullableToMaybe <$> - (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node)))) - -foreign import javascript unsafe "$1[\"parentTreeScope\"]($2)" - js_parentTreeScope :: - Internals -> Nullable Node -> IO (Nullable Node) - --- | -parentTreeScope :: - (MonadIO m, IsNode node) => - Internals -> Maybe node -> m (Maybe Node) -parentTreeScope self node - = liftIO - (nullableToMaybe <$> - (js_parentTreeScope (self) (maybeToNullable (fmap toNode node)))) - -foreign import javascript unsafe - "$1[\"lastSpatialNavigationCandidateCount\"]()" - js_lastSpatialNavigationCandidateCount :: Internals -> IO Word - --- | -lastSpatialNavigationCandidateCount :: - (MonadIO m) => Internals -> m Word -lastSpatialNavigationCandidateCount self - = liftIO (js_lastSpatialNavigationCandidateCount (self)) - -foreign import javascript unsafe - "$1[\"numberOfActiveAnimations\"]()" js_numberOfActiveAnimations :: - Internals -> IO Word - --- | -numberOfActiveAnimations :: (MonadIO m) => Internals -> m Word -numberOfActiveAnimations self - = liftIO (js_numberOfActiveAnimations (self)) - -foreign import javascript unsafe "$1[\"suspendAnimations\"]()" - js_suspendAnimations :: Internals -> IO () - --- | -suspendAnimations :: (MonadIO m) => Internals -> m () -suspendAnimations self = liftIO (js_suspendAnimations (self)) - -foreign import javascript unsafe "$1[\"resumeAnimations\"]()" - js_resumeAnimations :: Internals -> IO () - --- | -resumeAnimations :: (MonadIO m) => Internals -> m () -resumeAnimations self = liftIO (js_resumeAnimations (self)) - -foreign import javascript unsafe - "($1[\"animationsAreSuspended\"]() ? 1 : 0)" - js_animationsAreSuspended :: Internals -> IO Bool - --- | -animationsAreSuspended :: (MonadIO m) => Internals -> m Bool -animationsAreSuspended self - = liftIO (js_animationsAreSuspended (self)) - -foreign import javascript unsafe - "($1[\"pauseAnimationAtTimeOnElement\"]($2,\n$3, $4) ? 1 : 0)" - js_pauseAnimationAtTimeOnElement :: - Internals -> JSString -> Double -> Nullable Element -> IO Bool - --- | -pauseAnimationAtTimeOnElement :: - (MonadIO m, ToJSString animationName, IsElement element) => - Internals -> animationName -> Double -> Maybe element -> m Bool -pauseAnimationAtTimeOnElement self animationName pauseTime element - = liftIO - (js_pauseAnimationAtTimeOnElement (self) (toJSString animationName) - pauseTime - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "($1[\"pauseAnimationAtTimeOnPseudoElement\"]($2,\n$3, $4, $5) ? 1 : 0)" - js_pauseAnimationAtTimeOnPseudoElement :: - Internals -> - JSString -> Double -> Nullable Element -> JSString -> IO Bool - --- | -pauseAnimationAtTimeOnPseudoElement :: - (MonadIO m, ToJSString animationName, IsElement element, - ToJSString pseudoId) => - Internals -> - animationName -> - Double -> Maybe element -> pseudoId -> m Bool -pauseAnimationAtTimeOnPseudoElement self animationName pauseTime - element pseudoId - = liftIO - (js_pauseAnimationAtTimeOnPseudoElement (self) - (toJSString animationName) - pauseTime - (maybeToNullable (fmap toElement element)) - (toJSString pseudoId)) - -foreign import javascript unsafe - "($1[\"pauseTransitionAtTimeOnElement\"]($2,\n$3, $4) ? 1 : 0)" - js_pauseTransitionAtTimeOnElement :: - Internals -> JSString -> Double -> Nullable Element -> IO Bool - --- | -pauseTransitionAtTimeOnElement :: - (MonadIO m, ToJSString propertyName, IsElement element) => - Internals -> propertyName -> Double -> Maybe element -> m Bool -pauseTransitionAtTimeOnElement self propertyName pauseTime element - = liftIO - (js_pauseTransitionAtTimeOnElement (self) (toJSString propertyName) - pauseTime - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "($1[\"pauseTransitionAtTimeOnPseudoElement\"]($2,\n$3, $4, $5) ? 1 : 0)" - js_pauseTransitionAtTimeOnPseudoElement :: - Internals -> - JSString -> Double -> Nullable Element -> JSString -> IO Bool - --- | -pauseTransitionAtTimeOnPseudoElement :: - (MonadIO m, ToJSString property, IsElement element, - ToJSString pseudoId) => - Internals -> - property -> Double -> Maybe element -> pseudoId -> m Bool -pauseTransitionAtTimeOnPseudoElement self property pauseTime - element pseudoId - = liftIO - (js_pauseTransitionAtTimeOnPseudoElement (self) - (toJSString property) - pauseTime - (maybeToNullable (fmap toElement element)) - (toJSString pseudoId)) - -foreign import javascript unsafe "($1[\"attached\"]($2) ? 1 : 0)" - js_attached :: Internals -> Nullable Node -> IO Bool - --- | -attached :: - (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool -attached self node - = liftIO (js_attached (self) (maybeToNullable (fmap toNode node))) - -foreign import javascript unsafe "$1[\"visiblePlaceholder\"]($2)" - js_visiblePlaceholder :: - Internals -> Nullable Element -> IO JSString - --- | -visiblePlaceholder :: - (MonadIO m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -visiblePlaceholder self element - = liftIO - (fromJSString <$> - (js_visiblePlaceholder (self) - (maybeToNullable (fmap toElement element)))) - -foreign import javascript unsafe - "$1[\"selectColorInColorChooser\"]($2,\n$3)" - js_selectColorInColorChooser :: - Internals -> Nullable Element -> JSString -> IO () - --- | -selectColorInColorChooser :: - (MonadIO m, IsElement element, ToJSString colorValue) => - Internals -> Maybe element -> colorValue -> m () -selectColorInColorChooser self element colorValue - = liftIO - (js_selectColorInColorChooser (self) - (maybeToNullable (fmap toElement element)) - (toJSString colorValue)) - -foreign import javascript unsafe - "$1[\"formControlStateOfPreviousHistoryItem\"]()" - js_formControlStateOfPreviousHistoryItem :: Internals -> IO JSVal - --- | -formControlStateOfPreviousHistoryItem :: - (MonadIO m, FromJSString result) => Internals -> m [result] -formControlStateOfPreviousHistoryItem self - = liftIO - ((js_formControlStateOfPreviousHistoryItem (self)) >>= - fromJSValUnchecked) - -foreign import javascript unsafe - "$1[\"setFormControlStateOfPreviousHistoryItem\"]($2)" - js_setFormControlStateOfPreviousHistoryItem :: - Internals -> JSVal -> IO () - --- | -setFormControlStateOfPreviousHistoryItem :: - (MonadIO m, ToJSString values) => - Internals -> [values] -> m () -setFormControlStateOfPreviousHistoryItem self values - = liftIO - (toJSVal values >>= - \ values' -> - js_setFormControlStateOfPreviousHistoryItem (self) values') - -foreign import javascript unsafe "$1[\"absoluteCaretBounds\"]()" - js_absoluteCaretBounds :: Internals -> IO (Nullable ClientRect) - --- | -absoluteCaretBounds :: - (MonadIO m) => Internals -> m (Maybe ClientRect) -absoluteCaretBounds self - = liftIO (nullableToMaybe <$> (js_absoluteCaretBounds (self))) - -foreign import javascript unsafe "$1[\"boundingBox\"]($2)" - js_boundingBox :: - Internals -> Nullable Element -> IO (Nullable ClientRect) - --- | -boundingBox :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m (Maybe ClientRect) -boundingBox self element - = liftIO - (nullableToMaybe <$> - (js_boundingBox (self) (maybeToNullable (fmap toElement element)))) - -foreign import javascript unsafe - "$1[\"inspectorHighlightRects\"]()" js_inspectorHighlightRects :: - Internals -> IO (Nullable ClientRectList) - --- | -inspectorHighlightRects :: - (MonadIO m) => Internals -> m (Maybe ClientRectList) -inspectorHighlightRects self - = liftIO (nullableToMaybe <$> (js_inspectorHighlightRects (self))) - -foreign import javascript unsafe - "$1[\"inspectorHighlightObject\"]()" js_inspectorHighlightObject :: - Internals -> IO JSString - --- | -inspectorHighlightObject :: - (MonadIO m, FromJSString result) => Internals -> m result -inspectorHighlightObject self - = liftIO (fromJSString <$> (js_inspectorHighlightObject (self))) - -foreign import javascript unsafe - "$1[\"markerCountForNode\"]($2, $3)" js_markerCountForNode :: - Internals -> Nullable Node -> JSString -> IO Word - --- | -markerCountForNode :: - (MonadIO m, IsNode node, ToJSString markerType) => - Internals -> Maybe node -> markerType -> m Word -markerCountForNode self node markerType - = liftIO - (js_markerCountForNode (self) (maybeToNullable (fmap toNode node)) - (toJSString markerType)) - -foreign import javascript unsafe - "$1[\"markerRangeForNode\"]($2, $3,\n$4)" js_markerRangeForNode :: - Internals -> - Nullable Node -> JSString -> Word -> IO (Nullable Range) - --- | -markerRangeForNode :: - (MonadIO m, IsNode node, ToJSString markerType) => - Internals -> Maybe node -> markerType -> Word -> m (Maybe Range) -markerRangeForNode self node markerType index - = liftIO - (nullableToMaybe <$> - (js_markerRangeForNode (self) (maybeToNullable (fmap toNode node)) - (toJSString markerType) - index)) - -foreign import javascript unsafe - "$1[\"markerDescriptionForNode\"]($2,\n$3, $4)" - js_markerDescriptionForNode :: - Internals -> Nullable Node -> JSString -> Word -> IO JSString - --- | -markerDescriptionForNode :: - (MonadIO m, IsNode node, ToJSString markerType, - FromJSString result) => - Internals -> Maybe node -> markerType -> Word -> m result -markerDescriptionForNode self node markerType index - = liftIO - (fromJSString <$> - (js_markerDescriptionForNode (self) - (maybeToNullable (fmap toNode node)) - (toJSString markerType) - index)) - -foreign import javascript unsafe - "$1[\"addTextMatchMarker\"]($2, $3)" js_addTextMatchMarker :: - Internals -> Nullable Range -> Bool -> IO () - --- | -addTextMatchMarker :: - (MonadIO m) => Internals -> Maybe Range -> Bool -> m () -addTextMatchMarker self range isActive - = liftIO - (js_addTextMatchMarker (self) (maybeToNullable range) isActive) - -foreign import javascript unsafe - "$1[\"setMarkedTextMatchesAreHighlighted\"]($2)" - js_setMarkedTextMatchesAreHighlighted :: Internals -> Bool -> IO () - --- | -setMarkedTextMatchesAreHighlighted :: - (MonadIO m) => Internals -> Bool -> m () -setMarkedTextMatchesAreHighlighted self flag - = liftIO (js_setMarkedTextMatchesAreHighlighted (self) flag) - -foreign import javascript unsafe "$1[\"invalidateFontCache\"]()" - js_invalidateFontCache :: Internals -> IO () - --- | -invalidateFontCache :: (MonadIO m) => Internals -> m () -invalidateFontCache self = liftIO (js_invalidateFontCache (self)) - -foreign import javascript unsafe - "$1[\"setScrollViewPosition\"]($2,\n$3)" js_setScrollViewPosition - :: Internals -> Int -> Int -> IO () - --- | -setScrollViewPosition :: - (MonadIO m) => Internals -> Int -> Int -> m () -setScrollViewPosition self x y - = liftIO (js_setScrollViewPosition (self) x y) - -foreign import javascript unsafe - "$1[\"setPagination\"]($2, $3, $4)" js_setPagination :: - Internals -> JSString -> Int -> Int -> IO () - --- | -setPagination :: - (MonadIO m, ToJSString mode) => - Internals -> mode -> Int -> Int -> m () -setPagination self mode gap pageLength - = liftIO (js_setPagination (self) (toJSString mode) gap pageLength) - -foreign import javascript unsafe - "$1[\"configurationForViewport\"]($2,\n$3, $4, $5, $6)" - js_configurationForViewport :: - Internals -> Float -> Int -> Int -> Int -> Int -> IO JSString - --- | -configurationForViewport :: - (MonadIO m, FromJSString result) => - Internals -> Float -> Int -> Int -> Int -> Int -> m result -configurationForViewport self devicePixelRatio deviceWidth - deviceHeight availableWidth availableHeight - = liftIO - (fromJSString <$> - (js_configurationForViewport (self) devicePixelRatio deviceWidth - deviceHeight - availableWidth - availableHeight)) - -foreign import javascript unsafe - "($1[\"wasLastChangeUserEdit\"]($2) ? 1 : 0)" - js_wasLastChangeUserEdit :: - Internals -> Nullable Element -> IO Bool - --- | -wasLastChangeUserEdit :: - (MonadIO m, IsElement textField) => - Internals -> Maybe textField -> m Bool -wasLastChangeUserEdit self textField - = liftIO - (js_wasLastChangeUserEdit (self) - (maybeToNullable (fmap toElement textField))) - -foreign import javascript unsafe - "($1[\"elementShouldAutoComplete\"]($2) ? 1 : 0)" - js_elementShouldAutoComplete :: - Internals -> Nullable Element -> IO Bool - --- | -elementShouldAutoComplete :: - (MonadIO m, IsElement inputElement) => - Internals -> Maybe inputElement -> m Bool -elementShouldAutoComplete self inputElement - = liftIO - (js_elementShouldAutoComplete (self) - (maybeToNullable (fmap toElement inputElement))) - -foreign import javascript unsafe "$1[\"setEditingValue\"]($2, $3)" - js_setEditingValue :: - Internals -> Nullable Element -> JSString -> IO () - --- | -setEditingValue :: - (MonadIO m, IsElement inputElement, ToJSString value) => - Internals -> Maybe inputElement -> value -> m () -setEditingValue self inputElement value - = liftIO - (js_setEditingValue (self) - (maybeToNullable (fmap toElement inputElement)) - (toJSString value)) - -foreign import javascript unsafe "$1[\"setAutofilled\"]($2, $3)" - js_setAutofilled :: Internals -> Nullable Element -> Bool -> IO () - --- | -setAutofilled :: - (MonadIO m, IsElement inputElement) => - Internals -> Maybe inputElement -> Bool -> m () -setAutofilled self inputElement enabled - = liftIO - (js_setAutofilled (self) - (maybeToNullable (fmap toElement inputElement)) - enabled) - -foreign import javascript unsafe - "$1[\"countMatchesForText\"]($2,\n$3, $4)" js_countMatchesForText - :: Internals -> JSString -> Word -> JSString -> IO Word - --- | -countMatchesForText :: - (MonadIO m, ToJSString text, ToJSString markMatches) => - Internals -> text -> Word -> markMatches -> m Word -countMatchesForText self text findOptions markMatches - = liftIO - (js_countMatchesForText (self) (toJSString text) findOptions - (toJSString markMatches)) - -foreign import javascript unsafe "$1[\"paintControlTints\"]()" - js_paintControlTints :: Internals -> IO () - --- | -paintControlTints :: (MonadIO m) => Internals -> m () -paintControlTints self = liftIO (js_paintControlTints (self)) - -foreign import javascript unsafe - "$1[\"scrollElementToRect\"]($2,\n$3, $4, $5, $6)" - js_scrollElementToRect :: - Internals -> Nullable Element -> Int -> Int -> Int -> Int -> IO () - --- | -scrollElementToRect :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> Int -> Int -> Int -> Int -> m () -scrollElementToRect self element x y w h - = liftIO - (js_scrollElementToRect (self) - (maybeToNullable (fmap toElement element)) - x - y - w - h) - -foreign import javascript unsafe - "$1[\"rangeFromLocationAndLength\"]($2,\n$3, $4)" - js_rangeFromLocationAndLength :: - Internals -> Nullable Element -> Int -> Int -> IO (Nullable Range) - --- | -rangeFromLocationAndLength :: - (MonadIO m, IsElement scope) => - Internals -> Maybe scope -> Int -> Int -> m (Maybe Range) -rangeFromLocationAndLength self scope rangeLocation rangeLength - = liftIO - (nullableToMaybe <$> - (js_rangeFromLocationAndLength (self) - (maybeToNullable (fmap toElement scope)) - rangeLocation - rangeLength)) - -foreign import javascript unsafe - "$1[\"locationFromRange\"]($2, $3)" js_locationFromRange :: - Internals -> Nullable Element -> Nullable Range -> IO Word - --- | -locationFromRange :: - (MonadIO m, IsElement scope) => - Internals -> Maybe scope -> Maybe Range -> m Word -locationFromRange self scope range - = liftIO - (js_locationFromRange (self) - (maybeToNullable (fmap toElement scope)) - (maybeToNullable range)) - -foreign import javascript unsafe "$1[\"lengthFromRange\"]($2, $3)" - js_lengthFromRange :: - Internals -> Nullable Element -> Nullable Range -> IO Word - --- | -lengthFromRange :: - (MonadIO m, IsElement scope) => - Internals -> Maybe scope -> Maybe Range -> m Word -lengthFromRange self scope range - = liftIO - (js_lengthFromRange (self) (maybeToNullable (fmap toElement scope)) - (maybeToNullable range)) - -foreign import javascript unsafe "$1[\"rangeAsText\"]($2)" - js_rangeAsText :: Internals -> Nullable Range -> IO JSString - --- | -rangeAsText :: - (MonadIO m, FromJSString result) => - Internals -> Maybe Range -> m result -rangeAsText self range - = liftIO - (fromJSString <$> (js_rangeAsText (self) (maybeToNullable range))) - -foreign import javascript unsafe "$1[\"subrange\"]($2, $3, $4)" - js_subrange :: - Internals -> Nullable Range -> Int -> Int -> IO (Nullable Range) - --- | -subrange :: - (MonadIO m) => - Internals -> Maybe Range -> Int -> Int -> m (Maybe Range) -subrange self range rangeLocation rangeLength - = liftIO - (nullableToMaybe <$> - (js_subrange (self) (maybeToNullable range) rangeLocation - rangeLength)) - -foreign import javascript unsafe - "$1[\"rangeForDictionaryLookupAtLocation\"]($2,\n$3)" - js_rangeForDictionaryLookupAtLocation :: - Internals -> Int -> Int -> IO (Nullable Range) - --- | -rangeForDictionaryLookupAtLocation :: - (MonadIO m) => Internals -> Int -> Int -> m (Maybe Range) -rangeForDictionaryLookupAtLocation self x y - = liftIO - (nullableToMaybe <$> - (js_rangeForDictionaryLookupAtLocation (self) x y)) - -foreign import javascript unsafe - "$1[\"setDelegatesScrolling\"]($2)" js_setDelegatesScrolling :: - Internals -> Bool -> IO () - --- | -setDelegatesScrolling :: (MonadIO m) => Internals -> Bool -> m () -setDelegatesScrolling self enabled - = liftIO (js_setDelegatesScrolling (self) enabled) - -foreign import javascript unsafe - "$1[\"lastSpellCheckRequestSequence\"]()" - js_lastSpellCheckRequestSequence :: Internals -> IO Int - --- | -lastSpellCheckRequestSequence :: (MonadIO m) => Internals -> m Int -lastSpellCheckRequestSequence self - = liftIO (js_lastSpellCheckRequestSequence (self)) - -foreign import javascript unsafe - "$1[\"lastSpellCheckProcessedSequence\"]()" - js_lastSpellCheckProcessedSequence :: Internals -> IO Int - --- | -lastSpellCheckProcessedSequence :: - (MonadIO m) => Internals -> m Int -lastSpellCheckProcessedSequence self - = liftIO (js_lastSpellCheckProcessedSequence (self)) - -foreign import javascript unsafe "$1[\"userPreferredLanguages\"]()" - js_userPreferredLanguages :: Internals -> IO JSVal - --- | -userPreferredLanguages :: - (MonadIO m, FromJSString result) => Internals -> m [result] -userPreferredLanguages self - = liftIO - ((js_userPreferredLanguages (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe - "$1[\"setUserPreferredLanguages\"]($2)" - js_setUserPreferredLanguages :: Internals -> JSVal -> IO () - --- | -setUserPreferredLanguages :: - (MonadIO m, ToJSString languages) => - Internals -> [languages] -> m () -setUserPreferredLanguages self languages - = liftIO - (toJSVal languages >>= - \ languages' -> js_setUserPreferredLanguages (self) languages') - -foreign import javascript unsafe "$1[\"wheelEventHandlerCount\"]()" - js_wheelEventHandlerCount :: Internals -> IO Word - --- | -wheelEventHandlerCount :: (MonadIO m) => Internals -> m Word -wheelEventHandlerCount self - = liftIO (js_wheelEventHandlerCount (self)) - -foreign import javascript unsafe "$1[\"touchEventHandlerCount\"]()" - js_touchEventHandlerCount :: Internals -> IO Word - --- | -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) - --- | -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 - --- | -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 () - --- | -updateEditorUINowIfScheduled :: (MonadIO m) => Internals -> m () -updateEditorUINowIfScheduled self - = liftIO (js_updateEditorUINowIfScheduled (self)) - -foreign import javascript unsafe - "($1[\"hasSpellingMarker\"]($2,\n$3) ? 1 : 0)" js_hasSpellingMarker - :: Internals -> Int -> Int -> IO Bool - --- | -hasSpellingMarker :: - (MonadIO m) => Internals -> Int -> Int -> m Bool -hasSpellingMarker self from length - = liftIO (js_hasSpellingMarker (self) from length) - -foreign import javascript unsafe - "($1[\"hasGrammarMarker\"]($2,\n$3) ? 1 : 0)" js_hasGrammarMarker - :: Internals -> Int -> Int -> IO Bool - --- | -hasGrammarMarker :: - (MonadIO m) => Internals -> Int -> Int -> m Bool -hasGrammarMarker self from length - = liftIO (js_hasGrammarMarker (self) from length) - -foreign import javascript unsafe - "($1[\"hasAutocorrectedMarker\"]($2,\n$3) ? 1 : 0)" - js_hasAutocorrectedMarker :: Internals -> Int -> Int -> IO Bool - --- | -hasAutocorrectedMarker :: - (MonadIO m) => Internals -> Int -> Int -> m Bool -hasAutocorrectedMarker self from length - = liftIO (js_hasAutocorrectedMarker (self) from length) - -foreign import javascript unsafe - "$1[\"setContinuousSpellCheckingEnabled\"]($2)" - js_setContinuousSpellCheckingEnabled :: Internals -> Bool -> IO () - --- | -setContinuousSpellCheckingEnabled :: - (MonadIO m) => Internals -> Bool -> m () -setContinuousSpellCheckingEnabled self enabled - = liftIO (js_setContinuousSpellCheckingEnabled (self) enabled) - -foreign import javascript unsafe - "$1[\"setAutomaticQuoteSubstitutionEnabled\"]($2)" - js_setAutomaticQuoteSubstitutionEnabled :: - Internals -> Bool -> IO () - --- | -setAutomaticQuoteSubstitutionEnabled :: - (MonadIO m) => Internals -> Bool -> m () -setAutomaticQuoteSubstitutionEnabled self enabled - = liftIO (js_setAutomaticQuoteSubstitutionEnabled (self) enabled) - -foreign import javascript unsafe - "$1[\"setAutomaticLinkDetectionEnabled\"]($2)" - js_setAutomaticLinkDetectionEnabled :: Internals -> Bool -> IO () - --- | -setAutomaticLinkDetectionEnabled :: - (MonadIO m) => Internals -> Bool -> m () -setAutomaticLinkDetectionEnabled self enabled - = liftIO (js_setAutomaticLinkDetectionEnabled (self) enabled) - -foreign import javascript unsafe - "$1[\"setAutomaticDashSubstitutionEnabled\"]($2)" - js_setAutomaticDashSubstitutionEnabled :: - Internals -> Bool -> IO () - --- | -setAutomaticDashSubstitutionEnabled :: - (MonadIO m) => Internals -> Bool -> m () -setAutomaticDashSubstitutionEnabled self enabled - = liftIO (js_setAutomaticDashSubstitutionEnabled (self) enabled) - -foreign import javascript unsafe - "$1[\"setAutomaticTextReplacementEnabled\"]($2)" - js_setAutomaticTextReplacementEnabled :: Internals -> Bool -> IO () - --- | -setAutomaticTextReplacementEnabled :: - (MonadIO m) => Internals -> Bool -> m () -setAutomaticTextReplacementEnabled self enabled - = liftIO (js_setAutomaticTextReplacementEnabled (self) enabled) - -foreign import javascript unsafe - "$1[\"setAutomaticSpellingCorrectionEnabled\"]($2)" - js_setAutomaticSpellingCorrectionEnabled :: - Internals -> Bool -> IO () - --- | -setAutomaticSpellingCorrectionEnabled :: - (MonadIO m) => Internals -> Bool -> m () -setAutomaticSpellingCorrectionEnabled self enabled - = liftIO (js_setAutomaticSpellingCorrectionEnabled (self) enabled) - -foreign import javascript unsafe - "($1[\"isOverwriteModeEnabled\"]() ? 1 : 0)" - js_isOverwriteModeEnabled :: Internals -> IO Bool - --- | -isOverwriteModeEnabled :: (MonadIO m) => Internals -> m Bool -isOverwriteModeEnabled self - = liftIO (js_isOverwriteModeEnabled (self)) - -foreign import javascript unsafe - "$1[\"toggleOverwriteModeEnabled\"]()" - js_toggleOverwriteModeEnabled :: Internals -> IO () - --- | -toggleOverwriteModeEnabled :: (MonadIO m) => Internals -> m () -toggleOverwriteModeEnabled self - = liftIO (js_toggleOverwriteModeEnabled (self)) - -foreign import javascript unsafe - "$1[\"numberOfScrollableAreas\"]()" js_numberOfScrollableAreas :: - Internals -> IO Word - --- | -numberOfScrollableAreas :: (MonadIO m) => Internals -> m Word -numberOfScrollableAreas self - = liftIO (js_numberOfScrollableAreas (self)) - -foreign import javascript unsafe - "($1[\"isPageBoxVisible\"]($2) ? 1 : 0)" js_isPageBoxVisible :: - Internals -> Int -> IO Bool - --- | -isPageBoxVisible :: (MonadIO m) => Internals -> Int -> m Bool -isPageBoxVisible self pageNumber - = liftIO (js_isPageBoxVisible (self) pageNumber) - -foreign import javascript unsafe "$1[\"layerTreeAsText\"]($2, $3)" - js_layerTreeAsText :: - Internals -> Nullable Document -> Word -> IO JSString - --- | -layerTreeAsText :: - (MonadIO m, IsDocument document, FromJSString result) => - Internals -> Maybe document -> Word -> m result -layerTreeAsText self document flags - = liftIO - (fromJSString <$> - (js_layerTreeAsText (self) - (maybeToNullable (fmap toDocument document)) - flags)) - -foreign import javascript unsafe - "$1[\"scrollingStateTreeAsText\"]()" js_scrollingStateTreeAsText :: - Internals -> IO JSString - --- | -scrollingStateTreeAsText :: - (MonadIO m, FromJSString result) => Internals -> m result -scrollingStateTreeAsText self - = liftIO (fromJSString <$> (js_scrollingStateTreeAsText (self))) - -foreign import javascript unsafe - "$1[\"mainThreadScrollingReasons\"]()" - js_mainThreadScrollingReasons :: Internals -> IO JSString - --- | -mainThreadScrollingReasons :: - (MonadIO m, FromJSString result) => Internals -> m result -mainThreadScrollingReasons self - = liftIO (fromJSString <$> (js_mainThreadScrollingReasons (self))) - -foreign import javascript unsafe "$1[\"nonFastScrollableRects\"]()" - js_nonFastScrollableRects :: - Internals -> IO (Nullable ClientRectList) - --- | -nonFastScrollableRects :: - (MonadIO m) => Internals -> m (Maybe ClientRectList) -nonFastScrollableRects self - = liftIO (nullableToMaybe <$> (js_nonFastScrollableRects (self))) - -foreign import javascript unsafe "$1[\"repaintRectsAsText\"]()" - js_repaintRectsAsText :: Internals -> IO JSString - --- | -repaintRectsAsText :: - (MonadIO m, FromJSString result) => Internals -> m result -repaintRectsAsText self - = liftIO (fromJSString <$> (js_repaintRectsAsText (self))) - -foreign import javascript unsafe - "$1[\"garbageCollectDocumentResources\"]()" - js_garbageCollectDocumentResources :: Internals -> IO () - --- | -garbageCollectDocumentResources :: (MonadIO m) => Internals -> m () -garbageCollectDocumentResources self - = liftIO (js_garbageCollectDocumentResources (self)) - -foreign import javascript unsafe "$1[\"allowRoundingHacks\"]()" - js_allowRoundingHacks :: Internals -> IO () - --- | -allowRoundingHacks :: (MonadIO m) => Internals -> m () -allowRoundingHacks self = liftIO (js_allowRoundingHacks (self)) - -foreign import javascript unsafe "$1[\"insertAuthorCSS\"]($2)" - js_insertAuthorCSS :: Internals -> JSString -> IO () - --- | -insertAuthorCSS :: - (MonadIO m, ToJSString css) => Internals -> css -> m () -insertAuthorCSS self css - = liftIO (js_insertAuthorCSS (self) (toJSString css)) - -foreign import javascript unsafe "$1[\"insertUserCSS\"]($2)" - js_insertUserCSS :: Internals -> JSString -> IO () - --- | -insertUserCSS :: - (MonadIO m, ToJSString css) => Internals -> css -> m () -insertUserCSS self css - = liftIO (js_insertUserCSS (self) (toJSString css)) - -foreign import javascript unsafe - "$1[\"setBatteryStatus\"]($2, $3,\n$4, $5, $6)" js_setBatteryStatus - :: - Internals -> - JSString -> Bool -> Double -> Double -> Double -> IO () - --- | -setBatteryStatus :: - (MonadIO m, ToJSString eventType) => - Internals -> - eventType -> Bool -> Double -> Double -> Double -> m () -setBatteryStatus self eventType charging chargingTime - dischargingTime level - = liftIO - (js_setBatteryStatus (self) (toJSString eventType) charging - chargingTime - dischargingTime - level) - -foreign import javascript unsafe - "$1[\"setDeviceProximity\"]($2, $3,\n$4, $5)" js_setDeviceProximity - :: Internals -> JSString -> Double -> Double -> Double -> IO () - --- | -setDeviceProximity :: - (MonadIO m, ToJSString eventType) => - Internals -> eventType -> Double -> Double -> Double -> m () -setDeviceProximity self eventType value min max - = liftIO - (js_setDeviceProximity (self) (toJSString eventType) value min max) - -foreign import javascript unsafe "$1[\"numberOfLiveNodes\"]()" - js_numberOfLiveNodes :: Internals -> IO Word - --- | -numberOfLiveNodes :: (MonadIO m) => Internals -> m Word -numberOfLiveNodes self = liftIO (js_numberOfLiveNodes (self)) - -foreign import javascript unsafe "$1[\"numberOfLiveDocuments\"]()" - js_numberOfLiveDocuments :: Internals -> IO Word - --- | -numberOfLiveDocuments :: (MonadIO m) => Internals -> m Word -numberOfLiveDocuments self - = liftIO (js_numberOfLiveDocuments (self)) - -foreign import javascript unsafe - "$1[\"consoleMessageArgumentCounts\"]()" - js_consoleMessageArgumentCounts :: Internals -> IO JSVal - --- | -consoleMessageArgumentCounts :: - (MonadIO m, FromJSString result) => Internals -> m [result] -consoleMessageArgumentCounts self - = liftIO - ((js_consoleMessageArgumentCounts (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe - "$1[\"openDummyInspectorFrontend\"]($2)" - js_openDummyInspectorFrontend :: - Internals -> JSString -> IO (Nullable Window) - --- | -openDummyInspectorFrontend :: - (MonadIO m, ToJSString url) => Internals -> url -> m (Maybe Window) -openDummyInspectorFrontend self url - = liftIO - (nullableToMaybe <$> - (js_openDummyInspectorFrontend (self) (toJSString url))) - -foreign import javascript unsafe - "$1[\"closeDummyInspectorFrontend\"]()" - js_closeDummyInspectorFrontend :: Internals -> IO () - --- | -closeDummyInspectorFrontend :: (MonadIO m) => Internals -> m () -closeDummyInspectorFrontend self - = liftIO (js_closeDummyInspectorFrontend (self)) - -foreign import javascript unsafe - "$1[\"setJavaScriptProfilingEnabled\"]($2)" - js_setJavaScriptProfilingEnabled :: Internals -> Bool -> IO () - --- | -setJavaScriptProfilingEnabled :: - (MonadIO m) => Internals -> Bool -> m () -setJavaScriptProfilingEnabled self creates - = liftIO (js_setJavaScriptProfilingEnabled (self) creates) - -foreign import javascript unsafe - "$1[\"setInspectorIsUnderTest\"]($2)" js_setInspectorIsUnderTest :: - Internals -> Bool -> IO () - --- | -setInspectorIsUnderTest :: (MonadIO m) => Internals -> Bool -> m () -setInspectorIsUnderTest self isUnderTest - = liftIO (js_setInspectorIsUnderTest (self) isUnderTest) - -foreign import javascript unsafe "$1[\"counterValue\"]($2)" - js_counterValue :: Internals -> Nullable Element -> IO JSString - --- | -counterValue :: - (MonadIO m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -counterValue self element - = liftIO - (fromJSString <$> - (js_counterValue (self) - (maybeToNullable (fmap toElement element)))) - -foreign import javascript unsafe "$1[\"pageNumber\"]($2, $3, $4)" - js_pageNumber :: - Internals -> Nullable Element -> Float -> Float -> IO Int - --- | -pageNumber :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> Float -> Float -> m Int -pageNumber self element pageWidth pageHeight - = liftIO - (js_pageNumber (self) (maybeToNullable (fmap toElement element)) - pageWidth - pageHeight) - -foreign import javascript unsafe "$1[\"shortcutIconURLs\"]()" - js_shortcutIconURLs :: Internals -> IO JSVal - --- | -shortcutIconURLs :: - (MonadIO m, FromJSString result) => Internals -> m [result] -shortcutIconURLs self - = liftIO ((js_shortcutIconURLs (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"allIconURLs\"]()" - js_allIconURLs :: Internals -> IO JSVal - --- | -allIconURLs :: - (MonadIO m, FromJSString result) => Internals -> m [result] -allIconURLs self - = liftIO ((js_allIconURLs (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"numberOfPages\"]($2, $3)" - js_numberOfPages :: Internals -> Double -> Double -> IO Int - --- | -numberOfPages :: - (MonadIO m) => Internals -> Double -> Double -> m Int -numberOfPages self pageWidthInPixels pageHeightInPixels - = liftIO - (js_numberOfPages (self) pageWidthInPixels pageHeightInPixels) - -foreign import javascript unsafe "$1[\"pageProperty\"]($2, $3)" - js_pageProperty :: Internals -> JSString -> Int -> IO JSString - --- | -pageProperty :: - (MonadIO m, ToJSString propertyName, FromJSString result) => - Internals -> propertyName -> Int -> m result -pageProperty self propertyName pageNumber - = liftIO - (fromJSString <$> - (js_pageProperty (self) (toJSString propertyName) pageNumber)) - -foreign import javascript unsafe - "$1[\"pageSizeAndMarginsInPixels\"]($2,\n$3, $4, $5, $6, $7, $8)" - js_pageSizeAndMarginsInPixels :: - Internals -> - Int -> Int -> Int -> Int -> Int -> Int -> Int -> IO JSString - --- | -pageSizeAndMarginsInPixels :: - (MonadIO m, FromJSString result) => - Internals -> - Int -> Int -> Int -> Int -> Int -> Int -> Int -> m result -pageSizeAndMarginsInPixels self pageIndex width height marginTop - marginRight marginBottom marginLeft - = liftIO - (fromJSString <$> - (js_pageSizeAndMarginsInPixels (self) pageIndex width height - marginTop - marginRight - marginBottom - marginLeft)) - -foreign import javascript unsafe - "$1[\"setPageScaleFactor\"]($2, $3,\n$4)" js_setPageScaleFactor :: - Internals -> Float -> Int -> Int -> IO () - --- | -setPageScaleFactor :: - (MonadIO m) => Internals -> Float -> Int -> Int -> m () -setPageScaleFactor self scaleFactor x y - = liftIO (js_setPageScaleFactor (self) scaleFactor x y) - -foreign import javascript unsafe "$1[\"setPageZoomFactor\"]($2)" - js_setPageZoomFactor :: Internals -> Float -> IO () - --- | -setPageZoomFactor :: (MonadIO m) => Internals -> Float -> m () -setPageZoomFactor self zoomFactor - = liftIO (js_setPageZoomFactor (self) zoomFactor) - -foreign import javascript unsafe "$1[\"setHeaderHeight\"]($2)" - js_setHeaderHeight :: Internals -> Float -> IO () - --- | -setHeaderHeight :: (MonadIO m) => Internals -> Float -> m () -setHeaderHeight self height - = liftIO (js_setHeaderHeight (self) height) - -foreign import javascript unsafe "$1[\"setFooterHeight\"]($2)" - js_setFooterHeight :: Internals -> Float -> IO () - --- | -setFooterHeight :: (MonadIO m) => Internals -> Float -> m () -setFooterHeight self height - = liftIO (js_setFooterHeight (self) height) - -foreign import javascript unsafe "$1[\"setTopContentInset\"]($2)" - js_setTopContentInset :: Internals -> Float -> IO () - --- | -setTopContentInset :: (MonadIO m) => Internals -> Float -> m () -setTopContentInset self contentInset - = liftIO (js_setTopContentInset (self) contentInset) - -foreign import javascript unsafe - "$1[\"webkitWillEnterFullScreenForElement\"]($2)" - js_webkitWillEnterFullScreenForElement :: - Internals -> Nullable Element -> IO () - --- | -webkitWillEnterFullScreenForElement :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m () -webkitWillEnterFullScreenForElement self element - = liftIO - (js_webkitWillEnterFullScreenForElement (self) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "$1[\"webkitDidEnterFullScreenForElement\"]($2)" - js_webkitDidEnterFullScreenForElement :: - Internals -> Nullable Element -> IO () - --- | -webkitDidEnterFullScreenForElement :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m () -webkitDidEnterFullScreenForElement self element - = liftIO - (js_webkitDidEnterFullScreenForElement (self) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "$1[\"webkitWillExitFullScreenForElement\"]($2)" - js_webkitWillExitFullScreenForElement :: - Internals -> Nullable Element -> IO () - --- | -webkitWillExitFullScreenForElement :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m () -webkitWillExitFullScreenForElement self element - = liftIO - (js_webkitWillExitFullScreenForElement (self) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "$1[\"webkitDidExitFullScreenForElement\"]($2)" - js_webkitDidExitFullScreenForElement :: - Internals -> Nullable Element -> IO () - --- | -webkitDidExitFullScreenForElement :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m () -webkitDidExitFullScreenForElement self element - = liftIO - (js_webkitDidExitFullScreenForElement (self) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "$1[\"setApplicationCacheOriginQuota\"]($2)" - js_setApplicationCacheOriginQuota :: Internals -> Double -> IO () - --- | -setApplicationCacheOriginQuota :: - (MonadIO m) => Internals -> Word64 -> m () -setApplicationCacheOriginQuota self quota - = liftIO - (js_setApplicationCacheOriginQuota (self) (fromIntegral quota)) - -foreign import javascript unsafe - "$1[\"registerURLSchemeAsBypassingContentSecurityPolicy\"]($2)" - js_registerURLSchemeAsBypassingContentSecurityPolicy :: - Internals -> JSString -> IO () - --- | -registerURLSchemeAsBypassingContentSecurityPolicy :: - (MonadIO m, ToJSString scheme) => - Internals -> scheme -> m () -registerURLSchemeAsBypassingContentSecurityPolicy self scheme - = liftIO - (js_registerURLSchemeAsBypassingContentSecurityPolicy (self) - (toJSString scheme)) - -foreign import javascript unsafe - "$1[\"removeURLSchemeRegisteredAsBypassingContentSecurityPolicy\"]($2)" - js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy :: - Internals -> JSString -> IO () - --- | -removeURLSchemeRegisteredAsBypassingContentSecurityPolicy :: - (MonadIO m, ToJSString scheme) => - Internals -> scheme -> m () -removeURLSchemeRegisteredAsBypassingContentSecurityPolicy self - scheme - = liftIO - (js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy - (self) - (toJSString scheme)) - -foreign import javascript unsafe "$1[\"mallocStatistics\"]()" - js_mallocStatistics :: Internals -> IO (Nullable MallocStatistics) - --- | -mallocStatistics :: - (MonadIO m) => Internals -> m (Maybe MallocStatistics) -mallocStatistics self - = liftIO (nullableToMaybe <$> (js_mallocStatistics (self))) - -foreign import javascript unsafe "$1[\"typeConversions\"]()" - js_typeConversions :: Internals -> IO (Nullable TypeConversions) - --- | -typeConversions :: - (MonadIO m) => Internals -> m (Maybe TypeConversions) -typeConversions self - = liftIO (nullableToMaybe <$> (js_typeConversions (self))) - -foreign import javascript unsafe "$1[\"memoryInfo\"]()" - js_memoryInfo :: Internals -> IO (Nullable MemoryInfo) - --- | -memoryInfo :: (MonadIO m) => Internals -> m (Maybe MemoryInfo) -memoryInfo self - = liftIO (nullableToMaybe <$> (js_memoryInfo (self))) - -foreign import javascript unsafe "$1[\"getReferencedFilePaths\"]()" - js_getReferencedFilePaths :: Internals -> IO JSVal - --- | -getReferencedFilePaths :: - (MonadIO m, FromJSString result) => Internals -> m [result] -getReferencedFilePaths self - = liftIO - ((js_getReferencedFilePaths (self)) >>= fromJSValUnchecked) - -foreign import javascript unsafe "$1[\"startTrackingRepaints\"]()" - js_startTrackingRepaints :: Internals -> IO () - --- | -startTrackingRepaints :: (MonadIO m) => Internals -> m () -startTrackingRepaints self - = liftIO (js_startTrackingRepaints (self)) - -foreign import javascript unsafe "$1[\"stopTrackingRepaints\"]()" - js_stopTrackingRepaints :: Internals -> IO () - --- | -stopTrackingRepaints :: (MonadIO m) => Internals -> m () -stopTrackingRepaints self = liftIO (js_stopTrackingRepaints (self)) - -foreign import javascript unsafe - "($1[\"isTimerThrottled\"]($2) ? 1 : 0)" js_isTimerThrottled :: - Internals -> Int -> IO Bool - --- | -isTimerThrottled :: (MonadIO m) => Internals -> Int -> m Bool -isTimerThrottled self timerHandle - = liftIO (js_isTimerThrottled (self) timerHandle) - -foreign import javascript unsafe - "$1[\"updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks\"]($2)" - js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks :: - Internals -> Nullable Node -> IO () - --- | -updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks :: - (MonadIO m, IsNode node) => - Internals -> Maybe node -> m () -updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks self node - = liftIO - (js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks - (self) - (maybeToNullable (fmap toNode node))) - -foreign import javascript unsafe "$1[\"getCurrentCursorInfo\"]()" - js_getCurrentCursorInfo :: Internals -> IO JSString - --- | -getCurrentCursorInfo :: - (MonadIO m, FromJSString result) => Internals -> m result -getCurrentCursorInfo self - = liftIO (fromJSString <$> (js_getCurrentCursorInfo (self))) - -foreign import javascript unsafe - "$1[\"markerTextForListItem\"]($2)" js_markerTextForListItem :: - Internals -> Nullable Element -> IO JSString - --- | -markerTextForListItem :: - (MonadIO m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -markerTextForListItem self element - = liftIO - (fromJSString <$> - (js_markerTextForListItem (self) - (maybeToNullable (fmap toElement element)))) - -foreign import javascript unsafe "$1[\"toolTipFromElement\"]($2)" - js_toolTipFromElement :: - Internals -> Nullable Element -> IO JSString - --- | -toolTipFromElement :: - (MonadIO m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -toolTipFromElement self element - = liftIO - (fromJSString <$> - (js_toolTipFromElement (self) - (maybeToNullable (fmap toElement element)))) - -foreign import javascript unsafe "$1[\"deserializeBuffer\"]($2)" - js_deserializeBuffer :: - Internals -> - Nullable ArrayBuffer -> IO (Nullable SerializedScriptValue) - --- | -deserializeBuffer :: - (MonadIO m, IsArrayBuffer buffer) => - Internals -> Maybe buffer -> m (Maybe SerializedScriptValue) -deserializeBuffer self buffer - = liftIO - (nullableToMaybe <$> - (js_deserializeBuffer (self) - (maybeToNullable (fmap toArrayBuffer buffer)))) - -foreign import javascript unsafe "$1[\"serializeObject\"]($2)" - js_serializeObject :: - Internals -> - Nullable SerializedScriptValue -> IO (Nullable ArrayBuffer) - --- | -serializeObject :: - (MonadIO m, IsSerializedScriptValue obj) => - Internals -> Maybe obj -> m (Maybe ArrayBuffer) -serializeObject self obj - = liftIO - (nullableToMaybe <$> - (js_serializeObject (self) - (maybeToNullable (fmap toSerializedScriptValue obj)))) - -foreign import javascript unsafe - "$1[\"setUsesOverlayScrollbars\"]($2)" js_setUsesOverlayScrollbars - :: Internals -> Bool -> IO () - --- | -setUsesOverlayScrollbars :: - (MonadIO m) => Internals -> Bool -> m () -setUsesOverlayScrollbars self enabled - = liftIO (js_setUsesOverlayScrollbars (self) enabled) - -foreign import javascript unsafe "$1[\"forceReload\"]($2)" - js_forceReload :: Internals -> Bool -> IO () - --- | -forceReload :: (MonadIO m) => Internals -> Bool -> m () -forceReload self endToEnd = liftIO (js_forceReload (self) endToEnd) - -foreign import javascript unsafe - "$1[\"simulateAudioInterruption\"]($2)" - js_simulateAudioInterruption :: Internals -> Nullable Node -> IO () - --- | -simulateAudioInterruption :: - (MonadIO m, IsNode node) => Internals -> Maybe node -> m () -simulateAudioInterruption self node - = liftIO - (js_simulateAudioInterruption (self) - (maybeToNullable (fmap toNode node))) - -foreign import javascript unsafe - "($1[\"mediaElementHasCharacteristic\"]($2,\n$3) ? 1 : 0)" - js_mediaElementHasCharacteristic :: - Internals -> Nullable Node -> JSString -> IO Bool - --- | -mediaElementHasCharacteristic :: - (MonadIO m, IsNode node, ToJSString characteristic) => - Internals -> Maybe node -> characteristic -> m Bool -mediaElementHasCharacteristic self node characteristic - = liftIO - (js_mediaElementHasCharacteristic (self) - (maybeToNullable (fmap toNode node)) - (toJSString characteristic)) - -foreign import javascript unsafe "$1[\"initializeMockCDM\"]()" - js_initializeMockCDM :: Internals -> IO () - --- | -initializeMockCDM :: (MonadIO m) => Internals -> m () -initializeMockCDM self = liftIO (js_initializeMockCDM (self)) - -foreign import javascript unsafe - "$1[\"enableMockSpeechSynthesizer\"]()" - js_enableMockSpeechSynthesizer :: Internals -> IO () - --- | -enableMockSpeechSynthesizer :: (MonadIO m) => Internals -> m () -enableMockSpeechSynthesizer self - = liftIO (js_enableMockSpeechSynthesizer (self)) - -foreign import javascript unsafe "$1[\"getImageSourceURL\"]($2)" - js_getImageSourceURL :: - Internals -> Nullable Element -> IO JSString - --- | -getImageSourceURL :: - (MonadIO m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -getImageSourceURL self element - = liftIO - (fromJSString <$> - (js_getImageSourceURL (self) - (maybeToNullable (fmap toElement element)))) - -foreign import javascript unsafe - "$1[\"captionsStyleSheetOverride\"]()" - js_captionsStyleSheetOverride :: Internals -> IO JSString - --- | -captionsStyleSheetOverride :: - (MonadIO m, FromJSString result) => Internals -> m result -captionsStyleSheetOverride self - = liftIO (fromJSString <$> (js_captionsStyleSheetOverride (self))) - -foreign import javascript unsafe - "$1[\"setCaptionsStyleSheetOverride\"]($2)" - js_setCaptionsStyleSheetOverride :: Internals -> JSString -> IO () - --- | -setCaptionsStyleSheetOverride :: - (MonadIO m, ToJSString override) => Internals -> override -> m () -setCaptionsStyleSheetOverride self override - = liftIO - (js_setCaptionsStyleSheetOverride (self) (toJSString override)) - -foreign import javascript unsafe - "$1[\"setPrimaryAudioTrackLanguageOverride\"]($2)" - js_setPrimaryAudioTrackLanguageOverride :: - Internals -> JSString -> IO () - --- | -setPrimaryAudioTrackLanguageOverride :: - (MonadIO m, ToJSString language) => - Internals -> language -> m () -setPrimaryAudioTrackLanguageOverride self language - = liftIO - (js_setPrimaryAudioTrackLanguageOverride (self) - (toJSString language)) - -foreign import javascript unsafe - "$1[\"setCaptionDisplayMode\"]($2)" js_setCaptionDisplayMode :: - Internals -> JSString -> IO () - --- | -setCaptionDisplayMode :: - (MonadIO m, ToJSString mode) => Internals -> mode -> m () -setCaptionDisplayMode self mode - = liftIO (js_setCaptionDisplayMode (self) (toJSString mode)) - -foreign import javascript unsafe "$1[\"createTimeRanges\"]($2, $3)" - js_createTimeRanges :: - Internals -> - Nullable Float32Array -> - Nullable Float32Array -> IO (Nullable TimeRanges) - --- | -createTimeRanges :: - (MonadIO m, IsFloat32Array startTimes, IsFloat32Array endTimes) => - Internals -> - Maybe startTimes -> Maybe endTimes -> m (Maybe TimeRanges) -createTimeRanges self startTimes endTimes - = liftIO - (nullableToMaybe <$> - (js_createTimeRanges (self) - (maybeToNullable (fmap toFloat32Array startTimes)) - (maybeToNullable (fmap toFloat32Array endTimes)))) - -foreign import javascript unsafe - "$1[\"closestTimeToTimeRanges\"]($2,\n$3)" - js_closestTimeToTimeRanges :: - Internals -> Double -> Nullable TimeRanges -> IO Double - --- | -closestTimeToTimeRanges :: - (MonadIO m) => Internals -> Double -> Maybe TimeRanges -> m Double -closestTimeToTimeRanges self time ranges - = liftIO - (js_closestTimeToTimeRanges (self) time (maybeToNullable ranges)) - -foreign import javascript unsafe - "($1[\"isSelectPopupVisible\"]($2) ? 1 : 0)" - js_isSelectPopupVisible :: Internals -> Nullable Node -> IO Bool - --- | -isSelectPopupVisible :: - (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool -isSelectPopupVisible self node - = liftIO - (js_isSelectPopupVisible (self) - (maybeToNullable (fmap toNode node))) - -foreign import javascript unsafe "($1[\"isVibrating\"]() ? 1 : 0)" - js_isVibrating :: Internals -> IO Bool - --- | -isVibrating :: (MonadIO m) => Internals -> m Bool -isVibrating self = liftIO (js_isVibrating (self)) - -foreign import javascript unsafe - "($1[\"isPluginUnavailabilityIndicatorObscured\"]($2) ? 1 : 0)" - js_isPluginUnavailabilityIndicatorObscured :: - Internals -> Nullable Element -> IO Bool - --- | -isPluginUnavailabilityIndicatorObscured :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m Bool -isPluginUnavailabilityIndicatorObscured self element - = liftIO - (js_isPluginUnavailabilityIndicatorObscured (self) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "($1[\"isPluginSnapshotted\"]($2) ? 1 : 0)" js_isPluginSnapshotted - :: Internals -> Nullable Element -> IO Bool - --- | -isPluginSnapshotted :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m Bool -isPluginSnapshotted self element - = liftIO - (js_isPluginSnapshotted (self) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe "$1[\"selectionBounds\"]()" - js_selectionBounds :: Internals -> IO (Nullable ClientRect) - --- | -selectionBounds :: (MonadIO m) => Internals -> m (Maybe ClientRect) -selectionBounds self - = liftIO (nullableToMaybe <$> (js_selectionBounds (self))) - -foreign import javascript unsafe - "$1[\"initializeMockMediaSource\"]()" js_initializeMockMediaSource - :: Internals -> IO () - --- | -initializeMockMediaSource :: (MonadIO m) => Internals -> m () -initializeMockMediaSource self - = liftIO (js_initializeMockMediaSource (self)) - -foreign import javascript unsafe - "$1[\"bufferedSamplesForTrackID\"]($2,\n$3)" - js_bufferedSamplesForTrackID :: - Internals -> Nullable SourceBuffer -> JSString -> IO JSVal - --- | -bufferedSamplesForTrackID :: - (MonadIO m, ToJSString trackID, FromJSString result) => - Internals -> Maybe SourceBuffer -> trackID -> m [result] -bufferedSamplesForTrackID self buffer trackID - = liftIO - ((js_bufferedSamplesForTrackID (self) (maybeToNullable buffer) - (toJSString trackID)) - >>= fromJSValUnchecked) - -foreign import javascript unsafe - "$1[\"beginMediaSessionInterruption\"]()" - js_beginMediaSessionInterruption :: Internals -> IO () - --- | -beginMediaSessionInterruption :: (MonadIO m) => Internals -> m () -beginMediaSessionInterruption self - = liftIO (js_beginMediaSessionInterruption (self)) - -foreign import javascript unsafe - "$1[\"endMediaSessionInterruption\"]($2)" - js_endMediaSessionInterruption :: Internals -> JSString -> IO () - --- | -endMediaSessionInterruption :: - (MonadIO m, ToJSString flags) => Internals -> flags -> m () -endMediaSessionInterruption self flags - = liftIO (js_endMediaSessionInterruption (self) (toJSString flags)) - -foreign import javascript unsafe - "$1[\"applicationWillEnterForeground\"]()" - js_applicationWillEnterForeground :: Internals -> IO () - --- | -applicationWillEnterForeground :: (MonadIO m) => Internals -> m () -applicationWillEnterForeground self - = liftIO (js_applicationWillEnterForeground (self)) - -foreign import javascript unsafe - "$1[\"applicationWillEnterBackground\"]()" - js_applicationWillEnterBackground :: Internals -> IO () - --- | -applicationWillEnterBackground :: (MonadIO m) => Internals -> m () -applicationWillEnterBackground self - = liftIO (js_applicationWillEnterBackground (self)) - -foreign import javascript unsafe - "$1[\"setMediaSessionRestrictions\"]($2,\n$3)" - js_setMediaSessionRestrictions :: - Internals -> JSString -> JSString -> IO () - --- | -setMediaSessionRestrictions :: - (MonadIO m, ToJSString mediaType, ToJSString restrictions) => - Internals -> mediaType -> restrictions -> m () -setMediaSessionRestrictions self mediaType restrictions - = liftIO - (js_setMediaSessionRestrictions (self) (toJSString mediaType) - (toJSString restrictions)) - -foreign import javascript unsafe - "$1[\"postRemoteControlCommand\"]($2)" js_postRemoteControlCommand - :: Internals -> JSString -> IO () - --- | -postRemoteControlCommand :: - (MonadIO m, ToJSString command) => Internals -> command -> m () -postRemoteControlCommand self command - = liftIO (js_postRemoteControlCommand (self) (toJSString command)) - -foreign import javascript unsafe "$1[\"simulateSystemSleep\"]()" - js_simulateSystemSleep :: Internals -> IO () - --- | -simulateSystemSleep :: (MonadIO m) => Internals -> m () -simulateSystemSleep self = liftIO (js_simulateSystemSleep (self)) - -foreign import javascript unsafe "$1[\"simulateSystemWake\"]()" - js_simulateSystemWake :: Internals -> IO () - --- | -simulateSystemWake :: (MonadIO m) => Internals -> m () -simulateSystemWake self = liftIO (js_simulateSystemWake (self)) - -foreign import javascript unsafe - "($1[\"elementIsBlockingDisplaySleep\"]($2) ? 1 : 0)" - js_elementIsBlockingDisplaySleep :: - Internals -> Nullable Element -> IO Bool - --- | -elementIsBlockingDisplaySleep :: - (MonadIO m, IsElement element) => - Internals -> Maybe element -> m Bool -elementIsBlockingDisplaySleep self element - = liftIO - (js_elementIsBlockingDisplaySleep (self) - (maybeToNullable (fmap toElement element))) - -foreign import javascript unsafe - "$1[\"installMockPageOverlay\"]($2)" js_installMockPageOverlay :: - Internals -> JSVal -> IO () - --- | -installMockPageOverlay :: - (MonadIO m) => Internals -> PageOverlayType -> m () -installMockPageOverlay self type' - = liftIO (js_installMockPageOverlay (self) (pToJSVal type')) - -foreign import javascript unsafe - "$1[\"pageOverlayLayerTreeAsText\"]()" - js_pageOverlayLayerTreeAsText :: Internals -> IO JSString - --- | -pageOverlayLayerTreeAsText :: - (MonadIO m, FromJSString result) => Internals -> m result -pageOverlayLayerTreeAsText self - = liftIO (fromJSString <$> (js_pageOverlayLayerTreeAsText (self))) - -foreign import javascript unsafe "$1[\"setPageMuted\"]($2)" - js_setPageMuted :: Internals -> Bool -> IO () - --- | -setPageMuted :: (MonadIO m) => Internals -> Bool -> m () -setPageMuted self muted = liftIO (js_setPageMuted (self) muted) - -foreign import javascript unsafe - "($1[\"isPagePlayingAudio\"]() ? 1 : 0)" js_isPagePlayingAudio :: - Internals -> IO Bool - --- | -isPagePlayingAudio :: (MonadIO m) => Internals -> m Bool -isPagePlayingAudio self = liftIO (js_isPagePlayingAudio (self)) -pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS = 1 -pattern LAYER_TREE_INCLUDES_TILE_CACHES = 2 -pattern LAYER_TREE_INCLUDES_REPAINT_RECTS = 4 -pattern LAYER_TREE_INCLUDES_PAINTING_PHASES = 8 -pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS = 16 - -foreign import javascript unsafe "$1[\"settings\"]" js_getSettings - :: Internals -> IO (Nullable InternalSettings) - --- | -getSettings :: - (MonadIO m) => Internals -> m (Maybe InternalSettings) -getSettings self - = liftIO (nullableToMaybe <$> (js_getSettings (self))) + (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 + +-- | +address :: + (MonadIO m, IsNode node, FromJSString result) => + Internals -> Maybe node -> m result +address self node + = liftIO + (fromJSString <$> + (js_address (self) (maybeToNullable (fmap toNode node)))) + +-- | +address_ :: + (MonadIO m, IsNode node) => Internals -> Maybe node -> m () +address_ self node + = liftIO + (void (js_address (self) (maybeToNullable (fmap toNode node)))) + +foreign import javascript unsafe + "($1[\"nodeNeedsStyleRecalc\"]($2) ? 1 : 0)" + js_nodeNeedsStyleRecalc :: Internals -> Nullable Node -> IO Bool + +-- | +nodeNeedsStyleRecalc :: + (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool +nodeNeedsStyleRecalc self node + = liftIO + (js_nodeNeedsStyleRecalc (self) + (maybeToNullable (fmap toNode node))) + +-- | +nodeNeedsStyleRecalc_ :: + (MonadIO m, IsNode node) => Internals -> Maybe node -> m () +nodeNeedsStyleRecalc_ self node + = liftIO + (void + (js_nodeNeedsStyleRecalc (self) + (maybeToNullable (fmap toNode node)))) + +foreign import javascript unsafe "$1[\"description\"]($2)" + js_description :: Internals -> JSVal -> IO JSString + +-- | +description :: + (MonadIO m, FromJSString result) => Internals -> JSVal -> m result +description self value + = liftIO (fromJSString <$> (js_description (self) value)) + +-- | +description_ :: (MonadIO m) => Internals -> JSVal -> m () +description_ self value + = liftIO (void (js_description (self) value)) + +foreign import javascript unsafe + "($1[\"hasPausedImageAnimations\"]($2) ? 1 : 0)" + js_hasPausedImageAnimations :: + Internals -> Nullable Element -> IO Bool + +-- | +hasPausedImageAnimations :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m Bool +hasPausedImageAnimations self element + = liftIO + (js_hasPausedImageAnimations (self) + (maybeToNullable (fmap toElement element))) + +-- | +hasPausedImageAnimations_ :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m () +hasPausedImageAnimations_ self element + = liftIO + (void + (js_hasPausedImageAnimations (self) + (maybeToNullable (fmap toElement element)))) + +foreign import javascript unsafe + "$1[\"elementRenderTreeAsText\"]($2)" js_elementRenderTreeAsText :: + Internals -> Nullable Element -> IO JSString + +-- | +elementRenderTreeAsText :: + (MonadIO m, IsElement element, FromJSString result) => + Internals -> Maybe element -> m result +elementRenderTreeAsText self element + = liftIO + (fromJSString <$> + (js_elementRenderTreeAsText (self) + (maybeToNullable (fmap toElement element)))) + +-- | +elementRenderTreeAsText_ :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m () +elementRenderTreeAsText_ self element + = liftIO + (void + (js_elementRenderTreeAsText (self) + (maybeToNullable (fmap toElement element)))) + +foreign import javascript unsafe + "($1[\"isPreloaded\"]($2) ? 1 : 0)" js_isPreloaded :: + Internals -> JSString -> IO Bool + +-- | +isPreloaded :: + (MonadIO m, ToJSString url) => Internals -> url -> m Bool +isPreloaded self url + = liftIO (js_isPreloaded (self) (toJSString url)) + +-- | +isPreloaded_ :: + (MonadIO m, ToJSString url) => Internals -> url -> m () +isPreloaded_ self url + = liftIO (void (js_isPreloaded (self) (toJSString url))) + +foreign import javascript unsafe + "($1[\"isLoadingFromMemoryCache\"]($2) ? 1 : 0)" + js_isLoadingFromMemoryCache :: Internals -> JSString -> IO Bool + +-- | +isLoadingFromMemoryCache :: + (MonadIO m, ToJSString url) => Internals -> url -> m Bool +isLoadingFromMemoryCache self url + = liftIO (js_isLoadingFromMemoryCache (self) (toJSString url)) + +-- | +isLoadingFromMemoryCache_ :: + (MonadIO m, ToJSString url) => Internals -> url -> m () +isLoadingFromMemoryCache_ self url + = liftIO + (void (js_isLoadingFromMemoryCache (self) (toJSString url))) + +foreign import javascript unsafe "$1[\"xhrResponseSource\"]($2)" + js_xhrResponseSource :: + Internals -> Nullable XMLHttpRequest -> IO JSString + +-- | +xhrResponseSource :: + (MonadIO m, FromJSString result) => + Internals -> Maybe XMLHttpRequest -> m result +xhrResponseSource self xhr + = liftIO + (fromJSString <$> + (js_xhrResponseSource (self) (maybeToNullable xhr))) + +-- | +xhrResponseSource_ :: + (MonadIO m) => Internals -> Maybe XMLHttpRequest -> m () +xhrResponseSource_ self xhr + = liftIO (void (js_xhrResponseSource (self) (maybeToNullable xhr))) + +foreign import javascript unsafe "$1[\"clearMemoryCache\"]()" + js_clearMemoryCache :: Internals -> IO () + +-- | +clearMemoryCache :: (MonadIO m) => Internals -> m () +clearMemoryCache self = liftIO (js_clearMemoryCache (self)) + +foreign import javascript unsafe + "$1[\"pruneMemoryCacheToSize\"]($2)" js_pruneMemoryCacheToSize :: + Internals -> Int -> IO () + +-- | +pruneMemoryCacheToSize :: (MonadIO m) => Internals -> Int -> m () +pruneMemoryCacheToSize self size + = liftIO (js_pruneMemoryCacheToSize (self) size) + +foreign import javascript unsafe "$1[\"memoryCacheSize\"]()" + js_memoryCacheSize :: Internals -> IO Int + +-- | +memoryCacheSize :: (MonadIO m) => Internals -> m Int +memoryCacheSize self = liftIO (js_memoryCacheSize (self)) + +-- | +memoryCacheSize_ :: (MonadIO m) => Internals -> m () +memoryCacheSize_ self = liftIO (void (js_memoryCacheSize (self))) + +foreign import javascript unsafe "$1[\"clearPageCache\"]()" + js_clearPageCache :: Internals -> IO () + +-- | +clearPageCache :: (MonadIO m) => Internals -> m () +clearPageCache self = liftIO (js_clearPageCache (self)) + +foreign import javascript unsafe "$1[\"pageCacheSize\"]()" + js_pageCacheSize :: Internals -> IO Word + +-- | +pageCacheSize :: (MonadIO m) => Internals -> m Word +pageCacheSize self = liftIO (js_pageCacheSize (self)) + +-- | +pageCacheSize_ :: (MonadIO m) => Internals -> m () +pageCacheSize_ self = liftIO (void (js_pageCacheSize (self))) + +foreign import javascript unsafe + "$1[\"computedStyleIncludingVisitedInfo\"]($2)" + js_computedStyleIncludingVisitedInfo :: + Internals -> Nullable Node -> IO (Nullable CSSStyleDeclaration) + +-- | +computedStyleIncludingVisitedInfo :: + (MonadIO m, IsNode node) => + Internals -> Maybe node -> m (Maybe CSSStyleDeclaration) +computedStyleIncludingVisitedInfo self node + = liftIO + (nullableToMaybe <$> + (js_computedStyleIncludingVisitedInfo (self) + (maybeToNullable (fmap toNode node)))) + +-- | +computedStyleIncludingVisitedInfo_ :: + (MonadIO m, IsNode node) => Internals -> Maybe node -> m () +computedStyleIncludingVisitedInfo_ self node + = liftIO + (void + (js_computedStyleIncludingVisitedInfo (self) + (maybeToNullable (fmap toNode node)))) + +-- | +computedStyleIncludingVisitedInfoUnchecked :: + (MonadIO m, IsNode node) => + Internals -> Maybe node -> m CSSStyleDeclaration +computedStyleIncludingVisitedInfoUnchecked self node + = liftIO + (fromJust . nullableToMaybe <$> + (js_computedStyleIncludingVisitedInfo (self) + (maybeToNullable (fmap toNode node)))) + +foreign import javascript unsafe "$1[\"ensureShadowRoot\"]($2)" + js_ensureShadowRoot :: + Internals -> Nullable Element -> IO (Nullable Node) + +-- | +ensureShadowRoot :: + (MonadIO m, IsElement host) => + Internals -> Maybe host -> m (Maybe Node) +ensureShadowRoot self host + = liftIO + (nullableToMaybe <$> + (js_ensureShadowRoot (self) + (maybeToNullable (fmap toElement host)))) + +-- | +ensureShadowRoot_ :: + (MonadIO m, IsElement host) => Internals -> Maybe host -> m () +ensureShadowRoot_ self host + = liftIO + (void + (js_ensureShadowRoot (self) + (maybeToNullable (fmap toElement host)))) + +-- | +ensureShadowRootUnchecked :: + (MonadIO m, IsElement host) => Internals -> Maybe host -> m Node +ensureShadowRootUnchecked self host + = liftIO + (fromJust . nullableToMaybe <$> + (js_ensureShadowRoot (self) + (maybeToNullable (fmap toElement host)))) + +foreign import javascript unsafe "$1[\"createShadowRoot\"]($2)" + js_createShadowRoot :: + Internals -> Nullable Element -> IO (Nullable Node) + +-- | +createShadowRoot :: + (MonadIO m, IsElement host) => + Internals -> Maybe host -> m (Maybe Node) +createShadowRoot self host + = liftIO + (nullableToMaybe <$> + (js_createShadowRoot (self) + (maybeToNullable (fmap toElement host)))) + +-- | +createShadowRoot_ :: + (MonadIO m, IsElement host) => Internals -> Maybe host -> m () +createShadowRoot_ self host + = liftIO + (void + (js_createShadowRoot (self) + (maybeToNullable (fmap toElement host)))) + +-- | +createShadowRootUnchecked :: + (MonadIO m, IsElement host) => Internals -> Maybe host -> m Node +createShadowRootUnchecked self host + = liftIO + (fromJust . nullableToMaybe <$> + (js_createShadowRoot (self) + (maybeToNullable (fmap toElement host)))) + +foreign import javascript unsafe "$1[\"shadowRoot\"]($2)" + js_shadowRoot :: + Internals -> Nullable Element -> IO (Nullable Node) + +-- | +shadowRoot :: + (MonadIO m, IsElement host) => + Internals -> Maybe host -> m (Maybe Node) +shadowRoot self host + = liftIO + (nullableToMaybe <$> + (js_shadowRoot (self) (maybeToNullable (fmap toElement host)))) + +-- | +shadowRoot_ :: + (MonadIO m, IsElement host) => Internals -> Maybe host -> m () +shadowRoot_ self host + = liftIO + (void + (js_shadowRoot (self) (maybeToNullable (fmap toElement host)))) + +-- | +shadowRootUnchecked :: + (MonadIO m, IsElement host) => Internals -> Maybe host -> m Node +shadowRootUnchecked self host + = liftIO + (fromJust . nullableToMaybe <$> + (js_shadowRoot (self) (maybeToNullable (fmap toElement host)))) + +foreign import javascript unsafe "$1[\"shadowRootType\"]($2)" + js_shadowRootType :: Internals -> Nullable Node -> IO JSString + +-- | +shadowRootType :: + (MonadIO m, IsNode root, FromJSString result) => + Internals -> Maybe root -> m result +shadowRootType self root + = liftIO + (fromJSString <$> + (js_shadowRootType (self) (maybeToNullable (fmap toNode root)))) + +-- | +shadowRootType_ :: + (MonadIO m, IsNode root) => Internals -> Maybe root -> m () +shadowRootType_ self root + = liftIO + (void + (js_shadowRootType (self) (maybeToNullable (fmap toNode root)))) + +foreign import javascript unsafe "$1[\"includerFor\"]($2)" + js_includerFor :: + Internals -> Nullable Node -> IO (Nullable Element) + +-- | +includerFor :: + (MonadIO m, IsNode node) => + Internals -> Maybe node -> m (Maybe Element) +includerFor self node + = liftIO + (nullableToMaybe <$> + (js_includerFor (self) (maybeToNullable (fmap toNode node)))) + +-- | +includerFor_ :: + (MonadIO m, IsNode node) => Internals -> Maybe node -> m () +includerFor_ self node + = liftIO + (void (js_includerFor (self) (maybeToNullable (fmap toNode node)))) + +-- | +includerForUnchecked :: + (MonadIO m, IsNode node) => Internals -> Maybe node -> m Element +includerForUnchecked self node + = liftIO + (fromJust . nullableToMaybe <$> + (js_includerFor (self) (maybeToNullable (fmap toNode node)))) + +foreign import javascript unsafe "$1[\"shadowPseudoId\"]($2)" + js_shadowPseudoId :: Internals -> Nullable Element -> IO JSString + +-- | +shadowPseudoId :: + (MonadIO m, IsElement element, FromJSString result) => + Internals -> Maybe element -> m result +shadowPseudoId self element + = liftIO + (fromJSString <$> + (js_shadowPseudoId (self) + (maybeToNullable (fmap toElement element)))) + +-- | +shadowPseudoId_ :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m () +shadowPseudoId_ self element + = liftIO + (void + (js_shadowPseudoId (self) + (maybeToNullable (fmap toElement element)))) + +foreign import javascript unsafe + "$1[\"setShadowPseudoId\"]($2, $3)" js_setShadowPseudoId :: + Internals -> Nullable Element -> JSString -> IO () + +-- | +setShadowPseudoId :: + (MonadIO m, IsElement element, ToJSString id) => + Internals -> Maybe element -> id -> m () +setShadowPseudoId self element id + = liftIO + (js_setShadowPseudoId (self) + (maybeToNullable (fmap toElement element)) + (toJSString id)) + +foreign import javascript unsafe "$1[\"treeScopeRootNode\"]($2)" + js_treeScopeRootNode :: + Internals -> Nullable Node -> IO (Nullable Node) + +-- | +treeScopeRootNode :: + (MonadIO m, IsNode node) => + Internals -> Maybe node -> m (Maybe Node) +treeScopeRootNode self node + = liftIO + (nullableToMaybe <$> + (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node)))) + +-- | +treeScopeRootNode_ :: + (MonadIO m, IsNode node) => Internals -> Maybe node -> m () +treeScopeRootNode_ self node + = liftIO + (void + (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node)))) + +-- | +treeScopeRootNodeUnchecked :: + (MonadIO m, IsNode node) => Internals -> Maybe node -> m Node +treeScopeRootNodeUnchecked self node + = liftIO + (fromJust . nullableToMaybe <$> + (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node)))) + +foreign import javascript unsafe "$1[\"parentTreeScope\"]($2)" + js_parentTreeScope :: + Internals -> Nullable Node -> IO (Nullable Node) + +-- | +parentTreeScope :: + (MonadIO m, IsNode node) => + Internals -> Maybe node -> m (Maybe Node) +parentTreeScope self node + = liftIO + (nullableToMaybe <$> + (js_parentTreeScope (self) (maybeToNullable (fmap toNode node)))) + +-- | +parentTreeScope_ :: + (MonadIO m, IsNode node) => Internals -> Maybe node -> m () +parentTreeScope_ self node + = liftIO + (void + (js_parentTreeScope (self) (maybeToNullable (fmap toNode node)))) + +-- | +parentTreeScopeUnchecked :: + (MonadIO m, IsNode node) => Internals -> Maybe node -> m Node +parentTreeScopeUnchecked self node + = liftIO + (fromJust . nullableToMaybe <$> + (js_parentTreeScope (self) (maybeToNullable (fmap toNode node)))) + +foreign import javascript unsafe + "$1[\"lastSpatialNavigationCandidateCount\"]()" + js_lastSpatialNavigationCandidateCount :: Internals -> IO Word + +-- | +lastSpatialNavigationCandidateCount :: + (MonadIO m) => Internals -> m Word +lastSpatialNavigationCandidateCount self + = liftIO (js_lastSpatialNavigationCandidateCount (self)) + +-- | +lastSpatialNavigationCandidateCount_ :: + (MonadIO m) => Internals -> m () +lastSpatialNavigationCandidateCount_ self + = liftIO (void (js_lastSpatialNavigationCandidateCount (self))) + +foreign import javascript unsafe + "$1[\"numberOfActiveAnimations\"]()" js_numberOfActiveAnimations :: + Internals -> IO Word + +-- | +numberOfActiveAnimations :: (MonadIO m) => Internals -> m Word +numberOfActiveAnimations self + = liftIO (js_numberOfActiveAnimations (self)) + +-- | +numberOfActiveAnimations_ :: (MonadIO m) => Internals -> m () +numberOfActiveAnimations_ self + = liftIO (void (js_numberOfActiveAnimations (self))) + +foreign import javascript unsafe "$1[\"suspendAnimations\"]()" + js_suspendAnimations :: Internals -> IO () + +-- | +suspendAnimations :: (MonadIO m) => Internals -> m () +suspendAnimations self = liftIO (js_suspendAnimations (self)) + +foreign import javascript unsafe "$1[\"resumeAnimations\"]()" + js_resumeAnimations :: Internals -> IO () + +-- | +resumeAnimations :: (MonadIO m) => Internals -> m () +resumeAnimations self = liftIO (js_resumeAnimations (self)) + +foreign import javascript unsafe + "($1[\"animationsAreSuspended\"]() ? 1 : 0)" + js_animationsAreSuspended :: Internals -> IO Bool + +-- | +animationsAreSuspended :: (MonadIO m) => Internals -> m Bool +animationsAreSuspended self + = liftIO (js_animationsAreSuspended (self)) + +-- | +animationsAreSuspended_ :: (MonadIO m) => Internals -> m () +animationsAreSuspended_ self + = liftIO (void (js_animationsAreSuspended (self))) + +foreign import javascript unsafe + "($1[\"pauseAnimationAtTimeOnElement\"]($2,\n$3, $4) ? 1 : 0)" + js_pauseAnimationAtTimeOnElement :: + Internals -> JSString -> Double -> Nullable Element -> IO Bool + +-- | +pauseAnimationAtTimeOnElement :: + (MonadIO m, ToJSString animationName, IsElement element) => + Internals -> animationName -> Double -> Maybe element -> m Bool +pauseAnimationAtTimeOnElement self animationName pauseTime element + = liftIO + (js_pauseAnimationAtTimeOnElement (self) (toJSString animationName) + pauseTime + (maybeToNullable (fmap toElement element))) + +-- | +pauseAnimationAtTimeOnElement_ :: + (MonadIO m, ToJSString animationName, IsElement element) => + Internals -> animationName -> Double -> Maybe element -> m () +pauseAnimationAtTimeOnElement_ self animationName pauseTime element + = liftIO + (void + (js_pauseAnimationAtTimeOnElement (self) (toJSString animationName) + pauseTime + (maybeToNullable (fmap toElement element)))) + +foreign import javascript unsafe + "($1[\"pauseAnimationAtTimeOnPseudoElement\"]($2,\n$3, $4, $5) ? 1 : 0)" + js_pauseAnimationAtTimeOnPseudoElement :: + Internals -> + JSString -> Double -> Nullable Element -> JSString -> IO Bool + +-- | +pauseAnimationAtTimeOnPseudoElement :: + (MonadIO m, ToJSString animationName, IsElement element, + ToJSString pseudoId) => + Internals -> + animationName -> + Double -> Maybe element -> pseudoId -> m Bool +pauseAnimationAtTimeOnPseudoElement self animationName pauseTime + element pseudoId + = liftIO + (js_pauseAnimationAtTimeOnPseudoElement (self) + (toJSString animationName) + pauseTime + (maybeToNullable (fmap toElement element)) + (toJSString pseudoId)) + +-- | +pauseAnimationAtTimeOnPseudoElement_ :: + (MonadIO m, ToJSString animationName, IsElement element, + ToJSString pseudoId) => + Internals -> + animationName -> + Double -> Maybe element -> pseudoId -> m () +pauseAnimationAtTimeOnPseudoElement_ self animationName pauseTime + element pseudoId + = liftIO + (void + (js_pauseAnimationAtTimeOnPseudoElement (self) + (toJSString animationName) + pauseTime + (maybeToNullable (fmap toElement element)) + (toJSString pseudoId))) + +foreign import javascript unsafe + "($1[\"pauseTransitionAtTimeOnElement\"]($2,\n$3, $4) ? 1 : 0)" + js_pauseTransitionAtTimeOnElement :: + Internals -> JSString -> Double -> Nullable Element -> IO Bool + +-- | +pauseTransitionAtTimeOnElement :: + (MonadIO m, ToJSString propertyName, IsElement element) => + Internals -> propertyName -> Double -> Maybe element -> m Bool +pauseTransitionAtTimeOnElement self propertyName pauseTime element + = liftIO + (js_pauseTransitionAtTimeOnElement (self) (toJSString propertyName) + pauseTime + (maybeToNullable (fmap toElement element))) + +-- | +pauseTransitionAtTimeOnElement_ :: + (MonadIO m, ToJSString propertyName, IsElement element) => + Internals -> propertyName -> Double -> Maybe element -> m () +pauseTransitionAtTimeOnElement_ self propertyName pauseTime element + = liftIO + (void + (js_pauseTransitionAtTimeOnElement (self) (toJSString propertyName) + pauseTime + (maybeToNullable (fmap toElement element)))) + +foreign import javascript unsafe + "($1[\"pauseTransitionAtTimeOnPseudoElement\"]($2,\n$3, $4, $5) ? 1 : 0)" + js_pauseTransitionAtTimeOnPseudoElement :: + Internals -> + JSString -> Double -> Nullable Element -> JSString -> IO Bool + +-- | +pauseTransitionAtTimeOnPseudoElement :: + (MonadIO m, ToJSString property, IsElement element, + ToJSString pseudoId) => + Internals -> + property -> Double -> Maybe element -> pseudoId -> m Bool +pauseTransitionAtTimeOnPseudoElement self property pauseTime + element pseudoId + = liftIO + (js_pauseTransitionAtTimeOnPseudoElement (self) + (toJSString property) + pauseTime + (maybeToNullable (fmap toElement element)) + (toJSString pseudoId)) + +-- | +pauseTransitionAtTimeOnPseudoElement_ :: + (MonadIO m, ToJSString property, IsElement element, + ToJSString pseudoId) => + Internals -> + property -> Double -> Maybe element -> pseudoId -> m () +pauseTransitionAtTimeOnPseudoElement_ self property pauseTime + element pseudoId + = liftIO + (void + (js_pauseTransitionAtTimeOnPseudoElement (self) + (toJSString property) + pauseTime + (maybeToNullable (fmap toElement element)) + (toJSString pseudoId))) + +foreign import javascript unsafe "($1[\"attached\"]($2) ? 1 : 0)" + js_attached :: Internals -> Nullable Node -> IO Bool + +-- | +attached :: + (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool +attached self node + = liftIO (js_attached (self) (maybeToNullable (fmap toNode node))) + +-- | +attached_ :: + (MonadIO m, IsNode node) => Internals -> Maybe node -> m () +attached_ self node + = liftIO + (void (js_attached (self) (maybeToNullable (fmap toNode node)))) + +foreign import javascript unsafe "$1[\"visiblePlaceholder\"]($2)" + js_visiblePlaceholder :: + Internals -> Nullable Element -> IO JSString + +-- | +visiblePlaceholder :: + (MonadIO m, IsElement element, FromJSString result) => + Internals -> Maybe element -> m result +visiblePlaceholder self element + = liftIO + (fromJSString <$> + (js_visiblePlaceholder (self) + (maybeToNullable (fmap toElement element)))) + +-- | +visiblePlaceholder_ :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m () +visiblePlaceholder_ self element + = liftIO + (void + (js_visiblePlaceholder (self) + (maybeToNullable (fmap toElement element)))) + +foreign import javascript unsafe + "$1[\"selectColorInColorChooser\"]($2,\n$3)" + js_selectColorInColorChooser :: + Internals -> Nullable Element -> JSString -> IO () + +-- | +selectColorInColorChooser :: + (MonadIO m, IsElement element, ToJSString colorValue) => + Internals -> Maybe element -> colorValue -> m () +selectColorInColorChooser self element colorValue + = liftIO + (js_selectColorInColorChooser (self) + (maybeToNullable (fmap toElement element)) + (toJSString colorValue)) + +foreign import javascript unsafe + "$1[\"formControlStateOfPreviousHistoryItem\"]()" + js_formControlStateOfPreviousHistoryItem :: Internals -> IO JSVal + +-- | +formControlStateOfPreviousHistoryItem :: + (MonadIO m, FromJSString result) => Internals -> m [result] +formControlStateOfPreviousHistoryItem self + = liftIO + ((js_formControlStateOfPreviousHistoryItem (self)) >>= + fromJSValUnchecked) + +-- | +formControlStateOfPreviousHistoryItem_ :: + (MonadIO m) => Internals -> m () +formControlStateOfPreviousHistoryItem_ self + = liftIO (void (js_formControlStateOfPreviousHistoryItem (self))) + +foreign import javascript unsafe + "$1[\"setFormControlStateOfPreviousHistoryItem\"]($2)" + js_setFormControlStateOfPreviousHistoryItem :: + Internals -> JSVal -> IO () + +-- | +setFormControlStateOfPreviousHistoryItem :: + (MonadIO m, ToJSString values) => + Internals -> [values] -> m () +setFormControlStateOfPreviousHistoryItem self values + = liftIO + (toJSVal values >>= + \ values' -> + js_setFormControlStateOfPreviousHistoryItem (self) values') + +foreign import javascript unsafe "$1[\"absoluteCaretBounds\"]()" + js_absoluteCaretBounds :: Internals -> IO (Nullable ClientRect) + +-- | +absoluteCaretBounds :: + (MonadIO m) => Internals -> m (Maybe ClientRect) +absoluteCaretBounds self + = liftIO (nullableToMaybe <$> (js_absoluteCaretBounds (self))) + +-- | +absoluteCaretBounds_ :: (MonadIO m) => Internals -> m () +absoluteCaretBounds_ self + = liftIO (void (js_absoluteCaretBounds (self))) + +-- | +absoluteCaretBoundsUnchecked :: + (MonadIO m) => Internals -> m ClientRect +absoluteCaretBoundsUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_absoluteCaretBounds (self))) + +foreign import javascript unsafe "$1[\"boundingBox\"]($2)" + js_boundingBox :: + Internals -> Nullable Element -> IO (Nullable ClientRect) + +-- | +boundingBox :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m (Maybe ClientRect) +boundingBox self element + = liftIO + (nullableToMaybe <$> + (js_boundingBox (self) (maybeToNullable (fmap toElement element)))) + +-- | +boundingBox_ :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m () +boundingBox_ self element + = liftIO + (void + (js_boundingBox (self) (maybeToNullable (fmap toElement element)))) + +-- | +boundingBoxUnchecked :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m ClientRect +boundingBoxUnchecked self element + = liftIO + (fromJust . nullableToMaybe <$> + (js_boundingBox (self) (maybeToNullable (fmap toElement element)))) + +foreign import javascript unsafe + "$1[\"inspectorHighlightRects\"]()" js_inspectorHighlightRects :: + Internals -> IO (Nullable ClientRectList) + +-- | +inspectorHighlightRects :: + (MonadIO m) => Internals -> m (Maybe ClientRectList) +inspectorHighlightRects self + = liftIO (nullableToMaybe <$> (js_inspectorHighlightRects (self))) + +-- | +inspectorHighlightRects_ :: (MonadIO m) => Internals -> m () +inspectorHighlightRects_ self + = liftIO (void (js_inspectorHighlightRects (self))) + +-- | +inspectorHighlightRectsUnchecked :: + (MonadIO m) => Internals -> m ClientRectList +inspectorHighlightRectsUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_inspectorHighlightRects (self))) + +foreign import javascript unsafe + "$1[\"inspectorHighlightObject\"]()" js_inspectorHighlightObject :: + Internals -> IO JSString + +-- | +inspectorHighlightObject :: + (MonadIO m, FromJSString result) => Internals -> m result +inspectorHighlightObject self + = liftIO (fromJSString <$> (js_inspectorHighlightObject (self))) + +-- | +inspectorHighlightObject_ :: (MonadIO m) => Internals -> m () +inspectorHighlightObject_ self + = liftIO (void (js_inspectorHighlightObject (self))) + +foreign import javascript unsafe + "$1[\"markerCountForNode\"]($2, $3)" js_markerCountForNode :: + Internals -> Nullable Node -> JSString -> IO Word + +-- | +markerCountForNode :: + (MonadIO m, IsNode node, ToJSString markerType) => + Internals -> Maybe node -> markerType -> m Word +markerCountForNode self node markerType + = liftIO + (js_markerCountForNode (self) (maybeToNullable (fmap toNode node)) + (toJSString markerType)) + +-- | +markerCountForNode_ :: + (MonadIO m, IsNode node, ToJSString markerType) => + Internals -> Maybe node -> markerType -> m () +markerCountForNode_ self node markerType + = liftIO + (void + (js_markerCountForNode (self) (maybeToNullable (fmap toNode node)) + (toJSString markerType))) + +foreign import javascript unsafe + "$1[\"markerRangeForNode\"]($2, $3,\n$4)" js_markerRangeForNode :: + Internals -> + Nullable Node -> JSString -> Word -> IO (Nullable Range) + +-- | +markerRangeForNode :: + (MonadIO m, IsNode node, ToJSString markerType) => + Internals -> Maybe node -> markerType -> Word -> m (Maybe Range) +markerRangeForNode self node markerType index + = liftIO + (nullableToMaybe <$> + (js_markerRangeForNode (self) (maybeToNullable (fmap toNode node)) + (toJSString markerType) + index)) + +-- | +markerRangeForNode_ :: + (MonadIO m, IsNode node, ToJSString markerType) => + Internals -> Maybe node -> markerType -> Word -> m () +markerRangeForNode_ self node markerType index + = liftIO + (void + (js_markerRangeForNode (self) (maybeToNullable (fmap toNode node)) + (toJSString markerType) + index)) + +-- | +markerRangeForNodeUnchecked :: + (MonadIO m, IsNode node, ToJSString markerType) => + Internals -> Maybe node -> markerType -> Word -> m Range +markerRangeForNodeUnchecked self node markerType index + = liftIO + (fromJust . nullableToMaybe <$> + (js_markerRangeForNode (self) (maybeToNullable (fmap toNode node)) + (toJSString markerType) + index)) + +foreign import javascript unsafe + "$1[\"markerDescriptionForNode\"]($2,\n$3, $4)" + js_markerDescriptionForNode :: + Internals -> Nullable Node -> JSString -> Word -> IO JSString + +-- | +markerDescriptionForNode :: + (MonadIO m, IsNode node, ToJSString markerType, + FromJSString result) => + Internals -> Maybe node -> markerType -> Word -> m result +markerDescriptionForNode self node markerType index + = liftIO + (fromJSString <$> + (js_markerDescriptionForNode (self) + (maybeToNullable (fmap toNode node)) + (toJSString markerType) + index)) + +-- | +markerDescriptionForNode_ :: + (MonadIO m, IsNode node, ToJSString markerType) => + Internals -> Maybe node -> markerType -> Word -> m () +markerDescriptionForNode_ self node markerType index + = liftIO + (void + (js_markerDescriptionForNode (self) + (maybeToNullable (fmap toNode node)) + (toJSString markerType) + index)) + +foreign import javascript unsafe + "$1[\"addTextMatchMarker\"]($2, $3)" js_addTextMatchMarker :: + Internals -> Nullable Range -> Bool -> IO () + +-- | +addTextMatchMarker :: + (MonadIO m) => Internals -> Maybe Range -> Bool -> m () +addTextMatchMarker self range isActive + = liftIO + (js_addTextMatchMarker (self) (maybeToNullable range) isActive) + +foreign import javascript unsafe + "$1[\"setMarkedTextMatchesAreHighlighted\"]($2)" + js_setMarkedTextMatchesAreHighlighted :: Internals -> Bool -> IO () + +-- | +setMarkedTextMatchesAreHighlighted :: + (MonadIO m) => Internals -> Bool -> m () +setMarkedTextMatchesAreHighlighted self flag + = liftIO (js_setMarkedTextMatchesAreHighlighted (self) flag) + +foreign import javascript unsafe "$1[\"invalidateFontCache\"]()" + js_invalidateFontCache :: Internals -> IO () + +-- | +invalidateFontCache :: (MonadIO m) => Internals -> m () +invalidateFontCache self = liftIO (js_invalidateFontCache (self)) + +foreign import javascript unsafe + "$1[\"setScrollViewPosition\"]($2,\n$3)" js_setScrollViewPosition + :: Internals -> Int -> Int -> IO () + +-- | +setScrollViewPosition :: + (MonadIO m) => Internals -> Int -> Int -> m () +setScrollViewPosition self x y + = liftIO (js_setScrollViewPosition (self) x y) + +foreign import javascript unsafe + "$1[\"setPagination\"]($2, $3, $4)" js_setPagination :: + Internals -> JSString -> Int -> Int -> IO () + +-- | +setPagination :: + (MonadIO m, ToJSString mode) => + Internals -> mode -> Int -> Int -> m () +setPagination self mode gap pageLength + = liftIO (js_setPagination (self) (toJSString mode) gap pageLength) + +foreign import javascript unsafe + "$1[\"configurationForViewport\"]($2,\n$3, $4, $5, $6)" + js_configurationForViewport :: + Internals -> Float -> Int -> Int -> Int -> Int -> IO JSString + +-- | +configurationForViewport :: + (MonadIO m, FromJSString result) => + Internals -> Float -> Int -> Int -> Int -> Int -> m result +configurationForViewport self devicePixelRatio deviceWidth + deviceHeight availableWidth availableHeight + = liftIO + (fromJSString <$> + (js_configurationForViewport (self) devicePixelRatio deviceWidth + deviceHeight + availableWidth + availableHeight)) + +-- | +configurationForViewport_ :: + (MonadIO m) => + Internals -> Float -> Int -> Int -> Int -> Int -> m () +configurationForViewport_ self devicePixelRatio deviceWidth + deviceHeight availableWidth availableHeight + = liftIO + (void + (js_configurationForViewport (self) devicePixelRatio deviceWidth + deviceHeight + availableWidth + availableHeight)) + +foreign import javascript unsafe + "($1[\"wasLastChangeUserEdit\"]($2) ? 1 : 0)" + js_wasLastChangeUserEdit :: + Internals -> Nullable Element -> IO Bool + +-- | +wasLastChangeUserEdit :: + (MonadIO m, IsElement textField) => + Internals -> Maybe textField -> m Bool +wasLastChangeUserEdit self textField + = liftIO + (js_wasLastChangeUserEdit (self) + (maybeToNullable (fmap toElement textField))) + +-- | +wasLastChangeUserEdit_ :: + (MonadIO m, IsElement textField) => + Internals -> Maybe textField -> m () +wasLastChangeUserEdit_ self textField + = liftIO + (void + (js_wasLastChangeUserEdit (self) + (maybeToNullable (fmap toElement textField)))) + +foreign import javascript unsafe + "($1[\"elementShouldAutoComplete\"]($2) ? 1 : 0)" + js_elementShouldAutoComplete :: + Internals -> Nullable Element -> IO Bool + +-- | +elementShouldAutoComplete :: + (MonadIO m, IsElement inputElement) => + Internals -> Maybe inputElement -> m Bool +elementShouldAutoComplete self inputElement + = liftIO + (js_elementShouldAutoComplete (self) + (maybeToNullable (fmap toElement inputElement))) + +-- | +elementShouldAutoComplete_ :: + (MonadIO m, IsElement inputElement) => + Internals -> Maybe inputElement -> m () +elementShouldAutoComplete_ self inputElement + = liftIO + (void + (js_elementShouldAutoComplete (self) + (maybeToNullable (fmap toElement inputElement)))) + +foreign import javascript unsafe "$1[\"setEditingValue\"]($2, $3)" + js_setEditingValue :: + Internals -> Nullable Element -> JSString -> IO () + +-- | +setEditingValue :: + (MonadIO m, IsElement inputElement, ToJSString value) => + Internals -> Maybe inputElement -> value -> m () +setEditingValue self inputElement value + = liftIO + (js_setEditingValue (self) + (maybeToNullable (fmap toElement inputElement)) + (toJSString value)) + +foreign import javascript unsafe "$1[\"setAutofilled\"]($2, $3)" + js_setAutofilled :: Internals -> Nullable Element -> Bool -> IO () + +-- | +setAutofilled :: + (MonadIO m, IsElement inputElement) => + Internals -> Maybe inputElement -> Bool -> m () +setAutofilled self inputElement enabled + = liftIO + (js_setAutofilled (self) + (maybeToNullable (fmap toElement inputElement)) + enabled) + +foreign import javascript unsafe + "$1[\"countMatchesForText\"]($2,\n$3, $4)" js_countMatchesForText + :: Internals -> JSString -> Word -> JSString -> IO Word + +-- | +countMatchesForText :: + (MonadIO m, ToJSString text, ToJSString markMatches) => + Internals -> text -> Word -> markMatches -> m Word +countMatchesForText self text findOptions markMatches + = liftIO + (js_countMatchesForText (self) (toJSString text) findOptions + (toJSString markMatches)) + +-- | +countMatchesForText_ :: + (MonadIO m, ToJSString text, ToJSString markMatches) => + Internals -> text -> Word -> markMatches -> m () +countMatchesForText_ self text findOptions markMatches + = liftIO + (void + (js_countMatchesForText (self) (toJSString text) findOptions + (toJSString markMatches))) + +foreign import javascript unsafe "$1[\"paintControlTints\"]()" + js_paintControlTints :: Internals -> IO () + +-- | +paintControlTints :: (MonadIO m) => Internals -> m () +paintControlTints self = liftIO (js_paintControlTints (self)) + +foreign import javascript unsafe + "$1[\"scrollElementToRect\"]($2,\n$3, $4, $5, $6)" + js_scrollElementToRect :: + Internals -> Nullable Element -> Int -> Int -> Int -> Int -> IO () + +-- | +scrollElementToRect :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> Int -> Int -> Int -> Int -> m () +scrollElementToRect self element x y w h + = liftIO + (js_scrollElementToRect (self) + (maybeToNullable (fmap toElement element)) + x + y + w + h) + +foreign import javascript unsafe + "$1[\"rangeFromLocationAndLength\"]($2,\n$3, $4)" + js_rangeFromLocationAndLength :: + Internals -> Nullable Element -> Int -> Int -> IO (Nullable Range) + +-- | +rangeFromLocationAndLength :: + (MonadIO m, IsElement scope) => + Internals -> Maybe scope -> Int -> Int -> m (Maybe Range) +rangeFromLocationAndLength self scope rangeLocation rangeLength + = liftIO + (nullableToMaybe <$> + (js_rangeFromLocationAndLength (self) + (maybeToNullable (fmap toElement scope)) + rangeLocation + rangeLength)) + +-- | +rangeFromLocationAndLength_ :: + (MonadIO m, IsElement scope) => + Internals -> Maybe scope -> Int -> Int -> m () +rangeFromLocationAndLength_ self scope rangeLocation rangeLength + = liftIO + (void + (js_rangeFromLocationAndLength (self) + (maybeToNullable (fmap toElement scope)) + rangeLocation + rangeLength)) + +-- | +rangeFromLocationAndLengthUnchecked :: + (MonadIO m, IsElement scope) => + Internals -> Maybe scope -> Int -> Int -> m Range +rangeFromLocationAndLengthUnchecked self scope rangeLocation + rangeLength + = liftIO + (fromJust . nullableToMaybe <$> + (js_rangeFromLocationAndLength (self) + (maybeToNullable (fmap toElement scope)) + rangeLocation + rangeLength)) + +foreign import javascript unsafe + "$1[\"locationFromRange\"]($2, $3)" js_locationFromRange :: + Internals -> Nullable Element -> Nullable Range -> IO Word + +-- | +locationFromRange :: + (MonadIO m, IsElement scope) => + Internals -> Maybe scope -> Maybe Range -> m Word +locationFromRange self scope range + = liftIO + (js_locationFromRange (self) + (maybeToNullable (fmap toElement scope)) + (maybeToNullable range)) + +-- | +locationFromRange_ :: + (MonadIO m, IsElement scope) => + Internals -> Maybe scope -> Maybe Range -> m () +locationFromRange_ self scope range + = liftIO + (void + (js_locationFromRange (self) + (maybeToNullable (fmap toElement scope)) + (maybeToNullable range))) + +foreign import javascript unsafe "$1[\"lengthFromRange\"]($2, $3)" + js_lengthFromRange :: + Internals -> Nullable Element -> Nullable Range -> IO Word + +-- | +lengthFromRange :: + (MonadIO m, IsElement scope) => + Internals -> Maybe scope -> Maybe Range -> m Word +lengthFromRange self scope range + = liftIO + (js_lengthFromRange (self) (maybeToNullable (fmap toElement scope)) + (maybeToNullable range)) + +-- | +lengthFromRange_ :: + (MonadIO m, IsElement scope) => + Internals -> Maybe scope -> Maybe Range -> m () +lengthFromRange_ self scope range + = liftIO + (void + (js_lengthFromRange (self) (maybeToNullable (fmap toElement scope)) + (maybeToNullable range))) + +foreign import javascript unsafe "$1[\"rangeAsText\"]($2)" + js_rangeAsText :: Internals -> Nullable Range -> IO JSString + +-- | +rangeAsText :: + (MonadIO m, FromJSString result) => + Internals -> Maybe Range -> m result +rangeAsText self range + = liftIO + (fromJSString <$> (js_rangeAsText (self) (maybeToNullable range))) + +-- | +rangeAsText_ :: (MonadIO m) => Internals -> Maybe Range -> m () +rangeAsText_ self range + = liftIO (void (js_rangeAsText (self) (maybeToNullable range))) + +foreign import javascript unsafe "$1[\"subrange\"]($2, $3, $4)" + js_subrange :: + Internals -> Nullable Range -> Int -> Int -> IO (Nullable Range) + +-- | +subrange :: + (MonadIO m) => + Internals -> Maybe Range -> Int -> Int -> m (Maybe Range) +subrange self range rangeLocation rangeLength + = liftIO + (nullableToMaybe <$> + (js_subrange (self) (maybeToNullable range) rangeLocation + rangeLength)) + +-- | +subrange_ :: + (MonadIO m) => Internals -> Maybe Range -> Int -> Int -> m () +subrange_ self range rangeLocation rangeLength + = liftIO + (void + (js_subrange (self) (maybeToNullable range) rangeLocation + rangeLength)) + +-- | +subrangeUnchecked :: + (MonadIO m) => Internals -> Maybe Range -> Int -> Int -> m Range +subrangeUnchecked self range rangeLocation rangeLength + = liftIO + (fromJust . nullableToMaybe <$> + (js_subrange (self) (maybeToNullable range) rangeLocation + rangeLength)) + +foreign import javascript unsafe + "$1[\"rangeForDictionaryLookupAtLocation\"]($2,\n$3)" + js_rangeForDictionaryLookupAtLocation :: + Internals -> Int -> Int -> IO (Nullable Range) + +-- | +rangeForDictionaryLookupAtLocation :: + (MonadIO m) => Internals -> Int -> Int -> m (Maybe Range) +rangeForDictionaryLookupAtLocation self x y + = liftIO + (nullableToMaybe <$> + (js_rangeForDictionaryLookupAtLocation (self) x y)) + +-- | +rangeForDictionaryLookupAtLocation_ :: + (MonadIO m) => Internals -> Int -> Int -> m () +rangeForDictionaryLookupAtLocation_ self x y + = liftIO (void (js_rangeForDictionaryLookupAtLocation (self) x y)) + +-- | +rangeForDictionaryLookupAtLocationUnchecked :: + (MonadIO m) => Internals -> Int -> Int -> m Range +rangeForDictionaryLookupAtLocationUnchecked self x y + = liftIO + (fromJust . nullableToMaybe <$> + (js_rangeForDictionaryLookupAtLocation (self) x y)) + +foreign import javascript unsafe + "$1[\"setDelegatesScrolling\"]($2)" js_setDelegatesScrolling :: + Internals -> Bool -> IO () + +-- | +setDelegatesScrolling :: (MonadIO m) => Internals -> Bool -> m () +setDelegatesScrolling self enabled + = liftIO (js_setDelegatesScrolling (self) enabled) + +foreign import javascript unsafe + "$1[\"lastSpellCheckRequestSequence\"]()" + js_lastSpellCheckRequestSequence :: Internals -> IO Int + +-- | +lastSpellCheckRequestSequence :: (MonadIO m) => Internals -> m Int +lastSpellCheckRequestSequence self + = liftIO (js_lastSpellCheckRequestSequence (self)) + +-- | +lastSpellCheckRequestSequence_ :: (MonadIO m) => Internals -> m () +lastSpellCheckRequestSequence_ self + = liftIO (void (js_lastSpellCheckRequestSequence (self))) + +foreign import javascript unsafe + "$1[\"lastSpellCheckProcessedSequence\"]()" + js_lastSpellCheckProcessedSequence :: Internals -> IO Int + +-- | +lastSpellCheckProcessedSequence :: + (MonadIO m) => Internals -> m Int +lastSpellCheckProcessedSequence self + = liftIO (js_lastSpellCheckProcessedSequence (self)) + +-- | +lastSpellCheckProcessedSequence_ :: + (MonadIO m) => Internals -> m () +lastSpellCheckProcessedSequence_ self + = liftIO (void (js_lastSpellCheckProcessedSequence (self))) + +foreign import javascript unsafe "$1[\"userPreferredLanguages\"]()" + js_userPreferredLanguages :: Internals -> IO JSVal + +-- | +userPreferredLanguages :: + (MonadIO m, FromJSString result) => Internals -> m [result] +userPreferredLanguages self + = liftIO + ((js_userPreferredLanguages (self)) >>= fromJSValUnchecked) + +-- | +userPreferredLanguages_ :: (MonadIO m) => Internals -> m () +userPreferredLanguages_ self + = liftIO (void (js_userPreferredLanguages (self))) + +foreign import javascript unsafe + "$1[\"setUserPreferredLanguages\"]($2)" + js_setUserPreferredLanguages :: Internals -> JSVal -> IO () + +-- | +setUserPreferredLanguages :: + (MonadIO m, ToJSString languages) => + Internals -> [languages] -> m () +setUserPreferredLanguages self languages + = liftIO + (toJSVal languages >>= + \ languages' -> js_setUserPreferredLanguages (self) languages') + +foreign import javascript unsafe "$1[\"wheelEventHandlerCount\"]()" + js_wheelEventHandlerCount :: Internals -> IO Word + +-- | +wheelEventHandlerCount :: (MonadIO m) => Internals -> m Word +wheelEventHandlerCount self + = liftIO (js_wheelEventHandlerCount (self)) + +-- | +wheelEventHandlerCount_ :: (MonadIO m) => Internals -> m () +wheelEventHandlerCount_ self + = liftIO (void (js_wheelEventHandlerCount (self))) + +foreign import javascript unsafe "$1[\"touchEventHandlerCount\"]()" + js_touchEventHandlerCount :: Internals -> IO Word + +-- | +touchEventHandlerCount :: (MonadIO m) => Internals -> m Word +touchEventHandlerCount self + = liftIO (js_touchEventHandlerCount (self)) + +-- | +touchEventHandlerCount_ :: (MonadIO m) => Internals -> m () +touchEventHandlerCount_ self + = liftIO (void (js_touchEventHandlerCount (self))) + +foreign import javascript unsafe + "$1[\"nodesFromRect\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11)" + js_nodesFromRect :: + Internals -> + Nullable Document -> + Int -> + Int -> + Word -> + Word -> + Word -> Word -> Bool -> Bool -> Bool -> IO (Nullable NodeList) + +-- | +nodesFromRect :: + (MonadIO m, IsDocument document) => + Internals -> + Maybe document -> + Int -> + Int -> + Word -> + Word -> Word -> Word -> Bool -> Bool -> Bool -> m (Maybe NodeList) +nodesFromRect self document x y topPadding rightPadding + bottomPadding leftPadding ignoreClipping allowShadowContent + allowChildFrameContent + = liftIO + (nullableToMaybe <$> + (js_nodesFromRect (self) + (maybeToNullable (fmap toDocument document)) + x + y + topPadding + rightPadding + bottomPadding + leftPadding + ignoreClipping + allowShadowContent + allowChildFrameContent)) + +-- | +nodesFromRect_ :: + (MonadIO m, IsDocument document) => + Internals -> + Maybe document -> + Int -> + Int -> Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> m () +nodesFromRect_ self document x y topPadding rightPadding + bottomPadding leftPadding ignoreClipping allowShadowContent + allowChildFrameContent + = liftIO + (void + (js_nodesFromRect (self) + (maybeToNullable (fmap toDocument document)) + x + y + topPadding + rightPadding + bottomPadding + leftPadding + ignoreClipping + allowShadowContent + allowChildFrameContent)) + +-- | +nodesFromRectUnchecked :: + (MonadIO m, IsDocument document) => + Internals -> + Maybe document -> + Int -> + Int -> + Word -> Word -> Word -> Word -> Bool -> Bool -> Bool -> m NodeList +nodesFromRectUnchecked self document x y topPadding rightPadding + bottomPadding leftPadding ignoreClipping allowShadowContent + allowChildFrameContent + = liftIO + (fromJust . nullableToMaybe <$> + (js_nodesFromRect (self) + (maybeToNullable (fmap toDocument document)) + x + y + topPadding + rightPadding + bottomPadding + leftPadding + ignoreClipping + allowShadowContent + allowChildFrameContent)) + +foreign import javascript unsafe "$1[\"parserMetaData\"]($2)" + js_parserMetaData :: Internals -> JSVal -> IO JSString + +-- | +parserMetaData :: + (MonadIO m, FromJSString result) => Internals -> JSVal -> m result +parserMetaData self func + = liftIO (fromJSString <$> (js_parserMetaData (self) func)) + +-- | +parserMetaData_ :: (MonadIO m) => Internals -> JSVal -> m () +parserMetaData_ self func + = liftIO (void (js_parserMetaData (self) func)) + +foreign import javascript unsafe + "$1[\"updateEditorUINowIfScheduled\"]()" + js_updateEditorUINowIfScheduled :: Internals -> IO () + +-- | +updateEditorUINowIfScheduled :: (MonadIO m) => Internals -> m () +updateEditorUINowIfScheduled self + = liftIO (js_updateEditorUINowIfScheduled (self)) + +foreign import javascript unsafe + "($1[\"hasSpellingMarker\"]($2,\n$3) ? 1 : 0)" js_hasSpellingMarker + :: Internals -> Int -> Int -> IO Bool + +-- | +hasSpellingMarker :: + (MonadIO m) => Internals -> Int -> Int -> m Bool +hasSpellingMarker self from length + = liftIO (js_hasSpellingMarker (self) from length) + +-- | +hasSpellingMarker_ :: + (MonadIO m) => Internals -> Int -> Int -> m () +hasSpellingMarker_ self from length + = liftIO (void (js_hasSpellingMarker (self) from length)) + +foreign import javascript unsafe + "($1[\"hasGrammarMarker\"]($2,\n$3) ? 1 : 0)" js_hasGrammarMarker + :: Internals -> Int -> Int -> IO Bool + +-- | +hasGrammarMarker :: + (MonadIO m) => Internals -> Int -> Int -> m Bool +hasGrammarMarker self from length + = liftIO (js_hasGrammarMarker (self) from length) + +-- | +hasGrammarMarker_ :: (MonadIO m) => Internals -> Int -> Int -> m () +hasGrammarMarker_ self from length + = liftIO (void (js_hasGrammarMarker (self) from length)) + +foreign import javascript unsafe + "($1[\"hasAutocorrectedMarker\"]($2,\n$3) ? 1 : 0)" + js_hasAutocorrectedMarker :: Internals -> Int -> Int -> IO Bool + +-- | +hasAutocorrectedMarker :: + (MonadIO m) => Internals -> Int -> Int -> m Bool +hasAutocorrectedMarker self from length + = liftIO (js_hasAutocorrectedMarker (self) from length) + +-- | +hasAutocorrectedMarker_ :: + (MonadIO m) => Internals -> Int -> Int -> m () +hasAutocorrectedMarker_ self from length + = liftIO (void (js_hasAutocorrectedMarker (self) from length)) + +foreign import javascript unsafe + "$1[\"setContinuousSpellCheckingEnabled\"]($2)" + js_setContinuousSpellCheckingEnabled :: Internals -> Bool -> IO () + +-- | +setContinuousSpellCheckingEnabled :: + (MonadIO m) => Internals -> Bool -> m () +setContinuousSpellCheckingEnabled self enabled + = liftIO (js_setContinuousSpellCheckingEnabled (self) enabled) + +foreign import javascript unsafe + "$1[\"setAutomaticQuoteSubstitutionEnabled\"]($2)" + js_setAutomaticQuoteSubstitutionEnabled :: + Internals -> Bool -> IO () + +-- | +setAutomaticQuoteSubstitutionEnabled :: + (MonadIO m) => Internals -> Bool -> m () +setAutomaticQuoteSubstitutionEnabled self enabled + = liftIO (js_setAutomaticQuoteSubstitutionEnabled (self) enabled) + +foreign import javascript unsafe + "$1[\"setAutomaticLinkDetectionEnabled\"]($2)" + js_setAutomaticLinkDetectionEnabled :: Internals -> Bool -> IO () + +-- | +setAutomaticLinkDetectionEnabled :: + (MonadIO m) => Internals -> Bool -> m () +setAutomaticLinkDetectionEnabled self enabled + = liftIO (js_setAutomaticLinkDetectionEnabled (self) enabled) + +foreign import javascript unsafe + "$1[\"setAutomaticDashSubstitutionEnabled\"]($2)" + js_setAutomaticDashSubstitutionEnabled :: + Internals -> Bool -> IO () + +-- | +setAutomaticDashSubstitutionEnabled :: + (MonadIO m) => Internals -> Bool -> m () +setAutomaticDashSubstitutionEnabled self enabled + = liftIO (js_setAutomaticDashSubstitutionEnabled (self) enabled) + +foreign import javascript unsafe + "$1[\"setAutomaticTextReplacementEnabled\"]($2)" + js_setAutomaticTextReplacementEnabled :: Internals -> Bool -> IO () + +-- | +setAutomaticTextReplacementEnabled :: + (MonadIO m) => Internals -> Bool -> m () +setAutomaticTextReplacementEnabled self enabled + = liftIO (js_setAutomaticTextReplacementEnabled (self) enabled) + +foreign import javascript unsafe + "$1[\"setAutomaticSpellingCorrectionEnabled\"]($2)" + js_setAutomaticSpellingCorrectionEnabled :: + Internals -> Bool -> IO () + +-- | +setAutomaticSpellingCorrectionEnabled :: + (MonadIO m) => Internals -> Bool -> m () +setAutomaticSpellingCorrectionEnabled self enabled + = liftIO (js_setAutomaticSpellingCorrectionEnabled (self) enabled) + +foreign import javascript unsafe + "($1[\"isOverwriteModeEnabled\"]() ? 1 : 0)" + js_isOverwriteModeEnabled :: Internals -> IO Bool + +-- | +isOverwriteModeEnabled :: (MonadIO m) => Internals -> m Bool +isOverwriteModeEnabled self + = liftIO (js_isOverwriteModeEnabled (self)) + +-- | +isOverwriteModeEnabled_ :: (MonadIO m) => Internals -> m () +isOverwriteModeEnabled_ self + = liftIO (void (js_isOverwriteModeEnabled (self))) + +foreign import javascript unsafe + "$1[\"toggleOverwriteModeEnabled\"]()" + js_toggleOverwriteModeEnabled :: Internals -> IO () + +-- | +toggleOverwriteModeEnabled :: (MonadIO m) => Internals -> m () +toggleOverwriteModeEnabled self + = liftIO (js_toggleOverwriteModeEnabled (self)) + +foreign import javascript unsafe + "$1[\"numberOfScrollableAreas\"]()" js_numberOfScrollableAreas :: + Internals -> IO Word + +-- | +numberOfScrollableAreas :: (MonadIO m) => Internals -> m Word +numberOfScrollableAreas self + = liftIO (js_numberOfScrollableAreas (self)) + +-- | +numberOfScrollableAreas_ :: (MonadIO m) => Internals -> m () +numberOfScrollableAreas_ self + = liftIO (void (js_numberOfScrollableAreas (self))) + +foreign import javascript unsafe + "($1[\"isPageBoxVisible\"]($2) ? 1 : 0)" js_isPageBoxVisible :: + Internals -> Int -> IO Bool + +-- | +isPageBoxVisible :: (MonadIO m) => Internals -> Int -> m Bool +isPageBoxVisible self pageNumber + = liftIO (js_isPageBoxVisible (self) pageNumber) + +-- | +isPageBoxVisible_ :: (MonadIO m) => Internals -> Int -> m () +isPageBoxVisible_ self pageNumber + = liftIO (void (js_isPageBoxVisible (self) pageNumber)) + +foreign import javascript unsafe "$1[\"layerTreeAsText\"]($2, $3)" + js_layerTreeAsText :: + Internals -> Nullable Document -> Word -> IO JSString + +-- | +layerTreeAsText :: + (MonadIO m, IsDocument document, FromJSString result) => + Internals -> Maybe document -> Word -> m result +layerTreeAsText self document flags + = liftIO + (fromJSString <$> + (js_layerTreeAsText (self) + (maybeToNullable (fmap toDocument document)) + flags)) + +-- | +layerTreeAsText_ :: + (MonadIO m, IsDocument document) => + Internals -> Maybe document -> Word -> m () +layerTreeAsText_ self document flags + = liftIO + (void + (js_layerTreeAsText (self) + (maybeToNullable (fmap toDocument document)) + flags)) + +foreign import javascript unsafe + "$1[\"scrollingStateTreeAsText\"]()" js_scrollingStateTreeAsText :: + Internals -> IO JSString + +-- | +scrollingStateTreeAsText :: + (MonadIO m, FromJSString result) => Internals -> m result +scrollingStateTreeAsText self + = liftIO (fromJSString <$> (js_scrollingStateTreeAsText (self))) + +-- | +scrollingStateTreeAsText_ :: (MonadIO m) => Internals -> m () +scrollingStateTreeAsText_ self + = liftIO (void (js_scrollingStateTreeAsText (self))) + +foreign import javascript unsafe + "$1[\"mainThreadScrollingReasons\"]()" + js_mainThreadScrollingReasons :: Internals -> IO JSString + +-- | +mainThreadScrollingReasons :: + (MonadIO m, FromJSString result) => Internals -> m result +mainThreadScrollingReasons self + = liftIO (fromJSString <$> (js_mainThreadScrollingReasons (self))) + +-- | +mainThreadScrollingReasons_ :: (MonadIO m) => Internals -> m () +mainThreadScrollingReasons_ self + = liftIO (void (js_mainThreadScrollingReasons (self))) + +foreign import javascript unsafe "$1[\"nonFastScrollableRects\"]()" + js_nonFastScrollableRects :: + Internals -> IO (Nullable ClientRectList) + +-- | +nonFastScrollableRects :: + (MonadIO m) => Internals -> m (Maybe ClientRectList) +nonFastScrollableRects self + = liftIO (nullableToMaybe <$> (js_nonFastScrollableRects (self))) + +-- | +nonFastScrollableRects_ :: (MonadIO m) => Internals -> m () +nonFastScrollableRects_ self + = liftIO (void (js_nonFastScrollableRects (self))) + +-- | +nonFastScrollableRectsUnchecked :: + (MonadIO m) => Internals -> m ClientRectList +nonFastScrollableRectsUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_nonFastScrollableRects (self))) + +foreign import javascript unsafe "$1[\"repaintRectsAsText\"]()" + js_repaintRectsAsText :: Internals -> IO JSString + +-- | +repaintRectsAsText :: + (MonadIO m, FromJSString result) => Internals -> m result +repaintRectsAsText self + = liftIO (fromJSString <$> (js_repaintRectsAsText (self))) + +-- | +repaintRectsAsText_ :: (MonadIO m) => Internals -> m () +repaintRectsAsText_ self + = liftIO (void (js_repaintRectsAsText (self))) + +foreign import javascript unsafe + "$1[\"garbageCollectDocumentResources\"]()" + js_garbageCollectDocumentResources :: Internals -> IO () + +-- | +garbageCollectDocumentResources :: (MonadIO m) => Internals -> m () +garbageCollectDocumentResources self + = liftIO (js_garbageCollectDocumentResources (self)) + +foreign import javascript unsafe "$1[\"allowRoundingHacks\"]()" + js_allowRoundingHacks :: Internals -> IO () + +-- | +allowRoundingHacks :: (MonadIO m) => Internals -> m () +allowRoundingHacks self = liftIO (js_allowRoundingHacks (self)) + +foreign import javascript unsafe "$1[\"insertAuthorCSS\"]($2)" + js_insertAuthorCSS :: Internals -> JSString -> IO () + +-- | +insertAuthorCSS :: + (MonadIO m, ToJSString css) => Internals -> css -> m () +insertAuthorCSS self css + = liftIO (js_insertAuthorCSS (self) (toJSString css)) + +foreign import javascript unsafe "$1[\"insertUserCSS\"]($2)" + js_insertUserCSS :: Internals -> JSString -> IO () + +-- | +insertUserCSS :: + (MonadIO m, ToJSString css) => Internals -> css -> m () +insertUserCSS self css + = liftIO (js_insertUserCSS (self) (toJSString css)) + +foreign import javascript unsafe + "$1[\"setBatteryStatus\"]($2, $3,\n$4, $5, $6)" js_setBatteryStatus + :: + Internals -> + JSString -> Bool -> Double -> Double -> Double -> IO () + +-- | +setBatteryStatus :: + (MonadIO m, ToJSString eventType) => + Internals -> + eventType -> Bool -> Double -> Double -> Double -> m () +setBatteryStatus self eventType charging chargingTime + dischargingTime level + = liftIO + (js_setBatteryStatus (self) (toJSString eventType) charging + chargingTime + dischargingTime + level) + +foreign import javascript unsafe + "$1[\"setDeviceProximity\"]($2, $3,\n$4, $5)" js_setDeviceProximity + :: Internals -> JSString -> Double -> Double -> Double -> IO () + +-- | +setDeviceProximity :: + (MonadIO m, ToJSString eventType) => + Internals -> eventType -> Double -> Double -> Double -> m () +setDeviceProximity self eventType value min max + = liftIO + (js_setDeviceProximity (self) (toJSString eventType) value min max) + +foreign import javascript unsafe "$1[\"numberOfLiveNodes\"]()" + js_numberOfLiveNodes :: Internals -> IO Word + +-- | +numberOfLiveNodes :: (MonadIO m) => Internals -> m Word +numberOfLiveNodes self = liftIO (js_numberOfLiveNodes (self)) + +-- | +numberOfLiveNodes_ :: (MonadIO m) => Internals -> m () +numberOfLiveNodes_ self + = liftIO (void (js_numberOfLiveNodes (self))) + +foreign import javascript unsafe "$1[\"numberOfLiveDocuments\"]()" + js_numberOfLiveDocuments :: Internals -> IO Word + +-- | +numberOfLiveDocuments :: (MonadIO m) => Internals -> m Word +numberOfLiveDocuments self + = liftIO (js_numberOfLiveDocuments (self)) + +-- | +numberOfLiveDocuments_ :: (MonadIO m) => Internals -> m () +numberOfLiveDocuments_ self + = liftIO (void (js_numberOfLiveDocuments (self))) + +foreign import javascript unsafe + "$1[\"consoleMessageArgumentCounts\"]()" + js_consoleMessageArgumentCounts :: Internals -> IO JSVal + +-- | +consoleMessageArgumentCounts :: + (MonadIO m, FromJSString result) => Internals -> m [result] +consoleMessageArgumentCounts self + = liftIO + ((js_consoleMessageArgumentCounts (self)) >>= fromJSValUnchecked) + +-- | +consoleMessageArgumentCounts_ :: (MonadIO m) => Internals -> m () +consoleMessageArgumentCounts_ self + = liftIO (void (js_consoleMessageArgumentCounts (self))) + +foreign import javascript unsafe + "$1[\"openDummyInspectorFrontend\"]($2)" + js_openDummyInspectorFrontend :: + Internals -> JSString -> IO (Nullable Window) + +-- | +openDummyInspectorFrontend :: + (MonadIO m, ToJSString url) => Internals -> url -> m (Maybe Window) +openDummyInspectorFrontend self url + = liftIO + (nullableToMaybe <$> + (js_openDummyInspectorFrontend (self) (toJSString url))) + +-- | +openDummyInspectorFrontend_ :: + (MonadIO m, ToJSString url) => Internals -> url -> m () +openDummyInspectorFrontend_ self url + = liftIO + (void (js_openDummyInspectorFrontend (self) (toJSString url))) + +-- | +openDummyInspectorFrontendUnchecked :: + (MonadIO m, ToJSString url) => Internals -> url -> m Window +openDummyInspectorFrontendUnchecked self url + = liftIO + (fromJust . nullableToMaybe <$> + (js_openDummyInspectorFrontend (self) (toJSString url))) + +foreign import javascript unsafe + "$1[\"closeDummyInspectorFrontend\"]()" + js_closeDummyInspectorFrontend :: Internals -> IO () + +-- | +closeDummyInspectorFrontend :: (MonadIO m) => Internals -> m () +closeDummyInspectorFrontend self + = liftIO (js_closeDummyInspectorFrontend (self)) + +foreign import javascript unsafe + "$1[\"setJavaScriptProfilingEnabled\"]($2)" + js_setJavaScriptProfilingEnabled :: Internals -> Bool -> IO () + +-- | +setJavaScriptProfilingEnabled :: + (MonadIO m) => Internals -> Bool -> m () +setJavaScriptProfilingEnabled self creates + = liftIO (js_setJavaScriptProfilingEnabled (self) creates) + +foreign import javascript unsafe + "$1[\"setInspectorIsUnderTest\"]($2)" js_setInspectorIsUnderTest :: + Internals -> Bool -> IO () + +-- | +setInspectorIsUnderTest :: (MonadIO m) => Internals -> Bool -> m () +setInspectorIsUnderTest self isUnderTest + = liftIO (js_setInspectorIsUnderTest (self) isUnderTest) + +foreign import javascript unsafe "$1[\"counterValue\"]($2)" + js_counterValue :: Internals -> Nullable Element -> IO JSString + +-- | +counterValue :: + (MonadIO m, IsElement element, FromJSString result) => + Internals -> Maybe element -> m result +counterValue self element + = liftIO + (fromJSString <$> + (js_counterValue (self) + (maybeToNullable (fmap toElement element)))) + +-- | +counterValue_ :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m () +counterValue_ self element + = liftIO + (void + (js_counterValue (self) + (maybeToNullable (fmap toElement element)))) + +foreign import javascript unsafe "$1[\"pageNumber\"]($2, $3, $4)" + js_pageNumber :: + Internals -> Nullable Element -> Float -> Float -> IO Int + +-- | +pageNumber :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> Float -> Float -> m Int +pageNumber self element pageWidth pageHeight + = liftIO + (js_pageNumber (self) (maybeToNullable (fmap toElement element)) + pageWidth + pageHeight) + +-- | +pageNumber_ :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> Float -> Float -> m () +pageNumber_ self element pageWidth pageHeight + = liftIO + (void + (js_pageNumber (self) (maybeToNullable (fmap toElement element)) + pageWidth + pageHeight)) + +foreign import javascript unsafe "$1[\"shortcutIconURLs\"]()" + js_shortcutIconURLs :: Internals -> IO JSVal + +-- | +shortcutIconURLs :: + (MonadIO m, FromJSString result) => Internals -> m [result] +shortcutIconURLs self + = liftIO ((js_shortcutIconURLs (self)) >>= fromJSValUnchecked) + +-- | +shortcutIconURLs_ :: (MonadIO m) => Internals -> m () +shortcutIconURLs_ self = liftIO (void (js_shortcutIconURLs (self))) + +foreign import javascript unsafe "$1[\"allIconURLs\"]()" + js_allIconURLs :: Internals -> IO JSVal + +-- | +allIconURLs :: + (MonadIO m, FromJSString result) => Internals -> m [result] +allIconURLs self + = liftIO ((js_allIconURLs (self)) >>= fromJSValUnchecked) + +-- | +allIconURLs_ :: (MonadIO m) => Internals -> m () +allIconURLs_ self = liftIO (void (js_allIconURLs (self))) + +foreign import javascript unsafe "$1[\"numberOfPages\"]($2, $3)" + js_numberOfPages :: Internals -> Double -> Double -> IO Int + +-- | +numberOfPages :: + (MonadIO m) => Internals -> Double -> Double -> m Int +numberOfPages self pageWidthInPixels pageHeightInPixels + = liftIO + (js_numberOfPages (self) pageWidthInPixels pageHeightInPixels) + +-- | +numberOfPages_ :: + (MonadIO m) => Internals -> Double -> Double -> m () +numberOfPages_ self pageWidthInPixels pageHeightInPixels + = liftIO + (void + (js_numberOfPages (self) pageWidthInPixels pageHeightInPixels)) + +foreign import javascript unsafe "$1[\"pageProperty\"]($2, $3)" + js_pageProperty :: Internals -> JSString -> Int -> IO JSString + +-- | +pageProperty :: + (MonadIO m, ToJSString propertyName, FromJSString result) => + Internals -> propertyName -> Int -> m result +pageProperty self propertyName pageNumber + = liftIO + (fromJSString <$> + (js_pageProperty (self) (toJSString propertyName) pageNumber)) + +-- | +pageProperty_ :: + (MonadIO m, ToJSString propertyName) => + Internals -> propertyName -> Int -> m () +pageProperty_ self propertyName pageNumber + = liftIO + (void + (js_pageProperty (self) (toJSString propertyName) pageNumber)) + +foreign import javascript unsafe + "$1[\"pageSizeAndMarginsInPixels\"]($2,\n$3, $4, $5, $6, $7, $8)" + js_pageSizeAndMarginsInPixels :: + Internals -> + Int -> Int -> Int -> Int -> Int -> Int -> Int -> IO JSString + +-- | +pageSizeAndMarginsInPixels :: + (MonadIO m, FromJSString result) => + Internals -> + Int -> Int -> Int -> Int -> Int -> Int -> Int -> m result +pageSizeAndMarginsInPixels self pageIndex width height marginTop + marginRight marginBottom marginLeft + = liftIO + (fromJSString <$> + (js_pageSizeAndMarginsInPixels (self) pageIndex width height + marginTop + marginRight + marginBottom + marginLeft)) + +-- | +pageSizeAndMarginsInPixels_ :: + (MonadIO m) => + Internals -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> m () +pageSizeAndMarginsInPixels_ self pageIndex width height marginTop + marginRight marginBottom marginLeft + = liftIO + (void + (js_pageSizeAndMarginsInPixels (self) pageIndex width height + marginTop + marginRight + marginBottom + marginLeft)) + +foreign import javascript unsafe + "$1[\"setPageScaleFactor\"]($2, $3,\n$4)" js_setPageScaleFactor :: + Internals -> Float -> Int -> Int -> IO () + +-- | +setPageScaleFactor :: + (MonadIO m) => Internals -> Float -> Int -> Int -> m () +setPageScaleFactor self scaleFactor x y + = liftIO (js_setPageScaleFactor (self) scaleFactor x y) + +foreign import javascript unsafe "$1[\"setPageZoomFactor\"]($2)" + js_setPageZoomFactor :: Internals -> Float -> IO () + +-- | +setPageZoomFactor :: (MonadIO m) => Internals -> Float -> m () +setPageZoomFactor self zoomFactor + = liftIO (js_setPageZoomFactor (self) zoomFactor) + +foreign import javascript unsafe "$1[\"setHeaderHeight\"]($2)" + js_setHeaderHeight :: Internals -> Float -> IO () + +-- | +setHeaderHeight :: (MonadIO m) => Internals -> Float -> m () +setHeaderHeight self height + = liftIO (js_setHeaderHeight (self) height) + +foreign import javascript unsafe "$1[\"setFooterHeight\"]($2)" + js_setFooterHeight :: Internals -> Float -> IO () + +-- | +setFooterHeight :: (MonadIO m) => Internals -> Float -> m () +setFooterHeight self height + = liftIO (js_setFooterHeight (self) height) + +foreign import javascript unsafe "$1[\"setTopContentInset\"]($2)" + js_setTopContentInset :: Internals -> Float -> IO () + +-- | +setTopContentInset :: (MonadIO m) => Internals -> Float -> m () +setTopContentInset self contentInset + = liftIO (js_setTopContentInset (self) contentInset) + +foreign import javascript unsafe + "$1[\"webkitWillEnterFullScreenForElement\"]($2)" + js_webkitWillEnterFullScreenForElement :: + Internals -> Nullable Element -> IO () + +-- | +webkitWillEnterFullScreenForElement :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m () +webkitWillEnterFullScreenForElement self element + = liftIO + (js_webkitWillEnterFullScreenForElement (self) + (maybeToNullable (fmap toElement element))) + +foreign import javascript unsafe + "$1[\"webkitDidEnterFullScreenForElement\"]($2)" + js_webkitDidEnterFullScreenForElement :: + Internals -> Nullable Element -> IO () + +-- | +webkitDidEnterFullScreenForElement :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m () +webkitDidEnterFullScreenForElement self element + = liftIO + (js_webkitDidEnterFullScreenForElement (self) + (maybeToNullable (fmap toElement element))) + +foreign import javascript unsafe + "$1[\"webkitWillExitFullScreenForElement\"]($2)" + js_webkitWillExitFullScreenForElement :: + Internals -> Nullable Element -> IO () + +-- | +webkitWillExitFullScreenForElement :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m () +webkitWillExitFullScreenForElement self element + = liftIO + (js_webkitWillExitFullScreenForElement (self) + (maybeToNullable (fmap toElement element))) + +foreign import javascript unsafe + "$1[\"webkitDidExitFullScreenForElement\"]($2)" + js_webkitDidExitFullScreenForElement :: + Internals -> Nullable Element -> IO () + +-- | +webkitDidExitFullScreenForElement :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m () +webkitDidExitFullScreenForElement self element + = liftIO + (js_webkitDidExitFullScreenForElement (self) + (maybeToNullable (fmap toElement element))) + +foreign import javascript unsafe + "$1[\"setApplicationCacheOriginQuota\"]($2)" + js_setApplicationCacheOriginQuota :: Internals -> Double -> IO () + +-- | +setApplicationCacheOriginQuota :: + (MonadIO m) => Internals -> Word64 -> m () +setApplicationCacheOriginQuota self quota + = liftIO + (js_setApplicationCacheOriginQuota (self) (fromIntegral quota)) + +foreign import javascript unsafe + "$1[\"registerURLSchemeAsBypassingContentSecurityPolicy\"]($2)" + js_registerURLSchemeAsBypassingContentSecurityPolicy :: + Internals -> JSString -> IO () + +-- | +registerURLSchemeAsBypassingContentSecurityPolicy :: + (MonadIO m, ToJSString scheme) => + Internals -> scheme -> m () +registerURLSchemeAsBypassingContentSecurityPolicy self scheme + = liftIO + (js_registerURLSchemeAsBypassingContentSecurityPolicy (self) + (toJSString scheme)) + +foreign import javascript unsafe + "$1[\"removeURLSchemeRegisteredAsBypassingContentSecurityPolicy\"]($2)" + js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy :: + Internals -> JSString -> IO () + +-- | +removeURLSchemeRegisteredAsBypassingContentSecurityPolicy :: + (MonadIO m, ToJSString scheme) => + Internals -> scheme -> m () +removeURLSchemeRegisteredAsBypassingContentSecurityPolicy self + scheme + = liftIO + (js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy + (self) + (toJSString scheme)) + +foreign import javascript unsafe "$1[\"mallocStatistics\"]()" + js_mallocStatistics :: Internals -> IO (Nullable MallocStatistics) + +-- | +mallocStatistics :: + (MonadIO m) => Internals -> m (Maybe MallocStatistics) +mallocStatistics self + = liftIO (nullableToMaybe <$> (js_mallocStatistics (self))) + +-- | +mallocStatistics_ :: (MonadIO m) => Internals -> m () +mallocStatistics_ self = liftIO (void (js_mallocStatistics (self))) + +-- | +mallocStatisticsUnchecked :: + (MonadIO m) => Internals -> m MallocStatistics +mallocStatisticsUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_mallocStatistics (self))) + +foreign import javascript unsafe "$1[\"typeConversions\"]()" + js_typeConversions :: Internals -> IO (Nullable TypeConversions) + +-- | +typeConversions :: + (MonadIO m) => Internals -> m (Maybe TypeConversions) +typeConversions self + = liftIO (nullableToMaybe <$> (js_typeConversions (self))) + +-- | +typeConversions_ :: (MonadIO m) => Internals -> m () +typeConversions_ self = liftIO (void (js_typeConversions (self))) + +-- | +typeConversionsUnchecked :: + (MonadIO m) => Internals -> m TypeConversions +typeConversionsUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_typeConversions (self))) + +foreign import javascript unsafe "$1[\"memoryInfo\"]()" + js_memoryInfo :: Internals -> IO (Nullable MemoryInfo) + +-- | +memoryInfo :: (MonadIO m) => Internals -> m (Maybe MemoryInfo) +memoryInfo self + = liftIO (nullableToMaybe <$> (js_memoryInfo (self))) + +-- | +memoryInfo_ :: (MonadIO m) => Internals -> m () +memoryInfo_ self = liftIO (void (js_memoryInfo (self))) + +-- | +memoryInfoUnchecked :: (MonadIO m) => Internals -> m MemoryInfo +memoryInfoUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_memoryInfo (self))) + +foreign import javascript unsafe "$1[\"getReferencedFilePaths\"]()" + js_getReferencedFilePaths :: Internals -> IO JSVal + +-- | +getReferencedFilePaths :: + (MonadIO m, FromJSString result) => Internals -> m [result] +getReferencedFilePaths self + = liftIO + ((js_getReferencedFilePaths (self)) >>= fromJSValUnchecked) + +-- | +getReferencedFilePaths_ :: (MonadIO m) => Internals -> m () +getReferencedFilePaths_ self + = liftIO (void (js_getReferencedFilePaths (self))) + +foreign import javascript unsafe "$1[\"startTrackingRepaints\"]()" + js_startTrackingRepaints :: Internals -> IO () + +-- | +startTrackingRepaints :: (MonadIO m) => Internals -> m () +startTrackingRepaints self + = liftIO (js_startTrackingRepaints (self)) + +foreign import javascript unsafe "$1[\"stopTrackingRepaints\"]()" + js_stopTrackingRepaints :: Internals -> IO () + +-- | +stopTrackingRepaints :: (MonadIO m) => Internals -> m () +stopTrackingRepaints self = liftIO (js_stopTrackingRepaints (self)) + +foreign import javascript unsafe + "($1[\"isTimerThrottled\"]($2) ? 1 : 0)" js_isTimerThrottled :: + Internals -> Int -> IO Bool + +-- | +isTimerThrottled :: (MonadIO m) => Internals -> Int -> m Bool +isTimerThrottled self timerHandle + = liftIO (js_isTimerThrottled (self) timerHandle) + +-- | +isTimerThrottled_ :: (MonadIO m) => Internals -> Int -> m () +isTimerThrottled_ self timerHandle + = liftIO (void (js_isTimerThrottled (self) timerHandle)) + +foreign import javascript unsafe + "$1[\"updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks\"]($2)" + js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks :: + Internals -> Nullable Node -> IO () + +-- | +updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks :: + (MonadIO m, IsNode node) => + Internals -> Maybe node -> m () +updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks self node + = liftIO + (js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks + (self) + (maybeToNullable (fmap toNode node))) + +foreign import javascript unsafe "$1[\"getCurrentCursorInfo\"]()" + js_getCurrentCursorInfo :: Internals -> IO JSString + +-- | +getCurrentCursorInfo :: + (MonadIO m, FromJSString result) => Internals -> m result +getCurrentCursorInfo self + = liftIO (fromJSString <$> (js_getCurrentCursorInfo (self))) + +-- | +getCurrentCursorInfo_ :: (MonadIO m) => Internals -> m () +getCurrentCursorInfo_ self + = liftIO (void (js_getCurrentCursorInfo (self))) + +foreign import javascript unsafe + "$1[\"markerTextForListItem\"]($2)" js_markerTextForListItem :: + Internals -> Nullable Element -> IO JSString + +-- | +markerTextForListItem :: + (MonadIO m, IsElement element, FromJSString result) => + Internals -> Maybe element -> m result +markerTextForListItem self element + = liftIO + (fromJSString <$> + (js_markerTextForListItem (self) + (maybeToNullable (fmap toElement element)))) + +-- | +markerTextForListItem_ :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m () +markerTextForListItem_ self element + = liftIO + (void + (js_markerTextForListItem (self) + (maybeToNullable (fmap toElement element)))) + +foreign import javascript unsafe "$1[\"toolTipFromElement\"]($2)" + js_toolTipFromElement :: + Internals -> Nullable Element -> IO JSString + +-- | +toolTipFromElement :: + (MonadIO m, IsElement element, FromJSString result) => + Internals -> Maybe element -> m result +toolTipFromElement self element + = liftIO + (fromJSString <$> + (js_toolTipFromElement (self) + (maybeToNullable (fmap toElement element)))) + +-- | +toolTipFromElement_ :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m () +toolTipFromElement_ self element + = liftIO + (void + (js_toolTipFromElement (self) + (maybeToNullable (fmap toElement element)))) + +foreign import javascript unsafe "$1[\"deserializeBuffer\"]($2)" + js_deserializeBuffer :: + Internals -> + Nullable ArrayBuffer -> IO (Nullable SerializedScriptValue) + +-- | +deserializeBuffer :: + (MonadIO m, IsArrayBuffer buffer) => + Internals -> Maybe buffer -> m (Maybe SerializedScriptValue) +deserializeBuffer self buffer + = liftIO + (nullableToMaybe <$> + (js_deserializeBuffer (self) + (maybeToNullable (fmap toArrayBuffer buffer)))) + +-- | +deserializeBuffer_ :: + (MonadIO m, IsArrayBuffer buffer) => + Internals -> Maybe buffer -> m () +deserializeBuffer_ self buffer + = liftIO + (void + (js_deserializeBuffer (self) + (maybeToNullable (fmap toArrayBuffer buffer)))) + +-- | +deserializeBufferUnchecked :: + (MonadIO m, IsArrayBuffer buffer) => + Internals -> Maybe buffer -> m SerializedScriptValue +deserializeBufferUnchecked self buffer + = liftIO + (fromJust . nullableToMaybe <$> + (js_deserializeBuffer (self) + (maybeToNullable (fmap toArrayBuffer buffer)))) + +foreign import javascript unsafe "$1[\"serializeObject\"]($2)" + js_serializeObject :: + Internals -> + Nullable SerializedScriptValue -> IO (Nullable ArrayBuffer) + +-- | +serializeObject :: + (MonadIO m, IsSerializedScriptValue obj) => + Internals -> Maybe obj -> m (Maybe ArrayBuffer) +serializeObject self obj + = liftIO + (nullableToMaybe <$> + (js_serializeObject (self) + (maybeToNullable (fmap toSerializedScriptValue obj)))) + +-- | +serializeObject_ :: + (MonadIO m, IsSerializedScriptValue obj) => + Internals -> Maybe obj -> m () +serializeObject_ self obj + = liftIO + (void + (js_serializeObject (self) + (maybeToNullable (fmap toSerializedScriptValue obj)))) + +-- | +serializeObjectUnchecked :: + (MonadIO m, IsSerializedScriptValue obj) => + Internals -> Maybe obj -> m ArrayBuffer +serializeObjectUnchecked self obj + = liftIO + (fromJust . nullableToMaybe <$> + (js_serializeObject (self) + (maybeToNullable (fmap toSerializedScriptValue obj)))) + +foreign import javascript unsafe + "$1[\"setUsesOverlayScrollbars\"]($2)" js_setUsesOverlayScrollbars + :: Internals -> Bool -> IO () + +-- | +setUsesOverlayScrollbars :: + (MonadIO m) => Internals -> Bool -> m () +setUsesOverlayScrollbars self enabled + = liftIO (js_setUsesOverlayScrollbars (self) enabled) + +foreign import javascript unsafe "$1[\"forceReload\"]($2)" + js_forceReload :: Internals -> Bool -> IO () + +-- | +forceReload :: (MonadIO m) => Internals -> Bool -> m () +forceReload self endToEnd = liftIO (js_forceReload (self) endToEnd) + +foreign import javascript unsafe + "$1[\"simulateAudioInterruption\"]($2)" + js_simulateAudioInterruption :: Internals -> Nullable Node -> IO () + +-- | +simulateAudioInterruption :: + (MonadIO m, IsNode node) => Internals -> Maybe node -> m () +simulateAudioInterruption self node + = liftIO + (js_simulateAudioInterruption (self) + (maybeToNullable (fmap toNode node))) + +foreign import javascript unsafe + "($1[\"mediaElementHasCharacteristic\"]($2,\n$3) ? 1 : 0)" + js_mediaElementHasCharacteristic :: + Internals -> Nullable Node -> JSString -> IO Bool + +-- | +mediaElementHasCharacteristic :: + (MonadIO m, IsNode node, ToJSString characteristic) => + Internals -> Maybe node -> characteristic -> m Bool +mediaElementHasCharacteristic self node characteristic + = liftIO + (js_mediaElementHasCharacteristic (self) + (maybeToNullable (fmap toNode node)) + (toJSString characteristic)) + +-- | +mediaElementHasCharacteristic_ :: + (MonadIO m, IsNode node, ToJSString characteristic) => + Internals -> Maybe node -> characteristic -> m () +mediaElementHasCharacteristic_ self node characteristic + = liftIO + (void + (js_mediaElementHasCharacteristic (self) + (maybeToNullable (fmap toNode node)) + (toJSString characteristic))) + +foreign import javascript unsafe "$1[\"initializeMockCDM\"]()" + js_initializeMockCDM :: Internals -> IO () + +-- | +initializeMockCDM :: (MonadIO m) => Internals -> m () +initializeMockCDM self = liftIO (js_initializeMockCDM (self)) + +foreign import javascript unsafe + "$1[\"enableMockSpeechSynthesizer\"]()" + js_enableMockSpeechSynthesizer :: Internals -> IO () + +-- | +enableMockSpeechSynthesizer :: (MonadIO m) => Internals -> m () +enableMockSpeechSynthesizer self + = liftIO (js_enableMockSpeechSynthesizer (self)) + +foreign import javascript unsafe "$1[\"getImageSourceURL\"]($2)" + js_getImageSourceURL :: + Internals -> Nullable Element -> IO JSString + +-- | +getImageSourceURL :: + (MonadIO m, IsElement element, FromJSString result) => + Internals -> Maybe element -> m result +getImageSourceURL self element + = liftIO + (fromJSString <$> + (js_getImageSourceURL (self) + (maybeToNullable (fmap toElement element)))) + +-- | +getImageSourceURL_ :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m () +getImageSourceURL_ self element + = liftIO + (void + (js_getImageSourceURL (self) + (maybeToNullable (fmap toElement element)))) + +foreign import javascript unsafe + "$1[\"captionsStyleSheetOverride\"]()" + js_captionsStyleSheetOverride :: Internals -> IO JSString + +-- | +captionsStyleSheetOverride :: + (MonadIO m, FromJSString result) => Internals -> m result +captionsStyleSheetOverride self + = liftIO (fromJSString <$> (js_captionsStyleSheetOverride (self))) + +-- | +captionsStyleSheetOverride_ :: (MonadIO m) => Internals -> m () +captionsStyleSheetOverride_ self + = liftIO (void (js_captionsStyleSheetOverride (self))) + +foreign import javascript unsafe + "$1[\"setCaptionsStyleSheetOverride\"]($2)" + js_setCaptionsStyleSheetOverride :: Internals -> JSString -> IO () + +-- | +setCaptionsStyleSheetOverride :: + (MonadIO m, ToJSString override) => Internals -> override -> m () +setCaptionsStyleSheetOverride self override + = liftIO + (js_setCaptionsStyleSheetOverride (self) (toJSString override)) + +foreign import javascript unsafe + "$1[\"setPrimaryAudioTrackLanguageOverride\"]($2)" + js_setPrimaryAudioTrackLanguageOverride :: + Internals -> JSString -> IO () + +-- | +setPrimaryAudioTrackLanguageOverride :: + (MonadIO m, ToJSString language) => + Internals -> language -> m () +setPrimaryAudioTrackLanguageOverride self language + = liftIO + (js_setPrimaryAudioTrackLanguageOverride (self) + (toJSString language)) + +foreign import javascript unsafe + "$1[\"setCaptionDisplayMode\"]($2)" js_setCaptionDisplayMode :: + Internals -> JSString -> IO () + +-- | +setCaptionDisplayMode :: + (MonadIO m, ToJSString mode) => Internals -> mode -> m () +setCaptionDisplayMode self mode + = liftIO (js_setCaptionDisplayMode (self) (toJSString mode)) + +foreign import javascript unsafe "$1[\"createTimeRanges\"]($2, $3)" + js_createTimeRanges :: + Internals -> + Nullable Float32Array -> + Nullable Float32Array -> IO (Nullable TimeRanges) + +-- | +createTimeRanges :: + (MonadIO m, IsFloat32Array startTimes, IsFloat32Array endTimes) => + Internals -> + Maybe startTimes -> Maybe endTimes -> m (Maybe TimeRanges) +createTimeRanges self startTimes endTimes + = liftIO + (nullableToMaybe <$> + (js_createTimeRanges (self) + (maybeToNullable (fmap toFloat32Array startTimes)) + (maybeToNullable (fmap toFloat32Array endTimes)))) + +-- | +createTimeRanges_ :: + (MonadIO m, IsFloat32Array startTimes, IsFloat32Array endTimes) => + Internals -> Maybe startTimes -> Maybe endTimes -> m () +createTimeRanges_ self startTimes endTimes + = liftIO + (void + (js_createTimeRanges (self) + (maybeToNullable (fmap toFloat32Array startTimes)) + (maybeToNullable (fmap toFloat32Array endTimes)))) + +-- | +createTimeRangesUnchecked :: + (MonadIO m, IsFloat32Array startTimes, IsFloat32Array endTimes) => + Internals -> Maybe startTimes -> Maybe endTimes -> m TimeRanges +createTimeRangesUnchecked self startTimes endTimes + = liftIO + (fromJust . nullableToMaybe <$> + (js_createTimeRanges (self) + (maybeToNullable (fmap toFloat32Array startTimes)) + (maybeToNullable (fmap toFloat32Array endTimes)))) + +foreign import javascript unsafe + "$1[\"closestTimeToTimeRanges\"]($2,\n$3)" + js_closestTimeToTimeRanges :: + Internals -> Double -> Nullable TimeRanges -> IO Double + +-- | +closestTimeToTimeRanges :: + (MonadIO m) => Internals -> Double -> Maybe TimeRanges -> m Double +closestTimeToTimeRanges self time ranges + = liftIO + (js_closestTimeToTimeRanges (self) time (maybeToNullable ranges)) + +-- | +closestTimeToTimeRanges_ :: + (MonadIO m) => Internals -> Double -> Maybe TimeRanges -> m () +closestTimeToTimeRanges_ self time ranges + = liftIO + (void + (js_closestTimeToTimeRanges (self) time (maybeToNullable ranges))) + +foreign import javascript unsafe + "($1[\"isSelectPopupVisible\"]($2) ? 1 : 0)" + js_isSelectPopupVisible :: Internals -> Nullable Node -> IO Bool + +-- | +isSelectPopupVisible :: + (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool +isSelectPopupVisible self node + = liftIO + (js_isSelectPopupVisible (self) + (maybeToNullable (fmap toNode node))) + +-- | +isSelectPopupVisible_ :: + (MonadIO m, IsNode node) => Internals -> Maybe node -> m () +isSelectPopupVisible_ self node + = liftIO + (void + (js_isSelectPopupVisible (self) + (maybeToNullable (fmap toNode node)))) + +foreign import javascript unsafe "($1[\"isVibrating\"]() ? 1 : 0)" + js_isVibrating :: Internals -> IO Bool + +-- | +isVibrating :: (MonadIO m) => Internals -> m Bool +isVibrating self = liftIO (js_isVibrating (self)) + +-- | +isVibrating_ :: (MonadIO m) => Internals -> m () +isVibrating_ self = liftIO (void (js_isVibrating (self))) + +foreign import javascript unsafe + "($1[\"isPluginUnavailabilityIndicatorObscured\"]($2) ? 1 : 0)" + js_isPluginUnavailabilityIndicatorObscured :: + Internals -> Nullable Element -> IO Bool + +-- | +isPluginUnavailabilityIndicatorObscured :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m Bool +isPluginUnavailabilityIndicatorObscured self element + = liftIO + (js_isPluginUnavailabilityIndicatorObscured (self) + (maybeToNullable (fmap toElement element))) + +-- | +isPluginUnavailabilityIndicatorObscured_ :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m () +isPluginUnavailabilityIndicatorObscured_ self element + = liftIO + (void + (js_isPluginUnavailabilityIndicatorObscured (self) + (maybeToNullable (fmap toElement element)))) + +foreign import javascript unsafe + "($1[\"isPluginSnapshotted\"]($2) ? 1 : 0)" js_isPluginSnapshotted + :: Internals -> Nullable Element -> IO Bool + +-- | +isPluginSnapshotted :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m Bool +isPluginSnapshotted self element + = liftIO + (js_isPluginSnapshotted (self) + (maybeToNullable (fmap toElement element))) + +-- | +isPluginSnapshotted_ :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m () +isPluginSnapshotted_ self element + = liftIO + (void + (js_isPluginSnapshotted (self) + (maybeToNullable (fmap toElement element)))) + +foreign import javascript unsafe "$1[\"selectionBounds\"]()" + js_selectionBounds :: Internals -> IO (Nullable ClientRect) + +-- | +selectionBounds :: (MonadIO m) => Internals -> m (Maybe ClientRect) +selectionBounds self + = liftIO (nullableToMaybe <$> (js_selectionBounds (self))) + +-- | +selectionBounds_ :: (MonadIO m) => Internals -> m () +selectionBounds_ self = liftIO (void (js_selectionBounds (self))) + +-- | +selectionBoundsUnchecked :: + (MonadIO m) => Internals -> m ClientRect +selectionBoundsUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_selectionBounds (self))) + +foreign import javascript unsafe + "$1[\"initializeMockMediaSource\"]()" js_initializeMockMediaSource + :: Internals -> IO () + +-- | +initializeMockMediaSource :: (MonadIO m) => Internals -> m () +initializeMockMediaSource self + = liftIO (js_initializeMockMediaSource (self)) + +foreign import javascript unsafe + "$1[\"bufferedSamplesForTrackID\"]($2,\n$3)" + js_bufferedSamplesForTrackID :: + Internals -> Nullable SourceBuffer -> JSString -> IO JSVal + +-- | +bufferedSamplesForTrackID :: + (MonadIO m, ToJSString trackID, FromJSString result) => + Internals -> Maybe SourceBuffer -> trackID -> m [result] +bufferedSamplesForTrackID self buffer trackID + = liftIO + ((js_bufferedSamplesForTrackID (self) (maybeToNullable buffer) + (toJSString trackID)) + >>= fromJSValUnchecked) + +-- | +bufferedSamplesForTrackID_ :: + (MonadIO m, ToJSString trackID) => + Internals -> Maybe SourceBuffer -> trackID -> m () +bufferedSamplesForTrackID_ self buffer trackID + = liftIO + (void + (js_bufferedSamplesForTrackID (self) (maybeToNullable buffer) + (toJSString trackID))) + +foreign import javascript unsafe + "$1[\"beginMediaSessionInterruption\"]()" + js_beginMediaSessionInterruption :: Internals -> IO () + +-- | +beginMediaSessionInterruption :: (MonadIO m) => Internals -> m () +beginMediaSessionInterruption self + = liftIO (js_beginMediaSessionInterruption (self)) + +foreign import javascript unsafe + "$1[\"endMediaSessionInterruption\"]($2)" + js_endMediaSessionInterruption :: Internals -> JSString -> IO () + +-- | +endMediaSessionInterruption :: + (MonadIO m, ToJSString flags) => Internals -> flags -> m () +endMediaSessionInterruption self flags + = liftIO (js_endMediaSessionInterruption (self) (toJSString flags)) + +foreign import javascript unsafe + "$1[\"applicationWillEnterForeground\"]()" + js_applicationWillEnterForeground :: Internals -> IO () + +-- | +applicationWillEnterForeground :: (MonadIO m) => Internals -> m () +applicationWillEnterForeground self + = liftIO (js_applicationWillEnterForeground (self)) + +foreign import javascript unsafe + "$1[\"applicationWillEnterBackground\"]()" + js_applicationWillEnterBackground :: Internals -> IO () + +-- | +applicationWillEnterBackground :: (MonadIO m) => Internals -> m () +applicationWillEnterBackground self + = liftIO (js_applicationWillEnterBackground (self)) + +foreign import javascript unsafe + "$1[\"setMediaSessionRestrictions\"]($2,\n$3)" + js_setMediaSessionRestrictions :: + Internals -> JSString -> JSString -> IO () + +-- | +setMediaSessionRestrictions :: + (MonadIO m, ToJSString mediaType, ToJSString restrictions) => + Internals -> mediaType -> restrictions -> m () +setMediaSessionRestrictions self mediaType restrictions + = liftIO + (js_setMediaSessionRestrictions (self) (toJSString mediaType) + (toJSString restrictions)) + +foreign import javascript unsafe + "$1[\"postRemoteControlCommand\"]($2)" js_postRemoteControlCommand + :: Internals -> JSString -> IO () + +-- | +postRemoteControlCommand :: + (MonadIO m, ToJSString command) => Internals -> command -> m () +postRemoteControlCommand self command + = liftIO (js_postRemoteControlCommand (self) (toJSString command)) + +foreign import javascript unsafe "$1[\"simulateSystemSleep\"]()" + js_simulateSystemSleep :: Internals -> IO () + +-- | +simulateSystemSleep :: (MonadIO m) => Internals -> m () +simulateSystemSleep self = liftIO (js_simulateSystemSleep (self)) + +foreign import javascript unsafe "$1[\"simulateSystemWake\"]()" + js_simulateSystemWake :: Internals -> IO () + +-- | +simulateSystemWake :: (MonadIO m) => Internals -> m () +simulateSystemWake self = liftIO (js_simulateSystemWake (self)) + +foreign import javascript unsafe + "($1[\"elementIsBlockingDisplaySleep\"]($2) ? 1 : 0)" + js_elementIsBlockingDisplaySleep :: + Internals -> Nullable Element -> IO Bool + +-- | +elementIsBlockingDisplaySleep :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m Bool +elementIsBlockingDisplaySleep self element + = liftIO + (js_elementIsBlockingDisplaySleep (self) + (maybeToNullable (fmap toElement element))) + +-- | +elementIsBlockingDisplaySleep_ :: + (MonadIO m, IsElement element) => + Internals -> Maybe element -> m () +elementIsBlockingDisplaySleep_ self element + = liftIO + (void + (js_elementIsBlockingDisplaySleep (self) + (maybeToNullable (fmap toElement element)))) + +foreign import javascript unsafe + "$1[\"installMockPageOverlay\"]($2)" js_installMockPageOverlay :: + Internals -> JSVal -> IO () + +-- | +installMockPageOverlay :: + (MonadIO m) => Internals -> PageOverlayType -> m () +installMockPageOverlay self type' + = liftIO (js_installMockPageOverlay (self) (pToJSVal type')) + +foreign import javascript unsafe + "$1[\"pageOverlayLayerTreeAsText\"]()" + js_pageOverlayLayerTreeAsText :: Internals -> IO JSString + +-- | +pageOverlayLayerTreeAsText :: + (MonadIO m, FromJSString result) => Internals -> m result +pageOverlayLayerTreeAsText self + = liftIO (fromJSString <$> (js_pageOverlayLayerTreeAsText (self))) + +-- | +pageOverlayLayerTreeAsText_ :: (MonadIO m) => Internals -> m () +pageOverlayLayerTreeAsText_ self + = liftIO (void (js_pageOverlayLayerTreeAsText (self))) + +foreign import javascript unsafe "$1[\"setPageMuted\"]($2)" + js_setPageMuted :: Internals -> Bool -> IO () + +-- | +setPageMuted :: (MonadIO m) => Internals -> Bool -> m () +setPageMuted self muted = liftIO (js_setPageMuted (self) muted) + +foreign import javascript unsafe + "($1[\"isPagePlayingAudio\"]() ? 1 : 0)" js_isPagePlayingAudio :: + Internals -> IO Bool + +-- | +isPagePlayingAudio :: (MonadIO m) => Internals -> m Bool +isPagePlayingAudio self = liftIO (js_isPagePlayingAudio (self)) + +-- | +isPagePlayingAudio_ :: (MonadIO m) => Internals -> m () +isPagePlayingAudio_ self + = liftIO (void (js_isPagePlayingAudio (self))) +pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS = 1 +pattern LAYER_TREE_INCLUDES_TILE_CACHES = 2 +pattern LAYER_TREE_INCLUDES_REPAINT_RECTS = 4 +pattern LAYER_TREE_INCLUDES_PAINTING_PHASES = 8 +pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS = 16 + +foreign import javascript unsafe "$1[\"settings\"]" js_getSettings + :: Internals -> IO (Nullable InternalSettings) + +-- | +getSettings :: + (MonadIO m) => Internals -> m (Maybe InternalSettings) +getSettings self + = liftIO (nullableToMaybe <$> (js_getSettings (self))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Location.hs b/src/GHCJS/DOM/JSFFI/Generated/Location.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Location.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Location.hs @@ -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))) + +-- | +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))) + +-- | +getAncestorOriginsUnchecked :: + (MonadIO m) => Location -> m DOMStringList +getAncestorOriginsUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getAncestorOrigins (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MallocStatistics.hs b/src/GHCJS/DOM/JSFFI/Generated/MallocStatistics.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MallocStatistics.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MallocStatistics.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaController.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaController.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaController.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaController.hs @@ -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))) + +-- | +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))) + +-- | +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 @@ -- | getPlayed :: (MonadIO m) => MediaController -> m (Maybe TimeRanges) getPlayed self = liftIO (nullableToMaybe <$> (js_getPlayed (self))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs @@ -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) + +-- | +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) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getTextTrackContainerUnchecked :: + (MonadIO m) => MediaControlsHost -> m HTMLElement +getTextTrackContainerUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getTextTrackContainer (self))) foreign import javascript unsafe "($1[\"mediaPlaybackAllowsInline\"] ? 1 : 0)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs @@ -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))) + +-- | +getMediaElementUnchecked :: + (MonadIO m) => MediaElementAudioSourceNode -> m HTMLMediaElement +getMediaElementUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getMediaElement (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaError.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaError.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaError.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaError.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyError.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyError.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyError.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyError.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyEvent.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEvent.hs @@ -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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyNeededEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyNeededEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeyNeededEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaKeyNeededEvent.hs @@ -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))) + +-- | +getInitDataUnchecked :: + (MonadIO m) => MediaKeyNeededEvent -> m Uint8Array +getInitDataUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getInitData (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs @@ -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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs @@ -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)))) + +-- | +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)))) + +-- | +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')) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaList.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaList.hs @@ -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)) + +-- | +item_ :: (MonadIO m) => MediaList -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs @@ -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'))) + +-- | +addSourceBuffer_ :: + (MonadIO m, ToJSString type') => MediaSource -> type' -> m () +addSourceBuffer_ self type' + = liftIO (void (js_addSourceBuffer (self) (toJSString type'))) + +-- | +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')) + +-- | +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))) + +-- | +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))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaSourceStates.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaSourceStates.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaSourceStates.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaSourceStates.hs @@ -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) + +-- | +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) + +-- | +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) + +-- | +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) + +-- | +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 @@ -- | getVolume :: (MonadIO m) => MediaSourceStates -> m (Maybe Word) getVolume self + = liftIO ((js_getVolume (self)) >>= fromJSValUnchecked) + +-- | +getVolumeUnchecked :: (MonadIO m) => MediaSourceStates -> m Word +getVolumeUnchecked self = liftIO ((js_getVolume (self)) >>= fromJSValUnchecked) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs @@ -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) + +-- | +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) + +-- | +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) + +-- | +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))) + +-- | +getTrackById_ :: + (MonadIO m, ToJSString trackId) => MediaStream -> trackId -> m () +getTrackById_ self trackId + = liftIO (void (js_getTrackById (self) (toJSString trackId))) + +-- | +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 @@ -- | clone :: (MonadIO m) => MediaStream -> m (Maybe MediaStream) clone self = liftIO (nullableToMaybe <$> (js_clone (self))) + +-- | +clone_ :: (MonadIO m) => MediaStream -> m () +clone_ self = liftIO (void (js_clone (self))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs @@ -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))) + +-- | +getStreamUnchecked :: + (MonadIO m) => MediaStreamAudioDestinationNode -> m MediaStream +getStreamUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getStream (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs @@ -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))) + +-- | +getMediaStreamUnchecked :: + (MonadIO m) => MediaStreamAudioSourceNode -> m MediaStream +getMediaStreamUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getMediaStream (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs @@ -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))) + +-- | +getStreamUnchecked :: + (MonadIO m) => MediaStreamEvent -> m MediaStream +getStreamUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getStream (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs @@ -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))) + +-- | +getConstraints_ :: + (MonadIO m, IsMediaStreamTrack self) => self -> m () +getConstraints_ self + = liftIO (void (js_getConstraints (toMediaStreamTrack self))) + +-- | +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))) + +-- | +states_ :: (MonadIO m, IsMediaStreamTrack self) => self -> m () +states_ self = liftIO (void (js_states (toMediaStreamTrack self))) + +-- | +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))) + +-- | +getCapabilities_ :: + (MonadIO m, IsMediaStreamTrack self) => self -> m () +getCapabilities_ self + = liftIO (void (js_getCapabilities (toMediaStreamTrack self))) + +-- | +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))) + +-- | +clone_ :: (MonadIO m, IsMediaStreamTrack self) => self -> m () +clone_ self = liftIO (void (js_clone (toMediaStreamTrack self))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs @@ -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))) + +-- | +getTrackUnchecked :: + (MonadIO m) => MediaStreamTrackEvent -> m MediaStreamTrack +getTrackUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getTrack (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackSourcesCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackSourcesCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackSourcesCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackSourcesCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs b/src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs @@ -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) + +-- | +getMandatoryUnchecked :: + (MonadIO m) => MediaTrackConstraints -> m MediaTrackConstraintSet +getMandatoryUnchecked self = liftIO ((js_getMandatory (self)) >>= fromJSValUnchecked) foreign import javascript unsafe "$1[\"optional\"]" js_getOptional diff --git a/src/GHCJS/DOM/JSFFI/Generated/MemoryInfo.hs b/src/GHCJS/DOM/JSFFI/Generated/MemoryInfo.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MemoryInfo.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MemoryInfo.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MessageChannel.hs b/src/GHCJS/DOM/JSFFI/Generated/MessageChannel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MessageChannel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MessageChannel.hs @@ -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 @@ -- | getPort1 :: (MonadIO m) => MessageChannel -> m (Maybe MessagePort) getPort1 self = liftIO (nullableToMaybe <$> (js_getPort1 (self))) + +-- | +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 @@ -- | getPort2 :: (MonadIO m) => MessageChannel -> m (Maybe MessagePort) getPort2 self = liftIO (nullableToMaybe <$> (js_getPort2 (self))) + +-- | +getPort2Unchecked :: (MonadIO m) => MessageChannel -> m MessagePort +getPort2Unchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getPort2 (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs @@ -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 @@ -- | getSource :: (MonadIO m) => MessageEvent -> m (Maybe EventTarget) getSource self = liftIO (nullableToMaybe <$> (js_getSource (self))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs b/src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MimeType.hs b/src/GHCJS/DOM/JSFFI/Generated/MimeType.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MimeType.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MimeType.hs @@ -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))) + +-- | +getEnabledPluginUnchecked :: (MonadIO m) => MimeType -> m Plugin +getEnabledPluginUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getEnabledPlugin (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs b/src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs @@ -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)) + +-- | +item_ :: (MonadIO m) => MimeTypeArray -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +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))) + +-- | +namedItem_ :: + (MonadIO m, ToJSString name) => MimeTypeArray -> name -> m () +namedItem_ self name + = liftIO (void (js_namedItem (self) (toJSString name))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getDataTransferUnchecked :: + (MonadIO m, IsMouseEvent self) => self -> m DataTransfer +getDataTransferUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getDataTransfer (toMouseEvent self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs @@ -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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs b/src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs @@ -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) + +-- | +takeRecords_ :: (MonadIO m) => MutationObserver -> m () +takeRecords_ self = liftIO (void (js_takeRecords (self))) foreign import javascript unsafe "$1[\"disconnect\"]()" js_disconnect :: MutationObserver -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs b/src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs --- a/src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs @@ -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 @@ -- | getTarget :: (MonadIO m) => MutationRecord -> m (Maybe Node) getTarget self = liftIO (nullableToMaybe <$> (js_getTarget (self))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getOldValueUnchecked :: + (MonadIO m, FromJSString result) => MutationRecord -> m result +getOldValueUnchecked self + = liftIO (fromJust . fromMaybeJSString <$> (js_getOldValue (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs b/src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs @@ -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))) + +-- | +getNamedItem_ :: + (MonadIO m, ToJSString name) => NamedNodeMap -> name -> m () +getNamedItem_ self name + = liftIO (void (js_getNamedItem (self) (toJSString name))) + +-- | +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)))) + +-- | +setNamedItem_ :: + (MonadIO m, IsNode node) => NamedNodeMap -> Maybe node -> m () +setNamedItem_ self node + = liftIO + (void + (js_setNamedItem (self) (maybeToNullable (fmap toNode node)))) + +-- | +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))) + +-- | +removeNamedItem_ :: + (MonadIO m, ToJSString name) => NamedNodeMap -> name -> m () +removeNamedItem_ self name + = liftIO (void (js_removeNamedItem (self) (toJSString name))) + +-- | +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)) + +-- | +item_ :: (MonadIO m) => NamedNodeMap -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +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))) + +-- | +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))) + +-- | +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)))) + +-- | +setNamedItemNS_ :: + (MonadIO m, IsNode node) => NamedNodeMap -> Maybe node -> m () +setNamedItemNS_ self node + = liftIO + (void + (js_setNamedItemNS (self) (maybeToNullable (fmap toNode node)))) + +-- | +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))) + +-- | +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))) + +-- | +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))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Navigator.hs b/src/GHCJS/DOM/JSFFI/Generated/Navigator.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Navigator.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Navigator.hs @@ -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) + +-- | +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))) + +-- | +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'') + +-- | +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 @@ -- | vibrate :: (MonadIO m) => Navigator -> Word -> m Bool vibrate self time = liftIO (js_vibrate (self) time) + +-- | +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 @@ -- | javaEnabled :: (MonadIO m) => Navigator -> m Bool javaEnabled self = liftIO (js_javaEnabled (self)) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs b/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Node.hs b/src/GHCJS/DOM/JSFFI/Generated/Node.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Node.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Node.hs @@ -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)))) + +-- | +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)))) + +-- | +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)))) + +-- | +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)))) + +-- | +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)))) + +-- | +removeChild_ :: + (MonadIO m, IsNode self, IsNode oldChild) => + self -> Maybe oldChild -> m () +removeChild_ self oldChild + = liftIO + (void + (js_removeChild (toNode self) + (maybeToNullable (fmap toNode oldChild)))) + +-- | +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)))) + +-- | +appendChild_ :: + (MonadIO m, IsNode self, IsNode newChild) => + self -> Maybe newChild -> m () +appendChild_ self newChild + = liftIO + (void + (js_appendChild (toNode self) + (maybeToNullable (fmap toNode newChild)))) + +-- | +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 @@ -- | hasChildNodes :: (MonadIO m, IsNode self) => self -> m Bool hasChildNodes self = liftIO (js_hasChildNodes (toNode self)) + +-- | +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)) + +-- | +cloneNode_ :: (MonadIO m, IsNode self) => self -> Bool -> m () +cloneNode_ self deep + = liftIO (void (js_cloneNode (toNode self) deep)) + +-- | +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)) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +lookupPrefix_ :: + (MonadIO m, IsNode self, ToJSString namespaceURI) => + self -> Maybe namespaceURI -> m () +lookupPrefix_ self namespaceURI + = liftIO + (void + (js_lookupPrefix (toNode self) (toMaybeJSString namespaceURI))) + +-- | +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)) + +-- | +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))) + +-- | +lookupNamespaceURI_ :: + (MonadIO m, IsNode self, ToJSString prefix) => + self -> Maybe prefix -> m () +lookupNamespaceURI_ self prefix + = liftIO + (void + (js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getParentElementUnchecked :: + (MonadIO m, IsNode self) => self -> m Element +getParentElementUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getParentElement (toNode self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs b/src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs @@ -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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs b/src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs @@ -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 @@ -- | nextNode :: (MonadIO m) => NodeIterator -> m (Maybe Node) nextNode self = liftIO (nullableToMaybe <$> (js_nextNode (self))) + +-- | +nextNode_ :: (MonadIO m) => NodeIterator -> m () +nextNode_ self = liftIO (void (js_nextNode (self))) + +-- | +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))) + +-- | +previousNode_ :: (MonadIO m) => NodeIterator -> m () +previousNode_ self = liftIO (void (js_previousNode (self))) + +-- | +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 @@ -- | getRoot :: (MonadIO m) => NodeIterator -> m (Maybe Node) getRoot self = liftIO (nullableToMaybe <$> (js_getRoot (self))) + +-- | +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 @@ -- | getFilter :: (MonadIO m) => NodeIterator -> m (Maybe NodeFilter) getFilter self = liftIO (nullableToMaybe <$> (js_getFilter (self))) + +-- | +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))) + +-- | +getReferenceNodeUnchecked :: (MonadIO m) => NodeIterator -> m Node +getReferenceNodeUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getReferenceNode (self))) foreign import javascript unsafe "($1[\"pointerBeforeReferenceNode\"] ? 1 : 0)" diff --git a/src/GHCJS/DOM/JSFFI/Generated/NodeList.hs b/src/GHCJS/DOM/JSFFI/Generated/NodeList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NodeList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NodeList.hs @@ -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)) + +-- | +item_ :: (MonadIO m, IsNodeList self) => self -> Word -> m () +item_ self index = liftIO (void (js_item (toNodeList self) index)) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/Notification.hs b/src/GHCJS/DOM/JSFFI/Generated/Notification.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Notification.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Notification.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/NotificationCenter.hs b/src/GHCJS/DOM/JSFFI/Generated/NotificationCenter.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NotificationCenter.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NotificationCenter.hs @@ -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))) + +-- | +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))) + +-- | +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 @@ -- | checkPermission :: (MonadIO m) => NotificationCenter -> m Int checkPermission self = liftIO (js_checkPermission (self)) + +-- | +checkPermission_ :: (MonadIO m) => NotificationCenter -> m () +checkPermission_ self = liftIO (void (js_checkPermission (self))) foreign import javascript unsafe "$1[\"requestPermission\"]($2)" js_requestPermission :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs b/src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs --- a/src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/OESTextureHalfFloat.hs b/src/GHCJS/DOM/JSFFI/Generated/OESTextureHalfFloat.hs --- a/src/GHCJS/DOM/JSFFI/Generated/OESTextureHalfFloat.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/OESTextureHalfFloat.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs b/src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs --- a/src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs @@ -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))) + +-- | +createVertexArrayOES_ :: + (MonadIO m) => OESVertexArrayObject -> m () +createVertexArrayOES_ self + = liftIO (void (js_createVertexArrayOES (self))) + +-- | +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)) + +-- | +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 :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs @@ -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))) + +-- | +getRenderedBufferUnchecked :: + (MonadIO m) => OfflineAudioCompletionEvent -> m AudioBuffer +getRenderedBufferUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getRenderedBuffer (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs b/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs --- a/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs b/src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs @@ -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))) + +-- | +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 @@ -- | getDetune :: (MonadIO m) => OscillatorNode -> m (Maybe AudioParam) getDetune self = liftIO (nullableToMaybe <$> (js_getDetune (self))) + +-- | +getDetuneUnchecked :: (MonadIO m) => OscillatorNode -> m AudioParam +getDetuneUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getDetune (self))) -- | ended :: EventName OscillatorNode Event diff --git a/src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs b/src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Path2D.hs b/src/GHCJS/DOM/JSFFI/Generated/Path2D.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Path2D.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Path2D.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Performance.hs b/src/GHCJS/DOM/JSFFI/Generated/Performance.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Performance.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Performance.hs @@ -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))) + +-- | +webkitGetEntries_ :: (MonadIO m) => Performance -> m () +webkitGetEntries_ self = liftIO (void (js_webkitGetEntries (self))) + +-- | +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))) + +-- | +webkitGetEntriesByType_ :: + (MonadIO m, ToJSString entryType) => + Performance -> entryType -> m () +webkitGetEntriesByType_ self entryType + = liftIO + (void (js_webkitGetEntriesByType (self) (toJSString entryType))) + +-- | +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))) + +-- | +webkitGetEntriesByName_ :: + (MonadIO m, ToJSString name, ToJSString entryType) => + Performance -> name -> entryType -> m () +webkitGetEntriesByName_ self name entryType + = liftIO + (void + (js_webkitGetEntriesByName (self) (toJSString name) + (toJSString entryType))) + +-- | +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 @@ -- | now :: (MonadIO m) => Performance -> m Double now self = liftIO (js_now (self)) + +-- | +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))) + +-- | +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))) + +-- | +getTimingUnchecked :: + (MonadIO m) => Performance -> m PerformanceTiming +getTimingUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getTiming (self))) -- | webKitResourceTimingBufferFull :: EventName Performance Event diff --git a/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs b/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntryList.hs b/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntryList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntryList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PerformanceEntryList.hs @@ -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)) + +-- | +item_ :: (MonadIO m) => PerformanceEntryList -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigation.hs b/src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigation.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigation.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigation.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs b/src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs b/src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Plugin.hs b/src/GHCJS/DOM/JSFFI/Generated/Plugin.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Plugin.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Plugin.hs @@ -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)) + +-- | +item_ :: (MonadIO m) => Plugin -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +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))) + +-- | +namedItem_ :: + (MonadIO m, ToJSString name) => Plugin -> name -> m () +namedItem_ self name + = liftIO (void (js_namedItem (self) (toJSString name))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs b/src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs @@ -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)) + +-- | +item_ :: (MonadIO m) => PluginArray -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +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))) + +-- | +namedItem_ :: + (MonadIO m, ToJSString name) => PluginArray -> name -> m () +namedItem_ self name + = liftIO (void (js_namedItem (self) (toJSString name))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PositionError.hs b/src/GHCJS/DOM/JSFFI/Generated/PositionError.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PositionError.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PositionError.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs b/src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs @@ -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))) + +-- | +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))) + +-- | +getSheetUnchecked :: + (MonadIO m) => ProcessingInstruction -> m StyleSheet +getSheetUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getSheet (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs b/src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs b/src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs @@ -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 @@ -- | getRed :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue) getRed self = liftIO (nullableToMaybe <$> (js_getRed (self))) + +-- | +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 @@ -- | getGreen :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue) getGreen self = liftIO (nullableToMaybe <$> (js_getGreen (self))) + +-- | +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 @@ -- | getBlue :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue) getBlue self = liftIO (nullableToMaybe <$> (js_getBlue (self))) + +-- | +getBlueUnchecked :: (MonadIO m) => RGBColor -> m CSSPrimitiveValue +getBlueUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getBlue (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFSender.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFSender.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFSender.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFSender.hs @@ -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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs @@ -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))) + +-- | +getChannelUnchecked :: + (MonadIO m) => RTCDataChannelEvent -> m RTCDataChannel +getChannelUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getChannel (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs @@ -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))) + +-- | +getCandidateUnchecked :: + (MonadIO m) => RTCIceCandidateEvent -> m RTCIceCandidate +getCandidateUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getCandidate (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnection.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnection.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnection.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnection.hs @@ -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) + +-- | +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) + +-- | +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))) + +-- | +getStreamById_ :: + (MonadIO m, ToJSString streamId) => + RTCPeerConnection -> streamId -> m () +getStreamById_ self streamId + = liftIO (void (js_getStreamById (self) (toJSString streamId))) + +-- | +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))) + +-- | +getConfiguration_ :: (MonadIO m) => RTCPeerConnection -> m () +getConfiguration_ self = liftIO (void (js_getConfiguration (self))) + +-- | +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)))) + +-- | +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)))) + +-- | +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)))) + +-- | +createDTMFSender_ :: + (MonadIO m, IsMediaStreamTrack track) => + RTCPeerConnection -> Maybe track -> m () +createDTMFSender_ self track + = liftIO + (void + (js_createDTMFSender (self) + (maybeToNullable (fmap toMediaStreamTrack track)))) + +-- | +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))) + +-- | +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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCStatsCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCStatsCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs @@ -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))) + +-- | +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) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getRemoteUnchecked :: + (MonadIO m) => RTCStatsReport -> m RTCStatsReport +getRemoteUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getRemote (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsResponse.hs b/src/GHCJS/DOM/JSFFI/Generated/RTCStatsResponse.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RTCStatsResponse.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RTCStatsResponse.hs @@ -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) + +-- | +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))) + +-- | +namedItem_ :: + (MonadIO m, ToJSString name) => RTCStatsResponse -> name -> m () +namedItem_ self name + = liftIO (void (js_namedItem (self) (toJSString name))) + +-- | +namedItemUnchecked :: + (MonadIO m, ToJSString name) => + RTCStatsResponse -> name -> m RTCStatsReport +namedItemUnchecked self name + = liftIO + (fromJust . nullableToMaybe <$> + (js_namedItem (self) (toJSString name))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs b/src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs @@ -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)) + +-- | +_get_ :: (MonadIO m) => RadioNodeList -> Word -> m () +_get_ self index = liftIO (void (js__get (self) index)) + +-- | +_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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/Range.hs b/src/GHCJS/DOM/JSFFI/Generated/Range.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Range.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Range.hs @@ -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)) + +-- | +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))) + +-- | +extractContents_ :: (MonadIO m) => Range -> m () +extractContents_ self = liftIO (void (js_extractContents (self))) + +-- | +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))) + +-- | +cloneContents_ :: (MonadIO m) => Range -> m () +cloneContents_ self = liftIO (void (js_cloneContents (self))) + +-- | +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))) + +-- | +cloneRange_ :: (MonadIO m) => Range -> m () +cloneRange_ self = liftIO (void (js_cloneRange (self))) + +-- | +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 @@ -- | toString :: (MonadIO m, FromJSString result) => Range -> m result toString self = liftIO (fromJSString <$> (js_toString (self))) + +-- | +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))) + +-- | +getClientRects_ :: (MonadIO m) => Range -> m () +getClientRects_ self = liftIO (void (js_getClientRects (self))) + +-- | +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))) + +-- | +getBoundingClientRect_ :: (MonadIO m) => Range -> m () +getBoundingClientRect_ self + = liftIO (void (js_getBoundingClientRect (self))) + +-- | +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))) + +-- | +createContextualFragment_ :: + (MonadIO m, ToJSString html) => Range -> html -> m () +createContextualFragment_ self html + = liftIO + (void (js_createContextualFragment (self) (toJSString html))) + +-- | +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))) + +-- | +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))) + +-- | +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) + +-- | +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) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getCommonAncestorContainerUnchecked :: + (MonadIO m) => Range -> m Node +getCommonAncestorContainerUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getCommonAncestorContainer (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs b/src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs @@ -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 @@ -- | read :: (MonadIO m) => ReadableStream -> m (Maybe GObject) read self = liftIO (nullableToMaybe <$> (js_read (self))) + +-- | +read_ :: (MonadIO m) => ReadableStream -> m () +read_ self = liftIO (void (js_read (self))) + +-- | +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))) + +-- | +cancel_ :: + (MonadIO m, ToJSString reason) => ReadableStream -> reason -> m () +cancel_ self reason + = liftIO (void (js_cancel (self) (toJSString reason))) + +-- | +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)) + +-- | +pipeTo_ :: (MonadIO m) => ReadableStream -> JSVal -> JSVal -> m () +pipeTo_ self streams options + = liftIO (void (js_pipeTo (self) streams options)) + +-- | +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)) + +-- | +pipeThrough_ :: + (MonadIO m) => ReadableStream -> JSVal -> JSVal -> m () +pipeThrough_ self dest options + = liftIO (void (js_pipeThrough (self) dest options)) + +-- | +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 @@ -- | getClosed :: (MonadIO m) => ReadableStream -> m (Maybe Promise) getClosed self = liftIO (nullableToMaybe <$> (js_getClosed (self))) + +-- | +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 @@ -- | getReady :: (MonadIO m) => ReadableStream -> m (Maybe Promise) getReady self = liftIO (nullableToMaybe <$> (js_getReady (self))) + +-- | +getReadyUnchecked :: (MonadIO m) => ReadableStream -> m Promise +getReadyUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getReady (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Rect.hs b/src/GHCJS/DOM/JSFFI/Generated/Rect.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Rect.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Rect.hs @@ -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 @@ -- | getTop :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) getTop self = liftIO (nullableToMaybe <$> (js_getTop (self))) + +-- | +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 @@ -- | getRight :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) getRight self = liftIO (nullableToMaybe <$> (js_getRight (self))) + +-- | +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 @@ -- | getBottom :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) getBottom self = liftIO (nullableToMaybe <$> (js_getBottom (self))) + +-- | +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 @@ -- | getLeft :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue) getLeft self = liftIO (nullableToMaybe <$> (js_getLeft (self))) + +-- | +getLeftUnchecked :: (MonadIO m) => Rect -> m CSSPrimitiveValue +getLeftUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getLeft (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLError.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLError.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SQLError.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SQLError.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs @@ -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))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs @@ -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 @@ -- | item :: (MonadIO m) => SQLResultSetRowList -> Word -> m JSVal item self index = liftIO (js_item (self) index) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs @@ -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))) + +-- | +getTargetUnchecked :: + (MonadIO m) => SVGAElement -> m SVGAnimatedString +getTargetUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getTarget (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs @@ -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))) + +-- | +getValueAsStringUnchecked :: + (MonadIO m, FromJSString result) => SVGAngle -> m result +getValueAsStringUnchecked self + = liftIO + (fromJust . fromMaybeJSString <$> (js_getValueAsString (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs @@ -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))) + +-- | +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))) + +-- | +getAnimValUnchecked :: + (MonadIO m) => SVGAnimatedAngle -> m SVGAngle +getAnimValUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs @@ -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))) + +-- | +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))) + +-- | +getAnimValUnchecked :: + (MonadIO m) => SVGAnimatedLength -> m SVGLength +getAnimValUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs @@ -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))) + +-- | +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))) + +-- | +getAnimValUnchecked :: + (MonadIO m) => SVGAnimatedLengthList -> m SVGLengthList +getAnimValUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs @@ -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))) + +-- | +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))) + +-- | +getAnimValUnchecked :: + (MonadIO m) => SVGAnimatedNumberList -> m SVGNumberList +getAnimValUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs @@ -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))) + +-- | +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))) + +-- | +getAnimValUnchecked :: + (MonadIO m) => + SVGAnimatedPreserveAspectRatio -> m SVGPreserveAspectRatio +getAnimValUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs @@ -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))) + +-- | +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))) + +-- | +getAnimValUnchecked :: (MonadIO m) => SVGAnimatedRect -> m SVGRect +getAnimValUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs @@ -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))) + +-- | +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))) + +-- | +getAnimValUnchecked :: + (MonadIO m) => SVGAnimatedTransformList -> m SVGTransformList +getAnimValUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getAnimVal (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs @@ -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)) + +-- | +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)) + +-- | +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)) + +-- | +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))) + +-- | +getTargetElementUnchecked :: + (MonadIO m, IsSVGAnimationElement self) => self -> m SVGElement +getTargetElementUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getTargetElement (toSVGAnimationElement self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +getRUnchecked :: + (MonadIO m) => SVGCircleElement -> m SVGAnimatedLength +getRUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getR (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs @@ -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))) + +-- | +getClipPathUnitsUnchecked :: + (MonadIO m) => SVGClipPathElement -> m SVGAnimatedEnumeration +getClipPathUnitsUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getClipPathUnits (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGColor.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGColor.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGColor.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGColor.hs @@ -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))) + +-- | +getRgbColorUnchecked :: + (MonadIO m, IsSVGColor self) => self -> m RGBColor +getRgbColorUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getRgbColor (toSVGColor self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getOffsetUnchecked :: + (MonadIO m, IsSVGComponentTransferFunctionElement self) => + self -> m SVGAnimatedNumber +getOffsetUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getOffset (toSVGComponentTransferFunctionElement self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs @@ -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))) + +-- | +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))) + +-- | +getYUnchecked :: + (MonadIO m) => SVGCursorElement -> m SVGAnimatedLength +getYUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getY (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGDocument.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGDocument.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGDocument.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGDocument.hs @@ -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))) + +-- | +createEvent_ :: + (MonadIO m, ToJSString eventType) => + SVGDocument -> eventType -> m () +createEvent_ self eventType + = liftIO (void (js_createEvent (self) (toJSString eventType))) + +-- | +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))) + +-- | +getRootElementUnchecked :: + (MonadIO m) => SVGDocument -> m SVGSVGElement +getRootElementUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getRootElement (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs @@ -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))) + +-- | +getPresentationAttribute_ :: + (MonadIO m, IsSVGElement self, ToJSString name) => + self -> name -> m () +getPresentationAttribute_ self name + = liftIO + (void + (js_getPresentationAttribute (toSVGElement self) + (toJSString name))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getRyUnchecked :: + (MonadIO m) => SVGEllipseElement -> m SVGAnimatedLength +getRyUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getRy (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs @@ -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))) + +-- | +getExternalResourcesRequiredUnchecked :: + (MonadIO m) => + SVGExternalResourcesRequired -> m SVGAnimatedBoolean +getExternalResourcesRequiredUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getExternalResourcesRequired (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEBlendElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEBlendElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEBlendElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEBlendElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +getModeUnchecked :: + (MonadIO m) => SVGFEBlendElement -> m SVGAnimatedEnumeration +getModeUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getMode (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEColorMatrixElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEColorMatrixElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEColorMatrixElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEColorMatrixElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +getValuesUnchecked :: + (MonadIO m) => SVGFEColorMatrixElement -> m SVGAnimatedNumberList +getValuesUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getValues (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEComponentTransferElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEComponentTransferElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEComponentTransferElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEComponentTransferElement.hs @@ -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))) + +-- | +getIn1Unchecked :: + (MonadIO m) => SVGFEComponentTransferElement -> m SVGAnimatedString +getIn1Unchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFECompositeElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFECompositeElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFECompositeElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFECompositeElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getK4Unchecked :: + (MonadIO m) => SVGFECompositeElement -> m SVGAnimatedNumber +getK4Unchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getK4 (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEConvolveMatrixElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEConvolveMatrixElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEConvolveMatrixElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEConvolveMatrixElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getPreserveAlphaUnchecked :: + (MonadIO m) => SVGFEConvolveMatrixElement -> m SVGAnimatedBoolean +getPreserveAlphaUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getPreserveAlpha (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDiffuseLightingElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDiffuseLightingElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDiffuseLightingElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDiffuseLightingElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getKernelUnitLengthYUnchecked :: + (MonadIO m) => SVGFEDiffuseLightingElement -> m SVGAnimatedNumber +getKernelUnitLengthYUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getKernelUnitLengthY (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDisplacementMapElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDisplacementMapElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDisplacementMapElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDisplacementMapElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getYChannelSelectorUnchecked :: + (MonadIO m) => + SVGFEDisplacementMapElement -> m SVGAnimatedEnumeration +getYChannelSelectorUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getYChannelSelector (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDistantLightElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDistantLightElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDistantLightElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDistantLightElement.hs @@ -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))) + +-- | +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))) + +-- | +getElevationUnchecked :: + (MonadIO m) => SVGFEDistantLightElement -> m SVGAnimatedNumber +getElevationUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getElevation (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDropShadowElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDropShadowElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEDropShadowElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEDropShadowElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getStdDeviationYUnchecked :: + (MonadIO m) => SVGFEDropShadowElement -> m SVGAnimatedNumber +getStdDeviationYUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getStdDeviationY (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEGaussianBlurElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEGaussianBlurElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEGaussianBlurElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEGaussianBlurElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getEdgeModeUnchecked :: + (MonadIO m) => SVGFEGaussianBlurElement -> m SVGAnimatedEnumeration +getEdgeModeUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getEdgeMode (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEImageElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEImageElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEImageElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEImageElement.hs @@ -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))) + +-- | +getPreserveAspectRatioUnchecked :: + (MonadIO m) => + SVGFEImageElement -> m SVGAnimatedPreserveAspectRatio +getPreserveAspectRatioUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getPreserveAspectRatio (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeNodeElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeNodeElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeNodeElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeNodeElement.hs @@ -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))) + +-- | +getIn1Unchecked :: + (MonadIO m) => SVGFEMergeNodeElement -> m SVGAnimatedString +getIn1Unchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEMorphologyElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEMorphologyElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEMorphologyElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEMorphologyElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getRadiusYUnchecked :: + (MonadIO m) => SVGFEMorphologyElement -> m SVGAnimatedNumber +getRadiusYUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getRadiusY (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEOffsetElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEOffsetElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEOffsetElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEOffsetElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +getDyUnchecked :: + (MonadIO m) => SVGFEOffsetElement -> m SVGAnimatedNumber +getDyUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getDy (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFEPointLightElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFEPointLightElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFEPointLightElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFEPointLightElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +getZUnchecked :: + (MonadIO m) => SVGFEPointLightElement -> m SVGAnimatedNumber +getZUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getZ (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFESpecularLightingElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFESpecularLightingElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFESpecularLightingElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFESpecularLightingElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getSpecularExponentUnchecked :: + (MonadIO m) => SVGFESpecularLightingElement -> m SVGAnimatedNumber +getSpecularExponentUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getSpecularExponent (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFESpotLightElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFESpotLightElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFESpotLightElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFESpotLightElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getLimitingConeAngleUnchecked :: + (MonadIO m) => SVGFESpotLightElement -> m SVGAnimatedNumber +getLimitingConeAngleUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getLimitingConeAngle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFETileElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFETileElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFETileElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFETileElement.hs @@ -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))) + +-- | +getIn1Unchecked :: + (MonadIO m) => SVGFETileElement -> m SVGAnimatedString +getIn1Unchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getIn1 (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFETurbulenceElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFETurbulenceElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFETurbulenceElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFETurbulenceElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getTypeUnchecked :: + (MonadIO m) => SVGFETurbulenceElement -> m SVGAnimatedEnumeration +getTypeUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getType (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFilterElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFilterElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFilterElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFilterElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getFilterResYUnchecked :: + (MonadIO m) => SVGFilterElement -> m SVGAnimatedInteger +getFilterResYUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getFilterResY (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFilterPrimitiveStandardAttributes.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFilterPrimitiveStandardAttributes.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFilterPrimitiveStandardAttributes.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFilterPrimitiveStandardAttributes.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getResultUnchecked :: + (MonadIO m) => + SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedString +getResultUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getResult (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGFitToViewBox.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGFitToViewBox.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGFitToViewBox.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGFitToViewBox.hs @@ -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))) + +-- | +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))) + +-- | +getPreserveAspectRatioUnchecked :: + (MonadIO m) => SVGFitToViewBox -> m SVGAnimatedPreserveAspectRatio +getPreserveAspectRatioUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getPreserveAspectRatio (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGForeignObjectElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGForeignObjectElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGForeignObjectElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGForeignObjectElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getHeightUnchecked :: + (MonadIO m) => SVGForeignObjectElement -> m SVGAnimatedLength +getHeightUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getHeight (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGGradientElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGGradientElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGGradientElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGGradientElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +getSpreadMethodUnchecked :: + (MonadIO m, IsSVGGradientElement self) => + self -> m SVGAnimatedEnumeration +getSpreadMethodUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getSpreadMethod (toSVGGradientElement self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGGraphicsElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGGraphicsElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGGraphicsElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGGraphicsElement.hs @@ -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))) + +-- | +getBBox_ :: (MonadIO m, IsSVGGraphicsElement self) => self -> m () +getBBox_ self + = liftIO (void (js_getBBox (toSVGGraphicsElement self))) + +-- | +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))) + +-- | +getCTM_ :: (MonadIO m, IsSVGGraphicsElement self) => self -> m () +getCTM_ self + = liftIO (void (js_getCTM (toSVGGraphicsElement self))) + +-- | +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))) + +-- | +getScreenCTM_ :: + (MonadIO m, IsSVGGraphicsElement self) => self -> m () +getScreenCTM_ self + = liftIO (void (js_getScreenCTM (toSVGGraphicsElement self))) + +-- | +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)))) + +-- | +getTransformToElement_ :: + (MonadIO m, IsSVGGraphicsElement self, IsSVGElement element) => + self -> Maybe element -> m () +getTransformToElement_ self element + = liftIO + (void + (js_getTransformToElement (toSVGGraphicsElement self) + (maybeToNullable (fmap toSVGElement element)))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getFarthestViewportElementUnchecked :: + (MonadIO m, IsSVGGraphicsElement self) => self -> m SVGElement +getFarthestViewportElementUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getFarthestViewportElement (toSVGGraphicsElement self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGImageElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGImageElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGImageElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGImageElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getPreserveAspectRatioUnchecked :: + (MonadIO m) => SVGImageElement -> m SVGAnimatedPreserveAspectRatio +getPreserveAspectRatioUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getPreserveAspectRatio (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGLength.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGLength.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGLength.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGLength.hs @@ -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))) + +-- | +getValueAsStringUnchecked :: + (MonadIO m, FromJSString result) => SVGLength -> m result +getValueAsStringUnchecked self + = liftIO + (fromJust . fromMaybeJSString <$> (js_getValueAsString (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGLengthList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGLengthList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGLengthList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGLengthList.hs @@ -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))) + +-- | +initialize_ :: + (MonadIO m) => SVGLengthList -> Maybe SVGLength -> m () +initialize_ self item + = liftIO (void (js_initialize (self) (maybeToNullable item))) + +-- | +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)) + +-- | +getItem_ :: (MonadIO m) => SVGLengthList -> Word -> m () +getItem_ self index = liftIO (void (js_getItem (self) index)) + +-- | +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)) + +-- | +insertItemBefore_ :: + (MonadIO m) => SVGLengthList -> Maybe SVGLength -> Word -> m () +insertItemBefore_ self item index + = liftIO + (void (js_insertItemBefore (self) (maybeToNullable item) index)) + +-- | +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)) + +-- | +replaceItem_ :: + (MonadIO m) => SVGLengthList -> Maybe SVGLength -> Word -> m () +replaceItem_ self item index + = liftIO + (void (js_replaceItem (self) (maybeToNullable item) index)) + +-- | +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)) + +-- | +removeItem_ :: (MonadIO m) => SVGLengthList -> Word -> m () +removeItem_ self index = liftIO (void (js_removeItem (self) index)) + +-- | +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))) + +-- | +appendItem_ :: + (MonadIO m) => SVGLengthList -> Maybe SVGLength -> m () +appendItem_ self item + = liftIO (void (js_appendItem (self) (maybeToNullable item))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGLineElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGLineElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGLineElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGLineElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getY2Unchecked :: + (MonadIO m) => SVGLineElement -> m SVGAnimatedLength +getY2Unchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getY2 (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGLinearGradientElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGLinearGradientElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGLinearGradientElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGLinearGradientElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getY2Unchecked :: + (MonadIO m) => SVGLinearGradientElement -> m SVGAnimatedLength +getY2Unchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getY2 (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGMarkerElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGMarkerElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGMarkerElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGMarkerElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getOrientAngleUnchecked :: + (MonadIO m) => SVGMarkerElement -> m SVGAnimatedAngle +getOrientAngleUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getOrientAngle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGMaskElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGMaskElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGMaskElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGMaskElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getHeightUnchecked :: + (MonadIO m) => SVGMaskElement -> m SVGAnimatedLength +getHeightUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getHeight (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs @@ -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))) + +-- | +multiply_ :: (MonadIO m) => SVGMatrix -> Maybe SVGMatrix -> m () +multiply_ self secondMatrix + = liftIO (void (js_multiply (self) (maybeToNullable secondMatrix))) + +-- | +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 @@ -- | inverse :: (MonadIO m) => SVGMatrix -> m (Maybe SVGMatrix) inverse self = liftIO (nullableToMaybe <$> (js_inverse (self))) + +-- | +inverse_ :: (MonadIO m) => SVGMatrix -> m () +inverse_ self = liftIO (void (js_inverse (self))) + +-- | +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)) + +-- | +translate_ :: (MonadIO m) => SVGMatrix -> Float -> Float -> m () +translate_ self x y = liftIO (void (js_translate (self) x y)) + +-- | +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)) + +-- | +scale_ :: (MonadIO m) => SVGMatrix -> Float -> m () +scale_ self scaleFactor + = liftIO (void (js_scale (self) scaleFactor)) + +-- | +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)) + +-- | +scaleNonUniform_ :: + (MonadIO m) => SVGMatrix -> Float -> Float -> m () +scaleNonUniform_ self scaleFactorX scaleFactorY + = liftIO + (void (js_scaleNonUniform (self) scaleFactorX scaleFactorY)) + +-- | +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)) + +-- | +rotate_ :: (MonadIO m) => SVGMatrix -> Float -> m () +rotate_ self angle = liftIO (void (js_rotate (self) angle)) + +-- | +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)) + +-- | +rotateFromVector_ :: + (MonadIO m) => SVGMatrix -> Float -> Float -> m () +rotateFromVector_ self x y + = liftIO (void (js_rotateFromVector (self) x y)) + +-- | +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 @@ -- | flipX :: (MonadIO m) => SVGMatrix -> m (Maybe SVGMatrix) flipX self = liftIO (nullableToMaybe <$> (js_flipX (self))) + +-- | +flipX_ :: (MonadIO m) => SVGMatrix -> m () +flipX_ self = liftIO (void (js_flipX (self))) + +-- | +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 @@ -- | flipY :: (MonadIO m) => SVGMatrix -> m (Maybe SVGMatrix) flipY self = liftIO (nullableToMaybe <$> (js_flipY (self))) + +-- | +flipY_ :: (MonadIO m) => SVGMatrix -> m () +flipY_ self = liftIO (void (js_flipY (self))) + +-- | +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)) + +-- | +skewX_ :: (MonadIO m) => SVGMatrix -> Float -> m () +skewX_ self angle = liftIO (void (js_skewX (self) angle)) + +-- | +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)) + +-- | +skewY_ :: (MonadIO m) => SVGMatrix -> Float -> m () +skewY_ self angle = liftIO (void (js_skewY (self) angle)) + +-- | +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 () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGNumber.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGNumber.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGNumber.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGNumber.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGNumberList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGNumberList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGNumberList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGNumberList.hs @@ -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))) + +-- | +initialize_ :: + (MonadIO m) => SVGNumberList -> Maybe SVGNumber -> m () +initialize_ self item + = liftIO (void (js_initialize (self) (maybeToNullable item))) + +-- | +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)) + +-- | +getItem_ :: (MonadIO m) => SVGNumberList -> Word -> m () +getItem_ self index = liftIO (void (js_getItem (self) index)) + +-- | +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)) + +-- | +insertItemBefore_ :: + (MonadIO m) => SVGNumberList -> Maybe SVGNumber -> Word -> m () +insertItemBefore_ self item index + = liftIO + (void (js_insertItemBefore (self) (maybeToNullable item) index)) + +-- | +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)) + +-- | +replaceItem_ :: + (MonadIO m) => SVGNumberList -> Maybe SVGNumber -> Word -> m () +replaceItem_ self item index + = liftIO + (void (js_replaceItem (self) (maybeToNullable item) index)) + +-- | +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)) + +-- | +removeItem_ :: (MonadIO m) => SVGNumberList -> Word -> m () +removeItem_ self index = liftIO (void (js_removeItem (self) index)) + +-- | +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))) + +-- | +appendItem_ :: + (MonadIO m) => SVGNumberList -> Maybe SVGNumber -> m () +appendItem_ self item + = liftIO (void (js_appendItem (self) (maybeToNullable item))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPaint.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPaint.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPaint.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPaint.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathElement.hs @@ -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 @@ -- | getTotalLength :: (MonadIO m) => SVGPathElement -> m Float getTotalLength self = liftIO (js_getTotalLength (self)) + +-- | +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)) + +-- | +getPointAtLength_ :: (MonadIO m) => SVGPathElement -> Float -> m () +getPointAtLength_ self distance + = liftIO (void (js_getPointAtLength (self) distance)) + +-- | +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) + +-- | +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))) + +-- | +createSVGPathSegClosePath_ :: (MonadIO m) => SVGPathElement -> m () +createSVGPathSegClosePath_ self + = liftIO (void (js_createSVGPathSegClosePath (self))) + +-- | +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)) + +-- | +createSVGPathSegMovetoAbs_ :: + (MonadIO m) => SVGPathElement -> Float -> Float -> m () +createSVGPathSegMovetoAbs_ self x y + = liftIO (void (js_createSVGPathSegMovetoAbs (self) x y)) + +-- | +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)) + +-- | +createSVGPathSegMovetoRel_ :: + (MonadIO m) => SVGPathElement -> Float -> Float -> m () +createSVGPathSegMovetoRel_ self x y + = liftIO (void (js_createSVGPathSegMovetoRel (self) x y)) + +-- | +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)) + +-- | +createSVGPathSegLinetoAbs_ :: + (MonadIO m) => SVGPathElement -> Float -> Float -> m () +createSVGPathSegLinetoAbs_ self x y + = liftIO (void (js_createSVGPathSegLinetoAbs (self) x y)) + +-- | +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)) + +-- | +createSVGPathSegLinetoRel_ :: + (MonadIO m) => SVGPathElement -> Float -> Float -> m () +createSVGPathSegLinetoRel_ self x y + = liftIO (void (js_createSVGPathSegLinetoRel (self) x y)) + +-- | +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)) + +-- | +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)) + +-- | +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)) + +-- | +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)) + +-- | +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)) + +-- | +createSVGPathSegCurvetoQuadraticAbs_ :: + (MonadIO m) => + SVGPathElement -> Float -> Float -> Float -> Float -> m () +createSVGPathSegCurvetoQuadraticAbs_ self x y x1 y1 + = liftIO + (void (js_createSVGPathSegCurvetoQuadraticAbs (self) x y x1 y1)) + +-- | +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)) + +-- | +createSVGPathSegCurvetoQuadraticRel_ :: + (MonadIO m) => + SVGPathElement -> Float -> Float -> Float -> Float -> m () +createSVGPathSegCurvetoQuadraticRel_ self x y x1 y1 + = liftIO + (void (js_createSVGPathSegCurvetoQuadraticRel (self) x y x1 y1)) + +-- | +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)) + +-- | +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)) + +-- | +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)) + +-- | +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)) + +-- | +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)) + +-- | +createSVGPathSegLinetoHorizontalAbs_ :: + (MonadIO m) => SVGPathElement -> Float -> m () +createSVGPathSegLinetoHorizontalAbs_ self x + = liftIO (void (js_createSVGPathSegLinetoHorizontalAbs (self) x)) + +-- | +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)) + +-- | +createSVGPathSegLinetoHorizontalRel_ :: + (MonadIO m) => SVGPathElement -> Float -> m () +createSVGPathSegLinetoHorizontalRel_ self x + = liftIO (void (js_createSVGPathSegLinetoHorizontalRel (self) x)) + +-- | +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)) + +-- | +createSVGPathSegLinetoVerticalAbs_ :: + (MonadIO m) => SVGPathElement -> Float -> m () +createSVGPathSegLinetoVerticalAbs_ self y + = liftIO (void (js_createSVGPathSegLinetoVerticalAbs (self) y)) + +-- | +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)) + +-- | +createSVGPathSegLinetoVerticalRel_ :: + (MonadIO m) => SVGPathElement -> Float -> m () +createSVGPathSegLinetoVerticalRel_ self y + = liftIO (void (js_createSVGPathSegLinetoVerticalRel (self) y)) + +-- | +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)) + +-- | +createSVGPathSegCurvetoCubicSmoothAbs_ :: + (MonadIO m) => + SVGPathElement -> Float -> Float -> Float -> Float -> m () +createSVGPathSegCurvetoCubicSmoothAbs_ self x y x2 y2 + = liftIO + (void (js_createSVGPathSegCurvetoCubicSmoothAbs (self) x y x2 y2)) + +-- | +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)) + +-- | +createSVGPathSegCurvetoCubicSmoothRel_ :: + (MonadIO m) => + SVGPathElement -> Float -> Float -> Float -> Float -> m () +createSVGPathSegCurvetoCubicSmoothRel_ self x y x2 y2 + = liftIO + (void (js_createSVGPathSegCurvetoCubicSmoothRel (self) x y x2 y2)) + +-- | +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)) + +-- | +createSVGPathSegCurvetoQuadraticSmoothAbs_ :: + (MonadIO m) => SVGPathElement -> Float -> Float -> m () +createSVGPathSegCurvetoQuadraticSmoothAbs_ self x y + = liftIO + (void (js_createSVGPathSegCurvetoQuadraticSmoothAbs (self) x y)) + +-- | +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)) + +-- | +createSVGPathSegCurvetoQuadraticSmoothRel_ :: + (MonadIO m) => SVGPathElement -> Float -> Float -> m () +createSVGPathSegCurvetoQuadraticSmoothRel_ self x y + = liftIO + (void (js_createSVGPathSegCurvetoQuadraticSmoothRel (self) x y)) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getAnimatedNormalizedPathSegListUnchecked :: + (MonadIO m) => SVGPathElement -> m SVGPathSegList +getAnimatedNormalizedPathSegListUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getAnimatedNormalizedPathSegList (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs @@ -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)))) + +-- | +initialize_ :: + (MonadIO m, IsSVGPathSeg newItem) => + SVGPathSegList -> Maybe newItem -> m () +initialize_ self newItem + = liftIO + (void + (js_initialize (self) + (maybeToNullable (fmap toSVGPathSeg newItem)))) + +-- | +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)) + +-- | +getItem_ :: (MonadIO m) => SVGPathSegList -> Word -> m () +getItem_ self index = liftIO (void (js_getItem (self) index)) + +-- | +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)) + +-- | +insertItemBefore_ :: + (MonadIO m, IsSVGPathSeg newItem) => + SVGPathSegList -> Maybe newItem -> Word -> m () +insertItemBefore_ self newItem index + = liftIO + (void + (js_insertItemBefore (self) + (maybeToNullable (fmap toSVGPathSeg newItem)) + index)) + +-- | +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)) + +-- | +replaceItem_ :: + (MonadIO m, IsSVGPathSeg newItem) => + SVGPathSegList -> Maybe newItem -> Word -> m () +replaceItem_ self newItem index + = liftIO + (void + (js_replaceItem (self) + (maybeToNullable (fmap toSVGPathSeg newItem)) + index)) + +-- | +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)) + +-- | +removeItem_ :: (MonadIO m) => SVGPathSegList -> Word -> m () +removeItem_ self index = liftIO (void (js_removeItem (self) index)) + +-- | +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)))) + +-- | +appendItem_ :: + (MonadIO m, IsSVGPathSeg newItem) => + SVGPathSegList -> Maybe newItem -> m () +appendItem_ self newItem + = liftIO + (void + (js_appendItem (self) + (maybeToNullable (fmap toSVGPathSeg newItem)))) + +-- | +appendItemUnchecked :: + (MonadIO m, IsSVGPathSeg newItem) => + SVGPathSegList -> Maybe newItem -> m SVGPathSeg +appendItemUnchecked self newItem + = liftIO + (fromJust . nullableToMaybe <$> (js_appendItem (self) (maybeToNullable (fmap toSVGPathSeg newItem)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPatternElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPatternElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPatternElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPatternElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getHeightUnchecked :: + (MonadIO m) => SVGPatternElement -> m SVGAnimatedLength +getHeightUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getHeight (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs @@ -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))) + +-- | +matrixTransform_ :: + (MonadIO m) => SVGPoint -> Maybe SVGMatrix -> m () +matrixTransform_ self matrix + = liftIO + (void (js_matrixTransform (self) (maybeToNullable matrix))) + +-- | +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 :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPointList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPointList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPointList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPointList.hs @@ -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))) + +-- | +initialize_ :: + (MonadIO m) => SVGPointList -> Maybe SVGPoint -> m () +initialize_ self item + = liftIO (void (js_initialize (self) (maybeToNullable item))) + +-- | +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)) + +-- | +getItem_ :: (MonadIO m) => SVGPointList -> Word -> m () +getItem_ self index = liftIO (void (js_getItem (self) index)) + +-- | +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)) + +-- | +insertItemBefore_ :: + (MonadIO m) => SVGPointList -> Maybe SVGPoint -> Word -> m () +insertItemBefore_ self item index + = liftIO + (void (js_insertItemBefore (self) (maybeToNullable item) index)) + +-- | +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)) + +-- | +replaceItem_ :: + (MonadIO m) => SVGPointList -> Maybe SVGPoint -> Word -> m () +replaceItem_ self item index + = liftIO + (void (js_replaceItem (self) (maybeToNullable item) index)) + +-- | +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)) + +-- | +removeItem_ :: (MonadIO m) => SVGPointList -> Word -> m () +removeItem_ self index = liftIO (void (js_removeItem (self) index)) + +-- | +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))) + +-- | +appendItem_ :: + (MonadIO m) => SVGPointList -> Maybe SVGPoint -> m () +appendItem_ self item + = liftIO (void (js_appendItem (self) (maybeToNullable item))) + +-- | +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 diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPolygonElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPolygonElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPolygonElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPolygonElement.hs @@ -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))) + +-- | +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))) + +-- | +getAnimatedPointsUnchecked :: + (MonadIO m) => SVGPolygonElement -> m SVGPointList +getAnimatedPointsUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getAnimatedPoints (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPolylineElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPolylineElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPolylineElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPolylineElement.hs @@ -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))) + +-- | +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))) + +-- | +getAnimatedPointsUnchecked :: + (MonadIO m) => SVGPolylineElement -> m SVGPointList +getAnimatedPointsUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getAnimatedPoints (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGPreserveAspectRatio.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGPreserveAspectRatio.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGPreserveAspectRatio.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGPreserveAspectRatio.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGRadialGradientElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGRadialGradientElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGRadialGradientElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGRadialGradientElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getFrUnchecked :: + (MonadIO m) => SVGRadialGradientElement -> m SVGAnimatedLength +getFrUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getFr (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGRect.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGRect.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGRect.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGRect.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGRectElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGRectElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGRectElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGRectElement.hs @@ -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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getRyUnchecked :: + (MonadIO m) => SVGRectElement -> m SVGAnimatedLength +getRyUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getRy (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGRenderingIntent.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGRenderingIntent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGRenderingIntent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGRenderingIntent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGSVGElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGSVGElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGSVGElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGSVGElement.hs @@ -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) + +-- | +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 @@ -- | animationsPaused :: (MonadIO m) => SVGSVGElement -> m Bool animationsPaused self = liftIO (js_animationsPaused (self)) + +-- | +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 @@ -- | getCurrentTime :: (MonadIO m) => SVGSVGElement -> m Float getCurrentTime self = liftIO (js_getCurrentTime (self)) + +-- | +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)))) + +-- | +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)))) + +-- | +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)))) + +-- | +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)))) + +-- | +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)) + +-- | +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)) + +-- | +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))) + +-- | +createSVGNumber_ :: (MonadIO m) => SVGSVGElement -> m () +createSVGNumber_ self = liftIO (void (js_createSVGNumber (self))) + +-- | +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))) + +-- | +createSVGLength_ :: (MonadIO m) => SVGSVGElement -> m () +createSVGLength_ self = liftIO (void (js_createSVGLength (self))) + +-- | +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))) + +-- | +createSVGAngle_ :: (MonadIO m) => SVGSVGElement -> m () +createSVGAngle_ self = liftIO (void (js_createSVGAngle (self))) + +-- | +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))) + +-- | +createSVGPoint_ :: (MonadIO m) => SVGSVGElement -> m () +createSVGPoint_ self = liftIO (void (js_createSVGPoint (self))) + +-- | +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))) + +-- | +createSVGMatrix_ :: (MonadIO m) => SVGSVGElement -> m () +createSVGMatrix_ self = liftIO (void (js_createSVGMatrix (self))) + +-- | +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))) + +-- | +createSVGRect_ :: (MonadIO m) => SVGSVGElement -> m () +createSVGRect_ self = liftIO (void (js_createSVGRect (self))) + +-- | +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))) + +-- | +createSVGTransform_ :: (MonadIO m) => SVGSVGElement -> m () +createSVGTransform_ self + = liftIO (void (js_createSVGTransform (self))) + +-- | +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))) + +-- | +createSVGTransformFromMatrix_ :: + (MonadIO m) => SVGSVGElement -> Maybe SVGMatrix -> m () +createSVGTransformFromMatrix_ self matrix + = liftIO + (void + (js_createSVGTransformFromMatrix (self) (maybeToNullable matrix))) + +-- | +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))) + +-- | +getElementById_ :: + (MonadIO m, ToJSString elementId) => + SVGSVGElement -> elementId -> m () +getElementById_ self elementId + = liftIO (void (js_getElementById (self) (toJSString elementId))) + +-- | +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 @@ -- | getX :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getX self = liftIO (nullableToMaybe <$> (js_getX (self))) + +-- | +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 @@ -- | getY :: (MonadIO m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getY self = liftIO (nullableToMaybe <$> (js_getY (self))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +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))) + +-- | +getCurrentTranslateUnchecked :: + (MonadIO m) => SVGSVGElement -> m SVGPoint +getCurrentTranslateUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getCurrentTranslate (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGScriptElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGScriptElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGScriptElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGScriptElement.hs @@ -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))) + +-- | +getTypeUnchecked :: + (MonadIO m, FromJSString result) => SVGScriptElement -> m result +getTypeUnchecked self + = liftIO (fromJust . fromMaybeJSString <$> (js_getType (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGStopElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGStopElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGStopElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGStopElement.hs @@ -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))) + +-- | +getOffsetUnchecked :: + (MonadIO m) => SVGStopElement -> m SVGAnimatedNumber +getOffsetUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getOffset (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGStringList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGStringList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGStringList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGStringList.hs @@ -1,10 +1,12 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGStringList - (js_clear, clear, js_initialize, initialize, js_getItem, getItem, - js_insertItemBefore, insertItemBefore, js_replaceItem, replaceItem, - js_removeItem, removeItem, js_appendItem, appendItem, - js_getNumberOfItems, getNumberOfItems, SVGStringList, - castToSVGStringList, gTypeSVGStringList) + (js_clear, clear, js_initialize, initialize, initialize_, + js_getItem, getItem, getItem_, js_insertItemBefore, + insertItemBefore, insertItemBefore_, js_replaceItem, replaceItem, + replaceItem_, js_removeItem, removeItem, removeItem_, + js_appendItem, appendItem, appendItem_, js_getNumberOfItems, + getNumberOfItems, SVGStringList, castToSVGStringList, + gTypeSVGStringList) 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) @@ -38,6 +42,12 @@ initialize self item = liftIO (fromJSString <$> (js_initialize (self) (toJSString item))) + +-- | +initialize_ :: + (MonadIO m, ToJSString item) => SVGStringList -> item -> m () +initialize_ self item + = liftIO (void (js_initialize (self) (toJSString item))) foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem :: SVGStringList -> Word -> IO JSString @@ -48,6 +58,10 @@ SVGStringList -> Word -> m result getItem self index = liftIO (fromJSString <$> (js_getItem (self) index)) + +-- | +getItem_ :: (MonadIO m) => SVGStringList -> Word -> m () +getItem_ self index = liftIO (void (js_getItem (self) index)) foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)" js_insertItemBefore :: @@ -61,6 +75,14 @@ = liftIO (fromJSString <$> (js_insertItemBefore (self) (toJSString item) index)) + +-- | +insertItemBefore_ :: + (MonadIO m, ToJSString item) => + SVGStringList -> item -> Word -> m () +insertItemBefore_ self item index + = liftIO + (void (js_insertItemBefore (self) (toJSString item) index)) foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)" js_replaceItem :: SVGStringList -> JSString -> Word -> IO JSString @@ -72,6 +94,13 @@ replaceItem self item index = liftIO (fromJSString <$> (js_replaceItem (self) (toJSString item) index)) + +-- | +replaceItem_ :: + (MonadIO m, ToJSString item) => + SVGStringList -> item -> Word -> m () +replaceItem_ self item index + = liftIO (void (js_replaceItem (self) (toJSString item) index)) foreign import javascript unsafe "$1[\"removeItem\"]($2)" js_removeItem :: SVGStringList -> Word -> IO JSString @@ -82,6 +111,10 @@ SVGStringList -> Word -> m result removeItem self index = liftIO (fromJSString <$> (js_removeItem (self) index)) + +-- | +removeItem_ :: (MonadIO m) => SVGStringList -> Word -> m () +removeItem_ self index = liftIO (void (js_removeItem (self) index)) foreign import javascript unsafe "$1[\"appendItem\"]($2)" js_appendItem :: SVGStringList -> JSString -> IO JSString @@ -93,6 +126,12 @@ appendItem self item = liftIO (fromJSString <$> (js_appendItem (self) (toJSString item))) + +-- | +appendItem_ :: + (MonadIO m, ToJSString item) => SVGStringList -> item -> m () +appendItem_ self item + = liftIO (void (js_appendItem (self) (toJSString item))) foreign import javascript unsafe "$1[\"numberOfItems\"]" js_getNumberOfItems :: SVGStringList -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGStyleElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGStyleElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGStyleElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGStyleElement.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTests.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTests.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTests.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGTests.hs @@ -1,9 +1,12 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGTests - (js_hasExtension, hasExtension, js_getRequiredFeatures, - getRequiredFeatures, js_getRequiredExtensions, - getRequiredExtensions, js_getSystemLanguage, getSystemLanguage, - SVGTests, castToSVGTests, gTypeSVGTests) + (js_hasExtension, hasExtension, hasExtension_, + js_getRequiredFeatures, getRequiredFeatures, + getRequiredFeaturesUnchecked, js_getRequiredExtensions, + getRequiredExtensions, getRequiredExtensionsUnchecked, + js_getSystemLanguage, getSystemLanguage, + getSystemLanguageUnchecked, SVGTests, castToSVGTests, + gTypeSVGTests) 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) @@ -30,6 +35,12 @@ SVGTests -> extension -> m Bool hasExtension self extension = liftIO (js_hasExtension (self) (toJSString extension)) + +-- | +hasExtension_ :: + (MonadIO m, ToJSString extension) => SVGTests -> extension -> m () +hasExtension_ self extension + = liftIO (void (js_hasExtension (self) (toJSString extension))) foreign import javascript unsafe "$1[\"requiredFeatures\"]" js_getRequiredFeatures :: SVGTests -> IO (Nullable SVGStringList) @@ -39,6 +50,13 @@ (MonadIO m) => SVGTests -> m (Maybe SVGStringList) getRequiredFeatures self = liftIO (nullableToMaybe <$> (js_getRequiredFeatures (self))) + +-- | +getRequiredFeaturesUnchecked :: + (MonadIO m) => SVGTests -> m SVGStringList +getRequiredFeaturesUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getRequiredFeatures (self))) foreign import javascript unsafe "$1[\"requiredExtensions\"]" js_getRequiredExtensions :: SVGTests -> IO (Nullable SVGStringList) @@ -48,6 +66,13 @@ (MonadIO m) => SVGTests -> m (Maybe SVGStringList) getRequiredExtensions self = liftIO (nullableToMaybe <$> (js_getRequiredExtensions (self))) + +-- | +getRequiredExtensionsUnchecked :: + (MonadIO m) => SVGTests -> m SVGStringList +getRequiredExtensionsUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getRequiredExtensions (self))) foreign import javascript unsafe "$1[\"systemLanguage\"]" js_getSystemLanguage :: SVGTests -> IO (Nullable SVGStringList) @@ -57,3 +82,10 @@ (MonadIO m) => SVGTests -> m (Maybe SVGStringList) getSystemLanguage self = liftIO (nullableToMaybe <$> (js_getSystemLanguage (self))) + +-- | +getSystemLanguageUnchecked :: + (MonadIO m) => SVGTests -> m SVGStringList +getSystemLanguageUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getSystemLanguage (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTextContentElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTextContentElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTextContentElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGTextContentElement.hs @@ -1,18 +1,23 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGTextContentElement - (js_getNumberOfChars, getNumberOfChars, js_getComputedTextLength, - getComputedTextLength, js_getSubStringLength, getSubStringLength, - js_getStartPositionOfChar, getStartPositionOfChar, - js_getEndPositionOfChar, getEndPositionOfChar, js_getExtentOfChar, - getExtentOfChar, js_getRotationOfChar, getRotationOfChar, - js_getCharNumAtPosition, getCharNumAtPosition, js_selectSubString, + (js_getNumberOfChars, getNumberOfChars, getNumberOfChars_, + js_getComputedTextLength, getComputedTextLength, + getComputedTextLength_, js_getSubStringLength, getSubStringLength, + getSubStringLength_, js_getStartPositionOfChar, + getStartPositionOfChar, getStartPositionOfChar_, + getStartPositionOfCharUnchecked, js_getEndPositionOfChar, + getEndPositionOfChar, getEndPositionOfChar_, + getEndPositionOfCharUnchecked, js_getExtentOfChar, getExtentOfChar, + getExtentOfChar_, getExtentOfCharUnchecked, js_getRotationOfChar, + getRotationOfChar, getRotationOfChar_, js_getCharNumAtPosition, + getCharNumAtPosition, getCharNumAtPosition_, js_selectSubString, selectSubString, pattern LENGTHADJUST_UNKNOWN, pattern LENGTHADJUST_SPACING, pattern LENGTHADJUST_SPACINGANDGLYPHS, js_getTextLength, - getTextLength, js_getLengthAdjust, getLengthAdjust, - SVGTextContentElement, castToSVGTextContentElement, - gTypeSVGTextContentElement, IsSVGTextContentElement, - toSVGTextContentElement) + getTextLength, getTextLengthUnchecked, js_getLengthAdjust, + getLengthAdjust, getLengthAdjustUnchecked, SVGTextContentElement, + castToSVGTextContentElement, gTypeSVGTextContentElement, + IsSVGTextContentElement, toSVGTextContentElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) @@ -21,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) @@ -37,6 +44,13 @@ (MonadIO m, IsSVGTextContentElement self) => self -> m Int getNumberOfChars self = liftIO (js_getNumberOfChars (toSVGTextContentElement self)) + +-- | +getNumberOfChars_ :: + (MonadIO m, IsSVGTextContentElement self) => self -> m () +getNumberOfChars_ self + = liftIO + (void (js_getNumberOfChars (toSVGTextContentElement self))) foreign import javascript unsafe "$1[\"getComputedTextLength\"]()" js_getComputedTextLength :: SVGTextContentElement -> IO Float @@ -46,6 +60,13 @@ (MonadIO m, IsSVGTextContentElement self) => self -> m Float getComputedTextLength self = liftIO (js_getComputedTextLength (toSVGTextContentElement self)) + +-- | +getComputedTextLength_ :: + (MonadIO m, IsSVGTextContentElement self) => self -> m () +getComputedTextLength_ self + = liftIO + (void (js_getComputedTextLength (toSVGTextContentElement self))) foreign import javascript unsafe "$1[\"getSubStringLength\"]($2, $3)" js_getSubStringLength :: @@ -59,6 +80,16 @@ = liftIO (js_getSubStringLength (toSVGTextContentElement self) offset length) + +-- | +getSubStringLength_ :: + (MonadIO m, IsSVGTextContentElement self) => + self -> Word -> Word -> m () +getSubStringLength_ self offset length + = liftIO + (void + (js_getSubStringLength (toSVGTextContentElement self) offset + length)) foreign import javascript unsafe "$1[\"getStartPositionOfChar\"]($2)" js_getStartPositionOfChar :: @@ -72,6 +103,23 @@ = liftIO (nullableToMaybe <$> (js_getStartPositionOfChar (toSVGTextContentElement self) offset)) + +-- | +getStartPositionOfChar_ :: + (MonadIO m, IsSVGTextContentElement self) => self -> Word -> m () +getStartPositionOfChar_ self offset + = liftIO + (void + (js_getStartPositionOfChar (toSVGTextContentElement self) offset)) + +-- | +getStartPositionOfCharUnchecked :: + (MonadIO m, IsSVGTextContentElement self) => + self -> Word -> m SVGPoint +getStartPositionOfCharUnchecked self offset + = liftIO + (fromJust . nullableToMaybe <$> + (js_getStartPositionOfChar (toSVGTextContentElement self) offset)) foreign import javascript unsafe "$1[\"getEndPositionOfChar\"]($2)" js_getEndPositionOfChar :: @@ -85,6 +133,23 @@ = liftIO (nullableToMaybe <$> (js_getEndPositionOfChar (toSVGTextContentElement self) offset)) + +-- | +getEndPositionOfChar_ :: + (MonadIO m, IsSVGTextContentElement self) => self -> Word -> m () +getEndPositionOfChar_ self offset + = liftIO + (void + (js_getEndPositionOfChar (toSVGTextContentElement self) offset)) + +-- | +getEndPositionOfCharUnchecked :: + (MonadIO m, IsSVGTextContentElement self) => + self -> Word -> m SVGPoint +getEndPositionOfCharUnchecked self offset + = liftIO + (fromJust . nullableToMaybe <$> + (js_getEndPositionOfChar (toSVGTextContentElement self) offset)) foreign import javascript unsafe "$1[\"getExtentOfChar\"]($2)" js_getExtentOfChar :: @@ -98,6 +163,22 @@ = liftIO (nullableToMaybe <$> (js_getExtentOfChar (toSVGTextContentElement self) offset)) + +-- | +getExtentOfChar_ :: + (MonadIO m, IsSVGTextContentElement self) => self -> Word -> m () +getExtentOfChar_ self offset + = liftIO + (void (js_getExtentOfChar (toSVGTextContentElement self) offset)) + +-- | +getExtentOfCharUnchecked :: + (MonadIO m, IsSVGTextContentElement self) => + self -> Word -> m SVGRect +getExtentOfCharUnchecked self offset + = liftIO + (fromJust . nullableToMaybe <$> + (js_getExtentOfChar (toSVGTextContentElement self) offset)) foreign import javascript unsafe "$1[\"getRotationOfChar\"]($2)" js_getRotationOfChar :: SVGTextContentElement -> Word -> IO Float @@ -109,6 +190,13 @@ getRotationOfChar self offset = liftIO (js_getRotationOfChar (toSVGTextContentElement self) offset) + +-- | +getRotationOfChar_ :: + (MonadIO m, IsSVGTextContentElement self) => self -> Word -> m () +getRotationOfChar_ self offset + = liftIO + (void (js_getRotationOfChar (toSVGTextContentElement self) offset)) foreign import javascript unsafe "$1[\"getCharNumAtPosition\"]($2)" js_getCharNumAtPosition :: @@ -122,6 +210,16 @@ = liftIO (js_getCharNumAtPosition (toSVGTextContentElement self) (maybeToNullable point)) + +-- | +getCharNumAtPosition_ :: + (MonadIO m, IsSVGTextContentElement self) => + self -> Maybe SVGPoint -> m () +getCharNumAtPosition_ self point + = liftIO + (void + (js_getCharNumAtPosition (toSVGTextContentElement self) + (maybeToNullable point))) foreign import javascript unsafe "$1[\"selectSubString\"]($2, $3)" js_selectSubString :: @@ -150,6 +248,15 @@ = liftIO (nullableToMaybe <$> (js_getTextLength (toSVGTextContentElement self))) + +-- | +getTextLengthUnchecked :: + (MonadIO m, IsSVGTextContentElement self) => + self -> m SVGAnimatedLength +getTextLengthUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getTextLength (toSVGTextContentElement self))) foreign import javascript unsafe "$1[\"lengthAdjust\"]" js_getLengthAdjust :: @@ -162,4 +269,13 @@ getLengthAdjust self = liftIO (nullableToMaybe <$> + (js_getLengthAdjust (toSVGTextContentElement self))) + +-- | +getLengthAdjustUnchecked :: + (MonadIO m, IsSVGTextContentElement self) => + self -> m SVGAnimatedEnumeration +getLengthAdjustUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getLengthAdjust (toSVGTextContentElement self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTextPathElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTextPathElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTextPathElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGTextPathElement.hs @@ -6,7 +6,8 @@ pattern TEXTPATH_SPACINGTYPE_UNKNOWN, pattern TEXTPATH_SPACINGTYPE_AUTO, pattern TEXTPATH_SPACINGTYPE_EXACT, js_getStartOffset, - getStartOffset, js_getMethod, getMethod, js_getSpacing, getSpacing, + getStartOffset, getStartOffsetUnchecked, js_getMethod, getMethod, + getMethodUnchecked, js_getSpacing, getSpacing, getSpacingUnchecked, SVGTextPathElement, castToSVGTextPathElement, gTypeSVGTextPathElement) where @@ -17,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) @@ -40,6 +43,13 @@ (MonadIO m) => SVGTextPathElement -> m (Maybe SVGAnimatedLength) getStartOffset self = liftIO (nullableToMaybe <$> (js_getStartOffset (self))) + +-- | +getStartOffsetUnchecked :: + (MonadIO m) => SVGTextPathElement -> m SVGAnimatedLength +getStartOffsetUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getStartOffset (self))) foreign import javascript unsafe "$1[\"method\"]" js_getMethod :: SVGTextPathElement -> IO (Nullable SVGAnimatedEnumeration) @@ -49,6 +59,12 @@ (MonadIO m) => SVGTextPathElement -> m (Maybe SVGAnimatedEnumeration) getMethod self = liftIO (nullableToMaybe <$> (js_getMethod (self))) + +-- | +getMethodUnchecked :: + (MonadIO m) => SVGTextPathElement -> m SVGAnimatedEnumeration +getMethodUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getMethod (self))) foreign import javascript unsafe "$1[\"spacing\"]" js_getSpacing :: SVGTextPathElement -> IO (Nullable SVGAnimatedEnumeration) @@ -59,3 +75,9 @@ SVGTextPathElement -> m (Maybe SVGAnimatedEnumeration) getSpacing self = liftIO (nullableToMaybe <$> (js_getSpacing (self))) + +-- | +getSpacingUnchecked :: + (MonadIO m) => SVGTextPathElement -> m SVGAnimatedEnumeration +getSpacingUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getSpacing (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTextPositioningElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTextPositioningElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTextPositioningElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGTextPositioningElement.hs @@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGTextPositioningElement - (js_getX, getX, js_getY, getY, js_getDx, getDx, js_getDy, getDy, - js_getRotate, getRotate, SVGTextPositioningElement, - castToSVGTextPositioningElement, gTypeSVGTextPositioningElement, - IsSVGTextPositioningElement, toSVGTextPositioningElement) + (js_getX, getX, getXUnchecked, js_getY, getY, getYUnchecked, + js_getDx, getDx, getDxUnchecked, js_getDy, getDy, getDyUnchecked, + js_getRotate, getRotate, getRotateUnchecked, + SVGTextPositioningElement, castToSVGTextPositioningElement, + gTypeSVGTextPositioningElement, IsSVGTextPositioningElement, + toSVGTextPositioningElement) 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) @@ -30,6 +34,15 @@ getX self = liftIO (nullableToMaybe <$> (js_getX (toSVGTextPositioningElement self))) + +-- | +getXUnchecked :: + (MonadIO m, IsSVGTextPositioningElement self) => + self -> m SVGAnimatedLengthList +getXUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getX (toSVGTextPositioningElement self))) foreign import javascript unsafe "$1[\"y\"]" js_getY :: SVGTextPositioningElement -> IO (Nullable SVGAnimatedLengthList) @@ -41,6 +54,15 @@ getY self = liftIO (nullableToMaybe <$> (js_getY (toSVGTextPositioningElement self))) + +-- | +getYUnchecked :: + (MonadIO m, IsSVGTextPositioningElement self) => + self -> m SVGAnimatedLengthList +getYUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getY (toSVGTextPositioningElement self))) foreign import javascript unsafe "$1[\"dx\"]" js_getDx :: SVGTextPositioningElement -> IO (Nullable SVGAnimatedLengthList) @@ -52,6 +74,15 @@ getDx self = liftIO (nullableToMaybe <$> (js_getDx (toSVGTextPositioningElement self))) + +-- | +getDxUnchecked :: + (MonadIO m, IsSVGTextPositioningElement self) => + self -> m SVGAnimatedLengthList +getDxUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getDx (toSVGTextPositioningElement self))) foreign import javascript unsafe "$1[\"dy\"]" js_getDy :: SVGTextPositioningElement -> IO (Nullable SVGAnimatedLengthList) @@ -63,6 +94,15 @@ getDy self = liftIO (nullableToMaybe <$> (js_getDy (toSVGTextPositioningElement self))) + +-- | +getDyUnchecked :: + (MonadIO m, IsSVGTextPositioningElement self) => + self -> m SVGAnimatedLengthList +getDyUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getDy (toSVGTextPositioningElement self))) foreign import javascript unsafe "$1[\"rotate\"]" js_getRotate :: SVGTextPositioningElement -> IO (Nullable SVGAnimatedNumberList) @@ -74,4 +114,13 @@ getRotate self = liftIO (nullableToMaybe <$> + (js_getRotate (toSVGTextPositioningElement self))) + +-- | +getRotateUnchecked :: + (MonadIO m, IsSVGTextPositioningElement self) => + self -> m SVGAnimatedNumberList +getRotateUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getRotate (toSVGTextPositioningElement self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTransform.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTransform.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTransform.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGTransform.hs @@ -6,8 +6,9 @@ pattern SVG_TRANSFORM_MATRIX, pattern SVG_TRANSFORM_TRANSLATE, pattern SVG_TRANSFORM_SCALE, pattern SVG_TRANSFORM_ROTATE, pattern SVG_TRANSFORM_SKEWX, pattern SVG_TRANSFORM_SKEWY, - js_getType, getType, js_getMatrix, getMatrix, js_getAngle, - getAngle, SVGTransform, castToSVGTransform, gTypeSVGTransform) + js_getType, getType, js_getMatrix, getMatrix, getMatrixUnchecked, + js_getAngle, getAngle, SVGTransform, castToSVGTransform, + gTypeSVGTransform) 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) @@ -90,6 +93,11 @@ -- | getMatrix :: (MonadIO m) => SVGTransform -> m (Maybe SVGMatrix) getMatrix self = liftIO (nullableToMaybe <$> (js_getMatrix (self))) + +-- | +getMatrixUnchecked :: (MonadIO m) => SVGTransform -> m SVGMatrix +getMatrixUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getMatrix (self))) foreign import javascript unsafe "$1[\"angle\"]" js_getAngle :: SVGTransform -> IO Float diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGTransformList.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGTransformList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGTransformList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGTransformList.hs @@ -1,11 +1,18 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGTransformList - (js_clear, clear, js_initialize, initialize, js_getItem, getItem, - js_insertItemBefore, insertItemBefore, js_replaceItem, replaceItem, - js_removeItem, removeItem, js_appendItem, appendItem, + (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_createSVGTransformFromMatrix, createSVGTransformFromMatrix, - js_consolidate, consolidate, js_getNumberOfItems, getNumberOfItems, - SVGTransformList, castToSVGTransformList, gTypeSVGTransformList) + createSVGTransformFromMatrix_, + createSVGTransformFromMatrixUnchecked, js_consolidate, consolidate, + consolidate_, consolidateUnchecked, js_getNumberOfItems, + getNumberOfItems, SVGTransformList, castToSVGTransformList, + gTypeSVGTransformList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) @@ -14,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 +50,21 @@ initialize self item = liftIO (nullableToMaybe <$> (js_initialize (self) (maybeToNullable item))) + +-- | +initialize_ :: + (MonadIO m) => SVGTransformList -> Maybe SVGTransform -> m () +initialize_ self item + = liftIO (void (js_initialize (self) (maybeToNullable item))) + +-- | +initializeUnchecked :: + (MonadIO m) => + SVGTransformList -> Maybe SVGTransform -> m SVGTransform +initializeUnchecked self item + = liftIO + (fromJust . nullableToMaybe <$> + (js_initialize (self) (maybeToNullable item))) foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem :: SVGTransformList -> Word -> IO (Nullable SVGTransform) @@ -50,6 +74,16 @@ (MonadIO m) => SVGTransformList -> Word -> m (Maybe SVGTransform) getItem self index = liftIO (nullableToMaybe <$> (js_getItem (self) index)) + +-- | +getItem_ :: (MonadIO m) => SVGTransformList -> Word -> m () +getItem_ self index = liftIO (void (js_getItem (self) index)) + +-- | +getItemUnchecked :: + (MonadIO m) => SVGTransformList -> Word -> m SVGTransform +getItemUnchecked self index + = liftIO (fromJust . nullableToMaybe <$> (js_getItem (self) index)) foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)" js_insertItemBefore :: @@ -65,6 +99,23 @@ = liftIO (nullableToMaybe <$> (js_insertItemBefore (self) (maybeToNullable item) index)) + +-- | +insertItemBefore_ :: + (MonadIO m) => + SVGTransformList -> Maybe SVGTransform -> Word -> m () +insertItemBefore_ self item index + = liftIO + (void (js_insertItemBefore (self) (maybeToNullable item) index)) + +-- | +insertItemBeforeUnchecked :: + (MonadIO m) => + SVGTransformList -> Maybe SVGTransform -> Word -> m SVGTransform +insertItemBeforeUnchecked self item index + = liftIO + (fromJust . nullableToMaybe <$> + (js_insertItemBefore (self) (maybeToNullable item) index)) foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)" js_replaceItem :: @@ -80,6 +131,23 @@ = liftIO (nullableToMaybe <$> (js_replaceItem (self) (maybeToNullable item) index)) + +-- | +replaceItem_ :: + (MonadIO m) => + SVGTransformList -> Maybe SVGTransform -> Word -> m () +replaceItem_ self item index + = liftIO + (void (js_replaceItem (self) (maybeToNullable item) index)) + +-- | +replaceItemUnchecked :: + (MonadIO m) => + SVGTransformList -> Maybe SVGTransform -> Word -> m SVGTransform +replaceItemUnchecked self item index + = liftIO + (fromJust . nullableToMaybe <$> + (js_replaceItem (self) (maybeToNullable item) index)) foreign import javascript unsafe "$1[\"removeItem\"]($2)" js_removeItem :: @@ -90,6 +158,17 @@ (MonadIO m) => SVGTransformList -> Word -> m (Maybe SVGTransform) removeItem self index = liftIO (nullableToMaybe <$> (js_removeItem (self) index)) + +-- | +removeItem_ :: (MonadIO m) => SVGTransformList -> Word -> m () +removeItem_ self index = liftIO (void (js_removeItem (self) index)) + +-- | +removeItemUnchecked :: + (MonadIO m) => SVGTransformList -> Word -> m SVGTransform +removeItemUnchecked self index + = liftIO + (fromJust . nullableToMaybe <$> (js_removeItem (self) index)) foreign import javascript unsafe "$1[\"appendItem\"]($2)" js_appendItem :: @@ -103,6 +182,21 @@ appendItem self item = liftIO (nullableToMaybe <$> (js_appendItem (self) (maybeToNullable item))) + +-- | +appendItem_ :: + (MonadIO m) => SVGTransformList -> Maybe SVGTransform -> m () +appendItem_ self item + = liftIO (void (js_appendItem (self) (maybeToNullable item))) + +-- | +appendItemUnchecked :: + (MonadIO m) => + SVGTransformList -> Maybe SVGTransform -> m SVGTransform +appendItemUnchecked self item + = liftIO + (fromJust . nullableToMaybe <$> + (js_appendItem (self) (maybeToNullable item))) foreign import javascript unsafe "$1[\"createSVGTransformFromMatrix\"]($2)" @@ -118,6 +212,23 @@ = liftIO (nullableToMaybe <$> (js_createSVGTransformFromMatrix (self) (maybeToNullable matrix))) + +-- | +createSVGTransformFromMatrix_ :: + (MonadIO m) => SVGTransformList -> Maybe SVGMatrix -> m () +createSVGTransformFromMatrix_ self matrix + = liftIO + (void + (js_createSVGTransformFromMatrix (self) (maybeToNullable matrix))) + +-- | +createSVGTransformFromMatrixUnchecked :: + (MonadIO m) => + SVGTransformList -> Maybe SVGMatrix -> m SVGTransform +createSVGTransformFromMatrixUnchecked self matrix + = liftIO + (fromJust . nullableToMaybe <$> + (js_createSVGTransformFromMatrix (self) (maybeToNullable matrix))) foreign import javascript unsafe "$1[\"consolidate\"]()" js_consolidate :: SVGTransformList -> IO (Nullable SVGTransform) @@ -127,6 +238,16 @@ (MonadIO m) => SVGTransformList -> m (Maybe SVGTransform) consolidate self = liftIO (nullableToMaybe <$> (js_consolidate (self))) + +-- | +consolidate_ :: (MonadIO m) => SVGTransformList -> m () +consolidate_ self = liftIO (void (js_consolidate (self))) + +-- | +consolidateUnchecked :: + (MonadIO m) => SVGTransformList -> m SVGTransform +consolidateUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_consolidate (self))) foreign import javascript unsafe "$1[\"numberOfItems\"]" js_getNumberOfItems :: SVGTransformList -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGURIReference.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGURIReference.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGURIReference.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGURIReference.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGURIReference - (js_getHref, getHref, SVGURIReference, castToSVGURIReference, - gTypeSVGURIReference) + (js_getHref, getHref, getHrefUnchecked, SVGURIReference, + castToSVGURIReference, gTypeSVGURIReference) 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 @@ getHref :: (MonadIO m) => SVGURIReference -> m (Maybe SVGAnimatedString) getHref self = liftIO (nullableToMaybe <$> (js_getHref (self))) + +-- | +getHrefUnchecked :: + (MonadIO m) => SVGURIReference -> m SVGAnimatedString +getHrefUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getHref (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGUnitTypes.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGUnitTypes.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGUnitTypes.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGUnitTypes.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGUseElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGUseElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGUseElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGUseElement.hs @@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGUseElement - (js_getX, getX, js_getY, getY, js_getWidth, getWidth, js_getHeight, - getHeight, SVGUseElement, castToSVGUseElement, gTypeSVGUseElement) + (js_getX, getX, getXUnchecked, js_getY, getY, getYUnchecked, + js_getWidth, getWidth, getWidthUnchecked, js_getHeight, getHeight, + getHeightUnchecked, SVGUseElement, castToSVGUseElement, + gTypeSVGUseElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) @@ -10,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) @@ -24,6 +28,12 @@ -- | getX :: (MonadIO m) => SVGUseElement -> m (Maybe SVGAnimatedLength) getX self = liftIO (nullableToMaybe <$> (js_getX (self))) + +-- | +getXUnchecked :: + (MonadIO m) => SVGUseElement -> m SVGAnimatedLength +getXUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getX (self))) foreign import javascript unsafe "$1[\"y\"]" js_getY :: SVGUseElement -> IO (Nullable SVGAnimatedLength) @@ -31,6 +41,12 @@ -- | getY :: (MonadIO m) => SVGUseElement -> m (Maybe SVGAnimatedLength) getY self = liftIO (nullableToMaybe <$> (js_getY (self))) + +-- | +getYUnchecked :: + (MonadIO m) => SVGUseElement -> m SVGAnimatedLength +getYUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getY (self))) foreign import javascript unsafe "$1[\"width\"]" js_getWidth :: SVGUseElement -> IO (Nullable SVGAnimatedLength) @@ -39,6 +55,12 @@ getWidth :: (MonadIO m) => SVGUseElement -> m (Maybe SVGAnimatedLength) getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self))) + +-- | +getWidthUnchecked :: + (MonadIO m) => SVGUseElement -> m SVGAnimatedLength +getWidthUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getWidth (self))) foreign import javascript unsafe "$1[\"height\"]" js_getHeight :: SVGUseElement -> IO (Nullable SVGAnimatedLength) @@ -47,3 +69,9 @@ getHeight :: (MonadIO m) => SVGUseElement -> m (Maybe SVGAnimatedLength) getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self))) + +-- | +getHeightUnchecked :: + (MonadIO m) => SVGUseElement -> m SVGAnimatedLength +getHeightUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getHeight (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGViewElement.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGViewElement.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGViewElement.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGViewElement.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGViewElement - (js_getViewTarget, getViewTarget, SVGViewElement, - castToSVGViewElement, gTypeSVGViewElement) + (js_getViewTarget, getViewTarget, getViewTargetUnchecked, + SVGViewElement, castToSVGViewElement, gTypeSVGViewElement) 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,9 @@ (MonadIO m) => SVGViewElement -> m (Maybe SVGStringList) getViewTarget self = liftIO (nullableToMaybe <$> (js_getViewTarget (self))) + +-- | +getViewTargetUnchecked :: + (MonadIO m) => SVGViewElement -> m SVGStringList +getViewTargetUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getViewTarget (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGViewSpec.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGViewSpec.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGViewSpec.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGViewSpec.hs @@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGViewSpec - (js_getTransform, getTransform, js_getViewTarget, getViewTarget, + (js_getTransform, getTransform, getTransformUnchecked, + js_getViewTarget, getViewTarget, getViewTargetUnchecked, js_getViewBoxString, getViewBoxString, js_getPreserveAspectRatioString, getPreserveAspectRatioString, js_getTransformString, getTransformString, js_getViewTargetString, @@ -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) => SVGViewSpec -> m (Maybe SVGTransformList) getTransform self = liftIO (nullableToMaybe <$> (js_getTransform (self))) + +-- | +getTransformUnchecked :: + (MonadIO m) => SVGViewSpec -> m SVGTransformList +getTransformUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getTransform (self))) foreign import javascript unsafe "$1[\"viewTarget\"]" js_getViewTarget :: SVGViewSpec -> IO (Nullable SVGElement) @@ -39,6 +48,12 @@ getViewTarget :: (MonadIO m) => SVGViewSpec -> m (Maybe SVGElement) getViewTarget self = liftIO (nullableToMaybe <$> (js_getViewTarget (self))) + +-- | +getViewTargetUnchecked :: + (MonadIO m) => SVGViewSpec -> m SVGElement +getViewTargetUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getViewTarget (self))) foreign import javascript unsafe "$1[\"viewBoxString\"]" js_getViewBoxString :: SVGViewSpec -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGZoomAndPan.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGZoomAndPan.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGZoomAndPan.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGZoomAndPan.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SVGZoomEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/SVGZoomEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SVGZoomEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SVGZoomEvent.hs @@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SVGZoomEvent - (js_getZoomRectScreen, getZoomRectScreen, js_getPreviousScale, - getPreviousScale, js_getPreviousTranslate, getPreviousTranslate, - js_getNewScale, getNewScale, js_getNewTranslate, getNewTranslate, + (js_getZoomRectScreen, getZoomRectScreen, + getZoomRectScreenUnchecked, js_getPreviousScale, getPreviousScale, + js_getPreviousTranslate, getPreviousTranslate, + getPreviousTranslateUnchecked, js_getNewScale, getNewScale, + js_getNewTranslate, getNewTranslate, getNewTranslateUnchecked, SVGZoomEvent, castToSVGZoomEvent, gTypeSVGZoomEvent) 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) @@ -28,6 +32,13 @@ (MonadIO m) => SVGZoomEvent -> m (Maybe SVGRect) getZoomRectScreen self = liftIO (nullableToMaybe <$> (js_getZoomRectScreen (self))) + +-- | +getZoomRectScreenUnchecked :: + (MonadIO m) => SVGZoomEvent -> m SVGRect +getZoomRectScreenUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getZoomRectScreen (self))) foreign import javascript unsafe "$1[\"previousScale\"]" js_getPreviousScale :: SVGZoomEvent -> IO Float @@ -44,6 +55,13 @@ (MonadIO m) => SVGZoomEvent -> m (Maybe SVGPoint) getPreviousTranslate self = liftIO (nullableToMaybe <$> (js_getPreviousTranslate (self))) + +-- | +getPreviousTranslateUnchecked :: + (MonadIO m) => SVGZoomEvent -> m SVGPoint +getPreviousTranslateUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getPreviousTranslate (self))) foreign import javascript unsafe "$1[\"newScale\"]" js_getNewScale :: SVGZoomEvent -> IO Float @@ -60,3 +78,10 @@ (MonadIO m) => SVGZoomEvent -> m (Maybe SVGPoint) getNewTranslate self = liftIO (nullableToMaybe <$> (js_getNewTranslate (self))) + +-- | +getNewTranslateUnchecked :: + (MonadIO m) => SVGZoomEvent -> m SVGPoint +getNewTranslateUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getNewTranslate (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Screen.hs b/src/GHCJS/DOM/JSFFI/Generated/Screen.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Screen.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Screen.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ScriptProcessorNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ScriptProcessorNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ScriptProcessorNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ScriptProcessorNode.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ScriptProfile.hs b/src/GHCJS/DOM/JSFFI/Generated/ScriptProfile.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ScriptProfile.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ScriptProfile.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.ScriptProfile (js_getTitle, getTitle, js_getUid, getUid, js_getRootNode, - getRootNode, ScriptProfile, castToScriptProfile, - gTypeScriptProfile) + getRootNode, getRootNodeUnchecked, ScriptProfile, + castToScriptProfile, gTypeScriptProfile) 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) @@ -42,3 +44,9 @@ (MonadIO m) => ScriptProfile -> m (Maybe ScriptProfileNode) getRootNode self = liftIO (nullableToMaybe <$> (js_getRootNode (self))) + +-- | +getRootNodeUnchecked :: + (MonadIO m) => ScriptProfile -> m ScriptProfileNode +getRootNodeUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getRootNode (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/ScriptProfileNode.hs b/src/GHCJS/DOM/JSFFI/Generated/ScriptProfileNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ScriptProfileNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ScriptProfileNode.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.ScriptProfileNode - (js_children, children, js_getId, getId, js_getFunctionName, - getFunctionName, js_getUrl, getUrl, js_getLineNumber, - getLineNumber, js_getColumnNumber, getColumnNumber, - ScriptProfileNode, castToScriptProfileNode, gTypeScriptProfileNode) + (js_children, children, children_, js_getId, getId, + js_getFunctionName, getFunctionName, js_getUrl, getUrl, + js_getLineNumber, getLineNumber, js_getColumnNumber, + getColumnNumber, ScriptProfileNode, castToScriptProfileNode, + gTypeScriptProfileNode) 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) @@ -28,6 +31,10 @@ (MonadIO m) => ScriptProfileNode -> m [Maybe ScriptProfileNode] children self = liftIO ((js_children (self)) >>= fromJSValUnchecked) + +-- | +children_ :: (MonadIO m) => ScriptProfileNode -> m () +children_ self = liftIO (void (js_children (self))) foreign import javascript unsafe "$1[\"id\"]" js_getId :: ScriptProfileNode -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicy.hs b/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicy.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicy.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicy.hs @@ -1,16 +1,20 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SecurityPolicy - (js_allowsConnectionTo, allowsConnectionTo, js_allowsFontFrom, - allowsFontFrom, js_allowsFormAction, allowsFormAction, - js_allowsFrameFrom, allowsFrameFrom, js_allowsImageFrom, - allowsImageFrom, js_allowsMediaFrom, allowsMediaFrom, - js_allowsObjectFrom, allowsObjectFrom, js_allowsPluginType, - allowsPluginType, js_allowsScriptFrom, allowsScriptFrom, - js_allowsStyleFrom, allowsStyleFrom, js_getAllowsEval, - getAllowsEval, js_getAllowsInlineScript, getAllowsInlineScript, - js_getAllowsInlineStyle, getAllowsInlineStyle, js_getIsActive, - getIsActive, js_getReportURIs, getReportURIs, SecurityPolicy, - castToSecurityPolicy, gTypeSecurityPolicy) + (js_allowsConnectionTo, allowsConnectionTo, allowsConnectionTo_, + js_allowsFontFrom, allowsFontFrom, allowsFontFrom_, + js_allowsFormAction, allowsFormAction, allowsFormAction_, + js_allowsFrameFrom, allowsFrameFrom, allowsFrameFrom_, + js_allowsImageFrom, allowsImageFrom, allowsImageFrom_, + js_allowsMediaFrom, allowsMediaFrom, allowsMediaFrom_, + js_allowsObjectFrom, allowsObjectFrom, allowsObjectFrom_, + js_allowsPluginType, allowsPluginType, allowsPluginType_, + js_allowsScriptFrom, allowsScriptFrom, allowsScriptFrom_, + js_allowsStyleFrom, allowsStyleFrom, allowsStyleFrom_, + js_getAllowsEval, getAllowsEval, js_getAllowsInlineScript, + getAllowsInlineScript, js_getAllowsInlineStyle, + getAllowsInlineStyle, js_getIsActive, getIsActive, + js_getReportURIs, getReportURIs, getReportURIsUnchecked, + SecurityPolicy, castToSecurityPolicy, gTypeSecurityPolicy) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) @@ -19,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) @@ -36,6 +42,12 @@ (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool allowsConnectionTo self url = liftIO (js_allowsConnectionTo (self) (toJSString url)) + +-- | +allowsConnectionTo_ :: + (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m () +allowsConnectionTo_ self url + = liftIO (void (js_allowsConnectionTo (self) (toJSString url))) foreign import javascript unsafe "($1[\"allowsFontFrom\"]($2) ? 1 : 0)" js_allowsFontFrom :: @@ -46,6 +58,12 @@ (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool allowsFontFrom self url = liftIO (js_allowsFontFrom (self) (toJSString url)) + +-- | +allowsFontFrom_ :: + (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m () +allowsFontFrom_ self url + = liftIO (void (js_allowsFontFrom (self) (toJSString url))) foreign import javascript unsafe "($1[\"allowsFormAction\"]($2) ? 1 : 0)" js_allowsFormAction :: @@ -56,6 +74,12 @@ (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool allowsFormAction self url = liftIO (js_allowsFormAction (self) (toJSString url)) + +-- | +allowsFormAction_ :: + (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m () +allowsFormAction_ self url + = liftIO (void (js_allowsFormAction (self) (toJSString url))) foreign import javascript unsafe "($1[\"allowsFrameFrom\"]($2) ? 1 : 0)" js_allowsFrameFrom :: @@ -66,6 +90,12 @@ (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool allowsFrameFrom self url = liftIO (js_allowsFrameFrom (self) (toJSString url)) + +-- | +allowsFrameFrom_ :: + (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m () +allowsFrameFrom_ self url + = liftIO (void (js_allowsFrameFrom (self) (toJSString url))) foreign import javascript unsafe "($1[\"allowsImageFrom\"]($2) ? 1 : 0)" js_allowsImageFrom :: @@ -76,6 +106,12 @@ (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool allowsImageFrom self url = liftIO (js_allowsImageFrom (self) (toJSString url)) + +-- | +allowsImageFrom_ :: + (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m () +allowsImageFrom_ self url + = liftIO (void (js_allowsImageFrom (self) (toJSString url))) foreign import javascript unsafe "($1[\"allowsMediaFrom\"]($2) ? 1 : 0)" js_allowsMediaFrom :: @@ -86,6 +122,12 @@ (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool allowsMediaFrom self url = liftIO (js_allowsMediaFrom (self) (toJSString url)) + +-- | +allowsMediaFrom_ :: + (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m () +allowsMediaFrom_ self url + = liftIO (void (js_allowsMediaFrom (self) (toJSString url))) foreign import javascript unsafe "($1[\"allowsObjectFrom\"]($2) ? 1 : 0)" js_allowsObjectFrom :: @@ -96,6 +138,12 @@ (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool allowsObjectFrom self url = liftIO (js_allowsObjectFrom (self) (toJSString url)) + +-- | +allowsObjectFrom_ :: + (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m () +allowsObjectFrom_ self url + = liftIO (void (js_allowsObjectFrom (self) (toJSString url))) foreign import javascript unsafe "($1[\"allowsPluginType\"]($2) ? 1 : 0)" js_allowsPluginType :: @@ -106,6 +154,12 @@ (MonadIO m, ToJSString type') => SecurityPolicy -> type' -> m Bool allowsPluginType self type' = liftIO (js_allowsPluginType (self) (toJSString type')) + +-- | +allowsPluginType_ :: + (MonadIO m, ToJSString type') => SecurityPolicy -> type' -> m () +allowsPluginType_ self type' + = liftIO (void (js_allowsPluginType (self) (toJSString type'))) foreign import javascript unsafe "($1[\"allowsScriptFrom\"]($2) ? 1 : 0)" js_allowsScriptFrom :: @@ -116,6 +170,12 @@ (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool allowsScriptFrom self url = liftIO (js_allowsScriptFrom (self) (toJSString url)) + +-- | +allowsScriptFrom_ :: + (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m () +allowsScriptFrom_ self url + = liftIO (void (js_allowsScriptFrom (self) (toJSString url))) foreign import javascript unsafe "($1[\"allowsStyleFrom\"]($2) ? 1 : 0)" js_allowsStyleFrom :: @@ -126,6 +186,12 @@ (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m Bool allowsStyleFrom self url = liftIO (js_allowsStyleFrom (self) (toJSString url)) + +-- | +allowsStyleFrom_ :: + (MonadIO m, ToJSString url) => SecurityPolicy -> url -> m () +allowsStyleFrom_ self url + = liftIO (void (js_allowsStyleFrom (self) (toJSString url))) foreign import javascript unsafe "($1[\"allowsEval\"] ? 1 : 0)" js_getAllowsEval :: SecurityPolicy -> IO Bool @@ -166,3 +232,9 @@ (MonadIO m) => SecurityPolicy -> m (Maybe DOMStringList) getReportURIs self = liftIO (nullableToMaybe <$> (js_getReportURIs (self))) + +-- | +getReportURIsUnchecked :: + (MonadIO m) => SecurityPolicy -> m DOMStringList +getReportURIsUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getReportURIs (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicyViolationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicyViolationEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicyViolationEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SecurityPolicyViolationEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Selection.hs b/src/GHCJS/DOM/JSFFI/Generated/Selection.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Selection.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Selection.hs @@ -2,18 +2,21 @@ module GHCJS.DOM.JSFFI.Generated.Selection (js_collapse, collapse, js_collapseToEnd, collapseToEnd, js_collapseToStart, collapseToStart, js_deleteFromDocument, - deleteFromDocument, js_containsNode, containsNode, + deleteFromDocument, js_containsNode, containsNode, containsNode_, js_selectAllChildren, selectAllChildren, js_extend, extend, - js_getRangeAt, getRangeAt, js_removeAllRanges, removeAllRanges, - js_addRange, addRange, js_toString, toString, js_modify, modify, + js_getRangeAt, getRangeAt, getRangeAt_, getRangeAtUnchecked, + js_removeAllRanges, removeAllRanges, js_addRange, addRange, + js_toString, toString, toString_, js_modify, modify, js_setBaseAndExtent, setBaseAndExtent, js_setPosition, setPosition, js_empty, empty, js_getAnchorNode, getAnchorNode, - js_getAnchorOffset, getAnchorOffset, js_getFocusNode, getFocusNode, + getAnchorNodeUnchecked, js_getAnchorOffset, getAnchorOffset, + js_getFocusNode, getFocusNode, getFocusNodeUnchecked, js_getFocusOffset, getFocusOffset, js_getIsCollapsed, getIsCollapsed, js_getRangeCount, getRangeCount, js_getBaseNode, - getBaseNode, js_getBaseOffset, getBaseOffset, js_getExtentNode, - getExtentNode, js_getExtentOffset, getExtentOffset, js_getType, - getType, Selection, castToSelection, gTypeSelection) + getBaseNode, getBaseNodeUnchecked, js_getBaseOffset, getBaseOffset, + js_getExtentNode, getExtentNode, getExtentNodeUnchecked, + js_getExtentOffset, getExtentOffset, js_getType, getType, + Selection, castToSelection, gTypeSelection) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) @@ -22,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) @@ -73,6 +78,15 @@ = liftIO (js_containsNode (self) (maybeToNullable (fmap toNode node)) allowPartial) + +-- | +containsNode_ :: + (MonadIO m, IsNode node) => Selection -> Maybe node -> Bool -> m () +containsNode_ self node allowPartial + = liftIO + (void + (js_containsNode (self) (maybeToNullable (fmap toNode node)) + allowPartial)) foreign import javascript unsafe "$1[\"selectAllChildren\"]($2)" js_selectAllChildren :: Selection -> Nullable Node -> IO () @@ -101,6 +115,16 @@ getRangeAt :: (MonadIO m) => Selection -> Int -> m (Maybe Range) getRangeAt self index = liftIO (nullableToMaybe <$> (js_getRangeAt (self) index)) + +-- | +getRangeAt_ :: (MonadIO m) => Selection -> Int -> m () +getRangeAt_ self index = liftIO (void (js_getRangeAt (self) index)) + +-- | +getRangeAtUnchecked :: (MonadIO m) => Selection -> Int -> m Range +getRangeAtUnchecked self index + = liftIO + (fromJust . nullableToMaybe <$> (js_getRangeAt (self) index)) foreign import javascript unsafe "$1[\"removeAllRanges\"]()" js_removeAllRanges :: Selection -> IO () @@ -124,6 +148,10 @@ toString :: (MonadIO m, FromJSString result) => Selection -> m result toString self = liftIO (fromJSString <$> (js_toString (self))) + +-- | +toString_ :: (MonadIO m) => Selection -> m () +toString_ self = liftIO (void (js_toString (self))) foreign import javascript unsafe "$1[\"modify\"]($2, $3, $4)" js_modify :: Selection -> JSString -> JSString -> JSString -> IO () @@ -179,6 +207,11 @@ getAnchorNode :: (MonadIO m) => Selection -> m (Maybe Node) getAnchorNode self = liftIO (nullableToMaybe <$> (js_getAnchorNode (self))) + +-- | +getAnchorNodeUnchecked :: (MonadIO m) => Selection -> m Node +getAnchorNodeUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getAnchorNode (self))) foreign import javascript unsafe "$1[\"anchorOffset\"]" js_getAnchorOffset :: Selection -> IO Int @@ -194,6 +227,11 @@ getFocusNode :: (MonadIO m) => Selection -> m (Maybe Node) getFocusNode self = liftIO (nullableToMaybe <$> (js_getFocusNode (self))) + +-- | +getFocusNodeUnchecked :: (MonadIO m) => Selection -> m Node +getFocusNodeUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getFocusNode (self))) foreign import javascript unsafe "$1[\"focusOffset\"]" js_getFocusOffset :: Selection -> IO Int @@ -223,6 +261,11 @@ getBaseNode :: (MonadIO m) => Selection -> m (Maybe Node) getBaseNode self = liftIO (nullableToMaybe <$> (js_getBaseNode (self))) + +-- | +getBaseNodeUnchecked :: (MonadIO m) => Selection -> m Node +getBaseNodeUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getBaseNode (self))) foreign import javascript unsafe "$1[\"baseOffset\"]" js_getBaseOffset :: Selection -> IO Int @@ -238,6 +281,11 @@ getExtentNode :: (MonadIO m) => Selection -> m (Maybe Node) getExtentNode self = liftIO (nullableToMaybe <$> (js_getExtentNode (self))) + +-- | +getExtentNodeUnchecked :: (MonadIO m) => Selection -> m Node +getExtentNodeUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getExtentNode (self))) foreign import javascript unsafe "$1[\"extentOffset\"]" js_getExtentOffset :: Selection -> IO Int diff --git a/src/GHCJS/DOM/JSFFI/Generated/SourceBuffer.hs b/src/GHCJS/DOM/JSFFI/Generated/SourceBuffer.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SourceBuffer.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SourceBuffer.hs @@ -3,15 +3,16 @@ (js_appendBuffer, appendBuffer, js_appendBufferView, appendBufferView, js_abort, abort, js_remove, remove, js_setMode, setMode, js_getMode, getMode, js_getUpdating, getUpdating, - js_getBuffered, getBuffered, js_setTimestampOffset, - setTimestampOffset, js_getTimestampOffset, getTimestampOffset, - js_getAudioTracks, getAudioTracks, js_getVideoTracks, - getVideoTracks, js_getTextTracks, getTextTracks, - js_setAppendWindowStart, setAppendWindowStart, - js_getAppendWindowStart, getAppendWindowStart, - js_setAppendWindowEnd, setAppendWindowEnd, js_getAppendWindowEnd, - getAppendWindowEnd, SourceBuffer, castToSourceBuffer, - gTypeSourceBuffer) + js_getBuffered, getBuffered, getBufferedUnchecked, + js_setTimestampOffset, setTimestampOffset, js_getTimestampOffset, + getTimestampOffset, js_getAudioTracks, getAudioTracks, + getAudioTracksUnchecked, js_getVideoTracks, getVideoTracks, + getVideoTracksUnchecked, js_getTextTracks, getTextTracks, + getTextTracksUnchecked, js_setAppendWindowStart, + setAppendWindowStart, js_getAppendWindowStart, + getAppendWindowStart, js_setAppendWindowEnd, setAppendWindowEnd, + js_getAppendWindowEnd, getAppendWindowEnd, SourceBuffer, + castToSourceBuffer, gTypeSourceBuffer) 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) @@ -95,6 +98,11 @@ getBuffered :: (MonadIO m) => SourceBuffer -> m (Maybe TimeRanges) getBuffered self = liftIO (nullableToMaybe <$> (js_getBuffered (self))) + +-- | +getBufferedUnchecked :: (MonadIO m) => SourceBuffer -> m TimeRanges +getBufferedUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getBuffered (self))) foreign import javascript unsafe "$1[\"timestampOffset\"] = $2;" js_setTimestampOffset :: SourceBuffer -> Double -> IO () @@ -119,6 +127,13 @@ (MonadIO m) => SourceBuffer -> m (Maybe AudioTrackList) getAudioTracks self = liftIO (nullableToMaybe <$> (js_getAudioTracks (self))) + +-- | +getAudioTracksUnchecked :: + (MonadIO m) => SourceBuffer -> m AudioTrackList +getAudioTracksUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getAudioTracks (self))) foreign import javascript unsafe "$1[\"videoTracks\"]" js_getVideoTracks :: SourceBuffer -> IO (Nullable VideoTrackList) @@ -128,6 +143,13 @@ (MonadIO m) => SourceBuffer -> m (Maybe VideoTrackList) getVideoTracks self = liftIO (nullableToMaybe <$> (js_getVideoTracks (self))) + +-- | +getVideoTracksUnchecked :: + (MonadIO m) => SourceBuffer -> m VideoTrackList +getVideoTracksUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getVideoTracks (self))) foreign import javascript unsafe "$1[\"textTracks\"]" js_getTextTracks :: SourceBuffer -> IO (Nullable TextTrackList) @@ -137,6 +159,12 @@ (MonadIO m) => SourceBuffer -> m (Maybe TextTrackList) getTextTracks self = liftIO (nullableToMaybe <$> (js_getTextTracks (self))) + +-- | +getTextTracksUnchecked :: + (MonadIO m) => SourceBuffer -> m TextTrackList +getTextTracksUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getTextTracks (self))) foreign import javascript unsafe "$1[\"appendWindowStart\"] = $2;" js_setAppendWindowStart :: SourceBuffer -> Double -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SourceBufferList.hs b/src/GHCJS/DOM/JSFFI/Generated/SourceBufferList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SourceBufferList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SourceBufferList.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SourceBufferList - (js_item, item, js_getLength, getLength, SourceBufferList, - castToSourceBufferList, gTypeSourceBufferList) + (js_item, item, item_, itemUnchecked, js_getLength, getLength, + SourceBufferList, castToSourceBufferList, gTypeSourceBufferList) 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) => SourceBufferList -> Word -> m (Maybe SourceBuffer) item self index = liftIO (nullableToMaybe <$> (js_item (self) index)) + +-- | +item_ :: (MonadIO m) => SourceBufferList -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +itemUnchecked :: + (MonadIO m) => SourceBufferList -> Word -> m SourceBuffer +itemUnchecked self index + = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index)) foreign import javascript unsafe "$1[\"length\"]" js_getLength :: SourceBufferList -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/SourceInfo.hs b/src/GHCJS/DOM/JSFFI/Generated/SourceInfo.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SourceInfo.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SourceInfo.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesis.hs b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesis.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesis.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesis.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SpeechSynthesis (js_speak, speak, js_cancel, cancel, js_pause, pause, js_resume, - resume, js_getVoices, getVoices, js_getPending, getPending, - js_getSpeaking, getSpeaking, js_getPaused, getPaused, + resume, js_getVoices, getVoices, getVoices_, js_getPending, + getPending, js_getSpeaking, getSpeaking, js_getPaused, getPaused, SpeechSynthesis, castToSpeechSynthesis, gTypeSpeechSynthesis) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) @@ -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) @@ -59,6 +61,10 @@ (MonadIO m) => SpeechSynthesis -> m [Maybe SpeechSynthesisVoice] getVoices self = liftIO ((js_getVoices (self)) >>= fromJSValUnchecked) + +-- | +getVoices_ :: (MonadIO m) => SpeechSynthesis -> m () +getVoices_ self = liftIO (void (js_getVoices (self))) foreign import javascript unsafe "($1[\"pending\"] ? 1 : 0)" js_getPending :: SpeechSynthesis -> IO Bool diff --git a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisUtterance.hs b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisUtterance.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisUtterance.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisUtterance.hs @@ -3,11 +3,11 @@ (js_newSpeechSynthesisUtterance, newSpeechSynthesisUtterance, js_setText, setText, js_getText, getText, js_setLang, setLang, js_getLang, getLang, js_setVoice, setVoice, js_getVoice, getVoice, - js_setVolume, setVolume, js_getVolume, getVolume, js_setRate, - setRate, js_getRate, getRate, js_setPitch, setPitch, js_getPitch, - getPitch, start, end, error, pause, resume, mark, boundary, - SpeechSynthesisUtterance, castToSpeechSynthesisUtterance, - gTypeSpeechSynthesisUtterance) + getVoiceUnchecked, js_setVolume, setVolume, js_getVolume, + getVolume, js_setRate, setRate, js_getRate, getRate, js_setPitch, + setPitch, js_getPitch, getPitch, start, end, error, pause, resume, + mark, boundary, SpeechSynthesisUtterance, + castToSpeechSynthesisUtterance, gTypeSpeechSynthesisUtterance) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) @@ -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) @@ -90,6 +92,12 @@ (MonadIO m) => SpeechSynthesisUtterance -> m (Maybe SpeechSynthesisVoice) getVoice self = liftIO (nullableToMaybe <$> (js_getVoice (self))) + +-- | +getVoiceUnchecked :: + (MonadIO m) => SpeechSynthesisUtterance -> m SpeechSynthesisVoice +getVoiceUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getVoice (self))) foreign import javascript unsafe "$1[\"volume\"] = $2;" js_setVolume :: SpeechSynthesisUtterance -> Float -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisVoice.hs b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisVoice.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisVoice.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SpeechSynthesisVoice.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Storage.hs b/src/GHCJS/DOM/JSFFI/Generated/Storage.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Storage.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Storage.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Storage - (js_key, key, js_getItem, getItem, js_setItem, setItem, - js_removeItem, removeItem, js_clear, clear, js_getLength, - getLength, Storage, castToStorage, gTypeStorage) + (js_key, key, key_, keyUnchecked, js_getItem, getItem, getItem_, + getItemUnchecked, js_setItem, setItem, js_removeItem, removeItem, + js_clear, clear, js_getLength, getLength, Storage, castToStorage, + gTypeStorage) 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 @@ Storage -> Word -> m (Maybe result) key self index = liftIO (fromMaybeJSString <$> (js_key (self) index)) + +-- | +key_ :: (MonadIO m) => Storage -> Word -> m () +key_ self index = liftIO (void (js_key (self) index)) + +-- | +keyUnchecked :: + (MonadIO m, FromJSString result) => Storage -> Word -> m result +keyUnchecked self index + = liftIO (fromJust . fromMaybeJSString <$> (js_key (self) index)) foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem :: Storage -> JSString -> IO (Nullable JSString) @@ -39,6 +52,20 @@ getItem self key = liftIO (fromMaybeJSString <$> (js_getItem (self) (toJSString key))) + +-- | +getItem_ :: (MonadIO m, ToJSString key) => Storage -> key -> m () +getItem_ self key + = liftIO (void (js_getItem (self) (toJSString key))) + +-- | +getItemUnchecked :: + (MonadIO m, ToJSString key, FromJSString result) => + Storage -> key -> m result +getItemUnchecked self key + = liftIO + (fromJust . fromMaybeJSString <$> + (js_getItem (self) (toJSString key))) foreign import javascript unsafe "$1[\"setItem\"]($2, $3)" js_setItem :: Storage -> JSString -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageErrorCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageErrorCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StorageErrorCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StorageErrorCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StorageEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StorageEvent.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.StorageEvent (js_initStorageEvent, initStorageEvent, js_getKey, getKey, - js_getOldValue, getOldValue, js_getNewValue, getNewValue, - js_getUrl, getUrl, js_getStorageArea, getStorageArea, StorageEvent, - castToStorageEvent, gTypeStorageEvent) + js_getOldValue, getOldValue, getOldValueUnchecked, js_getNewValue, + getNewValue, getNewValueUnchecked, js_getUrl, getUrl, + js_getStorageArea, getStorageArea, getStorageAreaUnchecked, + StorageEvent, castToStorageEvent, gTypeStorageEvent) 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) @@ -71,6 +74,12 @@ StorageEvent -> m (Maybe result) getOldValue self = liftIO (fromMaybeJSString <$> (js_getOldValue (self))) + +-- | +getOldValueUnchecked :: + (MonadIO m, FromJSString result) => StorageEvent -> m result +getOldValueUnchecked self + = liftIO (fromJust . fromMaybeJSString <$> (js_getOldValue (self))) foreign import javascript unsafe "$1[\"newValue\"]" js_getNewValue :: StorageEvent -> IO (Nullable JSString) @@ -81,6 +90,12 @@ StorageEvent -> m (Maybe result) getNewValue self = liftIO (fromMaybeJSString <$> (js_getNewValue (self))) + +-- | +getNewValueUnchecked :: + (MonadIO m, FromJSString result) => StorageEvent -> m result +getNewValueUnchecked self + = liftIO (fromJust . fromMaybeJSString <$> (js_getNewValue (self))) foreign import javascript unsafe "$1[\"url\"]" js_getUrl :: StorageEvent -> IO JSString @@ -97,3 +112,9 @@ getStorageArea :: (MonadIO m) => StorageEvent -> m (Maybe Storage) getStorageArea self = liftIO (nullableToMaybe <$> (js_getStorageArea (self))) + +-- | +getStorageAreaUnchecked :: (MonadIO m) => StorageEvent -> m Storage +getStorageAreaUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getStorageArea (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageInfo.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageInfo.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StorageInfo.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StorageInfo.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageQuota.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageQuota.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StorageQuota.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StorageQuota.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageQuotaCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageQuotaCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StorageQuotaCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StorageQuotaCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StorageUsageCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/StorageUsageCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StorageUsageCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StorageUsageCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StringCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/StringCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StringCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StringCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StyleMedia.hs b/src/GHCJS/DOM/JSFFI/Generated/StyleMedia.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StyleMedia.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StyleMedia.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.StyleMedia - (js_matchMedium, matchMedium, js_getType, getType, StyleMedia, - castToStyleMedia, gTypeStyleMedia) + (js_matchMedium, matchMedium, matchMedium_, js_getType, getType, + StyleMedia, castToStyleMedia, gTypeStyleMedia) 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) @@ -28,6 +30,13 @@ StyleMedia -> mediaquery -> m Bool matchMedium self mediaquery = liftIO (js_matchMedium (self) (toJSString mediaquery)) + +-- | +matchMedium_ :: + (MonadIO m, ToJSString mediaquery) => + StyleMedia -> mediaquery -> m () +matchMedium_ self mediaquery + = liftIO (void (js_matchMedium (self) (toJSString mediaquery))) foreign import javascript unsafe "$1[\"type\"]" js_getType :: StyleMedia -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/StyleSheet.hs b/src/GHCJS/DOM/JSFFI/Generated/StyleSheet.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StyleSheet.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StyleSheet.hs @@ -1,10 +1,13 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.StyleSheet - (js_getType, getType, js_setDisabled, setDisabled, js_getDisabled, - getDisabled, js_getOwnerNode, getOwnerNode, js_getParentStyleSheet, - getParentStyleSheet, js_getHref, getHref, js_getTitle, getTitle, - js_getMedia, getMedia, StyleSheet, castToStyleSheet, - gTypeStyleSheet, IsStyleSheet, toStyleSheet) + (js_getType, getType, getTypeUnchecked, js_setDisabled, + setDisabled, js_getDisabled, getDisabled, js_getOwnerNode, + getOwnerNode, getOwnerNodeUnchecked, js_getParentStyleSheet, + getParentStyleSheet, getParentStyleSheetUnchecked, js_getHref, + getHref, getHrefUnchecked, js_getTitle, getTitle, + getTitleUnchecked, js_getMedia, getMedia, getMediaUnchecked, + StyleSheet, castToStyleSheet, gTypeStyleSheet, IsStyleSheet, + toStyleSheet) 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) @@ -30,6 +35,14 @@ self -> m (Maybe result) getType self = liftIO (fromMaybeJSString <$> (js_getType (toStyleSheet self))) + +-- | +getTypeUnchecked :: + (MonadIO m, IsStyleSheet self, FromJSString result) => + self -> m result +getTypeUnchecked self + = liftIO + (fromJust . fromMaybeJSString <$> (js_getType (toStyleSheet self))) foreign import javascript unsafe "$1[\"disabled\"] = $2;" js_setDisabled :: StyleSheet -> Bool -> IO () @@ -56,6 +69,14 @@ getOwnerNode self = liftIO (nullableToMaybe <$> (js_getOwnerNode (toStyleSheet self))) + +-- | +getOwnerNodeUnchecked :: + (MonadIO m, IsStyleSheet self) => self -> m Node +getOwnerNodeUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getOwnerNode (toStyleSheet self))) foreign import javascript unsafe "$1[\"parentStyleSheet\"]" js_getParentStyleSheet :: StyleSheet -> IO (Nullable StyleSheet) @@ -66,6 +87,14 @@ getParentStyleSheet self = liftIO (nullableToMaybe <$> (js_getParentStyleSheet (toStyleSheet self))) + +-- | +getParentStyleSheetUnchecked :: + (MonadIO m, IsStyleSheet self) => self -> m StyleSheet +getParentStyleSheetUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getParentStyleSheet (toStyleSheet self))) foreign import javascript unsafe "$1[\"href\"]" js_getHref :: StyleSheet -> IO (Nullable JSString) @@ -76,6 +105,14 @@ self -> m (Maybe result) getHref self = liftIO (fromMaybeJSString <$> (js_getHref (toStyleSheet self))) + +-- | +getHrefUnchecked :: + (MonadIO m, IsStyleSheet self, FromJSString result) => + self -> m result +getHrefUnchecked self + = liftIO + (fromJust . fromMaybeJSString <$> (js_getHref (toStyleSheet self))) foreign import javascript unsafe "$1[\"title\"]" js_getTitle :: StyleSheet -> IO (Nullable JSString) @@ -86,6 +123,15 @@ self -> m (Maybe result) getTitle self = liftIO (fromMaybeJSString <$> (js_getTitle (toStyleSheet self))) + +-- | +getTitleUnchecked :: + (MonadIO m, IsStyleSheet self, FromJSString result) => + self -> m result +getTitleUnchecked self + = liftIO + (fromJust . fromMaybeJSString <$> + (js_getTitle (toStyleSheet self))) foreign import javascript unsafe "$1[\"media\"]" js_getMedia :: StyleSheet -> IO (Nullable MediaList) @@ -95,3 +141,10 @@ (MonadIO m, IsStyleSheet self) => self -> m (Maybe MediaList) getMedia self = liftIO (nullableToMaybe <$> (js_getMedia (toStyleSheet self))) + +-- | +getMediaUnchecked :: + (MonadIO m, IsStyleSheet self) => self -> m MediaList +getMediaUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getMedia (toStyleSheet self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/StyleSheetList.hs b/src/GHCJS/DOM/JSFFI/Generated/StyleSheetList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/StyleSheetList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/StyleSheetList.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.StyleSheetList - (js_item, item, js__get, _get, js_getLength, getLength, - StyleSheetList, castToStyleSheetList, gTypeStyleSheetList) + (js_item, item, item_, itemUnchecked, js__get, _get, _get_, + _getUnchecked, js_getLength, getLength, StyleSheetList, + castToStyleSheetList, gTypeStyleSheetList) 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,16 @@ (MonadIO m) => StyleSheetList -> Word -> m (Maybe StyleSheet) item self index = liftIO (nullableToMaybe <$> (js_item (self) index)) + +-- | +item_ :: (MonadIO m) => StyleSheetList -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +itemUnchecked :: + (MonadIO m) => StyleSheetList -> Word -> m StyleSheet +itemUnchecked self index + = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index)) foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: StyleSheetList -> JSString -> IO (Nullable CSSStyleSheet) @@ -36,6 +49,19 @@ StyleSheetList -> name -> m (Maybe CSSStyleSheet) _get self name = liftIO (nullableToMaybe <$> (js__get (self) (toJSString name))) + +-- | +_get_ :: + (MonadIO m, ToJSString name) => StyleSheetList -> name -> m () +_get_ self name = liftIO (void (js__get (self) (toJSString name))) + +-- | +_getUnchecked :: + (MonadIO m, ToJSString name) => + StyleSheetList -> name -> m CSSStyleSheet +_getUnchecked self name + = liftIO + (fromJust . nullableToMaybe <$> (js__get (self) (toJSString name))) foreign import javascript unsafe "$1[\"length\"]" js_getLength :: StyleSheetList -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/SubtleCrypto.hs b/src/GHCJS/DOM/JSFFI/Generated/SubtleCrypto.hs --- a/src/GHCJS/DOM/JSFFI/Generated/SubtleCrypto.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/SubtleCrypto.hs @@ -1,9 +1,14 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.SubtleCrypto - (js_encrypt, encrypt, js_decrypt, decrypt, js_sign, sign, - js_verify, verify, js_digest, digest, js_generateKey, generateKey, - js_importKey, importKey, js_exportKey, exportKey, js_wrapKey, - wrapKey, js_unwrapKey, unwrapKey, SubtleCrypto, castToSubtleCrypto, + (js_encrypt, encrypt, encrypt_, encryptUnchecked, js_decrypt, + decrypt, decrypt_, decryptUnchecked, js_sign, sign, sign_, + signUnchecked, js_verify, verify, verify_, verifyUnchecked, + js_digest, digest, digest_, digestUnchecked, js_generateKey, + generateKey, generateKey_, generateKeyUnchecked, js_importKey, + importKey, importKey_, importKeyUnchecked, js_exportKey, exportKey, + exportKey_, exportKeyUnchecked, js_wrapKey, wrapKey, wrapKey_, + wrapKeyUnchecked, js_unwrapKey, unwrapKey, unwrapKey_, + unwrapKeyUnchecked, SubtleCrypto, castToSubtleCrypto, gTypeSubtleCrypto) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) @@ -13,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) @@ -38,6 +45,32 @@ \ data'' -> js_encrypt (self) (toJSString algorithm) (maybeToNullable key) data'')) + +-- | +encrypt_ :: + (MonadIO m, ToJSString algorithm, IsCryptoOperationData data') => + SubtleCrypto -> + algorithm -> Maybe CryptoKey -> [Maybe data'] -> m () +encrypt_ self algorithm key data' + = liftIO + (void + (toJSVal data' >>= + \ data'' -> + js_encrypt (self) (toJSString algorithm) (maybeToNullable key) + data'')) + +-- | +encryptUnchecked :: + (MonadIO m, ToJSString algorithm, IsCryptoOperationData data') => + SubtleCrypto -> + algorithm -> Maybe CryptoKey -> [Maybe data'] -> m Promise +encryptUnchecked self algorithm key data' + = liftIO + (fromJust . nullableToMaybe <$> + (toJSVal data' >>= + \ data'' -> + js_encrypt (self) (toJSString algorithm) (maybeToNullable key) + data'')) foreign import javascript unsafe "$1[\"decrypt\"]($2, $3, $4)" js_decrypt :: @@ -56,6 +89,32 @@ \ data'' -> js_decrypt (self) (toJSString algorithm) (maybeToNullable key) data'')) + +-- | +decrypt_ :: + (MonadIO m, ToJSString algorithm, IsCryptoOperationData data') => + SubtleCrypto -> + algorithm -> Maybe CryptoKey -> [Maybe data'] -> m () +decrypt_ self algorithm key data' + = liftIO + (void + (toJSVal data' >>= + \ data'' -> + js_decrypt (self) (toJSString algorithm) (maybeToNullable key) + data'')) + +-- | +decryptUnchecked :: + (MonadIO m, ToJSString algorithm, IsCryptoOperationData data') => + SubtleCrypto -> + algorithm -> Maybe CryptoKey -> [Maybe data'] -> m Promise +decryptUnchecked self algorithm key data' + = liftIO + (fromJust . nullableToMaybe <$> + (toJSVal data' >>= + \ data'' -> + js_decrypt (self) (toJSString algorithm) (maybeToNullable key) + data'')) foreign import javascript unsafe "$1[\"sign\"]($2, $3, $4)" js_sign :: @@ -74,6 +133,32 @@ \ data'' -> js_sign (self) (toJSString algorithm) (maybeToNullable key) data'')) + +-- | +sign_ :: + (MonadIO m, ToJSString algorithm, IsCryptoOperationData data') => + SubtleCrypto -> + algorithm -> Maybe CryptoKey -> [Maybe data'] -> m () +sign_ self algorithm key data' + = liftIO + (void + (toJSVal data' >>= + \ data'' -> + js_sign (self) (toJSString algorithm) (maybeToNullable key) + data'')) + +-- | +signUnchecked :: + (MonadIO m, ToJSString algorithm, IsCryptoOperationData data') => + SubtleCrypto -> + algorithm -> Maybe CryptoKey -> [Maybe data'] -> m Promise +signUnchecked self algorithm key data' + = liftIO + (fromJust . nullableToMaybe <$> + (toJSVal data' >>= + \ data'' -> + js_sign (self) (toJSString algorithm) (maybeToNullable key) + data'')) foreign import javascript unsafe "$1[\"verify\"]($2, $3, $4, $5)" js_verify :: @@ -98,6 +183,38 @@ js_verify (self) (toJSString algorithm) (maybeToNullable key) (maybeToNullable (fmap toCryptoOperationData signature)) data'')) + +-- | +verify_ :: + (MonadIO m, ToJSString algorithm, IsCryptoOperationData signature, + IsCryptoOperationData data') => + SubtleCrypto -> + algorithm -> + Maybe CryptoKey -> Maybe signature -> [Maybe data'] -> m () +verify_ self algorithm key signature data' + = liftIO + (void + (toJSVal data' >>= + \ data'' -> + js_verify (self) (toJSString algorithm) (maybeToNullable key) + (maybeToNullable (fmap toCryptoOperationData signature)) + data'')) + +-- | +verifyUnchecked :: + (MonadIO m, ToJSString algorithm, IsCryptoOperationData signature, + IsCryptoOperationData data') => + SubtleCrypto -> + algorithm -> + Maybe CryptoKey -> Maybe signature -> [Maybe data'] -> m Promise +verifyUnchecked self algorithm key signature data' + = liftIO + (fromJust . nullableToMaybe <$> + (toJSVal data' >>= + \ data'' -> + js_verify (self) (toJSString algorithm) (maybeToNullable key) + (maybeToNullable (fmap toCryptoOperationData signature)) + data'')) foreign import javascript unsafe "$1[\"digest\"]($2, $3)" js_digest :: SubtleCrypto -> JSString -> JSVal -> IO (Nullable Promise) @@ -111,6 +228,26 @@ (nullableToMaybe <$> (toJSVal data' >>= \ data'' -> js_digest (self) (toJSString algorithm) data'')) + +-- | +digest_ :: + (MonadIO m, ToJSString algorithm, IsCryptoOperationData data') => + SubtleCrypto -> algorithm -> [Maybe data'] -> m () +digest_ self algorithm data' + = liftIO + (void + (toJSVal data' >>= + \ data'' -> js_digest (self) (toJSString algorithm) data'')) + +-- | +digestUnchecked :: + (MonadIO m, ToJSString algorithm, IsCryptoOperationData data') => + SubtleCrypto -> algorithm -> [Maybe data'] -> m Promise +digestUnchecked self algorithm data' + = liftIO + (fromJust . nullableToMaybe <$> + (toJSVal data' >>= + \ data'' -> js_digest (self) (toJSString algorithm) data'')) foreign import javascript unsafe "$1[\"generateKey\"]($2, $3, $4)" js_generateKey :: @@ -128,6 +265,30 @@ \ keyUsages' -> js_generateKey (self) (toJSString algorithm) extractable keyUsages')) + +-- | +generateKey_ :: + (MonadIO m, ToJSString algorithm) => + SubtleCrypto -> algorithm -> Bool -> [KeyUsage] -> m () +generateKey_ self algorithm extractable keyUsages + = liftIO + (void + (toJSVal keyUsages >>= + \ keyUsages' -> + js_generateKey (self) (toJSString algorithm) extractable + keyUsages')) + +-- | +generateKeyUnchecked :: + (MonadIO m, ToJSString algorithm) => + SubtleCrypto -> algorithm -> Bool -> [KeyUsage] -> m Promise +generateKeyUnchecked self algorithm extractable keyUsages + = liftIO + (fromJust . nullableToMaybe <$> + (toJSVal keyUsages >>= + \ keyUsages' -> + js_generateKey (self) (toJSString algorithm) extractable + keyUsages')) foreign import javascript unsafe "$1[\"importKey\"]($2, $3, $4, $5,\n$6)" js_importKey :: @@ -154,6 +315,42 @@ (toJSString algorithm) extractable keyUsages')) + +-- | +importKey_ :: + (MonadIO m, ToJSString format, IsCryptoOperationData keyData, + ToJSString algorithm) => + SubtleCrypto -> + format -> Maybe keyData -> algorithm -> Bool -> [KeyUsage] -> m () +importKey_ self format keyData algorithm extractable keyUsages + = liftIO + (void + (toJSVal keyUsages >>= + \ keyUsages' -> + js_importKey (self) (toJSString format) + (maybeToNullable (fmap toCryptoOperationData keyData)) + (toJSString algorithm) + extractable + keyUsages')) + +-- | +importKeyUnchecked :: + (MonadIO m, ToJSString format, IsCryptoOperationData keyData, + ToJSString algorithm) => + SubtleCrypto -> + format -> + Maybe keyData -> algorithm -> Bool -> [KeyUsage] -> m Promise +importKeyUnchecked self format keyData algorithm extractable + keyUsages + = liftIO + (fromJust . nullableToMaybe <$> + (toJSVal keyUsages >>= + \ keyUsages' -> + js_importKey (self) (toJSString format) + (maybeToNullable (fmap toCryptoOperationData keyData)) + (toJSString algorithm) + extractable + keyUsages')) foreign import javascript unsafe "$1[\"exportKey\"]($2, $3)" js_exportKey :: @@ -168,6 +365,24 @@ = liftIO (nullableToMaybe <$> (js_exportKey (self) (toJSString format) (maybeToNullable key))) + +-- | +exportKey_ :: + (MonadIO m, ToJSString format) => + SubtleCrypto -> format -> Maybe CryptoKey -> m () +exportKey_ self format key + = liftIO + (void + (js_exportKey (self) (toJSString format) (maybeToNullable key))) + +-- | +exportKeyUnchecked :: + (MonadIO m, ToJSString format) => + SubtleCrypto -> format -> Maybe CryptoKey -> m Promise +exportKeyUnchecked self format key + = liftIO + (fromJust . nullableToMaybe <$> + (js_exportKey (self) (toJSString format) (maybeToNullable key))) foreign import javascript unsafe "$1[\"wrapKey\"]($2, $3, $4, $5)" js_wrapKey :: @@ -189,6 +404,32 @@ (js_wrapKey (self) (toJSString format) (maybeToNullable key) (maybeToNullable wrappingKey) (toJSString wrapAlgorithm))) + +-- | +wrapKey_ :: + (MonadIO m, ToJSString format, ToJSString wrapAlgorithm) => + SubtleCrypto -> + format -> + Maybe CryptoKey -> Maybe CryptoKey -> wrapAlgorithm -> m () +wrapKey_ self format key wrappingKey wrapAlgorithm + = liftIO + (void + (js_wrapKey (self) (toJSString format) (maybeToNullable key) + (maybeToNullable wrappingKey) + (toJSString wrapAlgorithm))) + +-- | +wrapKeyUnchecked :: + (MonadIO m, ToJSString format, ToJSString wrapAlgorithm) => + SubtleCrypto -> + format -> + Maybe CryptoKey -> Maybe CryptoKey -> wrapAlgorithm -> m Promise +wrapKeyUnchecked self format key wrappingKey wrapAlgorithm + = liftIO + (fromJust . nullableToMaybe <$> + (js_wrapKey (self) (toJSString format) (maybeToNullable key) + (maybeToNullable wrappingKey) + (toJSString wrapAlgorithm))) foreign import javascript unsafe "$1[\"unwrapKey\"]($2, $3, $4, $5,\n$6, $7, $8)" js_unwrapKey :: @@ -212,6 +453,54 @@ unwrappedKeyAlgorithm extractable keyUsages = liftIO (nullableToMaybe <$> + (toJSVal keyUsages >>= + \ keyUsages' -> + js_unwrapKey (self) (toJSString format) + (maybeToNullable (fmap toCryptoOperationData wrappedKey)) + (maybeToNullable unwrappingKey) + (toJSString unwrapAlgorithm) + (toJSString unwrappedKeyAlgorithm) + extractable + keyUsages')) + +-- | +unwrapKey_ :: + (MonadIO m, ToJSString format, IsCryptoOperationData wrappedKey, + ToJSString unwrapAlgorithm, ToJSString unwrappedKeyAlgorithm) => + SubtleCrypto -> + format -> + Maybe wrappedKey -> + Maybe CryptoKey -> + unwrapAlgorithm -> + unwrappedKeyAlgorithm -> Bool -> [KeyUsage] -> m () +unwrapKey_ self format wrappedKey unwrappingKey unwrapAlgorithm + unwrappedKeyAlgorithm extractable keyUsages + = liftIO + (void + (toJSVal keyUsages >>= + \ keyUsages' -> + js_unwrapKey (self) (toJSString format) + (maybeToNullable (fmap toCryptoOperationData wrappedKey)) + (maybeToNullable unwrappingKey) + (toJSString unwrapAlgorithm) + (toJSString unwrappedKeyAlgorithm) + extractable + keyUsages')) + +-- | +unwrapKeyUnchecked :: + (MonadIO m, ToJSString format, IsCryptoOperationData wrappedKey, + ToJSString unwrapAlgorithm, ToJSString unwrappedKeyAlgorithm) => + SubtleCrypto -> + format -> + Maybe wrappedKey -> + Maybe CryptoKey -> + unwrapAlgorithm -> + unwrappedKeyAlgorithm -> Bool -> [KeyUsage] -> m Promise +unwrapKeyUnchecked self format wrappedKey unwrappingKey + unwrapAlgorithm unwrappedKeyAlgorithm extractable keyUsages + = liftIO + (fromJust . nullableToMaybe <$> (toJSVal keyUsages >>= \ keyUsages' -> js_unwrapKey (self) (toJSString format) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Text.hs b/src/GHCJS/DOM/JSFFI/Generated/Text.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Text.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Text.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Text - (js_newText, newText, js_splitText, splitText, js_replaceWholeText, - replaceWholeText, js_getWholeText, getWholeText, Text, castToText, - gTypeText, IsText, toText) + (js_newText, newText, js_splitText, splitText, splitText_, + splitTextUnchecked, js_replaceWholeText, replaceWholeText, + replaceWholeText_, replaceWholeTextUnchecked, js_getWholeText, + getWholeText, Text, castToText, gTypeText, IsText, toText) 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,19 @@ (MonadIO m, IsText self) => self -> Word -> m (Maybe Text) splitText self offset = liftIO (nullableToMaybe <$> (js_splitText (toText self) offset)) + +-- | +splitText_ :: (MonadIO m, IsText self) => self -> Word -> m () +splitText_ self offset + = liftIO (void (js_splitText (toText self) offset)) + +-- | +splitTextUnchecked :: + (MonadIO m, IsText self) => self -> Word -> m Text +splitTextUnchecked self offset + = liftIO + (fromJust . nullableToMaybe <$> + (js_splitText (toText self) offset)) foreign import javascript unsafe "$1[\"replaceWholeText\"]($2)" js_replaceWholeText :: Text -> JSString -> IO (Nullable Text) @@ -45,6 +61,23 @@ replaceWholeText self content = liftIO (nullableToMaybe <$> + (js_replaceWholeText (toText self) (toJSString content))) + +-- | +replaceWholeText_ :: + (MonadIO m, IsText self, ToJSString content) => + self -> content -> m () +replaceWholeText_ self content + = liftIO + (void (js_replaceWholeText (toText self) (toJSString content))) + +-- | +replaceWholeTextUnchecked :: + (MonadIO m, IsText self, ToJSString content) => + self -> content -> m Text +replaceWholeTextUnchecked self content + = liftIO + (fromJust . nullableToMaybe <$> (js_replaceWholeText (toText self) (toJSString content))) foreign import javascript unsafe "$1[\"wholeText\"]" diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/TextEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TextEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TextEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextMetrics.hs b/src/GHCJS/DOM/JSFFI/Generated/TextMetrics.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TextMetrics.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TextMetrics.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/TextTrack.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TextTrack.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TextTrack.hs @@ -6,10 +6,11 @@ js_setLanguage, setLanguage, js_getLanguage, getLanguage, js_getInBandMetadataTrackDispatchType, getInBandMetadataTrackDispatchType, js_setMode, setMode, - js_getMode, getMode, js_getCues, getCues, js_getActiveCues, - getActiveCues, cueChange, js_getRegions, getRegions, - js_getSourceBuffer, getSourceBuffer, TextTrack, castToTextTrack, - gTypeTextTrack) + js_getMode, getMode, js_getCues, getCues, getCuesUnchecked, + js_getActiveCues, getActiveCues, getActiveCuesUnchecked, cueChange, + js_getRegions, getRegions, getRegionsUnchecked, js_getSourceBuffer, + getSourceBuffer, getSourceBufferUnchecked, TextTrack, + castToTextTrack, gTypeTextTrack) 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) @@ -140,6 +143,11 @@ -- | getCues :: (MonadIO m) => TextTrack -> m (Maybe TextTrackCueList) getCues self = liftIO (nullableToMaybe <$> (js_getCues (self))) + +-- | +getCuesUnchecked :: (MonadIO m) => TextTrack -> m TextTrackCueList +getCuesUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getCues (self))) foreign import javascript unsafe "$1[\"activeCues\"]" js_getActiveCues :: TextTrack -> IO (Nullable TextTrackCueList) @@ -150,6 +158,12 @@ getActiveCues self = liftIO (nullableToMaybe <$> (js_getActiveCues (self))) +-- | +getActiveCuesUnchecked :: + (MonadIO m) => TextTrack -> m TextTrackCueList +getActiveCuesUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getActiveCues (self))) + -- | cueChange :: EventName TextTrack Event cueChange = unsafeEventName (toJSString "cuechange") @@ -161,6 +175,11 @@ getRegions :: (MonadIO m) => TextTrack -> m (Maybe VTTRegionList) getRegions self = liftIO (nullableToMaybe <$> (js_getRegions (self))) + +-- | +getRegionsUnchecked :: (MonadIO m) => TextTrack -> m VTTRegionList +getRegionsUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getRegions (self))) foreign import javascript unsafe "$1[\"sourceBuffer\"]" js_getSourceBuffer :: TextTrack -> IO (Nullable SourceBuffer) @@ -170,3 +189,10 @@ (MonadIO m) => TextTrack -> m (Maybe SourceBuffer) getSourceBuffer self = liftIO (nullableToMaybe <$> (js_getSourceBuffer (self))) + +-- | +getSourceBufferUnchecked :: + (MonadIO m) => TextTrack -> m SourceBuffer +getSourceBufferUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getSourceBuffer (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextTrackCue.hs b/src/GHCJS/DOM/JSFFI/Generated/TextTrackCue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TextTrackCue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TextTrackCue.hs @@ -1,12 +1,12 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.TextTrackCue (js_newTextTrackCue, newTextTrackCue, js_getTrack, getTrack, - js_setId, setId, js_getId, getId, js_setStartTime, setStartTime, - js_getStartTime, getStartTime, js_setEndTime, setEndTime, - js_getEndTime, getEndTime, js_setPauseOnExit, setPauseOnExit, - js_getPauseOnExit, getPauseOnExit, enter, exit, TextTrackCue, - castToTextTrackCue, gTypeTextTrackCue, IsTextTrackCue, - toTextTrackCue) + getTrackUnchecked, js_setId, setId, js_getId, getId, + js_setStartTime, setStartTime, js_getStartTime, getStartTime, + js_setEndTime, setEndTime, js_getEndTime, getEndTime, + js_setPauseOnExit, setPauseOnExit, js_getPauseOnExit, + getPauseOnExit, enter, exit, TextTrackCue, castToTextTrackCue, + gTypeTextTrackCue, IsTextTrackCue, toTextTrackCue) 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) @@ -42,6 +44,14 @@ (MonadIO m, IsTextTrackCue self) => self -> m (Maybe TextTrack) getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (toTextTrackCue self))) + +-- | +getTrackUnchecked :: + (MonadIO m, IsTextTrackCue self) => self -> m TextTrack +getTrackUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getTrack (toTextTrackCue self))) foreign import javascript unsafe "$1[\"id\"] = $2;" js_setId :: TextTrackCue -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextTrackCueList.hs b/src/GHCJS/DOM/JSFFI/Generated/TextTrackCueList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TextTrackCueList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TextTrackCueList.hs @@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.TextTrackCueList - (js_item, item, js_getCueById, getCueById, js_getLength, getLength, + (js_item, item, item_, itemUnchecked, js_getCueById, getCueById, + getCueById_, getCueByIdUnchecked, js_getLength, getLength, TextTrackCueList, castToTextTrackCueList, gTypeTextTrackCueList) 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) @@ -26,6 +29,16 @@ (MonadIO m) => TextTrackCueList -> Word -> m (Maybe TextTrackCue) item self index = liftIO (nullableToMaybe <$> (js_item (self) index)) + +-- | +item_ :: (MonadIO m) => TextTrackCueList -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +itemUnchecked :: + (MonadIO m) => TextTrackCueList -> Word -> m TextTrackCue +itemUnchecked self index + = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index)) foreign import javascript unsafe "$1[\"getCueById\"]($2)" js_getCueById :: @@ -38,6 +51,21 @@ getCueById self id = liftIO (nullableToMaybe <$> (js_getCueById (self) (toJSString id))) + +-- | +getCueById_ :: + (MonadIO m, ToJSString id) => TextTrackCueList -> id -> m () +getCueById_ self id + = liftIO (void (js_getCueById (self) (toJSString id))) + +-- | +getCueByIdUnchecked :: + (MonadIO m, ToJSString id) => + TextTrackCueList -> id -> m TextTrackCue +getCueByIdUnchecked self id + = liftIO + (fromJust . nullableToMaybe <$> + (js_getCueById (self) (toJSString id))) foreign import javascript unsafe "$1[\"length\"]" js_getLength :: TextTrackCueList -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/TextTrackList.hs b/src/GHCJS/DOM/JSFFI/Generated/TextTrackList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TextTrackList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TextTrackList.hs @@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.TextTrackList - (js_item, item, js_getTrackById, getTrackById, js_getLength, + (js_item, item, item_, itemUnchecked, js_getTrackById, + getTrackById, getTrackById_, getTrackByIdUnchecked, js_getLength, getLength, addTrack, change, removeTrack, TextTrackList, castToTextTrackList, gTypeTextTrackList) 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,16 @@ item :: (MonadIO m) => TextTrackList -> Word -> m (Maybe TextTrack) item self index = liftIO (nullableToMaybe <$> (js_item (self) index)) + +-- | +item_ :: (MonadIO m) => TextTrackList -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +itemUnchecked :: + (MonadIO m) => TextTrackList -> Word -> m TextTrack +itemUnchecked self index + = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index)) foreign import javascript unsafe "$1[\"getTrackById\"]($2)" js_getTrackById :: @@ -38,6 +51,20 @@ getTrackById self id = liftIO (nullableToMaybe <$> (js_getTrackById (self) (toJSString id))) + +-- | +getTrackById_ :: + (MonadIO m, ToJSString id) => TextTrackList -> id -> m () +getTrackById_ self id + = liftIO (void (js_getTrackById (self) (toJSString id))) + +-- | +getTrackByIdUnchecked :: + (MonadIO m, ToJSString id) => TextTrackList -> id -> m TextTrack +getTrackByIdUnchecked self id + = liftIO + (fromJust . nullableToMaybe <$> + (js_getTrackById (self) (toJSString id))) foreign import javascript unsafe "$1[\"length\"]" js_getLength :: TextTrackList -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/TimeRanges.hs b/src/GHCJS/DOM/JSFFI/Generated/TimeRanges.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TimeRanges.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TimeRanges.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.TimeRanges - (js_start, start, js_end, end, js_getLength, getLength, TimeRanges, - castToTimeRanges, gTypeTimeRanges) + (js_start, start, start_, js_end, end, end_, js_getLength, + getLength, TimeRanges, castToTimeRanges, gTypeTimeRanges) 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,10 @@ -- | start :: (MonadIO m) => TimeRanges -> Word -> m Double start self index = liftIO (js_start (self) index) + +-- | +start_ :: (MonadIO m) => TimeRanges -> Word -> m () +start_ self index = liftIO (void (js_start (self) index)) foreign import javascript unsafe "$1[\"end\"]($2)" js_end :: TimeRanges -> Word -> IO Double @@ -31,6 +37,10 @@ -- | end :: (MonadIO m) => TimeRanges -> Word -> m Double end self index = liftIO (js_end (self) index) + +-- | +end_ :: (MonadIO m) => TimeRanges -> Word -> m () +end_ self index = liftIO (void (js_end (self) index)) foreign import javascript unsafe "$1[\"length\"]" js_getLength :: TimeRanges -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/Touch.hs b/src/GHCJS/DOM/JSFFI/Generated/Touch.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Touch.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Touch.hs @@ -3,10 +3,11 @@ (js_getClientX, getClientX, js_getClientY, getClientY, js_getScreenX, getScreenX, js_getScreenY, getScreenY, js_getPageX, getPageX, js_getPageY, getPageY, js_getTarget, getTarget, - js_getIdentifier, getIdentifier, js_getWebkitRadiusX, - getWebkitRadiusX, js_getWebkitRadiusY, getWebkitRadiusY, - js_getWebkitRotationAngle, getWebkitRotationAngle, - js_getWebkitForce, getWebkitForce, Touch, castToTouch, gTypeTouch) + getTargetUnchecked, js_getIdentifier, getIdentifier, + js_getWebkitRadiusX, getWebkitRadiusX, js_getWebkitRadiusY, + getWebkitRadiusY, js_getWebkitRotationAngle, + getWebkitRotationAngle, js_getWebkitForce, getWebkitForce, Touch, + castToTouch, gTypeTouch) 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) @@ -71,6 +74,11 @@ -- | getTarget :: (MonadIO m) => Touch -> m (Maybe EventTarget) getTarget self = liftIO (nullableToMaybe <$> (js_getTarget (self))) + +-- | +getTargetUnchecked :: (MonadIO m) => Touch -> m EventTarget +getTargetUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getTarget (self))) foreign import javascript unsafe "$1[\"identifier\"]" js_getIdentifier :: Touch -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/TouchEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/TouchEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TouchEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TouchEvent.hs @@ -1,10 +1,12 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.TouchEvent (js_initTouchEvent, initTouchEvent, js_getTouches, getTouches, - js_getTargetTouches, getTargetTouches, js_getChangedTouches, - getChangedTouches, js_getCtrlKey, getCtrlKey, js_getShiftKey, - getShiftKey, js_getAltKey, getAltKey, js_getMetaKey, getMetaKey, - TouchEvent, castToTouchEvent, gTypeTouchEvent) + getTouchesUnchecked, js_getTargetTouches, getTargetTouches, + getTargetTouchesUnchecked, js_getChangedTouches, getChangedTouches, + getChangedTouchesUnchecked, js_getCtrlKey, getCtrlKey, + js_getShiftKey, getShiftKey, js_getAltKey, getAltKey, + js_getMetaKey, getMetaKey, TouchEvent, castToTouchEvent, + gTypeTouchEvent) 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) @@ -66,6 +70,11 @@ getTouches :: (MonadIO m) => TouchEvent -> m (Maybe TouchList) getTouches self = liftIO (nullableToMaybe <$> (js_getTouches (self))) + +-- | +getTouchesUnchecked :: (MonadIO m) => TouchEvent -> m TouchList +getTouchesUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getTouches (self))) foreign import javascript unsafe "$1[\"targetTouches\"]" js_getTargetTouches :: TouchEvent -> IO (Nullable TouchList) @@ -75,6 +84,13 @@ (MonadIO m) => TouchEvent -> m (Maybe TouchList) getTargetTouches self = liftIO (nullableToMaybe <$> (js_getTargetTouches (self))) + +-- | +getTargetTouchesUnchecked :: + (MonadIO m) => TouchEvent -> m TouchList +getTargetTouchesUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getTargetTouches (self))) foreign import javascript unsafe "$1[\"changedTouches\"]" js_getChangedTouches :: TouchEvent -> IO (Nullable TouchList) @@ -84,6 +100,13 @@ (MonadIO m) => TouchEvent -> m (Maybe TouchList) getChangedTouches self = liftIO (nullableToMaybe <$> (js_getChangedTouches (self))) + +-- | +getChangedTouchesUnchecked :: + (MonadIO m) => TouchEvent -> m TouchList +getChangedTouchesUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getChangedTouches (self))) foreign import javascript unsafe "($1[\"ctrlKey\"] ? 1 : 0)" js_getCtrlKey :: TouchEvent -> IO Bool diff --git a/src/GHCJS/DOM/JSFFI/Generated/TouchList.hs b/src/GHCJS/DOM/JSFFI/Generated/TouchList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TouchList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TouchList.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.TouchList - (js_item, item, js_getLength, getLength, TouchList, - castToTouchList, gTypeTouchList) + (js_item, item, item_, itemUnchecked, js_getLength, getLength, + TouchList, castToTouchList, gTypeTouchList) 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) => TouchList -> Word -> m (Maybe Touch) item self index = liftIO (nullableToMaybe <$> (js_item (self) index)) + +-- | +item_ :: (MonadIO m) => TouchList -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +itemUnchecked :: (MonadIO m) => TouchList -> Word -> m Touch +itemUnchecked self index + = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index)) foreign import javascript unsafe "$1[\"length\"]" js_getLength :: TouchList -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/TrackEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/TrackEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TrackEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TrackEvent.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.TrackEvent - (js_getTrack, getTrack, TrackEvent, castToTrackEvent, - gTypeTrackEvent) + (js_getTrack, getTrack, getTrackUnchecked, TrackEvent, + castToTrackEvent, gTypeTrackEvent) 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,3 +26,8 @@ -- | getTrack :: (MonadIO m) => TrackEvent -> m (Maybe GObject) getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self))) + +-- | +getTrackUnchecked :: (MonadIO m) => TrackEvent -> m GObject +getTrackUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getTrack (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TransitionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/TransitionEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TransitionEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TransitionEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TreeWalker.hs b/src/GHCJS/DOM/JSFFI/Generated/TreeWalker.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TreeWalker.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TreeWalker.hs @@ -1,13 +1,18 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.TreeWalker - (js_parentNode, parentNode, js_firstChild, firstChild, - js_lastChild, lastChild, js_previousSibling, previousSibling, - js_nextSibling, nextSibling, js_previousNode, previousNode, - js_nextNode, nextNode, js_getRoot, getRoot, js_getWhatToShow, - getWhatToShow, js_getFilter, getFilter, - js_getExpandEntityReferences, getExpandEntityReferences, - js_setCurrentNode, setCurrentNode, js_getCurrentNode, - getCurrentNode, TreeWalker, castToTreeWalker, gTypeTreeWalker) + (js_parentNode, parentNode, parentNode_, parentNodeUnchecked, + js_firstChild, firstChild, firstChild_, firstChildUnchecked, + js_lastChild, lastChild, lastChild_, lastChildUnchecked, + js_previousSibling, previousSibling, previousSibling_, + previousSiblingUnchecked, js_nextSibling, nextSibling, + nextSibling_, nextSiblingUnchecked, js_previousNode, previousNode, + previousNode_, previousNodeUnchecked, js_nextNode, nextNode, + nextNode_, nextNodeUnchecked, js_getRoot, getRoot, + getRootUnchecked, js_getWhatToShow, getWhatToShow, js_getFilter, + getFilter, getFilterUnchecked, js_getExpandEntityReferences, + getExpandEntityReferences, js_setCurrentNode, setCurrentNode, + js_getCurrentNode, getCurrentNode, getCurrentNodeUnchecked, + TreeWalker, castToTreeWalker, gTypeTreeWalker) 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) @@ -31,6 +38,15 @@ parentNode :: (MonadIO m) => TreeWalker -> m (Maybe Node) parentNode self = liftIO (nullableToMaybe <$> (js_parentNode (self))) + +-- | +parentNode_ :: (MonadIO m) => TreeWalker -> m () +parentNode_ self = liftIO (void (js_parentNode (self))) + +-- | +parentNodeUnchecked :: (MonadIO m) => TreeWalker -> m Node +parentNodeUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_parentNode (self))) foreign import javascript unsafe "$1[\"firstChild\"]()" js_firstChild :: TreeWalker -> IO (Nullable Node) @@ -39,6 +55,15 @@ firstChild :: (MonadIO m) => TreeWalker -> m (Maybe Node) firstChild self = liftIO (nullableToMaybe <$> (js_firstChild (self))) + +-- | +firstChild_ :: (MonadIO m) => TreeWalker -> m () +firstChild_ self = liftIO (void (js_firstChild (self))) + +-- | +firstChildUnchecked :: (MonadIO m) => TreeWalker -> m Node +firstChildUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_firstChild (self))) foreign import javascript unsafe "$1[\"lastChild\"]()" js_lastChild :: TreeWalker -> IO (Nullable Node) @@ -46,6 +71,15 @@ -- | lastChild :: (MonadIO m) => TreeWalker -> m (Maybe Node) lastChild self = liftIO (nullableToMaybe <$> (js_lastChild (self))) + +-- | +lastChild_ :: (MonadIO m) => TreeWalker -> m () +lastChild_ self = liftIO (void (js_lastChild (self))) + +-- | +lastChildUnchecked :: (MonadIO m) => TreeWalker -> m Node +lastChildUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_lastChild (self))) foreign import javascript unsafe "$1[\"previousSibling\"]()" js_previousSibling :: TreeWalker -> IO (Nullable Node) @@ -54,6 +88,16 @@ previousSibling :: (MonadIO m) => TreeWalker -> m (Maybe Node) previousSibling self = liftIO (nullableToMaybe <$> (js_previousSibling (self))) + +-- | +previousSibling_ :: (MonadIO m) => TreeWalker -> m () +previousSibling_ self = liftIO (void (js_previousSibling (self))) + +-- | +previousSiblingUnchecked :: (MonadIO m) => TreeWalker -> m Node +previousSiblingUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_previousSibling (self))) foreign import javascript unsafe "$1[\"nextSibling\"]()" js_nextSibling :: TreeWalker -> IO (Nullable Node) @@ -62,6 +106,15 @@ nextSibling :: (MonadIO m) => TreeWalker -> m (Maybe Node) nextSibling self = liftIO (nullableToMaybe <$> (js_nextSibling (self))) + +-- | +nextSibling_ :: (MonadIO m) => TreeWalker -> m () +nextSibling_ self = liftIO (void (js_nextSibling (self))) + +-- | +nextSiblingUnchecked :: (MonadIO m) => TreeWalker -> m Node +nextSiblingUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_nextSibling (self))) foreign import javascript unsafe "$1[\"previousNode\"]()" js_previousNode :: TreeWalker -> IO (Nullable Node) @@ -70,6 +123,15 @@ previousNode :: (MonadIO m) => TreeWalker -> m (Maybe Node) previousNode self = liftIO (nullableToMaybe <$> (js_previousNode (self))) + +-- | +previousNode_ :: (MonadIO m) => TreeWalker -> m () +previousNode_ self = liftIO (void (js_previousNode (self))) + +-- | +previousNodeUnchecked :: (MonadIO m) => TreeWalker -> m Node +previousNodeUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_previousNode (self))) foreign import javascript unsafe "$1[\"nextNode\"]()" js_nextNode :: TreeWalker -> IO (Nullable Node) @@ -77,6 +139,15 @@ -- | nextNode :: (MonadIO m) => TreeWalker -> m (Maybe Node) nextNode self = liftIO (nullableToMaybe <$> (js_nextNode (self))) + +-- | +nextNode_ :: (MonadIO m) => TreeWalker -> m () +nextNode_ self = liftIO (void (js_nextNode (self))) + +-- | +nextNodeUnchecked :: (MonadIO m) => TreeWalker -> m Node +nextNodeUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_nextNode (self))) foreign import javascript unsafe "$1[\"root\"]" js_getRoot :: TreeWalker -> IO (Nullable Node) @@ -84,6 +155,11 @@ -- | getRoot :: (MonadIO m) => TreeWalker -> m (Maybe Node) getRoot self = liftIO (nullableToMaybe <$> (js_getRoot (self))) + +-- | +getRootUnchecked :: (MonadIO m) => TreeWalker -> m Node +getRootUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getRoot (self))) foreign import javascript unsafe "$1[\"whatToShow\"]" js_getWhatToShow :: TreeWalker -> IO Word @@ -98,6 +174,11 @@ -- | getFilter :: (MonadIO m) => TreeWalker -> m (Maybe NodeFilter) getFilter self = liftIO (nullableToMaybe <$> (js_getFilter (self))) + +-- | +getFilterUnchecked :: (MonadIO m) => TreeWalker -> m NodeFilter +getFilterUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getFilter (self))) foreign import javascript unsafe "($1[\"expandEntityReferences\"] ? 1 : 0)" @@ -125,3 +206,9 @@ getCurrentNode :: (MonadIO m) => TreeWalker -> m (Maybe Node) getCurrentNode self = liftIO (nullableToMaybe <$> (js_getCurrentNode (self))) + +-- | +getCurrentNodeUnchecked :: (MonadIO m) => TreeWalker -> m Node +getCurrentNodeUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getCurrentNode (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/TypeConversions.hs b/src/GHCJS/DOM/JSFFI/Generated/TypeConversions.hs --- a/src/GHCJS/DOM/JSFFI/Generated/TypeConversions.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/TypeConversions.hs @@ -41,9 +41,11 @@ import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) +import Data.Maybe (fromJust) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) diff --git a/src/GHCJS/DOM/JSFFI/Generated/UIEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/UIEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/UIEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/UIEvent.hs @@ -1,10 +1,11 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.UIEvent - (js_initUIEvent, initUIEvent, js_getView, getView, js_getDetail, - getDetail, js_getKeyCode, getKeyCode, js_getCharCode, getCharCode, - js_getLayerX, getLayerX, js_getLayerY, getLayerY, js_getPageX, - getPageX, js_getPageY, getPageY, js_getWhich, getWhich, UIEvent, - castToUIEvent, gTypeUIEvent, IsUIEvent, toUIEvent) + (js_initUIEvent, initUIEvent, js_getView, getView, + getViewUnchecked, js_getDetail, getDetail, js_getKeyCode, + getKeyCode, js_getCharCode, getCharCode, js_getLayerX, getLayerX, + js_getLayerY, getLayerY, js_getPageX, getPageX, js_getPageY, + getPageY, js_getWhich, getWhich, UIEvent, castToUIEvent, + gTypeUIEvent, IsUIEvent, toUIEvent) 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.JSFFI.Generated.Enums @@ -43,6 +46,12 @@ getView :: (MonadIO m, IsUIEvent self) => self -> m (Maybe Window) getView self = liftIO (nullableToMaybe <$> (js_getView (toUIEvent self))) + +-- | +getViewUnchecked :: (MonadIO m, IsUIEvent self) => self -> m Window +getViewUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getView (toUIEvent self))) foreign import javascript unsafe "$1[\"detail\"]" js_getDetail :: UIEvent -> IO Int diff --git a/src/GHCJS/DOM/JSFFI/Generated/UIRequestEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/UIRequestEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/UIRequestEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/UIRequestEvent.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.UIRequestEvent - (js_getReceiver, getReceiver, UIRequestEvent, castToUIRequestEvent, - gTypeUIRequestEvent) + (js_getReceiver, getReceiver, getReceiverUnchecked, UIRequestEvent, + castToUIRequestEvent, gTypeUIRequestEvent) 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,9 @@ (MonadIO m) => UIRequestEvent -> m (Maybe EventTarget) getReceiver self = liftIO (nullableToMaybe <$> (js_getReceiver (self))) + +-- | +getReceiverUnchecked :: + (MonadIO m) => UIRequestEvent -> m EventTarget +getReceiverUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getReceiver (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/URL.hs b/src/GHCJS/DOM/JSFFI/Generated/URL.hs --- a/src/GHCJS/DOM/JSFFI/Generated/URL.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/URL.hs @@ -1,10 +1,13 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.URL (js_newURL, newURL, js_newURL', newURL', js_newURL'', newURL'', - js_createObjectURL, createObjectURL, js_revokeObjectURL, - revokeObjectURL, js_createObjectURLSource, createObjectURLSource, - js_createObjectURLStream, createObjectURLStream, URL, castToURL, - gTypeURL) + js_createObjectURL, createObjectURL, createObjectURL_, + createObjectURLUnchecked, js_revokeObjectURL, revokeObjectURL, + js_createObjectURLSource, createObjectURLSource, + createObjectURLSource_, createObjectURLSourceUnchecked, + js_createObjectURLStream, createObjectURLStream, + createObjectURLStream_, createObjectURLStreamUnchecked, URL, + castToURL, gTypeURL) 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) @@ -59,6 +64,23 @@ = liftIO (fromMaybeJSString <$> (js_createObjectURL (self) (maybeToNullable (fmap toBlob blob)))) + +-- | +createObjectURL_ :: + (MonadIO m, IsBlob blob) => URL -> Maybe blob -> m () +createObjectURL_ self blob + = liftIO + (void + (js_createObjectURL (self) (maybeToNullable (fmap toBlob blob)))) + +-- | +createObjectURLUnchecked :: + (MonadIO m, IsBlob blob, FromJSString result) => + URL -> Maybe blob -> m result +createObjectURLUnchecked self blob + = liftIO + (fromJust . fromMaybeJSString <$> + (js_createObjectURL (self) (maybeToNullable (fmap toBlob blob)))) foreign import javascript unsafe "$1[\"revokeObjectURL\"]($2)" js_revokeObjectURL :: URL -> JSString -> IO () @@ -81,6 +103,22 @@ = liftIO (fromMaybeJSString <$> (js_createObjectURLSource (self) (maybeToNullable source))) + +-- | +createObjectURLSource_ :: + (MonadIO m) => URL -> Maybe MediaSource -> m () +createObjectURLSource_ self source + = liftIO + (void (js_createObjectURLSource (self) (maybeToNullable source))) + +-- | +createObjectURLSourceUnchecked :: + (MonadIO m, FromJSString result) => + URL -> Maybe MediaSource -> m result +createObjectURLSourceUnchecked self source + = liftIO + (fromJust . fromMaybeJSString <$> + (js_createObjectURLSource (self) (maybeToNullable source))) foreign import javascript unsafe "$1[\"createObjectURL\"]($2)" js_createObjectURLStream :: @@ -93,4 +131,20 @@ createObjectURLStream self stream = liftIO (fromMaybeJSString <$> + (js_createObjectURLStream (self) (maybeToNullable stream))) + +-- | +createObjectURLStream_ :: + (MonadIO m) => URL -> Maybe MediaStream -> m () +createObjectURLStream_ self stream + = liftIO + (void (js_createObjectURLStream (self) (maybeToNullable stream))) + +-- | +createObjectURLStreamUnchecked :: + (MonadIO m, FromJSString result) => + URL -> Maybe MediaStream -> m result +createObjectURLStreamUnchecked self stream + = liftIO + (fromJust . fromMaybeJSString <$> (js_createObjectURLStream (self) (maybeToNullable stream))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/URLUtils.hs b/src/GHCJS/DOM/JSFFI/Generated/URLUtils.hs --- a/src/GHCJS/DOM/JSFFI/Generated/URLUtils.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/URLUtils.hs @@ -1,15 +1,18 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.URLUtils - (js_toString, toString, js_setHref, setHref, js_getHref, getHref, - js_getOrigin, getOrigin, js_setProtocol, setProtocol, - js_getProtocol, getProtocol, js_setUsername, setUsername, - js_getUsername, getUsername, js_setPassword, setPassword, - js_getPassword, getPassword, 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, - URLUtils, castToURLUtils, gTypeURLUtils) + (js_toString, toString, toString_, js_setHref, setHref, js_getHref, + getHref, js_getOrigin, getOrigin, js_setProtocol, setProtocol, + js_getProtocol, getProtocol, getProtocolUnchecked, js_setUsername, + setUsername, js_getUsername, getUsername, getUsernameUnchecked, + js_setPassword, setPassword, js_getPassword, getPassword, + getPasswordUnchecked, js_setHost, setHost, js_getHost, getHost, + getHostUnchecked, js_setHostname, setHostname, js_getHostname, + getHostname, getHostnameUnchecked, js_setPort, setPort, js_getPort, + getPort, getPortUnchecked, js_setPathname, setPathname, + js_getPathname, getPathname, getPathnameUnchecked, js_setSearch, + setSearch, js_getSearch, getSearch, getSearchUnchecked, js_setHash, + setHash, js_getHash, getHash, getHashUnchecked, URLUtils, + castToURLUtils, gTypeURLUtils) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) @@ -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) @@ -33,6 +38,10 @@ toString :: (MonadIO m, FromJSString result) => URLUtils -> m result toString self = liftIO (fromJSString <$> (js_toString (self))) + +-- | +toString_ :: (MonadIO m) => URLUtils -> m () +toString_ self = liftIO (void (js_toString (self))) foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref :: URLUtils -> JSString -> IO () @@ -73,6 +82,12 @@ (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) getProtocol self = liftIO (fromMaybeJSString <$> (js_getProtocol (self))) + +-- | +getProtocolUnchecked :: + (MonadIO m, FromJSString result) => URLUtils -> m result +getProtocolUnchecked self + = liftIO (fromJust . fromMaybeJSString <$> (js_getProtocol (self))) foreign import javascript unsafe "$1[\"username\"] = $2;" js_setUsername :: URLUtils -> Nullable JSString -> IO () @@ -91,6 +106,12 @@ (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) getUsername self = liftIO (fromMaybeJSString <$> (js_getUsername (self))) + +-- | +getUsernameUnchecked :: + (MonadIO m, FromJSString result) => URLUtils -> m result +getUsernameUnchecked self + = liftIO (fromJust . fromMaybeJSString <$> (js_getUsername (self))) foreign import javascript unsafe "$1[\"password\"] = $2;" js_setPassword :: URLUtils -> Nullable JSString -> IO () @@ -109,6 +130,12 @@ (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) getPassword self = liftIO (fromMaybeJSString <$> (js_getPassword (self))) + +-- | +getPasswordUnchecked :: + (MonadIO m, FromJSString result) => URLUtils -> m result +getPasswordUnchecked self + = liftIO (fromJust . fromMaybeJSString <$> (js_getPassword (self))) foreign import javascript unsafe "$1[\"host\"] = $2;" js_setHost :: URLUtils -> Nullable JSString -> IO () @@ -125,6 +152,12 @@ getHost :: (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) getHost self = liftIO (fromMaybeJSString <$> (js_getHost (self))) + +-- | +getHostUnchecked :: + (MonadIO m, FromJSString result) => URLUtils -> m result +getHostUnchecked self + = liftIO (fromJust . fromMaybeJSString <$> (js_getHost (self))) foreign import javascript unsafe "$1[\"hostname\"] = $2;" js_setHostname :: URLUtils -> Nullable JSString -> IO () @@ -143,6 +176,12 @@ (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) getHostname self = liftIO (fromMaybeJSString <$> (js_getHostname (self))) + +-- | +getHostnameUnchecked :: + (MonadIO m, FromJSString result) => URLUtils -> m result +getHostnameUnchecked self + = liftIO (fromJust . fromMaybeJSString <$> (js_getHostname (self))) foreign import javascript unsafe "$1[\"port\"] = $2;" js_setPort :: URLUtils -> Nullable JSString -> IO () @@ -159,6 +198,12 @@ getPort :: (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) getPort self = liftIO (fromMaybeJSString <$> (js_getPort (self))) + +-- | +getPortUnchecked :: + (MonadIO m, FromJSString result) => URLUtils -> m result +getPortUnchecked self + = liftIO (fromJust . fromMaybeJSString <$> (js_getPort (self))) foreign import javascript unsafe "$1[\"pathname\"] = $2;" js_setPathname :: URLUtils -> Nullable JSString -> IO () @@ -177,6 +222,12 @@ (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) getPathname self = liftIO (fromMaybeJSString <$> (js_getPathname (self))) + +-- | +getPathnameUnchecked :: + (MonadIO m, FromJSString result) => URLUtils -> m result +getPathnameUnchecked self + = liftIO (fromJust . fromMaybeJSString <$> (js_getPathname (self))) foreign import javascript unsafe "$1[\"search\"] = $2;" js_setSearch :: URLUtils -> Nullable JSString -> IO () @@ -195,6 +246,12 @@ (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) getSearch self = liftIO (fromMaybeJSString <$> (js_getSearch (self))) + +-- | +getSearchUnchecked :: + (MonadIO m, FromJSString result) => URLUtils -> m result +getSearchUnchecked self + = liftIO (fromJust . fromMaybeJSString <$> (js_getSearch (self))) foreign import javascript unsafe "$1[\"hash\"] = $2;" js_setHash :: URLUtils -> Nullable JSString -> IO () @@ -211,3 +268,9 @@ getHash :: (MonadIO m, FromJSString result) => URLUtils -> m (Maybe result) getHash self = liftIO (fromMaybeJSString <$> (js_getHash (self))) + +-- | +getHashUnchecked :: + (MonadIO m, FromJSString result) => URLUtils -> m result +getHashUnchecked self + = liftIO (fromJust . fromMaybeJSString <$> (js_getHash (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/UserMessageHandler.hs b/src/GHCJS/DOM/JSFFI/Generated/UserMessageHandler.hs --- a/src/GHCJS/DOM/JSFFI/Generated/UserMessageHandler.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/UserMessageHandler.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/VTTCue.hs b/src/GHCJS/DOM/JSFFI/Generated/VTTCue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/VTTCue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/VTTCue.hs @@ -1,10 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.VTTCue (js_newVTTCue, newVTTCue, js_getCueAsHTML, getCueAsHTML, - js_setVertical, setVertical, js_getVertical, getVertical, - js_setSnapToLines, setSnapToLines, js_getSnapToLines, - getSnapToLines, js_setLine, setLine, js_getLine, getLine, - js_setPosition, setPosition, js_getPosition, getPosition, + getCueAsHTML_, getCueAsHTMLUnchecked, js_setVertical, setVertical, + js_getVertical, getVertical, js_setSnapToLines, setSnapToLines, + js_getSnapToLines, getSnapToLines, js_setLine, setLine, js_getLine, + getLine, js_setPosition, setPosition, js_getPosition, getPosition, js_setSize, setSize, js_getSize, getSize, js_setAlign, setAlign, js_getAlign, getAlign, js_setText, setText, js_getText, getText, js_setRegionId, setRegionId, js_getRegionId, getRegionId, VTTCue, @@ -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) @@ -43,6 +45,16 @@ getCueAsHTML :: (MonadIO m) => VTTCue -> m (Maybe DocumentFragment) getCueAsHTML self = liftIO (nullableToMaybe <$> (js_getCueAsHTML (self))) + +-- | +getCueAsHTML_ :: (MonadIO m) => VTTCue -> m () +getCueAsHTML_ self = liftIO (void (js_getCueAsHTML (self))) + +-- | +getCueAsHTMLUnchecked :: + (MonadIO m) => VTTCue -> m DocumentFragment +getCueAsHTMLUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getCueAsHTML (self))) foreign import javascript unsafe "$1[\"vertical\"] = $2;" js_setVertical :: VTTCue -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/VTTRegion.hs b/src/GHCJS/DOM/JSFFI/Generated/VTTRegion.hs --- a/src/GHCJS/DOM/JSFFI/Generated/VTTRegion.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/VTTRegion.hs @@ -1,15 +1,16 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.VTTRegion - (js_newVTTRegion, newVTTRegion, js_getTrack, getTrack, js_setId, - setId, js_getId, getId, js_setWidth, setWidth, js_getWidth, - getWidth, js_setHeight, setHeight, js_getHeight, getHeight, - js_setRegionAnchorX, setRegionAnchorX, js_getRegionAnchorX, - getRegionAnchorX, js_setRegionAnchorY, setRegionAnchorY, - js_getRegionAnchorY, getRegionAnchorY, js_setViewportAnchorX, - setViewportAnchorX, js_getViewportAnchorX, getViewportAnchorX, - js_setViewportAnchorY, setViewportAnchorY, js_getViewportAnchorY, - getViewportAnchorY, js_setScroll, setScroll, js_getScroll, - getScroll, VTTRegion, castToVTTRegion, gTypeVTTRegion) + (js_newVTTRegion, newVTTRegion, js_getTrack, getTrack, + getTrackUnchecked, js_setId, setId, js_getId, getId, js_setWidth, + setWidth, js_getWidth, getWidth, js_setHeight, setHeight, + js_getHeight, getHeight, js_setRegionAnchorX, setRegionAnchorX, + js_getRegionAnchorX, getRegionAnchorX, js_setRegionAnchorY, + setRegionAnchorY, js_getRegionAnchorY, getRegionAnchorY, + js_setViewportAnchorX, setViewportAnchorX, js_getViewportAnchorX, + getViewportAnchorX, js_setViewportAnchorY, setViewportAnchorY, + js_getViewportAnchorY, getViewportAnchorY, js_setScroll, setScroll, + js_getScroll, getScroll, VTTRegion, castToVTTRegion, + gTypeVTTRegion) 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) @@ -39,6 +42,11 @@ -- | getTrack :: (MonadIO m) => VTTRegion -> m (Maybe TextTrack) getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self))) + +-- | +getTrackUnchecked :: (MonadIO m) => VTTRegion -> m TextTrack +getTrackUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getTrack (self))) foreign import javascript unsafe "$1[\"id\"] = $2;" js_setId :: VTTRegion -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/VTTRegionList.hs b/src/GHCJS/DOM/JSFFI/Generated/VTTRegionList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/VTTRegionList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/VTTRegionList.hs @@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.VTTRegionList - (js_item, item, js_getRegionById, getRegionById, js_getLength, - getLength, VTTRegionList, castToVTTRegionList, gTypeVTTRegionList) + (js_item, item, item_, itemUnchecked, js_getRegionById, + getRegionById, getRegionById_, getRegionByIdUnchecked, + js_getLength, getLength, VTTRegionList, castToVTTRegionList, + gTypeVTTRegionList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) @@ -10,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) @@ -25,6 +29,16 @@ item :: (MonadIO m) => VTTRegionList -> Word -> m (Maybe VTTRegion) item self index = liftIO (nullableToMaybe <$> (js_item (self) index)) + +-- | +item_ :: (MonadIO m) => VTTRegionList -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +itemUnchecked :: + (MonadIO m) => VTTRegionList -> Word -> m VTTRegion +itemUnchecked self index + = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index)) foreign import javascript unsafe "$1[\"getRegionById\"]($2)" js_getRegionById :: @@ -37,6 +51,20 @@ getRegionById self id = liftIO (nullableToMaybe <$> (js_getRegionById (self) (toJSString id))) + +-- | +getRegionById_ :: + (MonadIO m, ToJSString id) => VTTRegionList -> id -> m () +getRegionById_ self id + = liftIO (void (js_getRegionById (self) (toJSString id))) + +-- | +getRegionByIdUnchecked :: + (MonadIO m, ToJSString id) => VTTRegionList -> id -> m VTTRegion +getRegionByIdUnchecked self id + = liftIO + (fromJust . nullableToMaybe <$> + (js_getRegionById (self) (toJSString id))) foreign import javascript unsafe "$1[\"length\"]" js_getLength :: VTTRegionList -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/ValidityState.hs b/src/GHCJS/DOM/JSFFI/Generated/ValidityState.hs --- a/src/GHCJS/DOM/JSFFI/Generated/ValidityState.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/ValidityState.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/VideoPlaybackQuality.hs b/src/GHCJS/DOM/JSFFI/Generated/VideoPlaybackQuality.hs --- a/src/GHCJS/DOM/JSFFI/Generated/VideoPlaybackQuality.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/VideoPlaybackQuality.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/VideoStreamTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/VideoStreamTrack.hs --- a/src/GHCJS/DOM/JSFFI/Generated/VideoStreamTrack.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/VideoStreamTrack.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/VideoTrack.hs b/src/GHCJS/DOM/JSFFI/Generated/VideoTrack.hs --- a/src/GHCJS/DOM/JSFFI/Generated/VideoTrack.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/VideoTrack.hs @@ -3,8 +3,9 @@ (js_getId, getId, js_setKind, setKind, js_getKind, getKind, js_getLabel, getLabel, js_setLanguage, setLanguage, js_getLanguage, getLanguage, js_setSelected, setSelected, js_getSelected, - getSelected, js_getSourceBuffer, getSourceBuffer, VideoTrack, - castToVideoTrack, gTypeVideoTrack) + getSelected, js_getSourceBuffer, getSourceBuffer, + getSourceBufferUnchecked, VideoTrack, castToVideoTrack, + gTypeVideoTrack) 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) @@ -91,3 +94,10 @@ (MonadIO m) => VideoTrack -> m (Maybe SourceBuffer) getSourceBuffer self = liftIO (nullableToMaybe <$> (js_getSourceBuffer (self))) + +-- | +getSourceBufferUnchecked :: + (MonadIO m) => VideoTrack -> m SourceBuffer +getSourceBufferUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getSourceBuffer (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/VideoTrackList.hs b/src/GHCJS/DOM/JSFFI/Generated/VideoTrackList.hs --- a/src/GHCJS/DOM/JSFFI/Generated/VideoTrackList.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/VideoTrackList.hs @@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.VideoTrackList - (js_item, item, js_getTrackById, getTrackById, js_getLength, + (js_item, item, item_, itemUnchecked, js_getTrackById, + getTrackById, getTrackById_, getTrackByIdUnchecked, js_getLength, getLength, js_getSelectedIndex, getSelectedIndex, change, addTrack, removeTrack, VideoTrackList, castToVideoTrackList, gTypeVideoTrackList) @@ -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) @@ -28,6 +31,16 @@ (MonadIO m) => VideoTrackList -> Word -> m (Maybe VideoTrack) item self index = liftIO (nullableToMaybe <$> (js_item (self) index)) + +-- | +item_ :: (MonadIO m) => VideoTrackList -> Word -> m () +item_ self index = liftIO (void (js_item (self) index)) + +-- | +itemUnchecked :: + (MonadIO m) => VideoTrackList -> Word -> m VideoTrack +itemUnchecked self index + = liftIO (fromJust . nullableToMaybe <$> (js_item (self) index)) foreign import javascript unsafe "$1[\"getTrackById\"]($2)" js_getTrackById :: @@ -40,6 +53,20 @@ getTrackById self id = liftIO (nullableToMaybe <$> (js_getTrackById (self) (toJSString id))) + +-- | +getTrackById_ :: + (MonadIO m, ToJSString id) => VideoTrackList -> id -> m () +getTrackById_ self id + = liftIO (void (js_getTrackById (self) (toJSString id))) + +-- | +getTrackByIdUnchecked :: + (MonadIO m, ToJSString id) => VideoTrackList -> id -> m VideoTrack +getTrackByIdUnchecked self id + = liftIO + (fromJust . nullableToMaybe <$> + (js_getTrackById (self) (toJSString id))) foreign import javascript unsafe "$1[\"length\"]" js_getLength :: VideoTrackList -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/VoidCallback.hs b/src/GHCJS/DOM/JSFFI/Generated/VoidCallback.hs --- a/src/GHCJS/DOM/JSFFI/Generated/VoidCallback.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/VoidCallback.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WaveShaperNode.hs b/src/GHCJS/DOM/JSFFI/Generated/WaveShaperNode.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WaveShaperNode.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WaveShaperNode.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.WaveShaperNode - (js_setCurve, setCurve, js_getCurve, getCurve, js_setOversample, - setOversample, js_getOversample, getOversample, WaveShaperNode, - castToWaveShaperNode, gTypeWaveShaperNode) + (js_setCurve, setCurve, js_getCurve, getCurve, getCurveUnchecked, + js_setOversample, setOversample, js_getOversample, getOversample, + WaveShaperNode, castToWaveShaperNode, gTypeWaveShaperNode) 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,12 @@ -- | getCurve :: (MonadIO m) => WaveShaperNode -> m (Maybe Float32Array) getCurve self = liftIO (nullableToMaybe <$> (js_getCurve (self))) + +-- | +getCurveUnchecked :: + (MonadIO m) => WaveShaperNode -> m Float32Array +getCurveUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getCurve (self))) foreign import javascript unsafe "$1[\"oversample\"] = $2;" js_setOversample :: WaveShaperNode -> JSVal -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContext.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContext.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContext.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGL2RenderingContext.hs @@ -3,68 +3,81 @@ (js_copyBufferSubData, copyBufferSubData, js_getBufferSubDataView, getBufferSubDataView, js_getBufferSubData, getBufferSubData, js_getFramebufferAttachmentParameter, - getFramebufferAttachmentParameter, js_blitFramebuffer, + getFramebufferAttachmentParameter, + getFramebufferAttachmentParameter_, js_blitFramebuffer, blitFramebuffer, js_framebufferTextureLayer, framebufferTextureLayer, js_getInternalformatParameter, - getInternalformatParameter, js_invalidateFramebuffer, - invalidateFramebuffer, js_invalidateSubFramebuffer, - invalidateSubFramebuffer, js_readBuffer, readBuffer, - js_renderbufferStorageMultisample, renderbufferStorageMultisample, - js_texStorage2D, texStorage2D, js_texStorage3D, texStorage3D, - js_texImage3D, texImage3D, js_texSubImage3DView, texSubImage3DView, - js_texSubImage3DData, texSubImage3DData, js_texSubImage3D, - texSubImage3D, js_texSubImage3DCanvas, texSubImage3DCanvas, - js_texSubImage3DVideo, texSubImage3DVideo, js_copyTexSubImage3D, - copyTexSubImage3D, js_compressedTexImage3D, compressedTexImage3D, + getInternalformatParameter, getInternalformatParameter_, + js_invalidateFramebuffer, invalidateFramebuffer, + js_invalidateSubFramebuffer, invalidateSubFramebuffer, + js_readBuffer, readBuffer, js_renderbufferStorageMultisample, + renderbufferStorageMultisample, js_texStorage2D, texStorage2D, + js_texStorage3D, texStorage3D, js_texImage3D, texImage3D, + js_texSubImage3DView, texSubImage3DView, js_texSubImage3DData, + texSubImage3DData, js_texSubImage3D, texSubImage3D, + js_texSubImage3DCanvas, texSubImage3DCanvas, js_texSubImage3DVideo, + texSubImage3DVideo, js_copyTexSubImage3D, copyTexSubImage3D, + js_compressedTexImage3D, compressedTexImage3D, js_compressedTexSubImage3D, compressedTexSubImage3D, - js_getFragDataLocation, getFragDataLocation, js_uniform1ui, - uniform1ui, js_uniform2ui, uniform2ui, js_uniform3ui, uniform3ui, - js_uniform4ui, uniform4ui, js_uniform1uiv, uniform1uiv, - js_uniform2uiv, uniform2uiv, js_uniform3uiv, uniform3uiv, - js_uniform4uiv, uniform4uiv, js_uniformMatrix2x3fv, - uniformMatrix2x3fv, js_uniformMatrix3x2fv, uniformMatrix3x2fv, - js_uniformMatrix2x4fv, uniformMatrix2x4fv, js_uniformMatrix4x2fv, - uniformMatrix4x2fv, js_uniformMatrix3x4fv, uniformMatrix3x4fv, - js_uniformMatrix4x3fv, uniformMatrix4x3fv, js_vertexAttribI4i, - vertexAttribI4i, js_vertexAttribI4iv, vertexAttribI4iv, - js_vertexAttribI4ui, vertexAttribI4ui, js_vertexAttribI4uiv, - vertexAttribI4uiv, js_vertexAttribIPointer, vertexAttribIPointer, - js_vertexAttribDivisor, vertexAttribDivisor, + js_getFragDataLocation, getFragDataLocation, getFragDataLocation_, + js_uniform1ui, uniform1ui, js_uniform2ui, uniform2ui, + js_uniform3ui, uniform3ui, js_uniform4ui, uniform4ui, + js_uniform1uiv, uniform1uiv, js_uniform2uiv, uniform2uiv, + js_uniform3uiv, uniform3uiv, js_uniform4uiv, uniform4uiv, + js_uniformMatrix2x3fv, uniformMatrix2x3fv, js_uniformMatrix3x2fv, + uniformMatrix3x2fv, js_uniformMatrix2x4fv, uniformMatrix2x4fv, + js_uniformMatrix4x2fv, uniformMatrix4x2fv, js_uniformMatrix3x4fv, + uniformMatrix3x4fv, js_uniformMatrix4x3fv, uniformMatrix4x3fv, + js_vertexAttribI4i, vertexAttribI4i, js_vertexAttribI4iv, + vertexAttribI4iv, js_vertexAttribI4ui, vertexAttribI4ui, + js_vertexAttribI4uiv, vertexAttribI4uiv, js_vertexAttribIPointer, + vertexAttribIPointer, js_vertexAttribDivisor, vertexAttribDivisor, js_drawArraysInstanced, drawArraysInstanced, js_drawElementsInstanced, drawElementsInstanced, js_drawRangeElements, drawRangeElements, js_drawBuffers, drawBuffers, js_clearBufferiv, clearBufferiv, js_clearBufferuiv, clearBufferuiv, js_clearBufferfv, clearBufferfv, js_clearBufferfi, - clearBufferfi, js_createQuery, createQuery, js_deleteQuery, - deleteQuery, js_isQuery, isQuery, js_beginQuery, beginQuery, - js_endQuery, endQuery, js_getQuery, getQuery, js_getQueryParameter, - getQueryParameter, js_createSampler, createSampler, - js_deleteSampler, deleteSampler, js_isSampler, isSampler, - js_bindSampler, bindSampler, js_samplerParameteri, - samplerParameteri, js_samplerParameterf, samplerParameterf, - js_getSamplerParameter, getSamplerParameter, js_fenceSync, - fenceSync, js_isSync, isSync, js_deleteSync, deleteSync, - js_clientWaitSync, clientWaitSync, js_waitSync, waitSync, - js_getSyncParameter, getSyncParameter, js_createTransformFeedback, - createTransformFeedback, js_deleteTransformFeedback, + clearBufferfi, js_createQuery, createQuery, createQuery_, + createQueryUnchecked, js_deleteQuery, deleteQuery, js_isQuery, + isQuery, isQuery_, js_beginQuery, beginQuery, js_endQuery, + endQuery, js_getQuery, getQuery, getQuery_, getQueryUnchecked, + js_getQueryParameter, getQueryParameter, getQueryParameter_, + js_createSampler, createSampler, createSampler_, + createSamplerUnchecked, js_deleteSampler, deleteSampler, + js_isSampler, isSampler, isSampler_, js_bindSampler, bindSampler, + js_samplerParameteri, samplerParameteri, js_samplerParameterf, + samplerParameterf, js_getSamplerParameter, getSamplerParameter, + getSamplerParameter_, js_fenceSync, fenceSync, fenceSync_, + fenceSyncUnchecked, js_isSync, isSync, isSync_, js_deleteSync, + deleteSync, js_clientWaitSync, clientWaitSync, clientWaitSync_, + js_waitSync, waitSync, js_getSyncParameter, getSyncParameter, + getSyncParameter_, js_createTransformFeedback, + createTransformFeedback, createTransformFeedback_, + createTransformFeedbackUnchecked, js_deleteTransformFeedback, deleteTransformFeedback, js_isTransformFeedback, - isTransformFeedback, js_bindTransformFeedback, - bindTransformFeedback, js_beginTransformFeedback, - beginTransformFeedback, js_endTransformFeedback, - endTransformFeedback, js_transformFeedbackVaryings, - transformFeedbackVaryings, js_getTransformFeedbackVarying, - getTransformFeedbackVarying, js_pauseTransformFeedback, - pauseTransformFeedback, js_resumeTransformFeedback, - resumeTransformFeedback, js_bindBufferBase, bindBufferBase, - js_bindBufferRange, bindBufferRange, js_getIndexedParameter, - getIndexedParameter, js_getUniformIndices, getUniformIndices, - js_getActiveUniforms, getActiveUniforms, js_getUniformBlockIndex, - getUniformBlockIndex, js_getActiveUniformBlockParameter, - getActiveUniformBlockParameter, js_getActiveUniformBlockName, - getActiveUniformBlockName, js_uniformBlockBinding, - uniformBlockBinding, js_createVertexArray, createVertexArray, + isTransformFeedback, isTransformFeedback_, + js_bindTransformFeedback, bindTransformFeedback, + js_beginTransformFeedback, beginTransformFeedback, + js_endTransformFeedback, endTransformFeedback, + js_transformFeedbackVaryings, transformFeedbackVaryings, + js_getTransformFeedbackVarying, getTransformFeedbackVarying, + getTransformFeedbackVarying_, getTransformFeedbackVaryingUnchecked, + js_pauseTransformFeedback, pauseTransformFeedback, + js_resumeTransformFeedback, resumeTransformFeedback, + js_bindBufferBase, bindBufferBase, js_bindBufferRange, + bindBufferRange, js_getIndexedParameter, getIndexedParameter, + getIndexedParameter_, js_getUniformIndices, getUniformIndices, + getUniformIndices_, getUniformIndicesUnchecked, + js_getActiveUniforms, getActiveUniforms, getActiveUniforms_, + getActiveUniformsUnchecked, js_getUniformBlockIndex, + getUniformBlockIndex, getUniformBlockIndex_, + js_getActiveUniformBlockParameter, getActiveUniformBlockParameter, + getActiveUniformBlockParameter_, js_getActiveUniformBlockName, + getActiveUniformBlockName, getActiveUniformBlockName_, + js_uniformBlockBinding, uniformBlockBinding, js_createVertexArray, + createVertexArray, createVertexArray_, createVertexArrayUnchecked, js_deleteVertexArray, deleteVertexArray, js_isVertexArray, - isVertexArray, js_bindVertexArray, bindVertexArray, + isVertexArray, isVertexArray_, js_bindVertexArray, bindVertexArray, pattern READ_BUFFER, pattern UNPACK_ROW_LENGTH, pattern UNPACK_SKIP_ROWS, pattern UNPACK_SKIP_PIXELS, pattern PACK_ROW_LENGTH, pattern PACK_SKIP_ROWS, @@ -221,9 +234,11 @@ import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) +import Data.Maybe (fromJust) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) @@ -291,6 +306,16 @@ = liftIO (js_getFramebufferAttachmentParameter (self) target attachment pname) + +-- | +getFramebufferAttachmentParameter_ :: + (MonadIO m) => + WebGL2RenderingContext -> GLenum -> GLenum -> GLenum -> m () +getFramebufferAttachmentParameter_ self target attachment pname + = liftIO + (void + (js_getFramebufferAttachmentParameter (self) target attachment + pname)) foreign import javascript unsafe "$1[\"blitFramebuffer\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11)" @@ -348,6 +373,15 @@ getInternalformatParameter self target internalformat pname = liftIO (js_getInternalformatParameter (self) target internalformat pname) + +-- | +getInternalformatParameter_ :: + (MonadIO m) => + WebGL2RenderingContext -> GLenum -> GLenum -> GLenum -> m () +getInternalformatParameter_ self target internalformat pname + = liftIO + (void + (js_getInternalformatParameter (self) target internalformat pname)) foreign import javascript unsafe "$1[\"invalidateFramebuffer\"]($2,\n$3)" js_invalidateFramebuffer @@ -719,6 +753,16 @@ = liftIO (js_getFragDataLocation (self) (maybeToNullable program) (toJSString name)) + +-- | +getFragDataLocation_ :: + (MonadIO m, ToJSString name) => + WebGL2RenderingContext -> Maybe WebGLProgram -> name -> m () +getFragDataLocation_ self program name + = liftIO + (void + (js_getFragDataLocation (self) (maybeToNullable program) + (toJSString name))) foreign import javascript unsafe "$1[\"uniform1ui\"]($2, $3)" js_uniform1ui :: @@ -1134,6 +1178,16 @@ (MonadIO m) => WebGL2RenderingContext -> m (Maybe WebGLQuery) createQuery self = liftIO (nullableToMaybe <$> (js_createQuery (self))) + +-- | +createQuery_ :: (MonadIO m) => WebGL2RenderingContext -> m () +createQuery_ self = liftIO (void (js_createQuery (self))) + +-- | +createQueryUnchecked :: + (MonadIO m) => WebGL2RenderingContext -> m WebGLQuery +createQueryUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_createQuery (self))) foreign import javascript unsafe "$1[\"deleteQuery\"]($2)" js_deleteQuery :: @@ -1154,6 +1208,12 @@ WebGL2RenderingContext -> Maybe WebGLQuery -> m GLboolean isQuery self query = liftIO (js_isQuery (self) (maybeToNullable query)) + +-- | +isQuery_ :: + (MonadIO m) => WebGL2RenderingContext -> Maybe WebGLQuery -> m () +isQuery_ self query + = liftIO (void (js_isQuery (self) (maybeToNullable query))) foreign import javascript unsafe "$1[\"beginQuery\"]($2, $3)" js_beginQuery :: @@ -1184,6 +1244,20 @@ WebGL2RenderingContext -> GLenum -> GLenum -> m (Maybe WebGLQuery) getQuery self target pname = liftIO (nullableToMaybe <$> (js_getQuery (self) target pname)) + +-- | +getQuery_ :: + (MonadIO m) => WebGL2RenderingContext -> GLenum -> GLenum -> m () +getQuery_ self target pname + = liftIO (void (js_getQuery (self) target pname)) + +-- | +getQueryUnchecked :: + (MonadIO m) => + WebGL2RenderingContext -> GLenum -> GLenum -> m WebGLQuery +getQueryUnchecked self target pname + = liftIO + (fromJust . nullableToMaybe <$> (js_getQuery (self) target pname)) foreign import javascript unsafe "$1[\"getQueryParameter\"]($2, $3)" js_getQueryParameter :: @@ -1196,6 +1270,14 @@ getQueryParameter self query pname = liftIO (js_getQueryParameter (self) (maybeToNullable query) pname) + +-- | +getQueryParameter_ :: + (MonadIO m) => + WebGL2RenderingContext -> Maybe WebGLQuery -> GLenum -> m () +getQueryParameter_ self query pname + = liftIO + (void (js_getQueryParameter (self) (maybeToNullable query) pname)) foreign import javascript unsafe "$1[\"createSampler\"]()" js_createSampler :: @@ -1206,6 +1288,16 @@ (MonadIO m) => WebGL2RenderingContext -> m (Maybe WebGLSampler) createSampler self = liftIO (nullableToMaybe <$> (js_createSampler (self))) + +-- | +createSampler_ :: (MonadIO m) => WebGL2RenderingContext -> m () +createSampler_ self = liftIO (void (js_createSampler (self))) + +-- | +createSamplerUnchecked :: + (MonadIO m) => WebGL2RenderingContext -> m WebGLSampler +createSamplerUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_createSampler (self))) foreign import javascript unsafe "$1[\"deleteSampler\"]($2)" js_deleteSampler :: @@ -1227,6 +1319,12 @@ WebGL2RenderingContext -> Maybe WebGLSampler -> m GLboolean isSampler self sampler = liftIO (js_isSampler (self) (maybeToNullable sampler)) + +-- | +isSampler_ :: + (MonadIO m) => WebGL2RenderingContext -> Maybe WebGLSampler -> m () +isSampler_ self sampler + = liftIO (void (js_isSampler (self) (maybeToNullable sampler))) foreign import javascript unsafe "$1[\"bindSampler\"]($2, $3)" js_bindSampler :: @@ -1279,6 +1377,15 @@ getSamplerParameter self sampler pname = liftIO (js_getSamplerParameter (self) (maybeToNullable sampler) pname) + +-- | +getSamplerParameter_ :: + (MonadIO m) => + WebGL2RenderingContext -> Maybe WebGLSampler -> GLenum -> m () +getSamplerParameter_ self sampler pname + = liftIO + (void + (js_getSamplerParameter (self) (maybeToNullable sampler) pname)) foreign import javascript unsafe "$1[\"fenceSync\"]($2, $3)" js_fenceSync :: @@ -1293,6 +1400,22 @@ fenceSync self condition flags = liftIO (nullableToMaybe <$> (js_fenceSync (self) condition flags)) + +-- | +fenceSync_ :: + (MonadIO m) => + WebGL2RenderingContext -> GLenum -> GLbitfield -> m () +fenceSync_ self condition flags + = liftIO (void (js_fenceSync (self) condition flags)) + +-- | +fenceSyncUnchecked :: + (MonadIO m) => + WebGL2RenderingContext -> GLenum -> GLbitfield -> m WebGLSync +fenceSyncUnchecked self condition flags + = liftIO + (fromJust . nullableToMaybe <$> + (js_fenceSync (self) condition flags)) foreign import javascript unsafe "$1[\"isSync\"]($2)" js_isSync :: WebGL2RenderingContext -> Nullable WebGLSync -> IO GLboolean @@ -1302,6 +1425,12 @@ (MonadIO m) => WebGL2RenderingContext -> Maybe WebGLSync -> m GLboolean isSync self sync = liftIO (js_isSync (self) (maybeToNullable sync)) + +-- | +isSync_ :: + (MonadIO m) => WebGL2RenderingContext -> Maybe WebGLSync -> m () +isSync_ self sync + = liftIO (void (js_isSync (self) (maybeToNullable sync))) foreign import javascript unsafe "$1[\"deleteSync\"]($2)" js_deleteSync :: @@ -1327,6 +1456,17 @@ = liftIO (js_clientWaitSync (self) (maybeToNullable sync) flags (fromIntegral timeout)) + +-- | +clientWaitSync_ :: + (MonadIO m) => + WebGL2RenderingContext -> + Maybe WebGLSync -> GLbitfield -> GLuint64 -> m () +clientWaitSync_ self sync flags timeout + = liftIO + (void + (js_clientWaitSync (self) (maybeToNullable sync) flags + (fromIntegral timeout))) foreign import javascript unsafe "$1[\"waitSync\"]($2, $3, $4)" js_waitSync :: @@ -1353,6 +1493,14 @@ WebGL2RenderingContext -> Maybe WebGLSync -> GLenum -> m JSVal getSyncParameter self sync pname = liftIO (js_getSyncParameter (self) (maybeToNullable sync) pname) + +-- | +getSyncParameter_ :: + (MonadIO m) => + WebGL2RenderingContext -> Maybe WebGLSync -> GLenum -> m () +getSyncParameter_ self sync pname + = liftIO + (void (js_getSyncParameter (self) (maybeToNullable sync) pname)) foreign import javascript unsafe "$1[\"createTransformFeedback\"]()" js_createTransformFeedback :: @@ -1364,6 +1512,20 @@ WebGL2RenderingContext -> m (Maybe WebGLTransformFeedback) createTransformFeedback self = liftIO (nullableToMaybe <$> (js_createTransformFeedback (self))) + +-- | +createTransformFeedback_ :: + (MonadIO m) => WebGL2RenderingContext -> m () +createTransformFeedback_ self + = liftIO (void (js_createTransformFeedback (self))) + +-- | +createTransformFeedbackUnchecked :: + (MonadIO m) => WebGL2RenderingContext -> m WebGLTransformFeedback +createTransformFeedbackUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_createTransformFeedback (self))) foreign import javascript unsafe "$1[\"deleteTransformFeedback\"]($2)" js_deleteTransformFeedback :: @@ -1388,6 +1550,14 @@ Maybe WebGLTransformFeedback -> m GLboolean isTransformFeedback self id = liftIO (js_isTransformFeedback (self) (maybeToNullable id)) + +-- | +isTransformFeedback_ :: + (MonadIO m) => + WebGL2RenderingContext -> Maybe WebGLTransformFeedback -> m () +isTransformFeedback_ self id + = liftIO + (void (js_isTransformFeedback (self) (maybeToNullable id))) foreign import javascript unsafe "$1[\"bindTransformFeedback\"]($2,\n$3)" js_bindTransformFeedback @@ -1457,6 +1627,27 @@ (nullableToMaybe <$> (js_getTransformFeedbackVarying (self) (maybeToNullable program) index)) + +-- | +getTransformFeedbackVarying_ :: + (MonadIO m) => + WebGL2RenderingContext -> Maybe WebGLProgram -> GLuint -> m () +getTransformFeedbackVarying_ self program index + = liftIO + (void + (js_getTransformFeedbackVarying (self) (maybeToNullable program) + index)) + +-- | +getTransformFeedbackVaryingUnchecked :: + (MonadIO m) => + WebGL2RenderingContext -> + Maybe WebGLProgram -> GLuint -> m WebGLActiveInfo +getTransformFeedbackVaryingUnchecked self program index + = liftIO + (fromJust . nullableToMaybe <$> + (js_getTransformFeedbackVarying (self) (maybeToNullable program) + index)) foreign import javascript unsafe "$1[\"pauseTransformFeedback\"]()" js_pauseTransformFeedback :: WebGL2RenderingContext -> IO () @@ -1520,6 +1711,12 @@ WebGL2RenderingContext -> GLenum -> GLuint -> m JSVal getIndexedParameter self target index = liftIO (js_getIndexedParameter (self) target index) + +-- | +getIndexedParameter_ :: + (MonadIO m) => WebGL2RenderingContext -> GLenum -> GLuint -> m () +getIndexedParameter_ self target index + = liftIO (void (js_getIndexedParameter (self) target index)) foreign import javascript unsafe "$1[\"getUniformIndices\"]($2, $3)" js_getUniformIndices :: @@ -1538,6 +1735,32 @@ \ uniformNames' -> js_getUniformIndices (self) (maybeToNullable program) uniformNames')) + +-- | +getUniformIndices_ :: + (MonadIO m, ToJSString uniformNames) => + WebGL2RenderingContext -> + Maybe WebGLProgram -> [uniformNames] -> m () +getUniformIndices_ self program uniformNames + = liftIO + (void + (toJSVal uniformNames >>= + \ uniformNames' -> + js_getUniformIndices (self) (maybeToNullable program) + uniformNames')) + +-- | +getUniformIndicesUnchecked :: + (MonadIO m, ToJSString uniformNames) => + WebGL2RenderingContext -> + Maybe WebGLProgram -> [uniformNames] -> m Uint32Array +getUniformIndicesUnchecked self program uniformNames + = liftIO + (fromJust . nullableToMaybe <$> + (toJSVal uniformNames >>= + \ uniformNames' -> + js_getUniformIndices (self) (maybeToNullable program) + uniformNames')) foreign import javascript unsafe "$1[\"getActiveUniforms\"]($2, $3,\n$4)" js_getActiveUniforms :: @@ -1557,6 +1780,31 @@ (js_getActiveUniforms (self) (maybeToNullable program) (maybeToNullable (fmap toUint32Array uniformIndices)) pname)) + +-- | +getActiveUniforms_ :: + (MonadIO m, IsUint32Array uniformIndices) => + WebGL2RenderingContext -> + Maybe WebGLProgram -> Maybe uniformIndices -> GLenum -> m () +getActiveUniforms_ self program uniformIndices pname + = liftIO + (void + (js_getActiveUniforms (self) (maybeToNullable program) + (maybeToNullable (fmap toUint32Array uniformIndices)) + pname)) + +-- | +getActiveUniformsUnchecked :: + (MonadIO m, IsUint32Array uniformIndices) => + WebGL2RenderingContext -> + Maybe WebGLProgram -> + Maybe uniformIndices -> GLenum -> m Int32Array +getActiveUniformsUnchecked self program uniformIndices pname + = liftIO + (fromJust . nullableToMaybe <$> + (js_getActiveUniforms (self) (maybeToNullable program) + (maybeToNullable (fmap toUint32Array uniformIndices)) + pname)) foreign import javascript unsafe "$1[\"getUniformBlockIndex\"]($2,\n$3)" js_getUniformBlockIndex :: @@ -1572,6 +1820,17 @@ = liftIO (js_getUniformBlockIndex (self) (maybeToNullable program) (toJSString uniformBlockName)) + +-- | +getUniformBlockIndex_ :: + (MonadIO m, ToJSString uniformBlockName) => + WebGL2RenderingContext -> + Maybe WebGLProgram -> uniformBlockName -> m () +getUniformBlockIndex_ self program uniformBlockName + = liftIO + (void + (js_getUniformBlockIndex (self) (maybeToNullable program) + (toJSString uniformBlockName))) foreign import javascript unsafe "$1[\"getActiveUniformBlockParameter\"]($2,\n$3, $4)" @@ -1589,6 +1848,19 @@ (js_getActiveUniformBlockParameter (self) (maybeToNullable program) uniformBlockIndex pname) + +-- | +getActiveUniformBlockParameter_ :: + (MonadIO m) => + WebGL2RenderingContext -> + Maybe WebGLProgram -> GLuint -> GLenum -> m () +getActiveUniformBlockParameter_ self program uniformBlockIndex + pname + = liftIO + (void + (js_getActiveUniformBlockParameter (self) (maybeToNullable program) + uniformBlockIndex + pname)) foreign import javascript unsafe "$1[\"getActiveUniformBlockName\"]($2,\n$3)" @@ -1604,6 +1876,16 @@ = liftIO (js_getActiveUniformBlockName (self) (maybeToNullable program) uniformBlockIndex) + +-- | +getActiveUniformBlockName_ :: + (MonadIO m) => + WebGL2RenderingContext -> Maybe WebGLProgram -> GLuint -> m () +getActiveUniformBlockName_ self program uniformBlockIndex + = liftIO + (void + (js_getActiveUniformBlockName (self) (maybeToNullable program) + uniformBlockIndex)) foreign import javascript unsafe "$1[\"uniformBlockBinding\"]($2,\n$3, $4)" js_uniformBlockBinding @@ -1633,6 +1915,18 @@ WebGL2RenderingContext -> m (Maybe WebGLVertexArrayObject) createVertexArray self = liftIO (nullableToMaybe <$> (js_createVertexArray (self))) + +-- | +createVertexArray_ :: (MonadIO m) => WebGL2RenderingContext -> m () +createVertexArray_ self + = liftIO (void (js_createVertexArray (self))) + +-- | +createVertexArrayUnchecked :: + (MonadIO m) => WebGL2RenderingContext -> m WebGLVertexArrayObject +createVertexArrayUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_createVertexArray (self))) foreign import javascript unsafe "$1[\"deleteVertexArray\"]($2)" js_deleteVertexArray :: @@ -1658,6 +1952,14 @@ Maybe WebGLVertexArrayObject -> m GLboolean isVertexArray self vertexArray = liftIO (js_isVertexArray (self) (maybeToNullable vertexArray)) + +-- | +isVertexArray_ :: + (MonadIO m) => + WebGL2RenderingContext -> Maybe WebGLVertexArrayObject -> m () +isVertexArray_ self vertexArray + = liftIO + (void (js_isVertexArray (self) (maybeToNullable vertexArray))) foreign import javascript unsafe "$1[\"bindVertexArray\"]($2)" js_bindVertexArray :: diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLActiveInfo.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLActiveInfo.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLActiveInfo.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLActiveInfo.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureATC.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureATC.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureATC.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureATC.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTexturePVRTC.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTexturePVRTC.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTexturePVRTC.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTexturePVRTC.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureS3TC.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureS3TC.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureS3TC.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLCompressedTextureS3TC.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLContextAttributes.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLContextAttributes.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLContextAttributes.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLContextAttributes.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLContextEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLContextEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLContextEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLContextEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugRendererInfo.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugRendererInfo.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugRendererInfo.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugRendererInfo.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugShaders.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugShaders.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugShaders.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLDebugShaders.hs @@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.WebGLDebugShaders (js_getTranslatedShaderSource, getTranslatedShaderSource, + getTranslatedShaderSource_, getTranslatedShaderSourceUnchecked, WebGLDebugShaders, castToWebGLDebugShaders, gTypeWebGLDebugShaders) 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) @@ -30,4 +33,21 @@ getTranslatedShaderSource self shader = liftIO (fromMaybeJSString <$> + (js_getTranslatedShaderSource (self) (maybeToNullable shader))) + +-- | +getTranslatedShaderSource_ :: + (MonadIO m) => WebGLDebugShaders -> Maybe WebGLShader -> m () +getTranslatedShaderSource_ self shader + = liftIO + (void + (js_getTranslatedShaderSource (self) (maybeToNullable shader))) + +-- | +getTranslatedShaderSourceUnchecked :: + (MonadIO m, FromJSString result) => + WebGLDebugShaders -> Maybe WebGLShader -> m result +getTranslatedShaderSourceUnchecked self shader + = liftIO + (fromJust . fromMaybeJSString <$> (js_getTranslatedShaderSource (self) (maybeToNullable shader))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLDepthTexture.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLDepthTexture.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLDepthTexture.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLDepthTexture.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLDrawBuffers.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLDrawBuffers.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLDrawBuffers.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLDrawBuffers.hs @@ -28,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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLLoseContext.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLLoseContext.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLLoseContext.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLLoseContext.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContextBase.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContextBase.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContextBase.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLRenderingContextBase.hs @@ -10,22 +10,27 @@ bufferData, js_bufferDataView, bufferDataView, js_bufferDataPtr, bufferDataPtr, js_bufferSubData, bufferSubData, js_bufferSubDataView, bufferSubDataView, js_checkFramebufferStatus, - checkFramebufferStatus, js_clear, clear, js_clearColor, clearColor, - js_clearDepth, clearDepth, js_clearStencil, clearStencil, - js_colorMask, colorMask, js_compileShader, compileShader, - js_compressedTexImage2D, compressedTexImage2D, - js_compressedTexSubImage2D, compressedTexSubImage2D, - js_copyTexImage2D, copyTexImage2D, js_copyTexSubImage2D, - copyTexSubImage2D, js_createBuffer, createBuffer, - js_createFramebuffer, createFramebuffer, js_createProgram, - createProgram, js_createRenderbuffer, createRenderbuffer, - js_createShader, createShader, js_createTexture, createTexture, - js_cullFace, cullFace, js_deleteBuffer, deleteBuffer, - js_deleteFramebuffer, deleteFramebuffer, js_deleteProgram, - deleteProgram, js_deleteRenderbuffer, deleteRenderbuffer, - js_deleteShader, deleteShader, js_deleteTexture, deleteTexture, - js_depthFunc, depthFunc, js_depthMask, depthMask, js_depthRange, - depthRange, js_detachShader, detachShader, js_disable, disable, + checkFramebufferStatus, checkFramebufferStatus_, js_clear, clear, + js_clearColor, clearColor, js_clearDepth, clearDepth, + js_clearStencil, clearStencil, js_colorMask, colorMask, + js_compileShader, compileShader, js_compressedTexImage2D, + compressedTexImage2D, js_compressedTexSubImage2D, + compressedTexSubImage2D, js_copyTexImage2D, copyTexImage2D, + js_copyTexSubImage2D, copyTexSubImage2D, js_createBuffer, + createBuffer, createBuffer_, createBufferUnchecked, + js_createFramebuffer, createFramebuffer, createFramebuffer_, + createFramebufferUnchecked, js_createProgram, createProgram, + createProgram_, createProgramUnchecked, js_createRenderbuffer, + createRenderbuffer, createRenderbuffer_, + createRenderbufferUnchecked, js_createShader, createShader, + createShader_, createShaderUnchecked, js_createTexture, + createTexture, createTexture_, createTextureUnchecked, js_cullFace, + cullFace, js_deleteBuffer, deleteBuffer, js_deleteFramebuffer, + deleteFramebuffer, js_deleteProgram, deleteProgram, + js_deleteRenderbuffer, deleteRenderbuffer, js_deleteShader, + deleteShader, js_deleteTexture, deleteTexture, js_depthFunc, + depthFunc, js_depthMask, depthMask, js_depthRange, depthRange, + js_detachShader, detachShader, js_disable, disable, js_disableVertexAttribArray, disableVertexAttribArray, js_drawArrays, drawArrays, js_drawElements, drawElements, js_enable, enable, js_enableVertexAttribArray, @@ -33,36 +38,49 @@ js_framebufferRenderbuffer, framebufferRenderbuffer, js_framebufferTexture2D, framebufferTexture2D, js_frontFace, frontFace, js_generateMipmap, generateMipmap, js_getActiveAttrib, - getActiveAttrib, js_getActiveUniform, getActiveUniform, - js_getAttachedShaders, getAttachedShaders, js_getAttribLocation, - getAttribLocation, js_getBufferParameter, getBufferParameter, - js_getContextAttributes, getContextAttributes, js_getError, - getError, js_getExtension, getExtension, + getActiveAttrib, getActiveAttrib_, getActiveAttribUnchecked, + js_getActiveUniform, getActiveUniform, getActiveUniform_, + getActiveUniformUnchecked, js_getAttachedShaders, + getAttachedShaders, js_getAttribLocation, getAttribLocation, + getAttribLocation_, js_getBufferParameter, getBufferParameter, + getBufferParameter_, js_getContextAttributes, getContextAttributes, + getContextAttributes_, getContextAttributesUnchecked, js_getError, + getError, getError_, js_getExtension, getExtension, getExtension_, js_getFramebufferAttachmentParameter, - getFramebufferAttachmentParameter, js_getParameter, getParameter, - js_getProgramParameter, getProgramParameter, js_getProgramInfoLog, - getProgramInfoLog, js_getRenderbufferParameter, - getRenderbufferParameter, js_getShaderParameter, - getShaderParameter, js_getShaderInfoLog, getShaderInfoLog, + getFramebufferAttachmentParameter, + getFramebufferAttachmentParameter_, js_getParameter, getParameter, + getParameter_, js_getProgramParameter, getProgramParameter, + getProgramParameter_, js_getProgramInfoLog, getProgramInfoLog, + getProgramInfoLog_, getProgramInfoLogUnchecked, + js_getRenderbufferParameter, getRenderbufferParameter, + getRenderbufferParameter_, js_getShaderParameter, + getShaderParameter, getShaderParameter_, js_getShaderInfoLog, + getShaderInfoLog, getShaderInfoLog_, getShaderInfoLogUnchecked, js_getShaderPrecisionFormat, getShaderPrecisionFormat, - js_getShaderSource, getShaderSource, js_getSupportedExtensions, - getSupportedExtensions, js_getTexParameter, getTexParameter, - js_getUniform, getUniform, js_getUniformLocation, - getUniformLocation, js_getVertexAttrib, getVertexAttrib, - js_getVertexAttribOffset, getVertexAttribOffset, js_hint, hint, - js_isBuffer, isBuffer, js_isContextLost, isContextLost, - js_isEnabled, isEnabled, js_isFramebuffer, isFramebuffer, - js_isProgram, isProgram, js_isRenderbuffer, isRenderbuffer, - js_isShader, isShader, js_isTexture, isTexture, js_lineWidth, - lineWidth, js_linkProgram, linkProgram, js_pixelStorei, - pixelStorei, js_polygonOffset, polygonOffset, js_readPixels, - readPixels, js_releaseShaderCompiler, releaseShaderCompiler, - js_renderbufferStorage, renderbufferStorage, js_sampleCoverage, - sampleCoverage, js_scissor, scissor, js_shaderSource, shaderSource, - js_stencilFunc, stencilFunc, js_stencilFuncSeparate, - stencilFuncSeparate, js_stencilMask, stencilMask, - js_stencilMaskSeparate, stencilMaskSeparate, js_stencilOp, - stencilOp, js_stencilOpSeparate, stencilOpSeparate, + getShaderPrecisionFormat_, getShaderPrecisionFormatUnchecked, + js_getShaderSource, getShaderSource, getShaderSource_, + getShaderSourceUnchecked, js_getSupportedExtensions, + getSupportedExtensions, getSupportedExtensions_, + js_getTexParameter, getTexParameter, getTexParameter_, + js_getUniform, getUniform, getUniform_, js_getUniformLocation, + getUniformLocation, getUniformLocation_, + getUniformLocationUnchecked, js_getVertexAttrib, getVertexAttrib, + getVertexAttrib_, js_getVertexAttribOffset, getVertexAttribOffset, + getVertexAttribOffset_, js_hint, hint, js_isBuffer, isBuffer, + isBuffer_, js_isContextLost, isContextLost, isContextLost_, + js_isEnabled, isEnabled, isEnabled_, js_isFramebuffer, + isFramebuffer, isFramebuffer_, js_isProgram, isProgram, isProgram_, + js_isRenderbuffer, isRenderbuffer, isRenderbuffer_, js_isShader, + isShader, isShader_, js_isTexture, isTexture, isTexture_, + js_lineWidth, lineWidth, js_linkProgram, linkProgram, + js_pixelStorei, pixelStorei, js_polygonOffset, polygonOffset, + js_readPixels, readPixels, js_releaseShaderCompiler, + releaseShaderCompiler, js_renderbufferStorage, renderbufferStorage, + js_sampleCoverage, sampleCoverage, js_scissor, scissor, + js_shaderSource, shaderSource, js_stencilFunc, stencilFunc, + js_stencilFuncSeparate, stencilFuncSeparate, js_stencilMask, + stencilMask, js_stencilMaskSeparate, stencilMaskSeparate, + js_stencilOp, stencilOp, js_stencilOpSeparate, stencilOpSeparate, js_texParameterf, texParameterf, js_texParameteri, texParameteri, js_texImage2DView, texImage2DView, js_texImage2DData, texImage2DData, js_texImage2D, texImage2D, js_texImage2DCanvas, @@ -235,9 +253,11 @@ import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) +import Data.Maybe (fromJust) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) @@ -498,6 +518,16 @@ = liftIO (js_checkFramebufferStatus (toWebGLRenderingContextBase self) target) + +-- | +checkFramebufferStatus_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> GLenum -> m () +checkFramebufferStatus_ self target + = liftIO + (void + (js_checkFramebufferStatus (toWebGLRenderingContextBase self) + target)) foreign import javascript unsafe "$1[\"clear\"]($2)" js_clear :: WebGLRenderingContextBase -> GLbitfield -> IO () @@ -695,6 +725,22 @@ = liftIO (nullableToMaybe <$> (js_createBuffer (toWebGLRenderingContextBase self))) + +-- | +createBuffer_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => self -> m () +createBuffer_ self + = liftIO + (void (js_createBuffer (toWebGLRenderingContextBase self))) + +-- | +createBufferUnchecked :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> m WebGLBuffer +createBufferUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_createBuffer (toWebGLRenderingContextBase self))) foreign import javascript unsafe "$1[\"createFramebuffer\"]()" js_createFramebuffer :: @@ -708,6 +754,22 @@ = liftIO (nullableToMaybe <$> (js_createFramebuffer (toWebGLRenderingContextBase self))) + +-- | +createFramebuffer_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => self -> m () +createFramebuffer_ self + = liftIO + (void (js_createFramebuffer (toWebGLRenderingContextBase self))) + +-- | +createFramebufferUnchecked :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> m WebGLFramebuffer +createFramebufferUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_createFramebuffer (toWebGLRenderingContextBase self))) foreign import javascript unsafe "$1[\"createProgram\"]()" js_createProgram :: @@ -721,6 +783,22 @@ = liftIO (nullableToMaybe <$> (js_createProgram (toWebGLRenderingContextBase self))) + +-- | +createProgram_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => self -> m () +createProgram_ self + = liftIO + (void (js_createProgram (toWebGLRenderingContextBase self))) + +-- | +createProgramUnchecked :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> m WebGLProgram +createProgramUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_createProgram (toWebGLRenderingContextBase self))) foreign import javascript unsafe "$1[\"createRenderbuffer\"]()" js_createRenderbuffer :: @@ -734,6 +812,22 @@ = liftIO (nullableToMaybe <$> (js_createRenderbuffer (toWebGLRenderingContextBase self))) + +-- | +createRenderbuffer_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => self -> m () +createRenderbuffer_ self + = liftIO + (void (js_createRenderbuffer (toWebGLRenderingContextBase self))) + +-- | +createRenderbufferUnchecked :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> m WebGLRenderbuffer +createRenderbufferUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_createRenderbuffer (toWebGLRenderingContextBase self))) foreign import javascript unsafe "$1[\"createShader\"]($2)" js_createShader :: @@ -747,6 +841,23 @@ = liftIO (nullableToMaybe <$> (js_createShader (toWebGLRenderingContextBase self) type')) + +-- | +createShader_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> GLenum -> m () +createShader_ self type' + = liftIO + (void (js_createShader (toWebGLRenderingContextBase self) type')) + +-- | +createShaderUnchecked :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> GLenum -> m WebGLShader +createShaderUnchecked self type' + = liftIO + (fromJust . nullableToMaybe <$> + (js_createShader (toWebGLRenderingContextBase self) type')) foreign import javascript unsafe "$1[\"createTexture\"]()" js_createTexture :: @@ -760,6 +871,22 @@ = liftIO (nullableToMaybe <$> (js_createTexture (toWebGLRenderingContextBase self))) + +-- | +createTexture_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => self -> m () +createTexture_ self + = liftIO + (void (js_createTexture (toWebGLRenderingContextBase self))) + +-- | +createTextureUnchecked :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> m WebGLTexture +createTextureUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_createTexture (toWebGLRenderingContextBase self))) foreign import javascript unsafe "$1[\"cullFace\"]($2)" js_cullFace :: WebGLRenderingContextBase -> GLenum -> IO () @@ -1061,6 +1188,28 @@ (js_getActiveAttrib (toWebGLRenderingContextBase self) (maybeToNullable program) index)) + +-- | +getActiveAttrib_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLProgram -> GLuint -> m () +getActiveAttrib_ self program index + = liftIO + (void + (js_getActiveAttrib (toWebGLRenderingContextBase self) + (maybeToNullable program) + index)) + +-- | +getActiveAttribUnchecked :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLProgram -> GLuint -> m WebGLActiveInfo +getActiveAttribUnchecked self program index + = liftIO + (fromJust . nullableToMaybe <$> + (js_getActiveAttrib (toWebGLRenderingContextBase self) + (maybeToNullable program) + index)) foreign import javascript unsafe "$1[\"getActiveUniform\"]($2, $3)" js_getActiveUniform :: @@ -1077,6 +1226,28 @@ (js_getActiveUniform (toWebGLRenderingContextBase self) (maybeToNullable program) index)) + +-- | +getActiveUniform_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLProgram -> GLuint -> m () +getActiveUniform_ self program index + = liftIO + (void + (js_getActiveUniform (toWebGLRenderingContextBase self) + (maybeToNullable program) + index)) + +-- | +getActiveUniformUnchecked :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLProgram -> GLuint -> m WebGLActiveInfo +getActiveUniformUnchecked self program index + = liftIO + (fromJust . nullableToMaybe <$> + (js_getActiveUniform (toWebGLRenderingContextBase self) + (maybeToNullable program) + index)) foreign import javascript unsafe "$1[\"getAttachedShaders\"]($2)" js_getAttachedShaders :: @@ -1105,6 +1276,17 @@ (js_getAttribLocation (toWebGLRenderingContextBase self) (maybeToNullable program) (toJSString name)) + +-- | +getAttribLocation_ :: + (MonadIO m, IsWebGLRenderingContextBase self, ToJSString name) => + self -> Maybe WebGLProgram -> name -> m () +getAttribLocation_ self program name + = liftIO + (void + (js_getAttribLocation (toWebGLRenderingContextBase self) + (maybeToNullable program) + (toJSString name))) foreign import javascript unsafe "$1[\"getBufferParameter\"]($2, $3)" js_getBufferParameter :: @@ -1118,6 +1300,16 @@ = liftIO (js_getBufferParameter (toWebGLRenderingContextBase self) target pname) + +-- | +getBufferParameter_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> GLenum -> GLenum -> m () +getBufferParameter_ self target pname + = liftIO + (void + (js_getBufferParameter (toWebGLRenderingContextBase self) target + pname)) foreign import javascript unsafe "$1[\"getContextAttributes\"]()" js_getContextAttributes :: @@ -1131,6 +1323,22 @@ = liftIO (nullableToMaybe <$> (js_getContextAttributes (toWebGLRenderingContextBase self))) + +-- | +getContextAttributes_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => self -> m () +getContextAttributes_ self + = liftIO + (void (js_getContextAttributes (toWebGLRenderingContextBase self))) + +-- | +getContextAttributesUnchecked :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> m WebGLContextAttributes +getContextAttributesUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getContextAttributes (toWebGLRenderingContextBase self))) foreign import javascript unsafe "$1[\"getError\"]()" js_getError :: WebGLRenderingContextBase -> IO GLenum @@ -1140,6 +1348,12 @@ (MonadIO m, IsWebGLRenderingContextBase self) => self -> m GLenum getError self = liftIO (js_getError (toWebGLRenderingContextBase self)) + +-- | +getError_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => self -> m () +getError_ self + = liftIO (void (js_getError (toWebGLRenderingContextBase self))) foreign import javascript unsafe "$1[\"getExtension\"]($2)" js_getExtension :: @@ -1153,6 +1367,16 @@ = liftIO (js_getExtension (toWebGLRenderingContextBase self) (toJSString name)) + +-- | +getExtension_ :: + (MonadIO m, IsWebGLRenderingContextBase self, ToJSString name) => + self -> name -> m () +getExtension_ self name + = liftIO + (void + (js_getExtension (toWebGLRenderingContextBase self) + (toJSString name))) foreign import javascript unsafe "$1[\"getFramebufferAttachmentParameter\"]($2,\n$3, $4)" @@ -1170,6 +1394,19 @@ target attachment pname) + +-- | +getFramebufferAttachmentParameter_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> GLenum -> GLenum -> GLenum -> m () +getFramebufferAttachmentParameter_ self target attachment pname + = liftIO + (void + (js_getFramebufferAttachmentParameter + (toWebGLRenderingContextBase self) + target + attachment + pname)) foreign import javascript unsafe "$1[\"getParameter\"]($2)" js_getParameter :: WebGLRenderingContextBase -> GLenum -> IO JSVal @@ -1180,6 +1417,14 @@ self -> GLenum -> m JSVal getParameter self pname = liftIO (js_getParameter (toWebGLRenderingContextBase self) pname) + +-- | +getParameter_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> GLenum -> m () +getParameter_ self pname + = liftIO + (void (js_getParameter (toWebGLRenderingContextBase self) pname)) foreign import javascript unsafe "$1[\"getProgramParameter\"]($2,\n$3)" js_getProgramParameter :: @@ -1195,6 +1440,17 @@ (js_getProgramParameter (toWebGLRenderingContextBase self) (maybeToNullable program) pname) + +-- | +getProgramParameter_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLProgram -> GLenum -> m () +getProgramParameter_ self program pname + = liftIO + (void + (js_getProgramParameter (toWebGLRenderingContextBase self) + (maybeToNullable program) + pname)) foreign import javascript unsafe "$1[\"getProgramInfoLog\"]($2)" js_getProgramInfoLog :: @@ -1211,6 +1467,27 @@ (fromMaybeJSString <$> (js_getProgramInfoLog (toWebGLRenderingContextBase self) (maybeToNullable program))) + +-- | +getProgramInfoLog_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLProgram -> m () +getProgramInfoLog_ self program + = liftIO + (void + (js_getProgramInfoLog (toWebGLRenderingContextBase self) + (maybeToNullable program))) + +-- | +getProgramInfoLogUnchecked :: + (MonadIO m, IsWebGLRenderingContextBase self, + FromJSString result) => + self -> Maybe WebGLProgram -> m result +getProgramInfoLogUnchecked self program + = liftIO + (fromJust . fromMaybeJSString <$> + (js_getProgramInfoLog (toWebGLRenderingContextBase self) + (maybeToNullable program))) foreign import javascript unsafe "$1[\"getRenderbufferParameter\"]($2,\n$3)" @@ -1226,6 +1503,17 @@ (js_getRenderbufferParameter (toWebGLRenderingContextBase self) target pname) + +-- | +getRenderbufferParameter_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> GLenum -> GLenum -> m () +getRenderbufferParameter_ self target pname + = liftIO + (void + (js_getRenderbufferParameter (toWebGLRenderingContextBase self) + target + pname)) foreign import javascript unsafe "$1[\"getShaderParameter\"]($2, $3)" js_getShaderParameter :: @@ -1241,6 +1529,17 @@ (js_getShaderParameter (toWebGLRenderingContextBase self) (maybeToNullable shader) pname) + +-- | +getShaderParameter_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLShader -> GLenum -> m () +getShaderParameter_ self shader pname + = liftIO + (void + (js_getShaderParameter (toWebGLRenderingContextBase self) + (maybeToNullable shader) + pname)) foreign import javascript unsafe "$1[\"getShaderInfoLog\"]($2)" js_getShaderInfoLog :: @@ -1257,6 +1556,27 @@ (fromMaybeJSString <$> (js_getShaderInfoLog (toWebGLRenderingContextBase self) (maybeToNullable shader))) + +-- | +getShaderInfoLog_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLShader -> m () +getShaderInfoLog_ self shader + = liftIO + (void + (js_getShaderInfoLog (toWebGLRenderingContextBase self) + (maybeToNullable shader))) + +-- | +getShaderInfoLogUnchecked :: + (MonadIO m, IsWebGLRenderingContextBase self, + FromJSString result) => + self -> Maybe WebGLShader -> m result +getShaderInfoLogUnchecked self shader + = liftIO + (fromJust . fromMaybeJSString <$> + (js_getShaderInfoLog (toWebGLRenderingContextBase self) + (maybeToNullable shader))) foreign import javascript unsafe "$1[\"getShaderPrecisionFormat\"]($2,\n$3)" @@ -1274,6 +1594,28 @@ (js_getShaderPrecisionFormat (toWebGLRenderingContextBase self) shadertype precisiontype)) + +-- | +getShaderPrecisionFormat_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> GLenum -> GLenum -> m () +getShaderPrecisionFormat_ self shadertype precisiontype + = liftIO + (void + (js_getShaderPrecisionFormat (toWebGLRenderingContextBase self) + shadertype + precisiontype)) + +-- | +getShaderPrecisionFormatUnchecked :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> GLenum -> GLenum -> m WebGLShaderPrecisionFormat +getShaderPrecisionFormatUnchecked self shadertype precisiontype + = liftIO + (fromJust . nullableToMaybe <$> + (js_getShaderPrecisionFormat (toWebGLRenderingContextBase self) + shadertype + precisiontype)) foreign import javascript unsafe "$1[\"getShaderSource\"]($2)" js_getShaderSource :: @@ -1290,6 +1632,27 @@ (fromMaybeJSString <$> (js_getShaderSource (toWebGLRenderingContextBase self) (maybeToNullable shader))) + +-- | +getShaderSource_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLShader -> m () +getShaderSource_ self shader + = liftIO + (void + (js_getShaderSource (toWebGLRenderingContextBase self) + (maybeToNullable shader))) + +-- | +getShaderSourceUnchecked :: + (MonadIO m, IsWebGLRenderingContextBase self, + FromJSString result) => + self -> Maybe WebGLShader -> m result +getShaderSourceUnchecked self shader + = liftIO + (fromJust . fromMaybeJSString <$> + (js_getShaderSource (toWebGLRenderingContextBase self) + (maybeToNullable shader))) foreign import javascript unsafe "$1[\"getSupportedExtensions\"]()" js_getSupportedExtensions :: WebGLRenderingContextBase -> IO JSVal @@ -1303,6 +1666,14 @@ = liftIO ((js_getSupportedExtensions (toWebGLRenderingContextBase self)) >>= fromJSValUnchecked) + +-- | +getSupportedExtensions_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => self -> m () +getSupportedExtensions_ self + = liftIO + (void + (js_getSupportedExtensions (toWebGLRenderingContextBase self))) foreign import javascript unsafe "$1[\"getTexParameter\"]($2, $3)" js_getTexParameter :: @@ -1316,6 +1687,16 @@ = liftIO (js_getTexParameter (toWebGLRenderingContextBase self) target pname) + +-- | +getTexParameter_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> GLenum -> GLenum -> m () +getTexParameter_ self target pname + = liftIO + (void + (js_getTexParameter (toWebGLRenderingContextBase self) target + pname)) foreign import javascript unsafe "$1[\"getUniform\"]($2, $3)" js_getUniform :: @@ -1331,6 +1712,17 @@ (js_getUniform (toWebGLRenderingContextBase self) (maybeToNullable program) (maybeToNullable location)) + +-- | +getUniform_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLProgram -> Maybe WebGLUniformLocation -> m () +getUniform_ self program location + = liftIO + (void + (js_getUniform (toWebGLRenderingContextBase self) + (maybeToNullable program) + (maybeToNullable location))) foreign import javascript unsafe "$1[\"getUniformLocation\"]($2, $3)" js_getUniformLocation :: @@ -1349,6 +1741,28 @@ (js_getUniformLocation (toWebGLRenderingContextBase self) (maybeToNullable program) (toJSString name))) + +-- | +getUniformLocation_ :: + (MonadIO m, IsWebGLRenderingContextBase self, ToJSString name) => + self -> Maybe WebGLProgram -> name -> m () +getUniformLocation_ self program name + = liftIO + (void + (js_getUniformLocation (toWebGLRenderingContextBase self) + (maybeToNullable program) + (toJSString name))) + +-- | +getUniformLocationUnchecked :: + (MonadIO m, IsWebGLRenderingContextBase self, ToJSString name) => + self -> Maybe WebGLProgram -> name -> m WebGLUniformLocation +getUniformLocationUnchecked self program name + = liftIO + (fromJust . nullableToMaybe <$> + (js_getUniformLocation (toWebGLRenderingContextBase self) + (maybeToNullable program) + (toJSString name))) foreign import javascript unsafe "$1[\"getVertexAttrib\"]($2, $3)" js_getVertexAttrib :: @@ -1361,6 +1775,16 @@ getVertexAttrib self index pname = liftIO (js_getVertexAttrib (toWebGLRenderingContextBase self) index pname) + +-- | +getVertexAttrib_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> GLuint -> GLenum -> m () +getVertexAttrib_ self index pname + = liftIO + (void + (js_getVertexAttrib (toWebGLRenderingContextBase self) index + pname)) foreign import javascript unsafe "$1[\"getVertexAttribOffset\"]($2,\n$3)" js_getVertexAttribOffset @@ -1375,6 +1799,16 @@ (round <$> (js_getVertexAttribOffset (toWebGLRenderingContextBase self) index pname)) + +-- | +getVertexAttribOffset_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> GLuint -> GLenum -> m () +getVertexAttribOffset_ self index pname + = liftIO + (void + (js_getVertexAttribOffset (toWebGLRenderingContextBase self) index + pname)) foreign import javascript unsafe "$1[\"hint\"]($2, $3)" js_hint :: WebGLRenderingContextBase -> GLenum -> GLenum -> IO () @@ -1398,6 +1832,16 @@ = liftIO (js_isBuffer (toWebGLRenderingContextBase self) (maybeToNullable buffer)) + +-- | +isBuffer_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLBuffer -> m () +isBuffer_ self buffer + = liftIO + (void + (js_isBuffer (toWebGLRenderingContextBase self) + (maybeToNullable buffer))) foreign import javascript unsafe "$1[\"isContextLost\"]()" js_isContextLost :: WebGLRenderingContextBase -> IO GLboolean @@ -1408,6 +1852,13 @@ self -> m GLboolean isContextLost self = liftIO (js_isContextLost (toWebGLRenderingContextBase self)) + +-- | +isContextLost_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => self -> m () +isContextLost_ self + = liftIO + (void (js_isContextLost (toWebGLRenderingContextBase self))) foreign import javascript unsafe "$1[\"isEnabled\"]($2)" js_isEnabled :: WebGLRenderingContextBase -> GLenum -> IO GLboolean @@ -1418,6 +1869,14 @@ self -> GLenum -> m GLboolean isEnabled self cap = liftIO (js_isEnabled (toWebGLRenderingContextBase self) cap) + +-- | +isEnabled_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> GLenum -> m () +isEnabled_ self cap + = liftIO + (void (js_isEnabled (toWebGLRenderingContextBase self) cap)) foreign import javascript unsafe "$1[\"isFramebuffer\"]($2)" js_isFramebuffer :: @@ -1432,6 +1891,16 @@ = liftIO (js_isFramebuffer (toWebGLRenderingContextBase self) (maybeToNullable framebuffer)) + +-- | +isFramebuffer_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLFramebuffer -> m () +isFramebuffer_ self framebuffer + = liftIO + (void + (js_isFramebuffer (toWebGLRenderingContextBase self) + (maybeToNullable framebuffer))) foreign import javascript unsafe "$1[\"isProgram\"]($2)" js_isProgram :: @@ -1445,6 +1914,16 @@ = liftIO (js_isProgram (toWebGLRenderingContextBase self) (maybeToNullable program)) + +-- | +isProgram_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLProgram -> m () +isProgram_ self program + = liftIO + (void + (js_isProgram (toWebGLRenderingContextBase self) + (maybeToNullable program))) foreign import javascript unsafe "$1[\"isRenderbuffer\"]($2)" js_isRenderbuffer :: @@ -1459,6 +1938,16 @@ = liftIO (js_isRenderbuffer (toWebGLRenderingContextBase self) (maybeToNullable renderbuffer)) + +-- | +isRenderbuffer_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLRenderbuffer -> m () +isRenderbuffer_ self renderbuffer + = liftIO + (void + (js_isRenderbuffer (toWebGLRenderingContextBase self) + (maybeToNullable renderbuffer))) foreign import javascript unsafe "$1[\"isShader\"]($2)" js_isShader :: @@ -1472,6 +1961,16 @@ = liftIO (js_isShader (toWebGLRenderingContextBase self) (maybeToNullable shader)) + +-- | +isShader_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLShader -> m () +isShader_ self shader + = liftIO + (void + (js_isShader (toWebGLRenderingContextBase self) + (maybeToNullable shader))) foreign import javascript unsafe "$1[\"isTexture\"]($2)" js_isTexture :: @@ -1485,6 +1984,16 @@ = liftIO (js_isTexture (toWebGLRenderingContextBase self) (maybeToNullable texture)) + +-- | +isTexture_ :: + (MonadIO m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLTexture -> m () +isTexture_ self texture + = liftIO + (void + (js_isTexture (toWebGLRenderingContextBase self) + (maybeToNullable texture))) foreign import javascript unsafe "$1[\"lineWidth\"]($2)" js_lineWidth :: WebGLRenderingContextBase -> GLfloat -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebGLShaderPrecisionFormat.hs b/src/GHCJS/DOM/JSFFI/Generated/WebGLShaderPrecisionFormat.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebGLShaderPrecisionFormat.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebGLShaderPrecisionFormat.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitAnimationEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitAnimationEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitAnimationEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitAnimationEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSFilterValue.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSFilterValue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSFilterValue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSFilterValue.hs @@ -1,6 +1,6 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.WebKitCSSFilterValue - (js__get, _get, pattern CSS_FILTER_REFERENCE, + (js__get, _get, _get_, _getUnchecked, pattern CSS_FILTER_REFERENCE, pattern CSS_FILTER_GRAYSCALE, pattern CSS_FILTER_SEPIA, pattern CSS_FILTER_SATURATE, pattern CSS_FILTER_HUE_ROTATE, pattern CSS_FILTER_INVERT, pattern CSS_FILTER_OPACITY, @@ -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) @@ -32,6 +34,16 @@ (MonadIO m) => WebKitCSSFilterValue -> Word -> m (Maybe CSSValue) _get self index = liftIO (nullableToMaybe <$> (js__get (self) index)) + +-- | +_get_ :: (MonadIO m) => WebKitCSSFilterValue -> Word -> m () +_get_ self index = liftIO (void (js__get (self) index)) + +-- | +_getUnchecked :: + (MonadIO m) => WebKitCSSFilterValue -> Word -> m CSSValue +_getUnchecked self index + = liftIO (fromJust . nullableToMaybe <$> (js__get (self) index)) pattern CSS_FILTER_REFERENCE = 1 pattern CSS_FILTER_GRAYSCALE = 2 pattern CSS_FILTER_SEPIA = 3 diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSMatrix.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSMatrix.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSMatrix.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSMatrix.hs @@ -1,10 +1,14 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.WebKitCSSMatrix (js_newWebKitCSSMatrix, newWebKitCSSMatrix, js_setMatrixValue, - setMatrixValue, js_multiply, multiply, js_inverse, inverse, - js_translate, translate, js_scale, scale, js_rotate, rotate, - js_rotateAxisAngle, rotateAxisAngle, js_skewX, skewX, js_skewY, - skewY, js_toString, toString, js_setA, setA, js_getA, getA, + setMatrixValue, js_multiply, multiply, multiply_, + multiplyUnchecked, js_inverse, inverse, inverse_, inverseUnchecked, + js_translate, translate, translate_, translateUnchecked, js_scale, + scale, scale_, scaleUnchecked, js_rotate, rotate, rotate_, + rotateUnchecked, js_rotateAxisAngle, rotateAxisAngle, + rotateAxisAngle_, rotateAxisAngleUnchecked, js_skewX, skewX, + skewX_, skewXUnchecked, js_skewY, skewY, skewY_, skewYUnchecked, + js_toString, toString, toString_, 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, js_setM11, setM11, js_getM11, getM11, @@ -26,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) @@ -67,6 +73,21 @@ = liftIO (nullableToMaybe <$> (js_multiply (self) (maybeToNullable secondMatrix))) + +-- | +multiply_ :: + (MonadIO m) => WebKitCSSMatrix -> Maybe WebKitCSSMatrix -> m () +multiply_ self secondMatrix + = liftIO (void (js_multiply (self) (maybeToNullable secondMatrix))) + +-- | +multiplyUnchecked :: + (MonadIO m) => + WebKitCSSMatrix -> Maybe WebKitCSSMatrix -> m WebKitCSSMatrix +multiplyUnchecked self secondMatrix + = liftIO + (fromJust . nullableToMaybe <$> + (js_multiply (self) (maybeToNullable secondMatrix))) foreign import javascript unsafe "$1[\"inverse\"]()" js_inverse :: WebKitCSSMatrix -> IO (Nullable WebKitCSSMatrix) @@ -75,6 +96,16 @@ inverse :: (MonadIO m) => WebKitCSSMatrix -> m (Maybe WebKitCSSMatrix) inverse self = liftIO (nullableToMaybe <$> (js_inverse (self))) + +-- | +inverse_ :: (MonadIO m) => WebKitCSSMatrix -> m () +inverse_ self = liftIO (void (js_inverse (self))) + +-- | +inverseUnchecked :: + (MonadIO m) => WebKitCSSMatrix -> m WebKitCSSMatrix +inverseUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_inverse (self))) foreign import javascript unsafe "$1[\"translate\"]($2, $3, $4)" js_translate :: @@ -88,6 +119,20 @@ Double -> Double -> Double -> m (Maybe WebKitCSSMatrix) translate self x y z = liftIO (nullableToMaybe <$> (js_translate (self) x y z)) + +-- | +translate_ :: + (MonadIO m) => + WebKitCSSMatrix -> Double -> Double -> Double -> m () +translate_ self x y z = liftIO (void (js_translate (self) x y z)) + +-- | +translateUnchecked :: + (MonadIO m) => + WebKitCSSMatrix -> Double -> Double -> Double -> m WebKitCSSMatrix +translateUnchecked self x y z + = liftIO + (fromJust . nullableToMaybe <$> (js_translate (self) x y z)) foreign import javascript unsafe "$1[\"scale\"]($2, $3, $4)" js_scale :: @@ -102,6 +147,22 @@ scale self scaleX scaleY scaleZ = liftIO (nullableToMaybe <$> (js_scale (self) scaleX scaleY scaleZ)) + +-- | +scale_ :: + (MonadIO m) => + WebKitCSSMatrix -> Double -> Double -> Double -> m () +scale_ self scaleX scaleY scaleZ + = liftIO (void (js_scale (self) scaleX scaleY scaleZ)) + +-- | +scaleUnchecked :: + (MonadIO m) => + WebKitCSSMatrix -> Double -> Double -> Double -> m WebKitCSSMatrix +scaleUnchecked self scaleX scaleY scaleZ + = liftIO + (fromJust . nullableToMaybe <$> + (js_scale (self) scaleX scaleY scaleZ)) foreign import javascript unsafe "$1[\"rotate\"]($2, $3, $4)" js_rotate :: @@ -115,6 +176,21 @@ Double -> Double -> Double -> m (Maybe WebKitCSSMatrix) rotate self rotX rotY rotZ = liftIO (nullableToMaybe <$> (js_rotate (self) rotX rotY rotZ)) + +-- | +rotate_ :: + (MonadIO m) => + WebKitCSSMatrix -> Double -> Double -> Double -> m () +rotate_ self rotX rotY rotZ + = liftIO (void (js_rotate (self) rotX rotY rotZ)) + +-- | +rotateUnchecked :: + (MonadIO m) => + WebKitCSSMatrix -> Double -> Double -> Double -> m WebKitCSSMatrix +rotateUnchecked self rotX rotY rotZ + = liftIO + (fromJust . nullableToMaybe <$> (js_rotate (self) rotX rotY rotZ)) foreign import javascript unsafe "$1[\"rotateAxisAngle\"]($2, $3,\n$4, $5)" js_rotateAxisAngle :: @@ -130,6 +206,23 @@ rotateAxisAngle self x y z angle = liftIO (nullableToMaybe <$> (js_rotateAxisAngle (self) x y z angle)) + +-- | +rotateAxisAngle_ :: + (MonadIO m) => + WebKitCSSMatrix -> Double -> Double -> Double -> Double -> m () +rotateAxisAngle_ self x y z angle + = liftIO (void (js_rotateAxisAngle (self) x y z angle)) + +-- | +rotateAxisAngleUnchecked :: + (MonadIO m) => + WebKitCSSMatrix -> + Double -> Double -> Double -> Double -> m WebKitCSSMatrix +rotateAxisAngleUnchecked self x y z angle + = liftIO + (fromJust . nullableToMaybe <$> + (js_rotateAxisAngle (self) x y z angle)) foreign import javascript unsafe "$1[\"skewX\"]($2)" js_skewX :: WebKitCSSMatrix -> Double -> IO (Nullable WebKitCSSMatrix) @@ -140,6 +233,16 @@ WebKitCSSMatrix -> Double -> m (Maybe WebKitCSSMatrix) skewX self angle = liftIO (nullableToMaybe <$> (js_skewX (self) angle)) + +-- | +skewX_ :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () +skewX_ self angle = liftIO (void (js_skewX (self) angle)) + +-- | +skewXUnchecked :: + (MonadIO m) => WebKitCSSMatrix -> Double -> m WebKitCSSMatrix +skewXUnchecked self angle + = liftIO (fromJust . nullableToMaybe <$> (js_skewX (self) angle)) foreign import javascript unsafe "$1[\"skewY\"]($2)" js_skewY :: WebKitCSSMatrix -> Double -> IO (Nullable WebKitCSSMatrix) @@ -150,6 +253,16 @@ WebKitCSSMatrix -> Double -> m (Maybe WebKitCSSMatrix) skewY self angle = liftIO (nullableToMaybe <$> (js_skewY (self) angle)) + +-- | +skewY_ :: (MonadIO m) => WebKitCSSMatrix -> Double -> m () +skewY_ self angle = liftIO (void (js_skewY (self) angle)) + +-- | +skewYUnchecked :: + (MonadIO m) => WebKitCSSMatrix -> Double -> m WebKitCSSMatrix +skewYUnchecked self angle + = liftIO (fromJust . nullableToMaybe <$> (js_skewY (self) angle)) foreign import javascript unsafe "$1[\"toString\"]()" js_toString :: WebKitCSSMatrix -> IO JSString @@ -158,6 +271,10 @@ toString :: (MonadIO m, FromJSString result) => WebKitCSSMatrix -> m result toString self = liftIO (fromJSString <$> (js_toString (self))) + +-- | +toString_ :: (MonadIO m) => WebKitCSSMatrix -> m () +toString_ self = liftIO (void (js_toString (self))) foreign import javascript unsafe "$1[\"a\"] = $2;" js_setA :: WebKitCSSMatrix -> Double -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSRegionRule.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSRegionRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSRegionRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSRegionRule.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.WebKitCSSRegionRule - (js_getCssRules, getCssRules, WebKitCSSRegionRule, - castToWebKitCSSRegionRule, gTypeWebKitCSSRegionRule) + (js_getCssRules, getCssRules, getCssRulesUnchecked, + WebKitCSSRegionRule, castToWebKitCSSRegionRule, + gTypeWebKitCSSRegionRule) 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) => WebKitCSSRegionRule -> m (Maybe CSSRuleList) getCssRules self = liftIO (nullableToMaybe <$> (js_getCssRules (self))) + +-- | +getCssRulesUnchecked :: + (MonadIO m) => WebKitCSSRegionRule -> m CSSRuleList +getCssRulesUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getCssRules (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSTransformValue.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSTransformValue.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSTransformValue.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSTransformValue.hs @@ -1,14 +1,14 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.WebKitCSSTransformValue - (js__get, _get, pattern CSS_TRANSLATE, pattern CSS_TRANSLATEX, - pattern CSS_TRANSLATEY, pattern CSS_ROTATE, pattern CSS_SCALE, - pattern CSS_SCALEX, pattern CSS_SCALEY, pattern CSS_SKEW, - pattern CSS_SKEWX, pattern CSS_SKEWY, pattern CSS_MATRIX, - pattern CSS_TRANSLATEZ, pattern CSS_TRANSLATE3D, - pattern CSS_ROTATEX, pattern CSS_ROTATEY, pattern CSS_ROTATEZ, - pattern CSS_ROTATE3D, pattern CSS_SCALEZ, pattern CSS_SCALE3D, - pattern CSS_PERSPECTIVE, pattern CSS_MATRIX3D, js_getOperationType, - getOperationType, WebKitCSSTransformValue, + (js__get, _get, _get_, _getUnchecked, pattern CSS_TRANSLATE, + pattern CSS_TRANSLATEX, pattern CSS_TRANSLATEY, pattern CSS_ROTATE, + pattern CSS_SCALE, pattern CSS_SCALEX, pattern CSS_SCALEY, + pattern CSS_SKEW, pattern CSS_SKEWX, pattern CSS_SKEWY, + pattern CSS_MATRIX, pattern CSS_TRANSLATEZ, + pattern CSS_TRANSLATE3D, pattern CSS_ROTATEX, pattern CSS_ROTATEY, + pattern CSS_ROTATEZ, pattern CSS_ROTATE3D, pattern CSS_SCALEZ, + pattern CSS_SCALE3D, pattern CSS_PERSPECTIVE, pattern CSS_MATRIX3D, + js_getOperationType, getOperationType, WebKitCSSTransformValue, castToWebKitCSSTransformValue, gTypeWebKitCSSTransformValue) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) @@ -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) @@ -35,6 +37,16 @@ WebKitCSSTransformValue -> Word -> m (Maybe CSSValue) _get self index = liftIO (nullableToMaybe <$> (js__get (self) index)) + +-- | +_get_ :: (MonadIO m) => WebKitCSSTransformValue -> Word -> m () +_get_ self index = liftIO (void (js__get (self) index)) + +-- | +_getUnchecked :: + (MonadIO m) => WebKitCSSTransformValue -> Word -> m CSSValue +_getUnchecked self index + = liftIO (fromJust . nullableToMaybe <$> (js__get (self) index)) pattern CSS_TRANSLATE = 1 pattern CSS_TRANSLATEX = 2 pattern CSS_TRANSLATEY = 3 diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSViewportRule.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSViewportRule.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSViewportRule.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitCSSViewportRule.hs @@ -1,6 +1,6 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.WebKitCSSViewportRule - (js_getStyle, getStyle, WebKitCSSViewportRule, + (js_getStyle, getStyle, getStyleUnchecked, WebKitCSSViewportRule, castToWebKitCSSViewportRule, gTypeWebKitCSSViewportRule) 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) @@ -26,3 +28,9 @@ (MonadIO m) => WebKitCSSViewportRule -> m (Maybe CSSStyleDeclaration) getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self))) + +-- | +getStyleUnchecked :: + (MonadIO m) => WebKitCSSViewportRule -> m CSSStyleDeclaration +getStyleUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getStyle (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitNamedFlow.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitNamedFlow.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitNamedFlow.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitNamedFlow.hs @@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.WebKitNamedFlow - (js_getRegionsByContent, getRegionsByContent, js_getRegions, - getRegions, js_getContent, getContent, js_getName, getName, + (js_getRegionsByContent, getRegionsByContent, getRegionsByContent_, + getRegionsByContentUnchecked, js_getRegions, getRegions, + getRegions_, getRegionsUnchecked, js_getContent, getContent, + getContent_, getContentUnchecked, js_getName, getName, js_getOverset, getOverset, js_getFirstEmptyRegionIndex, getFirstEmptyRegionIndex, WebKitNamedFlow, castToWebKitNamedFlow, gTypeWebKitNamedFlow) @@ -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) @@ -34,6 +38,26 @@ (nullableToMaybe <$> (js_getRegionsByContent (self) (maybeToNullable (fmap toNode contentNode)))) + +-- | +getRegionsByContent_ :: + (MonadIO m, IsNode contentNode) => + WebKitNamedFlow -> Maybe contentNode -> m () +getRegionsByContent_ self contentNode + = liftIO + (void + (js_getRegionsByContent (self) + (maybeToNullable (fmap toNode contentNode)))) + +-- | +getRegionsByContentUnchecked :: + (MonadIO m, IsNode contentNode) => + WebKitNamedFlow -> Maybe contentNode -> m NodeList +getRegionsByContentUnchecked self contentNode + = liftIO + (fromJust . nullableToMaybe <$> + (js_getRegionsByContent (self) + (maybeToNullable (fmap toNode contentNode)))) foreign import javascript unsafe "$1[\"getRegions\"]()" js_getRegions :: WebKitNamedFlow -> IO (Nullable NodeList) @@ -42,6 +66,15 @@ getRegions :: (MonadIO m) => WebKitNamedFlow -> m (Maybe NodeList) getRegions self = liftIO (nullableToMaybe <$> (js_getRegions (self))) + +-- | +getRegions_ :: (MonadIO m) => WebKitNamedFlow -> m () +getRegions_ self = liftIO (void (js_getRegions (self))) + +-- | +getRegionsUnchecked :: (MonadIO m) => WebKitNamedFlow -> m NodeList +getRegionsUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getRegions (self))) foreign import javascript unsafe "$1[\"getContent\"]()" js_getContent :: WebKitNamedFlow -> IO (Nullable NodeList) @@ -50,6 +83,15 @@ getContent :: (MonadIO m) => WebKitNamedFlow -> m (Maybe NodeList) getContent self = liftIO (nullableToMaybe <$> (js_getContent (self))) + +-- | +getContent_ :: (MonadIO m) => WebKitNamedFlow -> m () +getContent_ self = liftIO (void (js_getContent (self))) + +-- | +getContentUnchecked :: (MonadIO m) => WebKitNamedFlow -> m NodeList +getContentUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getContent (self))) foreign import javascript unsafe "$1[\"name\"]" js_getName :: WebKitNamedFlow -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitNamespace.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitNamespace.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitNamespace.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitNamespace.hs @@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.WebKitNamespace - (js_getMessageHandlers, getMessageHandlers, WebKitNamespace, + (js_getMessageHandlers, getMessageHandlers, + getMessageHandlersUnchecked, WebKitNamespace, castToWebKitNamespace, gTypeWebKitNamespace) 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) @@ -28,3 +31,10 @@ WebKitNamespace -> m (Maybe UserMessageHandlersNamespace) getMessageHandlers self = liftIO (nullableToMaybe <$> (js_getMessageHandlers (self))) + +-- | +getMessageHandlersUnchecked :: + (MonadIO m) => WebKitNamespace -> m UserMessageHandlersNamespace +getMessageHandlersUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getMessageHandlers (self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitPlaybackTargetAvailabilityEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitPlaybackTargetAvailabilityEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitPlaybackTargetAvailabilityEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitPlaybackTargetAvailabilityEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitPoint.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitPoint.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitPoint.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitPoint.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebKitTransitionEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/WebKitTransitionEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebKitTransitionEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebKitTransitionEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WebSocket.hs b/src/GHCJS/DOM/JSFFI/Generated/WebSocket.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WebSocket.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WebSocket.hs @@ -6,7 +6,8 @@ pattern OPEN, pattern CLOSING, pattern CLOSED, js_getUrl, getUrl, js_getReadyState, getReadyState, js_getBufferedAmount, getBufferedAmount, open, message, error, closeEvent, - js_getProtocol, getProtocol, js_getExtensions, getExtensions, + js_getProtocol, getProtocol, getProtocolUnchecked, + js_getExtensions, getExtensions, getExtensionsUnchecked, js_setBinaryType, setBinaryType, js_getBinaryType, getBinaryType, WebSocket, castToWebSocket, gTypeWebSocket) where @@ -17,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) @@ -149,6 +152,12 @@ (MonadIO m, FromJSString result) => WebSocket -> m (Maybe result) getProtocol self = liftIO (fromMaybeJSString <$> (js_getProtocol (self))) + +-- | +getProtocolUnchecked :: + (MonadIO m, FromJSString result) => WebSocket -> m result +getProtocolUnchecked self + = liftIO (fromJust . fromMaybeJSString <$> (js_getProtocol (self))) foreign import javascript unsafe "$1[\"extensions\"]" js_getExtensions :: WebSocket -> IO (Nullable JSString) @@ -158,6 +167,13 @@ (MonadIO m, FromJSString result) => WebSocket -> m (Maybe result) getExtensions self = liftIO (fromMaybeJSString <$> (js_getExtensions (self))) + +-- | +getExtensionsUnchecked :: + (MonadIO m, FromJSString result) => WebSocket -> m result +getExtensionsUnchecked self + = liftIO + (fromJust . fromMaybeJSString <$> (js_getExtensions (self))) foreign import javascript unsafe "$1[\"binaryType\"] = $2;" js_setBinaryType :: WebSocket -> JSString -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/WheelEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/WheelEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WheelEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WheelEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/Window.hs b/src/GHCJS/DOM/JSFFI/Generated/Window.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Window.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Window.hs @@ -1,64 +1,87 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.Window - (js_openDatabase, openDatabase, js_getSelection, getSelection, - js_focus, focus, js_blur, blur, js_close, close, js_print, print, - js_stop, stop, js_open, open, js_showModalDialog, showModalDialog, - js_alert, alert, js_confirm, confirm, js_prompt, prompt, js_find, - find, js_scrollBy, scrollBy, js_scrollTo, scrollTo, js_scroll, - scroll, js_moveBy, moveBy, js_moveTo, moveTo, js_resizeBy, - resizeBy, js_resizeTo, resizeTo, js_matchMedia, matchMedia, - js_getComputedStyle, getComputedStyle, js_getMatchedCSSRules, - getMatchedCSSRules, js_webkitConvertPointFromPageToNode, + (js_openDatabase, openDatabase, openDatabase_, + openDatabaseUnchecked, js_getSelection, getSelection, + getSelection_, getSelectionUnchecked, js_focus, focus, js_blur, + blur, js_close, close, js_print, print, js_stop, stop, js_open, + open, open_, openUnchecked, js_showModalDialog, showModalDialog, + showModalDialog_, js_alert, alert, js_confirm, confirm, confirm_, + js_prompt, prompt, prompt_, promptUnchecked, js_find, find, find_, + js_scrollBy, scrollBy, js_scrollTo, scrollTo, js_scroll, scroll, + js_moveBy, moveBy, js_moveTo, moveTo, js_resizeBy, resizeBy, + js_resizeTo, resizeTo, js_matchMedia, matchMedia, matchMedia_, + matchMediaUnchecked, js_getComputedStyle, getComputedStyle, + getComputedStyle_, getComputedStyleUnchecked, + js_getMatchedCSSRules, getMatchedCSSRules, getMatchedCSSRules_, + getMatchedCSSRulesUnchecked, js_webkitConvertPointFromPageToNode, webkitConvertPointFromPageToNode, + webkitConvertPointFromPageToNode_, + webkitConvertPointFromPageToNodeUnchecked, js_webkitConvertPointFromNodeToPage, - webkitConvertPointFromNodeToPage, js_postMessage, postMessage, - js_requestAnimationFrame, requestAnimationFrame, - js_cancelAnimationFrame, cancelAnimationFrame, - js_webkitRequestAnimationFrame, webkitRequestAnimationFrame, + webkitConvertPointFromNodeToPage, + webkitConvertPointFromNodeToPage_, + webkitConvertPointFromNodeToPageUnchecked, js_postMessage, + postMessage, js_requestAnimationFrame, requestAnimationFrame, + requestAnimationFrame_, js_cancelAnimationFrame, + cancelAnimationFrame, js_webkitRequestAnimationFrame, + webkitRequestAnimationFrame, webkitRequestAnimationFrame_, js_webkitCancelAnimationFrame, webkitCancelAnimationFrame, js_webkitCancelRequestAnimationFrame, webkitCancelRequestAnimationFrame, js_captureEvents, captureEvents, js_releaseEvents, releaseEvents, js_getWebkitIndexedDB, - getWebkitIndexedDB, js_getIndexedDB, getIndexedDB, - js_getWebkitStorageInfo, getWebkitStorageInfo, - js_getSpeechSynthesis, getSpeechSynthesis, js_getScreen, getScreen, - js_getHistory, getHistory, js_getLocationbar, getLocationbar, - js_getMenubar, getMenubar, js_getPersonalbar, getPersonalbar, - js_getScrollbars, getScrollbars, js_getStatusbar, getStatusbar, - js_getToolbar, getToolbar, js_getNavigator, getNavigator, - js_getClientInformation, getClientInformation, js_getCrypto, - getCrypto, js_setLocation, setLocation, js_getLocation, - getLocation, js_getEvent, getEvent, js_getFrameElement, - getFrameElement, js_getOffscreenBuffering, getOffscreenBuffering, - js_getOuterHeight, getOuterHeight, js_getOuterWidth, getOuterWidth, - js_getInnerHeight, getInnerHeight, js_getInnerWidth, getInnerWidth, - js_getScreenX, getScreenX, js_getScreenY, getScreenY, - js_getScreenLeft, getScreenLeft, js_getScreenTop, getScreenTop, - js_getScrollX, getScrollX, js_getScrollY, getScrollY, - js_getPageXOffset, getPageXOffset, js_getPageYOffset, - getPageYOffset, js_getClosed, getClosed, js_getLength, getLength, - js_setName, setName, js_getName, getName, js_setStatus, setStatus, - js_getStatus, getStatus, js_setDefaultStatus, setDefaultStatus, - js_getDefaultStatus, getDefaultStatus, js_setDefaultstatus, - setDefaultstatus, js_getDefaultstatus, getDefaultstatus, - js_getSelf, getSelf, js_getWindow, getWindow, js_getFrames, - getFrames, js_getOpener, getOpener, js_getParent, getParent, - js_getTop, getTop, js_getDocument, getDocument, js_getStyleMedia, - getStyleMedia, js_getDevicePixelRatio, getDevicePixelRatio, - js_getApplicationCache, getApplicationCache, js_getSessionStorage, - getSessionStorage, js_getLocalStorage, getLocalStorage, - js_getOrientation, getOrientation, js_getPerformance, - getPerformance, js_getCSS, getCSS, abort, beforeUnload, blurEvent, - canPlay, canPlayThrough, change, click, contextMenu, dblClick, - drag, dragEnd, dragEnter, dragLeave, dragOver, dragStart, drop, - durationChange, emptied, ended, error, focusEvent, hashChange, - input, invalid, keyDown, keyPress, keyUp, load, loadedData, - loadedMetadata, loadStart, message, mouseDown, mouseEnter, - mouseLeave, mouseMove, mouseOut, mouseOver, mouseUp, mouseWheel, - offline, online, pageHide, pageShow, pause, play, playing, - popState, progress, rateChange, resize, scrollEvent, seeked, - seeking, select, stalled, storage, submit, suspend, timeUpdate, - unload, volumeChange, waiting, wheel, reset, search, + getWebkitIndexedDB, getWebkitIndexedDBUnchecked, js_getIndexedDB, + getIndexedDB, getIndexedDBUnchecked, js_getWebkitStorageInfo, + getWebkitStorageInfo, getWebkitStorageInfoUnchecked, + js_getSpeechSynthesis, getSpeechSynthesis, + getSpeechSynthesisUnchecked, js_getScreen, getScreen, + getScreenUnchecked, js_getHistory, getHistory, getHistoryUnchecked, + js_getLocationbar, getLocationbar, getLocationbarUnchecked, + js_getMenubar, getMenubar, getMenubarUnchecked, js_getPersonalbar, + getPersonalbar, getPersonalbarUnchecked, js_getScrollbars, + getScrollbars, getScrollbarsUnchecked, js_getStatusbar, + getStatusbar, getStatusbarUnchecked, js_getToolbar, getToolbar, + getToolbarUnchecked, js_getNavigator, getNavigator, + getNavigatorUnchecked, js_getClientInformation, + getClientInformation, getClientInformationUnchecked, js_getCrypto, + getCrypto, getCryptoUnchecked, js_setLocation, setLocation, + js_getLocation, getLocation, getLocationUnchecked, js_getEvent, + getEvent, getEventUnchecked, js_getFrameElement, getFrameElement, + getFrameElementUnchecked, js_getOffscreenBuffering, + getOffscreenBuffering, js_getOuterHeight, getOuterHeight, + js_getOuterWidth, getOuterWidth, js_getInnerHeight, getInnerHeight, + js_getInnerWidth, getInnerWidth, js_getScreenX, getScreenX, + js_getScreenY, getScreenY, js_getScreenLeft, getScreenLeft, + js_getScreenTop, getScreenTop, js_getScrollX, getScrollX, + js_getScrollY, getScrollY, js_getPageXOffset, getPageXOffset, + js_getPageYOffset, getPageYOffset, js_getClosed, getClosed, + js_getLength, getLength, js_setName, setName, js_getName, getName, + js_setStatus, setStatus, js_getStatus, getStatus, + js_setDefaultStatus, setDefaultStatus, js_getDefaultStatus, + getDefaultStatus, js_setDefaultstatus, setDefaultstatus, + js_getDefaultstatus, getDefaultstatus, js_getSelf, getSelf, + getSelfUnchecked, js_getWindow, getWindow, getWindowUnchecked, + js_getFrames, getFrames, getFramesUnchecked, js_getOpener, + getOpener, getOpenerUnchecked, js_getParent, getParent, + getParentUnchecked, js_getTop, getTop, getTopUnchecked, + js_getDocument, getDocument, getDocumentUnchecked, + js_getStyleMedia, getStyleMedia, getStyleMediaUnchecked, + js_getDevicePixelRatio, getDevicePixelRatio, + js_getApplicationCache, getApplicationCache, + getApplicationCacheUnchecked, js_getSessionStorage, + getSessionStorage, getSessionStorageUnchecked, js_getLocalStorage, + getLocalStorage, getLocalStorageUnchecked, js_getOrientation, + getOrientation, js_getPerformance, getPerformance, + getPerformanceUnchecked, js_getCSS, getCSS, getCSSUnchecked, abort, + beforeUnload, blurEvent, canPlay, canPlayThrough, change, click, + contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave, + dragOver, dragStart, drop, durationChange, emptied, ended, error, + focusEvent, hashChange, input, invalid, keyDown, keyPress, keyUp, + load, loadedData, loadedMetadata, loadStart, message, mouseDown, + mouseEnter, mouseLeave, mouseMove, mouseOut, mouseOver, mouseUp, + mouseWheel, offline, online, pageHide, pageShow, pause, play, + playing, popState, progress, rateChange, resize, scrollEvent, + seeked, seeking, select, stalled, storage, submit, suspend, + timeUpdate, unload, volumeChange, waiting, wheel, reset, search, webKitAnimationEnd, webKitAnimationIteration, webKitAnimationStart, animationEnd, animationIteration, animationStart, webKitTransitionEnd, transitionEnd, orientationChange, touchStart, @@ -75,9 +98,11 @@ import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) +import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.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,6 +132,39 @@ (toJSString displayName) estimatedSize (maybeToNullable creationCallback))) + +-- | +openDatabase_ :: + (MonadIO m, ToJSString name, ToJSString version, + ToJSString displayName) => + Window -> + name -> + version -> displayName -> Word -> Maybe DatabaseCallback -> m () +openDatabase_ self name version displayName estimatedSize + creationCallback + = liftIO + (void + (js_openDatabase (self) (toJSString name) (toJSString version) + (toJSString displayName) + estimatedSize + (maybeToNullable creationCallback))) + +-- | +openDatabaseUnchecked :: + (MonadIO m, ToJSString name, ToJSString version, + ToJSString displayName) => + Window -> + name -> + version -> + displayName -> Word -> Maybe DatabaseCallback -> m Database +openDatabaseUnchecked self name version displayName estimatedSize + creationCallback + = liftIO + (fromJust . nullableToMaybe <$> + (js_openDatabase (self) (toJSString name) (toJSString version) + (toJSString displayName) + estimatedSize + (maybeToNullable creationCallback))) foreign import javascript unsafe "$1[\"getSelection\"]()" js_getSelection :: Window -> IO (Nullable Selection) @@ -115,6 +173,15 @@ getSelection :: (MonadIO m) => Window -> m (Maybe Selection) getSelection self = liftIO (nullableToMaybe <$> (js_getSelection (self))) + +-- | +getSelection_ :: (MonadIO m) => Window -> m () +getSelection_ self = liftIO (void (js_getSelection (self))) + +-- | +getSelectionUnchecked :: (MonadIO m) => Window -> m Selection +getSelectionUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getSelection (self))) foreign import javascript unsafe "$1[\"focus\"]()" js_focus :: Window -> IO () @@ -164,6 +231,26 @@ (nullableToMaybe <$> (js_open (self) (toJSString url) (toJSString name) (toJSString options))) + +-- | +open_ :: + (MonadIO m, ToJSString url, ToJSString name, ToJSString options) => + Window -> url -> name -> options -> m () +open_ self url name options + = liftIO + (void + (js_open (self) (toJSString url) (toJSString name) + (toJSString options))) + +-- | +openUnchecked :: + (MonadIO m, ToJSString url, ToJSString name, ToJSString options) => + Window -> url -> name -> options -> m Window +openUnchecked self url name options + = liftIO + (fromJust . nullableToMaybe <$> + (js_open (self) (toJSString url) (toJSString name) + (toJSString options))) foreign import javascript unsafe "$1[\"showModalDialog\"]($2, $3,\n$4)" js_showModalDialog :: @@ -177,6 +264,16 @@ = liftIO (js_showModalDialog (self) (toJSString url) dialogArgs (toJSString featureArgs)) + +-- | +showModalDialog_ :: + (MonadIO m, ToJSString url, ToJSString featureArgs) => + Window -> url -> JSVal -> featureArgs -> m () +showModalDialog_ self url dialogArgs featureArgs + = liftIO + (void + (js_showModalDialog (self) (toJSString url) dialogArgs + (toJSString featureArgs))) foreign import javascript unsafe "$1[\"alert\"]($2)" js_alert :: Window -> JSString -> IO () @@ -194,6 +291,12 @@ (MonadIO m, ToJSString message) => Window -> message -> m Bool confirm self message = liftIO (js_confirm (self) (toJSString message)) + +-- | +confirm_ :: + (MonadIO m, ToJSString message) => Window -> message -> m () +confirm_ self message + = liftIO (void (js_confirm (self) (toJSString message))) foreign import javascript unsafe "$1[\"prompt\"]($2, $3)" js_prompt :: @@ -209,6 +312,27 @@ (fromMaybeJSString <$> (js_prompt (self) (toJSString message) (toMaybeJSString defaultValue))) + +-- | +prompt_ :: + (MonadIO m, ToJSString message, ToJSString defaultValue) => + Window -> message -> Maybe defaultValue -> m () +prompt_ self message defaultValue + = liftIO + (void + (js_prompt (self) (toJSString message) + (toMaybeJSString defaultValue))) + +-- | +promptUnchecked :: + (MonadIO m, ToJSString message, ToJSString defaultValue, + FromJSString result) => + Window -> message -> Maybe defaultValue -> m result +promptUnchecked self message defaultValue + = liftIO + (fromJust . fromMaybeJSString <$> + (js_prompt (self) (toJSString message) + (toMaybeJSString defaultValue))) foreign import javascript unsafe "($1[\"find\"]($2, $3, $4, $5, $6,\n$7, $8) ? 1 : 0)" js_find :: @@ -227,6 +351,20 @@ wholeWord searchInFrames showDialog) + +-- | +find_ :: + (MonadIO m, ToJSString string) => + Window -> + string -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> m () +find_ self string caseSensitive backwards wrap wholeWord + searchInFrames showDialog + = liftIO + (void + (js_find (self) (toJSString string) caseSensitive backwards wrap + wholeWord + searchInFrames + showDialog)) foreign import javascript unsafe "$1[\"scrollBy\"]($2, $3)" js_scrollBy :: Window -> Int -> Int -> IO () @@ -288,6 +426,21 @@ matchMedia self query = liftIO (nullableToMaybe <$> (js_matchMedia (self) (toJSString query))) + +-- | +matchMedia_ :: + (MonadIO m, ToJSString query) => Window -> query -> m () +matchMedia_ self query + = liftIO (void (js_matchMedia (self) (toJSString query))) + +-- | +matchMediaUnchecked :: + (MonadIO m, ToJSString query) => + Window -> query -> m MediaQueryList +matchMediaUnchecked self query + = liftIO + (fromJust . nullableToMaybe <$> + (js_matchMedia (self) (toJSString query))) foreign import javascript unsafe "$1[\"getComputedStyle\"]($2, $3)" js_getComputedStyle :: @@ -307,6 +460,29 @@ (js_getComputedStyle (self) (maybeToNullable (fmap toElement element)) (toMaybeJSString pseudoElement))) + +-- | +getComputedStyle_ :: + (MonadIO m, IsElement element, ToJSString pseudoElement) => + Window -> Maybe element -> Maybe pseudoElement -> m () +getComputedStyle_ self element pseudoElement + = liftIO + (void + (js_getComputedStyle (self) + (maybeToNullable (fmap toElement element)) + (toMaybeJSString pseudoElement))) + +-- | +getComputedStyleUnchecked :: + (MonadIO m, IsElement element, ToJSString pseudoElement) => + Window -> + Maybe element -> Maybe pseudoElement -> m CSSStyleDeclaration +getComputedStyleUnchecked self element pseudoElement + = liftIO + (fromJust . nullableToMaybe <$> + (js_getComputedStyle (self) + (maybeToNullable (fmap toElement element)) + (toMaybeJSString pseudoElement))) foreign import javascript unsafe "$1[\"getMatchedCSSRules\"]($2, $3)" js_getMatchedCSSRules :: @@ -324,6 +500,28 @@ (js_getMatchedCSSRules (self) (maybeToNullable (fmap toElement element)) (toMaybeJSString pseudoElement))) + +-- | +getMatchedCSSRules_ :: + (MonadIO m, IsElement element, ToJSString pseudoElement) => + Window -> Maybe element -> Maybe pseudoElement -> m () +getMatchedCSSRules_ self element pseudoElement + = liftIO + (void + (js_getMatchedCSSRules (self) + (maybeToNullable (fmap toElement element)) + (toMaybeJSString pseudoElement))) + +-- | +getMatchedCSSRulesUnchecked :: + (MonadIO m, IsElement element, ToJSString pseudoElement) => + Window -> Maybe element -> Maybe pseudoElement -> m CSSRuleList +getMatchedCSSRulesUnchecked self element pseudoElement + = liftIO + (fromJust . nullableToMaybe <$> + (js_getMatchedCSSRules (self) + (maybeToNullable (fmap toElement element)) + (toMaybeJSString pseudoElement))) foreign import javascript unsafe "$1[\"webkitConvertPointFromPageToNode\"]($2,\n$3)" @@ -342,6 +540,29 @@ (js_webkitConvertPointFromPageToNode (self) (maybeToNullable (fmap toNode node)) (maybeToNullable p))) + +-- | +webkitConvertPointFromPageToNode_ :: + (MonadIO m, IsNode node) => + Window -> Maybe node -> Maybe WebKitPoint -> m () +webkitConvertPointFromPageToNode_ self node p + = liftIO + (void + (js_webkitConvertPointFromPageToNode (self) + (maybeToNullable (fmap toNode node)) + (maybeToNullable p))) + +-- | +webkitConvertPointFromPageToNodeUnchecked :: + (MonadIO m, IsNode node) => + Window -> + Maybe node -> Maybe WebKitPoint -> m WebKitPoint +webkitConvertPointFromPageToNodeUnchecked self node p + = liftIO + (fromJust . nullableToMaybe <$> + (js_webkitConvertPointFromPageToNode (self) + (maybeToNullable (fmap toNode node)) + (maybeToNullable p))) foreign import javascript unsafe "$1[\"webkitConvertPointFromNodeToPage\"]($2,\n$3)" @@ -360,6 +581,29 @@ (js_webkitConvertPointFromNodeToPage (self) (maybeToNullable (fmap toNode node)) (maybeToNullable p))) + +-- | +webkitConvertPointFromNodeToPage_ :: + (MonadIO m, IsNode node) => + Window -> Maybe node -> Maybe WebKitPoint -> m () +webkitConvertPointFromNodeToPage_ self node p + = liftIO + (void + (js_webkitConvertPointFromNodeToPage (self) + (maybeToNullable (fmap toNode node)) + (maybeToNullable p))) + +-- | +webkitConvertPointFromNodeToPageUnchecked :: + (MonadIO m, IsNode node) => + Window -> + Maybe node -> Maybe WebKitPoint -> m WebKitPoint +webkitConvertPointFromNodeToPageUnchecked self node p + = liftIO + (fromJust . nullableToMaybe <$> + (js_webkitConvertPointFromNodeToPage (self) + (maybeToNullable (fmap toNode node)) + (maybeToNullable p))) foreign import javascript unsafe "$1[\"postMessage\"]($2, $3, $4)" js_postMessage :: @@ -391,6 +635,14 @@ requestAnimationFrame self callback = liftIO (js_requestAnimationFrame (self) (maybeToNullable callback)) + +-- | +requestAnimationFrame_ :: + (MonadIO m) => + Window -> Maybe RequestAnimationFrameCallback -> m () +requestAnimationFrame_ self callback + = liftIO + (void (js_requestAnimationFrame (self) (maybeToNullable callback))) foreign import javascript unsafe "$1[\"cancelAnimationFrame\"]($2)" js_cancelAnimationFrame :: Window -> Int -> IO () @@ -412,6 +664,15 @@ webkitRequestAnimationFrame self callback = liftIO (js_webkitRequestAnimationFrame (self) (maybeToNullable callback)) + +-- | +webkitRequestAnimationFrame_ :: + (MonadIO m) => + Window -> Maybe RequestAnimationFrameCallback -> m () +webkitRequestAnimationFrame_ self callback + = liftIO + (void + (js_webkitRequestAnimationFrame (self) (maybeToNullable callback))) foreign import javascript unsafe "$1[\"webkitCancelAnimationFrame\"]($2)" @@ -453,6 +714,13 @@ getWebkitIndexedDB :: (MonadIO m) => Window -> m (Maybe IDBFactory) getWebkitIndexedDB self = liftIO (nullableToMaybe <$> (js_getWebkitIndexedDB (self))) + +-- | +getWebkitIndexedDBUnchecked :: + (MonadIO m) => Window -> m IDBFactory +getWebkitIndexedDBUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getWebkitIndexedDB (self))) foreign import javascript unsafe "$1[\"indexedDB\"]" js_getIndexedDB :: Window -> IO (Nullable IDBFactory) @@ -461,6 +729,11 @@ getIndexedDB :: (MonadIO m) => Window -> m (Maybe IDBFactory) getIndexedDB self = liftIO (nullableToMaybe <$> (js_getIndexedDB (self))) + +-- | +getIndexedDBUnchecked :: (MonadIO m) => Window -> m IDBFactory +getIndexedDBUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getIndexedDB (self))) foreign import javascript unsafe "$1[\"webkitStorageInfo\"]" js_getWebkitStorageInfo :: Window -> IO (Nullable StorageInfo) @@ -470,6 +743,13 @@ (MonadIO m) => Window -> m (Maybe StorageInfo) getWebkitStorageInfo self = liftIO (nullableToMaybe <$> (js_getWebkitStorageInfo (self))) + +-- | +getWebkitStorageInfoUnchecked :: + (MonadIO m) => Window -> m StorageInfo +getWebkitStorageInfoUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getWebkitStorageInfo (self))) foreign import javascript unsafe "$1[\"speechSynthesis\"]" js_getSpeechSynthesis :: Window -> IO (Nullable SpeechSynthesis) @@ -479,6 +759,13 @@ (MonadIO m) => Window -> m (Maybe SpeechSynthesis) getSpeechSynthesis self = liftIO (nullableToMaybe <$> (js_getSpeechSynthesis (self))) + +-- | +getSpeechSynthesisUnchecked :: + (MonadIO m) => Window -> m SpeechSynthesis +getSpeechSynthesisUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getSpeechSynthesis (self))) foreign import javascript unsafe "$1[\"screen\"]" js_getScreen :: Window -> IO (Nullable Screen) @@ -486,6 +773,11 @@ -- | getScreen :: (MonadIO m) => Window -> m (Maybe Screen) getScreen self = liftIO (nullableToMaybe <$> (js_getScreen (self))) + +-- | +getScreenUnchecked :: (MonadIO m) => Window -> m Screen +getScreenUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getScreen (self))) foreign import javascript unsafe "$1[\"history\"]" js_getHistory :: Window -> IO (Nullable History) @@ -494,6 +786,11 @@ getHistory :: (MonadIO m) => Window -> m (Maybe History) getHistory self = liftIO (nullableToMaybe <$> (js_getHistory (self))) + +-- | +getHistoryUnchecked :: (MonadIO m) => Window -> m History +getHistoryUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getHistory (self))) foreign import javascript unsafe "$1[\"locationbar\"]" js_getLocationbar :: Window -> IO (Nullable BarProp) @@ -502,6 +799,12 @@ getLocationbar :: (MonadIO m) => Window -> m (Maybe BarProp) getLocationbar self = liftIO (nullableToMaybe <$> (js_getLocationbar (self))) + +-- | +getLocationbarUnchecked :: (MonadIO m) => Window -> m BarProp +getLocationbarUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getLocationbar (self))) foreign import javascript unsafe "$1[\"menubar\"]" js_getMenubar :: Window -> IO (Nullable BarProp) @@ -510,6 +813,11 @@ getMenubar :: (MonadIO m) => Window -> m (Maybe BarProp) getMenubar self = liftIO (nullableToMaybe <$> (js_getMenubar (self))) + +-- | +getMenubarUnchecked :: (MonadIO m) => Window -> m BarProp +getMenubarUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getMenubar (self))) foreign import javascript unsafe "$1[\"personalbar\"]" js_getPersonalbar :: Window -> IO (Nullable BarProp) @@ -518,6 +826,12 @@ getPersonalbar :: (MonadIO m) => Window -> m (Maybe BarProp) getPersonalbar self = liftIO (nullableToMaybe <$> (js_getPersonalbar (self))) + +-- | +getPersonalbarUnchecked :: (MonadIO m) => Window -> m BarProp +getPersonalbarUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getPersonalbar (self))) foreign import javascript unsafe "$1[\"scrollbars\"]" js_getScrollbars :: Window -> IO (Nullable BarProp) @@ -526,6 +840,11 @@ getScrollbars :: (MonadIO m) => Window -> m (Maybe BarProp) getScrollbars self = liftIO (nullableToMaybe <$> (js_getScrollbars (self))) + +-- | +getScrollbarsUnchecked :: (MonadIO m) => Window -> m BarProp +getScrollbarsUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getScrollbars (self))) foreign import javascript unsafe "$1[\"statusbar\"]" js_getStatusbar :: Window -> IO (Nullable BarProp) @@ -534,6 +853,11 @@ getStatusbar :: (MonadIO m) => Window -> m (Maybe BarProp) getStatusbar self = liftIO (nullableToMaybe <$> (js_getStatusbar (self))) + +-- | +getStatusbarUnchecked :: (MonadIO m) => Window -> m BarProp +getStatusbarUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getStatusbar (self))) foreign import javascript unsafe "$1[\"toolbar\"]" js_getToolbar :: Window -> IO (Nullable BarProp) @@ -542,6 +866,11 @@ getToolbar :: (MonadIO m) => Window -> m (Maybe BarProp) getToolbar self = liftIO (nullableToMaybe <$> (js_getToolbar (self))) + +-- | +getToolbarUnchecked :: (MonadIO m) => Window -> m BarProp +getToolbarUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getToolbar (self))) foreign import javascript unsafe "$1[\"navigator\"]" js_getNavigator :: Window -> IO (Nullable Navigator) @@ -550,6 +879,11 @@ getNavigator :: (MonadIO m) => Window -> m (Maybe Navigator) getNavigator self = liftIO (nullableToMaybe <$> (js_getNavigator (self))) + +-- | +getNavigatorUnchecked :: (MonadIO m) => Window -> m Navigator +getNavigatorUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getNavigator (self))) foreign import javascript unsafe "$1[\"clientInformation\"]" js_getClientInformation :: Window -> IO (Nullable Navigator) @@ -559,6 +893,13 @@ (MonadIO m) => Window -> m (Maybe Navigator) getClientInformation self = liftIO (nullableToMaybe <$> (js_getClientInformation (self))) + +-- | +getClientInformationUnchecked :: + (MonadIO m) => Window -> m Navigator +getClientInformationUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getClientInformation (self))) foreign import javascript unsafe "$1[\"crypto\"]" js_getCrypto :: Window -> IO (Nullable Crypto) @@ -566,6 +907,11 @@ -- | getCrypto :: (MonadIO m) => Window -> m (Maybe Crypto) getCrypto self = liftIO (nullableToMaybe <$> (js_getCrypto (self))) + +-- | +getCryptoUnchecked :: (MonadIO m) => Window -> m Crypto +getCryptoUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getCrypto (self))) foreign import javascript unsafe "$1[\"location\"] = $2;" js_setLocation :: Window -> Nullable Location -> IO () @@ -582,6 +928,11 @@ getLocation :: (MonadIO m) => Window -> m (Maybe Location) getLocation self = liftIO (nullableToMaybe <$> (js_getLocation (self))) + +-- | +getLocationUnchecked :: (MonadIO m) => Window -> m Location +getLocationUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getLocation (self))) foreign import javascript unsafe "$1[\"event\"]" js_getEvent :: Window -> IO (Nullable Event) @@ -589,6 +940,11 @@ -- | getEvent :: (MonadIO m) => Window -> m (Maybe Event) getEvent self = liftIO (nullableToMaybe <$> (js_getEvent (self))) + +-- | +getEventUnchecked :: (MonadIO m) => Window -> m Event +getEventUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getEvent (self))) foreign import javascript unsafe "$1[\"frameElement\"]" js_getFrameElement :: Window -> IO (Nullable Element) @@ -597,6 +953,12 @@ getFrameElement :: (MonadIO m) => Window -> m (Maybe Element) getFrameElement self = liftIO (nullableToMaybe <$> (js_getFrameElement (self))) + +-- | +getFrameElementUnchecked :: (MonadIO m) => Window -> m Element +getFrameElementUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getFrameElement (self))) foreign import javascript unsafe "($1[\"offscreenBuffering\"] ? 1 : 0)" js_getOffscreenBuffering :: @@ -775,6 +1137,11 @@ -- | getSelf :: (MonadIO m) => Window -> m (Maybe Window) getSelf self = liftIO (nullableToMaybe <$> (js_getSelf (self))) + +-- | +getSelfUnchecked :: (MonadIO m) => Window -> m Window +getSelfUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getSelf (self))) foreign import javascript unsafe "$1[\"window\"]" js_getWindow :: Window -> IO (Nullable Window) @@ -782,6 +1149,11 @@ -- | getWindow :: (MonadIO m) => Window -> m (Maybe Window) getWindow self = liftIO (nullableToMaybe <$> (js_getWindow (self))) + +-- | +getWindowUnchecked :: (MonadIO m) => Window -> m Window +getWindowUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getWindow (self))) foreign import javascript unsafe "$1[\"frames\"]" js_getFrames :: Window -> IO (Nullable Window) @@ -789,6 +1161,11 @@ -- | getFrames :: (MonadIO m) => Window -> m (Maybe Window) getFrames self = liftIO (nullableToMaybe <$> (js_getFrames (self))) + +-- | +getFramesUnchecked :: (MonadIO m) => Window -> m Window +getFramesUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getFrames (self))) foreign import javascript unsafe "$1[\"opener\"]" js_getOpener :: Window -> IO (Nullable Window) @@ -796,6 +1173,11 @@ -- | getOpener :: (MonadIO m) => Window -> m (Maybe Window) getOpener self = liftIO (nullableToMaybe <$> (js_getOpener (self))) + +-- | +getOpenerUnchecked :: (MonadIO m) => Window -> m Window +getOpenerUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getOpener (self))) foreign import javascript unsafe "$1[\"parent\"]" js_getParent :: Window -> IO (Nullable Window) @@ -803,6 +1185,11 @@ -- | getParent :: (MonadIO m) => Window -> m (Maybe Window) getParent self = liftIO (nullableToMaybe <$> (js_getParent (self))) + +-- | +getParentUnchecked :: (MonadIO m) => Window -> m Window +getParentUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getParent (self))) foreign import javascript unsafe "$1[\"top\"]" js_getTop :: Window -> IO (Nullable Window) @@ -810,6 +1197,11 @@ -- | getTop :: (MonadIO m) => Window -> m (Maybe Window) getTop self = liftIO (nullableToMaybe <$> (js_getTop (self))) + +-- | +getTopUnchecked :: (MonadIO m) => Window -> m Window +getTopUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getTop (self))) foreign import javascript unsafe "$1[\"document\"]" js_getDocument :: Window -> IO (Nullable Document) @@ -818,6 +1210,11 @@ getDocument :: (MonadIO m) => Window -> m (Maybe Document) getDocument self = liftIO (nullableToMaybe <$> (js_getDocument (self))) + +-- | +getDocumentUnchecked :: (MonadIO m) => Window -> m Document +getDocumentUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getDocument (self))) foreign import javascript unsafe "$1[\"styleMedia\"]" js_getStyleMedia :: Window -> IO (Nullable StyleMedia) @@ -826,6 +1223,11 @@ getStyleMedia :: (MonadIO m) => Window -> m (Maybe StyleMedia) getStyleMedia self = liftIO (nullableToMaybe <$> (js_getStyleMedia (self))) + +-- | +getStyleMediaUnchecked :: (MonadIO m) => Window -> m StyleMedia +getStyleMediaUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getStyleMedia (self))) foreign import javascript unsafe "$1[\"devicePixelRatio\"]" js_getDevicePixelRatio :: Window -> IO Double @@ -842,6 +1244,13 @@ (MonadIO m) => Window -> m (Maybe ApplicationCache) getApplicationCache self = liftIO (nullableToMaybe <$> (js_getApplicationCache (self))) + +-- | +getApplicationCacheUnchecked :: + (MonadIO m) => Window -> m ApplicationCache +getApplicationCacheUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getApplicationCache (self))) foreign import javascript unsafe "$1[\"sessionStorage\"]" js_getSessionStorage :: Window -> IO (Nullable Storage) @@ -850,6 +1259,12 @@ getSessionStorage :: (MonadIO m) => Window -> m (Maybe Storage) getSessionStorage self = liftIO (nullableToMaybe <$> (js_getSessionStorage (self))) + +-- | +getSessionStorageUnchecked :: (MonadIO m) => Window -> m Storage +getSessionStorageUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getSessionStorage (self))) foreign import javascript unsafe "$1[\"localStorage\"]" js_getLocalStorage :: Window -> IO (Nullable Storage) @@ -858,6 +1273,12 @@ getLocalStorage :: (MonadIO m) => Window -> m (Maybe Storage) getLocalStorage self = liftIO (nullableToMaybe <$> (js_getLocalStorage (self))) + +-- | +getLocalStorageUnchecked :: (MonadIO m) => Window -> m Storage +getLocalStorageUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getLocalStorage (self))) foreign import javascript unsafe "$1[\"orientation\"]" js_getOrientation :: Window -> IO Int @@ -873,6 +1294,12 @@ getPerformance :: (MonadIO m) => Window -> m (Maybe Performance) getPerformance self = liftIO (nullableToMaybe <$> (js_getPerformance (self))) + +-- | +getPerformanceUnchecked :: (MonadIO m) => Window -> m Performance +getPerformanceUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getPerformance (self))) foreign import javascript unsafe "$1[\"CSS\"]" js_getCSS :: Window -> IO (Nullable CSS) @@ -880,6 +1307,11 @@ -- | getCSS :: (MonadIO m) => Window -> m (Maybe CSS) getCSS self = liftIO (nullableToMaybe <$> (js_getCSS (self))) + +-- | +getCSSUnchecked :: (MonadIO m) => Window -> m CSS +getCSSUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getCSS (self))) -- | abort :: EventName Window UIEvent diff --git a/src/GHCJS/DOM/JSFFI/Generated/WindowBase64.hs b/src/GHCJS/DOM/JSFFI/Generated/WindowBase64.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WindowBase64.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WindowBase64.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.WindowBase64 - (js_atob, atob, js_btoa, btoa, WindowBase64, castToWindowBase64, - gTypeWindowBase64) + (js_atob, atob, atob_, js_btoa, btoa, btoa_, WindowBase64, + castToWindowBase64, gTypeWindowBase64) 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) @@ -27,6 +29,12 @@ WindowBase64 -> string -> m result atob self string = liftIO (fromJSString <$> (js_atob (self) (toJSString string))) + +-- | +atob_ :: + (MonadIO m, ToJSString string) => WindowBase64 -> string -> m () +atob_ self string + = liftIO (void (js_atob (self) (toJSString string))) foreign import javascript unsafe "$1[\"btoa\"]($2)" js_btoa :: WindowBase64 -> JSString -> IO JSString @@ -37,3 +45,9 @@ WindowBase64 -> string -> m result btoa self string = liftIO (fromJSString <$> (js_btoa (self) (toJSString string))) + +-- | +btoa_ :: + (MonadIO m, ToJSString string) => WindowBase64 -> string -> m () +btoa_ self string + = liftIO (void (js_btoa (self) (toJSString string))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WindowTimers.hs b/src/GHCJS/DOM/JSFFI/Generated/WindowTimers.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WindowTimers.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WindowTimers.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.WindowTimers - (js_setTimeout, setTimeout, js_clearTimeout, clearTimeout, - js_setInterval, setInterval, js_clearInterval, clearInterval, - WindowTimers, castToWindowTimers, gTypeWindowTimers) + (js_setTimeout, setTimeout, setTimeout_, js_clearTimeout, + clearTimeout, js_setInterval, setInterval, setInterval_, + js_clearInterval, clearInterval, WindowTimers, castToWindowTimers, + gTypeWindowTimers) 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,11 @@ setTimeout :: (MonadIO m) => WindowTimers -> JSVal -> Int -> m Int setTimeout self handler timeout = liftIO (js_setTimeout (self) handler timeout) + +-- | +setTimeout_ :: (MonadIO m) => WindowTimers -> JSVal -> Int -> m () +setTimeout_ self handler timeout + = liftIO (void (js_setTimeout (self) handler timeout)) foreign import javascript unsafe "$1[\"clearTimeout\"]($2)" js_clearTimeout :: WindowTimers -> Int -> IO () @@ -41,6 +49,11 @@ setInterval :: (MonadIO m) => WindowTimers -> JSVal -> Int -> m Int setInterval self handler timeout = liftIO (js_setInterval (self) handler timeout) + +-- | +setInterval_ :: (MonadIO m) => WindowTimers -> JSVal -> Int -> m () +setInterval_ self handler timeout + = liftIO (void (js_setInterval (self) handler timeout)) foreign import javascript unsafe "$1[\"clearInterval\"]($2)" js_clearInterval :: WindowTimers -> Int -> IO () diff --git a/src/GHCJS/DOM/JSFFI/Generated/Worker.hs b/src/GHCJS/DOM/JSFFI/Generated/Worker.hs --- a/src/GHCJS/DOM/JSFFI/Generated/Worker.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/Worker.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WorkerGlobalScope.hs b/src/GHCJS/DOM/JSFFI/Generated/WorkerGlobalScope.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WorkerGlobalScope.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WorkerGlobalScope.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.WorkerGlobalScope (js_close, close, js_importScripts, importScripts, js_getSelf, - getSelf, js_getLocation, getLocation, error, offline, online, - js_getNavigator, getNavigator, WorkerGlobalScope, + getSelf, getSelfUnchecked, js_getLocation, getLocation, + getLocationUnchecked, error, offline, online, js_getNavigator, + getNavigator, getNavigatorUnchecked, WorkerGlobalScope, castToWorkerGlobalScope, gTypeWorkerGlobalScope, IsWorkerGlobalScope, toWorkerGlobalScope) 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) @@ -47,6 +50,15 @@ getSelf self = liftIO (nullableToMaybe <$> (js_getSelf (toWorkerGlobalScope self))) + +-- | +getSelfUnchecked :: + (MonadIO m, IsWorkerGlobalScope self) => + self -> m WorkerGlobalScope +getSelfUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getSelf (toWorkerGlobalScope self))) foreign import javascript unsafe "$1[\"location\"]" js_getLocation :: WorkerGlobalScope -> IO (Nullable WorkerLocation) @@ -59,6 +71,14 @@ = liftIO (nullableToMaybe <$> (js_getLocation (toWorkerGlobalScope self))) +-- | +getLocationUnchecked :: + (MonadIO m, IsWorkerGlobalScope self) => self -> m WorkerLocation +getLocationUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getLocation (toWorkerGlobalScope self))) + -- | error :: (IsWorkerGlobalScope self, IsEventTarget self) => @@ -88,3 +108,11 @@ getNavigator self = liftIO (nullableToMaybe <$> (js_getNavigator (toWorkerGlobalScope self))) + +-- | +getNavigatorUnchecked :: + (MonadIO m, IsWorkerGlobalScope self) => self -> m WorkerNavigator +getNavigatorUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getNavigator (toWorkerGlobalScope self))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/WorkerLocation.hs b/src/GHCJS/DOM/JSFFI/Generated/WorkerLocation.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WorkerLocation.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WorkerLocation.hs @@ -1,9 +1,9 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.WorkerLocation - (js_toString, toString, js_getHref, getHref, js_getProtocol, - getProtocol, js_getHost, getHost, js_getHostname, getHostname, - js_getPort, getPort, js_getPathname, getPathname, js_getSearch, - getSearch, js_getHash, getHash, WorkerLocation, + (js_toString, toString, toString_, js_getHref, getHref, + js_getProtocol, getProtocol, js_getHost, getHost, js_getHostname, + getHostname, js_getPort, getPort, js_getPathname, getPathname, + js_getSearch, getSearch, js_getHash, getHash, WorkerLocation, castToWorkerLocation, gTypeWorkerLocation) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) @@ -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) @@ -28,6 +30,10 @@ toString :: (MonadIO m, FromJSString result) => WorkerLocation -> m result toString self = liftIO (fromJSString <$> (js_toString (self))) + +-- | +toString_ :: (MonadIO m) => WorkerLocation -> m () +toString_ self = liftIO (void (js_toString (self))) foreign import javascript unsafe "$1[\"href\"]" js_getHref :: WorkerLocation -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/WorkerNavigator.hs b/src/GHCJS/DOM/JSFFI/Generated/WorkerNavigator.hs --- a/src/GHCJS/DOM/JSFFI/Generated/WorkerNavigator.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/WorkerNavigator.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.WorkerNavigator (js_getWebkitTemporaryStorage, getWebkitTemporaryStorage, - js_getWebkitPersistentStorage, getWebkitPersistentStorage, + getWebkitTemporaryStorageUnchecked, js_getWebkitPersistentStorage, + getWebkitPersistentStorage, getWebkitPersistentStorageUnchecked, js_getAppName, getAppName, js_getAppVersion, getAppVersion, js_getPlatform, getPlatform, js_getUserAgent, getUserAgent, js_getOnLine, getOnLine, WorkerNavigator, castToWorkerNavigator, @@ -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,14 @@ getWebkitTemporaryStorage self = liftIO (nullableToMaybe <$> (js_getWebkitTemporaryStorage (self))) + +-- | +getWebkitTemporaryStorageUnchecked :: + (MonadIO m) => WorkerNavigator -> m StorageQuota +getWebkitTemporaryStorageUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getWebkitTemporaryStorage (self))) foreign import javascript unsafe "$1[\"webkitPersistentStorage\"]" js_getWebkitPersistentStorage :: @@ -43,6 +54,14 @@ getWebkitPersistentStorage self = liftIO (nullableToMaybe <$> (js_getWebkitPersistentStorage (self))) + +-- | +getWebkitPersistentStorageUnchecked :: + (MonadIO m) => WorkerNavigator -> m StorageQuota +getWebkitPersistentStorageUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> + (js_getWebkitPersistentStorage (self))) foreign import javascript unsafe "$1[\"appName\"]" js_getAppName :: WorkerNavigator -> IO JSString diff --git a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequest.hs b/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequest.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequest.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequest.hs @@ -3,19 +3,22 @@ (js_newXMLHttpRequest, newXMLHttpRequest, js_open, open, js_setRequestHeader, setRequestHeader, js_send, send, js_abort, abort, js_getAllResponseHeaders, getAllResponseHeaders, - js_getResponseHeader, getResponseHeader, js_overrideMimeType, - overrideMimeType, pattern UNSENT, pattern OPENED, - pattern HEADERS_RECEIVED, pattern LOADING, pattern DONE, - abortEvent, error, load, loadEnd, loadStart, progress, timeout, - readyStateChange, js_setTimeout, setTimeout, js_getTimeout, - getTimeout, js_getReadyState, getReadyState, js_setWithCredentials, - setWithCredentials, js_getWithCredentials, getWithCredentials, - js_getUpload, getUpload, js_getResponseText, getResponseText, - js_getResponseXML, getResponseXML, js_setResponseType, - setResponseType, js_getResponseType, getResponseType, - js_getResponse, getResponse, js_getStatus, getStatus, - js_getStatusText, getStatusText, js_getResponseURL, getResponseURL, - XMLHttpRequest, castToXMLHttpRequest, gTypeXMLHttpRequest) + getAllResponseHeaders_, getAllResponseHeadersUnchecked, + js_getResponseHeader, getResponseHeader, getResponseHeader_, + getResponseHeaderUnchecked, js_overrideMimeType, overrideMimeType, + pattern UNSENT, pattern OPENED, pattern HEADERS_RECEIVED, + pattern LOADING, pattern DONE, abortEvent, error, load, loadEnd, + loadStart, progress, timeout, readyStateChange, js_setTimeout, + setTimeout, js_getTimeout, getTimeout, js_getReadyState, + getReadyState, js_setWithCredentials, setWithCredentials, + js_getWithCredentials, getWithCredentials, js_getUpload, getUpload, + getUploadUnchecked, js_getResponseText, getResponseText, + getResponseTextUnchecked, js_getResponseXML, getResponseXML, + getResponseXMLUnchecked, js_setResponseType, setResponseType, + js_getResponseType, getResponseType, js_getResponse, getResponse, + getResponseUnchecked, js_getStatus, getStatus, js_getStatusText, + getStatusText, js_getResponseURL, getResponseURL, XMLHttpRequest, + castToXMLHttpRequest, gTypeXMLHttpRequest) 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) @@ -91,6 +96,19 @@ XMLHttpRequest -> m (Maybe result) getAllResponseHeaders self = liftIO (fromMaybeJSString <$> (js_getAllResponseHeaders (self))) + +-- | +getAllResponseHeaders_ :: (MonadIO m) => XMLHttpRequest -> m () +getAllResponseHeaders_ self + = liftIO (void (js_getAllResponseHeaders (self))) + +-- | +getAllResponseHeadersUnchecked :: + (MonadIO m, FromJSString result) => XMLHttpRequest -> m result +getAllResponseHeadersUnchecked self + = liftIO + (fromJust . fromMaybeJSString <$> + (js_getAllResponseHeaders (self))) foreign import javascript unsafe "$1[\"getResponseHeader\"]($2)" js_getResponseHeader :: @@ -104,6 +122,21 @@ = liftIO (fromMaybeJSString <$> (js_getResponseHeader (self) (toJSString header))) + +-- | +getResponseHeader_ :: + (MonadIO m, ToJSString header) => XMLHttpRequest -> header -> m () +getResponseHeader_ self header + = liftIO (void (js_getResponseHeader (self) (toJSString header))) + +-- | +getResponseHeaderUnchecked :: + (MonadIO m, ToJSString header, FromJSString result) => + XMLHttpRequest -> header -> m result +getResponseHeaderUnchecked self header + = liftIO + (fromJust . fromMaybeJSString <$> + (js_getResponseHeader (self) (toJSString header))) foreign import javascript unsafe "$1[\"overrideMimeType\"]($2)" js_overrideMimeType :: XMLHttpRequest -> JSString -> IO () @@ -196,6 +229,12 @@ getUpload :: (MonadIO m) => XMLHttpRequest -> m (Maybe XMLHttpRequestUpload) getUpload self = liftIO (nullableToMaybe <$> (js_getUpload (self))) + +-- | +getUploadUnchecked :: + (MonadIO m) => XMLHttpRequest -> m XMLHttpRequestUpload +getUploadUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getUpload (self))) foreign import javascript unsafe "$1[\"responseText\"]" js_getResponseText :: XMLHttpRequest -> IO (Nullable JSString) @@ -206,6 +245,13 @@ XMLHttpRequest -> m (Maybe result) getResponseText self = liftIO (fromMaybeJSString <$> (js_getResponseText (self))) + +-- | +getResponseTextUnchecked :: + (MonadIO m, FromJSString result) => XMLHttpRequest -> m result +getResponseTextUnchecked self + = liftIO + (fromJust . fromMaybeJSString <$> (js_getResponseText (self))) foreign import javascript unsafe "$1[\"responseXML\"]" js_getResponseXML :: XMLHttpRequest -> IO (Nullable Document) @@ -215,6 +261,13 @@ (MonadIO m) => XMLHttpRequest -> m (Maybe Document) getResponseXML self = liftIO (nullableToMaybe <$> (js_getResponseXML (self))) + +-- | +getResponseXMLUnchecked :: + (MonadIO m) => XMLHttpRequest -> m Document +getResponseXMLUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getResponseXML (self))) foreign import javascript unsafe "$1[\"responseType\"] = $2;" js_setResponseType :: XMLHttpRequest -> JSVal -> IO () @@ -241,6 +294,11 @@ getResponse :: (MonadIO m) => XMLHttpRequest -> m (Maybe GObject) getResponse self = liftIO (nullableToMaybe <$> (js_getResponse (self))) + +-- | +getResponseUnchecked :: (MonadIO m) => XMLHttpRequest -> m GObject +getResponseUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_getResponse (self))) foreign import javascript unsafe "$1[\"status\"]" js_getStatus :: XMLHttpRequest -> IO Word diff --git a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestProgressEvent.hs b/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestProgressEvent.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestProgressEvent.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestProgressEvent.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestUpload.hs b/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestUpload.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestUpload.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XMLHttpRequestUpload.hs @@ -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) diff --git a/src/GHCJS/DOM/JSFFI/Generated/XMLSerializer.hs b/src/GHCJS/DOM/JSFFI/Generated/XMLSerializer.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XMLSerializer.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XMLSerializer.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.XMLSerializer (js_newXMLSerializer, newXMLSerializer, js_serializeToString, - serializeToString, XMLSerializer, castToXMLSerializer, - gTypeXMLSerializer) + serializeToString, serializeToString_, XMLSerializer, + castToXMLSerializer, gTypeXMLSerializer) 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) @@ -37,4 +39,12 @@ serializeToString self node = liftIO (fromJSString <$> + (js_serializeToString (self) (maybeToNullable (fmap toNode node)))) + +-- | +serializeToString_ :: + (MonadIO m, IsNode node) => XMLSerializer -> Maybe node -> m () +serializeToString_ self node + = liftIO + (void (js_serializeToString (self) (maybeToNullable (fmap toNode node)))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/XPathEvaluator.hs b/src/GHCJS/DOM/JSFFI/Generated/XPathEvaluator.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XPathEvaluator.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XPathEvaluator.hs @@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.XPathEvaluator (js_newXPathEvaluator, newXPathEvaluator, js_createExpression, - createExpression, js_createNSResolver, createNSResolver, - js_evaluate, evaluate, XPathEvaluator, castToXPathEvaluator, + createExpression, createExpression_, createExpressionUnchecked, + js_createNSResolver, createNSResolver, createNSResolver_, + createNSResolverUnchecked, js_evaluate, evaluate, evaluate_, + evaluateUnchecked, XPathEvaluator, castToXPathEvaluator, gTypeXPathEvaluator) 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) @@ -43,6 +47,27 @@ (nullableToMaybe <$> (js_createExpression (self) (toJSString expression) (maybeToNullable resolver))) + +-- | +createExpression_ :: + (MonadIO m, ToJSString expression) => + XPathEvaluator -> expression -> Maybe XPathNSResolver -> m () +createExpression_ self expression resolver + = liftIO + (void + (js_createExpression (self) (toJSString expression) + (maybeToNullable resolver))) + +-- | +createExpressionUnchecked :: + (MonadIO m, ToJSString expression) => + XPathEvaluator -> + expression -> Maybe XPathNSResolver -> m XPathExpression +createExpressionUnchecked self expression resolver + = liftIO + (fromJust . nullableToMaybe <$> + (js_createExpression (self) (toJSString expression) + (maybeToNullable resolver))) foreign import javascript unsafe "$1[\"createNSResolver\"]($2)" js_createNSResolver :: @@ -57,6 +82,26 @@ (nullableToMaybe <$> (js_createNSResolver (self) (maybeToNullable (fmap toNode nodeResolver)))) + +-- | +createNSResolver_ :: + (MonadIO m, IsNode nodeResolver) => + XPathEvaluator -> Maybe nodeResolver -> m () +createNSResolver_ self nodeResolver + = liftIO + (void + (js_createNSResolver (self) + (maybeToNullable (fmap toNode nodeResolver)))) + +-- | +createNSResolverUnchecked :: + (MonadIO m, IsNode nodeResolver) => + XPathEvaluator -> Maybe nodeResolver -> m XPathNSResolver +createNSResolverUnchecked self nodeResolver + = liftIO + (fromJust . nullableToMaybe <$> + (js_createNSResolver (self) + (maybeToNullable (fmap toNode nodeResolver)))) foreign import javascript unsafe "$1[\"evaluate\"]($2, $3, $4, $5,\n$6)" js_evaluate :: @@ -77,6 +122,39 @@ evaluate self expression contextNode resolver type' inResult = liftIO (nullableToMaybe <$> + (js_evaluate (self) (toJSString expression) + (maybeToNullable (fmap toNode contextNode)) + (maybeToNullable resolver) + type' + (maybeToNullable inResult))) + +-- | +evaluate_ :: + (MonadIO m, ToJSString expression, IsNode contextNode) => + XPathEvaluator -> + expression -> + Maybe contextNode -> + Maybe XPathNSResolver -> Word -> Maybe XPathResult -> m () +evaluate_ self expression contextNode resolver type' inResult + = liftIO + (void + (js_evaluate (self) (toJSString expression) + (maybeToNullable (fmap toNode contextNode)) + (maybeToNullable resolver) + type' + (maybeToNullable inResult))) + +-- | +evaluateUnchecked :: + (MonadIO m, ToJSString expression, IsNode contextNode) => + XPathEvaluator -> + expression -> + Maybe contextNode -> + Maybe XPathNSResolver -> Word -> Maybe XPathResult -> m XPathResult +evaluateUnchecked self expression contextNode resolver type' + inResult + = liftIO + (fromJust . nullableToMaybe <$> (js_evaluate (self) (toJSString expression) (maybeToNullable (fmap toNode contextNode)) (maybeToNullable resolver) diff --git a/src/GHCJS/DOM/JSFFI/Generated/XPathExpression.hs b/src/GHCJS/DOM/JSFFI/Generated/XPathExpression.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XPathExpression.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XPathExpression.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.XPathExpression - (js_evaluate, evaluate, XPathExpression, castToXPathExpression, - gTypeXPathExpression) + (js_evaluate, evaluate, evaluate_, evaluateUnchecked, + XPathExpression, castToXPathExpression, gTypeXPathExpression) 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) @@ -33,6 +35,30 @@ evaluate self contextNode type' inResult = liftIO (nullableToMaybe <$> + (js_evaluate (self) (maybeToNullable (fmap toNode contextNode)) + type' + (maybeToNullable inResult))) + +-- | +evaluate_ :: + (MonadIO m, IsNode contextNode) => + XPathExpression -> + Maybe contextNode -> Word -> Maybe XPathResult -> m () +evaluate_ self contextNode type' inResult + = liftIO + (void + (js_evaluate (self) (maybeToNullable (fmap toNode contextNode)) + type' + (maybeToNullable inResult))) + +-- | +evaluateUnchecked :: + (MonadIO m, IsNode contextNode) => + XPathExpression -> + Maybe contextNode -> Word -> Maybe XPathResult -> m XPathResult +evaluateUnchecked self contextNode type' inResult + = liftIO + (fromJust . nullableToMaybe <$> (js_evaluate (self) (maybeToNullable (fmap toNode contextNode)) type' (maybeToNullable inResult))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/XPathNSResolver.hs b/src/GHCJS/DOM/JSFFI/Generated/XPathNSResolver.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XPathNSResolver.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XPathNSResolver.hs @@ -1,6 +1,7 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.XPathNSResolver - (js_lookupNamespaceURI, lookupNamespaceURI, XPathNSResolver, + (js_lookupNamespaceURI, lookupNamespaceURI, lookupNamespaceURI_, + lookupNamespaceURIUnchecked, XPathNSResolver, castToXPathNSResolver, gTypeXPathNSResolver) 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,4 +32,19 @@ lookupNamespaceURI self prefix = liftIO (fromMaybeJSString <$> + (js_lookupNamespaceURI (self) (toJSString prefix))) + +-- | +lookupNamespaceURI_ :: + (MonadIO m, ToJSString prefix) => XPathNSResolver -> prefix -> m () +lookupNamespaceURI_ self prefix + = liftIO (void (js_lookupNamespaceURI (self) (toJSString prefix))) + +-- | +lookupNamespaceURIUnchecked :: + (MonadIO m, ToJSString prefix, FromJSString result) => + XPathNSResolver -> prefix -> m result +lookupNamespaceURIUnchecked self prefix + = liftIO + (fromJust . fromMaybeJSString <$> (js_lookupNamespaceURI (self) (toJSString prefix))) diff --git a/src/GHCJS/DOM/JSFFI/Generated/XPathResult.hs b/src/GHCJS/DOM/JSFFI/Generated/XPathResult.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XPathResult.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XPathResult.hs @@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.XPathResult - (js_iterateNext, iterateNext, js_snapshotItem, snapshotItem, - pattern ANY_TYPE, pattern NUMBER_TYPE, pattern STRING_TYPE, - pattern BOOLEAN_TYPE, pattern UNORDERED_NODE_ITERATOR_TYPE, + (js_iterateNext, iterateNext, iterateNext_, iterateNextUnchecked, + js_snapshotItem, snapshotItem, snapshotItem_, + snapshotItemUnchecked, pattern ANY_TYPE, pattern NUMBER_TYPE, + pattern STRING_TYPE, pattern BOOLEAN_TYPE, + pattern UNORDERED_NODE_ITERATOR_TYPE, pattern ORDERED_NODE_ITERATOR_TYPE, pattern UNORDERED_NODE_SNAPSHOT_TYPE, pattern ORDERED_NODE_SNAPSHOT_TYPE, @@ -10,9 +12,9 @@ js_getResultType, getResultType, js_getNumberValue, getNumberValue, js_getStringValue, getStringValue, js_getBooleanValue, getBooleanValue, js_getSingleNodeValue, getSingleNodeValue, - js_getInvalidIteratorState, getInvalidIteratorState, - js_getSnapshotLength, getSnapshotLength, XPathResult, - castToXPathResult, gTypeXPathResult) + getSingleNodeValueUnchecked, js_getInvalidIteratorState, + getInvalidIteratorState, js_getSnapshotLength, getSnapshotLength, + XPathResult, castToXPathResult, gTypeXPathResult) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) @@ -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) @@ -36,6 +40,15 @@ iterateNext :: (MonadIO m) => XPathResult -> m (Maybe Node) iterateNext self = liftIO (nullableToMaybe <$> (js_iterateNext (self))) + +-- | +iterateNext_ :: (MonadIO m) => XPathResult -> m () +iterateNext_ self = liftIO (void (js_iterateNext (self))) + +-- | +iterateNextUnchecked :: (MonadIO m) => XPathResult -> m Node +iterateNextUnchecked self + = liftIO (fromJust . nullableToMaybe <$> (js_iterateNext (self))) foreign import javascript unsafe "$1[\"snapshotItem\"]($2)" js_snapshotItem :: XPathResult -> Word -> IO (Nullable Node) @@ -45,6 +58,18 @@ (MonadIO m) => XPathResult -> Word -> m (Maybe Node) snapshotItem self index = liftIO (nullableToMaybe <$> (js_snapshotItem (self) index)) + +-- | +snapshotItem_ :: (MonadIO m) => XPathResult -> Word -> m () +snapshotItem_ self index + = liftIO (void (js_snapshotItem (self) index)) + +-- | +snapshotItemUnchecked :: + (MonadIO m) => XPathResult -> Word -> m Node +snapshotItemUnchecked self index + = liftIO + (fromJust . nullableToMaybe <$> (js_snapshotItem (self) index)) pattern ANY_TYPE = 0 pattern NUMBER_TYPE = 1 pattern STRING_TYPE = 2 @@ -93,6 +118,12 @@ getSingleNodeValue :: (MonadIO m) => XPathResult -> m (Maybe Node) getSingleNodeValue self = liftIO (nullableToMaybe <$> (js_getSingleNodeValue (self))) + +-- | +getSingleNodeValueUnchecked :: (MonadIO m) => XPathResult -> m Node +getSingleNodeValueUnchecked self + = liftIO + (fromJust . nullableToMaybe <$> (js_getSingleNodeValue (self))) foreign import javascript unsafe "($1[\"invalidIteratorState\"] ? 1 : 0)" js_getInvalidIteratorState diff --git a/src/GHCJS/DOM/JSFFI/Generated/XSLTProcessor.hs b/src/GHCJS/DOM/JSFFI/Generated/XSLTProcessor.hs --- a/src/GHCJS/DOM/JSFFI/Generated/XSLTProcessor.hs +++ b/src/GHCJS/DOM/JSFFI/Generated/XSLTProcessor.hs @@ -2,10 +2,13 @@ module GHCJS.DOM.JSFFI.Generated.XSLTProcessor (js_newXSLTProcessor, newXSLTProcessor, js_importStylesheet, importStylesheet, js_transformToFragment, transformToFragment, - js_transformToDocument, transformToDocument, js_setParameter, - setParameter, js_getParameter, getParameter, js_removeParameter, - removeParameter, js_clearParameters, clearParameters, js_reset, - reset, XSLTProcessor, castToXSLTProcessor, gTypeXSLTProcessor) + transformToFragment_, transformToFragmentUnchecked, + js_transformToDocument, transformToDocument, transformToDocument_, + transformToDocumentUnchecked, js_setParameter, setParameter, + js_getParameter, getParameter, getParameter_, + getParameterUnchecked, js_removeParameter, removeParameter, + js_clearParameters, clearParameters, js_reset, reset, + XSLTProcessor, castToXSLTProcessor, gTypeXSLTProcessor) 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) @@ -58,6 +63,28 @@ (js_transformToFragment (self) (maybeToNullable (fmap toNode source)) (maybeToNullable (fmap toDocument docVal)))) + +-- | +transformToFragment_ :: + (MonadIO m, IsNode source, IsDocument docVal) => + XSLTProcessor -> Maybe source -> Maybe docVal -> m () +transformToFragment_ self source docVal + = liftIO + (void + (js_transformToFragment (self) + (maybeToNullable (fmap toNode source)) + (maybeToNullable (fmap toDocument docVal)))) + +-- | +transformToFragmentUnchecked :: + (MonadIO m, IsNode source, IsDocument docVal) => + XSLTProcessor -> Maybe source -> Maybe docVal -> m DocumentFragment +transformToFragmentUnchecked self source docVal + = liftIO + (fromJust . nullableToMaybe <$> + (js_transformToFragment (self) + (maybeToNullable (fmap toNode source)) + (maybeToNullable (fmap toDocument docVal)))) foreign import javascript unsafe "$1[\"transformToDocument\"]($2)" js_transformToDocument :: @@ -72,6 +99,25 @@ (nullableToMaybe <$> (js_transformToDocument (self) (maybeToNullable (fmap toNode source)))) + +-- | +transformToDocument_ :: + (MonadIO m, IsNode source) => XSLTProcessor -> Maybe source -> m () +transformToDocument_ self source + = liftIO + (void + (js_transformToDocument (self) + (maybeToNullable (fmap toNode source)))) + +-- | +transformToDocumentUnchecked :: + (MonadIO m, IsNode source) => + XSLTProcessor -> Maybe source -> m Document +transformToDocumentUnchecked self source + = liftIO + (fromJust . nullableToMaybe <$> + (js_transformToDocument (self) + (maybeToNullable (fmap toNode source)))) foreign import javascript unsafe "$1[\"setParameter\"]($2, $3, $4)" js_setParameter :: @@ -100,6 +146,27 @@ getParameter self namespaceURI localName = liftIO (fromMaybeJSString <$> + (js_getParameter (self) (toJSString namespaceURI) + (toJSString localName))) + +-- | +getParameter_ :: + (MonadIO m, ToJSString namespaceURI, ToJSString localName) => + XSLTProcessor -> namespaceURI -> localName -> m () +getParameter_ self namespaceURI localName + = liftIO + (void + (js_getParameter (self) (toJSString namespaceURI) + (toJSString localName))) + +-- | +getParameterUnchecked :: + (MonadIO m, ToJSString namespaceURI, ToJSString localName, + FromJSString result) => + XSLTProcessor -> namespaceURI -> localName -> m result +getParameterUnchecked self namespaceURI localName + = liftIO + (fromJust . fromMaybeJSString <$> (js_getParameter (self) (toJSString namespaceURI) (toJSString localName))) diff --git a/src/GHCJS/DOM/Types.hs b/src/GHCJS/DOM/Types.hs --- a/src/GHCJS/DOM/Types.hs +++ b/src/GHCJS/DOM/Types.hs @@ -1,17 +1,29 @@ {-# LANGUAGE JavaScriptFFI, ForeignFunctionInterface, ConstraintKinds, FlexibleInstances #-} module GHCJS.DOM.Types ( - -- * Monad - DOM, DOMContext, MonadDOM, liftDOM, askDOM, runDOM + -- * JavaScript Context and Monad + JSContextRef(..), JSM, askJSM, runJSM, MonadJSM(..), liftJSM + -- * DOM Context and Monad + , DOMContext(..), DOM, askDOM, runDOM, MonadDOM(..), liftDOM + + -- * JavaScript Value + , JSVal(..), ToJSVal(..), FromJSVal(..) + + -- * JavaScript String + , JSString(..), ToJSString(..), FromJSString(..) + , toJSString, fromJSString, toMaybeJSString, fromMaybeJSString + + -- * Nullable + , Nullable(..), nullableToMaybe, maybeToNullable + + -- * DOM String + , DOMString(..), ToDOMString(..), FromDOMString(..), IsDOMString + -- * Object - , maybeJSNullOrUndefined, Nullable(..), nullableToMaybe, maybeToNullable, propagateGError, GType(..) + , maybeJSNullOrUndefined, GType(..) , GObject(..), IsGObject, toGObject, castToGObject, gTypeGObject, unsafeCastGObject, isA, objectToString , js_eq - -- * DOMString - , DOMString(..), ToDOMString(..), FromDOMString(..), IsDOMString, ToJSString(..), FromJSString(..) - , toJSString, fromJSString, toMaybeJSString, fromMaybeJSString - -- * Callbacks , AudioBufferCallback(..) , DatabaseCallback(..) @@ -667,20 +679,60 @@ import Data.Int (Int8, Int16, Int32, Int64) import Data.Word (Word8, Word16, Word32, Word64) -type DOM = IO +-- | Identifies a JavaScript execution context. +-- When using GHCJS this is just '()' since their is only one context. +-- When using GHC it includes the functions JSaddle needs to communicate +-- with the JavaScript context. +type JSContextRef = () + +-- | This is the same as 'JSContextRef' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) type DOMContext = () -askDOM :: MonadDOM m => m DOMContext -askDOM = return () +-- | The 'JSM' monad keeps track of the JavaScript execution context. +-- +-- When using GHCJS it is `IO`. +-- +-- Given a 'JSM' function and a 'JSContextRef' you can run the +-- function like this... +-- +-- > runJSM jsmFunction javaScriptContext +type JSM = IO -runDOM :: DOM a -> DOMContext -> IO a -runDOM = const +-- | This is the same as 'JSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) +type DOM = IO +-- | The 'MonadJSM' is to 'JSM' what 'MonadIO' is to 'IO'. +-- When using GHCJS it is 'MonadIO'. +type MonadJSM = MonadIO + +-- | This is the same as 'MonadJSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) type MonadDOM = MonadIO +-- | The 'liftJSM' is to 'JSM' what 'liftIO' is to 'IO'. +-- When using GHCJS it is 'liftIO'. +liftJSM :: MonadJSM m => JSM a -> m a +liftJSM = liftIO + +-- | This is the same as 'liftJSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) liftDOM :: DOM a -> DOM a liftDOM = liftIO +-- | Gets the JavaScript context from the monad +askJSM :: MonadJSM m => m JSContextRef +askJSM = return () + +-- | This is the same as 'askJSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) +askDOM :: MonadDOM m => m DOMContext +askDOM = return () + +-- | Runs a 'JSM' JavaScript function in a given JavaScript context. +runJSM :: MonadIO m => JSM a -> JSContextRef -> m a +runJSM f = liftIO . const f + +-- | This is the same as 'runJSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) +runDOM :: MonadIO m => DOM a -> DOMContext -> m a +runDOM f = liftIO . const f + maybeJSNullOrUndefined :: JSVal -> Maybe JSVal maybeJSNullOrUndefined r | isNull r || isUndefined r = Nothing maybeJSNullOrUndefined r = Just r @@ -803,7 +855,6 @@ type ToDOMString s = ToJSString s type FromDOMString s = FromJSString s - type IsDOMString s = (ToDOMString s, FromDOMString s) -- Callbacks