diff --git a/jsaddle-dom.cabal b/jsaddle-dom.cabal --- a/jsaddle-dom.cabal +++ b/jsaddle-dom.cabal @@ -1,5 +1,5 @@ name: jsaddle-dom -version: 0.4.0.1 +version: 0.4.1.0 cabal-version: >=1.22 build-type: Simple license: MIT @@ -1072,7 +1072,7 @@ base-compat >=0.9.0 && <0.10, transformers >=0.2 && <0.6, text >=0.11.0.6 && <1.3, - jsaddle >=0.5.0.0 && <0.6, + jsaddle >=0.5.1.0 && <0.6, lens >=4.12.3 && <4.15 default-language: Haskell2010 hs-source-dirs: src diff --git a/src/JSDOM.hs b/src/JSDOM.hs --- a/src/JSDOM.hs +++ b/src/JSDOM.hs @@ -5,13 +5,17 @@ , run , syncPoint , syncAfter +, waitForAnimationFrame +, nextAnimationFrame , catch , bracket ) where import JSDOM.Types - (FromJSVal(..), MonadDOM(..), Document(..), Window(..)) -import Language.Javascript.JSaddle (run, syncPoint, syncAfter, catch, bracket) + (FromJSVal(..), MonadDOM, liftDOM, Document(..), Window(..)) +import Language.Javascript.JSaddle + (run, syncPoint, syncAfter, waitForAnimationFrame, + nextAnimationFrame, catch, bracket) import Language.Javascript.JSaddle.Object (jsg) currentWindow :: MonadDOM m => m (Maybe Window) diff --git a/src/JSDOM/Custom/XMLHttpRequest.hs b/src/JSDOM/Custom/XMLHttpRequest.hs --- a/src/JSDOM/Custom/XMLHttpRequest.hs +++ b/src/JSDOM/Custom/XMLHttpRequest.hs @@ -22,7 +22,7 @@ (js0, js1, bracket, ToJSString, ToJSVal(..), JSVal) import JSDOM.Types - (DOM, MonadDOM(..), FormData(..), IsDocument, IsBlob, IsArrayBufferView) + (DOM, MonadDOM, liftDOM, FormData(..), IsDocument, IsBlob, IsArrayBufferView) import JSDOM.EventM (on) import JSDOM.Generated.XMLHttpRequest as Generated hiding (send) diff --git a/src/JSDOM/EventM.hs b/src/JSDOM/EventM.hs --- a/src/JSDOM/EventM.hs +++ b/src/JSDOM/EventM.hs @@ -79,9 +79,6 @@ type EventM t e = ReaderT e DOM -instance MonadDOM (ReaderT e DOM) where - liftDOM = lift - newListener :: (IsEvent e) => EventM t e () -> DOM (SaferEventListener t e) newListener f = eventListenerNew (runReaderT f) diff --git a/src/JSDOM/Generated/AbstractView.hs b/src/JSDOM/Generated/AbstractView.hs --- a/src/JSDOM/Generated/AbstractView.hs +++ b/src/JSDOM/Generated/AbstractView.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.AbstractView - (getDocument, getStyleMedia, AbstractView, castToAbstractView, + (getDocument, getDocumentUnchecked, getStyleMedia, + getStyleMediaUnchecked, AbstractView, castToAbstractView, gTypeAbstractView) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -20,8 +21,19 @@ getDocument :: (MonadDOM m) => AbstractView -> m (Maybe Document) getDocument self = liftDOM ((self ^. js "document") >>= fromJSVal) +-- | +getDocumentUnchecked :: (MonadDOM m) => AbstractView -> m Document +getDocumentUnchecked self + = liftDOM ((self ^. js "document") >>= fromJSValUnchecked) + -- | getStyleMedia :: (MonadDOM m) => AbstractView -> m (Maybe StyleMedia) getStyleMedia self = liftDOM ((self ^. js "styleMedia") >>= fromJSVal) + +-- | +getStyleMediaUnchecked :: + (MonadDOM m) => AbstractView -> m StyleMedia +getStyleMediaUnchecked self + = liftDOM ((self ^. js "styleMedia") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/AllAudioCapabilities.hs b/src/JSDOM/Generated/AllAudioCapabilities.hs --- a/src/JSDOM/Generated/AllAudioCapabilities.hs +++ b/src/JSDOM/Generated/AllAudioCapabilities.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.AllAudioCapabilities - (getSourceId, getVolume, AllAudioCapabilities, + (getSourceId, getVolume, getVolumeUnchecked, AllAudioCapabilities, castToAllAudioCapabilities, gTypeAllAudioCapabilities) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -27,3 +27,9 @@ getVolume :: (MonadDOM m) => AllAudioCapabilities -> m (Maybe CapabilityRange) getVolume self = liftDOM ((self ^. js "volume") >>= fromJSVal) + +-- | +getVolumeUnchecked :: + (MonadDOM m) => AllAudioCapabilities -> m CapabilityRange +getVolumeUnchecked self + = liftDOM ((self ^. js "volume") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/AllVideoCapabilities.hs b/src/JSDOM/Generated/AllVideoCapabilities.hs --- a/src/JSDOM/Generated/AllVideoCapabilities.hs +++ b/src/JSDOM/Generated/AllVideoCapabilities.hs @@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.AllVideoCapabilities - (getSourceType, getSourceId, getWidth, getHeight, getFrameRate, - getAspectRatio, getFacingMode, AllVideoCapabilities, - castToAllVideoCapabilities, gTypeAllVideoCapabilities) + (getSourceType, getSourceId, getWidth, getWidthUnchecked, + getHeight, getHeightUnchecked, getFrameRate, getFrameRateUnchecked, + getAspectRatio, getAspectRatioUnchecked, getFacingMode, + AllVideoCapabilities, castToAllVideoCapabilities, + gTypeAllVideoCapabilities) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -36,22 +38,46 @@ (MonadDOM m) => AllVideoCapabilities -> m (Maybe CapabilityRange) getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal) +-- | +getWidthUnchecked :: + (MonadDOM m) => AllVideoCapabilities -> m CapabilityRange +getWidthUnchecked self + = liftDOM ((self ^. js "width") >>= fromJSValUnchecked) + -- | getHeight :: (MonadDOM m) => AllVideoCapabilities -> m (Maybe CapabilityRange) getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal) +-- | +getHeightUnchecked :: + (MonadDOM m) => AllVideoCapabilities -> m CapabilityRange +getHeightUnchecked self + = liftDOM ((self ^. js "height") >>= fromJSValUnchecked) + -- | getFrameRate :: (MonadDOM m) => AllVideoCapabilities -> m (Maybe CapabilityRange) getFrameRate self = liftDOM ((self ^. js "frameRate") >>= fromJSVal) +-- | +getFrameRateUnchecked :: + (MonadDOM m) => AllVideoCapabilities -> m CapabilityRange +getFrameRateUnchecked self + = liftDOM ((self ^. js "frameRate") >>= fromJSValUnchecked) + -- | getAspectRatio :: (MonadDOM m) => AllVideoCapabilities -> m (Maybe CapabilityRange) getAspectRatio self = liftDOM ((self ^. js "aspectRatio") >>= fromJSVal) + +-- | +getAspectRatioUnchecked :: + (MonadDOM m) => AllVideoCapabilities -> m CapabilityRange +getAspectRatioUnchecked self + = liftDOM ((self ^. js "aspectRatio") >>= fromJSValUnchecked) -- | getFacingMode :: diff --git a/src/JSDOM/Generated/Attr.hs b/src/JSDOM/Generated/Attr.hs --- a/src/JSDOM/Generated/Attr.hs +++ b/src/JSDOM/Generated/Attr.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Attr - (getName, getSpecified, setValue, getValue, getOwnerElement, + (getName, getNameUnchecked, getSpecified, setValue, getValue, + getValueUnchecked, getOwnerElement, getOwnerElementUnchecked, getIsId, Attr, castToAttr, gTypeAttr) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -21,6 +22,12 @@ (MonadDOM m, FromJSString result) => Attr -> m (Maybe result) getName self = liftDOM ((self ^. js "name") >>= fromMaybeJSString) +-- | +getNameUnchecked :: + (MonadDOM m, FromJSString result) => Attr -> m result +getNameUnchecked self + = liftDOM ((self ^. js "name") >>= fromJSValUnchecked) + -- | getSpecified :: (MonadDOM m) => Attr -> m Bool getSpecified self @@ -37,10 +44,21 @@ getValue self = liftDOM ((self ^. js "value") >>= fromMaybeJSString) +-- | +getValueUnchecked :: + (MonadDOM m, FromJSString result) => Attr -> m result +getValueUnchecked self + = liftDOM ((self ^. js "value") >>= fromJSValUnchecked) + -- | getOwnerElement :: (MonadDOM m) => Attr -> m (Maybe Element) getOwnerElement self = liftDOM ((self ^. js "ownerElement") >>= fromJSVal) + +-- | +getOwnerElementUnchecked :: (MonadDOM m) => Attr -> m Element +getOwnerElementUnchecked self + = liftDOM ((self ^. js "ownerElement") >>= fromJSValUnchecked) -- | getIsId :: (MonadDOM m) => Attr -> m Bool diff --git a/src/JSDOM/Generated/AudioBuffer.hs b/src/JSDOM/Generated/AudioBuffer.hs --- a/src/JSDOM/Generated/AudioBuffer.hs +++ b/src/JSDOM/Generated/AudioBuffer.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.AudioBuffer - (getChannelData, getLength, getDuration, getSampleRate, setGain, - getGain, getNumberOfChannels, AudioBuffer, castToAudioBuffer, + (getChannelData, getChannelData_, getChannelDataUnchecked, + getLength, getDuration, getSampleRate, setGain, getGain, + getNumberOfChannels, AudioBuffer, castToAudioBuffer, gTypeAudioBuffer) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -24,6 +25,20 @@ = liftDOM ((self ^. jsf "getChannelData" [toJSVal channelIndex]) >>= fromJSVal) + +-- | +getChannelData_ :: (MonadDOM m) => AudioBuffer -> Word -> m () +getChannelData_ self channelIndex + = liftDOM + (void (self ^. jsf "getChannelData" [toJSVal channelIndex])) + +-- | +getChannelDataUnchecked :: + (MonadDOM m) => AudioBuffer -> Word -> m Float32Array +getChannelDataUnchecked self channelIndex + = liftDOM + ((self ^. jsf "getChannelData" [toJSVal channelIndex]) >>= + fromJSValUnchecked) -- | getLength :: (MonadDOM m) => AudioBuffer -> m Int diff --git a/src/JSDOM/Generated/AudioBufferSourceNode.hs b/src/JSDOM/Generated/AudioBufferSourceNode.hs --- a/src/JSDOM/Generated/AudioBufferSourceNode.hs +++ b/src/JSDOM/Generated/AudioBufferSourceNode.hs @@ -4,9 +4,10 @@ (start, stop, noteOn, noteGrainOn, noteOff, pattern UNSCHEDULED_STATE, pattern SCHEDULED_STATE, pattern PLAYING_STATE, pattern FINISHED_STATE, setBuffer, - getBuffer, getPlaybackState, getGain, getPlaybackRate, setLoop, - getLoop, setLoopStart, getLoopStart, setLoopEnd, getLoopEnd, - setLooping, getLooping, ended, AudioBufferSourceNode, + getBuffer, getBufferUnchecked, getPlaybackState, getGain, + getGainUnchecked, getPlaybackRate, getPlaybackRateUnchecked, + setLoop, getLoop, setLoopStart, getLoopStart, setLoopEnd, + getLoopEnd, setLooping, getLooping, ended, AudioBufferSourceNode, castToAudioBufferSourceNode, gTypeAudioBufferSourceNode) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -69,6 +70,12 @@ (MonadDOM m) => AudioBufferSourceNode -> m (Maybe AudioBuffer) getBuffer self = liftDOM ((self ^. js "buffer") >>= fromJSVal) +-- | +getBufferUnchecked :: + (MonadDOM m) => AudioBufferSourceNode -> m AudioBuffer +getBufferUnchecked self + = liftDOM ((self ^. js "buffer") >>= fromJSValUnchecked) + -- | getPlaybackState :: (MonadDOM m) => AudioBufferSourceNode -> m Word getPlaybackState self @@ -80,11 +87,23 @@ (MonadDOM m) => AudioBufferSourceNode -> m (Maybe AudioParam) getGain self = liftDOM ((self ^. js "gain") >>= fromJSVal) +-- | +getGainUnchecked :: + (MonadDOM m) => AudioBufferSourceNode -> m AudioParam +getGainUnchecked self + = liftDOM ((self ^. js "gain") >>= fromJSValUnchecked) + -- | getPlaybackRate :: (MonadDOM m) => AudioBufferSourceNode -> m (Maybe AudioParam) getPlaybackRate self = liftDOM ((self ^. js "playbackRate") >>= fromJSVal) + +-- | +getPlaybackRateUnchecked :: + (MonadDOM m) => AudioBufferSourceNode -> m AudioParam +getPlaybackRateUnchecked self + = liftDOM ((self ^. js "playbackRate") >>= fromJSValUnchecked) -- | setLoop :: (MonadDOM m) => AudioBufferSourceNode -> Bool -> m () diff --git a/src/JSDOM/Generated/AudioContext.hs b/src/JSDOM/Generated/AudioContext.hs --- a/src/JSDOM/Generated/AudioContext.hs +++ b/src/JSDOM/Generated/AudioContext.hs @@ -1,17 +1,39 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.AudioContext - (newAudioContext, createBuffer, createBufferFromArrayBuffer, - decodeAudioData, createBufferSource, createMediaElementSource, - createMediaStreamSource, createMediaStreamDestination, createGain, - createDelay, createBiquadFilter, createWaveShaper, createPanner, - createConvolver, createDynamicsCompressor, createAnalyser, - createScriptProcessor, createOscillator, createPeriodicWave, - createChannelSplitter, createChannelMerger, startRendering, - createGainNode, createDelayNode, createJavaScriptNode, - getDestination, getCurrentTime, getSampleRate, getListener, - getActiveSourceCount, complete, AudioContext, castToAudioContext, - gTypeAudioContext, IsAudioContext, toAudioContext) + (newAudioContext, createBuffer, createBuffer_, + createBufferUnchecked, createBufferFromArrayBuffer, + createBufferFromArrayBuffer_, createBufferFromArrayBufferUnchecked, + decodeAudioData, createBufferSource, createBufferSource_, + createBufferSourceUnchecked, createMediaElementSource, + createMediaElementSource_, createMediaElementSourceUnchecked, + createMediaStreamSource, createMediaStreamSource_, + createMediaStreamSourceUnchecked, createMediaStreamDestination, + createMediaStreamDestination_, + createMediaStreamDestinationUnchecked, createGain, createGain_, + createGainUnchecked, createDelay, createDelay_, + createDelayUnchecked, createBiquadFilter, createBiquadFilter_, + createBiquadFilterUnchecked, createWaveShaper, createWaveShaper_, + createWaveShaperUnchecked, createPanner, createPanner_, + createPannerUnchecked, createConvolver, createConvolver_, + createConvolverUnchecked, createDynamicsCompressor, + createDynamicsCompressor_, createDynamicsCompressorUnchecked, + createAnalyser, createAnalyser_, createAnalyserUnchecked, + createScriptProcessor, createScriptProcessor_, + createScriptProcessorUnchecked, createOscillator, + createOscillator_, createOscillatorUnchecked, createPeriodicWave, + createPeriodicWave_, createPeriodicWaveUnchecked, + createChannelSplitter, createChannelSplitter_, + createChannelSplitterUnchecked, createChannelMerger, + createChannelMerger_, createChannelMergerUnchecked, startRendering, + createGainNode, createGainNode_, createGainNodeUnchecked, + createDelayNode, createDelayNode_, createDelayNodeUnchecked, + createJavaScriptNode, createJavaScriptNode_, + createJavaScriptNodeUnchecked, getDestination, + getDestinationUnchecked, getCurrentTime, getSampleRate, + getListener, getListenerUnchecked, getActiveSourceCount, complete, + AudioContext, castToAudioContext, gTypeAudioContext, + IsAudioContext, toAudioContext) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -42,6 +64,29 @@ >>= fromJSVal) -- | +createBuffer_ :: + (MonadDOM m, IsAudioContext self) => + self -> Word -> Word -> Float -> m () +createBuffer_ self numberOfChannels numberOfFrames sampleRate + = liftDOM + (void + ((toAudioContext self) ^. jsf "createBuffer" + [toJSVal numberOfChannels, toJSVal numberOfFrames, + toJSVal sampleRate])) + +-- | +createBufferUnchecked :: + (MonadDOM m, IsAudioContext self) => + self -> Word -> Word -> Float -> m AudioBuffer +createBufferUnchecked self numberOfChannels numberOfFrames + sampleRate + = liftDOM + (((toAudioContext self) ^. jsf "createBuffer" + [toJSVal numberOfChannels, toJSVal numberOfFrames, + toJSVal sampleRate]) + >>= fromJSValUnchecked) + +-- | createBufferFromArrayBuffer :: (MonadDOM m, IsAudioContext self, IsArrayBuffer buffer) => self -> Maybe buffer -> Bool -> m (Maybe AudioBuffer) @@ -51,6 +96,26 @@ [toJSVal buffer, toJSVal mixToMono]) >>= fromJSVal) +-- | +createBufferFromArrayBuffer_ :: + (MonadDOM m, IsAudioContext self, IsArrayBuffer buffer) => + self -> Maybe buffer -> Bool -> m () +createBufferFromArrayBuffer_ self buffer mixToMono + = liftDOM + (void + ((toAudioContext self) ^. jsf "createBuffer" + [toJSVal buffer, toJSVal mixToMono])) + +-- | +createBufferFromArrayBufferUnchecked :: + (MonadDOM m, IsAudioContext self, IsArrayBuffer buffer) => + self -> Maybe buffer -> Bool -> m AudioBuffer +createBufferFromArrayBufferUnchecked self buffer mixToMono + = liftDOM + (((toAudioContext self) ^. jsf "createBuffer" + [toJSVal buffer, toJSVal mixToMono]) + >>= fromJSValUnchecked) + -- | decodeAudioData :: (MonadDOM m, IsAudioContext self, IsArrayBuffer audioData) => @@ -73,6 +138,22 @@ (((toAudioContext self) ^. jsf "createBufferSource" ()) >>= fromJSVal) +-- | +createBufferSource_ :: + (MonadDOM m, IsAudioContext self) => self -> m () +createBufferSource_ self + = liftDOM + (void ((toAudioContext self) ^. jsf "createBufferSource" ())) + +-- | +createBufferSourceUnchecked :: + (MonadDOM m, IsAudioContext self) => + self -> m AudioBufferSourceNode +createBufferSourceUnchecked self + = liftDOM + (((toAudioContext self) ^. jsf "createBufferSource" ()) >>= + fromJSValUnchecked) + -- | createMediaElementSource :: (MonadDOM m, IsAudioContext self, @@ -84,6 +165,28 @@ [toJSVal mediaElement]) >>= fromJSVal) +-- | +createMediaElementSource_ :: + (MonadDOM m, IsAudioContext self, + IsHTMLMediaElement mediaElement) => + self -> Maybe mediaElement -> m () +createMediaElementSource_ self mediaElement + = liftDOM + (void + ((toAudioContext self) ^. jsf "createMediaElementSource" + [toJSVal mediaElement])) + +-- | +createMediaElementSourceUnchecked :: + (MonadDOM m, IsAudioContext self, + IsHTMLMediaElement mediaElement) => + self -> Maybe mediaElement -> m MediaElementAudioSourceNode +createMediaElementSourceUnchecked self mediaElement + = liftDOM + (((toAudioContext self) ^. jsf "createMediaElementSource" + [toJSVal mediaElement]) + >>= fromJSValUnchecked) + -- | createMediaStreamSource :: (MonadDOM m, IsAudioContext self) => @@ -94,6 +197,26 @@ [toJSVal mediaStream]) >>= fromJSVal) +-- | +createMediaStreamSource_ :: + (MonadDOM m, IsAudioContext self) => + self -> Maybe MediaStream -> m () +createMediaStreamSource_ self mediaStream + = liftDOM + (void + ((toAudioContext self) ^. jsf "createMediaStreamSource" + [toJSVal mediaStream])) + +-- | +createMediaStreamSourceUnchecked :: + (MonadDOM m, IsAudioContext self) => + self -> Maybe MediaStream -> m MediaStreamAudioSourceNode +createMediaStreamSourceUnchecked self mediaStream + = liftDOM + (((toAudioContext self) ^. jsf "createMediaStreamSource" + [toJSVal mediaStream]) + >>= fromJSValUnchecked) + -- | createMediaStreamDestination :: (MonadDOM m, IsAudioContext self) => @@ -103,6 +226,23 @@ (((toAudioContext self) ^. jsf "createMediaStreamDestination" ()) >>= fromJSVal) +-- | +createMediaStreamDestination_ :: + (MonadDOM m, IsAudioContext self) => self -> m () +createMediaStreamDestination_ self + = liftDOM + (void + ((toAudioContext self) ^. jsf "createMediaStreamDestination" ())) + +-- | +createMediaStreamDestinationUnchecked :: + (MonadDOM m, IsAudioContext self) => + self -> m MediaStreamAudioDestinationNode +createMediaStreamDestinationUnchecked self + = liftDOM + (((toAudioContext self) ^. jsf "createMediaStreamDestination" ()) + >>= fromJSValUnchecked) + -- | createGain :: (MonadDOM m, IsAudioContext self) => self -> m (Maybe GainNode) @@ -110,6 +250,19 @@ = liftDOM (((toAudioContext self) ^. jsf "createGain" ()) >>= fromJSVal) +-- | +createGain_ :: (MonadDOM m, IsAudioContext self) => self -> m () +createGain_ self + = liftDOM (void ((toAudioContext self) ^. jsf "createGain" ())) + +-- | +createGainUnchecked :: + (MonadDOM m, IsAudioContext self) => self -> m GainNode +createGainUnchecked self + = liftDOM + (((toAudioContext self) ^. jsf "createGain" ()) >>= + fromJSValUnchecked) + -- | createDelay :: (MonadDOM m, IsAudioContext self) => @@ -120,6 +273,24 @@ [toJSVal maxDelayTime]) >>= fromJSVal) +-- | +createDelay_ :: + (MonadDOM m, IsAudioContext self) => self -> Double -> m () +createDelay_ self maxDelayTime + = liftDOM + (void + ((toAudioContext self) ^. jsf "createDelay" + [toJSVal maxDelayTime])) + +-- | +createDelayUnchecked :: + (MonadDOM m, IsAudioContext self) => self -> Double -> m DelayNode +createDelayUnchecked self maxDelayTime + = liftDOM + (((toAudioContext self) ^. jsf "createDelay" + [toJSVal maxDelayTime]) + >>= fromJSValUnchecked) + -- | createBiquadFilter :: (MonadDOM m, IsAudioContext self) => @@ -129,6 +300,21 @@ (((toAudioContext self) ^. jsf "createBiquadFilter" ()) >>= fromJSVal) +-- | +createBiquadFilter_ :: + (MonadDOM m, IsAudioContext self) => self -> m () +createBiquadFilter_ self + = liftDOM + (void ((toAudioContext self) ^. jsf "createBiquadFilter" ())) + +-- | +createBiquadFilterUnchecked :: + (MonadDOM m, IsAudioContext self) => self -> m BiquadFilterNode +createBiquadFilterUnchecked self + = liftDOM + (((toAudioContext self) ^. jsf "createBiquadFilter" ()) >>= + fromJSValUnchecked) + -- | createWaveShaper :: (MonadDOM m, IsAudioContext self) => @@ -138,6 +324,21 @@ (((toAudioContext self) ^. jsf "createWaveShaper" ()) >>= fromJSVal) +-- | +createWaveShaper_ :: + (MonadDOM m, IsAudioContext self) => self -> m () +createWaveShaper_ self + = liftDOM + (void ((toAudioContext self) ^. jsf "createWaveShaper" ())) + +-- | +createWaveShaperUnchecked :: + (MonadDOM m, IsAudioContext self) => self -> m WaveShaperNode +createWaveShaperUnchecked self + = liftDOM + (((toAudioContext self) ^. jsf "createWaveShaper" ()) >>= + fromJSValUnchecked) + -- | createPanner :: (MonadDOM m, IsAudioContext self) => self -> m (Maybe PannerNode) @@ -145,6 +346,19 @@ = liftDOM (((toAudioContext self) ^. jsf "createPanner" ()) >>= fromJSVal) +-- | +createPanner_ :: (MonadDOM m, IsAudioContext self) => self -> m () +createPanner_ self + = liftDOM (void ((toAudioContext self) ^. jsf "createPanner" ())) + +-- | +createPannerUnchecked :: + (MonadDOM m, IsAudioContext self) => self -> m PannerNode +createPannerUnchecked self + = liftDOM + (((toAudioContext self) ^. jsf "createPanner" ()) >>= + fromJSValUnchecked) + -- | createConvolver :: (MonadDOM m, IsAudioContext self) => @@ -153,6 +367,21 @@ = liftDOM (((toAudioContext self) ^. jsf "createConvolver" ()) >>= fromJSVal) +-- | +createConvolver_ :: + (MonadDOM m, IsAudioContext self) => self -> m () +createConvolver_ self + = liftDOM + (void ((toAudioContext self) ^. jsf "createConvolver" ())) + +-- | +createConvolverUnchecked :: + (MonadDOM m, IsAudioContext self) => self -> m ConvolverNode +createConvolverUnchecked self + = liftDOM + (((toAudioContext self) ^. jsf "createConvolver" ()) >>= + fromJSValUnchecked) + -- | createDynamicsCompressor :: (MonadDOM m, IsAudioContext self) => @@ -162,6 +391,22 @@ (((toAudioContext self) ^. jsf "createDynamicsCompressor" ()) >>= fromJSVal) +-- | +createDynamicsCompressor_ :: + (MonadDOM m, IsAudioContext self) => self -> m () +createDynamicsCompressor_ self + = liftDOM + (void ((toAudioContext self) ^. jsf "createDynamicsCompressor" ())) + +-- | +createDynamicsCompressorUnchecked :: + (MonadDOM m, IsAudioContext self) => + self -> m DynamicsCompressorNode +createDynamicsCompressorUnchecked self + = liftDOM + (((toAudioContext self) ^. jsf "createDynamicsCompressor" ()) >>= + fromJSValUnchecked) + -- | createAnalyser :: (MonadDOM m, IsAudioContext self) => self -> m (Maybe AnalyserNode) @@ -169,6 +414,20 @@ = liftDOM (((toAudioContext self) ^. jsf "createAnalyser" ()) >>= fromJSVal) +-- | +createAnalyser_ :: + (MonadDOM m, IsAudioContext self) => self -> m () +createAnalyser_ self + = liftDOM (void ((toAudioContext self) ^. jsf "createAnalyser" ())) + +-- | +createAnalyserUnchecked :: + (MonadDOM m, IsAudioContext self) => self -> m AnalyserNode +createAnalyserUnchecked self + = liftDOM + (((toAudioContext self) ^. jsf "createAnalyser" ()) >>= + fromJSValUnchecked) + -- | createScriptProcessor :: (MonadDOM m, IsAudioContext self) => @@ -181,6 +440,30 @@ toJSVal numberOfOutputChannels]) >>= fromJSVal) +-- | +createScriptProcessor_ :: + (MonadDOM m, IsAudioContext self) => + self -> Word -> Word -> Word -> m () +createScriptProcessor_ self bufferSize numberOfInputChannels + numberOfOutputChannels + = liftDOM + (void + ((toAudioContext self) ^. jsf "createScriptProcessor" + [toJSVal bufferSize, toJSVal numberOfInputChannels, + toJSVal numberOfOutputChannels])) + +-- | +createScriptProcessorUnchecked :: + (MonadDOM m, IsAudioContext self) => + self -> Word -> Word -> Word -> m ScriptProcessorNode +createScriptProcessorUnchecked self bufferSize + numberOfInputChannels numberOfOutputChannels + = liftDOM + (((toAudioContext self) ^. jsf "createScriptProcessor" + [toJSVal bufferSize, toJSVal numberOfInputChannels, + toJSVal numberOfOutputChannels]) + >>= fromJSValUnchecked) + -- | createOscillator :: (MonadDOM m, IsAudioContext self) => @@ -190,6 +473,21 @@ (((toAudioContext self) ^. jsf "createOscillator" ()) >>= fromJSVal) +-- | +createOscillator_ :: + (MonadDOM m, IsAudioContext self) => self -> m () +createOscillator_ self + = liftDOM + (void ((toAudioContext self) ^. jsf "createOscillator" ())) + +-- | +createOscillatorUnchecked :: + (MonadDOM m, IsAudioContext self) => self -> m OscillatorNode +createOscillatorUnchecked self + = liftDOM + (((toAudioContext self) ^. jsf "createOscillator" ()) >>= + fromJSValUnchecked) + -- | createPeriodicWave :: (MonadDOM m, IsAudioContext self, IsFloat32Array real, @@ -201,6 +499,28 @@ [toJSVal real, toJSVal imag]) >>= fromJSVal) +-- | +createPeriodicWave_ :: + (MonadDOM m, IsAudioContext self, IsFloat32Array real, + IsFloat32Array imag) => + self -> Maybe real -> Maybe imag -> m () +createPeriodicWave_ self real imag + = liftDOM + (void + ((toAudioContext self) ^. jsf "createPeriodicWave" + [toJSVal real, toJSVal imag])) + +-- | +createPeriodicWaveUnchecked :: + (MonadDOM m, IsAudioContext self, IsFloat32Array real, + IsFloat32Array imag) => + self -> Maybe real -> Maybe imag -> m PeriodicWave +createPeriodicWaveUnchecked self real imag + = liftDOM + (((toAudioContext self) ^. jsf "createPeriodicWave" + [toJSVal real, toJSVal imag]) + >>= fromJSValUnchecked) + -- | createChannelSplitter :: (MonadDOM m, IsAudioContext self) => @@ -211,6 +531,25 @@ [toJSVal numberOfOutputs]) >>= fromJSVal) +-- | +createChannelSplitter_ :: + (MonadDOM m, IsAudioContext self) => self -> Word -> m () +createChannelSplitter_ self numberOfOutputs + = liftDOM + (void + ((toAudioContext self) ^. jsf "createChannelSplitter" + [toJSVal numberOfOutputs])) + +-- | +createChannelSplitterUnchecked :: + (MonadDOM m, IsAudioContext self) => + self -> Word -> m ChannelSplitterNode +createChannelSplitterUnchecked self numberOfOutputs + = liftDOM + (((toAudioContext self) ^. jsf "createChannelSplitter" + [toJSVal numberOfOutputs]) + >>= fromJSValUnchecked) + -- | createChannelMerger :: (MonadDOM m, IsAudioContext self) => @@ -221,6 +560,25 @@ [toJSVal numberOfInputs]) >>= fromJSVal) +-- | +createChannelMerger_ :: + (MonadDOM m, IsAudioContext self) => self -> Word -> m () +createChannelMerger_ self numberOfInputs + = liftDOM + (void + ((toAudioContext self) ^. jsf "createChannelMerger" + [toJSVal numberOfInputs])) + +-- | +createChannelMergerUnchecked :: + (MonadDOM m, IsAudioContext self) => + self -> Word -> m ChannelMergerNode +createChannelMergerUnchecked self numberOfInputs + = liftDOM + (((toAudioContext self) ^. jsf "createChannelMerger" + [toJSVal numberOfInputs]) + >>= fromJSValUnchecked) + -- | startRendering :: (MonadDOM m, IsAudioContext self) => self -> m () startRendering self @@ -233,6 +591,20 @@ = liftDOM (((toAudioContext self) ^. jsf "createGainNode" ()) >>= fromJSVal) +-- | +createGainNode_ :: + (MonadDOM m, IsAudioContext self) => self -> m () +createGainNode_ self + = liftDOM (void ((toAudioContext self) ^. jsf "createGainNode" ())) + +-- | +createGainNodeUnchecked :: + (MonadDOM m, IsAudioContext self) => self -> m GainNode +createGainNodeUnchecked self + = liftDOM + (((toAudioContext self) ^. jsf "createGainNode" ()) >>= + fromJSValUnchecked) + -- | createDelayNode :: (MonadDOM m, IsAudioContext self) => @@ -243,6 +615,24 @@ [toJSVal maxDelayTime]) >>= fromJSVal) +-- | +createDelayNode_ :: + (MonadDOM m, IsAudioContext self) => self -> Double -> m () +createDelayNode_ self maxDelayTime + = liftDOM + (void + ((toAudioContext self) ^. jsf "createDelayNode" + [toJSVal maxDelayTime])) + +-- | +createDelayNodeUnchecked :: + (MonadDOM m, IsAudioContext self) => self -> Double -> m DelayNode +createDelayNodeUnchecked self maxDelayTime + = liftDOM + (((toAudioContext self) ^. jsf "createDelayNode" + [toJSVal maxDelayTime]) + >>= fromJSValUnchecked) + -- | createJavaScriptNode :: (MonadDOM m, IsAudioContext self) => @@ -255,6 +645,30 @@ toJSVal numberOfOutputChannels]) >>= fromJSVal) +-- | +createJavaScriptNode_ :: + (MonadDOM m, IsAudioContext self) => + self -> Word -> Word -> Word -> m () +createJavaScriptNode_ self bufferSize numberOfInputChannels + numberOfOutputChannels + = liftDOM + (void + ((toAudioContext self) ^. jsf "createJavaScriptNode" + [toJSVal bufferSize, toJSVal numberOfInputChannels, + toJSVal numberOfOutputChannels])) + +-- | +createJavaScriptNodeUnchecked :: + (MonadDOM m, IsAudioContext self) => + self -> Word -> Word -> Word -> m ScriptProcessorNode +createJavaScriptNodeUnchecked self bufferSize numberOfInputChannels + numberOfOutputChannels + = liftDOM + (((toAudioContext self) ^. jsf "createJavaScriptNode" + [toJSVal bufferSize, toJSVal numberOfInputChannels, + toJSVal numberOfOutputChannels]) + >>= fromJSValUnchecked) + -- | getDestination :: (MonadDOM m, IsAudioContext self) => @@ -263,6 +677,14 @@ = liftDOM (((toAudioContext self) ^. js "destination") >>= fromJSVal) +-- | +getDestinationUnchecked :: + (MonadDOM m, IsAudioContext self) => self -> m AudioDestinationNode +getDestinationUnchecked self + = liftDOM + (((toAudioContext self) ^. js "destination") >>= + fromJSValUnchecked) + -- | getCurrentTime :: (MonadDOM m, IsAudioContext self) => self -> m Double @@ -284,6 +706,13 @@ self -> m (Maybe AudioListener) getListener self = liftDOM (((toAudioContext self) ^. js "listener") >>= fromJSVal) + +-- | +getListenerUnchecked :: + (MonadDOM m, IsAudioContext self) => self -> m AudioListener +getListenerUnchecked self + = liftDOM + (((toAudioContext self) ^. js "listener") >>= fromJSValUnchecked) -- | getActiveSourceCount :: diff --git a/src/JSDOM/Generated/AudioNode.hs b/src/JSDOM/Generated/AudioNode.hs --- a/src/JSDOM/Generated/AudioNode.hs +++ b/src/JSDOM/Generated/AudioNode.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.AudioNode - (connect, connectParam, disconnect, getContext, getNumberOfInputs, - getNumberOfOutputs, setChannelCount, getChannelCount, - setChannelCountMode, getChannelCountMode, setChannelInterpretation, + (connect, connectParam, disconnect, getContext, + getContextUnchecked, getNumberOfInputs, getNumberOfOutputs, + setChannelCount, getChannelCount, setChannelCountMode, + getChannelCountMode, setChannelInterpretation, getChannelInterpretation, AudioNode, castToAudioNode, gTypeAudioNode, IsAudioNode, toAudioNode) where @@ -51,6 +52,13 @@ (MonadDOM m, IsAudioNode self) => self -> m (Maybe AudioContext) getContext self = liftDOM (((toAudioNode self) ^. js "context") >>= fromJSVal) + +-- | +getContextUnchecked :: + (MonadDOM m, IsAudioNode self) => self -> m AudioContext +getContextUnchecked self + = liftDOM + (((toAudioNode self) ^. js "context") >>= fromJSValUnchecked) -- | getNumberOfInputs :: diff --git a/src/JSDOM/Generated/AudioProcessingEvent.hs b/src/JSDOM/Generated/AudioProcessingEvent.hs --- a/src/JSDOM/Generated/AudioProcessingEvent.hs +++ b/src/JSDOM/Generated/AudioProcessingEvent.hs @@ -1,9 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.AudioProcessingEvent - (getPlaybackTime, getInputBuffer, getOutputBuffer, - AudioProcessingEvent, castToAudioProcessingEvent, - gTypeAudioProcessingEvent) + (getPlaybackTime, getInputBuffer, getInputBufferUnchecked, + getOutputBuffer, getOutputBufferUnchecked, AudioProcessingEvent, + castToAudioProcessingEvent, gTypeAudioProcessingEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -28,8 +28,20 @@ getInputBuffer self = liftDOM ((self ^. js "inputBuffer") >>= fromJSVal) +-- | +getInputBufferUnchecked :: + (MonadDOM m) => AudioProcessingEvent -> m AudioBuffer +getInputBufferUnchecked self + = liftDOM ((self ^. js "inputBuffer") >>= fromJSValUnchecked) + -- | getOutputBuffer :: (MonadDOM m) => AudioProcessingEvent -> m (Maybe AudioBuffer) getOutputBuffer self = liftDOM ((self ^. js "outputBuffer") >>= fromJSVal) + +-- | +getOutputBufferUnchecked :: + (MonadDOM m) => AudioProcessingEvent -> m AudioBuffer +getOutputBufferUnchecked self + = liftDOM ((self ^. js "outputBuffer") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/AudioTrack.hs b/src/JSDOM/Generated/AudioTrack.hs --- a/src/JSDOM/Generated/AudioTrack.hs +++ b/src/JSDOM/Generated/AudioTrack.hs @@ -2,8 +2,8 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.AudioTrack (getId, setKind, getKind, getLabel, setLanguage, getLanguage, - setEnabled, getEnabled, getSourceBuffer, AudioTrack, - castToAudioTrack, gTypeAudioTrack) + setEnabled, getEnabled, getSourceBuffer, getSourceBufferUnchecked, + AudioTrack, castToAudioTrack, gTypeAudioTrack) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -63,3 +63,9 @@ (MonadDOM m) => AudioTrack -> m (Maybe SourceBuffer) getSourceBuffer self = liftDOM ((self ^. js "sourceBuffer") >>= fromJSVal) + +-- | +getSourceBufferUnchecked :: + (MonadDOM m) => AudioTrack -> m SourceBuffer +getSourceBufferUnchecked self + = liftDOM ((self ^. js "sourceBuffer") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/AudioTrackList.hs b/src/JSDOM/Generated/AudioTrackList.hs --- a/src/JSDOM/Generated/AudioTrackList.hs +++ b/src/JSDOM/Generated/AudioTrackList.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.AudioTrackList - (item, getTrackById, getLength, change, addTrack, removeTrack, + (item, item_, itemUnchecked, getTrackById, getTrackById_, + getTrackByIdUnchecked, getLength, change, addTrack, removeTrack, AudioTrackList, castToAudioTrackList, gTypeAudioTrackList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -22,12 +23,37 @@ item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) +-- | +item_ :: (MonadDOM m) => AudioTrackList -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m) => AudioTrackList -> Word -> m AudioTrack +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) + -- | getTrackById :: (MonadDOM m, ToJSString id) => AudioTrackList -> id -> m (Maybe AudioTrack) getTrackById self id = liftDOM ((self ^. jsf "getTrackById" [toJSVal id]) >>= fromJSVal) + +-- | +getTrackById_ :: + (MonadDOM m, ToJSString id) => AudioTrackList -> id -> m () +getTrackById_ self id + = liftDOM (void (self ^. jsf "getTrackById" [toJSVal id])) + +-- | +getTrackByIdUnchecked :: + (MonadDOM m, ToJSString id) => AudioTrackList -> id -> m AudioTrack +getTrackByIdUnchecked self id + = liftDOM + ((self ^. jsf "getTrackById" [toJSVal id]) >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => AudioTrackList -> m Word diff --git a/src/JSDOM/Generated/BiquadFilterNode.hs b/src/JSDOM/Generated/BiquadFilterNode.hs --- a/src/JSDOM/Generated/BiquadFilterNode.hs +++ b/src/JSDOM/Generated/BiquadFilterNode.hs @@ -4,7 +4,8 @@ (getFrequencyResponse, pattern LOWPASS, pattern HIGHPASS, pattern BANDPASS, pattern LOWSHELF, pattern HIGHSHELF, pattern PEAKING, pattern NOTCH, pattern ALLPASS, setType, getType, - getFrequency, getDetune, getQ, getGain, BiquadFilterNode, + getFrequency, getFrequencyUnchecked, getDetune, getDetuneUnchecked, + getQ, getQUnchecked, getGain, getGainUnchecked, BiquadFilterNode, castToBiquadFilterNode, gTypeBiquadFilterNode) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -56,15 +57,38 @@ getFrequency self = liftDOM ((self ^. js "frequency") >>= fromJSVal) +-- | +getFrequencyUnchecked :: + (MonadDOM m) => BiquadFilterNode -> m AudioParam +getFrequencyUnchecked self + = liftDOM ((self ^. js "frequency") >>= fromJSValUnchecked) + -- | getDetune :: (MonadDOM m) => BiquadFilterNode -> m (Maybe AudioParam) getDetune self = liftDOM ((self ^. js "detune") >>= fromJSVal) +-- | +getDetuneUnchecked :: + (MonadDOM m) => BiquadFilterNode -> m AudioParam +getDetuneUnchecked self + = liftDOM ((self ^. js "detune") >>= fromJSValUnchecked) + -- | getQ :: (MonadDOM m) => BiquadFilterNode -> m (Maybe AudioParam) getQ self = liftDOM ((self ^. js "Q") >>= fromJSVal) +-- | +getQUnchecked :: (MonadDOM m) => BiquadFilterNode -> m AudioParam +getQUnchecked self + = liftDOM ((self ^. js "Q") >>= fromJSValUnchecked) + -- | getGain :: (MonadDOM m) => BiquadFilterNode -> m (Maybe AudioParam) getGain self = liftDOM ((self ^. js "gain") >>= fromJSVal) + +-- | +getGainUnchecked :: + (MonadDOM m) => BiquadFilterNode -> m AudioParam +getGainUnchecked self + = liftDOM ((self ^. js "gain") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/Blob.hs b/src/JSDOM/Generated/Blob.hs --- a/src/JSDOM/Generated/Blob.hs +++ b/src/JSDOM/Generated/Blob.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Blob - (newBlob, newBlob', slice, getSize, getType, Blob, castToBlob, - gTypeBlob, IsBlob, toBlob) + (newBlob, newBlob', slice, slice_, sliceUnchecked, getSize, + getType, Blob, castToBlob, gTypeBlob, IsBlob, toBlob) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -38,6 +38,26 @@ (((toBlob self) ^. jsf "slice" [toJSVal start, toJSVal end, toJSVal contentType]) >>= fromJSVal) + +-- | +slice_ :: + (MonadDOM m, IsBlob self, ToJSString contentType) => + self -> Int64 -> Int64 -> Maybe contentType -> m () +slice_ self start end contentType + = liftDOM + (void + ((toBlob self) ^. jsf "slice" + [toJSVal start, toJSVal end, toJSVal contentType])) + +-- | +sliceUnchecked :: + (MonadDOM m, IsBlob self, ToJSString contentType) => + self -> Int64 -> Int64 -> Maybe contentType -> m Blob +sliceUnchecked self start end contentType + = liftDOM + (((toBlob self) ^. jsf "slice" + [toJSVal start, toJSVal end, toJSVal contentType]) + >>= fromJSValUnchecked) -- | getSize :: (MonadDOM m, IsBlob self) => self -> m Word64 diff --git a/src/JSDOM/Generated/CSS.hs b/src/JSDOM/Generated/CSS.hs --- a/src/JSDOM/Generated/CSS.hs +++ b/src/JSDOM/Generated/CSS.hs @@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CSS - (supports2, supports, CSS, castToCSS, gTypeCSS) where + (supports2, supports2_, supports, supports_, CSS, castToCSS, + gTypeCSS) + where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) @@ -24,9 +26,24 @@ valToBool) -- | +supports2_ :: + (MonadDOM m, ToJSString property, ToJSString value) => + CSS -> property -> value -> m () +supports2_ self property value + = liftDOM + (void (self ^. jsf "supports" [toJSVal property, toJSVal value])) + +-- | supports :: (MonadDOM m, ToJSString conditionText) => CSS -> conditionText -> m Bool supports self conditionText = liftDOM ((self ^. jsf "supports" [toJSVal conditionText]) >>= valToBool) + +-- | +supports_ :: + (MonadDOM m, ToJSString conditionText) => + CSS -> conditionText -> m () +supports_ self conditionText + = liftDOM (void (self ^. jsf "supports" [toJSVal conditionText])) diff --git a/src/JSDOM/Generated/CSSCharsetRule.hs b/src/JSDOM/Generated/CSSCharsetRule.hs --- a/src/JSDOM/Generated/CSSCharsetRule.hs +++ b/src/JSDOM/Generated/CSSCharsetRule.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CSSCharsetRule - (setEncoding, getEncoding, CSSCharsetRule, castToCSSCharsetRule, - gTypeCSSCharsetRule) + (setEncoding, getEncoding, getEncodingUnchecked, CSSCharsetRule, + castToCSSCharsetRule, gTypeCSSCharsetRule) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -28,3 +28,9 @@ CSSCharsetRule -> m (Maybe result) getEncoding self = liftDOM ((self ^. js "encoding") >>= fromMaybeJSString) + +-- | +getEncodingUnchecked :: + (MonadDOM m, FromJSString result) => CSSCharsetRule -> m result +getEncodingUnchecked self + = liftDOM ((self ^. js "encoding") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/CSSFontFaceLoadEvent.hs b/src/JSDOM/Generated/CSSFontFaceLoadEvent.hs --- a/src/JSDOM/Generated/CSSFontFaceLoadEvent.hs +++ b/src/JSDOM/Generated/CSSFontFaceLoadEvent.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CSSFontFaceLoadEvent - (getFontface, getError, CSSFontFaceLoadEvent, - castToCSSFontFaceLoadEvent, gTypeCSSFontFaceLoadEvent) + (getFontface, getFontfaceUnchecked, getError, getErrorUnchecked, + CSSFontFaceLoadEvent, castToCSSFontFaceLoadEvent, + gTypeCSSFontFaceLoadEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,7 +22,19 @@ (MonadDOM m) => CSSFontFaceLoadEvent -> m (Maybe CSSFontFaceRule) getFontface self = liftDOM ((self ^. js "fontface") >>= fromJSVal) +-- | +getFontfaceUnchecked :: + (MonadDOM m) => CSSFontFaceLoadEvent -> m CSSFontFaceRule +getFontfaceUnchecked self + = liftDOM ((self ^. js "fontface") >>= fromJSValUnchecked) + -- | getError :: (MonadDOM m) => CSSFontFaceLoadEvent -> m (Maybe DOMError) getError self = liftDOM ((self ^. js "error") >>= fromJSVal) + +-- | +getErrorUnchecked :: + (MonadDOM m) => CSSFontFaceLoadEvent -> m DOMError +getErrorUnchecked self + = liftDOM ((self ^. js "error") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/CSSFontFaceRule.hs b/src/JSDOM/Generated/CSSFontFaceRule.hs --- a/src/JSDOM/Generated/CSSFontFaceRule.hs +++ b/src/JSDOM/Generated/CSSFontFaceRule.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CSSFontFaceRule - (getStyle, CSSFontFaceRule, castToCSSFontFaceRule, - gTypeCSSFontFaceRule) + (getStyle, getStyleUnchecked, CSSFontFaceRule, + castToCSSFontFaceRule, gTypeCSSFontFaceRule) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,3 +20,9 @@ getStyle :: (MonadDOM m) => CSSFontFaceRule -> m (Maybe CSSStyleDeclaration) getStyle self = liftDOM ((self ^. js "style") >>= fromJSVal) + +-- | +getStyleUnchecked :: + (MonadDOM m) => CSSFontFaceRule -> m CSSStyleDeclaration +getStyleUnchecked self + = liftDOM ((self ^. js "style") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/CSSImportRule.hs b/src/JSDOM/Generated/CSSImportRule.hs --- a/src/JSDOM/Generated/CSSImportRule.hs +++ b/src/JSDOM/Generated/CSSImportRule.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CSSImportRule - (getHref, getMedia, getStyleSheet, CSSImportRule, + (getHref, getHrefUnchecked, getMedia, getMediaUnchecked, + getStyleSheet, getStyleSheetUnchecked, CSSImportRule, castToCSSImportRule, gTypeCSSImportRule) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -22,12 +23,29 @@ CSSImportRule -> m (Maybe result) getHref self = liftDOM ((self ^. js "href") >>= fromMaybeJSString) +-- | +getHrefUnchecked :: + (MonadDOM m, FromJSString result) => CSSImportRule -> m result +getHrefUnchecked self + = liftDOM ((self ^. js "href") >>= fromJSValUnchecked) + -- | getMedia :: (MonadDOM m) => CSSImportRule -> m (Maybe MediaList) getMedia self = liftDOM ((self ^. js "media") >>= fromJSVal) +-- | +getMediaUnchecked :: (MonadDOM m) => CSSImportRule -> m MediaList +getMediaUnchecked self + = liftDOM ((self ^. js "media") >>= fromJSValUnchecked) + -- | getStyleSheet :: (MonadDOM m) => CSSImportRule -> m (Maybe CSSStyleSheet) getStyleSheet self = liftDOM ((self ^. js "styleSheet") >>= fromJSVal) + +-- | +getStyleSheetUnchecked :: + (MonadDOM m) => CSSImportRule -> m CSSStyleSheet +getStyleSheetUnchecked self + = liftDOM ((self ^. js "styleSheet") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/CSSKeyframeRule.hs b/src/JSDOM/Generated/CSSKeyframeRule.hs --- a/src/JSDOM/Generated/CSSKeyframeRule.hs +++ b/src/JSDOM/Generated/CSSKeyframeRule.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CSSKeyframeRule - (setKeyText, getKeyText, getStyle, CSSKeyframeRule, - castToCSSKeyframeRule, gTypeCSSKeyframeRule) + (setKeyText, getKeyText, getStyle, getStyleUnchecked, + CSSKeyframeRule, castToCSSKeyframeRule, gTypeCSSKeyframeRule) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -31,3 +31,9 @@ getStyle :: (MonadDOM m) => CSSKeyframeRule -> m (Maybe CSSStyleDeclaration) getStyle self = liftDOM ((self ^. js "style") >>= fromJSVal) + +-- | +getStyleUnchecked :: + (MonadDOM m) => CSSKeyframeRule -> m CSSStyleDeclaration +getStyleUnchecked self + = liftDOM ((self ^. js "style") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/CSSKeyframesRule.hs b/src/JSDOM/Generated/CSSKeyframesRule.hs --- a/src/JSDOM/Generated/CSSKeyframesRule.hs +++ b/src/JSDOM/Generated/CSSKeyframesRule.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CSSKeyframesRule - (insertRule, appendRule, deleteRule, findRule, _get, setName, - getName, getCssRules, CSSKeyframesRule, castToCSSKeyframesRule, - gTypeCSSKeyframesRule) + (insertRule, appendRule, deleteRule, findRule, findRule_, + findRuleUnchecked, _get, _get_, _getUnchecked, setName, getName, + getNameUnchecked, getCssRules, getCssRulesUnchecked, + CSSKeyframesRule, castToCSSKeyframesRule, gTypeCSSKeyframesRule) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -42,6 +43,20 @@ findRule self key = liftDOM ((self ^. jsf "findRule" [toJSVal key]) >>= fromJSVal) +-- | +findRule_ :: + (MonadDOM m, ToJSString key) => CSSKeyframesRule -> key -> m () +findRule_ self key + = liftDOM (void (self ^. jsf "findRule" [toJSVal key])) + +-- | +findRuleUnchecked :: + (MonadDOM m, ToJSString key) => + CSSKeyframesRule -> key -> m CSSKeyframeRule +findRuleUnchecked self key + = liftDOM + ((self ^. jsf "findRule" [toJSVal key]) >>= fromJSValUnchecked) + -- | _get :: (MonadDOM m) => @@ -49,6 +64,18 @@ _get self index = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal) +-- | +_get_ :: (MonadDOM m) => CSSKeyframesRule -> Word -> m () +_get_ self index + = liftDOM (void (self ^. jsf "_get" [toJSVal index])) + +-- | +_getUnchecked :: + (MonadDOM m) => CSSKeyframesRule -> Word -> m CSSKeyframeRule +_getUnchecked self index + = liftDOM + ((self ^. jsf "_get" [toJSVal index]) >>= fromJSValUnchecked) + -- | setName :: (MonadDOM m, ToJSString val) => @@ -61,7 +88,19 @@ CSSKeyframesRule -> m (Maybe result) getName self = liftDOM ((self ^. js "name") >>= fromMaybeJSString) +-- | +getNameUnchecked :: + (MonadDOM m, FromJSString result) => CSSKeyframesRule -> m result +getNameUnchecked self + = liftDOM ((self ^. js "name") >>= fromJSValUnchecked) + -- | getCssRules :: (MonadDOM m) => CSSKeyframesRule -> m (Maybe CSSRuleList) getCssRules self = liftDOM ((self ^. js "cssRules") >>= fromJSVal) + +-- | +getCssRulesUnchecked :: + (MonadDOM m) => CSSKeyframesRule -> m CSSRuleList +getCssRulesUnchecked self + = liftDOM ((self ^. js "cssRules") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/CSSMediaRule.hs b/src/JSDOM/Generated/CSSMediaRule.hs --- a/src/JSDOM/Generated/CSSMediaRule.hs +++ b/src/JSDOM/Generated/CSSMediaRule.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CSSMediaRule - (insertRule, deleteRule, getMedia, getCssRules, CSSMediaRule, + (insertRule, insertRule_, deleteRule, getMedia, getMediaUnchecked, + getCssRules, getCssRulesUnchecked, CSSMediaRule, castToCSSMediaRule, gTypeCSSMediaRule) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -26,6 +27,14 @@ ((self ^. jsf "insertRule" [toJSVal rule, toJSVal index]) >>= valToNumber)) +-- | +insertRule_ :: + (MonadDOM m, ToJSString rule) => + CSSMediaRule -> rule -> Word -> m () +insertRule_ self rule index + = liftDOM + (void (self ^. jsf "insertRule" [toJSVal rule, toJSVal index])) + -- | deleteRule :: (MonadDOM m) => CSSMediaRule -> Word -> m () deleteRule self index @@ -35,7 +44,18 @@ getMedia :: (MonadDOM m) => CSSMediaRule -> m (Maybe MediaList) getMedia self = liftDOM ((self ^. js "media") >>= fromJSVal) +-- | +getMediaUnchecked :: (MonadDOM m) => CSSMediaRule -> m MediaList +getMediaUnchecked self + = liftDOM ((self ^. js "media") >>= fromJSValUnchecked) + -- | getCssRules :: (MonadDOM m) => CSSMediaRule -> m (Maybe CSSRuleList) getCssRules self = liftDOM ((self ^. js "cssRules") >>= fromJSVal) + +-- | +getCssRulesUnchecked :: + (MonadDOM m) => CSSMediaRule -> m CSSRuleList +getCssRulesUnchecked self + = liftDOM ((self ^. js "cssRules") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/CSSPageRule.hs b/src/JSDOM/Generated/CSSPageRule.hs --- a/src/JSDOM/Generated/CSSPageRule.hs +++ b/src/JSDOM/Generated/CSSPageRule.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CSSPageRule - (setSelectorText, getSelectorText, getStyle, CSSPageRule, - castToCSSPageRule, gTypeCSSPageRule) + (setSelectorText, getSelectorText, getSelectorTextUnchecked, + getStyle, getStyleUnchecked, CSSPageRule, castToCSSPageRule, + gTypeCSSPageRule) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -29,7 +30,19 @@ getSelectorText self = liftDOM ((self ^. js "selectorText") >>= fromMaybeJSString) +-- | +getSelectorTextUnchecked :: + (MonadDOM m, FromJSString result) => CSSPageRule -> m result +getSelectorTextUnchecked self + = liftDOM ((self ^. js "selectorText") >>= fromJSValUnchecked) + -- | getStyle :: (MonadDOM m) => CSSPageRule -> m (Maybe CSSStyleDeclaration) getStyle self = liftDOM ((self ^. js "style") >>= fromJSVal) + +-- | +getStyleUnchecked :: + (MonadDOM m) => CSSPageRule -> m CSSStyleDeclaration +getStyleUnchecked self + = liftDOM ((self ^. js "style") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/CSSPrimitiveValue.hs b/src/JSDOM/Generated/CSSPrimitiveValue.hs --- a/src/JSDOM/Generated/CSSPrimitiveValue.hs +++ b/src/JSDOM/Generated/CSSPrimitiveValue.hs @@ -1,17 +1,19 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CSSPrimitiveValue - (setFloatValue, getFloatValue, setStringValue, getStringValue, - getCounterValue, getRectValue, 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, + (setFloatValue, getFloatValue, getFloatValue_, setStringValue, + getStringValue, getStringValue_, getCounterValue, getCounterValue_, + getCounterValueUnchecked, getRectValue, getRectValue_, + getRectValueUnchecked, 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, getPrimitiveType, CSSPrimitiveValue, castToCSSPrimitiveValue, gTypeCSSPrimitiveValue) where @@ -44,6 +46,11 @@ (realToFrac <$> ((self ^. jsf "getFloatValue" [toJSVal unitType]) >>= valToNumber)) +-- | +getFloatValue_ :: (MonadDOM m) => CSSPrimitiveValue -> Word -> m () +getFloatValue_ self unitType + = liftDOM (void (self ^. jsf "getFloatValue" [toJSVal unitType])) + -- | setStringValue :: (MonadDOM m, ToJSString stringValue) => @@ -61,22 +68,61 @@ = liftDOM ((self ^. jsf "getStringValue" ()) >>= fromJSValUnchecked) +-- | +getStringValue_ :: (MonadDOM m) => CSSPrimitiveValue -> m () +getStringValue_ self + = liftDOM (void (self ^. jsf "getStringValue" ())) + -- | getCounterValue :: (MonadDOM m) => CSSPrimitiveValue -> m (Maybe Counter) getCounterValue self = liftDOM ((self ^. jsf "getCounterValue" ()) >>= fromJSVal) +-- | +getCounterValue_ :: (MonadDOM m) => CSSPrimitiveValue -> m () +getCounterValue_ self + = liftDOM (void (self ^. jsf "getCounterValue" ())) + +-- | +getCounterValueUnchecked :: + (MonadDOM m) => CSSPrimitiveValue -> m Counter +getCounterValueUnchecked self + = liftDOM + ((self ^. jsf "getCounterValue" ()) >>= fromJSValUnchecked) + -- | getRectValue :: (MonadDOM m) => CSSPrimitiveValue -> m (Maybe Rect) getRectValue self = liftDOM ((self ^. jsf "getRectValue" ()) >>= fromJSVal) +-- | +getRectValue_ :: (MonadDOM m) => CSSPrimitiveValue -> m () +getRectValue_ self = liftDOM (void (self ^. jsf "getRectValue" ())) + +-- | +getRectValueUnchecked :: + (MonadDOM m) => CSSPrimitiveValue -> m Rect +getRectValueUnchecked self + = liftDOM ((self ^. jsf "getRectValue" ()) >>= fromJSValUnchecked) + -- | getRGBColorValue :: (MonadDOM m) => CSSPrimitiveValue -> m (Maybe RGBColor) getRGBColorValue self = liftDOM ((self ^. jsf "getRGBColorValue" ()) >>= fromJSVal) + +-- | +getRGBColorValue_ :: (MonadDOM m) => CSSPrimitiveValue -> m () +getRGBColorValue_ self + = liftDOM (void (self ^. jsf "getRGBColorValue" ())) + +-- | +getRGBColorValueUnchecked :: + (MonadDOM m) => CSSPrimitiveValue -> m RGBColor +getRGBColorValueUnchecked self + = liftDOM + ((self ^. jsf "getRGBColorValue" ()) >>= fromJSValUnchecked) pattern CSS_UNKNOWN = 0 pattern CSS_NUMBER = 1 pattern CSS_PERCENTAGE = 2 diff --git a/src/JSDOM/Generated/CSSRule.hs b/src/JSDOM/Generated/CSSRule.hs --- a/src/JSDOM/Generated/CSSRule.hs +++ b/src/JSDOM/Generated/CSSRule.hs @@ -7,8 +7,10 @@ pattern SUPPORTS_RULE, pattern WEBKIT_VIEWPORT_RULE, pattern WEBKIT_REGION_RULE, pattern WEBKIT_KEYFRAMES_RULE, pattern WEBKIT_KEYFRAME_RULE, getType, setCssText, getCssText, - getParentStyleSheet, getParentRule, CSSRule, castToCSSRule, - gTypeCSSRule, IsCSSRule, toCSSRule) + getCssTextUnchecked, getParentStyleSheet, + getParentStyleSheetUnchecked, getParentRule, + getParentRuleUnchecked, CSSRule, castToCSSRule, gTypeCSSRule, + IsCSSRule, toCSSRule) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -57,6 +59,14 @@ = liftDOM (((toCSSRule self) ^. js "cssText") >>= fromMaybeJSString) +-- | +getCssTextUnchecked :: + (MonadDOM m, IsCSSRule self, FromJSString result) => + self -> m result +getCssTextUnchecked self + = liftDOM + (((toCSSRule self) ^. js "cssText") >>= fromJSValUnchecked) + -- | getParentStyleSheet :: (MonadDOM m, IsCSSRule self) => self -> m (Maybe CSSStyleSheet) @@ -64,8 +74,23 @@ = liftDOM (((toCSSRule self) ^. js "parentStyleSheet") >>= fromJSVal) +-- | +getParentStyleSheetUnchecked :: + (MonadDOM m, IsCSSRule self) => self -> m CSSStyleSheet +getParentStyleSheetUnchecked self + = liftDOM + (((toCSSRule self) ^. js "parentStyleSheet") >>= + fromJSValUnchecked) + -- | getParentRule :: (MonadDOM m, IsCSSRule self) => self -> m (Maybe CSSRule) getParentRule self = liftDOM (((toCSSRule self) ^. js "parentRule") >>= fromJSVal) + +-- | +getParentRuleUnchecked :: + (MonadDOM m, IsCSSRule self) => self -> m CSSRule +getParentRuleUnchecked self + = liftDOM + (((toCSSRule self) ^. js "parentRule") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/CSSRuleList.hs b/src/JSDOM/Generated/CSSRuleList.hs --- a/src/JSDOM/Generated/CSSRuleList.hs +++ b/src/JSDOM/Generated/CSSRuleList.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CSSRuleList - (item, getLength, CSSRuleList, castToCSSRuleList, gTypeCSSRuleList) + (item, item_, itemUnchecked, getLength, CSSRuleList, + castToCSSRuleList, gTypeCSSRuleList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -19,6 +20,17 @@ item :: (MonadDOM m) => CSSRuleList -> Word -> m (Maybe CSSRule) item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) + +-- | +item_ :: (MonadDOM m) => CSSRuleList -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: (MonadDOM m) => CSSRuleList -> Word -> m CSSRule +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => CSSRuleList -> m Word diff --git a/src/JSDOM/Generated/CSSStyleDeclaration.hs b/src/JSDOM/Generated/CSSStyleDeclaration.hs --- a/src/JSDOM/Generated/CSSStyleDeclaration.hs +++ b/src/JSDOM/Generated/CSSStyleDeclaration.hs @@ -1,10 +1,16 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CSSStyleDeclaration - (getPropertyValue, getPropertyCSSValue, removeProperty, - getPropertyPriority, setProperty, item, getPropertyShorthand, - isPropertyImplicit, setCssText, getCssText, getLength, - getParentRule, CSSStyleDeclaration, castToCSSStyleDeclaration, + (getPropertyValue, getPropertyValue_, getPropertyValueUnchecked, + getPropertyCSSValue, getPropertyCSSValue_, + getPropertyCSSValueUnchecked, removeProperty, removeProperty_, + removePropertyUnchecked, getPropertyPriority, getPropertyPriority_, + getPropertyPriorityUnchecked, setProperty, item, item_, + getPropertyShorthand, getPropertyShorthand_, + getPropertyShorthandUnchecked, isPropertyImplicit, + isPropertyImplicit_, setCssText, getCssText, getCssTextUnchecked, + getLength, getParentRule, getParentRuleUnchecked, + CSSStyleDeclaration, castToCSSStyleDeclaration, gTypeCSSStyleDeclaration) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -28,6 +34,23 @@ ((self ^. jsf "getPropertyValue" [toJSVal propertyName]) >>= fromMaybeJSString) +-- | +getPropertyValue_ :: + (MonadDOM m, ToJSString propertyName) => + CSSStyleDeclaration -> propertyName -> m () +getPropertyValue_ self propertyName + = liftDOM + (void (self ^. jsf "getPropertyValue" [toJSVal propertyName])) + +-- | +getPropertyValueUnchecked :: + (MonadDOM m, ToJSString propertyName, FromJSString result) => + CSSStyleDeclaration -> propertyName -> m result +getPropertyValueUnchecked self propertyName + = liftDOM + ((self ^. jsf "getPropertyValue" [toJSVal propertyName]) >>= + fromJSValUnchecked) + -- | getPropertyCSSValue :: (MonadDOM m, ToJSString propertyName) => @@ -37,6 +60,23 @@ ((self ^. jsf "getPropertyCSSValue" [toJSVal propertyName]) >>= fromJSVal) +-- | +getPropertyCSSValue_ :: + (MonadDOM m, ToJSString propertyName) => + CSSStyleDeclaration -> propertyName -> m () +getPropertyCSSValue_ self propertyName + = liftDOM + (void (self ^. jsf "getPropertyCSSValue" [toJSVal propertyName])) + +-- | +getPropertyCSSValueUnchecked :: + (MonadDOM m, ToJSString propertyName) => + CSSStyleDeclaration -> propertyName -> m CSSValue +getPropertyCSSValueUnchecked self propertyName + = liftDOM + ((self ^. jsf "getPropertyCSSValue" [toJSVal propertyName]) >>= + fromJSValUnchecked) + -- | removeProperty :: (MonadDOM m, ToJSString propertyName, FromJSString result) => @@ -46,6 +86,23 @@ ((self ^. jsf "removeProperty" [toJSVal propertyName]) >>= fromMaybeJSString) +-- | +removeProperty_ :: + (MonadDOM m, ToJSString propertyName) => + CSSStyleDeclaration -> propertyName -> m () +removeProperty_ self propertyName + = liftDOM + (void (self ^. jsf "removeProperty" [toJSVal propertyName])) + +-- | +removePropertyUnchecked :: + (MonadDOM m, ToJSString propertyName, FromJSString result) => + CSSStyleDeclaration -> propertyName -> m result +removePropertyUnchecked self propertyName + = liftDOM + ((self ^. jsf "removeProperty" [toJSVal propertyName]) >>= + fromJSValUnchecked) + -- | getPropertyPriority :: (MonadDOM m, ToJSString propertyName, FromJSString result) => @@ -55,6 +112,23 @@ ((self ^. jsf "getPropertyPriority" [toJSVal propertyName]) >>= fromMaybeJSString) +-- | +getPropertyPriority_ :: + (MonadDOM m, ToJSString propertyName) => + CSSStyleDeclaration -> propertyName -> m () +getPropertyPriority_ self propertyName + = liftDOM + (void (self ^. jsf "getPropertyPriority" [toJSVal propertyName])) + +-- | +getPropertyPriorityUnchecked :: + (MonadDOM m, ToJSString propertyName, FromJSString result) => + CSSStyleDeclaration -> propertyName -> m result +getPropertyPriorityUnchecked self propertyName + = liftDOM + ((self ^. jsf "getPropertyPriority" [toJSVal propertyName]) >>= + fromJSValUnchecked) + -- | setProperty :: (MonadDOM m, ToJSString propertyName, ToJSString value, @@ -75,6 +149,11 @@ = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) +-- | +item_ :: (MonadDOM m) => CSSStyleDeclaration -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + -- | getPropertyShorthand :: (MonadDOM m, ToJSString propertyName, FromJSString result) => @@ -84,6 +163,23 @@ ((self ^. jsf "getPropertyShorthand" [toJSVal propertyName]) >>= fromMaybeJSString) +-- | +getPropertyShorthand_ :: + (MonadDOM m, ToJSString propertyName) => + CSSStyleDeclaration -> propertyName -> m () +getPropertyShorthand_ self propertyName + = liftDOM + (void (self ^. jsf "getPropertyShorthand" [toJSVal propertyName])) + +-- | +getPropertyShorthandUnchecked :: + (MonadDOM m, ToJSString propertyName, FromJSString result) => + CSSStyleDeclaration -> propertyName -> m result +getPropertyShorthandUnchecked self propertyName + = liftDOM + ((self ^. jsf "getPropertyShorthand" [toJSVal propertyName]) >>= + fromJSValUnchecked) + -- | isPropertyImplicit :: (MonadDOM m, ToJSString propertyName) => @@ -93,6 +189,14 @@ ((self ^. jsf "isPropertyImplicit" [toJSVal propertyName]) >>= valToBool) +-- | +isPropertyImplicit_ :: + (MonadDOM m, ToJSString propertyName) => + CSSStyleDeclaration -> propertyName -> m () +isPropertyImplicit_ self propertyName + = liftDOM + (void (self ^. jsf "isPropertyImplicit" [toJSVal propertyName])) + -- | setCssText :: (MonadDOM m, ToJSString val) => @@ -106,6 +210,13 @@ getCssText self = liftDOM ((self ^. js "cssText") >>= fromMaybeJSString) +-- | +getCssTextUnchecked :: + (MonadDOM m, FromJSString result) => + CSSStyleDeclaration -> m result +getCssTextUnchecked self + = liftDOM ((self ^. js "cssText") >>= fromJSValUnchecked) + -- | getLength :: (MonadDOM m) => CSSStyleDeclaration -> m Word getLength self @@ -116,3 +227,9 @@ (MonadDOM m) => CSSStyleDeclaration -> m (Maybe CSSRule) getParentRule self = liftDOM ((self ^. js "parentRule") >>= fromJSVal) + +-- | +getParentRuleUnchecked :: + (MonadDOM m) => CSSStyleDeclaration -> m CSSRule +getParentRuleUnchecked self + = liftDOM ((self ^. js "parentRule") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/CSSStyleRule.hs b/src/JSDOM/Generated/CSSStyleRule.hs --- a/src/JSDOM/Generated/CSSStyleRule.hs +++ b/src/JSDOM/Generated/CSSStyleRule.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CSSStyleRule - (setSelectorText, getSelectorText, getStyle, CSSStyleRule, - castToCSSStyleRule, gTypeCSSStyleRule) + (setSelectorText, getSelectorText, getSelectorTextUnchecked, + getStyle, getStyleUnchecked, CSSStyleRule, castToCSSStyleRule, + gTypeCSSStyleRule) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -29,7 +30,19 @@ getSelectorText self = liftDOM ((self ^. js "selectorText") >>= fromMaybeJSString) +-- | +getSelectorTextUnchecked :: + (MonadDOM m, FromJSString result) => CSSStyleRule -> m result +getSelectorTextUnchecked self + = liftDOM ((self ^. js "selectorText") >>= fromJSValUnchecked) + -- | getStyle :: (MonadDOM m) => CSSStyleRule -> m (Maybe CSSStyleDeclaration) getStyle self = liftDOM ((self ^. js "style") >>= fromJSVal) + +-- | +getStyleUnchecked :: + (MonadDOM m) => CSSStyleRule -> m CSSStyleDeclaration +getStyleUnchecked self + = liftDOM ((self ^. js "style") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/CSSStyleSheet.hs b/src/JSDOM/Generated/CSSStyleSheet.hs --- a/src/JSDOM/Generated/CSSStyleSheet.hs +++ b/src/JSDOM/Generated/CSSStyleSheet.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CSSStyleSheet - (insertRule, deleteRule, addRule, removeRule, getOwnerRule, - getCssRules, getRules, CSSStyleSheet, castToCSSStyleSheet, - gTypeCSSStyleSheet) + (insertRule, insertRule_, deleteRule, addRule, addRule_, + removeRule, getOwnerRule, getOwnerRuleUnchecked, getCssRules, + getCssRulesUnchecked, getRules, getRulesUnchecked, CSSStyleSheet, + castToCSSStyleSheet, gTypeCSSStyleSheet) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -27,6 +28,14 @@ ((self ^. jsf "insertRule" [toJSVal rule, toJSVal index]) >>= valToNumber)) +-- | +insertRule_ :: + (MonadDOM m, ToJSString rule) => + CSSStyleSheet -> rule -> Word -> m () +insertRule_ self rule index + = liftDOM + (void (self ^. jsf "insertRule" [toJSVal rule, toJSVal index])) + -- | deleteRule :: (MonadDOM m) => CSSStyleSheet -> Word -> m () deleteRule self index @@ -43,6 +52,16 @@ [toJSVal selector, toJSVal style, toJSVal index]) >>= valToNumber)) +-- | +addRule_ :: + (MonadDOM m, ToJSString selector, ToJSString style) => + CSSStyleSheet -> selector -> style -> Word -> m () +addRule_ self selector style index + = liftDOM + (void + (self ^. jsf "addRule" + [toJSVal selector, toJSVal style, toJSVal index])) + -- | removeRule :: (MonadDOM m) => CSSStyleSheet -> Word -> m () removeRule self index @@ -53,11 +72,27 @@ getOwnerRule self = liftDOM ((self ^. js "ownerRule") >>= fromJSVal) +-- | +getOwnerRuleUnchecked :: (MonadDOM m) => CSSStyleSheet -> m CSSRule +getOwnerRuleUnchecked self + = liftDOM ((self ^. js "ownerRule") >>= fromJSValUnchecked) + -- | getCssRules :: (MonadDOM m) => CSSStyleSheet -> m (Maybe CSSRuleList) getCssRules self = liftDOM ((self ^. js "cssRules") >>= fromJSVal) +-- | +getCssRulesUnchecked :: + (MonadDOM m) => CSSStyleSheet -> m CSSRuleList +getCssRulesUnchecked self + = liftDOM ((self ^. js "cssRules") >>= fromJSValUnchecked) + -- | getRules :: (MonadDOM m) => CSSStyleSheet -> m (Maybe CSSRuleList) getRules self = liftDOM ((self ^. js "rules") >>= fromJSVal) + +-- | +getRulesUnchecked :: (MonadDOM m) => CSSStyleSheet -> m CSSRuleList +getRulesUnchecked self + = liftDOM ((self ^. js "rules") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/CSSSupportsRule.hs b/src/JSDOM/Generated/CSSSupportsRule.hs --- a/src/JSDOM/Generated/CSSSupportsRule.hs +++ b/src/JSDOM/Generated/CSSSupportsRule.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CSSSupportsRule - (insertRule, deleteRule, getCssRules, getConditionText, - CSSSupportsRule, castToCSSSupportsRule, gTypeCSSSupportsRule) + (insertRule, insertRule_, deleteRule, getCssRules, + getCssRulesUnchecked, getConditionText, CSSSupportsRule, + castToCSSSupportsRule, gTypeCSSSupportsRule) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -26,6 +27,14 @@ ((self ^. jsf "insertRule" [toJSVal rule, toJSVal index]) >>= valToNumber)) +-- | +insertRule_ :: + (MonadDOM m, ToJSString rule) => + CSSSupportsRule -> rule -> Word -> m () +insertRule_ self rule index + = liftDOM + (void (self ^. jsf "insertRule" [toJSVal rule, toJSVal index])) + -- | deleteRule :: (MonadDOM m) => CSSSupportsRule -> Word -> m () deleteRule self index @@ -35,6 +44,12 @@ getCssRules :: (MonadDOM m) => CSSSupportsRule -> m (Maybe CSSRuleList) getCssRules self = liftDOM ((self ^. js "cssRules") >>= fromJSVal) + +-- | +getCssRulesUnchecked :: + (MonadDOM m) => CSSSupportsRule -> m CSSRuleList +getCssRulesUnchecked self + = liftDOM ((self ^. js "cssRules") >>= fromJSValUnchecked) -- | getConditionText :: diff --git a/src/JSDOM/Generated/CSSValue.hs b/src/JSDOM/Generated/CSSValue.hs --- a/src/JSDOM/Generated/CSSValue.hs +++ b/src/JSDOM/Generated/CSSValue.hs @@ -3,8 +3,8 @@ module JSDOM.Generated.CSSValue (pattern CSS_INHERIT, pattern CSS_PRIMITIVE_VALUE, pattern CSS_VALUE_LIST, pattern CSS_CUSTOM, setCssText, getCssText, - getCssValueType, CSSValue, castToCSSValue, gTypeCSSValue, - IsCSSValue, toCSSValue) + getCssTextUnchecked, getCssValueType, CSSValue, castToCSSValue, + gTypeCSSValue, IsCSSValue, toCSSValue) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -36,6 +36,14 @@ getCssText self = liftDOM (((toCSSValue self) ^. js "cssText") >>= fromMaybeJSString) + +-- | +getCssTextUnchecked :: + (MonadDOM m, IsCSSValue self, FromJSString result) => + self -> m result +getCssTextUnchecked self + = liftDOM + (((toCSSValue self) ^. js "cssText") >>= fromJSValUnchecked) -- | getCssValueType :: (MonadDOM m, IsCSSValue self) => self -> m Word diff --git a/src/JSDOM/Generated/CSSValueList.hs b/src/JSDOM/Generated/CSSValueList.hs --- a/src/JSDOM/Generated/CSSValueList.hs +++ b/src/JSDOM/Generated/CSSValueList.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CSSValueList - (item, getLength, CSSValueList, castToCSSValueList, - gTypeCSSValueList, IsCSSValueList, toCSSValueList) + (item, item_, itemUnchecked, getLength, CSSValueList, + castToCSSValueList, gTypeCSSValueList, IsCSSValueList, + toCSSValueList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -24,6 +25,20 @@ = liftDOM (((toCSSValueList self) ^. jsf "item" [toJSVal index]) >>= fromJSVal) + +-- | +item_ :: (MonadDOM m, IsCSSValueList self) => self -> Word -> m () +item_ self index + = liftDOM + (void ((toCSSValueList self) ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m, IsCSSValueList self) => self -> Word -> m CSSValue +itemUnchecked self index + = liftDOM + (((toCSSValueList self) ^. jsf "item" [toJSVal index]) >>= + fromJSValUnchecked) -- | getLength :: (MonadDOM m, IsCSSValueList self) => self -> m Word diff --git a/src/JSDOM/Generated/CanvasRenderingContext.hs b/src/JSDOM/Generated/CanvasRenderingContext.hs --- a/src/JSDOM/Generated/CanvasRenderingContext.hs +++ b/src/JSDOM/Generated/CanvasRenderingContext.hs @@ -1,9 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CanvasRenderingContext - (getCanvas, CanvasRenderingContext, castToCanvasRenderingContext, - gTypeCanvasRenderingContext, IsCanvasRenderingContext, - toCanvasRenderingContext) + (getCanvas, getCanvasUnchecked, CanvasRenderingContext, + castToCanvasRenderingContext, gTypeCanvasRenderingContext, + IsCanvasRenderingContext, toCanvasRenderingContext) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -24,3 +24,12 @@ getCanvas self = liftDOM (((toCanvasRenderingContext self) ^. js "canvas") >>= fromJSVal) + +-- | +getCanvasUnchecked :: + (MonadDOM m, IsCanvasRenderingContext self) => + self -> m HTMLCanvasElement +getCanvasUnchecked self + = liftDOM + (((toCanvasRenderingContext self) ^. js "canvas") >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/CanvasRenderingContext2D.hs b/src/JSDOM/Generated/CanvasRenderingContext2D.hs --- a/src/JSDOM/Generated/CanvasRenderingContext2D.hs +++ b/src/JSDOM/Generated/CanvasRenderingContext2D.hs @@ -2,12 +2,16 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CanvasRenderingContext2D (save, restore, scale, rotate, translate, transform, setTransform, - createLinearGradient, createRadialGradient, setLineDash, - getLineDash, clearRect, fillRect, beginPath, closePath, moveTo, - lineTo, quadraticCurveTo, bezierCurveTo, arcTo, rect, arc, - fillPath, strokePath, clipPath, fill, stroke, clip, - isPointInPathPath, isPointInStrokePath, isPointInPath, - isPointInStroke, measureText, setAlpha, setCompositeOperation, + createLinearGradient, createLinearGradient_, + createLinearGradientUnchecked, createRadialGradient, + createRadialGradient_, createRadialGradientUnchecked, setLineDash, + getLineDash, getLineDash_, clearRect, fillRect, beginPath, + closePath, moveTo, lineTo, quadraticCurveTo, bezierCurveTo, arcTo, + rect, arc, fillPath, strokePath, clipPath, fill, stroke, clip, + isPointInPathPath, isPointInPathPath_, isPointInStrokePath, + isPointInStrokePath_, isPointInPath, isPointInPath_, + isPointInStroke, isPointInStroke_, measureText, measureText_, + measureTextUnchecked, setAlpha, setCompositeOperation, setLineWidthFunction, setLineCapFunction, setLineJoinFunction, setMiterLimitFunction, clearShadow, fillText, strokeText, setStrokeColor, setStrokeColorGray, setStrokeColorRGB, @@ -19,20 +23,29 @@ drawImageFromVideoPart, drawImageFromRect, setShadow, setShadowGray, setShadowRGB, setShadowCYMK, putImageData, putImageDataDirty, webkitPutImageDataHD, webkitPutImageDataHDDirty, - createPatternFromCanvas, createPattern, createImageData, - createImageDataSize, getImageData, webkitGetImageDataHD, + createPatternFromCanvas, createPatternFromCanvas_, + createPatternFromCanvasUnchecked, createPattern, createPattern_, + createPatternUnchecked, createImageData, createImageData_, + createImageDataUnchecked, createImageDataSize, + createImageDataSize_, createImageDataSizeUnchecked, getImageData, + getImageData_, getImageDataUnchecked, webkitGetImageDataHD, + webkitGetImageDataHD_, webkitGetImageDataHDUnchecked, drawFocusIfNeeded, drawFocusIfNeededPath, setGlobalAlpha, getGlobalAlpha, setGlobalCompositeOperation, - getGlobalCompositeOperation, setLineWidth, getLineWidth, - setLineCap, getLineCap, setLineJoin, getLineJoin, setMiterLimit, - getMiterLimit, setShadowOffsetX, getShadowOffsetX, - setShadowOffsetY, getShadowOffsetY, setShadowBlur, getShadowBlur, - setShadowColor, getShadowColor, setLineDashOffset, + getGlobalCompositeOperation, getGlobalCompositeOperationUnchecked, + setLineWidth, getLineWidth, setLineCap, getLineCap, + getLineCapUnchecked, setLineJoin, getLineJoin, + getLineJoinUnchecked, setMiterLimit, getMiterLimit, + setShadowOffsetX, getShadowOffsetX, setShadowOffsetY, + getShadowOffsetY, setShadowBlur, getShadowBlur, setShadowColor, + getShadowColor, getShadowColorUnchecked, setLineDashOffset, getLineDashOffset, setWebkitLineDash, getWebkitLineDash, - setWebkitLineDashOffset, getWebkitLineDashOffset, setFont, getFont, - setTextAlign, getTextAlign, setTextBaseline, getTextBaseline, - setDirection, getDirection, setStrokeStyle, getStrokeStyle, - setFillStyle, getFillStyle, getWebkitBackingStorePixelRatio, + getWebkitLineDashUnchecked, setWebkitLineDashOffset, + getWebkitLineDashOffset, setFont, getFont, setTextAlign, + getTextAlign, setTextBaseline, getTextBaseline, setDirection, + getDirection, setStrokeStyle, getStrokeStyle, + getStrokeStyleUnchecked, setFillStyle, getFillStyle, + getFillStyleUnchecked, getWebkitBackingStorePixelRatio, setWebkitImageSmoothingEnabled, getWebkitImageSmoothingEnabled, CanvasRenderingContext2D, castToCanvasRenderingContext2D, gTypeCanvasRenderingContext2D) @@ -109,6 +122,28 @@ [toJSVal x0, toJSVal y0, toJSVal x1, toJSVal y1]) >>= fromJSVal) +-- | +createLinearGradient_ :: + (MonadDOM m) => + CanvasRenderingContext2D -> + Float -> Float -> Float -> Float -> m () +createLinearGradient_ self x0 y0 x1 y1 + = liftDOM + (void + (self ^. jsf "createLinearGradient" + [toJSVal x0, toJSVal y0, toJSVal x1, toJSVal y1])) + +-- | +createLinearGradientUnchecked :: + (MonadDOM m) => + CanvasRenderingContext2D -> + Float -> Float -> Float -> Float -> m CanvasGradient +createLinearGradientUnchecked self x0 y0 x1 y1 + = liftDOM + ((self ^. jsf "createLinearGradient" + [toJSVal x0, toJSVal y0, toJSVal x1, toJSVal y1]) + >>= fromJSValUnchecked) + -- | createRadialGradient :: (MonadDOM m) => @@ -123,6 +158,31 @@ toJSVal r1]) >>= fromJSVal) +-- | +createRadialGradient_ :: + (MonadDOM m) => + CanvasRenderingContext2D -> + Float -> Float -> Float -> Float -> Float -> Float -> m () +createRadialGradient_ self x0 y0 r0 x1 y1 r1 + = liftDOM + (void + (self ^. jsf "createRadialGradient" + [toJSVal x0, toJSVal y0, toJSVal r0, toJSVal x1, toJSVal y1, + toJSVal r1])) + +-- | +createRadialGradientUnchecked :: + (MonadDOM m) => + CanvasRenderingContext2D -> + Float -> + Float -> Float -> Float -> Float -> Float -> m CanvasGradient +createRadialGradientUnchecked self x0 y0 r0 x1 y1 r1 + = liftDOM + ((self ^. jsf "createRadialGradient" + [toJSVal x0, toJSVal y0, toJSVal r0, toJSVal x1, toJSVal y1, + toJSVal r1]) + >>= fromJSValUnchecked) + -- | setLineDash :: (MonadDOM m) => CanvasRenderingContext2D -> [Float] -> m () @@ -135,6 +195,10 @@ getLineDash self = liftDOM ((self ^. jsf "getLineDash" ()) >>= fromJSArrayUnchecked) +-- | +getLineDash_ :: (MonadDOM m) => CanvasRenderingContext2D -> m () +getLineDash_ self = liftDOM (void (self ^. jsf "getLineDash" ())) + -- | clearRect :: (MonadDOM m) => @@ -287,6 +351,17 @@ [toJSVal path, toJSVal x, toJSVal y, toJSVal winding]) >>= valToBool) +-- | +isPointInPathPath_ :: + (MonadDOM m) => + CanvasRenderingContext2D -> + Maybe Path2D -> Float -> Float -> CanvasWindingRule -> m () +isPointInPathPath_ self path x y winding + = liftDOM + (void + (self ^. jsf "isPointInPath" + [toJSVal path, toJSVal x, toJSVal y, toJSVal winding])) + -- | isPointInStrokePath :: (MonadDOM m) => @@ -298,6 +373,16 @@ [toJSVal path, toJSVal x, toJSVal y]) >>= valToBool) +-- | +isPointInStrokePath_ :: + (MonadDOM m) => + CanvasRenderingContext2D -> Maybe Path2D -> Float -> Float -> m () +isPointInStrokePath_ self path x y + = liftDOM + (void + (self ^. jsf "isPointInStroke" + [toJSVal path, toJSVal x, toJSVal y])) + -- | isPointInPath :: (MonadDOM m) => @@ -309,6 +394,17 @@ [toJSVal x, toJSVal y, toJSVal winding]) >>= valToBool) +-- | +isPointInPath_ :: + (MonadDOM m) => + CanvasRenderingContext2D -> + Float -> Float -> CanvasWindingRule -> m () +isPointInPath_ self x y winding + = liftDOM + (void + (self ^. jsf "isPointInPath" + [toJSVal x, toJSVal y, toJSVal winding])) + -- | isPointInStroke :: (MonadDOM m) => @@ -318,6 +414,13 @@ ((self ^. jsf "isPointInStroke" [toJSVal x, toJSVal y]) >>= valToBool) +-- | +isPointInStroke_ :: + (MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m () +isPointInStroke_ self x y + = liftDOM + (void (self ^. jsf "isPointInStroke" [toJSVal x, toJSVal y])) + -- | measureText :: (MonadDOM m, ToJSString text) => @@ -326,6 +429,21 @@ = liftDOM ((self ^. jsf "measureText" [toJSVal text]) >>= fromJSVal) +-- | +measureText_ :: + (MonadDOM m, ToJSString text) => + CanvasRenderingContext2D -> text -> m () +measureText_ self text + = liftDOM (void (self ^. jsf "measureText" [toJSVal text])) + +-- | +measureTextUnchecked :: + (MonadDOM m, ToJSString text) => + CanvasRenderingContext2D -> text -> m TextMetrics +measureTextUnchecked self text + = liftDOM + ((self ^. jsf "measureText" [toJSVal text]) >>= fromJSValUnchecked) + -- | setAlpha :: (MonadDOM m) => CanvasRenderingContext2D -> Float -> m () @@ -718,6 +836,29 @@ >>= fromJSVal) -- | +createPatternFromCanvas_ :: + (MonadDOM m, ToJSString repetitionType) => + CanvasRenderingContext2D -> + Maybe HTMLCanvasElement -> Maybe repetitionType -> m () +createPatternFromCanvas_ self canvas repetitionType + = liftDOM + (void + (self ^. jsf "createPattern" + [toJSVal canvas, toJSVal repetitionType])) + +-- | +createPatternFromCanvasUnchecked :: + (MonadDOM m, ToJSString repetitionType) => + CanvasRenderingContext2D -> + Maybe HTMLCanvasElement -> + Maybe repetitionType -> m CanvasPattern +createPatternFromCanvasUnchecked self canvas repetitionType + = liftDOM + ((self ^. jsf "createPattern" + [toJSVal canvas, toJSVal repetitionType]) + >>= fromJSValUnchecked) + +-- | createPattern :: (MonadDOM m, ToJSString repetitionType) => CanvasRenderingContext2D -> @@ -729,6 +870,28 @@ [toJSVal image, toJSVal repetitionType]) >>= fromJSVal) +-- | +createPattern_ :: + (MonadDOM m, ToJSString repetitionType) => + CanvasRenderingContext2D -> + Maybe HTMLImageElement -> Maybe repetitionType -> m () +createPattern_ self image repetitionType + = liftDOM + (void + (self ^. jsf "createPattern" + [toJSVal image, toJSVal repetitionType])) + +-- | +createPatternUnchecked :: + (MonadDOM m, ToJSString repetitionType) => + CanvasRenderingContext2D -> + Maybe HTMLImageElement -> Maybe repetitionType -> m CanvasPattern +createPatternUnchecked self image repetitionType + = liftDOM + ((self ^. jsf "createPattern" + [toJSVal image, toJSVal repetitionType]) + >>= fromJSValUnchecked) + -- | createImageData :: (MonadDOM m) => @@ -738,6 +901,22 @@ ((self ^. jsf "createImageData" [toJSVal imagedata]) >>= fromJSVal) -- | +createImageData_ :: + (MonadDOM m) => CanvasRenderingContext2D -> Maybe ImageData -> m () +createImageData_ self imagedata + = liftDOM + (void (self ^. jsf "createImageData" [toJSVal imagedata])) + +-- | +createImageDataUnchecked :: + (MonadDOM m) => + CanvasRenderingContext2D -> Maybe ImageData -> m ImageData +createImageDataUnchecked self imagedata + = liftDOM + ((self ^. jsf "createImageData" [toJSVal imagedata]) >>= + fromJSValUnchecked) + +-- | createImageDataSize :: (MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m (Maybe ImageData) @@ -746,6 +925,22 @@ ((self ^. jsf "createImageData" [toJSVal sw, toJSVal sh]) >>= fromJSVal) +-- | +createImageDataSize_ :: + (MonadDOM m) => CanvasRenderingContext2D -> Float -> Float -> m () +createImageDataSize_ self sw sh + = liftDOM + (void (self ^. jsf "createImageData" [toJSVal sw, toJSVal sh])) + +-- | +createImageDataSizeUnchecked :: + (MonadDOM m) => + CanvasRenderingContext2D -> Float -> Float -> m ImageData +createImageDataSizeUnchecked self sw sh + = liftDOM + ((self ^. jsf "createImageData" [toJSVal sw, toJSVal sh]) >>= + fromJSValUnchecked) + -- | getImageData :: (MonadDOM m) => @@ -757,6 +952,28 @@ [toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh]) >>= fromJSVal) +-- | +getImageData_ :: + (MonadDOM m) => + CanvasRenderingContext2D -> + Float -> Float -> Float -> Float -> m () +getImageData_ self sx sy sw sh + = liftDOM + (void + (self ^. jsf "getImageData" + [toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh])) + +-- | +getImageDataUnchecked :: + (MonadDOM m) => + CanvasRenderingContext2D -> + Float -> Float -> Float -> Float -> m ImageData +getImageDataUnchecked self sx sy sw sh + = liftDOM + ((self ^. jsf "getImageData" + [toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh]) + >>= fromJSValUnchecked) + -- | webkitGetImageDataHD :: (MonadDOM m) => @@ -768,6 +985,28 @@ [toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh]) >>= fromJSVal) +-- | +webkitGetImageDataHD_ :: + (MonadDOM m) => + CanvasRenderingContext2D -> + Float -> Float -> Float -> Float -> m () +webkitGetImageDataHD_ self sx sy sw sh + = liftDOM + (void + (self ^. jsf "webkitGetImageDataHD" + [toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh])) + +-- | +webkitGetImageDataHDUnchecked :: + (MonadDOM m) => + CanvasRenderingContext2D -> + Float -> Float -> Float -> Float -> m ImageData +webkitGetImageDataHDUnchecked self sx sy sw sh + = liftDOM + ((self ^. jsf "webkitGetImageDataHD" + [toJSVal sx, toJSVal sy, toJSVal sw, toJSVal sh]) + >>= fromJSValUnchecked) + -- | drawFocusIfNeeded :: (MonadDOM m, IsElement element) => @@ -813,6 +1052,14 @@ = liftDOM ((self ^. js "globalCompositeOperation") >>= fromMaybeJSString) +-- | +getGlobalCompositeOperationUnchecked :: + (MonadDOM m, FromJSString result) => + CanvasRenderingContext2D -> m result +getGlobalCompositeOperationUnchecked self + = liftDOM + ((self ^. js "globalCompositeOperation") >>= fromJSValUnchecked) + -- | setLineWidth :: (MonadDOM m) => CanvasRenderingContext2D -> Float -> m () @@ -838,6 +1085,13 @@ getLineCap self = liftDOM ((self ^. js "lineCap") >>= fromMaybeJSString) +-- | +getLineCapUnchecked :: + (MonadDOM m, FromJSString result) => + CanvasRenderingContext2D -> m result +getLineCapUnchecked self + = liftDOM ((self ^. js "lineCap") >>= fromJSValUnchecked) + -- | setLineJoin :: (MonadDOM m, ToJSString val) => @@ -852,6 +1106,13 @@ getLineJoin self = liftDOM ((self ^. js "lineJoin") >>= fromMaybeJSString) +-- | +getLineJoinUnchecked :: + (MonadDOM m, FromJSString result) => + CanvasRenderingContext2D -> m result +getLineJoinUnchecked self + = liftDOM ((self ^. js "lineJoin") >>= fromJSValUnchecked) + -- | setMiterLimit :: (MonadDOM m) => CanvasRenderingContext2D -> Float -> m () @@ -918,6 +1179,13 @@ getShadowColor self = liftDOM ((self ^. js "shadowColor") >>= fromMaybeJSString) +-- | +getShadowColorUnchecked :: + (MonadDOM m, FromJSString result) => + CanvasRenderingContext2D -> m result +getShadowColorUnchecked self + = liftDOM ((self ^. js "shadowColor") >>= fromJSValUnchecked) + -- | setLineDashOffset :: (MonadDOM m) => CanvasRenderingContext2D -> Float -> m () @@ -944,6 +1212,12 @@ getWebkitLineDash self = liftDOM ((self ^. js "webkitLineDash") >>= fromJSVal) +-- | +getWebkitLineDashUnchecked :: + (MonadDOM m) => CanvasRenderingContext2D -> m Array +getWebkitLineDashUnchecked self + = liftDOM ((self ^. js "webkitLineDash") >>= fromJSValUnchecked) + -- | setWebkitLineDashOffset :: (MonadDOM m) => CanvasRenderingContext2D -> Float -> m () @@ -1025,6 +1299,12 @@ getStrokeStyle self = liftDOM ((self ^. js "strokeStyle") >>= fromJSVal) +-- | +getStrokeStyleUnchecked :: + (MonadDOM m) => CanvasRenderingContext2D -> m CanvasStyle +getStrokeStyleUnchecked self + = liftDOM ((self ^. js "strokeStyle") >>= fromJSValUnchecked) + -- | setFillStyle :: (MonadDOM m, IsCanvasStyle val) => @@ -1037,6 +1317,12 @@ (MonadDOM m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle) getFillStyle self = liftDOM ((self ^. js "fillStyle") >>= fromJSVal) + +-- | +getFillStyleUnchecked :: + (MonadDOM m) => CanvasRenderingContext2D -> m CanvasStyle +getFillStyleUnchecked self + = liftDOM ((self ^. js "fillStyle") >>= fromJSValUnchecked) -- | getWebkitBackingStorePixelRatio :: diff --git a/src/JSDOM/Generated/CharacterData.hs b/src/JSDOM/Generated/CharacterData.hs --- a/src/JSDOM/Generated/CharacterData.hs +++ b/src/JSDOM/Generated/CharacterData.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CharacterData - (substringData, appendData, insertData, deleteData, replaceData, - setData, getData, getLength, CharacterData, castToCharacterData, + (substringData, substringData_, substringDataUnchecked, appendData, + insertData, deleteData, replaceData, setData, getData, + getDataUnchecked, getLength, CharacterData, castToCharacterData, gTypeCharacterData, IsCharacterData, toCharacterData) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -27,6 +28,25 @@ [toJSVal offset, toJSVal length]) >>= fromMaybeJSString) +-- | +substringData_ :: + (MonadDOM m, IsCharacterData self) => self -> Word -> Word -> m () +substringData_ self offset length + = liftDOM + (void + ((toCharacterData self) ^. jsf "substringData" + [toJSVal offset, toJSVal length])) + +-- | +substringDataUnchecked :: + (MonadDOM m, IsCharacterData self, FromJSString result) => + self -> Word -> Word -> m result +substringDataUnchecked self offset length + = liftDOM + (((toCharacterData self) ^. jsf "substringData" + [toJSVal offset, toJSVal length]) + >>= fromJSValUnchecked) + -- | appendData :: (MonadDOM m, IsCharacterData self, ToJSString data') => @@ -78,6 +98,14 @@ getData self = liftDOM (((toCharacterData self) ^. js "data") >>= fromMaybeJSString) + +-- | +getDataUnchecked :: + (MonadDOM m, IsCharacterData self, FromJSString result) => + self -> m result +getDataUnchecked self + = liftDOM + (((toCharacterData self) ^. js "data") >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m, IsCharacterData self) => self -> m Word diff --git a/src/JSDOM/Generated/ClientRectList.hs b/src/JSDOM/Generated/ClientRectList.hs --- a/src/JSDOM/Generated/ClientRectList.hs +++ b/src/JSDOM/Generated/ClientRectList.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.ClientRectList - (item, getLength, ClientRectList, castToClientRectList, - gTypeClientRectList) + (item, item_, itemUnchecked, getLength, ClientRectList, + castToClientRectList, gTypeClientRectList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,6 +21,18 @@ (MonadDOM m) => ClientRectList -> Word -> m (Maybe ClientRect) item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) + +-- | +item_ :: (MonadDOM m) => ClientRectList -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m) => ClientRectList -> Word -> m ClientRect +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => ClientRectList -> m Word diff --git a/src/JSDOM/Generated/CommandLineAPIHost.hs b/src/JSDOM/Generated/CommandLineAPIHost.hs --- a/src/JSDOM/Generated/CommandLineAPIHost.hs +++ b/src/JSDOM/Generated/CommandLineAPIHost.hs @@ -2,8 +2,10 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CommandLineAPIHost (clearConsoleMessages, copyText, inspect, inspectedObject, - getEventListeners, databaseId, storageId, CommandLineAPIHost, - castToCommandLineAPIHost, gTypeCommandLineAPIHost) + inspectedObject_, getEventListeners, getEventListeners_, + getEventListenersUnchecked, databaseId, databaseId_, storageId, + storageId_, CommandLineAPIHost, castToCommandLineAPIHost, + gTypeCommandLineAPIHost) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -42,6 +44,12 @@ = liftDOM ((self ^. jsf "inspectedObject" [toJSVal num]) >>= toJSVal) +-- | +inspectedObject_ :: + (MonadDOM m) => CommandLineAPIHost -> Int -> m () +inspectedObject_ self num + = liftDOM (void (self ^. jsf "inspectedObject" [toJSVal num])) + -- | getEventListeners :: (MonadDOM m, IsNode node) => @@ -50,6 +58,22 @@ = liftDOM ((self ^. jsf "getEventListeners" [toJSVal node]) >>= fromJSVal) +-- | +getEventListeners_ :: + (MonadDOM m, IsNode node) => + CommandLineAPIHost -> Maybe node -> m () +getEventListeners_ self node + = liftDOM (void (self ^. jsf "getEventListeners" [toJSVal node])) + +-- | +getEventListenersUnchecked :: + (MonadDOM m, IsNode node) => + CommandLineAPIHost -> Maybe node -> m Array +getEventListenersUnchecked self node + = liftDOM + ((self ^. jsf "getEventListeners" [toJSVal node]) >>= + fromJSValUnchecked) + -- | databaseId :: (MonadDOM m, FromJSString result) => @@ -59,6 +83,11 @@ ((self ^. jsf "databaseId" [toJSVal database]) >>= fromJSValUnchecked) +-- | +databaseId_ :: (MonadDOM m) => CommandLineAPIHost -> JSVal -> m () +databaseId_ self database + = liftDOM (void (self ^. jsf "databaseId" [toJSVal database])) + -- | storageId :: (MonadDOM m, FromJSString result) => @@ -67,3 +96,8 @@ = liftDOM ((self ^. jsf "storageId" [toJSVal storage]) >>= fromJSValUnchecked) + +-- | +storageId_ :: (MonadDOM m) => CommandLineAPIHost -> JSVal -> m () +storageId_ self storage + = liftDOM (void (self ^. jsf "storageId" [toJSVal storage])) diff --git a/src/JSDOM/Generated/ConvolverNode.hs b/src/JSDOM/Generated/ConvolverNode.hs --- a/src/JSDOM/Generated/ConvolverNode.hs +++ b/src/JSDOM/Generated/ConvolverNode.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.ConvolverNode - (setBuffer, getBuffer, setNormalize, getNormalize, ConvolverNode, - castToConvolverNode, gTypeConvolverNode) + (setBuffer, getBuffer, getBufferUnchecked, setNormalize, + getNormalize, ConvolverNode, castToConvolverNode, + gTypeConvolverNode) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -24,6 +25,12 @@ -- | getBuffer :: (MonadDOM m) => ConvolverNode -> m (Maybe AudioBuffer) getBuffer self = liftDOM ((self ^. js "buffer") >>= fromJSVal) + +-- | +getBufferUnchecked :: + (MonadDOM m) => ConvolverNode -> m AudioBuffer +getBufferUnchecked self + = liftDOM ((self ^. js "buffer") >>= fromJSValUnchecked) -- | setNormalize :: (MonadDOM m) => ConvolverNode -> Bool -> m () diff --git a/src/JSDOM/Generated/Coordinates.hs b/src/JSDOM/Generated/Coordinates.hs --- a/src/JSDOM/Generated/Coordinates.hs +++ b/src/JSDOM/Generated/Coordinates.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Coordinates - (getLatitude, getLongitude, getAltitude, getAccuracy, - getAltitudeAccuracy, getHeading, getSpeed, Coordinates, - castToCoordinates, gTypeCoordinates) + (getLatitude, getLongitude, getAltitude, getAltitudeUnchecked, + getAccuracy, getAltitudeAccuracy, getAltitudeAccuracyUnchecked, + getHeading, getHeadingUnchecked, getSpeed, getSpeedUnchecked, + Coordinates, castToCoordinates, gTypeCoordinates) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -31,6 +32,11 @@ getAltitude :: (MonadDOM m) => Coordinates -> m (Maybe Double) getAltitude self = liftDOM ((self ^. js "altitude") >>= fromJSVal) +-- | +getAltitudeUnchecked :: (MonadDOM m) => Coordinates -> m Double +getAltitudeUnchecked self + = liftDOM ((self ^. js "altitude") >>= fromJSValUnchecked) + -- | getAccuracy :: (MonadDOM m) => Coordinates -> m Double getAccuracy self @@ -42,10 +48,26 @@ getAltitudeAccuracy self = liftDOM ((self ^. js "altitudeAccuracy") >>= fromJSVal) +-- | +getAltitudeAccuracyUnchecked :: + (MonadDOM m) => Coordinates -> m Double +getAltitudeAccuracyUnchecked self + = liftDOM ((self ^. js "altitudeAccuracy") >>= fromJSValUnchecked) + -- | getHeading :: (MonadDOM m) => Coordinates -> m (Maybe Double) getHeading self = liftDOM ((self ^. js "heading") >>= fromJSVal) +-- | +getHeadingUnchecked :: (MonadDOM m) => Coordinates -> m Double +getHeadingUnchecked self + = liftDOM ((self ^. js "heading") >>= fromJSValUnchecked) + -- | getSpeed :: (MonadDOM m) => Coordinates -> m (Maybe Double) getSpeed self = liftDOM ((self ^. js "speed") >>= fromJSVal) + +-- | +getSpeedUnchecked :: (MonadDOM m) => Coordinates -> m Double +getSpeedUnchecked self + = liftDOM ((self ^. js "speed") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/Crypto.hs b/src/JSDOM/Generated/Crypto.hs --- a/src/JSDOM/Generated/Crypto.hs +++ b/src/JSDOM/Generated/Crypto.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Crypto - (getRandomValues, getWebkitSubtle, Crypto, castToCrypto, + (getRandomValues, getRandomValues_, getRandomValuesUnchecked, + getWebkitSubtle, getWebkitSubtleUnchecked, Crypto, castToCrypto, gTypeCrypto) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -24,7 +25,29 @@ = liftDOM ((self ^. jsf "getRandomValues" [toJSVal array]) >>= fromJSVal) +-- | +getRandomValues_ :: + (MonadDOM m, IsArrayBufferView array) => + Crypto -> Maybe array -> m () +getRandomValues_ self array + = liftDOM (void (self ^. jsf "getRandomValues" [toJSVal array])) + +-- | +getRandomValuesUnchecked :: + (MonadDOM m, IsArrayBufferView array) => + Crypto -> Maybe array -> m ArrayBufferView +getRandomValuesUnchecked self array + = liftDOM + ((self ^. jsf "getRandomValues" [toJSVal array]) >>= + fromJSValUnchecked) + -- | getWebkitSubtle :: (MonadDOM m) => Crypto -> m (Maybe SubtleCrypto) getWebkitSubtle self = liftDOM ((self ^. js "webkitSubtle") >>= fromJSVal) + +-- | +getWebkitSubtleUnchecked :: + (MonadDOM m) => Crypto -> m SubtleCrypto +getWebkitSubtleUnchecked self + = liftDOM ((self ^. js "webkitSubtle") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/CryptoKey.hs b/src/JSDOM/Generated/CryptoKey.hs --- a/src/JSDOM/Generated/CryptoKey.hs +++ b/src/JSDOM/Generated/CryptoKey.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CryptoKey - (getType, getExtractable, getAlgorithm, getUsages, CryptoKey, - castToCryptoKey, gTypeCryptoKey) + (getType, getExtractable, getAlgorithm, getAlgorithmUnchecked, + getUsages, CryptoKey, castToCryptoKey, gTypeCryptoKey) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -29,6 +29,11 @@ getAlgorithm :: (MonadDOM m) => CryptoKey -> m (Maybe Algorithm) getAlgorithm self = liftDOM ((self ^. js "algorithm") >>= fromJSVal) + +-- | +getAlgorithmUnchecked :: (MonadDOM m) => CryptoKey -> m Algorithm +getAlgorithmUnchecked self + = liftDOM ((self ^. js "algorithm") >>= fromJSValUnchecked) -- | getUsages :: (MonadDOM m) => CryptoKey -> m [KeyUsage] diff --git a/src/JSDOM/Generated/CryptoKeyPair.hs b/src/JSDOM/Generated/CryptoKeyPair.hs --- a/src/JSDOM/Generated/CryptoKeyPair.hs +++ b/src/JSDOM/Generated/CryptoKeyPair.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.CryptoKeyPair - (getPublicKey, getPrivateKey, CryptoKeyPair, castToCryptoKeyPair, + (getPublicKey, getPublicKeyUnchecked, getPrivateKey, + getPrivateKeyUnchecked, CryptoKeyPair, castToCryptoKeyPair, gTypeCryptoKeyPair) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -22,8 +23,20 @@ getPublicKey self = liftDOM ((self ^. js "publicKey") >>= fromJSVal) +-- | +getPublicKeyUnchecked :: + (MonadDOM m) => CryptoKeyPair -> m CryptoKey +getPublicKeyUnchecked self + = liftDOM ((self ^. js "publicKey") >>= fromJSValUnchecked) + -- | getPrivateKey :: (MonadDOM m) => CryptoKeyPair -> m (Maybe CryptoKey) getPrivateKey self = liftDOM ((self ^. js "privateKey") >>= fromJSVal) + +-- | +getPrivateKeyUnchecked :: + (MonadDOM m) => CryptoKeyPair -> m CryptoKey +getPrivateKeyUnchecked self + = liftDOM ((self ^. js "privateKey") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/DOMImplementation.hs b/src/JSDOM/Generated/DOMImplementation.hs --- a/src/JSDOM/Generated/DOMImplementation.hs +++ b/src/JSDOM/Generated/DOMImplementation.hs @@ -1,9 +1,12 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.DOMImplementation - (hasFeature, createDocumentType, createDocument, - createCSSStyleSheet, createHTMLDocument, DOMImplementation, - castToDOMImplementation, gTypeDOMImplementation) + (hasFeature, hasFeature_, createDocumentType, createDocumentType_, + createDocumentTypeUnchecked, createDocument, createDocument_, + createDocumentUnchecked, createCSSStyleSheet, createCSSStyleSheet_, + createCSSStyleSheetUnchecked, createHTMLDocument, + createHTMLDocument_, createHTMLDocumentUnchecked, + DOMImplementation, castToDOMImplementation, gTypeDOMImplementation) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -26,6 +29,15 @@ ((self ^. jsf "hasFeature" [toJSVal feature, toJSVal version]) >>= valToBool) +-- | +hasFeature_ :: + (MonadDOM m, ToJSString feature, ToJSString version) => + DOMImplementation -> feature -> Maybe version -> m () +hasFeature_ self feature version + = liftDOM + (void + (self ^. jsf "hasFeature" [toJSVal feature, toJSVal version])) + -- | createDocumentType :: (MonadDOM m, ToJSString qualifiedName, ToJSString publicId, @@ -39,6 +51,31 @@ [toJSVal qualifiedName, toJSVal publicId, toJSVal systemId]) >>= fromJSVal) +-- | +createDocumentType_ :: + (MonadDOM m, ToJSString qualifiedName, ToJSString publicId, + ToJSString systemId) => + DOMImplementation -> + Maybe qualifiedName -> Maybe publicId -> Maybe systemId -> m () +createDocumentType_ self qualifiedName publicId systemId + = liftDOM + (void + (self ^. jsf "createDocumentType" + [toJSVal qualifiedName, toJSVal publicId, toJSVal systemId])) + +-- | +createDocumentTypeUnchecked :: + (MonadDOM m, ToJSString qualifiedName, ToJSString publicId, + ToJSString systemId) => + DOMImplementation -> + Maybe qualifiedName -> + Maybe publicId -> Maybe systemId -> m DocumentType +createDocumentTypeUnchecked self qualifiedName publicId systemId + = liftDOM + ((self ^. jsf "createDocumentType" + [toJSVal qualifiedName, toJSVal publicId, toJSVal systemId]) + >>= fromJSValUnchecked) + -- | createDocument :: (MonadDOM m, ToJSString namespaceURI, ToJSString qualifiedName) => @@ -51,6 +88,30 @@ [toJSVal namespaceURI, toJSVal qualifiedName, toJSVal doctype]) >>= fromJSVal) +-- | +createDocument_ :: + (MonadDOM m, ToJSString namespaceURI, ToJSString qualifiedName) => + DOMImplementation -> + Maybe namespaceURI -> + Maybe qualifiedName -> Maybe DocumentType -> m () +createDocument_ self namespaceURI qualifiedName doctype + = liftDOM + (void + (self ^. jsf "createDocument" + [toJSVal namespaceURI, toJSVal qualifiedName, toJSVal doctype])) + +-- | +createDocumentUnchecked :: + (MonadDOM m, ToJSString namespaceURI, ToJSString qualifiedName) => + DOMImplementation -> + Maybe namespaceURI -> + Maybe qualifiedName -> Maybe DocumentType -> m Document +createDocumentUnchecked self namespaceURI qualifiedName doctype + = liftDOM + ((self ^. jsf "createDocument" + [toJSVal namespaceURI, toJSVal qualifiedName, toJSVal doctype]) + >>= fromJSValUnchecked) + -- | createCSSStyleSheet :: (MonadDOM m, ToJSString title, ToJSString media) => @@ -60,6 +121,24 @@ ((self ^. jsf "createCSSStyleSheet" [toJSVal title, toJSVal media]) >>= fromJSVal) +-- | +createCSSStyleSheet_ :: + (MonadDOM m, ToJSString title, ToJSString media) => + DOMImplementation -> title -> media -> m () +createCSSStyleSheet_ self title media + = liftDOM + (void + (self ^. jsf "createCSSStyleSheet" [toJSVal title, toJSVal media])) + +-- | +createCSSStyleSheetUnchecked :: + (MonadDOM m, ToJSString title, ToJSString media) => + DOMImplementation -> title -> media -> m CSSStyleSheet +createCSSStyleSheetUnchecked self title media + = liftDOM + ((self ^. jsf "createCSSStyleSheet" [toJSVal title, toJSVal media]) + >>= fromJSValUnchecked) + -- | createHTMLDocument :: (MonadDOM m, ToJSString title) => @@ -67,3 +146,19 @@ createHTMLDocument self title = liftDOM ((self ^. jsf "createHTMLDocument" [toJSVal title]) >>= fromJSVal) + +-- | +createHTMLDocument_ :: + (MonadDOM m, ToJSString title) => + DOMImplementation -> title -> m () +createHTMLDocument_ self title + = liftDOM (void (self ^. jsf "createHTMLDocument" [toJSVal title])) + +-- | +createHTMLDocumentUnchecked :: + (MonadDOM m, ToJSString title) => + DOMImplementation -> title -> m HTMLDocument +createHTMLDocumentUnchecked self title + = liftDOM + ((self ^. jsf "createHTMLDocument" [toJSVal title]) >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/DOMNamedFlowCollection.hs b/src/JSDOM/Generated/DOMNamedFlowCollection.hs --- a/src/JSDOM/Generated/DOMNamedFlowCollection.hs +++ b/src/JSDOM/Generated/DOMNamedFlowCollection.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.DOMNamedFlowCollection - (item, namedItem, getLength, DOMNamedFlowCollection, + (item, item_, itemUnchecked, namedItem, namedItem_, + namedItemUnchecked, getLength, DOMNamedFlowCollection, castToDOMNamedFlowCollection, gTypeDOMNamedFlowCollection) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -23,12 +24,39 @@ item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) +-- | +item_ :: (MonadDOM m) => DOMNamedFlowCollection -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m) => DOMNamedFlowCollection -> Word -> m WebKitNamedFlow +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) + -- | namedItem :: (MonadDOM m, ToJSString name) => DOMNamedFlowCollection -> name -> m (Maybe WebKitNamedFlow) namedItem self name = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal) + +-- | +namedItem_ :: + (MonadDOM m, ToJSString name) => + DOMNamedFlowCollection -> name -> m () +namedItem_ self name + = liftDOM (void (self ^. jsf "namedItem" [toJSVal name])) + +-- | +namedItemUnchecked :: + (MonadDOM m, ToJSString name) => + DOMNamedFlowCollection -> name -> m WebKitNamedFlow +namedItemUnchecked self name + = liftDOM + ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => DOMNamedFlowCollection -> m Word diff --git a/src/JSDOM/Generated/DOMParser.hs b/src/JSDOM/Generated/DOMParser.hs --- a/src/JSDOM/Generated/DOMParser.hs +++ b/src/JSDOM/Generated/DOMParser.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.DOMParser - (newDOMParser, parseFromString, DOMParser, castToDOMParser, + (newDOMParser, parseFromString, parseFromString_, + parseFromStringUnchecked, DOMParser, castToDOMParser, gTypeDOMParser) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -28,3 +29,21 @@ = liftDOM ((self ^. jsf "parseFromString" [toJSVal str, toJSVal contentType]) >>= fromJSVal) + +-- | +parseFromString_ :: + (MonadDOM m, ToJSString str, ToJSString contentType) => + DOMParser -> str -> contentType -> m () +parseFromString_ self str contentType + = liftDOM + (void + (self ^. jsf "parseFromString" [toJSVal str, toJSVal contentType])) + +-- | +parseFromStringUnchecked :: + (MonadDOM m, ToJSString str, ToJSString contentType) => + DOMParser -> str -> contentType -> m Document +parseFromStringUnchecked self str contentType + = liftDOM + ((self ^. jsf "parseFromString" [toJSVal str, toJSVal contentType]) + >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/DOMSettableTokenList.hs b/src/JSDOM/Generated/DOMSettableTokenList.hs --- a/src/JSDOM/Generated/DOMSettableTokenList.hs +++ b/src/JSDOM/Generated/DOMSettableTokenList.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.DOMSettableTokenList - (_get, setValue, getValue, DOMSettableTokenList, - castToDOMSettableTokenList, gTypeDOMSettableTokenList) + (_get, _get_, _getUnchecked, setValue, getValue, + DOMSettableTokenList, castToDOMSettableTokenList, + gTypeDOMSettableTokenList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -23,6 +24,19 @@ _get self index = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromMaybeJSString) + +-- | +_get_ :: (MonadDOM m) => DOMSettableTokenList -> Word -> m () +_get_ self index + = liftDOM (void (self ^. jsf "_get" [toJSVal index])) + +-- | +_getUnchecked :: + (MonadDOM m, FromJSString result) => + DOMSettableTokenList -> Word -> m result +_getUnchecked self index + = liftDOM + ((self ^. jsf "_get" [toJSVal index]) >>= fromJSValUnchecked) -- | setValue :: diff --git a/src/JSDOM/Generated/DOMStringList.hs b/src/JSDOM/Generated/DOMStringList.hs --- a/src/JSDOM/Generated/DOMStringList.hs +++ b/src/JSDOM/Generated/DOMStringList.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.DOMStringList - (item, contains, getLength, DOMStringList, castToDOMStringList, - gTypeDOMStringList) + (item, item_, itemUnchecked, contains, contains_, getLength, + DOMStringList, castToDOMStringList, gTypeDOMStringList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -24,12 +24,31 @@ = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromMaybeJSString) +-- | +item_ :: (MonadDOM m) => DOMStringList -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m, FromJSString result) => + DOMStringList -> Word -> m result +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) + -- | contains :: (MonadDOM m, ToJSString string) => DOMStringList -> string -> m Bool contains self string = liftDOM ((self ^. jsf "contains" [toJSVal string]) >>= valToBool) + +-- | +contains_ :: + (MonadDOM m, ToJSString string) => DOMStringList -> string -> m () +contains_ self string + = liftDOM (void (self ^. jsf "contains" [toJSVal string])) -- | getLength :: (MonadDOM m) => DOMStringList -> m Word diff --git a/src/JSDOM/Generated/DOMTokenList.hs b/src/JSDOM/Generated/DOMTokenList.hs --- a/src/JSDOM/Generated/DOMTokenList.hs +++ b/src/JSDOM/Generated/DOMTokenList.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.DOMTokenList - (item, contains, add, remove, toggle, toString, getLength, - DOMTokenList, castToDOMTokenList, gTypeDOMTokenList, - IsDOMTokenList, toDOMTokenList) + (item, item_, itemUnchecked, contains, contains_, add, remove, + toggle, toggle_, toString, toString_, getLength, DOMTokenList, + castToDOMTokenList, gTypeDOMTokenList, IsDOMTokenList, + toDOMTokenList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -26,6 +27,21 @@ (((toDOMTokenList self) ^. jsf "item" [toJSVal index]) >>= fromMaybeJSString) +-- | +item_ :: (MonadDOM m, IsDOMTokenList self) => self -> Word -> m () +item_ self index + = liftDOM + (void ((toDOMTokenList self) ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m, IsDOMTokenList self, FromJSString result) => + self -> Word -> m result +itemUnchecked self index + = liftDOM + (((toDOMTokenList self) ^. jsf "item" [toJSVal index]) >>= + fromJSValUnchecked) + -- | contains :: (MonadDOM m, IsDOMTokenList self, ToJSString token) => @@ -35,6 +51,14 @@ (((toDOMTokenList self) ^. jsf "contains" [toJSVal token]) >>= valToBool) +-- | +contains_ :: + (MonadDOM m, IsDOMTokenList self, ToJSString token) => + self -> token -> m () +contains_ self token + = liftDOM + (void ((toDOMTokenList self) ^. jsf "contains" [toJSVal token])) + -- | add :: (MonadDOM m, IsDOMTokenList self, ToJSString tokens, @@ -65,6 +89,16 @@ [toJSVal token, toJSVal force]) >>= valToBool) +-- | +toggle_ :: + (MonadDOM m, IsDOMTokenList self, ToJSString token) => + self -> token -> Bool -> m () +toggle_ self token force + = liftDOM + (void + ((toDOMTokenList self) ^. jsf "toggle" + [toJSVal token, toJSVal force])) + -- | toString :: (MonadDOM m, IsDOMTokenList self, FromJSString result) => @@ -73,6 +107,11 @@ = liftDOM (((toDOMTokenList self) ^. jsf "toString" ()) >>= fromJSValUnchecked) + +-- | +toString_ :: (MonadDOM m, IsDOMTokenList self) => self -> m () +toString_ self + = liftDOM (void ((toDOMTokenList self) ^. jsf "toString" ())) -- | getLength :: (MonadDOM m, IsDOMTokenList self) => self -> m Word diff --git a/src/JSDOM/Generated/DataCue.hs b/src/JSDOM/Generated/DataCue.hs --- a/src/JSDOM/Generated/DataCue.hs +++ b/src/JSDOM/Generated/DataCue.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.DataCue - (newDataCue, newDataCue', setData, getData, setValue, getValue, - getType, DataCue, castToDataCue, gTypeDataCue) + (newDataCue, newDataCue', setData, getData, getDataUnchecked, + setValue, getValue, getType, DataCue, castToDataCue, gTypeDataCue) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -38,6 +38,11 @@ -- | getData :: (MonadDOM m) => DataCue -> m (Maybe ArrayBuffer) getData self = liftDOM ((self ^. js "data") >>= fromJSVal) + +-- | +getDataUnchecked :: (MonadDOM m) => DataCue -> m ArrayBuffer +getDataUnchecked self + = liftDOM ((self ^. js "data") >>= fromJSValUnchecked) -- | setValue :: (MonadDOM m) => DataCue -> JSVal -> m () diff --git a/src/JSDOM/Generated/DataTransfer.hs b/src/JSDOM/Generated/DataTransfer.hs --- a/src/JSDOM/Generated/DataTransfer.hs +++ b/src/JSDOM/Generated/DataTransfer.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.DataTransfer - (clearData, getData, setData, setDragImage, setDropEffect, - getDropEffect, setEffectAllowed, getEffectAllowed, getTypes, - getFiles, getItems, DataTransfer, castToDataTransfer, + (clearData, getData, getData_, setData, setDragImage, + setDropEffect, getDropEffect, setEffectAllowed, getEffectAllowed, + getTypes, getTypesUnchecked, getFiles, getFilesUnchecked, getItems, + getItemsUnchecked, DataTransfer, castToDataTransfer, gTypeDataTransfer) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -32,6 +33,12 @@ = liftDOM ((self ^. jsf "getData" [toJSVal type']) >>= fromJSValUnchecked) +-- | +getData_ :: + (MonadDOM m, ToJSString type') => DataTransfer -> type' -> m () +getData_ self type' + = liftDOM (void (self ^. jsf "getData" [toJSVal type'])) + -- | setData :: (MonadDOM m, ToJSString type', ToJSString data') => @@ -77,11 +84,27 @@ getTypes :: (MonadDOM m) => DataTransfer -> m (Maybe Array) getTypes self = liftDOM ((self ^. js "types") >>= fromJSVal) +-- | +getTypesUnchecked :: (MonadDOM m) => DataTransfer -> m Array +getTypesUnchecked self + = liftDOM ((self ^. js "types") >>= fromJSValUnchecked) + -- | getFiles :: (MonadDOM m) => DataTransfer -> m (Maybe FileList) getFiles self = liftDOM ((self ^. js "files") >>= fromJSVal) +-- | +getFilesUnchecked :: (MonadDOM m) => DataTransfer -> m FileList +getFilesUnchecked self + = liftDOM ((self ^. js "files") >>= fromJSValUnchecked) + -- | getItems :: (MonadDOM m) => DataTransfer -> m (Maybe DataTransferItemList) getItems self = liftDOM ((self ^. js "items") >>= fromJSVal) + +-- | +getItemsUnchecked :: + (MonadDOM m) => DataTransfer -> m DataTransferItemList +getItemsUnchecked self + = liftDOM ((self ^. js "items") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/DataTransferItem.hs b/src/JSDOM/Generated/DataTransferItem.hs --- a/src/JSDOM/Generated/DataTransferItem.hs +++ b/src/JSDOM/Generated/DataTransferItem.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.DataTransferItem - (getAsString, getAsFile, getKind, getType, DataTransferItem, - castToDataTransferItem, gTypeDataTransferItem) + (getAsString, getAsFile, getAsFile_, getAsFileUnchecked, getKind, + getType, DataTransferItem, castToDataTransferItem, + gTypeDataTransferItem) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -27,6 +28,15 @@ getAsFile :: (MonadDOM m) => DataTransferItem -> m (Maybe Blob) getAsFile self = liftDOM ((self ^. jsf "getAsFile" ()) >>= fromJSVal) + +-- | +getAsFile_ :: (MonadDOM m) => DataTransferItem -> m () +getAsFile_ self = liftDOM (void (self ^. jsf "getAsFile" ())) + +-- | +getAsFileUnchecked :: (MonadDOM m) => DataTransferItem -> m Blob +getAsFileUnchecked self + = liftDOM ((self ^. jsf "getAsFile" ()) >>= fromJSValUnchecked) -- | getKind :: diff --git a/src/JSDOM/Generated/DataTransferItemList.hs b/src/JSDOM/Generated/DataTransferItemList.hs --- a/src/JSDOM/Generated/DataTransferItemList.hs +++ b/src/JSDOM/Generated/DataTransferItemList.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.DataTransferItemList - (item, clear, addFile, add, getLength, DataTransferItemList, - castToDataTransferItemList, gTypeDataTransferItemList) + (item, item_, itemUnchecked, clear, addFile, add, getLength, + DataTransferItemList, castToDataTransferItemList, + gTypeDataTransferItemList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -22,6 +23,18 @@ DataTransferItemList -> Word -> m (Maybe DataTransferItem) item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) + +-- | +item_ :: (MonadDOM m) => DataTransferItemList -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m) => DataTransferItemList -> Word -> m DataTransferItem +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) -- | clear :: (MonadDOM m) => DataTransferItemList -> m () diff --git a/src/JSDOM/Generated/DelayNode.hs b/src/JSDOM/Generated/DelayNode.hs --- a/src/JSDOM/Generated/DelayNode.hs +++ b/src/JSDOM/Generated/DelayNode.hs @@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.DelayNode - (getDelayTime, DelayNode, castToDelayNode, gTypeDelayNode) where + (getDelayTime, getDelayTimeUnchecked, DelayNode, castToDelayNode, + gTypeDelayNode) + where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) @@ -18,3 +20,8 @@ getDelayTime :: (MonadDOM m) => DelayNode -> m (Maybe AudioParam) getDelayTime self = liftDOM ((self ^. js "delayTime") >>= fromJSVal) + +-- | +getDelayTimeUnchecked :: (MonadDOM m) => DelayNode -> m AudioParam +getDelayTimeUnchecked self + = liftDOM ((self ^. js "delayTime") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/DeviceMotionEvent.hs b/src/JSDOM/Generated/DeviceMotionEvent.hs --- a/src/JSDOM/Generated/DeviceMotionEvent.hs +++ b/src/JSDOM/Generated/DeviceMotionEvent.hs @@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.DeviceMotionEvent - (initDeviceMotionEvent, getAcceleration, - getAccelerationIncludingGravity, getRotationRate, getInterval, - DeviceMotionEvent, castToDeviceMotionEvent, gTypeDeviceMotionEvent) + (initDeviceMotionEvent, getAcceleration, getAccelerationUnchecked, + getAccelerationIncludingGravity, + getAccelerationIncludingGravityUnchecked, getRotationRate, + getRotationRateUnchecked, getInterval, DeviceMotionEvent, + castToDeviceMotionEvent, gTypeDeviceMotionEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -44,6 +46,12 @@ getAcceleration self = liftDOM ((self ^. js "acceleration") >>= fromJSVal) +-- | +getAccelerationUnchecked :: + (MonadDOM m) => DeviceMotionEvent -> m Acceleration +getAccelerationUnchecked self + = liftDOM ((self ^. js "acceleration") >>= fromJSValUnchecked) + -- | getAccelerationIncludingGravity :: (MonadDOM m) => DeviceMotionEvent -> m (Maybe Acceleration) @@ -51,11 +59,25 @@ = liftDOM ((self ^. js "accelerationIncludingGravity") >>= fromJSVal) +-- | +getAccelerationIncludingGravityUnchecked :: + (MonadDOM m) => DeviceMotionEvent -> m Acceleration +getAccelerationIncludingGravityUnchecked self + = liftDOM + ((self ^. js "accelerationIncludingGravity") >>= + fromJSValUnchecked) + -- | getRotationRate :: (MonadDOM m) => DeviceMotionEvent -> m (Maybe RotationRate) getRotationRate self = liftDOM ((self ^. js "rotationRate") >>= fromJSVal) + +-- | +getRotationRateUnchecked :: + (MonadDOM m) => DeviceMotionEvent -> m RotationRate +getRotationRateUnchecked self + = liftDOM ((self ^. js "rotationRate") >>= fromJSValUnchecked) -- | getInterval :: (MonadDOM m) => DeviceMotionEvent -> m Double diff --git a/src/JSDOM/Generated/Document.hs b/src/JSDOM/Generated/Document.hs --- a/src/JSDOM/Generated/Document.hs +++ b/src/JSDOM/Generated/Document.hs @@ -1,1170 +1,2191 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Document - (newDocument, createElement, createDocumentFragment, - createTextNode, createComment, createCDATASection, - createProcessingInstruction, createAttribute, - createEntityReference, getElementsByTagName, importNode, - createElementNS, createAttributeNS, getElementsByTagNameNS, - getElementById, adoptNode, createEvent, createRange, - createNodeIterator, createTreeWalker, getOverrideStyle, - createExpression, createNSResolver, evaluate, execCommand, - queryCommandEnabled, queryCommandIndeterm, queryCommandState, - queryCommandSupported, queryCommandValue, getElementsByName, - elementFromPoint, caretRangeFromPoint, getSelection, - getCSSCanvasContext, getElementsByClassName, hasFocus, - querySelector, querySelectorAll, webkitCancelFullScreen, - webkitExitFullscreen, exitPointerLock, webkitGetNamedFlows, - createTouch, createTouchList, getDoctype, getImplementation, - getDocumentElement, getInputEncoding, getXmlEncoding, - setXmlVersion, getXmlVersion, setXmlStandalone, getXmlStandalone, - getDocumentURI, getDefaultView, getStyleSheets, getContentType, - setTitle, getTitle, getReferrer, setDomain, getDomain, getURL, - setCookie, getCookie, setBody, getBody, getHead, getImages, - getApplets, getLinks, getForms, getAnchors, getLastModified, - setLocation, getLocation, setCharset, getCharset, - getDefaultCharset, getReadyState, getCharacterSet, - getPreferredStylesheetSet, setSelectedStylesheetSet, - getSelectedStylesheetSet, getActiveElement, getCompatMode, - getWebkitIsFullScreen, getWebkitFullScreenKeyboardInputAllowed, - getWebkitCurrentFullScreenElement, getWebkitFullscreenEnabled, - getWebkitFullscreenElement, getPointerLockElement, 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, - getVisibilityState, getHidden, getSecurityPolicy, getCurrentScript, - getOrigin, Document, castToDocument, gTypeDocument, IsDocument, - toDocument) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) -import Data.Typeable (Typeable) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import JSDOM.Types -import Control.Applicative ((<$>)) -import Control.Monad (void) -import Control.Lens.Operators ((^.)) -import JSDOM.EventTargetClosures (EventName, unsafeEventName) -import JSDOM.Enums - --- | -newDocument :: (MonadDOM m) => m Document -newDocument = liftDOM (Document <$> new (jsg "Document") ()) - --- | -createElement :: - (MonadDOM m, IsDocument self, ToJSString tagName) => - self -> Maybe tagName -> m (Maybe Element) -createElement self tagName - = liftDOM - (((toDocument self) ^. jsf "createElement" [toJSVal tagName]) >>= - fromJSVal) - --- | -createDocumentFragment :: - (MonadDOM m, IsDocument self) => self -> m (Maybe DocumentFragment) -createDocumentFragment self - = liftDOM - (((toDocument self) ^. jsf "createDocumentFragment" ()) >>= - fromJSVal) - --- | -createTextNode :: - (MonadDOM m, IsDocument self, ToJSString data') => - self -> data' -> m (Maybe Text) -createTextNode self data' - = liftDOM - (((toDocument self) ^. jsf "createTextNode" [toJSVal data']) >>= - fromJSVal) - --- | -createComment :: - (MonadDOM m, IsDocument self, ToJSString data') => - self -> data' -> m (Maybe Comment) -createComment self data' - = liftDOM - (((toDocument self) ^. jsf "createComment" [toJSVal data']) >>= - fromJSVal) - --- | -createCDATASection :: - (MonadDOM m, IsDocument self, ToJSString data') => - self -> data' -> m (Maybe CDATASection) -createCDATASection self data' - = liftDOM - (((toDocument self) ^. jsf "createCDATASection" [toJSVal data']) - >>= fromJSVal) - --- | -createProcessingInstruction :: - (MonadDOM m, IsDocument self, ToJSString target, - ToJSString data') => - self -> target -> data' -> m (Maybe ProcessingInstruction) -createProcessingInstruction self target data' - = liftDOM - (((toDocument self) ^. jsf "createProcessingInstruction" - [toJSVal target, toJSVal data']) - >>= fromJSVal) - --- | -createAttribute :: - (MonadDOM m, IsDocument self, ToJSString name) => - self -> name -> m (Maybe Attr) -createAttribute self name - = liftDOM - (((toDocument self) ^. jsf "createAttribute" [toJSVal name]) >>= - fromJSVal) - --- | -createEntityReference :: - (MonadDOM m, IsDocument self, ToJSString name) => - self -> name -> m (Maybe EntityReference) -createEntityReference self name - = liftDOM - (((toDocument self) ^. jsf "createEntityReference" [toJSVal name]) - >>= fromJSVal) - --- | -getElementsByTagName :: - (MonadDOM m, IsDocument self, ToJSString tagname) => - self -> tagname -> m (Maybe NodeList) -getElementsByTagName self tagname - = liftDOM - (((toDocument self) ^. jsf "getElementsByTagName" - [toJSVal tagname]) - >>= fromJSVal) - --- | -importNode :: - (MonadDOM m, IsDocument self, IsNode importedNode) => - self -> Maybe importedNode -> Bool -> m (Maybe Node) -importNode self importedNode deep - = liftDOM - (((toDocument self) ^. jsf "importNode" - [toJSVal importedNode, toJSVal deep]) - >>= fromJSVal) - --- | -createElementNS :: - (MonadDOM m, IsDocument self, ToJSString namespaceURI, - ToJSString qualifiedName) => - self -> - Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Element) -createElementNS self namespaceURI qualifiedName - = liftDOM - (((toDocument self) ^. jsf "createElementNS" - [toJSVal namespaceURI, toJSVal qualifiedName]) - >>= fromJSVal) - --- | -createAttributeNS :: - (MonadDOM m, IsDocument self, ToJSString namespaceURI, - ToJSString qualifiedName) => - self -> Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Attr) -createAttributeNS self namespaceURI qualifiedName - = liftDOM - (((toDocument self) ^. jsf "createAttributeNS" - [toJSVal namespaceURI, toJSVal qualifiedName]) - >>= fromJSVal) - --- | -getElementsByTagNameNS :: - (MonadDOM m, IsDocument self, ToJSString namespaceURI, - ToJSString localName) => - self -> Maybe namespaceURI -> localName -> m (Maybe NodeList) -getElementsByTagNameNS self namespaceURI localName - = liftDOM - (((toDocument self) ^. jsf "getElementsByTagNameNS" - [toJSVal namespaceURI, toJSVal localName]) - >>= fromJSVal) - --- | -getElementById :: - (MonadDOM m, IsDocument self, ToJSString elementId) => - self -> elementId -> m (Maybe Element) -getElementById self elementId - = liftDOM - (((toDocument self) ^. jsf "getElementById" [toJSVal elementId]) - >>= fromJSVal) - --- | -adoptNode :: - (MonadDOM m, IsDocument self, IsNode source) => - self -> Maybe source -> m (Maybe Node) -adoptNode self source - = liftDOM - (((toDocument self) ^. jsf "adoptNode" [toJSVal source]) >>= - fromJSVal) - --- | -createEvent :: - (MonadDOM m, IsDocument self, ToJSString eventType) => - self -> eventType -> m (Maybe Event) -createEvent self eventType - = liftDOM - (((toDocument self) ^. jsf "createEvent" [toJSVal eventType]) >>= - fromJSVal) - --- | -createRange :: - (MonadDOM m, IsDocument self) => self -> m (Maybe Range) -createRange self - = liftDOM - (((toDocument self) ^. jsf "createRange" ()) >>= fromJSVal) - --- | -createNodeIterator :: - (MonadDOM m, IsDocument self, IsNode root) => - self -> - Maybe root -> - Word -> Maybe NodeFilter -> Bool -> m (Maybe NodeIterator) -createNodeIterator self root whatToShow filter - expandEntityReferences - = liftDOM - (((toDocument self) ^. jsf "createNodeIterator" - [toJSVal root, toJSVal whatToShow, toJSVal filter, - toJSVal expandEntityReferences]) - >>= fromJSVal) - --- | -createTreeWalker :: - (MonadDOM m, IsDocument self, IsNode root) => - self -> - Maybe root -> - Word -> Maybe NodeFilter -> Bool -> m (Maybe TreeWalker) -createTreeWalker self root whatToShow filter expandEntityReferences - = liftDOM - (((toDocument self) ^. jsf "createTreeWalker" - [toJSVal root, toJSVal whatToShow, toJSVal filter, - toJSVal expandEntityReferences]) - >>= fromJSVal) - --- | -getOverrideStyle :: - (MonadDOM m, IsDocument self, IsElement element, - ToJSString pseudoElement) => - self -> - Maybe element -> pseudoElement -> m (Maybe CSSStyleDeclaration) -getOverrideStyle self element pseudoElement - = liftDOM - (((toDocument self) ^. jsf "getOverrideStyle" - [toJSVal element, toJSVal pseudoElement]) - >>= fromJSVal) - --- | -createExpression :: - (MonadDOM m, IsDocument self, ToJSString expression) => - self -> - expression -> Maybe XPathNSResolver -> m (Maybe XPathExpression) -createExpression self expression resolver - = liftDOM - (((toDocument self) ^. jsf "createExpression" - [toJSVal expression, toJSVal resolver]) - >>= fromJSVal) - --- | -createNSResolver :: - (MonadDOM m, IsDocument self, IsNode nodeResolver) => - self -> Maybe nodeResolver -> m (Maybe XPathNSResolver) -createNSResolver self nodeResolver - = liftDOM - (((toDocument self) ^. jsf "createNSResolver" - [toJSVal nodeResolver]) - >>= fromJSVal) - --- | -evaluate :: - (MonadDOM 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 - = liftDOM - (((toDocument self) ^. jsf "evaluate" - [toJSVal expression, toJSVal contextNode, toJSVal resolver, - toJSVal type', toJSVal inResult]) - >>= fromJSVal) - --- | -execCommand :: - (MonadDOM m, IsDocument self, ToJSString command, - ToJSString value) => - self -> command -> Bool -> Maybe value -> m Bool -execCommand self command userInterface value - = liftDOM - (((toDocument self) ^. jsf "execCommand" - [toJSVal command, toJSVal userInterface, toJSVal value]) - >>= valToBool) - --- | -queryCommandEnabled :: - (MonadDOM m, IsDocument self, ToJSString command) => - self -> command -> m Bool -queryCommandEnabled self command - = liftDOM - (((toDocument self) ^. jsf "queryCommandEnabled" [toJSVal command]) - >>= valToBool) - --- | -queryCommandIndeterm :: - (MonadDOM m, IsDocument self, ToJSString command) => - self -> command -> m Bool -queryCommandIndeterm self command - = liftDOM - (((toDocument self) ^. jsf "queryCommandIndeterm" - [toJSVal command]) - >>= valToBool) - --- | -queryCommandState :: - (MonadDOM m, IsDocument self, ToJSString command) => - self -> command -> m Bool -queryCommandState self command - = liftDOM - (((toDocument self) ^. jsf "queryCommandState" [toJSVal command]) - >>= valToBool) - --- | -queryCommandSupported :: - (MonadDOM m, IsDocument self, ToJSString command) => - self -> command -> m Bool -queryCommandSupported self command - = liftDOM - (((toDocument self) ^. jsf "queryCommandSupported" - [toJSVal command]) - >>= valToBool) - --- | -queryCommandValue :: - (MonadDOM m, IsDocument self, ToJSString command, - FromJSString result) => - self -> command -> m result -queryCommandValue self command - = liftDOM - (((toDocument self) ^. jsf "queryCommandValue" [toJSVal command]) - >>= fromJSValUnchecked) - --- | -getElementsByName :: - (MonadDOM m, IsDocument self, ToJSString elementName) => - self -> elementName -> m (Maybe NodeList) -getElementsByName self elementName - = liftDOM - (((toDocument self) ^. jsf "getElementsByName" - [toJSVal elementName]) - >>= fromJSVal) - --- | -elementFromPoint :: - (MonadDOM m, IsDocument self) => - self -> Int -> Int -> m (Maybe Element) -elementFromPoint self x y - = liftDOM - (((toDocument self) ^. jsf "elementFromPoint" - [toJSVal x, toJSVal y]) - >>= fromJSVal) - --- | -caretRangeFromPoint :: - (MonadDOM m, IsDocument self) => - self -> Int -> Int -> m (Maybe Range) -caretRangeFromPoint self x y - = liftDOM - (((toDocument self) ^. jsf "caretRangeFromPoint" - [toJSVal x, toJSVal y]) - >>= fromJSVal) - --- | -getSelection :: - (MonadDOM m, IsDocument self) => self -> m (Maybe Selection) -getSelection self - = liftDOM - (((toDocument self) ^. jsf "getSelection" ()) >>= fromJSVal) - --- | -getCSSCanvasContext :: - (MonadDOM m, IsDocument self, ToJSString contextId, - ToJSString name) => - self -> - contextId -> name -> Int -> Int -> m (Maybe CanvasRenderingContext) -getCSSCanvasContext self contextId name width height - = liftDOM - (((toDocument self) ^. jsf "getCSSCanvasContext" - [toJSVal contextId, toJSVal name, toJSVal width, toJSVal height]) - >>= fromJSVal) - --- | -getElementsByClassName :: - (MonadDOM m, IsDocument self, ToJSString tagname) => - self -> tagname -> m (Maybe NodeList) -getElementsByClassName self tagname - = liftDOM - (((toDocument self) ^. jsf "getElementsByClassName" - [toJSVal tagname]) - >>= fromJSVal) - --- | -hasFocus :: (MonadDOM m, IsDocument self) => self -> m Bool -hasFocus self - = liftDOM (((toDocument self) ^. jsf "hasFocus" ()) >>= valToBool) - --- | -querySelector :: - (MonadDOM m, IsDocument self, ToJSString selectors) => - self -> selectors -> m (Maybe Element) -querySelector self selectors - = liftDOM - (((toDocument self) ^. jsf "querySelector" [toJSVal selectors]) >>= - fromJSVal) - --- | -querySelectorAll :: - (MonadDOM m, IsDocument self, ToJSString selectors) => - self -> selectors -> m (Maybe NodeList) -querySelectorAll self selectors - = liftDOM - (((toDocument self) ^. jsf "querySelectorAll" [toJSVal selectors]) - >>= fromJSVal) - --- | -webkitCancelFullScreen :: - (MonadDOM m, IsDocument self) => self -> m () -webkitCancelFullScreen self - = liftDOM - (void ((toDocument self) ^. jsf "webkitCancelFullScreen" ())) - --- | -webkitExitFullscreen :: - (MonadDOM m, IsDocument self) => self -> m () -webkitExitFullscreen self - = liftDOM - (void ((toDocument self) ^. jsf "webkitExitFullscreen" ())) - --- | -exitPointerLock :: (MonadDOM m, IsDocument self) => self -> m () -exitPointerLock self - = liftDOM (void ((toDocument self) ^. jsf "exitPointerLock" ())) - --- | -webkitGetNamedFlows :: - (MonadDOM m, IsDocument self) => - self -> m (Maybe DOMNamedFlowCollection) -webkitGetNamedFlows self - = liftDOM - (((toDocument self) ^. jsf "webkitGetNamedFlows" ()) >>= fromJSVal) - --- | -createTouch :: - (MonadDOM 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 - = liftDOM - (((toDocument self) ^. jsf "createTouch" - [toJSVal window, toJSVal target, toJSVal identifier, toJSVal pageX, - toJSVal pageY, toJSVal screenX, toJSVal screenY, - toJSVal webkitRadiusX, toJSVal webkitRadiusY, - toJSVal webkitRotationAngle, toJSVal webkitForce]) - >>= fromJSVal) - --- | -createTouchList :: - (MonadDOM m, IsDocument self) => self -> m (Maybe TouchList) -createTouchList self - = liftDOM - (((toDocument self) ^. jsf "createTouchList" ()) >>= fromJSVal) - --- | -getDoctype :: - (MonadDOM m, IsDocument self) => self -> m (Maybe DocumentType) -getDoctype self - = liftDOM (((toDocument self) ^. js "doctype") >>= fromJSVal) - --- | -getImplementation :: - (MonadDOM m, IsDocument self) => - self -> m (Maybe DOMImplementation) -getImplementation self - = liftDOM - (((toDocument self) ^. js "implementation") >>= fromJSVal) - --- | -getDocumentElement :: - (MonadDOM m, IsDocument self) => self -> m (Maybe Element) -getDocumentElement self - = liftDOM - (((toDocument self) ^. js "documentElement") >>= fromJSVal) - --- | -getInputEncoding :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getInputEncoding self - = liftDOM - (((toDocument self) ^. js "inputEncoding") >>= fromMaybeJSString) - --- | -getXmlEncoding :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getXmlEncoding self - = liftDOM - (((toDocument self) ^. js "xmlEncoding") >>= fromMaybeJSString) - --- | -setXmlVersion :: - (MonadDOM m, IsDocument self, ToJSString val) => - self -> Maybe val -> m () -setXmlVersion self val - = liftDOM ((toDocument self) ^. jss "xmlVersion" (toJSVal val)) - --- | -getXmlVersion :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getXmlVersion self - = liftDOM - (((toDocument self) ^. js "xmlVersion") >>= fromMaybeJSString) - --- | -setXmlStandalone :: - (MonadDOM m, IsDocument self) => self -> Bool -> m () -setXmlStandalone self val - = liftDOM ((toDocument self) ^. jss "xmlStandalone" (toJSVal val)) - --- | -getXmlStandalone :: (MonadDOM m, IsDocument self) => self -> m Bool -getXmlStandalone self - = liftDOM (((toDocument self) ^. js "xmlStandalone") >>= valToBool) - --- | -getDocumentURI :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getDocumentURI self - = liftDOM - (((toDocument self) ^. js "documentURI") >>= fromMaybeJSString) - --- | -getDefaultView :: - (MonadDOM m, IsDocument self) => self -> m (Maybe Window) -getDefaultView self - = liftDOM (((toDocument self) ^. js "defaultView") >>= fromJSVal) - --- | -getStyleSheets :: - (MonadDOM m, IsDocument self) => self -> m (Maybe StyleSheetList) -getStyleSheets self - = liftDOM (((toDocument self) ^. js "styleSheets") >>= fromJSVal) - --- | -getContentType :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getContentType self - = liftDOM - (((toDocument self) ^. js "contentType") >>= fromJSValUnchecked) - --- | -setTitle :: - (MonadDOM m, IsDocument self, ToJSString val) => - self -> Maybe val -> m () -setTitle self val - = liftDOM ((toDocument self) ^. jss "title" (toJSVal val)) - --- | -getTitle :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getTitle self - = liftDOM (((toDocument self) ^. js "title") >>= fromMaybeJSString) - --- | -getReferrer :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getReferrer self - = liftDOM - (((toDocument self) ^. js "referrer") >>= fromJSValUnchecked) - --- | -setDomain :: - (MonadDOM m, IsDocument self, ToJSString val) => - self -> Maybe val -> m () -setDomain self val - = liftDOM ((toDocument self) ^. jss "domain" (toJSVal val)) - --- | -getDomain :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getDomain self - = liftDOM - (((toDocument self) ^. js "domain") >>= fromMaybeJSString) - --- | -getURL :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getURL self - = liftDOM (((toDocument self) ^. js "URL") >>= fromJSValUnchecked) - --- | -setCookie :: - (MonadDOM m, IsDocument self, ToJSString val) => - self -> Maybe val -> m () -setCookie self val - = liftDOM ((toDocument self) ^. jss "cookie" (toJSVal val)) - --- | -getCookie :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getCookie self - = liftDOM - (((toDocument self) ^. js "cookie") >>= fromMaybeJSString) - --- | -setBody :: - (MonadDOM m, IsDocument self, IsHTMLElement val) => - self -> Maybe val -> m () -setBody self val - = liftDOM ((toDocument self) ^. jss "body" (toJSVal val)) - --- | -getBody :: - (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLElement) -getBody self - = liftDOM (((toDocument self) ^. js "body") >>= fromJSVal) - --- | -getHead :: - (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLHeadElement) -getHead self - = liftDOM (((toDocument self) ^. js "head") >>= fromJSVal) - --- | -getImages :: - (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection) -getImages self - = liftDOM (((toDocument self) ^. js "images") >>= fromJSVal) - --- | -getApplets :: - (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection) -getApplets self - = liftDOM (((toDocument self) ^. js "applets") >>= fromJSVal) - --- | -getLinks :: - (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection) -getLinks self - = liftDOM (((toDocument self) ^. js "links") >>= fromJSVal) - --- | -getForms :: - (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection) -getForms self - = liftDOM (((toDocument self) ^. js "forms") >>= fromJSVal) - --- | -getAnchors :: - (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection) -getAnchors self - = liftDOM (((toDocument self) ^. js "anchors") >>= fromJSVal) - --- | -getLastModified :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getLastModified self - = liftDOM - (((toDocument self) ^. js "lastModified") >>= fromJSValUnchecked) - --- | -setLocation :: - (MonadDOM m, IsDocument self) => self -> Maybe Location -> m () -setLocation self val - = liftDOM ((toDocument self) ^. jss "location" (toJSVal val)) - --- | -getLocation :: - (MonadDOM m, IsDocument self) => self -> m (Maybe Location) -getLocation self - = liftDOM (((toDocument self) ^. js "location") >>= fromJSVal) - --- | -setCharset :: - (MonadDOM m, IsDocument self, ToJSString val) => - self -> Maybe val -> m () -setCharset self val - = liftDOM ((toDocument self) ^. jss "charset" (toJSVal val)) - --- | -getCharset :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getCharset self - = liftDOM - (((toDocument self) ^. js "charset") >>= fromMaybeJSString) - --- | -getDefaultCharset :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getDefaultCharset self - = liftDOM - (((toDocument self) ^. js "defaultCharset") >>= fromMaybeJSString) - --- | -getReadyState :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getReadyState self - = liftDOM - (((toDocument self) ^. js "readyState") >>= fromMaybeJSString) - --- | -getCharacterSet :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getCharacterSet self - = liftDOM - (((toDocument self) ^. js "characterSet") >>= fromMaybeJSString) - --- | -getPreferredStylesheetSet :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getPreferredStylesheetSet self - = liftDOM - (((toDocument self) ^. js "preferredStylesheetSet") >>= - fromMaybeJSString) - --- | -setSelectedStylesheetSet :: - (MonadDOM m, IsDocument self, ToJSString val) => - self -> Maybe val -> m () -setSelectedStylesheetSet self val - = liftDOM - ((toDocument self) ^. jss "selectedStylesheetSet" (toJSVal val)) - --- | -getSelectedStylesheetSet :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m (Maybe result) -getSelectedStylesheetSet self - = liftDOM - (((toDocument self) ^. js "selectedStylesheetSet") >>= - fromMaybeJSString) - --- | -getActiveElement :: - (MonadDOM m, IsDocument self) => self -> m (Maybe Element) -getActiveElement self - = liftDOM (((toDocument self) ^. js "activeElement") >>= fromJSVal) - --- | -getCompatMode :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getCompatMode self - = liftDOM - (((toDocument self) ^. js "compatMode") >>= fromJSValUnchecked) - --- | -getWebkitIsFullScreen :: - (MonadDOM m, IsDocument self) => self -> m Bool -getWebkitIsFullScreen self - = liftDOM - (((toDocument self) ^. js "webkitIsFullScreen") >>= valToBool) - --- | -getWebkitFullScreenKeyboardInputAllowed :: - (MonadDOM m, IsDocument self) => self -> m Bool -getWebkitFullScreenKeyboardInputAllowed self - = liftDOM - (((toDocument self) ^. js "webkitFullScreenKeyboardInputAllowed") - >>= valToBool) - --- | -getWebkitCurrentFullScreenElement :: - (MonadDOM m, IsDocument self) => self -> m (Maybe Element) -getWebkitCurrentFullScreenElement self - = liftDOM - (((toDocument self) ^. js "webkitCurrentFullScreenElement") >>= - fromJSVal) - --- | -getWebkitFullscreenEnabled :: - (MonadDOM m, IsDocument self) => self -> m Bool -getWebkitFullscreenEnabled self - = liftDOM - (((toDocument self) ^. js "webkitFullscreenEnabled") >>= valToBool) - --- | -getWebkitFullscreenElement :: - (MonadDOM m, IsDocument self) => self -> m (Maybe Element) -getWebkitFullscreenElement self - = liftDOM - (((toDocument self) ^. js "webkitFullscreenElement") >>= fromJSVal) - --- | -getPointerLockElement :: - (MonadDOM m, IsDocument self) => self -> m (Maybe Element) -getPointerLockElement self - = liftDOM - (((toDocument self) ^. js "pointerLockElement") >>= fromJSVal) - --- | -getFonts :: - (MonadDOM m, IsDocument self) => self -> m (Maybe FontLoader) -getFonts self - = liftDOM (((toDocument self) ^. js "fonts") >>= fromJSVal) - --- | -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") - --- | -getVisibilityState :: - (MonadDOM m, IsDocument self, FromJSString result) => - self -> m result -getVisibilityState self - = liftDOM - (((toDocument self) ^. js "visibilityState") >>= - fromJSValUnchecked) - --- | -getHidden :: (MonadDOM m, IsDocument self) => self -> m Bool -getHidden self - = liftDOM (((toDocument self) ^. js "hidden") >>= valToBool) - --- | -getSecurityPolicy :: - (MonadDOM m, IsDocument self) => self -> m (Maybe SecurityPolicy) -getSecurityPolicy self - = liftDOM - (((toDocument self) ^. js "securityPolicy") >>= fromJSVal) - --- | -getCurrentScript :: - (MonadDOM m, IsDocument self) => - self -> m (Maybe HTMLScriptElement) -getCurrentScript self - = liftDOM (((toDocument self) ^. js "currentScript") >>= fromJSVal) + (newDocument, createElement, createElement_, + createElementUnchecked, createDocumentFragment, + createDocumentFragment_, createDocumentFragmentUnchecked, + createTextNode, createTextNode_, createTextNodeUnchecked, + createComment, createComment_, createCommentUnchecked, + createCDATASection, createCDATASection_, + createCDATASectionUnchecked, createProcessingInstruction, + createProcessingInstruction_, createProcessingInstructionUnchecked, + createAttribute, createAttribute_, createAttributeUnchecked, + createEntityReference, createEntityReference_, + createEntityReferenceUnchecked, getElementsByTagName, + getElementsByTagName_, getElementsByTagNameUnchecked, importNode, + importNode_, importNodeUnchecked, createElementNS, + createElementNS_, createElementNSUnchecked, createAttributeNS, + createAttributeNS_, createAttributeNSUnchecked, + getElementsByTagNameNS, getElementsByTagNameNS_, + getElementsByTagNameNSUnchecked, getElementById, getElementById_, + getElementByIdUnchecked, adoptNode, adoptNode_, adoptNodeUnchecked, + createEvent, createEvent_, createEventUnchecked, createRange, + createRange_, createRangeUnchecked, createNodeIterator, + createNodeIterator_, createNodeIteratorUnchecked, createTreeWalker, + createTreeWalker_, createTreeWalkerUnchecked, getOverrideStyle, + getOverrideStyle_, getOverrideStyleUnchecked, createExpression, + createExpression_, createExpressionUnchecked, createNSResolver, + createNSResolver_, createNSResolverUnchecked, evaluate, evaluate_, + evaluateUnchecked, execCommand, execCommand_, queryCommandEnabled, + queryCommandEnabled_, queryCommandIndeterm, queryCommandIndeterm_, + queryCommandState, queryCommandState_, queryCommandSupported, + queryCommandSupported_, queryCommandValue, queryCommandValue_, + getElementsByName, getElementsByName_, getElementsByNameUnchecked, + elementFromPoint, elementFromPoint_, elementFromPointUnchecked, + caretRangeFromPoint, caretRangeFromPoint_, + caretRangeFromPointUnchecked, getSelection, getSelection_, + getSelectionUnchecked, getCSSCanvasContext, getCSSCanvasContext_, + getCSSCanvasContextUnchecked, getElementsByClassName, + getElementsByClassName_, getElementsByClassNameUnchecked, hasFocus, + hasFocus_, querySelector, querySelector_, querySelectorUnchecked, + querySelectorAll, querySelectorAll_, querySelectorAllUnchecked, + webkitCancelFullScreen, webkitExitFullscreen, exitPointerLock, + webkitGetNamedFlows, webkitGetNamedFlows_, + webkitGetNamedFlowsUnchecked, createTouch, createTouch_, + createTouchUnchecked, createTouchList, createTouchList_, + createTouchListUnchecked, getDoctype, getDoctypeUnchecked, + getImplementation, getImplementationUnchecked, getDocumentElement, + getDocumentElementUnchecked, getInputEncoding, + getInputEncodingUnchecked, getXmlEncoding, getXmlEncodingUnchecked, + setXmlVersion, getXmlVersion, getXmlVersionUnchecked, + setXmlStandalone, getXmlStandalone, getDocumentURI, + getDocumentURIUnchecked, getDefaultView, getDefaultViewUnchecked, + getStyleSheets, getStyleSheetsUnchecked, getContentType, setTitle, + getTitle, getTitleUnchecked, getReferrer, setDomain, getDomain, + getDomainUnchecked, getURL, setCookie, getCookie, + getCookieUnchecked, setBody, getBody, getBodyUnchecked, getHead, + getHeadUnchecked, getImages, getImagesUnchecked, getApplets, + getAppletsUnchecked, getLinks, getLinksUnchecked, getForms, + getFormsUnchecked, getAnchors, getAnchorsUnchecked, + getLastModified, setLocation, getLocation, getLocationUnchecked, + setCharset, getCharset, getCharsetUnchecked, getDefaultCharset, + getDefaultCharsetUnchecked, getReadyState, getReadyStateUnchecked, + getCharacterSet, getCharacterSetUnchecked, + getPreferredStylesheetSet, getPreferredStylesheetSetUnchecked, + setSelectedStylesheetSet, getSelectedStylesheetSet, + getSelectedStylesheetSetUnchecked, getActiveElement, + getActiveElementUnchecked, getCompatMode, getWebkitIsFullScreen, + getWebkitFullScreenKeyboardInputAllowed, + getWebkitCurrentFullScreenElement, + getWebkitCurrentFullScreenElementUnchecked, + getWebkitFullscreenEnabled, getWebkitFullscreenElement, + getWebkitFullscreenElementUnchecked, getPointerLockElement, + getPointerLockElementUnchecked, 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, + getVisibilityState, getHidden, getSecurityPolicy, + getSecurityPolicyUnchecked, getCurrentScript, + getCurrentScriptUnchecked, getOrigin, Document, castToDocument, + gTypeDocument, IsDocument, toDocument) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import Data.Typeable (Typeable) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +newDocument :: (MonadDOM m) => m Document +newDocument = liftDOM (Document <$> new (jsg "Document") ()) + +-- | +createElement :: + (MonadDOM m, IsDocument self, ToJSString tagName) => + self -> Maybe tagName -> m (Maybe Element) +createElement self tagName + = liftDOM + (((toDocument self) ^. jsf "createElement" [toJSVal tagName]) >>= + fromJSVal) + +-- | +createElement_ :: + (MonadDOM m, IsDocument self, ToJSString tagName) => + self -> Maybe tagName -> m () +createElement_ self tagName + = liftDOM + (void ((toDocument self) ^. jsf "createElement" [toJSVal tagName])) + +-- | +createElementUnchecked :: + (MonadDOM m, IsDocument self, ToJSString tagName) => + self -> Maybe tagName -> m Element +createElementUnchecked self tagName + = liftDOM + (((toDocument self) ^. jsf "createElement" [toJSVal tagName]) >>= + fromJSValUnchecked) + +-- | +createDocumentFragment :: + (MonadDOM m, IsDocument self) => self -> m (Maybe DocumentFragment) +createDocumentFragment self + = liftDOM + (((toDocument self) ^. jsf "createDocumentFragment" ()) >>= + fromJSVal) + +-- | +createDocumentFragment_ :: + (MonadDOM m, IsDocument self) => self -> m () +createDocumentFragment_ self + = liftDOM + (void ((toDocument self) ^. jsf "createDocumentFragment" ())) + +-- | +createDocumentFragmentUnchecked :: + (MonadDOM m, IsDocument self) => self -> m DocumentFragment +createDocumentFragmentUnchecked self + = liftDOM + (((toDocument self) ^. jsf "createDocumentFragment" ()) >>= + fromJSValUnchecked) + +-- | +createTextNode :: + (MonadDOM m, IsDocument self, ToJSString data') => + self -> data' -> m (Maybe Text) +createTextNode self data' + = liftDOM + (((toDocument self) ^. jsf "createTextNode" [toJSVal data']) >>= + fromJSVal) + +-- | +createTextNode_ :: + (MonadDOM m, IsDocument self, ToJSString data') => + self -> data' -> m () +createTextNode_ self data' + = liftDOM + (void ((toDocument self) ^. jsf "createTextNode" [toJSVal data'])) + +-- | +createTextNodeUnchecked :: + (MonadDOM m, IsDocument self, ToJSString data') => + self -> data' -> m Text +createTextNodeUnchecked self data' + = liftDOM + (((toDocument self) ^. jsf "createTextNode" [toJSVal data']) >>= + fromJSValUnchecked) + +-- | +createComment :: + (MonadDOM m, IsDocument self, ToJSString data') => + self -> data' -> m (Maybe Comment) +createComment self data' + = liftDOM + (((toDocument self) ^. jsf "createComment" [toJSVal data']) >>= + fromJSVal) + +-- | +createComment_ :: + (MonadDOM m, IsDocument self, ToJSString data') => + self -> data' -> m () +createComment_ self data' + = liftDOM + (void ((toDocument self) ^. jsf "createComment" [toJSVal data'])) + +-- | +createCommentUnchecked :: + (MonadDOM m, IsDocument self, ToJSString data') => + self -> data' -> m Comment +createCommentUnchecked self data' + = liftDOM + (((toDocument self) ^. jsf "createComment" [toJSVal data']) >>= + fromJSValUnchecked) + +-- | +createCDATASection :: + (MonadDOM m, IsDocument self, ToJSString data') => + self -> data' -> m (Maybe CDATASection) +createCDATASection self data' + = liftDOM + (((toDocument self) ^. jsf "createCDATASection" [toJSVal data']) + >>= fromJSVal) + +-- | +createCDATASection_ :: + (MonadDOM m, IsDocument self, ToJSString data') => + self -> data' -> m () +createCDATASection_ self data' + = liftDOM + (void + ((toDocument self) ^. jsf "createCDATASection" [toJSVal data'])) + +-- | +createCDATASectionUnchecked :: + (MonadDOM m, IsDocument self, ToJSString data') => + self -> data' -> m CDATASection +createCDATASectionUnchecked self data' + = liftDOM + (((toDocument self) ^. jsf "createCDATASection" [toJSVal data']) + >>= fromJSValUnchecked) + +-- | +createProcessingInstruction :: + (MonadDOM m, IsDocument self, ToJSString target, + ToJSString data') => + self -> target -> data' -> m (Maybe ProcessingInstruction) +createProcessingInstruction self target data' + = liftDOM + (((toDocument self) ^. jsf "createProcessingInstruction" + [toJSVal target, toJSVal data']) + >>= fromJSVal) + +-- | +createProcessingInstruction_ :: + (MonadDOM m, IsDocument self, ToJSString target, + ToJSString data') => + self -> target -> data' -> m () +createProcessingInstruction_ self target data' + = liftDOM + (void + ((toDocument self) ^. jsf "createProcessingInstruction" + [toJSVal target, toJSVal data'])) + +-- | +createProcessingInstructionUnchecked :: + (MonadDOM m, IsDocument self, ToJSString target, + ToJSString data') => + self -> target -> data' -> m ProcessingInstruction +createProcessingInstructionUnchecked self target data' + = liftDOM + (((toDocument self) ^. jsf "createProcessingInstruction" + [toJSVal target, toJSVal data']) + >>= fromJSValUnchecked) + +-- | +createAttribute :: + (MonadDOM m, IsDocument self, ToJSString name) => + self -> name -> m (Maybe Attr) +createAttribute self name + = liftDOM + (((toDocument self) ^. jsf "createAttribute" [toJSVal name]) >>= + fromJSVal) + +-- | +createAttribute_ :: + (MonadDOM m, IsDocument self, ToJSString name) => + self -> name -> m () +createAttribute_ self name + = liftDOM + (void ((toDocument self) ^. jsf "createAttribute" [toJSVal name])) + +-- | +createAttributeUnchecked :: + (MonadDOM m, IsDocument self, ToJSString name) => + self -> name -> m Attr +createAttributeUnchecked self name + = liftDOM + (((toDocument self) ^. jsf "createAttribute" [toJSVal name]) >>= + fromJSValUnchecked) + +-- | +createEntityReference :: + (MonadDOM m, IsDocument self, ToJSString name) => + self -> name -> m (Maybe EntityReference) +createEntityReference self name + = liftDOM + (((toDocument self) ^. jsf "createEntityReference" [toJSVal name]) + >>= fromJSVal) + +-- | +createEntityReference_ :: + (MonadDOM m, IsDocument self, ToJSString name) => + self -> name -> m () +createEntityReference_ self name + = liftDOM + (void + ((toDocument self) ^. jsf "createEntityReference" [toJSVal name])) + +-- | +createEntityReferenceUnchecked :: + (MonadDOM m, IsDocument self, ToJSString name) => + self -> name -> m EntityReference +createEntityReferenceUnchecked self name + = liftDOM + (((toDocument self) ^. jsf "createEntityReference" [toJSVal name]) + >>= fromJSValUnchecked) + +-- | +getElementsByTagName :: + (MonadDOM m, IsDocument self, ToJSString tagname) => + self -> tagname -> m (Maybe NodeList) +getElementsByTagName self tagname + = liftDOM + (((toDocument self) ^. jsf "getElementsByTagName" + [toJSVal tagname]) + >>= fromJSVal) + +-- | +getElementsByTagName_ :: + (MonadDOM m, IsDocument self, ToJSString tagname) => + self -> tagname -> m () +getElementsByTagName_ self tagname + = liftDOM + (void + ((toDocument self) ^. jsf "getElementsByTagName" + [toJSVal tagname])) + +-- | +getElementsByTagNameUnchecked :: + (MonadDOM m, IsDocument self, ToJSString tagname) => + self -> tagname -> m NodeList +getElementsByTagNameUnchecked self tagname + = liftDOM + (((toDocument self) ^. jsf "getElementsByTagName" + [toJSVal tagname]) + >>= fromJSValUnchecked) + +-- | +importNode :: + (MonadDOM m, IsDocument self, IsNode importedNode) => + self -> Maybe importedNode -> Bool -> m (Maybe Node) +importNode self importedNode deep + = liftDOM + (((toDocument self) ^. jsf "importNode" + [toJSVal importedNode, toJSVal deep]) + >>= fromJSVal) + +-- | +importNode_ :: + (MonadDOM m, IsDocument self, IsNode importedNode) => + self -> Maybe importedNode -> Bool -> m () +importNode_ self importedNode deep + = liftDOM + (void + ((toDocument self) ^. jsf "importNode" + [toJSVal importedNode, toJSVal deep])) + +-- | +importNodeUnchecked :: + (MonadDOM m, IsDocument self, IsNode importedNode) => + self -> Maybe importedNode -> Bool -> m Node +importNodeUnchecked self importedNode deep + = liftDOM + (((toDocument self) ^. jsf "importNode" + [toJSVal importedNode, toJSVal deep]) + >>= fromJSValUnchecked) + +-- | +createElementNS :: + (MonadDOM m, IsDocument self, ToJSString namespaceURI, + ToJSString qualifiedName) => + self -> + Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Element) +createElementNS self namespaceURI qualifiedName + = liftDOM + (((toDocument self) ^. jsf "createElementNS" + [toJSVal namespaceURI, toJSVal qualifiedName]) + >>= fromJSVal) + +-- | +createElementNS_ :: + (MonadDOM m, IsDocument self, ToJSString namespaceURI, + ToJSString qualifiedName) => + self -> Maybe namespaceURI -> Maybe qualifiedName -> m () +createElementNS_ self namespaceURI qualifiedName + = liftDOM + (void + ((toDocument self) ^. jsf "createElementNS" + [toJSVal namespaceURI, toJSVal qualifiedName])) + +-- | +createElementNSUnchecked :: + (MonadDOM m, IsDocument self, ToJSString namespaceURI, + ToJSString qualifiedName) => + self -> Maybe namespaceURI -> Maybe qualifiedName -> m Element +createElementNSUnchecked self namespaceURI qualifiedName + = liftDOM + (((toDocument self) ^. jsf "createElementNS" + [toJSVal namespaceURI, toJSVal qualifiedName]) + >>= fromJSValUnchecked) + +-- | +createAttributeNS :: + (MonadDOM m, IsDocument self, ToJSString namespaceURI, + ToJSString qualifiedName) => + self -> Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Attr) +createAttributeNS self namespaceURI qualifiedName + = liftDOM + (((toDocument self) ^. jsf "createAttributeNS" + [toJSVal namespaceURI, toJSVal qualifiedName]) + >>= fromJSVal) + +-- | +createAttributeNS_ :: + (MonadDOM m, IsDocument self, ToJSString namespaceURI, + ToJSString qualifiedName) => + self -> Maybe namespaceURI -> Maybe qualifiedName -> m () +createAttributeNS_ self namespaceURI qualifiedName + = liftDOM + (void + ((toDocument self) ^. jsf "createAttributeNS" + [toJSVal namespaceURI, toJSVal qualifiedName])) + +-- | +createAttributeNSUnchecked :: + (MonadDOM m, IsDocument self, ToJSString namespaceURI, + ToJSString qualifiedName) => + self -> Maybe namespaceURI -> Maybe qualifiedName -> m Attr +createAttributeNSUnchecked self namespaceURI qualifiedName + = liftDOM + (((toDocument self) ^. jsf "createAttributeNS" + [toJSVal namespaceURI, toJSVal qualifiedName]) + >>= fromJSValUnchecked) + +-- | +getElementsByTagNameNS :: + (MonadDOM m, IsDocument self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m (Maybe NodeList) +getElementsByTagNameNS self namespaceURI localName + = liftDOM + (((toDocument self) ^. jsf "getElementsByTagNameNS" + [toJSVal namespaceURI, toJSVal localName]) + >>= fromJSVal) + +-- | +getElementsByTagNameNS_ :: + (MonadDOM m, IsDocument self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m () +getElementsByTagNameNS_ self namespaceURI localName + = liftDOM + (void + ((toDocument self) ^. jsf "getElementsByTagNameNS" + [toJSVal namespaceURI, toJSVal localName])) + +-- | +getElementsByTagNameNSUnchecked :: + (MonadDOM m, IsDocument self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m NodeList +getElementsByTagNameNSUnchecked self namespaceURI localName + = liftDOM + (((toDocument self) ^. jsf "getElementsByTagNameNS" + [toJSVal namespaceURI, toJSVal localName]) + >>= fromJSValUnchecked) + +-- | +getElementById :: + (MonadDOM m, IsDocument self, ToJSString elementId) => + self -> elementId -> m (Maybe Element) +getElementById self elementId + = liftDOM + (((toDocument self) ^. jsf "getElementById" [toJSVal elementId]) + >>= fromJSVal) + +-- | +getElementById_ :: + (MonadDOM m, IsDocument self, ToJSString elementId) => + self -> elementId -> m () +getElementById_ self elementId + = liftDOM + (void + ((toDocument self) ^. jsf "getElementById" [toJSVal elementId])) + +-- | +getElementByIdUnchecked :: + (MonadDOM m, IsDocument self, ToJSString elementId) => + self -> elementId -> m Element +getElementByIdUnchecked self elementId + = liftDOM + (((toDocument self) ^. jsf "getElementById" [toJSVal elementId]) + >>= fromJSValUnchecked) + +-- | +adoptNode :: + (MonadDOM m, IsDocument self, IsNode source) => + self -> Maybe source -> m (Maybe Node) +adoptNode self source + = liftDOM + (((toDocument self) ^. jsf "adoptNode" [toJSVal source]) >>= + fromJSVal) + +-- | +adoptNode_ :: + (MonadDOM m, IsDocument self, IsNode source) => + self -> Maybe source -> m () +adoptNode_ self source + = liftDOM + (void ((toDocument self) ^. jsf "adoptNode" [toJSVal source])) + +-- | +adoptNodeUnchecked :: + (MonadDOM m, IsDocument self, IsNode source) => + self -> Maybe source -> m Node +adoptNodeUnchecked self source + = liftDOM + (((toDocument self) ^. jsf "adoptNode" [toJSVal source]) >>= + fromJSValUnchecked) + +-- | +createEvent :: + (MonadDOM m, IsDocument self, ToJSString eventType) => + self -> eventType -> m (Maybe Event) +createEvent self eventType + = liftDOM + (((toDocument self) ^. jsf "createEvent" [toJSVal eventType]) >>= + fromJSVal) + +-- | +createEvent_ :: + (MonadDOM m, IsDocument self, ToJSString eventType) => + self -> eventType -> m () +createEvent_ self eventType + = liftDOM + (void ((toDocument self) ^. jsf "createEvent" [toJSVal eventType])) + +-- | +createEventUnchecked :: + (MonadDOM m, IsDocument self, ToJSString eventType) => + self -> eventType -> m Event +createEventUnchecked self eventType + = liftDOM + (((toDocument self) ^. jsf "createEvent" [toJSVal eventType]) >>= + fromJSValUnchecked) + +-- | +createRange :: + (MonadDOM m, IsDocument self) => self -> m (Maybe Range) +createRange self + = liftDOM + (((toDocument self) ^. jsf "createRange" ()) >>= fromJSVal) + +-- | +createRange_ :: (MonadDOM m, IsDocument self) => self -> m () +createRange_ self + = liftDOM (void ((toDocument self) ^. jsf "createRange" ())) + +-- | +createRangeUnchecked :: + (MonadDOM m, IsDocument self) => self -> m Range +createRangeUnchecked self + = liftDOM + (((toDocument self) ^. jsf "createRange" ()) >>= + fromJSValUnchecked) + +-- | +createNodeIterator :: + (MonadDOM m, IsDocument self, IsNode root) => + self -> + Maybe root -> + Word -> Maybe NodeFilter -> Bool -> m (Maybe NodeIterator) +createNodeIterator self root whatToShow filter + expandEntityReferences + = liftDOM + (((toDocument self) ^. jsf "createNodeIterator" + [toJSVal root, toJSVal whatToShow, toJSVal filter, + toJSVal expandEntityReferences]) + >>= fromJSVal) + +-- | +createNodeIterator_ :: + (MonadDOM m, IsDocument self, IsNode root) => + self -> Maybe root -> Word -> Maybe NodeFilter -> Bool -> m () +createNodeIterator_ self root whatToShow filter + expandEntityReferences + = liftDOM + (void + ((toDocument self) ^. jsf "createNodeIterator" + [toJSVal root, toJSVal whatToShow, toJSVal filter, + toJSVal expandEntityReferences])) + +-- | +createNodeIteratorUnchecked :: + (MonadDOM m, IsDocument self, IsNode root) => + self -> + Maybe root -> Word -> Maybe NodeFilter -> Bool -> m NodeIterator +createNodeIteratorUnchecked self root whatToShow filter + expandEntityReferences + = liftDOM + (((toDocument self) ^. jsf "createNodeIterator" + [toJSVal root, toJSVal whatToShow, toJSVal filter, + toJSVal expandEntityReferences]) + >>= fromJSValUnchecked) + +-- | +createTreeWalker :: + (MonadDOM m, IsDocument self, IsNode root) => + self -> + Maybe root -> + Word -> Maybe NodeFilter -> Bool -> m (Maybe TreeWalker) +createTreeWalker self root whatToShow filter expandEntityReferences + = liftDOM + (((toDocument self) ^. jsf "createTreeWalker" + [toJSVal root, toJSVal whatToShow, toJSVal filter, + toJSVal expandEntityReferences]) + >>= fromJSVal) + +-- | +createTreeWalker_ :: + (MonadDOM m, IsDocument self, IsNode root) => + self -> Maybe root -> Word -> Maybe NodeFilter -> Bool -> m () +createTreeWalker_ self root whatToShow filter + expandEntityReferences + = liftDOM + (void + ((toDocument self) ^. jsf "createTreeWalker" + [toJSVal root, toJSVal whatToShow, toJSVal filter, + toJSVal expandEntityReferences])) + +-- | +createTreeWalkerUnchecked :: + (MonadDOM m, IsDocument self, IsNode root) => + self -> + Maybe root -> Word -> Maybe NodeFilter -> Bool -> m TreeWalker +createTreeWalkerUnchecked self root whatToShow filter + expandEntityReferences + = liftDOM + (((toDocument self) ^. jsf "createTreeWalker" + [toJSVal root, toJSVal whatToShow, toJSVal filter, + toJSVal expandEntityReferences]) + >>= fromJSValUnchecked) + +-- | +getOverrideStyle :: + (MonadDOM m, IsDocument self, IsElement element, + ToJSString pseudoElement) => + self -> + Maybe element -> pseudoElement -> m (Maybe CSSStyleDeclaration) +getOverrideStyle self element pseudoElement + = liftDOM + (((toDocument self) ^. jsf "getOverrideStyle" + [toJSVal element, toJSVal pseudoElement]) + >>= fromJSVal) + +-- | +getOverrideStyle_ :: + (MonadDOM m, IsDocument self, IsElement element, + ToJSString pseudoElement) => + self -> Maybe element -> pseudoElement -> m () +getOverrideStyle_ self element pseudoElement + = liftDOM + (void + ((toDocument self) ^. jsf "getOverrideStyle" + [toJSVal element, toJSVal pseudoElement])) + +-- | +getOverrideStyleUnchecked :: + (MonadDOM m, IsDocument self, IsElement element, + ToJSString pseudoElement) => + self -> Maybe element -> pseudoElement -> m CSSStyleDeclaration +getOverrideStyleUnchecked self element pseudoElement + = liftDOM + (((toDocument self) ^. jsf "getOverrideStyle" + [toJSVal element, toJSVal pseudoElement]) + >>= fromJSValUnchecked) + +-- | +createExpression :: + (MonadDOM m, IsDocument self, ToJSString expression) => + self -> + expression -> Maybe XPathNSResolver -> m (Maybe XPathExpression) +createExpression self expression resolver + = liftDOM + (((toDocument self) ^. jsf "createExpression" + [toJSVal expression, toJSVal resolver]) + >>= fromJSVal) + +-- | +createExpression_ :: + (MonadDOM m, IsDocument self, ToJSString expression) => + self -> expression -> Maybe XPathNSResolver -> m () +createExpression_ self expression resolver + = liftDOM + (void + ((toDocument self) ^. jsf "createExpression" + [toJSVal expression, toJSVal resolver])) + +-- | +createExpressionUnchecked :: + (MonadDOM m, IsDocument self, ToJSString expression) => + self -> expression -> Maybe XPathNSResolver -> m XPathExpression +createExpressionUnchecked self expression resolver + = liftDOM + (((toDocument self) ^. jsf "createExpression" + [toJSVal expression, toJSVal resolver]) + >>= fromJSValUnchecked) + +-- | +createNSResolver :: + (MonadDOM m, IsDocument self, IsNode nodeResolver) => + self -> Maybe nodeResolver -> m (Maybe XPathNSResolver) +createNSResolver self nodeResolver + = liftDOM + (((toDocument self) ^. jsf "createNSResolver" + [toJSVal nodeResolver]) + >>= fromJSVal) + +-- | +createNSResolver_ :: + (MonadDOM m, IsDocument self, IsNode nodeResolver) => + self -> Maybe nodeResolver -> m () +createNSResolver_ self nodeResolver + = liftDOM + (void + ((toDocument self) ^. jsf "createNSResolver" + [toJSVal nodeResolver])) + +-- | +createNSResolverUnchecked :: + (MonadDOM m, IsDocument self, IsNode nodeResolver) => + self -> Maybe nodeResolver -> m XPathNSResolver +createNSResolverUnchecked self nodeResolver + = liftDOM + (((toDocument self) ^. jsf "createNSResolver" + [toJSVal nodeResolver]) + >>= fromJSValUnchecked) + +-- | +evaluate :: + (MonadDOM 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 + = liftDOM + (((toDocument self) ^. jsf "evaluate" + [toJSVal expression, toJSVal contextNode, toJSVal resolver, + toJSVal type', toJSVal inResult]) + >>= fromJSVal) + +-- | +evaluate_ :: + (MonadDOM m, IsDocument self, ToJSString expression, + IsNode contextNode) => + self -> + expression -> + Maybe contextNode -> + Maybe XPathNSResolver -> Word -> Maybe XPathResult -> m () +evaluate_ self expression contextNode resolver type' inResult + = liftDOM + (void + ((toDocument self) ^. jsf "evaluate" + [toJSVal expression, toJSVal contextNode, toJSVal resolver, + toJSVal type', toJSVal inResult])) + +-- | +evaluateUnchecked :: + (MonadDOM 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 + = liftDOM + (((toDocument self) ^. jsf "evaluate" + [toJSVal expression, toJSVal contextNode, toJSVal resolver, + toJSVal type', toJSVal inResult]) + >>= fromJSValUnchecked) + +-- | +execCommand :: + (MonadDOM m, IsDocument self, ToJSString command, + ToJSString value) => + self -> command -> Bool -> Maybe value -> m Bool +execCommand self command userInterface value + = liftDOM + (((toDocument self) ^. jsf "execCommand" + [toJSVal command, toJSVal userInterface, toJSVal value]) + >>= valToBool) + +-- | +execCommand_ :: + (MonadDOM m, IsDocument self, ToJSString command, + ToJSString value) => + self -> command -> Bool -> Maybe value -> m () +execCommand_ self command userInterface value + = liftDOM + (void + ((toDocument self) ^. jsf "execCommand" + [toJSVal command, toJSVal userInterface, toJSVal value])) + +-- | +queryCommandEnabled :: + (MonadDOM m, IsDocument self, ToJSString command) => + self -> command -> m Bool +queryCommandEnabled self command + = liftDOM + (((toDocument self) ^. jsf "queryCommandEnabled" [toJSVal command]) + >>= valToBool) + +-- | +queryCommandEnabled_ :: + (MonadDOM m, IsDocument self, ToJSString command) => + self -> command -> m () +queryCommandEnabled_ self command + = liftDOM + (void + ((toDocument self) ^. jsf "queryCommandEnabled" [toJSVal command])) + +-- | +queryCommandIndeterm :: + (MonadDOM m, IsDocument self, ToJSString command) => + self -> command -> m Bool +queryCommandIndeterm self command + = liftDOM + (((toDocument self) ^. jsf "queryCommandIndeterm" + [toJSVal command]) + >>= valToBool) + +-- | +queryCommandIndeterm_ :: + (MonadDOM m, IsDocument self, ToJSString command) => + self -> command -> m () +queryCommandIndeterm_ self command + = liftDOM + (void + ((toDocument self) ^. jsf "queryCommandIndeterm" + [toJSVal command])) + +-- | +queryCommandState :: + (MonadDOM m, IsDocument self, ToJSString command) => + self -> command -> m Bool +queryCommandState self command + = liftDOM + (((toDocument self) ^. jsf "queryCommandState" [toJSVal command]) + >>= valToBool) + +-- | +queryCommandState_ :: + (MonadDOM m, IsDocument self, ToJSString command) => + self -> command -> m () +queryCommandState_ self command + = liftDOM + (void + ((toDocument self) ^. jsf "queryCommandState" [toJSVal command])) + +-- | +queryCommandSupported :: + (MonadDOM m, IsDocument self, ToJSString command) => + self -> command -> m Bool +queryCommandSupported self command + = liftDOM + (((toDocument self) ^. jsf "queryCommandSupported" + [toJSVal command]) + >>= valToBool) + +-- | +queryCommandSupported_ :: + (MonadDOM m, IsDocument self, ToJSString command) => + self -> command -> m () +queryCommandSupported_ self command + = liftDOM + (void + ((toDocument self) ^. jsf "queryCommandSupported" + [toJSVal command])) + +-- | +queryCommandValue :: + (MonadDOM m, IsDocument self, ToJSString command, + FromJSString result) => + self -> command -> m result +queryCommandValue self command + = liftDOM + (((toDocument self) ^. jsf "queryCommandValue" [toJSVal command]) + >>= fromJSValUnchecked) + +-- | +queryCommandValue_ :: + (MonadDOM m, IsDocument self, ToJSString command) => + self -> command -> m () +queryCommandValue_ self command + = liftDOM + (void + ((toDocument self) ^. jsf "queryCommandValue" [toJSVal command])) + +-- | +getElementsByName :: + (MonadDOM m, IsDocument self, ToJSString elementName) => + self -> elementName -> m (Maybe NodeList) +getElementsByName self elementName + = liftDOM + (((toDocument self) ^. jsf "getElementsByName" + [toJSVal elementName]) + >>= fromJSVal) + +-- | +getElementsByName_ :: + (MonadDOM m, IsDocument self, ToJSString elementName) => + self -> elementName -> m () +getElementsByName_ self elementName + = liftDOM + (void + ((toDocument self) ^. jsf "getElementsByName" + [toJSVal elementName])) + +-- | +getElementsByNameUnchecked :: + (MonadDOM m, IsDocument self, ToJSString elementName) => + self -> elementName -> m NodeList +getElementsByNameUnchecked self elementName + = liftDOM + (((toDocument self) ^. jsf "getElementsByName" + [toJSVal elementName]) + >>= fromJSValUnchecked) + +-- | +elementFromPoint :: + (MonadDOM m, IsDocument self) => + self -> Int -> Int -> m (Maybe Element) +elementFromPoint self x y + = liftDOM + (((toDocument self) ^. jsf "elementFromPoint" + [toJSVal x, toJSVal y]) + >>= fromJSVal) + +-- | +elementFromPoint_ :: + (MonadDOM m, IsDocument self) => self -> Int -> Int -> m () +elementFromPoint_ self x y + = liftDOM + (void + ((toDocument self) ^. jsf "elementFromPoint" + [toJSVal x, toJSVal y])) + +-- | +elementFromPointUnchecked :: + (MonadDOM m, IsDocument self) => self -> Int -> Int -> m Element +elementFromPointUnchecked self x y + = liftDOM + (((toDocument self) ^. jsf "elementFromPoint" + [toJSVal x, toJSVal y]) + >>= fromJSValUnchecked) + +-- | +caretRangeFromPoint :: + (MonadDOM m, IsDocument self) => + self -> Int -> Int -> m (Maybe Range) +caretRangeFromPoint self x y + = liftDOM + (((toDocument self) ^. jsf "caretRangeFromPoint" + [toJSVal x, toJSVal y]) + >>= fromJSVal) + +-- | +caretRangeFromPoint_ :: + (MonadDOM m, IsDocument self) => self -> Int -> Int -> m () +caretRangeFromPoint_ self x y + = liftDOM + (void + ((toDocument self) ^. jsf "caretRangeFromPoint" + [toJSVal x, toJSVal y])) + +-- | +caretRangeFromPointUnchecked :: + (MonadDOM m, IsDocument self) => self -> Int -> Int -> m Range +caretRangeFromPointUnchecked self x y + = liftDOM + (((toDocument self) ^. jsf "caretRangeFromPoint" + [toJSVal x, toJSVal y]) + >>= fromJSValUnchecked) + +-- | +getSelection :: + (MonadDOM m, IsDocument self) => self -> m (Maybe Selection) +getSelection self + = liftDOM + (((toDocument self) ^. jsf "getSelection" ()) >>= fromJSVal) + +-- | +getSelection_ :: (MonadDOM m, IsDocument self) => self -> m () +getSelection_ self + = liftDOM (void ((toDocument self) ^. jsf "getSelection" ())) + +-- | +getSelectionUnchecked :: + (MonadDOM m, IsDocument self) => self -> m Selection +getSelectionUnchecked self + = liftDOM + (((toDocument self) ^. jsf "getSelection" ()) >>= + fromJSValUnchecked) + +-- | +getCSSCanvasContext :: + (MonadDOM m, IsDocument self, ToJSString contextId, + ToJSString name) => + self -> + contextId -> name -> Int -> Int -> m (Maybe CanvasRenderingContext) +getCSSCanvasContext self contextId name width height + = liftDOM + (((toDocument self) ^. jsf "getCSSCanvasContext" + [toJSVal contextId, toJSVal name, toJSVal width, toJSVal height]) + >>= fromJSVal) + +-- | +getCSSCanvasContext_ :: + (MonadDOM m, IsDocument self, ToJSString contextId, + ToJSString name) => + self -> contextId -> name -> Int -> Int -> m () +getCSSCanvasContext_ self contextId name width height + = liftDOM + (void + ((toDocument self) ^. jsf "getCSSCanvasContext" + [toJSVal contextId, toJSVal name, toJSVal width, toJSVal height])) + +-- | +getCSSCanvasContextUnchecked :: + (MonadDOM m, IsDocument self, ToJSString contextId, + ToJSString name) => + self -> contextId -> name -> Int -> Int -> m CanvasRenderingContext +getCSSCanvasContextUnchecked self contextId name width height + = liftDOM + (((toDocument self) ^. jsf "getCSSCanvasContext" + [toJSVal contextId, toJSVal name, toJSVal width, toJSVal height]) + >>= fromJSValUnchecked) + +-- | +getElementsByClassName :: + (MonadDOM m, IsDocument self, ToJSString tagname) => + self -> tagname -> m (Maybe NodeList) +getElementsByClassName self tagname + = liftDOM + (((toDocument self) ^. jsf "getElementsByClassName" + [toJSVal tagname]) + >>= fromJSVal) + +-- | +getElementsByClassName_ :: + (MonadDOM m, IsDocument self, ToJSString tagname) => + self -> tagname -> m () +getElementsByClassName_ self tagname + = liftDOM + (void + ((toDocument self) ^. jsf "getElementsByClassName" + [toJSVal tagname])) + +-- | +getElementsByClassNameUnchecked :: + (MonadDOM m, IsDocument self, ToJSString tagname) => + self -> tagname -> m NodeList +getElementsByClassNameUnchecked self tagname + = liftDOM + (((toDocument self) ^. jsf "getElementsByClassName" + [toJSVal tagname]) + >>= fromJSValUnchecked) + +-- | +hasFocus :: (MonadDOM m, IsDocument self) => self -> m Bool +hasFocus self + = liftDOM (((toDocument self) ^. jsf "hasFocus" ()) >>= valToBool) + +-- | +hasFocus_ :: (MonadDOM m, IsDocument self) => self -> m () +hasFocus_ self + = liftDOM (void ((toDocument self) ^. jsf "hasFocus" ())) + +-- | +querySelector :: + (MonadDOM m, IsDocument self, ToJSString selectors) => + self -> selectors -> m (Maybe Element) +querySelector self selectors + = liftDOM + (((toDocument self) ^. jsf "querySelector" [toJSVal selectors]) >>= + fromJSVal) + +-- | +querySelector_ :: + (MonadDOM m, IsDocument self, ToJSString selectors) => + self -> selectors -> m () +querySelector_ self selectors + = liftDOM + (void + ((toDocument self) ^. jsf "querySelector" [toJSVal selectors])) + +-- | +querySelectorUnchecked :: + (MonadDOM m, IsDocument self, ToJSString selectors) => + self -> selectors -> m Element +querySelectorUnchecked self selectors + = liftDOM + (((toDocument self) ^. jsf "querySelector" [toJSVal selectors]) >>= + fromJSValUnchecked) + +-- | +querySelectorAll :: + (MonadDOM m, IsDocument self, ToJSString selectors) => + self -> selectors -> m (Maybe NodeList) +querySelectorAll self selectors + = liftDOM + (((toDocument self) ^. jsf "querySelectorAll" [toJSVal selectors]) + >>= fromJSVal) + +-- | +querySelectorAll_ :: + (MonadDOM m, IsDocument self, ToJSString selectors) => + self -> selectors -> m () +querySelectorAll_ self selectors + = liftDOM + (void + ((toDocument self) ^. jsf "querySelectorAll" [toJSVal selectors])) + +-- | +querySelectorAllUnchecked :: + (MonadDOM m, IsDocument self, ToJSString selectors) => + self -> selectors -> m NodeList +querySelectorAllUnchecked self selectors + = liftDOM + (((toDocument self) ^. jsf "querySelectorAll" [toJSVal selectors]) + >>= fromJSValUnchecked) + +-- | +webkitCancelFullScreen :: + (MonadDOM m, IsDocument self) => self -> m () +webkitCancelFullScreen self + = liftDOM + (void ((toDocument self) ^. jsf "webkitCancelFullScreen" ())) + +-- | +webkitExitFullscreen :: + (MonadDOM m, IsDocument self) => self -> m () +webkitExitFullscreen self + = liftDOM + (void ((toDocument self) ^. jsf "webkitExitFullscreen" ())) + +-- | +exitPointerLock :: (MonadDOM m, IsDocument self) => self -> m () +exitPointerLock self + = liftDOM (void ((toDocument self) ^. jsf "exitPointerLock" ())) + +-- | +webkitGetNamedFlows :: + (MonadDOM m, IsDocument self) => + self -> m (Maybe DOMNamedFlowCollection) +webkitGetNamedFlows self + = liftDOM + (((toDocument self) ^. jsf "webkitGetNamedFlows" ()) >>= fromJSVal) + +-- | +webkitGetNamedFlows_ :: + (MonadDOM m, IsDocument self) => self -> m () +webkitGetNamedFlows_ self + = liftDOM + (void ((toDocument self) ^. jsf "webkitGetNamedFlows" ())) + +-- | +webkitGetNamedFlowsUnchecked :: + (MonadDOM m, IsDocument self) => self -> m DOMNamedFlowCollection +webkitGetNamedFlowsUnchecked self + = liftDOM + (((toDocument self) ^. jsf "webkitGetNamedFlows" ()) >>= + fromJSValUnchecked) + +-- | +createTouch :: + (MonadDOM 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 + = liftDOM + (((toDocument self) ^. jsf "createTouch" + [toJSVal window, toJSVal target, toJSVal identifier, toJSVal pageX, + toJSVal pageY, toJSVal screenX, toJSVal screenY, + toJSVal webkitRadiusX, toJSVal webkitRadiusY, + toJSVal webkitRotationAngle, toJSVal webkitForce]) + >>= fromJSVal) + +-- | +createTouch_ :: + (MonadDOM 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 + = liftDOM + (void + ((toDocument self) ^. jsf "createTouch" + [toJSVal window, toJSVal target, toJSVal identifier, toJSVal pageX, + toJSVal pageY, toJSVal screenX, toJSVal screenY, + toJSVal webkitRadiusX, toJSVal webkitRadiusY, + toJSVal webkitRotationAngle, toJSVal webkitForce])) + +-- | +createTouchUnchecked :: + (MonadDOM 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 + = liftDOM + (((toDocument self) ^. jsf "createTouch" + [toJSVal window, toJSVal target, toJSVal identifier, toJSVal pageX, + toJSVal pageY, toJSVal screenX, toJSVal screenY, + toJSVal webkitRadiusX, toJSVal webkitRadiusY, + toJSVal webkitRotationAngle, toJSVal webkitForce]) + >>= fromJSValUnchecked) + +-- | +createTouchList :: + (MonadDOM m, IsDocument self) => self -> m (Maybe TouchList) +createTouchList self + = liftDOM + (((toDocument self) ^. jsf "createTouchList" ()) >>= fromJSVal) + +-- | +createTouchList_ :: (MonadDOM m, IsDocument self) => self -> m () +createTouchList_ self + = liftDOM (void ((toDocument self) ^. jsf "createTouchList" ())) + +-- | +createTouchListUnchecked :: + (MonadDOM m, IsDocument self) => self -> m TouchList +createTouchListUnchecked self + = liftDOM + (((toDocument self) ^. jsf "createTouchList" ()) >>= + fromJSValUnchecked) + +-- | +getDoctype :: + (MonadDOM m, IsDocument self) => self -> m (Maybe DocumentType) +getDoctype self + = liftDOM (((toDocument self) ^. js "doctype") >>= fromJSVal) + +-- | +getDoctypeUnchecked :: + (MonadDOM m, IsDocument self) => self -> m DocumentType +getDoctypeUnchecked self + = liftDOM + (((toDocument self) ^. js "doctype") >>= fromJSValUnchecked) + +-- | +getImplementation :: + (MonadDOM m, IsDocument self) => + self -> m (Maybe DOMImplementation) +getImplementation self + = liftDOM + (((toDocument self) ^. js "implementation") >>= fromJSVal) + +-- | +getImplementationUnchecked :: + (MonadDOM m, IsDocument self) => self -> m DOMImplementation +getImplementationUnchecked self + = liftDOM + (((toDocument self) ^. js "implementation") >>= fromJSValUnchecked) + +-- | +getDocumentElement :: + (MonadDOM m, IsDocument self) => self -> m (Maybe Element) +getDocumentElement self + = liftDOM + (((toDocument self) ^. js "documentElement") >>= fromJSVal) + +-- | +getDocumentElementUnchecked :: + (MonadDOM m, IsDocument self) => self -> m Element +getDocumentElementUnchecked self + = liftDOM + (((toDocument self) ^. js "documentElement") >>= + fromJSValUnchecked) + +-- | +getInputEncoding :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getInputEncoding self + = liftDOM + (((toDocument self) ^. js "inputEncoding") >>= fromMaybeJSString) + +-- | +getInputEncodingUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getInputEncodingUnchecked self + = liftDOM + (((toDocument self) ^. js "inputEncoding") >>= fromJSValUnchecked) + +-- | +getXmlEncoding :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getXmlEncoding self + = liftDOM + (((toDocument self) ^. js "xmlEncoding") >>= fromMaybeJSString) + +-- | +getXmlEncodingUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getXmlEncodingUnchecked self + = liftDOM + (((toDocument self) ^. js "xmlEncoding") >>= fromJSValUnchecked) + +-- | +setXmlVersion :: + (MonadDOM m, IsDocument self, ToJSString val) => + self -> Maybe val -> m () +setXmlVersion self val + = liftDOM ((toDocument self) ^. jss "xmlVersion" (toJSVal val)) + +-- | +getXmlVersion :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getXmlVersion self + = liftDOM + (((toDocument self) ^. js "xmlVersion") >>= fromMaybeJSString) + +-- | +getXmlVersionUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getXmlVersionUnchecked self + = liftDOM + (((toDocument self) ^. js "xmlVersion") >>= fromJSValUnchecked) + +-- | +setXmlStandalone :: + (MonadDOM m, IsDocument self) => self -> Bool -> m () +setXmlStandalone self val + = liftDOM ((toDocument self) ^. jss "xmlStandalone" (toJSVal val)) + +-- | +getXmlStandalone :: (MonadDOM m, IsDocument self) => self -> m Bool +getXmlStandalone self + = liftDOM (((toDocument self) ^. js "xmlStandalone") >>= valToBool) + +-- | +getDocumentURI :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getDocumentURI self + = liftDOM + (((toDocument self) ^. js "documentURI") >>= fromMaybeJSString) + +-- | +getDocumentURIUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getDocumentURIUnchecked self + = liftDOM + (((toDocument self) ^. js "documentURI") >>= fromJSValUnchecked) + +-- | +getDefaultView :: + (MonadDOM m, IsDocument self) => self -> m (Maybe Window) +getDefaultView self + = liftDOM (((toDocument self) ^. js "defaultView") >>= fromJSVal) + +-- | +getDefaultViewUnchecked :: + (MonadDOM m, IsDocument self) => self -> m Window +getDefaultViewUnchecked self + = liftDOM + (((toDocument self) ^. js "defaultView") >>= fromJSValUnchecked) + +-- | +getStyleSheets :: + (MonadDOM m, IsDocument self) => self -> m (Maybe StyleSheetList) +getStyleSheets self + = liftDOM (((toDocument self) ^. js "styleSheets") >>= fromJSVal) + +-- | +getStyleSheetsUnchecked :: + (MonadDOM m, IsDocument self) => self -> m StyleSheetList +getStyleSheetsUnchecked self + = liftDOM + (((toDocument self) ^. js "styleSheets") >>= fromJSValUnchecked) + +-- | +getContentType :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getContentType self + = liftDOM + (((toDocument self) ^. js "contentType") >>= fromJSValUnchecked) + +-- | +setTitle :: + (MonadDOM m, IsDocument self, ToJSString val) => + self -> Maybe val -> m () +setTitle self val + = liftDOM ((toDocument self) ^. jss "title" (toJSVal val)) + +-- | +getTitle :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getTitle self + = liftDOM (((toDocument self) ^. js "title") >>= fromMaybeJSString) + +-- | +getTitleUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getTitleUnchecked self + = liftDOM + (((toDocument self) ^. js "title") >>= fromJSValUnchecked) + +-- | +getReferrer :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getReferrer self + = liftDOM + (((toDocument self) ^. js "referrer") >>= fromJSValUnchecked) + +-- | +setDomain :: + (MonadDOM m, IsDocument self, ToJSString val) => + self -> Maybe val -> m () +setDomain self val + = liftDOM ((toDocument self) ^. jss "domain" (toJSVal val)) + +-- | +getDomain :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getDomain self + = liftDOM + (((toDocument self) ^. js "domain") >>= fromMaybeJSString) + +-- | +getDomainUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getDomainUnchecked self + = liftDOM + (((toDocument self) ^. js "domain") >>= fromJSValUnchecked) + +-- | +getURL :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getURL self + = liftDOM (((toDocument self) ^. js "URL") >>= fromJSValUnchecked) + +-- | +setCookie :: + (MonadDOM m, IsDocument self, ToJSString val) => + self -> Maybe val -> m () +setCookie self val + = liftDOM ((toDocument self) ^. jss "cookie" (toJSVal val)) + +-- | +getCookie :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getCookie self + = liftDOM + (((toDocument self) ^. js "cookie") >>= fromMaybeJSString) + +-- | +getCookieUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getCookieUnchecked self + = liftDOM + (((toDocument self) ^. js "cookie") >>= fromJSValUnchecked) + +-- | +setBody :: + (MonadDOM m, IsDocument self, IsHTMLElement val) => + self -> Maybe val -> m () +setBody self val + = liftDOM ((toDocument self) ^. jss "body" (toJSVal val)) + +-- | +getBody :: + (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLElement) +getBody self + = liftDOM (((toDocument self) ^. js "body") >>= fromJSVal) + +-- | +getBodyUnchecked :: + (MonadDOM m, IsDocument self) => self -> m HTMLElement +getBodyUnchecked self + = liftDOM (((toDocument self) ^. js "body") >>= fromJSValUnchecked) + +-- | +getHead :: + (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLHeadElement) +getHead self + = liftDOM (((toDocument self) ^. js "head") >>= fromJSVal) + +-- | +getHeadUnchecked :: + (MonadDOM m, IsDocument self) => self -> m HTMLHeadElement +getHeadUnchecked self + = liftDOM (((toDocument self) ^. js "head") >>= fromJSValUnchecked) + +-- | +getImages :: + (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection) +getImages self + = liftDOM (((toDocument self) ^. js "images") >>= fromJSVal) + +-- | +getImagesUnchecked :: + (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getImagesUnchecked self + = liftDOM + (((toDocument self) ^. js "images") >>= fromJSValUnchecked) + +-- | +getApplets :: + (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection) +getApplets self + = liftDOM (((toDocument self) ^. js "applets") >>= fromJSVal) + +-- | +getAppletsUnchecked :: + (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getAppletsUnchecked self + = liftDOM + (((toDocument self) ^. js "applets") >>= fromJSValUnchecked) + +-- | +getLinks :: + (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection) +getLinks self + = liftDOM (((toDocument self) ^. js "links") >>= fromJSVal) + +-- | +getLinksUnchecked :: + (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getLinksUnchecked self + = liftDOM + (((toDocument self) ^. js "links") >>= fromJSValUnchecked) + +-- | +getForms :: + (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection) +getForms self + = liftDOM (((toDocument self) ^. js "forms") >>= fromJSVal) + +-- | +getFormsUnchecked :: + (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getFormsUnchecked self + = liftDOM + (((toDocument self) ^. js "forms") >>= fromJSValUnchecked) + +-- | +getAnchors :: + (MonadDOM m, IsDocument self) => self -> m (Maybe HTMLCollection) +getAnchors self + = liftDOM (((toDocument self) ^. js "anchors") >>= fromJSVal) + +-- | +getAnchorsUnchecked :: + (MonadDOM m, IsDocument self) => self -> m HTMLCollection +getAnchorsUnchecked self + = liftDOM + (((toDocument self) ^. js "anchors") >>= fromJSValUnchecked) + +-- | +getLastModified :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getLastModified self + = liftDOM + (((toDocument self) ^. js "lastModified") >>= fromJSValUnchecked) + +-- | +setLocation :: + (MonadDOM m, IsDocument self) => self -> Maybe Location -> m () +setLocation self val + = liftDOM ((toDocument self) ^. jss "location" (toJSVal val)) + +-- | +getLocation :: + (MonadDOM m, IsDocument self) => self -> m (Maybe Location) +getLocation self + = liftDOM (((toDocument self) ^. js "location") >>= fromJSVal) + +-- | +getLocationUnchecked :: + (MonadDOM m, IsDocument self) => self -> m Location +getLocationUnchecked self + = liftDOM + (((toDocument self) ^. js "location") >>= fromJSValUnchecked) + +-- | +setCharset :: + (MonadDOM m, IsDocument self, ToJSString val) => + self -> Maybe val -> m () +setCharset self val + = liftDOM ((toDocument self) ^. jss "charset" (toJSVal val)) + +-- | +getCharset :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getCharset self + = liftDOM + (((toDocument self) ^. js "charset") >>= fromMaybeJSString) + +-- | +getCharsetUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getCharsetUnchecked self + = liftDOM + (((toDocument self) ^. js "charset") >>= fromJSValUnchecked) + +-- | +getDefaultCharset :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getDefaultCharset self + = liftDOM + (((toDocument self) ^. js "defaultCharset") >>= fromMaybeJSString) + +-- | +getDefaultCharsetUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getDefaultCharsetUnchecked self + = liftDOM + (((toDocument self) ^. js "defaultCharset") >>= fromJSValUnchecked) + +-- | +getReadyState :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getReadyState self + = liftDOM + (((toDocument self) ^. js "readyState") >>= fromMaybeJSString) + +-- | +getReadyStateUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getReadyStateUnchecked self + = liftDOM + (((toDocument self) ^. js "readyState") >>= fromJSValUnchecked) + +-- | +getCharacterSet :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getCharacterSet self + = liftDOM + (((toDocument self) ^. js "characterSet") >>= fromMaybeJSString) + +-- | +getCharacterSetUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getCharacterSetUnchecked self + = liftDOM + (((toDocument self) ^. js "characterSet") >>= fromJSValUnchecked) + +-- | +getPreferredStylesheetSet :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getPreferredStylesheetSet self + = liftDOM + (((toDocument self) ^. js "preferredStylesheetSet") >>= + fromMaybeJSString) + +-- | +getPreferredStylesheetSetUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getPreferredStylesheetSetUnchecked self + = liftDOM + (((toDocument self) ^. js "preferredStylesheetSet") >>= + fromJSValUnchecked) + +-- | +setSelectedStylesheetSet :: + (MonadDOM m, IsDocument self, ToJSString val) => + self -> Maybe val -> m () +setSelectedStylesheetSet self val + = liftDOM + ((toDocument self) ^. jss "selectedStylesheetSet" (toJSVal val)) + +-- | +getSelectedStylesheetSet :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m (Maybe result) +getSelectedStylesheetSet self + = liftDOM + (((toDocument self) ^. js "selectedStylesheetSet") >>= + fromMaybeJSString) + +-- | +getSelectedStylesheetSetUnchecked :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getSelectedStylesheetSetUnchecked self + = liftDOM + (((toDocument self) ^. js "selectedStylesheetSet") >>= + fromJSValUnchecked) + +-- | +getActiveElement :: + (MonadDOM m, IsDocument self) => self -> m (Maybe Element) +getActiveElement self + = liftDOM (((toDocument self) ^. js "activeElement") >>= fromJSVal) + +-- | +getActiveElementUnchecked :: + (MonadDOM m, IsDocument self) => self -> m Element +getActiveElementUnchecked self + = liftDOM + (((toDocument self) ^. js "activeElement") >>= fromJSValUnchecked) + +-- | +getCompatMode :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getCompatMode self + = liftDOM + (((toDocument self) ^. js "compatMode") >>= fromJSValUnchecked) + +-- | +getWebkitIsFullScreen :: + (MonadDOM m, IsDocument self) => self -> m Bool +getWebkitIsFullScreen self + = liftDOM + (((toDocument self) ^. js "webkitIsFullScreen") >>= valToBool) + +-- | +getWebkitFullScreenKeyboardInputAllowed :: + (MonadDOM m, IsDocument self) => self -> m Bool +getWebkitFullScreenKeyboardInputAllowed self + = liftDOM + (((toDocument self) ^. js "webkitFullScreenKeyboardInputAllowed") + >>= valToBool) + +-- | +getWebkitCurrentFullScreenElement :: + (MonadDOM m, IsDocument self) => self -> m (Maybe Element) +getWebkitCurrentFullScreenElement self + = liftDOM + (((toDocument self) ^. js "webkitCurrentFullScreenElement") >>= + fromJSVal) + +-- | +getWebkitCurrentFullScreenElementUnchecked :: + (MonadDOM m, IsDocument self) => self -> m Element +getWebkitCurrentFullScreenElementUnchecked self + = liftDOM + (((toDocument self) ^. js "webkitCurrentFullScreenElement") >>= + fromJSValUnchecked) + +-- | +getWebkitFullscreenEnabled :: + (MonadDOM m, IsDocument self) => self -> m Bool +getWebkitFullscreenEnabled self + = liftDOM + (((toDocument self) ^. js "webkitFullscreenEnabled") >>= valToBool) + +-- | +getWebkitFullscreenElement :: + (MonadDOM m, IsDocument self) => self -> m (Maybe Element) +getWebkitFullscreenElement self + = liftDOM + (((toDocument self) ^. js "webkitFullscreenElement") >>= fromJSVal) + +-- | +getWebkitFullscreenElementUnchecked :: + (MonadDOM m, IsDocument self) => self -> m Element +getWebkitFullscreenElementUnchecked self + = liftDOM + (((toDocument self) ^. js "webkitFullscreenElement") >>= + fromJSValUnchecked) + +-- | +getPointerLockElement :: + (MonadDOM m, IsDocument self) => self -> m (Maybe Element) +getPointerLockElement self + = liftDOM + (((toDocument self) ^. js "pointerLockElement") >>= fromJSVal) + +-- | +getPointerLockElementUnchecked :: + (MonadDOM m, IsDocument self) => self -> m Element +getPointerLockElementUnchecked self + = liftDOM + (((toDocument self) ^. js "pointerLockElement") >>= + fromJSValUnchecked) + +-- | +getFonts :: + (MonadDOM m, IsDocument self) => self -> m (Maybe FontLoader) +getFonts self + = liftDOM (((toDocument self) ^. js "fonts") >>= fromJSVal) + +-- | +getFontsUnchecked :: + (MonadDOM m, IsDocument self) => self -> m FontLoader +getFontsUnchecked self + = liftDOM + (((toDocument self) ^. js "fonts") >>= fromJSValUnchecked) + +-- | +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") + +-- | +getVisibilityState :: + (MonadDOM m, IsDocument self, FromJSString result) => + self -> m result +getVisibilityState self + = liftDOM + (((toDocument self) ^. js "visibilityState") >>= + fromJSValUnchecked) + +-- | +getHidden :: (MonadDOM m, IsDocument self) => self -> m Bool +getHidden self + = liftDOM (((toDocument self) ^. js "hidden") >>= valToBool) + +-- | +getSecurityPolicy :: + (MonadDOM m, IsDocument self) => self -> m (Maybe SecurityPolicy) +getSecurityPolicy self + = liftDOM + (((toDocument self) ^. js "securityPolicy") >>= fromJSVal) + +-- | +getSecurityPolicyUnchecked :: + (MonadDOM m, IsDocument self) => self -> m SecurityPolicy +getSecurityPolicyUnchecked self + = liftDOM + (((toDocument self) ^. js "securityPolicy") >>= fromJSValUnchecked) + +-- | +getCurrentScript :: + (MonadDOM m, IsDocument self) => + self -> m (Maybe HTMLScriptElement) +getCurrentScript self + = liftDOM (((toDocument self) ^. js "currentScript") >>= fromJSVal) + +-- | +getCurrentScriptUnchecked :: + (MonadDOM m, IsDocument self) => self -> m HTMLScriptElement +getCurrentScriptUnchecked self + = liftDOM + (((toDocument self) ^. js "currentScript") >>= fromJSValUnchecked) -- | getOrigin :: diff --git a/src/JSDOM/Generated/DocumentFragment.hs b/src/JSDOM/Generated/DocumentFragment.hs --- a/src/JSDOM/Generated/DocumentFragment.hs +++ b/src/JSDOM/Generated/DocumentFragment.hs @@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.DocumentFragment - (newDocumentFragment, querySelector, querySelectorAll, - DocumentFragment, castToDocumentFragment, gTypeDocumentFragment) + (newDocumentFragment, querySelector, querySelector_, + querySelectorUnchecked, querySelectorAll, querySelectorAll_, + querySelectorAllUnchecked, DocumentFragment, + castToDocumentFragment, gTypeDocumentFragment) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -29,6 +31,22 @@ = liftDOM ((self ^. jsf "querySelector" [toJSVal selectors]) >>= fromJSVal) +-- | +querySelector_ :: + (MonadDOM m, ToJSString selectors) => + DocumentFragment -> selectors -> m () +querySelector_ self selectors + = liftDOM (void (self ^. jsf "querySelector" [toJSVal selectors])) + +-- | +querySelectorUnchecked :: + (MonadDOM m, ToJSString selectors) => + DocumentFragment -> selectors -> m Element +querySelectorUnchecked self selectors + = liftDOM + ((self ^. jsf "querySelector" [toJSVal selectors]) >>= + fromJSValUnchecked) + -- | querySelectorAll :: (MonadDOM m, ToJSString selectors) => @@ -37,3 +55,20 @@ = liftDOM ((self ^. jsf "querySelectorAll" [toJSVal selectors]) >>= fromJSVal) + +-- | +querySelectorAll_ :: + (MonadDOM m, ToJSString selectors) => + DocumentFragment -> selectors -> m () +querySelectorAll_ self selectors + = liftDOM + (void (self ^. jsf "querySelectorAll" [toJSVal selectors])) + +-- | +querySelectorAllUnchecked :: + (MonadDOM m, ToJSString selectors) => + DocumentFragment -> selectors -> m NodeList +querySelectorAllUnchecked self selectors + = liftDOM + ((self ^. jsf "querySelectorAll" [toJSVal selectors]) >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/DocumentType.hs b/src/JSDOM/Generated/DocumentType.hs --- a/src/JSDOM/Generated/DocumentType.hs +++ b/src/JSDOM/Generated/DocumentType.hs @@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.DocumentType - (getName, getEntities, getNotations, getPublicId, getSystemId, - getInternalSubset, DocumentType, castToDocumentType, + (getName, getEntities, getEntitiesUnchecked, getNotations, + getNotationsUnchecked, getPublicId, getPublicIdUnchecked, + getSystemId, getSystemIdUnchecked, getInternalSubset, + getInternalSubsetUnchecked, DocumentType, castToDocumentType, gTypeDocumentType) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -27,12 +29,24 @@ (MonadDOM m) => DocumentType -> m (Maybe NamedNodeMap) getEntities self = liftDOM ((self ^. js "entities") >>= fromJSVal) +-- | +getEntitiesUnchecked :: + (MonadDOM m) => DocumentType -> m NamedNodeMap +getEntitiesUnchecked self + = liftDOM ((self ^. js "entities") >>= fromJSValUnchecked) + -- | getNotations :: (MonadDOM m) => DocumentType -> m (Maybe NamedNodeMap) getNotations self = liftDOM ((self ^. js "notations") >>= fromJSVal) +-- | +getNotationsUnchecked :: + (MonadDOM m) => DocumentType -> m NamedNodeMap +getNotationsUnchecked self + = liftDOM ((self ^. js "notations") >>= fromJSValUnchecked) + -- | getPublicId :: (MonadDOM m, FromJSString result) => @@ -40,6 +54,12 @@ getPublicId self = liftDOM ((self ^. js "publicId") >>= fromMaybeJSString) +-- | +getPublicIdUnchecked :: + (MonadDOM m, FromJSString result) => DocumentType -> m result +getPublicIdUnchecked self + = liftDOM ((self ^. js "publicId") >>= fromJSValUnchecked) + -- | getSystemId :: (MonadDOM m, FromJSString result) => @@ -47,9 +67,21 @@ getSystemId self = liftDOM ((self ^. js "systemId") >>= fromMaybeJSString) +-- | +getSystemIdUnchecked :: + (MonadDOM m, FromJSString result) => DocumentType -> m result +getSystemIdUnchecked self + = liftDOM ((self ^. js "systemId") >>= fromJSValUnchecked) + -- | getInternalSubset :: (MonadDOM m, FromJSString result) => DocumentType -> m (Maybe result) getInternalSubset self = liftDOM ((self ^. js "internalSubset") >>= fromMaybeJSString) + +-- | +getInternalSubsetUnchecked :: + (MonadDOM m, FromJSString result) => DocumentType -> m result +getInternalSubsetUnchecked self + = liftDOM ((self ^. js "internalSubset") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/DynamicsCompressorNode.hs b/src/JSDOM/Generated/DynamicsCompressorNode.hs --- a/src/JSDOM/Generated/DynamicsCompressorNode.hs +++ b/src/JSDOM/Generated/DynamicsCompressorNode.hs @@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.DynamicsCompressorNode - (getThreshold, getKnee, getRatio, getReduction, getAttack, - getRelease, DynamicsCompressorNode, castToDynamicsCompressorNode, + (getThreshold, getThresholdUnchecked, getKnee, getKneeUnchecked, + getRatio, getRatioUnchecked, getReduction, getReductionUnchecked, + getAttack, getAttackUnchecked, getRelease, getReleaseUnchecked, + DynamicsCompressorNode, castToDynamicsCompressorNode, gTypeDynamicsCompressorNode) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -23,28 +25,64 @@ getThreshold self = liftDOM ((self ^. js "threshold") >>= fromJSVal) +-- | +getThresholdUnchecked :: + (MonadDOM m) => DynamicsCompressorNode -> m AudioParam +getThresholdUnchecked self + = liftDOM ((self ^. js "threshold") >>= fromJSValUnchecked) + -- | getKnee :: (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam) getKnee self = liftDOM ((self ^. js "knee") >>= fromJSVal) +-- | +getKneeUnchecked :: + (MonadDOM m) => DynamicsCompressorNode -> m AudioParam +getKneeUnchecked self + = liftDOM ((self ^. js "knee") >>= fromJSValUnchecked) + -- | getRatio :: (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam) getRatio self = liftDOM ((self ^. js "ratio") >>= fromJSVal) +-- | +getRatioUnchecked :: + (MonadDOM m) => DynamicsCompressorNode -> m AudioParam +getRatioUnchecked self + = liftDOM ((self ^. js "ratio") >>= fromJSValUnchecked) + -- | getReduction :: (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam) getReduction self = liftDOM ((self ^. js "reduction") >>= fromJSVal) +-- | +getReductionUnchecked :: + (MonadDOM m) => DynamicsCompressorNode -> m AudioParam +getReductionUnchecked self + = liftDOM ((self ^. js "reduction") >>= fromJSValUnchecked) + -- | getAttack :: (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam) getAttack self = liftDOM ((self ^. js "attack") >>= fromJSVal) +-- | +getAttackUnchecked :: + (MonadDOM m) => DynamicsCompressorNode -> m AudioParam +getAttackUnchecked self + = liftDOM ((self ^. js "attack") >>= fromJSValUnchecked) + -- | getRelease :: (MonadDOM m) => DynamicsCompressorNode -> m (Maybe AudioParam) getRelease self = liftDOM ((self ^. js "release") >>= fromJSVal) + +-- | +getReleaseUnchecked :: + (MonadDOM m) => DynamicsCompressorNode -> m AudioParam +getReleaseUnchecked self + = liftDOM ((self ^. js "release") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/Element.hs b/src/JSDOM/Generated/Element.hs --- a/src/JSDOM/Generated/Element.hs +++ b/src/JSDOM/Generated/Element.hs @@ -1,28 +1,48 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Element - (getAttribute, setAttribute, removeAttribute, getAttributeNode, - setAttributeNode, removeAttributeNode, getElementsByTagName, - hasAttributes, getAttributeNS, setAttributeNS, removeAttributeNS, - getElementsByTagNameNS, getAttributeNodeNS, setAttributeNodeNS, - hasAttribute, hasAttributeNS, focus, blur, scrollIntoView, + (getAttribute, getAttribute_, getAttributeUnchecked, setAttribute, + removeAttribute, getAttributeNode, getAttributeNode_, + getAttributeNodeUnchecked, setAttributeNode, setAttributeNode_, + setAttributeNodeUnchecked, removeAttributeNode, + removeAttributeNode_, removeAttributeNodeUnchecked, + getElementsByTagName, getElementsByTagName_, + getElementsByTagNameUnchecked, hasAttributes, hasAttributes_, + getAttributeNS, getAttributeNS_, setAttributeNS, removeAttributeNS, + getElementsByTagNameNS, getElementsByTagNameNS_, + getElementsByTagNameNSUnchecked, getAttributeNodeNS, + getAttributeNodeNS_, getAttributeNodeNSUnchecked, + setAttributeNodeNS, setAttributeNodeNS_, + setAttributeNodeNSUnchecked, hasAttribute, hasAttribute_, + hasAttributeNS, hasAttributeNS_, focus, blur, scrollIntoView, scrollIntoViewIfNeeded, scrollByLines, scrollByPages, - getElementsByClassName, querySelector, querySelectorAll, matches, - closest, webkitMatchesSelector, getClientRects, - getBoundingClientRect, webkitRequestFullScreen, + getElementsByClassName, getElementsByClassName_, + getElementsByClassNameUnchecked, querySelector, querySelector_, + querySelectorUnchecked, querySelectorAll, querySelectorAll_, + querySelectorAllUnchecked, matches, matches_, closest, closest_, + closestUnchecked, webkitMatchesSelector, webkitMatchesSelector_, + getClientRects, getClientRects_, getClientRectsUnchecked, + getBoundingClientRect, getBoundingClientRect_, + getBoundingClientRectUnchecked, webkitRequestFullScreen, webkitRequestFullscreen, requestPointerLock, - webkitGetRegionFlowRanges, pattern ALLOW_KEYBOARD_INPUT, - getTagName, getAttributes, getStyle, setId, getId, getOffsetLeft, - getOffsetTop, getOffsetWidth, getOffsetHeight, getClientLeft, - getClientTop, getClientWidth, getClientHeight, setScrollLeft, - getScrollLeft, setScrollTop, getScrollTop, getScrollWidth, - getScrollHeight, getOffsetParent, setInnerHTML, getInnerHTML, - setOuterHTML, getOuterHTML, setClassName, getClassName, - getClassList, getDataset, getFirstElementChild, - getLastElementChild, getPreviousElementSibling, - getNextElementSibling, getChildElementCount, setUiactions, - getUiactions, getWebkitRegionOverset, abort, blurEvent, change, - click, contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave, + webkitGetRegionFlowRanges, webkitGetRegionFlowRanges_, + pattern ALLOW_KEYBOARD_INPUT, getTagName, getTagNameUnchecked, + getAttributes, getAttributesUnchecked, getStyle, getStyleUnchecked, + setId, getId, getOffsetLeft, getOffsetTop, getOffsetWidth, + getOffsetHeight, getClientLeft, getClientTop, getClientWidth, + getClientHeight, setScrollLeft, getScrollLeft, setScrollTop, + getScrollTop, getScrollWidth, getScrollHeight, getOffsetParent, + getOffsetParentUnchecked, setInnerHTML, getInnerHTML, + getInnerHTMLUnchecked, setOuterHTML, getOuterHTML, + getOuterHTMLUnchecked, setClassName, getClassName, getClassList, + getClassListUnchecked, getDataset, getDatasetUnchecked, + getFirstElementChild, getFirstElementChildUnchecked, + getLastElementChild, getLastElementChildUnchecked, + getPreviousElementSibling, getPreviousElementSiblingUnchecked, + getNextElementSibling, getNextElementSiblingUnchecked, + getChildElementCount, setUiactions, getUiactions, + getWebkitRegionOverset, abort, blurEvent, change, click, + contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave, dragOver, dragStart, drop, error, focusEvent, input, invalid, keyDown, keyPress, keyUp, load, mouseDown, mouseEnter, mouseLeave, mouseMove, mouseOut, mouseOver, mouseUp, mouseWheel, scroll, @@ -55,6 +75,24 @@ (((toElement self) ^. jsf "getAttribute" [toJSVal name]) >>= fromMaybeJSString) +-- | +getAttribute_ :: + (MonadDOM m, IsElement self, ToJSString name) => + self -> name -> m () +getAttribute_ self name + = liftDOM + (void ((toElement self) ^. jsf "getAttribute" [toJSVal name])) + +-- | +getAttributeUnchecked :: + (MonadDOM m, IsElement self, ToJSString name, + FromJSString result) => + self -> name -> m result +getAttributeUnchecked self name + = liftDOM + (((toElement self) ^. jsf "getAttribute" [toJSVal name]) >>= + fromJSValUnchecked) + -- | setAttribute :: (MonadDOM m, IsElement self, ToJSString name, ToJSString value) => @@ -82,6 +120,23 @@ (((toElement self) ^. jsf "getAttributeNode" [toJSVal name]) >>= fromJSVal) +-- | +getAttributeNode_ :: + (MonadDOM m, IsElement self, ToJSString name) => + self -> name -> m () +getAttributeNode_ self name + = liftDOM + (void ((toElement self) ^. jsf "getAttributeNode" [toJSVal name])) + +-- | +getAttributeNodeUnchecked :: + (MonadDOM m, IsElement self, ToJSString name) => + self -> name -> m Attr +getAttributeNodeUnchecked self name + = liftDOM + (((toElement self) ^. jsf "getAttributeNode" [toJSVal name]) >>= + fromJSValUnchecked) + -- | setAttributeNode :: (MonadDOM m, IsElement self) => @@ -91,6 +146,22 @@ (((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr]) >>= fromJSVal) +-- | +setAttributeNode_ :: + (MonadDOM m, IsElement self) => self -> Maybe Attr -> m () +setAttributeNode_ self newAttr + = liftDOM + (void + ((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr])) + +-- | +setAttributeNodeUnchecked :: + (MonadDOM m, IsElement self) => self -> Maybe Attr -> m Attr +setAttributeNodeUnchecked self newAttr + = liftDOM + (((toElement self) ^. jsf "setAttributeNode" [toJSVal newAttr]) >>= + fromJSValUnchecked) + -- | removeAttributeNode :: (MonadDOM m, IsElement self) => @@ -100,6 +171,22 @@ (((toElement self) ^. jsf "removeAttributeNode" [toJSVal oldAttr]) >>= fromJSVal) +-- | +removeAttributeNode_ :: + (MonadDOM m, IsElement self) => self -> Maybe Attr -> m () +removeAttributeNode_ self oldAttr + = liftDOM + (void + ((toElement self) ^. jsf "removeAttributeNode" [toJSVal oldAttr])) + +-- | +removeAttributeNodeUnchecked :: + (MonadDOM m, IsElement self) => self -> Maybe Attr -> m Attr +removeAttributeNodeUnchecked self oldAttr + = liftDOM + (((toElement self) ^. jsf "removeAttributeNode" [toJSVal oldAttr]) + >>= fromJSValUnchecked) + -- | getElementsByTagName :: (MonadDOM m, IsElement self, ToJSString name) => @@ -109,12 +196,35 @@ (((toElement self) ^. jsf "getElementsByTagName" [toJSVal name]) >>= fromJSVal) +-- | +getElementsByTagName_ :: + (MonadDOM m, IsElement self, ToJSString name) => + self -> name -> m () +getElementsByTagName_ self name + = liftDOM + (void + ((toElement self) ^. jsf "getElementsByTagName" [toJSVal name])) + +-- | +getElementsByTagNameUnchecked :: + (MonadDOM m, IsElement self, ToJSString name) => + self -> name -> m NodeList +getElementsByTagNameUnchecked self name + = liftDOM + (((toElement self) ^. jsf "getElementsByTagName" [toJSVal name]) + >>= fromJSValUnchecked) + -- | hasAttributes :: (MonadDOM m, IsElement self) => self -> m Bool hasAttributes self = liftDOM (((toElement self) ^. jsf "hasAttributes" ()) >>= valToBool) +-- | +hasAttributes_ :: (MonadDOM m, IsElement self) => self -> m () +hasAttributes_ self + = liftDOM (void ((toElement self) ^. jsf "hasAttributes" ())) + -- | getAttributeNS :: (MonadDOM m, IsElement self, ToJSString namespaceURI, @@ -126,6 +236,17 @@ [toJSVal namespaceURI, toJSVal localName]) >>= fromJSValUnchecked) +-- | +getAttributeNS_ :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m () +getAttributeNS_ self namespaceURI localName + = liftDOM + (void + ((toElement self) ^. jsf "getAttributeNS" + [toJSVal namespaceURI, toJSVal localName])) + -- | setAttributeNS :: (MonadDOM m, IsElement self, ToJSString namespaceURI, @@ -159,6 +280,28 @@ [toJSVal namespaceURI, toJSVal localName]) >>= fromJSVal) +-- | +getElementsByTagNameNS_ :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m () +getElementsByTagNameNS_ self namespaceURI localName + = liftDOM + (void + ((toElement self) ^. jsf "getElementsByTagNameNS" + [toJSVal namespaceURI, toJSVal localName])) + +-- | +getElementsByTagNameNSUnchecked :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m NodeList +getElementsByTagNameNSUnchecked self namespaceURI localName + = liftDOM + (((toElement self) ^. jsf "getElementsByTagNameNS" + [toJSVal namespaceURI, toJSVal localName]) + >>= fromJSValUnchecked) + -- | getAttributeNodeNS :: (MonadDOM m, IsElement self, ToJSString namespaceURI, @@ -170,6 +313,28 @@ [toJSVal namespaceURI, toJSVal localName]) >>= fromJSVal) +-- | +getAttributeNodeNS_ :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m () +getAttributeNodeNS_ self namespaceURI localName + = liftDOM + (void + ((toElement self) ^. jsf "getAttributeNodeNS" + [toJSVal namespaceURI, toJSVal localName])) + +-- | +getAttributeNodeNSUnchecked :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m Attr +getAttributeNodeNSUnchecked self namespaceURI localName + = liftDOM + (((toElement self) ^. jsf "getAttributeNodeNS" + [toJSVal namespaceURI, toJSVal localName]) + >>= fromJSValUnchecked) + -- | setAttributeNodeNS :: (MonadDOM m, IsElement self) => @@ -179,6 +344,22 @@ (((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal newAttr]) >>= fromJSVal) +-- | +setAttributeNodeNS_ :: + (MonadDOM m, IsElement self) => self -> Maybe Attr -> m () +setAttributeNodeNS_ self newAttr + = liftDOM + (void + ((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal newAttr])) + +-- | +setAttributeNodeNSUnchecked :: + (MonadDOM m, IsElement self) => self -> Maybe Attr -> m Attr +setAttributeNodeNSUnchecked self newAttr + = liftDOM + (((toElement self) ^. jsf "setAttributeNodeNS" [toJSVal newAttr]) + >>= fromJSValUnchecked) + -- | hasAttribute :: (MonadDOM m, IsElement self, ToJSString name) => @@ -188,6 +369,14 @@ (((toElement self) ^. jsf "hasAttribute" [toJSVal name]) >>= valToBool) +-- | +hasAttribute_ :: + (MonadDOM m, IsElement self, ToJSString name) => + self -> name -> m () +hasAttribute_ self name + = liftDOM + (void ((toElement self) ^. jsf "hasAttribute" [toJSVal name])) + -- | hasAttributeNS :: (MonadDOM m, IsElement self, ToJSString namespaceURI, @@ -199,6 +388,17 @@ [toJSVal namespaceURI, toJSVal localName]) >>= valToBool) +-- | +hasAttributeNS_ :: + (MonadDOM m, IsElement self, ToJSString namespaceURI, + ToJSString localName) => + self -> Maybe namespaceURI -> localName -> m () +hasAttributeNS_ self namespaceURI localName + = liftDOM + (void + ((toElement self) ^. jsf "hasAttributeNS" + [toJSVal namespaceURI, toJSVal localName])) + -- | focus :: (MonadDOM m, IsElement self) => self -> m () focus self = liftDOM (void ((toElement self) ^. jsf "focus" ())) @@ -247,6 +447,24 @@ (((toElement self) ^. jsf "getElementsByClassName" [toJSVal name]) >>= fromJSVal) +-- | +getElementsByClassName_ :: + (MonadDOM m, IsElement self, ToJSString name) => + self -> name -> m () +getElementsByClassName_ self name + = liftDOM + (void + ((toElement self) ^. jsf "getElementsByClassName" [toJSVal name])) + +-- | +getElementsByClassNameUnchecked :: + (MonadDOM m, IsElement self, ToJSString name) => + self -> name -> m NodeList +getElementsByClassNameUnchecked self name + = liftDOM + (((toElement self) ^. jsf "getElementsByClassName" [toJSVal name]) + >>= fromJSValUnchecked) + -- | querySelector :: (MonadDOM m, IsElement self, ToJSString selectors) => @@ -256,6 +474,24 @@ (((toElement self) ^. jsf "querySelector" [toJSVal selectors]) >>= fromJSVal) +-- | +querySelector_ :: + (MonadDOM m, IsElement self, ToJSString selectors) => + self -> selectors -> m () +querySelector_ self selectors + = liftDOM + (void + ((toElement self) ^. jsf "querySelector" [toJSVal selectors])) + +-- | +querySelectorUnchecked :: + (MonadDOM m, IsElement self, ToJSString selectors) => + self -> selectors -> m Element +querySelectorUnchecked self selectors + = liftDOM + (((toElement self) ^. jsf "querySelector" [toJSVal selectors]) >>= + fromJSValUnchecked) + -- | querySelectorAll :: (MonadDOM m, IsElement self, ToJSString selectors) => @@ -265,6 +501,24 @@ (((toElement self) ^. jsf "querySelectorAll" [toJSVal selectors]) >>= fromJSVal) +-- | +querySelectorAll_ :: + (MonadDOM m, IsElement self, ToJSString selectors) => + self -> selectors -> m () +querySelectorAll_ self selectors + = liftDOM + (void + ((toElement self) ^. jsf "querySelectorAll" [toJSVal selectors])) + +-- | +querySelectorAllUnchecked :: + (MonadDOM m, IsElement self, ToJSString selectors) => + self -> selectors -> m NodeList +querySelectorAllUnchecked self selectors + = liftDOM + (((toElement self) ^. jsf "querySelectorAll" [toJSVal selectors]) + >>= fromJSValUnchecked) + -- | matches :: (MonadDOM m, IsElement self, ToJSString selectors) => @@ -274,6 +528,14 @@ (((toElement self) ^. jsf "matches" [toJSVal selectors]) >>= valToBool) +-- | +matches_ :: + (MonadDOM m, IsElement self, ToJSString selectors) => + self -> selectors -> m () +matches_ self selectors + = liftDOM + (void ((toElement self) ^. jsf "matches" [toJSVal selectors])) + -- | closest :: (MonadDOM m, IsElement self, ToJSString selectors) => @@ -283,6 +545,23 @@ (((toElement self) ^. jsf "closest" [toJSVal selectors]) >>= fromJSVal) +-- | +closest_ :: + (MonadDOM m, IsElement self, ToJSString selectors) => + self -> selectors -> m () +closest_ self selectors + = liftDOM + (void ((toElement self) ^. jsf "closest" [toJSVal selectors])) + +-- | +closestUnchecked :: + (MonadDOM m, IsElement self, ToJSString selectors) => + self -> selectors -> m Element +closestUnchecked self selectors + = liftDOM + (((toElement self) ^. jsf "closest" [toJSVal selectors]) >>= + fromJSValUnchecked) + -- | webkitMatchesSelector :: (MonadDOM m, IsElement self, ToJSString selectors) => @@ -293,6 +572,16 @@ [toJSVal selectors]) >>= valToBool) +-- | +webkitMatchesSelector_ :: + (MonadDOM m, IsElement self, ToJSString selectors) => + self -> selectors -> m () +webkitMatchesSelector_ self selectors + = liftDOM + (void + ((toElement self) ^. jsf "webkitMatchesSelector" + [toJSVal selectors])) + -- | getClientRects :: (MonadDOM m, IsElement self) => self -> m (Maybe ClientRectList) @@ -300,6 +589,19 @@ = liftDOM (((toElement self) ^. jsf "getClientRects" ()) >>= fromJSVal) +-- | +getClientRects_ :: (MonadDOM m, IsElement self) => self -> m () +getClientRects_ self + = liftDOM (void ((toElement self) ^. jsf "getClientRects" ())) + +-- | +getClientRectsUnchecked :: + (MonadDOM m, IsElement self) => self -> m ClientRectList +getClientRectsUnchecked self + = liftDOM + (((toElement self) ^. jsf "getClientRects" ()) >>= + fromJSValUnchecked) + -- | getBoundingClientRect :: (MonadDOM m, IsElement self) => self -> m (Maybe ClientRect) @@ -308,6 +610,21 @@ (((toElement self) ^. jsf "getBoundingClientRect" ()) >>= fromJSVal) +-- | +getBoundingClientRect_ :: + (MonadDOM m, IsElement self) => self -> m () +getBoundingClientRect_ self + = liftDOM + (void ((toElement self) ^. jsf "getBoundingClientRect" ())) + +-- | +getBoundingClientRectUnchecked :: + (MonadDOM m, IsElement self) => self -> m ClientRect +getBoundingClientRectUnchecked self + = liftDOM + (((toElement self) ^. jsf "getBoundingClientRect" ()) >>= + fromJSValUnchecked) + -- | webkitRequestFullScreen :: (MonadDOM m, IsElement self) => self -> Word -> m () @@ -336,6 +653,13 @@ = liftDOM (((toElement self) ^. jsf "webkitGetRegionFlowRanges" ()) >>= fromJSArray) + +-- | +webkitGetRegionFlowRanges_ :: + (MonadDOM m, IsElement self) => self -> m () +webkitGetRegionFlowRanges_ self + = liftDOM + (void ((toElement self) ^. jsf "webkitGetRegionFlowRanges" ())) pattern ALLOW_KEYBOARD_INPUT = 1 -- | @@ -346,12 +670,27 @@ = liftDOM (((toElement self) ^. js "tagName") >>= fromMaybeJSString) +-- | +getTagNameUnchecked :: + (MonadDOM m, IsElement self, FromJSString result) => + self -> m result +getTagNameUnchecked self + = liftDOM + (((toElement self) ^. js "tagName") >>= fromJSValUnchecked) + -- | getAttributes :: (MonadDOM m, IsElement self) => self -> m (Maybe NamedNodeMap) getAttributes self = liftDOM (((toElement self) ^. js "attributes") >>= fromJSVal) +-- | +getAttributesUnchecked :: + (MonadDOM m, IsElement self) => self -> m NamedNodeMap +getAttributesUnchecked self + = liftDOM + (((toElement self) ^. js "attributes") >>= fromJSValUnchecked) + -- | getStyle :: (MonadDOM m, IsElement self) => @@ -359,6 +698,12 @@ getStyle self = liftDOM (((toElement self) ^. js "style") >>= fromJSVal) +-- | +getStyleUnchecked :: + (MonadDOM m, IsElement self) => self -> m CSSStyleDeclaration +getStyleUnchecked self + = liftDOM (((toElement self) ^. js "style") >>= fromJSValUnchecked) + -- | setId :: (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m () @@ -455,6 +800,13 @@ getOffsetParent self = liftDOM (((toElement self) ^. js "offsetParent") >>= fromJSVal) +-- | +getOffsetParentUnchecked :: + (MonadDOM m, IsElement self) => self -> m Element +getOffsetParentUnchecked self + = liftDOM + (((toElement self) ^. js "offsetParent") >>= fromJSValUnchecked) + -- | setInnerHTML :: (MonadDOM m, IsElement self, ToJSString val) => @@ -470,6 +822,14 @@ = liftDOM (((toElement self) ^. js "innerHTML") >>= fromMaybeJSString) +-- | +getInnerHTMLUnchecked :: + (MonadDOM m, IsElement self, FromJSString result) => + self -> m result +getInnerHTMLUnchecked self + = liftDOM + (((toElement self) ^. js "innerHTML") >>= fromJSValUnchecked) + -- | setOuterHTML :: (MonadDOM m, IsElement self, ToJSString val) => @@ -485,6 +845,14 @@ = liftDOM (((toElement self) ^. js "outerHTML") >>= fromMaybeJSString) +-- | +getOuterHTMLUnchecked :: + (MonadDOM m, IsElement self, FromJSString result) => + self -> m result +getOuterHTMLUnchecked self + = liftDOM + (((toElement self) ^. js "outerHTML") >>= fromJSValUnchecked) + -- | setClassName :: (MonadDOM m, IsElement self, ToJSString val) => self -> val -> m () @@ -505,12 +873,26 @@ getClassList self = liftDOM (((toElement self) ^. js "classList") >>= fromJSVal) +-- | +getClassListUnchecked :: + (MonadDOM m, IsElement self) => self -> m DOMTokenList +getClassListUnchecked self + = liftDOM + (((toElement self) ^. js "classList") >>= fromJSValUnchecked) + -- | getDataset :: (MonadDOM m, IsElement self) => self -> m (Maybe DOMStringMap) getDataset self = liftDOM (((toElement self) ^. js "dataset") >>= fromJSVal) +-- | +getDatasetUnchecked :: + (MonadDOM m, IsElement self) => self -> m DOMStringMap +getDatasetUnchecked self + = liftDOM + (((toElement self) ^. js "dataset") >>= fromJSValUnchecked) + -- | getFirstElementChild :: (MonadDOM m, IsElement self) => self -> m (Maybe Element) @@ -518,6 +900,14 @@ = liftDOM (((toElement self) ^. js "firstElementChild") >>= fromJSVal) +-- | +getFirstElementChildUnchecked :: + (MonadDOM m, IsElement self) => self -> m Element +getFirstElementChildUnchecked self + = liftDOM + (((toElement self) ^. js "firstElementChild") >>= + fromJSValUnchecked) + -- | getLastElementChild :: (MonadDOM m, IsElement self) => self -> m (Maybe Element) @@ -525,6 +915,14 @@ = liftDOM (((toElement self) ^. js "lastElementChild") >>= fromJSVal) +-- | +getLastElementChildUnchecked :: + (MonadDOM m, IsElement self) => self -> m Element +getLastElementChildUnchecked self + = liftDOM + (((toElement self) ^. js "lastElementChild") >>= + fromJSValUnchecked) + -- | getPreviousElementSibling :: (MonadDOM m, IsElement self) => self -> m (Maybe Element) @@ -532,12 +930,28 @@ = liftDOM (((toElement self) ^. js "previousElementSibling") >>= fromJSVal) +-- | +getPreviousElementSiblingUnchecked :: + (MonadDOM m, IsElement self) => self -> m Element +getPreviousElementSiblingUnchecked self + = liftDOM + (((toElement self) ^. js "previousElementSibling") >>= + fromJSValUnchecked) + -- | getNextElementSibling :: (MonadDOM m, IsElement self) => self -> m (Maybe Element) getNextElementSibling self = liftDOM (((toElement self) ^. js "nextElementSibling") >>= fromJSVal) + +-- | +getNextElementSiblingUnchecked :: + (MonadDOM m, IsElement self) => self -> m Element +getNextElementSiblingUnchecked self + = liftDOM + (((toElement self) ^. js "nextElementSibling") >>= + fromJSValUnchecked) -- | getChildElementCount :: diff --git a/src/JSDOM/Generated/Entity.hs b/src/JSDOM/Generated/Entity.hs --- a/src/JSDOM/Generated/Entity.hs +++ b/src/JSDOM/Generated/Entity.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Entity - (getPublicId, getSystemId, getNotationName, Entity, castToEntity, - gTypeEntity) + (getPublicId, getPublicIdUnchecked, getSystemId, + getSystemIdUnchecked, getNotationName, getNotationNameUnchecked, + Entity, castToEntity, gTypeEntity) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -22,14 +23,32 @@ getPublicId self = liftDOM ((self ^. js "publicId") >>= fromMaybeJSString) +-- | +getPublicIdUnchecked :: + (MonadDOM m, FromJSString result) => Entity -> m result +getPublicIdUnchecked self + = liftDOM ((self ^. js "publicId") >>= fromJSValUnchecked) + -- | getSystemId :: (MonadDOM m, FromJSString result) => Entity -> m (Maybe result) getSystemId self = liftDOM ((self ^. js "systemId") >>= fromMaybeJSString) +-- | +getSystemIdUnchecked :: + (MonadDOM m, FromJSString result) => Entity -> m result +getSystemIdUnchecked self + = liftDOM ((self ^. js "systemId") >>= fromJSValUnchecked) + -- | getNotationName :: (MonadDOM m, FromJSString result) => Entity -> m (Maybe result) getNotationName self = liftDOM ((self ^. js "notationName") >>= fromMaybeJSString) + +-- | +getNotationNameUnchecked :: + (MonadDOM m, FromJSString result) => Entity -> m result +getNotationNameUnchecked self + = liftDOM ((self ^. js "notationName") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/Event.hs b/src/JSDOM/Generated/Event.hs --- a/src/JSDOM/Generated/Event.hs +++ b/src/JSDOM/Generated/Event.hs @@ -8,11 +8,13 @@ pattern MOUSEMOVE, pattern MOUSEDRAG, pattern CLICK, pattern DBLCLICK, pattern KEYDOWN, pattern KEYUP, pattern KEYPRESS, pattern DRAGDROP, pattern FOCUS, pattern BLUR, pattern SELECT, - pattern CHANGE, getType, getTarget, getCurrentTarget, - getEventPhase, getBubbles, getCancelable, getTimeStamp, - getDefaultPrevented, getSrcElement, setReturnValue, getReturnValue, - setCancelBubble, getCancelBubble, getClipboardData, Event, - castToEvent, gTypeEvent, IsEvent, toEvent) + pattern CHANGE, getType, getTarget, getTargetUnchecked, + getCurrentTarget, getCurrentTargetUnchecked, getEventPhase, + getBubbles, getCancelable, getTimeStamp, getDefaultPrevented, + getSrcElement, getSrcElementUnchecked, setReturnValue, + getReturnValue, setCancelBubble, getCancelBubble, getClipboardData, + getClipboardDataUnchecked, Event, castToEvent, gTypeEvent, IsEvent, + toEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -85,12 +87,25 @@ getTarget self = liftDOM (((toEvent self) ^. js "target") >>= fromJSVal) +-- | +getTargetUnchecked :: + (MonadDOM m, IsEvent self) => self -> m EventTarget +getTargetUnchecked self + = liftDOM (((toEvent self) ^. js "target") >>= fromJSValUnchecked) + -- | getCurrentTarget :: (MonadDOM m, IsEvent self) => self -> m (Maybe EventTarget) getCurrentTarget self = liftDOM (((toEvent self) ^. js "currentTarget") >>= fromJSVal) +-- | +getCurrentTargetUnchecked :: + (MonadDOM m, IsEvent self) => self -> m EventTarget +getCurrentTargetUnchecked self + = liftDOM + (((toEvent self) ^. js "currentTarget") >>= fromJSValUnchecked) + -- | getEventPhase :: (MonadDOM m, IsEvent self) => self -> m Word getEventPhase self @@ -124,6 +139,13 @@ getSrcElement self = liftDOM (((toEvent self) ^. js "srcElement") >>= fromJSVal) +-- | +getSrcElementUnchecked :: + (MonadDOM m, IsEvent self) => self -> m EventTarget +getSrcElementUnchecked self + = liftDOM + (((toEvent self) ^. js "srcElement") >>= fromJSValUnchecked) + -- | setReturnValue :: (MonadDOM m, IsEvent self) => self -> Bool -> m () @@ -151,3 +173,10 @@ (MonadDOM m, IsEvent self) => self -> m (Maybe DataTransfer) getClipboardData self = liftDOM (((toEvent self) ^. js "clipboardData") >>= fromJSVal) + +-- | +getClipboardDataUnchecked :: + (MonadDOM m, IsEvent self) => self -> m DataTransfer +getClipboardDataUnchecked self + = liftDOM + (((toEvent self) ^. js "clipboardData") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/EventTarget.hs b/src/JSDOM/Generated/EventTarget.hs --- a/src/JSDOM/Generated/EventTarget.hs +++ b/src/JSDOM/Generated/EventTarget.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.EventTarget - (addEventListener, removeEventListener, dispatchEvent, EventTarget, - castToEventTarget, gTypeEventTarget, IsEventTarget, toEventTarget) + (addEventListener, removeEventListener, dispatchEvent, + dispatchEvent_, EventTarget, castToEventTarget, gTypeEventTarget, + IsEventTarget, toEventTarget) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -43,3 +44,12 @@ = liftDOM (((toEventTarget self) ^. jsf "dispatchEvent" [toJSVal event]) >>= valToBool) + +-- | +dispatchEvent_ :: + (MonadDOM m, IsEventTarget self, IsEvent event) => + self -> Maybe event -> m () +dispatchEvent_ self event + = liftDOM + (void + ((toEventTarget self) ^. jsf "dispatchEvent" [toJSVal event])) diff --git a/src/JSDOM/Generated/File.hs b/src/JSDOM/Generated/File.hs --- a/src/JSDOM/Generated/File.hs +++ b/src/JSDOM/Generated/File.hs @@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.File - (getName, getLastModifiedDate, File, castToFile, gTypeFile) where + (getName, getLastModifiedDate, getLastModifiedDateUnchecked, File, + castToFile, gTypeFile) + where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) @@ -22,3 +24,8 @@ getLastModifiedDate :: (MonadDOM m) => File -> m (Maybe Date) getLastModifiedDate self = liftDOM ((self ^. js "lastModifiedDate") >>= fromJSVal) + +-- | +getLastModifiedDateUnchecked :: (MonadDOM m) => File -> m Date +getLastModifiedDateUnchecked self + = liftDOM ((self ^. js "lastModifiedDate") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/FileList.hs b/src/JSDOM/Generated/FileList.hs --- a/src/JSDOM/Generated/FileList.hs +++ b/src/JSDOM/Generated/FileList.hs @@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.FileList - (item, getLength, FileList, castToFileList, gTypeFileList) where + (item, item_, itemUnchecked, getLength, FileList, castToFileList, + gTypeFileList) + where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) @@ -18,6 +20,17 @@ item :: (MonadDOM m) => FileList -> Word -> m (Maybe File) item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) + +-- | +item_ :: (MonadDOM m) => FileList -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: (MonadDOM m) => FileList -> Word -> m File +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => FileList -> m Word diff --git a/src/JSDOM/Generated/FileReader.hs b/src/JSDOM/Generated/FileReader.hs --- a/src/JSDOM/Generated/FileReader.hs +++ b/src/JSDOM/Generated/FileReader.hs @@ -3,9 +3,9 @@ module JSDOM.Generated.FileReader (newFileReader, readAsArrayBuffer, readAsBinaryString, readAsText, readAsDataURL, abort, pattern EMPTY, pattern LOADING, pattern DONE, - getReadyState, getResult, getError, loadStart, progress, load, - abortEvent, error, loadEnd, FileReader, castToFileReader, - gTypeFileReader) + getReadyState, getResult, getError, getErrorUnchecked, loadStart, + progress, load, abortEvent, error, loadEnd, FileReader, + castToFileReader, gTypeFileReader) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -68,6 +68,11 @@ -- | getError :: (MonadDOM m) => FileReader -> m (Maybe FileError) getError self = liftDOM ((self ^. js "error") >>= fromJSVal) + +-- | +getErrorUnchecked :: (MonadDOM m) => FileReader -> m FileError +getErrorUnchecked self + = liftDOM ((self ^. js "error") >>= fromJSValUnchecked) -- | loadStart :: EventName FileReader ProgressEvent diff --git a/src/JSDOM/Generated/FileReaderSync.hs b/src/JSDOM/Generated/FileReaderSync.hs --- a/src/JSDOM/Generated/FileReaderSync.hs +++ b/src/JSDOM/Generated/FileReaderSync.hs @@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.FileReaderSync - (newFileReaderSync, readAsArrayBuffer, readAsBinaryString, - readAsText, readAsDataURL, FileReaderSync, castToFileReaderSync, + (newFileReaderSync, readAsArrayBuffer, readAsArrayBuffer_, + readAsArrayBufferUnchecked, readAsBinaryString, + readAsBinaryString_, readAsText, readAsText_, readAsDataURL, + readAsDataURL_, FileReaderSync, castToFileReaderSync, gTypeFileReaderSync) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -30,6 +32,21 @@ = liftDOM ((self ^. jsf "readAsArrayBuffer" [toJSVal blob]) >>= fromJSVal) +-- | +readAsArrayBuffer_ :: + (MonadDOM m, IsBlob blob) => FileReaderSync -> Maybe blob -> m () +readAsArrayBuffer_ self blob + = liftDOM (void (self ^. jsf "readAsArrayBuffer" [toJSVal blob])) + +-- | +readAsArrayBufferUnchecked :: + (MonadDOM m, IsBlob blob) => + FileReaderSync -> Maybe blob -> m ArrayBuffer +readAsArrayBufferUnchecked self blob + = liftDOM + ((self ^. jsf "readAsArrayBuffer" [toJSVal blob]) >>= + fromJSValUnchecked) + -- | readAsBinaryString :: (MonadDOM m, IsBlob blob, FromJSString result) => @@ -39,6 +56,12 @@ ((self ^. jsf "readAsBinaryString" [toJSVal blob]) >>= fromJSValUnchecked) +-- | +readAsBinaryString_ :: + (MonadDOM m, IsBlob blob) => FileReaderSync -> Maybe blob -> m () +readAsBinaryString_ self blob + = liftDOM (void (self ^. jsf "readAsBinaryString" [toJSVal blob])) + -- | readAsText :: (MonadDOM m, IsBlob blob, ToJSString encoding, @@ -49,6 +72,14 @@ ((self ^. jsf "readAsText" [toJSVal blob, toJSVal encoding]) >>= fromJSValUnchecked) +-- | +readAsText_ :: + (MonadDOM m, IsBlob blob, ToJSString encoding) => + FileReaderSync -> Maybe blob -> encoding -> m () +readAsText_ self blob encoding + = liftDOM + (void (self ^. jsf "readAsText" [toJSVal blob, toJSVal encoding])) + -- | readAsDataURL :: (MonadDOM m, IsBlob blob, FromJSString result) => @@ -57,3 +88,9 @@ = liftDOM ((self ^. jsf "readAsDataURL" [toJSVal blob]) >>= fromJSValUnchecked) + +-- | +readAsDataURL_ :: + (MonadDOM m, IsBlob blob) => FileReaderSync -> Maybe blob -> m () +readAsDataURL_ self blob + = liftDOM (void (self ^. jsf "readAsDataURL" [toJSVal blob])) diff --git a/src/JSDOM/Generated/FocusEvent.hs b/src/JSDOM/Generated/FocusEvent.hs --- a/src/JSDOM/Generated/FocusEvent.hs +++ b/src/JSDOM/Generated/FocusEvent.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.FocusEvent - (getRelatedTarget, FocusEvent, castToFocusEvent, gTypeFocusEvent) + (getRelatedTarget, getRelatedTargetUnchecked, FocusEvent, + castToFocusEvent, gTypeFocusEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,3 +21,9 @@ (MonadDOM m) => FocusEvent -> m (Maybe EventTarget) getRelatedTarget self = liftDOM ((self ^. js "relatedTarget") >>= fromJSVal) + +-- | +getRelatedTargetUnchecked :: + (MonadDOM m) => FocusEvent -> m EventTarget +getRelatedTargetUnchecked self + = liftDOM ((self ^. js "relatedTarget") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/FontLoader.hs b/src/JSDOM/Generated/FontLoader.hs --- a/src/JSDOM/Generated/FontLoader.hs +++ b/src/JSDOM/Generated/FontLoader.hs @@ -1,9 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.FontLoader - (checkFont, loadFont, notifyWhenFontsReady, loading, loadingDone, - loadStart, load, error, getLoading, FontLoader, castToFontLoader, - gTypeFontLoader) + (checkFont, checkFont_, loadFont, notifyWhenFontsReady, loading, + loadingDone, loadStart, load, error, getLoading, FontLoader, + castToFontLoader, gTypeFontLoader) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -25,6 +25,14 @@ = liftDOM ((self ^. jsf "checkFont" [toJSVal font, toJSVal text]) >>= valToBool) + +-- | +checkFont_ :: + (MonadDOM m, ToJSString font, ToJSString text) => + FontLoader -> font -> text -> m () +checkFont_ self font text + = liftDOM + (void (self ^. jsf "checkFont" [toJSVal font, toJSVal text])) -- | loadFont :: diff --git a/src/JSDOM/Generated/GainNode.hs b/src/JSDOM/Generated/GainNode.hs --- a/src/JSDOM/Generated/GainNode.hs +++ b/src/JSDOM/Generated/GainNode.hs @@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.GainNode - (getGain, GainNode, castToGainNode, gTypeGainNode) where + (getGain, getGainUnchecked, GainNode, castToGainNode, + gTypeGainNode) + where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) @@ -17,3 +19,8 @@ -- | getGain :: (MonadDOM m) => GainNode -> m (Maybe AudioParam) getGain self = liftDOM ((self ^. js "gain") >>= fromJSVal) + +-- | +getGainUnchecked :: (MonadDOM m) => GainNode -> m AudioParam +getGainUnchecked self + = liftDOM ((self ^. js "gain") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/GamepadEvent.hs b/src/JSDOM/Generated/GamepadEvent.hs --- a/src/JSDOM/Generated/GamepadEvent.hs +++ b/src/JSDOM/Generated/GamepadEvent.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.GamepadEvent - (getGamepad, GamepadEvent, castToGamepadEvent, gTypeGamepadEvent) + (getGamepad, getGamepadUnchecked, GamepadEvent, castToGamepadEvent, + gTypeGamepadEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -18,3 +19,8 @@ -- | getGamepad :: (MonadDOM m) => GamepadEvent -> m (Maybe Gamepad) getGamepad self = liftDOM ((self ^. js "gamepad") >>= fromJSVal) + +-- | +getGamepadUnchecked :: (MonadDOM m) => GamepadEvent -> m Gamepad +getGamepadUnchecked self + = liftDOM ((self ^. js "gamepad") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/Geolocation.hs b/src/JSDOM/Generated/Geolocation.hs --- a/src/JSDOM/Generated/Geolocation.hs +++ b/src/JSDOM/Generated/Geolocation.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Geolocation - (getCurrentPosition, watchPosition, clearWatch, Geolocation, - castToGeolocation, gTypeGeolocation) + (getCurrentPosition, watchPosition, watchPosition_, clearWatch, + Geolocation, castToGeolocation, gTypeGeolocation) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -40,6 +40,18 @@ ((self ^. jsf "watchPosition" [toJSVal successCallback, toJSVal errorCallback, toJSVal options]) >>= valToNumber)) + +-- | +watchPosition_ :: + (MonadDOM m, IsPositionOptions options) => + Geolocation -> + Maybe PositionCallback -> + Maybe PositionErrorCallback -> Maybe options -> m () +watchPosition_ self successCallback errorCallback options + = liftDOM + (void + (self ^. jsf "watchPosition" + [toJSVal successCallback, toJSVal errorCallback, toJSVal options])) -- | clearWatch :: (MonadDOM m) => Geolocation -> Int -> m () diff --git a/src/JSDOM/Generated/Geoposition.hs b/src/JSDOM/Generated/Geoposition.hs --- a/src/JSDOM/Generated/Geoposition.hs +++ b/src/JSDOM/Generated/Geoposition.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Geoposition - (getCoords, getTimestamp, Geoposition, castToGeoposition, - gTypeGeoposition) + (getCoords, getCoordsUnchecked, getTimestamp, Geoposition, + castToGeoposition, gTypeGeoposition) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -19,6 +19,11 @@ -- | getCoords :: (MonadDOM m) => Geoposition -> m (Maybe Coordinates) getCoords self = liftDOM ((self ^. js "coords") >>= fromJSVal) + +-- | +getCoordsUnchecked :: (MonadDOM m) => Geoposition -> m Coordinates +getCoordsUnchecked self + = liftDOM ((self ^. js "coords") >>= fromJSValUnchecked) -- | getTimestamp :: (MonadDOM m) => Geoposition -> m Word diff --git a/src/JSDOM/Generated/HTMLAllCollection.hs b/src/JSDOM/Generated/HTMLAllCollection.hs --- a/src/JSDOM/Generated/HTMLAllCollection.hs +++ b/src/JSDOM/Generated/HTMLAllCollection.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLAllCollection - (item, namedItem, tags, getLength, HTMLAllCollection, - castToHTMLAllCollection, gTypeHTMLAllCollection) + (item, item_, itemUnchecked, namedItem, namedItem_, + namedItemUnchecked, tags, tags_, tagsUnchecked, getLength, + HTMLAllCollection, castToHTMLAllCollection, gTypeHTMLAllCollection) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,6 +22,18 @@ item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) +-- | +item_ :: (MonadDOM m) => HTMLAllCollection -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m) => HTMLAllCollection -> Word -> m Node +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) + -- | namedItem :: (MonadDOM m, ToJSString name) => @@ -28,12 +41,40 @@ namedItem self name = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal) +-- | +namedItem_ :: + (MonadDOM m, ToJSString name) => HTMLAllCollection -> name -> m () +namedItem_ self name + = liftDOM (void (self ^. jsf "namedItem" [toJSVal name])) + +-- | +namedItemUnchecked :: + (MonadDOM m, ToJSString name) => + HTMLAllCollection -> name -> m Node +namedItemUnchecked self name + = liftDOM + ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSValUnchecked) + -- | tags :: (MonadDOM m, ToJSString name) => HTMLAllCollection -> name -> m (Maybe NodeList) tags self name = liftDOM ((self ^. jsf "tags" [toJSVal name]) >>= fromJSVal) + +-- | +tags_ :: + (MonadDOM m, ToJSString name) => HTMLAllCollection -> name -> m () +tags_ self name + = liftDOM (void (self ^. jsf "tags" [toJSVal name])) + +-- | +tagsUnchecked :: + (MonadDOM m, ToJSString name) => + HTMLAllCollection -> name -> m NodeList +tagsUnchecked self name + = liftDOM + ((self ^. jsf "tags" [toJSVal name]) >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => HTMLAllCollection -> m Word diff --git a/src/JSDOM/Generated/HTMLAnchorElement.hs b/src/JSDOM/Generated/HTMLAnchorElement.hs --- a/src/JSDOM/Generated/HTMLAnchorElement.hs +++ b/src/JSDOM/Generated/HTMLAnchorElement.hs @@ -1,14 +1,17 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLAnchorElement - (toString, setCharset, getCharset, setCoords, getCoords, + (toString, toString_, setCharset, getCharset, setCoords, getCoords, setDownload, getDownload, setHref, getHref, setHreflang, getHreflang, setName, getName, setPing, getPing, setRel, getRel, setRev, getRev, setShape, getShape, setTarget, getTarget, setType, - getType, setHash, getHash, setHost, getHost, setHostname, - getHostname, setPathname, getPathname, setPort, getPort, - setProtocol, getProtocol, setSearch, getSearch, getOrigin, setText, - getText, getRelList, HTMLAnchorElement, castToHTMLAnchorElement, + getType, setHash, getHash, getHashUnchecked, setHost, getHost, + getHostUnchecked, setHostname, getHostname, getHostnameUnchecked, + setPathname, getPathname, getPathnameUnchecked, setPort, getPort, + getPortUnchecked, setProtocol, getProtocol, getProtocolUnchecked, + setSearch, getSearch, getSearchUnchecked, getOrigin, + getOriginUnchecked, setText, getText, getRelList, + getRelListUnchecked, HTMLAnchorElement, castToHTMLAnchorElement, gTypeHTMLAnchorElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -29,6 +32,10 @@ toString self = liftDOM ((self ^. jsf "toString" ()) >>= fromJSValUnchecked) +-- | +toString_ :: (MonadDOM m) => HTMLAnchorElement -> m () +toString_ self = liftDOM (void (self ^. jsf "toString" ())) + -- | setCharset :: (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m () @@ -169,6 +176,12 @@ HTMLAnchorElement -> m (Maybe result) getHash self = liftDOM ((self ^. js "hash") >>= fromMaybeJSString) +-- | +getHashUnchecked :: + (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result +getHashUnchecked self + = liftDOM ((self ^. js "hash") >>= fromJSValUnchecked) + -- | setHost :: (MonadDOM m, ToJSString val) => @@ -181,6 +194,12 @@ HTMLAnchorElement -> m (Maybe result) getHost self = liftDOM ((self ^. js "host") >>= fromMaybeJSString) +-- | +getHostUnchecked :: + (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result +getHostUnchecked self + = liftDOM ((self ^. js "host") >>= fromJSValUnchecked) + -- | setHostname :: (MonadDOM m, ToJSString val) => @@ -195,6 +214,12 @@ getHostname self = liftDOM ((self ^. js "hostname") >>= fromMaybeJSString) +-- | +getHostnameUnchecked :: + (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result +getHostnameUnchecked self + = liftDOM ((self ^. js "hostname") >>= fromJSValUnchecked) + -- | setPathname :: (MonadDOM m, ToJSString val) => @@ -209,6 +234,12 @@ getPathname self = liftDOM ((self ^. js "pathname") >>= fromMaybeJSString) +-- | +getPathnameUnchecked :: + (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result +getPathnameUnchecked self + = liftDOM ((self ^. js "pathname") >>= fromJSValUnchecked) + -- | setPort :: (MonadDOM m, ToJSString val) => @@ -221,6 +252,12 @@ HTMLAnchorElement -> m (Maybe result) getPort self = liftDOM ((self ^. js "port") >>= fromMaybeJSString) +-- | +getPortUnchecked :: + (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result +getPortUnchecked self + = liftDOM ((self ^. js "port") >>= fromJSValUnchecked) + -- | setProtocol :: (MonadDOM m, ToJSString val) => @@ -235,6 +272,12 @@ getProtocol self = liftDOM ((self ^. js "protocol") >>= fromMaybeJSString) +-- | +getProtocolUnchecked :: + (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result +getProtocolUnchecked self + = liftDOM ((self ^. js "protocol") >>= fromJSValUnchecked) + -- | setSearch :: (MonadDOM m, ToJSString val) => @@ -248,6 +291,12 @@ getSearch self = liftDOM ((self ^. js "search") >>= fromMaybeJSString) +-- | +getSearchUnchecked :: + (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result +getSearchUnchecked self + = liftDOM ((self ^. js "search") >>= fromJSValUnchecked) + -- | getOrigin :: (MonadDOM m, FromJSString result) => @@ -255,6 +304,12 @@ getOrigin self = liftDOM ((self ^. js "origin") >>= fromMaybeJSString) +-- | +getOriginUnchecked :: + (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result +getOriginUnchecked self + = liftDOM ((self ^. js "origin") >>= fromJSValUnchecked) + -- | setText :: (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m () @@ -269,3 +324,9 @@ getRelList :: (MonadDOM m) => HTMLAnchorElement -> m (Maybe DOMTokenList) getRelList self = liftDOM ((self ^. js "relList") >>= fromJSVal) + +-- | +getRelListUnchecked :: + (MonadDOM m) => HTMLAnchorElement -> m DOMTokenList +getRelListUnchecked self + = liftDOM ((self ^. js "relList") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLAreaElement.hs b/src/JSDOM/Generated/HTMLAreaElement.hs --- a/src/JSDOM/Generated/HTMLAreaElement.hs +++ b/src/JSDOM/Generated/HTMLAreaElement.hs @@ -4,8 +4,8 @@ (setAlt, getAlt, setCoords, getCoords, setHref, getHref, setNoHref, getNoHref, setPing, getPing, setRel, getRel, setShape, getShape, setTarget, getTarget, getHash, getHost, getHostname, getPathname, - getPort, getProtocol, getSearch, getRelList, HTMLAreaElement, - castToHTMLAreaElement, gTypeHTMLAreaElement) + getPort, getProtocol, getSearch, getRelList, getRelListUnchecked, + HTMLAreaElement, castToHTMLAreaElement, gTypeHTMLAreaElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -143,3 +143,9 @@ getRelList :: (MonadDOM m) => HTMLAreaElement -> m (Maybe DOMTokenList) getRelList self = liftDOM ((self ^. js "relList") >>= fromJSVal) + +-- | +getRelListUnchecked :: + (MonadDOM m) => HTMLAreaElement -> m DOMTokenList +getRelListUnchecked self + = liftDOM ((self ^. js "relList") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLBaseElement.hs b/src/JSDOM/Generated/HTMLBaseElement.hs --- a/src/JSDOM/Generated/HTMLBaseElement.hs +++ b/src/JSDOM/Generated/HTMLBaseElement.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLBaseElement - (setHref, getHref, setTarget, getTarget, HTMLBaseElement, - castToHTMLBaseElement, gTypeHTMLBaseElement) + (setHref, getHref, getHrefUnchecked, setTarget, getTarget, + HTMLBaseElement, castToHTMLBaseElement, gTypeHTMLBaseElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -27,6 +27,12 @@ (MonadDOM m, FromJSString result) => HTMLBaseElement -> m (Maybe result) getHref self = liftDOM ((self ^. js "href") >>= fromMaybeJSString) + +-- | +getHrefUnchecked :: + (MonadDOM m, FromJSString result) => HTMLBaseElement -> m result +getHrefUnchecked self + = liftDOM ((self ^. js "href") >>= fromJSValUnchecked) -- | setTarget :: diff --git a/src/JSDOM/Generated/HTMLButtonElement.hs b/src/JSDOM/Generated/HTMLButtonElement.hs --- a/src/JSDOM/Generated/HTMLButtonElement.hs +++ b/src/JSDOM/Generated/HTMLButtonElement.hs @@ -1,13 +1,16 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLButtonElement - (checkValidity, setCustomValidity, setAutofocus, getAutofocus, - setDisabled, getDisabled, getForm, setFormAction, getFormAction, - setFormEnctype, getFormEnctype, setFormMethod, getFormMethod, - setFormNoValidate, getFormNoValidate, setFormTarget, getFormTarget, - setName, getName, setType, getType, setValue, getValue, - getWillValidate, getValidity, getValidationMessage, getLabels, - HTMLButtonElement, castToHTMLButtonElement, gTypeHTMLButtonElement) + (checkValidity, checkValidity_, setCustomValidity, setAutofocus, + getAutofocus, setDisabled, getDisabled, getForm, getFormUnchecked, + setFormAction, getFormAction, setFormEnctype, getFormEnctype, + getFormEnctypeUnchecked, setFormMethod, getFormMethod, + getFormMethodUnchecked, setFormNoValidate, getFormNoValidate, + setFormTarget, getFormTarget, setName, getName, setType, getType, + getTypeUnchecked, setValue, getValue, getWillValidate, getValidity, + getValidityUnchecked, getValidationMessage, getLabels, + getLabelsUnchecked, HTMLButtonElement, castToHTMLButtonElement, + gTypeHTMLButtonElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -26,6 +29,11 @@ checkValidity self = liftDOM ((self ^. jsf "checkValidity" ()) >>= valToBool) +-- | +checkValidity_ :: (MonadDOM m) => HTMLButtonElement -> m () +checkValidity_ self + = liftDOM (void (self ^. jsf "checkValidity" ())) + -- | setCustomValidity :: (MonadDOM m, ToJSString error) => @@ -57,6 +65,12 @@ (MonadDOM m) => HTMLButtonElement -> m (Maybe HTMLFormElement) getForm self = liftDOM ((self ^. js "form") >>= fromJSVal) +-- | +getFormUnchecked :: + (MonadDOM m) => HTMLButtonElement -> m HTMLFormElement +getFormUnchecked self + = liftDOM ((self ^. js "form") >>= fromJSValUnchecked) + -- | setFormAction :: (MonadDOM m, ToJSString val) => HTMLButtonElement -> val -> m () @@ -83,6 +97,12 @@ getFormEnctype self = liftDOM ((self ^. js "formEnctype") >>= fromMaybeJSString) +-- | +getFormEnctypeUnchecked :: + (MonadDOM m, FromJSString result) => HTMLButtonElement -> m result +getFormEnctypeUnchecked self + = liftDOM ((self ^. js "formEnctype") >>= fromJSValUnchecked) + -- | setFormMethod :: (MonadDOM m, ToJSString val) => @@ -97,6 +117,12 @@ getFormMethod self = liftDOM ((self ^. js "formMethod") >>= fromMaybeJSString) +-- | +getFormMethodUnchecked :: + (MonadDOM m, FromJSString result) => HTMLButtonElement -> m result +getFormMethodUnchecked self + = liftDOM ((self ^. js "formMethod") >>= fromJSValUnchecked) + -- | setFormNoValidate :: (MonadDOM m) => HTMLButtonElement -> Bool -> m () @@ -142,6 +168,12 @@ HTMLButtonElement -> m (Maybe result) getType self = liftDOM ((self ^. js "type") >>= fromMaybeJSString) +-- | +getTypeUnchecked :: + (MonadDOM m, FromJSString result) => HTMLButtonElement -> m result +getTypeUnchecked self + = liftDOM ((self ^. js "type") >>= fromJSValUnchecked) + -- | setValue :: (MonadDOM m, ToJSString val) => HTMLButtonElement -> val -> m () @@ -163,6 +195,12 @@ (MonadDOM m) => HTMLButtonElement -> m (Maybe ValidityState) getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal) +-- | +getValidityUnchecked :: + (MonadDOM m) => HTMLButtonElement -> m ValidityState +getValidityUnchecked self + = liftDOM ((self ^. js "validity") >>= fromJSValUnchecked) + -- | getValidationMessage :: (MonadDOM m, FromJSString result) => HTMLButtonElement -> m result @@ -173,3 +211,9 @@ getLabels :: (MonadDOM m) => HTMLButtonElement -> m (Maybe NodeList) getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal) + +-- | +getLabelsUnchecked :: + (MonadDOM m) => HTMLButtonElement -> m NodeList +getLabelsUnchecked self + = liftDOM ((self ^. js "labels") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLCanvasElement.hs b/src/JSDOM/Generated/HTMLCanvasElement.hs --- a/src/JSDOM/Generated/HTMLCanvasElement.hs +++ b/src/JSDOM/Generated/HTMLCanvasElement.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLCanvasElement - (toDataURL, getContext, probablySupportsContext, setWidth, + (toDataURL, toDataURL_, getContext, getContext_, + probablySupportsContext, probablySupportsContext_, setWidth, getWidth, setHeight, getHeight, HTMLCanvasElement, castToHTMLCanvasElement, gTypeHTMLCanvasElement) where @@ -25,6 +26,13 @@ = liftDOM ((self ^. jsf "toDataURL" [toJSVal type']) >>= fromJSValUnchecked) +-- | +toDataURL_ :: + (MonadDOM m, ToJSString type') => + HTMLCanvasElement -> Maybe type' -> m () +toDataURL_ self type' + = liftDOM (void (self ^. jsf "toDataURL" [toJSVal type'])) + -- | getContext :: (MonadDOM m, ToJSString contextId) => @@ -33,6 +41,13 @@ = liftDOM ((self ^. jsf "getContext" [toJSVal contextId]) >>= toJSVal) +-- | +getContext_ :: + (MonadDOM m, ToJSString contextId) => + HTMLCanvasElement -> contextId -> m () +getContext_ self contextId + = liftDOM (void (self ^. jsf "getContext" [toJSVal contextId])) + -- | probablySupportsContext :: (MonadDOM m, ToJSString contextId) => @@ -41,6 +56,14 @@ = liftDOM ((self ^. jsf "probablySupportsContext" [toJSVal contextId]) >>= toJSVal) + +-- | +probablySupportsContext_ :: + (MonadDOM m, ToJSString contextId) => + HTMLCanvasElement -> contextId -> m () +probablySupportsContext_ self contextId + = liftDOM + (void (self ^. jsf "probablySupportsContext" [toJSVal contextId])) -- | setWidth :: (MonadDOM m) => HTMLCanvasElement -> Int -> m () diff --git a/src/JSDOM/Generated/HTMLCollection.hs b/src/JSDOM/Generated/HTMLCollection.hs --- a/src/JSDOM/Generated/HTMLCollection.hs +++ b/src/JSDOM/Generated/HTMLCollection.hs @@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLCollection - (item, namedItem, getLength, HTMLCollection, castToHTMLCollection, - gTypeHTMLCollection, IsHTMLCollection, toHTMLCollection) + (item, item_, itemUnchecked, namedItem, namedItem_, + namedItemUnchecked, getLength, HTMLCollection, + castToHTMLCollection, gTypeHTMLCollection, IsHTMLCollection, + toHTMLCollection) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -25,6 +27,21 @@ (((toHTMLCollection self) ^. jsf "item" [toJSVal index]) >>= fromJSVal) +-- | +item_ :: + (MonadDOM m, IsHTMLCollection self) => self -> Word -> m () +item_ self index + = liftDOM + (void ((toHTMLCollection self) ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m, IsHTMLCollection self) => self -> Word -> m Node +itemUnchecked self index + = liftDOM + (((toHTMLCollection self) ^. jsf "item" [toJSVal index]) >>= + fromJSValUnchecked) + -- | namedItem :: (MonadDOM m, IsHTMLCollection self, ToJSString name) => @@ -33,6 +50,23 @@ = liftDOM (((toHTMLCollection self) ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal) + +-- | +namedItem_ :: + (MonadDOM m, IsHTMLCollection self, ToJSString name) => + self -> name -> m () +namedItem_ self name + = liftDOM + (void ((toHTMLCollection self) ^. jsf "namedItem" [toJSVal name])) + +-- | +namedItemUnchecked :: + (MonadDOM m, IsHTMLCollection self, ToJSString name) => + self -> name -> m Node +namedItemUnchecked self name + = liftDOM + (((toHTMLCollection self) ^. jsf "namedItem" [toJSVal name]) >>= + fromJSValUnchecked) -- | getLength :: (MonadDOM m, IsHTMLCollection self) => self -> m Word diff --git a/src/JSDOM/Generated/HTMLDataListElement.hs b/src/JSDOM/Generated/HTMLDataListElement.hs --- a/src/JSDOM/Generated/HTMLDataListElement.hs +++ b/src/JSDOM/Generated/HTMLDataListElement.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLDataListElement - (getOptions, HTMLDataListElement, castToHTMLDataListElement, - gTypeHTMLDataListElement) + (getOptions, getOptionsUnchecked, HTMLDataListElement, + castToHTMLDataListElement, gTypeHTMLDataListElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,3 +20,9 @@ getOptions :: (MonadDOM m) => HTMLDataListElement -> m (Maybe HTMLCollection) getOptions self = liftDOM ((self ^. js "options") >>= fromJSVal) + +-- | +getOptionsUnchecked :: + (MonadDOM m) => HTMLDataListElement -> m HTMLCollection +getOptionsUnchecked self + = liftDOM ((self ^. js "options") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLDocument.hs b/src/JSDOM/Generated/HTMLDocument.hs --- a/src/JSDOM/Generated/HTMLDocument.hs +++ b/src/JSDOM/Generated/HTMLDocument.hs @@ -2,11 +2,16 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLDocument (open, close, write, writeln, clear, captureEvents, releaseEvents, - getEmbeds, getPlugins, getScripts, getAll, getWidth, getHeight, - setDir, getDir, setDesignMode, getDesignMode, getCompatMode, - setBgColor, getBgColor, setFgColor, getFgColor, setAlinkColor, - getAlinkColor, setLinkColor, getLinkColor, setVlinkColor, - getVlinkColor, HTMLDocument, castToHTMLDocument, gTypeHTMLDocument) + getEmbeds, getEmbedsUnchecked, getPlugins, getPluginsUnchecked, + getScripts, getScriptsUnchecked, getAll, getAllUnchecked, getWidth, + getHeight, setDir, getDir, getDirUnchecked, setDesignMode, + getDesignMode, getDesignModeUnchecked, getCompatMode, setBgColor, + getBgColor, getBgColorUnchecked, setFgColor, getFgColor, + getFgColorUnchecked, setAlinkColor, getAlinkColor, + getAlinkColorUnchecked, setLinkColor, getLinkColor, + getLinkColorUnchecked, setVlinkColor, getVlinkColor, + getVlinkColorUnchecked, HTMLDocument, castToHTMLDocument, + gTypeHTMLDocument) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -59,21 +64,45 @@ (MonadDOM m) => HTMLDocument -> m (Maybe HTMLCollection) getEmbeds self = liftDOM ((self ^. js "embeds") >>= fromJSVal) +-- | +getEmbedsUnchecked :: + (MonadDOM m) => HTMLDocument -> m HTMLCollection +getEmbedsUnchecked self + = liftDOM ((self ^. js "embeds") >>= fromJSValUnchecked) + -- | getPlugins :: (MonadDOM m) => HTMLDocument -> m (Maybe HTMLCollection) getPlugins self = liftDOM ((self ^. js "plugins") >>= fromJSVal) +-- | +getPluginsUnchecked :: + (MonadDOM m) => HTMLDocument -> m HTMLCollection +getPluginsUnchecked self + = liftDOM ((self ^. js "plugins") >>= fromJSValUnchecked) + -- | getScripts :: (MonadDOM m) => HTMLDocument -> m (Maybe HTMLCollection) getScripts self = liftDOM ((self ^. js "scripts") >>= fromJSVal) +-- | +getScriptsUnchecked :: + (MonadDOM m) => HTMLDocument -> m HTMLCollection +getScriptsUnchecked self + = liftDOM ((self ^. js "scripts") >>= fromJSValUnchecked) + -- | getAll :: (MonadDOM m) => HTMLDocument -> m (Maybe HTMLAllCollection) getAll self = liftDOM ((self ^. js "all") >>= fromJSVal) +-- | +getAllUnchecked :: + (MonadDOM m) => HTMLDocument -> m HTMLAllCollection +getAllUnchecked self + = liftDOM ((self ^. js "all") >>= fromJSValUnchecked) + -- | getWidth :: (MonadDOM m) => HTMLDocument -> m Int getWidth self @@ -95,6 +124,12 @@ HTMLDocument -> m (Maybe result) getDir self = liftDOM ((self ^. js "dir") >>= fromMaybeJSString) +-- | +getDirUnchecked :: + (MonadDOM m, FromJSString result) => HTMLDocument -> m result +getDirUnchecked self + = liftDOM ((self ^. js "dir") >>= fromJSValUnchecked) + -- | setDesignMode :: (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m () @@ -108,6 +143,12 @@ getDesignMode self = liftDOM ((self ^. js "designMode") >>= fromMaybeJSString) +-- | +getDesignModeUnchecked :: + (MonadDOM m, FromJSString result) => HTMLDocument -> m result +getDesignModeUnchecked self + = liftDOM ((self ^. js "designMode") >>= fromJSValUnchecked) + -- | getCompatMode :: (MonadDOM m, FromJSString result) => HTMLDocument -> m result @@ -126,6 +167,12 @@ getBgColor self = liftDOM ((self ^. js "bgColor") >>= fromMaybeJSString) +-- | +getBgColorUnchecked :: + (MonadDOM m, FromJSString result) => HTMLDocument -> m result +getBgColorUnchecked self + = liftDOM ((self ^. js "bgColor") >>= fromJSValUnchecked) + -- | setFgColor :: (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m () @@ -138,6 +185,12 @@ getFgColor self = liftDOM ((self ^. js "fgColor") >>= fromMaybeJSString) +-- | +getFgColorUnchecked :: + (MonadDOM m, FromJSString result) => HTMLDocument -> m result +getFgColorUnchecked self + = liftDOM ((self ^. js "fgColor") >>= fromJSValUnchecked) + -- | setAlinkColor :: (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m () @@ -151,6 +204,12 @@ getAlinkColor self = liftDOM ((self ^. js "alinkColor") >>= fromMaybeJSString) +-- | +getAlinkColorUnchecked :: + (MonadDOM m, FromJSString result) => HTMLDocument -> m result +getAlinkColorUnchecked self + = liftDOM ((self ^. js "alinkColor") >>= fromJSValUnchecked) + -- | setLinkColor :: (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m () @@ -164,6 +223,12 @@ getLinkColor self = liftDOM ((self ^. js "linkColor") >>= fromMaybeJSString) +-- | +getLinkColorUnchecked :: + (MonadDOM m, FromJSString result) => HTMLDocument -> m result +getLinkColorUnchecked self + = liftDOM ((self ^. js "linkColor") >>= fromJSValUnchecked) + -- | setVlinkColor :: (MonadDOM m, ToJSString val) => HTMLDocument -> Maybe val -> m () @@ -176,3 +241,9 @@ HTMLDocument -> m (Maybe result) getVlinkColor self = liftDOM ((self ^. js "vlinkColor") >>= fromMaybeJSString) + +-- | +getVlinkColorUnchecked :: + (MonadDOM m, FromJSString result) => HTMLDocument -> m result +getVlinkColorUnchecked self + = liftDOM ((self ^. js "vlinkColor") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLElement.hs b/src/JSDOM/Generated/HTMLElement.hs --- a/src/JSDOM/Generated/HTMLElement.hs +++ b/src/JSDOM/Generated/HTMLElement.hs @@ -1,15 +1,18 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLElement - (insertAdjacentElement, insertAdjacentHTML, insertAdjacentText, - click, setTitle, getTitle, setLang, getLang, setTranslate, - getTranslate, setDir, getDir, setTabIndex, getTabIndex, - setDraggable, getDraggable, setWebkitdropzone, getWebkitdropzone, - setHidden, getHidden, setAccessKey, getAccessKey, setInnerText, - getInnerText, setOuterText, getOuterText, getChildren, - setContentEditable, getContentEditable, getIsContentEditable, - setSpellcheck, getSpellcheck, HTMLElement, castToHTMLElement, - gTypeHTMLElement, IsHTMLElement, toHTMLElement) + (insertAdjacentElement, insertAdjacentElement_, + insertAdjacentElementUnchecked, insertAdjacentHTML, + insertAdjacentText, click, setTitle, getTitle, setLang, getLang, + setTranslate, getTranslate, setDir, getDir, setTabIndex, + getTabIndex, setDraggable, getDraggable, setWebkitdropzone, + getWebkitdropzone, setHidden, getHidden, setAccessKey, + getAccessKey, setInnerText, getInnerText, getInnerTextUnchecked, + setOuterText, getOuterText, getOuterTextUnchecked, getChildren, + getChildrenUnchecked, setContentEditable, getContentEditable, + getContentEditableUnchecked, getIsContentEditable, setSpellcheck, + getSpellcheck, HTMLElement, castToHTMLElement, gTypeHTMLElement, + IsHTMLElement, toHTMLElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -34,6 +37,28 @@ [toJSVal where', toJSVal element]) >>= fromJSVal) +-- | +insertAdjacentElement_ :: + (MonadDOM m, IsHTMLElement self, ToJSString where', + IsElement element) => + self -> where' -> Maybe element -> m () +insertAdjacentElement_ self where' element + = liftDOM + (void + ((toHTMLElement self) ^. jsf "insertAdjacentElement" + [toJSVal where', toJSVal element])) + +-- | +insertAdjacentElementUnchecked :: + (MonadDOM m, IsHTMLElement self, ToJSString where', + IsElement element) => + self -> where' -> Maybe element -> m Element +insertAdjacentElementUnchecked self where' element + = liftDOM + (((toHTMLElement self) ^. jsf "insertAdjacentElement" + [toJSVal where', toJSVal element]) + >>= fromJSValUnchecked) + -- | insertAdjacentHTML :: (MonadDOM m, IsHTMLElement self, ToJSString where', @@ -199,6 +224,14 @@ = liftDOM (((toHTMLElement self) ^. js "innerText") >>= fromMaybeJSString) +-- | +getInnerTextUnchecked :: + (MonadDOM m, IsHTMLElement self, FromJSString result) => + self -> m result +getInnerTextUnchecked self + = liftDOM + (((toHTMLElement self) ^. js "innerText") >>= fromJSValUnchecked) + -- | setOuterText :: (MonadDOM m, IsHTMLElement self, ToJSString val) => @@ -214,6 +247,14 @@ = liftDOM (((toHTMLElement self) ^. js "outerText") >>= fromMaybeJSString) +-- | +getOuterTextUnchecked :: + (MonadDOM m, IsHTMLElement self, FromJSString result) => + self -> m result +getOuterTextUnchecked self + = liftDOM + (((toHTMLElement self) ^. js "outerText") >>= fromJSValUnchecked) + -- | getChildren :: (MonadDOM m, IsHTMLElement self) => @@ -221,6 +262,13 @@ getChildren self = liftDOM (((toHTMLElement self) ^. js "children") >>= fromJSVal) +-- | +getChildrenUnchecked :: + (MonadDOM m, IsHTMLElement self) => self -> m HTMLCollection +getChildrenUnchecked self + = liftDOM + (((toHTMLElement self) ^. js "children") >>= fromJSValUnchecked) + -- | setContentEditable :: (MonadDOM m, IsHTMLElement self, ToJSString val) => @@ -237,6 +285,15 @@ = liftDOM (((toHTMLElement self) ^. js "contentEditable") >>= fromMaybeJSString) + +-- | +getContentEditableUnchecked :: + (MonadDOM m, IsHTMLElement self, FromJSString result) => + self -> m result +getContentEditableUnchecked self + = liftDOM + (((toHTMLElement self) ^. js "contentEditable") >>= + fromJSValUnchecked) -- | getIsContentEditable :: diff --git a/src/JSDOM/Generated/HTMLEmbedElement.hs b/src/JSDOM/Generated/HTMLEmbedElement.hs --- a/src/JSDOM/Generated/HTMLEmbedElement.hs +++ b/src/JSDOM/Generated/HTMLEmbedElement.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLEmbedElement - (getSVGDocument, setAlign, getAlign, setHeight, getHeight, setName, - getName, setSrc, getSrc, setType, getType, setWidth, getWidth, - HTMLEmbedElement, castToHTMLEmbedElement, gTypeHTMLEmbedElement) + (getSVGDocument, getSVGDocument_, getSVGDocumentUnchecked, + setAlign, getAlign, setHeight, getHeight, setName, getName, setSrc, + getSrc, setType, getType, setWidth, getWidth, HTMLEmbedElement, + castToHTMLEmbedElement, gTypeHTMLEmbedElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -22,6 +23,18 @@ (MonadDOM m) => HTMLEmbedElement -> m (Maybe SVGDocument) getSVGDocument self = liftDOM ((self ^. jsf "getSVGDocument" ()) >>= fromJSVal) + +-- | +getSVGDocument_ :: (MonadDOM m) => HTMLEmbedElement -> m () +getSVGDocument_ self + = liftDOM (void (self ^. jsf "getSVGDocument" ())) + +-- | +getSVGDocumentUnchecked :: + (MonadDOM m) => HTMLEmbedElement -> m SVGDocument +getSVGDocumentUnchecked self + = liftDOM + ((self ^. jsf "getSVGDocument" ()) >>= fromJSValUnchecked) -- | setAlign :: diff --git a/src/JSDOM/Generated/HTMLFieldSetElement.hs b/src/JSDOM/Generated/HTMLFieldSetElement.hs --- a/src/JSDOM/Generated/HTMLFieldSetElement.hs +++ b/src/JSDOM/Generated/HTMLFieldSetElement.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLFieldSetElement - (checkValidity, setCustomValidity, setDisabled, getDisabled, - getForm, setName, getName, getType, getElements, getWillValidate, - getValidity, getValidationMessage, HTMLFieldSetElement, + (checkValidity, checkValidity_, setCustomValidity, setDisabled, + getDisabled, getForm, getFormUnchecked, setName, getName, getType, + getElements, getElementsUnchecked, getWillValidate, getValidity, + getValidityUnchecked, getValidationMessage, HTMLFieldSetElement, castToHTMLFieldSetElement, gTypeHTMLFieldSetElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -23,6 +24,11 @@ checkValidity self = liftDOM ((self ^. jsf "checkValidity" ()) >>= valToBool) +-- | +checkValidity_ :: (MonadDOM m) => HTMLFieldSetElement -> m () +checkValidity_ self + = liftDOM (void (self ^. jsf "checkValidity" ())) + -- | setCustomValidity :: (MonadDOM m, ToJSString error) => @@ -44,6 +50,12 @@ (MonadDOM m) => HTMLFieldSetElement -> m (Maybe HTMLFormElement) getForm self = liftDOM ((self ^. js "form") >>= fromJSVal) +-- | +getFormUnchecked :: + (MonadDOM m) => HTMLFieldSetElement -> m HTMLFormElement +getFormUnchecked self + = liftDOM ((self ^. js "form") >>= fromJSValUnchecked) + -- | setName :: (MonadDOM m, ToJSString val) => HTMLFieldSetElement -> val -> m () @@ -66,6 +78,12 @@ (MonadDOM m) => HTMLFieldSetElement -> m (Maybe HTMLCollection) getElements self = liftDOM ((self ^. js "elements") >>= fromJSVal) +-- | +getElementsUnchecked :: + (MonadDOM m) => HTMLFieldSetElement -> m HTMLCollection +getElementsUnchecked self + = liftDOM ((self ^. js "elements") >>= fromJSValUnchecked) + -- | getWillValidate :: (MonadDOM m) => HTMLFieldSetElement -> m Bool getWillValidate self @@ -75,6 +93,12 @@ getValidity :: (MonadDOM m) => HTMLFieldSetElement -> m (Maybe ValidityState) getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal) + +-- | +getValidityUnchecked :: + (MonadDOM m) => HTMLFieldSetElement -> m ValidityState +getValidityUnchecked self + = liftDOM ((self ^. js "validity") >>= fromJSValUnchecked) -- | getValidationMessage :: diff --git a/src/JSDOM/Generated/HTMLFormControlsCollection.hs b/src/JSDOM/Generated/HTMLFormControlsCollection.hs --- a/src/JSDOM/Generated/HTMLFormControlsCollection.hs +++ b/src/JSDOM/Generated/HTMLFormControlsCollection.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLFormControlsCollection - (_get, namedItem, HTMLFormControlsCollection, + (_get, _get_, _getUnchecked, namedItem, namedItem_, + namedItemUnchecked, HTMLFormControlsCollection, castToHTMLFormControlsCollection, gTypeHTMLFormControlsCollection) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -23,9 +24,36 @@ _get self index = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal) +-- | +_get_ :: (MonadDOM m) => HTMLFormControlsCollection -> Word -> m () +_get_ self index + = liftDOM (void (self ^. jsf "_get" [toJSVal index])) + +-- | +_getUnchecked :: + (MonadDOM m) => HTMLFormControlsCollection -> Word -> m Node +_getUnchecked self index + = liftDOM + ((self ^. jsf "_get" [toJSVal index]) >>= fromJSValUnchecked) + -- | namedItem :: (MonadDOM m, ToJSString name) => HTMLFormControlsCollection -> name -> m (Maybe Node) namedItem self name = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal) + +-- | +namedItem_ :: + (MonadDOM m, ToJSString name) => + HTMLFormControlsCollection -> name -> m () +namedItem_ self name + = liftDOM (void (self ^. jsf "namedItem" [toJSVal name])) + +-- | +namedItemUnchecked :: + (MonadDOM m, ToJSString name) => + HTMLFormControlsCollection -> name -> m Node +namedItemUnchecked self name + = liftDOM + ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLFormElement.hs b/src/JSDOM/Generated/HTMLFormElement.hs --- a/src/JSDOM/Generated/HTMLFormElement.hs +++ b/src/JSDOM/Generated/HTMLFormElement.hs @@ -1,14 +1,17 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLFormElement - (_get, submit, reset, checkValidity, requestAutocomplete, - setAcceptCharset, getAcceptCharset, setAction, getAction, - setAutocomplete, getAutocomplete, setEnctype, getEnctype, - setEncoding, getEncoding, setMethod, getMethod, setName, getName, - setNoValidate, getNoValidate, setTarget, getTarget, getElements, - getLength, setAutocorrect, getAutocorrect, setAutocapitalize, - getAutocapitalize, autocomplete, autocompleteerror, - HTMLFormElement, castToHTMLFormElement, gTypeHTMLFormElement) + (_get, _get_, _getUnchecked, submit, reset, checkValidity, + checkValidity_, requestAutocomplete, setAcceptCharset, + getAcceptCharset, setAction, getAction, setAutocomplete, + getAutocomplete, setEnctype, getEnctype, getEnctypeUnchecked, + setEncoding, getEncoding, getEncodingUnchecked, setMethod, + getMethod, getMethodUnchecked, setName, getName, setNoValidate, + getNoValidate, setTarget, getTarget, getElements, + getElementsUnchecked, getLength, setAutocorrect, getAutocorrect, + setAutocapitalize, getAutocapitalize, getAutocapitalizeUnchecked, + autocomplete, autocompleteerror, HTMLFormElement, + castToHTMLFormElement, gTypeHTMLFormElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -28,6 +31,18 @@ _get self index = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal) +-- | +_get_ :: (MonadDOM m) => HTMLFormElement -> Word -> m () +_get_ self index + = liftDOM (void (self ^. jsf "_get" [toJSVal index])) + +-- | +_getUnchecked :: + (MonadDOM m) => HTMLFormElement -> Word -> m Element +_getUnchecked self index + = liftDOM + ((self ^. jsf "_get" [toJSVal index]) >>= fromJSValUnchecked) + -- | submit :: (MonadDOM m) => HTMLFormElement -> m () submit self = liftDOM (void (self ^. jsf "submit" ())) @@ -41,6 +56,11 @@ checkValidity self = liftDOM ((self ^. jsf "checkValidity" ()) >>= valToBool) +-- | +checkValidity_ :: (MonadDOM m) => HTMLFormElement -> m () +checkValidity_ self + = liftDOM (void (self ^. jsf "checkValidity" ())) + -- | requestAutocomplete :: (MonadDOM m) => HTMLFormElement -> m () requestAutocomplete self @@ -94,6 +114,12 @@ getEnctype self = liftDOM ((self ^. js "enctype") >>= fromMaybeJSString) +-- | +getEnctypeUnchecked :: + (MonadDOM m, FromJSString result) => HTMLFormElement -> m result +getEnctypeUnchecked self + = liftDOM ((self ^. js "enctype") >>= fromJSValUnchecked) + -- | setEncoding :: (MonadDOM m, ToJSString val) => @@ -108,6 +134,12 @@ getEncoding self = liftDOM ((self ^. js "encoding") >>= fromMaybeJSString) +-- | +getEncodingUnchecked :: + (MonadDOM m, FromJSString result) => HTMLFormElement -> m result +getEncodingUnchecked self + = liftDOM ((self ^. js "encoding") >>= fromJSValUnchecked) + -- | setMethod :: (MonadDOM m, ToJSString val) => @@ -121,6 +153,12 @@ getMethod self = liftDOM ((self ^. js "method") >>= fromMaybeJSString) +-- | +getMethodUnchecked :: + (MonadDOM m, FromJSString result) => HTMLFormElement -> m result +getMethodUnchecked self + = liftDOM ((self ^. js "method") >>= fromJSValUnchecked) + -- | setName :: (MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m () @@ -157,6 +195,12 @@ (MonadDOM m) => HTMLFormElement -> m (Maybe HTMLCollection) getElements self = liftDOM ((self ^. js "elements") >>= fromJSVal) +-- | +getElementsUnchecked :: + (MonadDOM m) => HTMLFormElement -> m HTMLCollection +getElementsUnchecked self + = liftDOM ((self ^. js "elements") >>= fromJSValUnchecked) + -- | getLength :: (MonadDOM m) => HTMLFormElement -> m Int getLength self @@ -185,6 +229,12 @@ HTMLFormElement -> m (Maybe result) getAutocapitalize self = liftDOM ((self ^. js "autocapitalize") >>= fromMaybeJSString) + +-- | +getAutocapitalizeUnchecked :: + (MonadDOM m, FromJSString result) => HTMLFormElement -> m result +getAutocapitalizeUnchecked self + = liftDOM ((self ^. js "autocapitalize") >>= fromJSValUnchecked) -- | autocomplete :: EventName HTMLFormElement onautocomplete diff --git a/src/JSDOM/Generated/HTMLFrameElement.hs b/src/JSDOM/Generated/HTMLFrameElement.hs --- a/src/JSDOM/Generated/HTMLFrameElement.hs +++ b/src/JSDOM/Generated/HTMLFrameElement.hs @@ -1,12 +1,15 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLFrameElement - (getSVGDocument, setFrameBorder, getFrameBorder, setLongDesc, - getLongDesc, setMarginHeight, getMarginHeight, setMarginWidth, - getMarginWidth, setName, getName, setNoResize, getNoResize, - setScrolling, getScrolling, setSrc, getSrc, getContentDocument, - getContentWindow, setLocation, getLocation, getWidth, getHeight, - HTMLFrameElement, castToHTMLFrameElement, gTypeHTMLFrameElement) + (getSVGDocument, getSVGDocument_, getSVGDocumentUnchecked, + setFrameBorder, getFrameBorder, setLongDesc, getLongDesc, + setMarginHeight, getMarginHeight, setMarginWidth, getMarginWidth, + setName, getName, setNoResize, getNoResize, setScrolling, + getScrolling, setSrc, getSrc, getContentDocument, + getContentDocumentUnchecked, getContentWindow, + getContentWindowUnchecked, setLocation, getLocation, + getLocationUnchecked, getWidth, getHeight, HTMLFrameElement, + castToHTMLFrameElement, gTypeHTMLFrameElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -26,6 +29,18 @@ getSVGDocument self = liftDOM ((self ^. jsf "getSVGDocument" ()) >>= fromJSVal) +-- | +getSVGDocument_ :: (MonadDOM m) => HTMLFrameElement -> m () +getSVGDocument_ self + = liftDOM (void (self ^. jsf "getSVGDocument" ())) + +-- | +getSVGDocumentUnchecked :: + (MonadDOM m) => HTMLFrameElement -> m SVGDocument +getSVGDocumentUnchecked self + = liftDOM + ((self ^. jsf "getSVGDocument" ()) >>= fromJSValUnchecked) + -- | setFrameBorder :: (MonadDOM m, ToJSString val) => HTMLFrameElement -> val -> m () @@ -121,12 +136,24 @@ getContentDocument self = liftDOM ((self ^. js "contentDocument") >>= fromJSVal) +-- | +getContentDocumentUnchecked :: + (MonadDOM m) => HTMLFrameElement -> m Document +getContentDocumentUnchecked self + = liftDOM ((self ^. js "contentDocument") >>= fromJSValUnchecked) + -- | getContentWindow :: (MonadDOM m) => HTMLFrameElement -> m (Maybe Window) getContentWindow self = liftDOM ((self ^. js "contentWindow") >>= fromJSVal) +-- | +getContentWindowUnchecked :: + (MonadDOM m) => HTMLFrameElement -> m Window +getContentWindowUnchecked self + = liftDOM ((self ^. js "contentWindow") >>= fromJSValUnchecked) + -- | setLocation :: (MonadDOM m, ToJSString val) => @@ -140,6 +167,12 @@ HTMLFrameElement -> m (Maybe result) getLocation self = liftDOM ((self ^. js "location") >>= fromMaybeJSString) + +-- | +getLocationUnchecked :: + (MonadDOM m, FromJSString result) => HTMLFrameElement -> m result +getLocationUnchecked self + = liftDOM ((self ^. js "location") >>= fromJSValUnchecked) -- | getWidth :: (MonadDOM m) => HTMLFrameElement -> m Int diff --git a/src/JSDOM/Generated/HTMLIFrameElement.hs b/src/JSDOM/Generated/HTMLIFrameElement.hs --- a/src/JSDOM/Generated/HTMLIFrameElement.hs +++ b/src/JSDOM/Generated/HTMLIFrameElement.hs @@ -1,12 +1,14 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLIFrameElement - (getSVGDocument, setAlign, getAlign, setFrameBorder, - getFrameBorder, setHeight, getHeight, setLongDesc, getLongDesc, - setMarginHeight, getMarginHeight, setMarginWidth, getMarginWidth, - setName, getName, setSandbox, getSandbox, setScrolling, - getScrolling, setSrc, getSrc, setSrcdoc, getSrcdoc, setWidth, - getWidth, getContentDocument, getContentWindow, HTMLIFrameElement, + (getSVGDocument, getSVGDocument_, getSVGDocumentUnchecked, + setAlign, getAlign, setFrameBorder, getFrameBorder, setHeight, + getHeight, setLongDesc, getLongDesc, setMarginHeight, + getMarginHeight, setMarginWidth, getMarginWidth, setName, getName, + setSandbox, getSandbox, setScrolling, getScrolling, setSrc, getSrc, + setSrcdoc, getSrcdoc, setWidth, getWidth, getContentDocument, + getContentDocumentUnchecked, getContentWindow, + getContentWindowUnchecked, HTMLIFrameElement, castToHTMLIFrameElement, gTypeHTMLIFrameElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -27,6 +29,18 @@ getSVGDocument self = liftDOM ((self ^. jsf "getSVGDocument" ()) >>= fromJSVal) +-- | +getSVGDocument_ :: (MonadDOM m) => HTMLIFrameElement -> m () +getSVGDocument_ self + = liftDOM (void (self ^. jsf "getSVGDocument" ())) + +-- | +getSVGDocumentUnchecked :: + (MonadDOM m) => HTMLIFrameElement -> m SVGDocument +getSVGDocumentUnchecked self + = liftDOM + ((self ^. jsf "getSVGDocument" ()) >>= fromJSValUnchecked) + -- | setAlign :: (MonadDOM m, ToJSString val) => HTMLIFrameElement -> val -> m () @@ -168,8 +182,20 @@ getContentDocument self = liftDOM ((self ^. js "contentDocument") >>= fromJSVal) +-- | +getContentDocumentUnchecked :: + (MonadDOM m) => HTMLIFrameElement -> m Document +getContentDocumentUnchecked self + = liftDOM ((self ^. js "contentDocument") >>= fromJSValUnchecked) + -- | getContentWindow :: (MonadDOM m) => HTMLIFrameElement -> m (Maybe Window) getContentWindow self = liftDOM ((self ^. js "contentWindow") >>= fromJSVal) + +-- | +getContentWindowUnchecked :: + (MonadDOM m) => HTMLIFrameElement -> m Window +getContentWindowUnchecked self + = liftDOM ((self ^. js "contentWindow") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLInputElement.hs b/src/JSDOM/Generated/HTMLInputElement.hs --- a/src/JSDOM/Generated/HTMLInputElement.hs +++ b/src/JSDOM/Generated/HTMLInputElement.hs @@ -1,30 +1,35 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLInputElement - (stepUp, stepDown, checkValidity, setCustomValidity, select, - setRangeText, setRangeText4, setSelectionRange, setAccept, - getAccept, setAlt, getAlt, setAutocomplete, getAutocomplete, - setAutofocus, getAutofocus, setDefaultChecked, getDefaultChecked, - setChecked, getChecked, setDirName, getDirName, setDisabled, - getDisabled, getForm, setFiles, getFiles, setFormAction, - getFormAction, setFormEnctype, getFormEnctype, setFormMethod, - getFormMethod, setFormNoValidate, getFormNoValidate, setFormTarget, - getFormTarget, setHeight, getHeight, setIndeterminate, - getIndeterminate, getList, setMax, getMax, setMaxLength, - getMaxLength, setMin, getMin, setMultiple, getMultiple, setName, - getName, setPattern, getPattern, setPlaceholder, getPlaceholder, - setReadOnly, getReadOnly, setRequired, getRequired, setSize, - getSize, setSrc, getSrc, setStep, getStep, setType, getType, - setDefaultValue, getDefaultValue, setValue, getValue, - setValueAsDate, getValueAsDate, setValueAsNumber, getValueAsNumber, + (stepUp, stepDown, checkValidity, checkValidity_, + setCustomValidity, select, setRangeText, setRangeText4, + setSelectionRange, setAccept, getAccept, setAlt, getAlt, + setAutocomplete, getAutocomplete, setAutofocus, getAutofocus, + setDefaultChecked, getDefaultChecked, setChecked, getChecked, + setDirName, getDirName, setDisabled, getDisabled, getForm, + getFormUnchecked, setFiles, getFiles, getFilesUnchecked, + setFormAction, getFormAction, setFormEnctype, getFormEnctype, + getFormEnctypeUnchecked, setFormMethod, getFormMethod, + getFormMethodUnchecked, setFormNoValidate, getFormNoValidate, + setFormTarget, getFormTarget, setHeight, getHeight, + setIndeterminate, getIndeterminate, getList, getListUnchecked, + setMax, getMax, setMaxLength, getMaxLength, setMin, getMin, + setMultiple, getMultiple, setName, getName, setPattern, getPattern, + setPlaceholder, getPlaceholder, setReadOnly, getReadOnly, + setRequired, getRequired, setSize, getSize, setSrc, getSrc, + setStep, getStep, setType, getType, setDefaultValue, + getDefaultValue, getDefaultValueUnchecked, setValue, getValue, + getValueUnchecked, setValueAsDate, getValueAsDate, + getValueAsDateUnchecked, setValueAsNumber, getValueAsNumber, setWidth, getWidth, getWillValidate, getValidity, - getValidationMessage, getLabels, setSelectionStart, - getSelectionStart, setSelectionEnd, getSelectionEnd, - setSelectionDirection, getSelectionDirection, setAlign, getAlign, - setUseMap, getUseMap, setIncremental, getIncremental, - setAutocorrect, getAutocorrect, setAutocapitalize, - getAutocapitalize, setCapture, getCapture, HTMLInputElement, - castToHTMLInputElement, gTypeHTMLInputElement) + getValidityUnchecked, getValidationMessage, getLabels, + getLabelsUnchecked, setSelectionStart, getSelectionStart, + setSelectionEnd, getSelectionEnd, setSelectionDirection, + getSelectionDirection, setAlign, getAlign, setUseMap, getUseMap, + setIncremental, getIncremental, setAutocorrect, getAutocorrect, + setAutocapitalize, getAutocapitalize, getAutocapitalizeUnchecked, + setCapture, getCapture, HTMLInputElement, castToHTMLInputElement, + gTypeHTMLInputElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -52,6 +57,11 @@ checkValidity self = liftDOM ((self ^. jsf "checkValidity" ()) >>= valToBool) +-- | +checkValidity_ :: (MonadDOM m) => HTMLInputElement -> m () +checkValidity_ self + = liftDOM (void (self ^. jsf "checkValidity" ())) + -- | setCustomValidity :: (MonadDOM m, ToJSString error) => @@ -179,6 +189,12 @@ (MonadDOM m) => HTMLInputElement -> m (Maybe HTMLFormElement) getForm self = liftDOM ((self ^. js "form") >>= fromJSVal) +-- | +getFormUnchecked :: + (MonadDOM m) => HTMLInputElement -> m HTMLFormElement +getFormUnchecked self + = liftDOM ((self ^. js "form") >>= fromJSValUnchecked) + -- | setFiles :: (MonadDOM m) => HTMLInputElement -> Maybe FileList -> m () @@ -188,6 +204,11 @@ getFiles :: (MonadDOM m) => HTMLInputElement -> m (Maybe FileList) getFiles self = liftDOM ((self ^. js "files") >>= fromJSVal) +-- | +getFilesUnchecked :: (MonadDOM m) => HTMLInputElement -> m FileList +getFilesUnchecked self + = liftDOM ((self ^. js "files") >>= fromJSValUnchecked) + -- | setFormAction :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m () @@ -214,6 +235,12 @@ getFormEnctype self = liftDOM ((self ^. js "formEnctype") >>= fromMaybeJSString) +-- | +getFormEnctypeUnchecked :: + (MonadDOM m, FromJSString result) => HTMLInputElement -> m result +getFormEnctypeUnchecked self + = liftDOM ((self ^. js "formEnctype") >>= fromJSValUnchecked) + -- | setFormMethod :: (MonadDOM m, ToJSString val) => @@ -228,6 +255,12 @@ getFormMethod self = liftDOM ((self ^. js "formMethod") >>= fromMaybeJSString) +-- | +getFormMethodUnchecked :: + (MonadDOM m, FromJSString result) => HTMLInputElement -> m result +getFormMethodUnchecked self + = liftDOM ((self ^. js "formMethod") >>= fromJSValUnchecked) + -- | setFormNoValidate :: (MonadDOM m) => HTMLInputElement -> Bool -> m () @@ -276,6 +309,12 @@ (MonadDOM m) => HTMLInputElement -> m (Maybe HTMLElement) getList self = liftDOM ((self ^. js "list") >>= fromJSVal) +-- | +getListUnchecked :: + (MonadDOM m) => HTMLInputElement -> m HTMLElement +getListUnchecked self + = liftDOM ((self ^. js "list") >>= fromJSValUnchecked) + -- | setMax :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m () @@ -419,6 +458,12 @@ getDefaultValue self = liftDOM ((self ^. js "defaultValue") >>= fromMaybeJSString) +-- | +getDefaultValueUnchecked :: + (MonadDOM m, FromJSString result) => HTMLInputElement -> m result +getDefaultValueUnchecked self + = liftDOM ((self ^. js "defaultValue") >>= fromJSValUnchecked) + -- | setValue :: (MonadDOM m, ToJSString val) => @@ -432,6 +477,12 @@ getValue self = liftDOM ((self ^. js "value") >>= fromMaybeJSString) +-- | +getValueUnchecked :: + (MonadDOM m, FromJSString result) => HTMLInputElement -> m result +getValueUnchecked self + = liftDOM ((self ^. js "value") >>= fromJSValUnchecked) + -- | setValueAsDate :: (MonadDOM m, IsDate val) => HTMLInputElement -> Maybe val -> m () @@ -444,6 +495,12 @@ getValueAsDate self = liftDOM ((self ^. js "valueAsDate") >>= fromJSVal) +-- | +getValueAsDateUnchecked :: + (MonadDOM m) => HTMLInputElement -> m Date +getValueAsDateUnchecked self + = liftDOM ((self ^. js "valueAsDate") >>= fromJSValUnchecked) + -- | setValueAsNumber :: (MonadDOM m) => HTMLInputElement -> Double -> m () @@ -474,6 +531,12 @@ (MonadDOM m) => HTMLInputElement -> m (Maybe ValidityState) getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal) +-- | +getValidityUnchecked :: + (MonadDOM m) => HTMLInputElement -> m ValidityState +getValidityUnchecked self + = liftDOM ((self ^. js "validity") >>= fromJSValUnchecked) + -- | getValidationMessage :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result @@ -484,6 +547,12 @@ getLabels :: (MonadDOM m) => HTMLInputElement -> m (Maybe NodeList) getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal) +-- | +getLabelsUnchecked :: + (MonadDOM m) => HTMLInputElement -> m NodeList +getLabelsUnchecked self + = liftDOM ((self ^. js "labels") >>= fromJSValUnchecked) + -- | setSelectionStart :: (MonadDOM m) => HTMLInputElement -> Int -> m () @@ -574,6 +643,12 @@ HTMLInputElement -> m (Maybe result) getAutocapitalize self = liftDOM ((self ^. js "autocapitalize") >>= fromMaybeJSString) + +-- | +getAutocapitalizeUnchecked :: + (MonadDOM m, FromJSString result) => HTMLInputElement -> m result +getAutocapitalizeUnchecked self + = liftDOM ((self ^. js "autocapitalize") >>= fromJSValUnchecked) -- | setCapture :: (MonadDOM m) => HTMLInputElement -> Bool -> m () diff --git a/src/JSDOM/Generated/HTMLKeygenElement.hs b/src/JSDOM/Generated/HTMLKeygenElement.hs --- a/src/JSDOM/Generated/HTMLKeygenElement.hs +++ b/src/JSDOM/Generated/HTMLKeygenElement.hs @@ -1,11 +1,13 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLKeygenElement - (checkValidity, setCustomValidity, setAutofocus, getAutofocus, - setChallenge, getChallenge, setDisabled, getDisabled, getForm, - setKeytype, getKeytype, setName, getName, getType, getWillValidate, - getValidity, getValidationMessage, getLabels, HTMLKeygenElement, - castToHTMLKeygenElement, gTypeHTMLKeygenElement) + (checkValidity, checkValidity_, setCustomValidity, setAutofocus, + getAutofocus, setChallenge, getChallenge, setDisabled, getDisabled, + getForm, getFormUnchecked, setKeytype, getKeytype, setName, + getName, getType, getWillValidate, getValidity, + getValidityUnchecked, getValidationMessage, getLabels, + getLabelsUnchecked, HTMLKeygenElement, castToHTMLKeygenElement, + gTypeHTMLKeygenElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -24,6 +26,11 @@ checkValidity self = liftDOM ((self ^. jsf "checkValidity" ()) >>= valToBool) +-- | +checkValidity_ :: (MonadDOM m) => HTMLKeygenElement -> m () +checkValidity_ self + = liftDOM (void (self ^. jsf "checkValidity" ())) + -- | setCustomValidity :: (MonadDOM m, ToJSString error) => @@ -67,6 +74,12 @@ (MonadDOM m) => HTMLKeygenElement -> m (Maybe HTMLFormElement) getForm self = liftDOM ((self ^. js "form") >>= fromJSVal) +-- | +getFormUnchecked :: + (MonadDOM m) => HTMLKeygenElement -> m HTMLFormElement +getFormUnchecked self + = liftDOM ((self ^. js "form") >>= fromJSValUnchecked) + -- | setKeytype :: (MonadDOM m, ToJSString val) => HTMLKeygenElement -> val -> m () @@ -103,6 +116,12 @@ (MonadDOM m) => HTMLKeygenElement -> m (Maybe ValidityState) getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal) +-- | +getValidityUnchecked :: + (MonadDOM m) => HTMLKeygenElement -> m ValidityState +getValidityUnchecked self + = liftDOM ((self ^. js "validity") >>= fromJSValUnchecked) + -- | getValidationMessage :: (MonadDOM m, FromJSString result) => HTMLKeygenElement -> m result @@ -113,3 +132,9 @@ getLabels :: (MonadDOM m) => HTMLKeygenElement -> m (Maybe NodeList) getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal) + +-- | +getLabelsUnchecked :: + (MonadDOM m) => HTMLKeygenElement -> m NodeList +getLabelsUnchecked self + = liftDOM ((self ^. js "labels") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLLabelElement.hs b/src/JSDOM/Generated/HTMLLabelElement.hs --- a/src/JSDOM/Generated/HTMLLabelElement.hs +++ b/src/JSDOM/Generated/HTMLLabelElement.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLLabelElement - (getForm, setHtmlFor, getHtmlFor, getControl, HTMLLabelElement, - castToHTMLLabelElement, gTypeHTMLLabelElement) + (getForm, getFormUnchecked, setHtmlFor, getHtmlFor, getControl, + getControlUnchecked, HTMLLabelElement, castToHTMLLabelElement, + gTypeHTMLLabelElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,6 +22,12 @@ (MonadDOM m) => HTMLLabelElement -> m (Maybe HTMLFormElement) getForm self = liftDOM ((self ^. js "form") >>= fromJSVal) +-- | +getFormUnchecked :: + (MonadDOM m) => HTMLLabelElement -> m HTMLFormElement +getFormUnchecked self + = liftDOM ((self ^. js "form") >>= fromJSValUnchecked) + -- | setHtmlFor :: (MonadDOM m, ToJSString val) => HTMLLabelElement -> val -> m () @@ -36,3 +43,9 @@ getControl :: (MonadDOM m) => HTMLLabelElement -> m (Maybe HTMLElement) getControl self = liftDOM ((self ^. js "control") >>= fromJSVal) + +-- | +getControlUnchecked :: + (MonadDOM m) => HTMLLabelElement -> m HTMLElement +getControlUnchecked self + = liftDOM ((self ^. js "control") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLLegendElement.hs b/src/JSDOM/Generated/HTMLLegendElement.hs --- a/src/JSDOM/Generated/HTMLLegendElement.hs +++ b/src/JSDOM/Generated/HTMLLegendElement.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLLegendElement - (getForm, setAlign, getAlign, HTMLLegendElement, + (getForm, getFormUnchecked, setAlign, getAlign, HTMLLegendElement, castToHTMLLegendElement, gTypeHTMLLegendElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -20,6 +20,12 @@ getForm :: (MonadDOM m) => HTMLLegendElement -> m (Maybe HTMLFormElement) getForm self = liftDOM ((self ^. js "form") >>= fromJSVal) + +-- | +getFormUnchecked :: + (MonadDOM m) => HTMLLegendElement -> m HTMLFormElement +getFormUnchecked self + = liftDOM ((self ^. js "form") >>= fromJSValUnchecked) -- | setAlign :: diff --git a/src/JSDOM/Generated/HTMLLinkElement.hs b/src/JSDOM/Generated/HTMLLinkElement.hs --- a/src/JSDOM/Generated/HTMLLinkElement.hs +++ b/src/JSDOM/Generated/HTMLLinkElement.hs @@ -3,9 +3,10 @@ module JSDOM.Generated.HTMLLinkElement (setDisabled, getDisabled, setCharset, getCharset, setHref, getHref, setHreflang, getHreflang, setMedia, getMedia, setRel, - getRel, setRev, getRev, setSizes, getSizes, setTarget, getTarget, - setType, getType, getSheet, getRelList, HTMLLinkElement, - castToHTMLLinkElement, gTypeHTMLLinkElement) + getRel, setRev, getRev, setSizes, getSizes, getSizesUnchecked, + setTarget, getTarget, setType, getType, getSheet, + getSheetUnchecked, getRelList, getRelListUnchecked, + HTMLLinkElement, castToHTMLLinkElement, gTypeHTMLLinkElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -103,6 +104,12 @@ (MonadDOM m) => HTMLLinkElement -> m (Maybe DOMSettableTokenList) getSizes self = liftDOM ((self ^. js "sizes") >>= fromJSVal) +-- | +getSizesUnchecked :: + (MonadDOM m) => HTMLLinkElement -> m DOMSettableTokenList +getSizesUnchecked self + = liftDOM ((self ^. js "sizes") >>= fromJSValUnchecked) + -- | setTarget :: (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m () @@ -128,7 +135,19 @@ getSheet :: (MonadDOM m) => HTMLLinkElement -> m (Maybe StyleSheet) getSheet self = liftDOM ((self ^. js "sheet") >>= fromJSVal) +-- | +getSheetUnchecked :: + (MonadDOM m) => HTMLLinkElement -> m StyleSheet +getSheetUnchecked self + = liftDOM ((self ^. js "sheet") >>= fromJSValUnchecked) + -- | getRelList :: (MonadDOM m) => HTMLLinkElement -> m (Maybe DOMTokenList) getRelList self = liftDOM ((self ^. js "relList") >>= fromJSVal) + +-- | +getRelListUnchecked :: + (MonadDOM m) => HTMLLinkElement -> m DOMTokenList +getRelListUnchecked self + = liftDOM ((self ^. js "relList") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLMapElement.hs b/src/JSDOM/Generated/HTMLMapElement.hs --- a/src/JSDOM/Generated/HTMLMapElement.hs +++ b/src/JSDOM/Generated/HTMLMapElement.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLMapElement - (getAreas, setName, getName, HTMLMapElement, castToHTMLMapElement, - gTypeHTMLMapElement) + (getAreas, getAreasUnchecked, setName, getName, HTMLMapElement, + castToHTMLMapElement, gTypeHTMLMapElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,6 +20,12 @@ getAreas :: (MonadDOM m) => HTMLMapElement -> m (Maybe HTMLCollection) getAreas self = liftDOM ((self ^. js "areas") >>= fromJSVal) + +-- | +getAreasUnchecked :: + (MonadDOM m) => HTMLMapElement -> m HTMLCollection +getAreasUnchecked self + = liftDOM ((self ^. js "areas") >>= fromJSValUnchecked) -- | setName :: diff --git a/src/JSDOM/Generated/HTMLMediaElement.hs b/src/JSDOM/Generated/HTMLMediaElement.hs --- a/src/JSDOM/Generated/HTMLMediaElement.hs +++ b/src/JSDOM/Generated/HTMLMediaElement.hs @@ -1,35 +1,42 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLMediaElement - (load, canPlayType, play, pause, fastSeek, + (load, canPlayType, canPlayType_, play, pause, fastSeek, webkitGenerateKeyRequest, webkitAddKey, webkitCancelKeyRequest, - webkitSetMediaKeys, addTextTrack, getVideoPlaybackQuality, + webkitSetMediaKeys, addTextTrack, addTextTrack_, + addTextTrackUnchecked, getVideoPlaybackQuality, + getVideoPlaybackQuality_, getVideoPlaybackQualityUnchecked, 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, getError, - setSrc, getSrc, getCurrentSrc, getNetworkState, setPreload, - getPreload, getBuffered, getReadyState, getSeeking, setCurrentTime, - getCurrentTime, getDuration, getPaused, setDefaultPlaybackRate, + getErrorUnchecked, setSrc, getSrc, getCurrentSrc, getNetworkState, + setPreload, getPreload, getBuffered, getBufferedUnchecked, + getReadyState, getSeeking, setCurrentTime, getCurrentTime, + getDuration, getPaused, setDefaultPlaybackRate, getDefaultPlaybackRate, setPlaybackRate, getPlaybackRate, - getPlayed, getSeekable, getEnded, setAutoplay, getAutoplay, - setLoop, getLoop, setControls, getControls, setVolume, getVolume, - setMuted, getMuted, setDefaultMuted, getDefaultMuted, emptied, - loadedMetadata, loadedData, canPlay, canPlayThrough, playing, - ended, waiting, durationChange, timeUpdate, playEvent, pauseEvent, - rateChange, volumeChange, setWebkitPreservesPitch, - getWebkitPreservesPitch, getWebkitHasClosedCaptions, - setWebkitClosedCaptionsVisible, getWebkitClosedCaptionsVisible, - getWebkitAudioDecodedByteCount, getWebkitVideoDecodedByteCount, - webKitKeyAdded, webKitKeyError, webKitKeyMessage, webKitNeedKey, - getWebkitKeys, getAudioTracks, getTextTracks, getVideoTracks, - setMediaGroup, getMediaGroup, setController, getController, - getWebkitCurrentPlaybackTargetIsWireless, + getPlayed, getPlayedUnchecked, getSeekable, getSeekableUnchecked, + getEnded, setAutoplay, getAutoplay, setLoop, getLoop, setControls, + getControls, setVolume, getVolume, setMuted, getMuted, + setDefaultMuted, getDefaultMuted, emptied, loadedMetadata, + loadedData, canPlay, canPlayThrough, playing, ended, waiting, + durationChange, timeUpdate, playEvent, pauseEvent, rateChange, + volumeChange, setWebkitPreservesPitch, getWebkitPreservesPitch, + getWebkitHasClosedCaptions, setWebkitClosedCaptionsVisible, + getWebkitClosedCaptionsVisible, getWebkitAudioDecodedByteCount, + getWebkitVideoDecodedByteCount, webKitKeyAdded, webKitKeyError, + webKitKeyMessage, webKitNeedKey, getWebkitKeys, + getWebkitKeysUnchecked, getAudioTracks, getAudioTracksUnchecked, + getTextTracks, getTextTracksUnchecked, getVideoTracks, + getVideoTracksUnchecked, setMediaGroup, getMediaGroup, + getMediaGroupUnchecked, setController, getController, + getControllerUnchecked, getWebkitCurrentPlaybackTargetIsWireless, webKitCurrentPlaybackTargetIsWirelessChanged, webKitPlaybackTargetAvailabilityChanged, setSrcObject, - getSrcObject, HTMLMediaElement, castToHTMLMediaElement, - gTypeHTMLMediaElement, IsHTMLMediaElement, toHTMLMediaElement) + getSrcObject, getSrcObjectUnchecked, HTMLMediaElement, + castToHTMLMediaElement, gTypeHTMLMediaElement, IsHTMLMediaElement, + toHTMLMediaElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -59,6 +66,17 @@ [toJSVal type', toJSVal keySystem]) >>= fromJSValUnchecked) +-- | +canPlayType_ :: + (MonadDOM m, IsHTMLMediaElement self, ToJSString type', + ToJSString keySystem) => + self -> type' -> Maybe keySystem -> m () +canPlayType_ self type' keySystem + = liftDOM + (void + ((toHTMLMediaElement self) ^. jsf "canPlayType" + [toJSVal type', toJSVal keySystem])) + -- | play :: (MonadDOM m, IsHTMLMediaElement self) => self -> m () play self @@ -132,6 +150,28 @@ [toJSVal kind, toJSVal label, toJSVal language]) >>= fromJSVal) +-- | +addTextTrack_ :: + (MonadDOM m, IsHTMLMediaElement self, ToJSString kind, + ToJSString label, ToJSString language) => + self -> kind -> label -> language -> m () +addTextTrack_ self kind label language + = liftDOM + (void + ((toHTMLMediaElement self) ^. jsf "addTextTrack" + [toJSVal kind, toJSVal label, toJSVal language])) + +-- | +addTextTrackUnchecked :: + (MonadDOM m, IsHTMLMediaElement self, ToJSString kind, + ToJSString label, ToJSString language) => + self -> kind -> label -> language -> m TextTrack +addTextTrackUnchecked self kind label language + = liftDOM + (((toHTMLMediaElement self) ^. jsf "addTextTrack" + [toJSVal kind, toJSVal label, toJSVal language]) + >>= fromJSValUnchecked) + -- | getVideoPlaybackQuality :: (MonadDOM m, IsHTMLMediaElement self) => @@ -141,6 +181,23 @@ (((toHTMLMediaElement self) ^. jsf "getVideoPlaybackQuality" ()) >>= fromJSVal) +-- | +getVideoPlaybackQuality_ :: + (MonadDOM m, IsHTMLMediaElement self) => self -> m () +getVideoPlaybackQuality_ self + = liftDOM + (void + ((toHTMLMediaElement self) ^. jsf "getVideoPlaybackQuality" ())) + +-- | +getVideoPlaybackQualityUnchecked :: + (MonadDOM m, IsHTMLMediaElement self) => + self -> m VideoPlaybackQuality +getVideoPlaybackQualityUnchecked self + = liftDOM + (((toHTMLMediaElement self) ^. jsf "getVideoPlaybackQuality" ()) + >>= fromJSValUnchecked) + -- | webkitShowPlaybackTargetPicker :: (MonadDOM m, IsHTMLMediaElement self) => self -> m () @@ -166,6 +223,13 @@ getError self = liftDOM (((toHTMLMediaElement self) ^. js "error") >>= fromJSVal) +-- | +getErrorUnchecked :: + (MonadDOM m, IsHTMLMediaElement self) => self -> m MediaError +getErrorUnchecked self + = liftDOM + (((toHTMLMediaElement self) ^. js "error") >>= fromJSValUnchecked) + -- | setSrc :: (MonadDOM m, IsHTMLMediaElement self, ToJSString val) => @@ -223,6 +287,14 @@ = liftDOM (((toHTMLMediaElement self) ^. js "buffered") >>= fromJSVal) +-- | +getBufferedUnchecked :: + (MonadDOM m, IsHTMLMediaElement self) => self -> m TimeRanges +getBufferedUnchecked self + = liftDOM + (((toHTMLMediaElement self) ^. js "buffered") >>= + fromJSValUnchecked) + -- | getReadyState :: (MonadDOM m, IsHTMLMediaElement self) => self -> m Word @@ -304,6 +376,13 @@ = liftDOM (((toHTMLMediaElement self) ^. js "played") >>= fromJSVal) +-- | +getPlayedUnchecked :: + (MonadDOM m, IsHTMLMediaElement self) => self -> m TimeRanges +getPlayedUnchecked self + = liftDOM + (((toHTMLMediaElement self) ^. js "played") >>= fromJSValUnchecked) + -- | getSeekable :: (MonadDOM m, IsHTMLMediaElement self) => @@ -312,6 +391,14 @@ = liftDOM (((toHTMLMediaElement self) ^. js "seekable") >>= fromJSVal) +-- | +getSeekableUnchecked :: + (MonadDOM m, IsHTMLMediaElement self) => self -> m TimeRanges +getSeekableUnchecked self + = liftDOM + (((toHTMLMediaElement self) ^. js "seekable") >>= + fromJSValUnchecked) + -- | getEnded :: (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool getEnded self @@ -568,6 +655,14 @@ = liftDOM (((toHTMLMediaElement self) ^. js "webkitKeys") >>= fromJSVal) +-- | +getWebkitKeysUnchecked :: + (MonadDOM m, IsHTMLMediaElement self) => self -> m MediaKeys +getWebkitKeysUnchecked self + = liftDOM + (((toHTMLMediaElement self) ^. js "webkitKeys") >>= + fromJSValUnchecked) + -- | getAudioTracks :: (MonadDOM m, IsHTMLMediaElement self) => @@ -576,6 +671,14 @@ = liftDOM (((toHTMLMediaElement self) ^. js "audioTracks") >>= fromJSVal) +-- | +getAudioTracksUnchecked :: + (MonadDOM m, IsHTMLMediaElement self) => self -> m AudioTrackList +getAudioTracksUnchecked self + = liftDOM + (((toHTMLMediaElement self) ^. js "audioTracks") >>= + fromJSValUnchecked) + -- | getTextTracks :: (MonadDOM m, IsHTMLMediaElement self) => @@ -584,6 +687,14 @@ = liftDOM (((toHTMLMediaElement self) ^. js "textTracks") >>= fromJSVal) +-- | +getTextTracksUnchecked :: + (MonadDOM m, IsHTMLMediaElement self) => self -> m TextTrackList +getTextTracksUnchecked self + = liftDOM + (((toHTMLMediaElement self) ^. js "textTracks") >>= + fromJSValUnchecked) + -- | getVideoTracks :: (MonadDOM m, IsHTMLMediaElement self) => @@ -592,6 +703,14 @@ = liftDOM (((toHTMLMediaElement self) ^. js "videoTracks") >>= fromJSVal) +-- | +getVideoTracksUnchecked :: + (MonadDOM m, IsHTMLMediaElement self) => self -> m VideoTrackList +getVideoTracksUnchecked self + = liftDOM + (((toHTMLMediaElement self) ^. js "videoTracks") >>= + fromJSValUnchecked) + -- | setMediaGroup :: (MonadDOM m, IsHTMLMediaElement self, ToJSString val) => @@ -609,6 +728,15 @@ (((toHTMLMediaElement self) ^. js "mediaGroup") >>= fromMaybeJSString) +-- | +getMediaGroupUnchecked :: + (MonadDOM m, IsHTMLMediaElement self, FromJSString result) => + self -> m result +getMediaGroupUnchecked self + = liftDOM + (((toHTMLMediaElement self) ^. js "mediaGroup") >>= + fromJSValUnchecked) + -- | setController :: (MonadDOM m, IsHTMLMediaElement self) => @@ -625,6 +753,14 @@ = liftDOM (((toHTMLMediaElement self) ^. js "controller") >>= fromJSVal) +-- | +getControllerUnchecked :: + (MonadDOM m, IsHTMLMediaElement self) => self -> m MediaController +getControllerUnchecked self + = liftDOM + (((toHTMLMediaElement self) ^. js "controller") >>= + fromJSValUnchecked) + -- | getWebkitCurrentPlaybackTargetIsWireless :: (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool @@ -665,3 +801,11 @@ getSrcObject self = liftDOM (((toHTMLMediaElement self) ^. js "srcObject") >>= fromJSVal) + +-- | +getSrcObjectUnchecked :: + (MonadDOM m, IsHTMLMediaElement self) => self -> m MediaStream +getSrcObjectUnchecked self + = liftDOM + (((toHTMLMediaElement self) ^. js "srcObject") >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLMeterElement.hs b/src/JSDOM/Generated/HTMLMeterElement.hs --- a/src/JSDOM/Generated/HTMLMeterElement.hs +++ b/src/JSDOM/Generated/HTMLMeterElement.hs @@ -3,7 +3,8 @@ module JSDOM.Generated.HTMLMeterElement (setValue, getValue, setMin, getMin, setMax, getMax, setLow, getLow, setHigh, getHigh, setOptimum, getOptimum, getLabels, - HTMLMeterElement, castToHTMLMeterElement, gTypeHTMLMeterElement) + getLabelsUnchecked, HTMLMeterElement, castToHTMLMeterElement, + gTypeHTMLMeterElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -68,3 +69,9 @@ -- | getLabels :: (MonadDOM m) => HTMLMeterElement -> m (Maybe NodeList) getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal) + +-- | +getLabelsUnchecked :: + (MonadDOM m) => HTMLMeterElement -> m NodeList +getLabelsUnchecked self + = liftDOM ((self ^. js "labels") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLObjectElement.hs b/src/JSDOM/Generated/HTMLObjectElement.hs --- a/src/JSDOM/Generated/HTMLObjectElement.hs +++ b/src/JSDOM/Generated/HTMLObjectElement.hs @@ -1,14 +1,16 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLObjectElement - (checkValidity, setCustomValidity, getSVGDocument, getForm, - setCode, getCode, setAlign, getAlign, setArchive, getArchive, - setBorder, getBorder, setCodeBase, getCodeBase, setCodeType, - getCodeType, setData, getData, setDeclare, getDeclare, setHeight, - getHeight, setHspace, getHspace, setName, getName, setStandby, - getStandby, setType, getType, setUseMap, getUseMap, setVspace, - getVspace, setWidth, getWidth, getWillValidate, getValidity, - getValidationMessage, getContentDocument, HTMLObjectElement, + (checkValidity, checkValidity_, setCustomValidity, getSVGDocument, + getSVGDocument_, getSVGDocumentUnchecked, getForm, + getFormUnchecked, setCode, getCode, setAlign, getAlign, setArchive, + getArchive, setBorder, getBorder, setCodeBase, getCodeBase, + setCodeType, getCodeType, setData, getData, setDeclare, getDeclare, + setHeight, getHeight, setHspace, getHspace, setName, getName, + setStandby, getStandby, setType, getType, setUseMap, getUseMap, + setVspace, getVspace, setWidth, getWidth, getWillValidate, + getValidity, getValidityUnchecked, getValidationMessage, + getContentDocument, getContentDocumentUnchecked, HTMLObjectElement, castToHTMLObjectElement, gTypeHTMLObjectElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -28,6 +30,11 @@ checkValidity self = liftDOM ((self ^. jsf "checkValidity" ()) >>= valToBool) +-- | +checkValidity_ :: (MonadDOM m) => HTMLObjectElement -> m () +checkValidity_ self + = liftDOM (void (self ^. jsf "checkValidity" ())) + -- | setCustomValidity :: (MonadDOM m, ToJSString error) => @@ -41,11 +48,29 @@ getSVGDocument self = liftDOM ((self ^. jsf "getSVGDocument" ()) >>= fromJSVal) +-- | +getSVGDocument_ :: (MonadDOM m) => HTMLObjectElement -> m () +getSVGDocument_ self + = liftDOM (void (self ^. jsf "getSVGDocument" ())) + +-- | +getSVGDocumentUnchecked :: + (MonadDOM m) => HTMLObjectElement -> m SVGDocument +getSVGDocumentUnchecked self + = liftDOM + ((self ^. jsf "getSVGDocument" ()) >>= fromJSValUnchecked) + -- | getForm :: (MonadDOM m) => HTMLObjectElement -> m (Maybe HTMLFormElement) getForm self = liftDOM ((self ^. js "form") >>= fromJSVal) +-- | +getFormUnchecked :: + (MonadDOM m) => HTMLObjectElement -> m HTMLFormElement +getFormUnchecked self + = liftDOM ((self ^. js "form") >>= fromJSValUnchecked) + -- | setCode :: (MonadDOM m, ToJSString val) => HTMLObjectElement -> val -> m () @@ -223,6 +248,12 @@ (MonadDOM m) => HTMLObjectElement -> m (Maybe ValidityState) getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal) +-- | +getValidityUnchecked :: + (MonadDOM m) => HTMLObjectElement -> m ValidityState +getValidityUnchecked self + = liftDOM ((self ^. js "validity") >>= fromJSValUnchecked) + -- | getValidationMessage :: (MonadDOM m, FromJSString result) => HTMLObjectElement -> m result @@ -234,3 +265,9 @@ (MonadDOM m) => HTMLObjectElement -> m (Maybe Document) getContentDocument self = liftDOM ((self ^. js "contentDocument") >>= fromJSVal) + +-- | +getContentDocumentUnchecked :: + (MonadDOM m) => HTMLObjectElement -> m Document +getContentDocumentUnchecked self + = liftDOM ((self ^. js "contentDocument") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLOptionElement.hs b/src/JSDOM/Generated/HTMLOptionElement.hs --- a/src/JSDOM/Generated/HTMLOptionElement.hs +++ b/src/JSDOM/Generated/HTMLOptionElement.hs @@ -1,10 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLOptionElement - (setDisabled, getDisabled, getForm, setLabel, getLabel, - setDefaultSelected, getDefaultSelected, setSelected, getSelected, - setValue, getValue, setText, getText, getIndex, HTMLOptionElement, - castToHTMLOptionElement, gTypeHTMLOptionElement) + (setDisabled, getDisabled, getForm, getFormUnchecked, setLabel, + getLabel, setDefaultSelected, getDefaultSelected, setSelected, + getSelected, setValue, getValue, setText, getText, getIndex, + HTMLOptionElement, castToHTMLOptionElement, gTypeHTMLOptionElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -31,6 +31,12 @@ getForm :: (MonadDOM m) => HTMLOptionElement -> m (Maybe HTMLFormElement) getForm self = liftDOM ((self ^. js "form") >>= fromJSVal) + +-- | +getFormUnchecked :: + (MonadDOM m) => HTMLOptionElement -> m HTMLFormElement +getFormUnchecked self + = liftDOM ((self ^. js "form") >>= fromJSValUnchecked) -- | setLabel :: diff --git a/src/JSDOM/Generated/HTMLOptionsCollection.hs b/src/JSDOM/Generated/HTMLOptionsCollection.hs --- a/src/JSDOM/Generated/HTMLOptionsCollection.hs +++ b/src/JSDOM/Generated/HTMLOptionsCollection.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLOptionsCollection - (namedItem, addBefore, add, remove, setSelectedIndex, - getSelectedIndex, setLength, getLength, HTMLOptionsCollection, - castToHTMLOptionsCollection, gTypeHTMLOptionsCollection) + (namedItem, namedItem_, namedItemUnchecked, addBefore, add, remove, + setSelectedIndex, getSelectedIndex, setLength, getLength, + HTMLOptionsCollection, castToHTMLOptionsCollection, + gTypeHTMLOptionsCollection) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -23,6 +24,21 @@ HTMLOptionsCollection -> name -> m (Maybe Node) namedItem self name = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal) + +-- | +namedItem_ :: + (MonadDOM m, ToJSString name) => + HTMLOptionsCollection -> name -> m () +namedItem_ self name + = liftDOM (void (self ^. jsf "namedItem" [toJSVal name])) + +-- | +namedItemUnchecked :: + (MonadDOM m, ToJSString name) => + HTMLOptionsCollection -> name -> m Node +namedItemUnchecked self name + = liftDOM + ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSValUnchecked) -- | addBefore :: diff --git a/src/JSDOM/Generated/HTMLOutputElement.hs b/src/JSDOM/Generated/HTMLOutputElement.hs --- a/src/JSDOM/Generated/HTMLOutputElement.hs +++ b/src/JSDOM/Generated/HTMLOutputElement.hs @@ -1,11 +1,13 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLOutputElement - (checkValidity, setCustomValidity, getHtmlFor, getForm, setName, - getName, getType, setDefaultValue, getDefaultValue, setValue, - getValue, getWillValidate, getValidity, getValidationMessage, - getLabels, HTMLOutputElement, castToHTMLOutputElement, - gTypeHTMLOutputElement) + (checkValidity, checkValidity_, setCustomValidity, getHtmlFor, + getHtmlForUnchecked, getForm, getFormUnchecked, setName, getName, + getType, setDefaultValue, getDefaultValue, + getDefaultValueUnchecked, setValue, getValue, getValueUnchecked, + getWillValidate, getValidity, getValidityUnchecked, + getValidationMessage, getLabels, getLabelsUnchecked, + HTMLOutputElement, castToHTMLOutputElement, gTypeHTMLOutputElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -24,6 +26,11 @@ checkValidity self = liftDOM ((self ^. jsf "checkValidity" ()) >>= valToBool) +-- | +checkValidity_ :: (MonadDOM m) => HTMLOutputElement -> m () +checkValidity_ self + = liftDOM (void (self ^. jsf "checkValidity" ())) + -- | setCustomValidity :: (MonadDOM m, ToJSString error) => @@ -36,11 +43,23 @@ (MonadDOM m) => HTMLOutputElement -> m (Maybe DOMSettableTokenList) getHtmlFor self = liftDOM ((self ^. js "htmlFor") >>= fromJSVal) +-- | +getHtmlForUnchecked :: + (MonadDOM m) => HTMLOutputElement -> m DOMSettableTokenList +getHtmlForUnchecked self + = liftDOM ((self ^. js "htmlFor") >>= fromJSValUnchecked) + -- | getForm :: (MonadDOM m) => HTMLOutputElement -> m (Maybe HTMLFormElement) getForm self = liftDOM ((self ^. js "form") >>= fromJSVal) +-- | +getFormUnchecked :: + (MonadDOM m) => HTMLOutputElement -> m HTMLFormElement +getFormUnchecked self + = liftDOM ((self ^. js "form") >>= fromJSValUnchecked) + -- | setName :: (MonadDOM m, ToJSString val) => HTMLOutputElement -> val -> m () @@ -70,6 +89,12 @@ getDefaultValue self = liftDOM ((self ^. js "defaultValue") >>= fromMaybeJSString) +-- | +getDefaultValueUnchecked :: + (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result +getDefaultValueUnchecked self + = liftDOM ((self ^. js "defaultValue") >>= fromJSValUnchecked) + -- | setValue :: (MonadDOM m, ToJSString val) => @@ -83,6 +108,12 @@ getValue self = liftDOM ((self ^. js "value") >>= fromMaybeJSString) +-- | +getValueUnchecked :: + (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result +getValueUnchecked self + = liftDOM ((self ^. js "value") >>= fromJSValUnchecked) + -- | getWillValidate :: (MonadDOM m) => HTMLOutputElement -> m Bool getWillValidate self @@ -93,6 +124,12 @@ (MonadDOM m) => HTMLOutputElement -> m (Maybe ValidityState) getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal) +-- | +getValidityUnchecked :: + (MonadDOM m) => HTMLOutputElement -> m ValidityState +getValidityUnchecked self + = liftDOM ((self ^. js "validity") >>= fromJSValUnchecked) + -- | getValidationMessage :: (MonadDOM m, FromJSString result) => HTMLOutputElement -> m result @@ -103,3 +140,9 @@ getLabels :: (MonadDOM m) => HTMLOutputElement -> m (Maybe NodeList) getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal) + +-- | +getLabelsUnchecked :: + (MonadDOM m) => HTMLOutputElement -> m NodeList +getLabelsUnchecked self + = liftDOM ((self ^. js "labels") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLProgressElement.hs b/src/JSDOM/Generated/HTMLProgressElement.hs --- a/src/JSDOM/Generated/HTMLProgressElement.hs +++ b/src/JSDOM/Generated/HTMLProgressElement.hs @@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLProgressElement (setValue, getValue, setMax, getMax, getPosition, getLabels, - HTMLProgressElement, castToHTMLProgressElement, + getLabelsUnchecked, HTMLProgressElement, castToHTMLProgressElement, gTypeHTMLProgressElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -42,3 +42,9 @@ getLabels :: (MonadDOM m) => HTMLProgressElement -> m (Maybe NodeList) getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal) + +-- | +getLabelsUnchecked :: + (MonadDOM m) => HTMLProgressElement -> m NodeList +getLabelsUnchecked self + = liftDOM ((self ^. js "labels") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLScriptElement.hs b/src/JSDOM/Generated/HTMLScriptElement.hs --- a/src/JSDOM/Generated/HTMLScriptElement.hs +++ b/src/JSDOM/Generated/HTMLScriptElement.hs @@ -1,11 +1,11 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLScriptElement - (setText, getText, setHtmlFor, getHtmlFor, setEvent, getEvent, - setCharset, getCharset, setAsync, getAsync, setDefer, getDefer, - setSrc, getSrc, setType, getType, setCrossOrigin, getCrossOrigin, - setNonce, getNonce, HTMLScriptElement, castToHTMLScriptElement, - gTypeHTMLScriptElement) + (setText, getText, getTextUnchecked, setHtmlFor, getHtmlFor, + setEvent, getEvent, setCharset, getCharset, setAsync, getAsync, + setDefer, getDefer, setSrc, getSrc, setType, getType, + setCrossOrigin, getCrossOrigin, setNonce, getNonce, + HTMLScriptElement, castToHTMLScriptElement, gTypeHTMLScriptElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -30,6 +30,12 @@ (MonadDOM m, FromJSString result) => HTMLScriptElement -> m (Maybe result) getText self = liftDOM ((self ^. js "text") >>= fromMaybeJSString) + +-- | +getTextUnchecked :: + (MonadDOM m, FromJSString result) => HTMLScriptElement -> m result +getTextUnchecked self + = liftDOM ((self ^. js "text") >>= fromJSValUnchecked) -- | setHtmlFor :: diff --git a/src/JSDOM/Generated/HTMLSelectElement.hs b/src/JSDOM/Generated/HTMLSelectElement.hs --- a/src/JSDOM/Generated/HTMLSelectElement.hs +++ b/src/JSDOM/Generated/HTMLSelectElement.hs @@ -1,14 +1,18 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLSelectElement - (item, namedItem, addBefore, add, remove, checkValidity, - setCustomValidity, setAutofocus, getAutofocus, setDisabled, - getDisabled, getForm, setMultiple, getMultiple, setName, getName, - setRequired, getRequired, setSize, getSize, getType, getOptions, - setLength, getLength, getSelectedOptions, setSelectedIndex, - getSelectedIndex, setValue, getValue, getWillValidate, getValidity, - getValidationMessage, getLabels, HTMLSelectElement, - castToHTMLSelectElement, gTypeHTMLSelectElement) + (item, item_, itemUnchecked, namedItem, namedItem_, + namedItemUnchecked, addBefore, add, remove, checkValidity, + checkValidity_, setCustomValidity, setAutofocus, getAutofocus, + setDisabled, getDisabled, getForm, getFormUnchecked, setMultiple, + getMultiple, setName, getName, setRequired, getRequired, setSize, + getSize, getType, getOptions, getOptionsUnchecked, setLength, + getLength, getSelectedOptions, getSelectedOptionsUnchecked, + setSelectedIndex, getSelectedIndex, setValue, getValue, + getValueUnchecked, getWillValidate, getValidity, + getValidityUnchecked, getValidationMessage, getLabels, + getLabelsUnchecked, HTMLSelectElement, castToHTMLSelectElement, + gTypeHTMLSelectElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -27,6 +31,18 @@ item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) +-- | +item_ :: (MonadDOM m) => HTMLSelectElement -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m) => HTMLSelectElement -> Word -> m Node +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) + -- | namedItem :: (MonadDOM m, ToJSString name) => @@ -34,6 +50,20 @@ namedItem self name = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal) +-- | +namedItem_ :: + (MonadDOM m, ToJSString name) => HTMLSelectElement -> name -> m () +namedItem_ self name + = liftDOM (void (self ^. jsf "namedItem" [toJSVal name])) + +-- | +namedItemUnchecked :: + (MonadDOM m, ToJSString name) => + HTMLSelectElement -> name -> m Node +namedItemUnchecked self name + = liftDOM + ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSValUnchecked) + -- | addBefore :: (MonadDOM m, IsHTMLElement element, IsHTMLElement before) => @@ -59,6 +89,11 @@ checkValidity self = liftDOM ((self ^. jsf "checkValidity" ()) >>= valToBool) +-- | +checkValidity_ :: (MonadDOM m) => HTMLSelectElement -> m () +checkValidity_ self + = liftDOM (void (self ^. jsf "checkValidity" ())) + -- | setCustomValidity :: (MonadDOM m, ToJSString error) => @@ -90,6 +125,12 @@ (MonadDOM m) => HTMLSelectElement -> m (Maybe HTMLFormElement) getForm self = liftDOM ((self ^. js "form") >>= fromJSVal) +-- | +getFormUnchecked :: + (MonadDOM m) => HTMLSelectElement -> m HTMLFormElement +getFormUnchecked self + = liftDOM ((self ^. js "form") >>= fromJSValUnchecked) + -- | setMultiple :: (MonadDOM m) => HTMLSelectElement -> Bool -> m () setMultiple self val @@ -138,6 +179,12 @@ HTMLSelectElement -> m (Maybe HTMLOptionsCollection) getOptions self = liftDOM ((self ^. js "options") >>= fromJSVal) +-- | +getOptionsUnchecked :: + (MonadDOM m) => HTMLSelectElement -> m HTMLOptionsCollection +getOptionsUnchecked self + = liftDOM ((self ^. js "options") >>= fromJSValUnchecked) + -- | setLength :: (MonadDOM m) => HTMLSelectElement -> Word -> m () setLength self val = liftDOM (self ^. jss "length" (toJSVal val)) @@ -153,6 +200,12 @@ getSelectedOptions self = liftDOM ((self ^. js "selectedOptions") >>= fromJSVal) +-- | +getSelectedOptionsUnchecked :: + (MonadDOM m) => HTMLSelectElement -> m HTMLCollection +getSelectedOptionsUnchecked self + = liftDOM ((self ^. js "selectedOptions") >>= fromJSValUnchecked) + -- | setSelectedIndex :: (MonadDOM m) => HTMLSelectElement -> Int -> m () @@ -178,6 +231,12 @@ getValue self = liftDOM ((self ^. js "value") >>= fromMaybeJSString) +-- | +getValueUnchecked :: + (MonadDOM m, FromJSString result) => HTMLSelectElement -> m result +getValueUnchecked self + = liftDOM ((self ^. js "value") >>= fromJSValUnchecked) + -- | getWillValidate :: (MonadDOM m) => HTMLSelectElement -> m Bool getWillValidate self @@ -188,6 +247,12 @@ (MonadDOM m) => HTMLSelectElement -> m (Maybe ValidityState) getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal) +-- | +getValidityUnchecked :: + (MonadDOM m) => HTMLSelectElement -> m ValidityState +getValidityUnchecked self + = liftDOM ((self ^. js "validity") >>= fromJSValUnchecked) + -- | getValidationMessage :: (MonadDOM m, FromJSString result) => HTMLSelectElement -> m result @@ -198,3 +263,9 @@ getLabels :: (MonadDOM m) => HTMLSelectElement -> m (Maybe NodeList) getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal) + +-- | +getLabelsUnchecked :: + (MonadDOM m) => HTMLSelectElement -> m NodeList +getLabelsUnchecked self + = liftDOM ((self ^. js "labels") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLStyleElement.hs b/src/JSDOM/Generated/HTMLStyleElement.hs --- a/src/JSDOM/Generated/HTMLStyleElement.hs +++ b/src/JSDOM/Generated/HTMLStyleElement.hs @@ -2,8 +2,8 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLStyleElement (setDisabled, getDisabled, setMedia, getMedia, setType, getType, - getSheet, HTMLStyleElement, castToHTMLStyleElement, - gTypeHTMLStyleElement) + getSheet, getSheetUnchecked, HTMLStyleElement, + castToHTMLStyleElement, gTypeHTMLStyleElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -51,3 +51,9 @@ getSheet :: (MonadDOM m) => HTMLStyleElement -> m (Maybe StyleSheet) getSheet self = liftDOM ((self ^. js "sheet") >>= fromJSVal) + +-- | +getSheetUnchecked :: + (MonadDOM m) => HTMLStyleElement -> m StyleSheet +getSheetUnchecked self + = liftDOM ((self ^. js "sheet") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLTableElement.hs b/src/JSDOM/Generated/HTMLTableElement.hs --- a/src/JSDOM/Generated/HTMLTableElement.hs +++ b/src/JSDOM/Generated/HTMLTableElement.hs @@ -1,14 +1,18 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLTableElement - (createTHead, deleteTHead, createTFoot, deleteTFoot, createTBody, - createCaption, deleteCaption, insertRow, deleteRow, setCaption, - getCaption, setTHead, getTHead, setTFoot, getTFoot, getRows, - getTBodies, setAlign, getAlign, setBgColor, getBgColor, setBorder, - getBorder, setCellPadding, getCellPadding, setCellSpacing, - getCellSpacing, setFrame, getFrame, setRules, getRules, setSummary, - getSummary, setWidth, getWidth, HTMLTableElement, - castToHTMLTableElement, gTypeHTMLTableElement) + (createTHead, createTHead_, createTHeadUnchecked, deleteTHead, + createTFoot, createTFoot_, createTFootUnchecked, deleteTFoot, + createTBody, createTBody_, createTBodyUnchecked, createCaption, + createCaption_, createCaptionUnchecked, deleteCaption, insertRow, + insertRow_, insertRowUnchecked, deleteRow, setCaption, getCaption, + getCaptionUnchecked, setTHead, getTHead, getTHeadUnchecked, + setTFoot, getTFoot, getTFootUnchecked, getRows, getRowsUnchecked, + getTBodies, getTBodiesUnchecked, setAlign, getAlign, setBgColor, + getBgColor, setBorder, getBorder, setCellPadding, getCellPadding, + setCellSpacing, getCellSpacing, setFrame, getFrame, setRules, + getRules, setSummary, getSummary, setWidth, getWidth, + HTMLTableElement, castToHTMLTableElement, gTypeHTMLTableElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -28,6 +32,16 @@ createTHead self = liftDOM ((self ^. jsf "createTHead" ()) >>= fromJSVal) +-- | +createTHead_ :: (MonadDOM m) => HTMLTableElement -> m () +createTHead_ self = liftDOM (void (self ^. jsf "createTHead" ())) + +-- | +createTHeadUnchecked :: + (MonadDOM m) => HTMLTableElement -> m HTMLElement +createTHeadUnchecked self + = liftDOM ((self ^. jsf "createTHead" ()) >>= fromJSValUnchecked) + -- | deleteTHead :: (MonadDOM m) => HTMLTableElement -> m () deleteTHead self = liftDOM (void (self ^. jsf "deleteTHead" ())) @@ -38,6 +52,16 @@ createTFoot self = liftDOM ((self ^. jsf "createTFoot" ()) >>= fromJSVal) +-- | +createTFoot_ :: (MonadDOM m) => HTMLTableElement -> m () +createTFoot_ self = liftDOM (void (self ^. jsf "createTFoot" ())) + +-- | +createTFootUnchecked :: + (MonadDOM m) => HTMLTableElement -> m HTMLElement +createTFootUnchecked self + = liftDOM ((self ^. jsf "createTFoot" ()) >>= fromJSValUnchecked) + -- | deleteTFoot :: (MonadDOM m) => HTMLTableElement -> m () deleteTFoot self = liftDOM (void (self ^. jsf "deleteTFoot" ())) @@ -48,12 +72,33 @@ createTBody self = liftDOM ((self ^. jsf "createTBody" ()) >>= fromJSVal) +-- | +createTBody_ :: (MonadDOM m) => HTMLTableElement -> m () +createTBody_ self = liftDOM (void (self ^. jsf "createTBody" ())) + +-- | +createTBodyUnchecked :: + (MonadDOM m) => HTMLTableElement -> m HTMLElement +createTBodyUnchecked self + = liftDOM ((self ^. jsf "createTBody" ()) >>= fromJSValUnchecked) + -- | createCaption :: (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLElement) createCaption self = liftDOM ((self ^. jsf "createCaption" ()) >>= fromJSVal) +-- | +createCaption_ :: (MonadDOM m) => HTMLTableElement -> m () +createCaption_ self + = liftDOM (void (self ^. jsf "createCaption" ())) + +-- | +createCaptionUnchecked :: + (MonadDOM m) => HTMLTableElement -> m HTMLElement +createCaptionUnchecked self + = liftDOM ((self ^. jsf "createCaption" ()) >>= fromJSValUnchecked) + -- | deleteCaption :: (MonadDOM m) => HTMLTableElement -> m () deleteCaption self @@ -65,6 +110,18 @@ insertRow self index = liftDOM ((self ^. jsf "insertRow" [toJSVal index]) >>= fromJSVal) +-- | +insertRow_ :: (MonadDOM m) => HTMLTableElement -> Int -> m () +insertRow_ self index + = liftDOM (void (self ^. jsf "insertRow" [toJSVal index])) + +-- | +insertRowUnchecked :: + (MonadDOM m) => HTMLTableElement -> Int -> m HTMLElement +insertRowUnchecked self index + = liftDOM + ((self ^. jsf "insertRow" [toJSVal index]) >>= fromJSValUnchecked) + -- | deleteRow :: (MonadDOM m) => HTMLTableElement -> Int -> m () deleteRow self index @@ -82,6 +139,12 @@ HTMLTableElement -> m (Maybe HTMLTableCaptionElement) getCaption self = liftDOM ((self ^. js "caption") >>= fromJSVal) +-- | +getCaptionUnchecked :: + (MonadDOM m) => HTMLTableElement -> m HTMLTableCaptionElement +getCaptionUnchecked self + = liftDOM ((self ^. js "caption") >>= fromJSValUnchecked) + -- | setTHead :: (MonadDOM m) => @@ -94,6 +157,12 @@ HTMLTableElement -> m (Maybe HTMLTableSectionElement) getTHead self = liftDOM ((self ^. js "tHead") >>= fromJSVal) +-- | +getTHeadUnchecked :: + (MonadDOM m) => HTMLTableElement -> m HTMLTableSectionElement +getTHeadUnchecked self + = liftDOM ((self ^. js "tHead") >>= fromJSValUnchecked) + -- | setTFoot :: (MonadDOM m) => @@ -106,15 +175,33 @@ HTMLTableElement -> m (Maybe HTMLTableSectionElement) getTFoot self = liftDOM ((self ^. js "tFoot") >>= fromJSVal) +-- | +getTFootUnchecked :: + (MonadDOM m) => HTMLTableElement -> m HTMLTableSectionElement +getTFootUnchecked self + = liftDOM ((self ^. js "tFoot") >>= fromJSValUnchecked) + -- | getRows :: (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLCollection) getRows self = liftDOM ((self ^. js "rows") >>= fromJSVal) +-- | +getRowsUnchecked :: + (MonadDOM m) => HTMLTableElement -> m HTMLCollection +getRowsUnchecked self + = liftDOM ((self ^. js "rows") >>= fromJSValUnchecked) + -- | getTBodies :: (MonadDOM m) => HTMLTableElement -> m (Maybe HTMLCollection) getTBodies self = liftDOM ((self ^. js "tBodies") >>= fromJSVal) + +-- | +getTBodiesUnchecked :: + (MonadDOM m) => HTMLTableElement -> m HTMLCollection +getTBodiesUnchecked self + = liftDOM ((self ^. js "tBodies") >>= fromJSValUnchecked) -- | setAlign :: diff --git a/src/JSDOM/Generated/HTMLTableRowElement.hs b/src/JSDOM/Generated/HTMLTableRowElement.hs --- a/src/JSDOM/Generated/HTMLTableRowElement.hs +++ b/src/JSDOM/Generated/HTMLTableRowElement.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLTableRowElement - (insertCell, deleteCell, getRowIndex, getSectionRowIndex, getCells, + (insertCell, insertCell_, insertCellUnchecked, deleteCell, + getRowIndex, getSectionRowIndex, getCells, getCellsUnchecked, setAlign, getAlign, setBgColor, getBgColor, setCh, getCh, setChOff, getChOff, setVAlign, getVAlign, HTMLTableRowElement, castToHTMLTableRowElement, gTypeHTMLTableRowElement) @@ -25,6 +26,18 @@ = liftDOM ((self ^. jsf "insertCell" [toJSVal index]) >>= fromJSVal) +-- | +insertCell_ :: (MonadDOM m) => HTMLTableRowElement -> Int -> m () +insertCell_ self index + = liftDOM (void (self ^. jsf "insertCell" [toJSVal index])) + +-- | +insertCellUnchecked :: + (MonadDOM m) => HTMLTableRowElement -> Int -> m HTMLElement +insertCellUnchecked self index + = liftDOM + ((self ^. jsf "insertCell" [toJSVal index]) >>= fromJSValUnchecked) + -- | deleteCell :: (MonadDOM m) => HTMLTableRowElement -> Int -> m () deleteCell self index @@ -45,6 +58,12 @@ getCells :: (MonadDOM m) => HTMLTableRowElement -> m (Maybe HTMLCollection) getCells self = liftDOM ((self ^. js "cells") >>= fromJSVal) + +-- | +getCellsUnchecked :: + (MonadDOM m) => HTMLTableRowElement -> m HTMLCollection +getCellsUnchecked self + = liftDOM ((self ^. js "cells") >>= fromJSValUnchecked) -- | setAlign :: diff --git a/src/JSDOM/Generated/HTMLTableSectionElement.hs b/src/JSDOM/Generated/HTMLTableSectionElement.hs --- a/src/JSDOM/Generated/HTMLTableSectionElement.hs +++ b/src/JSDOM/Generated/HTMLTableSectionElement.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLTableSectionElement - (insertRow, deleteRow, setAlign, getAlign, setCh, getCh, setChOff, - getChOff, setVAlign, getVAlign, getRows, HTMLTableSectionElement, + (insertRow, insertRow_, insertRowUnchecked, deleteRow, setAlign, + getAlign, setCh, getCh, setChOff, getChOff, setVAlign, getVAlign, + getRows, getRowsUnchecked, HTMLTableSectionElement, castToHTMLTableSectionElement, gTypeHTMLTableSectionElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -24,6 +25,19 @@ insertRow self index = liftDOM ((self ^. jsf "insertRow" [toJSVal index]) >>= fromJSVal) +-- | +insertRow_ :: + (MonadDOM m) => HTMLTableSectionElement -> Int -> m () +insertRow_ self index + = liftDOM (void (self ^. jsf "insertRow" [toJSVal index])) + +-- | +insertRowUnchecked :: + (MonadDOM m) => HTMLTableSectionElement -> Int -> m HTMLElement +insertRowUnchecked self index + = liftDOM + ((self ^. jsf "insertRow" [toJSVal index]) >>= fromJSValUnchecked) + -- | deleteRow :: (MonadDOM m) => HTMLTableSectionElement -> Int -> m () deleteRow self index @@ -84,3 +98,9 @@ getRows :: (MonadDOM m) => HTMLTableSectionElement -> m (Maybe HTMLCollection) getRows self = liftDOM ((self ^. js "rows") >>= fromJSVal) + +-- | +getRowsUnchecked :: + (MonadDOM m) => HTMLTableSectionElement -> m HTMLCollection +getRowsUnchecked self + = liftDOM ((self ^. js "rows") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLTemplateElement.hs b/src/JSDOM/Generated/HTMLTemplateElement.hs --- a/src/JSDOM/Generated/HTMLTemplateElement.hs +++ b/src/JSDOM/Generated/HTMLTemplateElement.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLTemplateElement - (getContent, HTMLTemplateElement, castToHTMLTemplateElement, - gTypeHTMLTemplateElement) + (getContent, getContentUnchecked, HTMLTemplateElement, + castToHTMLTemplateElement, gTypeHTMLTemplateElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,3 +20,9 @@ getContent :: (MonadDOM m) => HTMLTemplateElement -> m (Maybe DocumentFragment) getContent self = liftDOM ((self ^. js "content") >>= fromJSVal) + +-- | +getContentUnchecked :: + (MonadDOM m) => HTMLTemplateElement -> m DocumentFragment +getContentUnchecked self + = liftDOM ((self ^. js "content") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLTextAreaElement.hs b/src/JSDOM/Generated/HTMLTextAreaElement.hs --- a/src/JSDOM/Generated/HTMLTextAreaElement.hs +++ b/src/JSDOM/Generated/HTMLTextAreaElement.hs @@ -1,18 +1,21 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLTextAreaElement - (checkValidity, setCustomValidity, select, setRangeText, - setRangeText4, setSelectionRange, setAutofocus, getAutofocus, - setCols, getCols, setDirName, getDirName, setDisabled, getDisabled, - getForm, setMaxLength, getMaxLength, setName, getName, - setPlaceholder, getPlaceholder, setReadOnly, getReadOnly, - setRequired, getRequired, setRows, getRows, setWrap, getWrap, - getType, setDefaultValue, getDefaultValue, setValue, getValue, - getTextLength, getWillValidate, getValidity, getValidationMessage, - getLabels, setSelectionStart, getSelectionStart, setSelectionEnd, - getSelectionEnd, setSelectionDirection, getSelectionDirection, - setAutocorrect, getAutocorrect, setAutocapitalize, - getAutocapitalize, HTMLTextAreaElement, castToHTMLTextAreaElement, + (checkValidity, checkValidity_, setCustomValidity, select, + setRangeText, setRangeText4, setSelectionRange, setAutofocus, + getAutofocus, setCols, getCols, setDirName, getDirName, + setDisabled, getDisabled, getForm, getFormUnchecked, setMaxLength, + getMaxLength, setName, getName, setPlaceholder, getPlaceholder, + setReadOnly, getReadOnly, setRequired, getRequired, setRows, + getRows, setWrap, getWrap, getType, setDefaultValue, + getDefaultValue, getDefaultValueUnchecked, setValue, getValue, + getValueUnchecked, getTextLength, getWillValidate, getValidity, + getValidityUnchecked, getValidationMessage, getLabels, + getLabelsUnchecked, setSelectionStart, getSelectionStart, + setSelectionEnd, getSelectionEnd, setSelectionDirection, + getSelectionDirection, setAutocorrect, getAutocorrect, + setAutocapitalize, getAutocapitalize, getAutocapitalizeUnchecked, + HTMLTextAreaElement, castToHTMLTextAreaElement, gTypeHTMLTextAreaElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -32,6 +35,11 @@ checkValidity self = liftDOM ((self ^. jsf "checkValidity" ()) >>= valToBool) +-- | +checkValidity_ :: (MonadDOM m) => HTMLTextAreaElement -> m () +checkValidity_ self + = liftDOM (void (self ^. jsf "checkValidity" ())) + -- | setCustomValidity :: (MonadDOM m, ToJSString error) => @@ -117,6 +125,12 @@ (MonadDOM m) => HTMLTextAreaElement -> m (Maybe HTMLFormElement) getForm self = liftDOM ((self ^. js "form") >>= fromJSVal) +-- | +getFormUnchecked :: + (MonadDOM m) => HTMLTextAreaElement -> m HTMLFormElement +getFormUnchecked self + = liftDOM ((self ^. js "form") >>= fromJSValUnchecked) + -- | setMaxLength :: (MonadDOM m) => HTMLTextAreaElement -> Int -> m () setMaxLength self val @@ -209,6 +223,13 @@ getDefaultValue self = liftDOM ((self ^. js "defaultValue") >>= fromMaybeJSString) +-- | +getDefaultValueUnchecked :: + (MonadDOM m, FromJSString result) => + HTMLTextAreaElement -> m result +getDefaultValueUnchecked self + = liftDOM ((self ^. js "defaultValue") >>= fromJSValUnchecked) + -- | setValue :: (MonadDOM m, ToJSString val) => @@ -222,6 +243,13 @@ getValue self = liftDOM ((self ^. js "value") >>= fromMaybeJSString) +-- | +getValueUnchecked :: + (MonadDOM m, FromJSString result) => + HTMLTextAreaElement -> m result +getValueUnchecked self + = liftDOM ((self ^. js "value") >>= fromJSValUnchecked) + -- | getTextLength :: (MonadDOM m) => HTMLTextAreaElement -> m Word getTextLength self @@ -237,6 +265,12 @@ (MonadDOM m) => HTMLTextAreaElement -> m (Maybe ValidityState) getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal) +-- | +getValidityUnchecked :: + (MonadDOM m) => HTMLTextAreaElement -> m ValidityState +getValidityUnchecked self + = liftDOM ((self ^. js "validity") >>= fromJSValUnchecked) + -- | getValidationMessage :: (MonadDOM m, FromJSString result) => @@ -249,6 +283,12 @@ (MonadDOM m) => HTMLTextAreaElement -> m (Maybe NodeList) getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal) +-- | +getLabelsUnchecked :: + (MonadDOM m) => HTMLTextAreaElement -> m NodeList +getLabelsUnchecked self + = liftDOM ((self ^. js "labels") >>= fromJSValUnchecked) + -- | setSelectionStart :: (MonadDOM m) => HTMLTextAreaElement -> Int -> m () @@ -310,3 +350,10 @@ HTMLTextAreaElement -> m (Maybe result) getAutocapitalize self = liftDOM ((self ^. js "autocapitalize") >>= fromMaybeJSString) + +-- | +getAutocapitalizeUnchecked :: + (MonadDOM m, FromJSString result) => + HTMLTextAreaElement -> m result +getAutocapitalizeUnchecked self + = liftDOM ((self ^. js "autocapitalize") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLTitleElement.hs b/src/JSDOM/Generated/HTMLTitleElement.hs --- a/src/JSDOM/Generated/HTMLTitleElement.hs +++ b/src/JSDOM/Generated/HTMLTitleElement.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLTitleElement - (setText, getText, HTMLTitleElement, castToHTMLTitleElement, - gTypeHTMLTitleElement) + (setText, getText, getTextUnchecked, HTMLTitleElement, + castToHTMLTitleElement, gTypeHTMLTitleElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -27,3 +27,9 @@ (MonadDOM m, FromJSString result) => HTMLTitleElement -> m (Maybe result) getText self = liftDOM ((self ^. js "text") >>= fromMaybeJSString) + +-- | +getTextUnchecked :: + (MonadDOM m, FromJSString result) => HTMLTitleElement -> m result +getTextUnchecked self + = liftDOM ((self ^. js "text") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLTrackElement.hs b/src/JSDOM/Generated/HTMLTrackElement.hs --- a/src/JSDOM/Generated/HTMLTrackElement.hs +++ b/src/JSDOM/Generated/HTMLTrackElement.hs @@ -4,7 +4,8 @@ (pattern NONE, pattern LOADING, pattern LOADED, pattern ERROR, setKind, getKind, setSrc, getSrc, setSrclang, getSrclang, setLabel, getLabel, setDefault, getDefault, getReadyState, getTrack, - HTMLTrackElement, castToHTMLTrackElement, gTypeHTMLTrackElement) + getTrackUnchecked, HTMLTrackElement, castToHTMLTrackElement, + gTypeHTMLTrackElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -80,3 +81,9 @@ -- | getTrack :: (MonadDOM m) => HTMLTrackElement -> m (Maybe TextTrack) getTrack self = liftDOM ((self ^. js "track") >>= fromJSVal) + +-- | +getTrackUnchecked :: + (MonadDOM m) => HTMLTrackElement -> m TextTrack +getTrackUnchecked self + = liftDOM ((self ^. js "track") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/HTMLVideoElement.hs b/src/JSDOM/Generated/HTMLVideoElement.hs --- a/src/JSDOM/Generated/HTMLVideoElement.hs +++ b/src/JSDOM/Generated/HTMLVideoElement.hs @@ -3,10 +3,10 @@ module JSDOM.Generated.HTMLVideoElement (webkitEnterFullscreen, webkitExitFullscreen, webkitEnterFullScreen, webkitExitFullScreen, - webkitSupportsPresentationMode, webkitSetPresentationMode, - setWidth, getWidth, setHeight, getHeight, getVideoWidth, - getVideoHeight, setPoster, getPoster, getWebkitSupportsFullscreen, - getWebkitDisplayingFullscreen, + webkitSupportsPresentationMode, webkitSupportsPresentationMode_, + webkitSetPresentationMode, setWidth, getWidth, setHeight, + getHeight, getVideoWidth, getVideoHeight, setPoster, getPoster, + getWebkitSupportsFullscreen, getWebkitDisplayingFullscreen, setWebkitWirelessVideoPlaybackDisabled, getWebkitWirelessVideoPlaybackDisabled, getWebkitDecodedFrameCount, getWebkitDroppedFrameCount, getWebkitPresentationMode, @@ -52,6 +52,14 @@ = liftDOM ((self ^. jsf "webkitSupportsPresentationMode" [toJSVal mode]) >>= valToBool) + +-- | +webkitSupportsPresentationMode_ :: + (MonadDOM m) => HTMLVideoElement -> VideoPresentationMode -> m () +webkitSupportsPresentationMode_ self mode + = liftDOM + (void + (self ^. jsf "webkitSupportsPresentationMode" [toJSVal mode])) -- | webkitSetPresentationMode :: diff --git a/src/JSDOM/Generated/History.hs b/src/JSDOM/Generated/History.hs --- a/src/JSDOM/Generated/History.hs +++ b/src/JSDOM/Generated/History.hs @@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.History (back, forward, go, pushState, replaceState, getLength, getState, - History, castToHistory, gTypeHistory) + getStateUnchecked, History, castToHistory, gTypeHistory) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -58,3 +58,9 @@ getState :: (MonadDOM m) => History -> m (Maybe SerializedScriptValue) getState self = liftDOM ((self ^. js "state") >>= fromJSVal) + +-- | +getStateUnchecked :: + (MonadDOM m) => History -> m SerializedScriptValue +getStateUnchecked self + = liftDOM ((self ^. js "state") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/IDBCursor.hs b/src/JSDOM/Generated/IDBCursor.hs --- a/src/JSDOM/Generated/IDBCursor.hs +++ b/src/JSDOM/Generated/IDBCursor.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.IDBCursor - (update, advance, continue, delete, getSource, getDirection, - getKey, getPrimaryKey, IDBCursor, castToIDBCursor, gTypeIDBCursor, - IsIDBCursor, toIDBCursor) + (update, update_, updateUnchecked, advance, continue, delete, + delete_, deleteUnchecked, getSource, getSourceUnchecked, + getDirection, getKey, getPrimaryKey, IDBCursor, castToIDBCursor, + gTypeIDBCursor, IsIDBCursor, toIDBCursor) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -26,6 +27,20 @@ (((toIDBCursor self) ^. jsf "update" [toJSVal value]) >>= fromJSVal) +-- | +update_ :: (MonadDOM m, IsIDBCursor self) => self -> JSVal -> m () +update_ self value + = liftDOM + (void ((toIDBCursor self) ^. jsf "update" [toJSVal value])) + +-- | +updateUnchecked :: + (MonadDOM m, IsIDBCursor self) => self -> JSVal -> m IDBRequest +updateUnchecked self value + = liftDOM + (((toIDBCursor self) ^. jsf "update" [toJSVal value]) >>= + fromJSValUnchecked) + -- | advance :: (MonadDOM m, IsIDBCursor self) => self -> Word -> m () advance self count @@ -44,11 +59,30 @@ delete self = liftDOM (((toIDBCursor self) ^. jsf "delete" ()) >>= fromJSVal) +-- | +delete_ :: (MonadDOM m, IsIDBCursor self) => self -> m () +delete_ self + = liftDOM (void ((toIDBCursor self) ^. jsf "delete" ())) + +-- | +deleteUnchecked :: + (MonadDOM m, IsIDBCursor self) => self -> m IDBRequest +deleteUnchecked self + = liftDOM + (((toIDBCursor self) ^. jsf "delete" ()) >>= fromJSValUnchecked) + -- | getSource :: (MonadDOM m, IsIDBCursor self) => self -> m (Maybe IDBAny) getSource self = liftDOM (((toIDBCursor self) ^. js "source") >>= fromJSVal) + +-- | +getSourceUnchecked :: + (MonadDOM m, IsIDBCursor self) => self -> m IDBAny +getSourceUnchecked self + = liftDOM + (((toIDBCursor self) ^. js "source") >>= fromJSValUnchecked) -- | getDirection :: diff --git a/src/JSDOM/Generated/IDBDatabase.hs b/src/JSDOM/Generated/IDBDatabase.hs --- a/src/JSDOM/Generated/IDBDatabase.hs +++ b/src/JSDOM/Generated/IDBDatabase.hs @@ -1,9 +1,12 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.IDBDatabase - (createObjectStore, deleteObjectStore, transaction, transaction', - close, getName, getVersion, getObjectStoreNames, abort, error, - versionChange, IDBDatabase, castToIDBDatabase, gTypeIDBDatabase) + (createObjectStore, createObjectStore_, createObjectStoreUnchecked, + deleteObjectStore, transaction, transaction_, transactionUnchecked, + transaction', transaction'_, transaction'Unchecked, close, getName, + getVersion, getObjectStoreNames, getObjectStoreNamesUnchecked, + abort, error, versionChange, IDBDatabase, castToIDBDatabase, + gTypeIDBDatabase) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -26,6 +29,24 @@ ((self ^. jsf "createObjectStore" [toJSVal name, toJSVal options]) >>= fromJSVal) +-- | +createObjectStore_ :: + (MonadDOM m, ToJSString name, IsDictionary options) => + IDBDatabase -> name -> Maybe options -> m () +createObjectStore_ self name options + = liftDOM + (void + (self ^. jsf "createObjectStore" [toJSVal name, toJSVal options])) + +-- | +createObjectStoreUnchecked :: + (MonadDOM m, ToJSString name, IsDictionary options) => + IDBDatabase -> name -> Maybe options -> m IDBObjectStore +createObjectStoreUnchecked self name options + = liftDOM + ((self ^. jsf "createObjectStore" [toJSVal name, toJSVal options]) + >>= fromJSValUnchecked) + -- | deleteObjectStore :: (MonadDOM m, ToJSString name) => IDBDatabase -> name -> m () @@ -42,6 +63,24 @@ fromJSVal) -- | +transaction_ :: + (MonadDOM m, ToJSString storeName, ToJSString mode) => + IDBDatabase -> storeName -> mode -> m () +transaction_ self storeName mode + = liftDOM + (void + (self ^. jsf "transaction" [toJSVal storeName, toJSVal mode])) + +-- | +transactionUnchecked :: + (MonadDOM m, ToJSString storeName, ToJSString mode) => + IDBDatabase -> storeName -> mode -> m IDBTransaction +transactionUnchecked self storeName mode + = liftDOM + ((self ^. jsf "transaction" [toJSVal storeName, toJSVal mode]) >>= + fromJSValUnchecked) + +-- | transaction' :: (MonadDOM m, ToJSString storeNames, ToJSString mode) => IDBDatabase -> [storeNames] -> mode -> m (Maybe IDBTransaction) @@ -51,6 +90,26 @@ [toJSVal (array storeNames), toJSVal mode]) >>= fromJSVal) +-- | +transaction'_ :: + (MonadDOM m, ToJSString storeNames, ToJSString mode) => + IDBDatabase -> [storeNames] -> mode -> m () +transaction'_ self storeNames mode + = liftDOM + (void + (self ^. jsf "transaction" + [toJSVal (array storeNames), toJSVal mode])) + +-- | +transaction'Unchecked :: + (MonadDOM m, ToJSString storeNames, ToJSString mode) => + IDBDatabase -> [storeNames] -> mode -> m IDBTransaction +transaction'Unchecked self storeNames mode + = liftDOM + ((self ^. jsf "transaction" + [toJSVal (array storeNames), toJSVal mode]) + >>= fromJSValUnchecked) + -- | close :: (MonadDOM m) => IDBDatabase -> m () close self = liftDOM (void (self ^. jsf "close" ())) @@ -70,6 +129,12 @@ (MonadDOM m) => IDBDatabase -> m (Maybe DOMStringList) getObjectStoreNames self = liftDOM ((self ^. js "objectStoreNames") >>= fromJSVal) + +-- | +getObjectStoreNamesUnchecked :: + (MonadDOM m) => IDBDatabase -> m DOMStringList +getObjectStoreNamesUnchecked self + = liftDOM ((self ^. js "objectStoreNames") >>= fromJSValUnchecked) -- | abort :: EventName IDBDatabase Event diff --git a/src/JSDOM/Generated/IDBFactory.hs b/src/JSDOM/Generated/IDBFactory.hs --- a/src/JSDOM/Generated/IDBFactory.hs +++ b/src/JSDOM/Generated/IDBFactory.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.IDBFactory - (open, deleteDatabase, cmp, IDBFactory, castToIDBFactory, + (open, open_, openUnchecked, deleteDatabase, deleteDatabase_, + deleteDatabaseUnchecked, cmp, cmp_, IDBFactory, castToIDBFactory, gTypeIDBFactory) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -25,6 +26,23 @@ ((self ^. jsf "open" [toJSVal name, toJSVal version]) >>= fromJSVal) +-- | +open_ :: + (MonadDOM m, ToJSString name) => + IDBFactory -> name -> Word64 -> m () +open_ self name version + = liftDOM + (void (self ^. jsf "open" [toJSVal name, toJSVal version])) + +-- | +openUnchecked :: + (MonadDOM m, ToJSString name) => + IDBFactory -> name -> Word64 -> m IDBOpenDBRequest +openUnchecked self name version + = liftDOM + ((self ^. jsf "open" [toJSVal name, toJSVal version]) >>= + fromJSValUnchecked) + -- | deleteDatabase :: (MonadDOM m, ToJSString name) => @@ -33,6 +51,21 @@ = liftDOM ((self ^. jsf "deleteDatabase" [toJSVal name]) >>= fromJSVal) +-- | +deleteDatabase_ :: + (MonadDOM m, ToJSString name) => IDBFactory -> name -> m () +deleteDatabase_ self name + = liftDOM (void (self ^. jsf "deleteDatabase" [toJSVal name])) + +-- | +deleteDatabaseUnchecked :: + (MonadDOM m, ToJSString name) => + IDBFactory -> name -> m IDBOpenDBRequest +deleteDatabaseUnchecked self name + = liftDOM + ((self ^. jsf "deleteDatabase" [toJSVal name]) >>= + fromJSValUnchecked) + -- | cmp :: (MonadDOM m) => IDBFactory -> JSVal -> JSVal -> m Int cmp self first second @@ -40,3 +73,9 @@ (round <$> ((self ^. jsf "cmp" [toJSVal first, toJSVal second]) >>= valToNumber)) + +-- | +cmp_ :: (MonadDOM m) => IDBFactory -> JSVal -> JSVal -> m () +cmp_ self first second + = liftDOM + (void (self ^. jsf "cmp" [toJSVal first, toJSVal second])) diff --git a/src/JSDOM/Generated/IDBIndex.hs b/src/JSDOM/Generated/IDBIndex.hs --- a/src/JSDOM/Generated/IDBIndex.hs +++ b/src/JSDOM/Generated/IDBIndex.hs @@ -1,10 +1,16 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.IDBIndex - (openCursorRange, openCursor, openKeyCursorRange, openKeyCursor, - getRange, get, getKeyRange, getKey, countRange, count, getName, - getObjectStore, getKeyPath, getMultiEntry, getUnique, IDBIndex, - castToIDBIndex, gTypeIDBIndex) + (openCursorRange, openCursorRange_, openCursorRangeUnchecked, + openCursor, openCursor_, openCursorUnchecked, openKeyCursorRange, + openKeyCursorRange_, openKeyCursorRangeUnchecked, openKeyCursor, + openKeyCursor_, openKeyCursorUnchecked, getRange, getRange_, + getRangeUnchecked, get, get_, getUnchecked, getKeyRange, + getKeyRange_, getKeyRangeUnchecked, getKey, getKey_, + getKeyUnchecked, countRange, countRange_, countRangeUnchecked, + count, count_, countUnchecked, getName, getObjectStore, + getObjectStoreUnchecked, getKeyPath, getKeyPathUnchecked, + getMultiEntry, getUnique, IDBIndex, castToIDBIndex, gTypeIDBIndex) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -28,6 +34,24 @@ fromJSVal) -- | +openCursorRange_ :: + (MonadDOM m, ToJSString direction) => + IDBIndex -> Maybe IDBKeyRange -> direction -> m () +openCursorRange_ self range direction + = liftDOM + (void + (self ^. jsf "openCursor" [toJSVal range, toJSVal direction])) + +-- | +openCursorRangeUnchecked :: + (MonadDOM m, ToJSString direction) => + IDBIndex -> Maybe IDBKeyRange -> direction -> m IDBRequest +openCursorRangeUnchecked self range direction + = liftDOM + ((self ^. jsf "openCursor" [toJSVal range, toJSVal direction]) >>= + fromJSValUnchecked) + +-- | openCursor :: (MonadDOM m, ToJSString direction) => IDBIndex -> JSVal -> direction -> m (Maybe IDBRequest) @@ -36,6 +60,23 @@ ((self ^. jsf "openCursor" [toJSVal key, toJSVal direction]) >>= fromJSVal) +-- | +openCursor_ :: + (MonadDOM m, ToJSString direction) => + IDBIndex -> JSVal -> direction -> m () +openCursor_ self key direction + = liftDOM + (void (self ^. jsf "openCursor" [toJSVal key, toJSVal direction])) + +-- | +openCursorUnchecked :: + (MonadDOM m, ToJSString direction) => + IDBIndex -> JSVal -> direction -> m IDBRequest +openCursorUnchecked self key direction + = liftDOM + ((self ^. jsf "openCursor" [toJSVal key, toJSVal direction]) >>= + fromJSValUnchecked) + -- | openKeyCursorRange :: (MonadDOM m, ToJSString direction) => @@ -46,6 +87,24 @@ >>= fromJSVal) -- | +openKeyCursorRange_ :: + (MonadDOM m, ToJSString direction) => + IDBIndex -> Maybe IDBKeyRange -> direction -> m () +openKeyCursorRange_ self range direction + = liftDOM + (void + (self ^. jsf "openKeyCursor" [toJSVal range, toJSVal direction])) + +-- | +openKeyCursorRangeUnchecked :: + (MonadDOM m, ToJSString direction) => + IDBIndex -> Maybe IDBKeyRange -> direction -> m IDBRequest +openKeyCursorRangeUnchecked self range direction + = liftDOM + ((self ^. jsf "openKeyCursor" [toJSVal range, toJSVal direction]) + >>= fromJSValUnchecked) + +-- | openKeyCursor :: (MonadDOM m, ToJSString direction) => IDBIndex -> JSVal -> direction -> m (Maybe IDBRequest) @@ -54,6 +113,24 @@ ((self ^. jsf "openKeyCursor" [toJSVal key, toJSVal direction]) >>= fromJSVal) +-- | +openKeyCursor_ :: + (MonadDOM m, ToJSString direction) => + IDBIndex -> JSVal -> direction -> m () +openKeyCursor_ self key direction + = liftDOM + (void + (self ^. jsf "openKeyCursor" [toJSVal key, toJSVal direction])) + +-- | +openKeyCursorUnchecked :: + (MonadDOM m, ToJSString direction) => + IDBIndex -> JSVal -> direction -> m IDBRequest +openKeyCursorUnchecked self key direction + = liftDOM + ((self ^. jsf "openKeyCursor" [toJSVal key, toJSVal direction]) >>= + fromJSValUnchecked) + -- | getRange :: (MonadDOM m) => @@ -62,10 +139,32 @@ = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal) -- | +getRange_ :: (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m () +getRange_ self key + = liftDOM (void (self ^. jsf "get" [toJSVal key])) + +-- | +getRangeUnchecked :: + (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest +getRangeUnchecked self key + = liftDOM + ((self ^. jsf "get" [toJSVal key]) >>= fromJSValUnchecked) + +-- | get :: (MonadDOM m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) get self key = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal) +-- | +get_ :: (MonadDOM m) => IDBIndex -> JSVal -> m () +get_ self key = liftDOM (void (self ^. jsf "get" [toJSVal key])) + +-- | +getUnchecked :: (MonadDOM m) => IDBIndex -> JSVal -> m IDBRequest +getUnchecked self key + = liftDOM + ((self ^. jsf "get" [toJSVal key]) >>= fromJSValUnchecked) + -- | getKeyRange :: (MonadDOM m) => @@ -74,10 +173,35 @@ = liftDOM ((self ^. jsf "getKey" [toJSVal key]) >>= fromJSVal) -- | +getKeyRange_ :: + (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m () +getKeyRange_ self key + = liftDOM (void (self ^. jsf "getKey" [toJSVal key])) + +-- | +getKeyRangeUnchecked :: + (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest +getKeyRangeUnchecked self key + = liftDOM + ((self ^. jsf "getKey" [toJSVal key]) >>= fromJSValUnchecked) + +-- | getKey :: (MonadDOM m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) getKey self key = liftDOM ((self ^. jsf "getKey" [toJSVal key]) >>= fromJSVal) +-- | +getKey_ :: (MonadDOM m) => IDBIndex -> JSVal -> m () +getKey_ self key + = liftDOM (void (self ^. jsf "getKey" [toJSVal key])) + +-- | +getKeyUnchecked :: + (MonadDOM m) => IDBIndex -> JSVal -> m IDBRequest +getKeyUnchecked self key + = liftDOM + ((self ^. jsf "getKey" [toJSVal key]) >>= fromJSValUnchecked) + -- | countRange :: (MonadDOM m) => @@ -86,10 +210,34 @@ = liftDOM ((self ^. jsf "count" [toJSVal range]) >>= fromJSVal) -- | +countRange_ :: + (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m () +countRange_ self range + = liftDOM (void (self ^. jsf "count" [toJSVal range])) + +-- | +countRangeUnchecked :: + (MonadDOM m) => IDBIndex -> Maybe IDBKeyRange -> m IDBRequest +countRangeUnchecked self range + = liftDOM + ((self ^. jsf "count" [toJSVal range]) >>= fromJSValUnchecked) + +-- | count :: (MonadDOM m) => IDBIndex -> JSVal -> m (Maybe IDBRequest) count self key = liftDOM ((self ^. jsf "count" [toJSVal key]) >>= fromJSVal) +-- | +count_ :: (MonadDOM m) => IDBIndex -> JSVal -> m () +count_ self key + = liftDOM (void (self ^. jsf "count" [toJSVal key])) + +-- | +countUnchecked :: (MonadDOM m) => IDBIndex -> JSVal -> m IDBRequest +countUnchecked self key + = liftDOM + ((self ^. jsf "count" [toJSVal key]) >>= fromJSValUnchecked) + -- | getName :: (MonadDOM m, FromJSString result) => IDBIndex -> m result @@ -101,9 +249,20 @@ getObjectStore self = liftDOM ((self ^. js "objectStore") >>= fromJSVal) +-- | +getObjectStoreUnchecked :: + (MonadDOM m) => IDBIndex -> m IDBObjectStore +getObjectStoreUnchecked self + = liftDOM ((self ^. js "objectStore") >>= fromJSValUnchecked) + -- | getKeyPath :: (MonadDOM m) => IDBIndex -> m (Maybe IDBAny) getKeyPath self = liftDOM ((self ^. js "keyPath") >>= fromJSVal) + +-- | +getKeyPathUnchecked :: (MonadDOM m) => IDBIndex -> m IDBAny +getKeyPathUnchecked self + = liftDOM ((self ^. js "keyPath") >>= fromJSValUnchecked) -- | getMultiEntry :: (MonadDOM m) => IDBIndex -> m Bool diff --git a/src/JSDOM/Generated/IDBKeyRange.hs b/src/JSDOM/Generated/IDBKeyRange.hs --- a/src/JSDOM/Generated/IDBKeyRange.hs +++ b/src/JSDOM/Generated/IDBKeyRange.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.IDBKeyRange - (only, lowerBound, upperBound, bound, getLower, getUpper, - getLowerOpen, getUpperOpen, IDBKeyRange, castToIDBKeyRange, - gTypeIDBKeyRange) + (only, only_, onlyUnchecked, lowerBound, lowerBound_, + lowerBoundUnchecked, upperBound, upperBound_, upperBoundUnchecked, + bound, bound_, boundUnchecked, getLower, getUpper, getLowerOpen, + getUpperOpen, IDBKeyRange, castToIDBKeyRange, gTypeIDBKeyRange) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -23,6 +24,18 @@ only self value = liftDOM ((self ^. jsf "only" [toJSVal value]) >>= fromJSVal) +-- | +only_ :: (MonadDOM m) => IDBKeyRange -> JSVal -> m () +only_ self value + = liftDOM (void (self ^. jsf "only" [toJSVal value])) + +-- | +onlyUnchecked :: + (MonadDOM m) => IDBKeyRange -> JSVal -> m IDBKeyRange +onlyUnchecked self value + = liftDOM + ((self ^. jsf "only" [toJSVal value]) >>= fromJSValUnchecked) + -- | lowerBound :: (MonadDOM m) => @@ -32,6 +45,20 @@ ((self ^. jsf "lowerBound" [toJSVal lower, toJSVal open]) >>= fromJSVal) +-- | +lowerBound_ :: (MonadDOM m) => IDBKeyRange -> JSVal -> Bool -> m () +lowerBound_ self lower open + = liftDOM + (void (self ^. jsf "lowerBound" [toJSVal lower, toJSVal open])) + +-- | +lowerBoundUnchecked :: + (MonadDOM m) => IDBKeyRange -> JSVal -> Bool -> m IDBKeyRange +lowerBoundUnchecked self lower open + = liftDOM + ((self ^. jsf "lowerBound" [toJSVal lower, toJSVal open]) >>= + fromJSValUnchecked) + -- | upperBound :: (MonadDOM m) => @@ -41,6 +68,20 @@ ((self ^. jsf "upperBound" [toJSVal upper, toJSVal open]) >>= fromJSVal) +-- | +upperBound_ :: (MonadDOM m) => IDBKeyRange -> JSVal -> Bool -> m () +upperBound_ self upper open + = liftDOM + (void (self ^. jsf "upperBound" [toJSVal upper, toJSVal open])) + +-- | +upperBoundUnchecked :: + (MonadDOM m) => IDBKeyRange -> JSVal -> Bool -> m IDBKeyRange +upperBoundUnchecked self upper open + = liftDOM + ((self ^. jsf "upperBound" [toJSVal upper, toJSVal open]) >>= + fromJSValUnchecked) + -- | bound :: (MonadDOM m) => @@ -52,6 +93,28 @@ [toJSVal lower, toJSVal upper, toJSVal lowerOpen, toJSVal upperOpen]) >>= fromJSVal) + +-- | +bound_ :: + (MonadDOM m) => + IDBKeyRange -> JSVal -> JSVal -> Bool -> Bool -> m () +bound_ self lower upper lowerOpen upperOpen + = liftDOM + (void + (self ^. jsf "bound" + [toJSVal lower, toJSVal upper, toJSVal lowerOpen, + toJSVal upperOpen])) + +-- | +boundUnchecked :: + (MonadDOM m) => + IDBKeyRange -> JSVal -> JSVal -> Bool -> Bool -> m IDBKeyRange +boundUnchecked self lower upper lowerOpen upperOpen + = liftDOM + ((self ^. jsf "bound" + [toJSVal lower, toJSVal upper, toJSVal lowerOpen, + toJSVal upperOpen]) + >>= fromJSValUnchecked) -- | getLower :: (MonadDOM m) => IDBKeyRange -> m JSVal diff --git a/src/JSDOM/Generated/IDBObjectStore.hs b/src/JSDOM/Generated/IDBObjectStore.hs --- a/src/JSDOM/Generated/IDBObjectStore.hs +++ b/src/JSDOM/Generated/IDBObjectStore.hs @@ -1,11 +1,19 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.IDBObjectStore - (put, add, deleteRange, delete, getRange, get, clear, - openCursorRange, openCursor, createIndex', createIndex, index, - deleteIndex, countRange, count, getName, getKeyPath, getIndexNames, - getTransaction, getAutoIncrement, IDBObjectStore, - castToIDBObjectStore, gTypeIDBObjectStore) + (put, put_, putUnchecked, add, add_, addUnchecked, deleteRange, + deleteRange_, deleteRangeUnchecked, delete, delete_, + deleteUnchecked, getRange, getRange_, getRangeUnchecked, get, get_, + getUnchecked, clear, clear_, clearUnchecked, openCursorRange, + openCursorRange_, openCursorRangeUnchecked, openCursor, + openCursor_, openCursorUnchecked, createIndex', createIndex'_, + createIndex'Unchecked, createIndex, createIndex_, + createIndexUnchecked, index, index_, indexUnchecked, deleteIndex, + countRange, countRange_, countRangeUnchecked, count, count_, + countUnchecked, getName, getNameUnchecked, getKeyPath, + getKeyPathUnchecked, getIndexNames, getIndexNamesUnchecked, + getTransaction, getTransactionUnchecked, getAutoIncrement, + IDBObjectStore, castToIDBObjectStore, gTypeIDBObjectStore) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -27,6 +35,19 @@ = liftDOM ((self ^. jsf "put" [toJSVal value, toJSVal key]) >>= fromJSVal) +-- | +put_ :: (MonadDOM m) => IDBObjectStore -> JSVal -> JSVal -> m () +put_ self value key + = liftDOM (void (self ^. jsf "put" [toJSVal value, toJSVal key])) + +-- | +putUnchecked :: + (MonadDOM m) => IDBObjectStore -> JSVal -> JSVal -> m IDBRequest +putUnchecked self value key + = liftDOM + ((self ^. jsf "put" [toJSVal value, toJSVal key]) >>= + fromJSValUnchecked) + -- | add :: (MonadDOM m) => @@ -35,6 +56,19 @@ = liftDOM ((self ^. jsf "add" [toJSVal value, toJSVal key]) >>= fromJSVal) +-- | +add_ :: (MonadDOM m) => IDBObjectStore -> JSVal -> JSVal -> m () +add_ self value key + = liftDOM (void (self ^. jsf "add" [toJSVal value, toJSVal key])) + +-- | +addUnchecked :: + (MonadDOM m) => IDBObjectStore -> JSVal -> JSVal -> m IDBRequest +addUnchecked self value key + = liftDOM + ((self ^. jsf "add" [toJSVal value, toJSVal key]) >>= + fromJSValUnchecked) + -- | deleteRange :: (MonadDOM m) => @@ -43,11 +77,36 @@ = liftDOM ((self ^. jsf "delete" [toJSVal keyRange]) >>= fromJSVal) -- | +deleteRange_ :: + (MonadDOM m) => IDBObjectStore -> Maybe IDBKeyRange -> m () +deleteRange_ self keyRange + = liftDOM (void (self ^. jsf "delete" [toJSVal keyRange])) + +-- | +deleteRangeUnchecked :: + (MonadDOM m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest +deleteRangeUnchecked self keyRange + = liftDOM + ((self ^. jsf "delete" [toJSVal keyRange]) >>= fromJSValUnchecked) + +-- | delete :: (MonadDOM m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest) delete self key = liftDOM ((self ^. jsf "delete" [toJSVal key]) >>= fromJSVal) +-- | +delete_ :: (MonadDOM m) => IDBObjectStore -> JSVal -> m () +delete_ self key + = liftDOM (void (self ^. jsf "delete" [toJSVal key])) + +-- | +deleteUnchecked :: + (MonadDOM m) => IDBObjectStore -> JSVal -> m IDBRequest +deleteUnchecked self key + = liftDOM + ((self ^. jsf "delete" [toJSVal key]) >>= fromJSValUnchecked) + -- | getRange :: (MonadDOM m) => @@ -56,15 +115,48 @@ = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal) -- | +getRange_ :: + (MonadDOM m) => IDBObjectStore -> Maybe IDBKeyRange -> m () +getRange_ self key + = liftDOM (void (self ^. jsf "get" [toJSVal key])) + +-- | +getRangeUnchecked :: + (MonadDOM m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest +getRangeUnchecked self key + = liftDOM + ((self ^. jsf "get" [toJSVal key]) >>= fromJSValUnchecked) + +-- | get :: (MonadDOM m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest) get self key = liftDOM ((self ^. jsf "get" [toJSVal key]) >>= fromJSVal) +-- | +get_ :: (MonadDOM m) => IDBObjectStore -> JSVal -> m () +get_ self key = liftDOM (void (self ^. jsf "get" [toJSVal key])) + +-- | +getUnchecked :: + (MonadDOM m) => IDBObjectStore -> JSVal -> m IDBRequest +getUnchecked self key + = liftDOM + ((self ^. jsf "get" [toJSVal key]) >>= fromJSValUnchecked) + -- | clear :: (MonadDOM m) => IDBObjectStore -> m (Maybe IDBRequest) clear self = liftDOM ((self ^. jsf "clear" ()) >>= fromJSVal) +-- | +clear_ :: (MonadDOM m) => IDBObjectStore -> m () +clear_ self = liftDOM (void (self ^. jsf "clear" ())) + +-- | +clearUnchecked :: (MonadDOM m) => IDBObjectStore -> m IDBRequest +clearUnchecked self + = liftDOM ((self ^. jsf "clear" ()) >>= fromJSValUnchecked) + -- | openCursorRange :: (MonadDOM m, ToJSString direction) => @@ -76,6 +168,24 @@ fromJSVal) -- | +openCursorRange_ :: + (MonadDOM m, ToJSString direction) => + IDBObjectStore -> Maybe IDBKeyRange -> direction -> m () +openCursorRange_ self range direction + = liftDOM + (void + (self ^. jsf "openCursor" [toJSVal range, toJSVal direction])) + +-- | +openCursorRangeUnchecked :: + (MonadDOM m, ToJSString direction) => + IDBObjectStore -> Maybe IDBKeyRange -> direction -> m IDBRequest +openCursorRangeUnchecked self range direction + = liftDOM + ((self ^. jsf "openCursor" [toJSVal range, toJSVal direction]) >>= + fromJSValUnchecked) + +-- | openCursor :: (MonadDOM m, ToJSString direction) => IDBObjectStore -> JSVal -> direction -> m (Maybe IDBRequest) @@ -84,6 +194,23 @@ ((self ^. jsf "openCursor" [toJSVal key, toJSVal direction]) >>= fromJSVal) +-- | +openCursor_ :: + (MonadDOM m, ToJSString direction) => + IDBObjectStore -> JSVal -> direction -> m () +openCursor_ self key direction + = liftDOM + (void (self ^. jsf "openCursor" [toJSVal key, toJSVal direction])) + +-- | +openCursorUnchecked :: + (MonadDOM m, ToJSString direction) => + IDBObjectStore -> JSVal -> direction -> m IDBRequest +openCursorUnchecked self key direction + = liftDOM + ((self ^. jsf "openCursor" [toJSVal key, toJSVal direction]) >>= + fromJSValUnchecked) + -- | createIndex' :: (MonadDOM m, ToJSString name, ToJSString keyPath, @@ -97,6 +224,28 @@ >>= fromJSVal) -- | +createIndex'_ :: + (MonadDOM m, ToJSString name, ToJSString keyPath, + IsDictionary options) => + IDBObjectStore -> name -> [keyPath] -> Maybe options -> m () +createIndex'_ self name keyPath options + = liftDOM + (void + (self ^. jsf "createIndex" + [toJSVal name, toJSVal (array keyPath), toJSVal options])) + +-- | +createIndex'Unchecked :: + (MonadDOM m, ToJSString name, ToJSString keyPath, + IsDictionary options) => + IDBObjectStore -> name -> [keyPath] -> Maybe options -> m IDBIndex +createIndex'Unchecked self name keyPath options + = liftDOM + ((self ^. jsf "createIndex" + [toJSVal name, toJSVal (array keyPath), toJSVal options]) + >>= fromJSValUnchecked) + +-- | createIndex :: (MonadDOM m, ToJSString name, ToJSString keyPath, IsDictionary options) => @@ -108,6 +257,28 @@ [toJSVal name, toJSVal keyPath, toJSVal options]) >>= fromJSVal) +-- | +createIndex_ :: + (MonadDOM m, ToJSString name, ToJSString keyPath, + IsDictionary options) => + IDBObjectStore -> name -> keyPath -> Maybe options -> m () +createIndex_ self name keyPath options + = liftDOM + (void + (self ^. jsf "createIndex" + [toJSVal name, toJSVal keyPath, toJSVal options])) + +-- | +createIndexUnchecked :: + (MonadDOM m, ToJSString name, ToJSString keyPath, + IsDictionary options) => + IDBObjectStore -> name -> keyPath -> Maybe options -> m IDBIndex +createIndexUnchecked self name keyPath options + = liftDOM + ((self ^. jsf "createIndex" + [toJSVal name, toJSVal keyPath, toJSVal options]) + >>= fromJSValUnchecked) + -- | index :: (MonadDOM m, ToJSString name) => @@ -115,6 +286,20 @@ index self name = liftDOM ((self ^. jsf "index" [toJSVal name]) >>= fromJSVal) +-- | +index_ :: + (MonadDOM m, ToJSString name) => IDBObjectStore -> name -> m () +index_ self name + = liftDOM (void (self ^. jsf "index" [toJSVal name])) + +-- | +indexUnchecked :: + (MonadDOM m, ToJSString name) => + IDBObjectStore -> name -> m IDBIndex +indexUnchecked self name + = liftDOM + ((self ^. jsf "index" [toJSVal name]) >>= fromJSValUnchecked) + -- | deleteIndex :: (MonadDOM m, ToJSString name) => IDBObjectStore -> name -> m () @@ -129,32 +314,80 @@ = liftDOM ((self ^. jsf "count" [toJSVal range]) >>= fromJSVal) -- | +countRange_ :: + (MonadDOM m) => IDBObjectStore -> Maybe IDBKeyRange -> m () +countRange_ self range + = liftDOM (void (self ^. jsf "count" [toJSVal range])) + +-- | +countRangeUnchecked :: + (MonadDOM m) => IDBObjectStore -> Maybe IDBKeyRange -> m IDBRequest +countRangeUnchecked self range + = liftDOM + ((self ^. jsf "count" [toJSVal range]) >>= fromJSValUnchecked) + +-- | count :: (MonadDOM m) => IDBObjectStore -> JSVal -> m (Maybe IDBRequest) count self key = liftDOM ((self ^. jsf "count" [toJSVal key]) >>= fromJSVal) +-- | +count_ :: (MonadDOM m) => IDBObjectStore -> JSVal -> m () +count_ self key + = liftDOM (void (self ^. jsf "count" [toJSVal key])) + +-- | +countUnchecked :: + (MonadDOM m) => IDBObjectStore -> JSVal -> m IDBRequest +countUnchecked self key + = liftDOM + ((self ^. jsf "count" [toJSVal key]) >>= fromJSValUnchecked) + -- | getName :: (MonadDOM m, FromJSString result) => IDBObjectStore -> m (Maybe result) getName self = liftDOM ((self ^. js "name") >>= fromMaybeJSString) +-- | +getNameUnchecked :: + (MonadDOM m, FromJSString result) => IDBObjectStore -> m result +getNameUnchecked self + = liftDOM ((self ^. js "name") >>= fromJSValUnchecked) + -- | getKeyPath :: (MonadDOM m) => IDBObjectStore -> m (Maybe IDBAny) getKeyPath self = liftDOM ((self ^. js "keyPath") >>= fromJSVal) +-- | +getKeyPathUnchecked :: (MonadDOM m) => IDBObjectStore -> m IDBAny +getKeyPathUnchecked self + = liftDOM ((self ^. js "keyPath") >>= fromJSValUnchecked) + -- | getIndexNames :: (MonadDOM m) => IDBObjectStore -> m (Maybe DOMStringList) getIndexNames self = liftDOM ((self ^. js "indexNames") >>= fromJSVal) +-- | +getIndexNamesUnchecked :: + (MonadDOM m) => IDBObjectStore -> m DOMStringList +getIndexNamesUnchecked self + = liftDOM ((self ^. js "indexNames") >>= fromJSValUnchecked) + -- | getTransaction :: (MonadDOM m) => IDBObjectStore -> m (Maybe IDBTransaction) getTransaction self = liftDOM ((self ^. js "transaction") >>= fromJSVal) + +-- | +getTransactionUnchecked :: + (MonadDOM m) => IDBObjectStore -> m IDBTransaction +getTransactionUnchecked self + = liftDOM ((self ^. js "transaction") >>= fromJSValUnchecked) -- | getAutoIncrement :: (MonadDOM m) => IDBObjectStore -> m Bool diff --git a/src/JSDOM/Generated/IDBRequest.hs b/src/JSDOM/Generated/IDBRequest.hs --- a/src/JSDOM/Generated/IDBRequest.hs +++ b/src/JSDOM/Generated/IDBRequest.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.IDBRequest - (getResult, getError, getSource, getTransaction, getReadyState, - success, error, IDBRequest, castToIDBRequest, gTypeIDBRequest, - IsIDBRequest, toIDBRequest) + (getResult, getResultUnchecked, getError, getErrorUnchecked, + getSource, getSourceUnchecked, getTransaction, + getTransactionUnchecked, getReadyState, success, error, IDBRequest, + castToIDBRequest, gTypeIDBRequest, IsIDBRequest, toIDBRequest) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -23,23 +24,51 @@ getResult self = liftDOM (((toIDBRequest self) ^. js "result") >>= fromJSVal) +-- | +getResultUnchecked :: + (MonadDOM m, IsIDBRequest self) => self -> m IDBAny +getResultUnchecked self + = liftDOM + (((toIDBRequest self) ^. js "result") >>= fromJSValUnchecked) + -- | getError :: (MonadDOM m, IsIDBRequest self) => self -> m (Maybe DOMError) getError self = liftDOM (((toIDBRequest self) ^. js "error") >>= fromJSVal) +-- | +getErrorUnchecked :: + (MonadDOM m, IsIDBRequest self) => self -> m DOMError +getErrorUnchecked self + = liftDOM + (((toIDBRequest self) ^. js "error") >>= fromJSValUnchecked) + -- | getSource :: (MonadDOM m, IsIDBRequest self) => self -> m (Maybe IDBAny) getSource self = liftDOM (((toIDBRequest self) ^. js "source") >>= fromJSVal) +-- | +getSourceUnchecked :: + (MonadDOM m, IsIDBRequest self) => self -> m IDBAny +getSourceUnchecked self + = liftDOM + (((toIDBRequest self) ^. js "source") >>= fromJSValUnchecked) + -- | getTransaction :: (MonadDOM m, IsIDBRequest self) => self -> m (Maybe IDBTransaction) getTransaction self = liftDOM (((toIDBRequest self) ^. js "transaction") >>= fromJSVal) + +-- | +getTransactionUnchecked :: + (MonadDOM m, IsIDBRequest self) => self -> m IDBTransaction +getTransactionUnchecked self + = liftDOM + (((toIDBRequest self) ^. js "transaction") >>= fromJSValUnchecked) -- | getReadyState :: diff --git a/src/JSDOM/Generated/IDBTransaction.hs b/src/JSDOM/Generated/IDBTransaction.hs --- a/src/JSDOM/Generated/IDBTransaction.hs +++ b/src/JSDOM/Generated/IDBTransaction.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.IDBTransaction - (objectStore, abort, getMode, getDb, getError, abortEvent, + (objectStore, objectStore_, objectStoreUnchecked, abort, getMode, + getDb, getDbUnchecked, getError, getErrorUnchecked, abortEvent, complete, error, IDBTransaction, castToIDBTransaction, gTypeIDBTransaction) where @@ -25,6 +26,20 @@ = liftDOM ((self ^. jsf "objectStore" [toJSVal name]) >>= fromJSVal) +-- | +objectStore_ :: + (MonadDOM m, ToJSString name) => IDBTransaction -> name -> m () +objectStore_ self name + = liftDOM (void (self ^. jsf "objectStore" [toJSVal name])) + +-- | +objectStoreUnchecked :: + (MonadDOM m, ToJSString name) => + IDBTransaction -> name -> m IDBObjectStore +objectStoreUnchecked self name + = liftDOM + ((self ^. jsf "objectStore" [toJSVal name]) >>= fromJSValUnchecked) + -- | abort :: (MonadDOM m) => IDBTransaction -> m () abort self = liftDOM (void (self ^. jsf "abort" ())) @@ -38,9 +53,19 @@ getDb :: (MonadDOM m) => IDBTransaction -> m (Maybe IDBDatabase) getDb self = liftDOM ((self ^. js "db") >>= fromJSVal) +-- | +getDbUnchecked :: (MonadDOM m) => IDBTransaction -> m IDBDatabase +getDbUnchecked self + = liftDOM ((self ^. js "db") >>= fromJSValUnchecked) + -- | getError :: (MonadDOM m) => IDBTransaction -> m (Maybe DOMError) getError self = liftDOM ((self ^. js "error") >>= fromJSVal) + +-- | +getErrorUnchecked :: (MonadDOM m) => IDBTransaction -> m DOMError +getErrorUnchecked self + = liftDOM ((self ^. js "error") >>= fromJSValUnchecked) -- | abortEvent :: EventName IDBTransaction Event diff --git a/src/JSDOM/Generated/IDBVersionChangeEvent.hs b/src/JSDOM/Generated/IDBVersionChangeEvent.hs --- a/src/JSDOM/Generated/IDBVersionChangeEvent.hs +++ b/src/JSDOM/Generated/IDBVersionChangeEvent.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.IDBVersionChangeEvent - (getOldVersion, getNewVersion, IDBVersionChangeEvent, - castToIDBVersionChangeEvent, gTypeIDBVersionChangeEvent) + (getOldVersion, getNewVersion, getNewVersionUnchecked, + IDBVersionChangeEvent, castToIDBVersionChangeEvent, + gTypeIDBVersionChangeEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -26,3 +27,9 @@ (MonadDOM m) => IDBVersionChangeEvent -> m (Maybe Word64) getNewVersion self = liftDOM ((self ^. js "newVersion") >>= fromJSVal) + +-- | +getNewVersionUnchecked :: + (MonadDOM m) => IDBVersionChangeEvent -> m Word64 +getNewVersionUnchecked self + = liftDOM ((self ^. js "newVersion") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/InspectorFrontendHost.hs b/src/JSDOM/Generated/InspectorFrontendHost.hs --- a/src/JSDOM/Generated/InspectorFrontendHost.hs +++ b/src/JSDOM/Generated/InspectorFrontendHost.hs @@ -4,12 +4,13 @@ (loaded, closeWindow, bringToFront, setZoomFactor, inspectedURLChanged, requestSetDockSide, setAttachedWindowHeight, setAttachedWindowWidth, setToolbarHeight, moveWindowBy, - localizedStringsURL, debuggableType, copyText, openInNewTab, - canSave, save, append, close, platform, port, showContextMenu, + localizedStringsURL, localizedStringsURL_, debuggableType, + debuggableType_, copyText, openInNewTab, canSave, canSave_, save, + append, close, platform, platform_, port, port_, showContextMenu, dispatchEventAsContextMenuEvent, sendMessageToBackend, - unbufferedLog, isUnderTest, beep, canInspectWorkers, canSaveAs, - InspectorFrontendHost, castToInspectorFrontendHost, - gTypeInspectorFrontendHost) + unbufferedLog, isUnderTest, isUnderTest_, beep, canInspectWorkers, + canInspectWorkers_, canSaveAs, canSaveAs_, InspectorFrontendHost, + castToInspectorFrontendHost, gTypeInspectorFrontendHost) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -91,6 +92,12 @@ = liftDOM ((self ^. jsf "localizedStringsURL" ()) >>= fromJSValUnchecked) +-- | +localizedStringsURL_ :: + (MonadDOM m) => InspectorFrontendHost -> m () +localizedStringsURL_ self + = liftDOM (void (self ^. jsf "localizedStringsURL" ())) + -- | debuggableType :: (MonadDOM m, FromJSString result) => @@ -99,6 +106,11 @@ = liftDOM ((self ^. jsf "debuggableType" ()) >>= fromJSValUnchecked) +-- | +debuggableType_ :: (MonadDOM m) => InspectorFrontendHost -> m () +debuggableType_ self + = liftDOM (void (self ^. jsf "debuggableType" ())) + -- | copyText :: (MonadDOM m, ToJSString text) => @@ -117,6 +129,10 @@ canSave :: (MonadDOM m) => InspectorFrontendHost -> m Bool canSave self = liftDOM ((self ^. jsf "canSave" ()) >>= valToBool) +-- | +canSave_ :: (MonadDOM m) => InspectorFrontendHost -> m () +canSave_ self = liftDOM (void (self ^. jsf "canSave" ())) + -- | save :: (MonadDOM m, ToJSString url, ToJSString content) => @@ -149,6 +165,10 @@ platform self = liftDOM ((self ^. jsf "platform" ()) >>= fromJSValUnchecked) +-- | +platform_ :: (MonadDOM m) => InspectorFrontendHost -> m () +platform_ self = liftDOM (void (self ^. jsf "platform" ())) + -- | port :: (MonadDOM m, FromJSString result) => @@ -156,6 +176,10 @@ port self = liftDOM ((self ^. jsf "port" ()) >>= fromJSValUnchecked) +-- | +port_ :: (MonadDOM m) => InspectorFrontendHost -> m () +port_ self = liftDOM (void (self ^. jsf "port" ())) + -- | showContextMenu :: (MonadDOM m, IsMouseEvent event) => @@ -194,6 +218,10 @@ isUnderTest self = liftDOM ((self ^. jsf "isUnderTest" ()) >>= valToBool) +-- | +isUnderTest_ :: (MonadDOM m) => InspectorFrontendHost -> m () +isUnderTest_ self = liftDOM (void (self ^. jsf "isUnderTest" ())) + -- | beep :: (MonadDOM m) => InspectorFrontendHost -> m () beep self = liftDOM (void (self ^. jsf "beep" ())) @@ -204,7 +232,16 @@ canInspectWorkers self = liftDOM ((self ^. jsf "canInspectWorkers" ()) >>= valToBool) +-- | +canInspectWorkers_ :: (MonadDOM m) => InspectorFrontendHost -> m () +canInspectWorkers_ self + = liftDOM (void (self ^. jsf "canInspectWorkers" ())) + -- | canSaveAs :: (MonadDOM m) => InspectorFrontendHost -> m Bool canSaveAs self = liftDOM ((self ^. jsf "canSaveAs" ()) >>= valToBool) + +-- | +canSaveAs_ :: (MonadDOM m) => InspectorFrontendHost -> m () +canSaveAs_ self = liftDOM (void (self ^. jsf "canSaveAs" ())) diff --git a/src/JSDOM/Generated/InternalSettings.hs b/src/JSDOM/Generated/InternalSettings.hs --- a/src/JSDOM/Generated/InternalSettings.hs +++ b/src/JSDOM/Generated/InternalSettings.hs @@ -8,7 +8,8 @@ setTextAutosizingEnabled, setTextAutosizingWindowSizeOverride, setTextAutosizingFontScaleFactor, setCSSShapesEnabled, setCanStartMedia, setShouldDisplayTrackKind, - shouldDisplayTrackKind, setDefaultVideoPosterURL, + shouldDisplayTrackKind, shouldDisplayTrackKind_, + setDefaultVideoPosterURL, setTimeWithoutMouseMovementBeforeHidingControls, setMediaTypeOverride, setPluginReplacementEnabled, setEditingBehavior, setShouldConvertPositionStyleOnCopy, @@ -175,6 +176,14 @@ = liftDOM ((self ^. jsf "shouldDisplayTrackKind" [toJSVal trackKind]) >>= valToBool) + +-- | +shouldDisplayTrackKind_ :: + (MonadDOM m, ToJSString trackKind) => + InternalSettings -> trackKind -> m () +shouldDisplayTrackKind_ self trackKind + = liftDOM + (void (self ^. jsf "shouldDisplayTrackKind" [toJSVal trackKind])) -- | setDefaultVideoPosterURL :: diff --git a/src/JSDOM/Generated/Internals.hs b/src/JSDOM/Generated/Internals.hs --- a/src/JSDOM/Generated/Internals.hs +++ b/src/JSDOM/Generated/Internals.hs @@ -1,1464 +1,2444 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Internals - (address, nodeNeedsStyleRecalc, description, - hasPausedImageAnimations, elementRenderTreeAsText, isPreloaded, - isLoadingFromMemoryCache, xhrResponseSource, clearMemoryCache, - pruneMemoryCacheToSize, memoryCacheSize, clearPageCache, - pageCacheSize, computedStyleIncludingVisitedInfo, ensureShadowRoot, - createShadowRoot, shadowRoot, shadowRootType, includerFor, - shadowPseudoId, setShadowPseudoId, treeScopeRootNode, - parentTreeScope, lastSpatialNavigationCandidateCount, - numberOfActiveAnimations, suspendAnimations, resumeAnimations, - animationsAreSuspended, pauseAnimationAtTimeOnElement, - pauseAnimationAtTimeOnPseudoElement, - pauseTransitionAtTimeOnElement, - pauseTransitionAtTimeOnPseudoElement, attached, visiblePlaceholder, - selectColorInColorChooser, formControlStateOfPreviousHistoryItem, - setFormControlStateOfPreviousHistoryItem, absoluteCaretBounds, - boundingBox, inspectorHighlightRects, inspectorHighlightObject, - markerCountForNode, markerRangeForNode, markerDescriptionForNode, - addTextMatchMarker, setMarkedTextMatchesAreHighlighted, - invalidateFontCache, setScrollViewPosition, setPagination, - configurationForViewport, wasLastChangeUserEdit, - elementShouldAutoComplete, setEditingValue, setAutofilled, - countMatchesForText, paintControlTints, scrollElementToRect, - rangeFromLocationAndLength, locationFromRange, lengthFromRange, - rangeAsText, subrange, rangeForDictionaryLookupAtLocation, - setDelegatesScrolling, lastSpellCheckRequestSequence, - lastSpellCheckProcessedSequence, userPreferredLanguages, - setUserPreferredLanguages, wheelEventHandlerCount, - touchEventHandlerCount, nodesFromRect, parserMetaData, - updateEditorUINowIfScheduled, hasSpellingMarker, hasGrammarMarker, - hasAutocorrectedMarker, setContinuousSpellCheckingEnabled, - setAutomaticQuoteSubstitutionEnabled, - setAutomaticLinkDetectionEnabled, - setAutomaticDashSubstitutionEnabled, - setAutomaticTextReplacementEnabled, - setAutomaticSpellingCorrectionEnabled, isOverwriteModeEnabled, - toggleOverwriteModeEnabled, numberOfScrollableAreas, - isPageBoxVisible, layerTreeAsText, scrollingStateTreeAsText, - mainThreadScrollingReasons, nonFastScrollableRects, - repaintRectsAsText, garbageCollectDocumentResources, - allowRoundingHacks, insertAuthorCSS, insertUserCSS, - setBatteryStatus, setDeviceProximity, numberOfLiveNodes, - numberOfLiveDocuments, consoleMessageArgumentCounts, - openDummyInspectorFrontend, closeDummyInspectorFrontend, - setJavaScriptProfilingEnabled, setInspectorIsUnderTest, - counterValue, pageNumber, shortcutIconURLs, allIconURLs, - numberOfPages, pageProperty, pageSizeAndMarginsInPixels, - setPageScaleFactor, setPageZoomFactor, setHeaderHeight, - setFooterHeight, setTopContentInset, - webkitWillEnterFullScreenForElement, - webkitDidEnterFullScreenForElement, - webkitWillExitFullScreenForElement, - webkitDidExitFullScreenForElement, setApplicationCacheOriginQuota, - registerURLSchemeAsBypassingContentSecurityPolicy, - removeURLSchemeRegisteredAsBypassingContentSecurityPolicy, - mallocStatistics, typeConversions, memoryInfo, - getReferencedFilePaths, startTrackingRepaints, - stopTrackingRepaints, isTimerThrottled, - updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks, - getCurrentCursorInfo, markerTextForListItem, toolTipFromElement, - deserializeBuffer, serializeObject, setUsesOverlayScrollbars, - forceReload, simulateAudioInterruption, - mediaElementHasCharacteristic, initializeMockCDM, - enableMockSpeechSynthesizer, getImageSourceURL, - captionsStyleSheetOverride, setCaptionsStyleSheetOverride, - setPrimaryAudioTrackLanguageOverride, setCaptionDisplayMode, - createTimeRanges, closestTimeToTimeRanges, isSelectPopupVisible, - isVibrating, isPluginUnavailabilityIndicatorObscured, - isPluginSnapshotted, selectionBounds, initializeMockMediaSource, - bufferedSamplesForTrackID, beginMediaSessionInterruption, - endMediaSessionInterruption, applicationWillEnterForeground, - applicationWillEnterBackground, setMediaSessionRestrictions, - postRemoteControlCommand, simulateSystemSleep, simulateSystemWake, - elementIsBlockingDisplaySleep, installMockPageOverlay, - pageOverlayLayerTreeAsText, setPageMuted, 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, getSettings, - getWorkerThreadCount, getConsoleProfiles, Internals, - castToInternals, gTypeInternals) - where -import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) -import Data.Typeable (Typeable) -import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) -import Data.Int (Int64) -import Data.Word (Word, Word64) -import JSDOM.Types -import Control.Applicative ((<$>)) -import Control.Monad (void) -import Control.Lens.Operators ((^.)) -import JSDOM.EventTargetClosures (EventName, unsafeEventName) -import JSDOM.Enums - --- | -address :: - (MonadDOM m, IsNode node, FromJSString result) => - Internals -> Maybe node -> m result -address self node - = liftDOM - ((self ^. jsf "address" [toJSVal node]) >>= fromJSValUnchecked) - --- | -nodeNeedsStyleRecalc :: - (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool -nodeNeedsStyleRecalc self node - = liftDOM - ((self ^. jsf "nodeNeedsStyleRecalc" [toJSVal node]) >>= valToBool) - --- | -description :: - (MonadDOM m, FromJSString result) => Internals -> JSVal -> m result -description self value - = liftDOM - ((self ^. jsf "description" [toJSVal value]) >>= - fromJSValUnchecked) - --- | -hasPausedImageAnimations :: - (MonadDOM m, IsElement element) => - Internals -> Maybe element -> m Bool -hasPausedImageAnimations self element - = liftDOM - ((self ^. jsf "hasPausedImageAnimations" [toJSVal element]) >>= - valToBool) - --- | -elementRenderTreeAsText :: - (MonadDOM m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -elementRenderTreeAsText self element - = liftDOM - ((self ^. jsf "elementRenderTreeAsText" [toJSVal element]) >>= - fromJSValUnchecked) - --- | -isPreloaded :: - (MonadDOM m, ToJSString url) => Internals -> url -> m Bool -isPreloaded self url - = liftDOM ((self ^. jsf "isPreloaded" [toJSVal url]) >>= valToBool) - --- | -isLoadingFromMemoryCache :: - (MonadDOM m, ToJSString url) => Internals -> url -> m Bool -isLoadingFromMemoryCache self url - = liftDOM - ((self ^. jsf "isLoadingFromMemoryCache" [toJSVal url]) >>= - valToBool) - --- | -xhrResponseSource :: - (MonadDOM m, FromJSString result) => - Internals -> Maybe XMLHttpRequest -> m result -xhrResponseSource self xhr - = liftDOM - ((self ^. jsf "xhrResponseSource" [toJSVal xhr]) >>= - fromJSValUnchecked) - --- | -clearMemoryCache :: (MonadDOM m) => Internals -> m () -clearMemoryCache self - = liftDOM (void (self ^. jsf "clearMemoryCache" ())) - --- | -pruneMemoryCacheToSize :: (MonadDOM m) => Internals -> Int -> m () -pruneMemoryCacheToSize self size - = liftDOM - (void (self ^. jsf "pruneMemoryCacheToSize" [toJSVal size])) - --- | -memoryCacheSize :: (MonadDOM m) => Internals -> m Int -memoryCacheSize self - = liftDOM - (round <$> ((self ^. jsf "memoryCacheSize" ()) >>= valToNumber)) - --- | -clearPageCache :: (MonadDOM m) => Internals -> m () -clearPageCache self - = liftDOM (void (self ^. jsf "clearPageCache" ())) - --- | -pageCacheSize :: (MonadDOM m) => Internals -> m Word -pageCacheSize self - = liftDOM - (round <$> ((self ^. jsf "pageCacheSize" ()) >>= valToNumber)) - --- | -computedStyleIncludingVisitedInfo :: - (MonadDOM m, IsNode node) => - Internals -> Maybe node -> m (Maybe CSSStyleDeclaration) -computedStyleIncludingVisitedInfo self node - = liftDOM - ((self ^. jsf "computedStyleIncludingVisitedInfo" [toJSVal node]) - >>= fromJSVal) - --- | -ensureShadowRoot :: - (MonadDOM m, IsElement host) => - Internals -> Maybe host -> m (Maybe Node) -ensureShadowRoot self host - = liftDOM - ((self ^. jsf "ensureShadowRoot" [toJSVal host]) >>= fromJSVal) - --- | -createShadowRoot :: - (MonadDOM m, IsElement host) => - Internals -> Maybe host -> m (Maybe Node) -createShadowRoot self host - = liftDOM - ((self ^. jsf "createShadowRoot" [toJSVal host]) >>= fromJSVal) - --- | -shadowRoot :: - (MonadDOM m, IsElement host) => - Internals -> Maybe host -> m (Maybe Node) -shadowRoot self host - = liftDOM ((self ^. jsf "shadowRoot" [toJSVal host]) >>= fromJSVal) - --- | -shadowRootType :: - (MonadDOM m, IsNode root, FromJSString result) => - Internals -> Maybe root -> m result -shadowRootType self root - = liftDOM - ((self ^. jsf "shadowRootType" [toJSVal root]) >>= - fromJSValUnchecked) - --- | -includerFor :: - (MonadDOM m, IsNode node) => - Internals -> Maybe node -> m (Maybe Element) -includerFor self node - = liftDOM - ((self ^. jsf "includerFor" [toJSVal node]) >>= fromJSVal) - --- | -shadowPseudoId :: - (MonadDOM m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -shadowPseudoId self element - = liftDOM - ((self ^. jsf "shadowPseudoId" [toJSVal element]) >>= - fromJSValUnchecked) - --- | -setShadowPseudoId :: - (MonadDOM m, IsElement element, ToJSString id) => - Internals -> Maybe element -> id -> m () -setShadowPseudoId self element id - = liftDOM - (void - (self ^. jsf "setShadowPseudoId" [toJSVal element, toJSVal id])) - --- | -treeScopeRootNode :: - (MonadDOM m, IsNode node) => - Internals -> Maybe node -> m (Maybe Node) -treeScopeRootNode self node - = liftDOM - ((self ^. jsf "treeScopeRootNode" [toJSVal node]) >>= fromJSVal) - --- | -parentTreeScope :: - (MonadDOM m, IsNode node) => - Internals -> Maybe node -> m (Maybe Node) -parentTreeScope self node - = liftDOM - ((self ^. jsf "parentTreeScope" [toJSVal node]) >>= fromJSVal) - --- | -lastSpatialNavigationCandidateCount :: - (MonadDOM m) => Internals -> m Word -lastSpatialNavigationCandidateCount self - = liftDOM - (round <$> - ((self ^. jsf "lastSpatialNavigationCandidateCount" ()) >>= - valToNumber)) - --- | -numberOfActiveAnimations :: (MonadDOM m) => Internals -> m Word -numberOfActiveAnimations self - = liftDOM - (round <$> - ((self ^. jsf "numberOfActiveAnimations" ()) >>= valToNumber)) - --- | -suspendAnimations :: (MonadDOM m) => Internals -> m () -suspendAnimations self - = liftDOM (void (self ^. jsf "suspendAnimations" ())) - --- | -resumeAnimations :: (MonadDOM m) => Internals -> m () -resumeAnimations self - = liftDOM (void (self ^. jsf "resumeAnimations" ())) - --- | -animationsAreSuspended :: (MonadDOM m) => Internals -> m Bool -animationsAreSuspended self - = liftDOM ((self ^. jsf "animationsAreSuspended" ()) >>= valToBool) - --- | -pauseAnimationAtTimeOnElement :: - (MonadDOM m, ToJSString animationName, IsElement element) => - Internals -> animationName -> Double -> Maybe element -> m Bool -pauseAnimationAtTimeOnElement self animationName pauseTime element - = liftDOM - ((self ^. jsf "pauseAnimationAtTimeOnElement" - [toJSVal animationName, toJSVal pauseTime, toJSVal element]) - >>= valToBool) - --- | -pauseAnimationAtTimeOnPseudoElement :: - (MonadDOM m, ToJSString animationName, IsElement element, - ToJSString pseudoId) => - Internals -> - animationName -> - Double -> Maybe element -> pseudoId -> m Bool -pauseAnimationAtTimeOnPseudoElement self animationName pauseTime - element pseudoId - = liftDOM - ((self ^. jsf "pauseAnimationAtTimeOnPseudoElement" - [toJSVal animationName, toJSVal pauseTime, toJSVal element, - toJSVal pseudoId]) - >>= valToBool) - --- | -pauseTransitionAtTimeOnElement :: - (MonadDOM m, ToJSString propertyName, IsElement element) => - Internals -> propertyName -> Double -> Maybe element -> m Bool -pauseTransitionAtTimeOnElement self propertyName pauseTime element - = liftDOM - ((self ^. jsf "pauseTransitionAtTimeOnElement" - [toJSVal propertyName, toJSVal pauseTime, toJSVal element]) - >>= valToBool) - --- | -pauseTransitionAtTimeOnPseudoElement :: - (MonadDOM m, ToJSString property, IsElement element, - ToJSString pseudoId) => - Internals -> - property -> Double -> Maybe element -> pseudoId -> m Bool -pauseTransitionAtTimeOnPseudoElement self property pauseTime - element pseudoId - = liftDOM - ((self ^. jsf "pauseTransitionAtTimeOnPseudoElement" - [toJSVal property, toJSVal pauseTime, toJSVal element, - toJSVal pseudoId]) - >>= valToBool) - --- | -attached :: - (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool -attached self node - = liftDOM ((self ^. jsf "attached" [toJSVal node]) >>= valToBool) - --- | -visiblePlaceholder :: - (MonadDOM m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -visiblePlaceholder self element - = liftDOM - ((self ^. jsf "visiblePlaceholder" [toJSVal element]) >>= - fromJSValUnchecked) - --- | -selectColorInColorChooser :: - (MonadDOM m, IsElement element, ToJSString colorValue) => - Internals -> Maybe element -> colorValue -> m () -selectColorInColorChooser self element colorValue - = liftDOM - (void - (self ^. jsf "selectColorInColorChooser" - [toJSVal element, toJSVal colorValue])) - --- | -formControlStateOfPreviousHistoryItem :: - (MonadDOM m, FromJSString result) => Internals -> m [result] -formControlStateOfPreviousHistoryItem self - = liftDOM - ((self ^. jsf "formControlStateOfPreviousHistoryItem" ()) >>= - fromJSArrayUnchecked) - --- | -setFormControlStateOfPreviousHistoryItem :: - (MonadDOM m, ToJSString values) => - Internals -> [values] -> m () -setFormControlStateOfPreviousHistoryItem self values - = liftDOM - (void - (self ^. jsf "setFormControlStateOfPreviousHistoryItem" - [toJSVal (array values)])) - --- | -absoluteCaretBounds :: - (MonadDOM m) => Internals -> m (Maybe ClientRect) -absoluteCaretBounds self - = liftDOM ((self ^. jsf "absoluteCaretBounds" ()) >>= fromJSVal) - --- | -boundingBox :: - (MonadDOM m, IsElement element) => - Internals -> Maybe element -> m (Maybe ClientRect) -boundingBox self element - = liftDOM - ((self ^. jsf "boundingBox" [toJSVal element]) >>= fromJSVal) - --- | -inspectorHighlightRects :: - (MonadDOM m) => Internals -> m (Maybe ClientRectList) -inspectorHighlightRects self - = liftDOM - ((self ^. jsf "inspectorHighlightRects" ()) >>= fromJSVal) - --- | -inspectorHighlightObject :: - (MonadDOM m, FromJSString result) => Internals -> m result -inspectorHighlightObject self - = liftDOM - ((self ^. jsf "inspectorHighlightObject" ()) >>= - fromJSValUnchecked) - --- | -markerCountForNode :: - (MonadDOM m, IsNode node, ToJSString markerType) => - Internals -> Maybe node -> markerType -> m Word -markerCountForNode self node markerType - = liftDOM - (round <$> - ((self ^. jsf "markerCountForNode" - [toJSVal node, toJSVal markerType]) - >>= valToNumber)) - --- | -markerRangeForNode :: - (MonadDOM m, IsNode node, ToJSString markerType) => - Internals -> Maybe node -> markerType -> Word -> m (Maybe Range) -markerRangeForNode self node markerType index - = liftDOM - ((self ^. jsf "markerRangeForNode" - [toJSVal node, toJSVal markerType, toJSVal index]) - >>= fromJSVal) - --- | -markerDescriptionForNode :: - (MonadDOM m, IsNode node, ToJSString markerType, - FromJSString result) => - Internals -> Maybe node -> markerType -> Word -> m result -markerDescriptionForNode self node markerType index - = liftDOM - ((self ^. jsf "markerDescriptionForNode" - [toJSVal node, toJSVal markerType, toJSVal index]) - >>= fromJSValUnchecked) - --- | -addTextMatchMarker :: - (MonadDOM m) => Internals -> Maybe Range -> Bool -> m () -addTextMatchMarker self range isActive - = liftDOM - (void - (self ^. jsf "addTextMatchMarker" - [toJSVal range, toJSVal isActive])) - --- | -setMarkedTextMatchesAreHighlighted :: - (MonadDOM m) => Internals -> Bool -> m () -setMarkedTextMatchesAreHighlighted self flag - = liftDOM - (void - (self ^. jsf "setMarkedTextMatchesAreHighlighted" [toJSVal flag])) - --- | -invalidateFontCache :: (MonadDOM m) => Internals -> m () -invalidateFontCache self - = liftDOM (void (self ^. jsf "invalidateFontCache" ())) - --- | -setScrollViewPosition :: - (MonadDOM m) => Internals -> Int -> Int -> m () -setScrollViewPosition self x y - = liftDOM - (void (self ^. jsf "setScrollViewPosition" [toJSVal x, toJSVal y])) - --- | -setPagination :: - (MonadDOM m, ToJSString mode) => - Internals -> mode -> Int -> Int -> m () -setPagination self mode gap pageLength - = liftDOM - (void - (self ^. jsf "setPagination" - [toJSVal mode, toJSVal gap, toJSVal pageLength])) - --- | -configurationForViewport :: - (MonadDOM m, FromJSString result) => - Internals -> Float -> Int -> Int -> Int -> Int -> m result -configurationForViewport self devicePixelRatio deviceWidth - deviceHeight availableWidth availableHeight - = liftDOM - ((self ^. jsf "configurationForViewport" - [toJSVal devicePixelRatio, toJSVal deviceWidth, - toJSVal deviceHeight, toJSVal availableWidth, - toJSVal availableHeight]) - >>= fromJSValUnchecked) - --- | -wasLastChangeUserEdit :: - (MonadDOM m, IsElement textField) => - Internals -> Maybe textField -> m Bool -wasLastChangeUserEdit self textField - = liftDOM - ((self ^. jsf "wasLastChangeUserEdit" [toJSVal textField]) >>= - valToBool) - --- | -elementShouldAutoComplete :: - (MonadDOM m, IsElement inputElement) => - Internals -> Maybe inputElement -> m Bool -elementShouldAutoComplete self inputElement - = liftDOM - ((self ^. jsf "elementShouldAutoComplete" [toJSVal inputElement]) - >>= valToBool) - --- | -setEditingValue :: - (MonadDOM m, IsElement inputElement, ToJSString value) => - Internals -> Maybe inputElement -> value -> m () -setEditingValue self inputElement value - = liftDOM - (void - (self ^. jsf "setEditingValue" - [toJSVal inputElement, toJSVal value])) - --- | -setAutofilled :: - (MonadDOM m, IsElement inputElement) => - Internals -> Maybe inputElement -> Bool -> m () -setAutofilled self inputElement enabled - = liftDOM - (void - (self ^. jsf "setAutofilled" - [toJSVal inputElement, toJSVal enabled])) - --- | -countMatchesForText :: - (MonadDOM m, ToJSString text, ToJSString markMatches) => - Internals -> text -> Word -> markMatches -> m Word -countMatchesForText self text findOptions markMatches - = liftDOM - (round <$> - ((self ^. jsf "countMatchesForText" - [toJSVal text, toJSVal findOptions, toJSVal markMatches]) - >>= valToNumber)) - --- | -paintControlTints :: (MonadDOM m) => Internals -> m () -paintControlTints self - = liftDOM (void (self ^. jsf "paintControlTints" ())) - --- | -scrollElementToRect :: - (MonadDOM m, IsElement element) => - Internals -> Maybe element -> Int -> Int -> Int -> Int -> m () -scrollElementToRect self element x y w h - = liftDOM - (void - (self ^. jsf "scrollElementToRect" - [toJSVal element, toJSVal x, toJSVal y, toJSVal w, toJSVal h])) - --- | -rangeFromLocationAndLength :: - (MonadDOM m, IsElement scope) => - Internals -> Maybe scope -> Int -> Int -> m (Maybe Range) -rangeFromLocationAndLength self scope rangeLocation rangeLength - = liftDOM - ((self ^. jsf "rangeFromLocationAndLength" - [toJSVal scope, toJSVal rangeLocation, toJSVal rangeLength]) - >>= fromJSVal) - --- | -locationFromRange :: - (MonadDOM m, IsElement scope) => - Internals -> Maybe scope -> Maybe Range -> m Word -locationFromRange self scope range - = liftDOM - (round <$> - ((self ^. jsf "locationFromRange" [toJSVal scope, toJSVal range]) - >>= valToNumber)) - --- | -lengthFromRange :: - (MonadDOM m, IsElement scope) => - Internals -> Maybe scope -> Maybe Range -> m Word -lengthFromRange self scope range - = liftDOM - (round <$> - ((self ^. jsf "lengthFromRange" [toJSVal scope, toJSVal range]) >>= - valToNumber)) - --- | -rangeAsText :: - (MonadDOM m, FromJSString result) => - Internals -> Maybe Range -> m result -rangeAsText self range - = liftDOM - ((self ^. jsf "rangeAsText" [toJSVal range]) >>= - fromJSValUnchecked) - --- | -subrange :: - (MonadDOM m) => - Internals -> Maybe Range -> Int -> Int -> m (Maybe Range) -subrange self range rangeLocation rangeLength - = liftDOM - ((self ^. jsf "subrange" - [toJSVal range, toJSVal rangeLocation, toJSVal rangeLength]) - >>= fromJSVal) - --- | -rangeForDictionaryLookupAtLocation :: - (MonadDOM m) => Internals -> Int -> Int -> m (Maybe Range) -rangeForDictionaryLookupAtLocation self x y - = liftDOM - ((self ^. jsf "rangeForDictionaryLookupAtLocation" - [toJSVal x, toJSVal y]) - >>= fromJSVal) - --- | -setDelegatesScrolling :: (MonadDOM m) => Internals -> Bool -> m () -setDelegatesScrolling self enabled - = liftDOM - (void (self ^. jsf "setDelegatesScrolling" [toJSVal enabled])) - --- | -lastSpellCheckRequestSequence :: (MonadDOM m) => Internals -> m Int -lastSpellCheckRequestSequence self - = liftDOM - (round <$> - ((self ^. jsf "lastSpellCheckRequestSequence" ()) >>= valToNumber)) - --- | -lastSpellCheckProcessedSequence :: - (MonadDOM m) => Internals -> m Int -lastSpellCheckProcessedSequence self - = liftDOM - (round <$> - ((self ^. jsf "lastSpellCheckProcessedSequence" ()) >>= - valToNumber)) - --- | -userPreferredLanguages :: - (MonadDOM m, FromJSString result) => Internals -> m [result] -userPreferredLanguages self - = liftDOM - ((self ^. jsf "userPreferredLanguages" ()) >>= - fromJSArrayUnchecked) - --- | -setUserPreferredLanguages :: - (MonadDOM m, ToJSString languages) => - Internals -> [languages] -> m () -setUserPreferredLanguages self languages - = liftDOM - (void - (self ^. jsf "setUserPreferredLanguages" - [toJSVal (array languages)])) - --- | -wheelEventHandlerCount :: (MonadDOM m) => Internals -> m Word -wheelEventHandlerCount self - = liftDOM - (round <$> - ((self ^. jsf "wheelEventHandlerCount" ()) >>= valToNumber)) - --- | -touchEventHandlerCount :: (MonadDOM m) => Internals -> m Word -touchEventHandlerCount self - = liftDOM - (round <$> - ((self ^. jsf "touchEventHandlerCount" ()) >>= valToNumber)) - --- | -nodesFromRect :: - (MonadDOM 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 - = liftDOM - ((self ^. jsf "nodesFromRect" - [toJSVal document, toJSVal x, toJSVal y, toJSVal topPadding, - toJSVal rightPadding, toJSVal bottomPadding, toJSVal leftPadding, - toJSVal ignoreClipping, toJSVal allowShadowContent, - toJSVal allowChildFrameContent]) - >>= fromJSVal) - --- | -parserMetaData :: - (MonadDOM m, FromJSString result) => Internals -> JSVal -> m result -parserMetaData self func - = liftDOM - ((self ^. jsf "parserMetaData" [toJSVal func]) >>= - fromJSValUnchecked) - --- | -updateEditorUINowIfScheduled :: (MonadDOM m) => Internals -> m () -updateEditorUINowIfScheduled self - = liftDOM (void (self ^. jsf "updateEditorUINowIfScheduled" ())) - --- | -hasSpellingMarker :: - (MonadDOM m) => Internals -> Int -> Int -> m Bool -hasSpellingMarker self from length - = liftDOM - ((self ^. jsf "hasSpellingMarker" [toJSVal from, toJSVal length]) - >>= valToBool) - --- | -hasGrammarMarker :: - (MonadDOM m) => Internals -> Int -> Int -> m Bool -hasGrammarMarker self from length - = liftDOM - ((self ^. jsf "hasGrammarMarker" [toJSVal from, toJSVal length]) - >>= valToBool) - --- | -hasAutocorrectedMarker :: - (MonadDOM m) => Internals -> Int -> Int -> m Bool -hasAutocorrectedMarker self from length - = liftDOM - ((self ^. jsf "hasAutocorrectedMarker" - [toJSVal from, toJSVal length]) - >>= valToBool) - --- | -setContinuousSpellCheckingEnabled :: - (MonadDOM m) => Internals -> Bool -> m () -setContinuousSpellCheckingEnabled self enabled - = liftDOM - (void - (self ^. jsf "setContinuousSpellCheckingEnabled" - [toJSVal enabled])) - --- | -setAutomaticQuoteSubstitutionEnabled :: - (MonadDOM m) => Internals -> Bool -> m () -setAutomaticQuoteSubstitutionEnabled self enabled - = liftDOM - (void - (self ^. jsf "setAutomaticQuoteSubstitutionEnabled" - [toJSVal enabled])) - --- | -setAutomaticLinkDetectionEnabled :: - (MonadDOM m) => Internals -> Bool -> m () -setAutomaticLinkDetectionEnabled self enabled - = liftDOM - (void - (self ^. jsf "setAutomaticLinkDetectionEnabled" [toJSVal enabled])) - --- | -setAutomaticDashSubstitutionEnabled :: - (MonadDOM m) => Internals -> Bool -> m () -setAutomaticDashSubstitutionEnabled self enabled - = liftDOM - (void - (self ^. jsf "setAutomaticDashSubstitutionEnabled" - [toJSVal enabled])) - --- | -setAutomaticTextReplacementEnabled :: - (MonadDOM m) => Internals -> Bool -> m () -setAutomaticTextReplacementEnabled self enabled - = liftDOM - (void - (self ^. jsf "setAutomaticTextReplacementEnabled" - [toJSVal enabled])) - --- | -setAutomaticSpellingCorrectionEnabled :: - (MonadDOM m) => Internals -> Bool -> m () -setAutomaticSpellingCorrectionEnabled self enabled - = liftDOM - (void - (self ^. jsf "setAutomaticSpellingCorrectionEnabled" - [toJSVal enabled])) - --- | -isOverwriteModeEnabled :: (MonadDOM m) => Internals -> m Bool -isOverwriteModeEnabled self - = liftDOM ((self ^. jsf "isOverwriteModeEnabled" ()) >>= valToBool) - --- | -toggleOverwriteModeEnabled :: (MonadDOM m) => Internals -> m () -toggleOverwriteModeEnabled self - = liftDOM (void (self ^. jsf "toggleOverwriteModeEnabled" ())) - --- | -numberOfScrollableAreas :: (MonadDOM m) => Internals -> m Word -numberOfScrollableAreas self - = liftDOM - (round <$> - ((self ^. jsf "numberOfScrollableAreas" ()) >>= valToNumber)) - --- | -isPageBoxVisible :: (MonadDOM m) => Internals -> Int -> m Bool -isPageBoxVisible self pageNumber - = liftDOM - ((self ^. jsf "isPageBoxVisible" [toJSVal pageNumber]) >>= - valToBool) - --- | -layerTreeAsText :: - (MonadDOM m, IsDocument document, FromJSString result) => - Internals -> Maybe document -> Word -> m result -layerTreeAsText self document flags - = liftDOM - ((self ^. jsf "layerTreeAsText" [toJSVal document, toJSVal flags]) - >>= fromJSValUnchecked) - --- | -scrollingStateTreeAsText :: - (MonadDOM m, FromJSString result) => Internals -> m result -scrollingStateTreeAsText self - = liftDOM - ((self ^. jsf "scrollingStateTreeAsText" ()) >>= - fromJSValUnchecked) - --- | -mainThreadScrollingReasons :: - (MonadDOM m, FromJSString result) => Internals -> m result -mainThreadScrollingReasons self - = liftDOM - ((self ^. jsf "mainThreadScrollingReasons" ()) >>= - fromJSValUnchecked) - --- | -nonFastScrollableRects :: - (MonadDOM m) => Internals -> m (Maybe ClientRectList) -nonFastScrollableRects self - = liftDOM ((self ^. jsf "nonFastScrollableRects" ()) >>= fromJSVal) - --- | -repaintRectsAsText :: - (MonadDOM m, FromJSString result) => Internals -> m result -repaintRectsAsText self - = liftDOM - ((self ^. jsf "repaintRectsAsText" ()) >>= fromJSValUnchecked) - --- | -garbageCollectDocumentResources :: - (MonadDOM m) => Internals -> m () -garbageCollectDocumentResources self - = liftDOM (void (self ^. jsf "garbageCollectDocumentResources" ())) - --- | -allowRoundingHacks :: (MonadDOM m) => Internals -> m () -allowRoundingHacks self - = liftDOM (void (self ^. jsf "allowRoundingHacks" ())) - --- | -insertAuthorCSS :: - (MonadDOM m, ToJSString css) => Internals -> css -> m () -insertAuthorCSS self css - = liftDOM (void (self ^. jsf "insertAuthorCSS" [toJSVal css])) - --- | -insertUserCSS :: - (MonadDOM m, ToJSString css) => Internals -> css -> m () -insertUserCSS self css - = liftDOM (void (self ^. jsf "insertUserCSS" [toJSVal css])) - --- | -setBatteryStatus :: - (MonadDOM m, ToJSString eventType) => - Internals -> - eventType -> Bool -> Double -> Double -> Double -> m () -setBatteryStatus self eventType charging chargingTime - dischargingTime level - = liftDOM - (void - (self ^. jsf "setBatteryStatus" - [toJSVal eventType, toJSVal charging, toJSVal chargingTime, - toJSVal dischargingTime, toJSVal level])) - --- | -setDeviceProximity :: - (MonadDOM m, ToJSString eventType) => - Internals -> eventType -> Double -> Double -> Double -> m () -setDeviceProximity self eventType value min max - = liftDOM - (void - (self ^. jsf "setDeviceProximity" - [toJSVal eventType, toJSVal value, toJSVal min, toJSVal max])) - --- | -numberOfLiveNodes :: (MonadDOM m) => Internals -> m Word -numberOfLiveNodes self - = liftDOM - (round <$> ((self ^. jsf "numberOfLiveNodes" ()) >>= valToNumber)) - --- | -numberOfLiveDocuments :: (MonadDOM m) => Internals -> m Word -numberOfLiveDocuments self - = liftDOM - (round <$> - ((self ^. jsf "numberOfLiveDocuments" ()) >>= valToNumber)) - --- | -consoleMessageArgumentCounts :: - (MonadDOM m, FromJSString result) => Internals -> m [result] -consoleMessageArgumentCounts self - = liftDOM - ((self ^. jsf "consoleMessageArgumentCounts" ()) >>= - fromJSArrayUnchecked) - --- | -openDummyInspectorFrontend :: - (MonadDOM m, ToJSString url) => - Internals -> url -> m (Maybe Window) -openDummyInspectorFrontend self url - = liftDOM - ((self ^. jsf "openDummyInspectorFrontend" [toJSVal url]) >>= - fromJSVal) - --- | -closeDummyInspectorFrontend :: (MonadDOM m) => Internals -> m () -closeDummyInspectorFrontend self - = liftDOM (void (self ^. jsf "closeDummyInspectorFrontend" ())) - --- | -setJavaScriptProfilingEnabled :: - (MonadDOM m) => Internals -> Bool -> m () -setJavaScriptProfilingEnabled self creates - = liftDOM - (void - (self ^. jsf "setJavaScriptProfilingEnabled" [toJSVal creates])) - --- | -setInspectorIsUnderTest :: - (MonadDOM m) => Internals -> Bool -> m () -setInspectorIsUnderTest self isUnderTest - = liftDOM - (void - (self ^. jsf "setInspectorIsUnderTest" [toJSVal isUnderTest])) - --- | -counterValue :: - (MonadDOM m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -counterValue self element - = liftDOM - ((self ^. jsf "counterValue" [toJSVal element]) >>= - fromJSValUnchecked) - --- | -pageNumber :: - (MonadDOM m, IsElement element) => - Internals -> Maybe element -> Float -> Float -> m Int -pageNumber self element pageWidth pageHeight - = liftDOM - (round <$> - ((self ^. jsf "pageNumber" - [toJSVal element, toJSVal pageWidth, toJSVal pageHeight]) - >>= valToNumber)) - --- | -shortcutIconURLs :: - (MonadDOM m, FromJSString result) => Internals -> m [result] -shortcutIconURLs self - = liftDOM - ((self ^. jsf "shortcutIconURLs" ()) >>= fromJSArrayUnchecked) - --- | -allIconURLs :: - (MonadDOM m, FromJSString result) => Internals -> m [result] -allIconURLs self - = liftDOM ((self ^. jsf "allIconURLs" ()) >>= fromJSArrayUnchecked) - --- | -numberOfPages :: - (MonadDOM m) => Internals -> Double -> Double -> m Int -numberOfPages self pageWidthInPixels pageHeightInPixels - = liftDOM - (round <$> - ((self ^. jsf "numberOfPages" - [toJSVal pageWidthInPixels, toJSVal pageHeightInPixels]) - >>= valToNumber)) - --- | -pageProperty :: - (MonadDOM m, ToJSString propertyName, FromJSString result) => - Internals -> propertyName -> Int -> m result -pageProperty self propertyName pageNumber - = liftDOM - ((self ^. jsf "pageProperty" - [toJSVal propertyName, toJSVal pageNumber]) - >>= fromJSValUnchecked) - --- | -pageSizeAndMarginsInPixels :: - (MonadDOM m, FromJSString result) => - Internals -> - Int -> Int -> Int -> Int -> Int -> Int -> Int -> m result -pageSizeAndMarginsInPixels self pageIndex width height marginTop - marginRight marginBottom marginLeft - = liftDOM - ((self ^. jsf "pageSizeAndMarginsInPixels" - [toJSVal pageIndex, toJSVal width, toJSVal height, - toJSVal marginTop, toJSVal marginRight, toJSVal marginBottom, - toJSVal marginLeft]) - >>= fromJSValUnchecked) - --- | -setPageScaleFactor :: - (MonadDOM m) => Internals -> Float -> Int -> Int -> m () -setPageScaleFactor self scaleFactor x y - = liftDOM - (void - (self ^. jsf "setPageScaleFactor" - [toJSVal scaleFactor, toJSVal x, toJSVal y])) - --- | -setPageZoomFactor :: (MonadDOM m) => Internals -> Float -> m () -setPageZoomFactor self zoomFactor - = liftDOM - (void (self ^. jsf "setPageZoomFactor" [toJSVal zoomFactor])) - --- | -setHeaderHeight :: (MonadDOM m) => Internals -> Float -> m () -setHeaderHeight self height - = liftDOM (void (self ^. jsf "setHeaderHeight" [toJSVal height])) - --- | -setFooterHeight :: (MonadDOM m) => Internals -> Float -> m () -setFooterHeight self height - = liftDOM (void (self ^. jsf "setFooterHeight" [toJSVal height])) - --- | -setTopContentInset :: (MonadDOM m) => Internals -> Float -> m () -setTopContentInset self contentInset - = liftDOM - (void (self ^. jsf "setTopContentInset" [toJSVal contentInset])) - --- | -webkitWillEnterFullScreenForElement :: - (MonadDOM m, IsElement element) => - Internals -> Maybe element -> m () -webkitWillEnterFullScreenForElement self element - = liftDOM - (void - (self ^. jsf "webkitWillEnterFullScreenForElement" - [toJSVal element])) - --- | -webkitDidEnterFullScreenForElement :: - (MonadDOM m, IsElement element) => - Internals -> Maybe element -> m () -webkitDidEnterFullScreenForElement self element - = liftDOM - (void - (self ^. jsf "webkitDidEnterFullScreenForElement" - [toJSVal element])) - --- | -webkitWillExitFullScreenForElement :: - (MonadDOM m, IsElement element) => - Internals -> Maybe element -> m () -webkitWillExitFullScreenForElement self element - = liftDOM - (void - (self ^. jsf "webkitWillExitFullScreenForElement" - [toJSVal element])) - --- | -webkitDidExitFullScreenForElement :: - (MonadDOM m, IsElement element) => - Internals -> Maybe element -> m () -webkitDidExitFullScreenForElement self element - = liftDOM - (void - (self ^. jsf "webkitDidExitFullScreenForElement" - [toJSVal element])) - --- | -setApplicationCacheOriginQuota :: - (MonadDOM m) => Internals -> Word64 -> m () -setApplicationCacheOriginQuota self quota - = liftDOM - (void - (self ^. jsf "setApplicationCacheOriginQuota" [toJSVal quota])) - --- | -registerURLSchemeAsBypassingContentSecurityPolicy :: - (MonadDOM m, ToJSString scheme) => - Internals -> scheme -> m () -registerURLSchemeAsBypassingContentSecurityPolicy self scheme - = liftDOM - (void - (self ^. jsf "registerURLSchemeAsBypassingContentSecurityPolicy" - [toJSVal scheme])) - --- | -removeURLSchemeRegisteredAsBypassingContentSecurityPolicy :: - (MonadDOM m, ToJSString scheme) => - Internals -> scheme -> m () -removeURLSchemeRegisteredAsBypassingContentSecurityPolicy self - scheme - = liftDOM - (void - (self ^. - jsf "removeURLSchemeRegisteredAsBypassingContentSecurityPolicy" - [toJSVal scheme])) - --- | -mallocStatistics :: - (MonadDOM m) => Internals -> m (Maybe MallocStatistics) -mallocStatistics self - = liftDOM ((self ^. jsf "mallocStatistics" ()) >>= fromJSVal) - --- | -typeConversions :: - (MonadDOM m) => Internals -> m (Maybe TypeConversions) -typeConversions self - = liftDOM ((self ^. jsf "typeConversions" ()) >>= fromJSVal) - --- | -memoryInfo :: (MonadDOM m) => Internals -> m (Maybe MemoryInfo) -memoryInfo self - = liftDOM ((self ^. jsf "memoryInfo" ()) >>= fromJSVal) - --- | -getReferencedFilePaths :: - (MonadDOM m, FromJSString result) => Internals -> m [result] -getReferencedFilePaths self - = liftDOM - ((self ^. jsf "getReferencedFilePaths" ()) >>= - fromJSArrayUnchecked) - --- | -startTrackingRepaints :: (MonadDOM m) => Internals -> m () -startTrackingRepaints self - = liftDOM (void (self ^. jsf "startTrackingRepaints" ())) - --- | -stopTrackingRepaints :: (MonadDOM m) => Internals -> m () -stopTrackingRepaints self - = liftDOM (void (self ^. jsf "stopTrackingRepaints" ())) - --- | -isTimerThrottled :: (MonadDOM m) => Internals -> Int -> m Bool -isTimerThrottled self timerHandle - = liftDOM - ((self ^. jsf "isTimerThrottled" [toJSVal timerHandle]) >>= - valToBool) - --- | -updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks :: - (MonadDOM m, IsNode node) => - Internals -> Maybe node -> m () -updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks self node - = liftDOM - (void - (self ^. - jsf "updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks" - [toJSVal node])) - --- | -getCurrentCursorInfo :: - (MonadDOM m, FromJSString result) => Internals -> m result -getCurrentCursorInfo self - = liftDOM - ((self ^. jsf "getCurrentCursorInfo" ()) >>= fromJSValUnchecked) - --- | -markerTextForListItem :: - (MonadDOM m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -markerTextForListItem self element - = liftDOM - ((self ^. jsf "markerTextForListItem" [toJSVal element]) >>= - fromJSValUnchecked) - --- | -toolTipFromElement :: - (MonadDOM m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -toolTipFromElement self element - = liftDOM - ((self ^. jsf "toolTipFromElement" [toJSVal element]) >>= - fromJSValUnchecked) - --- | -deserializeBuffer :: - (MonadDOM m, IsArrayBuffer buffer) => - Internals -> Maybe buffer -> m (Maybe SerializedScriptValue) -deserializeBuffer self buffer - = liftDOM - ((self ^. jsf "deserializeBuffer" [toJSVal buffer]) >>= fromJSVal) - --- | -serializeObject :: - (MonadDOM m, IsSerializedScriptValue obj) => - Internals -> Maybe obj -> m (Maybe ArrayBuffer) -serializeObject self obj - = liftDOM - ((self ^. jsf "serializeObject" [toJSVal obj]) >>= fromJSVal) - --- | -setUsesOverlayScrollbars :: - (MonadDOM m) => Internals -> Bool -> m () -setUsesOverlayScrollbars self enabled - = liftDOM - (void (self ^. jsf "setUsesOverlayScrollbars" [toJSVal enabled])) - --- | -forceReload :: (MonadDOM m) => Internals -> Bool -> m () -forceReload self endToEnd - = liftDOM (void (self ^. jsf "forceReload" [toJSVal endToEnd])) - --- | -simulateAudioInterruption :: - (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () -simulateAudioInterruption self node - = liftDOM - (void (self ^. jsf "simulateAudioInterruption" [toJSVal node])) - --- | -mediaElementHasCharacteristic :: - (MonadDOM m, IsNode node, ToJSString characteristic) => - Internals -> Maybe node -> characteristic -> m Bool -mediaElementHasCharacteristic self node characteristic - = liftDOM - ((self ^. jsf "mediaElementHasCharacteristic" - [toJSVal node, toJSVal characteristic]) - >>= valToBool) - --- | -initializeMockCDM :: (MonadDOM m) => Internals -> m () -initializeMockCDM self - = liftDOM (void (self ^. jsf "initializeMockCDM" ())) - --- | -enableMockSpeechSynthesizer :: (MonadDOM m) => Internals -> m () -enableMockSpeechSynthesizer self - = liftDOM (void (self ^. jsf "enableMockSpeechSynthesizer" ())) - --- | -getImageSourceURL :: - (MonadDOM m, IsElement element, FromJSString result) => - Internals -> Maybe element -> m result -getImageSourceURL self element - = liftDOM - ((self ^. jsf "getImageSourceURL" [toJSVal element]) >>= - fromJSValUnchecked) - --- | -captionsStyleSheetOverride :: - (MonadDOM m, FromJSString result) => Internals -> m result -captionsStyleSheetOverride self - = liftDOM - ((self ^. jsf "captionsStyleSheetOverride" ()) >>= - fromJSValUnchecked) - --- | -setCaptionsStyleSheetOverride :: - (MonadDOM m, ToJSString override) => Internals -> override -> m () -setCaptionsStyleSheetOverride self override - = liftDOM - (void - (self ^. jsf "setCaptionsStyleSheetOverride" [toJSVal override])) - --- | -setPrimaryAudioTrackLanguageOverride :: - (MonadDOM m, ToJSString language) => - Internals -> language -> m () -setPrimaryAudioTrackLanguageOverride self language - = liftDOM - (void - (self ^. jsf "setPrimaryAudioTrackLanguageOverride" - [toJSVal language])) - --- | -setCaptionDisplayMode :: - (MonadDOM m, ToJSString mode) => Internals -> mode -> m () -setCaptionDisplayMode self mode - = liftDOM - (void (self ^. jsf "setCaptionDisplayMode" [toJSVal mode])) - --- | -createTimeRanges :: - (MonadDOM m, IsFloat32Array startTimes, IsFloat32Array endTimes) => - Internals -> - Maybe startTimes -> Maybe endTimes -> m (Maybe TimeRanges) -createTimeRanges self startTimes endTimes - = liftDOM - ((self ^. jsf "createTimeRanges" - [toJSVal startTimes, toJSVal endTimes]) - >>= fromJSVal) - --- | -closestTimeToTimeRanges :: - (MonadDOM m) => Internals -> Double -> Maybe TimeRanges -> m Double -closestTimeToTimeRanges self time ranges - = liftDOM - ((self ^. jsf "closestTimeToTimeRanges" - [toJSVal time, toJSVal ranges]) - >>= valToNumber) - --- | -isSelectPopupVisible :: - (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool -isSelectPopupVisible self node - = liftDOM - ((self ^. jsf "isSelectPopupVisible" [toJSVal node]) >>= valToBool) - --- | -isVibrating :: (MonadDOM m) => Internals -> m Bool -isVibrating self - = liftDOM ((self ^. jsf "isVibrating" ()) >>= valToBool) - --- | -isPluginUnavailabilityIndicatorObscured :: - (MonadDOM m, IsElement element) => - Internals -> Maybe element -> m Bool -isPluginUnavailabilityIndicatorObscured self element - = liftDOM - ((self ^. jsf "isPluginUnavailabilityIndicatorObscured" - [toJSVal element]) - >>= valToBool) - --- | -isPluginSnapshotted :: - (MonadDOM m, IsElement element) => - Internals -> Maybe element -> m Bool -isPluginSnapshotted self element - = liftDOM - ((self ^. jsf "isPluginSnapshotted" [toJSVal element]) >>= - valToBool) - --- | -selectionBounds :: - (MonadDOM m) => Internals -> m (Maybe ClientRect) -selectionBounds self - = liftDOM ((self ^. jsf "selectionBounds" ()) >>= fromJSVal) - --- | -initializeMockMediaSource :: (MonadDOM m) => Internals -> m () -initializeMockMediaSource self - = liftDOM (void (self ^. jsf "initializeMockMediaSource" ())) - --- | -bufferedSamplesForTrackID :: - (MonadDOM m, ToJSString trackID, FromJSString result) => - Internals -> Maybe SourceBuffer -> trackID -> m [result] -bufferedSamplesForTrackID self buffer trackID - = liftDOM - ((self ^. jsf "bufferedSamplesForTrackID" - [toJSVal buffer, toJSVal trackID]) - >>= fromJSArrayUnchecked) - --- | -beginMediaSessionInterruption :: (MonadDOM m) => Internals -> m () -beginMediaSessionInterruption self - = liftDOM (void (self ^. jsf "beginMediaSessionInterruption" ())) - --- | -endMediaSessionInterruption :: - (MonadDOM m, ToJSString flags) => Internals -> flags -> m () -endMediaSessionInterruption self flags - = liftDOM - (void (self ^. jsf "endMediaSessionInterruption" [toJSVal flags])) - --- | -applicationWillEnterForeground :: (MonadDOM m) => Internals -> m () -applicationWillEnterForeground self - = liftDOM (void (self ^. jsf "applicationWillEnterForeground" ())) - --- | -applicationWillEnterBackground :: (MonadDOM m) => Internals -> m () -applicationWillEnterBackground self - = liftDOM (void (self ^. jsf "applicationWillEnterBackground" ())) - --- | -setMediaSessionRestrictions :: - (MonadDOM m, ToJSString mediaType, ToJSString restrictions) => - Internals -> mediaType -> restrictions -> m () -setMediaSessionRestrictions self mediaType restrictions - = liftDOM - (void - (self ^. jsf "setMediaSessionRestrictions" - [toJSVal mediaType, toJSVal restrictions])) - --- | -postRemoteControlCommand :: - (MonadDOM m, ToJSString command) => Internals -> command -> m () -postRemoteControlCommand self command - = liftDOM - (void (self ^. jsf "postRemoteControlCommand" [toJSVal command])) - --- | -simulateSystemSleep :: (MonadDOM m) => Internals -> m () -simulateSystemSleep self - = liftDOM (void (self ^. jsf "simulateSystemSleep" ())) - --- | -simulateSystemWake :: (MonadDOM m) => Internals -> m () -simulateSystemWake self - = liftDOM (void (self ^. jsf "simulateSystemWake" ())) - --- | -elementIsBlockingDisplaySleep :: - (MonadDOM m, IsElement element) => - Internals -> Maybe element -> m Bool -elementIsBlockingDisplaySleep self element - = liftDOM - ((self ^. jsf "elementIsBlockingDisplaySleep" [toJSVal element]) - >>= valToBool) - --- | -installMockPageOverlay :: - (MonadDOM m) => Internals -> PageOverlayType -> m () -installMockPageOverlay self type' - = liftDOM - (void (self ^. jsf "installMockPageOverlay" [toJSVal type'])) - --- | -pageOverlayLayerTreeAsText :: - (MonadDOM m, FromJSString result) => Internals -> m result -pageOverlayLayerTreeAsText self - = liftDOM - ((self ^. jsf "pageOverlayLayerTreeAsText" ()) >>= - fromJSValUnchecked) - --- | -setPageMuted :: (MonadDOM m) => Internals -> Bool -> m () -setPageMuted self muted - = liftDOM (void (self ^. jsf "setPageMuted" [toJSVal muted])) - --- | -isPagePlayingAudio :: (MonadDOM m) => Internals -> m Bool -isPagePlayingAudio self - = liftDOM ((self ^. jsf "isPagePlayingAudio" ()) >>= valToBool) -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 - --- | -getSettings :: - (MonadDOM m) => Internals -> m (Maybe InternalSettings) -getSettings self = liftDOM ((self ^. js "settings") >>= fromJSVal) + (address, address_, nodeNeedsStyleRecalc, nodeNeedsStyleRecalc_, + description, description_, hasPausedImageAnimations, + hasPausedImageAnimations_, elementRenderTreeAsText, + elementRenderTreeAsText_, isPreloaded, isPreloaded_, + isLoadingFromMemoryCache, isLoadingFromMemoryCache_, + xhrResponseSource, xhrResponseSource_, clearMemoryCache, + pruneMemoryCacheToSize, memoryCacheSize, memoryCacheSize_, + clearPageCache, pageCacheSize, pageCacheSize_, + computedStyleIncludingVisitedInfo, + computedStyleIncludingVisitedInfo_, + computedStyleIncludingVisitedInfoUnchecked, ensureShadowRoot, + ensureShadowRoot_, ensureShadowRootUnchecked, createShadowRoot, + createShadowRoot_, createShadowRootUnchecked, shadowRoot, + shadowRoot_, shadowRootUnchecked, shadowRootType, shadowRootType_, + includerFor, includerFor_, includerForUnchecked, shadowPseudoId, + shadowPseudoId_, setShadowPseudoId, treeScopeRootNode, + treeScopeRootNode_, treeScopeRootNodeUnchecked, parentTreeScope, + parentTreeScope_, parentTreeScopeUnchecked, + lastSpatialNavigationCandidateCount, + lastSpatialNavigationCandidateCount_, numberOfActiveAnimations, + numberOfActiveAnimations_, suspendAnimations, resumeAnimations, + animationsAreSuspended, animationsAreSuspended_, + pauseAnimationAtTimeOnElement, pauseAnimationAtTimeOnElement_, + pauseAnimationAtTimeOnPseudoElement, + pauseAnimationAtTimeOnPseudoElement_, + pauseTransitionAtTimeOnElement, pauseTransitionAtTimeOnElement_, + pauseTransitionAtTimeOnPseudoElement, + pauseTransitionAtTimeOnPseudoElement_, attached, attached_, + visiblePlaceholder, visiblePlaceholder_, selectColorInColorChooser, + formControlStateOfPreviousHistoryItem, + formControlStateOfPreviousHistoryItem_, + setFormControlStateOfPreviousHistoryItem, absoluteCaretBounds, + absoluteCaretBounds_, absoluteCaretBoundsUnchecked, boundingBox, + boundingBox_, boundingBoxUnchecked, inspectorHighlightRects, + inspectorHighlightRects_, inspectorHighlightRectsUnchecked, + inspectorHighlightObject, inspectorHighlightObject_, + markerCountForNode, markerCountForNode_, markerRangeForNode, + markerRangeForNode_, markerRangeForNodeUnchecked, + markerDescriptionForNode, markerDescriptionForNode_, + addTextMatchMarker, setMarkedTextMatchesAreHighlighted, + invalidateFontCache, setScrollViewPosition, setPagination, + configurationForViewport, configurationForViewport_, + wasLastChangeUserEdit, wasLastChangeUserEdit_, + elementShouldAutoComplete, elementShouldAutoComplete_, + setEditingValue, setAutofilled, countMatchesForText, + countMatchesForText_, paintControlTints, scrollElementToRect, + rangeFromLocationAndLength, rangeFromLocationAndLength_, + rangeFromLocationAndLengthUnchecked, locationFromRange, + locationFromRange_, lengthFromRange, lengthFromRange_, rangeAsText, + rangeAsText_, subrange, subrange_, subrangeUnchecked, + rangeForDictionaryLookupAtLocation, + rangeForDictionaryLookupAtLocation_, + rangeForDictionaryLookupAtLocationUnchecked, setDelegatesScrolling, + lastSpellCheckRequestSequence, lastSpellCheckRequestSequence_, + lastSpellCheckProcessedSequence, lastSpellCheckProcessedSequence_, + userPreferredLanguages, userPreferredLanguages_, + setUserPreferredLanguages, wheelEventHandlerCount, + wheelEventHandlerCount_, touchEventHandlerCount, + touchEventHandlerCount_, nodesFromRect, nodesFromRect_, + nodesFromRectUnchecked, parserMetaData, parserMetaData_, + updateEditorUINowIfScheduled, hasSpellingMarker, + hasSpellingMarker_, hasGrammarMarker, hasGrammarMarker_, + hasAutocorrectedMarker, hasAutocorrectedMarker_, + setContinuousSpellCheckingEnabled, + setAutomaticQuoteSubstitutionEnabled, + setAutomaticLinkDetectionEnabled, + setAutomaticDashSubstitutionEnabled, + setAutomaticTextReplacementEnabled, + setAutomaticSpellingCorrectionEnabled, isOverwriteModeEnabled, + isOverwriteModeEnabled_, toggleOverwriteModeEnabled, + numberOfScrollableAreas, numberOfScrollableAreas_, + isPageBoxVisible, isPageBoxVisible_, layerTreeAsText, + layerTreeAsText_, scrollingStateTreeAsText, + scrollingStateTreeAsText_, mainThreadScrollingReasons, + mainThreadScrollingReasons_, nonFastScrollableRects, + nonFastScrollableRects_, nonFastScrollableRectsUnchecked, + repaintRectsAsText, repaintRectsAsText_, + garbageCollectDocumentResources, allowRoundingHacks, + insertAuthorCSS, insertUserCSS, setBatteryStatus, + setDeviceProximity, numberOfLiveNodes, numberOfLiveNodes_, + numberOfLiveDocuments, numberOfLiveDocuments_, + consoleMessageArgumentCounts, consoleMessageArgumentCounts_, + openDummyInspectorFrontend, openDummyInspectorFrontend_, + openDummyInspectorFrontendUnchecked, closeDummyInspectorFrontend, + setJavaScriptProfilingEnabled, setInspectorIsUnderTest, + counterValue, counterValue_, pageNumber, pageNumber_, + shortcutIconURLs, shortcutIconURLs_, allIconURLs, allIconURLs_, + numberOfPages, numberOfPages_, pageProperty, pageProperty_, + pageSizeAndMarginsInPixels, pageSizeAndMarginsInPixels_, + setPageScaleFactor, setPageZoomFactor, setHeaderHeight, + setFooterHeight, setTopContentInset, + webkitWillEnterFullScreenForElement, + webkitDidEnterFullScreenForElement, + webkitWillExitFullScreenForElement, + webkitDidExitFullScreenForElement, setApplicationCacheOriginQuota, + registerURLSchemeAsBypassingContentSecurityPolicy, + removeURLSchemeRegisteredAsBypassingContentSecurityPolicy, + mallocStatistics, mallocStatistics_, mallocStatisticsUnchecked, + typeConversions, typeConversions_, typeConversionsUnchecked, + memoryInfo, memoryInfo_, memoryInfoUnchecked, + getReferencedFilePaths, getReferencedFilePaths_, + startTrackingRepaints, stopTrackingRepaints, isTimerThrottled, + isTimerThrottled_, + updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks, + getCurrentCursorInfo, getCurrentCursorInfo_, markerTextForListItem, + markerTextForListItem_, toolTipFromElement, toolTipFromElement_, + deserializeBuffer, deserializeBuffer_, deserializeBufferUnchecked, + serializeObject, serializeObject_, serializeObjectUnchecked, + setUsesOverlayScrollbars, forceReload, simulateAudioInterruption, + mediaElementHasCharacteristic, mediaElementHasCharacteristic_, + initializeMockCDM, enableMockSpeechSynthesizer, getImageSourceURL, + getImageSourceURL_, captionsStyleSheetOverride, + captionsStyleSheetOverride_, setCaptionsStyleSheetOverride, + setPrimaryAudioTrackLanguageOverride, setCaptionDisplayMode, + createTimeRanges, createTimeRanges_, createTimeRangesUnchecked, + closestTimeToTimeRanges, closestTimeToTimeRanges_, + isSelectPopupVisible, isSelectPopupVisible_, isVibrating, + isVibrating_, isPluginUnavailabilityIndicatorObscured, + isPluginUnavailabilityIndicatorObscured_, isPluginSnapshotted, + isPluginSnapshotted_, selectionBounds, selectionBounds_, + selectionBoundsUnchecked, initializeMockMediaSource, + bufferedSamplesForTrackID, bufferedSamplesForTrackID_, + beginMediaSessionInterruption, endMediaSessionInterruption, + applicationWillEnterForeground, applicationWillEnterBackground, + setMediaSessionRestrictions, postRemoteControlCommand, + simulateSystemSleep, simulateSystemWake, + elementIsBlockingDisplaySleep, elementIsBlockingDisplaySleep_, + installMockPageOverlay, pageOverlayLayerTreeAsText, + pageOverlayLayerTreeAsText_, setPageMuted, 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, getSettings, + getSettingsUnchecked, getWorkerThreadCount, getConsoleProfiles, + Internals, castToInternals, gTypeInternals) + where +import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) +import Data.Typeable (Typeable) +import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) +import Data.Int (Int64) +import Data.Word (Word, Word64) +import JSDOM.Types +import Control.Applicative ((<$>)) +import Control.Monad (void) +import Control.Lens.Operators ((^.)) +import JSDOM.EventTargetClosures (EventName, unsafeEventName) +import JSDOM.Enums + +-- | +address :: + (MonadDOM m, IsNode node, FromJSString result) => + Internals -> Maybe node -> m result +address self node + = liftDOM + ((self ^. jsf "address" [toJSVal node]) >>= fromJSValUnchecked) + +-- | +address_ :: + (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () +address_ self node + = liftDOM (void (self ^. jsf "address" [toJSVal node])) + +-- | +nodeNeedsStyleRecalc :: + (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool +nodeNeedsStyleRecalc self node + = liftDOM + ((self ^. jsf "nodeNeedsStyleRecalc" [toJSVal node]) >>= valToBool) + +-- | +nodeNeedsStyleRecalc_ :: + (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () +nodeNeedsStyleRecalc_ self node + = liftDOM + (void (self ^. jsf "nodeNeedsStyleRecalc" [toJSVal node])) + +-- | +description :: + (MonadDOM m, FromJSString result) => Internals -> JSVal -> m result +description self value + = liftDOM + ((self ^. jsf "description" [toJSVal value]) >>= + fromJSValUnchecked) + +-- | +description_ :: (MonadDOM m) => Internals -> JSVal -> m () +description_ self value + = liftDOM (void (self ^. jsf "description" [toJSVal value])) + +-- | +hasPausedImageAnimations :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m Bool +hasPausedImageAnimations self element + = liftDOM + ((self ^. jsf "hasPausedImageAnimations" [toJSVal element]) >>= + valToBool) + +-- | +hasPausedImageAnimations_ :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m () +hasPausedImageAnimations_ self element + = liftDOM + (void (self ^. jsf "hasPausedImageAnimations" [toJSVal element])) + +-- | +elementRenderTreeAsText :: + (MonadDOM m, IsElement element, FromJSString result) => + Internals -> Maybe element -> m result +elementRenderTreeAsText self element + = liftDOM + ((self ^. jsf "elementRenderTreeAsText" [toJSVal element]) >>= + fromJSValUnchecked) + +-- | +elementRenderTreeAsText_ :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m () +elementRenderTreeAsText_ self element + = liftDOM + (void (self ^. jsf "elementRenderTreeAsText" [toJSVal element])) + +-- | +isPreloaded :: + (MonadDOM m, ToJSString url) => Internals -> url -> m Bool +isPreloaded self url + = liftDOM ((self ^. jsf "isPreloaded" [toJSVal url]) >>= valToBool) + +-- | +isPreloaded_ :: + (MonadDOM m, ToJSString url) => Internals -> url -> m () +isPreloaded_ self url + = liftDOM (void (self ^. jsf "isPreloaded" [toJSVal url])) + +-- | +isLoadingFromMemoryCache :: + (MonadDOM m, ToJSString url) => Internals -> url -> m Bool +isLoadingFromMemoryCache self url + = liftDOM + ((self ^. jsf "isLoadingFromMemoryCache" [toJSVal url]) >>= + valToBool) + +-- | +isLoadingFromMemoryCache_ :: + (MonadDOM m, ToJSString url) => Internals -> url -> m () +isLoadingFromMemoryCache_ self url + = liftDOM + (void (self ^. jsf "isLoadingFromMemoryCache" [toJSVal url])) + +-- | +xhrResponseSource :: + (MonadDOM m, FromJSString result) => + Internals -> Maybe XMLHttpRequest -> m result +xhrResponseSource self xhr + = liftDOM + ((self ^. jsf "xhrResponseSource" [toJSVal xhr]) >>= + fromJSValUnchecked) + +-- | +xhrResponseSource_ :: + (MonadDOM m) => Internals -> Maybe XMLHttpRequest -> m () +xhrResponseSource_ self xhr + = liftDOM (void (self ^. jsf "xhrResponseSource" [toJSVal xhr])) + +-- | +clearMemoryCache :: (MonadDOM m) => Internals -> m () +clearMemoryCache self + = liftDOM (void (self ^. jsf "clearMemoryCache" ())) + +-- | +pruneMemoryCacheToSize :: (MonadDOM m) => Internals -> Int -> m () +pruneMemoryCacheToSize self size + = liftDOM + (void (self ^. jsf "pruneMemoryCacheToSize" [toJSVal size])) + +-- | +memoryCacheSize :: (MonadDOM m) => Internals -> m Int +memoryCacheSize self + = liftDOM + (round <$> ((self ^. jsf "memoryCacheSize" ()) >>= valToNumber)) + +-- | +memoryCacheSize_ :: (MonadDOM m) => Internals -> m () +memoryCacheSize_ self + = liftDOM (void (self ^. jsf "memoryCacheSize" ())) + +-- | +clearPageCache :: (MonadDOM m) => Internals -> m () +clearPageCache self + = liftDOM (void (self ^. jsf "clearPageCache" ())) + +-- | +pageCacheSize :: (MonadDOM m) => Internals -> m Word +pageCacheSize self + = liftDOM + (round <$> ((self ^. jsf "pageCacheSize" ()) >>= valToNumber)) + +-- | +pageCacheSize_ :: (MonadDOM m) => Internals -> m () +pageCacheSize_ self + = liftDOM (void (self ^. jsf "pageCacheSize" ())) + +-- | +computedStyleIncludingVisitedInfo :: + (MonadDOM m, IsNode node) => + Internals -> Maybe node -> m (Maybe CSSStyleDeclaration) +computedStyleIncludingVisitedInfo self node + = liftDOM + ((self ^. jsf "computedStyleIncludingVisitedInfo" [toJSVal node]) + >>= fromJSVal) + +-- | +computedStyleIncludingVisitedInfo_ :: + (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () +computedStyleIncludingVisitedInfo_ self node + = liftDOM + (void + (self ^. jsf "computedStyleIncludingVisitedInfo" [toJSVal node])) + +-- | +computedStyleIncludingVisitedInfoUnchecked :: + (MonadDOM m, IsNode node) => + Internals -> Maybe node -> m CSSStyleDeclaration +computedStyleIncludingVisitedInfoUnchecked self node + = liftDOM + ((self ^. jsf "computedStyleIncludingVisitedInfo" [toJSVal node]) + >>= fromJSValUnchecked) + +-- | +ensureShadowRoot :: + (MonadDOM m, IsElement host) => + Internals -> Maybe host -> m (Maybe Node) +ensureShadowRoot self host + = liftDOM + ((self ^. jsf "ensureShadowRoot" [toJSVal host]) >>= fromJSVal) + +-- | +ensureShadowRoot_ :: + (MonadDOM m, IsElement host) => Internals -> Maybe host -> m () +ensureShadowRoot_ self host + = liftDOM (void (self ^. jsf "ensureShadowRoot" [toJSVal host])) + +-- | +ensureShadowRootUnchecked :: + (MonadDOM m, IsElement host) => Internals -> Maybe host -> m Node +ensureShadowRootUnchecked self host + = liftDOM + ((self ^. jsf "ensureShadowRoot" [toJSVal host]) >>= + fromJSValUnchecked) + +-- | +createShadowRoot :: + (MonadDOM m, IsElement host) => + Internals -> Maybe host -> m (Maybe Node) +createShadowRoot self host + = liftDOM + ((self ^. jsf "createShadowRoot" [toJSVal host]) >>= fromJSVal) + +-- | +createShadowRoot_ :: + (MonadDOM m, IsElement host) => Internals -> Maybe host -> m () +createShadowRoot_ self host + = liftDOM (void (self ^. jsf "createShadowRoot" [toJSVal host])) + +-- | +createShadowRootUnchecked :: + (MonadDOM m, IsElement host) => Internals -> Maybe host -> m Node +createShadowRootUnchecked self host + = liftDOM + ((self ^. jsf "createShadowRoot" [toJSVal host]) >>= + fromJSValUnchecked) + +-- | +shadowRoot :: + (MonadDOM m, IsElement host) => + Internals -> Maybe host -> m (Maybe Node) +shadowRoot self host + = liftDOM ((self ^. jsf "shadowRoot" [toJSVal host]) >>= fromJSVal) + +-- | +shadowRoot_ :: + (MonadDOM m, IsElement host) => Internals -> Maybe host -> m () +shadowRoot_ self host + = liftDOM (void (self ^. jsf "shadowRoot" [toJSVal host])) + +-- | +shadowRootUnchecked :: + (MonadDOM m, IsElement host) => Internals -> Maybe host -> m Node +shadowRootUnchecked self host + = liftDOM + ((self ^. jsf "shadowRoot" [toJSVal host]) >>= fromJSValUnchecked) + +-- | +shadowRootType :: + (MonadDOM m, IsNode root, FromJSString result) => + Internals -> Maybe root -> m result +shadowRootType self root + = liftDOM + ((self ^. jsf "shadowRootType" [toJSVal root]) >>= + fromJSValUnchecked) + +-- | +shadowRootType_ :: + (MonadDOM m, IsNode root) => Internals -> Maybe root -> m () +shadowRootType_ self root + = liftDOM (void (self ^. jsf "shadowRootType" [toJSVal root])) + +-- | +includerFor :: + (MonadDOM m, IsNode node) => + Internals -> Maybe node -> m (Maybe Element) +includerFor self node + = liftDOM + ((self ^. jsf "includerFor" [toJSVal node]) >>= fromJSVal) + +-- | +includerFor_ :: + (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () +includerFor_ self node + = liftDOM (void (self ^. jsf "includerFor" [toJSVal node])) + +-- | +includerForUnchecked :: + (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Element +includerForUnchecked self node + = liftDOM + ((self ^. jsf "includerFor" [toJSVal node]) >>= fromJSValUnchecked) + +-- | +shadowPseudoId :: + (MonadDOM m, IsElement element, FromJSString result) => + Internals -> Maybe element -> m result +shadowPseudoId self element + = liftDOM + ((self ^. jsf "shadowPseudoId" [toJSVal element]) >>= + fromJSValUnchecked) + +-- | +shadowPseudoId_ :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m () +shadowPseudoId_ self element + = liftDOM (void (self ^. jsf "shadowPseudoId" [toJSVal element])) + +-- | +setShadowPseudoId :: + (MonadDOM m, IsElement element, ToJSString id) => + Internals -> Maybe element -> id -> m () +setShadowPseudoId self element id + = liftDOM + (void + (self ^. jsf "setShadowPseudoId" [toJSVal element, toJSVal id])) + +-- | +treeScopeRootNode :: + (MonadDOM m, IsNode node) => + Internals -> Maybe node -> m (Maybe Node) +treeScopeRootNode self node + = liftDOM + ((self ^. jsf "treeScopeRootNode" [toJSVal node]) >>= fromJSVal) + +-- | +treeScopeRootNode_ :: + (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () +treeScopeRootNode_ self node + = liftDOM (void (self ^. jsf "treeScopeRootNode" [toJSVal node])) + +-- | +treeScopeRootNodeUnchecked :: + (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Node +treeScopeRootNodeUnchecked self node + = liftDOM + ((self ^. jsf "treeScopeRootNode" [toJSVal node]) >>= + fromJSValUnchecked) + +-- | +parentTreeScope :: + (MonadDOM m, IsNode node) => + Internals -> Maybe node -> m (Maybe Node) +parentTreeScope self node + = liftDOM + ((self ^. jsf "parentTreeScope" [toJSVal node]) >>= fromJSVal) + +-- | +parentTreeScope_ :: + (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () +parentTreeScope_ self node + = liftDOM (void (self ^. jsf "parentTreeScope" [toJSVal node])) + +-- | +parentTreeScopeUnchecked :: + (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Node +parentTreeScopeUnchecked self node + = liftDOM + ((self ^. jsf "parentTreeScope" [toJSVal node]) >>= + fromJSValUnchecked) + +-- | +lastSpatialNavigationCandidateCount :: + (MonadDOM m) => Internals -> m Word +lastSpatialNavigationCandidateCount self + = liftDOM + (round <$> + ((self ^. jsf "lastSpatialNavigationCandidateCount" ()) >>= + valToNumber)) + +-- | +lastSpatialNavigationCandidateCount_ :: + (MonadDOM m) => Internals -> m () +lastSpatialNavigationCandidateCount_ self + = liftDOM + (void (self ^. jsf "lastSpatialNavigationCandidateCount" ())) + +-- | +numberOfActiveAnimations :: (MonadDOM m) => Internals -> m Word +numberOfActiveAnimations self + = liftDOM + (round <$> + ((self ^. jsf "numberOfActiveAnimations" ()) >>= valToNumber)) + +-- | +numberOfActiveAnimations_ :: (MonadDOM m) => Internals -> m () +numberOfActiveAnimations_ self + = liftDOM (void (self ^. jsf "numberOfActiveAnimations" ())) + +-- | +suspendAnimations :: (MonadDOM m) => Internals -> m () +suspendAnimations self + = liftDOM (void (self ^. jsf "suspendAnimations" ())) + +-- | +resumeAnimations :: (MonadDOM m) => Internals -> m () +resumeAnimations self + = liftDOM (void (self ^. jsf "resumeAnimations" ())) + +-- | +animationsAreSuspended :: (MonadDOM m) => Internals -> m Bool +animationsAreSuspended self + = liftDOM ((self ^. jsf "animationsAreSuspended" ()) >>= valToBool) + +-- | +animationsAreSuspended_ :: (MonadDOM m) => Internals -> m () +animationsAreSuspended_ self + = liftDOM (void (self ^. jsf "animationsAreSuspended" ())) + +-- | +pauseAnimationAtTimeOnElement :: + (MonadDOM m, ToJSString animationName, IsElement element) => + Internals -> animationName -> Double -> Maybe element -> m Bool +pauseAnimationAtTimeOnElement self animationName pauseTime element + = liftDOM + ((self ^. jsf "pauseAnimationAtTimeOnElement" + [toJSVal animationName, toJSVal pauseTime, toJSVal element]) + >>= valToBool) + +-- | +pauseAnimationAtTimeOnElement_ :: + (MonadDOM m, ToJSString animationName, IsElement element) => + Internals -> animationName -> Double -> Maybe element -> m () +pauseAnimationAtTimeOnElement_ self animationName pauseTime element + = liftDOM + (void + (self ^. jsf "pauseAnimationAtTimeOnElement" + [toJSVal animationName, toJSVal pauseTime, toJSVal element])) + +-- | +pauseAnimationAtTimeOnPseudoElement :: + (MonadDOM m, ToJSString animationName, IsElement element, + ToJSString pseudoId) => + Internals -> + animationName -> + Double -> Maybe element -> pseudoId -> m Bool +pauseAnimationAtTimeOnPseudoElement self animationName pauseTime + element pseudoId + = liftDOM + ((self ^. jsf "pauseAnimationAtTimeOnPseudoElement" + [toJSVal animationName, toJSVal pauseTime, toJSVal element, + toJSVal pseudoId]) + >>= valToBool) + +-- | +pauseAnimationAtTimeOnPseudoElement_ :: + (MonadDOM m, ToJSString animationName, IsElement element, + ToJSString pseudoId) => + Internals -> + animationName -> + Double -> Maybe element -> pseudoId -> m () +pauseAnimationAtTimeOnPseudoElement_ self animationName pauseTime + element pseudoId + = liftDOM + (void + (self ^. jsf "pauseAnimationAtTimeOnPseudoElement" + [toJSVal animationName, toJSVal pauseTime, toJSVal element, + toJSVal pseudoId])) + +-- | +pauseTransitionAtTimeOnElement :: + (MonadDOM m, ToJSString propertyName, IsElement element) => + Internals -> propertyName -> Double -> Maybe element -> m Bool +pauseTransitionAtTimeOnElement self propertyName pauseTime element + = liftDOM + ((self ^. jsf "pauseTransitionAtTimeOnElement" + [toJSVal propertyName, toJSVal pauseTime, toJSVal element]) + >>= valToBool) + +-- | +pauseTransitionAtTimeOnElement_ :: + (MonadDOM m, ToJSString propertyName, IsElement element) => + Internals -> propertyName -> Double -> Maybe element -> m () +pauseTransitionAtTimeOnElement_ self propertyName pauseTime element + = liftDOM + (void + (self ^. jsf "pauseTransitionAtTimeOnElement" + [toJSVal propertyName, toJSVal pauseTime, toJSVal element])) + +-- | +pauseTransitionAtTimeOnPseudoElement :: + (MonadDOM m, ToJSString property, IsElement element, + ToJSString pseudoId) => + Internals -> + property -> Double -> Maybe element -> pseudoId -> m Bool +pauseTransitionAtTimeOnPseudoElement self property pauseTime + element pseudoId + = liftDOM + ((self ^. jsf "pauseTransitionAtTimeOnPseudoElement" + [toJSVal property, toJSVal pauseTime, toJSVal element, + toJSVal pseudoId]) + >>= valToBool) + +-- | +pauseTransitionAtTimeOnPseudoElement_ :: + (MonadDOM m, ToJSString property, IsElement element, + ToJSString pseudoId) => + Internals -> + property -> Double -> Maybe element -> pseudoId -> m () +pauseTransitionAtTimeOnPseudoElement_ self property pauseTime + element pseudoId + = liftDOM + (void + (self ^. jsf "pauseTransitionAtTimeOnPseudoElement" + [toJSVal property, toJSVal pauseTime, toJSVal element, + toJSVal pseudoId])) + +-- | +attached :: + (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool +attached self node + = liftDOM ((self ^. jsf "attached" [toJSVal node]) >>= valToBool) + +-- | +attached_ :: + (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () +attached_ self node + = liftDOM (void (self ^. jsf "attached" [toJSVal node])) + +-- | +visiblePlaceholder :: + (MonadDOM m, IsElement element, FromJSString result) => + Internals -> Maybe element -> m result +visiblePlaceholder self element + = liftDOM + ((self ^. jsf "visiblePlaceholder" [toJSVal element]) >>= + fromJSValUnchecked) + +-- | +visiblePlaceholder_ :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m () +visiblePlaceholder_ self element + = liftDOM + (void (self ^. jsf "visiblePlaceholder" [toJSVal element])) + +-- | +selectColorInColorChooser :: + (MonadDOM m, IsElement element, ToJSString colorValue) => + Internals -> Maybe element -> colorValue -> m () +selectColorInColorChooser self element colorValue + = liftDOM + (void + (self ^. jsf "selectColorInColorChooser" + [toJSVal element, toJSVal colorValue])) + +-- | +formControlStateOfPreviousHistoryItem :: + (MonadDOM m, FromJSString result) => Internals -> m [result] +formControlStateOfPreviousHistoryItem self + = liftDOM + ((self ^. jsf "formControlStateOfPreviousHistoryItem" ()) >>= + fromJSArrayUnchecked) + +-- | +formControlStateOfPreviousHistoryItem_ :: + (MonadDOM m) => Internals -> m () +formControlStateOfPreviousHistoryItem_ self + = liftDOM + (void (self ^. jsf "formControlStateOfPreviousHistoryItem" ())) + +-- | +setFormControlStateOfPreviousHistoryItem :: + (MonadDOM m, ToJSString values) => + Internals -> [values] -> m () +setFormControlStateOfPreviousHistoryItem self values + = liftDOM + (void + (self ^. jsf "setFormControlStateOfPreviousHistoryItem" + [toJSVal (array values)])) + +-- | +absoluteCaretBounds :: + (MonadDOM m) => Internals -> m (Maybe ClientRect) +absoluteCaretBounds self + = liftDOM ((self ^. jsf "absoluteCaretBounds" ()) >>= fromJSVal) + +-- | +absoluteCaretBounds_ :: (MonadDOM m) => Internals -> m () +absoluteCaretBounds_ self + = liftDOM (void (self ^. jsf "absoluteCaretBounds" ())) + +-- | +absoluteCaretBoundsUnchecked :: + (MonadDOM m) => Internals -> m ClientRect +absoluteCaretBoundsUnchecked self + = liftDOM + ((self ^. jsf "absoluteCaretBounds" ()) >>= fromJSValUnchecked) + +-- | +boundingBox :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m (Maybe ClientRect) +boundingBox self element + = liftDOM + ((self ^. jsf "boundingBox" [toJSVal element]) >>= fromJSVal) + +-- | +boundingBox_ :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m () +boundingBox_ self element + = liftDOM (void (self ^. jsf "boundingBox" [toJSVal element])) + +-- | +boundingBoxUnchecked :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m ClientRect +boundingBoxUnchecked self element + = liftDOM + ((self ^. jsf "boundingBox" [toJSVal element]) >>= + fromJSValUnchecked) + +-- | +inspectorHighlightRects :: + (MonadDOM m) => Internals -> m (Maybe ClientRectList) +inspectorHighlightRects self + = liftDOM + ((self ^. jsf "inspectorHighlightRects" ()) >>= fromJSVal) + +-- | +inspectorHighlightRects_ :: (MonadDOM m) => Internals -> m () +inspectorHighlightRects_ self + = liftDOM (void (self ^. jsf "inspectorHighlightRects" ())) + +-- | +inspectorHighlightRectsUnchecked :: + (MonadDOM m) => Internals -> m ClientRectList +inspectorHighlightRectsUnchecked self + = liftDOM + ((self ^. jsf "inspectorHighlightRects" ()) >>= fromJSValUnchecked) + +-- | +inspectorHighlightObject :: + (MonadDOM m, FromJSString result) => Internals -> m result +inspectorHighlightObject self + = liftDOM + ((self ^. jsf "inspectorHighlightObject" ()) >>= + fromJSValUnchecked) + +-- | +inspectorHighlightObject_ :: (MonadDOM m) => Internals -> m () +inspectorHighlightObject_ self + = liftDOM (void (self ^. jsf "inspectorHighlightObject" ())) + +-- | +markerCountForNode :: + (MonadDOM m, IsNode node, ToJSString markerType) => + Internals -> Maybe node -> markerType -> m Word +markerCountForNode self node markerType + = liftDOM + (round <$> + ((self ^. jsf "markerCountForNode" + [toJSVal node, toJSVal markerType]) + >>= valToNumber)) + +-- | +markerCountForNode_ :: + (MonadDOM m, IsNode node, ToJSString markerType) => + Internals -> Maybe node -> markerType -> m () +markerCountForNode_ self node markerType + = liftDOM + (void + (self ^. jsf "markerCountForNode" + [toJSVal node, toJSVal markerType])) + +-- | +markerRangeForNode :: + (MonadDOM m, IsNode node, ToJSString markerType) => + Internals -> Maybe node -> markerType -> Word -> m (Maybe Range) +markerRangeForNode self node markerType index + = liftDOM + ((self ^. jsf "markerRangeForNode" + [toJSVal node, toJSVal markerType, toJSVal index]) + >>= fromJSVal) + +-- | +markerRangeForNode_ :: + (MonadDOM m, IsNode node, ToJSString markerType) => + Internals -> Maybe node -> markerType -> Word -> m () +markerRangeForNode_ self node markerType index + = liftDOM + (void + (self ^. jsf "markerRangeForNode" + [toJSVal node, toJSVal markerType, toJSVal index])) + +-- | +markerRangeForNodeUnchecked :: + (MonadDOM m, IsNode node, ToJSString markerType) => + Internals -> Maybe node -> markerType -> Word -> m Range +markerRangeForNodeUnchecked self node markerType index + = liftDOM + ((self ^. jsf "markerRangeForNode" + [toJSVal node, toJSVal markerType, toJSVal index]) + >>= fromJSValUnchecked) + +-- | +markerDescriptionForNode :: + (MonadDOM m, IsNode node, ToJSString markerType, + FromJSString result) => + Internals -> Maybe node -> markerType -> Word -> m result +markerDescriptionForNode self node markerType index + = liftDOM + ((self ^. jsf "markerDescriptionForNode" + [toJSVal node, toJSVal markerType, toJSVal index]) + >>= fromJSValUnchecked) + +-- | +markerDescriptionForNode_ :: + (MonadDOM m, IsNode node, ToJSString markerType) => + Internals -> Maybe node -> markerType -> Word -> m () +markerDescriptionForNode_ self node markerType index + = liftDOM + (void + (self ^. jsf "markerDescriptionForNode" + [toJSVal node, toJSVal markerType, toJSVal index])) + +-- | +addTextMatchMarker :: + (MonadDOM m) => Internals -> Maybe Range -> Bool -> m () +addTextMatchMarker self range isActive + = liftDOM + (void + (self ^. jsf "addTextMatchMarker" + [toJSVal range, toJSVal isActive])) + +-- | +setMarkedTextMatchesAreHighlighted :: + (MonadDOM m) => Internals -> Bool -> m () +setMarkedTextMatchesAreHighlighted self flag + = liftDOM + (void + (self ^. jsf "setMarkedTextMatchesAreHighlighted" [toJSVal flag])) + +-- | +invalidateFontCache :: (MonadDOM m) => Internals -> m () +invalidateFontCache self + = liftDOM (void (self ^. jsf "invalidateFontCache" ())) + +-- | +setScrollViewPosition :: + (MonadDOM m) => Internals -> Int -> Int -> m () +setScrollViewPosition self x y + = liftDOM + (void (self ^. jsf "setScrollViewPosition" [toJSVal x, toJSVal y])) + +-- | +setPagination :: + (MonadDOM m, ToJSString mode) => + Internals -> mode -> Int -> Int -> m () +setPagination self mode gap pageLength + = liftDOM + (void + (self ^. jsf "setPagination" + [toJSVal mode, toJSVal gap, toJSVal pageLength])) + +-- | +configurationForViewport :: + (MonadDOM m, FromJSString result) => + Internals -> Float -> Int -> Int -> Int -> Int -> m result +configurationForViewport self devicePixelRatio deviceWidth + deviceHeight availableWidth availableHeight + = liftDOM + ((self ^. jsf "configurationForViewport" + [toJSVal devicePixelRatio, toJSVal deviceWidth, + toJSVal deviceHeight, toJSVal availableWidth, + toJSVal availableHeight]) + >>= fromJSValUnchecked) + +-- | +configurationForViewport_ :: + (MonadDOM m) => + Internals -> Float -> Int -> Int -> Int -> Int -> m () +configurationForViewport_ self devicePixelRatio deviceWidth + deviceHeight availableWidth availableHeight + = liftDOM + (void + (self ^. jsf "configurationForViewport" + [toJSVal devicePixelRatio, toJSVal deviceWidth, + toJSVal deviceHeight, toJSVal availableWidth, + toJSVal availableHeight])) + +-- | +wasLastChangeUserEdit :: + (MonadDOM m, IsElement textField) => + Internals -> Maybe textField -> m Bool +wasLastChangeUserEdit self textField + = liftDOM + ((self ^. jsf "wasLastChangeUserEdit" [toJSVal textField]) >>= + valToBool) + +-- | +wasLastChangeUserEdit_ :: + (MonadDOM m, IsElement textField) => + Internals -> Maybe textField -> m () +wasLastChangeUserEdit_ self textField + = liftDOM + (void (self ^. jsf "wasLastChangeUserEdit" [toJSVal textField])) + +-- | +elementShouldAutoComplete :: + (MonadDOM m, IsElement inputElement) => + Internals -> Maybe inputElement -> m Bool +elementShouldAutoComplete self inputElement + = liftDOM + ((self ^. jsf "elementShouldAutoComplete" [toJSVal inputElement]) + >>= valToBool) + +-- | +elementShouldAutoComplete_ :: + (MonadDOM m, IsElement inputElement) => + Internals -> Maybe inputElement -> m () +elementShouldAutoComplete_ self inputElement + = liftDOM + (void + (self ^. jsf "elementShouldAutoComplete" [toJSVal inputElement])) + +-- | +setEditingValue :: + (MonadDOM m, IsElement inputElement, ToJSString value) => + Internals -> Maybe inputElement -> value -> m () +setEditingValue self inputElement value + = liftDOM + (void + (self ^. jsf "setEditingValue" + [toJSVal inputElement, toJSVal value])) + +-- | +setAutofilled :: + (MonadDOM m, IsElement inputElement) => + Internals -> Maybe inputElement -> Bool -> m () +setAutofilled self inputElement enabled + = liftDOM + (void + (self ^. jsf "setAutofilled" + [toJSVal inputElement, toJSVal enabled])) + +-- | +countMatchesForText :: + (MonadDOM m, ToJSString text, ToJSString markMatches) => + Internals -> text -> Word -> markMatches -> m Word +countMatchesForText self text findOptions markMatches + = liftDOM + (round <$> + ((self ^. jsf "countMatchesForText" + [toJSVal text, toJSVal findOptions, toJSVal markMatches]) + >>= valToNumber)) + +-- | +countMatchesForText_ :: + (MonadDOM m, ToJSString text, ToJSString markMatches) => + Internals -> text -> Word -> markMatches -> m () +countMatchesForText_ self text findOptions markMatches + = liftDOM + (void + (self ^. jsf "countMatchesForText" + [toJSVal text, toJSVal findOptions, toJSVal markMatches])) + +-- | +paintControlTints :: (MonadDOM m) => Internals -> m () +paintControlTints self + = liftDOM (void (self ^. jsf "paintControlTints" ())) + +-- | +scrollElementToRect :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> Int -> Int -> Int -> Int -> m () +scrollElementToRect self element x y w h + = liftDOM + (void + (self ^. jsf "scrollElementToRect" + [toJSVal element, toJSVal x, toJSVal y, toJSVal w, toJSVal h])) + +-- | +rangeFromLocationAndLength :: + (MonadDOM m, IsElement scope) => + Internals -> Maybe scope -> Int -> Int -> m (Maybe Range) +rangeFromLocationAndLength self scope rangeLocation rangeLength + = liftDOM + ((self ^. jsf "rangeFromLocationAndLength" + [toJSVal scope, toJSVal rangeLocation, toJSVal rangeLength]) + >>= fromJSVal) + +-- | +rangeFromLocationAndLength_ :: + (MonadDOM m, IsElement scope) => + Internals -> Maybe scope -> Int -> Int -> m () +rangeFromLocationAndLength_ self scope rangeLocation rangeLength + = liftDOM + (void + (self ^. jsf "rangeFromLocationAndLength" + [toJSVal scope, toJSVal rangeLocation, toJSVal rangeLength])) + +-- | +rangeFromLocationAndLengthUnchecked :: + (MonadDOM m, IsElement scope) => + Internals -> Maybe scope -> Int -> Int -> m Range +rangeFromLocationAndLengthUnchecked self scope rangeLocation + rangeLength + = liftDOM + ((self ^. jsf "rangeFromLocationAndLength" + [toJSVal scope, toJSVal rangeLocation, toJSVal rangeLength]) + >>= fromJSValUnchecked) + +-- | +locationFromRange :: + (MonadDOM m, IsElement scope) => + Internals -> Maybe scope -> Maybe Range -> m Word +locationFromRange self scope range + = liftDOM + (round <$> + ((self ^. jsf "locationFromRange" [toJSVal scope, toJSVal range]) + >>= valToNumber)) + +-- | +locationFromRange_ :: + (MonadDOM m, IsElement scope) => + Internals -> Maybe scope -> Maybe Range -> m () +locationFromRange_ self scope range + = liftDOM + (void + (self ^. jsf "locationFromRange" [toJSVal scope, toJSVal range])) + +-- | +lengthFromRange :: + (MonadDOM m, IsElement scope) => + Internals -> Maybe scope -> Maybe Range -> m Word +lengthFromRange self scope range + = liftDOM + (round <$> + ((self ^. jsf "lengthFromRange" [toJSVal scope, toJSVal range]) >>= + valToNumber)) + +-- | +lengthFromRange_ :: + (MonadDOM m, IsElement scope) => + Internals -> Maybe scope -> Maybe Range -> m () +lengthFromRange_ self scope range + = liftDOM + (void + (self ^. jsf "lengthFromRange" [toJSVal scope, toJSVal range])) + +-- | +rangeAsText :: + (MonadDOM m, FromJSString result) => + Internals -> Maybe Range -> m result +rangeAsText self range + = liftDOM + ((self ^. jsf "rangeAsText" [toJSVal range]) >>= + fromJSValUnchecked) + +-- | +rangeAsText_ :: (MonadDOM m) => Internals -> Maybe Range -> m () +rangeAsText_ self range + = liftDOM (void (self ^. jsf "rangeAsText" [toJSVal range])) + +-- | +subrange :: + (MonadDOM m) => + Internals -> Maybe Range -> Int -> Int -> m (Maybe Range) +subrange self range rangeLocation rangeLength + = liftDOM + ((self ^. jsf "subrange" + [toJSVal range, toJSVal rangeLocation, toJSVal rangeLength]) + >>= fromJSVal) + +-- | +subrange_ :: + (MonadDOM m) => Internals -> Maybe Range -> Int -> Int -> m () +subrange_ self range rangeLocation rangeLength + = liftDOM + (void + (self ^. jsf "subrange" + [toJSVal range, toJSVal rangeLocation, toJSVal rangeLength])) + +-- | +subrangeUnchecked :: + (MonadDOM m) => Internals -> Maybe Range -> Int -> Int -> m Range +subrangeUnchecked self range rangeLocation rangeLength + = liftDOM + ((self ^. jsf "subrange" + [toJSVal range, toJSVal rangeLocation, toJSVal rangeLength]) + >>= fromJSValUnchecked) + +-- | +rangeForDictionaryLookupAtLocation :: + (MonadDOM m) => Internals -> Int -> Int -> m (Maybe Range) +rangeForDictionaryLookupAtLocation self x y + = liftDOM + ((self ^. jsf "rangeForDictionaryLookupAtLocation" + [toJSVal x, toJSVal y]) + >>= fromJSVal) + +-- | +rangeForDictionaryLookupAtLocation_ :: + (MonadDOM m) => Internals -> Int -> Int -> m () +rangeForDictionaryLookupAtLocation_ self x y + = liftDOM + (void + (self ^. jsf "rangeForDictionaryLookupAtLocation" + [toJSVal x, toJSVal y])) + +-- | +rangeForDictionaryLookupAtLocationUnchecked :: + (MonadDOM m) => Internals -> Int -> Int -> m Range +rangeForDictionaryLookupAtLocationUnchecked self x y + = liftDOM + ((self ^. jsf "rangeForDictionaryLookupAtLocation" + [toJSVal x, toJSVal y]) + >>= fromJSValUnchecked) + +-- | +setDelegatesScrolling :: (MonadDOM m) => Internals -> Bool -> m () +setDelegatesScrolling self enabled + = liftDOM + (void (self ^. jsf "setDelegatesScrolling" [toJSVal enabled])) + +-- | +lastSpellCheckRequestSequence :: (MonadDOM m) => Internals -> m Int +lastSpellCheckRequestSequence self + = liftDOM + (round <$> + ((self ^. jsf "lastSpellCheckRequestSequence" ()) >>= valToNumber)) + +-- | +lastSpellCheckRequestSequence_ :: (MonadDOM m) => Internals -> m () +lastSpellCheckRequestSequence_ self + = liftDOM (void (self ^. jsf "lastSpellCheckRequestSequence" ())) + +-- | +lastSpellCheckProcessedSequence :: + (MonadDOM m) => Internals -> m Int +lastSpellCheckProcessedSequence self + = liftDOM + (round <$> + ((self ^. jsf "lastSpellCheckProcessedSequence" ()) >>= + valToNumber)) + +-- | +lastSpellCheckProcessedSequence_ :: + (MonadDOM m) => Internals -> m () +lastSpellCheckProcessedSequence_ self + = liftDOM (void (self ^. jsf "lastSpellCheckProcessedSequence" ())) + +-- | +userPreferredLanguages :: + (MonadDOM m, FromJSString result) => Internals -> m [result] +userPreferredLanguages self + = liftDOM + ((self ^. jsf "userPreferredLanguages" ()) >>= + fromJSArrayUnchecked) + +-- | +userPreferredLanguages_ :: (MonadDOM m) => Internals -> m () +userPreferredLanguages_ self + = liftDOM (void (self ^. jsf "userPreferredLanguages" ())) + +-- | +setUserPreferredLanguages :: + (MonadDOM m, ToJSString languages) => + Internals -> [languages] -> m () +setUserPreferredLanguages self languages + = liftDOM + (void + (self ^. jsf "setUserPreferredLanguages" + [toJSVal (array languages)])) + +-- | +wheelEventHandlerCount :: (MonadDOM m) => Internals -> m Word +wheelEventHandlerCount self + = liftDOM + (round <$> + ((self ^. jsf "wheelEventHandlerCount" ()) >>= valToNumber)) + +-- | +wheelEventHandlerCount_ :: (MonadDOM m) => Internals -> m () +wheelEventHandlerCount_ self + = liftDOM (void (self ^. jsf "wheelEventHandlerCount" ())) + +-- | +touchEventHandlerCount :: (MonadDOM m) => Internals -> m Word +touchEventHandlerCount self + = liftDOM + (round <$> + ((self ^. jsf "touchEventHandlerCount" ()) >>= valToNumber)) + +-- | +touchEventHandlerCount_ :: (MonadDOM m) => Internals -> m () +touchEventHandlerCount_ self + = liftDOM (void (self ^. jsf "touchEventHandlerCount" ())) + +-- | +nodesFromRect :: + (MonadDOM 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 + = liftDOM + ((self ^. jsf "nodesFromRect" + [toJSVal document, toJSVal x, toJSVal y, toJSVal topPadding, + toJSVal rightPadding, toJSVal bottomPadding, toJSVal leftPadding, + toJSVal ignoreClipping, toJSVal allowShadowContent, + toJSVal allowChildFrameContent]) + >>= fromJSVal) + +-- | +nodesFromRect_ :: + (MonadDOM 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 + = liftDOM + (void + (self ^. jsf "nodesFromRect" + [toJSVal document, toJSVal x, toJSVal y, toJSVal topPadding, + toJSVal rightPadding, toJSVal bottomPadding, toJSVal leftPadding, + toJSVal ignoreClipping, toJSVal allowShadowContent, + toJSVal allowChildFrameContent])) + +-- | +nodesFromRectUnchecked :: + (MonadDOM 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 + = liftDOM + ((self ^. jsf "nodesFromRect" + [toJSVal document, toJSVal x, toJSVal y, toJSVal topPadding, + toJSVal rightPadding, toJSVal bottomPadding, toJSVal leftPadding, + toJSVal ignoreClipping, toJSVal allowShadowContent, + toJSVal allowChildFrameContent]) + >>= fromJSValUnchecked) + +-- | +parserMetaData :: + (MonadDOM m, FromJSString result) => Internals -> JSVal -> m result +parserMetaData self func + = liftDOM + ((self ^. jsf "parserMetaData" [toJSVal func]) >>= + fromJSValUnchecked) + +-- | +parserMetaData_ :: (MonadDOM m) => Internals -> JSVal -> m () +parserMetaData_ self func + = liftDOM (void (self ^. jsf "parserMetaData" [toJSVal func])) + +-- | +updateEditorUINowIfScheduled :: (MonadDOM m) => Internals -> m () +updateEditorUINowIfScheduled self + = liftDOM (void (self ^. jsf "updateEditorUINowIfScheduled" ())) + +-- | +hasSpellingMarker :: + (MonadDOM m) => Internals -> Int -> Int -> m Bool +hasSpellingMarker self from length + = liftDOM + ((self ^. jsf "hasSpellingMarker" [toJSVal from, toJSVal length]) + >>= valToBool) + +-- | +hasSpellingMarker_ :: + (MonadDOM m) => Internals -> Int -> Int -> m () +hasSpellingMarker_ self from length + = liftDOM + (void + (self ^. jsf "hasSpellingMarker" [toJSVal from, toJSVal length])) + +-- | +hasGrammarMarker :: + (MonadDOM m) => Internals -> Int -> Int -> m Bool +hasGrammarMarker self from length + = liftDOM + ((self ^. jsf "hasGrammarMarker" [toJSVal from, toJSVal length]) + >>= valToBool) + +-- | +hasGrammarMarker_ :: + (MonadDOM m) => Internals -> Int -> Int -> m () +hasGrammarMarker_ self from length + = liftDOM + (void + (self ^. jsf "hasGrammarMarker" [toJSVal from, toJSVal length])) + +-- | +hasAutocorrectedMarker :: + (MonadDOM m) => Internals -> Int -> Int -> m Bool +hasAutocorrectedMarker self from length + = liftDOM + ((self ^. jsf "hasAutocorrectedMarker" + [toJSVal from, toJSVal length]) + >>= valToBool) + +-- | +hasAutocorrectedMarker_ :: + (MonadDOM m) => Internals -> Int -> Int -> m () +hasAutocorrectedMarker_ self from length + = liftDOM + (void + (self ^. jsf "hasAutocorrectedMarker" + [toJSVal from, toJSVal length])) + +-- | +setContinuousSpellCheckingEnabled :: + (MonadDOM m) => Internals -> Bool -> m () +setContinuousSpellCheckingEnabled self enabled + = liftDOM + (void + (self ^. jsf "setContinuousSpellCheckingEnabled" + [toJSVal enabled])) + +-- | +setAutomaticQuoteSubstitutionEnabled :: + (MonadDOM m) => Internals -> Bool -> m () +setAutomaticQuoteSubstitutionEnabled self enabled + = liftDOM + (void + (self ^. jsf "setAutomaticQuoteSubstitutionEnabled" + [toJSVal enabled])) + +-- | +setAutomaticLinkDetectionEnabled :: + (MonadDOM m) => Internals -> Bool -> m () +setAutomaticLinkDetectionEnabled self enabled + = liftDOM + (void + (self ^. jsf "setAutomaticLinkDetectionEnabled" [toJSVal enabled])) + +-- | +setAutomaticDashSubstitutionEnabled :: + (MonadDOM m) => Internals -> Bool -> m () +setAutomaticDashSubstitutionEnabled self enabled + = liftDOM + (void + (self ^. jsf "setAutomaticDashSubstitutionEnabled" + [toJSVal enabled])) + +-- | +setAutomaticTextReplacementEnabled :: + (MonadDOM m) => Internals -> Bool -> m () +setAutomaticTextReplacementEnabled self enabled + = liftDOM + (void + (self ^. jsf "setAutomaticTextReplacementEnabled" + [toJSVal enabled])) + +-- | +setAutomaticSpellingCorrectionEnabled :: + (MonadDOM m) => Internals -> Bool -> m () +setAutomaticSpellingCorrectionEnabled self enabled + = liftDOM + (void + (self ^. jsf "setAutomaticSpellingCorrectionEnabled" + [toJSVal enabled])) + +-- | +isOverwriteModeEnabled :: (MonadDOM m) => Internals -> m Bool +isOverwriteModeEnabled self + = liftDOM ((self ^. jsf "isOverwriteModeEnabled" ()) >>= valToBool) + +-- | +isOverwriteModeEnabled_ :: (MonadDOM m) => Internals -> m () +isOverwriteModeEnabled_ self + = liftDOM (void (self ^. jsf "isOverwriteModeEnabled" ())) + +-- | +toggleOverwriteModeEnabled :: (MonadDOM m) => Internals -> m () +toggleOverwriteModeEnabled self + = liftDOM (void (self ^. jsf "toggleOverwriteModeEnabled" ())) + +-- | +numberOfScrollableAreas :: (MonadDOM m) => Internals -> m Word +numberOfScrollableAreas self + = liftDOM + (round <$> + ((self ^. jsf "numberOfScrollableAreas" ()) >>= valToNumber)) + +-- | +numberOfScrollableAreas_ :: (MonadDOM m) => Internals -> m () +numberOfScrollableAreas_ self + = liftDOM (void (self ^. jsf "numberOfScrollableAreas" ())) + +-- | +isPageBoxVisible :: (MonadDOM m) => Internals -> Int -> m Bool +isPageBoxVisible self pageNumber + = liftDOM + ((self ^. jsf "isPageBoxVisible" [toJSVal pageNumber]) >>= + valToBool) + +-- | +isPageBoxVisible_ :: (MonadDOM m) => Internals -> Int -> m () +isPageBoxVisible_ self pageNumber + = liftDOM + (void (self ^. jsf "isPageBoxVisible" [toJSVal pageNumber])) + +-- | +layerTreeAsText :: + (MonadDOM m, IsDocument document, FromJSString result) => + Internals -> Maybe document -> Word -> m result +layerTreeAsText self document flags + = liftDOM + ((self ^. jsf "layerTreeAsText" [toJSVal document, toJSVal flags]) + >>= fromJSValUnchecked) + +-- | +layerTreeAsText_ :: + (MonadDOM m, IsDocument document) => + Internals -> Maybe document -> Word -> m () +layerTreeAsText_ self document flags + = liftDOM + (void + (self ^. jsf "layerTreeAsText" [toJSVal document, toJSVal flags])) + +-- | +scrollingStateTreeAsText :: + (MonadDOM m, FromJSString result) => Internals -> m result +scrollingStateTreeAsText self + = liftDOM + ((self ^. jsf "scrollingStateTreeAsText" ()) >>= + fromJSValUnchecked) + +-- | +scrollingStateTreeAsText_ :: (MonadDOM m) => Internals -> m () +scrollingStateTreeAsText_ self + = liftDOM (void (self ^. jsf "scrollingStateTreeAsText" ())) + +-- | +mainThreadScrollingReasons :: + (MonadDOM m, FromJSString result) => Internals -> m result +mainThreadScrollingReasons self + = liftDOM + ((self ^. jsf "mainThreadScrollingReasons" ()) >>= + fromJSValUnchecked) + +-- | +mainThreadScrollingReasons_ :: (MonadDOM m) => Internals -> m () +mainThreadScrollingReasons_ self + = liftDOM (void (self ^. jsf "mainThreadScrollingReasons" ())) + +-- | +nonFastScrollableRects :: + (MonadDOM m) => Internals -> m (Maybe ClientRectList) +nonFastScrollableRects self + = liftDOM ((self ^. jsf "nonFastScrollableRects" ()) >>= fromJSVal) + +-- | +nonFastScrollableRects_ :: (MonadDOM m) => Internals -> m () +nonFastScrollableRects_ self + = liftDOM (void (self ^. jsf "nonFastScrollableRects" ())) + +-- | +nonFastScrollableRectsUnchecked :: + (MonadDOM m) => Internals -> m ClientRectList +nonFastScrollableRectsUnchecked self + = liftDOM + ((self ^. jsf "nonFastScrollableRects" ()) >>= fromJSValUnchecked) + +-- | +repaintRectsAsText :: + (MonadDOM m, FromJSString result) => Internals -> m result +repaintRectsAsText self + = liftDOM + ((self ^. jsf "repaintRectsAsText" ()) >>= fromJSValUnchecked) + +-- | +repaintRectsAsText_ :: (MonadDOM m) => Internals -> m () +repaintRectsAsText_ self + = liftDOM (void (self ^. jsf "repaintRectsAsText" ())) + +-- | +garbageCollectDocumentResources :: + (MonadDOM m) => Internals -> m () +garbageCollectDocumentResources self + = liftDOM (void (self ^. jsf "garbageCollectDocumentResources" ())) + +-- | +allowRoundingHacks :: (MonadDOM m) => Internals -> m () +allowRoundingHacks self + = liftDOM (void (self ^. jsf "allowRoundingHacks" ())) + +-- | +insertAuthorCSS :: + (MonadDOM m, ToJSString css) => Internals -> css -> m () +insertAuthorCSS self css + = liftDOM (void (self ^. jsf "insertAuthorCSS" [toJSVal css])) + +-- | +insertUserCSS :: + (MonadDOM m, ToJSString css) => Internals -> css -> m () +insertUserCSS self css + = liftDOM (void (self ^. jsf "insertUserCSS" [toJSVal css])) + +-- | +setBatteryStatus :: + (MonadDOM m, ToJSString eventType) => + Internals -> + eventType -> Bool -> Double -> Double -> Double -> m () +setBatteryStatus self eventType charging chargingTime + dischargingTime level + = liftDOM + (void + (self ^. jsf "setBatteryStatus" + [toJSVal eventType, toJSVal charging, toJSVal chargingTime, + toJSVal dischargingTime, toJSVal level])) + +-- | +setDeviceProximity :: + (MonadDOM m, ToJSString eventType) => + Internals -> eventType -> Double -> Double -> Double -> m () +setDeviceProximity self eventType value min max + = liftDOM + (void + (self ^. jsf "setDeviceProximity" + [toJSVal eventType, toJSVal value, toJSVal min, toJSVal max])) + +-- | +numberOfLiveNodes :: (MonadDOM m) => Internals -> m Word +numberOfLiveNodes self + = liftDOM + (round <$> ((self ^. jsf "numberOfLiveNodes" ()) >>= valToNumber)) + +-- | +numberOfLiveNodes_ :: (MonadDOM m) => Internals -> m () +numberOfLiveNodes_ self + = liftDOM (void (self ^. jsf "numberOfLiveNodes" ())) + +-- | +numberOfLiveDocuments :: (MonadDOM m) => Internals -> m Word +numberOfLiveDocuments self + = liftDOM + (round <$> + ((self ^. jsf "numberOfLiveDocuments" ()) >>= valToNumber)) + +-- | +numberOfLiveDocuments_ :: (MonadDOM m) => Internals -> m () +numberOfLiveDocuments_ self + = liftDOM (void (self ^. jsf "numberOfLiveDocuments" ())) + +-- | +consoleMessageArgumentCounts :: + (MonadDOM m, FromJSString result) => Internals -> m [result] +consoleMessageArgumentCounts self + = liftDOM + ((self ^. jsf "consoleMessageArgumentCounts" ()) >>= + fromJSArrayUnchecked) + +-- | +consoleMessageArgumentCounts_ :: (MonadDOM m) => Internals -> m () +consoleMessageArgumentCounts_ self + = liftDOM (void (self ^. jsf "consoleMessageArgumentCounts" ())) + +-- | +openDummyInspectorFrontend :: + (MonadDOM m, ToJSString url) => + Internals -> url -> m (Maybe Window) +openDummyInspectorFrontend self url + = liftDOM + ((self ^. jsf "openDummyInspectorFrontend" [toJSVal url]) >>= + fromJSVal) + +-- | +openDummyInspectorFrontend_ :: + (MonadDOM m, ToJSString url) => Internals -> url -> m () +openDummyInspectorFrontend_ self url + = liftDOM + (void (self ^. jsf "openDummyInspectorFrontend" [toJSVal url])) + +-- | +openDummyInspectorFrontendUnchecked :: + (MonadDOM m, ToJSString url) => Internals -> url -> m Window +openDummyInspectorFrontendUnchecked self url + = liftDOM + ((self ^. jsf "openDummyInspectorFrontend" [toJSVal url]) >>= + fromJSValUnchecked) + +-- | +closeDummyInspectorFrontend :: (MonadDOM m) => Internals -> m () +closeDummyInspectorFrontend self + = liftDOM (void (self ^. jsf "closeDummyInspectorFrontend" ())) + +-- | +setJavaScriptProfilingEnabled :: + (MonadDOM m) => Internals -> Bool -> m () +setJavaScriptProfilingEnabled self creates + = liftDOM + (void + (self ^. jsf "setJavaScriptProfilingEnabled" [toJSVal creates])) + +-- | +setInspectorIsUnderTest :: + (MonadDOM m) => Internals -> Bool -> m () +setInspectorIsUnderTest self isUnderTest + = liftDOM + (void + (self ^. jsf "setInspectorIsUnderTest" [toJSVal isUnderTest])) + +-- | +counterValue :: + (MonadDOM m, IsElement element, FromJSString result) => + Internals -> Maybe element -> m result +counterValue self element + = liftDOM + ((self ^. jsf "counterValue" [toJSVal element]) >>= + fromJSValUnchecked) + +-- | +counterValue_ :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m () +counterValue_ self element + = liftDOM (void (self ^. jsf "counterValue" [toJSVal element])) + +-- | +pageNumber :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> Float -> Float -> m Int +pageNumber self element pageWidth pageHeight + = liftDOM + (round <$> + ((self ^. jsf "pageNumber" + [toJSVal element, toJSVal pageWidth, toJSVal pageHeight]) + >>= valToNumber)) + +-- | +pageNumber_ :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> Float -> Float -> m () +pageNumber_ self element pageWidth pageHeight + = liftDOM + (void + (self ^. jsf "pageNumber" + [toJSVal element, toJSVal pageWidth, toJSVal pageHeight])) + +-- | +shortcutIconURLs :: + (MonadDOM m, FromJSString result) => Internals -> m [result] +shortcutIconURLs self + = liftDOM + ((self ^. jsf "shortcutIconURLs" ()) >>= fromJSArrayUnchecked) + +-- | +shortcutIconURLs_ :: (MonadDOM m) => Internals -> m () +shortcutIconURLs_ self + = liftDOM (void (self ^. jsf "shortcutIconURLs" ())) + +-- | +allIconURLs :: + (MonadDOM m, FromJSString result) => Internals -> m [result] +allIconURLs self + = liftDOM ((self ^. jsf "allIconURLs" ()) >>= fromJSArrayUnchecked) + +-- | +allIconURLs_ :: (MonadDOM m) => Internals -> m () +allIconURLs_ self = liftDOM (void (self ^. jsf "allIconURLs" ())) + +-- | +numberOfPages :: + (MonadDOM m) => Internals -> Double -> Double -> m Int +numberOfPages self pageWidthInPixels pageHeightInPixels + = liftDOM + (round <$> + ((self ^. jsf "numberOfPages" + [toJSVal pageWidthInPixels, toJSVal pageHeightInPixels]) + >>= valToNumber)) + +-- | +numberOfPages_ :: + (MonadDOM m) => Internals -> Double -> Double -> m () +numberOfPages_ self pageWidthInPixels pageHeightInPixels + = liftDOM + (void + (self ^. jsf "numberOfPages" + [toJSVal pageWidthInPixels, toJSVal pageHeightInPixels])) + +-- | +pageProperty :: + (MonadDOM m, ToJSString propertyName, FromJSString result) => + Internals -> propertyName -> Int -> m result +pageProperty self propertyName pageNumber + = liftDOM + ((self ^. jsf "pageProperty" + [toJSVal propertyName, toJSVal pageNumber]) + >>= fromJSValUnchecked) + +-- | +pageProperty_ :: + (MonadDOM m, ToJSString propertyName) => + Internals -> propertyName -> Int -> m () +pageProperty_ self propertyName pageNumber + = liftDOM + (void + (self ^. jsf "pageProperty" + [toJSVal propertyName, toJSVal pageNumber])) + +-- | +pageSizeAndMarginsInPixels :: + (MonadDOM m, FromJSString result) => + Internals -> + Int -> Int -> Int -> Int -> Int -> Int -> Int -> m result +pageSizeAndMarginsInPixels self pageIndex width height marginTop + marginRight marginBottom marginLeft + = liftDOM + ((self ^. jsf "pageSizeAndMarginsInPixels" + [toJSVal pageIndex, toJSVal width, toJSVal height, + toJSVal marginTop, toJSVal marginRight, toJSVal marginBottom, + toJSVal marginLeft]) + >>= fromJSValUnchecked) + +-- | +pageSizeAndMarginsInPixels_ :: + (MonadDOM m) => + Internals -> Int -> Int -> Int -> Int -> Int -> Int -> Int -> m () +pageSizeAndMarginsInPixels_ self pageIndex width height marginTop + marginRight marginBottom marginLeft + = liftDOM + (void + (self ^. jsf "pageSizeAndMarginsInPixels" + [toJSVal pageIndex, toJSVal width, toJSVal height, + toJSVal marginTop, toJSVal marginRight, toJSVal marginBottom, + toJSVal marginLeft])) + +-- | +setPageScaleFactor :: + (MonadDOM m) => Internals -> Float -> Int -> Int -> m () +setPageScaleFactor self scaleFactor x y + = liftDOM + (void + (self ^. jsf "setPageScaleFactor" + [toJSVal scaleFactor, toJSVal x, toJSVal y])) + +-- | +setPageZoomFactor :: (MonadDOM m) => Internals -> Float -> m () +setPageZoomFactor self zoomFactor + = liftDOM + (void (self ^. jsf "setPageZoomFactor" [toJSVal zoomFactor])) + +-- | +setHeaderHeight :: (MonadDOM m) => Internals -> Float -> m () +setHeaderHeight self height + = liftDOM (void (self ^. jsf "setHeaderHeight" [toJSVal height])) + +-- | +setFooterHeight :: (MonadDOM m) => Internals -> Float -> m () +setFooterHeight self height + = liftDOM (void (self ^. jsf "setFooterHeight" [toJSVal height])) + +-- | +setTopContentInset :: (MonadDOM m) => Internals -> Float -> m () +setTopContentInset self contentInset + = liftDOM + (void (self ^. jsf "setTopContentInset" [toJSVal contentInset])) + +-- | +webkitWillEnterFullScreenForElement :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m () +webkitWillEnterFullScreenForElement self element + = liftDOM + (void + (self ^. jsf "webkitWillEnterFullScreenForElement" + [toJSVal element])) + +-- | +webkitDidEnterFullScreenForElement :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m () +webkitDidEnterFullScreenForElement self element + = liftDOM + (void + (self ^. jsf "webkitDidEnterFullScreenForElement" + [toJSVal element])) + +-- | +webkitWillExitFullScreenForElement :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m () +webkitWillExitFullScreenForElement self element + = liftDOM + (void + (self ^. jsf "webkitWillExitFullScreenForElement" + [toJSVal element])) + +-- | +webkitDidExitFullScreenForElement :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m () +webkitDidExitFullScreenForElement self element + = liftDOM + (void + (self ^. jsf "webkitDidExitFullScreenForElement" + [toJSVal element])) + +-- | +setApplicationCacheOriginQuota :: + (MonadDOM m) => Internals -> Word64 -> m () +setApplicationCacheOriginQuota self quota + = liftDOM + (void + (self ^. jsf "setApplicationCacheOriginQuota" [toJSVal quota])) + +-- | +registerURLSchemeAsBypassingContentSecurityPolicy :: + (MonadDOM m, ToJSString scheme) => + Internals -> scheme -> m () +registerURLSchemeAsBypassingContentSecurityPolicy self scheme + = liftDOM + (void + (self ^. jsf "registerURLSchemeAsBypassingContentSecurityPolicy" + [toJSVal scheme])) + +-- | +removeURLSchemeRegisteredAsBypassingContentSecurityPolicy :: + (MonadDOM m, ToJSString scheme) => + Internals -> scheme -> m () +removeURLSchemeRegisteredAsBypassingContentSecurityPolicy self + scheme + = liftDOM + (void + (self ^. + jsf "removeURLSchemeRegisteredAsBypassingContentSecurityPolicy" + [toJSVal scheme])) + +-- | +mallocStatistics :: + (MonadDOM m) => Internals -> m (Maybe MallocStatistics) +mallocStatistics self + = liftDOM ((self ^. jsf "mallocStatistics" ()) >>= fromJSVal) + +-- | +mallocStatistics_ :: (MonadDOM m) => Internals -> m () +mallocStatistics_ self + = liftDOM (void (self ^. jsf "mallocStatistics" ())) + +-- | +mallocStatisticsUnchecked :: + (MonadDOM m) => Internals -> m MallocStatistics +mallocStatisticsUnchecked self + = liftDOM + ((self ^. jsf "mallocStatistics" ()) >>= fromJSValUnchecked) + +-- | +typeConversions :: + (MonadDOM m) => Internals -> m (Maybe TypeConversions) +typeConversions self + = liftDOM ((self ^. jsf "typeConversions" ()) >>= fromJSVal) + +-- | +typeConversions_ :: (MonadDOM m) => Internals -> m () +typeConversions_ self + = liftDOM (void (self ^. jsf "typeConversions" ())) + +-- | +typeConversionsUnchecked :: + (MonadDOM m) => Internals -> m TypeConversions +typeConversionsUnchecked self + = liftDOM + ((self ^. jsf "typeConversions" ()) >>= fromJSValUnchecked) + +-- | +memoryInfo :: (MonadDOM m) => Internals -> m (Maybe MemoryInfo) +memoryInfo self + = liftDOM ((self ^. jsf "memoryInfo" ()) >>= fromJSVal) + +-- | +memoryInfo_ :: (MonadDOM m) => Internals -> m () +memoryInfo_ self = liftDOM (void (self ^. jsf "memoryInfo" ())) + +-- | +memoryInfoUnchecked :: (MonadDOM m) => Internals -> m MemoryInfo +memoryInfoUnchecked self + = liftDOM ((self ^. jsf "memoryInfo" ()) >>= fromJSValUnchecked) + +-- | +getReferencedFilePaths :: + (MonadDOM m, FromJSString result) => Internals -> m [result] +getReferencedFilePaths self + = liftDOM + ((self ^. jsf "getReferencedFilePaths" ()) >>= + fromJSArrayUnchecked) + +-- | +getReferencedFilePaths_ :: (MonadDOM m) => Internals -> m () +getReferencedFilePaths_ self + = liftDOM (void (self ^. jsf "getReferencedFilePaths" ())) + +-- | +startTrackingRepaints :: (MonadDOM m) => Internals -> m () +startTrackingRepaints self + = liftDOM (void (self ^. jsf "startTrackingRepaints" ())) + +-- | +stopTrackingRepaints :: (MonadDOM m) => Internals -> m () +stopTrackingRepaints self + = liftDOM (void (self ^. jsf "stopTrackingRepaints" ())) + +-- | +isTimerThrottled :: (MonadDOM m) => Internals -> Int -> m Bool +isTimerThrottled self timerHandle + = liftDOM + ((self ^. jsf "isTimerThrottled" [toJSVal timerHandle]) >>= + valToBool) + +-- | +isTimerThrottled_ :: (MonadDOM m) => Internals -> Int -> m () +isTimerThrottled_ self timerHandle + = liftDOM + (void (self ^. jsf "isTimerThrottled" [toJSVal timerHandle])) + +-- | +updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks :: + (MonadDOM m, IsNode node) => + Internals -> Maybe node -> m () +updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks self node + = liftDOM + (void + (self ^. + jsf "updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks" + [toJSVal node])) + +-- | +getCurrentCursorInfo :: + (MonadDOM m, FromJSString result) => Internals -> m result +getCurrentCursorInfo self + = liftDOM + ((self ^. jsf "getCurrentCursorInfo" ()) >>= fromJSValUnchecked) + +-- | +getCurrentCursorInfo_ :: (MonadDOM m) => Internals -> m () +getCurrentCursorInfo_ self + = liftDOM (void (self ^. jsf "getCurrentCursorInfo" ())) + +-- | +markerTextForListItem :: + (MonadDOM m, IsElement element, FromJSString result) => + Internals -> Maybe element -> m result +markerTextForListItem self element + = liftDOM + ((self ^. jsf "markerTextForListItem" [toJSVal element]) >>= + fromJSValUnchecked) + +-- | +markerTextForListItem_ :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m () +markerTextForListItem_ self element + = liftDOM + (void (self ^. jsf "markerTextForListItem" [toJSVal element])) + +-- | +toolTipFromElement :: + (MonadDOM m, IsElement element, FromJSString result) => + Internals -> Maybe element -> m result +toolTipFromElement self element + = liftDOM + ((self ^. jsf "toolTipFromElement" [toJSVal element]) >>= + fromJSValUnchecked) + +-- | +toolTipFromElement_ :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m () +toolTipFromElement_ self element + = liftDOM + (void (self ^. jsf "toolTipFromElement" [toJSVal element])) + +-- | +deserializeBuffer :: + (MonadDOM m, IsArrayBuffer buffer) => + Internals -> Maybe buffer -> m (Maybe SerializedScriptValue) +deserializeBuffer self buffer + = liftDOM + ((self ^. jsf "deserializeBuffer" [toJSVal buffer]) >>= fromJSVal) + +-- | +deserializeBuffer_ :: + (MonadDOM m, IsArrayBuffer buffer) => + Internals -> Maybe buffer -> m () +deserializeBuffer_ self buffer + = liftDOM (void (self ^. jsf "deserializeBuffer" [toJSVal buffer])) + +-- | +deserializeBufferUnchecked :: + (MonadDOM m, IsArrayBuffer buffer) => + Internals -> Maybe buffer -> m SerializedScriptValue +deserializeBufferUnchecked self buffer + = liftDOM + ((self ^. jsf "deserializeBuffer" [toJSVal buffer]) >>= + fromJSValUnchecked) + +-- | +serializeObject :: + (MonadDOM m, IsSerializedScriptValue obj) => + Internals -> Maybe obj -> m (Maybe ArrayBuffer) +serializeObject self obj + = liftDOM + ((self ^. jsf "serializeObject" [toJSVal obj]) >>= fromJSVal) + +-- | +serializeObject_ :: + (MonadDOM m, IsSerializedScriptValue obj) => + Internals -> Maybe obj -> m () +serializeObject_ self obj + = liftDOM (void (self ^. jsf "serializeObject" [toJSVal obj])) + +-- | +serializeObjectUnchecked :: + (MonadDOM m, IsSerializedScriptValue obj) => + Internals -> Maybe obj -> m ArrayBuffer +serializeObjectUnchecked self obj + = liftDOM + ((self ^. jsf "serializeObject" [toJSVal obj]) >>= + fromJSValUnchecked) + +-- | +setUsesOverlayScrollbars :: + (MonadDOM m) => Internals -> Bool -> m () +setUsesOverlayScrollbars self enabled + = liftDOM + (void (self ^. jsf "setUsesOverlayScrollbars" [toJSVal enabled])) + +-- | +forceReload :: (MonadDOM m) => Internals -> Bool -> m () +forceReload self endToEnd + = liftDOM (void (self ^. jsf "forceReload" [toJSVal endToEnd])) + +-- | +simulateAudioInterruption :: + (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () +simulateAudioInterruption self node + = liftDOM + (void (self ^. jsf "simulateAudioInterruption" [toJSVal node])) + +-- | +mediaElementHasCharacteristic :: + (MonadDOM m, IsNode node, ToJSString characteristic) => + Internals -> Maybe node -> characteristic -> m Bool +mediaElementHasCharacteristic self node characteristic + = liftDOM + ((self ^. jsf "mediaElementHasCharacteristic" + [toJSVal node, toJSVal characteristic]) + >>= valToBool) + +-- | +mediaElementHasCharacteristic_ :: + (MonadDOM m, IsNode node, ToJSString characteristic) => + Internals -> Maybe node -> characteristic -> m () +mediaElementHasCharacteristic_ self node characteristic + = liftDOM + (void + (self ^. jsf "mediaElementHasCharacteristic" + [toJSVal node, toJSVal characteristic])) + +-- | +initializeMockCDM :: (MonadDOM m) => Internals -> m () +initializeMockCDM self + = liftDOM (void (self ^. jsf "initializeMockCDM" ())) + +-- | +enableMockSpeechSynthesizer :: (MonadDOM m) => Internals -> m () +enableMockSpeechSynthesizer self + = liftDOM (void (self ^. jsf "enableMockSpeechSynthesizer" ())) + +-- | +getImageSourceURL :: + (MonadDOM m, IsElement element, FromJSString result) => + Internals -> Maybe element -> m result +getImageSourceURL self element + = liftDOM + ((self ^. jsf "getImageSourceURL" [toJSVal element]) >>= + fromJSValUnchecked) + +-- | +getImageSourceURL_ :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m () +getImageSourceURL_ self element + = liftDOM + (void (self ^. jsf "getImageSourceURL" [toJSVal element])) + +-- | +captionsStyleSheetOverride :: + (MonadDOM m, FromJSString result) => Internals -> m result +captionsStyleSheetOverride self + = liftDOM + ((self ^. jsf "captionsStyleSheetOverride" ()) >>= + fromJSValUnchecked) + +-- | +captionsStyleSheetOverride_ :: (MonadDOM m) => Internals -> m () +captionsStyleSheetOverride_ self + = liftDOM (void (self ^. jsf "captionsStyleSheetOverride" ())) + +-- | +setCaptionsStyleSheetOverride :: + (MonadDOM m, ToJSString override) => Internals -> override -> m () +setCaptionsStyleSheetOverride self override + = liftDOM + (void + (self ^. jsf "setCaptionsStyleSheetOverride" [toJSVal override])) + +-- | +setPrimaryAudioTrackLanguageOverride :: + (MonadDOM m, ToJSString language) => + Internals -> language -> m () +setPrimaryAudioTrackLanguageOverride self language + = liftDOM + (void + (self ^. jsf "setPrimaryAudioTrackLanguageOverride" + [toJSVal language])) + +-- | +setCaptionDisplayMode :: + (MonadDOM m, ToJSString mode) => Internals -> mode -> m () +setCaptionDisplayMode self mode + = liftDOM + (void (self ^. jsf "setCaptionDisplayMode" [toJSVal mode])) + +-- | +createTimeRanges :: + (MonadDOM m, IsFloat32Array startTimes, IsFloat32Array endTimes) => + Internals -> + Maybe startTimes -> Maybe endTimes -> m (Maybe TimeRanges) +createTimeRanges self startTimes endTimes + = liftDOM + ((self ^. jsf "createTimeRanges" + [toJSVal startTimes, toJSVal endTimes]) + >>= fromJSVal) + +-- | +createTimeRanges_ :: + (MonadDOM m, IsFloat32Array startTimes, IsFloat32Array endTimes) => + Internals -> Maybe startTimes -> Maybe endTimes -> m () +createTimeRanges_ self startTimes endTimes + = liftDOM + (void + (self ^. jsf "createTimeRanges" + [toJSVal startTimes, toJSVal endTimes])) + +-- | +createTimeRangesUnchecked :: + (MonadDOM m, IsFloat32Array startTimes, IsFloat32Array endTimes) => + Internals -> Maybe startTimes -> Maybe endTimes -> m TimeRanges +createTimeRangesUnchecked self startTimes endTimes + = liftDOM + ((self ^. jsf "createTimeRanges" + [toJSVal startTimes, toJSVal endTimes]) + >>= fromJSValUnchecked) + +-- | +closestTimeToTimeRanges :: + (MonadDOM m) => Internals -> Double -> Maybe TimeRanges -> m Double +closestTimeToTimeRanges self time ranges + = liftDOM + ((self ^. jsf "closestTimeToTimeRanges" + [toJSVal time, toJSVal ranges]) + >>= valToNumber) + +-- | +closestTimeToTimeRanges_ :: + (MonadDOM m) => Internals -> Double -> Maybe TimeRanges -> m () +closestTimeToTimeRanges_ self time ranges + = liftDOM + (void + (self ^. jsf "closestTimeToTimeRanges" + [toJSVal time, toJSVal ranges])) + +-- | +isSelectPopupVisible :: + (MonadDOM m, IsNode node) => Internals -> Maybe node -> m Bool +isSelectPopupVisible self node + = liftDOM + ((self ^. jsf "isSelectPopupVisible" [toJSVal node]) >>= valToBool) + +-- | +isSelectPopupVisible_ :: + (MonadDOM m, IsNode node) => Internals -> Maybe node -> m () +isSelectPopupVisible_ self node + = liftDOM + (void (self ^. jsf "isSelectPopupVisible" [toJSVal node])) + +-- | +isVibrating :: (MonadDOM m) => Internals -> m Bool +isVibrating self + = liftDOM ((self ^. jsf "isVibrating" ()) >>= valToBool) + +-- | +isVibrating_ :: (MonadDOM m) => Internals -> m () +isVibrating_ self = liftDOM (void (self ^. jsf "isVibrating" ())) + +-- | +isPluginUnavailabilityIndicatorObscured :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m Bool +isPluginUnavailabilityIndicatorObscured self element + = liftDOM + ((self ^. jsf "isPluginUnavailabilityIndicatorObscured" + [toJSVal element]) + >>= valToBool) + +-- | +isPluginUnavailabilityIndicatorObscured_ :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m () +isPluginUnavailabilityIndicatorObscured_ self element + = liftDOM + (void + (self ^. jsf "isPluginUnavailabilityIndicatorObscured" + [toJSVal element])) + +-- | +isPluginSnapshotted :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m Bool +isPluginSnapshotted self element + = liftDOM + ((self ^. jsf "isPluginSnapshotted" [toJSVal element]) >>= + valToBool) + +-- | +isPluginSnapshotted_ :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m () +isPluginSnapshotted_ self element + = liftDOM + (void (self ^. jsf "isPluginSnapshotted" [toJSVal element])) + +-- | +selectionBounds :: + (MonadDOM m) => Internals -> m (Maybe ClientRect) +selectionBounds self + = liftDOM ((self ^. jsf "selectionBounds" ()) >>= fromJSVal) + +-- | +selectionBounds_ :: (MonadDOM m) => Internals -> m () +selectionBounds_ self + = liftDOM (void (self ^. jsf "selectionBounds" ())) + +-- | +selectionBoundsUnchecked :: + (MonadDOM m) => Internals -> m ClientRect +selectionBoundsUnchecked self + = liftDOM + ((self ^. jsf "selectionBounds" ()) >>= fromJSValUnchecked) + +-- | +initializeMockMediaSource :: (MonadDOM m) => Internals -> m () +initializeMockMediaSource self + = liftDOM (void (self ^. jsf "initializeMockMediaSource" ())) + +-- | +bufferedSamplesForTrackID :: + (MonadDOM m, ToJSString trackID, FromJSString result) => + Internals -> Maybe SourceBuffer -> trackID -> m [result] +bufferedSamplesForTrackID self buffer trackID + = liftDOM + ((self ^. jsf "bufferedSamplesForTrackID" + [toJSVal buffer, toJSVal trackID]) + >>= fromJSArrayUnchecked) + +-- | +bufferedSamplesForTrackID_ :: + (MonadDOM m, ToJSString trackID) => + Internals -> Maybe SourceBuffer -> trackID -> m () +bufferedSamplesForTrackID_ self buffer trackID + = liftDOM + (void + (self ^. jsf "bufferedSamplesForTrackID" + [toJSVal buffer, toJSVal trackID])) + +-- | +beginMediaSessionInterruption :: (MonadDOM m) => Internals -> m () +beginMediaSessionInterruption self + = liftDOM (void (self ^. jsf "beginMediaSessionInterruption" ())) + +-- | +endMediaSessionInterruption :: + (MonadDOM m, ToJSString flags) => Internals -> flags -> m () +endMediaSessionInterruption self flags + = liftDOM + (void (self ^. jsf "endMediaSessionInterruption" [toJSVal flags])) + +-- | +applicationWillEnterForeground :: (MonadDOM m) => Internals -> m () +applicationWillEnterForeground self + = liftDOM (void (self ^. jsf "applicationWillEnterForeground" ())) + +-- | +applicationWillEnterBackground :: (MonadDOM m) => Internals -> m () +applicationWillEnterBackground self + = liftDOM (void (self ^. jsf "applicationWillEnterBackground" ())) + +-- | +setMediaSessionRestrictions :: + (MonadDOM m, ToJSString mediaType, ToJSString restrictions) => + Internals -> mediaType -> restrictions -> m () +setMediaSessionRestrictions self mediaType restrictions + = liftDOM + (void + (self ^. jsf "setMediaSessionRestrictions" + [toJSVal mediaType, toJSVal restrictions])) + +-- | +postRemoteControlCommand :: + (MonadDOM m, ToJSString command) => Internals -> command -> m () +postRemoteControlCommand self command + = liftDOM + (void (self ^. jsf "postRemoteControlCommand" [toJSVal command])) + +-- | +simulateSystemSleep :: (MonadDOM m) => Internals -> m () +simulateSystemSleep self + = liftDOM (void (self ^. jsf "simulateSystemSleep" ())) + +-- | +simulateSystemWake :: (MonadDOM m) => Internals -> m () +simulateSystemWake self + = liftDOM (void (self ^. jsf "simulateSystemWake" ())) + +-- | +elementIsBlockingDisplaySleep :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m Bool +elementIsBlockingDisplaySleep self element + = liftDOM + ((self ^. jsf "elementIsBlockingDisplaySleep" [toJSVal element]) + >>= valToBool) + +-- | +elementIsBlockingDisplaySleep_ :: + (MonadDOM m, IsElement element) => + Internals -> Maybe element -> m () +elementIsBlockingDisplaySleep_ self element + = liftDOM + (void + (self ^. jsf "elementIsBlockingDisplaySleep" [toJSVal element])) + +-- | +installMockPageOverlay :: + (MonadDOM m) => Internals -> PageOverlayType -> m () +installMockPageOverlay self type' + = liftDOM + (void (self ^. jsf "installMockPageOverlay" [toJSVal type'])) + +-- | +pageOverlayLayerTreeAsText :: + (MonadDOM m, FromJSString result) => Internals -> m result +pageOverlayLayerTreeAsText self + = liftDOM + ((self ^. jsf "pageOverlayLayerTreeAsText" ()) >>= + fromJSValUnchecked) + +-- | +pageOverlayLayerTreeAsText_ :: (MonadDOM m) => Internals -> m () +pageOverlayLayerTreeAsText_ self + = liftDOM (void (self ^. jsf "pageOverlayLayerTreeAsText" ())) + +-- | +setPageMuted :: (MonadDOM m) => Internals -> Bool -> m () +setPageMuted self muted + = liftDOM (void (self ^. jsf "setPageMuted" [toJSVal muted])) + +-- | +isPagePlayingAudio :: (MonadDOM m) => Internals -> m Bool +isPagePlayingAudio self + = liftDOM ((self ^. jsf "isPagePlayingAudio" ()) >>= valToBool) + +-- | +isPagePlayingAudio_ :: (MonadDOM m) => Internals -> m () +isPagePlayingAudio_ self + = liftDOM (void (self ^. jsf "isPagePlayingAudio" ())) +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 + +-- | +getSettings :: + (MonadDOM m) => Internals -> m (Maybe InternalSettings) +getSettings self = liftDOM ((self ^. js "settings") >>= fromJSVal) + +-- | +getSettingsUnchecked :: + (MonadDOM m) => Internals -> m InternalSettings +getSettingsUnchecked self + = liftDOM ((self ^. js "settings") >>= fromJSValUnchecked) -- | getWorkerThreadCount :: (MonadDOM m) => Internals -> m Word diff --git a/src/JSDOM/Generated/Location.hs b/src/JSDOM/Generated/Location.hs --- a/src/JSDOM/Generated/Location.hs +++ b/src/JSDOM/Generated/Location.hs @@ -1,10 +1,11 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Location - (assign, replace, reload, toString, setHref, getHref, setProtocol, - getProtocol, setHost, getHost, setHostname, getHostname, setPort, - getPort, setPathname, getPathname, setSearch, getSearch, setHash, - getHash, getOrigin, getAncestorOrigins, Location, castToLocation, + (assign, replace, reload, toString, toString_, setHref, getHref, + setProtocol, getProtocol, setHost, getHost, setHostname, + getHostname, setPort, getPort, setPathname, getPathname, setSearch, + getSearch, setHash, getHash, getOrigin, getAncestorOrigins, + getAncestorOriginsUnchecked, Location, castToLocation, gTypeLocation) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -39,6 +40,10 @@ toString self = liftDOM ((self ^. jsf "toString" ()) >>= fromJSValUnchecked) +-- | +toString_ :: (MonadDOM m) => Location -> m () +toString_ self = liftDOM (void (self ^. jsf "toString" ())) + -- | setHref :: (MonadDOM m, ToJSString val) => Location -> val -> m () setHref self val = liftDOM (self ^. jss "href" (toJSVal val)) @@ -133,3 +138,9 @@ (MonadDOM m) => Location -> m (Maybe DOMStringList) getAncestorOrigins self = liftDOM ((self ^. js "ancestorOrigins") >>= fromJSVal) + +-- | +getAncestorOriginsUnchecked :: + (MonadDOM m) => Location -> m DOMStringList +getAncestorOriginsUnchecked self + = liftDOM ((self ^. js "ancestorOrigins") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/MediaController.hs b/src/JSDOM/Generated/MediaController.hs --- a/src/JSDOM/Generated/MediaController.hs +++ b/src/JSDOM/Generated/MediaController.hs @@ -2,8 +2,9 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaController (newMediaController, play, pause, unpause, getBuffered, - getSeekable, getDuration, setCurrentTime, getCurrentTime, - getPaused, getPlayed, getPlaybackState, setDefaultPlaybackRate, + getBufferedUnchecked, getSeekable, getSeekableUnchecked, + getDuration, setCurrentTime, getCurrentTime, getPaused, getPlayed, + getPlayedUnchecked, getPlaybackState, setDefaultPlaybackRate, getDefaultPlaybackRate, setPlaybackRate, getPlaybackRate, setVolume, getVolume, setMuted, getMuted, MediaController, castToMediaController, gTypeMediaController) @@ -42,11 +43,23 @@ (MonadDOM m) => MediaController -> m (Maybe TimeRanges) getBuffered self = liftDOM ((self ^. js "buffered") >>= fromJSVal) +-- | +getBufferedUnchecked :: + (MonadDOM m) => MediaController -> m TimeRanges +getBufferedUnchecked self + = liftDOM ((self ^. js "buffered") >>= fromJSValUnchecked) + -- | getSeekable :: (MonadDOM m) => MediaController -> m (Maybe TimeRanges) getSeekable self = liftDOM ((self ^. js "seekable") >>= fromJSVal) +-- | +getSeekableUnchecked :: + (MonadDOM m) => MediaController -> m TimeRanges +getSeekableUnchecked self + = liftDOM ((self ^. js "seekable") >>= fromJSValUnchecked) + -- | getDuration :: (MonadDOM m) => MediaController -> m Double getDuration self @@ -70,6 +83,12 @@ getPlayed :: (MonadDOM m) => MediaController -> m (Maybe TimeRanges) getPlayed self = liftDOM ((self ^. js "played") >>= fromJSVal) + +-- | +getPlayedUnchecked :: + (MonadDOM m) => MediaController -> m TimeRanges +getPlayedUnchecked self + = liftDOM ((self ^. js "played") >>= fromJSValUnchecked) -- | getPlaybackState :: diff --git a/src/JSDOM/Generated/MediaControlsHost.hs b/src/JSDOM/Generated/MediaControlsHost.hs --- a/src/JSDOM/Generated/MediaControlsHost.hs +++ b/src/JSDOM/Generated/MediaControlsHost.hs @@ -1,12 +1,16 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaControlsHost - (sortedTrackListForMenu, sortedTrackListForMenuAudio, - displayNameForTrack, displayNameForTrackAudio, + (sortedTrackListForMenu, sortedTrackListForMenu_, + sortedTrackListForMenuAudio, sortedTrackListForMenuAudio_, + displayNameForTrack, displayNameForTrack_, + displayNameForTrackAudio, displayNameForTrackAudio_, setSelectedTextTrack, updateTextTrackContainer, enteredFullscreen, exitedFullscreen, enterFullscreenOptimized, mediaUIImageData, - getCaptionMenuOffItem, getCaptionMenuAutomaticItem, - getCaptionDisplayMode, getTextTrackContainer, + mediaUIImageData_, getCaptionMenuOffItem, + getCaptionMenuOffItemUnchecked, getCaptionMenuAutomaticItem, + getCaptionMenuAutomaticItemUnchecked, getCaptionDisplayMode, + getTextTrackContainer, getTextTrackContainerUnchecked, getMediaPlaybackAllowsInline, getSupportsFullscreen, getUserGestureRequired, getExternalDeviceDisplayName, getExternalDeviceType, setControlsDependOnPageScaleFactor, @@ -35,6 +39,13 @@ fromJSArray) -- | +sortedTrackListForMenu_ :: + (MonadDOM m) => MediaControlsHost -> Maybe TextTrackList -> m () +sortedTrackListForMenu_ self trackList + = liftDOM + (void (self ^. jsf "sortedTrackListForMenu" [toJSVal trackList])) + +-- | sortedTrackListForMenuAudio :: (MonadDOM m) => MediaControlsHost -> Maybe AudioTrackList -> m [Maybe AudioTrack] @@ -43,6 +54,13 @@ ((self ^. jsf "sortedTrackListForMenu" [toJSVal trackList]) >>= fromJSArray) +-- | +sortedTrackListForMenuAudio_ :: + (MonadDOM m) => MediaControlsHost -> Maybe AudioTrackList -> m () +sortedTrackListForMenuAudio_ self trackList + = liftDOM + (void (self ^. jsf "sortedTrackListForMenu" [toJSVal trackList])) + -- | displayNameForTrack :: (MonadDOM m, FromJSString result) => @@ -53,6 +71,13 @@ fromJSValUnchecked) -- | +displayNameForTrack_ :: + (MonadDOM m) => MediaControlsHost -> Maybe TextTrack -> m () +displayNameForTrack_ self track + = liftDOM + (void (self ^. jsf "displayNameForTrack" [toJSVal track])) + +-- | displayNameForTrackAudio :: (MonadDOM m, FromJSString result) => MediaControlsHost -> Maybe AudioTrack -> m result @@ -61,6 +86,13 @@ ((self ^. jsf "displayNameForTrack" [toJSVal track]) >>= fromJSValUnchecked) +-- | +displayNameForTrackAudio_ :: + (MonadDOM m) => MediaControlsHost -> Maybe AudioTrack -> m () +displayNameForTrackAudio_ self track + = liftDOM + (void (self ^. jsf "displayNameForTrack" [toJSVal track])) + -- | setSelectedTextTrack :: (MonadDOM m) => MediaControlsHost -> Maybe TextTrack -> m () @@ -99,18 +131,38 @@ ((self ^. jsf "mediaUIImageData" [toJSVal partID]) >>= fromJSValUnchecked) +-- | +mediaUIImageData_ :: + (MonadDOM m) => MediaControlsHost -> MediaUIPartID -> m () +mediaUIImageData_ self partID + = liftDOM (void (self ^. jsf "mediaUIImageData" [toJSVal partID])) + -- | getCaptionMenuOffItem :: (MonadDOM m) => MediaControlsHost -> m (Maybe TextTrack) getCaptionMenuOffItem self = liftDOM ((self ^. js "captionMenuOffItem") >>= fromJSVal) +-- | +getCaptionMenuOffItemUnchecked :: + (MonadDOM m) => MediaControlsHost -> m TextTrack +getCaptionMenuOffItemUnchecked self + = liftDOM + ((self ^. js "captionMenuOffItem") >>= fromJSValUnchecked) + -- | getCaptionMenuAutomaticItem :: (MonadDOM m) => MediaControlsHost -> m (Maybe TextTrack) getCaptionMenuAutomaticItem self = liftDOM ((self ^. js "captionMenuAutomaticItem") >>= fromJSVal) +-- | +getCaptionMenuAutomaticItemUnchecked :: + (MonadDOM m) => MediaControlsHost -> m TextTrack +getCaptionMenuAutomaticItemUnchecked self + = liftDOM + ((self ^. js "captionMenuAutomaticItem") >>= fromJSValUnchecked) + -- | getCaptionDisplayMode :: (MonadDOM m, FromJSString result) => MediaControlsHost -> m result @@ -123,6 +175,13 @@ (MonadDOM m) => MediaControlsHost -> m (Maybe HTMLElement) getTextTrackContainer self = liftDOM ((self ^. js "textTrackContainer") >>= fromJSVal) + +-- | +getTextTrackContainerUnchecked :: + (MonadDOM m) => MediaControlsHost -> m HTMLElement +getTextTrackContainerUnchecked self + = liftDOM + ((self ^. js "textTrackContainer") >>= fromJSValUnchecked) -- | getMediaPlaybackAllowsInline :: diff --git a/src/JSDOM/Generated/MediaElementAudioSourceNode.hs b/src/JSDOM/Generated/MediaElementAudioSourceNode.hs --- a/src/JSDOM/Generated/MediaElementAudioSourceNode.hs +++ b/src/JSDOM/Generated/MediaElementAudioSourceNode.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaElementAudioSourceNode - (getMediaElement, MediaElementAudioSourceNode, - castToMediaElementAudioSourceNode, + (getMediaElement, getMediaElementUnchecked, + MediaElementAudioSourceNode, castToMediaElementAudioSourceNode, gTypeMediaElementAudioSourceNode) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -23,3 +23,9 @@ MediaElementAudioSourceNode -> m (Maybe HTMLMediaElement) getMediaElement self = liftDOM ((self ^. js "mediaElement") >>= fromJSVal) + +-- | +getMediaElementUnchecked :: + (MonadDOM m) => MediaElementAudioSourceNode -> m HTMLMediaElement +getMediaElementUnchecked self + = liftDOM ((self ^. js "mediaElement") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/MediaKeyEvent.hs b/src/JSDOM/Generated/MediaKeyEvent.hs --- a/src/JSDOM/Generated/MediaKeyEvent.hs +++ b/src/JSDOM/Generated/MediaKeyEvent.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaKeyEvent - (getKeySystem, getSessionId, getInitData, getMessage, - getDefaultURL, getErrorCode, getSystemCode, MediaKeyEvent, + (getKeySystem, getSessionId, getInitData, getInitDataUnchecked, + getMessage, getMessageUnchecked, getDefaultURL, getErrorCode, + getErrorCodeUnchecked, getSystemCode, MediaKeyEvent, castToMediaKeyEvent, gTypeMediaKeyEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -34,10 +35,22 @@ (MonadDOM m) => MediaKeyEvent -> m (Maybe Uint8Array) getInitData self = liftDOM ((self ^. js "initData") >>= fromJSVal) +-- | +getInitDataUnchecked :: + (MonadDOM m) => MediaKeyEvent -> m Uint8Array +getInitDataUnchecked self + = liftDOM ((self ^. js "initData") >>= fromJSValUnchecked) + -- | getMessage :: (MonadDOM m) => MediaKeyEvent -> m (Maybe Uint8Array) getMessage self = liftDOM ((self ^. js "message") >>= fromJSVal) +-- | +getMessageUnchecked :: + (MonadDOM m) => MediaKeyEvent -> m Uint8Array +getMessageUnchecked self + = liftDOM ((self ^. js "message") >>= fromJSValUnchecked) + -- | getDefaultURL :: (MonadDOM m, FromJSString result) => MediaKeyEvent -> m result @@ -49,6 +62,12 @@ (MonadDOM m) => MediaKeyEvent -> m (Maybe MediaKeyError) getErrorCode self = liftDOM ((self ^. js "errorCode") >>= fromJSVal) + +-- | +getErrorCodeUnchecked :: + (MonadDOM m) => MediaKeyEvent -> m MediaKeyError +getErrorCodeUnchecked self + = liftDOM ((self ^. js "errorCode") >>= fromJSValUnchecked) -- | getSystemCode :: (MonadDOM m) => MediaKeyEvent -> m Word diff --git a/src/JSDOM/Generated/MediaKeyMessageEvent.hs b/src/JSDOM/Generated/MediaKeyMessageEvent.hs --- a/src/JSDOM/Generated/MediaKeyMessageEvent.hs +++ b/src/JSDOM/Generated/MediaKeyMessageEvent.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaKeyMessageEvent - (getMessage, getDestinationURL, MediaKeyMessageEvent, - castToMediaKeyMessageEvent, gTypeMediaKeyMessageEvent) + (getMessage, getMessageUnchecked, getDestinationURL, + MediaKeyMessageEvent, castToMediaKeyMessageEvent, + gTypeMediaKeyMessageEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,6 +21,12 @@ getMessage :: (MonadDOM m) => MediaKeyMessageEvent -> m (Maybe Uint8Array) getMessage self = liftDOM ((self ^. js "message") >>= fromJSVal) + +-- | +getMessageUnchecked :: + (MonadDOM m) => MediaKeyMessageEvent -> m Uint8Array +getMessageUnchecked self + = liftDOM ((self ^. js "message") >>= fromJSValUnchecked) -- | getDestinationURL :: diff --git a/src/JSDOM/Generated/MediaKeyNeededEvent.hs b/src/JSDOM/Generated/MediaKeyNeededEvent.hs --- a/src/JSDOM/Generated/MediaKeyNeededEvent.hs +++ b/src/JSDOM/Generated/MediaKeyNeededEvent.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaKeyNeededEvent - (getInitData, MediaKeyNeededEvent, castToMediaKeyNeededEvent, - gTypeMediaKeyNeededEvent) + (getInitData, getInitDataUnchecked, MediaKeyNeededEvent, + castToMediaKeyNeededEvent, gTypeMediaKeyNeededEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,3 +20,9 @@ getInitData :: (MonadDOM m) => MediaKeyNeededEvent -> m (Maybe Uint8Array) getInitData self = liftDOM ((self ^. js "initData") >>= fromJSVal) + +-- | +getInitDataUnchecked :: + (MonadDOM m) => MediaKeyNeededEvent -> m Uint8Array +getInitDataUnchecked self + = liftDOM ((self ^. js "initData") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/MediaKeySession.hs b/src/JSDOM/Generated/MediaKeySession.hs --- a/src/JSDOM/Generated/MediaKeySession.hs +++ b/src/JSDOM/Generated/MediaKeySession.hs @@ -1,9 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaKeySession - (update, close, getError, getKeySystem, getSessionId, - webKitKeyAdded, webKitKeyError, webKitKeyMessage, MediaKeySession, - castToMediaKeySession, gTypeMediaKeySession) + (update, close, getError, getErrorUnchecked, getKeySystem, + getSessionId, webKitKeyAdded, webKitKeyError, webKitKeyMessage, + MediaKeySession, castToMediaKeySession, gTypeMediaKeySession) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -32,6 +32,12 @@ getError :: (MonadDOM m) => MediaKeySession -> m (Maybe MediaKeyError) getError self = liftDOM ((self ^. js "error") >>= fromJSVal) + +-- | +getErrorUnchecked :: + (MonadDOM m) => MediaKeySession -> m MediaKeyError +getErrorUnchecked self + = liftDOM ((self ^. js "error") >>= fromJSValUnchecked) -- | getKeySystem :: diff --git a/src/JSDOM/Generated/MediaKeys.hs b/src/JSDOM/Generated/MediaKeys.hs --- a/src/JSDOM/Generated/MediaKeys.hs +++ b/src/JSDOM/Generated/MediaKeys.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaKeys - (newMediaKeys, createSession, isTypeSupported, getKeySystem, - MediaKeys, castToMediaKeys, gTypeMediaKeys) + (newMediaKeys, createSession, createSession_, + createSessionUnchecked, isTypeSupported, isTypeSupported_, + getKeySystem, MediaKeys, castToMediaKeys, gTypeMediaKeys) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -31,6 +32,24 @@ ((self ^. jsf "createSession" [toJSVal type', toJSVal initData]) >>= fromJSVal) +-- | +createSession_ :: + (MonadDOM m, ToJSString type', IsUint8Array initData) => + MediaKeys -> type' -> Maybe initData -> m () +createSession_ self type' initData + = liftDOM + (void + (self ^. jsf "createSession" [toJSVal type', toJSVal initData])) + +-- | +createSessionUnchecked :: + (MonadDOM m, ToJSString type', IsUint8Array initData) => + MediaKeys -> type' -> Maybe initData -> m MediaKeySession +createSessionUnchecked self type' initData + = liftDOM + ((self ^. jsf "createSession" [toJSVal type', toJSVal initData]) + >>= fromJSValUnchecked) + -- | isTypeSupported :: (MonadDOM m, ToJSString keySystem, ToJSString type') => @@ -39,6 +58,15 @@ = liftDOM ((self ^. jsf "isTypeSupported" [toJSVal keySystem, toJSVal type']) >>= valToBool) + +-- | +isTypeSupported_ :: + (MonadDOM m, ToJSString keySystem, ToJSString type') => + MediaKeys -> keySystem -> type' -> m () +isTypeSupported_ self keySystem type' + = liftDOM + (void + (self ^. jsf "isTypeSupported" [toJSVal keySystem, toJSVal type'])) -- | getKeySystem :: diff --git a/src/JSDOM/Generated/MediaList.hs b/src/JSDOM/Generated/MediaList.hs --- a/src/JSDOM/Generated/MediaList.hs +++ b/src/JSDOM/Generated/MediaList.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaList - (item, deleteMedium, appendMedium, setMediaText, getMediaText, - getLength, MediaList, castToMediaList, gTypeMediaList) + (item, item_, itemUnchecked, deleteMedium, appendMedium, + setMediaText, getMediaText, getMediaTextUnchecked, getLength, + MediaList, castToMediaList, gTypeMediaList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -24,6 +25,18 @@ = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromMaybeJSString) +-- | +item_ :: (MonadDOM m) => MediaList -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m, FromJSString result) => MediaList -> Word -> m result +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) + -- | deleteMedium :: (MonadDOM m, ToJSString oldMedium) => @@ -49,6 +62,12 @@ (MonadDOM m, FromJSString result) => MediaList -> m (Maybe result) getMediaText self = liftDOM ((self ^. js "mediaText") >>= fromMaybeJSString) + +-- | +getMediaTextUnchecked :: + (MonadDOM m, FromJSString result) => MediaList -> m result +getMediaTextUnchecked self + = liftDOM ((self ^. js "mediaText") >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => MediaList -> m Word diff --git a/src/JSDOM/Generated/MediaSource.hs b/src/JSDOM/Generated/MediaSource.hs --- a/src/JSDOM/Generated/MediaSource.hs +++ b/src/JSDOM/Generated/MediaSource.hs @@ -1,10 +1,12 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaSource - (newMediaSource, addSourceBuffer, removeSourceBuffer, endOfStream, - isTypeSupported, getSourceBuffers, getActiveSourceBuffers, - setDuration, getDuration, getReadyState, MediaSource, - castToMediaSource, gTypeMediaSource) + (newMediaSource, addSourceBuffer, addSourceBuffer_, + addSourceBufferUnchecked, removeSourceBuffer, endOfStream, + isTypeSupported, isTypeSupported_, getSourceBuffers, + getSourceBuffersUnchecked, getActiveSourceBuffers, + getActiveSourceBuffersUnchecked, setDuration, getDuration, + getReadyState, MediaSource, castToMediaSource, gTypeMediaSource) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -31,6 +33,21 @@ = liftDOM ((self ^. jsf "addSourceBuffer" [toJSVal type']) >>= fromJSVal) +-- | +addSourceBuffer_ :: + (MonadDOM m, ToJSString type') => MediaSource -> type' -> m () +addSourceBuffer_ self type' + = liftDOM (void (self ^. jsf "addSourceBuffer" [toJSVal type'])) + +-- | +addSourceBufferUnchecked :: + (MonadDOM m, ToJSString type') => + MediaSource -> type' -> m SourceBuffer +addSourceBufferUnchecked self type' + = liftDOM + ((self ^. jsf "addSourceBuffer" [toJSVal type']) >>= + fromJSValUnchecked) + -- | removeSourceBuffer :: (MonadDOM m) => MediaSource -> Maybe SourceBuffer -> m () @@ -51,17 +68,36 @@ = liftDOM ((self ^. jsf "isTypeSupported" [toJSVal type']) >>= valToBool) +-- | +isTypeSupported_ :: + (MonadDOM m, ToJSString type') => MediaSource -> type' -> m () +isTypeSupported_ self type' + = liftDOM (void (self ^. jsf "isTypeSupported" [toJSVal type'])) + -- | getSourceBuffers :: (MonadDOM m) => MediaSource -> m (Maybe SourceBufferList) getSourceBuffers self = liftDOM ((self ^. js "sourceBuffers") >>= fromJSVal) +-- | +getSourceBuffersUnchecked :: + (MonadDOM m) => MediaSource -> m SourceBufferList +getSourceBuffersUnchecked self + = liftDOM ((self ^. js "sourceBuffers") >>= fromJSValUnchecked) + -- | getActiveSourceBuffers :: (MonadDOM m) => MediaSource -> m (Maybe SourceBufferList) getActiveSourceBuffers self = liftDOM ((self ^. js "activeSourceBuffers") >>= fromJSVal) + +-- | +getActiveSourceBuffersUnchecked :: + (MonadDOM m) => MediaSource -> m SourceBufferList +getActiveSourceBuffersUnchecked self + = liftDOM + ((self ^. js "activeSourceBuffers") >>= fromJSValUnchecked) -- | setDuration :: (MonadDOM m) => MediaSource -> Double -> m () diff --git a/src/JSDOM/Generated/MediaSourceStates.hs b/src/JSDOM/Generated/MediaSourceStates.hs --- a/src/JSDOM/Generated/MediaSourceStates.hs +++ b/src/JSDOM/Generated/MediaSourceStates.hs @@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaSourceStates - (getSourceType, getSourceId, getWidth, getHeight, getFrameRate, - getAspectRatio, getFacingMode, getVolume, MediaSourceStates, - castToMediaSourceStates, gTypeMediaSourceStates) + (getSourceType, getSourceId, getWidth, getWidthUnchecked, + getHeight, getHeightUnchecked, getFrameRate, getFrameRateUnchecked, + getAspectRatio, getAspectRatioUnchecked, getFacingMode, + getFacingModeUnchecked, getVolume, getVolumeUnchecked, + MediaSourceStates, castToMediaSourceStates, gTypeMediaSourceStates) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -33,28 +35,61 @@ getWidth :: (MonadDOM m) => MediaSourceStates -> m (Maybe Word) getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal) +-- | +getWidthUnchecked :: (MonadDOM m) => MediaSourceStates -> m Word +getWidthUnchecked self + = liftDOM ((self ^. js "width") >>= fromJSValUnchecked) + -- | getHeight :: (MonadDOM m) => MediaSourceStates -> m (Maybe Word) getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal) +-- | +getHeightUnchecked :: (MonadDOM m) => MediaSourceStates -> m Word +getHeightUnchecked self + = liftDOM ((self ^. js "height") >>= fromJSValUnchecked) + -- | getFrameRate :: (MonadDOM m) => MediaSourceStates -> m (Maybe Float) getFrameRate self = liftDOM ((self ^. js "frameRate") >>= fromJSVal) +-- | +getFrameRateUnchecked :: + (MonadDOM m) => MediaSourceStates -> m Float +getFrameRateUnchecked self + = liftDOM ((self ^. js "frameRate") >>= fromJSValUnchecked) + -- | getAspectRatio :: (MonadDOM m) => MediaSourceStates -> m (Maybe Float) getAspectRatio self = liftDOM ((self ^. js "aspectRatio") >>= fromJSVal) +-- | +getAspectRatioUnchecked :: + (MonadDOM m) => MediaSourceStates -> m Float +getAspectRatioUnchecked self + = liftDOM ((self ^. js "aspectRatio") >>= fromJSValUnchecked) + -- | getFacingMode :: (MonadDOM m) => MediaSourceStates -> m (Maybe VideoFacingModeEnum) getFacingMode self = liftDOM ((self ^. js "facingMode") >>= fromJSVal) +-- | +getFacingModeUnchecked :: + (MonadDOM m) => MediaSourceStates -> m VideoFacingModeEnum +getFacingModeUnchecked self + = liftDOM ((self ^. js "facingMode") >>= fromJSValUnchecked) + -- | getVolume :: (MonadDOM m) => MediaSourceStates -> m (Maybe Word) getVolume self = liftDOM ((self ^. js "volume") >>= fromJSVal) + +-- | +getVolumeUnchecked :: (MonadDOM m) => MediaSourceStates -> m Word +getVolumeUnchecked self + = liftDOM ((self ^. js "volume") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/MediaStream.hs b/src/JSDOM/Generated/MediaStream.hs --- a/src/JSDOM/Generated/MediaStream.hs +++ b/src/JSDOM/Generated/MediaStream.hs @@ -2,9 +2,11 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaStream (newMediaStream, newMediaStream', newMediaStream'', getAudioTracks, - getVideoTracks, getTracks, addTrack, removeTrack, getTrackById, - clone, getId, getActive, active, inactive, addTrackEvent, - removeTrackEvent, MediaStream, castToMediaStream, gTypeMediaStream) + getAudioTracks_, getVideoTracks, getVideoTracks_, getTracks, + getTracks_, addTrack, removeTrack, getTrackById, getTrackById_, + getTrackByIdUnchecked, clone, clone_, cloneUnchecked, getId, + getActive, active, inactive, addTrackEvent, removeTrackEvent, + MediaStream, castToMediaStream, gTypeMediaStream) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -44,18 +46,32 @@ getAudioTracks self = liftDOM ((self ^. jsf "getAudioTracks" ()) >>= fromJSArray) +-- | +getAudioTracks_ :: (MonadDOM m) => MediaStream -> m () +getAudioTracks_ self + = liftDOM (void (self ^. jsf "getAudioTracks" ())) + -- | getVideoTracks :: (MonadDOM m) => MediaStream -> m [Maybe MediaStreamTrack] getVideoTracks self = liftDOM ((self ^. jsf "getVideoTracks" ()) >>= fromJSArray) +-- | +getVideoTracks_ :: (MonadDOM m) => MediaStream -> m () +getVideoTracks_ self + = liftDOM (void (self ^. jsf "getVideoTracks" ())) + -- | getTracks :: (MonadDOM m) => MediaStream -> m [Maybe MediaStreamTrack] getTracks self = liftDOM ((self ^. jsf "getTracks" ()) >>= fromJSArray) +-- | +getTracks_ :: (MonadDOM m) => MediaStream -> m () +getTracks_ self = liftDOM (void (self ^. jsf "getTracks" ())) + -- | addTrack :: (MonadDOM m, IsMediaStreamTrack track) => @@ -78,9 +94,33 @@ = liftDOM ((self ^. jsf "getTrackById" [toJSVal trackId]) >>= fromJSVal) +-- | +getTrackById_ :: + (MonadDOM m, ToJSString trackId) => MediaStream -> trackId -> m () +getTrackById_ self trackId + = liftDOM (void (self ^. jsf "getTrackById" [toJSVal trackId])) + +-- | +getTrackByIdUnchecked :: + (MonadDOM m, ToJSString trackId) => + MediaStream -> trackId -> m MediaStreamTrack +getTrackByIdUnchecked self trackId + = liftDOM + ((self ^. jsf "getTrackById" [toJSVal trackId]) >>= + fromJSValUnchecked) + -- | clone :: (MonadDOM m) => MediaStream -> m (Maybe MediaStream) clone self = liftDOM ((self ^. jsf "clone" ()) >>= fromJSVal) + +-- | +clone_ :: (MonadDOM m) => MediaStream -> m () +clone_ self = liftDOM (void (self ^. jsf "clone" ())) + +-- | +cloneUnchecked :: (MonadDOM m) => MediaStream -> m MediaStream +cloneUnchecked self + = liftDOM ((self ^. jsf "clone" ()) >>= fromJSValUnchecked) -- | getId :: diff --git a/src/JSDOM/Generated/MediaStreamAudioDestinationNode.hs b/src/JSDOM/Generated/MediaStreamAudioDestinationNode.hs --- a/src/JSDOM/Generated/MediaStreamAudioDestinationNode.hs +++ b/src/JSDOM/Generated/MediaStreamAudioDestinationNode.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaStreamAudioDestinationNode - (getStream, MediaStreamAudioDestinationNode, + (getStream, getStreamUnchecked, MediaStreamAudioDestinationNode, castToMediaStreamAudioDestinationNode, gTypeMediaStreamAudioDestinationNode) where @@ -22,3 +22,9 @@ (MonadDOM m) => MediaStreamAudioDestinationNode -> m (Maybe MediaStream) getStream self = liftDOM ((self ^. js "stream") >>= fromJSVal) + +-- | +getStreamUnchecked :: + (MonadDOM m) => MediaStreamAudioDestinationNode -> m MediaStream +getStreamUnchecked self + = liftDOM ((self ^. js "stream") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/MediaStreamAudioSourceNode.hs b/src/JSDOM/Generated/MediaStreamAudioSourceNode.hs --- a/src/JSDOM/Generated/MediaStreamAudioSourceNode.hs +++ b/src/JSDOM/Generated/MediaStreamAudioSourceNode.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaStreamAudioSourceNode - (getMediaStream, MediaStreamAudioSourceNode, - castToMediaStreamAudioSourceNode, gTypeMediaStreamAudioSourceNode) + (getMediaStream, getMediaStreamUnchecked, + MediaStreamAudioSourceNode, castToMediaStreamAudioSourceNode, + gTypeMediaStreamAudioSourceNode) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,3 +22,9 @@ (MonadDOM m) => MediaStreamAudioSourceNode -> m (Maybe MediaStream) getMediaStream self = liftDOM ((self ^. js "mediaStream") >>= fromJSVal) + +-- | +getMediaStreamUnchecked :: + (MonadDOM m) => MediaStreamAudioSourceNode -> m MediaStream +getMediaStreamUnchecked self + = liftDOM ((self ^. js "mediaStream") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/MediaStreamEvent.hs b/src/JSDOM/Generated/MediaStreamEvent.hs --- a/src/JSDOM/Generated/MediaStreamEvent.hs +++ b/src/JSDOM/Generated/MediaStreamEvent.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaStreamEvent - (getStream, MediaStreamEvent, castToMediaStreamEvent, - gTypeMediaStreamEvent) + (getStream, getStreamUnchecked, MediaStreamEvent, + castToMediaStreamEvent, gTypeMediaStreamEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,3 +20,9 @@ getStream :: (MonadDOM m) => MediaStreamEvent -> m (Maybe MediaStream) getStream self = liftDOM ((self ^. js "stream") >>= fromJSVal) + +-- | +getStreamUnchecked :: + (MonadDOM m) => MediaStreamEvent -> m MediaStream +getStreamUnchecked self + = liftDOM ((self ^. js "stream") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/MediaStreamTrack.hs b/src/JSDOM/Generated/MediaStreamTrack.hs --- a/src/JSDOM/Generated/MediaStreamTrack.hs +++ b/src/JSDOM/Generated/MediaStreamTrack.hs @@ -1,12 +1,14 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaStreamTrack - (getSources, getConstraints, states, getCapabilities, - applyConstraints, clone, stop, getKind, getId, getLabel, - setEnabled, getEnabled, getMuted, mute, unmute, get_readonly, - getRemote, getReadyState, started, ended, overConstrained, - MediaStreamTrack, castToMediaStreamTrack, gTypeMediaStreamTrack, - IsMediaStreamTrack, toMediaStreamTrack) + (getSources, getConstraints, getConstraints_, + getConstraintsUnchecked, states, states_, statesUnchecked, + getCapabilities, getCapabilities_, getCapabilitiesUnchecked, + applyConstraints, clone, clone_, cloneUnchecked, stop, getKind, + getId, getLabel, setEnabled, getEnabled, getMuted, mute, unmute, + get_readonly, getRemote, getReadyState, started, ended, + overConstrained, MediaStreamTrack, castToMediaStreamTrack, + gTypeMediaStreamTrack, IsMediaStreamTrack, toMediaStreamTrack) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -38,6 +40,22 @@ (((toMediaStreamTrack self) ^. jsf "getConstraints" ()) >>= fromJSVal) +-- | +getConstraints_ :: + (MonadDOM m, IsMediaStreamTrack self) => self -> m () +getConstraints_ self + = liftDOM + (void ((toMediaStreamTrack self) ^. jsf "getConstraints" ())) + +-- | +getConstraintsUnchecked :: + (MonadDOM m, IsMediaStreamTrack self) => + self -> m MediaTrackConstraints +getConstraintsUnchecked self + = liftDOM + (((toMediaStreamTrack self) ^. jsf "getConstraints" ()) >>= + fromJSValUnchecked) + -- | states :: (MonadDOM m, IsMediaStreamTrack self) => @@ -46,6 +64,20 @@ = liftDOM (((toMediaStreamTrack self) ^. jsf "states" ()) >>= fromJSVal) +-- | +states_ :: (MonadDOM m, IsMediaStreamTrack self) => self -> m () +states_ self + = liftDOM (void ((toMediaStreamTrack self) ^. jsf "states" ())) + +-- | +statesUnchecked :: + (MonadDOM m, IsMediaStreamTrack self) => + self -> m MediaSourceStates +statesUnchecked self + = liftDOM + (((toMediaStreamTrack self) ^. jsf "states" ()) >>= + fromJSValUnchecked) + -- | getCapabilities :: (MonadDOM m, IsMediaStreamTrack self) => @@ -55,6 +87,22 @@ (((toMediaStreamTrack self) ^. jsf "getCapabilities" ()) >>= fromJSVal) +-- | +getCapabilities_ :: + (MonadDOM m, IsMediaStreamTrack self) => self -> m () +getCapabilities_ self + = liftDOM + (void ((toMediaStreamTrack self) ^. jsf "getCapabilities" ())) + +-- | +getCapabilitiesUnchecked :: + (MonadDOM m, IsMediaStreamTrack self) => + self -> m MediaStreamCapabilities +getCapabilitiesUnchecked self + = liftDOM + (((toMediaStreamTrack self) ^. jsf "getCapabilities" ()) >>= + fromJSValUnchecked) + -- | applyConstraints :: (MonadDOM m, IsMediaStreamTrack self, IsDictionary constraints) => @@ -72,6 +120,19 @@ clone self = liftDOM (((toMediaStreamTrack self) ^. jsf "clone" ()) >>= fromJSVal) + +-- | +clone_ :: (MonadDOM m, IsMediaStreamTrack self) => self -> m () +clone_ self + = liftDOM (void ((toMediaStreamTrack self) ^. jsf "clone" ())) + +-- | +cloneUnchecked :: + (MonadDOM m, IsMediaStreamTrack self) => self -> m MediaStreamTrack +cloneUnchecked self + = liftDOM + (((toMediaStreamTrack self) ^. jsf "clone" ()) >>= + fromJSValUnchecked) -- | stop :: (MonadDOM m, IsMediaStreamTrack self) => self -> m () diff --git a/src/JSDOM/Generated/MediaStreamTrackEvent.hs b/src/JSDOM/Generated/MediaStreamTrackEvent.hs --- a/src/JSDOM/Generated/MediaStreamTrackEvent.hs +++ b/src/JSDOM/Generated/MediaStreamTrackEvent.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaStreamTrackEvent - (getTrack, MediaStreamTrackEvent, castToMediaStreamTrackEvent, - gTypeMediaStreamTrackEvent) + (getTrack, getTrackUnchecked, MediaStreamTrackEvent, + castToMediaStreamTrackEvent, gTypeMediaStreamTrackEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,3 +20,9 @@ getTrack :: (MonadDOM m) => MediaStreamTrackEvent -> m (Maybe MediaStreamTrack) getTrack self = liftDOM ((self ^. js "track") >>= fromJSVal) + +-- | +getTrackUnchecked :: + (MonadDOM m) => MediaStreamTrackEvent -> m MediaStreamTrack +getTrackUnchecked self + = liftDOM ((self ^. js "track") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/MediaTrackConstraints.hs b/src/JSDOM/Generated/MediaTrackConstraints.hs --- a/src/JSDOM/Generated/MediaTrackConstraints.hs +++ b/src/JSDOM/Generated/MediaTrackConstraints.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MediaTrackConstraints - (getMandatory, getOptional, MediaTrackConstraints, - castToMediaTrackConstraints, gTypeMediaTrackConstraints) + (getMandatory, getMandatoryUnchecked, getOptional, + MediaTrackConstraints, castToMediaTrackConstraints, + gTypeMediaTrackConstraints) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -22,6 +23,12 @@ MediaTrackConstraints -> m (Maybe MediaTrackConstraintSet) getMandatory self = liftDOM ((self ^. js "mandatory") >>= fromJSVal) + +-- | +getMandatoryUnchecked :: + (MonadDOM m) => MediaTrackConstraints -> m MediaTrackConstraintSet +getMandatoryUnchecked self + = liftDOM ((self ^. js "mandatory") >>= fromJSValUnchecked) -- | getOptional :: diff --git a/src/JSDOM/Generated/MessageChannel.hs b/src/JSDOM/Generated/MessageChannel.hs --- a/src/JSDOM/Generated/MessageChannel.hs +++ b/src/JSDOM/Generated/MessageChannel.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MessageChannel - (newMessageChannel, getPort1, getPort2, MessageChannel, - castToMessageChannel, gTypeMessageChannel) + (newMessageChannel, getPort1, getPort1Unchecked, getPort2, + getPort2Unchecked, MessageChannel, castToMessageChannel, + gTypeMessageChannel) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -25,6 +26,18 @@ getPort1 :: (MonadDOM m) => MessageChannel -> m (Maybe MessagePort) getPort1 self = liftDOM ((self ^. js "port1") >>= fromJSVal) +-- | +getPort1Unchecked :: + (MonadDOM m) => MessageChannel -> m MessagePort +getPort1Unchecked self + = liftDOM ((self ^. js "port1") >>= fromJSValUnchecked) + -- | getPort2 :: (MonadDOM m) => MessageChannel -> m (Maybe MessagePort) getPort2 self = liftDOM ((self ^. js "port2") >>= fromJSVal) + +-- | +getPort2Unchecked :: + (MonadDOM m) => MessageChannel -> m MessagePort +getPort2Unchecked self + = liftDOM ((self ^. js "port2") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/MessageEvent.hs b/src/JSDOM/Generated/MessageEvent.hs --- a/src/JSDOM/Generated/MessageEvent.hs +++ b/src/JSDOM/Generated/MessageEvent.hs @@ -2,8 +2,8 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MessageEvent (initMessageEvent, webkitInitMessageEvent, getOrigin, - getLastEventId, getSource, getData, getPorts, MessageEvent, - castToMessageEvent, gTypeMessageEvent) + getLastEventId, getSource, getSourceUnchecked, getData, getPorts, + MessageEvent, castToMessageEvent, gTypeMessageEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -72,6 +72,11 @@ -- | getSource :: (MonadDOM m) => MessageEvent -> m (Maybe EventTarget) getSource self = liftDOM ((self ^. js "source") >>= fromJSVal) + +-- | +getSourceUnchecked :: (MonadDOM m) => MessageEvent -> m EventTarget +getSourceUnchecked self + = liftDOM ((self ^. js "source") >>= fromJSValUnchecked) -- | getData :: (MonadDOM m) => MessageEvent -> m JSVal diff --git a/src/JSDOM/Generated/MimeType.hs b/src/JSDOM/Generated/MimeType.hs --- a/src/JSDOM/Generated/MimeType.hs +++ b/src/JSDOM/Generated/MimeType.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MimeType - (getType, getSuffixes, getDescription, getEnabledPlugin, MimeType, - castToMimeType, gTypeMimeType) + (getType, getSuffixes, getDescription, getEnabledPlugin, + getEnabledPluginUnchecked, MimeType, castToMimeType, gTypeMimeType) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -37,3 +37,8 @@ getEnabledPlugin :: (MonadDOM m) => MimeType -> m (Maybe Plugin) getEnabledPlugin self = liftDOM ((self ^. js "enabledPlugin") >>= fromJSVal) + +-- | +getEnabledPluginUnchecked :: (MonadDOM m) => MimeType -> m Plugin +getEnabledPluginUnchecked self + = liftDOM ((self ^. js "enabledPlugin") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/MimeTypeArray.hs b/src/JSDOM/Generated/MimeTypeArray.hs --- a/src/JSDOM/Generated/MimeTypeArray.hs +++ b/src/JSDOM/Generated/MimeTypeArray.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MimeTypeArray - (item, namedItem, getLength, MimeTypeArray, castToMimeTypeArray, + (item, item_, itemUnchecked, namedItem, namedItem_, + namedItemUnchecked, getLength, MimeTypeArray, castToMimeTypeArray, gTypeMimeTypeArray) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -21,12 +22,38 @@ item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) +-- | +item_ :: (MonadDOM m) => MimeTypeArray -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m) => MimeTypeArray -> Word -> m MimeType +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) + -- | namedItem :: (MonadDOM m, ToJSString name) => MimeTypeArray -> name -> m (Maybe MimeType) namedItem self name = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal) + +-- | +namedItem_ :: + (MonadDOM m, ToJSString name) => MimeTypeArray -> name -> m () +namedItem_ self name + = liftDOM (void (self ^. jsf "namedItem" [toJSVal name])) + +-- | +namedItemUnchecked :: + (MonadDOM m, ToJSString name) => + MimeTypeArray -> name -> m MimeType +namedItemUnchecked self name + = liftDOM + ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => MimeTypeArray -> m Word diff --git a/src/JSDOM/Generated/MouseEvent.hs b/src/JSDOM/Generated/MouseEvent.hs --- a/src/JSDOM/Generated/MouseEvent.hs +++ b/src/JSDOM/Generated/MouseEvent.hs @@ -3,10 +3,11 @@ module JSDOM.Generated.MouseEvent (initMouseEvent, getScreenX, getScreenY, getClientX, getClientY, getCtrlKey, getShiftKey, getAltKey, getMetaKey, getButton, - getRelatedTarget, getMovementX, getMovementY, getOffsetX, - getOffsetY, getX, getY, getFromElement, getToElement, - getDataTransfer, MouseEvent, castToMouseEvent, gTypeMouseEvent, - IsMouseEvent, toMouseEvent) + getRelatedTarget, getRelatedTargetUnchecked, getMovementX, + getMovementY, getOffsetX, getOffsetY, getX, getY, getFromElement, + getFromElementUnchecked, getToElement, getToElementUnchecked, + getDataTransfer, getDataTransferUnchecked, MouseEvent, + castToMouseEvent, gTypeMouseEvent, IsMouseEvent, toMouseEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -104,6 +105,14 @@ = liftDOM (((toMouseEvent self) ^. js "relatedTarget") >>= fromJSVal) +-- | +getRelatedTargetUnchecked :: + (MonadDOM m, IsMouseEvent self) => self -> m EventTarget +getRelatedTargetUnchecked self + = liftDOM + (((toMouseEvent self) ^. js "relatedTarget") >>= + fromJSValUnchecked) + -- | getMovementX :: (MonadDOM m, IsMouseEvent self) => self -> m Int getMovementX self @@ -148,15 +157,36 @@ getFromElement self = liftDOM (((toMouseEvent self) ^. js "fromElement") >>= fromJSVal) +-- | +getFromElementUnchecked :: + (MonadDOM m, IsMouseEvent self) => self -> m Node +getFromElementUnchecked self + = liftDOM + (((toMouseEvent self) ^. js "fromElement") >>= fromJSValUnchecked) + -- | getToElement :: (MonadDOM m, IsMouseEvent self) => self -> m (Maybe Node) getToElement self = liftDOM (((toMouseEvent self) ^. js "toElement") >>= fromJSVal) +-- | +getToElementUnchecked :: + (MonadDOM m, IsMouseEvent self) => self -> m Node +getToElementUnchecked self + = liftDOM + (((toMouseEvent self) ^. js "toElement") >>= fromJSValUnchecked) + -- | getDataTransfer :: (MonadDOM m, IsMouseEvent self) => self -> m (Maybe DataTransfer) getDataTransfer self = liftDOM (((toMouseEvent self) ^. js "dataTransfer") >>= fromJSVal) + +-- | +getDataTransferUnchecked :: + (MonadDOM m, IsMouseEvent self) => self -> m DataTransfer +getDataTransferUnchecked self + = liftDOM + (((toMouseEvent self) ^. js "dataTransfer") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/MutationEvent.hs b/src/JSDOM/Generated/MutationEvent.hs --- a/src/JSDOM/Generated/MutationEvent.hs +++ b/src/JSDOM/Generated/MutationEvent.hs @@ -2,9 +2,9 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MutationEvent (initMutationEvent, pattern MODIFICATION, pattern ADDITION, - pattern REMOVAL, getRelatedNode, getPrevValue, getNewValue, - getAttrName, getAttrChange, MutationEvent, castToMutationEvent, - gTypeMutationEvent) + pattern REMOVAL, getRelatedNode, getRelatedNodeUnchecked, + getPrevValue, getNewValue, getAttrName, getAttrChange, + MutationEvent, castToMutationEvent, gTypeMutationEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -44,6 +44,11 @@ getRelatedNode :: (MonadDOM m) => MutationEvent -> m (Maybe Node) getRelatedNode self = liftDOM ((self ^. js "relatedNode") >>= fromJSVal) + +-- | +getRelatedNodeUnchecked :: (MonadDOM m) => MutationEvent -> m Node +getRelatedNodeUnchecked self + = liftDOM ((self ^. js "relatedNode") >>= fromJSValUnchecked) -- | getPrevValue :: diff --git a/src/JSDOM/Generated/MutationObserver.hs b/src/JSDOM/Generated/MutationObserver.hs --- a/src/JSDOM/Generated/MutationObserver.hs +++ b/src/JSDOM/Generated/MutationObserver.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MutationObserver - (newMutationObserver, observe, takeRecords, disconnect, - MutationObserver, castToMutationObserver, gTypeMutationObserver) + (newMutationObserver, observe, takeRecords, takeRecords_, + disconnect, MutationObserver, castToMutationObserver, + gTypeMutationObserver) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -38,6 +39,10 @@ (MonadDOM m) => MutationObserver -> m [Maybe MutationRecord] takeRecords self = liftDOM ((self ^. jsf "takeRecords" ()) >>= fromJSArray) + +-- | +takeRecords_ :: (MonadDOM m) => MutationObserver -> m () +takeRecords_ self = liftDOM (void (self ^. jsf "takeRecords" ())) -- | disconnect :: (MonadDOM m) => MutationObserver -> m () diff --git a/src/JSDOM/Generated/MutationRecord.hs b/src/JSDOM/Generated/MutationRecord.hs --- a/src/JSDOM/Generated/MutationRecord.hs +++ b/src/JSDOM/Generated/MutationRecord.hs @@ -1,10 +1,13 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.MutationRecord - (getType, getTarget, getAddedNodes, getRemovedNodes, - getPreviousSibling, getNextSibling, getAttributeName, - getAttributeNamespace, getOldValue, MutationRecord, - castToMutationRecord, gTypeMutationRecord) + (getType, getTarget, getTargetUnchecked, getAddedNodes, + getAddedNodesUnchecked, getRemovedNodes, getRemovedNodesUnchecked, + getPreviousSibling, getPreviousSiblingUnchecked, getNextSibling, + getNextSiblingUnchecked, getAttributeName, + getAttributeNameUnchecked, getAttributeNamespace, + getAttributeNamespaceUnchecked, getOldValue, getOldValueUnchecked, + MutationRecord, castToMutationRecord, gTypeMutationRecord) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -27,29 +30,57 @@ getTarget :: (MonadDOM m) => MutationRecord -> m (Maybe Node) getTarget self = liftDOM ((self ^. js "target") >>= fromJSVal) +-- | +getTargetUnchecked :: (MonadDOM m) => MutationRecord -> m Node +getTargetUnchecked self + = liftDOM ((self ^. js "target") >>= fromJSValUnchecked) + -- | getAddedNodes :: (MonadDOM m) => MutationRecord -> m (Maybe NodeList) getAddedNodes self = liftDOM ((self ^. js "addedNodes") >>= fromJSVal) +-- | +getAddedNodesUnchecked :: + (MonadDOM m) => MutationRecord -> m NodeList +getAddedNodesUnchecked self + = liftDOM ((self ^. js "addedNodes") >>= fromJSValUnchecked) + -- | getRemovedNodes :: (MonadDOM m) => MutationRecord -> m (Maybe NodeList) getRemovedNodes self = liftDOM ((self ^. js "removedNodes") >>= fromJSVal) +-- | +getRemovedNodesUnchecked :: + (MonadDOM m) => MutationRecord -> m NodeList +getRemovedNodesUnchecked self + = liftDOM ((self ^. js "removedNodes") >>= fromJSValUnchecked) + -- | getPreviousSibling :: (MonadDOM m) => MutationRecord -> m (Maybe Node) getPreviousSibling self = liftDOM ((self ^. js "previousSibling") >>= fromJSVal) +-- | +getPreviousSiblingUnchecked :: + (MonadDOM m) => MutationRecord -> m Node +getPreviousSiblingUnchecked self + = liftDOM ((self ^. js "previousSibling") >>= fromJSValUnchecked) + -- | getNextSibling :: (MonadDOM m) => MutationRecord -> m (Maybe Node) getNextSibling self = liftDOM ((self ^. js "nextSibling") >>= fromJSVal) +-- | +getNextSiblingUnchecked :: (MonadDOM m) => MutationRecord -> m Node +getNextSiblingUnchecked self + = liftDOM ((self ^. js "nextSibling") >>= fromJSValUnchecked) + -- | getAttributeName :: (MonadDOM m, FromJSString result) => @@ -57,6 +88,12 @@ getAttributeName self = liftDOM ((self ^. js "attributeName") >>= fromMaybeJSString) +-- | +getAttributeNameUnchecked :: + (MonadDOM m, FromJSString result) => MutationRecord -> m result +getAttributeNameUnchecked self + = liftDOM ((self ^. js "attributeName") >>= fromJSValUnchecked) + -- | getAttributeNamespace :: (MonadDOM m, FromJSString result) => @@ -64,9 +101,22 @@ getAttributeNamespace self = liftDOM ((self ^. js "attributeNamespace") >>= fromMaybeJSString) +-- | +getAttributeNamespaceUnchecked :: + (MonadDOM m, FromJSString result) => MutationRecord -> m result +getAttributeNamespaceUnchecked self + = liftDOM + ((self ^. js "attributeNamespace") >>= fromJSValUnchecked) + -- | getOldValue :: (MonadDOM m, FromJSString result) => MutationRecord -> m (Maybe result) getOldValue self = liftDOM ((self ^. js "oldValue") >>= fromMaybeJSString) + +-- | +getOldValueUnchecked :: + (MonadDOM m, FromJSString result) => MutationRecord -> m result +getOldValueUnchecked self + = liftDOM ((self ^. js "oldValue") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/NamedNodeMap.hs b/src/JSDOM/Generated/NamedNodeMap.hs --- a/src/JSDOM/Generated/NamedNodeMap.hs +++ b/src/JSDOM/Generated/NamedNodeMap.hs @@ -1,8 +1,13 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.NamedNodeMap - (getNamedItem, setNamedItem, removeNamedItem, item, getNamedItemNS, - setNamedItemNS, removeNamedItemNS, getLength, NamedNodeMap, + (getNamedItem, getNamedItem_, getNamedItemUnchecked, setNamedItem, + setNamedItem_, setNamedItemUnchecked, removeNamedItem, + removeNamedItem_, removeNamedItemUnchecked, item, item_, + itemUnchecked, getNamedItemNS, getNamedItemNS_, + getNamedItemNSUnchecked, setNamedItemNS, setNamedItemNS_, + setNamedItemNSUnchecked, removeNamedItemNS, removeNamedItemNS_, + removeNamedItemNSUnchecked, getLength, NamedNodeMap, castToNamedNodeMap, gTypeNamedNodeMap) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -25,6 +30,20 @@ = liftDOM ((self ^. jsf "getNamedItem" [toJSVal name]) >>= fromJSVal) +-- | +getNamedItem_ :: + (MonadDOM m, ToJSString name) => NamedNodeMap -> name -> m () +getNamedItem_ self name + = liftDOM (void (self ^. jsf "getNamedItem" [toJSVal name])) + +-- | +getNamedItemUnchecked :: + (MonadDOM m, ToJSString name) => NamedNodeMap -> name -> m Node +getNamedItemUnchecked self name + = liftDOM + ((self ^. jsf "getNamedItem" [toJSVal name]) >>= + fromJSValUnchecked) + -- | setNamedItem :: (MonadDOM m, IsNode node) => @@ -33,6 +52,20 @@ = liftDOM ((self ^. jsf "setNamedItem" [toJSVal node]) >>= fromJSVal) +-- | +setNamedItem_ :: + (MonadDOM m, IsNode node) => NamedNodeMap -> Maybe node -> m () +setNamedItem_ self node + = liftDOM (void (self ^. jsf "setNamedItem" [toJSVal node])) + +-- | +setNamedItemUnchecked :: + (MonadDOM m, IsNode node) => NamedNodeMap -> Maybe node -> m Node +setNamedItemUnchecked self node + = liftDOM + ((self ^. jsf "setNamedItem" [toJSVal node]) >>= + fromJSValUnchecked) + -- | removeNamedItem :: (MonadDOM m, ToJSString name) => @@ -41,11 +74,36 @@ = liftDOM ((self ^. jsf "removeNamedItem" [toJSVal name]) >>= fromJSVal) +-- | +removeNamedItem_ :: + (MonadDOM m, ToJSString name) => NamedNodeMap -> name -> m () +removeNamedItem_ self name + = liftDOM (void (self ^. jsf "removeNamedItem" [toJSVal name])) + +-- | +removeNamedItemUnchecked :: + (MonadDOM m, ToJSString name) => NamedNodeMap -> name -> m Node +removeNamedItemUnchecked self name + = liftDOM + ((self ^. jsf "removeNamedItem" [toJSVal name]) >>= + fromJSValUnchecked) + -- | item :: (MonadDOM m) => NamedNodeMap -> Word -> m (Maybe Node) item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) +-- | +item_ :: (MonadDOM m) => NamedNodeMap -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: (MonadDOM m) => NamedNodeMap -> Word -> m Node +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) + -- | getNamedItemNS :: (MonadDOM m, ToJSString namespaceURI, ToJSString localName) => @@ -56,6 +114,26 @@ [toJSVal namespaceURI, toJSVal localName]) >>= fromJSVal) +-- | +getNamedItemNS_ :: + (MonadDOM m, ToJSString namespaceURI, ToJSString localName) => + NamedNodeMap -> Maybe namespaceURI -> localName -> m () +getNamedItemNS_ self namespaceURI localName + = liftDOM + (void + (self ^. jsf "getNamedItemNS" + [toJSVal namespaceURI, toJSVal localName])) + +-- | +getNamedItemNSUnchecked :: + (MonadDOM m, ToJSString namespaceURI, ToJSString localName) => + NamedNodeMap -> Maybe namespaceURI -> localName -> m Node +getNamedItemNSUnchecked self namespaceURI localName + = liftDOM + ((self ^. jsf "getNamedItemNS" + [toJSVal namespaceURI, toJSVal localName]) + >>= fromJSValUnchecked) + -- | setNamedItemNS :: (MonadDOM m, IsNode node) => @@ -64,6 +142,20 @@ = liftDOM ((self ^. jsf "setNamedItemNS" [toJSVal node]) >>= fromJSVal) +-- | +setNamedItemNS_ :: + (MonadDOM m, IsNode node) => NamedNodeMap -> Maybe node -> m () +setNamedItemNS_ self node + = liftDOM (void (self ^. jsf "setNamedItemNS" [toJSVal node])) + +-- | +setNamedItemNSUnchecked :: + (MonadDOM m, IsNode node) => NamedNodeMap -> Maybe node -> m Node +setNamedItemNSUnchecked self node + = liftDOM + ((self ^. jsf "setNamedItemNS" [toJSVal node]) >>= + fromJSValUnchecked) + -- | removeNamedItemNS :: (MonadDOM m, ToJSString namespaceURI, ToJSString localName) => @@ -73,6 +165,26 @@ ((self ^. jsf "removeNamedItemNS" [toJSVal namespaceURI, toJSVal localName]) >>= fromJSVal) + +-- | +removeNamedItemNS_ :: + (MonadDOM m, ToJSString namespaceURI, ToJSString localName) => + NamedNodeMap -> Maybe namespaceURI -> localName -> m () +removeNamedItemNS_ self namespaceURI localName + = liftDOM + (void + (self ^. jsf "removeNamedItemNS" + [toJSVal namespaceURI, toJSVal localName])) + +-- | +removeNamedItemNSUnchecked :: + (MonadDOM m, ToJSString namespaceURI, ToJSString localName) => + NamedNodeMap -> Maybe namespaceURI -> localName -> m Node +removeNamedItemNSUnchecked self namespaceURI localName + = liftDOM + ((self ^. jsf "removeNamedItemNS" + [toJSVal namespaceURI, toJSVal localName]) + >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => NamedNodeMap -> m Word diff --git a/src/JSDOM/Generated/Navigator.hs b/src/JSDOM/Generated/Navigator.hs --- a/src/JSDOM/Generated/Navigator.hs +++ b/src/JSDOM/Generated/Navigator.hs @@ -1,15 +1,19 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Navigator - (getGamepads, webkitGetUserMedia, registerProtocolHandler, - isProtocolHandlerRegistered, unregisterProtocolHandler, - vibratePattern, vibrate, javaEnabled, getStorageUpdates, - getWebkitBattery, getGeolocation, getWebkitTemporaryStorage, - getWebkitPersistentStorage, getAppCodeName, getAppName, - getAppVersion, getLanguage, getUserAgent, getPlatform, getPlugins, - getMimeTypes, getProduct, getProductSub, getVendor, getVendorSub, - getCookieEnabled, getOnLine, getHardwareConcurrency, Navigator, - castToNavigator, gTypeNavigator) + (getGamepads, getGamepads_, webkitGetUserMedia, + registerProtocolHandler, isProtocolHandlerRegistered, + isProtocolHandlerRegistered_, unregisterProtocolHandler, + vibratePattern, vibratePattern_, vibrate, vibrate_, javaEnabled, + javaEnabled_, getStorageUpdates, getWebkitBattery, + getWebkitBatteryUnchecked, getGeolocation, getGeolocationUnchecked, + getWebkitTemporaryStorage, getWebkitTemporaryStorageUnchecked, + getWebkitPersistentStorage, getWebkitPersistentStorageUnchecked, + getAppCodeName, getAppName, getAppVersion, getLanguage, + getUserAgent, getPlatform, getPlugins, getPluginsUnchecked, + getMimeTypes, getMimeTypesUnchecked, getProduct, getProductSub, + getVendor, getVendorSub, getCookieEnabled, getOnLine, + getHardwareConcurrency, Navigator, castToNavigator, gTypeNavigator) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -28,6 +32,10 @@ getGamepads self = liftDOM ((self ^. jsf "getGamepads" ()) >>= fromJSArray) +-- | +getGamepads_ :: (MonadDOM m) => Navigator -> m () +getGamepads_ self = liftDOM (void (self ^. jsf "getGamepads" ())) + -- | webkitGetUserMedia :: (MonadDOM m, IsDictionary options) => @@ -63,6 +71,16 @@ [toJSVal scheme, toJSVal url]) >>= fromJSValUnchecked) +-- | +isProtocolHandlerRegistered_ :: + (MonadDOM m, ToJSString scheme, ToJSString url) => + Navigator -> scheme -> url -> m () +isProtocolHandlerRegistered_ self scheme url + = liftDOM + (void + (self ^. jsf "isProtocolHandlerRegistered" + [toJSVal scheme, toJSVal url])) + -- | unregisterProtocolHandler :: (MonadDOM m, ToJSString scheme, ToJSString url) => @@ -80,15 +98,29 @@ ((self ^. jsf "vibrate" [toJSVal (array pattern')]) >>= valToBool) -- | +vibratePattern_ :: (MonadDOM m) => Navigator -> [Word] -> m () +vibratePattern_ self pattern' + = liftDOM (void (self ^. jsf "vibrate" [toJSVal (array pattern')])) + +-- | vibrate :: (MonadDOM m) => Navigator -> Word -> m Bool vibrate self time = liftDOM ((self ^. jsf "vibrate" [toJSVal time]) >>= valToBool) +-- | +vibrate_ :: (MonadDOM m) => Navigator -> Word -> m () +vibrate_ self time + = liftDOM (void (self ^. jsf "vibrate" [toJSVal time])) + -- | javaEnabled :: (MonadDOM m) => Navigator -> m Bool javaEnabled self = liftDOM ((self ^. jsf "javaEnabled" ()) >>= valToBool) +-- | +javaEnabled_ :: (MonadDOM m) => Navigator -> m () +javaEnabled_ self = liftDOM (void (self ^. jsf "javaEnabled" ())) + -- | getStorageUpdates :: (MonadDOM m) => Navigator -> m () getStorageUpdates self @@ -100,24 +132,50 @@ getWebkitBattery self = liftDOM ((self ^. js "webkitBattery") >>= fromJSVal) +-- | +getWebkitBatteryUnchecked :: + (MonadDOM m) => Navigator -> m BatteryManager +getWebkitBatteryUnchecked self + = liftDOM ((self ^. js "webkitBattery") >>= fromJSValUnchecked) + -- | getGeolocation :: (MonadDOM m) => Navigator -> m (Maybe Geolocation) getGeolocation self = liftDOM ((self ^. js "geolocation") >>= fromJSVal) +-- | +getGeolocationUnchecked :: + (MonadDOM m) => Navigator -> m Geolocation +getGeolocationUnchecked self + = liftDOM ((self ^. js "geolocation") >>= fromJSValUnchecked) + -- | getWebkitTemporaryStorage :: (MonadDOM m) => Navigator -> m (Maybe StorageQuota) getWebkitTemporaryStorage self = liftDOM ((self ^. js "webkitTemporaryStorage") >>= fromJSVal) +-- | +getWebkitTemporaryStorageUnchecked :: + (MonadDOM m) => Navigator -> m StorageQuota +getWebkitTemporaryStorageUnchecked self + = liftDOM + ((self ^. js "webkitTemporaryStorage") >>= fromJSValUnchecked) + -- | getWebkitPersistentStorage :: (MonadDOM m) => Navigator -> m (Maybe StorageQuota) getWebkitPersistentStorage self = liftDOM ((self ^. js "webkitPersistentStorage") >>= fromJSVal) +-- | +getWebkitPersistentStorageUnchecked :: + (MonadDOM m) => Navigator -> m StorageQuota +getWebkitPersistentStorageUnchecked self + = liftDOM + ((self ^. js "webkitPersistentStorage") >>= fromJSValUnchecked) + -- | getAppCodeName :: (MonadDOM m, FromJSString result) => Navigator -> m result @@ -158,11 +216,22 @@ getPlugins :: (MonadDOM m) => Navigator -> m (Maybe PluginArray) getPlugins self = liftDOM ((self ^. js "plugins") >>= fromJSVal) +-- | +getPluginsUnchecked :: (MonadDOM m) => Navigator -> m PluginArray +getPluginsUnchecked self + = liftDOM ((self ^. js "plugins") >>= fromJSValUnchecked) + -- | getMimeTypes :: (MonadDOM m) => Navigator -> m (Maybe MimeTypeArray) getMimeTypes self = liftDOM ((self ^. js "mimeTypes") >>= fromJSVal) + +-- | +getMimeTypesUnchecked :: + (MonadDOM m) => Navigator -> m MimeTypeArray +getMimeTypesUnchecked self + = liftDOM ((self ^. js "mimeTypes") >>= fromJSValUnchecked) -- | getProduct :: diff --git a/src/JSDOM/Generated/Node.hs b/src/JSDOM/Generated/Node.hs --- a/src/JSDOM/Generated/Node.hs +++ b/src/JSDOM/Generated/Node.hs @@ -1,27 +1,42 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Node - (insertBefore, replaceChild, removeChild, appendChild, - hasChildNodes, cloneNode, normalize, isSupported, isSameNode, - isEqualNode, lookupPrefix, isDefaultNamespace, lookupNamespaceURI, - compareDocumentPosition, 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, pattern DOCUMENT_NODE, - pattern DOCUMENT_TYPE_NODE, pattern DOCUMENT_FRAGMENT_NODE, - pattern NOTATION_NODE, pattern DOCUMENT_POSITION_DISCONNECTED, + (insertBefore, insertBefore_, insertBeforeUnchecked, replaceChild, + replaceChild_, replaceChildUnchecked, removeChild, removeChild_, + removeChildUnchecked, appendChild, appendChild_, + appendChildUnchecked, hasChildNodes, hasChildNodes_, cloneNode, + cloneNode_, cloneNodeUnchecked, normalize, isSupported, + isSupported_, isSameNode, isSameNode_, isEqualNode, isEqualNode_, + lookupPrefix, lookupPrefix_, lookupPrefixUnchecked, + isDefaultNamespace, isDefaultNamespace_, lookupNamespaceURI, + lookupNamespaceURI_, lookupNamespaceURIUnchecked, + compareDocumentPosition, compareDocumentPosition_, 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, + pattern DOCUMENT_NODE, pattern DOCUMENT_TYPE_NODE, + pattern DOCUMENT_FRAGMENT_NODE, pattern NOTATION_NODE, + pattern DOCUMENT_POSITION_DISCONNECTED, pattern DOCUMENT_POSITION_PRECEDING, pattern DOCUMENT_POSITION_FOLLOWING, pattern DOCUMENT_POSITION_CONTAINS, pattern DOCUMENT_POSITION_CONTAINED_BY, pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC, getNodeName, - setNodeValue, getNodeValue, getNodeType, getParentNode, - getChildNodes, getFirstChild, getLastChild, getPreviousSibling, - getNextSibling, getOwnerDocument, getNamespaceURI, setPrefix, - getPrefix, getLocalName, getBaseURI, setTextContent, - getTextContent, getParentElement, Node, castToNode, gTypeNode, - IsNode, toNode) + getNodeNameUnchecked, setNodeValue, getNodeValue, + getNodeValueUnchecked, getNodeType, getParentNode, + getParentNodeUnchecked, getChildNodes, getChildNodesUnchecked, + getFirstChild, getFirstChildUnchecked, getLastChild, + getLastChildUnchecked, getPreviousSibling, + getPreviousSiblingUnchecked, getNextSibling, + getNextSiblingUnchecked, getOwnerDocument, + getOwnerDocumentUnchecked, getNamespaceURI, + getNamespaceURIUnchecked, setPrefix, getPrefix, getPrefixUnchecked, + getLocalName, getLocalNameUnchecked, getBaseURI, + getBaseURIUnchecked, setTextContent, getTextContent, + getTextContentUnchecked, getParentElement, + getParentElementUnchecked, Node, castToNode, gTypeNode, IsNode, + toNode) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -45,6 +60,26 @@ [toJSVal newChild, toJSVal refChild]) >>= fromJSVal) +-- | +insertBefore_ :: + (MonadDOM m, IsNode self, IsNode newChild, IsNode refChild) => + self -> Maybe newChild -> Maybe refChild -> m () +insertBefore_ self newChild refChild + = liftDOM + (void + ((toNode self) ^. jsf "insertBefore" + [toJSVal newChild, toJSVal refChild])) + +-- | +insertBeforeUnchecked :: + (MonadDOM m, IsNode self, IsNode newChild, IsNode refChild) => + self -> Maybe newChild -> Maybe refChild -> m Node +insertBeforeUnchecked self newChild refChild + = liftDOM + (((toNode self) ^. jsf "insertBefore" + [toJSVal newChild, toJSVal refChild]) + >>= fromJSValUnchecked) + -- | replaceChild :: (MonadDOM m, IsNode self, IsNode newChild, IsNode oldChild) => @@ -55,6 +90,26 @@ [toJSVal newChild, toJSVal oldChild]) >>= fromJSVal) +-- | +replaceChild_ :: + (MonadDOM m, IsNode self, IsNode newChild, IsNode oldChild) => + self -> Maybe newChild -> Maybe oldChild -> m () +replaceChild_ self newChild oldChild + = liftDOM + (void + ((toNode self) ^. jsf "replaceChild" + [toJSVal newChild, toJSVal oldChild])) + +-- | +replaceChildUnchecked :: + (MonadDOM m, IsNode self, IsNode newChild, IsNode oldChild) => + self -> Maybe newChild -> Maybe oldChild -> m Node +replaceChildUnchecked self newChild oldChild + = liftDOM + (((toNode self) ^. jsf "replaceChild" + [toJSVal newChild, toJSVal oldChild]) + >>= fromJSValUnchecked) + -- | removeChild :: (MonadDOM m, IsNode self, IsNode oldChild) => @@ -64,6 +119,23 @@ (((toNode self) ^. jsf "removeChild" [toJSVal oldChild]) >>= fromJSVal) +-- | +removeChild_ :: + (MonadDOM m, IsNode self, IsNode oldChild) => + self -> Maybe oldChild -> m () +removeChild_ self oldChild + = liftDOM + (void ((toNode self) ^. jsf "removeChild" [toJSVal oldChild])) + +-- | +removeChildUnchecked :: + (MonadDOM m, IsNode self, IsNode oldChild) => + self -> Maybe oldChild -> m Node +removeChildUnchecked self oldChild + = liftDOM + (((toNode self) ^. jsf "removeChild" [toJSVal oldChild]) >>= + fromJSValUnchecked) + -- | appendChild :: (MonadDOM m, IsNode self, IsNode newChild) => @@ -73,11 +145,33 @@ (((toNode self) ^. jsf "appendChild" [toJSVal newChild]) >>= fromJSVal) +-- | +appendChild_ :: + (MonadDOM m, IsNode self, IsNode newChild) => + self -> Maybe newChild -> m () +appendChild_ self newChild + = liftDOM + (void ((toNode self) ^. jsf "appendChild" [toJSVal newChild])) + +-- | +appendChildUnchecked :: + (MonadDOM m, IsNode self, IsNode newChild) => + self -> Maybe newChild -> m Node +appendChildUnchecked self newChild + = liftDOM + (((toNode self) ^. jsf "appendChild" [toJSVal newChild]) >>= + fromJSValUnchecked) + -- | hasChildNodes :: (MonadDOM m, IsNode self) => self -> m Bool hasChildNodes self = liftDOM (((toNode self) ^. jsf "hasChildNodes" ()) >>= valToBool) +-- | +hasChildNodes_ :: (MonadDOM m, IsNode self) => self -> m () +hasChildNodes_ self + = liftDOM (void ((toNode self) ^. jsf "hasChildNodes" ())) + -- | cloneNode :: (MonadDOM m, IsNode self) => self -> Bool -> m (Maybe Node) @@ -85,6 +179,19 @@ = liftDOM (((toNode self) ^. jsf "cloneNode" [toJSVal deep]) >>= fromJSVal) +-- | +cloneNode_ :: (MonadDOM m, IsNode self) => self -> Bool -> m () +cloneNode_ self deep + = liftDOM (void ((toNode self) ^. jsf "cloneNode" [toJSVal deep])) + +-- | +cloneNodeUnchecked :: + (MonadDOM m, IsNode self) => self -> Bool -> m Node +cloneNodeUnchecked self deep + = liftDOM + (((toNode self) ^. jsf "cloneNode" [toJSVal deep]) >>= + fromJSValUnchecked) + -- | normalize :: (MonadDOM m, IsNode self) => self -> m () normalize self @@ -101,6 +208,17 @@ [toJSVal feature, toJSVal version]) >>= valToBool) +-- | +isSupported_ :: + (MonadDOM m, IsNode self, ToJSString feature, + ToJSString version) => + self -> feature -> Maybe version -> m () +isSupported_ self feature version + = liftDOM + (void + ((toNode self) ^. jsf "isSupported" + [toJSVal feature, toJSVal version])) + -- | isSameNode :: (MonadDOM m, IsNode self, IsNode other) => @@ -109,6 +227,14 @@ = liftDOM (((toNode self) ^. jsf "isSameNode" [toJSVal other]) >>= valToBool) +-- | +isSameNode_ :: + (MonadDOM m, IsNode self, IsNode other) => + self -> Maybe other -> m () +isSameNode_ self other + = liftDOM + (void ((toNode self) ^. jsf "isSameNode" [toJSVal other])) + -- | isEqualNode :: (MonadDOM m, IsNode self, IsNode other) => @@ -118,6 +244,14 @@ (((toNode self) ^. jsf "isEqualNode" [toJSVal other]) >>= valToBool) +-- | +isEqualNode_ :: + (MonadDOM m, IsNode self, IsNode other) => + self -> Maybe other -> m () +isEqualNode_ self other + = liftDOM + (void ((toNode self) ^. jsf "isEqualNode" [toJSVal other])) + -- | lookupPrefix :: (MonadDOM m, IsNode self, ToJSString namespaceURI, @@ -128,6 +262,24 @@ (((toNode self) ^. jsf "lookupPrefix" [toJSVal namespaceURI]) >>= fromMaybeJSString) +-- | +lookupPrefix_ :: + (MonadDOM m, IsNode self, ToJSString namespaceURI) => + self -> Maybe namespaceURI -> m () +lookupPrefix_ self namespaceURI + = liftDOM + (void ((toNode self) ^. jsf "lookupPrefix" [toJSVal namespaceURI])) + +-- | +lookupPrefixUnchecked :: + (MonadDOM m, IsNode self, ToJSString namespaceURI, + FromJSString result) => + self -> Maybe namespaceURI -> m result +lookupPrefixUnchecked self namespaceURI + = liftDOM + (((toNode self) ^. jsf "lookupPrefix" [toJSVal namespaceURI]) >>= + fromJSValUnchecked) + -- | isDefaultNamespace :: (MonadDOM m, IsNode self, ToJSString namespaceURI) => @@ -137,6 +289,15 @@ (((toNode self) ^. jsf "isDefaultNamespace" [toJSVal namespaceURI]) >>= valToBool) +-- | +isDefaultNamespace_ :: + (MonadDOM m, IsNode self, ToJSString namespaceURI) => + self -> Maybe namespaceURI -> m () +isDefaultNamespace_ self namespaceURI + = liftDOM + (void + ((toNode self) ^. jsf "isDefaultNamespace" [toJSVal namespaceURI])) + -- | lookupNamespaceURI :: (MonadDOM m, IsNode self, ToJSString prefix, @@ -147,6 +308,24 @@ (((toNode self) ^. jsf "lookupNamespaceURI" [toJSVal prefix]) >>= fromMaybeJSString) +-- | +lookupNamespaceURI_ :: + (MonadDOM m, IsNode self, ToJSString prefix) => + self -> Maybe prefix -> m () +lookupNamespaceURI_ self prefix + = liftDOM + (void ((toNode self) ^. jsf "lookupNamespaceURI" [toJSVal prefix])) + +-- | +lookupNamespaceURIUnchecked :: + (MonadDOM m, IsNode self, ToJSString prefix, + FromJSString result) => + self -> Maybe prefix -> m result +lookupNamespaceURIUnchecked self prefix + = liftDOM + (((toNode self) ^. jsf "lookupNamespaceURI" [toJSVal prefix]) >>= + fromJSValUnchecked) + -- | compareDocumentPosition :: (MonadDOM m, IsNode self, IsNode other) => @@ -157,6 +336,15 @@ (((toNode self) ^. jsf "compareDocumentPosition" [toJSVal other]) >>= valToNumber)) +-- | +compareDocumentPosition_ :: + (MonadDOM m, IsNode self, IsNode other) => + self -> Maybe other -> m () +compareDocumentPosition_ self other + = liftDOM + (void + ((toNode self) ^. jsf "compareDocumentPosition" [toJSVal other])) + -- | contains :: (MonadDOM m, IsNode self, IsNode other) => @@ -164,6 +352,13 @@ contains self other = liftDOM (((toNode self) ^. jsf "contains" [toJSVal other]) >>= valToBool) + +-- | +contains_ :: + (MonadDOM m, IsNode self, IsNode other) => + self -> Maybe other -> m () +contains_ self other + = liftDOM (void ((toNode self) ^. jsf "contains" [toJSVal other])) pattern ELEMENT_NODE = 1 pattern ATTRIBUTE_NODE = 2 pattern TEXT_NODE = 3 @@ -190,6 +385,12 @@ getNodeName self = liftDOM (((toNode self) ^. js "nodeName") >>= fromMaybeJSString) +-- | +getNodeNameUnchecked :: + (MonadDOM m, IsNode self, FromJSString result) => self -> m result +getNodeNameUnchecked self + = liftDOM (((toNode self) ^. js "nodeName") >>= fromJSValUnchecked) + -- | setNodeValue :: (MonadDOM m, IsNode self, ToJSString val) => @@ -204,6 +405,13 @@ getNodeValue self = liftDOM (((toNode self) ^. js "nodeValue") >>= fromMaybeJSString) +-- | +getNodeValueUnchecked :: + (MonadDOM m, IsNode self, FromJSString result) => self -> m result +getNodeValueUnchecked self + = liftDOM + (((toNode self) ^. js "nodeValue") >>= fromJSValUnchecked) + -- | getNodeType :: (MonadDOM m, IsNode self) => self -> m Word getNodeType self @@ -216,41 +424,90 @@ getParentNode self = liftDOM (((toNode self) ^. js "parentNode") >>= fromJSVal) +-- | +getParentNodeUnchecked :: + (MonadDOM m, IsNode self) => self -> m Node +getParentNodeUnchecked self + = liftDOM + (((toNode self) ^. js "parentNode") >>= fromJSValUnchecked) + -- | getChildNodes :: (MonadDOM m, IsNode self) => self -> m (Maybe NodeList) getChildNodes self = liftDOM (((toNode self) ^. js "childNodes") >>= fromJSVal) +-- | +getChildNodesUnchecked :: + (MonadDOM m, IsNode self) => self -> m NodeList +getChildNodesUnchecked self + = liftDOM + (((toNode self) ^. js "childNodes") >>= fromJSValUnchecked) + -- | getFirstChild :: (MonadDOM m, IsNode self) => self -> m (Maybe Node) getFirstChild self = liftDOM (((toNode self) ^. js "firstChild") >>= fromJSVal) +-- | +getFirstChildUnchecked :: + (MonadDOM m, IsNode self) => self -> m Node +getFirstChildUnchecked self + = liftDOM + (((toNode self) ^. js "firstChild") >>= fromJSValUnchecked) + -- | getLastChild :: (MonadDOM m, IsNode self) => self -> m (Maybe Node) getLastChild self = liftDOM (((toNode self) ^. js "lastChild") >>= fromJSVal) +-- | +getLastChildUnchecked :: + (MonadDOM m, IsNode self) => self -> m Node +getLastChildUnchecked self + = liftDOM + (((toNode self) ^. js "lastChild") >>= fromJSValUnchecked) + -- | getPreviousSibling :: (MonadDOM m, IsNode self) => self -> m (Maybe Node) getPreviousSibling self = liftDOM (((toNode self) ^. js "previousSibling") >>= fromJSVal) +-- | +getPreviousSiblingUnchecked :: + (MonadDOM m, IsNode self) => self -> m Node +getPreviousSiblingUnchecked self + = liftDOM + (((toNode self) ^. js "previousSibling") >>= fromJSValUnchecked) + -- | getNextSibling :: (MonadDOM m, IsNode self) => self -> m (Maybe Node) getNextSibling self = liftDOM (((toNode self) ^. js "nextSibling") >>= fromJSVal) +-- | +getNextSiblingUnchecked :: + (MonadDOM m, IsNode self) => self -> m Node +getNextSiblingUnchecked self + = liftDOM + (((toNode self) ^. js "nextSibling") >>= fromJSValUnchecked) + -- | getOwnerDocument :: (MonadDOM m, IsNode self) => self -> m (Maybe Document) getOwnerDocument self = liftDOM (((toNode self) ^. js "ownerDocument") >>= fromJSVal) +-- | +getOwnerDocumentUnchecked :: + (MonadDOM m, IsNode self) => self -> m Document +getOwnerDocumentUnchecked self + = liftDOM + (((toNode self) ^. js "ownerDocument") >>= fromJSValUnchecked) + -- | getNamespaceURI :: (MonadDOM m, IsNode self, FromJSString result) => @@ -259,6 +516,13 @@ = liftDOM (((toNode self) ^. js "namespaceURI") >>= fromMaybeJSString) +-- | +getNamespaceURIUnchecked :: + (MonadDOM m, IsNode self, FromJSString result) => self -> m result +getNamespaceURIUnchecked self + = liftDOM + (((toNode self) ^. js "namespaceURI") >>= fromJSValUnchecked) + -- | setPrefix :: (MonadDOM m, IsNode self, ToJSString val) => @@ -273,6 +537,12 @@ getPrefix self = liftDOM (((toNode self) ^. js "prefix") >>= fromMaybeJSString) +-- | +getPrefixUnchecked :: + (MonadDOM m, IsNode self, FromJSString result) => self -> m result +getPrefixUnchecked self + = liftDOM (((toNode self) ^. js "prefix") >>= fromJSValUnchecked) + -- | getLocalName :: (MonadDOM m, IsNode self, FromJSString result) => @@ -280,6 +550,13 @@ getLocalName self = liftDOM (((toNode self) ^. js "localName") >>= fromMaybeJSString) +-- | +getLocalNameUnchecked :: + (MonadDOM m, IsNode self, FromJSString result) => self -> m result +getLocalNameUnchecked self + = liftDOM + (((toNode self) ^. js "localName") >>= fromJSValUnchecked) + -- | getBaseURI :: (MonadDOM m, IsNode self, FromJSString result) => @@ -287,6 +564,12 @@ getBaseURI self = liftDOM (((toNode self) ^. js "baseURI") >>= fromMaybeJSString) +-- | +getBaseURIUnchecked :: + (MonadDOM m, IsNode self, FromJSString result) => self -> m result +getBaseURIUnchecked self + = liftDOM (((toNode self) ^. js "baseURI") >>= fromJSValUnchecked) + -- | setTextContent :: (MonadDOM m, IsNode self, ToJSString val) => @@ -302,8 +585,22 @@ = liftDOM (((toNode self) ^. js "textContent") >>= fromMaybeJSString) +-- | +getTextContentUnchecked :: + (MonadDOM m, IsNode self, FromJSString result) => self -> m result +getTextContentUnchecked self + = liftDOM + (((toNode self) ^. js "textContent") >>= fromJSValUnchecked) + -- | getParentElement :: (MonadDOM m, IsNode self) => self -> m (Maybe Element) getParentElement self = liftDOM (((toNode self) ^. js "parentElement") >>= fromJSVal) + +-- | +getParentElementUnchecked :: + (MonadDOM m, IsNode self) => self -> m Element +getParentElementUnchecked self + = liftDOM + (((toNode self) ^. js "parentElement") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/NodeFilter.hs b/src/JSDOM/Generated/NodeFilter.hs --- a/src/JSDOM/Generated/NodeFilter.hs +++ b/src/JSDOM/Generated/NodeFilter.hs @@ -1,9 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.NodeFilter - (acceptNode, pattern FILTER_ACCEPT, pattern FILTER_REJECT, - pattern FILTER_SKIP, pattern SHOW_ALL, pattern SHOW_ELEMENT, - pattern SHOW_ATTRIBUTE, pattern SHOW_TEXT, + (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, pattern SHOW_ENTITY, pattern SHOW_PROCESSING_INSTRUCTION, pattern SHOW_COMMENT, pattern SHOW_DOCUMENT, @@ -30,6 +30,12 @@ = liftDOM (round <$> ((self ^. jsf "acceptNode" [toJSVal n]) >>= valToNumber)) + +-- | +acceptNode_ :: + (MonadDOM m, IsNode n) => NodeFilter -> Maybe n -> m () +acceptNode_ self n + = liftDOM (void (self ^. jsf "acceptNode" [toJSVal n])) pattern FILTER_ACCEPT = 1 pattern FILTER_REJECT = 2 pattern FILTER_SKIP = 3 diff --git a/src/JSDOM/Generated/NodeIterator.hs b/src/JSDOM/Generated/NodeIterator.hs --- a/src/JSDOM/Generated/NodeIterator.hs +++ b/src/JSDOM/Generated/NodeIterator.hs @@ -1,10 +1,12 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.NodeIterator - (nextNode, previousNode, detach, getRoot, getWhatToShow, getFilter, + (nextNode, nextNode_, nextNodeUnchecked, previousNode, + previousNode_, previousNodeUnchecked, detach, getRoot, + getRootUnchecked, getWhatToShow, getFilter, getFilterUnchecked, getExpandEntityReferences, getReferenceNode, - getPointerBeforeReferenceNode, NodeIterator, castToNodeIterator, - gTypeNodeIterator) + getReferenceNodeUnchecked, getPointerBeforeReferenceNode, + NodeIterator, castToNodeIterator, gTypeNodeIterator) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -22,11 +24,29 @@ nextNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node) nextNode self = liftDOM ((self ^. jsf "nextNode" ()) >>= fromJSVal) +-- | +nextNode_ :: (MonadDOM m) => NodeIterator -> m () +nextNode_ self = liftDOM (void (self ^. jsf "nextNode" ())) + +-- | +nextNodeUnchecked :: (MonadDOM m) => NodeIterator -> m Node +nextNodeUnchecked self + = liftDOM ((self ^. jsf "nextNode" ()) >>= fromJSValUnchecked) + -- | previousNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node) previousNode self = liftDOM ((self ^. jsf "previousNode" ()) >>= fromJSVal) +-- | +previousNode_ :: (MonadDOM m) => NodeIterator -> m () +previousNode_ self = liftDOM (void (self ^. jsf "previousNode" ())) + +-- | +previousNodeUnchecked :: (MonadDOM m) => NodeIterator -> m Node +previousNodeUnchecked self + = liftDOM ((self ^. jsf "previousNode" ()) >>= fromJSValUnchecked) + -- | detach :: (MonadDOM m) => NodeIterator -> m () detach self = liftDOM (void (self ^. jsf "detach" ())) @@ -35,6 +55,11 @@ getRoot :: (MonadDOM m) => NodeIterator -> m (Maybe Node) getRoot self = liftDOM ((self ^. js "root") >>= fromJSVal) +-- | +getRootUnchecked :: (MonadDOM m) => NodeIterator -> m Node +getRootUnchecked self + = liftDOM ((self ^. js "root") >>= fromJSValUnchecked) + -- | getWhatToShow :: (MonadDOM m) => NodeIterator -> m Word getWhatToShow self @@ -44,6 +69,11 @@ getFilter :: (MonadDOM m) => NodeIterator -> m (Maybe NodeFilter) getFilter self = liftDOM ((self ^. js "filter") >>= fromJSVal) +-- | +getFilterUnchecked :: (MonadDOM m) => NodeIterator -> m NodeFilter +getFilterUnchecked self + = liftDOM ((self ^. js "filter") >>= fromJSValUnchecked) + -- | getExpandEntityReferences :: (MonadDOM m) => NodeIterator -> m Bool getExpandEntityReferences self @@ -53,6 +83,11 @@ getReferenceNode :: (MonadDOM m) => NodeIterator -> m (Maybe Node) getReferenceNode self = liftDOM ((self ^. js "referenceNode") >>= fromJSVal) + +-- | +getReferenceNodeUnchecked :: (MonadDOM m) => NodeIterator -> m Node +getReferenceNodeUnchecked self + = liftDOM ((self ^. js "referenceNode") >>= fromJSValUnchecked) -- | getPointerBeforeReferenceNode :: diff --git a/src/JSDOM/Generated/NodeList.hs b/src/JSDOM/Generated/NodeList.hs --- a/src/JSDOM/Generated/NodeList.hs +++ b/src/JSDOM/Generated/NodeList.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.NodeList - (item, getLength, NodeList, castToNodeList, gTypeNodeList, - IsNodeList, toNodeList) + (item, item_, itemUnchecked, getLength, NodeList, castToNodeList, + gTypeNodeList, IsNodeList, toNodeList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -22,6 +22,19 @@ item self index = liftDOM (((toNodeList self) ^. jsf "item" [toJSVal index]) >>= fromJSVal) + +-- | +item_ :: (MonadDOM m, IsNodeList self) => self -> Word -> m () +item_ self index + = liftDOM (void ((toNodeList self) ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m, IsNodeList self) => self -> Word -> m Node +itemUnchecked self index + = liftDOM + (((toNodeList self) ^. jsf "item" [toJSVal index]) >>= + fromJSValUnchecked) -- | getLength :: (MonadDOM m, IsNodeList self) => self -> m Word diff --git a/src/JSDOM/Generated/NotificationCenter.hs b/src/JSDOM/Generated/NotificationCenter.hs --- a/src/JSDOM/Generated/NotificationCenter.hs +++ b/src/JSDOM/Generated/NotificationCenter.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.NotificationCenter - (createNotification, checkPermission, requestPermission, - NotificationCenter, castToNotificationCenter, + (createNotification, createNotification_, + createNotificationUnchecked, checkPermission, checkPermission_, + requestPermission, NotificationCenter, castToNotificationCenter, gTypeNotificationCenter) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -29,11 +30,38 @@ [toJSVal iconUrl, toJSVal title, toJSVal body]) >>= fromJSVal) +-- | +createNotification_ :: + (MonadDOM m, ToJSString iconUrl, ToJSString title, + ToJSString body) => + NotificationCenter -> iconUrl -> title -> body -> m () +createNotification_ self iconUrl title body + = liftDOM + (void + (self ^. jsf "createNotification" + [toJSVal iconUrl, toJSVal title, toJSVal body])) + +-- | +createNotificationUnchecked :: + (MonadDOM m, ToJSString iconUrl, ToJSString title, + ToJSString body) => + NotificationCenter -> iconUrl -> title -> body -> m Notification +createNotificationUnchecked self iconUrl title body + = liftDOM + ((self ^. jsf "createNotification" + [toJSVal iconUrl, toJSVal title, toJSVal body]) + >>= fromJSValUnchecked) + -- | checkPermission :: (MonadDOM m) => NotificationCenter -> m Int checkPermission self = liftDOM (round <$> ((self ^. jsf "checkPermission" ()) >>= valToNumber)) + +-- | +checkPermission_ :: (MonadDOM m) => NotificationCenter -> m () +checkPermission_ self + = liftDOM (void (self ^. jsf "checkPermission" ())) -- | requestPermission :: diff --git a/src/JSDOM/Generated/OESVertexArrayObject.hs b/src/JSDOM/Generated/OESVertexArrayObject.hs --- a/src/JSDOM/Generated/OESVertexArrayObject.hs +++ b/src/JSDOM/Generated/OESVertexArrayObject.hs @@ -1,10 +1,11 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.OESVertexArrayObject - (createVertexArrayOES, deleteVertexArrayOES, isVertexArrayOES, - bindVertexArrayOES, pattern VERTEX_ARRAY_BINDING_OES, - OESVertexArrayObject, castToOESVertexArrayObject, - gTypeOESVertexArrayObject) + (createVertexArrayOES, createVertexArrayOES_, + createVertexArrayOESUnchecked, deleteVertexArrayOES, + isVertexArrayOES, isVertexArrayOES_, bindVertexArrayOES, + pattern VERTEX_ARRAY_BINDING_OES, OESVertexArrayObject, + castToOESVertexArrayObject, gTypeOESVertexArrayObject) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -25,6 +26,19 @@ createVertexArrayOES self = liftDOM ((self ^. jsf "createVertexArrayOES" ()) >>= fromJSVal) +-- | +createVertexArrayOES_ :: + (MonadDOM m) => OESVertexArrayObject -> m () +createVertexArrayOES_ self + = liftDOM (void (self ^. jsf "createVertexArrayOES" ())) + +-- | +createVertexArrayOESUnchecked :: + (MonadDOM m) => OESVertexArrayObject -> m WebGLVertexArrayObjectOES +createVertexArrayOESUnchecked self + = liftDOM + ((self ^. jsf "createVertexArrayOES" ()) >>= fromJSValUnchecked) + -- | deleteVertexArrayOES :: (MonadDOM m) => @@ -41,6 +55,14 @@ = liftDOM ((self ^. jsf "isVertexArrayOES" [toJSVal arrayObject]) >>= valToBool) + +-- | +isVertexArrayOES_ :: + (MonadDOM m) => + OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m () +isVertexArrayOES_ self arrayObject + = liftDOM + (void (self ^. jsf "isVertexArrayOES" [toJSVal arrayObject])) -- | bindVertexArrayOES :: diff --git a/src/JSDOM/Generated/OfflineAudioCompletionEvent.hs b/src/JSDOM/Generated/OfflineAudioCompletionEvent.hs --- a/src/JSDOM/Generated/OfflineAudioCompletionEvent.hs +++ b/src/JSDOM/Generated/OfflineAudioCompletionEvent.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.OfflineAudioCompletionEvent - (getRenderedBuffer, OfflineAudioCompletionEvent, - castToOfflineAudioCompletionEvent, + (getRenderedBuffer, getRenderedBufferUnchecked, + OfflineAudioCompletionEvent, castToOfflineAudioCompletionEvent, gTypeOfflineAudioCompletionEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -23,3 +23,9 @@ OfflineAudioCompletionEvent -> m (Maybe AudioBuffer) getRenderedBuffer self = liftDOM ((self ^. js "renderedBuffer") >>= fromJSVal) + +-- | +getRenderedBufferUnchecked :: + (MonadDOM m) => OfflineAudioCompletionEvent -> m AudioBuffer +getRenderedBufferUnchecked self + = liftDOM ((self ^. js "renderedBuffer") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/OscillatorNode.hs b/src/JSDOM/Generated/OscillatorNode.hs --- a/src/JSDOM/Generated/OscillatorNode.hs +++ b/src/JSDOM/Generated/OscillatorNode.hs @@ -5,8 +5,9 @@ pattern SQUARE, pattern SAWTOOTH, pattern TRIANGLE, pattern CUSTOM, pattern UNSCHEDULED_STATE, pattern SCHEDULED_STATE, pattern PLAYING_STATE, pattern FINISHED_STATE, setType, getType, - getPlaybackState, getFrequency, getDetune, ended, OscillatorNode, - castToOscillatorNode, gTypeOscillatorNode) + getPlaybackState, getFrequency, getFrequencyUnchecked, getDetune, + getDetuneUnchecked, ended, OscillatorNode, castToOscillatorNode, + gTypeOscillatorNode) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -76,9 +77,21 @@ getFrequency self = liftDOM ((self ^. js "frequency") >>= fromJSVal) +-- | +getFrequencyUnchecked :: + (MonadDOM m) => OscillatorNode -> m AudioParam +getFrequencyUnchecked self + = liftDOM ((self ^. js "frequency") >>= fromJSValUnchecked) + -- | getDetune :: (MonadDOM m) => OscillatorNode -> m (Maybe AudioParam) getDetune self = liftDOM ((self ^. js "detune") >>= fromJSVal) + +-- | +getDetuneUnchecked :: + (MonadDOM m) => OscillatorNode -> m AudioParam +getDetuneUnchecked self + = liftDOM ((self ^. js "detune") >>= fromJSValUnchecked) -- | ended :: EventName OscillatorNode Event diff --git a/src/JSDOM/Generated/Performance.hs b/src/JSDOM/Generated/Performance.hs --- a/src/JSDOM/Generated/Performance.hs +++ b/src/JSDOM/Generated/Performance.hs @@ -1,11 +1,15 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Performance - (webkitGetEntries, webkitGetEntriesByType, webkitGetEntriesByName, + (webkitGetEntries, webkitGetEntries_, webkitGetEntriesUnchecked, + webkitGetEntriesByType, webkitGetEntriesByType_, + webkitGetEntriesByTypeUnchecked, webkitGetEntriesByName, + webkitGetEntriesByName_, webkitGetEntriesByNameUnchecked, webkitClearResourceTimings, webkitSetResourceTimingBufferSize, webkitMark, webkitClearMarks, webkitMeasure, webkitClearMeasures, - now, getNavigation, getTiming, webKitResourceTimingBufferFull, - Performance, castToPerformance, gTypePerformance) + now, now_, getNavigation, getNavigationUnchecked, getTiming, + getTimingUnchecked, webKitResourceTimingBufferFull, Performance, + castToPerformance, gTypePerformance) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -25,6 +29,18 @@ webkitGetEntries self = liftDOM ((self ^. jsf "webkitGetEntries" ()) >>= fromJSVal) +-- | +webkitGetEntries_ :: (MonadDOM m) => Performance -> m () +webkitGetEntries_ self + = liftDOM (void (self ^. jsf "webkitGetEntries" ())) + +-- | +webkitGetEntriesUnchecked :: + (MonadDOM m) => Performance -> m PerformanceEntryList +webkitGetEntriesUnchecked self + = liftDOM + ((self ^. jsf "webkitGetEntries" ()) >>= fromJSValUnchecked) + -- | webkitGetEntriesByType :: (MonadDOM m, ToJSString entryType) => @@ -34,6 +50,23 @@ ((self ^. jsf "webkitGetEntriesByType" [toJSVal entryType]) >>= fromJSVal) +-- | +webkitGetEntriesByType_ :: + (MonadDOM m, ToJSString entryType) => + Performance -> entryType -> m () +webkitGetEntriesByType_ self entryType + = liftDOM + (void (self ^. jsf "webkitGetEntriesByType" [toJSVal entryType])) + +-- | +webkitGetEntriesByTypeUnchecked :: + (MonadDOM m, ToJSString entryType) => + Performance -> entryType -> m PerformanceEntryList +webkitGetEntriesByTypeUnchecked self entryType + = liftDOM + ((self ^. jsf "webkitGetEntriesByType" [toJSVal entryType]) >>= + fromJSValUnchecked) + -- | webkitGetEntriesByName :: (MonadDOM m, ToJSString name, ToJSString entryType) => @@ -44,6 +77,26 @@ [toJSVal name, toJSVal entryType]) >>= fromJSVal) +-- | +webkitGetEntriesByName_ :: + (MonadDOM m, ToJSString name, ToJSString entryType) => + Performance -> name -> entryType -> m () +webkitGetEntriesByName_ self name entryType + = liftDOM + (void + (self ^. jsf "webkitGetEntriesByName" + [toJSVal name, toJSVal entryType])) + +-- | +webkitGetEntriesByNameUnchecked :: + (MonadDOM m, ToJSString name, ToJSString entryType) => + Performance -> name -> entryType -> m PerformanceEntryList +webkitGetEntriesByNameUnchecked self name entryType + = liftDOM + ((self ^. jsf "webkitGetEntriesByName" + [toJSVal name, toJSVal entryType]) + >>= fromJSValUnchecked) + -- | webkitClearResourceTimings :: (MonadDOM m) => Performance -> m () webkitClearResourceTimings self @@ -96,16 +149,32 @@ now :: (MonadDOM m) => Performance -> m Double now self = liftDOM ((self ^. jsf "now" ()) >>= valToNumber) +-- | +now_ :: (MonadDOM m) => Performance -> m () +now_ self = liftDOM (void (self ^. jsf "now" ())) + -- | getNavigation :: (MonadDOM m) => Performance -> m (Maybe PerformanceNavigation) getNavigation self = liftDOM ((self ^. js "navigation") >>= fromJSVal) +-- | +getNavigationUnchecked :: + (MonadDOM m) => Performance -> m PerformanceNavigation +getNavigationUnchecked self + = liftDOM ((self ^. js "navigation") >>= fromJSValUnchecked) + -- | getTiming :: (MonadDOM m) => Performance -> m (Maybe PerformanceTiming) getTiming self = liftDOM ((self ^. js "timing") >>= fromJSVal) + +-- | +getTimingUnchecked :: + (MonadDOM m) => Performance -> m PerformanceTiming +getTimingUnchecked self + = liftDOM ((self ^. js "timing") >>= fromJSValUnchecked) -- | webKitResourceTimingBufferFull :: EventName Performance Event diff --git a/src/JSDOM/Generated/PerformanceEntryList.hs b/src/JSDOM/Generated/PerformanceEntryList.hs --- a/src/JSDOM/Generated/PerformanceEntryList.hs +++ b/src/JSDOM/Generated/PerformanceEntryList.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.PerformanceEntryList - (item, getLength, PerformanceEntryList, castToPerformanceEntryList, - gTypePerformanceEntryList) + (item, item_, itemUnchecked, getLength, PerformanceEntryList, + castToPerformanceEntryList, gTypePerformanceEntryList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -22,6 +22,18 @@ PerformanceEntryList -> Word -> m (Maybe PerformanceEntry) item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) + +-- | +item_ :: (MonadDOM m) => PerformanceEntryList -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m) => PerformanceEntryList -> Word -> m PerformanceEntry +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => PerformanceEntryList -> m Word diff --git a/src/JSDOM/Generated/Plugin.hs b/src/JSDOM/Generated/Plugin.hs --- a/src/JSDOM/Generated/Plugin.hs +++ b/src/JSDOM/Generated/Plugin.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Plugin - (item, namedItem, getName, getFilename, getDescription, getLength, - Plugin, castToPlugin, gTypePlugin) + (item, item_, itemUnchecked, namedItem, namedItem_, + namedItemUnchecked, getName, getFilename, getDescription, + getLength, Plugin, castToPlugin, gTypePlugin) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,12 +22,36 @@ item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) +-- | +item_ :: (MonadDOM m) => Plugin -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: (MonadDOM m) => Plugin -> Word -> m MimeType +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) + -- | namedItem :: (MonadDOM m, ToJSString name) => Plugin -> name -> m (Maybe MimeType) namedItem self name = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal) + +-- | +namedItem_ :: + (MonadDOM m, ToJSString name) => Plugin -> name -> m () +namedItem_ self name + = liftDOM (void (self ^. jsf "namedItem" [toJSVal name])) + +-- | +namedItemUnchecked :: + (MonadDOM m, ToJSString name) => Plugin -> name -> m MimeType +namedItemUnchecked self name + = liftDOM + ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSValUnchecked) -- | getName :: (MonadDOM m, FromJSString result) => Plugin -> m result diff --git a/src/JSDOM/Generated/PluginArray.hs b/src/JSDOM/Generated/PluginArray.hs --- a/src/JSDOM/Generated/PluginArray.hs +++ b/src/JSDOM/Generated/PluginArray.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.PluginArray - (item, namedItem, refresh, getLength, PluginArray, + (item, item_, itemUnchecked, namedItem, namedItem_, + namedItemUnchecked, refresh, getLength, PluginArray, castToPluginArray, gTypePluginArray) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -21,12 +22,36 @@ item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) +-- | +item_ :: (MonadDOM m) => PluginArray -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: (MonadDOM m) => PluginArray -> Word -> m Plugin +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) + -- | namedItem :: (MonadDOM m, ToJSString name) => PluginArray -> name -> m (Maybe Plugin) namedItem self name = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal) + +-- | +namedItem_ :: + (MonadDOM m, ToJSString name) => PluginArray -> name -> m () +namedItem_ self name + = liftDOM (void (self ^. jsf "namedItem" [toJSVal name])) + +-- | +namedItemUnchecked :: + (MonadDOM m, ToJSString name) => PluginArray -> name -> m Plugin +namedItemUnchecked self name + = liftDOM + ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSValUnchecked) -- | refresh :: (MonadDOM m) => PluginArray -> Bool -> m () diff --git a/src/JSDOM/Generated/ProcessingInstruction.hs b/src/JSDOM/Generated/ProcessingInstruction.hs --- a/src/JSDOM/Generated/ProcessingInstruction.hs +++ b/src/JSDOM/Generated/ProcessingInstruction.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.ProcessingInstruction - (getTarget, getSheet, ProcessingInstruction, - castToProcessingInstruction, gTypeProcessingInstruction) + (getTarget, getTargetUnchecked, getSheet, getSheetUnchecked, + ProcessingInstruction, castToProcessingInstruction, + gTypeProcessingInstruction) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -23,7 +24,20 @@ getTarget self = liftDOM ((self ^. js "target") >>= fromMaybeJSString) +-- | +getTargetUnchecked :: + (MonadDOM m, FromJSString result) => + ProcessingInstruction -> m result +getTargetUnchecked self + = liftDOM ((self ^. js "target") >>= fromJSValUnchecked) + -- | getSheet :: (MonadDOM m) => ProcessingInstruction -> m (Maybe StyleSheet) getSheet self = liftDOM ((self ^. js "sheet") >>= fromJSVal) + +-- | +getSheetUnchecked :: + (MonadDOM m) => ProcessingInstruction -> m StyleSheet +getSheetUnchecked self + = liftDOM ((self ^. js "sheet") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/RGBColor.hs b/src/JSDOM/Generated/RGBColor.hs --- a/src/JSDOM/Generated/RGBColor.hs +++ b/src/JSDOM/Generated/RGBColor.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.RGBColor - (getRed, getGreen, getBlue, RGBColor, castToRGBColor, - gTypeRGBColor) + (getRed, getRedUnchecked, getGreen, getGreenUnchecked, getBlue, + getBlueUnchecked, RGBColor, castToRGBColor, gTypeRGBColor) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,10 +20,26 @@ getRed :: (MonadDOM m) => RGBColor -> m (Maybe CSSPrimitiveValue) getRed self = liftDOM ((self ^. js "red") >>= fromJSVal) +-- | +getRedUnchecked :: (MonadDOM m) => RGBColor -> m CSSPrimitiveValue +getRedUnchecked self + = liftDOM ((self ^. js "red") >>= fromJSValUnchecked) + -- | getGreen :: (MonadDOM m) => RGBColor -> m (Maybe CSSPrimitiveValue) getGreen self = liftDOM ((self ^. js "green") >>= fromJSVal) +-- | +getGreenUnchecked :: + (MonadDOM m) => RGBColor -> m CSSPrimitiveValue +getGreenUnchecked self + = liftDOM ((self ^. js "green") >>= fromJSValUnchecked) + -- | getBlue :: (MonadDOM m) => RGBColor -> m (Maybe CSSPrimitiveValue) getBlue self = liftDOM ((self ^. js "blue") >>= fromJSVal) + +-- | +getBlueUnchecked :: (MonadDOM m) => RGBColor -> m CSSPrimitiveValue +getBlueUnchecked self + = liftDOM ((self ^. js "blue") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/RTCDTMFSender.hs b/src/JSDOM/Generated/RTCDTMFSender.hs --- a/src/JSDOM/Generated/RTCDTMFSender.hs +++ b/src/JSDOM/Generated/RTCDTMFSender.hs @@ -1,9 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.RTCDTMFSender - (insertDTMF, getCanInsertDTMF, getTrack, getToneBuffer, - getDuration, getInterToneGap, toneChange, RTCDTMFSender, - castToRTCDTMFSender, gTypeRTCDTMFSender) + (insertDTMF, getCanInsertDTMF, getTrack, getTrackUnchecked, + getToneBuffer, getDuration, getInterToneGap, toneChange, + RTCDTMFSender, castToRTCDTMFSender, gTypeRTCDTMFSender) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -36,6 +36,12 @@ getTrack :: (MonadDOM m) => RTCDTMFSender -> m (Maybe MediaStreamTrack) getTrack self = liftDOM ((self ^. js "track") >>= fromJSVal) + +-- | +getTrackUnchecked :: + (MonadDOM m) => RTCDTMFSender -> m MediaStreamTrack +getTrackUnchecked self + = liftDOM ((self ^. js "track") >>= fromJSValUnchecked) -- | getToneBuffer :: diff --git a/src/JSDOM/Generated/RTCDataChannelEvent.hs b/src/JSDOM/Generated/RTCDataChannelEvent.hs --- a/src/JSDOM/Generated/RTCDataChannelEvent.hs +++ b/src/JSDOM/Generated/RTCDataChannelEvent.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.RTCDataChannelEvent - (getChannel, RTCDataChannelEvent, castToRTCDataChannelEvent, - gTypeRTCDataChannelEvent) + (getChannel, getChannelUnchecked, RTCDataChannelEvent, + castToRTCDataChannelEvent, gTypeRTCDataChannelEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,3 +20,9 @@ getChannel :: (MonadDOM m) => RTCDataChannelEvent -> m (Maybe RTCDataChannel) getChannel self = liftDOM ((self ^. js "channel") >>= fromJSVal) + +-- | +getChannelUnchecked :: + (MonadDOM m) => RTCDataChannelEvent -> m RTCDataChannel +getChannelUnchecked self + = liftDOM ((self ^. js "channel") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/RTCIceCandidateEvent.hs b/src/JSDOM/Generated/RTCIceCandidateEvent.hs --- a/src/JSDOM/Generated/RTCIceCandidateEvent.hs +++ b/src/JSDOM/Generated/RTCIceCandidateEvent.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.RTCIceCandidateEvent - (getCandidate, RTCIceCandidateEvent, castToRTCIceCandidateEvent, - gTypeRTCIceCandidateEvent) + (getCandidate, getCandidateUnchecked, RTCIceCandidateEvent, + castToRTCIceCandidateEvent, gTypeRTCIceCandidateEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,3 +21,9 @@ (MonadDOM m) => RTCIceCandidateEvent -> m (Maybe RTCIceCandidate) getCandidate self = liftDOM ((self ^. js "candidate") >>= fromJSVal) + +-- | +getCandidateUnchecked :: + (MonadDOM m) => RTCIceCandidateEvent -> m RTCIceCandidate +getCandidateUnchecked self + = liftDOM ((self ^. js "candidate") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/RTCPeerConnection.hs b/src/JSDOM/Generated/RTCPeerConnection.hs --- a/src/JSDOM/Generated/RTCPeerConnection.hs +++ b/src/JSDOM/Generated/RTCPeerConnection.hs @@ -3,14 +3,19 @@ module JSDOM.Generated.RTCPeerConnection (newRTCPeerConnection, createOffer, createAnswer, setLocalDescription, setRemoteDescription, updateIce, - addIceCandidate, getLocalStreams, getRemoteStreams, getStreamById, - getConfiguration, addStream, removeStream, getStats, - createDataChannel, createDTMFSender, close, getLocalDescription, - getRemoteDescription, getSignalingState, getIceGatheringState, - getIceConnectionState, negotiationNeeded, iceCandidate, - signalingStateChange, addStreamEvent, removeStreamEvent, - iceConnectionStateChange, dataChannel, RTCPeerConnection, - castToRTCPeerConnection, gTypeRTCPeerConnection) + addIceCandidate, getLocalStreams, getLocalStreams_, + getRemoteStreams, getRemoteStreams_, getStreamById, getStreamById_, + getStreamByIdUnchecked, getConfiguration, getConfiguration_, + getConfigurationUnchecked, addStream, removeStream, getStats, + createDataChannel, createDataChannel_, createDataChannelUnchecked, + createDTMFSender, createDTMFSender_, createDTMFSenderUnchecked, + close, getLocalDescription, getLocalDescriptionUnchecked, + getRemoteDescription, getRemoteDescriptionUnchecked, + getSignalingState, getIceGatheringState, getIceConnectionState, + negotiationNeeded, iceCandidate, signalingStateChange, + addStreamEvent, removeStreamEvent, iceConnectionStateChange, + dataChannel, RTCPeerConnection, castToRTCPeerConnection, + gTypeRTCPeerConnection) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -113,12 +118,22 @@ getLocalStreams self = liftDOM ((self ^. jsf "getLocalStreams" ()) >>= fromJSArray) +-- | +getLocalStreams_ :: (MonadDOM m) => RTCPeerConnection -> m () +getLocalStreams_ self + = liftDOM (void (self ^. jsf "getLocalStreams" ())) + -- | getRemoteStreams :: (MonadDOM m) => RTCPeerConnection -> m [Maybe MediaStream] getRemoteStreams self = liftDOM ((self ^. jsf "getRemoteStreams" ()) >>= fromJSArray) +-- | +getRemoteStreams_ :: (MonadDOM m) => RTCPeerConnection -> m () +getRemoteStreams_ self + = liftDOM (void (self ^. jsf "getRemoteStreams" ())) + -- | getStreamById :: (MonadDOM m, ToJSString streamId) => @@ -127,12 +142,40 @@ = liftDOM ((self ^. jsf "getStreamById" [toJSVal streamId]) >>= fromJSVal) +-- | +getStreamById_ :: + (MonadDOM m, ToJSString streamId) => + RTCPeerConnection -> streamId -> m () +getStreamById_ self streamId + = liftDOM (void (self ^. jsf "getStreamById" [toJSVal streamId])) + +-- | +getStreamByIdUnchecked :: + (MonadDOM m, ToJSString streamId) => + RTCPeerConnection -> streamId -> m MediaStream +getStreamByIdUnchecked self streamId + = liftDOM + ((self ^. jsf "getStreamById" [toJSVal streamId]) >>= + fromJSValUnchecked) + -- | getConfiguration :: (MonadDOM m) => RTCPeerConnection -> m (Maybe RTCConfiguration) getConfiguration self = liftDOM ((self ^. jsf "getConfiguration" ()) >>= fromJSVal) +-- | +getConfiguration_ :: (MonadDOM m) => RTCPeerConnection -> m () +getConfiguration_ self + = liftDOM (void (self ^. jsf "getConfiguration" ())) + +-- | +getConfigurationUnchecked :: + (MonadDOM m) => RTCPeerConnection -> m RTCConfiguration +getConfigurationUnchecked self + = liftDOM + ((self ^. jsf "getConfiguration" ()) >>= fromJSValUnchecked) + -- | addStream :: (MonadDOM m) => RTCPeerConnection -> Maybe MediaStream -> m () @@ -168,6 +211,25 @@ ((self ^. jsf "createDataChannel" [toJSVal label, toJSVal options]) >>= fromJSVal) +-- | +createDataChannel_ :: + (MonadDOM m, ToJSString label, IsDictionary options) => + RTCPeerConnection -> Maybe label -> Maybe options -> m () +createDataChannel_ self label options + = liftDOM + (void + (self ^. jsf "createDataChannel" [toJSVal label, toJSVal options])) + +-- | +createDataChannelUnchecked :: + (MonadDOM m, ToJSString label, IsDictionary options) => + RTCPeerConnection -> + Maybe label -> Maybe options -> m RTCDataChannel +createDataChannelUnchecked self label options + = liftDOM + ((self ^. jsf "createDataChannel" [toJSVal label, toJSVal options]) + >>= fromJSValUnchecked) + -- | createDTMFSender :: (MonadDOM m, IsMediaStreamTrack track) => @@ -176,6 +238,22 @@ = liftDOM ((self ^. jsf "createDTMFSender" [toJSVal track]) >>= fromJSVal) +-- | +createDTMFSender_ :: + (MonadDOM m, IsMediaStreamTrack track) => + RTCPeerConnection -> Maybe track -> m () +createDTMFSender_ self track + = liftDOM (void (self ^. jsf "createDTMFSender" [toJSVal track])) + +-- | +createDTMFSenderUnchecked :: + (MonadDOM m, IsMediaStreamTrack track) => + RTCPeerConnection -> Maybe track -> m RTCDTMFSender +createDTMFSenderUnchecked self track + = liftDOM + ((self ^. jsf "createDTMFSender" [toJSVal track]) >>= + fromJSValUnchecked) + -- | close :: (MonadDOM m) => RTCPeerConnection -> m () close self = liftDOM (void (self ^. jsf "close" ())) @@ -187,12 +265,24 @@ getLocalDescription self = liftDOM ((self ^. js "localDescription") >>= fromJSVal) +-- | +getLocalDescriptionUnchecked :: + (MonadDOM m) => RTCPeerConnection -> m RTCSessionDescription +getLocalDescriptionUnchecked self + = liftDOM ((self ^. js "localDescription") >>= fromJSValUnchecked) + -- | getRemoteDescription :: (MonadDOM m) => RTCPeerConnection -> m (Maybe RTCSessionDescription) getRemoteDescription self = liftDOM ((self ^. js "remoteDescription") >>= fromJSVal) + +-- | +getRemoteDescriptionUnchecked :: + (MonadDOM m) => RTCPeerConnection -> m RTCSessionDescription +getRemoteDescriptionUnchecked self + = liftDOM ((self ^. js "remoteDescription") >>= fromJSValUnchecked) -- | getSignalingState :: diff --git a/src/JSDOM/Generated/RTCStatsReport.hs b/src/JSDOM/Generated/RTCStatsReport.hs --- a/src/JSDOM/Generated/RTCStatsReport.hs +++ b/src/JSDOM/Generated/RTCStatsReport.hs @@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.RTCStatsReport - (stat, names, getTimestamp, getId, getType, getLocal, getRemote, - RTCStatsReport, castToRTCStatsReport, gTypeRTCStatsReport) + (stat, stat_, names, names_, getTimestamp, getTimestampUnchecked, + getId, getType, getLocal, getLocalUnchecked, getRemote, + getRemoteUnchecked, RTCStatsReport, castToRTCStatsReport, + gTypeRTCStatsReport) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -24,17 +26,32 @@ = liftDOM ((self ^. jsf "stat" [toJSVal name]) >>= fromJSValUnchecked) +-- | +stat_ :: + (MonadDOM m, ToJSString name) => RTCStatsReport -> name -> m () +stat_ self name + = liftDOM (void (self ^. jsf "stat" [toJSVal name])) + -- | names :: (MonadDOM m, FromJSString result) => RTCStatsReport -> m [result] names self = liftDOM ((self ^. jsf "names" ()) >>= fromJSArrayUnchecked) +-- | +names_ :: (MonadDOM m) => RTCStatsReport -> m () +names_ self = liftDOM (void (self ^. jsf "names" ())) + -- | getTimestamp :: (MonadDOM m) => RTCStatsReport -> m (Maybe Date) getTimestamp self = liftDOM ((self ^. js "timestamp") >>= fromJSVal) +-- | +getTimestampUnchecked :: (MonadDOM m) => RTCStatsReport -> m Date +getTimestampUnchecked self + = liftDOM ((self ^. js "timestamp") >>= fromJSValUnchecked) + -- | getId :: (MonadDOM m, FromJSString result) => RTCStatsReport -> m result @@ -50,7 +67,19 @@ (MonadDOM m) => RTCStatsReport -> m (Maybe RTCStatsReport) getLocal self = liftDOM ((self ^. js "local") >>= fromJSVal) +-- | +getLocalUnchecked :: + (MonadDOM m) => RTCStatsReport -> m RTCStatsReport +getLocalUnchecked self + = liftDOM ((self ^. js "local") >>= fromJSValUnchecked) + -- | getRemote :: (MonadDOM m) => RTCStatsReport -> m (Maybe RTCStatsReport) getRemote self = liftDOM ((self ^. js "remote") >>= fromJSVal) + +-- | +getRemoteUnchecked :: + (MonadDOM m) => RTCStatsReport -> m RTCStatsReport +getRemoteUnchecked self + = liftDOM ((self ^. js "remote") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/RTCStatsResponse.hs b/src/JSDOM/Generated/RTCStatsResponse.hs --- a/src/JSDOM/Generated/RTCStatsResponse.hs +++ b/src/JSDOM/Generated/RTCStatsResponse.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.RTCStatsResponse - (result, namedItem, RTCStatsResponse, castToRTCStatsResponse, - gTypeRTCStatsResponse) + (result, result_, namedItem, namedItem_, namedItemUnchecked, + RTCStatsResponse, castToRTCStatsResponse, gTypeRTCStatsResponse) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,9 +21,27 @@ (MonadDOM m) => RTCStatsResponse -> m [Maybe RTCStatsReport] result self = liftDOM ((self ^. jsf "result" ()) >>= fromJSArray) +-- | +result_ :: (MonadDOM m) => RTCStatsResponse -> m () +result_ self = liftDOM (void (self ^. jsf "result" ())) + -- | namedItem :: (MonadDOM m, ToJSString name) => RTCStatsResponse -> name -> m (Maybe RTCStatsReport) namedItem self name = liftDOM ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSVal) + +-- | +namedItem_ :: + (MonadDOM m, ToJSString name) => RTCStatsResponse -> name -> m () +namedItem_ self name + = liftDOM (void (self ^. jsf "namedItem" [toJSVal name])) + +-- | +namedItemUnchecked :: + (MonadDOM m, ToJSString name) => + RTCStatsResponse -> name -> m RTCStatsReport +namedItemUnchecked self name + = liftDOM + ((self ^. jsf "namedItem" [toJSVal name]) >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/RadioNodeList.hs b/src/JSDOM/Generated/RadioNodeList.hs --- a/src/JSDOM/Generated/RadioNodeList.hs +++ b/src/JSDOM/Generated/RadioNodeList.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.RadioNodeList - (_get, setValue, getValue, RadioNodeList, castToRadioNodeList, - gTypeRadioNodeList) + (_get, _get_, _getUnchecked, setValue, getValue, RadioNodeList, + castToRadioNodeList, gTypeRadioNodeList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,6 +20,17 @@ _get :: (MonadDOM m) => RadioNodeList -> Word -> m (Maybe Node) _get self index = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal) + +-- | +_get_ :: (MonadDOM m) => RadioNodeList -> Word -> m () +_get_ self index + = liftDOM (void (self ^. jsf "_get" [toJSVal index])) + +-- | +_getUnchecked :: (MonadDOM m) => RadioNodeList -> Word -> m Node +_getUnchecked self index + = liftDOM + ((self ^. jsf "_get" [toJSVal index]) >>= fromJSValUnchecked) -- | setValue :: diff --git a/src/JSDOM/Generated/Range.hs b/src/JSDOM/Generated/Range.hs --- a/src/JSDOM/Generated/Range.hs +++ b/src/JSDOM/Generated/Range.hs @@ -3,16 +3,24 @@ module JSDOM.Generated.Range (newRange, setStart, setEnd, setStartBefore, setStartAfter, setEndBefore, setEndAfter, collapse, selectNode, - selectNodeContents, compareBoundaryPoints, deleteContents, - extractContents, cloneContents, insertNode, surroundContents, - cloneRange, toString, detach, getClientRects, - getBoundingClientRect, createContextualFragment, intersectsNode, - compareNode, comparePoint, isPointInRange, 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, - getStartContainer, getStartOffset, getEndContainer, getEndOffset, - getCollapsed, getCommonAncestorContainer, Range, castToRange, + selectNodeContents, compareBoundaryPoints, compareBoundaryPoints_, + deleteContents, extractContents, extractContents_, + extractContentsUnchecked, cloneContents, cloneContents_, + cloneContentsUnchecked, insertNode, surroundContents, cloneRange, + cloneRange_, cloneRangeUnchecked, toString, toString_, detach, + getClientRects, getClientRects_, getClientRectsUnchecked, + getBoundingClientRect, getBoundingClientRect_, + getBoundingClientRectUnchecked, createContextualFragment, + createContextualFragment_, createContextualFragmentUnchecked, + intersectsNode, intersectsNode_, compareNode, compareNode_, + comparePoint, comparePoint_, isPointInRange, isPointInRange_, + 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, getStartContainer, getStartContainerUnchecked, + getStartOffset, getEndContainer, getEndContainerUnchecked, + getEndOffset, getCollapsed, getCommonAncestorContainer, + getCommonAncestorContainerUnchecked, Range, castToRange, gTypeRange) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -99,6 +107,15 @@ [toJSVal how, toJSVal sourceRange]) >>= valToNumber)) +-- | +compareBoundaryPoints_ :: + (MonadDOM m) => Range -> Word -> Maybe Range -> m () +compareBoundaryPoints_ self how sourceRange + = liftDOM + (void + (self ^. jsf "compareBoundaryPoints" + [toJSVal how, toJSVal sourceRange])) + -- | deleteContents :: (MonadDOM m) => Range -> m () deleteContents self @@ -110,12 +127,35 @@ extractContents self = liftDOM ((self ^. jsf "extractContents" ()) >>= fromJSVal) +-- | +extractContents_ :: (MonadDOM m) => Range -> m () +extractContents_ self + = liftDOM (void (self ^. jsf "extractContents" ())) + +-- | +extractContentsUnchecked :: + (MonadDOM m) => Range -> m DocumentFragment +extractContentsUnchecked self + = liftDOM + ((self ^. jsf "extractContents" ()) >>= fromJSValUnchecked) + -- | cloneContents :: (MonadDOM m) => Range -> m (Maybe DocumentFragment) cloneContents self = liftDOM ((self ^. jsf "cloneContents" ()) >>= fromJSVal) +-- | +cloneContents_ :: (MonadDOM m) => Range -> m () +cloneContents_ self + = liftDOM (void (self ^. jsf "cloneContents" ())) + +-- | +cloneContentsUnchecked :: + (MonadDOM m) => Range -> m DocumentFragment +cloneContentsUnchecked self + = liftDOM ((self ^. jsf "cloneContents" ()) >>= fromJSValUnchecked) + -- | insertNode :: (MonadDOM m, IsNode newNode) => Range -> Maybe newNode -> m () @@ -134,11 +174,24 @@ cloneRange self = liftDOM ((self ^. jsf "cloneRange" ()) >>= fromJSVal) +-- | +cloneRange_ :: (MonadDOM m) => Range -> m () +cloneRange_ self = liftDOM (void (self ^. jsf "cloneRange" ())) + +-- | +cloneRangeUnchecked :: (MonadDOM m) => Range -> m Range +cloneRangeUnchecked self + = liftDOM ((self ^. jsf "cloneRange" ()) >>= fromJSValUnchecked) + -- | toString :: (MonadDOM m, FromJSString result) => Range -> m result toString self = liftDOM ((self ^. jsf "toString" ()) >>= fromJSValUnchecked) +-- | +toString_ :: (MonadDOM m) => Range -> m () +toString_ self = liftDOM (void (self ^. jsf "toString" ())) + -- | detach :: (MonadDOM m) => Range -> m () detach self = liftDOM (void (self ^. jsf "detach" ())) @@ -148,12 +201,36 @@ getClientRects self = liftDOM ((self ^. jsf "getClientRects" ()) >>= fromJSVal) +-- | +getClientRects_ :: (MonadDOM m) => Range -> m () +getClientRects_ self + = liftDOM (void (self ^. jsf "getClientRects" ())) + +-- | +getClientRectsUnchecked :: + (MonadDOM m) => Range -> m ClientRectList +getClientRectsUnchecked self + = liftDOM + ((self ^. jsf "getClientRects" ()) >>= fromJSValUnchecked) + -- | getBoundingClientRect :: (MonadDOM m) => Range -> m (Maybe ClientRect) getBoundingClientRect self = liftDOM ((self ^. jsf "getBoundingClientRect" ()) >>= fromJSVal) +-- | +getBoundingClientRect_ :: (MonadDOM m) => Range -> m () +getBoundingClientRect_ self + = liftDOM (void (self ^. jsf "getBoundingClientRect" ())) + +-- | +getBoundingClientRectUnchecked :: + (MonadDOM m) => Range -> m ClientRect +getBoundingClientRectUnchecked self + = liftDOM + ((self ^. jsf "getBoundingClientRect" ()) >>= fromJSValUnchecked) + -- | createContextualFragment :: (MonadDOM m, ToJSString html) => @@ -163,6 +240,22 @@ ((self ^. jsf "createContextualFragment" [toJSVal html]) >>= fromJSVal) +-- | +createContextualFragment_ :: + (MonadDOM m, ToJSString html) => Range -> html -> m () +createContextualFragment_ self html + = liftDOM + (void (self ^. jsf "createContextualFragment" [toJSVal html])) + +-- | +createContextualFragmentUnchecked :: + (MonadDOM m, ToJSString html) => + Range -> html -> m DocumentFragment +createContextualFragmentUnchecked self html + = liftDOM + ((self ^. jsf "createContextualFragment" [toJSVal html]) >>= + fromJSValUnchecked) + -- | intersectsNode :: (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m Bool @@ -170,6 +263,12 @@ = liftDOM ((self ^. jsf "intersectsNode" [toJSVal refNode]) >>= valToBool) +-- | +intersectsNode_ :: + (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m () +intersectsNode_ self refNode + = liftDOM (void (self ^. jsf "intersectsNode" [toJSVal refNode])) + -- | compareNode :: (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m Int @@ -178,6 +277,12 @@ (round <$> ((self ^. jsf "compareNode" [toJSVal refNode]) >>= valToNumber)) +-- | +compareNode_ :: + (MonadDOM m, IsNode refNode) => Range -> Maybe refNode -> m () +compareNode_ self refNode + = liftDOM (void (self ^. jsf "compareNode" [toJSVal refNode])) + -- | comparePoint :: (MonadDOM m, IsNode refNode) => @@ -188,6 +293,15 @@ ((self ^. jsf "comparePoint" [toJSVal refNode, toJSVal offset]) >>= valToNumber)) +-- | +comparePoint_ :: + (MonadDOM m, IsNode refNode) => + Range -> Maybe refNode -> Int -> m () +comparePoint_ self refNode offset + = liftDOM + (void + (self ^. jsf "comparePoint" [toJSVal refNode, toJSVal offset])) + -- | isPointInRange :: (MonadDOM m, IsNode refNode) => @@ -197,6 +311,15 @@ ((self ^. jsf "isPointInRange" [toJSVal refNode, toJSVal offset]) >>= valToBool) +-- | +isPointInRange_ :: + (MonadDOM m, IsNode refNode) => + Range -> Maybe refNode -> Int -> m () +isPointInRange_ self refNode offset + = liftDOM + (void + (self ^. jsf "isPointInRange" [toJSVal refNode, toJSVal offset])) + -- | expand :: (MonadDOM m, ToJSString unit) => Range -> unit -> m () expand self unit @@ -215,6 +338,11 @@ getStartContainer self = liftDOM ((self ^. js "startContainer") >>= fromJSVal) +-- | +getStartContainerUnchecked :: (MonadDOM m) => Range -> m Node +getStartContainerUnchecked self + = liftDOM ((self ^. js "startContainer") >>= fromJSValUnchecked) + -- | getStartOffset :: (MonadDOM m) => Range -> m Int getStartOffset self @@ -225,6 +353,11 @@ getEndContainer self = liftDOM ((self ^. js "endContainer") >>= fromJSVal) +-- | +getEndContainerUnchecked :: (MonadDOM m) => Range -> m Node +getEndContainerUnchecked self + = liftDOM ((self ^. js "endContainer") >>= fromJSValUnchecked) + -- | getEndOffset :: (MonadDOM m) => Range -> m Int getEndOffset self @@ -240,3 +373,10 @@ (MonadDOM m) => Range -> m (Maybe Node) getCommonAncestorContainer self = liftDOM ((self ^. js "commonAncestorContainer") >>= fromJSVal) + +-- | +getCommonAncestorContainerUnchecked :: + (MonadDOM m) => Range -> m Node +getCommonAncestorContainerUnchecked self + = liftDOM + ((self ^. js "commonAncestorContainer") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/ReadableStream.hs b/src/JSDOM/Generated/ReadableStream.hs --- a/src/JSDOM/Generated/ReadableStream.hs +++ b/src/JSDOM/Generated/ReadableStream.hs @@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.ReadableStream - (newReadableStream, read, cancel, pipeTo, pipeThrough, getState, - getClosed, getReady, ReadableStream, castToReadableStream, - gTypeReadableStream) + (newReadableStream, read, read_, readUnchecked, cancel, cancel_, + cancelUnchecked, pipeTo, pipeTo_, pipeToUnchecked, pipeThrough, + pipeThrough_, pipeThroughUnchecked, getState, getClosed, + getClosedUnchecked, getReady, getReadyUnchecked, ReadableStream, + castToReadableStream, gTypeReadableStream) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -28,6 +30,15 @@ read :: (MonadDOM m) => ReadableStream -> m (Maybe GObject) read self = liftDOM ((self ^. jsf "read" ()) >>= fromJSVal) +-- | +read_ :: (MonadDOM m) => ReadableStream -> m () +read_ self = liftDOM (void (self ^. jsf "read" ())) + +-- | +readUnchecked :: (MonadDOM m) => ReadableStream -> m GObject +readUnchecked self + = liftDOM ((self ^. jsf "read" ()) >>= fromJSValUnchecked) + -- | cancel :: (MonadDOM m, ToJSString reason) => @@ -35,6 +46,20 @@ cancel self reason = liftDOM ((self ^. jsf "cancel" [toJSVal reason]) >>= fromJSVal) +-- | +cancel_ :: + (MonadDOM m, ToJSString reason) => ReadableStream -> reason -> m () +cancel_ self reason + = liftDOM (void (self ^. jsf "cancel" [toJSVal reason])) + +-- | +cancelUnchecked :: + (MonadDOM m, ToJSString reason) => + ReadableStream -> reason -> m Promise +cancelUnchecked self reason + = liftDOM + ((self ^. jsf "cancel" [toJSVal reason]) >>= fromJSValUnchecked) + -- | pipeTo :: (MonadDOM m) => @@ -44,6 +69,20 @@ ((self ^. jsf "pipeTo" [toJSVal streams, toJSVal options]) >>= fromJSVal) +-- | +pipeTo_ :: (MonadDOM m) => ReadableStream -> JSVal -> JSVal -> m () +pipeTo_ self streams options + = liftDOM + (void (self ^. jsf "pipeTo" [toJSVal streams, toJSVal options])) + +-- | +pipeToUnchecked :: + (MonadDOM m) => ReadableStream -> JSVal -> JSVal -> m Promise +pipeToUnchecked self streams options + = liftDOM + ((self ^. jsf "pipeTo" [toJSVal streams, toJSVal options]) >>= + fromJSValUnchecked) + -- | pipeThrough :: (MonadDOM m) => @@ -53,6 +92,21 @@ ((self ^. jsf "pipeThrough" [toJSVal dest, toJSVal options]) >>= fromJSVal) +-- | +pipeThrough_ :: + (MonadDOM m) => ReadableStream -> JSVal -> JSVal -> m () +pipeThrough_ self dest options + = liftDOM + (void (self ^. jsf "pipeThrough" [toJSVal dest, toJSVal options])) + +-- | +pipeThroughUnchecked :: + (MonadDOM m) => ReadableStream -> JSVal -> JSVal -> m GObject +pipeThroughUnchecked self dest options + = liftDOM + ((self ^. jsf "pipeThrough" [toJSVal dest, toJSVal options]) >>= + fromJSValUnchecked) + -- | getState :: (MonadDOM m) => ReadableStream -> m ReadableStreamStateType @@ -63,6 +117,16 @@ getClosed :: (MonadDOM m) => ReadableStream -> m (Maybe Promise) getClosed self = liftDOM ((self ^. js "closed") >>= fromJSVal) +-- | +getClosedUnchecked :: (MonadDOM m) => ReadableStream -> m Promise +getClosedUnchecked self + = liftDOM ((self ^. js "closed") >>= fromJSValUnchecked) + -- | getReady :: (MonadDOM m) => ReadableStream -> m (Maybe Promise) getReady self = liftDOM ((self ^. js "ready") >>= fromJSVal) + +-- | +getReadyUnchecked :: (MonadDOM m) => ReadableStream -> m Promise +getReadyUnchecked self + = liftDOM ((self ^. js "ready") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/Rect.hs b/src/JSDOM/Generated/Rect.hs --- a/src/JSDOM/Generated/Rect.hs +++ b/src/JSDOM/Generated/Rect.hs @@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Rect - (getTop, getRight, getBottom, getLeft, Rect, castToRect, gTypeRect) + (getTop, getTopUnchecked, getRight, getRightUnchecked, getBottom, + getBottomUnchecked, getLeft, getLeftUnchecked, Rect, castToRect, + gTypeRect) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -19,14 +21,34 @@ getTop :: (MonadDOM m) => Rect -> m (Maybe CSSPrimitiveValue) getTop self = liftDOM ((self ^. js "top") >>= fromJSVal) +-- | +getTopUnchecked :: (MonadDOM m) => Rect -> m CSSPrimitiveValue +getTopUnchecked self + = liftDOM ((self ^. js "top") >>= fromJSValUnchecked) + -- | getRight :: (MonadDOM m) => Rect -> m (Maybe CSSPrimitiveValue) getRight self = liftDOM ((self ^. js "right") >>= fromJSVal) +-- | +getRightUnchecked :: (MonadDOM m) => Rect -> m CSSPrimitiveValue +getRightUnchecked self + = liftDOM ((self ^. js "right") >>= fromJSValUnchecked) + -- | getBottom :: (MonadDOM m) => Rect -> m (Maybe CSSPrimitiveValue) getBottom self = liftDOM ((self ^. js "bottom") >>= fromJSVal) +-- | +getBottomUnchecked :: (MonadDOM m) => Rect -> m CSSPrimitiveValue +getBottomUnchecked self + = liftDOM ((self ^. js "bottom") >>= fromJSValUnchecked) + -- | getLeft :: (MonadDOM m) => Rect -> m (Maybe CSSPrimitiveValue) getLeft self = liftDOM ((self ^. js "left") >>= fromJSVal) + +-- | +getLeftUnchecked :: (MonadDOM m) => Rect -> m CSSPrimitiveValue +getLeftUnchecked self + = liftDOM ((self ^. js "left") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SQLResultSet.hs b/src/JSDOM/Generated/SQLResultSet.hs --- a/src/JSDOM/Generated/SQLResultSet.hs +++ b/src/JSDOM/Generated/SQLResultSet.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SQLResultSet - (getRows, getInsertId, getRowsAffected, SQLResultSet, - castToSQLResultSet, gTypeSQLResultSet) + (getRows, getRowsUnchecked, getInsertId, getRowsAffected, + SQLResultSet, castToSQLResultSet, gTypeSQLResultSet) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,6 +20,12 @@ getRows :: (MonadDOM m) => SQLResultSet -> m (Maybe SQLResultSetRowList) getRows self = liftDOM ((self ^. js "rows") >>= fromJSVal) + +-- | +getRowsUnchecked :: + (MonadDOM m) => SQLResultSet -> m SQLResultSetRowList +getRowsUnchecked self + = liftDOM ((self ^. js "rows") >>= fromJSValUnchecked) -- | getInsertId :: (MonadDOM m) => SQLResultSet -> m Int diff --git a/src/JSDOM/Generated/SQLResultSetRowList.hs b/src/JSDOM/Generated/SQLResultSetRowList.hs --- a/src/JSDOM/Generated/SQLResultSetRowList.hs +++ b/src/JSDOM/Generated/SQLResultSetRowList.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SQLResultSetRowList - (item, getLength, SQLResultSetRowList, castToSQLResultSetRowList, - gTypeSQLResultSetRowList) + (item, item_, getLength, SQLResultSetRowList, + castToSQLResultSetRowList, gTypeSQLResultSetRowList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,6 +20,11 @@ item :: (MonadDOM m) => SQLResultSetRowList -> Word -> m JSVal item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= toJSVal) + +-- | +item_ :: (MonadDOM m) => SQLResultSetRowList -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) -- | getLength :: (MonadDOM m) => SQLResultSetRowList -> m Word diff --git a/src/JSDOM/Generated/SVGAElement.hs b/src/JSDOM/Generated/SVGAElement.hs --- a/src/JSDOM/Generated/SVGAElement.hs +++ b/src/JSDOM/Generated/SVGAElement.hs @@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGAElement - (getTarget, SVGAElement, castToSVGAElement, gTypeSVGAElement) where + (getTarget, getTargetUnchecked, SVGAElement, castToSVGAElement, + gTypeSVGAElement) + where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) @@ -18,3 +20,9 @@ getTarget :: (MonadDOM m) => SVGAElement -> m (Maybe SVGAnimatedString) getTarget self = liftDOM ((self ^. js "target") >>= fromJSVal) + +-- | +getTargetUnchecked :: + (MonadDOM m) => SVGAElement -> m SVGAnimatedString +getTargetUnchecked self + = liftDOM ((self ^. js "target") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGAngle.hs b/src/JSDOM/Generated/SVGAngle.hs --- a/src/JSDOM/Generated/SVGAngle.hs +++ b/src/JSDOM/Generated/SVGAngle.hs @@ -6,8 +6,8 @@ pattern SVG_ANGLETYPE_DEG, pattern SVG_ANGLETYPE_RAD, pattern SVG_ANGLETYPE_GRAD, getUnitType, setValue, getValue, setValueInSpecifiedUnits, getValueInSpecifiedUnits, - setValueAsString, getValueAsString, SVGAngle, castToSVGAngle, - gTypeSVGAngle) + setValueAsString, getValueAsString, getValueAsStringUnchecked, + SVGAngle, castToSVGAngle, gTypeSVGAngle) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -79,3 +79,9 @@ (MonadDOM m, FromJSString result) => SVGAngle -> m (Maybe result) getValueAsString self = liftDOM ((self ^. js "valueAsString") >>= fromMaybeJSString) + +-- | +getValueAsStringUnchecked :: + (MonadDOM m, FromJSString result) => SVGAngle -> m result +getValueAsStringUnchecked self + = liftDOM ((self ^. js "valueAsString") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGAnimatedAngle.hs b/src/JSDOM/Generated/SVGAnimatedAngle.hs --- a/src/JSDOM/Generated/SVGAnimatedAngle.hs +++ b/src/JSDOM/Generated/SVGAnimatedAngle.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGAnimatedAngle - (getBaseVal, getAnimVal, SVGAnimatedAngle, castToSVGAnimatedAngle, - gTypeSVGAnimatedAngle) + (getBaseVal, getBaseValUnchecked, getAnimVal, getAnimValUnchecked, + SVGAnimatedAngle, castToSVGAnimatedAngle, gTypeSVGAnimatedAngle) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,7 +21,19 @@ (MonadDOM m) => SVGAnimatedAngle -> m (Maybe SVGAngle) getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal) +-- | +getBaseValUnchecked :: + (MonadDOM m) => SVGAnimatedAngle -> m SVGAngle +getBaseValUnchecked self + = liftDOM ((self ^. js "baseVal") >>= fromJSValUnchecked) + -- | getAnimVal :: (MonadDOM m) => SVGAnimatedAngle -> m (Maybe SVGAngle) getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal) + +-- | +getAnimValUnchecked :: + (MonadDOM m) => SVGAnimatedAngle -> m SVGAngle +getAnimValUnchecked self + = liftDOM ((self ^. js "animVal") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGAnimatedLength.hs b/src/JSDOM/Generated/SVGAnimatedLength.hs --- a/src/JSDOM/Generated/SVGAnimatedLength.hs +++ b/src/JSDOM/Generated/SVGAnimatedLength.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGAnimatedLength - (getBaseVal, getAnimVal, SVGAnimatedLength, - castToSVGAnimatedLength, gTypeSVGAnimatedLength) + (getBaseVal, getBaseValUnchecked, getAnimVal, getAnimValUnchecked, + SVGAnimatedLength, castToSVGAnimatedLength, gTypeSVGAnimatedLength) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,7 +21,19 @@ (MonadDOM m) => SVGAnimatedLength -> m (Maybe SVGLength) getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal) +-- | +getBaseValUnchecked :: + (MonadDOM m) => SVGAnimatedLength -> m SVGLength +getBaseValUnchecked self + = liftDOM ((self ^. js "baseVal") >>= fromJSValUnchecked) + -- | getAnimVal :: (MonadDOM m) => SVGAnimatedLength -> m (Maybe SVGLength) getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal) + +-- | +getAnimValUnchecked :: + (MonadDOM m) => SVGAnimatedLength -> m SVGLength +getAnimValUnchecked self + = liftDOM ((self ^. js "animVal") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGAnimatedLengthList.hs b/src/JSDOM/Generated/SVGAnimatedLengthList.hs --- a/src/JSDOM/Generated/SVGAnimatedLengthList.hs +++ b/src/JSDOM/Generated/SVGAnimatedLengthList.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGAnimatedLengthList - (getBaseVal, getAnimVal, SVGAnimatedLengthList, - castToSVGAnimatedLengthList, gTypeSVGAnimatedLengthList) + (getBaseVal, getBaseValUnchecked, getAnimVal, getAnimValUnchecked, + SVGAnimatedLengthList, castToSVGAnimatedLengthList, + gTypeSVGAnimatedLengthList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,7 +22,19 @@ (MonadDOM m) => SVGAnimatedLengthList -> m (Maybe SVGLengthList) getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal) +-- | +getBaseValUnchecked :: + (MonadDOM m) => SVGAnimatedLengthList -> m SVGLengthList +getBaseValUnchecked self + = liftDOM ((self ^. js "baseVal") >>= fromJSValUnchecked) + -- | getAnimVal :: (MonadDOM m) => SVGAnimatedLengthList -> m (Maybe SVGLengthList) getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal) + +-- | +getAnimValUnchecked :: + (MonadDOM m) => SVGAnimatedLengthList -> m SVGLengthList +getAnimValUnchecked self + = liftDOM ((self ^. js "animVal") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGAnimatedNumberList.hs b/src/JSDOM/Generated/SVGAnimatedNumberList.hs --- a/src/JSDOM/Generated/SVGAnimatedNumberList.hs +++ b/src/JSDOM/Generated/SVGAnimatedNumberList.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGAnimatedNumberList - (getBaseVal, getAnimVal, SVGAnimatedNumberList, - castToSVGAnimatedNumberList, gTypeSVGAnimatedNumberList) + (getBaseVal, getBaseValUnchecked, getAnimVal, getAnimValUnchecked, + SVGAnimatedNumberList, castToSVGAnimatedNumberList, + gTypeSVGAnimatedNumberList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,7 +22,19 @@ (MonadDOM m) => SVGAnimatedNumberList -> m (Maybe SVGNumberList) getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal) +-- | +getBaseValUnchecked :: + (MonadDOM m) => SVGAnimatedNumberList -> m SVGNumberList +getBaseValUnchecked self + = liftDOM ((self ^. js "baseVal") >>= fromJSValUnchecked) + -- | getAnimVal :: (MonadDOM m) => SVGAnimatedNumberList -> m (Maybe SVGNumberList) getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal) + +-- | +getAnimValUnchecked :: + (MonadDOM m) => SVGAnimatedNumberList -> m SVGNumberList +getAnimValUnchecked self + = liftDOM ((self ^. js "animVal") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGAnimatedPreserveAspectRatio.hs b/src/JSDOM/Generated/SVGAnimatedPreserveAspectRatio.hs --- a/src/JSDOM/Generated/SVGAnimatedPreserveAspectRatio.hs +++ b/src/JSDOM/Generated/SVGAnimatedPreserveAspectRatio.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGAnimatedPreserveAspectRatio - (getBaseVal, getAnimVal, SVGAnimatedPreserveAspectRatio, + (getBaseVal, getBaseValUnchecked, getAnimVal, getAnimValUnchecked, + SVGAnimatedPreserveAspectRatio, castToSVGAnimatedPreserveAspectRatio, gTypeSVGAnimatedPreserveAspectRatio) where @@ -23,8 +24,22 @@ SVGAnimatedPreserveAspectRatio -> m (Maybe SVGPreserveAspectRatio) getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal) +-- | +getBaseValUnchecked :: + (MonadDOM m) => + SVGAnimatedPreserveAspectRatio -> m SVGPreserveAspectRatio +getBaseValUnchecked self + = liftDOM ((self ^. js "baseVal") >>= fromJSValUnchecked) + -- | getAnimVal :: (MonadDOM m) => SVGAnimatedPreserveAspectRatio -> m (Maybe SVGPreserveAspectRatio) getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal) + +-- | +getAnimValUnchecked :: + (MonadDOM m) => + SVGAnimatedPreserveAspectRatio -> m SVGPreserveAspectRatio +getAnimValUnchecked self + = liftDOM ((self ^. js "animVal") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGAnimatedRect.hs b/src/JSDOM/Generated/SVGAnimatedRect.hs --- a/src/JSDOM/Generated/SVGAnimatedRect.hs +++ b/src/JSDOM/Generated/SVGAnimatedRect.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGAnimatedRect - (getBaseVal, getAnimVal, SVGAnimatedRect, castToSVGAnimatedRect, - gTypeSVGAnimatedRect) + (getBaseVal, getBaseValUnchecked, getAnimVal, getAnimValUnchecked, + SVGAnimatedRect, castToSVGAnimatedRect, gTypeSVGAnimatedRect) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,6 +20,16 @@ getBaseVal :: (MonadDOM m) => SVGAnimatedRect -> m (Maybe SVGRect) getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal) +-- | +getBaseValUnchecked :: (MonadDOM m) => SVGAnimatedRect -> m SVGRect +getBaseValUnchecked self + = liftDOM ((self ^. js "baseVal") >>= fromJSValUnchecked) + -- | getAnimVal :: (MonadDOM m) => SVGAnimatedRect -> m (Maybe SVGRect) getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal) + +-- | +getAnimValUnchecked :: (MonadDOM m) => SVGAnimatedRect -> m SVGRect +getAnimValUnchecked self + = liftDOM ((self ^. js "animVal") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGAnimatedTransformList.hs b/src/JSDOM/Generated/SVGAnimatedTransformList.hs --- a/src/JSDOM/Generated/SVGAnimatedTransformList.hs +++ b/src/JSDOM/Generated/SVGAnimatedTransformList.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGAnimatedTransformList - (getBaseVal, getAnimVal, SVGAnimatedTransformList, - castToSVGAnimatedTransformList, gTypeSVGAnimatedTransformList) + (getBaseVal, getBaseValUnchecked, getAnimVal, getAnimValUnchecked, + SVGAnimatedTransformList, castToSVGAnimatedTransformList, + gTypeSVGAnimatedTransformList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -22,8 +23,20 @@ SVGAnimatedTransformList -> m (Maybe SVGTransformList) getBaseVal self = liftDOM ((self ^. js "baseVal") >>= fromJSVal) +-- | +getBaseValUnchecked :: + (MonadDOM m) => SVGAnimatedTransformList -> m SVGTransformList +getBaseValUnchecked self + = liftDOM ((self ^. js "baseVal") >>= fromJSValUnchecked) + -- | getAnimVal :: (MonadDOM m) => SVGAnimatedTransformList -> m (Maybe SVGTransformList) getAnimVal self = liftDOM ((self ^. js "animVal") >>= fromJSVal) + +-- | +getAnimValUnchecked :: + (MonadDOM m) => SVGAnimatedTransformList -> m SVGTransformList +getAnimValUnchecked self + = liftDOM ((self ^. js "animVal") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGAnimationElement.hs b/src/JSDOM/Generated/SVGAnimationElement.hs --- a/src/JSDOM/Generated/SVGAnimationElement.hs +++ b/src/JSDOM/Generated/SVGAnimationElement.hs @@ -1,11 +1,12 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGAnimationElement - (getStartTime, getCurrentTime, getSimpleDuration, beginElement, + (getStartTime, getStartTime_, getCurrentTime, getCurrentTime_, + getSimpleDuration, getSimpleDuration_, beginElement, beginElementAt, endElement, endElementAt, getTargetElement, - SVGAnimationElement, castToSVGAnimationElement, - gTypeSVGAnimationElement, IsSVGAnimationElement, - toSVGAnimationElement) + getTargetElementUnchecked, SVGAnimationElement, + castToSVGAnimationElement, gTypeSVGAnimationElement, + IsSVGAnimationElement, toSVGAnimationElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -28,6 +29,13 @@ (((toSVGAnimationElement self) ^. jsf "getStartTime" ()) >>= valToNumber)) +-- | +getStartTime_ :: + (MonadDOM m, IsSVGAnimationElement self) => self -> m () +getStartTime_ self + = liftDOM + (void ((toSVGAnimationElement self) ^. jsf "getStartTime" ())) + -- | getCurrentTime :: (MonadDOM m, IsSVGAnimationElement self) => self -> m Float @@ -37,6 +45,13 @@ (((toSVGAnimationElement self) ^. jsf "getCurrentTime" ()) >>= valToNumber)) +-- | +getCurrentTime_ :: + (MonadDOM m, IsSVGAnimationElement self) => self -> m () +getCurrentTime_ self + = liftDOM + (void ((toSVGAnimationElement self) ^. jsf "getCurrentTime" ())) + -- | getSimpleDuration :: (MonadDOM m, IsSVGAnimationElement self) => self -> m Float @@ -46,6 +61,13 @@ (((toSVGAnimationElement self) ^. jsf "getSimpleDuration" ()) >>= valToNumber)) +-- | +getSimpleDuration_ :: + (MonadDOM m, IsSVGAnimationElement self) => self -> m () +getSimpleDuration_ self + = liftDOM + (void ((toSVGAnimationElement self) ^. jsf "getSimpleDuration" ())) + -- | beginElement :: (MonadDOM m, IsSVGAnimationElement self) => self -> m () @@ -86,3 +108,11 @@ = liftDOM (((toSVGAnimationElement self) ^. js "targetElement") >>= fromJSVal) + +-- | +getTargetElementUnchecked :: + (MonadDOM m, IsSVGAnimationElement self) => self -> m SVGElement +getTargetElementUnchecked self + = liftDOM + (((toSVGAnimationElement self) ^. js "targetElement") >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGCircleElement.hs b/src/JSDOM/Generated/SVGCircleElement.hs --- a/src/JSDOM/Generated/SVGCircleElement.hs +++ b/src/JSDOM/Generated/SVGCircleElement.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGCircleElement - (getCx, getCy, getR, SVGCircleElement, castToSVGCircleElement, - gTypeSVGCircleElement) + (getCx, getCxUnchecked, getCy, getCyUnchecked, getR, getRUnchecked, + SVGCircleElement, castToSVGCircleElement, gTypeSVGCircleElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,12 +21,30 @@ (MonadDOM m) => SVGCircleElement -> m (Maybe SVGAnimatedLength) getCx self = liftDOM ((self ^. js "cx") >>= fromJSVal) +-- | +getCxUnchecked :: + (MonadDOM m) => SVGCircleElement -> m SVGAnimatedLength +getCxUnchecked self + = liftDOM ((self ^. js "cx") >>= fromJSValUnchecked) + -- | getCy :: (MonadDOM m) => SVGCircleElement -> m (Maybe SVGAnimatedLength) getCy self = liftDOM ((self ^. js "cy") >>= fromJSVal) +-- | +getCyUnchecked :: + (MonadDOM m) => SVGCircleElement -> m SVGAnimatedLength +getCyUnchecked self + = liftDOM ((self ^. js "cy") >>= fromJSValUnchecked) + -- | getR :: (MonadDOM m) => SVGCircleElement -> m (Maybe SVGAnimatedLength) getR self = liftDOM ((self ^. js "r") >>= fromJSVal) + +-- | +getRUnchecked :: + (MonadDOM m) => SVGCircleElement -> m SVGAnimatedLength +getRUnchecked self + = liftDOM ((self ^. js "r") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGClipPathElement.hs b/src/JSDOM/Generated/SVGClipPathElement.hs --- a/src/JSDOM/Generated/SVGClipPathElement.hs +++ b/src/JSDOM/Generated/SVGClipPathElement.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGClipPathElement - (getClipPathUnits, SVGClipPathElement, castToSVGClipPathElement, - gTypeSVGClipPathElement) + (getClipPathUnits, getClipPathUnitsUnchecked, SVGClipPathElement, + castToSVGClipPathElement, gTypeSVGClipPathElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -22,3 +22,9 @@ SVGClipPathElement -> m (Maybe SVGAnimatedEnumeration) getClipPathUnits self = liftDOM ((self ^. js "clipPathUnits") >>= fromJSVal) + +-- | +getClipPathUnitsUnchecked :: + (MonadDOM m) => SVGClipPathElement -> m SVGAnimatedEnumeration +getClipPathUnitsUnchecked self + = liftDOM ((self ^. js "clipPathUnits") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGColor.hs b/src/JSDOM/Generated/SVGColor.hs --- a/src/JSDOM/Generated/SVGColor.hs +++ b/src/JSDOM/Generated/SVGColor.hs @@ -5,7 +5,8 @@ pattern SVG_COLORTYPE_UNKNOWN, pattern SVG_COLORTYPE_RGBCOLOR, pattern SVG_COLORTYPE_RGBCOLOR_ICCCOLOR, pattern SVG_COLORTYPE_CURRENTCOLOR, getColorType, getRgbColor, - SVGColor, castToSVGColor, gTypeSVGColor, IsSVGColor, toSVGColor) + getRgbColorUnchecked, SVGColor, castToSVGColor, gTypeSVGColor, + IsSVGColor, toSVGColor) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -64,3 +65,10 @@ (MonadDOM m, IsSVGColor self) => self -> m (Maybe RGBColor) getRgbColor self = liftDOM (((toSVGColor self) ^. js "rgbColor") >>= fromJSVal) + +-- | +getRgbColorUnchecked :: + (MonadDOM m, IsSVGColor self) => self -> m RGBColor +getRgbColorUnchecked self + = liftDOM + (((toSVGColor self) ^. js "rgbColor") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGComponentTransferFunctionElement.hs b/src/JSDOM/Generated/SVGComponentTransferFunctionElement.hs --- a/src/JSDOM/Generated/SVGComponentTransferFunctionElement.hs +++ b/src/JSDOM/Generated/SVGComponentTransferFunctionElement.hs @@ -7,8 +7,11 @@ pattern SVG_FECOMPONENTTRANSFER_TYPE_DISCRETE, pattern SVG_FECOMPONENTTRANSFER_TYPE_LINEAR, pattern SVG_FECOMPONENTTRANSFER_TYPE_GAMMA, getType, - getTableValues, getSlope, getIntercept, getAmplitude, getExponent, - getOffset, SVGComponentTransferFunctionElement, + getTypeUnchecked, getTableValues, getTableValuesUnchecked, + getSlope, getSlopeUnchecked, getIntercept, getInterceptUnchecked, + getAmplitude, getAmplitudeUnchecked, getExponent, + getExponentUnchecked, getOffset, getOffsetUnchecked, + SVGComponentTransferFunctionElement, castToSVGComponentTransferFunctionElement, gTypeSVGComponentTransferFunctionElement, IsSVGComponentTransferFunctionElement, @@ -41,6 +44,15 @@ (((toSVGComponentTransferFunctionElement self) ^. js "type") >>= fromJSVal) +-- | +getTypeUnchecked :: + (MonadDOM m, IsSVGComponentTransferFunctionElement self) => + self -> m SVGAnimatedEnumeration +getTypeUnchecked self + = liftDOM + (((toSVGComponentTransferFunctionElement self) ^. js "type") >>= + fromJSValUnchecked) + -- | getTableValues :: (MonadDOM m, IsSVGComponentTransferFunctionElement self) => @@ -50,6 +62,15 @@ (((toSVGComponentTransferFunctionElement self) ^. js "tableValues") >>= fromJSVal) +-- | +getTableValuesUnchecked :: + (MonadDOM m, IsSVGComponentTransferFunctionElement self) => + self -> m SVGAnimatedNumberList +getTableValuesUnchecked self + = liftDOM + (((toSVGComponentTransferFunctionElement self) ^. js "tableValues") + >>= fromJSValUnchecked) + -- | getSlope :: (MonadDOM m, IsSVGComponentTransferFunctionElement self) => @@ -59,6 +80,15 @@ (((toSVGComponentTransferFunctionElement self) ^. js "slope") >>= fromJSVal) +-- | +getSlopeUnchecked :: + (MonadDOM m, IsSVGComponentTransferFunctionElement self) => + self -> m SVGAnimatedNumber +getSlopeUnchecked self + = liftDOM + (((toSVGComponentTransferFunctionElement self) ^. js "slope") >>= + fromJSValUnchecked) + -- | getIntercept :: (MonadDOM m, IsSVGComponentTransferFunctionElement self) => @@ -68,6 +98,15 @@ (((toSVGComponentTransferFunctionElement self) ^. js "intercept") >>= fromJSVal) +-- | +getInterceptUnchecked :: + (MonadDOM m, IsSVGComponentTransferFunctionElement self) => + self -> m SVGAnimatedNumber +getInterceptUnchecked self + = liftDOM + (((toSVGComponentTransferFunctionElement self) ^. js "intercept") + >>= fromJSValUnchecked) + -- | getAmplitude :: (MonadDOM m, IsSVGComponentTransferFunctionElement self) => @@ -77,6 +116,15 @@ (((toSVGComponentTransferFunctionElement self) ^. js "amplitude") >>= fromJSVal) +-- | +getAmplitudeUnchecked :: + (MonadDOM m, IsSVGComponentTransferFunctionElement self) => + self -> m SVGAnimatedNumber +getAmplitudeUnchecked self + = liftDOM + (((toSVGComponentTransferFunctionElement self) ^. js "amplitude") + >>= fromJSValUnchecked) + -- | getExponent :: (MonadDOM m, IsSVGComponentTransferFunctionElement self) => @@ -86,6 +134,15 @@ (((toSVGComponentTransferFunctionElement self) ^. js "exponent") >>= fromJSVal) +-- | +getExponentUnchecked :: + (MonadDOM m, IsSVGComponentTransferFunctionElement self) => + self -> m SVGAnimatedNumber +getExponentUnchecked self + = liftDOM + (((toSVGComponentTransferFunctionElement self) ^. js "exponent") + >>= fromJSValUnchecked) + -- | getOffset :: (MonadDOM m, IsSVGComponentTransferFunctionElement self) => @@ -94,3 +151,12 @@ = liftDOM (((toSVGComponentTransferFunctionElement self) ^. js "offset") >>= fromJSVal) + +-- | +getOffsetUnchecked :: + (MonadDOM m, IsSVGComponentTransferFunctionElement self) => + self -> m SVGAnimatedNumber +getOffsetUnchecked self + = liftDOM + (((toSVGComponentTransferFunctionElement self) ^. js "offset") >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGCursorElement.hs b/src/JSDOM/Generated/SVGCursorElement.hs --- a/src/JSDOM/Generated/SVGCursorElement.hs +++ b/src/JSDOM/Generated/SVGCursorElement.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGCursorElement - (getX, getY, SVGCursorElement, castToSVGCursorElement, - gTypeSVGCursorElement) + (getX, getXUnchecked, getY, getYUnchecked, SVGCursorElement, + castToSVGCursorElement, gTypeSVGCursorElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,7 +21,19 @@ (MonadDOM m) => SVGCursorElement -> m (Maybe SVGAnimatedLength) getX self = liftDOM ((self ^. js "x") >>= fromJSVal) +-- | +getXUnchecked :: + (MonadDOM m) => SVGCursorElement -> m SVGAnimatedLength +getXUnchecked self + = liftDOM ((self ^. js "x") >>= fromJSValUnchecked) + -- | getY :: (MonadDOM m) => SVGCursorElement -> m (Maybe SVGAnimatedLength) getY self = liftDOM ((self ^. js "y") >>= fromJSVal) + +-- | +getYUnchecked :: + (MonadDOM m) => SVGCursorElement -> m SVGAnimatedLength +getYUnchecked self + = liftDOM ((self ^. js "y") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGDocument.hs b/src/JSDOM/Generated/SVGDocument.hs --- a/src/JSDOM/Generated/SVGDocument.hs +++ b/src/JSDOM/Generated/SVGDocument.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGDocument - (createEvent, getRootElement, SVGDocument, castToSVGDocument, + (createEvent, createEvent_, createEventUnchecked, getRootElement, + getRootElementUnchecked, SVGDocument, castToSVGDocument, gTypeSVGDocument) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -24,8 +25,30 @@ = liftDOM ((self ^. jsf "createEvent" [toJSVal eventType]) >>= fromJSVal) +-- | +createEvent_ :: + (MonadDOM m, ToJSString eventType) => + SVGDocument -> eventType -> m () +createEvent_ self eventType + = liftDOM (void (self ^. jsf "createEvent" [toJSVal eventType])) + +-- | +createEventUnchecked :: + (MonadDOM m, ToJSString eventType) => + SVGDocument -> eventType -> m Event +createEventUnchecked self eventType + = liftDOM + ((self ^. jsf "createEvent" [toJSVal eventType]) >>= + fromJSValUnchecked) + -- | getRootElement :: (MonadDOM m) => SVGDocument -> m (Maybe SVGSVGElement) getRootElement self = liftDOM ((self ^. js "rootElement") >>= fromJSVal) + +-- | +getRootElementUnchecked :: + (MonadDOM m) => SVGDocument -> m SVGSVGElement +getRootElementUnchecked self + = liftDOM ((self ^. js "rootElement") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGElement.hs b/src/JSDOM/Generated/SVGElement.hs --- a/src/JSDOM/Generated/SVGElement.hs +++ b/src/JSDOM/Generated/SVGElement.hs @@ -1,11 +1,14 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGElement - (getPresentationAttribute, setXmlbase, getXmlbase, - getOwnerSVGElement, getViewportElement, setXmllang, getXmllang, - setXmlspace, getXmlspace, getClassName, getStyle, setTabIndex, - getTabIndex, SVGElement, castToSVGElement, gTypeSVGElement, - IsSVGElement, toSVGElement) + (getPresentationAttribute, getPresentationAttribute_, + getPresentationAttributeUnchecked, setXmlbase, getXmlbase, + getXmlbaseUnchecked, getOwnerSVGElement, + getOwnerSVGElementUnchecked, getViewportElement, + getViewportElementUnchecked, setXmllang, getXmllang, setXmlspace, + getXmlspace, getClassName, getClassNameUnchecked, getStyle, + getStyleUnchecked, setTabIndex, getTabIndex, SVGElement, + castToSVGElement, gTypeSVGElement, IsSVGElement, toSVGElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -29,6 +32,26 @@ [toJSVal name]) >>= fromJSVal) +-- | +getPresentationAttribute_ :: + (MonadDOM m, IsSVGElement self, ToJSString name) => + self -> name -> m () +getPresentationAttribute_ self name + = liftDOM + (void + ((toSVGElement self) ^. jsf "getPresentationAttribute" + [toJSVal name])) + +-- | +getPresentationAttributeUnchecked :: + (MonadDOM m, IsSVGElement self, ToJSString name) => + self -> name -> m CSSValue +getPresentationAttributeUnchecked self name + = liftDOM + (((toSVGElement self) ^. jsf "getPresentationAttribute" + [toJSVal name]) + >>= fromJSValUnchecked) + -- | setXmlbase :: (MonadDOM m, IsSVGElement self, ToJSString val) => @@ -44,6 +67,14 @@ = liftDOM (((toSVGElement self) ^. js "xmlbase") >>= fromMaybeJSString) +-- | +getXmlbaseUnchecked :: + (MonadDOM m, IsSVGElement self, FromJSString result) => + self -> m result +getXmlbaseUnchecked self + = liftDOM + (((toSVGElement self) ^. js "xmlbase") >>= fromJSValUnchecked) + -- | getOwnerSVGElement :: (MonadDOM m, IsSVGElement self) => self -> m (Maybe SVGSVGElement) @@ -51,6 +82,14 @@ = liftDOM (((toSVGElement self) ^. js "ownerSVGElement") >>= fromJSVal) +-- | +getOwnerSVGElementUnchecked :: + (MonadDOM m, IsSVGElement self) => self -> m SVGSVGElement +getOwnerSVGElementUnchecked self + = liftDOM + (((toSVGElement self) ^. js "ownerSVGElement") >>= + fromJSValUnchecked) + -- | getViewportElement :: (MonadDOM m, IsSVGElement self) => self -> m (Maybe SVGElement) @@ -58,6 +97,14 @@ = liftDOM (((toSVGElement self) ^. js "viewportElement") >>= fromJSVal) +-- | +getViewportElementUnchecked :: + (MonadDOM m, IsSVGElement self) => self -> m SVGElement +getViewportElementUnchecked self + = liftDOM + (((toSVGElement self) ^. js "viewportElement") >>= + fromJSValUnchecked) + -- | setXmllang :: (MonadDOM m, IsSVGElement self, ToJSString val) => @@ -95,12 +142,26 @@ getClassName self = liftDOM (((toSVGElement self) ^. js "className") >>= fromJSVal) +-- | +getClassNameUnchecked :: + (MonadDOM m, IsSVGElement self) => self -> m SVGAnimatedString +getClassNameUnchecked self + = liftDOM + (((toSVGElement self) ^. js "className") >>= fromJSValUnchecked) + -- | getStyle :: (MonadDOM m, IsSVGElement self) => self -> m (Maybe CSSStyleDeclaration) getStyle self = liftDOM (((toSVGElement self) ^. js "style") >>= fromJSVal) + +-- | +getStyleUnchecked :: + (MonadDOM m, IsSVGElement self) => self -> m CSSStyleDeclaration +getStyleUnchecked self + = liftDOM + (((toSVGElement self) ^. js "style") >>= fromJSValUnchecked) -- | setTabIndex :: diff --git a/src/JSDOM/Generated/SVGEllipseElement.hs b/src/JSDOM/Generated/SVGEllipseElement.hs --- a/src/JSDOM/Generated/SVGEllipseElement.hs +++ b/src/JSDOM/Generated/SVGEllipseElement.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGEllipseElement - (getCx, getCy, getRx, getRy, SVGEllipseElement, + (getCx, getCxUnchecked, getCy, getCyUnchecked, getRx, + getRxUnchecked, getRy, getRyUnchecked, SVGEllipseElement, castToSVGEllipseElement, gTypeSVGEllipseElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -21,17 +22,41 @@ (MonadDOM m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength) getCx self = liftDOM ((self ^. js "cx") >>= fromJSVal) +-- | +getCxUnchecked :: + (MonadDOM m) => SVGEllipseElement -> m SVGAnimatedLength +getCxUnchecked self + = liftDOM ((self ^. js "cx") >>= fromJSValUnchecked) + -- | getCy :: (MonadDOM m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength) getCy self = liftDOM ((self ^. js "cy") >>= fromJSVal) +-- | +getCyUnchecked :: + (MonadDOM m) => SVGEllipseElement -> m SVGAnimatedLength +getCyUnchecked self + = liftDOM ((self ^. js "cy") >>= fromJSValUnchecked) + -- | getRx :: (MonadDOM m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength) getRx self = liftDOM ((self ^. js "rx") >>= fromJSVal) +-- | +getRxUnchecked :: + (MonadDOM m) => SVGEllipseElement -> m SVGAnimatedLength +getRxUnchecked self + = liftDOM ((self ^. js "rx") >>= fromJSValUnchecked) + -- | getRy :: (MonadDOM m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength) getRy self = liftDOM ((self ^. js "ry") >>= fromJSVal) + +-- | +getRyUnchecked :: + (MonadDOM m) => SVGEllipseElement -> m SVGAnimatedLength +getRyUnchecked self + = liftDOM ((self ^. js "ry") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGExternalResourcesRequired.hs b/src/JSDOM/Generated/SVGExternalResourcesRequired.hs --- a/src/JSDOM/Generated/SVGExternalResourcesRequired.hs +++ b/src/JSDOM/Generated/SVGExternalResourcesRequired.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGExternalResourcesRequired - (getExternalResourcesRequired, SVGExternalResourcesRequired, - castToSVGExternalResourcesRequired, + (getExternalResourcesRequired, + getExternalResourcesRequiredUnchecked, + SVGExternalResourcesRequired, castToSVGExternalResourcesRequired, gTypeSVGExternalResourcesRequired) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -23,3 +24,11 @@ SVGExternalResourcesRequired -> m (Maybe SVGAnimatedBoolean) getExternalResourcesRequired self = liftDOM ((self ^. js "externalResourcesRequired") >>= fromJSVal) + +-- | +getExternalResourcesRequiredUnchecked :: + (MonadDOM m) => + SVGExternalResourcesRequired -> m SVGAnimatedBoolean +getExternalResourcesRequiredUnchecked self + = liftDOM + ((self ^. js "externalResourcesRequired") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFEBlendElement.hs b/src/JSDOM/Generated/SVGFEBlendElement.hs --- a/src/JSDOM/Generated/SVGFEBlendElement.hs +++ b/src/JSDOM/Generated/SVGFEBlendElement.hs @@ -4,8 +4,9 @@ (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, - getIn1, getIn2, getMode, SVGFEBlendElement, - castToSVGFEBlendElement, gTypeSVGFEBlendElement) + getIn1, getIn1Unchecked, getIn2, getIn2Unchecked, getMode, + getModeUnchecked, SVGFEBlendElement, castToSVGFEBlendElement, + gTypeSVGFEBlendElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -30,13 +31,31 @@ (MonadDOM m) => SVGFEBlendElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) +-- | +getIn1Unchecked :: + (MonadDOM m) => SVGFEBlendElement -> m SVGAnimatedString +getIn1Unchecked self + = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) + -- | getIn2 :: (MonadDOM m) => SVGFEBlendElement -> m (Maybe SVGAnimatedString) getIn2 self = liftDOM ((self ^. js "in2") >>= fromJSVal) +-- | +getIn2Unchecked :: + (MonadDOM m) => SVGFEBlendElement -> m SVGAnimatedString +getIn2Unchecked self + = liftDOM ((self ^. js "in2") >>= fromJSValUnchecked) + -- | getMode :: (MonadDOM m) => SVGFEBlendElement -> m (Maybe SVGAnimatedEnumeration) getMode self = liftDOM ((self ^. js "mode") >>= fromJSVal) + +-- | +getModeUnchecked :: + (MonadDOM m) => SVGFEBlendElement -> m SVGAnimatedEnumeration +getModeUnchecked self + = liftDOM ((self ^. js "mode") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFEColorMatrixElement.hs b/src/JSDOM/Generated/SVGFEColorMatrixElement.hs --- a/src/JSDOM/Generated/SVGFEColorMatrixElement.hs +++ b/src/JSDOM/Generated/SVGFEColorMatrixElement.hs @@ -5,9 +5,10 @@ pattern SVG_FECOLORMATRIX_TYPE_MATRIX, pattern SVG_FECOLORMATRIX_TYPE_SATURATE, pattern SVG_FECOLORMATRIX_TYPE_HUEROTATE, - pattern SVG_FECOLORMATRIX_TYPE_LUMINANCETOALPHA, getIn1, getType, - getValues, SVGFEColorMatrixElement, castToSVGFEColorMatrixElement, - gTypeSVGFEColorMatrixElement) + pattern SVG_FECOLORMATRIX_TYPE_LUMINANCETOALPHA, getIn1, + getIn1Unchecked, getType, getTypeUnchecked, getValues, + getValuesUnchecked, SVGFEColorMatrixElement, + castToSVGFEColorMatrixElement, gTypeSVGFEColorMatrixElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -32,14 +33,32 @@ SVGFEColorMatrixElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) +-- | +getIn1Unchecked :: + (MonadDOM m) => SVGFEColorMatrixElement -> m SVGAnimatedString +getIn1Unchecked self + = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) + -- | getType :: (MonadDOM m) => SVGFEColorMatrixElement -> m (Maybe SVGAnimatedEnumeration) getType self = liftDOM ((self ^. js "type") >>= fromJSVal) +-- | +getTypeUnchecked :: + (MonadDOM m) => SVGFEColorMatrixElement -> m SVGAnimatedEnumeration +getTypeUnchecked self + = liftDOM ((self ^. js "type") >>= fromJSValUnchecked) + -- | getValues :: (MonadDOM m) => SVGFEColorMatrixElement -> m (Maybe SVGAnimatedNumberList) getValues self = liftDOM ((self ^. js "values") >>= fromJSVal) + +-- | +getValuesUnchecked :: + (MonadDOM m) => SVGFEColorMatrixElement -> m SVGAnimatedNumberList +getValuesUnchecked self + = liftDOM ((self ^. js "values") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFEComponentTransferElement.hs b/src/JSDOM/Generated/SVGFEComponentTransferElement.hs --- a/src/JSDOM/Generated/SVGFEComponentTransferElement.hs +++ b/src/JSDOM/Generated/SVGFEComponentTransferElement.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFEComponentTransferElement - (getIn1, SVGFEComponentTransferElement, + (getIn1, getIn1Unchecked, SVGFEComponentTransferElement, castToSVGFEComponentTransferElement, gTypeSVGFEComponentTransferElement) where @@ -22,3 +22,10 @@ (MonadDOM m) => SVGFEComponentTransferElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) + +-- | +getIn1Unchecked :: + (MonadDOM m) => + SVGFEComponentTransferElement -> m SVGAnimatedString +getIn1Unchecked self + = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFECompositeElement.hs b/src/JSDOM/Generated/SVGFECompositeElement.hs --- a/src/JSDOM/Generated/SVGFECompositeElement.hs +++ b/src/JSDOM/Generated/SVGFECompositeElement.hs @@ -7,9 +7,12 @@ pattern SVG_FECOMPOSITE_OPERATOR_OUT, pattern SVG_FECOMPOSITE_OPERATOR_ATOP, pattern SVG_FECOMPOSITE_OPERATOR_XOR, - pattern SVG_FECOMPOSITE_OPERATOR_ARITHMETIC, getIn1, getIn2, - getOperator, getK1, getK2, getK3, getK4, SVGFECompositeElement, - castToSVGFECompositeElement, gTypeSVGFECompositeElement) + pattern SVG_FECOMPOSITE_OPERATOR_ARITHMETIC, getIn1, + getIn1Unchecked, getIn2, getIn2Unchecked, getOperator, + getOperatorUnchecked, getK1, getK1Unchecked, getK2, getK2Unchecked, + getK3, getK3Unchecked, getK4, getK4Unchecked, + SVGFECompositeElement, castToSVGFECompositeElement, + gTypeSVGFECompositeElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -36,38 +39,80 @@ SVGFECompositeElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) +-- | +getIn1Unchecked :: + (MonadDOM m) => SVGFECompositeElement -> m SVGAnimatedString +getIn1Unchecked self + = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) + -- | getIn2 :: (MonadDOM m) => SVGFECompositeElement -> m (Maybe SVGAnimatedString) getIn2 self = liftDOM ((self ^. js "in2") >>= fromJSVal) +-- | +getIn2Unchecked :: + (MonadDOM m) => SVGFECompositeElement -> m SVGAnimatedString +getIn2Unchecked self + = liftDOM ((self ^. js "in2") >>= fromJSValUnchecked) + -- | getOperator :: (MonadDOM m) => SVGFECompositeElement -> m (Maybe SVGAnimatedEnumeration) getOperator self = liftDOM ((self ^. js "operator") >>= fromJSVal) +-- | +getOperatorUnchecked :: + (MonadDOM m) => SVGFECompositeElement -> m SVGAnimatedEnumeration +getOperatorUnchecked self + = liftDOM ((self ^. js "operator") >>= fromJSValUnchecked) + -- | getK1 :: (MonadDOM m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber) getK1 self = liftDOM ((self ^. js "k1") >>= fromJSVal) +-- | +getK1Unchecked :: + (MonadDOM m) => SVGFECompositeElement -> m SVGAnimatedNumber +getK1Unchecked self + = liftDOM ((self ^. js "k1") >>= fromJSValUnchecked) + -- | getK2 :: (MonadDOM m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber) getK2 self = liftDOM ((self ^. js "k2") >>= fromJSVal) +-- | +getK2Unchecked :: + (MonadDOM m) => SVGFECompositeElement -> m SVGAnimatedNumber +getK2Unchecked self + = liftDOM ((self ^. js "k2") >>= fromJSValUnchecked) + -- | getK3 :: (MonadDOM m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber) getK3 self = liftDOM ((self ^. js "k3") >>= fromJSVal) +-- | +getK3Unchecked :: + (MonadDOM m) => SVGFECompositeElement -> m SVGAnimatedNumber +getK3Unchecked self + = liftDOM ((self ^. js "k3") >>= fromJSValUnchecked) + -- | getK4 :: (MonadDOM m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber) getK4 self = liftDOM ((self ^. js "k4") >>= fromJSVal) + +-- | +getK4Unchecked :: + (MonadDOM m) => SVGFECompositeElement -> m SVGAnimatedNumber +getK4Unchecked self + = liftDOM ((self ^. js "k4") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFEConvolveMatrixElement.hs b/src/JSDOM/Generated/SVGFEConvolveMatrixElement.hs --- a/src/JSDOM/Generated/SVGFEConvolveMatrixElement.hs +++ b/src/JSDOM/Generated/SVGFEConvolveMatrixElement.hs @@ -3,9 +3,14 @@ module JSDOM.Generated.SVGFEConvolveMatrixElement (pattern SVG_EDGEMODE_UNKNOWN, pattern SVG_EDGEMODE_DUPLICATE, pattern SVG_EDGEMODE_WRAP, pattern SVG_EDGEMODE_NONE, getIn1, - getOrderX, getOrderY, getKernelMatrix, getDivisor, getBias, - getTargetX, getTargetY, getEdgeMode, getKernelUnitLengthX, - getKernelUnitLengthY, getPreserveAlpha, SVGFEConvolveMatrixElement, + getIn1Unchecked, getOrderX, getOrderXUnchecked, getOrderY, + getOrderYUnchecked, getKernelMatrix, getKernelMatrixUnchecked, + getDivisor, getDivisorUnchecked, getBias, getBiasUnchecked, + getTargetX, getTargetXUnchecked, getTargetY, getTargetYUnchecked, + getEdgeMode, getEdgeModeUnchecked, getKernelUnitLengthX, + getKernelUnitLengthXUnchecked, getKernelUnitLengthY, + getKernelUnitLengthYUnchecked, getPreserveAlpha, + getPreserveAlphaUnchecked, SVGFEConvolveMatrixElement, castToSVGFEConvolveMatrixElement, gTypeSVGFEConvolveMatrixElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -30,18 +35,36 @@ SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) +-- | +getIn1Unchecked :: + (MonadDOM m) => SVGFEConvolveMatrixElement -> m SVGAnimatedString +getIn1Unchecked self + = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) + -- | getOrderX :: (MonadDOM m) => SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger) getOrderX self = liftDOM ((self ^. js "orderX") >>= fromJSVal) +-- | +getOrderXUnchecked :: + (MonadDOM m) => SVGFEConvolveMatrixElement -> m SVGAnimatedInteger +getOrderXUnchecked self + = liftDOM ((self ^. js "orderX") >>= fromJSValUnchecked) + -- | getOrderY :: (MonadDOM m) => SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger) getOrderY self = liftDOM ((self ^. js "orderY") >>= fromJSVal) +-- | +getOrderYUnchecked :: + (MonadDOM m) => SVGFEConvolveMatrixElement -> m SVGAnimatedInteger +getOrderYUnchecked self + = liftDOM ((self ^. js "orderY") >>= fromJSValUnchecked) + -- | getKernelMatrix :: (MonadDOM m) => @@ -49,36 +72,74 @@ getKernelMatrix self = liftDOM ((self ^. js "kernelMatrix") >>= fromJSVal) +-- | +getKernelMatrixUnchecked :: + (MonadDOM m) => + SVGFEConvolveMatrixElement -> m SVGAnimatedNumberList +getKernelMatrixUnchecked self + = liftDOM ((self ^. js "kernelMatrix") >>= fromJSValUnchecked) + -- | getDivisor :: (MonadDOM m) => SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber) getDivisor self = liftDOM ((self ^. js "divisor") >>= fromJSVal) +-- | +getDivisorUnchecked :: + (MonadDOM m) => SVGFEConvolveMatrixElement -> m SVGAnimatedNumber +getDivisorUnchecked self + = liftDOM ((self ^. js "divisor") >>= fromJSValUnchecked) + -- | getBias :: (MonadDOM m) => SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber) getBias self = liftDOM ((self ^. js "bias") >>= fromJSVal) +-- | +getBiasUnchecked :: + (MonadDOM m) => SVGFEConvolveMatrixElement -> m SVGAnimatedNumber +getBiasUnchecked self + = liftDOM ((self ^. js "bias") >>= fromJSValUnchecked) + -- | getTargetX :: (MonadDOM m) => SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger) getTargetX self = liftDOM ((self ^. js "targetX") >>= fromJSVal) +-- | +getTargetXUnchecked :: + (MonadDOM m) => SVGFEConvolveMatrixElement -> m SVGAnimatedInteger +getTargetXUnchecked self + = liftDOM ((self ^. js "targetX") >>= fromJSValUnchecked) + -- | getTargetY :: (MonadDOM m) => SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger) getTargetY self = liftDOM ((self ^. js "targetY") >>= fromJSVal) +-- | +getTargetYUnchecked :: + (MonadDOM m) => SVGFEConvolveMatrixElement -> m SVGAnimatedInteger +getTargetYUnchecked self + = liftDOM ((self ^. js "targetY") >>= fromJSValUnchecked) + -- | getEdgeMode :: (MonadDOM m) => SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedEnumeration) getEdgeMode self = liftDOM ((self ^. js "edgeMode") >>= fromJSVal) +-- | +getEdgeModeUnchecked :: + (MonadDOM m) => + SVGFEConvolveMatrixElement -> m SVGAnimatedEnumeration +getEdgeModeUnchecked self + = liftDOM ((self ^. js "edgeMode") >>= fromJSValUnchecked) + -- | getKernelUnitLengthX :: (MonadDOM m) => @@ -86,6 +147,12 @@ getKernelUnitLengthX self = liftDOM ((self ^. js "kernelUnitLengthX") >>= fromJSVal) +-- | +getKernelUnitLengthXUnchecked :: + (MonadDOM m) => SVGFEConvolveMatrixElement -> m SVGAnimatedNumber +getKernelUnitLengthXUnchecked self + = liftDOM ((self ^. js "kernelUnitLengthX") >>= fromJSValUnchecked) + -- | getKernelUnitLengthY :: (MonadDOM m) => @@ -93,9 +160,21 @@ getKernelUnitLengthY self = liftDOM ((self ^. js "kernelUnitLengthY") >>= fromJSVal) +-- | +getKernelUnitLengthYUnchecked :: + (MonadDOM m) => SVGFEConvolveMatrixElement -> m SVGAnimatedNumber +getKernelUnitLengthYUnchecked self + = liftDOM ((self ^. js "kernelUnitLengthY") >>= fromJSValUnchecked) + -- | getPreserveAlpha :: (MonadDOM m) => SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedBoolean) getPreserveAlpha self = liftDOM ((self ^. js "preserveAlpha") >>= fromJSVal) + +-- | +getPreserveAlphaUnchecked :: + (MonadDOM m) => SVGFEConvolveMatrixElement -> m SVGAnimatedBoolean +getPreserveAlphaUnchecked self + = liftDOM ((self ^. js "preserveAlpha") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFEDiffuseLightingElement.hs b/src/JSDOM/Generated/SVGFEDiffuseLightingElement.hs --- a/src/JSDOM/Generated/SVGFEDiffuseLightingElement.hs +++ b/src/JSDOM/Generated/SVGFEDiffuseLightingElement.hs @@ -1,8 +1,11 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFEDiffuseLightingElement - (getIn1, getSurfaceScale, getDiffuseConstant, getKernelUnitLengthX, - getKernelUnitLengthY, SVGFEDiffuseLightingElement, + (getIn1, getIn1Unchecked, getSurfaceScale, + getSurfaceScaleUnchecked, getDiffuseConstant, + getDiffuseConstantUnchecked, getKernelUnitLengthX, + getKernelUnitLengthXUnchecked, getKernelUnitLengthY, + getKernelUnitLengthYUnchecked, SVGFEDiffuseLightingElement, castToSVGFEDiffuseLightingElement, gTypeSVGFEDiffuseLightingElement) where @@ -24,6 +27,12 @@ SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) +-- | +getIn1Unchecked :: + (MonadDOM m) => SVGFEDiffuseLightingElement -> m SVGAnimatedString +getIn1Unchecked self + = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) + -- | getSurfaceScale :: (MonadDOM m) => @@ -31,6 +40,12 @@ getSurfaceScale self = liftDOM ((self ^. js "surfaceScale") >>= fromJSVal) +-- | +getSurfaceScaleUnchecked :: + (MonadDOM m) => SVGFEDiffuseLightingElement -> m SVGAnimatedNumber +getSurfaceScaleUnchecked self + = liftDOM ((self ^. js "surfaceScale") >>= fromJSValUnchecked) + -- | getDiffuseConstant :: (MonadDOM m) => @@ -38,6 +53,12 @@ getDiffuseConstant self = liftDOM ((self ^. js "diffuseConstant") >>= fromJSVal) +-- | +getDiffuseConstantUnchecked :: + (MonadDOM m) => SVGFEDiffuseLightingElement -> m SVGAnimatedNumber +getDiffuseConstantUnchecked self + = liftDOM ((self ^. js "diffuseConstant") >>= fromJSValUnchecked) + -- | getKernelUnitLengthX :: (MonadDOM m) => @@ -45,9 +66,21 @@ getKernelUnitLengthX self = liftDOM ((self ^. js "kernelUnitLengthX") >>= fromJSVal) +-- | +getKernelUnitLengthXUnchecked :: + (MonadDOM m) => SVGFEDiffuseLightingElement -> m SVGAnimatedNumber +getKernelUnitLengthXUnchecked self + = liftDOM ((self ^. js "kernelUnitLengthX") >>= fromJSValUnchecked) + -- | getKernelUnitLengthY :: (MonadDOM m) => SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber) getKernelUnitLengthY self = liftDOM ((self ^. js "kernelUnitLengthY") >>= fromJSVal) + +-- | +getKernelUnitLengthYUnchecked :: + (MonadDOM m) => SVGFEDiffuseLightingElement -> m SVGAnimatedNumber +getKernelUnitLengthYUnchecked self + = liftDOM ((self ^. js "kernelUnitLengthY") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFEDisplacementMapElement.hs b/src/JSDOM/Generated/SVGFEDisplacementMapElement.hs --- a/src/JSDOM/Generated/SVGFEDisplacementMapElement.hs +++ b/src/JSDOM/Generated/SVGFEDisplacementMapElement.hs @@ -3,9 +3,11 @@ module JSDOM.Generated.SVGFEDisplacementMapElement (pattern SVG_CHANNEL_UNKNOWN, pattern SVG_CHANNEL_R, pattern SVG_CHANNEL_G, pattern SVG_CHANNEL_B, - pattern SVG_CHANNEL_A, getIn1, getIn2, getScale, - getXChannelSelector, getYChannelSelector, - SVGFEDisplacementMapElement, castToSVGFEDisplacementMapElement, + pattern SVG_CHANNEL_A, getIn1, getIn1Unchecked, getIn2, + getIn2Unchecked, getScale, getScaleUnchecked, getXChannelSelector, + getXChannelSelectorUnchecked, getYChannelSelector, + getYChannelSelectorUnchecked, SVGFEDisplacementMapElement, + castToSVGFEDisplacementMapElement, gTypeSVGFEDisplacementMapElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -31,18 +33,36 @@ SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) +-- | +getIn1Unchecked :: + (MonadDOM m) => SVGFEDisplacementMapElement -> m SVGAnimatedString +getIn1Unchecked self + = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) + -- | getIn2 :: (MonadDOM m) => SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedString) getIn2 self = liftDOM ((self ^. js "in2") >>= fromJSVal) +-- | +getIn2Unchecked :: + (MonadDOM m) => SVGFEDisplacementMapElement -> m SVGAnimatedString +getIn2Unchecked self + = liftDOM ((self ^. js "in2") >>= fromJSValUnchecked) + -- | getScale :: (MonadDOM m) => SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedNumber) getScale self = liftDOM ((self ^. js "scale") >>= fromJSVal) +-- | +getScaleUnchecked :: + (MonadDOM m) => SVGFEDisplacementMapElement -> m SVGAnimatedNumber +getScaleUnchecked self + = liftDOM ((self ^. js "scale") >>= fromJSValUnchecked) + -- | getXChannelSelector :: (MonadDOM m) => @@ -50,9 +70,23 @@ getXChannelSelector self = liftDOM ((self ^. js "xChannelSelector") >>= fromJSVal) +-- | +getXChannelSelectorUnchecked :: + (MonadDOM m) => + SVGFEDisplacementMapElement -> m SVGAnimatedEnumeration +getXChannelSelectorUnchecked self + = liftDOM ((self ^. js "xChannelSelector") >>= fromJSValUnchecked) + -- | getYChannelSelector :: (MonadDOM m) => SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedEnumeration) getYChannelSelector self = liftDOM ((self ^. js "yChannelSelector") >>= fromJSVal) + +-- | +getYChannelSelectorUnchecked :: + (MonadDOM m) => + SVGFEDisplacementMapElement -> m SVGAnimatedEnumeration +getYChannelSelectorUnchecked self + = liftDOM ((self ^. js "yChannelSelector") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFEDistantLightElement.hs b/src/JSDOM/Generated/SVGFEDistantLightElement.hs --- a/src/JSDOM/Generated/SVGFEDistantLightElement.hs +++ b/src/JSDOM/Generated/SVGFEDistantLightElement.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFEDistantLightElement - (getAzimuth, getElevation, SVGFEDistantLightElement, + (getAzimuth, getAzimuthUnchecked, getElevation, + getElevationUnchecked, SVGFEDistantLightElement, castToSVGFEDistantLightElement, gTypeSVGFEDistantLightElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -22,9 +23,21 @@ SVGFEDistantLightElement -> m (Maybe SVGAnimatedNumber) getAzimuth self = liftDOM ((self ^. js "azimuth") >>= fromJSVal) +-- | +getAzimuthUnchecked :: + (MonadDOM m) => SVGFEDistantLightElement -> m SVGAnimatedNumber +getAzimuthUnchecked self + = liftDOM ((self ^. js "azimuth") >>= fromJSValUnchecked) + -- | getElevation :: (MonadDOM m) => SVGFEDistantLightElement -> m (Maybe SVGAnimatedNumber) getElevation self = liftDOM ((self ^. js "elevation") >>= fromJSVal) + +-- | +getElevationUnchecked :: + (MonadDOM m) => SVGFEDistantLightElement -> m SVGAnimatedNumber +getElevationUnchecked self + = liftDOM ((self ^. js "elevation") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFEDropShadowElement.hs b/src/JSDOM/Generated/SVGFEDropShadowElement.hs --- a/src/JSDOM/Generated/SVGFEDropShadowElement.hs +++ b/src/JSDOM/Generated/SVGFEDropShadowElement.hs @@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFEDropShadowElement - (setStdDeviation, getIn1, getDx, getDy, getStdDeviationX, - getStdDeviationY, SVGFEDropShadowElement, - castToSVGFEDropShadowElement, gTypeSVGFEDropShadowElement) + (setStdDeviation, getIn1, getIn1Unchecked, getDx, getDxUnchecked, + getDy, getDyUnchecked, getStdDeviationX, getStdDeviationXUnchecked, + getStdDeviationY, getStdDeviationYUnchecked, + SVGFEDropShadowElement, castToSVGFEDropShadowElement, + gTypeSVGFEDropShadowElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -32,18 +34,36 @@ SVGFEDropShadowElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) +-- | +getIn1Unchecked :: + (MonadDOM m) => SVGFEDropShadowElement -> m SVGAnimatedString +getIn1Unchecked self + = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) + -- | getDx :: (MonadDOM m) => SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber) getDx self = liftDOM ((self ^. js "dx") >>= fromJSVal) +-- | +getDxUnchecked :: + (MonadDOM m) => SVGFEDropShadowElement -> m SVGAnimatedNumber +getDxUnchecked self + = liftDOM ((self ^. js "dx") >>= fromJSValUnchecked) + -- | getDy :: (MonadDOM m) => SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber) getDy self = liftDOM ((self ^. js "dy") >>= fromJSVal) +-- | +getDyUnchecked :: + (MonadDOM m) => SVGFEDropShadowElement -> m SVGAnimatedNumber +getDyUnchecked self + = liftDOM ((self ^. js "dy") >>= fromJSValUnchecked) + -- | getStdDeviationX :: (MonadDOM m) => @@ -51,9 +71,21 @@ getStdDeviationX self = liftDOM ((self ^. js "stdDeviationX") >>= fromJSVal) +-- | +getStdDeviationXUnchecked :: + (MonadDOM m) => SVGFEDropShadowElement -> m SVGAnimatedNumber +getStdDeviationXUnchecked self + = liftDOM ((self ^. js "stdDeviationX") >>= fromJSValUnchecked) + -- | getStdDeviationY :: (MonadDOM m) => SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber) getStdDeviationY self = liftDOM ((self ^. js "stdDeviationY") >>= fromJSVal) + +-- | +getStdDeviationYUnchecked :: + (MonadDOM m) => SVGFEDropShadowElement -> m SVGAnimatedNumber +getStdDeviationYUnchecked self + = liftDOM ((self ^. js "stdDeviationY") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFEGaussianBlurElement.hs b/src/JSDOM/Generated/SVGFEGaussianBlurElement.hs --- a/src/JSDOM/Generated/SVGFEGaussianBlurElement.hs +++ b/src/JSDOM/Generated/SVGFEGaussianBlurElement.hs @@ -3,9 +3,11 @@ module JSDOM.Generated.SVGFEGaussianBlurElement (setStdDeviation, pattern SVG_EDGEMODE_UNKNOWN, pattern SVG_EDGEMODE_DUPLICATE, pattern SVG_EDGEMODE_WRAP, - pattern SVG_EDGEMODE_NONE, getIn1, getStdDeviationX, - getStdDeviationY, getEdgeMode, SVGFEGaussianBlurElement, - castToSVGFEGaussianBlurElement, gTypeSVGFEGaussianBlurElement) + pattern SVG_EDGEMODE_NONE, getIn1, getIn1Unchecked, + getStdDeviationX, getStdDeviationXUnchecked, getStdDeviationY, + getStdDeviationYUnchecked, getEdgeMode, getEdgeModeUnchecked, + SVGFEGaussianBlurElement, castToSVGFEGaussianBlurElement, + gTypeSVGFEGaussianBlurElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -38,6 +40,12 @@ SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) +-- | +getIn1Unchecked :: + (MonadDOM m) => SVGFEGaussianBlurElement -> m SVGAnimatedString +getIn1Unchecked self + = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) + -- | getStdDeviationX :: (MonadDOM m) => @@ -45,6 +53,12 @@ getStdDeviationX self = liftDOM ((self ^. js "stdDeviationX") >>= fromJSVal) +-- | +getStdDeviationXUnchecked :: + (MonadDOM m) => SVGFEGaussianBlurElement -> m SVGAnimatedNumber +getStdDeviationXUnchecked self + = liftDOM ((self ^. js "stdDeviationX") >>= fromJSValUnchecked) + -- | getStdDeviationY :: (MonadDOM m) => @@ -52,8 +66,21 @@ getStdDeviationY self = liftDOM ((self ^. js "stdDeviationY") >>= fromJSVal) +-- | +getStdDeviationYUnchecked :: + (MonadDOM m) => SVGFEGaussianBlurElement -> m SVGAnimatedNumber +getStdDeviationYUnchecked self + = liftDOM ((self ^. js "stdDeviationY") >>= fromJSValUnchecked) + -- | getEdgeMode :: (MonadDOM m) => SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedEnumeration) getEdgeMode self = liftDOM ((self ^. js "edgeMode") >>= fromJSVal) + +-- | +getEdgeModeUnchecked :: + (MonadDOM m) => + SVGFEGaussianBlurElement -> m SVGAnimatedEnumeration +getEdgeModeUnchecked self + = liftDOM ((self ^. js "edgeMode") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFEImageElement.hs b/src/JSDOM/Generated/SVGFEImageElement.hs --- a/src/JSDOM/Generated/SVGFEImageElement.hs +++ b/src/JSDOM/Generated/SVGFEImageElement.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFEImageElement - (getPreserveAspectRatio, SVGFEImageElement, - castToSVGFEImageElement, gTypeSVGFEImageElement) + (getPreserveAspectRatio, getPreserveAspectRatioUnchecked, + SVGFEImageElement, castToSVGFEImageElement, gTypeSVGFEImageElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -22,3 +22,11 @@ SVGFEImageElement -> m (Maybe SVGAnimatedPreserveAspectRatio) getPreserveAspectRatio self = liftDOM ((self ^. js "preserveAspectRatio") >>= fromJSVal) + +-- | +getPreserveAspectRatioUnchecked :: + (MonadDOM m) => + SVGFEImageElement -> m SVGAnimatedPreserveAspectRatio +getPreserveAspectRatioUnchecked self + = liftDOM + ((self ^. js "preserveAspectRatio") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFEMergeNodeElement.hs b/src/JSDOM/Generated/SVGFEMergeNodeElement.hs --- a/src/JSDOM/Generated/SVGFEMergeNodeElement.hs +++ b/src/JSDOM/Generated/SVGFEMergeNodeElement.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFEMergeNodeElement - (getIn1, SVGFEMergeNodeElement, castToSVGFEMergeNodeElement, - gTypeSVGFEMergeNodeElement) + (getIn1, getIn1Unchecked, SVGFEMergeNodeElement, + castToSVGFEMergeNodeElement, gTypeSVGFEMergeNodeElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,3 +21,9 @@ (MonadDOM m) => SVGFEMergeNodeElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) + +-- | +getIn1Unchecked :: + (MonadDOM m) => SVGFEMergeNodeElement -> m SVGAnimatedString +getIn1Unchecked self + = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFEMorphologyElement.hs b/src/JSDOM/Generated/SVGFEMorphologyElement.hs --- a/src/JSDOM/Generated/SVGFEMorphologyElement.hs +++ b/src/JSDOM/Generated/SVGFEMorphologyElement.hs @@ -3,8 +3,9 @@ module JSDOM.Generated.SVGFEMorphologyElement (setRadius, pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN, pattern SVG_MORPHOLOGY_OPERATOR_ERODE, - pattern SVG_MORPHOLOGY_OPERATOR_DILATE, getIn1, getOperator, - getRadiusX, getRadiusY, SVGFEMorphologyElement, + pattern SVG_MORPHOLOGY_OPERATOR_DILATE, getIn1, getIn1Unchecked, + getOperator, getOperatorUnchecked, getRadiusX, getRadiusXUnchecked, + getRadiusY, getRadiusYUnchecked, SVGFEMorphologyElement, castToSVGFEMorphologyElement, gTypeSVGFEMorphologyElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -35,20 +36,44 @@ SVGFEMorphologyElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) +-- | +getIn1Unchecked :: + (MonadDOM m) => SVGFEMorphologyElement -> m SVGAnimatedString +getIn1Unchecked self + = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) + -- | getOperator :: (MonadDOM m) => SVGFEMorphologyElement -> m (Maybe SVGAnimatedEnumeration) getOperator self = liftDOM ((self ^. js "operator") >>= fromJSVal) +-- | +getOperatorUnchecked :: + (MonadDOM m) => SVGFEMorphologyElement -> m SVGAnimatedEnumeration +getOperatorUnchecked self + = liftDOM ((self ^. js "operator") >>= fromJSValUnchecked) + -- | getRadiusX :: (MonadDOM m) => SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber) getRadiusX self = liftDOM ((self ^. js "radiusX") >>= fromJSVal) +-- | +getRadiusXUnchecked :: + (MonadDOM m) => SVGFEMorphologyElement -> m SVGAnimatedNumber +getRadiusXUnchecked self + = liftDOM ((self ^. js "radiusX") >>= fromJSValUnchecked) + -- | getRadiusY :: (MonadDOM m) => SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber) getRadiusY self = liftDOM ((self ^. js "radiusY") >>= fromJSVal) + +-- | +getRadiusYUnchecked :: + (MonadDOM m) => SVGFEMorphologyElement -> m SVGAnimatedNumber +getRadiusYUnchecked self + = liftDOM ((self ^. js "radiusY") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFEOffsetElement.hs b/src/JSDOM/Generated/SVGFEOffsetElement.hs --- a/src/JSDOM/Generated/SVGFEOffsetElement.hs +++ b/src/JSDOM/Generated/SVGFEOffsetElement.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFEOffsetElement - (getIn1, getDx, getDy, SVGFEOffsetElement, - castToSVGFEOffsetElement, gTypeSVGFEOffsetElement) + (getIn1, getIn1Unchecked, getDx, getDxUnchecked, getDy, + getDyUnchecked, SVGFEOffsetElement, castToSVGFEOffsetElement, + gTypeSVGFEOffsetElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,12 +22,30 @@ (MonadDOM m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) +-- | +getIn1Unchecked :: + (MonadDOM m) => SVGFEOffsetElement -> m SVGAnimatedString +getIn1Unchecked self + = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) + -- | getDx :: (MonadDOM m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedNumber) getDx self = liftDOM ((self ^. js "dx") >>= fromJSVal) +-- | +getDxUnchecked :: + (MonadDOM m) => SVGFEOffsetElement -> m SVGAnimatedNumber +getDxUnchecked self + = liftDOM ((self ^. js "dx") >>= fromJSValUnchecked) + -- | getDy :: (MonadDOM m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedNumber) getDy self = liftDOM ((self ^. js "dy") >>= fromJSVal) + +-- | +getDyUnchecked :: + (MonadDOM m) => SVGFEOffsetElement -> m SVGAnimatedNumber +getDyUnchecked self + = liftDOM ((self ^. js "dy") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFEPointLightElement.hs b/src/JSDOM/Generated/SVGFEPointLightElement.hs --- a/src/JSDOM/Generated/SVGFEPointLightElement.hs +++ b/src/JSDOM/Generated/SVGFEPointLightElement.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFEPointLightElement - (getX, getY, getZ, SVGFEPointLightElement, - castToSVGFEPointLightElement, gTypeSVGFEPointLightElement) + (getX, getXUnchecked, getY, getYUnchecked, getZ, getZUnchecked, + SVGFEPointLightElement, castToSVGFEPointLightElement, + gTypeSVGFEPointLightElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -22,14 +23,32 @@ SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber) getX self = liftDOM ((self ^. js "x") >>= fromJSVal) +-- | +getXUnchecked :: + (MonadDOM m) => SVGFEPointLightElement -> m SVGAnimatedNumber +getXUnchecked self + = liftDOM ((self ^. js "x") >>= fromJSValUnchecked) + -- | getY :: (MonadDOM m) => SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber) getY self = liftDOM ((self ^. js "y") >>= fromJSVal) +-- | +getYUnchecked :: + (MonadDOM m) => SVGFEPointLightElement -> m SVGAnimatedNumber +getYUnchecked self + = liftDOM ((self ^. js "y") >>= fromJSValUnchecked) + -- | getZ :: (MonadDOM m) => SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber) getZ self = liftDOM ((self ^. js "z") >>= fromJSVal) + +-- | +getZUnchecked :: + (MonadDOM m) => SVGFEPointLightElement -> m SVGAnimatedNumber +getZUnchecked self + = liftDOM ((self ^. js "z") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFESpecularLightingElement.hs b/src/JSDOM/Generated/SVGFESpecularLightingElement.hs --- a/src/JSDOM/Generated/SVGFESpecularLightingElement.hs +++ b/src/JSDOM/Generated/SVGFESpecularLightingElement.hs @@ -1,8 +1,11 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFESpecularLightingElement - (getIn1, getSurfaceScale, getSpecularConstant, getSpecularExponent, - SVGFESpecularLightingElement, castToSVGFESpecularLightingElement, + (getIn1, getIn1Unchecked, getSurfaceScale, + getSurfaceScaleUnchecked, getSpecularConstant, + getSpecularConstantUnchecked, getSpecularExponent, + getSpecularExponentUnchecked, SVGFESpecularLightingElement, + castToSVGFESpecularLightingElement, gTypeSVGFESpecularLightingElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -23,6 +26,12 @@ SVGFESpecularLightingElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) +-- | +getIn1Unchecked :: + (MonadDOM m) => SVGFESpecularLightingElement -> m SVGAnimatedString +getIn1Unchecked self + = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) + -- | getSurfaceScale :: (MonadDOM m) => @@ -30,6 +39,12 @@ getSurfaceScale self = liftDOM ((self ^. js "surfaceScale") >>= fromJSVal) +-- | +getSurfaceScaleUnchecked :: + (MonadDOM m) => SVGFESpecularLightingElement -> m SVGAnimatedNumber +getSurfaceScaleUnchecked self + = liftDOM ((self ^. js "surfaceScale") >>= fromJSValUnchecked) + -- | getSpecularConstant :: (MonadDOM m) => @@ -37,9 +52,21 @@ getSpecularConstant self = liftDOM ((self ^. js "specularConstant") >>= fromJSVal) +-- | +getSpecularConstantUnchecked :: + (MonadDOM m) => SVGFESpecularLightingElement -> m SVGAnimatedNumber +getSpecularConstantUnchecked self + = liftDOM ((self ^. js "specularConstant") >>= fromJSValUnchecked) + -- | getSpecularExponent :: (MonadDOM m) => SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber) getSpecularExponent self = liftDOM ((self ^. js "specularExponent") >>= fromJSVal) + +-- | +getSpecularExponentUnchecked :: + (MonadDOM m) => SVGFESpecularLightingElement -> m SVGAnimatedNumber +getSpecularExponentUnchecked self + = liftDOM ((self ^. js "specularExponent") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFESpotLightElement.hs b/src/JSDOM/Generated/SVGFESpotLightElement.hs --- a/src/JSDOM/Generated/SVGFESpotLightElement.hs +++ b/src/JSDOM/Generated/SVGFESpotLightElement.hs @@ -1,9 +1,13 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFESpotLightElement - (getX, getY, getZ, getPointsAtX, getPointsAtY, getPointsAtZ, - getSpecularExponent, getLimitingConeAngle, SVGFESpotLightElement, - castToSVGFESpotLightElement, gTypeSVGFESpotLightElement) + (getX, getXUnchecked, getY, getYUnchecked, getZ, getZUnchecked, + getPointsAtX, getPointsAtXUnchecked, getPointsAtY, + getPointsAtYUnchecked, getPointsAtZ, getPointsAtZUnchecked, + getSpecularExponent, getSpecularExponentUnchecked, + getLimitingConeAngle, getLimitingConeAngleUnchecked, + SVGFESpotLightElement, castToSVGFESpotLightElement, + gTypeSVGFESpotLightElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -23,18 +27,36 @@ SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getX self = liftDOM ((self ^. js "x") >>= fromJSVal) +-- | +getXUnchecked :: + (MonadDOM m) => SVGFESpotLightElement -> m SVGAnimatedNumber +getXUnchecked self + = liftDOM ((self ^. js "x") >>= fromJSValUnchecked) + -- | getY :: (MonadDOM m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getY self = liftDOM ((self ^. js "y") >>= fromJSVal) +-- | +getYUnchecked :: + (MonadDOM m) => SVGFESpotLightElement -> m SVGAnimatedNumber +getYUnchecked self + = liftDOM ((self ^. js "y") >>= fromJSValUnchecked) + -- | getZ :: (MonadDOM m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getZ self = liftDOM ((self ^. js "z") >>= fromJSVal) +-- | +getZUnchecked :: + (MonadDOM m) => SVGFESpotLightElement -> m SVGAnimatedNumber +getZUnchecked self + = liftDOM ((self ^. js "z") >>= fromJSValUnchecked) + -- | getPointsAtX :: (MonadDOM m) => @@ -42,6 +64,12 @@ getPointsAtX self = liftDOM ((self ^. js "pointsAtX") >>= fromJSVal) +-- | +getPointsAtXUnchecked :: + (MonadDOM m) => SVGFESpotLightElement -> m SVGAnimatedNumber +getPointsAtXUnchecked self + = liftDOM ((self ^. js "pointsAtX") >>= fromJSValUnchecked) + -- | getPointsAtY :: (MonadDOM m) => @@ -49,6 +77,12 @@ getPointsAtY self = liftDOM ((self ^. js "pointsAtY") >>= fromJSVal) +-- | +getPointsAtYUnchecked :: + (MonadDOM m) => SVGFESpotLightElement -> m SVGAnimatedNumber +getPointsAtYUnchecked self + = liftDOM ((self ^. js "pointsAtY") >>= fromJSValUnchecked) + -- | getPointsAtZ :: (MonadDOM m) => @@ -56,6 +90,12 @@ getPointsAtZ self = liftDOM ((self ^. js "pointsAtZ") >>= fromJSVal) +-- | +getPointsAtZUnchecked :: + (MonadDOM m) => SVGFESpotLightElement -> m SVGAnimatedNumber +getPointsAtZUnchecked self + = liftDOM ((self ^. js "pointsAtZ") >>= fromJSValUnchecked) + -- | getSpecularExponent :: (MonadDOM m) => @@ -63,9 +103,21 @@ getSpecularExponent self = liftDOM ((self ^. js "specularExponent") >>= fromJSVal) +-- | +getSpecularExponentUnchecked :: + (MonadDOM m) => SVGFESpotLightElement -> m SVGAnimatedNumber +getSpecularExponentUnchecked self + = liftDOM ((self ^. js "specularExponent") >>= fromJSValUnchecked) + -- | getLimitingConeAngle :: (MonadDOM m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getLimitingConeAngle self = liftDOM ((self ^. js "limitingConeAngle") >>= fromJSVal) + +-- | +getLimitingConeAngleUnchecked :: + (MonadDOM m) => SVGFESpotLightElement -> m SVGAnimatedNumber +getLimitingConeAngleUnchecked self + = liftDOM ((self ^. js "limitingConeAngle") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFETileElement.hs b/src/JSDOM/Generated/SVGFETileElement.hs --- a/src/JSDOM/Generated/SVGFETileElement.hs +++ b/src/JSDOM/Generated/SVGFETileElement.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFETileElement - (getIn1, SVGFETileElement, castToSVGFETileElement, + (getIn1, getIn1Unchecked, SVGFETileElement, castToSVGFETileElement, gTypeSVGFETileElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -20,3 +20,9 @@ getIn1 :: (MonadDOM m) => SVGFETileElement -> m (Maybe SVGAnimatedString) getIn1 self = liftDOM ((self ^. js "in1") >>= fromJSVal) + +-- | +getIn1Unchecked :: + (MonadDOM m) => SVGFETileElement -> m SVGAnimatedString +getIn1Unchecked self + = liftDOM ((self ^. js "in1") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFETurbulenceElement.hs b/src/JSDOM/Generated/SVGFETurbulenceElement.hs --- a/src/JSDOM/Generated/SVGFETurbulenceElement.hs +++ b/src/JSDOM/Generated/SVGFETurbulenceElement.hs @@ -6,9 +6,11 @@ pattern SVG_TURBULENCE_TYPE_TURBULENCE, pattern SVG_STITCHTYPE_UNKNOWN, pattern SVG_STITCHTYPE_STITCH, pattern SVG_STITCHTYPE_NOSTITCH, getBaseFrequencyX, - getBaseFrequencyY, getNumOctaves, getSeed, getStitchTiles, getType, - SVGFETurbulenceElement, castToSVGFETurbulenceElement, - gTypeSVGFETurbulenceElement) + getBaseFrequencyXUnchecked, getBaseFrequencyY, + getBaseFrequencyYUnchecked, getNumOctaves, getNumOctavesUnchecked, + getSeed, getSeedUnchecked, getStitchTiles, getStitchTilesUnchecked, + getType, getTypeUnchecked, SVGFETurbulenceElement, + castToSVGFETurbulenceElement, gTypeSVGFETurbulenceElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -35,6 +37,12 @@ getBaseFrequencyX self = liftDOM ((self ^. js "baseFrequencyX") >>= fromJSVal) +-- | +getBaseFrequencyXUnchecked :: + (MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedNumber +getBaseFrequencyXUnchecked self + = liftDOM ((self ^. js "baseFrequencyX") >>= fromJSValUnchecked) + -- | getBaseFrequencyY :: (MonadDOM m) => @@ -42,6 +50,12 @@ getBaseFrequencyY self = liftDOM ((self ^. js "baseFrequencyY") >>= fromJSVal) +-- | +getBaseFrequencyYUnchecked :: + (MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedNumber +getBaseFrequencyYUnchecked self + = liftDOM ((self ^. js "baseFrequencyY") >>= fromJSValUnchecked) + -- | getNumOctaves :: (MonadDOM m) => @@ -49,12 +63,24 @@ getNumOctaves self = liftDOM ((self ^. js "numOctaves") >>= fromJSVal) +-- | +getNumOctavesUnchecked :: + (MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedInteger +getNumOctavesUnchecked self + = liftDOM ((self ^. js "numOctaves") >>= fromJSValUnchecked) + -- | getSeed :: (MonadDOM m) => SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber) getSeed self = liftDOM ((self ^. js "seed") >>= fromJSVal) +-- | +getSeedUnchecked :: + (MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedNumber +getSeedUnchecked self + = liftDOM ((self ^. js "seed") >>= fromJSValUnchecked) + -- | getStitchTiles :: (MonadDOM m) => @@ -62,8 +88,20 @@ getStitchTiles self = liftDOM ((self ^. js "stitchTiles") >>= fromJSVal) +-- | +getStitchTilesUnchecked :: + (MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedEnumeration +getStitchTilesUnchecked self + = liftDOM ((self ^. js "stitchTiles") >>= fromJSValUnchecked) + -- | getType :: (MonadDOM m) => SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration) getType self = liftDOM ((self ^. js "type") >>= fromJSVal) + +-- | +getTypeUnchecked :: + (MonadDOM m) => SVGFETurbulenceElement -> m SVGAnimatedEnumeration +getTypeUnchecked self + = liftDOM ((self ^. js "type") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFilterElement.hs b/src/JSDOM/Generated/SVGFilterElement.hs --- a/src/JSDOM/Generated/SVGFilterElement.hs +++ b/src/JSDOM/Generated/SVGFilterElement.hs @@ -1,9 +1,12 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFilterElement - (setFilterRes, getFilterUnits, getPrimitiveUnits, getX, getY, - getWidth, getHeight, getFilterResX, getFilterResY, - SVGFilterElement, castToSVGFilterElement, gTypeSVGFilterElement) + (setFilterRes, getFilterUnits, getFilterUnitsUnchecked, + getPrimitiveUnits, getPrimitiveUnitsUnchecked, getX, getXUnchecked, + getY, getYUnchecked, getWidth, getWidthUnchecked, getHeight, + getHeightUnchecked, getFilterResX, getFilterResXUnchecked, + getFilterResY, getFilterResYUnchecked, SVGFilterElement, + castToSVGFilterElement, gTypeSVGFilterElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -33,6 +36,12 @@ getFilterUnits self = liftDOM ((self ^. js "filterUnits") >>= fromJSVal) +-- | +getFilterUnitsUnchecked :: + (MonadDOM m) => SVGFilterElement -> m SVGAnimatedEnumeration +getFilterUnitsUnchecked self + = liftDOM ((self ^. js "filterUnits") >>= fromJSValUnchecked) + -- | getPrimitiveUnits :: (MonadDOM m) => @@ -40,34 +49,76 @@ getPrimitiveUnits self = liftDOM ((self ^. js "primitiveUnits") >>= fromJSVal) +-- | +getPrimitiveUnitsUnchecked :: + (MonadDOM m) => SVGFilterElement -> m SVGAnimatedEnumeration +getPrimitiveUnitsUnchecked self + = liftDOM ((self ^. js "primitiveUnits") >>= fromJSValUnchecked) + -- | getX :: (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedLength) getX self = liftDOM ((self ^. js "x") >>= fromJSVal) +-- | +getXUnchecked :: + (MonadDOM m) => SVGFilterElement -> m SVGAnimatedLength +getXUnchecked self + = liftDOM ((self ^. js "x") >>= fromJSValUnchecked) + -- | getY :: (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedLength) getY self = liftDOM ((self ^. js "y") >>= fromJSVal) +-- | +getYUnchecked :: + (MonadDOM m) => SVGFilterElement -> m SVGAnimatedLength +getYUnchecked self + = liftDOM ((self ^. js "y") >>= fromJSValUnchecked) + -- | getWidth :: (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedLength) getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal) +-- | +getWidthUnchecked :: + (MonadDOM m) => SVGFilterElement -> m SVGAnimatedLength +getWidthUnchecked self + = liftDOM ((self ^. js "width") >>= fromJSValUnchecked) + -- | getHeight :: (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedLength) getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal) +-- | +getHeightUnchecked :: + (MonadDOM m) => SVGFilterElement -> m SVGAnimatedLength +getHeightUnchecked self + = liftDOM ((self ^. js "height") >>= fromJSValUnchecked) + -- | getFilterResX :: (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedInteger) getFilterResX self = liftDOM ((self ^. js "filterResX") >>= fromJSVal) +-- | +getFilterResXUnchecked :: + (MonadDOM m) => SVGFilterElement -> m SVGAnimatedInteger +getFilterResXUnchecked self + = liftDOM ((self ^. js "filterResX") >>= fromJSValUnchecked) + -- | getFilterResY :: (MonadDOM m) => SVGFilterElement -> m (Maybe SVGAnimatedInteger) getFilterResY self = liftDOM ((self ^. js "filterResY") >>= fromJSVal) + +-- | +getFilterResYUnchecked :: + (MonadDOM m) => SVGFilterElement -> m SVGAnimatedInteger +getFilterResYUnchecked self + = liftDOM ((self ^. js "filterResY") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFilterPrimitiveStandardAttributes.hs b/src/JSDOM/Generated/SVGFilterPrimitiveStandardAttributes.hs --- a/src/JSDOM/Generated/SVGFilterPrimitiveStandardAttributes.hs +++ b/src/JSDOM/Generated/SVGFilterPrimitiveStandardAttributes.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFilterPrimitiveStandardAttributes - (getX, getY, getWidth, getHeight, getResult, - SVGFilterPrimitiveStandardAttributes, + (getX, getXUnchecked, getY, getYUnchecked, getWidth, + getWidthUnchecked, getHeight, getHeightUnchecked, getResult, + getResultUnchecked, SVGFilterPrimitiveStandardAttributes, castToSVGFilterPrimitiveStandardAttributes, gTypeSVGFilterPrimitiveStandardAttributes) where @@ -24,26 +25,61 @@ SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength) getX self = liftDOM ((self ^. js "x") >>= fromJSVal) +-- | +getXUnchecked :: + (MonadDOM m) => + SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedLength +getXUnchecked self + = liftDOM ((self ^. js "x") >>= fromJSValUnchecked) + -- | getY :: (MonadDOM m) => SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength) getY self = liftDOM ((self ^. js "y") >>= fromJSVal) +-- | +getYUnchecked :: + (MonadDOM m) => + SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedLength +getYUnchecked self + = liftDOM ((self ^. js "y") >>= fromJSValUnchecked) + -- | getWidth :: (MonadDOM m) => SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength) getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal) +-- | +getWidthUnchecked :: + (MonadDOM m) => + SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedLength +getWidthUnchecked self + = liftDOM ((self ^. js "width") >>= fromJSValUnchecked) + -- | getHeight :: (MonadDOM m) => SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength) getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal) +-- | +getHeightUnchecked :: + (MonadDOM m) => + SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedLength +getHeightUnchecked self + = liftDOM ((self ^. js "height") >>= fromJSValUnchecked) + -- | getResult :: (MonadDOM m) => SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedString) getResult self = liftDOM ((self ^. js "result") >>= fromJSVal) + +-- | +getResultUnchecked :: + (MonadDOM m) => + SVGFilterPrimitiveStandardAttributes -> m SVGAnimatedString +getResultUnchecked self + = liftDOM ((self ^. js "result") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGFitToViewBox.hs b/src/JSDOM/Generated/SVGFitToViewBox.hs --- a/src/JSDOM/Generated/SVGFitToViewBox.hs +++ b/src/JSDOM/Generated/SVGFitToViewBox.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGFitToViewBox - (getViewBox, getPreserveAspectRatio, SVGFitToViewBox, + (getViewBox, getViewBoxUnchecked, getPreserveAspectRatio, + getPreserveAspectRatioUnchecked, SVGFitToViewBox, castToSVGFitToViewBox, gTypeSVGFitToViewBox) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -21,9 +22,22 @@ (MonadDOM m) => SVGFitToViewBox -> m (Maybe SVGAnimatedRect) getViewBox self = liftDOM ((self ^. js "viewBox") >>= fromJSVal) +-- | +getViewBoxUnchecked :: + (MonadDOM m) => SVGFitToViewBox -> m SVGAnimatedRect +getViewBoxUnchecked self + = liftDOM ((self ^. js "viewBox") >>= fromJSValUnchecked) + -- | getPreserveAspectRatio :: (MonadDOM m) => SVGFitToViewBox -> m (Maybe SVGAnimatedPreserveAspectRatio) getPreserveAspectRatio self = liftDOM ((self ^. js "preserveAspectRatio") >>= fromJSVal) + +-- | +getPreserveAspectRatioUnchecked :: + (MonadDOM m) => SVGFitToViewBox -> m SVGAnimatedPreserveAspectRatio +getPreserveAspectRatioUnchecked self + = liftDOM + ((self ^. js "preserveAspectRatio") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGForeignObjectElement.hs b/src/JSDOM/Generated/SVGForeignObjectElement.hs --- a/src/JSDOM/Generated/SVGForeignObjectElement.hs +++ b/src/JSDOM/Generated/SVGForeignObjectElement.hs @@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGForeignObjectElement - (getX, getY, getWidth, getHeight, SVGForeignObjectElement, - castToSVGForeignObjectElement, gTypeSVGForeignObjectElement) + (getX, getXUnchecked, getY, getYUnchecked, getWidth, + getWidthUnchecked, getHeight, getHeightUnchecked, + SVGForeignObjectElement, castToSVGForeignObjectElement, + gTypeSVGForeignObjectElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -22,20 +24,44 @@ SVGForeignObjectElement -> m (Maybe SVGAnimatedLength) getX self = liftDOM ((self ^. js "x") >>= fromJSVal) +-- | +getXUnchecked :: + (MonadDOM m) => SVGForeignObjectElement -> m SVGAnimatedLength +getXUnchecked self + = liftDOM ((self ^. js "x") >>= fromJSValUnchecked) + -- | getY :: (MonadDOM m) => SVGForeignObjectElement -> m (Maybe SVGAnimatedLength) getY self = liftDOM ((self ^. js "y") >>= fromJSVal) +-- | +getYUnchecked :: + (MonadDOM m) => SVGForeignObjectElement -> m SVGAnimatedLength +getYUnchecked self + = liftDOM ((self ^. js "y") >>= fromJSValUnchecked) + -- | getWidth :: (MonadDOM m) => SVGForeignObjectElement -> m (Maybe SVGAnimatedLength) getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal) +-- | +getWidthUnchecked :: + (MonadDOM m) => SVGForeignObjectElement -> m SVGAnimatedLength +getWidthUnchecked self + = liftDOM ((self ^. js "width") >>= fromJSValUnchecked) + -- | getHeight :: (MonadDOM m) => SVGForeignObjectElement -> m (Maybe SVGAnimatedLength) getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal) + +-- | +getHeightUnchecked :: + (MonadDOM m) => SVGForeignObjectElement -> m SVGAnimatedLength +getHeightUnchecked self + = liftDOM ((self ^. js "height") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGGradientElement.hs b/src/JSDOM/Generated/SVGGradientElement.hs --- a/src/JSDOM/Generated/SVGGradientElement.hs +++ b/src/JSDOM/Generated/SVGGradientElement.hs @@ -3,10 +3,11 @@ module JSDOM.Generated.SVGGradientElement (pattern SVG_SPREADMETHOD_UNKNOWN, pattern SVG_SPREADMETHOD_PAD, pattern SVG_SPREADMETHOD_REFLECT, pattern SVG_SPREADMETHOD_REPEAT, - getGradientUnits, getGradientTransform, getSpreadMethod, - SVGGradientElement, castToSVGGradientElement, - gTypeSVGGradientElement, IsSVGGradientElement, - toSVGGradientElement) + getGradientUnits, getGradientUnitsUnchecked, getGradientTransform, + getGradientTransformUnchecked, getSpreadMethod, + getSpreadMethodUnchecked, SVGGradientElement, + castToSVGGradientElement, gTypeSVGGradientElement, + IsSVGGradientElement, toSVGGradientElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -32,6 +33,15 @@ = liftDOM (((toSVGGradientElement self) ^. js "gradientUnits") >>= fromJSVal) +-- | +getGradientUnitsUnchecked :: + (MonadDOM m, IsSVGGradientElement self) => + self -> m SVGAnimatedEnumeration +getGradientUnitsUnchecked self + = liftDOM + (((toSVGGradientElement self) ^. js "gradientUnits") >>= + fromJSValUnchecked) + -- | getGradientTransform :: (MonadDOM m, IsSVGGradientElement self) => @@ -41,6 +51,15 @@ (((toSVGGradientElement self) ^. js "gradientTransform") >>= fromJSVal) +-- | +getGradientTransformUnchecked :: + (MonadDOM m, IsSVGGradientElement self) => + self -> m SVGAnimatedTransformList +getGradientTransformUnchecked self + = liftDOM + (((toSVGGradientElement self) ^. js "gradientTransform") >>= + fromJSValUnchecked) + -- | getSpreadMethod :: (MonadDOM m, IsSVGGradientElement self) => @@ -48,3 +67,12 @@ getSpreadMethod self = liftDOM (((toSVGGradientElement self) ^. js "spreadMethod") >>= fromJSVal) + +-- | +getSpreadMethodUnchecked :: + (MonadDOM m, IsSVGGradientElement self) => + self -> m SVGAnimatedEnumeration +getSpreadMethodUnchecked self + = liftDOM + (((toSVGGradientElement self) ^. js "spreadMethod") >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGGraphicsElement.hs b/src/JSDOM/Generated/SVGGraphicsElement.hs --- a/src/JSDOM/Generated/SVGGraphicsElement.hs +++ b/src/JSDOM/Generated/SVGGraphicsElement.hs @@ -1,9 +1,13 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGGraphicsElement - (getBBox, getCTM, getScreenCTM, getTransformToElement, - getTransform, getNearestViewportElement, - getFarthestViewportElement, SVGGraphicsElement, + (getBBox, getBBox_, getBBoxUnchecked, getCTM, getCTM_, + getCTMUnchecked, getScreenCTM, getScreenCTM_, + getScreenCTMUnchecked, getTransformToElement, + getTransformToElement_, getTransformToElementUnchecked, + getTransform, getTransformUnchecked, getNearestViewportElement, + getNearestViewportElementUnchecked, getFarthestViewportElement, + getFarthestViewportElementUnchecked, SVGGraphicsElement, castToSVGGraphicsElement, gTypeSVGGraphicsElement, IsSVGGraphicsElement, toSVGGraphicsElement) where @@ -27,6 +31,19 @@ = liftDOM (((toSVGGraphicsElement self) ^. jsf "getBBox" ()) >>= fromJSVal) +-- | +getBBox_ :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m () +getBBox_ self + = liftDOM (void ((toSVGGraphicsElement self) ^. jsf "getBBox" ())) + +-- | +getBBoxUnchecked :: + (MonadDOM m, IsSVGGraphicsElement self) => self -> m SVGRect +getBBoxUnchecked self + = liftDOM + (((toSVGGraphicsElement self) ^. jsf "getBBox" ()) >>= + fromJSValUnchecked) + -- | getCTM :: (MonadDOM m, IsSVGGraphicsElement self) => @@ -35,6 +52,19 @@ = liftDOM (((toSVGGraphicsElement self) ^. jsf "getCTM" ()) >>= fromJSVal) +-- | +getCTM_ :: (MonadDOM m, IsSVGGraphicsElement self) => self -> m () +getCTM_ self + = liftDOM (void ((toSVGGraphicsElement self) ^. jsf "getCTM" ())) + +-- | +getCTMUnchecked :: + (MonadDOM m, IsSVGGraphicsElement self) => self -> m SVGMatrix +getCTMUnchecked self + = liftDOM + (((toSVGGraphicsElement self) ^. jsf "getCTM" ()) >>= + fromJSValUnchecked) + -- | getScreenCTM :: (MonadDOM m, IsSVGGraphicsElement self) => @@ -44,6 +74,21 @@ (((toSVGGraphicsElement self) ^. jsf "getScreenCTM" ()) >>= fromJSVal) +-- | +getScreenCTM_ :: + (MonadDOM m, IsSVGGraphicsElement self) => self -> m () +getScreenCTM_ self + = liftDOM + (void ((toSVGGraphicsElement self) ^. jsf "getScreenCTM" ())) + +-- | +getScreenCTMUnchecked :: + (MonadDOM m, IsSVGGraphicsElement self) => self -> m SVGMatrix +getScreenCTMUnchecked self + = liftDOM + (((toSVGGraphicsElement self) ^. jsf "getScreenCTM" ()) >>= + fromJSValUnchecked) + -- | getTransformToElement :: (MonadDOM m, IsSVGGraphicsElement self, IsSVGElement element) => @@ -54,6 +99,26 @@ [toJSVal element]) >>= fromJSVal) +-- | +getTransformToElement_ :: + (MonadDOM m, IsSVGGraphicsElement self, IsSVGElement element) => + self -> Maybe element -> m () +getTransformToElement_ self element + = liftDOM + (void + ((toSVGGraphicsElement self) ^. jsf "getTransformToElement" + [toJSVal element])) + +-- | +getTransformToElementUnchecked :: + (MonadDOM m, IsSVGGraphicsElement self, IsSVGElement element) => + self -> Maybe element -> m SVGMatrix +getTransformToElementUnchecked self element + = liftDOM + (((toSVGGraphicsElement self) ^. jsf "getTransformToElement" + [toJSVal element]) + >>= fromJSValUnchecked) + -- | getTransform :: (MonadDOM m, IsSVGGraphicsElement self) => @@ -62,6 +127,15 @@ = liftDOM (((toSVGGraphicsElement self) ^. js "transform") >>= fromJSVal) +-- | +getTransformUnchecked :: + (MonadDOM m, IsSVGGraphicsElement self) => + self -> m SVGAnimatedTransformList +getTransformUnchecked self + = liftDOM + (((toSVGGraphicsElement self) ^. js "transform") >>= + fromJSValUnchecked) + -- | getNearestViewportElement :: (MonadDOM m, IsSVGGraphicsElement self) => @@ -71,6 +145,14 @@ (((toSVGGraphicsElement self) ^. js "nearestViewportElement") >>= fromJSVal) +-- | +getNearestViewportElementUnchecked :: + (MonadDOM m, IsSVGGraphicsElement self) => self -> m SVGElement +getNearestViewportElementUnchecked self + = liftDOM + (((toSVGGraphicsElement self) ^. js "nearestViewportElement") >>= + fromJSValUnchecked) + -- | getFarthestViewportElement :: (MonadDOM m, IsSVGGraphicsElement self) => @@ -79,3 +161,11 @@ = liftDOM (((toSVGGraphicsElement self) ^. js "farthestViewportElement") >>= fromJSVal) + +-- | +getFarthestViewportElementUnchecked :: + (MonadDOM m, IsSVGGraphicsElement self) => self -> m SVGElement +getFarthestViewportElementUnchecked self + = liftDOM + (((toSVGGraphicsElement self) ^. js "farthestViewportElement") >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGImageElement.hs b/src/JSDOM/Generated/SVGImageElement.hs --- a/src/JSDOM/Generated/SVGImageElement.hs +++ b/src/JSDOM/Generated/SVGImageElement.hs @@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGImageElement - (getX, getY, getWidth, getHeight, getPreserveAspectRatio, + (getX, getXUnchecked, getY, getYUnchecked, getWidth, + getWidthUnchecked, getHeight, getHeightUnchecked, + getPreserveAspectRatio, getPreserveAspectRatioUnchecked, SVGImageElement, castToSVGImageElement, gTypeSVGImageElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -21,24 +23,55 @@ (MonadDOM m) => SVGImageElement -> m (Maybe SVGAnimatedLength) getX self = liftDOM ((self ^. js "x") >>= fromJSVal) +-- | +getXUnchecked :: + (MonadDOM m) => SVGImageElement -> m SVGAnimatedLength +getXUnchecked self + = liftDOM ((self ^. js "x") >>= fromJSValUnchecked) + -- | getY :: (MonadDOM m) => SVGImageElement -> m (Maybe SVGAnimatedLength) getY self = liftDOM ((self ^. js "y") >>= fromJSVal) +-- | +getYUnchecked :: + (MonadDOM m) => SVGImageElement -> m SVGAnimatedLength +getYUnchecked self + = liftDOM ((self ^. js "y") >>= fromJSValUnchecked) + -- | getWidth :: (MonadDOM m) => SVGImageElement -> m (Maybe SVGAnimatedLength) getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal) +-- | +getWidthUnchecked :: + (MonadDOM m) => SVGImageElement -> m SVGAnimatedLength +getWidthUnchecked self + = liftDOM ((self ^. js "width") >>= fromJSValUnchecked) + -- | getHeight :: (MonadDOM m) => SVGImageElement -> m (Maybe SVGAnimatedLength) getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal) +-- | +getHeightUnchecked :: + (MonadDOM m) => SVGImageElement -> m SVGAnimatedLength +getHeightUnchecked self + = liftDOM ((self ^. js "height") >>= fromJSValUnchecked) + -- | getPreserveAspectRatio :: (MonadDOM m) => SVGImageElement -> m (Maybe SVGAnimatedPreserveAspectRatio) getPreserveAspectRatio self = liftDOM ((self ^. js "preserveAspectRatio") >>= fromJSVal) + +-- | +getPreserveAspectRatioUnchecked :: + (MonadDOM m) => SVGImageElement -> m SVGAnimatedPreserveAspectRatio +getPreserveAspectRatioUnchecked self + = liftDOM + ((self ^. js "preserveAspectRatio") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGLength.hs b/src/JSDOM/Generated/SVGLength.hs --- a/src/JSDOM/Generated/SVGLength.hs +++ b/src/JSDOM/Generated/SVGLength.hs @@ -9,8 +9,8 @@ pattern SVG_LENGTHTYPE_IN, pattern SVG_LENGTHTYPE_PT, pattern SVG_LENGTHTYPE_PC, getUnitType, setValue, getValue, setValueInSpecifiedUnits, getValueInSpecifiedUnits, - setValueAsString, getValueAsString, SVGLength, castToSVGLength, - gTypeSVGLength) + setValueAsString, getValueAsString, getValueAsStringUnchecked, + SVGLength, castToSVGLength, gTypeSVGLength) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -89,3 +89,9 @@ (MonadDOM m, FromJSString result) => SVGLength -> m (Maybe result) getValueAsString self = liftDOM ((self ^. js "valueAsString") >>= fromMaybeJSString) + +-- | +getValueAsStringUnchecked :: + (MonadDOM m, FromJSString result) => SVGLength -> m result +getValueAsStringUnchecked self + = liftDOM ((self ^. js "valueAsString") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGLengthList.hs b/src/JSDOM/Generated/SVGLengthList.hs --- a/src/JSDOM/Generated/SVGLengthList.hs +++ b/src/JSDOM/Generated/SVGLengthList.hs @@ -1,9 +1,12 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGLengthList - (clear, initialize, getItem, insertItemBefore, replaceItem, - removeItem, appendItem, getNumberOfItems, SVGLengthList, - castToSVGLengthList, gTypeSVGLengthList) + (clear, initialize, initialize_, initializeUnchecked, getItem, + getItem_, getItemUnchecked, insertItemBefore, insertItemBefore_, + insertItemBeforeUnchecked, replaceItem, replaceItem_, + replaceItemUnchecked, removeItem, removeItem_, removeItemUnchecked, + appendItem, appendItem_, appendItemUnchecked, getNumberOfItems, + SVGLengthList, castToSVGLengthList, gTypeSVGLengthList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -28,12 +31,37 @@ initialize self item = liftDOM ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSVal) +-- | +initialize_ :: + (MonadDOM m) => SVGLengthList -> Maybe SVGLength -> m () +initialize_ self item + = liftDOM (void (self ^. jsf "initialize" [toJSVal item])) + +-- | +initializeUnchecked :: + (MonadDOM m) => SVGLengthList -> Maybe SVGLength -> m SVGLength +initializeUnchecked self item + = liftDOM + ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSValUnchecked) + -- | getItem :: (MonadDOM m) => SVGLengthList -> Word -> m (Maybe SVGLength) getItem self index = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSVal) +-- | +getItem_ :: (MonadDOM m) => SVGLengthList -> Word -> m () +getItem_ self index + = liftDOM (void (self ^. jsf "getItem" [toJSVal index])) + +-- | +getItemUnchecked :: + (MonadDOM m) => SVGLengthList -> Word -> m SVGLength +getItemUnchecked self index + = liftDOM + ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSValUnchecked) + -- | insertItemBefore :: (MonadDOM m) => @@ -43,6 +71,23 @@ ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>= fromJSVal) +-- | +insertItemBefore_ :: + (MonadDOM m) => SVGLengthList -> Maybe SVGLength -> Word -> m () +insertItemBefore_ self item index + = liftDOM + (void + (self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index])) + +-- | +insertItemBeforeUnchecked :: + (MonadDOM m) => + SVGLengthList -> Maybe SVGLength -> Word -> m SVGLength +insertItemBeforeUnchecked self item index + = liftDOM + ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>= + fromJSValUnchecked) + -- | replaceItem :: (MonadDOM m) => @@ -52,6 +97,22 @@ ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>= fromJSVal) +-- | +replaceItem_ :: + (MonadDOM m) => SVGLengthList -> Maybe SVGLength -> Word -> m () +replaceItem_ self item index + = liftDOM + (void (self ^. jsf "replaceItem" [toJSVal item, toJSVal index])) + +-- | +replaceItemUnchecked :: + (MonadDOM m) => + SVGLengthList -> Maybe SVGLength -> Word -> m SVGLength +replaceItemUnchecked self item index + = liftDOM + ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>= + fromJSValUnchecked) + -- | removeItem :: (MonadDOM m) => SVGLengthList -> Word -> m (Maybe SVGLength) @@ -59,12 +120,37 @@ = liftDOM ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSVal) +-- | +removeItem_ :: (MonadDOM m) => SVGLengthList -> Word -> m () +removeItem_ self index + = liftDOM (void (self ^. jsf "removeItem" [toJSVal index])) + +-- | +removeItemUnchecked :: + (MonadDOM m) => SVGLengthList -> Word -> m SVGLength +removeItemUnchecked self index + = liftDOM + ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSValUnchecked) + -- | appendItem :: (MonadDOM m) => SVGLengthList -> Maybe SVGLength -> m (Maybe SVGLength) appendItem self item = liftDOM ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSVal) + +-- | +appendItem_ :: + (MonadDOM m) => SVGLengthList -> Maybe SVGLength -> m () +appendItem_ self item + = liftDOM (void (self ^. jsf "appendItem" [toJSVal item])) + +-- | +appendItemUnchecked :: + (MonadDOM m) => SVGLengthList -> Maybe SVGLength -> m SVGLength +appendItemUnchecked self item + = liftDOM + ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSValUnchecked) -- | getNumberOfItems :: (MonadDOM m) => SVGLengthList -> m Word diff --git a/src/JSDOM/Generated/SVGLineElement.hs b/src/JSDOM/Generated/SVGLineElement.hs --- a/src/JSDOM/Generated/SVGLineElement.hs +++ b/src/JSDOM/Generated/SVGLineElement.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGLineElement - (getX1, getY1, getX2, getY2, SVGLineElement, castToSVGLineElement, - gTypeSVGLineElement) + (getX1, getX1Unchecked, getY1, getY1Unchecked, getX2, + getX2Unchecked, getY2, getY2Unchecked, SVGLineElement, + castToSVGLineElement, gTypeSVGLineElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,17 +22,41 @@ (MonadDOM m) => SVGLineElement -> m (Maybe SVGAnimatedLength) getX1 self = liftDOM ((self ^. js "x1") >>= fromJSVal) +-- | +getX1Unchecked :: + (MonadDOM m) => SVGLineElement -> m SVGAnimatedLength +getX1Unchecked self + = liftDOM ((self ^. js "x1") >>= fromJSValUnchecked) + -- | getY1 :: (MonadDOM m) => SVGLineElement -> m (Maybe SVGAnimatedLength) getY1 self = liftDOM ((self ^. js "y1") >>= fromJSVal) +-- | +getY1Unchecked :: + (MonadDOM m) => SVGLineElement -> m SVGAnimatedLength +getY1Unchecked self + = liftDOM ((self ^. js "y1") >>= fromJSValUnchecked) + -- | getX2 :: (MonadDOM m) => SVGLineElement -> m (Maybe SVGAnimatedLength) getX2 self = liftDOM ((self ^. js "x2") >>= fromJSVal) +-- | +getX2Unchecked :: + (MonadDOM m) => SVGLineElement -> m SVGAnimatedLength +getX2Unchecked self + = liftDOM ((self ^. js "x2") >>= fromJSValUnchecked) + -- | getY2 :: (MonadDOM m) => SVGLineElement -> m (Maybe SVGAnimatedLength) getY2 self = liftDOM ((self ^. js "y2") >>= fromJSVal) + +-- | +getY2Unchecked :: + (MonadDOM m) => SVGLineElement -> m SVGAnimatedLength +getY2Unchecked self + = liftDOM ((self ^. js "y2") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGLinearGradientElement.hs b/src/JSDOM/Generated/SVGLinearGradientElement.hs --- a/src/JSDOM/Generated/SVGLinearGradientElement.hs +++ b/src/JSDOM/Generated/SVGLinearGradientElement.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGLinearGradientElement - (getX1, getY1, getX2, getY2, SVGLinearGradientElement, + (getX1, getX1Unchecked, getY1, getY1Unchecked, getX2, + getX2Unchecked, getY2, getY2Unchecked, SVGLinearGradientElement, castToSVGLinearGradientElement, gTypeSVGLinearGradientElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -22,20 +23,44 @@ SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) getX1 self = liftDOM ((self ^. js "x1") >>= fromJSVal) +-- | +getX1Unchecked :: + (MonadDOM m) => SVGLinearGradientElement -> m SVGAnimatedLength +getX1Unchecked self + = liftDOM ((self ^. js "x1") >>= fromJSValUnchecked) + -- | getY1 :: (MonadDOM m) => SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) getY1 self = liftDOM ((self ^. js "y1") >>= fromJSVal) +-- | +getY1Unchecked :: + (MonadDOM m) => SVGLinearGradientElement -> m SVGAnimatedLength +getY1Unchecked self + = liftDOM ((self ^. js "y1") >>= fromJSValUnchecked) + -- | getX2 :: (MonadDOM m) => SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) getX2 self = liftDOM ((self ^. js "x2") >>= fromJSVal) +-- | +getX2Unchecked :: + (MonadDOM m) => SVGLinearGradientElement -> m SVGAnimatedLength +getX2Unchecked self + = liftDOM ((self ^. js "x2") >>= fromJSValUnchecked) + -- | getY2 :: (MonadDOM m) => SVGLinearGradientElement -> m (Maybe SVGAnimatedLength) getY2 self = liftDOM ((self ^. js "y2") >>= fromJSVal) + +-- | +getY2Unchecked :: + (MonadDOM m) => SVGLinearGradientElement -> m SVGAnimatedLength +getY2Unchecked self + = liftDOM ((self ^. js "y2") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGMarkerElement.hs b/src/JSDOM/Generated/SVGMarkerElement.hs --- a/src/JSDOM/Generated/SVGMarkerElement.hs +++ b/src/JSDOM/Generated/SVGMarkerElement.hs @@ -6,9 +6,12 @@ pattern SVG_MARKERUNITS_USERSPACEONUSE, pattern SVG_MARKERUNITS_STROKEWIDTH, pattern SVG_MARKER_ORIENT_UNKNOWN, pattern SVG_MARKER_ORIENT_AUTO, - pattern SVG_MARKER_ORIENT_ANGLE, getRefX, getRefY, getMarkerUnits, - getMarkerWidth, getMarkerHeight, getOrientType, getOrientAngle, - SVGMarkerElement, castToSVGMarkerElement, gTypeSVGMarkerElement) + pattern SVG_MARKER_ORIENT_ANGLE, getRefX, getRefXUnchecked, + getRefY, getRefYUnchecked, getMarkerUnits, getMarkerUnitsUnchecked, + getMarkerWidth, getMarkerWidthUnchecked, getMarkerHeight, + getMarkerHeightUnchecked, getOrientType, getOrientTypeUnchecked, + getOrientAngle, getOrientAngleUnchecked, SVGMarkerElement, + castToSVGMarkerElement, gTypeSVGMarkerElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -44,11 +47,23 @@ (MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getRefX self = liftDOM ((self ^. js "refX") >>= fromJSVal) +-- | +getRefXUnchecked :: + (MonadDOM m) => SVGMarkerElement -> m SVGAnimatedLength +getRefXUnchecked self + = liftDOM ((self ^. js "refX") >>= fromJSValUnchecked) + -- | getRefY :: (MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getRefY self = liftDOM ((self ^. js "refY") >>= fromJSVal) +-- | +getRefYUnchecked :: + (MonadDOM m) => SVGMarkerElement -> m SVGAnimatedLength +getRefYUnchecked self + = liftDOM ((self ^. js "refY") >>= fromJSValUnchecked) + -- | getMarkerUnits :: (MonadDOM m) => @@ -56,18 +71,36 @@ getMarkerUnits self = liftDOM ((self ^. js "markerUnits") >>= fromJSVal) +-- | +getMarkerUnitsUnchecked :: + (MonadDOM m) => SVGMarkerElement -> m SVGAnimatedEnumeration +getMarkerUnitsUnchecked self + = liftDOM ((self ^. js "markerUnits") >>= fromJSValUnchecked) + -- | getMarkerWidth :: (MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getMarkerWidth self = liftDOM ((self ^. js "markerWidth") >>= fromJSVal) +-- | +getMarkerWidthUnchecked :: + (MonadDOM m) => SVGMarkerElement -> m SVGAnimatedLength +getMarkerWidthUnchecked self + = liftDOM ((self ^. js "markerWidth") >>= fromJSValUnchecked) + -- | getMarkerHeight :: (MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getMarkerHeight self = liftDOM ((self ^. js "markerHeight") >>= fromJSVal) +-- | +getMarkerHeightUnchecked :: + (MonadDOM m) => SVGMarkerElement -> m SVGAnimatedLength +getMarkerHeightUnchecked self + = liftDOM ((self ^. js "markerHeight") >>= fromJSValUnchecked) + -- | getOrientType :: (MonadDOM m) => @@ -75,8 +108,20 @@ getOrientType self = liftDOM ((self ^. js "orientType") >>= fromJSVal) +-- | +getOrientTypeUnchecked :: + (MonadDOM m) => SVGMarkerElement -> m SVGAnimatedEnumeration +getOrientTypeUnchecked self + = liftDOM ((self ^. js "orientType") >>= fromJSValUnchecked) + -- | getOrientAngle :: (MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedAngle) getOrientAngle self = liftDOM ((self ^. js "orientAngle") >>= fromJSVal) + +-- | +getOrientAngleUnchecked :: + (MonadDOM m) => SVGMarkerElement -> m SVGAnimatedAngle +getOrientAngleUnchecked self + = liftDOM ((self ^. js "orientAngle") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGMaskElement.hs b/src/JSDOM/Generated/SVGMaskElement.hs --- a/src/JSDOM/Generated/SVGMaskElement.hs +++ b/src/JSDOM/Generated/SVGMaskElement.hs @@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGMaskElement - (getMaskUnits, getMaskContentUnits, getX, getY, getWidth, - getHeight, SVGMaskElement, castToSVGMaskElement, + (getMaskUnits, getMaskUnitsUnchecked, getMaskContentUnits, + getMaskContentUnitsUnchecked, getX, getXUnchecked, getY, + getYUnchecked, getWidth, getWidthUnchecked, getHeight, + getHeightUnchecked, SVGMaskElement, castToSVGMaskElement, gTypeSVGMaskElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -23,28 +25,64 @@ getMaskUnits self = liftDOM ((self ^. js "maskUnits") >>= fromJSVal) +-- | +getMaskUnitsUnchecked :: + (MonadDOM m) => SVGMaskElement -> m SVGAnimatedEnumeration +getMaskUnitsUnchecked self + = liftDOM ((self ^. js "maskUnits") >>= fromJSValUnchecked) + -- | getMaskContentUnits :: (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedEnumeration) getMaskContentUnits self = liftDOM ((self ^. js "maskContentUnits") >>= fromJSVal) +-- | +getMaskContentUnitsUnchecked :: + (MonadDOM m) => SVGMaskElement -> m SVGAnimatedEnumeration +getMaskContentUnitsUnchecked self + = liftDOM ((self ^. js "maskContentUnits") >>= fromJSValUnchecked) + -- | getX :: (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedLength) getX self = liftDOM ((self ^. js "x") >>= fromJSVal) +-- | +getXUnchecked :: + (MonadDOM m) => SVGMaskElement -> m SVGAnimatedLength +getXUnchecked self + = liftDOM ((self ^. js "x") >>= fromJSValUnchecked) + -- | getY :: (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedLength) getY self = liftDOM ((self ^. js "y") >>= fromJSVal) +-- | +getYUnchecked :: + (MonadDOM m) => SVGMaskElement -> m SVGAnimatedLength +getYUnchecked self + = liftDOM ((self ^. js "y") >>= fromJSValUnchecked) + -- | getWidth :: (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedLength) getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal) +-- | +getWidthUnchecked :: + (MonadDOM m) => SVGMaskElement -> m SVGAnimatedLength +getWidthUnchecked self + = liftDOM ((self ^. js "width") >>= fromJSValUnchecked) + -- | getHeight :: (MonadDOM m) => SVGMaskElement -> m (Maybe SVGAnimatedLength) getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal) + +-- | +getHeightUnchecked :: + (MonadDOM m) => SVGMaskElement -> m SVGAnimatedLength +getHeightUnchecked self + = liftDOM ((self ^. js "height") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGMatrix.hs b/src/JSDOM/Generated/SVGMatrix.hs --- a/src/JSDOM/Generated/SVGMatrix.hs +++ b/src/JSDOM/Generated/SVGMatrix.hs @@ -1,10 +1,15 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGMatrix - (multiply, inverse, translate, scale, scaleNonUniform, rotate, - rotateFromVector, flipX, flipY, skewX, skewY, setA, getA, setB, - getB, setC, getC, setD, getD, setE, getE, setF, getF, SVGMatrix, - castToSVGMatrix, gTypeSVGMatrix) + (multiply, multiply_, multiplyUnchecked, inverse, inverse_, + inverseUnchecked, translate, translate_, translateUnchecked, scale, + scale_, scaleUnchecked, scaleNonUniform, scaleNonUniform_, + scaleNonUniformUnchecked, rotate, rotate_, rotateUnchecked, + rotateFromVector, rotateFromVector_, rotateFromVectorUnchecked, + flipX, flipX_, flipXUnchecked, flipY, flipY_, flipYUnchecked, + skewX, skewX_, skewXUnchecked, skewY, skewY_, skewYUnchecked, setA, + getA, setB, getB, setC, getC, setD, getD, setE, getE, setF, getF, + SVGMatrix, castToSVGMatrix, gTypeSVGMatrix) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -25,10 +30,32 @@ = liftDOM ((self ^. jsf "multiply" [toJSVal secondMatrix]) >>= fromJSVal) +-- | +multiply_ :: (MonadDOM m) => SVGMatrix -> Maybe SVGMatrix -> m () +multiply_ self secondMatrix + = liftDOM (void (self ^. jsf "multiply" [toJSVal secondMatrix])) + +-- | +multiplyUnchecked :: + (MonadDOM m) => SVGMatrix -> Maybe SVGMatrix -> m SVGMatrix +multiplyUnchecked self secondMatrix + = liftDOM + ((self ^. jsf "multiply" [toJSVal secondMatrix]) >>= + fromJSValUnchecked) + -- | inverse :: (MonadDOM m) => SVGMatrix -> m (Maybe SVGMatrix) inverse self = liftDOM ((self ^. jsf "inverse" ()) >>= fromJSVal) +-- | +inverse_ :: (MonadDOM m) => SVGMatrix -> m () +inverse_ self = liftDOM (void (self ^. jsf "inverse" ())) + +-- | +inverseUnchecked :: (MonadDOM m) => SVGMatrix -> m SVGMatrix +inverseUnchecked self + = liftDOM ((self ^. jsf "inverse" ()) >>= fromJSValUnchecked) + -- | translate :: (MonadDOM m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix) @@ -36,12 +63,37 @@ = liftDOM ((self ^. jsf "translate" [toJSVal x, toJSVal y]) >>= fromJSVal) +-- | +translate_ :: (MonadDOM m) => SVGMatrix -> Float -> Float -> m () +translate_ self x y + = liftDOM (void (self ^. jsf "translate" [toJSVal x, toJSVal y])) + +-- | +translateUnchecked :: + (MonadDOM m) => SVGMatrix -> Float -> Float -> m SVGMatrix +translateUnchecked self x y + = liftDOM + ((self ^. jsf "translate" [toJSVal x, toJSVal y]) >>= + fromJSValUnchecked) + -- | scale :: (MonadDOM m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) scale self scaleFactor = liftDOM ((self ^. jsf "scale" [toJSVal scaleFactor]) >>= fromJSVal) +-- | +scale_ :: (MonadDOM m) => SVGMatrix -> Float -> m () +scale_ self scaleFactor + = liftDOM (void (self ^. jsf "scale" [toJSVal scaleFactor])) + +-- | +scaleUnchecked :: (MonadDOM m) => SVGMatrix -> Float -> m SVGMatrix +scaleUnchecked self scaleFactor + = liftDOM + ((self ^. jsf "scale" [toJSVal scaleFactor]) >>= + fromJSValUnchecked) + -- | scaleNonUniform :: (MonadDOM m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix) @@ -51,11 +103,41 @@ [toJSVal scaleFactorX, toJSVal scaleFactorY]) >>= fromJSVal) +-- | +scaleNonUniform_ :: + (MonadDOM m) => SVGMatrix -> Float -> Float -> m () +scaleNonUniform_ self scaleFactorX scaleFactorY + = liftDOM + (void + (self ^. jsf "scaleNonUniform" + [toJSVal scaleFactorX, toJSVal scaleFactorY])) + +-- | +scaleNonUniformUnchecked :: + (MonadDOM m) => SVGMatrix -> Float -> Float -> m SVGMatrix +scaleNonUniformUnchecked self scaleFactorX scaleFactorY + = liftDOM + ((self ^. jsf "scaleNonUniform" + [toJSVal scaleFactorX, toJSVal scaleFactorY]) + >>= fromJSValUnchecked) + -- | rotate :: (MonadDOM m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) rotate self angle = liftDOM ((self ^. jsf "rotate" [toJSVal angle]) >>= fromJSVal) +-- | +rotate_ :: (MonadDOM m) => SVGMatrix -> Float -> m () +rotate_ self angle + = liftDOM (void (self ^. jsf "rotate" [toJSVal angle])) + +-- | +rotateUnchecked :: + (MonadDOM m) => SVGMatrix -> Float -> m SVGMatrix +rotateUnchecked self angle + = liftDOM + ((self ^. jsf "rotate" [toJSVal angle]) >>= fromJSValUnchecked) + -- | rotateFromVector :: (MonadDOM m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix) @@ -64,23 +146,78 @@ ((self ^. jsf "rotateFromVector" [toJSVal x, toJSVal y]) >>= fromJSVal) +-- | +rotateFromVector_ :: + (MonadDOM m) => SVGMatrix -> Float -> Float -> m () +rotateFromVector_ self x y + = liftDOM + (void (self ^. jsf "rotateFromVector" [toJSVal x, toJSVal y])) + +-- | +rotateFromVectorUnchecked :: + (MonadDOM m) => SVGMatrix -> Float -> Float -> m SVGMatrix +rotateFromVectorUnchecked self x y + = liftDOM + ((self ^. jsf "rotateFromVector" [toJSVal x, toJSVal y]) >>= + fromJSValUnchecked) + -- | flipX :: (MonadDOM m) => SVGMatrix -> m (Maybe SVGMatrix) flipX self = liftDOM ((self ^. jsf "flipX" ()) >>= fromJSVal) +-- | +flipX_ :: (MonadDOM m) => SVGMatrix -> m () +flipX_ self = liftDOM (void (self ^. jsf "flipX" ())) + +-- | +flipXUnchecked :: (MonadDOM m) => SVGMatrix -> m SVGMatrix +flipXUnchecked self + = liftDOM ((self ^. jsf "flipX" ()) >>= fromJSValUnchecked) + -- | flipY :: (MonadDOM m) => SVGMatrix -> m (Maybe SVGMatrix) flipY self = liftDOM ((self ^. jsf "flipY" ()) >>= fromJSVal) +-- | +flipY_ :: (MonadDOM m) => SVGMatrix -> m () +flipY_ self = liftDOM (void (self ^. jsf "flipY" ())) + +-- | +flipYUnchecked :: (MonadDOM m) => SVGMatrix -> m SVGMatrix +flipYUnchecked self + = liftDOM ((self ^. jsf "flipY" ()) >>= fromJSValUnchecked) + -- | skewX :: (MonadDOM m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) skewX self angle = liftDOM ((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSVal) +-- | +skewX_ :: (MonadDOM m) => SVGMatrix -> Float -> m () +skewX_ self angle + = liftDOM (void (self ^. jsf "skewX" [toJSVal angle])) + +-- | +skewXUnchecked :: (MonadDOM m) => SVGMatrix -> Float -> m SVGMatrix +skewXUnchecked self angle + = liftDOM + ((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSValUnchecked) + -- | skewY :: (MonadDOM m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) skewY self angle = liftDOM ((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSVal) + +-- | +skewY_ :: (MonadDOM m) => SVGMatrix -> Float -> m () +skewY_ self angle + = liftDOM (void (self ^. jsf "skewY" [toJSVal angle])) + +-- | +skewYUnchecked :: (MonadDOM m) => SVGMatrix -> Float -> m SVGMatrix +skewYUnchecked self angle + = liftDOM + ((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSValUnchecked) -- | setA :: (MonadDOM m) => SVGMatrix -> Double -> m () diff --git a/src/JSDOM/Generated/SVGNumberList.hs b/src/JSDOM/Generated/SVGNumberList.hs --- a/src/JSDOM/Generated/SVGNumberList.hs +++ b/src/JSDOM/Generated/SVGNumberList.hs @@ -1,9 +1,12 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGNumberList - (clear, initialize, getItem, insertItemBefore, replaceItem, - removeItem, appendItem, getNumberOfItems, SVGNumberList, - castToSVGNumberList, gTypeSVGNumberList) + (clear, initialize, initialize_, initializeUnchecked, getItem, + getItem_, getItemUnchecked, insertItemBefore, insertItemBefore_, + insertItemBeforeUnchecked, replaceItem, replaceItem_, + replaceItemUnchecked, removeItem, removeItem_, removeItemUnchecked, + appendItem, appendItem_, appendItemUnchecked, getNumberOfItems, + SVGNumberList, castToSVGNumberList, gTypeSVGNumberList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -28,12 +31,37 @@ initialize self item = liftDOM ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSVal) +-- | +initialize_ :: + (MonadDOM m) => SVGNumberList -> Maybe SVGNumber -> m () +initialize_ self item + = liftDOM (void (self ^. jsf "initialize" [toJSVal item])) + +-- | +initializeUnchecked :: + (MonadDOM m) => SVGNumberList -> Maybe SVGNumber -> m SVGNumber +initializeUnchecked self item + = liftDOM + ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSValUnchecked) + -- | getItem :: (MonadDOM m) => SVGNumberList -> Word -> m (Maybe SVGNumber) getItem self index = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSVal) +-- | +getItem_ :: (MonadDOM m) => SVGNumberList -> Word -> m () +getItem_ self index + = liftDOM (void (self ^. jsf "getItem" [toJSVal index])) + +-- | +getItemUnchecked :: + (MonadDOM m) => SVGNumberList -> Word -> m SVGNumber +getItemUnchecked self index + = liftDOM + ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSValUnchecked) + -- | insertItemBefore :: (MonadDOM m) => @@ -43,6 +71,23 @@ ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>= fromJSVal) +-- | +insertItemBefore_ :: + (MonadDOM m) => SVGNumberList -> Maybe SVGNumber -> Word -> m () +insertItemBefore_ self item index + = liftDOM + (void + (self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index])) + +-- | +insertItemBeforeUnchecked :: + (MonadDOM m) => + SVGNumberList -> Maybe SVGNumber -> Word -> m SVGNumber +insertItemBeforeUnchecked self item index + = liftDOM + ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>= + fromJSValUnchecked) + -- | replaceItem :: (MonadDOM m) => @@ -52,6 +97,22 @@ ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>= fromJSVal) +-- | +replaceItem_ :: + (MonadDOM m) => SVGNumberList -> Maybe SVGNumber -> Word -> m () +replaceItem_ self item index + = liftDOM + (void (self ^. jsf "replaceItem" [toJSVal item, toJSVal index])) + +-- | +replaceItemUnchecked :: + (MonadDOM m) => + SVGNumberList -> Maybe SVGNumber -> Word -> m SVGNumber +replaceItemUnchecked self item index + = liftDOM + ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>= + fromJSValUnchecked) + -- | removeItem :: (MonadDOM m) => SVGNumberList -> Word -> m (Maybe SVGNumber) @@ -59,12 +120,37 @@ = liftDOM ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSVal) +-- | +removeItem_ :: (MonadDOM m) => SVGNumberList -> Word -> m () +removeItem_ self index + = liftDOM (void (self ^. jsf "removeItem" [toJSVal index])) + +-- | +removeItemUnchecked :: + (MonadDOM m) => SVGNumberList -> Word -> m SVGNumber +removeItemUnchecked self index + = liftDOM + ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSValUnchecked) + -- | appendItem :: (MonadDOM m) => SVGNumberList -> Maybe SVGNumber -> m (Maybe SVGNumber) appendItem self item = liftDOM ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSVal) + +-- | +appendItem_ :: + (MonadDOM m) => SVGNumberList -> Maybe SVGNumber -> m () +appendItem_ self item + = liftDOM (void (self ^. jsf "appendItem" [toJSVal item])) + +-- | +appendItemUnchecked :: + (MonadDOM m) => SVGNumberList -> Maybe SVGNumber -> m SVGNumber +appendItemUnchecked self item + = liftDOM + ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSValUnchecked) -- | getNumberOfItems :: (MonadDOM m) => SVGNumberList -> m Word diff --git a/src/JSDOM/Generated/SVGPathElement.hs b/src/JSDOM/Generated/SVGPathElement.hs --- a/src/JSDOM/Generated/SVGPathElement.hs +++ b/src/JSDOM/Generated/SVGPathElement.hs @@ -1,23 +1,58 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGPathElement - (getTotalLength, getPointAtLength, getPathSegAtLength, - createSVGPathSegClosePath, createSVGPathSegMovetoAbs, - createSVGPathSegMovetoRel, createSVGPathSegLinetoAbs, - createSVGPathSegLinetoRel, createSVGPathSegCurvetoCubicAbs, - createSVGPathSegCurvetoCubicRel, + (getTotalLength, getTotalLength_, getPointAtLength, + getPointAtLength_, getPointAtLengthUnchecked, getPathSegAtLength, + getPathSegAtLength_, createSVGPathSegClosePath, + createSVGPathSegClosePath_, createSVGPathSegClosePathUnchecked, + createSVGPathSegMovetoAbs, createSVGPathSegMovetoAbs_, + createSVGPathSegMovetoAbsUnchecked, createSVGPathSegMovetoRel, + createSVGPathSegMovetoRel_, createSVGPathSegMovetoRelUnchecked, + createSVGPathSegLinetoAbs, createSVGPathSegLinetoAbs_, + createSVGPathSegLinetoAbsUnchecked, createSVGPathSegLinetoRel, + createSVGPathSegLinetoRel_, createSVGPathSegLinetoRelUnchecked, + createSVGPathSegCurvetoCubicAbs, createSVGPathSegCurvetoCubicAbs_, + createSVGPathSegCurvetoCubicAbsUnchecked, + createSVGPathSegCurvetoCubicRel, createSVGPathSegCurvetoCubicRel_, + createSVGPathSegCurvetoCubicRelUnchecked, createSVGPathSegCurvetoQuadraticAbs, - createSVGPathSegCurvetoQuadraticRel, createSVGPathSegArcAbs, - createSVGPathSegArcRel, createSVGPathSegLinetoHorizontalAbs, + createSVGPathSegCurvetoQuadraticAbs_, + createSVGPathSegCurvetoQuadraticAbsUnchecked, + createSVGPathSegCurvetoQuadraticRel, + createSVGPathSegCurvetoQuadraticRel_, + createSVGPathSegCurvetoQuadraticRelUnchecked, + createSVGPathSegArcAbs, createSVGPathSegArcAbs_, + createSVGPathSegArcAbsUnchecked, createSVGPathSegArcRel, + createSVGPathSegArcRel_, createSVGPathSegArcRelUnchecked, + createSVGPathSegLinetoHorizontalAbs, + createSVGPathSegLinetoHorizontalAbs_, + createSVGPathSegLinetoHorizontalAbsUnchecked, createSVGPathSegLinetoHorizontalRel, + createSVGPathSegLinetoHorizontalRel_, + createSVGPathSegLinetoHorizontalRelUnchecked, createSVGPathSegLinetoVerticalAbs, + createSVGPathSegLinetoVerticalAbs_, + createSVGPathSegLinetoVerticalAbsUnchecked, createSVGPathSegLinetoVerticalRel, + createSVGPathSegLinetoVerticalRel_, + createSVGPathSegLinetoVerticalRelUnchecked, createSVGPathSegCurvetoCubicSmoothAbs, + createSVGPathSegCurvetoCubicSmoothAbs_, + createSVGPathSegCurvetoCubicSmoothAbsUnchecked, createSVGPathSegCurvetoCubicSmoothRel, + createSVGPathSegCurvetoCubicSmoothRel_, + createSVGPathSegCurvetoCubicSmoothRelUnchecked, createSVGPathSegCurvetoQuadraticSmoothAbs, - createSVGPathSegCurvetoQuadraticSmoothRel, getPathLength, - getPathSegList, getNormalizedPathSegList, getAnimatedPathSegList, - getAnimatedNormalizedPathSegList, SVGPathElement, + createSVGPathSegCurvetoQuadraticSmoothAbs_, + createSVGPathSegCurvetoQuadraticSmoothAbsUnchecked, + createSVGPathSegCurvetoQuadraticSmoothRel, + createSVGPathSegCurvetoQuadraticSmoothRel_, + createSVGPathSegCurvetoQuadraticSmoothRelUnchecked, getPathLength, + getPathLengthUnchecked, getPathSegList, getPathSegListUnchecked, + getNormalizedPathSegList, getNormalizedPathSegListUnchecked, + getAnimatedPathSegList, getAnimatedPathSegListUnchecked, + getAnimatedNormalizedPathSegList, + getAnimatedNormalizedPathSegListUnchecked, SVGPathElement, castToSVGPathElement, gTypeSVGPathElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -39,6 +74,11 @@ (realToFrac <$> ((self ^. jsf "getTotalLength" ()) >>= valToNumber)) +-- | +getTotalLength_ :: (MonadDOM m) => SVGPathElement -> m () +getTotalLength_ self + = liftDOM (void (self ^. jsf "getTotalLength" ())) + -- | getPointAtLength :: (MonadDOM m) => SVGPathElement -> Float -> m (Maybe SVGPoint) @@ -46,6 +86,21 @@ = liftDOM ((self ^. jsf "getPointAtLength" [toJSVal distance]) >>= fromJSVal) +-- | +getPointAtLength_ :: + (MonadDOM m) => SVGPathElement -> Float -> m () +getPointAtLength_ self distance + = liftDOM + (void (self ^. jsf "getPointAtLength" [toJSVal distance])) + +-- | +getPointAtLengthUnchecked :: + (MonadDOM m) => SVGPathElement -> Float -> m SVGPoint +getPointAtLengthUnchecked self distance + = liftDOM + ((self ^. jsf "getPointAtLength" [toJSVal distance]) >>= + fromJSValUnchecked) + -- | getPathSegAtLength :: (MonadDOM m) => SVGPathElement -> Float -> m Word @@ -55,6 +110,13 @@ ((self ^. jsf "getPathSegAtLength" [toJSVal distance]) >>= valToNumber)) +-- | +getPathSegAtLength_ :: + (MonadDOM m) => SVGPathElement -> Float -> m () +getPathSegAtLength_ self distance + = liftDOM + (void (self ^. jsf "getPathSegAtLength" [toJSVal distance])) + -- | createSVGPathSegClosePath :: (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegClosePath) @@ -62,6 +124,20 @@ = liftDOM ((self ^. jsf "createSVGPathSegClosePath" ()) >>= fromJSVal) +-- | +createSVGPathSegClosePath_ :: + (MonadDOM m) => SVGPathElement -> m () +createSVGPathSegClosePath_ self + = liftDOM (void (self ^. jsf "createSVGPathSegClosePath" ())) + +-- | +createSVGPathSegClosePathUnchecked :: + (MonadDOM m) => SVGPathElement -> m SVGPathSegClosePath +createSVGPathSegClosePathUnchecked self + = liftDOM + ((self ^. jsf "createSVGPathSegClosePath" ()) >>= + fromJSValUnchecked) + -- | createSVGPathSegMovetoAbs :: (MonadDOM m) => @@ -71,6 +147,23 @@ ((self ^. jsf "createSVGPathSegMovetoAbs" [toJSVal x, toJSVal y]) >>= fromJSVal) +-- | +createSVGPathSegMovetoAbs_ :: + (MonadDOM m) => SVGPathElement -> Float -> Float -> m () +createSVGPathSegMovetoAbs_ self x y + = liftDOM + (void + (self ^. jsf "createSVGPathSegMovetoAbs" [toJSVal x, toJSVal y])) + +-- | +createSVGPathSegMovetoAbsUnchecked :: + (MonadDOM m) => + SVGPathElement -> Float -> Float -> m SVGPathSegMovetoAbs +createSVGPathSegMovetoAbsUnchecked self x y + = liftDOM + ((self ^. jsf "createSVGPathSegMovetoAbs" [toJSVal x, toJSVal y]) + >>= fromJSValUnchecked) + -- | createSVGPathSegMovetoRel :: (MonadDOM m) => @@ -80,6 +173,23 @@ ((self ^. jsf "createSVGPathSegMovetoRel" [toJSVal x, toJSVal y]) >>= fromJSVal) +-- | +createSVGPathSegMovetoRel_ :: + (MonadDOM m) => SVGPathElement -> Float -> Float -> m () +createSVGPathSegMovetoRel_ self x y + = liftDOM + (void + (self ^. jsf "createSVGPathSegMovetoRel" [toJSVal x, toJSVal y])) + +-- | +createSVGPathSegMovetoRelUnchecked :: + (MonadDOM m) => + SVGPathElement -> Float -> Float -> m SVGPathSegMovetoRel +createSVGPathSegMovetoRelUnchecked self x y + = liftDOM + ((self ^. jsf "createSVGPathSegMovetoRel" [toJSVal x, toJSVal y]) + >>= fromJSValUnchecked) + -- | createSVGPathSegLinetoAbs :: (MonadDOM m) => @@ -89,6 +199,23 @@ ((self ^. jsf "createSVGPathSegLinetoAbs" [toJSVal x, toJSVal y]) >>= fromJSVal) +-- | +createSVGPathSegLinetoAbs_ :: + (MonadDOM m) => SVGPathElement -> Float -> Float -> m () +createSVGPathSegLinetoAbs_ self x y + = liftDOM + (void + (self ^. jsf "createSVGPathSegLinetoAbs" [toJSVal x, toJSVal y])) + +-- | +createSVGPathSegLinetoAbsUnchecked :: + (MonadDOM m) => + SVGPathElement -> Float -> Float -> m SVGPathSegLinetoAbs +createSVGPathSegLinetoAbsUnchecked self x y + = liftDOM + ((self ^. jsf "createSVGPathSegLinetoAbs" [toJSVal x, toJSVal y]) + >>= fromJSValUnchecked) + -- | createSVGPathSegLinetoRel :: (MonadDOM m) => @@ -98,6 +225,23 @@ ((self ^. jsf "createSVGPathSegLinetoRel" [toJSVal x, toJSVal y]) >>= fromJSVal) +-- | +createSVGPathSegLinetoRel_ :: + (MonadDOM m) => SVGPathElement -> Float -> Float -> m () +createSVGPathSegLinetoRel_ self x y + = liftDOM + (void + (self ^. jsf "createSVGPathSegLinetoRel" [toJSVal x, toJSVal y])) + +-- | +createSVGPathSegLinetoRelUnchecked :: + (MonadDOM m) => + SVGPathElement -> Float -> Float -> m SVGPathSegLinetoRel +createSVGPathSegLinetoRelUnchecked self x y + = liftDOM + ((self ^. jsf "createSVGPathSegLinetoRel" [toJSVal x, toJSVal y]) + >>= fromJSValUnchecked) + -- | createSVGPathSegCurvetoCubicAbs :: (MonadDOM m) => @@ -114,6 +258,34 @@ toJSVal y2]) >>= fromJSVal) +-- | +createSVGPathSegCurvetoCubicAbs_ :: + (MonadDOM m) => + SVGPathElement -> + Float -> Float -> Float -> Float -> Float -> Float -> m () +createSVGPathSegCurvetoCubicAbs_ self x y x1 y1 x2 y2 + = liftDOM + (void + (self ^. jsf "createSVGPathSegCurvetoCubicAbs" + [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1, toJSVal x2, + toJSVal y2])) + +-- | +createSVGPathSegCurvetoCubicAbsUnchecked :: + (MonadDOM m) => + SVGPathElement -> + Float -> + Float -> + Float -> + Float -> + Float -> Float -> m SVGPathSegCurvetoCubicAbs +createSVGPathSegCurvetoCubicAbsUnchecked self x y x1 y1 x2 y2 + = liftDOM + ((self ^. jsf "createSVGPathSegCurvetoCubicAbs" + [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1, toJSVal x2, + toJSVal y2]) + >>= fromJSValUnchecked) + -- | createSVGPathSegCurvetoCubicRel :: (MonadDOM m) => @@ -130,6 +302,34 @@ toJSVal y2]) >>= fromJSVal) +-- | +createSVGPathSegCurvetoCubicRel_ :: + (MonadDOM m) => + SVGPathElement -> + Float -> Float -> Float -> Float -> Float -> Float -> m () +createSVGPathSegCurvetoCubicRel_ self x y x1 y1 x2 y2 + = liftDOM + (void + (self ^. jsf "createSVGPathSegCurvetoCubicRel" + [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1, toJSVal x2, + toJSVal y2])) + +-- | +createSVGPathSegCurvetoCubicRelUnchecked :: + (MonadDOM m) => + SVGPathElement -> + Float -> + Float -> + Float -> + Float -> + Float -> Float -> m SVGPathSegCurvetoCubicRel +createSVGPathSegCurvetoCubicRelUnchecked self x y x1 y1 x2 y2 + = liftDOM + ((self ^. jsf "createSVGPathSegCurvetoCubicRel" + [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1, toJSVal x2, + toJSVal y2]) + >>= fromJSValUnchecked) + -- | createSVGPathSegCurvetoQuadraticAbs :: (MonadDOM m) => @@ -144,6 +344,30 @@ [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1]) >>= fromJSVal) +-- | +createSVGPathSegCurvetoQuadraticAbs_ :: + (MonadDOM m) => + SVGPathElement -> Float -> Float -> Float -> Float -> m () +createSVGPathSegCurvetoQuadraticAbs_ self x y x1 y1 + = liftDOM + (void + (self ^. jsf "createSVGPathSegCurvetoQuadraticAbs" + [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1])) + +-- | +createSVGPathSegCurvetoQuadraticAbsUnchecked :: + (MonadDOM m) => + SVGPathElement -> + Float -> + Float -> + Float -> + Float -> m SVGPathSegCurvetoQuadraticAbs +createSVGPathSegCurvetoQuadraticAbsUnchecked self x y x1 y1 + = liftDOM + ((self ^. jsf "createSVGPathSegCurvetoQuadraticAbs" + [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1]) + >>= fromJSValUnchecked) + -- | createSVGPathSegCurvetoQuadraticRel :: (MonadDOM m) => @@ -158,6 +382,30 @@ [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1]) >>= fromJSVal) +-- | +createSVGPathSegCurvetoQuadraticRel_ :: + (MonadDOM m) => + SVGPathElement -> Float -> Float -> Float -> Float -> m () +createSVGPathSegCurvetoQuadraticRel_ self x y x1 y1 + = liftDOM + (void + (self ^. jsf "createSVGPathSegCurvetoQuadraticRel" + [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1])) + +-- | +createSVGPathSegCurvetoQuadraticRelUnchecked :: + (MonadDOM m) => + SVGPathElement -> + Float -> + Float -> + Float -> + Float -> m SVGPathSegCurvetoQuadraticRel +createSVGPathSegCurvetoQuadraticRelUnchecked self x y x1 y1 + = liftDOM + ((self ^. jsf "createSVGPathSegCurvetoQuadraticRel" + [toJSVal x, toJSVal y, toJSVal x1, toJSVal y1]) + >>= fromJSValUnchecked) + -- | createSVGPathSegArcAbs :: (MonadDOM m) => @@ -173,6 +421,34 @@ toJSVal largeArcFlag, toJSVal sweepFlag]) >>= fromJSVal) +-- | +createSVGPathSegArcAbs_ :: + (MonadDOM m) => + SVGPathElement -> + Float -> Float -> Float -> Float -> Float -> Bool -> Bool -> m () +createSVGPathSegArcAbs_ self x y r1 r2 angle largeArcFlag sweepFlag + = liftDOM + (void + (self ^. jsf "createSVGPathSegArcAbs" + [toJSVal x, toJSVal y, toJSVal r1, toJSVal r2, toJSVal angle, + toJSVal largeArcFlag, toJSVal sweepFlag])) + +-- | +createSVGPathSegArcAbsUnchecked :: + (MonadDOM m) => + SVGPathElement -> + Float -> + Float -> + Float -> + Float -> Float -> Bool -> Bool -> m SVGPathSegArcAbs +createSVGPathSegArcAbsUnchecked self x y r1 r2 angle largeArcFlag + sweepFlag + = liftDOM + ((self ^. jsf "createSVGPathSegArcAbs" + [toJSVal x, toJSVal y, toJSVal r1, toJSVal r2, toJSVal angle, + toJSVal largeArcFlag, toJSVal sweepFlag]) + >>= fromJSValUnchecked) + -- | createSVGPathSegArcRel :: (MonadDOM m) => @@ -188,6 +464,34 @@ toJSVal largeArcFlag, toJSVal sweepFlag]) >>= fromJSVal) +-- | +createSVGPathSegArcRel_ :: + (MonadDOM m) => + SVGPathElement -> + Float -> Float -> Float -> Float -> Float -> Bool -> Bool -> m () +createSVGPathSegArcRel_ self x y r1 r2 angle largeArcFlag sweepFlag + = liftDOM + (void + (self ^. jsf "createSVGPathSegArcRel" + [toJSVal x, toJSVal y, toJSVal r1, toJSVal r2, toJSVal angle, + toJSVal largeArcFlag, toJSVal sweepFlag])) + +-- | +createSVGPathSegArcRelUnchecked :: + (MonadDOM m) => + SVGPathElement -> + Float -> + Float -> + Float -> + Float -> Float -> Bool -> Bool -> m SVGPathSegArcRel +createSVGPathSegArcRelUnchecked self x y r1 r2 angle largeArcFlag + sweepFlag + = liftDOM + ((self ^. jsf "createSVGPathSegArcRel" + [toJSVal x, toJSVal y, toJSVal r1, toJSVal r2, toJSVal angle, + toJSVal largeArcFlag, toJSVal sweepFlag]) + >>= fromJSValUnchecked) + -- | createSVGPathSegLinetoHorizontalAbs :: (MonadDOM m) => @@ -198,6 +502,24 @@ ((self ^. jsf "createSVGPathSegLinetoHorizontalAbs" [toJSVal x]) >>= fromJSVal) +-- | +createSVGPathSegLinetoHorizontalAbs_ :: + (MonadDOM m) => SVGPathElement -> Float -> m () +createSVGPathSegLinetoHorizontalAbs_ self x + = liftDOM + (void + (self ^. jsf "createSVGPathSegLinetoHorizontalAbs" [toJSVal x])) + +-- | +createSVGPathSegLinetoHorizontalAbsUnchecked :: + (MonadDOM m) => + SVGPathElement -> + Float -> m SVGPathSegLinetoHorizontalAbs +createSVGPathSegLinetoHorizontalAbsUnchecked self x + = liftDOM + ((self ^. jsf "createSVGPathSegLinetoHorizontalAbs" [toJSVal x]) + >>= fromJSValUnchecked) + -- | createSVGPathSegLinetoHorizontalRel :: (MonadDOM m) => @@ -208,6 +530,24 @@ ((self ^. jsf "createSVGPathSegLinetoHorizontalRel" [toJSVal x]) >>= fromJSVal) +-- | +createSVGPathSegLinetoHorizontalRel_ :: + (MonadDOM m) => SVGPathElement -> Float -> m () +createSVGPathSegLinetoHorizontalRel_ self x + = liftDOM + (void + (self ^. jsf "createSVGPathSegLinetoHorizontalRel" [toJSVal x])) + +-- | +createSVGPathSegLinetoHorizontalRelUnchecked :: + (MonadDOM m) => + SVGPathElement -> + Float -> m SVGPathSegLinetoHorizontalRel +createSVGPathSegLinetoHorizontalRelUnchecked self x + = liftDOM + ((self ^. jsf "createSVGPathSegLinetoHorizontalRel" [toJSVal x]) + >>= fromJSValUnchecked) + -- | createSVGPathSegLinetoVerticalAbs :: (MonadDOM m) => @@ -217,6 +557,24 @@ ((self ^. jsf "createSVGPathSegLinetoVerticalAbs" [toJSVal y]) >>= fromJSVal) +-- | +createSVGPathSegLinetoVerticalAbs_ :: + (MonadDOM m) => SVGPathElement -> Float -> m () +createSVGPathSegLinetoVerticalAbs_ self y + = liftDOM + (void + (self ^. jsf "createSVGPathSegLinetoVerticalAbs" [toJSVal y])) + +-- | +createSVGPathSegLinetoVerticalAbsUnchecked :: + (MonadDOM m) => + SVGPathElement -> + Float -> m SVGPathSegLinetoVerticalAbs +createSVGPathSegLinetoVerticalAbsUnchecked self y + = liftDOM + ((self ^. jsf "createSVGPathSegLinetoVerticalAbs" [toJSVal y]) >>= + fromJSValUnchecked) + -- | createSVGPathSegLinetoVerticalRel :: (MonadDOM m) => @@ -226,6 +584,24 @@ ((self ^. jsf "createSVGPathSegLinetoVerticalRel" [toJSVal y]) >>= fromJSVal) +-- | +createSVGPathSegLinetoVerticalRel_ :: + (MonadDOM m) => SVGPathElement -> Float -> m () +createSVGPathSegLinetoVerticalRel_ self y + = liftDOM + (void + (self ^. jsf "createSVGPathSegLinetoVerticalRel" [toJSVal y])) + +-- | +createSVGPathSegLinetoVerticalRelUnchecked :: + (MonadDOM m) => + SVGPathElement -> + Float -> m SVGPathSegLinetoVerticalRel +createSVGPathSegLinetoVerticalRelUnchecked self y + = liftDOM + ((self ^. jsf "createSVGPathSegLinetoVerticalRel" [toJSVal y]) >>= + fromJSValUnchecked) + -- | createSVGPathSegCurvetoCubicSmoothAbs :: (MonadDOM m) => @@ -240,6 +616,30 @@ [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2]) >>= fromJSVal) +-- | +createSVGPathSegCurvetoCubicSmoothAbs_ :: + (MonadDOM m) => + SVGPathElement -> Float -> Float -> Float -> Float -> m () +createSVGPathSegCurvetoCubicSmoothAbs_ self x y x2 y2 + = liftDOM + (void + (self ^. jsf "createSVGPathSegCurvetoCubicSmoothAbs" + [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2])) + +-- | +createSVGPathSegCurvetoCubicSmoothAbsUnchecked :: + (MonadDOM m) => + SVGPathElement -> + Float -> + Float -> + Float -> + Float -> m SVGPathSegCurvetoCubicSmoothAbs +createSVGPathSegCurvetoCubicSmoothAbsUnchecked self x y x2 y2 + = liftDOM + ((self ^. jsf "createSVGPathSegCurvetoCubicSmoothAbs" + [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2]) + >>= fromJSValUnchecked) + -- | createSVGPathSegCurvetoCubicSmoothRel :: (MonadDOM m) => @@ -254,6 +654,30 @@ [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2]) >>= fromJSVal) +-- | +createSVGPathSegCurvetoCubicSmoothRel_ :: + (MonadDOM m) => + SVGPathElement -> Float -> Float -> Float -> Float -> m () +createSVGPathSegCurvetoCubicSmoothRel_ self x y x2 y2 + = liftDOM + (void + (self ^. jsf "createSVGPathSegCurvetoCubicSmoothRel" + [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2])) + +-- | +createSVGPathSegCurvetoCubicSmoothRelUnchecked :: + (MonadDOM m) => + SVGPathElement -> + Float -> + Float -> + Float -> + Float -> m SVGPathSegCurvetoCubicSmoothRel +createSVGPathSegCurvetoCubicSmoothRelUnchecked self x y x2 y2 + = liftDOM + ((self ^. jsf "createSVGPathSegCurvetoCubicSmoothRel" + [toJSVal x, toJSVal y, toJSVal x2, toJSVal y2]) + >>= fromJSValUnchecked) + -- | createSVGPathSegCurvetoQuadraticSmoothAbs :: (MonadDOM m) => @@ -267,6 +691,28 @@ [toJSVal x, toJSVal y]) >>= fromJSVal) +-- | +createSVGPathSegCurvetoQuadraticSmoothAbs_ :: + (MonadDOM m) => SVGPathElement -> Float -> Float -> m () +createSVGPathSegCurvetoQuadraticSmoothAbs_ self x y + = liftDOM + (void + (self ^. jsf "createSVGPathSegCurvetoQuadraticSmoothAbs" + [toJSVal x, toJSVal y])) + +-- | +createSVGPathSegCurvetoQuadraticSmoothAbsUnchecked :: + (MonadDOM m) => + SVGPathElement -> + Float -> + Float -> + m SVGPathSegCurvetoQuadraticSmoothAbs +createSVGPathSegCurvetoQuadraticSmoothAbsUnchecked self x y + = liftDOM + ((self ^. jsf "createSVGPathSegCurvetoQuadraticSmoothAbs" + [toJSVal x, toJSVal y]) + >>= fromJSValUnchecked) + -- | createSVGPathSegCurvetoQuadraticSmoothRel :: (MonadDOM m) => @@ -280,33 +726,89 @@ [toJSVal x, toJSVal y]) >>= fromJSVal) +-- | +createSVGPathSegCurvetoQuadraticSmoothRel_ :: + (MonadDOM m) => SVGPathElement -> Float -> Float -> m () +createSVGPathSegCurvetoQuadraticSmoothRel_ self x y + = liftDOM + (void + (self ^. jsf "createSVGPathSegCurvetoQuadraticSmoothRel" + [toJSVal x, toJSVal y])) + +-- | +createSVGPathSegCurvetoQuadraticSmoothRelUnchecked :: + (MonadDOM m) => + SVGPathElement -> + Float -> + Float -> + m SVGPathSegCurvetoQuadraticSmoothRel +createSVGPathSegCurvetoQuadraticSmoothRelUnchecked self x y + = liftDOM + ((self ^. jsf "createSVGPathSegCurvetoQuadraticSmoothRel" + [toJSVal x, toJSVal y]) + >>= fromJSValUnchecked) + -- | getPathLength :: (MonadDOM m) => SVGPathElement -> m (Maybe SVGAnimatedNumber) getPathLength self = liftDOM ((self ^. js "pathLength") >>= fromJSVal) +-- | +getPathLengthUnchecked :: + (MonadDOM m) => SVGPathElement -> m SVGAnimatedNumber +getPathLengthUnchecked self + = liftDOM ((self ^. js "pathLength") >>= fromJSValUnchecked) + -- | getPathSegList :: (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegList) getPathSegList self = liftDOM ((self ^. js "pathSegList") >>= fromJSVal) +-- | +getPathSegListUnchecked :: + (MonadDOM m) => SVGPathElement -> m SVGPathSegList +getPathSegListUnchecked self + = liftDOM ((self ^. js "pathSegList") >>= fromJSValUnchecked) + -- | getNormalizedPathSegList :: (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegList) getNormalizedPathSegList self = liftDOM ((self ^. js "normalizedPathSegList") >>= fromJSVal) +-- | +getNormalizedPathSegListUnchecked :: + (MonadDOM m) => SVGPathElement -> m SVGPathSegList +getNormalizedPathSegListUnchecked self + = liftDOM + ((self ^. js "normalizedPathSegList") >>= fromJSValUnchecked) + -- | getAnimatedPathSegList :: (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegList) getAnimatedPathSegList self = liftDOM ((self ^. js "animatedPathSegList") >>= fromJSVal) +-- | +getAnimatedPathSegListUnchecked :: + (MonadDOM m) => SVGPathElement -> m SVGPathSegList +getAnimatedPathSegListUnchecked self + = liftDOM + ((self ^. js "animatedPathSegList") >>= fromJSValUnchecked) + -- | getAnimatedNormalizedPathSegList :: (MonadDOM m) => SVGPathElement -> m (Maybe SVGPathSegList) getAnimatedNormalizedPathSegList self = liftDOM ((self ^. js "animatedNormalizedPathSegList") >>= fromJSVal) + +-- | +getAnimatedNormalizedPathSegListUnchecked :: + (MonadDOM m) => SVGPathElement -> m SVGPathSegList +getAnimatedNormalizedPathSegListUnchecked self + = liftDOM + ((self ^. js "animatedNormalizedPathSegList") >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGPathSegList.hs b/src/JSDOM/Generated/SVGPathSegList.hs --- a/src/JSDOM/Generated/SVGPathSegList.hs +++ b/src/JSDOM/Generated/SVGPathSegList.hs @@ -1,9 +1,12 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGPathSegList - (clear, initialize, getItem, insertItemBefore, replaceItem, - removeItem, appendItem, getNumberOfItems, SVGPathSegList, - castToSVGPathSegList, gTypeSVGPathSegList) + (clear, initialize, initialize_, initializeUnchecked, getItem, + getItem_, getItemUnchecked, insertItemBefore, insertItemBefore_, + insertItemBeforeUnchecked, replaceItem, replaceItem_, + replaceItemUnchecked, removeItem, removeItem_, removeItemUnchecked, + appendItem, appendItem_, appendItemUnchecked, getNumberOfItems, + SVGPathSegList, castToSVGPathSegList, gTypeSVGPathSegList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -29,12 +32,40 @@ = liftDOM ((self ^. jsf "initialize" [toJSVal newItem]) >>= fromJSVal) +-- | +initialize_ :: + (MonadDOM m, IsSVGPathSeg newItem) => + SVGPathSegList -> Maybe newItem -> m () +initialize_ self newItem + = liftDOM (void (self ^. jsf "initialize" [toJSVal newItem])) + +-- | +initializeUnchecked :: + (MonadDOM m, IsSVGPathSeg newItem) => + SVGPathSegList -> Maybe newItem -> m SVGPathSeg +initializeUnchecked self newItem + = liftDOM + ((self ^. jsf "initialize" [toJSVal newItem]) >>= + fromJSValUnchecked) + -- | getItem :: (MonadDOM m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg) getItem self index = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSVal) +-- | +getItem_ :: (MonadDOM m) => SVGPathSegList -> Word -> m () +getItem_ self index + = liftDOM (void (self ^. jsf "getItem" [toJSVal index])) + +-- | +getItemUnchecked :: + (MonadDOM m) => SVGPathSegList -> Word -> m SVGPathSeg +getItemUnchecked self index + = liftDOM + ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSValUnchecked) + -- | insertItemBefore :: (MonadDOM m, IsSVGPathSeg newItem) => @@ -44,6 +75,24 @@ ((self ^. jsf "insertItemBefore" [toJSVal newItem, toJSVal index]) >>= fromJSVal) +-- | +insertItemBefore_ :: + (MonadDOM m, IsSVGPathSeg newItem) => + SVGPathSegList -> Maybe newItem -> Word -> m () +insertItemBefore_ self newItem index + = liftDOM + (void + (self ^. jsf "insertItemBefore" [toJSVal newItem, toJSVal index])) + +-- | +insertItemBeforeUnchecked :: + (MonadDOM m, IsSVGPathSeg newItem) => + SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg +insertItemBeforeUnchecked self newItem index + = liftDOM + ((self ^. jsf "insertItemBefore" [toJSVal newItem, toJSVal index]) + >>= fromJSValUnchecked) + -- | replaceItem :: (MonadDOM m, IsSVGPathSeg newItem) => @@ -53,6 +102,23 @@ ((self ^. jsf "replaceItem" [toJSVal newItem, toJSVal index]) >>= fromJSVal) +-- | +replaceItem_ :: + (MonadDOM m, IsSVGPathSeg newItem) => + SVGPathSegList -> Maybe newItem -> Word -> m () +replaceItem_ self newItem index + = liftDOM + (void (self ^. jsf "replaceItem" [toJSVal newItem, toJSVal index])) + +-- | +replaceItemUnchecked :: + (MonadDOM m, IsSVGPathSeg newItem) => + SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg +replaceItemUnchecked self newItem index + = liftDOM + ((self ^. jsf "replaceItem" [toJSVal newItem, toJSVal index]) >>= + fromJSValUnchecked) + -- | removeItem :: (MonadDOM m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg) @@ -60,6 +126,18 @@ = liftDOM ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSVal) +-- | +removeItem_ :: (MonadDOM m) => SVGPathSegList -> Word -> m () +removeItem_ self index + = liftDOM (void (self ^. jsf "removeItem" [toJSVal index])) + +-- | +removeItemUnchecked :: + (MonadDOM m) => SVGPathSegList -> Word -> m SVGPathSeg +removeItemUnchecked self index + = liftDOM + ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSValUnchecked) + -- | appendItem :: (MonadDOM m, IsSVGPathSeg newItem) => @@ -67,6 +145,22 @@ appendItem self newItem = liftDOM ((self ^. jsf "appendItem" [toJSVal newItem]) >>= fromJSVal) + +-- | +appendItem_ :: + (MonadDOM m, IsSVGPathSeg newItem) => + SVGPathSegList -> Maybe newItem -> m () +appendItem_ self newItem + = liftDOM (void (self ^. jsf "appendItem" [toJSVal newItem])) + +-- | +appendItemUnchecked :: + (MonadDOM m, IsSVGPathSeg newItem) => + SVGPathSegList -> Maybe newItem -> m SVGPathSeg +appendItemUnchecked self newItem + = liftDOM + ((self ^. jsf "appendItem" [toJSVal newItem]) >>= + fromJSValUnchecked) -- | getNumberOfItems :: (MonadDOM m) => SVGPathSegList -> m Word diff --git a/src/JSDOM/Generated/SVGPatternElement.hs b/src/JSDOM/Generated/SVGPatternElement.hs --- a/src/JSDOM/Generated/SVGPatternElement.hs +++ b/src/JSDOM/Generated/SVGPatternElement.hs @@ -1,9 +1,12 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGPatternElement - (getPatternUnits, getPatternContentUnits, getPatternTransform, - getX, getY, getWidth, getHeight, SVGPatternElement, - castToSVGPatternElement, gTypeSVGPatternElement) + (getPatternUnits, getPatternUnitsUnchecked, getPatternContentUnits, + getPatternContentUnitsUnchecked, getPatternTransform, + getPatternTransformUnchecked, getX, getXUnchecked, getY, + getYUnchecked, getWidth, getWidthUnchecked, getHeight, + getHeightUnchecked, SVGPatternElement, castToSVGPatternElement, + gTypeSVGPatternElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -24,6 +27,12 @@ getPatternUnits self = liftDOM ((self ^. js "patternUnits") >>= fromJSVal) +-- | +getPatternUnitsUnchecked :: + (MonadDOM m) => SVGPatternElement -> m SVGAnimatedEnumeration +getPatternUnitsUnchecked self + = liftDOM ((self ^. js "patternUnits") >>= fromJSValUnchecked) + -- | getPatternContentUnits :: (MonadDOM m) => @@ -31,6 +40,13 @@ getPatternContentUnits self = liftDOM ((self ^. js "patternContentUnits") >>= fromJSVal) +-- | +getPatternContentUnitsUnchecked :: + (MonadDOM m) => SVGPatternElement -> m SVGAnimatedEnumeration +getPatternContentUnitsUnchecked self + = liftDOM + ((self ^. js "patternContentUnits") >>= fromJSValUnchecked) + -- | getPatternTransform :: (MonadDOM m) => @@ -38,22 +54,52 @@ getPatternTransform self = liftDOM ((self ^. js "patternTransform") >>= fromJSVal) +-- | +getPatternTransformUnchecked :: + (MonadDOM m) => SVGPatternElement -> m SVGAnimatedTransformList +getPatternTransformUnchecked self + = liftDOM ((self ^. js "patternTransform") >>= fromJSValUnchecked) + -- | getX :: (MonadDOM m) => SVGPatternElement -> m (Maybe SVGAnimatedLength) getX self = liftDOM ((self ^. js "x") >>= fromJSVal) +-- | +getXUnchecked :: + (MonadDOM m) => SVGPatternElement -> m SVGAnimatedLength +getXUnchecked self + = liftDOM ((self ^. js "x") >>= fromJSValUnchecked) + -- | getY :: (MonadDOM m) => SVGPatternElement -> m (Maybe SVGAnimatedLength) getY self = liftDOM ((self ^. js "y") >>= fromJSVal) +-- | +getYUnchecked :: + (MonadDOM m) => SVGPatternElement -> m SVGAnimatedLength +getYUnchecked self + = liftDOM ((self ^. js "y") >>= fromJSValUnchecked) + -- | getWidth :: (MonadDOM m) => SVGPatternElement -> m (Maybe SVGAnimatedLength) getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal) +-- | +getWidthUnchecked :: + (MonadDOM m) => SVGPatternElement -> m SVGAnimatedLength +getWidthUnchecked self + = liftDOM ((self ^. js "width") >>= fromJSValUnchecked) + -- | getHeight :: (MonadDOM m) => SVGPatternElement -> m (Maybe SVGAnimatedLength) getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal) + +-- | +getHeightUnchecked :: + (MonadDOM m) => SVGPatternElement -> m SVGAnimatedLength +getHeightUnchecked self + = liftDOM ((self ^. js "height") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGPoint.hs b/src/JSDOM/Generated/SVGPoint.hs --- a/src/JSDOM/Generated/SVGPoint.hs +++ b/src/JSDOM/Generated/SVGPoint.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGPoint - (matrixTransform, setX, getX, setY, getY, SVGPoint, castToSVGPoint, - gTypeSVGPoint) + (matrixTransform, matrixTransform_, matrixTransformUnchecked, setX, + getX, setY, getY, SVGPoint, castToSVGPoint, gTypeSVGPoint) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -22,6 +22,20 @@ matrixTransform self matrix = liftDOM ((self ^. jsf "matrixTransform" [toJSVal matrix]) >>= fromJSVal) + +-- | +matrixTransform_ :: + (MonadDOM m) => SVGPoint -> Maybe SVGMatrix -> m () +matrixTransform_ self matrix + = liftDOM (void (self ^. jsf "matrixTransform" [toJSVal matrix])) + +-- | +matrixTransformUnchecked :: + (MonadDOM m) => SVGPoint -> Maybe SVGMatrix -> m SVGPoint +matrixTransformUnchecked self matrix + = liftDOM + ((self ^. jsf "matrixTransform" [toJSVal matrix]) >>= + fromJSValUnchecked) -- | setX :: (MonadDOM m) => SVGPoint -> Float -> m () diff --git a/src/JSDOM/Generated/SVGPointList.hs b/src/JSDOM/Generated/SVGPointList.hs --- a/src/JSDOM/Generated/SVGPointList.hs +++ b/src/JSDOM/Generated/SVGPointList.hs @@ -1,9 +1,12 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGPointList - (clear, initialize, getItem, insertItemBefore, replaceItem, - removeItem, appendItem, getNumberOfItems, SVGPointList, - castToSVGPointList, gTypeSVGPointList) + (clear, initialize, initialize_, initializeUnchecked, getItem, + getItem_, getItemUnchecked, insertItemBefore, insertItemBefore_, + insertItemBeforeUnchecked, replaceItem, replaceItem_, + replaceItemUnchecked, removeItem, removeItem_, removeItemUnchecked, + appendItem, appendItem_, appendItemUnchecked, getNumberOfItems, + SVGPointList, castToSVGPointList, gTypeSVGPointList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -28,12 +31,37 @@ initialize self item = liftDOM ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSVal) +-- | +initialize_ :: + (MonadDOM m) => SVGPointList -> Maybe SVGPoint -> m () +initialize_ self item + = liftDOM (void (self ^. jsf "initialize" [toJSVal item])) + +-- | +initializeUnchecked :: + (MonadDOM m) => SVGPointList -> Maybe SVGPoint -> m SVGPoint +initializeUnchecked self item + = liftDOM + ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSValUnchecked) + -- | getItem :: (MonadDOM m) => SVGPointList -> Word -> m (Maybe SVGPoint) getItem self index = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSVal) +-- | +getItem_ :: (MonadDOM m) => SVGPointList -> Word -> m () +getItem_ self index + = liftDOM (void (self ^. jsf "getItem" [toJSVal index])) + +-- | +getItemUnchecked :: + (MonadDOM m) => SVGPointList -> Word -> m SVGPoint +getItemUnchecked self index + = liftDOM + ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSValUnchecked) + -- | insertItemBefore :: (MonadDOM m) => @@ -43,6 +71,23 @@ ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>= fromJSVal) +-- | +insertItemBefore_ :: + (MonadDOM m) => SVGPointList -> Maybe SVGPoint -> Word -> m () +insertItemBefore_ self item index + = liftDOM + (void + (self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index])) + +-- | +insertItemBeforeUnchecked :: + (MonadDOM m) => + SVGPointList -> Maybe SVGPoint -> Word -> m SVGPoint +insertItemBeforeUnchecked self item index + = liftDOM + ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>= + fromJSValUnchecked) + -- | replaceItem :: (MonadDOM m) => @@ -52,6 +97,22 @@ ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>= fromJSVal) +-- | +replaceItem_ :: + (MonadDOM m) => SVGPointList -> Maybe SVGPoint -> Word -> m () +replaceItem_ self item index + = liftDOM + (void (self ^. jsf "replaceItem" [toJSVal item, toJSVal index])) + +-- | +replaceItemUnchecked :: + (MonadDOM m) => + SVGPointList -> Maybe SVGPoint -> Word -> m SVGPoint +replaceItemUnchecked self item index + = liftDOM + ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>= + fromJSValUnchecked) + -- | removeItem :: (MonadDOM m) => SVGPointList -> Word -> m (Maybe SVGPoint) @@ -59,12 +120,37 @@ = liftDOM ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSVal) +-- | +removeItem_ :: (MonadDOM m) => SVGPointList -> Word -> m () +removeItem_ self index + = liftDOM (void (self ^. jsf "removeItem" [toJSVal index])) + +-- | +removeItemUnchecked :: + (MonadDOM m) => SVGPointList -> Word -> m SVGPoint +removeItemUnchecked self index + = liftDOM + ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSValUnchecked) + -- | appendItem :: (MonadDOM m) => SVGPointList -> Maybe SVGPoint -> m (Maybe SVGPoint) appendItem self item = liftDOM ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSVal) + +-- | +appendItem_ :: + (MonadDOM m) => SVGPointList -> Maybe SVGPoint -> m () +appendItem_ self item + = liftDOM (void (self ^. jsf "appendItem" [toJSVal item])) + +-- | +appendItemUnchecked :: + (MonadDOM m) => SVGPointList -> Maybe SVGPoint -> m SVGPoint +appendItemUnchecked self item + = liftDOM + ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSValUnchecked) -- | getNumberOfItems :: (MonadDOM m) => SVGPointList -> m Word diff --git a/src/JSDOM/Generated/SVGPolygonElement.hs b/src/JSDOM/Generated/SVGPolygonElement.hs --- a/src/JSDOM/Generated/SVGPolygonElement.hs +++ b/src/JSDOM/Generated/SVGPolygonElement.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGPolygonElement - (getPoints, getAnimatedPoints, SVGPolygonElement, + (getPoints, getPointsUnchecked, getAnimatedPoints, + getAnimatedPointsUnchecked, SVGPolygonElement, castToSVGPolygonElement, gTypeSVGPolygonElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -21,8 +22,20 @@ (MonadDOM m) => SVGPolygonElement -> m (Maybe SVGPointList) getPoints self = liftDOM ((self ^. js "points") >>= fromJSVal) +-- | +getPointsUnchecked :: + (MonadDOM m) => SVGPolygonElement -> m SVGPointList +getPointsUnchecked self + = liftDOM ((self ^. js "points") >>= fromJSValUnchecked) + -- | getAnimatedPoints :: (MonadDOM m) => SVGPolygonElement -> m (Maybe SVGPointList) getAnimatedPoints self = liftDOM ((self ^. js "animatedPoints") >>= fromJSVal) + +-- | +getAnimatedPointsUnchecked :: + (MonadDOM m) => SVGPolygonElement -> m SVGPointList +getAnimatedPointsUnchecked self + = liftDOM ((self ^. js "animatedPoints") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGPolylineElement.hs b/src/JSDOM/Generated/SVGPolylineElement.hs --- a/src/JSDOM/Generated/SVGPolylineElement.hs +++ b/src/JSDOM/Generated/SVGPolylineElement.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGPolylineElement - (getPoints, getAnimatedPoints, SVGPolylineElement, + (getPoints, getPointsUnchecked, getAnimatedPoints, + getAnimatedPointsUnchecked, SVGPolylineElement, castToSVGPolylineElement, gTypeSVGPolylineElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -21,8 +22,20 @@ (MonadDOM m) => SVGPolylineElement -> m (Maybe SVGPointList) getPoints self = liftDOM ((self ^. js "points") >>= fromJSVal) +-- | +getPointsUnchecked :: + (MonadDOM m) => SVGPolylineElement -> m SVGPointList +getPointsUnchecked self + = liftDOM ((self ^. js "points") >>= fromJSValUnchecked) + -- | getAnimatedPoints :: (MonadDOM m) => SVGPolylineElement -> m (Maybe SVGPointList) getAnimatedPoints self = liftDOM ((self ^. js "animatedPoints") >>= fromJSVal) + +-- | +getAnimatedPointsUnchecked :: + (MonadDOM m) => SVGPolylineElement -> m SVGPointList +getAnimatedPointsUnchecked self + = liftDOM ((self ^. js "animatedPoints") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGRadialGradientElement.hs b/src/JSDOM/Generated/SVGRadialGradientElement.hs --- a/src/JSDOM/Generated/SVGRadialGradientElement.hs +++ b/src/JSDOM/Generated/SVGRadialGradientElement.hs @@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGRadialGradientElement - (getCx, getCy, getR, getFx, getFy, getFr, SVGRadialGradientElement, + (getCx, getCxUnchecked, getCy, getCyUnchecked, getR, getRUnchecked, + getFx, getFxUnchecked, getFy, getFyUnchecked, getFr, + getFrUnchecked, SVGRadialGradientElement, castToSVGRadialGradientElement, gTypeSVGRadialGradientElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -22,32 +24,68 @@ SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) getCx self = liftDOM ((self ^. js "cx") >>= fromJSVal) +-- | +getCxUnchecked :: + (MonadDOM m) => SVGRadialGradientElement -> m SVGAnimatedLength +getCxUnchecked self + = liftDOM ((self ^. js "cx") >>= fromJSValUnchecked) + -- | getCy :: (MonadDOM m) => SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) getCy self = liftDOM ((self ^. js "cy") >>= fromJSVal) +-- | +getCyUnchecked :: + (MonadDOM m) => SVGRadialGradientElement -> m SVGAnimatedLength +getCyUnchecked self + = liftDOM ((self ^. js "cy") >>= fromJSValUnchecked) + -- | getR :: (MonadDOM m) => SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) getR self = liftDOM ((self ^. js "r") >>= fromJSVal) +-- | +getRUnchecked :: + (MonadDOM m) => SVGRadialGradientElement -> m SVGAnimatedLength +getRUnchecked self + = liftDOM ((self ^. js "r") >>= fromJSValUnchecked) + -- | getFx :: (MonadDOM m) => SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) getFx self = liftDOM ((self ^. js "fx") >>= fromJSVal) +-- | +getFxUnchecked :: + (MonadDOM m) => SVGRadialGradientElement -> m SVGAnimatedLength +getFxUnchecked self + = liftDOM ((self ^. js "fx") >>= fromJSValUnchecked) + -- | getFy :: (MonadDOM m) => SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) getFy self = liftDOM ((self ^. js "fy") >>= fromJSVal) +-- | +getFyUnchecked :: + (MonadDOM m) => SVGRadialGradientElement -> m SVGAnimatedLength +getFyUnchecked self + = liftDOM ((self ^. js "fy") >>= fromJSValUnchecked) + -- | getFr :: (MonadDOM m) => SVGRadialGradientElement -> m (Maybe SVGAnimatedLength) getFr self = liftDOM ((self ^. js "fr") >>= fromJSVal) + +-- | +getFrUnchecked :: + (MonadDOM m) => SVGRadialGradientElement -> m SVGAnimatedLength +getFrUnchecked self + = liftDOM ((self ^. js "fr") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGRectElement.hs b/src/JSDOM/Generated/SVGRectElement.hs --- a/src/JSDOM/Generated/SVGRectElement.hs +++ b/src/JSDOM/Generated/SVGRectElement.hs @@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGRectElement - (getX, getY, getWidth, getHeight, getRx, getRy, SVGRectElement, + (getX, getXUnchecked, getY, getYUnchecked, getWidth, + getWidthUnchecked, getHeight, getHeightUnchecked, getRx, + getRxUnchecked, getRy, getRyUnchecked, SVGRectElement, castToSVGRectElement, gTypeSVGRectElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -21,27 +23,63 @@ (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getX self = liftDOM ((self ^. js "x") >>= fromJSVal) +-- | +getXUnchecked :: + (MonadDOM m) => SVGRectElement -> m SVGAnimatedLength +getXUnchecked self + = liftDOM ((self ^. js "x") >>= fromJSValUnchecked) + -- | getY :: (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getY self = liftDOM ((self ^. js "y") >>= fromJSVal) +-- | +getYUnchecked :: + (MonadDOM m) => SVGRectElement -> m SVGAnimatedLength +getYUnchecked self + = liftDOM ((self ^. js "y") >>= fromJSValUnchecked) + -- | getWidth :: (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal) +-- | +getWidthUnchecked :: + (MonadDOM m) => SVGRectElement -> m SVGAnimatedLength +getWidthUnchecked self + = liftDOM ((self ^. js "width") >>= fromJSValUnchecked) + -- | getHeight :: (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal) +-- | +getHeightUnchecked :: + (MonadDOM m) => SVGRectElement -> m SVGAnimatedLength +getHeightUnchecked self + = liftDOM ((self ^. js "height") >>= fromJSValUnchecked) + -- | getRx :: (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getRx self = liftDOM ((self ^. js "rx") >>= fromJSVal) +-- | +getRxUnchecked :: + (MonadDOM m) => SVGRectElement -> m SVGAnimatedLength +getRxUnchecked self + = liftDOM ((self ^. js "rx") >>= fromJSValUnchecked) + -- | getRy :: (MonadDOM m) => SVGRectElement -> m (Maybe SVGAnimatedLength) getRy self = liftDOM ((self ^. js "ry") >>= fromJSVal) + +-- | +getRyUnchecked :: + (MonadDOM m) => SVGRectElement -> m SVGAnimatedLength +getRyUnchecked self + = liftDOM ((self ^. js "ry") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGSVGElement.hs b/src/JSDOM/Generated/SVGSVGElement.hs --- a/src/JSDOM/Generated/SVGSVGElement.hs +++ b/src/JSDOM/Generated/SVGSVGElement.hs @@ -1,19 +1,32 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGSVGElement - (suspendRedraw, unsuspendRedraw, unsuspendRedrawAll, forceRedraw, - pauseAnimations, unpauseAnimations, animationsPaused, - getCurrentTime, setCurrentTime, getIntersectionList, - getEnclosureList, checkIntersection, checkEnclosure, deselectAll, - createSVGNumber, createSVGLength, createSVGAngle, createSVGPoint, - createSVGMatrix, createSVGRect, createSVGTransform, - createSVGTransformFromMatrix, getElementById, getX, getY, getWidth, - getHeight, setContentScriptType, getContentScriptType, + (suspendRedraw, suspendRedraw_, unsuspendRedraw, + unsuspendRedrawAll, forceRedraw, pauseAnimations, + unpauseAnimations, animationsPaused, animationsPaused_, + getCurrentTime, getCurrentTime_, setCurrentTime, + getIntersectionList, getIntersectionList_, + getIntersectionListUnchecked, getEnclosureList, getEnclosureList_, + getEnclosureListUnchecked, checkIntersection, checkIntersection_, + checkEnclosure, checkEnclosure_, deselectAll, createSVGNumber, + createSVGNumber_, createSVGNumberUnchecked, createSVGLength, + createSVGLength_, createSVGLengthUnchecked, createSVGAngle, + createSVGAngle_, createSVGAngleUnchecked, createSVGPoint, + createSVGPoint_, createSVGPointUnchecked, createSVGMatrix, + createSVGMatrix_, createSVGMatrixUnchecked, createSVGRect, + createSVGRect_, createSVGRectUnchecked, createSVGTransform, + createSVGTransform_, createSVGTransformUnchecked, + createSVGTransformFromMatrix, createSVGTransformFromMatrix_, + createSVGTransformFromMatrixUnchecked, getElementById, + getElementById_, getElementByIdUnchecked, getX, getXUnchecked, + getY, getYUnchecked, getWidth, getWidthUnchecked, getHeight, + getHeightUnchecked, setContentScriptType, getContentScriptType, setContentStyleType, getContentStyleType, getViewport, - getPixelUnitToMillimeterX, getPixelUnitToMillimeterY, - getScreenPixelToMillimeterX, getScreenPixelToMillimeterY, - getUseCurrentView, getCurrentView, setCurrentScale, - getCurrentScale, getCurrentTranslate, SVGSVGElement, + getViewportUnchecked, getPixelUnitToMillimeterX, + getPixelUnitToMillimeterY, getScreenPixelToMillimeterX, + getScreenPixelToMillimeterY, getUseCurrentView, getCurrentView, + getCurrentViewUnchecked, setCurrentScale, getCurrentScale, + getCurrentTranslate, getCurrentTranslateUnchecked, SVGSVGElement, castToSVGSVGElement, gTypeSVGSVGElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -36,6 +49,12 @@ ((self ^. jsf "suspendRedraw" [toJSVal maxWaitMilliseconds]) >>= valToNumber)) +-- | +suspendRedraw_ :: (MonadDOM m) => SVGSVGElement -> Word -> m () +suspendRedraw_ self maxWaitMilliseconds + = liftDOM + (void (self ^. jsf "suspendRedraw" [toJSVal maxWaitMilliseconds])) + -- | unsuspendRedraw :: (MonadDOM m) => SVGSVGElement -> Word -> m () unsuspendRedraw self suspendHandleId @@ -66,6 +85,11 @@ animationsPaused self = liftDOM ((self ^. jsf "animationsPaused" ()) >>= valToBool) +-- | +animationsPaused_ :: (MonadDOM m) => SVGSVGElement -> m () +animationsPaused_ self + = liftDOM (void (self ^. jsf "animationsPaused" ())) + -- | getCurrentTime :: (MonadDOM m) => SVGSVGElement -> m Float getCurrentTime self @@ -73,6 +97,11 @@ (realToFrac <$> ((self ^. jsf "getCurrentTime" ()) >>= valToNumber)) +-- | +getCurrentTime_ :: (MonadDOM m) => SVGSVGElement -> m () +getCurrentTime_ self + = liftDOM (void (self ^. jsf "getCurrentTime" ())) + -- | setCurrentTime :: (MonadDOM m) => SVGSVGElement -> Float -> m () setCurrentTime self seconds @@ -89,6 +118,27 @@ [toJSVal rect, toJSVal referenceElement]) >>= fromJSVal) +-- | +getIntersectionList_ :: + (MonadDOM m, IsSVGElement referenceElement) => + SVGSVGElement -> Maybe SVGRect -> Maybe referenceElement -> m () +getIntersectionList_ self rect referenceElement + = liftDOM + (void + (self ^. jsf "getIntersectionList" + [toJSVal rect, toJSVal referenceElement])) + +-- | +getIntersectionListUnchecked :: + (MonadDOM m, IsSVGElement referenceElement) => + SVGSVGElement -> + Maybe SVGRect -> Maybe referenceElement -> m NodeList +getIntersectionListUnchecked self rect referenceElement + = liftDOM + ((self ^. jsf "getIntersectionList" + [toJSVal rect, toJSVal referenceElement]) + >>= fromJSValUnchecked) + -- | getEnclosureList :: (MonadDOM m, IsSVGElement referenceElement) => @@ -100,6 +150,27 @@ [toJSVal rect, toJSVal referenceElement]) >>= fromJSVal) +-- | +getEnclosureList_ :: + (MonadDOM m, IsSVGElement referenceElement) => + SVGSVGElement -> Maybe SVGRect -> Maybe referenceElement -> m () +getEnclosureList_ self rect referenceElement + = liftDOM + (void + (self ^. jsf "getEnclosureList" + [toJSVal rect, toJSVal referenceElement])) + +-- | +getEnclosureListUnchecked :: + (MonadDOM m, IsSVGElement referenceElement) => + SVGSVGElement -> + Maybe SVGRect -> Maybe referenceElement -> m NodeList +getEnclosureListUnchecked self rect referenceElement + = liftDOM + ((self ^. jsf "getEnclosureList" + [toJSVal rect, toJSVal referenceElement]) + >>= fromJSValUnchecked) + -- | checkIntersection :: (MonadDOM m, IsSVGElement element) => @@ -109,6 +180,15 @@ ((self ^. jsf "checkIntersection" [toJSVal element, toJSVal rect]) >>= valToBool) +-- | +checkIntersection_ :: + (MonadDOM m, IsSVGElement element) => + SVGSVGElement -> Maybe element -> Maybe SVGRect -> m () +checkIntersection_ self element rect + = liftDOM + (void + (self ^. jsf "checkIntersection" [toJSVal element, toJSVal rect])) + -- | checkEnclosure :: (MonadDOM m, IsSVGElement element) => @@ -118,6 +198,15 @@ ((self ^. jsf "checkEnclosure" [toJSVal element, toJSVal rect]) >>= valToBool) +-- | +checkEnclosure_ :: + (MonadDOM m, IsSVGElement element) => + SVGSVGElement -> Maybe element -> Maybe SVGRect -> m () +checkEnclosure_ self element rect + = liftDOM + (void + (self ^. jsf "checkEnclosure" [toJSVal element, toJSVal rect])) + -- | deselectAll :: (MonadDOM m) => SVGSVGElement -> m () deselectAll self = liftDOM (void (self ^. jsf "deselectAll" ())) @@ -128,41 +217,124 @@ createSVGNumber self = liftDOM ((self ^. jsf "createSVGNumber" ()) >>= fromJSVal) +-- | +createSVGNumber_ :: (MonadDOM m) => SVGSVGElement -> m () +createSVGNumber_ self + = liftDOM (void (self ^. jsf "createSVGNumber" ())) + +-- | +createSVGNumberUnchecked :: + (MonadDOM m) => SVGSVGElement -> m SVGNumber +createSVGNumberUnchecked self + = liftDOM + ((self ^. jsf "createSVGNumber" ()) >>= fromJSValUnchecked) + -- | createSVGLength :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGLength) createSVGLength self = liftDOM ((self ^. jsf "createSVGLength" ()) >>= fromJSVal) +-- | +createSVGLength_ :: (MonadDOM m) => SVGSVGElement -> m () +createSVGLength_ self + = liftDOM (void (self ^. jsf "createSVGLength" ())) + +-- | +createSVGLengthUnchecked :: + (MonadDOM m) => SVGSVGElement -> m SVGLength +createSVGLengthUnchecked self + = liftDOM + ((self ^. jsf "createSVGLength" ()) >>= fromJSValUnchecked) + -- | createSVGAngle :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAngle) createSVGAngle self = liftDOM ((self ^. jsf "createSVGAngle" ()) >>= fromJSVal) +-- | +createSVGAngle_ :: (MonadDOM m) => SVGSVGElement -> m () +createSVGAngle_ self + = liftDOM (void (self ^. jsf "createSVGAngle" ())) + +-- | +createSVGAngleUnchecked :: + (MonadDOM m) => SVGSVGElement -> m SVGAngle +createSVGAngleUnchecked self + = liftDOM + ((self ^. jsf "createSVGAngle" ()) >>= fromJSValUnchecked) + -- | createSVGPoint :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGPoint) createSVGPoint self = liftDOM ((self ^. jsf "createSVGPoint" ()) >>= fromJSVal) +-- | +createSVGPoint_ :: (MonadDOM m) => SVGSVGElement -> m () +createSVGPoint_ self + = liftDOM (void (self ^. jsf "createSVGPoint" ())) + +-- | +createSVGPointUnchecked :: + (MonadDOM m) => SVGSVGElement -> m SVGPoint +createSVGPointUnchecked self + = liftDOM + ((self ^. jsf "createSVGPoint" ()) >>= fromJSValUnchecked) + -- | createSVGMatrix :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGMatrix) createSVGMatrix self = liftDOM ((self ^. jsf "createSVGMatrix" ()) >>= fromJSVal) +-- | +createSVGMatrix_ :: (MonadDOM m) => SVGSVGElement -> m () +createSVGMatrix_ self + = liftDOM (void (self ^. jsf "createSVGMatrix" ())) + +-- | +createSVGMatrixUnchecked :: + (MonadDOM m) => SVGSVGElement -> m SVGMatrix +createSVGMatrixUnchecked self + = liftDOM + ((self ^. jsf "createSVGMatrix" ()) >>= fromJSValUnchecked) + -- | createSVGRect :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGRect) createSVGRect self = liftDOM ((self ^. jsf "createSVGRect" ()) >>= fromJSVal) +-- | +createSVGRect_ :: (MonadDOM m) => SVGSVGElement -> m () +createSVGRect_ self + = liftDOM (void (self ^. jsf "createSVGRect" ())) + +-- | +createSVGRectUnchecked :: + (MonadDOM m) => SVGSVGElement -> m SVGRect +createSVGRectUnchecked self + = liftDOM ((self ^. jsf "createSVGRect" ()) >>= fromJSValUnchecked) + -- | createSVGTransform :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGTransform) createSVGTransform self = liftDOM ((self ^. jsf "createSVGTransform" ()) >>= fromJSVal) +-- | +createSVGTransform_ :: (MonadDOM m) => SVGSVGElement -> m () +createSVGTransform_ self + = liftDOM (void (self ^. jsf "createSVGTransform" ())) + +-- | +createSVGTransformUnchecked :: + (MonadDOM m) => SVGSVGElement -> m SVGTransform +createSVGTransformUnchecked self + = liftDOM + ((self ^. jsf "createSVGTransform" ()) >>= fromJSValUnchecked) + -- | createSVGTransformFromMatrix :: (MonadDOM m) => @@ -172,6 +344,23 @@ ((self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]) >>= fromJSVal) +-- | +createSVGTransformFromMatrix_ :: + (MonadDOM m) => SVGSVGElement -> Maybe SVGMatrix -> m () +createSVGTransformFromMatrix_ self matrix + = liftDOM + (void + (self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix])) + +-- | +createSVGTransformFromMatrixUnchecked :: + (MonadDOM m) => + SVGSVGElement -> Maybe SVGMatrix -> m SVGTransform +createSVGTransformFromMatrixUnchecked self matrix + = liftDOM + ((self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]) >>= + fromJSValUnchecked) + -- | getElementById :: (MonadDOM m, ToJSString elementId) => @@ -180,26 +369,66 @@ = liftDOM ((self ^. jsf "getElementById" [toJSVal elementId]) >>= fromJSVal) +-- | +getElementById_ :: + (MonadDOM m, ToJSString elementId) => + SVGSVGElement -> elementId -> m () +getElementById_ self elementId + = liftDOM (void (self ^. jsf "getElementById" [toJSVal elementId])) + +-- | +getElementByIdUnchecked :: + (MonadDOM m, ToJSString elementId) => + SVGSVGElement -> elementId -> m Element +getElementByIdUnchecked self elementId + = liftDOM + ((self ^. jsf "getElementById" [toJSVal elementId]) >>= + fromJSValUnchecked) + -- | getX :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getX self = liftDOM ((self ^. js "x") >>= fromJSVal) +-- | +getXUnchecked :: + (MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength +getXUnchecked self + = liftDOM ((self ^. js "x") >>= fromJSValUnchecked) + -- | getY :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getY self = liftDOM ((self ^. js "y") >>= fromJSVal) +-- | +getYUnchecked :: + (MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength +getYUnchecked self + = liftDOM ((self ^. js "y") >>= fromJSValUnchecked) + -- | getWidth :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal) +-- | +getWidthUnchecked :: + (MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength +getWidthUnchecked self + = liftDOM ((self ^. js "width") >>= fromJSValUnchecked) + -- | getHeight :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal) +-- | +getHeightUnchecked :: + (MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength +getHeightUnchecked self + = liftDOM ((self ^. js "height") >>= fromJSValUnchecked) + -- | setContentScriptType :: (MonadDOM m, ToJSString val) => SVGSVGElement -> val -> m () @@ -228,6 +457,11 @@ getViewport :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGRect) getViewport self = liftDOM ((self ^. js "viewport") >>= fromJSVal) +-- | +getViewportUnchecked :: (MonadDOM m) => SVGSVGElement -> m SVGRect +getViewportUnchecked self + = liftDOM ((self ^. js "viewport") >>= fromJSValUnchecked) + -- | getPixelUnitToMillimeterX :: (MonadDOM m) => SVGSVGElement -> m Float @@ -271,6 +505,12 @@ getCurrentView self = liftDOM ((self ^. js "currentView") >>= fromJSVal) +-- | +getCurrentViewUnchecked :: + (MonadDOM m) => SVGSVGElement -> m SVGViewSpec +getCurrentViewUnchecked self + = liftDOM ((self ^. js "currentView") >>= fromJSValUnchecked) + -- | setCurrentScale :: (MonadDOM m) => SVGSVGElement -> Float -> m () setCurrentScale self val @@ -287,3 +527,9 @@ (MonadDOM m) => SVGSVGElement -> m (Maybe SVGPoint) getCurrentTranslate self = liftDOM ((self ^. js "currentTranslate") >>= fromJSVal) + +-- | +getCurrentTranslateUnchecked :: + (MonadDOM m) => SVGSVGElement -> m SVGPoint +getCurrentTranslateUnchecked self + = liftDOM ((self ^. js "currentTranslate") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGScriptElement.hs b/src/JSDOM/Generated/SVGScriptElement.hs --- a/src/JSDOM/Generated/SVGScriptElement.hs +++ b/src/JSDOM/Generated/SVGScriptElement.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGScriptElement - (setType, getType, SVGScriptElement, castToSVGScriptElement, - gTypeSVGScriptElement) + (setType, getType, getTypeUnchecked, SVGScriptElement, + castToSVGScriptElement, gTypeSVGScriptElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -27,3 +27,9 @@ (MonadDOM m, FromJSString result) => SVGScriptElement -> m (Maybe result) getType self = liftDOM ((self ^. js "type") >>= fromMaybeJSString) + +-- | +getTypeUnchecked :: + (MonadDOM m, FromJSString result) => SVGScriptElement -> m result +getTypeUnchecked self + = liftDOM ((self ^. js "type") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGStopElement.hs b/src/JSDOM/Generated/SVGStopElement.hs --- a/src/JSDOM/Generated/SVGStopElement.hs +++ b/src/JSDOM/Generated/SVGStopElement.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGStopElement - (getOffset, SVGStopElement, castToSVGStopElement, - gTypeSVGStopElement) + (getOffset, getOffsetUnchecked, SVGStopElement, + castToSVGStopElement, gTypeSVGStopElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,3 +20,9 @@ getOffset :: (MonadDOM m) => SVGStopElement -> m (Maybe SVGAnimatedNumber) getOffset self = liftDOM ((self ^. js "offset") >>= fromJSVal) + +-- | +getOffsetUnchecked :: + (MonadDOM m) => SVGStopElement -> m SVGAnimatedNumber +getOffsetUnchecked self + = liftDOM ((self ^. js "offset") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGStringList.hs b/src/JSDOM/Generated/SVGStringList.hs --- a/src/JSDOM/Generated/SVGStringList.hs +++ b/src/JSDOM/Generated/SVGStringList.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGStringList - (clear, initialize, getItem, insertItemBefore, replaceItem, - removeItem, appendItem, getNumberOfItems, SVGStringList, - castToSVGStringList, gTypeSVGStringList) + (clear, initialize, initialize_, getItem, getItem_, + insertItemBefore, insertItemBefore_, replaceItem, replaceItem_, + removeItem, removeItem_, appendItem, appendItem_, getNumberOfItems, + SVGStringList, castToSVGStringList, gTypeSVGStringList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -29,6 +30,12 @@ = liftDOM ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSValUnchecked) +-- | +initialize_ :: + (MonadDOM m, ToJSString item) => SVGStringList -> item -> m () +initialize_ self item + = liftDOM (void (self ^. jsf "initialize" [toJSVal item])) + -- | getItem :: (MonadDOM m, FromJSString result) => @@ -37,6 +44,11 @@ = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSValUnchecked) +-- | +getItem_ :: (MonadDOM m) => SVGStringList -> Word -> m () +getItem_ self index + = liftDOM (void (self ^. jsf "getItem" [toJSVal index])) + -- | insertItemBefore :: (MonadDOM m, ToJSString item, FromJSString result) => @@ -46,6 +58,15 @@ ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>= fromJSValUnchecked) +-- | +insertItemBefore_ :: + (MonadDOM m, ToJSString item) => + SVGStringList -> item -> Word -> m () +insertItemBefore_ self item index + = liftDOM + (void + (self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index])) + -- | replaceItem :: (MonadDOM m, ToJSString item, FromJSString result) => @@ -55,6 +76,14 @@ ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>= fromJSValUnchecked) +-- | +replaceItem_ :: + (MonadDOM m, ToJSString item) => + SVGStringList -> item -> Word -> m () +replaceItem_ self item index + = liftDOM + (void (self ^. jsf "replaceItem" [toJSVal item, toJSVal index])) + -- | removeItem :: (MonadDOM m, FromJSString result) => @@ -63,6 +92,11 @@ = liftDOM ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSValUnchecked) +-- | +removeItem_ :: (MonadDOM m) => SVGStringList -> Word -> m () +removeItem_ self index + = liftDOM (void (self ^. jsf "removeItem" [toJSVal index])) + -- | appendItem :: (MonadDOM m, ToJSString item, FromJSString result) => @@ -70,6 +104,12 @@ appendItem self item = liftDOM ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSValUnchecked) + +-- | +appendItem_ :: + (MonadDOM m, ToJSString item) => SVGStringList -> item -> m () +appendItem_ self item + = liftDOM (void (self ^. jsf "appendItem" [toJSVal item])) -- | getNumberOfItems :: (MonadDOM m) => SVGStringList -> m Word diff --git a/src/JSDOM/Generated/SVGTests.hs b/src/JSDOM/Generated/SVGTests.hs --- a/src/JSDOM/Generated/SVGTests.hs +++ b/src/JSDOM/Generated/SVGTests.hs @@ -1,8 +1,11 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGTests - (hasExtension, getRequiredFeatures, getRequiredExtensions, - getSystemLanguage, SVGTests, castToSVGTests, gTypeSVGTests) + (hasExtension, hasExtension_, getRequiredFeatures, + getRequiredFeaturesUnchecked, getRequiredExtensions, + getRequiredExtensionsUnchecked, getSystemLanguage, + getSystemLanguageUnchecked, SVGTests, castToSVGTests, + gTypeSVGTests) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -24,20 +27,45 @@ = liftDOM ((self ^. jsf "hasExtension" [toJSVal extension]) >>= valToBool) +-- | +hasExtension_ :: + (MonadDOM m, ToJSString extension) => SVGTests -> extension -> m () +hasExtension_ self extension + = liftDOM (void (self ^. jsf "hasExtension" [toJSVal extension])) + -- | getRequiredFeatures :: (MonadDOM m) => SVGTests -> m (Maybe SVGStringList) getRequiredFeatures self = liftDOM ((self ^. js "requiredFeatures") >>= fromJSVal) +-- | +getRequiredFeaturesUnchecked :: + (MonadDOM m) => SVGTests -> m SVGStringList +getRequiredFeaturesUnchecked self + = liftDOM ((self ^. js "requiredFeatures") >>= fromJSValUnchecked) + -- | getRequiredExtensions :: (MonadDOM m) => SVGTests -> m (Maybe SVGStringList) getRequiredExtensions self = liftDOM ((self ^. js "requiredExtensions") >>= fromJSVal) +-- | +getRequiredExtensionsUnchecked :: + (MonadDOM m) => SVGTests -> m SVGStringList +getRequiredExtensionsUnchecked self + = liftDOM + ((self ^. js "requiredExtensions") >>= fromJSValUnchecked) + -- | getSystemLanguage :: (MonadDOM m) => SVGTests -> m (Maybe SVGStringList) getSystemLanguage self = liftDOM ((self ^. js "systemLanguage") >>= fromJSVal) + +-- | +getSystemLanguageUnchecked :: + (MonadDOM m) => SVGTests -> m SVGStringList +getSystemLanguageUnchecked self + = liftDOM ((self ^. js "systemLanguage") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGTextContentElement.hs b/src/JSDOM/Generated/SVGTextContentElement.hs --- a/src/JSDOM/Generated/SVGTextContentElement.hs +++ b/src/JSDOM/Generated/SVGTextContentElement.hs @@ -1,14 +1,20 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGTextContentElement - (getNumberOfChars, getComputedTextLength, getSubStringLength, - getStartPositionOfChar, getEndPositionOfChar, getExtentOfChar, - getRotationOfChar, getCharNumAtPosition, selectSubString, + (getNumberOfChars, getNumberOfChars_, getComputedTextLength, + getComputedTextLength_, getSubStringLength, getSubStringLength_, + getStartPositionOfChar, getStartPositionOfChar_, + getStartPositionOfCharUnchecked, getEndPositionOfChar, + getEndPositionOfChar_, getEndPositionOfCharUnchecked, + getExtentOfChar, getExtentOfChar_, getExtentOfCharUnchecked, + getRotationOfChar, getRotationOfChar_, getCharNumAtPosition, + getCharNumAtPosition_, selectSubString, pattern LENGTHADJUST_UNKNOWN, pattern LENGTHADJUST_SPACING, pattern LENGTHADJUST_SPACINGANDGLYPHS, getTextLength, - getLengthAdjust, SVGTextContentElement, - castToSVGTextContentElement, gTypeSVGTextContentElement, - IsSVGTextContentElement, toSVGTextContentElement) + getTextLengthUnchecked, getLengthAdjust, getLengthAdjustUnchecked, + SVGTextContentElement, castToSVGTextContentElement, + gTypeSVGTextContentElement, IsSVGTextContentElement, + toSVGTextContentElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -31,6 +37,14 @@ (((toSVGTextContentElement self) ^. jsf "getNumberOfChars" ()) >>= valToNumber)) +-- | +getNumberOfChars_ :: + (MonadDOM m, IsSVGTextContentElement self) => self -> m () +getNumberOfChars_ self + = liftDOM + (void + ((toSVGTextContentElement self) ^. jsf "getNumberOfChars" ())) + -- | getComputedTextLength :: (MonadDOM m, IsSVGTextContentElement self) => self -> m Float @@ -40,6 +54,14 @@ (((toSVGTextContentElement self) ^. jsf "getComputedTextLength" ()) >>= valToNumber)) +-- | +getComputedTextLength_ :: + (MonadDOM m, IsSVGTextContentElement self) => self -> m () +getComputedTextLength_ self + = liftDOM + (void + ((toSVGTextContentElement self) ^. jsf "getComputedTextLength" ())) + -- | getSubStringLength :: (MonadDOM m, IsSVGTextContentElement self) => @@ -51,6 +73,16 @@ [toJSVal offset, toJSVal length]) >>= valToNumber)) +-- | +getSubStringLength_ :: + (MonadDOM m, IsSVGTextContentElement self) => + self -> Word -> Word -> m () +getSubStringLength_ self offset length + = liftDOM + (void + ((toSVGTextContentElement self) ^. jsf "getSubStringLength" + [toJSVal offset, toJSVal length])) + -- | getStartPositionOfChar :: (MonadDOM m, IsSVGTextContentElement self) => @@ -61,6 +93,25 @@ [toJSVal offset]) >>= fromJSVal) +-- | +getStartPositionOfChar_ :: + (MonadDOM m, IsSVGTextContentElement self) => self -> Word -> m () +getStartPositionOfChar_ self offset + = liftDOM + (void + ((toSVGTextContentElement self) ^. jsf "getStartPositionOfChar" + [toJSVal offset])) + +-- | +getStartPositionOfCharUnchecked :: + (MonadDOM m, IsSVGTextContentElement self) => + self -> Word -> m SVGPoint +getStartPositionOfCharUnchecked self offset + = liftDOM + (((toSVGTextContentElement self) ^. jsf "getStartPositionOfChar" + [toJSVal offset]) + >>= fromJSValUnchecked) + -- | getEndPositionOfChar :: (MonadDOM m, IsSVGTextContentElement self) => @@ -71,6 +122,25 @@ [toJSVal offset]) >>= fromJSVal) +-- | +getEndPositionOfChar_ :: + (MonadDOM m, IsSVGTextContentElement self) => self -> Word -> m () +getEndPositionOfChar_ self offset + = liftDOM + (void + ((toSVGTextContentElement self) ^. jsf "getEndPositionOfChar" + [toJSVal offset])) + +-- | +getEndPositionOfCharUnchecked :: + (MonadDOM m, IsSVGTextContentElement self) => + self -> Word -> m SVGPoint +getEndPositionOfCharUnchecked self offset + = liftDOM + (((toSVGTextContentElement self) ^. jsf "getEndPositionOfChar" + [toJSVal offset]) + >>= fromJSValUnchecked) + -- | getExtentOfChar :: (MonadDOM m, IsSVGTextContentElement self) => @@ -81,6 +151,25 @@ [toJSVal offset]) >>= fromJSVal) +-- | +getExtentOfChar_ :: + (MonadDOM m, IsSVGTextContentElement self) => self -> Word -> m () +getExtentOfChar_ self offset + = liftDOM + (void + ((toSVGTextContentElement self) ^. jsf "getExtentOfChar" + [toJSVal offset])) + +-- | +getExtentOfCharUnchecked :: + (MonadDOM m, IsSVGTextContentElement self) => + self -> Word -> m SVGRect +getExtentOfCharUnchecked self offset + = liftDOM + (((toSVGTextContentElement self) ^. jsf "getExtentOfChar" + [toJSVal offset]) + >>= fromJSValUnchecked) + -- | getRotationOfChar :: (MonadDOM m, IsSVGTextContentElement self) => @@ -92,6 +181,15 @@ [toJSVal offset]) >>= valToNumber)) +-- | +getRotationOfChar_ :: + (MonadDOM m, IsSVGTextContentElement self) => self -> Word -> m () +getRotationOfChar_ self offset + = liftDOM + (void + ((toSVGTextContentElement self) ^. jsf "getRotationOfChar" + [toJSVal offset])) + -- | getCharNumAtPosition :: (MonadDOM m, IsSVGTextContentElement self) => @@ -103,6 +201,16 @@ [toJSVal point]) >>= valToNumber)) +-- | +getCharNumAtPosition_ :: + (MonadDOM m, IsSVGTextContentElement self) => + self -> Maybe SVGPoint -> m () +getCharNumAtPosition_ self point + = liftDOM + (void + ((toSVGTextContentElement self) ^. jsf "getCharNumAtPosition" + [toJSVal point])) + -- | selectSubString :: (MonadDOM m, IsSVGTextContentElement self) => @@ -124,6 +232,15 @@ = liftDOM (((toSVGTextContentElement self) ^. js "textLength") >>= fromJSVal) +-- | +getTextLengthUnchecked :: + (MonadDOM m, IsSVGTextContentElement self) => + self -> m SVGAnimatedLength +getTextLengthUnchecked self + = liftDOM + (((toSVGTextContentElement self) ^. js "textLength") >>= + fromJSValUnchecked) + -- | getLengthAdjust :: (MonadDOM m, IsSVGTextContentElement self) => @@ -132,3 +249,12 @@ = liftDOM (((toSVGTextContentElement self) ^. js "lengthAdjust") >>= fromJSVal) + +-- | +getLengthAdjustUnchecked :: + (MonadDOM m, IsSVGTextContentElement self) => + self -> m SVGAnimatedEnumeration +getLengthAdjustUnchecked self + = liftDOM + (((toSVGTextContentElement self) ^. js "lengthAdjust") >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGTextPathElement.hs b/src/JSDOM/Generated/SVGTextPathElement.hs --- a/src/JSDOM/Generated/SVGTextPathElement.hs +++ b/src/JSDOM/Generated/SVGTextPathElement.hs @@ -6,8 +6,9 @@ pattern TEXTPATH_METHODTYPE_STRETCH, pattern TEXTPATH_SPACINGTYPE_UNKNOWN, pattern TEXTPATH_SPACINGTYPE_AUTO, - pattern TEXTPATH_SPACINGTYPE_EXACT, getStartOffset, getMethod, - getSpacing, SVGTextPathElement, castToSVGTextPathElement, + pattern TEXTPATH_SPACINGTYPE_EXACT, getStartOffset, + getStartOffsetUnchecked, getMethod, getMethodUnchecked, getSpacing, + getSpacingUnchecked, SVGTextPathElement, castToSVGTextPathElement, gTypeSVGTextPathElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -34,14 +35,32 @@ getStartOffset self = liftDOM ((self ^. js "startOffset") >>= fromJSVal) +-- | +getStartOffsetUnchecked :: + (MonadDOM m) => SVGTextPathElement -> m SVGAnimatedLength +getStartOffsetUnchecked self + = liftDOM ((self ^. js "startOffset") >>= fromJSValUnchecked) + -- | getMethod :: (MonadDOM m) => SVGTextPathElement -> m (Maybe SVGAnimatedEnumeration) getMethod self = liftDOM ((self ^. js "method") >>= fromJSVal) +-- | +getMethodUnchecked :: + (MonadDOM m) => SVGTextPathElement -> m SVGAnimatedEnumeration +getMethodUnchecked self + = liftDOM ((self ^. js "method") >>= fromJSValUnchecked) + -- | getSpacing :: (MonadDOM m) => SVGTextPathElement -> m (Maybe SVGAnimatedEnumeration) getSpacing self = liftDOM ((self ^. js "spacing") >>= fromJSVal) + +-- | +getSpacingUnchecked :: + (MonadDOM m) => SVGTextPathElement -> m SVGAnimatedEnumeration +getSpacingUnchecked self + = liftDOM ((self ^. js "spacing") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGTextPositioningElement.hs b/src/JSDOM/Generated/SVGTextPositioningElement.hs --- a/src/JSDOM/Generated/SVGTextPositioningElement.hs +++ b/src/JSDOM/Generated/SVGTextPositioningElement.hs @@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGTextPositioningElement - (getX, getY, getDx, getDy, getRotate, SVGTextPositioningElement, - castToSVGTextPositioningElement, gTypeSVGTextPositioningElement, - IsSVGTextPositioningElement, toSVGTextPositioningElement) + (getX, getXUnchecked, getY, getYUnchecked, getDx, getDxUnchecked, + getDy, getDyUnchecked, getRotate, getRotateUnchecked, + SVGTextPositioningElement, castToSVGTextPositioningElement, + gTypeSVGTextPositioningElement, IsSVGTextPositioningElement, + toSVGTextPositioningElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -25,6 +27,15 @@ = liftDOM (((toSVGTextPositioningElement self) ^. js "x") >>= fromJSVal) +-- | +getXUnchecked :: + (MonadDOM m, IsSVGTextPositioningElement self) => + self -> m SVGAnimatedLengthList +getXUnchecked self + = liftDOM + (((toSVGTextPositioningElement self) ^. js "x") >>= + fromJSValUnchecked) + -- | getY :: (MonadDOM m, IsSVGTextPositioningElement self) => @@ -33,6 +44,15 @@ = liftDOM (((toSVGTextPositioningElement self) ^. js "y") >>= fromJSVal) +-- | +getYUnchecked :: + (MonadDOM m, IsSVGTextPositioningElement self) => + self -> m SVGAnimatedLengthList +getYUnchecked self + = liftDOM + (((toSVGTextPositioningElement self) ^. js "y") >>= + fromJSValUnchecked) + -- | getDx :: (MonadDOM m, IsSVGTextPositioningElement self) => @@ -41,6 +61,15 @@ = liftDOM (((toSVGTextPositioningElement self) ^. js "dx") >>= fromJSVal) +-- | +getDxUnchecked :: + (MonadDOM m, IsSVGTextPositioningElement self) => + self -> m SVGAnimatedLengthList +getDxUnchecked self + = liftDOM + (((toSVGTextPositioningElement self) ^. js "dx") >>= + fromJSValUnchecked) + -- | getDy :: (MonadDOM m, IsSVGTextPositioningElement self) => @@ -49,6 +78,15 @@ = liftDOM (((toSVGTextPositioningElement self) ^. js "dy") >>= fromJSVal) +-- | +getDyUnchecked :: + (MonadDOM m, IsSVGTextPositioningElement self) => + self -> m SVGAnimatedLengthList +getDyUnchecked self + = liftDOM + (((toSVGTextPositioningElement self) ^. js "dy") >>= + fromJSValUnchecked) + -- | getRotate :: (MonadDOM m, IsSVGTextPositioningElement self) => @@ -56,3 +94,12 @@ getRotate self = liftDOM (((toSVGTextPositioningElement self) ^. js "rotate") >>= fromJSVal) + +-- | +getRotateUnchecked :: + (MonadDOM m, IsSVGTextPositioningElement self) => + self -> m SVGAnimatedNumberList +getRotateUnchecked self + = liftDOM + (((toSVGTextPositioningElement self) ^. js "rotate") >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGTransform.hs b/src/JSDOM/Generated/SVGTransform.hs --- a/src/JSDOM/Generated/SVGTransform.hs +++ b/src/JSDOM/Generated/SVGTransform.hs @@ -5,8 +5,9 @@ pattern SVG_TRANSFORM_UNKNOWN, pattern SVG_TRANSFORM_MATRIX, pattern SVG_TRANSFORM_TRANSLATE, pattern SVG_TRANSFORM_SCALE, pattern SVG_TRANSFORM_ROTATE, pattern SVG_TRANSFORM_SKEWX, - pattern SVG_TRANSFORM_SKEWY, getType, getMatrix, getAngle, - SVGTransform, castToSVGTransform, gTypeSVGTransform) + pattern SVG_TRANSFORM_SKEWY, getType, getMatrix, + getMatrixUnchecked, getAngle, SVGTransform, castToSVGTransform, + gTypeSVGTransform) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -71,6 +72,11 @@ -- | getMatrix :: (MonadDOM m) => SVGTransform -> m (Maybe SVGMatrix) getMatrix self = liftDOM ((self ^. js "matrix") >>= fromJSVal) + +-- | +getMatrixUnchecked :: (MonadDOM m) => SVGTransform -> m SVGMatrix +getMatrixUnchecked self + = liftDOM ((self ^. js "matrix") >>= fromJSValUnchecked) -- | getAngle :: (MonadDOM m) => SVGTransform -> m Float diff --git a/src/JSDOM/Generated/SVGTransformList.hs b/src/JSDOM/Generated/SVGTransformList.hs --- a/src/JSDOM/Generated/SVGTransformList.hs +++ b/src/JSDOM/Generated/SVGTransformList.hs @@ -1,10 +1,15 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGTransformList - (clear, initialize, getItem, insertItemBefore, replaceItem, - removeItem, appendItem, createSVGTransformFromMatrix, consolidate, - getNumberOfItems, SVGTransformList, castToSVGTransformList, - gTypeSVGTransformList) + (clear, initialize, initialize_, initializeUnchecked, getItem, + getItem_, getItemUnchecked, insertItemBefore, insertItemBefore_, + insertItemBeforeUnchecked, replaceItem, replaceItem_, + replaceItemUnchecked, removeItem, removeItem_, removeItemUnchecked, + appendItem, appendItem_, appendItemUnchecked, + createSVGTransformFromMatrix, createSVGTransformFromMatrix_, + createSVGTransformFromMatrixUnchecked, consolidate, consolidate_, + consolidateUnchecked, getNumberOfItems, SVGTransformList, + castToSVGTransformList, gTypeSVGTransformList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -29,12 +34,38 @@ initialize self item = liftDOM ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSVal) +-- | +initialize_ :: + (MonadDOM m) => SVGTransformList -> Maybe SVGTransform -> m () +initialize_ self item + = liftDOM (void (self ^. jsf "initialize" [toJSVal item])) + +-- | +initializeUnchecked :: + (MonadDOM m) => + SVGTransformList -> Maybe SVGTransform -> m SVGTransform +initializeUnchecked self item + = liftDOM + ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSValUnchecked) + -- | getItem :: (MonadDOM m) => SVGTransformList -> Word -> m (Maybe SVGTransform) getItem self index = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSVal) +-- | +getItem_ :: (MonadDOM m) => SVGTransformList -> Word -> m () +getItem_ self index + = liftDOM (void (self ^. jsf "getItem" [toJSVal index])) + +-- | +getItemUnchecked :: + (MonadDOM m) => SVGTransformList -> Word -> m SVGTransform +getItemUnchecked self index + = liftDOM + ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSValUnchecked) + -- | insertItemBefore :: (MonadDOM m) => @@ -45,6 +76,24 @@ ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>= fromJSVal) +-- | +insertItemBefore_ :: + (MonadDOM m) => + SVGTransformList -> Maybe SVGTransform -> Word -> m () +insertItemBefore_ self item index + = liftDOM + (void + (self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index])) + +-- | +insertItemBeforeUnchecked :: + (MonadDOM m) => + SVGTransformList -> Maybe SVGTransform -> Word -> m SVGTransform +insertItemBeforeUnchecked self item index + = liftDOM + ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>= + fromJSValUnchecked) + -- | replaceItem :: (MonadDOM m) => @@ -55,6 +104,23 @@ ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>= fromJSVal) +-- | +replaceItem_ :: + (MonadDOM m) => + SVGTransformList -> Maybe SVGTransform -> Word -> m () +replaceItem_ self item index + = liftDOM + (void (self ^. jsf "replaceItem" [toJSVal item, toJSVal index])) + +-- | +replaceItemUnchecked :: + (MonadDOM m) => + SVGTransformList -> Maybe SVGTransform -> Word -> m SVGTransform +replaceItemUnchecked self item index + = liftDOM + ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>= + fromJSValUnchecked) + -- | removeItem :: (MonadDOM m) => SVGTransformList -> Word -> m (Maybe SVGTransform) @@ -62,6 +128,18 @@ = liftDOM ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSVal) +-- | +removeItem_ :: (MonadDOM m) => SVGTransformList -> Word -> m () +removeItem_ self index + = liftDOM (void (self ^. jsf "removeItem" [toJSVal index])) + +-- | +removeItemUnchecked :: + (MonadDOM m) => SVGTransformList -> Word -> m SVGTransform +removeItemUnchecked self index + = liftDOM + ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSValUnchecked) + -- | appendItem :: (MonadDOM m) => @@ -69,6 +147,20 @@ appendItem self item = liftDOM ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSVal) +-- | +appendItem_ :: + (MonadDOM m) => SVGTransformList -> Maybe SVGTransform -> m () +appendItem_ self item + = liftDOM (void (self ^. jsf "appendItem" [toJSVal item])) + +-- | +appendItemUnchecked :: + (MonadDOM m) => + SVGTransformList -> Maybe SVGTransform -> m SVGTransform +appendItemUnchecked self item + = liftDOM + ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSValUnchecked) + -- | createSVGTransformFromMatrix :: (MonadDOM m) => @@ -78,11 +170,38 @@ ((self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]) >>= fromJSVal) +-- | +createSVGTransformFromMatrix_ :: + (MonadDOM m) => SVGTransformList -> Maybe SVGMatrix -> m () +createSVGTransformFromMatrix_ self matrix + = liftDOM + (void + (self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix])) + +-- | +createSVGTransformFromMatrixUnchecked :: + (MonadDOM m) => + SVGTransformList -> Maybe SVGMatrix -> m SVGTransform +createSVGTransformFromMatrixUnchecked self matrix + = liftDOM + ((self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]) >>= + fromJSValUnchecked) + -- | consolidate :: (MonadDOM m) => SVGTransformList -> m (Maybe SVGTransform) consolidate self = liftDOM ((self ^. jsf "consolidate" ()) >>= fromJSVal) + +-- | +consolidate_ :: (MonadDOM m) => SVGTransformList -> m () +consolidate_ self = liftDOM (void (self ^. jsf "consolidate" ())) + +-- | +consolidateUnchecked :: + (MonadDOM m) => SVGTransformList -> m SVGTransform +consolidateUnchecked self + = liftDOM ((self ^. jsf "consolidate" ()) >>= fromJSValUnchecked) -- | getNumberOfItems :: (MonadDOM m) => SVGTransformList -> m Word diff --git a/src/JSDOM/Generated/SVGURIReference.hs b/src/JSDOM/Generated/SVGURIReference.hs --- a/src/JSDOM/Generated/SVGURIReference.hs +++ b/src/JSDOM/Generated/SVGURIReference.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGURIReference - (getHref, SVGURIReference, castToSVGURIReference, + (getHref, getHrefUnchecked, SVGURIReference, castToSVGURIReference, gTypeSVGURIReference) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -20,3 +20,9 @@ getHref :: (MonadDOM m) => SVGURIReference -> m (Maybe SVGAnimatedString) getHref self = liftDOM ((self ^. js "href") >>= fromJSVal) + +-- | +getHrefUnchecked :: + (MonadDOM m) => SVGURIReference -> m SVGAnimatedString +getHrefUnchecked self + = liftDOM ((self ^. js "href") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGUseElement.hs b/src/JSDOM/Generated/SVGUseElement.hs --- a/src/JSDOM/Generated/SVGUseElement.hs +++ b/src/JSDOM/Generated/SVGUseElement.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGUseElement - (getX, getY, getWidth, getHeight, SVGUseElement, + (getX, getXUnchecked, getY, getYUnchecked, getWidth, + getWidthUnchecked, getHeight, getHeightUnchecked, SVGUseElement, castToSVGUseElement, gTypeSVGUseElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -21,17 +22,41 @@ (MonadDOM m) => SVGUseElement -> m (Maybe SVGAnimatedLength) getX self = liftDOM ((self ^. js "x") >>= fromJSVal) +-- | +getXUnchecked :: + (MonadDOM m) => SVGUseElement -> m SVGAnimatedLength +getXUnchecked self + = liftDOM ((self ^. js "x") >>= fromJSValUnchecked) + -- | getY :: (MonadDOM m) => SVGUseElement -> m (Maybe SVGAnimatedLength) getY self = liftDOM ((self ^. js "y") >>= fromJSVal) +-- | +getYUnchecked :: + (MonadDOM m) => SVGUseElement -> m SVGAnimatedLength +getYUnchecked self + = liftDOM ((self ^. js "y") >>= fromJSValUnchecked) + -- | getWidth :: (MonadDOM m) => SVGUseElement -> m (Maybe SVGAnimatedLength) getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal) +-- | +getWidthUnchecked :: + (MonadDOM m) => SVGUseElement -> m SVGAnimatedLength +getWidthUnchecked self + = liftDOM ((self ^. js "width") >>= fromJSValUnchecked) + -- | getHeight :: (MonadDOM m) => SVGUseElement -> m (Maybe SVGAnimatedLength) getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal) + +-- | +getHeightUnchecked :: + (MonadDOM m) => SVGUseElement -> m SVGAnimatedLength +getHeightUnchecked self + = liftDOM ((self ^. js "height") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGViewElement.hs b/src/JSDOM/Generated/SVGViewElement.hs --- a/src/JSDOM/Generated/SVGViewElement.hs +++ b/src/JSDOM/Generated/SVGViewElement.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGViewElement - (getViewTarget, SVGViewElement, castToSVGViewElement, - gTypeSVGViewElement) + (getViewTarget, getViewTargetUnchecked, SVGViewElement, + castToSVGViewElement, gTypeSVGViewElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,3 +21,9 @@ (MonadDOM m) => SVGViewElement -> m (Maybe SVGStringList) getViewTarget self = liftDOM ((self ^. js "viewTarget") >>= fromJSVal) + +-- | +getViewTargetUnchecked :: + (MonadDOM m) => SVGViewElement -> m SVGStringList +getViewTargetUnchecked self + = liftDOM ((self ^. js "viewTarget") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/SVGViewSpec.hs b/src/JSDOM/Generated/SVGViewSpec.hs --- a/src/JSDOM/Generated/SVGViewSpec.hs +++ b/src/JSDOM/Generated/SVGViewSpec.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGViewSpec - (getTransform, getViewTarget, getViewBoxString, + (getTransform, getTransformUnchecked, getViewTarget, + getViewTargetUnchecked, getViewBoxString, getPreserveAspectRatioString, getTransformString, getViewTargetString, setZoomAndPan, getZoomAndPan, SVGViewSpec, castToSVGViewSpec, gTypeSVGViewSpec) @@ -24,11 +25,23 @@ getTransform self = liftDOM ((self ^. js "transform") >>= fromJSVal) +-- | +getTransformUnchecked :: + (MonadDOM m) => SVGViewSpec -> m SVGTransformList +getTransformUnchecked self + = liftDOM ((self ^. js "transform") >>= fromJSValUnchecked) + -- | getViewTarget :: (MonadDOM m) => SVGViewSpec -> m (Maybe SVGElement) getViewTarget self = liftDOM ((self ^. js "viewTarget") >>= fromJSVal) + +-- | +getViewTargetUnchecked :: + (MonadDOM m) => SVGViewSpec -> m SVGElement +getViewTargetUnchecked self + = liftDOM ((self ^. js "viewTarget") >>= fromJSValUnchecked) -- | getViewBoxString :: diff --git a/src/JSDOM/Generated/SVGZoomEvent.hs b/src/JSDOM/Generated/SVGZoomEvent.hs --- a/src/JSDOM/Generated/SVGZoomEvent.hs +++ b/src/JSDOM/Generated/SVGZoomEvent.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGZoomEvent - (getZoomRectScreen, getPreviousScale, getPreviousTranslate, - getNewScale, getNewTranslate, SVGZoomEvent, castToSVGZoomEvent, - gTypeSVGZoomEvent) + (getZoomRectScreen, getZoomRectScreenUnchecked, getPreviousScale, + getPreviousTranslate, getPreviousTranslateUnchecked, getNewScale, + getNewTranslate, getNewTranslateUnchecked, SVGZoomEvent, + castToSVGZoomEvent, gTypeSVGZoomEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -23,6 +24,12 @@ getZoomRectScreen self = liftDOM ((self ^. js "zoomRectScreen") >>= fromJSVal) +-- | +getZoomRectScreenUnchecked :: + (MonadDOM m) => SVGZoomEvent -> m SVGRect +getZoomRectScreenUnchecked self + = liftDOM ((self ^. js "zoomRectScreen") >>= fromJSValUnchecked) + -- | getPreviousScale :: (MonadDOM m) => SVGZoomEvent -> m Float getPreviousScale self @@ -35,6 +42,12 @@ getPreviousTranslate self = liftDOM ((self ^. js "previousTranslate") >>= fromJSVal) +-- | +getPreviousTranslateUnchecked :: + (MonadDOM m) => SVGZoomEvent -> m SVGPoint +getPreviousTranslateUnchecked self + = liftDOM ((self ^. js "previousTranslate") >>= fromJSValUnchecked) + -- | getNewScale :: (MonadDOM m) => SVGZoomEvent -> m Float getNewScale self @@ -46,3 +59,9 @@ (MonadDOM m) => SVGZoomEvent -> m (Maybe SVGPoint) getNewTranslate self = liftDOM ((self ^. js "newTranslate") >>= fromJSVal) + +-- | +getNewTranslateUnchecked :: + (MonadDOM m) => SVGZoomEvent -> m SVGPoint +getNewTranslateUnchecked self + = liftDOM ((self ^. js "newTranslate") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/ScriptProfile.hs b/src/JSDOM/Generated/ScriptProfile.hs --- a/src/JSDOM/Generated/ScriptProfile.hs +++ b/src/JSDOM/Generated/ScriptProfile.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.ScriptProfile - (getTitle, getUid, getRootNode, ScriptProfile, castToScriptProfile, - gTypeScriptProfile) + (getTitle, getUid, getRootNode, getRootNodeUnchecked, + ScriptProfile, castToScriptProfile, gTypeScriptProfile) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -31,3 +31,9 @@ getRootNode :: (MonadDOM m) => ScriptProfile -> m (Maybe ScriptProfileNode) getRootNode self = liftDOM ((self ^. js "rootNode") >>= fromJSVal) + +-- | +getRootNodeUnchecked :: + (MonadDOM m) => ScriptProfile -> m ScriptProfileNode +getRootNodeUnchecked self + = liftDOM ((self ^. js "rootNode") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/ScriptProfileNode.hs b/src/JSDOM/Generated/ScriptProfileNode.hs --- a/src/JSDOM/Generated/ScriptProfileNode.hs +++ b/src/JSDOM/Generated/ScriptProfileNode.hs @@ -1,9 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.ScriptProfileNode - (children, getId, getFunctionName, getUrl, getLineNumber, - getColumnNumber, ScriptProfileNode, castToScriptProfileNode, - gTypeScriptProfileNode) + (children, children_, getId, getFunctionName, getUrl, + getLineNumber, getColumnNumber, ScriptProfileNode, + castToScriptProfileNode, gTypeScriptProfileNode) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -22,6 +22,10 @@ (MonadDOM m) => ScriptProfileNode -> m [Maybe ScriptProfileNode] children self = liftDOM ((self ^. jsf "children" ()) >>= fromJSArray) + +-- | +children_ :: (MonadDOM m) => ScriptProfileNode -> m () +children_ self = liftDOM (void (self ^. jsf "children" ())) -- | getId :: (MonadDOM m) => ScriptProfileNode -> m Word diff --git a/src/JSDOM/Generated/SecurityPolicy.hs b/src/JSDOM/Generated/SecurityPolicy.hs --- a/src/JSDOM/Generated/SecurityPolicy.hs +++ b/src/JSDOM/Generated/SecurityPolicy.hs @@ -1,11 +1,15 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SecurityPolicy - (allowsConnectionTo, allowsFontFrom, allowsFormAction, - allowsFrameFrom, allowsImageFrom, allowsMediaFrom, - allowsObjectFrom, allowsPluginType, allowsScriptFrom, - allowsStyleFrom, getAllowsEval, getAllowsInlineScript, - getAllowsInlineStyle, getIsActive, getReportURIs, SecurityPolicy, + (allowsConnectionTo, allowsConnectionTo_, allowsFontFrom, + allowsFontFrom_, allowsFormAction, allowsFormAction_, + allowsFrameFrom, allowsFrameFrom_, allowsImageFrom, + allowsImageFrom_, allowsMediaFrom, allowsMediaFrom_, + allowsObjectFrom, allowsObjectFrom_, allowsPluginType, + allowsPluginType_, allowsScriptFrom, allowsScriptFrom_, + allowsStyleFrom, allowsStyleFrom_, getAllowsEval, + getAllowsInlineScript, getAllowsInlineStyle, getIsActive, + getReportURIs, getReportURIsUnchecked, SecurityPolicy, castToSecurityPolicy, gTypeSecurityPolicy) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -27,6 +31,12 @@ = liftDOM ((self ^. jsf "allowsConnectionTo" [toJSVal url]) >>= valToBool) +-- | +allowsConnectionTo_ :: + (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m () +allowsConnectionTo_ self url + = liftDOM (void (self ^. jsf "allowsConnectionTo" [toJSVal url])) + -- | allowsFontFrom :: (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool @@ -34,6 +44,12 @@ = liftDOM ((self ^. jsf "allowsFontFrom" [toJSVal url]) >>= valToBool) +-- | +allowsFontFrom_ :: + (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m () +allowsFontFrom_ self url + = liftDOM (void (self ^. jsf "allowsFontFrom" [toJSVal url])) + -- | allowsFormAction :: (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool @@ -41,6 +57,12 @@ = liftDOM ((self ^. jsf "allowsFormAction" [toJSVal url]) >>= valToBool) +-- | +allowsFormAction_ :: + (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m () +allowsFormAction_ self url + = liftDOM (void (self ^. jsf "allowsFormAction" [toJSVal url])) + -- | allowsFrameFrom :: (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool @@ -48,6 +70,12 @@ = liftDOM ((self ^. jsf "allowsFrameFrom" [toJSVal url]) >>= valToBool) +-- | +allowsFrameFrom_ :: + (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m () +allowsFrameFrom_ self url + = liftDOM (void (self ^. jsf "allowsFrameFrom" [toJSVal url])) + -- | allowsImageFrom :: (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool @@ -55,6 +83,12 @@ = liftDOM ((self ^. jsf "allowsImageFrom" [toJSVal url]) >>= valToBool) +-- | +allowsImageFrom_ :: + (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m () +allowsImageFrom_ self url + = liftDOM (void (self ^. jsf "allowsImageFrom" [toJSVal url])) + -- | allowsMediaFrom :: (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool @@ -62,6 +96,12 @@ = liftDOM ((self ^. jsf "allowsMediaFrom" [toJSVal url]) >>= valToBool) +-- | +allowsMediaFrom_ :: + (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m () +allowsMediaFrom_ self url + = liftDOM (void (self ^. jsf "allowsMediaFrom" [toJSVal url])) + -- | allowsObjectFrom :: (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool @@ -69,6 +109,12 @@ = liftDOM ((self ^. jsf "allowsObjectFrom" [toJSVal url]) >>= valToBool) +-- | +allowsObjectFrom_ :: + (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m () +allowsObjectFrom_ self url + = liftDOM (void (self ^. jsf "allowsObjectFrom" [toJSVal url])) + -- | allowsPluginType :: (MonadDOM m, ToJSString type') => SecurityPolicy -> type' -> m Bool @@ -76,6 +122,12 @@ = liftDOM ((self ^. jsf "allowsPluginType" [toJSVal type']) >>= valToBool) +-- | +allowsPluginType_ :: + (MonadDOM m, ToJSString type') => SecurityPolicy -> type' -> m () +allowsPluginType_ self type' + = liftDOM (void (self ^. jsf "allowsPluginType" [toJSVal type'])) + -- | allowsScriptFrom :: (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool @@ -83,6 +135,12 @@ = liftDOM ((self ^. jsf "allowsScriptFrom" [toJSVal url]) >>= valToBool) +-- | +allowsScriptFrom_ :: + (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m () +allowsScriptFrom_ self url + = liftDOM (void (self ^. jsf "allowsScriptFrom" [toJSVal url])) + -- | allowsStyleFrom :: (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m Bool @@ -90,6 +148,12 @@ = liftDOM ((self ^. jsf "allowsStyleFrom" [toJSVal url]) >>= valToBool) +-- | +allowsStyleFrom_ :: + (MonadDOM m, ToJSString url) => SecurityPolicy -> url -> m () +allowsStyleFrom_ self url + = liftDOM (void (self ^. jsf "allowsStyleFrom" [toJSVal url])) + -- | getAllowsEval :: (MonadDOM m) => SecurityPolicy -> m Bool getAllowsEval self @@ -114,3 +178,9 @@ (MonadDOM m) => SecurityPolicy -> m (Maybe DOMStringList) getReportURIs self = liftDOM ((self ^. js "reportURIs") >>= fromJSVal) + +-- | +getReportURIsUnchecked :: + (MonadDOM m) => SecurityPolicy -> m DOMStringList +getReportURIsUnchecked self + = liftDOM ((self ^. js "reportURIs") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/Selection.hs b/src/JSDOM/Generated/Selection.hs --- a/src/JSDOM/Generated/Selection.hs +++ b/src/JSDOM/Generated/Selection.hs @@ -2,12 +2,15 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Selection (collapse, collapseToEnd, collapseToStart, deleteFromDocument, - containsNode, selectAllChildren, extend, getRangeAt, - removeAllRanges, addRange, toString, modify, setBaseAndExtent, - setPosition, empty, getAnchorNode, getAnchorOffset, getFocusNode, - getFocusOffset, getIsCollapsed, getRangeCount, getBaseNode, - getBaseOffset, getExtentNode, getExtentOffset, getType, Selection, - castToSelection, gTypeSelection) + containsNode, containsNode_, selectAllChildren, extend, getRangeAt, + getRangeAt_, getRangeAtUnchecked, removeAllRanges, addRange, + toString, toString_, modify, setBaseAndExtent, setPosition, empty, + getAnchorNode, getAnchorNodeUnchecked, getAnchorOffset, + getFocusNode, getFocusNodeUnchecked, getFocusOffset, + getIsCollapsed, getRangeCount, getBaseNode, getBaseNodeUnchecked, + getBaseOffset, getExtentNode, getExtentNodeUnchecked, + getExtentOffset, getType, Selection, castToSelection, + gTypeSelection) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -52,6 +55,15 @@ ((self ^. jsf "containsNode" [toJSVal node, toJSVal allowPartial]) >>= valToBool) +-- | +containsNode_ :: + (MonadDOM m, IsNode node) => + Selection -> Maybe node -> Bool -> m () +containsNode_ self node allowPartial + = liftDOM + (void + (self ^. jsf "containsNode" [toJSVal node, toJSVal allowPartial])) + -- | selectAllChildren :: (MonadDOM m, IsNode node) => Selection -> Maybe node -> m () @@ -71,6 +83,17 @@ = liftDOM ((self ^. jsf "getRangeAt" [toJSVal index]) >>= fromJSVal) +-- | +getRangeAt_ :: (MonadDOM m) => Selection -> Int -> m () +getRangeAt_ self index + = liftDOM (void (self ^. jsf "getRangeAt" [toJSVal index])) + +-- | +getRangeAtUnchecked :: (MonadDOM m) => Selection -> Int -> m Range +getRangeAtUnchecked self index + = liftDOM + ((self ^. jsf "getRangeAt" [toJSVal index]) >>= fromJSValUnchecked) + -- | removeAllRanges :: (MonadDOM m) => Selection -> m () removeAllRanges self @@ -87,6 +110,10 @@ toString self = liftDOM ((self ^. jsf "toString" ()) >>= fromJSValUnchecked) +-- | +toString_ :: (MonadDOM m) => Selection -> m () +toString_ self = liftDOM (void (self ^. jsf "toString" ())) + -- | modify :: (MonadDOM m, ToJSString alter, ToJSString direction, @@ -126,6 +153,11 @@ getAnchorNode self = liftDOM ((self ^. js "anchorNode") >>= fromJSVal) +-- | +getAnchorNodeUnchecked :: (MonadDOM m) => Selection -> m Node +getAnchorNodeUnchecked self + = liftDOM ((self ^. js "anchorNode") >>= fromJSValUnchecked) + -- | getAnchorOffset :: (MonadDOM m) => Selection -> m Int getAnchorOffset self @@ -136,6 +168,11 @@ getFocusNode self = liftDOM ((self ^. js "focusNode") >>= fromJSVal) +-- | +getFocusNodeUnchecked :: (MonadDOM m) => Selection -> m Node +getFocusNodeUnchecked self + = liftDOM ((self ^. js "focusNode") >>= fromJSValUnchecked) + -- | getFocusOffset :: (MonadDOM m) => Selection -> m Int getFocusOffset self @@ -155,6 +192,11 @@ getBaseNode :: (MonadDOM m) => Selection -> m (Maybe Node) getBaseNode self = liftDOM ((self ^. js "baseNode") >>= fromJSVal) +-- | +getBaseNodeUnchecked :: (MonadDOM m) => Selection -> m Node +getBaseNodeUnchecked self + = liftDOM ((self ^. js "baseNode") >>= fromJSValUnchecked) + -- | getBaseOffset :: (MonadDOM m) => Selection -> m Int getBaseOffset self @@ -164,6 +206,11 @@ getExtentNode :: (MonadDOM m) => Selection -> m (Maybe Node) getExtentNode self = liftDOM ((self ^. js "extentNode") >>= fromJSVal) + +-- | +getExtentNodeUnchecked :: (MonadDOM m) => Selection -> m Node +getExtentNodeUnchecked self + = liftDOM ((self ^. js "extentNode") >>= fromJSValUnchecked) -- | getExtentOffset :: (MonadDOM m) => Selection -> m Int diff --git a/src/JSDOM/Generated/SourceBuffer.hs b/src/JSDOM/Generated/SourceBuffer.hs --- a/src/JSDOM/Generated/SourceBuffer.hs +++ b/src/JSDOM/Generated/SourceBuffer.hs @@ -2,11 +2,12 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SourceBuffer (appendBuffer, appendBufferView, abort, remove, setMode, getMode, - getUpdating, getBuffered, setTimestampOffset, getTimestampOffset, - getAudioTracks, getVideoTracks, getTextTracks, - setAppendWindowStart, getAppendWindowStart, setAppendWindowEnd, - getAppendWindowEnd, SourceBuffer, castToSourceBuffer, - gTypeSourceBuffer) + getUpdating, getBuffered, getBufferedUnchecked, setTimestampOffset, + getTimestampOffset, getAudioTracks, getAudioTracksUnchecked, + getVideoTracks, getVideoTracksUnchecked, getTextTracks, + getTextTracksUnchecked, setAppendWindowStart, getAppendWindowStart, + setAppendWindowEnd, getAppendWindowEnd, SourceBuffer, + castToSourceBuffer, gTypeSourceBuffer) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -60,6 +61,12 @@ getBuffered :: (MonadDOM m) => SourceBuffer -> m (Maybe TimeRanges) getBuffered self = liftDOM ((self ^. js "buffered") >>= fromJSVal) +-- | +getBufferedUnchecked :: + (MonadDOM m) => SourceBuffer -> m TimeRanges +getBufferedUnchecked self + = liftDOM ((self ^. js "buffered") >>= fromJSValUnchecked) + -- | setTimestampOffset :: (MonadDOM m) => SourceBuffer -> Double -> m () @@ -77,17 +84,35 @@ getAudioTracks self = liftDOM ((self ^. js "audioTracks") >>= fromJSVal) +-- | +getAudioTracksUnchecked :: + (MonadDOM m) => SourceBuffer -> m AudioTrackList +getAudioTracksUnchecked self + = liftDOM ((self ^. js "audioTracks") >>= fromJSValUnchecked) + -- | getVideoTracks :: (MonadDOM m) => SourceBuffer -> m (Maybe VideoTrackList) getVideoTracks self = liftDOM ((self ^. js "videoTracks") >>= fromJSVal) +-- | +getVideoTracksUnchecked :: + (MonadDOM m) => SourceBuffer -> m VideoTrackList +getVideoTracksUnchecked self + = liftDOM ((self ^. js "videoTracks") >>= fromJSValUnchecked) + -- | getTextTracks :: (MonadDOM m) => SourceBuffer -> m (Maybe TextTrackList) getTextTracks self = liftDOM ((self ^. js "textTracks") >>= fromJSVal) + +-- | +getTextTracksUnchecked :: + (MonadDOM m) => SourceBuffer -> m TextTrackList +getTextTracksUnchecked self + = liftDOM ((self ^. js "textTracks") >>= fromJSValUnchecked) -- | setAppendWindowStart :: diff --git a/src/JSDOM/Generated/SourceBufferList.hs b/src/JSDOM/Generated/SourceBufferList.hs --- a/src/JSDOM/Generated/SourceBufferList.hs +++ b/src/JSDOM/Generated/SourceBufferList.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SourceBufferList - (item, getLength, SourceBufferList, castToSourceBufferList, - gTypeSourceBufferList) + (item, item_, itemUnchecked, getLength, SourceBufferList, + castToSourceBufferList, gTypeSourceBufferList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,6 +21,18 @@ (MonadDOM m) => SourceBufferList -> Word -> m (Maybe SourceBuffer) item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) + +-- | +item_ :: (MonadDOM m) => SourceBufferList -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m) => SourceBufferList -> Word -> m SourceBuffer +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => SourceBufferList -> m Word diff --git a/src/JSDOM/Generated/SpeechSynthesis.hs b/src/JSDOM/Generated/SpeechSynthesis.hs --- a/src/JSDOM/Generated/SpeechSynthesis.hs +++ b/src/JSDOM/Generated/SpeechSynthesis.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SpeechSynthesis - (speak, cancel, pause, resume, getVoices, getPending, getSpeaking, - getPaused, SpeechSynthesis, castToSpeechSynthesis, + (speak, cancel, pause, resume, getVoices, getVoices_, getPending, + getSpeaking, getPaused, SpeechSynthesis, castToSpeechSynthesis, gTypeSpeechSynthesis) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -41,6 +41,10 @@ (MonadDOM m) => SpeechSynthesis -> m [Maybe SpeechSynthesisVoice] getVoices self = liftDOM ((self ^. jsf "getVoices" ()) >>= fromJSArray) + +-- | +getVoices_ :: (MonadDOM m) => SpeechSynthesis -> m () +getVoices_ self = liftDOM (void (self ^. jsf "getVoices" ())) -- | getPending :: (MonadDOM m) => SpeechSynthesis -> m Bool diff --git a/src/JSDOM/Generated/SpeechSynthesisUtterance.hs b/src/JSDOM/Generated/SpeechSynthesisUtterance.hs --- a/src/JSDOM/Generated/SpeechSynthesisUtterance.hs +++ b/src/JSDOM/Generated/SpeechSynthesisUtterance.hs @@ -2,10 +2,10 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SpeechSynthesisUtterance (newSpeechSynthesisUtterance, setText, getText, setLang, getLang, - setVoice, getVoice, setVolume, getVolume, setRate, getRate, - setPitch, getPitch, start, end, error, pause, resume, mark, - boundary, SpeechSynthesisUtterance, castToSpeechSynthesisUtterance, - gTypeSpeechSynthesisUtterance) + setVoice, getVoice, getVoiceUnchecked, setVolume, getVolume, + setRate, getRate, setPitch, getPitch, start, end, error, pause, + resume, mark, boundary, SpeechSynthesisUtterance, + castToSpeechSynthesisUtterance, gTypeSpeechSynthesisUtterance) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -62,6 +62,12 @@ (MonadDOM m) => SpeechSynthesisUtterance -> m (Maybe SpeechSynthesisVoice) getVoice self = liftDOM ((self ^. js "voice") >>= fromJSVal) + +-- | +getVoiceUnchecked :: + (MonadDOM m) => SpeechSynthesisUtterance -> m SpeechSynthesisVoice +getVoiceUnchecked self + = liftDOM ((self ^. js "voice") >>= fromJSValUnchecked) -- | setVolume :: diff --git a/src/JSDOM/Generated/Storage.hs b/src/JSDOM/Generated/Storage.hs --- a/src/JSDOM/Generated/Storage.hs +++ b/src/JSDOM/Generated/Storage.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Storage - (key, getItem, setItem, removeItem, clear, getLength, Storage, - castToStorage, gTypeStorage) + (key, key_, keyUnchecked, getItem, getItem_, getItemUnchecked, + setItem, removeItem, clear, getLength, Storage, castToStorage, + gTypeStorage) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -24,6 +25,18 @@ = liftDOM ((self ^. jsf "key" [toJSVal index]) >>= fromMaybeJSString) +-- | +key_ :: (MonadDOM m) => Storage -> Word -> m () +key_ self index + = liftDOM (void (self ^. jsf "key" [toJSVal index])) + +-- | +keyUnchecked :: + (MonadDOM m, FromJSString result) => Storage -> Word -> m result +keyUnchecked self index + = liftDOM + ((self ^. jsf "key" [toJSVal index]) >>= fromJSValUnchecked) + -- | getItem :: (MonadDOM m, ToJSString key, FromJSString result) => @@ -31,6 +44,19 @@ getItem self key = liftDOM ((self ^. jsf "getItem" [toJSVal key]) >>= fromMaybeJSString) + +-- | +getItem_ :: (MonadDOM m, ToJSString key) => Storage -> key -> m () +getItem_ self key + = liftDOM (void (self ^. jsf "getItem" [toJSVal key])) + +-- | +getItemUnchecked :: + (MonadDOM m, ToJSString key, FromJSString result) => + Storage -> key -> m result +getItemUnchecked self key + = liftDOM + ((self ^. jsf "getItem" [toJSVal key]) >>= fromJSValUnchecked) -- | setItem :: diff --git a/src/JSDOM/Generated/StorageEvent.hs b/src/JSDOM/Generated/StorageEvent.hs --- a/src/JSDOM/Generated/StorageEvent.hs +++ b/src/JSDOM/Generated/StorageEvent.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.StorageEvent - (initStorageEvent, getKey, getOldValue, getNewValue, getUrl, - getStorageArea, StorageEvent, castToStorageEvent, + (initStorageEvent, getKey, getOldValue, getOldValueUnchecked, + getNewValue, getNewValueUnchecked, getUrl, getStorageArea, + getStorageAreaUnchecked, StorageEvent, castToStorageEvent, gTypeStorageEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -50,6 +51,12 @@ getOldValue self = liftDOM ((self ^. js "oldValue") >>= fromMaybeJSString) +-- | +getOldValueUnchecked :: + (MonadDOM m, FromJSString result) => StorageEvent -> m result +getOldValueUnchecked self + = liftDOM ((self ^. js "oldValue") >>= fromJSValUnchecked) + -- | getNewValue :: (MonadDOM m, FromJSString result) => @@ -57,6 +64,12 @@ getNewValue self = liftDOM ((self ^. js "newValue") >>= fromMaybeJSString) +-- | +getNewValueUnchecked :: + (MonadDOM m, FromJSString result) => StorageEvent -> m result +getNewValueUnchecked self + = liftDOM ((self ^. js "newValue") >>= fromJSValUnchecked) + -- | getUrl :: (MonadDOM m, FromJSString result) => StorageEvent -> m result @@ -66,3 +79,9 @@ getStorageArea :: (MonadDOM m) => StorageEvent -> m (Maybe Storage) getStorageArea self = liftDOM ((self ^. js "storageArea") >>= fromJSVal) + +-- | +getStorageAreaUnchecked :: + (MonadDOM m) => StorageEvent -> m Storage +getStorageAreaUnchecked self + = liftDOM ((self ^. js "storageArea") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/StyleMedia.hs b/src/JSDOM/Generated/StyleMedia.hs --- a/src/JSDOM/Generated/StyleMedia.hs +++ b/src/JSDOM/Generated/StyleMedia.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.StyleMedia - (matchMedium, getType, StyleMedia, castToStyleMedia, + (matchMedium, matchMedium_, getType, StyleMedia, castToStyleMedia, gTypeStyleMedia) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -23,6 +23,13 @@ matchMedium self mediaquery = liftDOM ((self ^. jsf "matchMedium" [toJSVal mediaquery]) >>= valToBool) + +-- | +matchMedium_ :: + (MonadDOM m, ToJSString mediaquery) => + StyleMedia -> mediaquery -> m () +matchMedium_ self mediaquery + = liftDOM (void (self ^. jsf "matchMedium" [toJSVal mediaquery])) -- | getType :: diff --git a/src/JSDOM/Generated/StyleSheet.hs b/src/JSDOM/Generated/StyleSheet.hs --- a/src/JSDOM/Generated/StyleSheet.hs +++ b/src/JSDOM/Generated/StyleSheet.hs @@ -1,8 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.StyleSheet - (getType, setDisabled, getDisabled, getOwnerNode, - getParentStyleSheet, getHref, getTitle, getMedia, StyleSheet, + (getType, getTypeUnchecked, setDisabled, getDisabled, getOwnerNode, + getOwnerNodeUnchecked, getParentStyleSheet, + getParentStyleSheetUnchecked, getHref, getHrefUnchecked, getTitle, + getTitleUnchecked, getMedia, getMediaUnchecked, StyleSheet, castToStyleSheet, gTypeStyleSheet, IsStyleSheet, toStyleSheet) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -25,6 +27,14 @@ = liftDOM (((toStyleSheet self) ^. js "type") >>= fromMaybeJSString) +-- | +getTypeUnchecked :: + (MonadDOM m, IsStyleSheet self, FromJSString result) => + self -> m result +getTypeUnchecked self + = liftDOM + (((toStyleSheet self) ^. js "type") >>= fromJSValUnchecked) + -- | setDisabled :: (MonadDOM m, IsStyleSheet self) => self -> Bool -> m () @@ -42,6 +52,13 @@ getOwnerNode self = liftDOM (((toStyleSheet self) ^. js "ownerNode") >>= fromJSVal) +-- | +getOwnerNodeUnchecked :: + (MonadDOM m, IsStyleSheet self) => self -> m Node +getOwnerNodeUnchecked self + = liftDOM + (((toStyleSheet self) ^. js "ownerNode") >>= fromJSValUnchecked) + -- | getParentStyleSheet :: (MonadDOM m, IsStyleSheet self) => self -> m (Maybe StyleSheet) @@ -49,6 +66,14 @@ = liftDOM (((toStyleSheet self) ^. js "parentStyleSheet") >>= fromJSVal) +-- | +getParentStyleSheetUnchecked :: + (MonadDOM m, IsStyleSheet self) => self -> m StyleSheet +getParentStyleSheetUnchecked self + = liftDOM + (((toStyleSheet self) ^. js "parentStyleSheet") >>= + fromJSValUnchecked) + -- | getHref :: (MonadDOM m, IsStyleSheet self, FromJSString result) => @@ -57,6 +82,14 @@ = liftDOM (((toStyleSheet self) ^. js "href") >>= fromMaybeJSString) +-- | +getHrefUnchecked :: + (MonadDOM m, IsStyleSheet self, FromJSString result) => + self -> m result +getHrefUnchecked self + = liftDOM + (((toStyleSheet self) ^. js "href") >>= fromJSValUnchecked) + -- | getTitle :: (MonadDOM m, IsStyleSheet self, FromJSString result) => @@ -65,8 +98,23 @@ = liftDOM (((toStyleSheet self) ^. js "title") >>= fromMaybeJSString) +-- | +getTitleUnchecked :: + (MonadDOM m, IsStyleSheet self, FromJSString result) => + self -> m result +getTitleUnchecked self + = liftDOM + (((toStyleSheet self) ^. js "title") >>= fromJSValUnchecked) + -- | getMedia :: (MonadDOM m, IsStyleSheet self) => self -> m (Maybe MediaList) getMedia self = liftDOM (((toStyleSheet self) ^. js "media") >>= fromJSVal) + +-- | +getMediaUnchecked :: + (MonadDOM m, IsStyleSheet self) => self -> m MediaList +getMediaUnchecked self + = liftDOM + (((toStyleSheet self) ^. js "media") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/StyleSheetList.hs b/src/JSDOM/Generated/StyleSheetList.hs --- a/src/JSDOM/Generated/StyleSheetList.hs +++ b/src/JSDOM/Generated/StyleSheetList.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.StyleSheetList - (item, _get, getLength, StyleSheetList, castToStyleSheetList, - gTypeStyleSheetList) + (item, item_, itemUnchecked, _get, _get_, _getUnchecked, getLength, + StyleSheetList, castToStyleSheetList, gTypeStyleSheetList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -22,12 +22,38 @@ item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) +-- | +item_ :: (MonadDOM m) => StyleSheetList -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m) => StyleSheetList -> Word -> m StyleSheet +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) + -- | _get :: (MonadDOM m, ToJSString name) => StyleSheetList -> name -> m (Maybe CSSStyleSheet) _get self name = liftDOM ((self ^. jsf "_get" [toJSVal name]) >>= fromJSVal) + +-- | +_get_ :: + (MonadDOM m, ToJSString name) => StyleSheetList -> name -> m () +_get_ self name + = liftDOM (void (self ^. jsf "_get" [toJSVal name])) + +-- | +_getUnchecked :: + (MonadDOM m, ToJSString name) => + StyleSheetList -> name -> m CSSStyleSheet +_getUnchecked self name + = liftDOM + ((self ^. jsf "_get" [toJSVal name]) >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => StyleSheetList -> m Word diff --git a/src/JSDOM/Generated/SubtleCrypto.hs b/src/JSDOM/Generated/SubtleCrypto.hs --- a/src/JSDOM/Generated/SubtleCrypto.hs +++ b/src/JSDOM/Generated/SubtleCrypto.hs @@ -1,8 +1,13 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SubtleCrypto - (encrypt, decrypt, sign, verify, digest, generateKey, importKey, - exportKey, wrapKey, unwrapKey, SubtleCrypto, castToSubtleCrypto, + (encrypt, encrypt_, encryptUnchecked, decrypt, decrypt_, + decryptUnchecked, sign, sign_, signUnchecked, verify, verify_, + verifyUnchecked, digest, digest_, digestUnchecked, generateKey, + generateKey_, generateKeyUnchecked, importKey, importKey_, + importKeyUnchecked, exportKey, exportKey_, exportKeyUnchecked, + wrapKey, wrapKey_, wrapKeyUnchecked, unwrapKey, unwrapKey_, + unwrapKeyUnchecked, SubtleCrypto, castToSubtleCrypto, gTypeSubtleCrypto) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -28,6 +33,28 @@ [toJSVal algorithm, toJSVal key, toJSVal (array data')]) >>= fromJSVal) +-- | +encrypt_ :: + (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') => + SubtleCrypto -> + algorithm -> Maybe CryptoKey -> [Maybe data'] -> m () +encrypt_ self algorithm key data' + = liftDOM + (void + (self ^. jsf "encrypt" + [toJSVal algorithm, toJSVal key, toJSVal (array data')])) + +-- | +encryptUnchecked :: + (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') => + SubtleCrypto -> + algorithm -> Maybe CryptoKey -> [Maybe data'] -> m Promise +encryptUnchecked self algorithm key data' + = liftDOM + ((self ^. jsf "encrypt" + [toJSVal algorithm, toJSVal key, toJSVal (array data')]) + >>= fromJSValUnchecked) + -- | decrypt :: (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') => @@ -39,6 +66,28 @@ [toJSVal algorithm, toJSVal key, toJSVal (array data')]) >>= fromJSVal) +-- | +decrypt_ :: + (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') => + SubtleCrypto -> + algorithm -> Maybe CryptoKey -> [Maybe data'] -> m () +decrypt_ self algorithm key data' + = liftDOM + (void + (self ^. jsf "decrypt" + [toJSVal algorithm, toJSVal key, toJSVal (array data')])) + +-- | +decryptUnchecked :: + (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') => + SubtleCrypto -> + algorithm -> Maybe CryptoKey -> [Maybe data'] -> m Promise +decryptUnchecked self algorithm key data' + = liftDOM + ((self ^. jsf "decrypt" + [toJSVal algorithm, toJSVal key, toJSVal (array data')]) + >>= fromJSValUnchecked) + -- | sign :: (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') => @@ -50,6 +99,28 @@ [toJSVal algorithm, toJSVal key, toJSVal (array data')]) >>= fromJSVal) +-- | +sign_ :: + (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') => + SubtleCrypto -> + algorithm -> Maybe CryptoKey -> [Maybe data'] -> m () +sign_ self algorithm key data' + = liftDOM + (void + (self ^. jsf "sign" + [toJSVal algorithm, toJSVal key, toJSVal (array data')])) + +-- | +signUnchecked :: + (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') => + SubtleCrypto -> + algorithm -> Maybe CryptoKey -> [Maybe data'] -> m Promise +signUnchecked self algorithm key data' + = liftDOM + ((self ^. jsf "sign" + [toJSVal algorithm, toJSVal key, toJSVal (array data')]) + >>= fromJSValUnchecked) + -- | verify :: (MonadDOM m, ToJSString algorithm, IsCryptoOperationData signature, @@ -65,6 +136,34 @@ toJSVal (array data')]) >>= fromJSVal) +-- | +verify_ :: + (MonadDOM m, ToJSString algorithm, IsCryptoOperationData signature, + IsCryptoOperationData data') => + SubtleCrypto -> + algorithm -> + Maybe CryptoKey -> Maybe signature -> [Maybe data'] -> m () +verify_ self algorithm key signature data' + = liftDOM + (void + (self ^. jsf "verify" + [toJSVal algorithm, toJSVal key, toJSVal signature, + toJSVal (array data')])) + +-- | +verifyUnchecked :: + (MonadDOM m, ToJSString algorithm, IsCryptoOperationData signature, + IsCryptoOperationData data') => + SubtleCrypto -> + algorithm -> + Maybe CryptoKey -> Maybe signature -> [Maybe data'] -> m Promise +verifyUnchecked self algorithm key signature data' + = liftDOM + ((self ^. jsf "verify" + [toJSVal algorithm, toJSVal key, toJSVal signature, + toJSVal (array data')]) + >>= fromJSValUnchecked) + -- | digest :: (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') => @@ -74,6 +173,24 @@ ((self ^. jsf "digest" [toJSVal algorithm, toJSVal (array data')]) >>= fromJSVal) +-- | +digest_ :: + (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') => + SubtleCrypto -> algorithm -> [Maybe data'] -> m () +digest_ self algorithm data' + = liftDOM + (void + (self ^. jsf "digest" [toJSVal algorithm, toJSVal (array data')])) + +-- | +digestUnchecked :: + (MonadDOM m, ToJSString algorithm, IsCryptoOperationData data') => + SubtleCrypto -> algorithm -> [Maybe data'] -> m Promise +digestUnchecked self algorithm data' + = liftDOM + ((self ^. jsf "digest" [toJSVal algorithm, toJSVal (array data')]) + >>= fromJSValUnchecked) + -- | generateKey :: (MonadDOM m, ToJSString algorithm) => @@ -86,6 +203,28 @@ toJSVal (array keyUsages)]) >>= fromJSVal) +-- | +generateKey_ :: + (MonadDOM m, ToJSString algorithm) => + SubtleCrypto -> algorithm -> Bool -> [KeyUsage] -> m () +generateKey_ self algorithm extractable keyUsages + = liftDOM + (void + (self ^. jsf "generateKey" + [toJSVal algorithm, toJSVal extractable, + toJSVal (array keyUsages)])) + +-- | +generateKeyUnchecked :: + (MonadDOM m, ToJSString algorithm) => + SubtleCrypto -> algorithm -> Bool -> [KeyUsage] -> m Promise +generateKeyUnchecked self algorithm extractable keyUsages + = liftDOM + ((self ^. jsf "generateKey" + [toJSVal algorithm, toJSVal extractable, + toJSVal (array keyUsages)]) + >>= fromJSValUnchecked) + -- | importKey :: (MonadDOM m, ToJSString format, IsCryptoOperationData keyData, @@ -101,6 +240,34 @@ toJSVal extractable, toJSVal (array keyUsages)]) >>= fromJSVal) +-- | +importKey_ :: + (MonadDOM m, ToJSString format, IsCryptoOperationData keyData, + ToJSString algorithm) => + SubtleCrypto -> + format -> Maybe keyData -> algorithm -> Bool -> [KeyUsage] -> m () +importKey_ self format keyData algorithm extractable keyUsages + = liftDOM + (void + (self ^. jsf "importKey" + [toJSVal format, toJSVal keyData, toJSVal algorithm, + toJSVal extractable, toJSVal (array keyUsages)])) + +-- | +importKeyUnchecked :: + (MonadDOM m, ToJSString format, IsCryptoOperationData keyData, + ToJSString algorithm) => + SubtleCrypto -> + format -> + Maybe keyData -> algorithm -> Bool -> [KeyUsage] -> m Promise +importKeyUnchecked self format keyData algorithm extractable + keyUsages + = liftDOM + ((self ^. jsf "importKey" + [toJSVal format, toJSVal keyData, toJSVal algorithm, + toJSVal extractable, toJSVal (array keyUsages)]) + >>= fromJSValUnchecked) + -- | exportKey :: (MonadDOM m, ToJSString format) => @@ -110,6 +277,23 @@ ((self ^. jsf "exportKey" [toJSVal format, toJSVal key]) >>= fromJSVal) +-- | +exportKey_ :: + (MonadDOM m, ToJSString format) => + SubtleCrypto -> format -> Maybe CryptoKey -> m () +exportKey_ self format key + = liftDOM + (void (self ^. jsf "exportKey" [toJSVal format, toJSVal key])) + +-- | +exportKeyUnchecked :: + (MonadDOM m, ToJSString format) => + SubtleCrypto -> format -> Maybe CryptoKey -> m Promise +exportKeyUnchecked self format key + = liftDOM + ((self ^. jsf "exportKey" [toJSVal format, toJSVal key]) >>= + fromJSValUnchecked) + -- | wrapKey :: (MonadDOM m, ToJSString format, ToJSString wrapAlgorithm) => @@ -124,6 +308,32 @@ toJSVal wrapAlgorithm]) >>= fromJSVal) +-- | +wrapKey_ :: + (MonadDOM m, ToJSString format, ToJSString wrapAlgorithm) => + SubtleCrypto -> + format -> + Maybe CryptoKey -> Maybe CryptoKey -> wrapAlgorithm -> m () +wrapKey_ self format key wrappingKey wrapAlgorithm + = liftDOM + (void + (self ^. jsf "wrapKey" + [toJSVal format, toJSVal key, toJSVal wrappingKey, + toJSVal wrapAlgorithm])) + +-- | +wrapKeyUnchecked :: + (MonadDOM m, ToJSString format, ToJSString wrapAlgorithm) => + SubtleCrypto -> + format -> + Maybe CryptoKey -> Maybe CryptoKey -> wrapAlgorithm -> m Promise +wrapKeyUnchecked self format key wrappingKey wrapAlgorithm + = liftDOM + ((self ^. jsf "wrapKey" + [toJSVal format, toJSVal key, toJSVal wrappingKey, + toJSVal wrapAlgorithm]) + >>= fromJSValUnchecked) + -- | unwrapKey :: (MonadDOM m, ToJSString format, IsCryptoOperationData wrappedKey, @@ -142,3 +352,41 @@ toJSVal unwrapAlgorithm, toJSVal unwrappedKeyAlgorithm, toJSVal extractable, toJSVal (array keyUsages)]) >>= fromJSVal) + +-- | +unwrapKey_ :: + (MonadDOM 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 + = liftDOM + (void + (self ^. jsf "unwrapKey" + [toJSVal format, toJSVal wrappedKey, toJSVal unwrappingKey, + toJSVal unwrapAlgorithm, toJSVal unwrappedKeyAlgorithm, + toJSVal extractable, toJSVal (array keyUsages)])) + +-- | +unwrapKeyUnchecked :: + (MonadDOM 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 + = liftDOM + ((self ^. jsf "unwrapKey" + [toJSVal format, toJSVal wrappedKey, toJSVal unwrappingKey, + toJSVal unwrapAlgorithm, toJSVal unwrappedKeyAlgorithm, + toJSVal extractable, toJSVal (array keyUsages)]) + >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/Text.hs b/src/JSDOM/Generated/Text.hs --- a/src/JSDOM/Generated/Text.hs +++ b/src/JSDOM/Generated/Text.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Text - (newText, splitText, replaceWholeText, getWholeText, Text, - castToText, gTypeText, IsText, toText) + (newText, splitText, splitText_, splitTextUnchecked, + replaceWholeText, replaceWholeText_, replaceWholeTextUnchecked, + getWholeText, Text, castToText, gTypeText, IsText, toText) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -27,6 +28,20 @@ = liftDOM (((toText self) ^. jsf "splitText" [toJSVal offset]) >>= fromJSVal) +-- | +splitText_ :: (MonadDOM m, IsText self) => self -> Word -> m () +splitText_ self offset + = liftDOM + (void ((toText self) ^. jsf "splitText" [toJSVal offset])) + +-- | +splitTextUnchecked :: + (MonadDOM m, IsText self) => self -> Word -> m Text +splitTextUnchecked self offset + = liftDOM + (((toText self) ^. jsf "splitText" [toJSVal offset]) >>= + fromJSValUnchecked) + -- | replaceWholeText :: (MonadDOM m, IsText self, ToJSString content) => @@ -35,6 +50,23 @@ = liftDOM (((toText self) ^. jsf "replaceWholeText" [toJSVal content]) >>= fromJSVal) + +-- | +replaceWholeText_ :: + (MonadDOM m, IsText self, ToJSString content) => + self -> content -> m () +replaceWholeText_ self content + = liftDOM + (void ((toText self) ^. jsf "replaceWholeText" [toJSVal content])) + +-- | +replaceWholeTextUnchecked :: + (MonadDOM m, IsText self, ToJSString content) => + self -> content -> m Text +replaceWholeTextUnchecked self content + = liftDOM + (((toText self) ^. jsf "replaceWholeText" [toJSVal content]) >>= + fromJSValUnchecked) -- | getWholeText :: diff --git a/src/JSDOM/Generated/TextTrack.hs b/src/JSDOM/Generated/TextTrack.hs --- a/src/JSDOM/Generated/TextTrack.hs +++ b/src/JSDOM/Generated/TextTrack.hs @@ -4,8 +4,10 @@ (addCue, removeCue, addRegion, removeRegion, getId, setKind, getKind, getLabel, setLanguage, getLanguage, getInBandMetadataTrackDispatchType, setMode, getMode, getCues, - getActiveCues, cueChange, getRegions, getSourceBuffer, TextTrack, - castToTextTrack, gTypeTextTrack) + getCuesUnchecked, getActiveCues, getActiveCuesUnchecked, cueChange, + getRegions, getRegionsUnchecked, getSourceBuffer, + getSourceBufferUnchecked, TextTrack, castToTextTrack, + gTypeTextTrack) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -92,12 +94,23 @@ getCues :: (MonadDOM m) => TextTrack -> m (Maybe TextTrackCueList) getCues self = liftDOM ((self ^. js "cues") >>= fromJSVal) +-- | +getCuesUnchecked :: (MonadDOM m) => TextTrack -> m TextTrackCueList +getCuesUnchecked self + = liftDOM ((self ^. js "cues") >>= fromJSValUnchecked) + -- | getActiveCues :: (MonadDOM m) => TextTrack -> m (Maybe TextTrackCueList) getActiveCues self = liftDOM ((self ^. js "activeCues") >>= fromJSVal) +-- | +getActiveCuesUnchecked :: + (MonadDOM m) => TextTrack -> m TextTrackCueList +getActiveCuesUnchecked self + = liftDOM ((self ^. js "activeCues") >>= fromJSValUnchecked) + -- | cueChange :: EventName TextTrack Event cueChange = unsafeEventName (toJSString "cuechange") @@ -106,8 +119,19 @@ getRegions :: (MonadDOM m) => TextTrack -> m (Maybe VTTRegionList) getRegions self = liftDOM ((self ^. js "regions") >>= fromJSVal) +-- | +getRegionsUnchecked :: (MonadDOM m) => TextTrack -> m VTTRegionList +getRegionsUnchecked self + = liftDOM ((self ^. js "regions") >>= fromJSValUnchecked) + -- | getSourceBuffer :: (MonadDOM m) => TextTrack -> m (Maybe SourceBuffer) getSourceBuffer self = liftDOM ((self ^. js "sourceBuffer") >>= fromJSVal) + +-- | +getSourceBufferUnchecked :: + (MonadDOM m) => TextTrack -> m SourceBuffer +getSourceBufferUnchecked self + = liftDOM ((self ^. js "sourceBuffer") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/TextTrackCue.hs b/src/JSDOM/Generated/TextTrackCue.hs --- a/src/JSDOM/Generated/TextTrackCue.hs +++ b/src/JSDOM/Generated/TextTrackCue.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.TextTrackCue - (newTextTrackCue, getTrack, setId, getId, setStartTime, - getStartTime, setEndTime, getEndTime, setPauseOnExit, + (newTextTrackCue, getTrack, getTrackUnchecked, setId, getId, + setStartTime, getStartTime, setEndTime, getEndTime, setPauseOnExit, getPauseOnExit, enter, exit, TextTrackCue, castToTextTrackCue, gTypeTextTrackCue, IsTextTrackCue, toTextTrackCue) where @@ -33,6 +33,13 @@ (MonadDOM m, IsTextTrackCue self) => self -> m (Maybe TextTrack) getTrack self = liftDOM (((toTextTrackCue self) ^. js "track") >>= fromJSVal) + +-- | +getTrackUnchecked :: + (MonadDOM m, IsTextTrackCue self) => self -> m TextTrack +getTrackUnchecked self + = liftDOM + (((toTextTrackCue self) ^. js "track") >>= fromJSValUnchecked) -- | setId :: diff --git a/src/JSDOM/Generated/TextTrackCueList.hs b/src/JSDOM/Generated/TextTrackCueList.hs --- a/src/JSDOM/Generated/TextTrackCueList.hs +++ b/src/JSDOM/Generated/TextTrackCueList.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.TextTrackCueList - (item, getCueById, getLength, TextTrackCueList, + (item, item_, itemUnchecked, getCueById, getCueById_, + getCueByIdUnchecked, getLength, TextTrackCueList, castToTextTrackCueList, gTypeTextTrackCueList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -22,12 +23,38 @@ item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) +-- | +item_ :: (MonadDOM m) => TextTrackCueList -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m) => TextTrackCueList -> Word -> m TextTrackCue +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) + -- | getCueById :: (MonadDOM m, ToJSString id) => TextTrackCueList -> id -> m (Maybe TextTrackCue) getCueById self id = liftDOM ((self ^. jsf "getCueById" [toJSVal id]) >>= fromJSVal) + +-- | +getCueById_ :: + (MonadDOM m, ToJSString id) => TextTrackCueList -> id -> m () +getCueById_ self id + = liftDOM (void (self ^. jsf "getCueById" [toJSVal id])) + +-- | +getCueByIdUnchecked :: + (MonadDOM m, ToJSString id) => + TextTrackCueList -> id -> m TextTrackCue +getCueByIdUnchecked self id + = liftDOM + ((self ^. jsf "getCueById" [toJSVal id]) >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => TextTrackCueList -> m Word diff --git a/src/JSDOM/Generated/TextTrackList.hs b/src/JSDOM/Generated/TextTrackList.hs --- a/src/JSDOM/Generated/TextTrackList.hs +++ b/src/JSDOM/Generated/TextTrackList.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.TextTrackList - (item, getTrackById, getLength, addTrack, change, removeTrack, + (item, item_, itemUnchecked, getTrackById, getTrackById_, + getTrackByIdUnchecked, getLength, addTrack, change, removeTrack, TextTrackList, castToTextTrackList, gTypeTextTrackList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -22,12 +23,37 @@ item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) +-- | +item_ :: (MonadDOM m) => TextTrackList -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m) => TextTrackList -> Word -> m TextTrack +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) + -- | getTrackById :: (MonadDOM m, ToJSString id) => TextTrackList -> id -> m (Maybe TextTrack) getTrackById self id = liftDOM ((self ^. jsf "getTrackById" [toJSVal id]) >>= fromJSVal) + +-- | +getTrackById_ :: + (MonadDOM m, ToJSString id) => TextTrackList -> id -> m () +getTrackById_ self id + = liftDOM (void (self ^. jsf "getTrackById" [toJSVal id])) + +-- | +getTrackByIdUnchecked :: + (MonadDOM m, ToJSString id) => TextTrackList -> id -> m TextTrack +getTrackByIdUnchecked self id + = liftDOM + ((self ^. jsf "getTrackById" [toJSVal id]) >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => TextTrackList -> m Word diff --git a/src/JSDOM/Generated/TimeRanges.hs b/src/JSDOM/Generated/TimeRanges.hs --- a/src/JSDOM/Generated/TimeRanges.hs +++ b/src/JSDOM/Generated/TimeRanges.hs @@ -1,7 +1,7 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.TimeRanges - (start, end, getLength, TimeRanges, castToTimeRanges, + (start, start_, end, end_, getLength, TimeRanges, castToTimeRanges, gTypeTimeRanges) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -21,10 +21,20 @@ start self index = liftDOM ((self ^. jsf "start" [toJSVal index]) >>= valToNumber) +-- | +start_ :: (MonadDOM m) => TimeRanges -> Word -> m () +start_ self index + = liftDOM (void (self ^. jsf "start" [toJSVal index])) + -- | end :: (MonadDOM m) => TimeRanges -> Word -> m Double end self index = liftDOM ((self ^. jsf "end" [toJSVal index]) >>= valToNumber) + +-- | +end_ :: (MonadDOM m) => TimeRanges -> Word -> m () +end_ self index + = liftDOM (void (self ^. jsf "end" [toJSVal index])) -- | getLength :: (MonadDOM m) => TimeRanges -> m Word diff --git a/src/JSDOM/Generated/Touch.hs b/src/JSDOM/Generated/Touch.hs --- a/src/JSDOM/Generated/Touch.hs +++ b/src/JSDOM/Generated/Touch.hs @@ -2,9 +2,9 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Touch (getClientX, getClientY, getScreenX, getScreenY, getPageX, - getPageY, getTarget, getIdentifier, getWebkitRadiusX, - getWebkitRadiusY, getWebkitRotationAngle, getWebkitForce, Touch, - castToTouch, gTypeTouch) + getPageY, getTarget, getTargetUnchecked, getIdentifier, + getWebkitRadiusX, getWebkitRadiusY, getWebkitRotationAngle, + getWebkitForce, Touch, castToTouch, gTypeTouch) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -51,6 +51,11 @@ -- | getTarget :: (MonadDOM m) => Touch -> m (Maybe EventTarget) getTarget self = liftDOM ((self ^. js "target") >>= fromJSVal) + +-- | +getTargetUnchecked :: (MonadDOM m) => Touch -> m EventTarget +getTargetUnchecked self + = liftDOM ((self ^. js "target") >>= fromJSValUnchecked) -- | getIdentifier :: (MonadDOM m) => Touch -> m Word diff --git a/src/JSDOM/Generated/TouchEvent.hs b/src/JSDOM/Generated/TouchEvent.hs --- a/src/JSDOM/Generated/TouchEvent.hs +++ b/src/JSDOM/Generated/TouchEvent.hs @@ -1,9 +1,10 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.TouchEvent - (initTouchEvent, getTouches, getTargetTouches, getChangedTouches, - getCtrlKey, getShiftKey, getAltKey, getMetaKey, TouchEvent, - castToTouchEvent, gTypeTouchEvent) + (initTouchEvent, getTouches, getTouchesUnchecked, getTargetTouches, + getTargetTouchesUnchecked, getChangedTouches, + getChangedTouchesUnchecked, getCtrlKey, getShiftKey, getAltKey, + getMetaKey, TouchEvent, castToTouchEvent, gTypeTouchEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -41,17 +42,34 @@ getTouches :: (MonadDOM m) => TouchEvent -> m (Maybe TouchList) getTouches self = liftDOM ((self ^. js "touches") >>= fromJSVal) +-- | +getTouchesUnchecked :: (MonadDOM m) => TouchEvent -> m TouchList +getTouchesUnchecked self + = liftDOM ((self ^. js "touches") >>= fromJSValUnchecked) + -- | getTargetTouches :: (MonadDOM m) => TouchEvent -> m (Maybe TouchList) getTargetTouches self = liftDOM ((self ^. js "targetTouches") >>= fromJSVal) +-- | +getTargetTouchesUnchecked :: + (MonadDOM m) => TouchEvent -> m TouchList +getTargetTouchesUnchecked self + = liftDOM ((self ^. js "targetTouches") >>= fromJSValUnchecked) + -- | getChangedTouches :: (MonadDOM m) => TouchEvent -> m (Maybe TouchList) getChangedTouches self = liftDOM ((self ^. js "changedTouches") >>= fromJSVal) + +-- | +getChangedTouchesUnchecked :: + (MonadDOM m) => TouchEvent -> m TouchList +getChangedTouchesUnchecked self + = liftDOM ((self ^. js "changedTouches") >>= fromJSValUnchecked) -- | getCtrlKey :: (MonadDOM m) => TouchEvent -> m Bool diff --git a/src/JSDOM/Generated/TouchList.hs b/src/JSDOM/Generated/TouchList.hs --- a/src/JSDOM/Generated/TouchList.hs +++ b/src/JSDOM/Generated/TouchList.hs @@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.TouchList - (item, getLength, TouchList, castToTouchList, gTypeTouchList) where + (item, item_, itemUnchecked, getLength, TouchList, castToTouchList, + gTypeTouchList) + where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) @@ -18,6 +20,17 @@ item :: (MonadDOM m) => TouchList -> Word -> m (Maybe Touch) item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) + +-- | +item_ :: (MonadDOM m) => TouchList -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: (MonadDOM m) => TouchList -> Word -> m Touch +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => TouchList -> m Word diff --git a/src/JSDOM/Generated/TrackEvent.hs b/src/JSDOM/Generated/TrackEvent.hs --- a/src/JSDOM/Generated/TrackEvent.hs +++ b/src/JSDOM/Generated/TrackEvent.hs @@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.TrackEvent - (getTrack, TrackEvent, castToTrackEvent, gTypeTrackEvent) where + (getTrack, getTrackUnchecked, TrackEvent, castToTrackEvent, + gTypeTrackEvent) + where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) @@ -17,3 +19,8 @@ -- | getTrack :: (MonadDOM m) => TrackEvent -> m (Maybe GObject) getTrack self = liftDOM ((self ^. js "track") >>= fromJSVal) + +-- | +getTrackUnchecked :: (MonadDOM m) => TrackEvent -> m GObject +getTrackUnchecked self + = liftDOM ((self ^. js "track") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/TreeWalker.hs b/src/JSDOM/Generated/TreeWalker.hs --- a/src/JSDOM/Generated/TreeWalker.hs +++ b/src/JSDOM/Generated/TreeWalker.hs @@ -1,10 +1,16 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.TreeWalker - (parentNode, firstChild, lastChild, previousSibling, nextSibling, - previousNode, nextNode, getRoot, getWhatToShow, getFilter, - getExpandEntityReferences, setCurrentNode, getCurrentNode, - TreeWalker, castToTreeWalker, gTypeTreeWalker) + (parentNode, parentNode_, parentNodeUnchecked, firstChild, + firstChild_, firstChildUnchecked, lastChild, lastChild_, + lastChildUnchecked, previousSibling, previousSibling_, + previousSiblingUnchecked, nextSibling, nextSibling_, + nextSiblingUnchecked, previousNode, previousNode_, + previousNodeUnchecked, nextNode, nextNode_, nextNodeUnchecked, + getRoot, getRootUnchecked, getWhatToShow, getFilter, + getFilterUnchecked, getExpandEntityReferences, setCurrentNode, + getCurrentNode, getCurrentNodeUnchecked, TreeWalker, + castToTreeWalker, gTypeTreeWalker) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -23,39 +29,109 @@ parentNode self = liftDOM ((self ^. jsf "parentNode" ()) >>= fromJSVal) +-- | +parentNode_ :: (MonadDOM m) => TreeWalker -> m () +parentNode_ self = liftDOM (void (self ^. jsf "parentNode" ())) + +-- | +parentNodeUnchecked :: (MonadDOM m) => TreeWalker -> m Node +parentNodeUnchecked self + = liftDOM ((self ^. jsf "parentNode" ()) >>= fromJSValUnchecked) + -- | firstChild :: (MonadDOM m) => TreeWalker -> m (Maybe Node) firstChild self = liftDOM ((self ^. jsf "firstChild" ()) >>= fromJSVal) +-- | +firstChild_ :: (MonadDOM m) => TreeWalker -> m () +firstChild_ self = liftDOM (void (self ^. jsf "firstChild" ())) + +-- | +firstChildUnchecked :: (MonadDOM m) => TreeWalker -> m Node +firstChildUnchecked self + = liftDOM ((self ^. jsf "firstChild" ()) >>= fromJSValUnchecked) + -- | lastChild :: (MonadDOM m) => TreeWalker -> m (Maybe Node) lastChild self = liftDOM ((self ^. jsf "lastChild" ()) >>= fromJSVal) +-- | +lastChild_ :: (MonadDOM m) => TreeWalker -> m () +lastChild_ self = liftDOM (void (self ^. jsf "lastChild" ())) + +-- | +lastChildUnchecked :: (MonadDOM m) => TreeWalker -> m Node +lastChildUnchecked self + = liftDOM ((self ^. jsf "lastChild" ()) >>= fromJSValUnchecked) + -- | previousSibling :: (MonadDOM m) => TreeWalker -> m (Maybe Node) previousSibling self = liftDOM ((self ^. jsf "previousSibling" ()) >>= fromJSVal) +-- | +previousSibling_ :: (MonadDOM m) => TreeWalker -> m () +previousSibling_ self + = liftDOM (void (self ^. jsf "previousSibling" ())) + +-- | +previousSiblingUnchecked :: (MonadDOM m) => TreeWalker -> m Node +previousSiblingUnchecked self + = liftDOM + ((self ^. jsf "previousSibling" ()) >>= fromJSValUnchecked) + -- | nextSibling :: (MonadDOM m) => TreeWalker -> m (Maybe Node) nextSibling self = liftDOM ((self ^. jsf "nextSibling" ()) >>= fromJSVal) +-- | +nextSibling_ :: (MonadDOM m) => TreeWalker -> m () +nextSibling_ self = liftDOM (void (self ^. jsf "nextSibling" ())) + +-- | +nextSiblingUnchecked :: (MonadDOM m) => TreeWalker -> m Node +nextSiblingUnchecked self + = liftDOM ((self ^. jsf "nextSibling" ()) >>= fromJSValUnchecked) + -- | previousNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node) previousNode self = liftDOM ((self ^. jsf "previousNode" ()) >>= fromJSVal) +-- | +previousNode_ :: (MonadDOM m) => TreeWalker -> m () +previousNode_ self = liftDOM (void (self ^. jsf "previousNode" ())) + +-- | +previousNodeUnchecked :: (MonadDOM m) => TreeWalker -> m Node +previousNodeUnchecked self + = liftDOM ((self ^. jsf "previousNode" ()) >>= fromJSValUnchecked) + -- | nextNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node) nextNode self = liftDOM ((self ^. jsf "nextNode" ()) >>= fromJSVal) +-- | +nextNode_ :: (MonadDOM m) => TreeWalker -> m () +nextNode_ self = liftDOM (void (self ^. jsf "nextNode" ())) + +-- | +nextNodeUnchecked :: (MonadDOM m) => TreeWalker -> m Node +nextNodeUnchecked self + = liftDOM ((self ^. jsf "nextNode" ()) >>= fromJSValUnchecked) + -- | getRoot :: (MonadDOM m) => TreeWalker -> m (Maybe Node) getRoot self = liftDOM ((self ^. js "root") >>= fromJSVal) +-- | +getRootUnchecked :: (MonadDOM m) => TreeWalker -> m Node +getRootUnchecked self + = liftDOM ((self ^. js "root") >>= fromJSValUnchecked) + -- | getWhatToShow :: (MonadDOM m) => TreeWalker -> m Word getWhatToShow self @@ -65,6 +141,11 @@ getFilter :: (MonadDOM m) => TreeWalker -> m (Maybe NodeFilter) getFilter self = liftDOM ((self ^. js "filter") >>= fromJSVal) +-- | +getFilterUnchecked :: (MonadDOM m) => TreeWalker -> m NodeFilter +getFilterUnchecked self + = liftDOM ((self ^. js "filter") >>= fromJSValUnchecked) + -- | getExpandEntityReferences :: (MonadDOM m) => TreeWalker -> m Bool getExpandEntityReferences self @@ -80,3 +161,8 @@ getCurrentNode :: (MonadDOM m) => TreeWalker -> m (Maybe Node) getCurrentNode self = liftDOM ((self ^. js "currentNode") >>= fromJSVal) + +-- | +getCurrentNodeUnchecked :: (MonadDOM m) => TreeWalker -> m Node +getCurrentNodeUnchecked self + = liftDOM ((self ^. js "currentNode") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/UIEvent.hs b/src/JSDOM/Generated/UIEvent.hs --- a/src/JSDOM/Generated/UIEvent.hs +++ b/src/JSDOM/Generated/UIEvent.hs @@ -1,9 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.UIEvent - (initUIEvent, getView, getDetail, getKeyCode, getCharCode, - getLayerX, getLayerY, getPageX, getPageY, getWhich, UIEvent, - castToUIEvent, gTypeUIEvent, IsUIEvent, toUIEvent) + (initUIEvent, getView, getViewUnchecked, getDetail, getKeyCode, + getCharCode, getLayerX, getLayerY, getPageX, getPageY, getWhich, + UIEvent, castToUIEvent, gTypeUIEvent, IsUIEvent, toUIEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -31,6 +31,12 @@ getView :: (MonadDOM m, IsUIEvent self) => self -> m (Maybe Window) getView self = liftDOM (((toUIEvent self) ^. js "view") >>= fromJSVal) + +-- | +getViewUnchecked :: + (MonadDOM m, IsUIEvent self) => self -> m Window +getViewUnchecked self + = liftDOM (((toUIEvent self) ^. js "view") >>= fromJSValUnchecked) -- | getDetail :: (MonadDOM m, IsUIEvent self) => self -> m Int diff --git a/src/JSDOM/Generated/UIRequestEvent.hs b/src/JSDOM/Generated/UIRequestEvent.hs --- a/src/JSDOM/Generated/UIRequestEvent.hs +++ b/src/JSDOM/Generated/UIRequestEvent.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.UIRequestEvent - (getReceiver, UIRequestEvent, castToUIRequestEvent, - gTypeUIRequestEvent) + (getReceiver, getReceiverUnchecked, UIRequestEvent, + castToUIRequestEvent, gTypeUIRequestEvent) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,3 +20,9 @@ getReceiver :: (MonadDOM m) => UIRequestEvent -> m (Maybe EventTarget) getReceiver self = liftDOM ((self ^. js "receiver") >>= fromJSVal) + +-- | +getReceiverUnchecked :: + (MonadDOM m) => UIRequestEvent -> m EventTarget +getReceiverUnchecked self + = liftDOM ((self ^. js "receiver") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/URL.hs b/src/JSDOM/Generated/URL.hs --- a/src/JSDOM/Generated/URL.hs +++ b/src/JSDOM/Generated/URL.hs @@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.URL - (newURL, newURL', newURL'', createObjectURL, revokeObjectURL, - createObjectURLSource, createObjectURLStream, URL, castToURL, - gTypeURL) + (newURL, newURL', newURL'', createObjectURL, createObjectURL_, + createObjectURLUnchecked, revokeObjectURL, createObjectURLSource, + createObjectURLSource_, createObjectURLSourceUnchecked, + createObjectURLStream, createObjectURLStream_, + createObjectURLStreamUnchecked, URL, castToURL, gTypeURL) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -43,6 +45,21 @@ ((self ^. jsf "createObjectURL" [toJSVal blob]) >>= fromMaybeJSString) +-- | +createObjectURL_ :: + (MonadDOM m, IsBlob blob) => URL -> Maybe blob -> m () +createObjectURL_ self blob + = liftDOM (void (self ^. jsf "createObjectURL" [toJSVal blob])) + +-- | +createObjectURLUnchecked :: + (MonadDOM m, IsBlob blob, FromJSString result) => + URL -> Maybe blob -> m result +createObjectURLUnchecked self blob + = liftDOM + ((self ^. jsf "createObjectURL" [toJSVal blob]) >>= + fromJSValUnchecked) + -- | revokeObjectURL :: (MonadDOM m, ToJSString url) => URL -> url -> m () @@ -59,6 +76,21 @@ fromMaybeJSString) -- | +createObjectURLSource_ :: + (MonadDOM m) => URL -> Maybe MediaSource -> m () +createObjectURLSource_ self source + = liftDOM (void (self ^. jsf "createObjectURL" [toJSVal source])) + +-- | +createObjectURLSourceUnchecked :: + (MonadDOM m, FromJSString result) => + URL -> Maybe MediaSource -> m result +createObjectURLSourceUnchecked self source + = liftDOM + ((self ^. jsf "createObjectURL" [toJSVal source]) >>= + fromJSValUnchecked) + +-- | createObjectURLStream :: (MonadDOM m, FromJSString result) => URL -> Maybe MediaStream -> m (Maybe result) @@ -66,3 +98,18 @@ = liftDOM ((self ^. jsf "createObjectURL" [toJSVal stream]) >>= fromMaybeJSString) + +-- | +createObjectURLStream_ :: + (MonadDOM m) => URL -> Maybe MediaStream -> m () +createObjectURLStream_ self stream + = liftDOM (void (self ^. jsf "createObjectURL" [toJSVal stream])) + +-- | +createObjectURLStreamUnchecked :: + (MonadDOM m, FromJSString result) => + URL -> Maybe MediaStream -> m result +createObjectURLStreamUnchecked self stream + = liftDOM + ((self ^. jsf "createObjectURL" [toJSVal stream]) >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/URLUtils.hs b/src/JSDOM/Generated/URLUtils.hs --- a/src/JSDOM/Generated/URLUtils.hs +++ b/src/JSDOM/Generated/URLUtils.hs @@ -1,11 +1,14 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.URLUtils - (toString, setHref, getHref, getOrigin, setProtocol, getProtocol, - setUsername, getUsername, setPassword, getPassword, setHost, - getHost, setHostname, getHostname, setPort, getPort, setPathname, - getPathname, setSearch, getSearch, setHash, getHash, URLUtils, - castToURLUtils, gTypeURLUtils) + (toString, toString_, setHref, getHref, getOrigin, setProtocol, + getProtocol, getProtocolUnchecked, setUsername, getUsername, + getUsernameUnchecked, setPassword, getPassword, + getPasswordUnchecked, setHost, getHost, getHostUnchecked, + setHostname, getHostname, getHostnameUnchecked, setPort, getPort, + getPortUnchecked, setPathname, getPathname, getPathnameUnchecked, + setSearch, getSearch, getSearchUnchecked, setHash, getHash, + getHashUnchecked, URLUtils, castToURLUtils, gTypeURLUtils) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -25,6 +28,10 @@ toString self = liftDOM ((self ^. jsf "toString" ()) >>= fromJSValUnchecked) +-- | +toString_ :: (MonadDOM m) => URLUtils -> m () +toString_ self = liftDOM (void (self ^. jsf "toString" ())) + -- | setHref :: (MonadDOM m, ToJSString val) => URLUtils -> val -> m () setHref self val = liftDOM (self ^. jss "href" (toJSVal val)) @@ -52,6 +59,12 @@ getProtocol self = liftDOM ((self ^. js "protocol") >>= fromMaybeJSString) +-- | +getProtocolUnchecked :: + (MonadDOM m, FromJSString result) => URLUtils -> m result +getProtocolUnchecked self + = liftDOM ((self ^. js "protocol") >>= fromJSValUnchecked) + -- | setUsername :: (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m () @@ -64,6 +77,12 @@ getUsername self = liftDOM ((self ^. js "username") >>= fromMaybeJSString) +-- | +getUsernameUnchecked :: + (MonadDOM m, FromJSString result) => URLUtils -> m result +getUsernameUnchecked self + = liftDOM ((self ^. js "username") >>= fromJSValUnchecked) + -- | setPassword :: (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m () @@ -76,6 +95,12 @@ getPassword self = liftDOM ((self ^. js "password") >>= fromMaybeJSString) +-- | +getPasswordUnchecked :: + (MonadDOM m, FromJSString result) => URLUtils -> m result +getPasswordUnchecked self + = liftDOM ((self ^. js "password") >>= fromJSValUnchecked) + -- | setHost :: (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m () @@ -86,6 +111,12 @@ (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result) getHost self = liftDOM ((self ^. js "host") >>= fromMaybeJSString) +-- | +getHostUnchecked :: + (MonadDOM m, FromJSString result) => URLUtils -> m result +getHostUnchecked self + = liftDOM ((self ^. js "host") >>= fromJSValUnchecked) + -- | setHostname :: (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m () @@ -98,6 +129,12 @@ getHostname self = liftDOM ((self ^. js "hostname") >>= fromMaybeJSString) +-- | +getHostnameUnchecked :: + (MonadDOM m, FromJSString result) => URLUtils -> m result +getHostnameUnchecked self + = liftDOM ((self ^. js "hostname") >>= fromJSValUnchecked) + -- | setPort :: (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m () @@ -108,6 +145,12 @@ (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result) getPort self = liftDOM ((self ^. js "port") >>= fromMaybeJSString) +-- | +getPortUnchecked :: + (MonadDOM m, FromJSString result) => URLUtils -> m result +getPortUnchecked self + = liftDOM ((self ^. js "port") >>= fromJSValUnchecked) + -- | setPathname :: (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m () @@ -120,6 +163,12 @@ getPathname self = liftDOM ((self ^. js "pathname") >>= fromMaybeJSString) +-- | +getPathnameUnchecked :: + (MonadDOM m, FromJSString result) => URLUtils -> m result +getPathnameUnchecked self + = liftDOM ((self ^. js "pathname") >>= fromJSValUnchecked) + -- | setSearch :: (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m () @@ -131,6 +180,12 @@ getSearch self = liftDOM ((self ^. js "search") >>= fromMaybeJSString) +-- | +getSearchUnchecked :: + (MonadDOM m, FromJSString result) => URLUtils -> m result +getSearchUnchecked self + = liftDOM ((self ^. js "search") >>= fromJSValUnchecked) + -- | setHash :: (MonadDOM m, ToJSString val) => URLUtils -> Maybe val -> m () @@ -140,3 +195,9 @@ getHash :: (MonadDOM m, FromJSString result) => URLUtils -> m (Maybe result) getHash self = liftDOM ((self ^. js "hash") >>= fromMaybeJSString) + +-- | +getHashUnchecked :: + (MonadDOM m, FromJSString result) => URLUtils -> m result +getHashUnchecked self + = liftDOM ((self ^. js "hash") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/VTTCue.hs b/src/JSDOM/Generated/VTTCue.hs --- a/src/JSDOM/Generated/VTTCue.hs +++ b/src/JSDOM/Generated/VTTCue.hs @@ -1,10 +1,11 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.VTTCue - (newVTTCue, getCueAsHTML, setVertical, getVertical, setSnapToLines, - getSnapToLines, setLine, getLine, setPosition, getPosition, - setSize, getSize, setAlign, getAlign, setText, getText, - setRegionId, getRegionId, VTTCue, castToVTTCue, gTypeVTTCue) + (newVTTCue, getCueAsHTML, getCueAsHTML_, getCueAsHTMLUnchecked, + setVertical, getVertical, setSnapToLines, getSnapToLines, setLine, + getLine, setPosition, getPosition, setSize, getSize, setAlign, + getAlign, setText, getText, setRegionId, getRegionId, VTTCue, + castToVTTCue, gTypeVTTCue) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -33,6 +34,16 @@ (MonadDOM m) => VTTCue -> m (Maybe DocumentFragment) getCueAsHTML self = liftDOM ((self ^. jsf "getCueAsHTML" ()) >>= fromJSVal) + +-- | +getCueAsHTML_ :: (MonadDOM m) => VTTCue -> m () +getCueAsHTML_ self = liftDOM (void (self ^. jsf "getCueAsHTML" ())) + +-- | +getCueAsHTMLUnchecked :: + (MonadDOM m) => VTTCue -> m DocumentFragment +getCueAsHTMLUnchecked self + = liftDOM ((self ^. jsf "getCueAsHTML" ()) >>= fromJSValUnchecked) -- | setVertical :: diff --git a/src/JSDOM/Generated/VTTRegion.hs b/src/JSDOM/Generated/VTTRegion.hs --- a/src/JSDOM/Generated/VTTRegion.hs +++ b/src/JSDOM/Generated/VTTRegion.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.VTTRegion - (newVTTRegion, getTrack, setId, getId, setWidth, getWidth, - setHeight, getHeight, setRegionAnchorX, getRegionAnchorX, + (newVTTRegion, getTrack, getTrackUnchecked, setId, getId, setWidth, + getWidth, setHeight, getHeight, setRegionAnchorX, getRegionAnchorX, setRegionAnchorY, getRegionAnchorY, setViewportAnchorX, getViewportAnchorX, setViewportAnchorY, getViewportAnchorY, setScroll, getScroll, VTTRegion, castToVTTRegion, gTypeVTTRegion) @@ -26,6 +26,11 @@ -- | getTrack :: (MonadDOM m) => VTTRegion -> m (Maybe TextTrack) getTrack self = liftDOM ((self ^. js "track") >>= fromJSVal) + +-- | +getTrackUnchecked :: (MonadDOM m) => VTTRegion -> m TextTrack +getTrackUnchecked self + = liftDOM ((self ^. js "track") >>= fromJSValUnchecked) -- | setId :: (MonadDOM m, ToJSString val) => VTTRegion -> val -> m () diff --git a/src/JSDOM/Generated/VTTRegionList.hs b/src/JSDOM/Generated/VTTRegionList.hs --- a/src/JSDOM/Generated/VTTRegionList.hs +++ b/src/JSDOM/Generated/VTTRegionList.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.VTTRegionList - (item, getRegionById, getLength, VTTRegionList, + (item, item_, itemUnchecked, getRegionById, getRegionById_, + getRegionByIdUnchecked, getLength, VTTRegionList, castToVTTRegionList, gTypeVTTRegionList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -22,6 +23,18 @@ item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) +-- | +item_ :: (MonadDOM m) => VTTRegionList -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m) => VTTRegionList -> Word -> m VTTRegion +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) + -- | getRegionById :: (MonadDOM m, ToJSString id) => @@ -29,6 +42,19 @@ getRegionById self id = liftDOM ((self ^. jsf "getRegionById" [toJSVal id]) >>= fromJSVal) + +-- | +getRegionById_ :: + (MonadDOM m, ToJSString id) => VTTRegionList -> id -> m () +getRegionById_ self id + = liftDOM (void (self ^. jsf "getRegionById" [toJSVal id])) + +-- | +getRegionByIdUnchecked :: + (MonadDOM m, ToJSString id) => VTTRegionList -> id -> m VTTRegion +getRegionByIdUnchecked self id + = liftDOM + ((self ^. jsf "getRegionById" [toJSVal id]) >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => VTTRegionList -> m Word diff --git a/src/JSDOM/Generated/VideoTrack.hs b/src/JSDOM/Generated/VideoTrack.hs --- a/src/JSDOM/Generated/VideoTrack.hs +++ b/src/JSDOM/Generated/VideoTrack.hs @@ -2,8 +2,9 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.VideoTrack (getId, setKind, getKind, getLabel, setLanguage, getLanguage, - setSelected, getSelected, getSourceBuffer, VideoTrack, - castToVideoTrack, gTypeVideoTrack) + setSelected, getSelected, getSourceBuffer, + getSourceBufferUnchecked, VideoTrack, castToVideoTrack, + gTypeVideoTrack) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -64,3 +65,9 @@ (MonadDOM m) => VideoTrack -> m (Maybe SourceBuffer) getSourceBuffer self = liftDOM ((self ^. js "sourceBuffer") >>= fromJSVal) + +-- | +getSourceBufferUnchecked :: + (MonadDOM m) => VideoTrack -> m SourceBuffer +getSourceBufferUnchecked self + = liftDOM ((self ^. js "sourceBuffer") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/VideoTrackList.hs b/src/JSDOM/Generated/VideoTrackList.hs --- a/src/JSDOM/Generated/VideoTrackList.hs +++ b/src/JSDOM/Generated/VideoTrackList.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.VideoTrackList - (item, getTrackById, getLength, getSelectedIndex, change, addTrack, - removeTrack, VideoTrackList, castToVideoTrackList, + (item, item_, itemUnchecked, getTrackById, getTrackById_, + getTrackByIdUnchecked, getLength, getSelectedIndex, change, + addTrack, removeTrack, VideoTrackList, castToVideoTrackList, gTypeVideoTrackList) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -23,12 +24,37 @@ item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) +-- | +item_ :: (MonadDOM m) => VideoTrackList -> Word -> m () +item_ self index + = liftDOM (void (self ^. jsf "item" [toJSVal index])) + +-- | +itemUnchecked :: + (MonadDOM m) => VideoTrackList -> Word -> m VideoTrack +itemUnchecked self index + = liftDOM + ((self ^. jsf "item" [toJSVal index]) >>= fromJSValUnchecked) + -- | getTrackById :: (MonadDOM m, ToJSString id) => VideoTrackList -> id -> m (Maybe VideoTrack) getTrackById self id = liftDOM ((self ^. jsf "getTrackById" [toJSVal id]) >>= fromJSVal) + +-- | +getTrackById_ :: + (MonadDOM m, ToJSString id) => VideoTrackList -> id -> m () +getTrackById_ self id + = liftDOM (void (self ^. jsf "getTrackById" [toJSVal id])) + +-- | +getTrackByIdUnchecked :: + (MonadDOM m, ToJSString id) => VideoTrackList -> id -> m VideoTrack +getTrackByIdUnchecked self id + = liftDOM + ((self ^. jsf "getTrackById" [toJSVal id]) >>= fromJSValUnchecked) -- | getLength :: (MonadDOM m) => VideoTrackList -> m Word diff --git a/src/JSDOM/Generated/WaveShaperNode.hs b/src/JSDOM/Generated/WaveShaperNode.hs --- a/src/JSDOM/Generated/WaveShaperNode.hs +++ b/src/JSDOM/Generated/WaveShaperNode.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WaveShaperNode - (setCurve, getCurve, setOversample, getOversample, WaveShaperNode, - castToWaveShaperNode, gTypeWaveShaperNode) + (setCurve, getCurve, getCurveUnchecked, setOversample, + getOversample, WaveShaperNode, castToWaveShaperNode, + gTypeWaveShaperNode) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -26,6 +27,12 @@ getCurve :: (MonadDOM m) => WaveShaperNode -> m (Maybe Float32Array) getCurve self = liftDOM ((self ^. js "curve") >>= fromJSVal) + +-- | +getCurveUnchecked :: + (MonadDOM m) => WaveShaperNode -> m Float32Array +getCurveUnchecked self + = liftDOM ((self ^. js "curve") >>= fromJSValUnchecked) -- | setOversample :: diff --git a/src/JSDOM/Generated/WebGL2RenderingContext.hs b/src/JSDOM/Generated/WebGL2RenderingContext.hs --- a/src/JSDOM/Generated/WebGL2RenderingContext.hs +++ b/src/JSDOM/Generated/WebGL2RenderingContext.hs @@ -2,41 +2,53 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WebGL2RenderingContext (copyBufferSubData, getBufferSubDataView, getBufferSubData, - getFramebufferAttachmentParameter, blitFramebuffer, + getFramebufferAttachmentParameter, + getFramebufferAttachmentParameter_, blitFramebuffer, framebufferTextureLayer, getInternalformatParameter, - invalidateFramebuffer, invalidateSubFramebuffer, readBuffer, + getInternalformatParameter_, invalidateFramebuffer, + invalidateSubFramebuffer, readBuffer, renderbufferStorageMultisample, texStorage2D, texStorage3D, texImage3D, texSubImage3DView, texSubImage3DData, texSubImage3D, texSubImage3DCanvas, texSubImage3DVideo, copyTexSubImage3D, compressedTexImage3D, compressedTexSubImage3D, getFragDataLocation, - uniform1ui, uniform2ui, uniform3ui, uniform4ui, uniform1uiv, - uniform2uiv, uniform3uiv, uniform4uiv, uniformMatrix2x3fv, - uniformMatrix3x2fv, uniformMatrix2x4fv, uniformMatrix4x2fv, - uniformMatrix3x4fv, uniformMatrix4x3fv, vertexAttribI4i, - vertexAttribI4iv, vertexAttribI4ui, vertexAttribI4uiv, - vertexAttribIPointer, vertexAttribDivisor, drawArraysInstanced, - drawElementsInstanced, drawRangeElements, drawBuffers, - clearBufferiv, clearBufferuiv, clearBufferfv, clearBufferfi, - createQuery, deleteQuery, isQuery, beginQuery, endQuery, getQuery, - getQueryParameter, createSampler, deleteSampler, isSampler, + getFragDataLocation_, uniform1ui, uniform2ui, uniform3ui, + uniform4ui, uniform1uiv, uniform2uiv, uniform3uiv, uniform4uiv, + uniformMatrix2x3fv, uniformMatrix3x2fv, uniformMatrix2x4fv, + uniformMatrix4x2fv, uniformMatrix3x4fv, uniformMatrix4x3fv, + vertexAttribI4i, vertexAttribI4iv, vertexAttribI4ui, + vertexAttribI4uiv, vertexAttribIPointer, vertexAttribDivisor, + drawArraysInstanced, drawElementsInstanced, drawRangeElements, + drawBuffers, clearBufferiv, clearBufferuiv, clearBufferfv, + clearBufferfi, createQuery, createQuery_, createQueryUnchecked, + deleteQuery, isQuery, isQuery_, beginQuery, endQuery, getQuery, + getQuery_, getQueryUnchecked, getQueryParameter, + getQueryParameter_, createSampler, createSampler_, + createSamplerUnchecked, deleteSampler, isSampler, isSampler_, bindSampler, samplerParameteri, samplerParameterf, - getSamplerParameter, fenceSync, isSync, deleteSync, clientWaitSync, - waitSync, getSyncParameter, createTransformFeedback, - deleteTransformFeedback, isTransformFeedback, - bindTransformFeedback, beginTransformFeedback, - endTransformFeedback, transformFeedbackVaryings, - getTransformFeedbackVarying, pauseTransformFeedback, - resumeTransformFeedback, bindBufferBase, bindBufferRange, - getIndexedParameter, getUniformIndices, getActiveUniforms, - getUniformBlockIndex, getActiveUniformBlockParameter, - getActiveUniformBlockName, uniformBlockBinding, createVertexArray, - deleteVertexArray, isVertexArray, bindVertexArray, - pattern READ_BUFFER, pattern UNPACK_ROW_LENGTH, - pattern UNPACK_SKIP_ROWS, pattern UNPACK_SKIP_PIXELS, - pattern PACK_ROW_LENGTH, pattern PACK_SKIP_ROWS, - pattern PACK_SKIP_PIXELS, pattern COLOR, pattern DEPTH, - pattern STENCIL, pattern RED, pattern RGB8, pattern RGBA8, - pattern RGB10_A2, pattern TEXTURE_BINDING_3D, + getSamplerParameter, getSamplerParameter_, fenceSync, fenceSync_, + fenceSyncUnchecked, isSync, isSync_, deleteSync, clientWaitSync, + clientWaitSync_, waitSync, getSyncParameter, getSyncParameter_, + createTransformFeedback, createTransformFeedback_, + createTransformFeedbackUnchecked, deleteTransformFeedback, + isTransformFeedback, isTransformFeedback_, bindTransformFeedback, + beginTransformFeedback, endTransformFeedback, + transformFeedbackVaryings, getTransformFeedbackVarying, + getTransformFeedbackVarying_, getTransformFeedbackVaryingUnchecked, + pauseTransformFeedback, resumeTransformFeedback, bindBufferBase, + bindBufferRange, getIndexedParameter, getIndexedParameter_, + getUniformIndices, getUniformIndices_, getUniformIndicesUnchecked, + getActiveUniforms, getActiveUniforms_, getActiveUniformsUnchecked, + getUniformBlockIndex, getUniformBlockIndex_, + getActiveUniformBlockParameter, getActiveUniformBlockParameter_, + getActiveUniformBlockName, getActiveUniformBlockName_, + uniformBlockBinding, createVertexArray, createVertexArray_, + createVertexArrayUnchecked, deleteVertexArray, isVertexArray, + isVertexArray_, bindVertexArray, pattern READ_BUFFER, + pattern UNPACK_ROW_LENGTH, pattern UNPACK_SKIP_ROWS, + pattern UNPACK_SKIP_PIXELS, pattern PACK_ROW_LENGTH, + pattern PACK_SKIP_ROWS, pattern PACK_SKIP_PIXELS, pattern COLOR, + pattern DEPTH, pattern STENCIL, pattern RED, pattern RGB8, + pattern RGBA8, pattern RGB10_A2, pattern TEXTURE_BINDING_3D, pattern UNPACK_SKIP_IMAGES, pattern UNPACK_IMAGE_HEIGHT, pattern TEXTURE_3D, pattern TEXTURE_WRAP_R, pattern MAX_3D_TEXTURE_SIZE, pattern UNSIGNED_INT_2_10_10_10_REV, @@ -237,6 +249,16 @@ [toJSVal target, toJSVal attachment, toJSVal pname]) >>= toJSVal) +-- | +getFramebufferAttachmentParameter_ :: + (MonadDOM m) => + WebGL2RenderingContext -> GLenum -> GLenum -> GLenum -> m () +getFramebufferAttachmentParameter_ self target attachment pname + = liftDOM + (void + (self ^. jsf "getFramebufferAttachmentParameter" + [toJSVal target, toJSVal attachment, toJSVal pname])) + -- | blitFramebuffer :: (MonadDOM m) => @@ -277,6 +299,16 @@ [toJSVal target, toJSVal internalformat, toJSVal pname]) >>= toJSVal) +-- | +getInternalformatParameter_ :: + (MonadDOM m) => + WebGL2RenderingContext -> GLenum -> GLenum -> GLenum -> m () +getInternalformatParameter_ self target internalformat pname + = liftDOM + (void + (self ^. jsf "getInternalformatParameter" + [toJSVal target, toJSVal internalformat, toJSVal pname])) + -- | invalidateFramebuffer :: (MonadDOM m) => @@ -515,6 +547,16 @@ [toJSVal program, toJSVal name]) >>= fromJSValUnchecked) +-- | +getFragDataLocation_ :: + (MonadDOM m, ToJSString name) => + WebGL2RenderingContext -> Maybe WebGLProgram -> name -> m () +getFragDataLocation_ self program name + = liftDOM + (void + (self ^. jsf "getFragDataLocation" + [toJSVal program, toJSVal name])) + -- | uniform1ui :: (MonadDOM m) => @@ -815,6 +857,16 @@ createQuery self = liftDOM ((self ^. jsf "createQuery" ()) >>= fromJSVal) +-- | +createQuery_ :: (MonadDOM m) => WebGL2RenderingContext -> m () +createQuery_ self = liftDOM (void (self ^. jsf "createQuery" ())) + +-- | +createQueryUnchecked :: + (MonadDOM m) => WebGL2RenderingContext -> m WebGLQuery +createQueryUnchecked self + = liftDOM ((self ^. jsf "createQuery" ()) >>= fromJSValUnchecked) + -- | deleteQuery :: (MonadDOM m) => WebGL2RenderingContext -> Maybe WebGLQuery -> m () @@ -829,6 +881,12 @@ = liftDOM ((self ^. jsf "isQuery" [toJSVal query]) >>= fromJSValUnchecked) +-- | +isQuery_ :: + (MonadDOM m) => WebGL2RenderingContext -> Maybe WebGLQuery -> m () +isQuery_ self query + = liftDOM (void (self ^. jsf "isQuery" [toJSVal query])) + -- | beginQuery :: (MonadDOM m) => @@ -852,6 +910,22 @@ ((self ^. jsf "getQuery" [toJSVal target, toJSVal pname]) >>= fromJSVal) +-- | +getQuery_ :: + (MonadDOM m) => WebGL2RenderingContext -> GLenum -> GLenum -> m () +getQuery_ self target pname + = liftDOM + (void (self ^. jsf "getQuery" [toJSVal target, toJSVal pname])) + +-- | +getQueryUnchecked :: + (MonadDOM m) => + WebGL2RenderingContext -> GLenum -> GLenum -> m WebGLQuery +getQueryUnchecked self target pname + = liftDOM + ((self ^. jsf "getQuery" [toJSVal target, toJSVal pname]) >>= + fromJSValUnchecked) + -- | getQueryParameter :: (MonadDOM m) => @@ -861,12 +935,32 @@ ((self ^. jsf "getQueryParameter" [toJSVal query, toJSVal pname]) >>= toJSVal) +-- | +getQueryParameter_ :: + (MonadDOM m) => + WebGL2RenderingContext -> Maybe WebGLQuery -> GLenum -> m () +getQueryParameter_ self query pname + = liftDOM + (void + (self ^. jsf "getQueryParameter" [toJSVal query, toJSVal pname])) + -- | createSampler :: (MonadDOM m) => WebGL2RenderingContext -> m (Maybe WebGLSampler) createSampler self = liftDOM ((self ^. jsf "createSampler" ()) >>= fromJSVal) +-- | +createSampler_ :: (MonadDOM m) => WebGL2RenderingContext -> m () +createSampler_ self + = liftDOM (void (self ^. jsf "createSampler" ())) + +-- | +createSamplerUnchecked :: + (MonadDOM m) => WebGL2RenderingContext -> m WebGLSampler +createSamplerUnchecked self + = liftDOM ((self ^. jsf "createSampler" ()) >>= fromJSValUnchecked) + -- | deleteSampler :: (MonadDOM m) => @@ -883,6 +977,13 @@ ((self ^. jsf "isSampler" [toJSVal sampler]) >>= fromJSValUnchecked) +-- | +isSampler_ :: + (MonadDOM m) => + WebGL2RenderingContext -> Maybe WebGLSampler -> m () +isSampler_ self sampler + = liftDOM (void (self ^. jsf "isSampler" [toJSVal sampler])) + -- | bindSampler :: (MonadDOM m) => @@ -923,6 +1024,16 @@ [toJSVal sampler, toJSVal pname]) >>= toJSVal) +-- | +getSamplerParameter_ :: + (MonadDOM m) => + WebGL2RenderingContext -> Maybe WebGLSampler -> GLenum -> m () +getSamplerParameter_ self sampler pname + = liftDOM + (void + (self ^. jsf "getSamplerParameter" + [toJSVal sampler, toJSVal pname])) + -- | fenceSync :: (MonadDOM m) => @@ -933,6 +1044,23 @@ ((self ^. jsf "fenceSync" [toJSVal condition, toJSVal flags]) >>= fromJSVal) +-- | +fenceSync_ :: + (MonadDOM m) => + WebGL2RenderingContext -> GLenum -> GLbitfield -> m () +fenceSync_ self condition flags + = liftDOM + (void (self ^. jsf "fenceSync" [toJSVal condition, toJSVal flags])) + +-- | +fenceSyncUnchecked :: + (MonadDOM m) => + WebGL2RenderingContext -> GLenum -> GLbitfield -> m WebGLSync +fenceSyncUnchecked self condition flags + = liftDOM + ((self ^. jsf "fenceSync" [toJSVal condition, toJSVal flags]) >>= + fromJSValUnchecked) + -- | isSync :: (MonadDOM m) => @@ -941,6 +1069,12 @@ = liftDOM ((self ^. jsf "isSync" [toJSVal sync]) >>= fromJSValUnchecked) +-- | +isSync_ :: + (MonadDOM m) => WebGL2RenderingContext -> Maybe WebGLSync -> m () +isSync_ self sync + = liftDOM (void (self ^. jsf "isSync" [toJSVal sync])) + -- | deleteSync :: (MonadDOM m) => WebGL2RenderingContext -> Maybe WebGLSync -> m () @@ -958,6 +1092,17 @@ [toJSVal sync, toJSVal flags, toJSVal timeout]) >>= fromJSValUnchecked) +-- | +clientWaitSync_ :: + (MonadDOM m) => + WebGL2RenderingContext -> + Maybe WebGLSync -> GLbitfield -> GLuint64 -> m () +clientWaitSync_ self sync flags timeout + = liftDOM + (void + (self ^. jsf "clientWaitSync" + [toJSVal sync, toJSVal flags, toJSVal timeout])) + -- | waitSync :: (MonadDOM m) => @@ -978,6 +1123,15 @@ ((self ^. jsf "getSyncParameter" [toJSVal sync, toJSVal pname]) >>= toJSVal) +-- | +getSyncParameter_ :: + (MonadDOM m) => + WebGL2RenderingContext -> Maybe WebGLSync -> GLenum -> m () +getSyncParameter_ self sync pname + = liftDOM + (void + (self ^. jsf "getSyncParameter" [toJSVal sync, toJSVal pname])) + -- | createTransformFeedback :: (MonadDOM m) => @@ -986,6 +1140,19 @@ = liftDOM ((self ^. jsf "createTransformFeedback" ()) >>= fromJSVal) +-- | +createTransformFeedback_ :: + (MonadDOM m) => WebGL2RenderingContext -> m () +createTransformFeedback_ self + = liftDOM (void (self ^. jsf "createTransformFeedback" ())) + +-- | +createTransformFeedbackUnchecked :: + (MonadDOM m) => WebGL2RenderingContext -> m WebGLTransformFeedback +createTransformFeedbackUnchecked self + = liftDOM + ((self ^. jsf "createTransformFeedback" ()) >>= fromJSValUnchecked) + -- | deleteTransformFeedback :: (MonadDOM m) => @@ -1004,6 +1171,13 @@ ((self ^. jsf "isTransformFeedback" [toJSVal id]) >>= fromJSValUnchecked) +-- | +isTransformFeedback_ :: + (MonadDOM m) => + WebGL2RenderingContext -> Maybe WebGLTransformFeedback -> m () +isTransformFeedback_ self id + = liftDOM (void (self ^. jsf "isTransformFeedback" [toJSVal id])) + -- | bindTransformFeedback :: (MonadDOM m) => @@ -1050,6 +1224,27 @@ [toJSVal program, toJSVal index]) >>= fromJSVal) +-- | +getTransformFeedbackVarying_ :: + (MonadDOM m) => + WebGL2RenderingContext -> Maybe WebGLProgram -> GLuint -> m () +getTransformFeedbackVarying_ self program index + = liftDOM + (void + (self ^. jsf "getTransformFeedbackVarying" + [toJSVal program, toJSVal index])) + +-- | +getTransformFeedbackVaryingUnchecked :: + (MonadDOM m) => + WebGL2RenderingContext -> + Maybe WebGLProgram -> GLuint -> m WebGLActiveInfo +getTransformFeedbackVaryingUnchecked self program index + = liftDOM + ((self ^. jsf "getTransformFeedbackVarying" + [toJSVal program, toJSVal index]) + >>= fromJSValUnchecked) + -- | pauseTransformFeedback :: (MonadDOM m) => WebGL2RenderingContext -> m () @@ -1096,6 +1291,15 @@ [toJSVal target, toJSVal index]) >>= toJSVal) +-- | +getIndexedParameter_ :: + (MonadDOM m) => WebGL2RenderingContext -> GLenum -> GLuint -> m () +getIndexedParameter_ self target index + = liftDOM + (void + (self ^. jsf "getIndexedParameter" + [toJSVal target, toJSVal index])) + -- | getUniformIndices :: (MonadDOM m, ToJSString uniformNames) => @@ -1107,6 +1311,28 @@ [toJSVal program, toJSVal (array uniformNames)]) >>= fromJSVal) +-- | +getUniformIndices_ :: + (MonadDOM m, ToJSString uniformNames) => + WebGL2RenderingContext -> + Maybe WebGLProgram -> [uniformNames] -> m () +getUniformIndices_ self program uniformNames + = liftDOM + (void + (self ^. jsf "getUniformIndices" + [toJSVal program, toJSVal (array uniformNames)])) + +-- | +getUniformIndicesUnchecked :: + (MonadDOM m, ToJSString uniformNames) => + WebGL2RenderingContext -> + Maybe WebGLProgram -> [uniformNames] -> m Uint32Array +getUniformIndicesUnchecked self program uniformNames + = liftDOM + ((self ^. jsf "getUniformIndices" + [toJSVal program, toJSVal (array uniformNames)]) + >>= fromJSValUnchecked) + -- | getActiveUniforms :: (MonadDOM m, IsUint32Array uniformIndices) => @@ -1119,6 +1345,29 @@ [toJSVal program, toJSVal uniformIndices, toJSVal pname]) >>= fromJSVal) +-- | +getActiveUniforms_ :: + (MonadDOM m, IsUint32Array uniformIndices) => + WebGL2RenderingContext -> + Maybe WebGLProgram -> Maybe uniformIndices -> GLenum -> m () +getActiveUniforms_ self program uniformIndices pname + = liftDOM + (void + (self ^. jsf "getActiveUniforms" + [toJSVal program, toJSVal uniformIndices, toJSVal pname])) + +-- | +getActiveUniformsUnchecked :: + (MonadDOM m, IsUint32Array uniformIndices) => + WebGL2RenderingContext -> + Maybe WebGLProgram -> + Maybe uniformIndices -> GLenum -> m Int32Array +getActiveUniformsUnchecked self program uniformIndices pname + = liftDOM + ((self ^. jsf "getActiveUniforms" + [toJSVal program, toJSVal uniformIndices, toJSVal pname]) + >>= fromJSValUnchecked) + -- | getUniformBlockIndex :: (MonadDOM m, ToJSString uniformBlockName) => @@ -1130,6 +1379,17 @@ [toJSVal program, toJSVal uniformBlockName]) >>= fromJSValUnchecked) +-- | +getUniformBlockIndex_ :: + (MonadDOM m, ToJSString uniformBlockName) => + WebGL2RenderingContext -> + Maybe WebGLProgram -> uniformBlockName -> m () +getUniformBlockIndex_ self program uniformBlockName + = liftDOM + (void + (self ^. jsf "getUniformBlockIndex" + [toJSVal program, toJSVal uniformBlockName])) + -- | getActiveUniformBlockParameter :: (MonadDOM m) => @@ -1141,6 +1401,18 @@ [toJSVal program, toJSVal uniformBlockIndex, toJSVal pname]) >>= toJSVal) +-- | +getActiveUniformBlockParameter_ :: + (MonadDOM m) => + WebGL2RenderingContext -> + Maybe WebGLProgram -> GLuint -> GLenum -> m () +getActiveUniformBlockParameter_ self program uniformBlockIndex + pname + = liftDOM + (void + (self ^. jsf "getActiveUniformBlockParameter" + [toJSVal program, toJSVal uniformBlockIndex, toJSVal pname])) + -- | getActiveUniformBlockName :: (MonadDOM m) => @@ -1151,6 +1423,16 @@ [toJSVal program, toJSVal uniformBlockIndex]) >>= toJSVal) +-- | +getActiveUniformBlockName_ :: + (MonadDOM m) => + WebGL2RenderingContext -> Maybe WebGLProgram -> GLuint -> m () +getActiveUniformBlockName_ self program uniformBlockIndex + = liftDOM + (void + (self ^. jsf "getActiveUniformBlockName" + [toJSVal program, toJSVal uniformBlockIndex])) + -- | uniformBlockBinding :: (MonadDOM m) => @@ -1171,6 +1453,19 @@ createVertexArray self = liftDOM ((self ^. jsf "createVertexArray" ()) >>= fromJSVal) +-- | +createVertexArray_ :: + (MonadDOM m) => WebGL2RenderingContext -> m () +createVertexArray_ self + = liftDOM (void (self ^. jsf "createVertexArray" ())) + +-- | +createVertexArrayUnchecked :: + (MonadDOM m) => WebGL2RenderingContext -> m WebGLVertexArrayObject +createVertexArrayUnchecked self + = liftDOM + ((self ^. jsf "createVertexArray" ()) >>= fromJSValUnchecked) + -- | deleteVertexArray :: (MonadDOM m) => @@ -1188,6 +1483,14 @@ = liftDOM ((self ^. jsf "isVertexArray" [toJSVal vertexArray]) >>= fromJSValUnchecked) + +-- | +isVertexArray_ :: + (MonadDOM m) => + WebGL2RenderingContext -> Maybe WebGLVertexArrayObject -> m () +isVertexArray_ self vertexArray + = liftDOM + (void (self ^. jsf "isVertexArray" [toJSVal vertexArray])) -- | bindVertexArray :: diff --git a/src/JSDOM/Generated/WebGLDebugShaders.hs b/src/JSDOM/Generated/WebGLDebugShaders.hs --- a/src/JSDOM/Generated/WebGLDebugShaders.hs +++ b/src/JSDOM/Generated/WebGLDebugShaders.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WebGLDebugShaders - (getTranslatedShaderSource, WebGLDebugShaders, + (getTranslatedShaderSource, getTranslatedShaderSource_, + getTranslatedShaderSourceUnchecked, WebGLDebugShaders, castToWebGLDebugShaders, gTypeWebGLDebugShaders) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -24,3 +25,19 @@ = liftDOM ((self ^. jsf "getTranslatedShaderSource" [toJSVal shader]) >>= fromMaybeJSString) + +-- | +getTranslatedShaderSource_ :: + (MonadDOM m) => WebGLDebugShaders -> Maybe WebGLShader -> m () +getTranslatedShaderSource_ self shader + = liftDOM + (void (self ^. jsf "getTranslatedShaderSource" [toJSVal shader])) + +-- | +getTranslatedShaderSourceUnchecked :: + (MonadDOM m, FromJSString result) => + WebGLDebugShaders -> Maybe WebGLShader -> m result +getTranslatedShaderSourceUnchecked self shader + = liftDOM + ((self ^. jsf "getTranslatedShaderSource" [toJSVal shader]) >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/WebGLRenderingContextBase.hs b/src/JSDOM/Generated/WebGLRenderingContextBase.hs --- a/src/JSDOM/Generated/WebGLRenderingContextBase.hs +++ b/src/JSDOM/Generated/WebGLRenderingContextBase.hs @@ -5,40 +5,57 @@ bindFramebuffer, bindRenderbuffer, bindTexture, blendColor, blendEquation, blendEquationSeparate, blendFunc, blendFuncSeparate, bufferData, bufferDataView, bufferDataPtr, bufferSubData, - bufferSubDataView, checkFramebufferStatus, clear, clearColor, - clearDepth, clearStencil, colorMask, compileShader, - compressedTexImage2D, compressedTexSubImage2D, copyTexImage2D, - copyTexSubImage2D, createBuffer, createFramebuffer, createProgram, - createRenderbuffer, createShader, createTexture, cullFace, - deleteBuffer, deleteFramebuffer, deleteProgram, deleteRenderbuffer, - deleteShader, deleteTexture, depthFunc, depthMask, depthRange, - detachShader, disable, disableVertexAttribArray, drawArrays, - drawElements, enable, enableVertexAttribArray, finish, flush, - framebufferRenderbuffer, framebufferTexture2D, frontFace, - generateMipmap, getActiveAttrib, getActiveUniform, - getAttachedShaders, getAttribLocation, getBufferParameter, - getContextAttributes, getError, getExtension, - getFramebufferAttachmentParameter, getParameter, - getProgramParameter, getProgramInfoLog, getRenderbufferParameter, - getShaderParameter, getShaderInfoLog, getShaderPrecisionFormat, - getShaderSource, getSupportedExtensions, getTexParameter, - getUniform, getUniformLocation, getVertexAttrib, - getVertexAttribOffset, hint, isBuffer, isContextLost, isEnabled, - isFramebuffer, isProgram, isRenderbuffer, isShader, isTexture, - lineWidth, linkProgram, pixelStorei, polygonOffset, readPixels, - releaseShaderCompiler, renderbufferStorage, sampleCoverage, - scissor, shaderSource, stencilFunc, stencilFuncSeparate, - stencilMask, stencilMaskSeparate, stencilOp, stencilOpSeparate, - texParameterf, texParameteri, texImage2DView, texImage2DData, - texImage2D, texImage2DCanvas, texImage2DVideo, texSubImage2DView, - texSubImage2DData, texSubImage2D, texSubImage2DCanvas, - texSubImage2DVideo, uniform1f, uniform1fv, uniform1i, uniform1iv, - uniform2f, uniform2fv, uniform2i, uniform2iv, uniform3f, - uniform3fv, uniform3i, uniform3iv, uniform4f, uniform4fv, - uniform4i, uniform4iv, uniformMatrix2fv, uniformMatrix3fv, - uniformMatrix4fv, useProgram, validateProgram, vertexAttrib1f, - vertexAttrib1fv, vertexAttrib2f, vertexAttrib2fv, vertexAttrib3f, - vertexAttrib3fv, vertexAttrib4f, vertexAttrib4fv, + bufferSubDataView, checkFramebufferStatus, checkFramebufferStatus_, + clear, clearColor, clearDepth, clearStencil, colorMask, + compileShader, compressedTexImage2D, compressedTexSubImage2D, + copyTexImage2D, copyTexSubImage2D, createBuffer, createBuffer_, + createBufferUnchecked, createFramebuffer, createFramebuffer_, + createFramebufferUnchecked, createProgram, createProgram_, + createProgramUnchecked, createRenderbuffer, createRenderbuffer_, + createRenderbufferUnchecked, createShader, createShader_, + createShaderUnchecked, createTexture, createTexture_, + createTextureUnchecked, cullFace, deleteBuffer, deleteFramebuffer, + deleteProgram, deleteRenderbuffer, deleteShader, deleteTexture, + depthFunc, depthMask, depthRange, detachShader, disable, + disableVertexAttribArray, drawArrays, drawElements, enable, + enableVertexAttribArray, finish, flush, framebufferRenderbuffer, + framebufferTexture2D, frontFace, generateMipmap, getActiveAttrib, + getActiveAttrib_, getActiveAttribUnchecked, getActiveUniform, + getActiveUniform_, getActiveUniformUnchecked, getAttachedShaders, + getAttribLocation, getAttribLocation_, getBufferParameter, + getBufferParameter_, getContextAttributes, getContextAttributes_, + getContextAttributesUnchecked, getError, getError_, getExtension, + getExtension_, getFramebufferAttachmentParameter, + getFramebufferAttachmentParameter_, getParameter, getParameter_, + getProgramParameter, getProgramParameter_, getProgramInfoLog, + getProgramInfoLog_, getProgramInfoLogUnchecked, + getRenderbufferParameter, getRenderbufferParameter_, + getShaderParameter, getShaderParameter_, getShaderInfoLog, + getShaderInfoLog_, getShaderInfoLogUnchecked, + getShaderPrecisionFormat, getShaderPrecisionFormat_, + getShaderPrecisionFormatUnchecked, getShaderSource, + getShaderSource_, getShaderSourceUnchecked, getSupportedExtensions, + getSupportedExtensions_, getTexParameter, getTexParameter_, + getUniform, getUniform_, getUniformLocation, getUniformLocation_, + getUniformLocationUnchecked, getVertexAttrib, getVertexAttrib_, + getVertexAttribOffset, getVertexAttribOffset_, hint, isBuffer, + isBuffer_, isContextLost, isContextLost_, isEnabled, isEnabled_, + isFramebuffer, isFramebuffer_, isProgram, isProgram_, + isRenderbuffer, isRenderbuffer_, isShader, isShader_, isTexture, + isTexture_, lineWidth, linkProgram, pixelStorei, polygonOffset, + readPixels, releaseShaderCompiler, renderbufferStorage, + sampleCoverage, scissor, shaderSource, stencilFunc, + stencilFuncSeparate, stencilMask, stencilMaskSeparate, stencilOp, + stencilOpSeparate, texParameterf, texParameteri, texImage2DView, + texImage2DData, texImage2D, texImage2DCanvas, texImage2DVideo, + texSubImage2DView, texSubImage2DData, texSubImage2D, + texSubImage2DCanvas, texSubImage2DVideo, uniform1f, uniform1fv, + uniform1i, uniform1iv, uniform2f, uniform2fv, uniform2i, + uniform2iv, uniform3f, uniform3fv, uniform3i, uniform3iv, + uniform4f, uniform4fv, uniform4i, uniform4iv, uniformMatrix2fv, + uniformMatrix3fv, uniformMatrix4fv, useProgram, validateProgram, + vertexAttrib1f, vertexAttrib1fv, vertexAttrib2f, vertexAttrib2fv, + vertexAttrib3f, vertexAttrib3fv, vertexAttrib4f, vertexAttrib4fv, vertexAttribPointer, viewport, pattern DEPTH_BUFFER_BIT, pattern STENCIL_BUFFER_BIT, pattern COLOR_BUFFER_BIT, pattern POINTS, pattern LINES, pattern LINE_LOOP, @@ -378,6 +395,16 @@ [toJSVal target]) >>= fromJSValUnchecked) +-- | +checkFramebufferStatus_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> GLenum -> m () +checkFramebufferStatus_ self target + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "checkFramebufferStatus" + [toJSVal target])) + -- | clear :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -510,6 +537,23 @@ (((toWebGLRenderingContextBase self) ^. jsf "createBuffer" ()) >>= fromJSVal) +-- | +createBuffer_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m () +createBuffer_ self + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "createBuffer" ())) + +-- | +createBufferUnchecked :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> m WebGLBuffer +createBufferUnchecked self + = liftDOM + (((toWebGLRenderingContextBase self) ^. jsf "createBuffer" ()) >>= + fromJSValUnchecked) + -- | createFramebuffer :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -519,6 +563,23 @@ (((toWebGLRenderingContextBase self) ^. jsf "createFramebuffer" ()) >>= fromJSVal) +-- | +createFramebuffer_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m () +createFramebuffer_ self + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "createFramebuffer" ())) + +-- | +createFramebufferUnchecked :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> m WebGLFramebuffer +createFramebufferUnchecked self + = liftDOM + (((toWebGLRenderingContextBase self) ^. jsf "createFramebuffer" ()) + >>= fromJSValUnchecked) + -- | createProgram :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -528,6 +589,23 @@ (((toWebGLRenderingContextBase self) ^. jsf "createProgram" ()) >>= fromJSVal) +-- | +createProgram_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m () +createProgram_ self + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "createProgram" ())) + +-- | +createProgramUnchecked :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> m WebGLProgram +createProgramUnchecked self + = liftDOM + (((toWebGLRenderingContextBase self) ^. jsf "createProgram" ()) >>= + fromJSValUnchecked) + -- | createRenderbuffer :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -538,6 +616,25 @@ ()) >>= fromJSVal) +-- | +createRenderbuffer_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m () +createRenderbuffer_ self + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "createRenderbuffer" + ())) + +-- | +createRenderbufferUnchecked :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> m WebGLRenderbuffer +createRenderbufferUnchecked self + = liftDOM + (((toWebGLRenderingContextBase self) ^. jsf "createRenderbuffer" + ()) + >>= fromJSValUnchecked) + -- | createShader :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -548,6 +645,26 @@ [toJSVal type']) >>= fromJSVal) +-- | +createShader_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> GLenum -> m () +createShader_ self type' + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "createShader" + [toJSVal type'])) + +-- | +createShaderUnchecked :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> GLenum -> m WebGLShader +createShaderUnchecked self type' + = liftDOM + (((toWebGLRenderingContextBase self) ^. jsf "createShader" + [toJSVal type']) + >>= fromJSValUnchecked) + -- | createTexture :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -557,6 +674,23 @@ (((toWebGLRenderingContextBase self) ^. jsf "createTexture" ()) >>= fromJSVal) +-- | +createTexture_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m () +createTexture_ self + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "createTexture" ())) + +-- | +createTextureUnchecked :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> m WebGLTexture +createTextureUnchecked self + = liftDOM + (((toWebGLRenderingContextBase self) ^. jsf "createTexture" ()) >>= + fromJSValUnchecked) + -- | cullFace :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -798,6 +932,26 @@ [toJSVal program, toJSVal index]) >>= fromJSVal) +-- | +getActiveAttrib_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLProgram -> GLuint -> m () +getActiveAttrib_ self program index + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getActiveAttrib" + [toJSVal program, toJSVal index])) + +-- | +getActiveAttribUnchecked :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLProgram -> GLuint -> m WebGLActiveInfo +getActiveAttribUnchecked self program index + = liftDOM + (((toWebGLRenderingContextBase self) ^. jsf "getActiveAttrib" + [toJSVal program, toJSVal index]) + >>= fromJSValUnchecked) + -- | getActiveUniform :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -808,6 +962,26 @@ [toJSVal program, toJSVal index]) >>= fromJSVal) +-- | +getActiveUniform_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLProgram -> GLuint -> m () +getActiveUniform_ self program index + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getActiveUniform" + [toJSVal program, toJSVal index])) + +-- | +getActiveUniformUnchecked :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLProgram -> GLuint -> m WebGLActiveInfo +getActiveUniformUnchecked self program index + = liftDOM + (((toWebGLRenderingContextBase self) ^. jsf "getActiveUniform" + [toJSVal program, toJSVal index]) + >>= fromJSValUnchecked) + -- | getAttachedShaders :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -828,6 +1002,16 @@ [toJSVal program, toJSVal name]) >>= fromJSValUnchecked) +-- | +getAttribLocation_ :: + (MonadDOM m, IsWebGLRenderingContextBase self, ToJSString name) => + self -> Maybe WebGLProgram -> name -> m () +getAttribLocation_ self program name + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getAttribLocation" + [toJSVal program, toJSVal name])) + -- | getBufferParameter :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -838,6 +1022,16 @@ [toJSVal target, toJSVal pname]) >>= toJSVal) +-- | +getBufferParameter_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> GLenum -> GLenum -> m () +getBufferParameter_ self target pname + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getBufferParameter" + [toJSVal target, toJSVal pname])) + -- | getContextAttributes :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -848,6 +1042,25 @@ ()) >>= fromJSVal) +-- | +getContextAttributes_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m () +getContextAttributes_ self + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getContextAttributes" + ())) + +-- | +getContextAttributesUnchecked :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> m WebGLContextAttributes +getContextAttributesUnchecked self + = liftDOM + (((toWebGLRenderingContextBase self) ^. jsf "getContextAttributes" + ()) + >>= fromJSValUnchecked) + -- | getError :: (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m GLenum @@ -856,6 +1069,13 @@ (((toWebGLRenderingContextBase self) ^. jsf "getError" ()) >>= fromJSValUnchecked) +-- | +getError_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m () +getError_ self + = liftDOM + (void ((toWebGLRenderingContextBase self) ^. jsf "getError" ())) + -- | getExtension :: (MonadDOM m, IsWebGLRenderingContextBase self, ToJSString name) => @@ -866,6 +1086,16 @@ [toJSVal name]) >>= toJSVal) +-- | +getExtension_ :: + (MonadDOM m, IsWebGLRenderingContextBase self, ToJSString name) => + self -> name -> m () +getExtension_ self name + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getExtension" + [toJSVal name])) + -- | getFramebufferAttachmentParameter :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -877,6 +1107,17 @@ [toJSVal target, toJSVal attachment, toJSVal pname]) >>= toJSVal) +-- | +getFramebufferAttachmentParameter_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> GLenum -> GLenum -> GLenum -> m () +getFramebufferAttachmentParameter_ self target attachment pname + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. + jsf "getFramebufferAttachmentParameter" + [toJSVal target, toJSVal attachment, toJSVal pname])) + -- | getParameter :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -887,6 +1128,16 @@ [toJSVal pname]) >>= toJSVal) +-- | +getParameter_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> GLenum -> m () +getParameter_ self pname + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getParameter" + [toJSVal pname])) + -- | getProgramParameter :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -897,6 +1148,16 @@ [toJSVal program, toJSVal pname]) >>= toJSVal) +-- | +getProgramParameter_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLProgram -> GLenum -> m () +getProgramParameter_ self program pname + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getProgramParameter" + [toJSVal program, toJSVal pname])) + -- | getProgramInfoLog :: (MonadDOM m, IsWebGLRenderingContextBase self, @@ -908,6 +1169,27 @@ [toJSVal program]) >>= fromMaybeJSString) +-- | +getProgramInfoLog_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLProgram -> m () +getProgramInfoLog_ self program + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getProgramInfoLog" + [toJSVal program])) + +-- | +getProgramInfoLogUnchecked :: + (MonadDOM m, IsWebGLRenderingContextBase self, + FromJSString result) => + self -> Maybe WebGLProgram -> m result +getProgramInfoLogUnchecked self program + = liftDOM + (((toWebGLRenderingContextBase self) ^. jsf "getProgramInfoLog" + [toJSVal program]) + >>= fromJSValUnchecked) + -- | getRenderbufferParameter :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -919,6 +1201,17 @@ [toJSVal target, toJSVal pname]) >>= toJSVal) +-- | +getRenderbufferParameter_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> GLenum -> GLenum -> m () +getRenderbufferParameter_ self target pname + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. + jsf "getRenderbufferParameter" + [toJSVal target, toJSVal pname])) + -- | getShaderParameter :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -929,6 +1222,16 @@ [toJSVal shader, toJSVal pname]) >>= toJSVal) +-- | +getShaderParameter_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLShader -> GLenum -> m () +getShaderParameter_ self shader pname + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getShaderParameter" + [toJSVal shader, toJSVal pname])) + -- | getShaderInfoLog :: (MonadDOM m, IsWebGLRenderingContextBase self, @@ -940,6 +1243,27 @@ [toJSVal shader]) >>= fromMaybeJSString) +-- | +getShaderInfoLog_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLShader -> m () +getShaderInfoLog_ self shader + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getShaderInfoLog" + [toJSVal shader])) + +-- | +getShaderInfoLogUnchecked :: + (MonadDOM m, IsWebGLRenderingContextBase self, + FromJSString result) => + self -> Maybe WebGLShader -> m result +getShaderInfoLogUnchecked self shader + = liftDOM + (((toWebGLRenderingContextBase self) ^. jsf "getShaderInfoLog" + [toJSVal shader]) + >>= fromJSValUnchecked) + -- | getShaderPrecisionFormat :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -951,6 +1275,28 @@ [toJSVal shadertype, toJSVal precisiontype]) >>= fromJSVal) +-- | +getShaderPrecisionFormat_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> GLenum -> GLenum -> m () +getShaderPrecisionFormat_ self shadertype precisiontype + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. + jsf "getShaderPrecisionFormat" + [toJSVal shadertype, toJSVal precisiontype])) + +-- | +getShaderPrecisionFormatUnchecked :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> GLenum -> GLenum -> m WebGLShaderPrecisionFormat +getShaderPrecisionFormatUnchecked self shadertype precisiontype + = liftDOM + (((toWebGLRenderingContextBase self) ^. + jsf "getShaderPrecisionFormat" + [toJSVal shadertype, toJSVal precisiontype]) + >>= fromJSValUnchecked) + -- | getShaderSource :: (MonadDOM m, IsWebGLRenderingContextBase self, @@ -962,6 +1308,27 @@ [toJSVal shader]) >>= fromMaybeJSString) +-- | +getShaderSource_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLShader -> m () +getShaderSource_ self shader + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getShaderSource" + [toJSVal shader])) + +-- | +getShaderSourceUnchecked :: + (MonadDOM m, IsWebGLRenderingContextBase self, + FromJSString result) => + self -> Maybe WebGLShader -> m result +getShaderSourceUnchecked self shader + = liftDOM + (((toWebGLRenderingContextBase self) ^. jsf "getShaderSource" + [toJSVal shader]) + >>= fromJSValUnchecked) + -- | getSupportedExtensions :: (MonadDOM m, IsWebGLRenderingContextBase self, @@ -974,6 +1341,15 @@ ()) >>= fromJSArrayUnchecked) +-- | +getSupportedExtensions_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m () +getSupportedExtensions_ self + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getSupportedExtensions" + ())) + -- | getTexParameter :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -984,6 +1360,16 @@ [toJSVal target, toJSVal pname]) >>= toJSVal) +-- | +getTexParameter_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> GLenum -> GLenum -> m () +getTexParameter_ self target pname + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getTexParameter" + [toJSVal target, toJSVal pname])) + -- | getUniform :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -994,6 +1380,16 @@ [toJSVal program, toJSVal location]) >>= toJSVal) +-- | +getUniform_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLProgram -> Maybe WebGLUniformLocation -> m () +getUniform_ self program location + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getUniform" + [toJSVal program, toJSVal location])) + -- | getUniformLocation :: (MonadDOM m, IsWebGLRenderingContextBase self, ToJSString name) => @@ -1005,6 +1401,26 @@ [toJSVal program, toJSVal name]) >>= fromJSVal) +-- | +getUniformLocation_ :: + (MonadDOM m, IsWebGLRenderingContextBase self, ToJSString name) => + self -> Maybe WebGLProgram -> name -> m () +getUniformLocation_ self program name + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getUniformLocation" + [toJSVal program, toJSVal name])) + +-- | +getUniformLocationUnchecked :: + (MonadDOM m, IsWebGLRenderingContextBase self, ToJSString name) => + self -> Maybe WebGLProgram -> name -> m WebGLUniformLocation +getUniformLocationUnchecked self program name + = liftDOM + (((toWebGLRenderingContextBase self) ^. jsf "getUniformLocation" + [toJSVal program, toJSVal name]) + >>= fromJSValUnchecked) + -- | getVertexAttrib :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -1015,6 +1431,16 @@ [toJSVal index, toJSVal pname]) >>= toJSVal) +-- | +getVertexAttrib_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> GLuint -> GLenum -> m () +getVertexAttrib_ self index pname + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getVertexAttrib" + [toJSVal index, toJSVal pname])) + -- | getVertexAttribOffset :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -1025,6 +1451,16 @@ [toJSVal index, toJSVal pname]) >>= fromJSValUnchecked) +-- | +getVertexAttribOffset_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> GLuint -> GLenum -> m () +getVertexAttribOffset_ self index pname + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "getVertexAttribOffset" + [toJSVal index, toJSVal pname])) + -- | hint :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -1045,6 +1481,16 @@ [toJSVal buffer]) >>= fromJSValUnchecked) +-- | +isBuffer_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLBuffer -> m () +isBuffer_ self buffer + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "isBuffer" + [toJSVal buffer])) + -- | isContextLost :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -1054,6 +1500,14 @@ (((toWebGLRenderingContextBase self) ^. jsf "isContextLost" ()) >>= fromJSValUnchecked) +-- | +isContextLost_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => self -> m () +isContextLost_ self + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "isContextLost" ())) + -- | isEnabled :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -1064,6 +1518,16 @@ [toJSVal cap]) >>= fromJSValUnchecked) +-- | +isEnabled_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> GLenum -> m () +isEnabled_ self cap + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "isEnabled" + [toJSVal cap])) + -- | isFramebuffer :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -1074,6 +1538,16 @@ [toJSVal framebuffer]) >>= fromJSValUnchecked) +-- | +isFramebuffer_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLFramebuffer -> m () +isFramebuffer_ self framebuffer + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "isFramebuffer" + [toJSVal framebuffer])) + -- | isProgram :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -1084,6 +1558,16 @@ [toJSVal program]) >>= fromJSValUnchecked) +-- | +isProgram_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLProgram -> m () +isProgram_ self program + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "isProgram" + [toJSVal program])) + -- | isRenderbuffer :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -1094,6 +1578,16 @@ [toJSVal renderbuffer]) >>= fromJSValUnchecked) +-- | +isRenderbuffer_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLRenderbuffer -> m () +isRenderbuffer_ self renderbuffer + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "isRenderbuffer" + [toJSVal renderbuffer])) + -- | isShader :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -1104,6 +1598,16 @@ [toJSVal shader]) >>= fromJSValUnchecked) +-- | +isShader_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLShader -> m () +isShader_ self shader + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "isShader" + [toJSVal shader])) + -- | isTexture :: (MonadDOM m, IsWebGLRenderingContextBase self) => @@ -1113,6 +1617,16 @@ (((toWebGLRenderingContextBase self) ^. jsf "isTexture" [toJSVal texture]) >>= fromJSValUnchecked) + +-- | +isTexture_ :: + (MonadDOM m, IsWebGLRenderingContextBase self) => + self -> Maybe WebGLTexture -> m () +isTexture_ self texture + = liftDOM + (void + ((toWebGLRenderingContextBase self) ^. jsf "isTexture" + [toJSVal texture])) -- | lineWidth :: diff --git a/src/JSDOM/Generated/WebKitCSSFilterValue.hs b/src/JSDOM/Generated/WebKitCSSFilterValue.hs --- a/src/JSDOM/Generated/WebKitCSSFilterValue.hs +++ b/src/JSDOM/Generated/WebKitCSSFilterValue.hs @@ -1,13 +1,13 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WebKitCSSFilterValue - (_get, 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, pattern CSS_FILTER_BRIGHTNESS, - pattern CSS_FILTER_CONTRAST, pattern CSS_FILTER_BLUR, - pattern CSS_FILTER_DROP_SHADOW, getOperationType, - WebKitCSSFilterValue, castToWebKitCSSFilterValue, + (_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, + pattern CSS_FILTER_BRIGHTNESS, pattern CSS_FILTER_CONTRAST, + pattern CSS_FILTER_BLUR, pattern CSS_FILTER_DROP_SHADOW, + getOperationType, WebKitCSSFilterValue, castToWebKitCSSFilterValue, gTypeWebKitCSSFilterValue) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -27,6 +27,18 @@ (MonadDOM m) => WebKitCSSFilterValue -> Word -> m (Maybe CSSValue) _get self index = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal) + +-- | +_get_ :: (MonadDOM m) => WebKitCSSFilterValue -> Word -> m () +_get_ self index + = liftDOM (void (self ^. jsf "_get" [toJSVal index])) + +-- | +_getUnchecked :: + (MonadDOM m) => WebKitCSSFilterValue -> Word -> m CSSValue +_getUnchecked self index + = liftDOM + ((self ^. jsf "_get" [toJSVal index]) >>= fromJSValUnchecked) pattern CSS_FILTER_REFERENCE = 1 pattern CSS_FILTER_GRAYSCALE = 2 pattern CSS_FILTER_SEPIA = 3 diff --git a/src/JSDOM/Generated/WebKitCSSMatrix.hs b/src/JSDOM/Generated/WebKitCSSMatrix.hs --- a/src/JSDOM/Generated/WebKitCSSMatrix.hs +++ b/src/JSDOM/Generated/WebKitCSSMatrix.hs @@ -1,14 +1,19 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WebKitCSSMatrix - (newWebKitCSSMatrix, setMatrixValue, multiply, inverse, translate, - scale, rotate, rotateAxisAngle, skewX, skewY, toString, setA, getA, - setB, getB, setC, getC, setD, getD, setE, getE, setF, getF, setM11, - getM11, setM12, getM12, setM13, getM13, setM14, getM14, setM21, - getM21, setM22, getM22, setM23, getM23, setM24, getM24, setM31, - getM31, setM32, getM32, setM33, getM33, setM34, getM34, setM41, - getM41, setM42, getM42, setM43, getM43, setM44, getM44, - WebKitCSSMatrix, castToWebKitCSSMatrix, gTypeWebKitCSSMatrix) + (newWebKitCSSMatrix, setMatrixValue, multiply, multiply_, + multiplyUnchecked, inverse, inverse_, inverseUnchecked, translate, + translate_, translateUnchecked, scale, scale_, scaleUnchecked, + rotate, rotate_, rotateUnchecked, rotateAxisAngle, + rotateAxisAngle_, rotateAxisAngleUnchecked, skewX, skewX_, + skewXUnchecked, skewY, skewY_, skewYUnchecked, toString, toString_, + setA, getA, setB, getB, setC, getC, setD, getD, setE, getE, setF, + getF, setM11, getM11, setM12, getM12, setM13, getM13, setM14, + getM14, setM21, getM21, setM22, getM22, setM23, getM23, setM24, + getM24, setM31, getM31, setM32, getM32, setM33, getM33, setM34, + getM34, setM41, getM41, setM42, getM42, setM43, getM43, setM44, + getM44, WebKitCSSMatrix, castToWebKitCSSMatrix, + gTypeWebKitCSSMatrix) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -46,11 +51,36 @@ = liftDOM ((self ^. jsf "multiply" [toJSVal secondMatrix]) >>= fromJSVal) +-- | +multiply_ :: + (MonadDOM m) => WebKitCSSMatrix -> Maybe WebKitCSSMatrix -> m () +multiply_ self secondMatrix + = liftDOM (void (self ^. jsf "multiply" [toJSVal secondMatrix])) + +-- | +multiplyUnchecked :: + (MonadDOM m) => + WebKitCSSMatrix -> Maybe WebKitCSSMatrix -> m WebKitCSSMatrix +multiplyUnchecked self secondMatrix + = liftDOM + ((self ^. jsf "multiply" [toJSVal secondMatrix]) >>= + fromJSValUnchecked) + -- | inverse :: (MonadDOM m) => WebKitCSSMatrix -> m (Maybe WebKitCSSMatrix) inverse self = liftDOM ((self ^. jsf "inverse" ()) >>= fromJSVal) +-- | +inverse_ :: (MonadDOM m) => WebKitCSSMatrix -> m () +inverse_ self = liftDOM (void (self ^. jsf "inverse" ())) + +-- | +inverseUnchecked :: + (MonadDOM m) => WebKitCSSMatrix -> m WebKitCSSMatrix +inverseUnchecked self + = liftDOM ((self ^. jsf "inverse" ()) >>= fromJSValUnchecked) + -- | translate :: (MonadDOM m) => @@ -61,6 +91,23 @@ ((self ^. jsf "translate" [toJSVal x, toJSVal y, toJSVal z]) >>= fromJSVal) +-- | +translate_ :: + (MonadDOM m) => + WebKitCSSMatrix -> Double -> Double -> Double -> m () +translate_ self x y z + = liftDOM + (void (self ^. jsf "translate" [toJSVal x, toJSVal y, toJSVal z])) + +-- | +translateUnchecked :: + (MonadDOM m) => + WebKitCSSMatrix -> Double -> Double -> Double -> m WebKitCSSMatrix +translateUnchecked self x y z + = liftDOM + ((self ^. jsf "translate" [toJSVal x, toJSVal y, toJSVal z]) >>= + fromJSValUnchecked) + -- | scale :: (MonadDOM m) => @@ -72,6 +119,26 @@ [toJSVal scaleX, toJSVal scaleY, toJSVal scaleZ]) >>= fromJSVal) +-- | +scale_ :: + (MonadDOM m) => + WebKitCSSMatrix -> Double -> Double -> Double -> m () +scale_ self scaleX scaleY scaleZ + = liftDOM + (void + (self ^. jsf "scale" + [toJSVal scaleX, toJSVal scaleY, toJSVal scaleZ])) + +-- | +scaleUnchecked :: + (MonadDOM m) => + WebKitCSSMatrix -> Double -> Double -> Double -> m WebKitCSSMatrix +scaleUnchecked self scaleX scaleY scaleZ + = liftDOM + ((self ^. jsf "scale" + [toJSVal scaleX, toJSVal scaleY, toJSVal scaleZ]) + >>= fromJSValUnchecked) + -- | rotate :: (MonadDOM m) => @@ -82,6 +149,24 @@ ((self ^. jsf "rotate" [toJSVal rotX, toJSVal rotY, toJSVal rotZ]) >>= fromJSVal) +-- | +rotate_ :: + (MonadDOM m) => + WebKitCSSMatrix -> Double -> Double -> Double -> m () +rotate_ self rotX rotY rotZ + = liftDOM + (void + (self ^. jsf "rotate" [toJSVal rotX, toJSVal rotY, toJSVal rotZ])) + +-- | +rotateUnchecked :: + (MonadDOM m) => + WebKitCSSMatrix -> Double -> Double -> Double -> m WebKitCSSMatrix +rotateUnchecked self rotX rotY rotZ + = liftDOM + ((self ^. jsf "rotate" [toJSVal rotX, toJSVal rotY, toJSVal rotZ]) + >>= fromJSValUnchecked) + -- | rotateAxisAngle :: (MonadDOM m) => @@ -93,6 +178,27 @@ [toJSVal x, toJSVal y, toJSVal z, toJSVal angle]) >>= fromJSVal) +-- | +rotateAxisAngle_ :: + (MonadDOM m) => + WebKitCSSMatrix -> Double -> Double -> Double -> Double -> m () +rotateAxisAngle_ self x y z angle + = liftDOM + (void + (self ^. jsf "rotateAxisAngle" + [toJSVal x, toJSVal y, toJSVal z, toJSVal angle])) + +-- | +rotateAxisAngleUnchecked :: + (MonadDOM m) => + WebKitCSSMatrix -> + Double -> Double -> Double -> Double -> m WebKitCSSMatrix +rotateAxisAngleUnchecked self x y z angle + = liftDOM + ((self ^. jsf "rotateAxisAngle" + [toJSVal x, toJSVal y, toJSVal z, toJSVal angle]) + >>= fromJSValUnchecked) + -- | skewX :: (MonadDOM m) => @@ -100,6 +206,18 @@ skewX self angle = liftDOM ((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSVal) +-- | +skewX_ :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () +skewX_ self angle + = liftDOM (void (self ^. jsf "skewX" [toJSVal angle])) + +-- | +skewXUnchecked :: + (MonadDOM m) => WebKitCSSMatrix -> Double -> m WebKitCSSMatrix +skewXUnchecked self angle + = liftDOM + ((self ^. jsf "skewX" [toJSVal angle]) >>= fromJSValUnchecked) + -- | skewY :: (MonadDOM m) => @@ -107,11 +225,27 @@ skewY self angle = liftDOM ((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSVal) +-- | +skewY_ :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () +skewY_ self angle + = liftDOM (void (self ^. jsf "skewY" [toJSVal angle])) + +-- | +skewYUnchecked :: + (MonadDOM m) => WebKitCSSMatrix -> Double -> m WebKitCSSMatrix +skewYUnchecked self angle + = liftDOM + ((self ^. jsf "skewY" [toJSVal angle]) >>= fromJSValUnchecked) + -- | toString :: (MonadDOM m, FromJSString result) => WebKitCSSMatrix -> m result toString self = liftDOM ((self ^. jsf "toString" ()) >>= fromJSValUnchecked) + +-- | +toString_ :: (MonadDOM m) => WebKitCSSMatrix -> m () +toString_ self = liftDOM (void (self ^. jsf "toString" ())) -- | setA :: (MonadDOM m) => WebKitCSSMatrix -> Double -> m () diff --git a/src/JSDOM/Generated/WebKitCSSRegionRule.hs b/src/JSDOM/Generated/WebKitCSSRegionRule.hs --- a/src/JSDOM/Generated/WebKitCSSRegionRule.hs +++ b/src/JSDOM/Generated/WebKitCSSRegionRule.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WebKitCSSRegionRule - (getCssRules, WebKitCSSRegionRule, castToWebKitCSSRegionRule, - gTypeWebKitCSSRegionRule) + (getCssRules, getCssRulesUnchecked, WebKitCSSRegionRule, + castToWebKitCSSRegionRule, gTypeWebKitCSSRegionRule) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -20,3 +20,9 @@ getCssRules :: (MonadDOM m) => WebKitCSSRegionRule -> m (Maybe CSSRuleList) getCssRules self = liftDOM ((self ^. js "cssRules") >>= fromJSVal) + +-- | +getCssRulesUnchecked :: + (MonadDOM m) => WebKitCSSRegionRule -> m CSSRuleList +getCssRulesUnchecked self + = liftDOM ((self ^. js "cssRules") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/WebKitCSSTransformValue.hs b/src/JSDOM/Generated/WebKitCSSTransformValue.hs --- a/src/JSDOM/Generated/WebKitCSSTransformValue.hs +++ b/src/JSDOM/Generated/WebKitCSSTransformValue.hs @@ -1,16 +1,16 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WebKitCSSTransformValue - (_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, getOperationType, - WebKitCSSTransformValue, castToWebKitCSSTransformValue, - gTypeWebKitCSSTransformValue) + (_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, + getOperationType, WebKitCSSTransformValue, + castToWebKitCSSTransformValue, gTypeWebKitCSSTransformValue) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -30,6 +30,18 @@ WebKitCSSTransformValue -> Word -> m (Maybe CSSValue) _get self index = liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal) + +-- | +_get_ :: (MonadDOM m) => WebKitCSSTransformValue -> Word -> m () +_get_ self index + = liftDOM (void (self ^. jsf "_get" [toJSVal index])) + +-- | +_getUnchecked :: + (MonadDOM m) => WebKitCSSTransformValue -> Word -> m CSSValue +_getUnchecked self index + = liftDOM + ((self ^. jsf "_get" [toJSVal index]) >>= fromJSValUnchecked) pattern CSS_TRANSLATE = 1 pattern CSS_TRANSLATEX = 2 pattern CSS_TRANSLATEY = 3 diff --git a/src/JSDOM/Generated/WebKitCSSViewportRule.hs b/src/JSDOM/Generated/WebKitCSSViewportRule.hs --- a/src/JSDOM/Generated/WebKitCSSViewportRule.hs +++ b/src/JSDOM/Generated/WebKitCSSViewportRule.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WebKitCSSViewportRule - (getStyle, WebKitCSSViewportRule, castToWebKitCSSViewportRule, - gTypeWebKitCSSViewportRule) + (getStyle, getStyleUnchecked, WebKitCSSViewportRule, + castToWebKitCSSViewportRule, gTypeWebKitCSSViewportRule) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -21,3 +21,9 @@ (MonadDOM m) => WebKitCSSViewportRule -> m (Maybe CSSStyleDeclaration) getStyle self = liftDOM ((self ^. js "style") >>= fromJSVal) + +-- | +getStyleUnchecked :: + (MonadDOM m) => WebKitCSSViewportRule -> m CSSStyleDeclaration +getStyleUnchecked self + = liftDOM ((self ^. js "style") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/WebKitNamedFlow.hs b/src/JSDOM/Generated/WebKitNamedFlow.hs --- a/src/JSDOM/Generated/WebKitNamedFlow.hs +++ b/src/JSDOM/Generated/WebKitNamedFlow.hs @@ -1,9 +1,11 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WebKitNamedFlow - (getRegionsByContent, getRegions, getContent, getName, getOverset, - getFirstEmptyRegionIndex, WebKitNamedFlow, castToWebKitNamedFlow, - gTypeWebKitNamedFlow) + (getRegionsByContent, getRegionsByContent_, + getRegionsByContentUnchecked, getRegions, getRegions_, + getRegionsUnchecked, getContent, getContent_, getContentUnchecked, + getName, getOverset, getFirstEmptyRegionIndex, WebKitNamedFlow, + castToWebKitNamedFlow, gTypeWebKitNamedFlow) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -26,15 +28,52 @@ ((self ^. jsf "getRegionsByContent" [toJSVal contentNode]) >>= fromJSVal) +-- | +getRegionsByContent_ :: + (MonadDOM m, IsNode contentNode) => + WebKitNamedFlow -> Maybe contentNode -> m () +getRegionsByContent_ self contentNode + = liftDOM + (void (self ^. jsf "getRegionsByContent" [toJSVal contentNode])) + +-- | +getRegionsByContentUnchecked :: + (MonadDOM m, IsNode contentNode) => + WebKitNamedFlow -> Maybe contentNode -> m NodeList +getRegionsByContentUnchecked self contentNode + = liftDOM + ((self ^. jsf "getRegionsByContent" [toJSVal contentNode]) >>= + fromJSValUnchecked) + -- | getRegions :: (MonadDOM m) => WebKitNamedFlow -> m (Maybe NodeList) getRegions self = liftDOM ((self ^. jsf "getRegions" ()) >>= fromJSVal) +-- | +getRegions_ :: (MonadDOM m) => WebKitNamedFlow -> m () +getRegions_ self = liftDOM (void (self ^. jsf "getRegions" ())) + +-- | +getRegionsUnchecked :: + (MonadDOM m) => WebKitNamedFlow -> m NodeList +getRegionsUnchecked self + = liftDOM ((self ^. jsf "getRegions" ()) >>= fromJSValUnchecked) + -- | getContent :: (MonadDOM m) => WebKitNamedFlow -> m (Maybe NodeList) getContent self = liftDOM ((self ^. jsf "getContent" ()) >>= fromJSVal) + +-- | +getContent_ :: (MonadDOM m) => WebKitNamedFlow -> m () +getContent_ self = liftDOM (void (self ^. jsf "getContent" ())) + +-- | +getContentUnchecked :: + (MonadDOM m) => WebKitNamedFlow -> m NodeList +getContentUnchecked self + = liftDOM ((self ^. jsf "getContent" ()) >>= fromJSValUnchecked) -- | getName :: diff --git a/src/JSDOM/Generated/WebKitNamespace.hs b/src/JSDOM/Generated/WebKitNamespace.hs --- a/src/JSDOM/Generated/WebKitNamespace.hs +++ b/src/JSDOM/Generated/WebKitNamespace.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WebKitNamespace - (getMessageHandlers, WebKitNamespace, castToWebKitNamespace, - gTypeWebKitNamespace) + (getMessageHandlers, getMessageHandlersUnchecked, WebKitNamespace, + castToWebKitNamespace, gTypeWebKitNamespace) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -22,3 +22,9 @@ WebKitNamespace -> m (Maybe UserMessageHandlersNamespace) getMessageHandlers self = liftDOM ((self ^. js "messageHandlers") >>= fromJSVal) + +-- | +getMessageHandlersUnchecked :: + (MonadDOM m) => WebKitNamespace -> m UserMessageHandlersNamespace +getMessageHandlersUnchecked self + = liftDOM ((self ^. js "messageHandlers") >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/WebSocket.hs b/src/JSDOM/Generated/WebSocket.hs --- a/src/JSDOM/Generated/WebSocket.hs +++ b/src/JSDOM/Generated/WebSocket.hs @@ -4,9 +4,9 @@ (newWebSocket, newWebSocket', send, sendView, sendBlob, sendString, close, pattern CONNECTING, pattern OPEN, pattern CLOSING, pattern CLOSED, getUrl, getReadyState, getBufferedAmount, open, - message, error, closeEvent, getProtocol, getExtensions, - setBinaryType, getBinaryType, WebSocket, castToWebSocket, - gTypeWebSocket) + message, error, closeEvent, getProtocol, getProtocolUnchecked, + getExtensions, getExtensionsUnchecked, setBinaryType, + getBinaryType, WebSocket, castToWebSocket, gTypeWebSocket) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -115,11 +115,23 @@ getProtocol self = liftDOM ((self ^. js "protocol") >>= fromMaybeJSString) +-- | +getProtocolUnchecked :: + (MonadDOM m, FromJSString result) => WebSocket -> m result +getProtocolUnchecked self + = liftDOM ((self ^. js "protocol") >>= fromJSValUnchecked) + -- | getExtensions :: (MonadDOM m, FromJSString result) => WebSocket -> m (Maybe result) getExtensions self = liftDOM ((self ^. js "extensions") >>= fromMaybeJSString) + +-- | +getExtensionsUnchecked :: + (MonadDOM m, FromJSString result) => WebSocket -> m result +getExtensionsUnchecked self + = liftDOM ((self ^. js "extensions") >>= fromJSValUnchecked) -- | setBinaryType :: diff --git a/src/JSDOM/Generated/Window.hs b/src/JSDOM/Generated/Window.hs --- a/src/JSDOM/Generated/Window.hs +++ b/src/JSDOM/Generated/Window.hs @@ -1,28 +1,51 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.Window - (openDatabase, getSelection, focus, blur, close, print, stop, open, - showModalDialog, alert, confirm, prompt, find, scrollBy, scrollTo, - scroll, moveBy, moveTo, resizeBy, resizeTo, matchMedia, - getComputedStyle, getMatchedCSSRules, - webkitConvertPointFromPageToNode, webkitConvertPointFromNodeToPage, - postMessage, requestAnimationFrame, cancelAnimationFrame, - webkitRequestAnimationFrame, webkitCancelAnimationFrame, + (openDatabase, openDatabase_, openDatabaseUnchecked, getSelection, + getSelection_, getSelectionUnchecked, focus, blur, close, print, + stop, open, open_, openUnchecked, showModalDialog, + showModalDialog_, alert, confirm, confirm_, prompt, prompt_, + promptUnchecked, find, find_, scrollBy, scrollTo, scroll, moveBy, + moveTo, resizeBy, resizeTo, matchMedia, matchMedia_, + matchMediaUnchecked, getComputedStyle, getComputedStyle_, + getComputedStyleUnchecked, getMatchedCSSRules, getMatchedCSSRules_, + getMatchedCSSRulesUnchecked, webkitConvertPointFromPageToNode, + webkitConvertPointFromPageToNode_, + webkitConvertPointFromPageToNodeUnchecked, + webkitConvertPointFromNodeToPage, + webkitConvertPointFromNodeToPage_, + webkitConvertPointFromNodeToPageUnchecked, postMessage, + requestAnimationFrame, requestAnimationFrame_, + cancelAnimationFrame, webkitRequestAnimationFrame, + webkitRequestAnimationFrame_, webkitCancelAnimationFrame, webkitCancelRequestAnimationFrame, captureEvents, releaseEvents, - getWebkitIndexedDB, getIndexedDB, getWebkitStorageInfo, - getSpeechSynthesis, getScreen, getHistory, getLocationbar, - getMenubar, getPersonalbar, getScrollbars, getStatusbar, - getToolbar, getNavigator, getClientInformation, getCrypto, - setLocation, getLocation, getEvent, getFrameElement, + getWebkitIndexedDB, getWebkitIndexedDBUnchecked, getIndexedDB, + getIndexedDBUnchecked, getWebkitStorageInfo, + getWebkitStorageInfoUnchecked, getSpeechSynthesis, + getSpeechSynthesisUnchecked, getScreen, getScreenUnchecked, + getHistory, getHistoryUnchecked, getLocationbar, + getLocationbarUnchecked, getMenubar, getMenubarUnchecked, + getPersonalbar, getPersonalbarUnchecked, getScrollbars, + getScrollbarsUnchecked, getStatusbar, getStatusbarUnchecked, + getToolbar, getToolbarUnchecked, getNavigator, + getNavigatorUnchecked, getClientInformation, + getClientInformationUnchecked, getCrypto, getCryptoUnchecked, + setLocation, getLocation, getLocationUnchecked, getEvent, + getEventUnchecked, getFrameElement, getFrameElementUnchecked, getOffscreenBuffering, getOuterHeight, getOuterWidth, getInnerHeight, getInnerWidth, getScreenX, getScreenY, getScreenLeft, getScreenTop, getScrollX, getScrollY, getPageXOffset, getPageYOffset, getClosed, getLength, setName, getName, setStatus, getStatus, setDefaultStatus, getDefaultStatus, - setDefaultstatus, getDefaultstatus, getSelf, getWindow, getFrames, - getOpener, getParent, getTop, getDocument, getStyleMedia, - getDevicePixelRatio, getApplicationCache, getSessionStorage, - getLocalStorage, getOrientation, getPerformance, getCSS, abort, + setDefaultstatus, getDefaultstatus, getSelf, getSelfUnchecked, + getWindow, getWindowUnchecked, getFrames, getFramesUnchecked, + getOpener, getOpenerUnchecked, getParent, getParentUnchecked, + getTop, getTopUnchecked, getDocument, getDocumentUnchecked, + getStyleMedia, getStyleMediaUnchecked, getDevicePixelRatio, + getApplicationCache, getApplicationCacheUnchecked, + getSessionStorage, getSessionStorageUnchecked, getLocalStorage, + getLocalStorageUnchecked, getOrientation, getPerformance, + getPerformanceUnchecked, getCSS, getCSSUnchecked, abort, beforeUnload, blurEvent, canPlay, canPlayThrough, change, click, contextMenu, dblClick, drag, dragEnd, dragEnter, dragLeave, dragOver, dragStart, drop, durationChange, emptied, ended, error, @@ -70,11 +93,51 @@ toJSVal estimatedSize, toJSVal creationCallback]) >>= fromJSVal) +-- | +openDatabase_ :: + (MonadDOM m, ToJSString name, ToJSString version, + ToJSString displayName) => + Window -> + name -> + version -> displayName -> Word -> Maybe DatabaseCallback -> m () +openDatabase_ self name version displayName estimatedSize + creationCallback + = liftDOM + (void + (self ^. jsf "openDatabase" + [toJSVal name, toJSVal version, toJSVal displayName, + toJSVal estimatedSize, toJSVal creationCallback])) + +-- | +openDatabaseUnchecked :: + (MonadDOM m, ToJSString name, ToJSString version, + ToJSString displayName) => + Window -> + name -> + version -> + displayName -> Word -> Maybe DatabaseCallback -> m Database +openDatabaseUnchecked self name version displayName estimatedSize + creationCallback + = liftDOM + ((self ^. jsf "openDatabase" + [toJSVal name, toJSVal version, toJSVal displayName, + toJSVal estimatedSize, toJSVal creationCallback]) + >>= fromJSValUnchecked) + -- | getSelection :: (MonadDOM m) => Window -> m (Maybe Selection) getSelection self = liftDOM ((self ^. jsf "getSelection" ()) >>= fromJSVal) +-- | +getSelection_ :: (MonadDOM m) => Window -> m () +getSelection_ self = liftDOM (void (self ^. jsf "getSelection" ())) + +-- | +getSelectionUnchecked :: (MonadDOM m) => Window -> m Selection +getSelectionUnchecked self + = liftDOM ((self ^. jsf "getSelection" ()) >>= fromJSValUnchecked) + -- | focus :: (MonadDOM m) => Window -> m () focus self = liftDOM (void (self ^. jsf "focus" ())) @@ -105,6 +168,26 @@ ((self ^. jsf "open" [toJSVal url, toJSVal name, toJSVal options]) >>= fromJSVal) +-- | +open_ :: + (MonadDOM m, ToJSString url, ToJSString name, + ToJSString options) => + Window -> url -> name -> options -> m () +open_ self url name options + = liftDOM + (void + (self ^. jsf "open" [toJSVal url, toJSVal name, toJSVal options])) + +-- | +openUnchecked :: + (MonadDOM m, ToJSString url, ToJSString name, + ToJSString options) => + Window -> url -> name -> options -> m Window +openUnchecked self url name options + = liftDOM + ((self ^. jsf "open" [toJSVal url, toJSVal name, toJSVal options]) + >>= fromJSValUnchecked) + -- | showModalDialog :: (MonadDOM m, ToJSString url, ToJSString featureArgs) => @@ -115,6 +198,16 @@ [toJSVal url, toJSVal dialogArgs, toJSVal featureArgs]) >>= toJSVal) +-- | +showModalDialog_ :: + (MonadDOM m, ToJSString url, ToJSString featureArgs) => + Window -> url -> JSVal -> featureArgs -> m () +showModalDialog_ self url dialogArgs featureArgs + = liftDOM + (void + (self ^. jsf "showModalDialog" + [toJSVal url, toJSVal dialogArgs, toJSVal featureArgs])) + -- | alert :: (MonadDOM m, ToJSString message) => Window -> message -> m () @@ -127,6 +220,12 @@ confirm self message = liftDOM ((self ^. jsf "confirm" [toJSVal message]) >>= valToBool) +-- | +confirm_ :: + (MonadDOM m, ToJSString message) => Window -> message -> m () +confirm_ self message + = liftDOM (void (self ^. jsf "confirm" [toJSVal message])) + -- | prompt :: (MonadDOM m, ToJSString message, ToJSString defaultValue, @@ -137,6 +236,25 @@ ((self ^. jsf "prompt" [toJSVal message, toJSVal defaultValue]) >>= fromMaybeJSString) +-- | +prompt_ :: + (MonadDOM m, ToJSString message, ToJSString defaultValue) => + Window -> message -> Maybe defaultValue -> m () +prompt_ self message defaultValue + = liftDOM + (void + (self ^. jsf "prompt" [toJSVal message, toJSVal defaultValue])) + +-- | +promptUnchecked :: + (MonadDOM m, ToJSString message, ToJSString defaultValue, + FromJSString result) => + Window -> message -> Maybe defaultValue -> m result +promptUnchecked self message defaultValue + = liftDOM + ((self ^. jsf "prompt" [toJSVal message, toJSVal defaultValue]) >>= + fromJSValUnchecked) + -- | find :: (MonadDOM m, ToJSString string) => @@ -151,6 +269,20 @@ toJSVal showDialog]) >>= valToBool) +-- | +find_ :: + (MonadDOM m, ToJSString string) => + Window -> + string -> Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> m () +find_ self string caseSensitive backwards wrap wholeWord + searchInFrames showDialog + = liftDOM + (void + (self ^. jsf "find" + [toJSVal string, toJSVal caseSensitive, toJSVal backwards, + toJSVal wrap, toJSVal wholeWord, toJSVal searchInFrames, + toJSVal showDialog])) + -- | scrollBy :: (MonadDOM m) => Window -> Int -> Int -> m () scrollBy self x y @@ -195,6 +327,20 @@ = liftDOM ((self ^. jsf "matchMedia" [toJSVal query]) >>= fromJSVal) +-- | +matchMedia_ :: + (MonadDOM m, ToJSString query) => Window -> query -> m () +matchMedia_ self query + = liftDOM (void (self ^. jsf "matchMedia" [toJSVal query])) + +-- | +matchMediaUnchecked :: + (MonadDOM m, ToJSString query) => + Window -> query -> m MediaQueryList +matchMediaUnchecked self query + = liftDOM + ((self ^. jsf "matchMedia" [toJSVal query]) >>= fromJSValUnchecked) + -- | getComputedStyle :: (MonadDOM m, IsElement element, ToJSString pseudoElement) => @@ -207,6 +353,27 @@ [toJSVal element, toJSVal pseudoElement]) >>= fromJSVal) +-- | +getComputedStyle_ :: + (MonadDOM m, IsElement element, ToJSString pseudoElement) => + Window -> Maybe element -> Maybe pseudoElement -> m () +getComputedStyle_ self element pseudoElement + = liftDOM + (void + (self ^. jsf "getComputedStyle" + [toJSVal element, toJSVal pseudoElement])) + +-- | +getComputedStyleUnchecked :: + (MonadDOM m, IsElement element, ToJSString pseudoElement) => + Window -> + Maybe element -> Maybe pseudoElement -> m CSSStyleDeclaration +getComputedStyleUnchecked self element pseudoElement + = liftDOM + ((self ^. jsf "getComputedStyle" + [toJSVal element, toJSVal pseudoElement]) + >>= fromJSValUnchecked) + -- | getMatchedCSSRules :: (MonadDOM m, IsElement element, ToJSString pseudoElement) => @@ -218,6 +385,26 @@ [toJSVal element, toJSVal pseudoElement]) >>= fromJSVal) +-- | +getMatchedCSSRules_ :: + (MonadDOM m, IsElement element, ToJSString pseudoElement) => + Window -> Maybe element -> Maybe pseudoElement -> m () +getMatchedCSSRules_ self element pseudoElement + = liftDOM + (void + (self ^. jsf "getMatchedCSSRules" + [toJSVal element, toJSVal pseudoElement])) + +-- | +getMatchedCSSRulesUnchecked :: + (MonadDOM m, IsElement element, ToJSString pseudoElement) => + Window -> Maybe element -> Maybe pseudoElement -> m CSSRuleList +getMatchedCSSRulesUnchecked self element pseudoElement + = liftDOM + ((self ^. jsf "getMatchedCSSRules" + [toJSVal element, toJSVal pseudoElement]) + >>= fromJSValUnchecked) + -- | webkitConvertPointFromPageToNode :: (MonadDOM m, IsNode node) => @@ -229,6 +416,27 @@ [toJSVal node, toJSVal p]) >>= fromJSVal) +-- | +webkitConvertPointFromPageToNode_ :: + (MonadDOM m, IsNode node) => + Window -> Maybe node -> Maybe WebKitPoint -> m () +webkitConvertPointFromPageToNode_ self node p + = liftDOM + (void + (self ^. jsf "webkitConvertPointFromPageToNode" + [toJSVal node, toJSVal p])) + +-- | +webkitConvertPointFromPageToNodeUnchecked :: + (MonadDOM m, IsNode node) => + Window -> + Maybe node -> Maybe WebKitPoint -> m WebKitPoint +webkitConvertPointFromPageToNodeUnchecked self node p + = liftDOM + ((self ^. jsf "webkitConvertPointFromPageToNode" + [toJSVal node, toJSVal p]) + >>= fromJSValUnchecked) + -- | webkitConvertPointFromNodeToPage :: (MonadDOM m, IsNode node) => @@ -240,6 +448,27 @@ [toJSVal node, toJSVal p]) >>= fromJSVal) +-- | +webkitConvertPointFromNodeToPage_ :: + (MonadDOM m, IsNode node) => + Window -> Maybe node -> Maybe WebKitPoint -> m () +webkitConvertPointFromNodeToPage_ self node p + = liftDOM + (void + (self ^. jsf "webkitConvertPointFromNodeToPage" + [toJSVal node, toJSVal p])) + +-- | +webkitConvertPointFromNodeToPageUnchecked :: + (MonadDOM m, IsNode node) => + Window -> + Maybe node -> Maybe WebKitPoint -> m WebKitPoint +webkitConvertPointFromNodeToPageUnchecked self node p + = liftDOM + ((self ^. jsf "webkitConvertPointFromNodeToPage" + [toJSVal node, toJSVal p]) + >>= fromJSValUnchecked) + -- | postMessage :: (MonadDOM m, IsSerializedScriptValue message, @@ -262,6 +491,14 @@ ((self ^. jsf "requestAnimationFrame" [toJSVal callback]) >>= valToNumber)) +-- | +requestAnimationFrame_ :: + (MonadDOM m) => + Window -> Maybe RequestAnimationFrameCallback -> m () +requestAnimationFrame_ self callback + = liftDOM + (void (self ^. jsf "requestAnimationFrame" [toJSVal callback])) + -- | cancelAnimationFrame :: (MonadDOM m) => Window -> Int -> m () cancelAnimationFrame self id @@ -277,6 +514,15 @@ ((self ^. jsf "webkitRequestAnimationFrame" [toJSVal callback]) >>= valToNumber)) +-- | +webkitRequestAnimationFrame_ :: + (MonadDOM m) => + Window -> Maybe RequestAnimationFrameCallback -> m () +webkitRequestAnimationFrame_ self callback + = liftDOM + (void + (self ^. jsf "webkitRequestAnimationFrame" [toJSVal callback])) + -- | webkitCancelAnimationFrame :: (MonadDOM m) => Window -> Int -> m () webkitCancelAnimationFrame self id @@ -307,74 +553,153 @@ getWebkitIndexedDB self = liftDOM ((self ^. js "webkitIndexedDB") >>= fromJSVal) +-- | +getWebkitIndexedDBUnchecked :: + (MonadDOM m) => Window -> m IDBFactory +getWebkitIndexedDBUnchecked self + = liftDOM ((self ^. js "webkitIndexedDB") >>= fromJSValUnchecked) + -- | getIndexedDB :: (MonadDOM m) => Window -> m (Maybe IDBFactory) getIndexedDB self = liftDOM ((self ^. js "indexedDB") >>= fromJSVal) +-- | +getIndexedDBUnchecked :: (MonadDOM m) => Window -> m IDBFactory +getIndexedDBUnchecked self + = liftDOM ((self ^. js "indexedDB") >>= fromJSValUnchecked) + -- | getWebkitStorageInfo :: (MonadDOM m) => Window -> m (Maybe StorageInfo) getWebkitStorageInfo self = liftDOM ((self ^. js "webkitStorageInfo") >>= fromJSVal) +-- | +getWebkitStorageInfoUnchecked :: + (MonadDOM m) => Window -> m StorageInfo +getWebkitStorageInfoUnchecked self + = liftDOM ((self ^. js "webkitStorageInfo") >>= fromJSValUnchecked) + -- | getSpeechSynthesis :: (MonadDOM m) => Window -> m (Maybe SpeechSynthesis) getSpeechSynthesis self = liftDOM ((self ^. js "speechSynthesis") >>= fromJSVal) +-- | +getSpeechSynthesisUnchecked :: + (MonadDOM m) => Window -> m SpeechSynthesis +getSpeechSynthesisUnchecked self + = liftDOM ((self ^. js "speechSynthesis") >>= fromJSValUnchecked) + -- | getScreen :: (MonadDOM m) => Window -> m (Maybe Screen) getScreen self = liftDOM ((self ^. js "screen") >>= fromJSVal) +-- | +getScreenUnchecked :: (MonadDOM m) => Window -> m Screen +getScreenUnchecked self + = liftDOM ((self ^. js "screen") >>= fromJSValUnchecked) + -- | getHistory :: (MonadDOM m) => Window -> m (Maybe History) getHistory self = liftDOM ((self ^. js "history") >>= fromJSVal) +-- | +getHistoryUnchecked :: (MonadDOM m) => Window -> m History +getHistoryUnchecked self + = liftDOM ((self ^. js "history") >>= fromJSValUnchecked) + -- | getLocationbar :: (MonadDOM m) => Window -> m (Maybe BarProp) getLocationbar self = liftDOM ((self ^. js "locationbar") >>= fromJSVal) +-- | +getLocationbarUnchecked :: (MonadDOM m) => Window -> m BarProp +getLocationbarUnchecked self + = liftDOM ((self ^. js "locationbar") >>= fromJSValUnchecked) + -- | getMenubar :: (MonadDOM m) => Window -> m (Maybe BarProp) getMenubar self = liftDOM ((self ^. js "menubar") >>= fromJSVal) +-- | +getMenubarUnchecked :: (MonadDOM m) => Window -> m BarProp +getMenubarUnchecked self + = liftDOM ((self ^. js "menubar") >>= fromJSValUnchecked) + -- | getPersonalbar :: (MonadDOM m) => Window -> m (Maybe BarProp) getPersonalbar self = liftDOM ((self ^. js "personalbar") >>= fromJSVal) +-- | +getPersonalbarUnchecked :: (MonadDOM m) => Window -> m BarProp +getPersonalbarUnchecked self + = liftDOM ((self ^. js "personalbar") >>= fromJSValUnchecked) + -- | getScrollbars :: (MonadDOM m) => Window -> m (Maybe BarProp) getScrollbars self = liftDOM ((self ^. js "scrollbars") >>= fromJSVal) +-- | +getScrollbarsUnchecked :: (MonadDOM m) => Window -> m BarProp +getScrollbarsUnchecked self + = liftDOM ((self ^. js "scrollbars") >>= fromJSValUnchecked) + -- | getStatusbar :: (MonadDOM m) => Window -> m (Maybe BarProp) getStatusbar self = liftDOM ((self ^. js "statusbar") >>= fromJSVal) +-- | +getStatusbarUnchecked :: (MonadDOM m) => Window -> m BarProp +getStatusbarUnchecked self + = liftDOM ((self ^. js "statusbar") >>= fromJSValUnchecked) + -- | getToolbar :: (MonadDOM m) => Window -> m (Maybe BarProp) getToolbar self = liftDOM ((self ^. js "toolbar") >>= fromJSVal) +-- | +getToolbarUnchecked :: (MonadDOM m) => Window -> m BarProp +getToolbarUnchecked self + = liftDOM ((self ^. js "toolbar") >>= fromJSValUnchecked) + -- | getNavigator :: (MonadDOM m) => Window -> m (Maybe Navigator) getNavigator self = liftDOM ((self ^. js "navigator") >>= fromJSVal) +-- | +getNavigatorUnchecked :: (MonadDOM m) => Window -> m Navigator +getNavigatorUnchecked self + = liftDOM ((self ^. js "navigator") >>= fromJSValUnchecked) + -- | getClientInformation :: (MonadDOM m) => Window -> m (Maybe Navigator) getClientInformation self = liftDOM ((self ^. js "clientInformation") >>= fromJSVal) +-- | +getClientInformationUnchecked :: + (MonadDOM m) => Window -> m Navigator +getClientInformationUnchecked self + = liftDOM ((self ^. js "clientInformation") >>= fromJSValUnchecked) + -- | getCrypto :: (MonadDOM m) => Window -> m (Maybe Crypto) getCrypto self = liftDOM ((self ^. js "crypto") >>= fromJSVal) +-- | +getCryptoUnchecked :: (MonadDOM m) => Window -> m Crypto +getCryptoUnchecked self + = liftDOM ((self ^. js "crypto") >>= fromJSValUnchecked) + -- | setLocation :: (MonadDOM m) => Window -> Maybe Location -> m () setLocation self val @@ -384,15 +709,30 @@ getLocation :: (MonadDOM m) => Window -> m (Maybe Location) getLocation self = liftDOM ((self ^. js "location") >>= fromJSVal) +-- | +getLocationUnchecked :: (MonadDOM m) => Window -> m Location +getLocationUnchecked self + = liftDOM ((self ^. js "location") >>= fromJSValUnchecked) + -- | getEvent :: (MonadDOM m) => Window -> m (Maybe Event) getEvent self = liftDOM ((self ^. js "event") >>= fromJSVal) +-- | +getEventUnchecked :: (MonadDOM m) => Window -> m Event +getEventUnchecked self + = liftDOM ((self ^. js "event") >>= fromJSValUnchecked) + -- | getFrameElement :: (MonadDOM m) => Window -> m (Maybe Element) getFrameElement self = liftDOM ((self ^. js "frameElement") >>= fromJSVal) +-- | +getFrameElementUnchecked :: (MonadDOM m) => Window -> m Element +getFrameElementUnchecked self + = liftDOM ((self ^. js "frameElement") >>= fromJSValUnchecked) + -- | getOffscreenBuffering :: (MonadDOM m) => Window -> m Bool getOffscreenBuffering self @@ -513,35 +853,75 @@ getSelf :: (MonadDOM m) => Window -> m (Maybe Window) getSelf self = liftDOM ((self ^. js "self") >>= fromJSVal) +-- | +getSelfUnchecked :: (MonadDOM m) => Window -> m Window +getSelfUnchecked self + = liftDOM ((self ^. js "self") >>= fromJSValUnchecked) + -- | getWindow :: (MonadDOM m) => Window -> m (Maybe Window) getWindow self = liftDOM ((self ^. js "window") >>= fromJSVal) +-- | +getWindowUnchecked :: (MonadDOM m) => Window -> m Window +getWindowUnchecked self + = liftDOM ((self ^. js "window") >>= fromJSValUnchecked) + -- | getFrames :: (MonadDOM m) => Window -> m (Maybe Window) getFrames self = liftDOM ((self ^. js "frames") >>= fromJSVal) +-- | +getFramesUnchecked :: (MonadDOM m) => Window -> m Window +getFramesUnchecked self + = liftDOM ((self ^. js "frames") >>= fromJSValUnchecked) + -- | getOpener :: (MonadDOM m) => Window -> m (Maybe Window) getOpener self = liftDOM ((self ^. js "opener") >>= fromJSVal) +-- | +getOpenerUnchecked :: (MonadDOM m) => Window -> m Window +getOpenerUnchecked self + = liftDOM ((self ^. js "opener") >>= fromJSValUnchecked) + -- | getParent :: (MonadDOM m) => Window -> m (Maybe Window) getParent self = liftDOM ((self ^. js "parent") >>= fromJSVal) +-- | +getParentUnchecked :: (MonadDOM m) => Window -> m Window +getParentUnchecked self + = liftDOM ((self ^. js "parent") >>= fromJSValUnchecked) + -- | getTop :: (MonadDOM m) => Window -> m (Maybe Window) getTop self = liftDOM ((self ^. js "top") >>= fromJSVal) +-- | +getTopUnchecked :: (MonadDOM m) => Window -> m Window +getTopUnchecked self + = liftDOM ((self ^. js "top") >>= fromJSValUnchecked) + -- | getDocument :: (MonadDOM m) => Window -> m (Maybe Document) getDocument self = liftDOM ((self ^. js "document") >>= fromJSVal) +-- | +getDocumentUnchecked :: (MonadDOM m) => Window -> m Document +getDocumentUnchecked self + = liftDOM ((self ^. js "document") >>= fromJSValUnchecked) + -- | getStyleMedia :: (MonadDOM m) => Window -> m (Maybe StyleMedia) getStyleMedia self = liftDOM ((self ^. js "styleMedia") >>= fromJSVal) +-- | +getStyleMediaUnchecked :: (MonadDOM m) => Window -> m StyleMedia +getStyleMediaUnchecked self + = liftDOM ((self ^. js "styleMedia") >>= fromJSValUnchecked) + -- | getDevicePixelRatio :: (MonadDOM m) => Window -> m Double getDevicePixelRatio self @@ -553,16 +933,32 @@ getApplicationCache self = liftDOM ((self ^. js "applicationCache") >>= fromJSVal) +-- | +getApplicationCacheUnchecked :: + (MonadDOM m) => Window -> m ApplicationCache +getApplicationCacheUnchecked self + = liftDOM ((self ^. js "applicationCache") >>= fromJSValUnchecked) + -- | getSessionStorage :: (MonadDOM m) => Window -> m (Maybe Storage) getSessionStorage self = liftDOM ((self ^. js "sessionStorage") >>= fromJSVal) +-- | +getSessionStorageUnchecked :: (MonadDOM m) => Window -> m Storage +getSessionStorageUnchecked self + = liftDOM ((self ^. js "sessionStorage") >>= fromJSValUnchecked) + -- | getLocalStorage :: (MonadDOM m) => Window -> m (Maybe Storage) getLocalStorage self = liftDOM ((self ^. js "localStorage") >>= fromJSVal) +-- | +getLocalStorageUnchecked :: (MonadDOM m) => Window -> m Storage +getLocalStorageUnchecked self + = liftDOM ((self ^. js "localStorage") >>= fromJSValUnchecked) + -- | getOrientation :: (MonadDOM m) => Window -> m Int getOrientation self @@ -573,9 +969,19 @@ getPerformance self = liftDOM ((self ^. js "performance") >>= fromJSVal) +-- | +getPerformanceUnchecked :: (MonadDOM m) => Window -> m Performance +getPerformanceUnchecked self + = liftDOM ((self ^. js "performance") >>= fromJSValUnchecked) + -- | getCSS :: (MonadDOM m) => Window -> m (Maybe CSS) getCSS self = liftDOM ((self ^. js "CSS") >>= fromJSVal) + +-- | +getCSSUnchecked :: (MonadDOM m) => Window -> m CSS +getCSSUnchecked self + = liftDOM ((self ^. js "CSS") >>= fromJSValUnchecked) -- | abort :: EventName Window UIEvent diff --git a/src/JSDOM/Generated/WindowBase64.hs b/src/JSDOM/Generated/WindowBase64.hs --- a/src/JSDOM/Generated/WindowBase64.hs +++ b/src/JSDOM/Generated/WindowBase64.hs @@ -1,7 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WindowBase64 - (atob, btoa, WindowBase64, castToWindowBase64, gTypeWindowBase64) + (atob, atob_, btoa, btoa_, WindowBase64, castToWindowBase64, + gTypeWindowBase64) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -23,6 +24,12 @@ = liftDOM ((self ^. jsf "atob" [toJSVal string]) >>= fromJSValUnchecked) +-- | +atob_ :: + (MonadDOM m, ToJSString string) => WindowBase64 -> string -> m () +atob_ self string + = liftDOM (void (self ^. jsf "atob" [toJSVal string])) + -- | btoa :: (MonadDOM m, ToJSString string, FromJSString result) => @@ -30,3 +37,9 @@ btoa self string = liftDOM ((self ^. jsf "btoa" [toJSVal string]) >>= fromJSValUnchecked) + +-- | +btoa_ :: + (MonadDOM m, ToJSString string) => WindowBase64 -> string -> m () +btoa_ self string + = liftDOM (void (self ^. jsf "btoa" [toJSVal string])) diff --git a/src/JSDOM/Generated/WindowTimers.hs b/src/JSDOM/Generated/WindowTimers.hs --- a/src/JSDOM/Generated/WindowTimers.hs +++ b/src/JSDOM/Generated/WindowTimers.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WindowTimers - (setTimeout, clearTimeout, setInterval, clearInterval, - WindowTimers, castToWindowTimers, gTypeWindowTimers) + (setTimeout, setTimeout_, clearTimeout, setInterval, setInterval_, + clearInterval, WindowTimers, castToWindowTimers, gTypeWindowTimers) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -24,6 +24,13 @@ ((self ^. jsf "setTimeout" [toJSVal handler, toJSVal timeout]) >>= valToNumber)) +-- | +setTimeout_ :: (MonadDOM m) => WindowTimers -> JSVal -> Int -> m () +setTimeout_ self handler timeout + = liftDOM + (void + (self ^. jsf "setTimeout" [toJSVal handler, toJSVal timeout])) + -- | clearTimeout :: (MonadDOM m) => WindowTimers -> Int -> m () clearTimeout self handle @@ -37,6 +44,14 @@ (round <$> ((self ^. jsf "setInterval" [toJSVal handler, toJSVal timeout]) >>= valToNumber)) + +-- | +setInterval_ :: + (MonadDOM m) => WindowTimers -> JSVal -> Int -> m () +setInterval_ self handler timeout + = liftDOM + (void + (self ^. jsf "setInterval" [toJSVal handler, toJSVal timeout])) -- | clearInterval :: (MonadDOM m) => WindowTimers -> Int -> m () diff --git a/src/JSDOM/Generated/WorkerGlobalScope.hs b/src/JSDOM/Generated/WorkerGlobalScope.hs --- a/src/JSDOM/Generated/WorkerGlobalScope.hs +++ b/src/JSDOM/Generated/WorkerGlobalScope.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WorkerGlobalScope - (close, importScripts, getSelf, getLocation, error, offline, - online, getNavigator, WorkerGlobalScope, castToWorkerGlobalScope, + (close, importScripts, getSelf, getSelfUnchecked, getLocation, + getLocationUnchecked, error, offline, online, getNavigator, + getNavigatorUnchecked, WorkerGlobalScope, castToWorkerGlobalScope, gTypeWorkerGlobalScope, IsWorkerGlobalScope, toWorkerGlobalScope) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -36,6 +37,14 @@ getSelf self = liftDOM (((toWorkerGlobalScope self) ^. js "self") >>= fromJSVal) +-- | +getSelfUnchecked :: + (MonadDOM m, IsWorkerGlobalScope self) => + self -> m WorkerGlobalScope +getSelfUnchecked self + = liftDOM + (((toWorkerGlobalScope self) ^. js "self") >>= fromJSValUnchecked) + -- | getLocation :: (MonadDOM m, IsWorkerGlobalScope self) => @@ -44,6 +53,14 @@ = liftDOM (((toWorkerGlobalScope self) ^. js "location") >>= fromJSVal) +-- | +getLocationUnchecked :: + (MonadDOM m, IsWorkerGlobalScope self) => self -> m WorkerLocation +getLocationUnchecked self + = liftDOM + (((toWorkerGlobalScope self) ^. js "location") >>= + fromJSValUnchecked) + -- | error :: (IsWorkerGlobalScope self, IsEventTarget self) => @@ -69,3 +86,11 @@ getNavigator self = liftDOM (((toWorkerGlobalScope self) ^. js "navigator") >>= fromJSVal) + +-- | +getNavigatorUnchecked :: + (MonadDOM m, IsWorkerGlobalScope self) => self -> m WorkerNavigator +getNavigatorUnchecked self + = liftDOM + (((toWorkerGlobalScope self) ^. js "navigator") >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/WorkerLocation.hs b/src/JSDOM/Generated/WorkerLocation.hs --- a/src/JSDOM/Generated/WorkerLocation.hs +++ b/src/JSDOM/Generated/WorkerLocation.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WorkerLocation - (toString, getHref, getProtocol, getHost, getHostname, getPort, - getPathname, getSearch, getHash, WorkerLocation, + (toString, toString_, getHref, getProtocol, getHost, getHostname, + getPort, getPathname, getSearch, getHash, WorkerLocation, castToWorkerLocation, gTypeWorkerLocation) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -22,6 +22,10 @@ (MonadDOM m, FromJSString result) => WorkerLocation -> m result toString self = liftDOM ((self ^. jsf "toString" ()) >>= fromJSValUnchecked) + +-- | +toString_ :: (MonadDOM m) => WorkerLocation -> m () +toString_ self = liftDOM (void (self ^. jsf "toString" ())) -- | getHref :: diff --git a/src/JSDOM/Generated/WorkerNavigator.hs b/src/JSDOM/Generated/WorkerNavigator.hs --- a/src/JSDOM/Generated/WorkerNavigator.hs +++ b/src/JSDOM/Generated/WorkerNavigator.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.WorkerNavigator - (getWebkitTemporaryStorage, getWebkitPersistentStorage, getAppName, - getAppVersion, getPlatform, getUserAgent, getOnLine, + (getWebkitTemporaryStorage, getWebkitTemporaryStorageUnchecked, + getWebkitPersistentStorage, getWebkitPersistentStorageUnchecked, + getAppName, getAppVersion, getPlatform, getUserAgent, getOnLine, WorkerNavigator, castToWorkerNavigator, gTypeWorkerNavigator) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -23,11 +24,25 @@ getWebkitTemporaryStorage self = liftDOM ((self ^. js "webkitTemporaryStorage") >>= fromJSVal) +-- | +getWebkitTemporaryStorageUnchecked :: + (MonadDOM m) => WorkerNavigator -> m StorageQuota +getWebkitTemporaryStorageUnchecked self + = liftDOM + ((self ^. js "webkitTemporaryStorage") >>= fromJSValUnchecked) + -- | getWebkitPersistentStorage :: (MonadDOM m) => WorkerNavigator -> m (Maybe StorageQuota) getWebkitPersistentStorage self = liftDOM ((self ^. js "webkitPersistentStorage") >>= fromJSVal) + +-- | +getWebkitPersistentStorageUnchecked :: + (MonadDOM m) => WorkerNavigator -> m StorageQuota +getWebkitPersistentStorageUnchecked self + = liftDOM + ((self ^. js "webkitPersistentStorage") >>= fromJSValUnchecked) -- | getAppName :: diff --git a/src/JSDOM/Generated/XMLHttpRequest.hs b/src/JSDOM/Generated/XMLHttpRequest.hs --- a/src/JSDOM/Generated/XMLHttpRequest.hs +++ b/src/JSDOM/Generated/XMLHttpRequest.hs @@ -2,15 +2,18 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.XMLHttpRequest (newXMLHttpRequest, open, setRequestHeader, send, abort, - getAllResponseHeaders, getResponseHeader, overrideMimeType, + getAllResponseHeaders, getAllResponseHeaders_, + getAllResponseHeadersUnchecked, getResponseHeader, + getResponseHeader_, getResponseHeaderUnchecked, overrideMimeType, pattern UNSENT, pattern OPENED, pattern HEADERS_RECEIVED, pattern LOADING, pattern DONE, abortEvent, error, load, loadEnd, loadStart, progress, timeout, readyStateChange, setTimeout, getTimeout, getReadyState, setWithCredentials, getWithCredentials, - getUpload, getResponseText, getResponseXML, setResponseType, - getResponseType, getResponse, getStatus, getStatusText, - getResponseURL, XMLHttpRequest, castToXMLHttpRequest, - gTypeXMLHttpRequest) + getUpload, getUploadUnchecked, getResponseText, + getResponseTextUnchecked, getResponseXML, getResponseXMLUnchecked, + setResponseType, getResponseType, getResponse, + getResponseUnchecked, getStatus, getStatusText, getResponseURL, + XMLHttpRequest, castToXMLHttpRequest, gTypeXMLHttpRequest) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -66,6 +69,18 @@ = liftDOM ((self ^. jsf "getAllResponseHeaders" ()) >>= fromMaybeJSString) +-- | +getAllResponseHeaders_ :: (MonadDOM m) => XMLHttpRequest -> m () +getAllResponseHeaders_ self + = liftDOM (void (self ^. jsf "getAllResponseHeaders" ())) + +-- | +getAllResponseHeadersUnchecked :: + (MonadDOM m, FromJSString result) => XMLHttpRequest -> m result +getAllResponseHeadersUnchecked self + = liftDOM + ((self ^. jsf "getAllResponseHeaders" ()) >>= fromJSValUnchecked) + -- | getResponseHeader :: (MonadDOM m, ToJSString header, FromJSString result) => @@ -75,6 +90,21 @@ ((self ^. jsf "getResponseHeader" [toJSVal header]) >>= fromMaybeJSString) +-- | +getResponseHeader_ :: + (MonadDOM m, ToJSString header) => XMLHttpRequest -> header -> m () +getResponseHeader_ self header + = liftDOM (void (self ^. jsf "getResponseHeader" [toJSVal header])) + +-- | +getResponseHeaderUnchecked :: + (MonadDOM m, ToJSString header, FromJSString result) => + XMLHttpRequest -> header -> m result +getResponseHeaderUnchecked self header + = liftDOM + ((self ^. jsf "getResponseHeader" [toJSVal header]) >>= + fromJSValUnchecked) + -- | overrideMimeType :: (MonadDOM m, ToJSString override) => @@ -150,6 +180,12 @@ (MonadDOM m) => XMLHttpRequest -> m (Maybe XMLHttpRequestUpload) getUpload self = liftDOM ((self ^. js "upload") >>= fromJSVal) +-- | +getUploadUnchecked :: + (MonadDOM m) => XMLHttpRequest -> m XMLHttpRequestUpload +getUploadUnchecked self + = liftDOM ((self ^. js "upload") >>= fromJSValUnchecked) + -- | getResponseText :: (MonadDOM m, FromJSString result) => @@ -157,12 +193,24 @@ getResponseText self = liftDOM ((self ^. js "responseText") >>= fromMaybeJSString) +-- | +getResponseTextUnchecked :: + (MonadDOM m, FromJSString result) => XMLHttpRequest -> m result +getResponseTextUnchecked self + = liftDOM ((self ^. js "responseText") >>= fromJSValUnchecked) + -- | getResponseXML :: (MonadDOM m) => XMLHttpRequest -> m (Maybe Document) getResponseXML self = liftDOM ((self ^. js "responseXML") >>= fromJSVal) +-- | +getResponseXMLUnchecked :: + (MonadDOM m) => XMLHttpRequest -> m Document +getResponseXMLUnchecked self + = liftDOM ((self ^. js "responseXML") >>= fromJSValUnchecked) + -- | setResponseType :: (MonadDOM m) => @@ -179,6 +227,11 @@ -- | getResponse :: (MonadDOM m) => XMLHttpRequest -> m (Maybe GObject) getResponse self = liftDOM ((self ^. js "response") >>= fromJSVal) + +-- | +getResponseUnchecked :: (MonadDOM m) => XMLHttpRequest -> m GObject +getResponseUnchecked self + = liftDOM ((self ^. js "response") >>= fromJSValUnchecked) -- | getStatus :: (MonadDOM m) => XMLHttpRequest -> m Word diff --git a/src/JSDOM/Generated/XMLSerializer.hs b/src/JSDOM/Generated/XMLSerializer.hs --- a/src/JSDOM/Generated/XMLSerializer.hs +++ b/src/JSDOM/Generated/XMLSerializer.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.XMLSerializer - (newXMLSerializer, serializeToString, XMLSerializer, - castToXMLSerializer, gTypeXMLSerializer) + (newXMLSerializer, serializeToString, serializeToString_, + XMLSerializer, castToXMLSerializer, gTypeXMLSerializer) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -29,3 +29,9 @@ = liftDOM ((self ^. jsf "serializeToString" [toJSVal node]) >>= fromJSValUnchecked) + +-- | +serializeToString_ :: + (MonadDOM m, IsNode node) => XMLSerializer -> Maybe node -> m () +serializeToString_ self node + = liftDOM (void (self ^. jsf "serializeToString" [toJSVal node])) diff --git a/src/JSDOM/Generated/XPathEvaluator.hs b/src/JSDOM/Generated/XPathEvaluator.hs --- a/src/JSDOM/Generated/XPathEvaluator.hs +++ b/src/JSDOM/Generated/XPathEvaluator.hs @@ -1,7 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.XPathEvaluator - (newXPathEvaluator, createExpression, createNSResolver, evaluate, + (newXPathEvaluator, createExpression, createExpression_, + createExpressionUnchecked, createNSResolver, createNSResolver_, + createNSResolverUnchecked, evaluate, evaluate_, evaluateUnchecked, XPathEvaluator, castToXPathEvaluator, gTypeXPathEvaluator) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) @@ -32,6 +34,27 @@ [toJSVal expression, toJSVal resolver]) >>= fromJSVal) +-- | +createExpression_ :: + (MonadDOM m, ToJSString expression) => + XPathEvaluator -> expression -> Maybe XPathNSResolver -> m () +createExpression_ self expression resolver + = liftDOM + (void + (self ^. jsf "createExpression" + [toJSVal expression, toJSVal resolver])) + +-- | +createExpressionUnchecked :: + (MonadDOM m, ToJSString expression) => + XPathEvaluator -> + expression -> Maybe XPathNSResolver -> m XPathExpression +createExpressionUnchecked self expression resolver + = liftDOM + ((self ^. jsf "createExpression" + [toJSVal expression, toJSVal resolver]) + >>= fromJSValUnchecked) + -- | createNSResolver :: (MonadDOM m, IsNode nodeResolver) => @@ -41,6 +64,23 @@ ((self ^. jsf "createNSResolver" [toJSVal nodeResolver]) >>= fromJSVal) +-- | +createNSResolver_ :: + (MonadDOM m, IsNode nodeResolver) => + XPathEvaluator -> Maybe nodeResolver -> m () +createNSResolver_ self nodeResolver + = liftDOM + (void (self ^. jsf "createNSResolver" [toJSVal nodeResolver])) + +-- | +createNSResolverUnchecked :: + (MonadDOM m, IsNode nodeResolver) => + XPathEvaluator -> Maybe nodeResolver -> m XPathNSResolver +createNSResolverUnchecked self nodeResolver + = liftDOM + ((self ^. jsf "createNSResolver" [toJSVal nodeResolver]) >>= + fromJSValUnchecked) + -- | evaluate :: (MonadDOM m, ToJSString expression, IsNode contextNode) => @@ -55,3 +95,32 @@ [toJSVal expression, toJSVal contextNode, toJSVal resolver, toJSVal type', toJSVal inResult]) >>= fromJSVal) + +-- | +evaluate_ :: + (MonadDOM m, ToJSString expression, IsNode contextNode) => + XPathEvaluator -> + expression -> + Maybe contextNode -> + Maybe XPathNSResolver -> Word -> Maybe XPathResult -> m () +evaluate_ self expression contextNode resolver type' inResult + = liftDOM + (void + (self ^. jsf "evaluate" + [toJSVal expression, toJSVal contextNode, toJSVal resolver, + toJSVal type', toJSVal inResult])) + +-- | +evaluateUnchecked :: + (MonadDOM m, ToJSString expression, IsNode contextNode) => + XPathEvaluator -> + expression -> + Maybe contextNode -> + Maybe XPathNSResolver -> Word -> Maybe XPathResult -> m XPathResult +evaluateUnchecked self expression contextNode resolver type' + inResult + = liftDOM + ((self ^. jsf "evaluate" + [toJSVal expression, toJSVal contextNode, toJSVal resolver, + toJSVal type', toJSVal inResult]) + >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/XPathExpression.hs b/src/JSDOM/Generated/XPathExpression.hs --- a/src/JSDOM/Generated/XPathExpression.hs +++ b/src/JSDOM/Generated/XPathExpression.hs @@ -1,8 +1,8 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.XPathExpression - (evaluate, XPathExpression, castToXPathExpression, - gTypeXPathExpression) + (evaluate, evaluate_, evaluateUnchecked, XPathExpression, + castToXPathExpression, gTypeXPathExpression) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -27,3 +27,25 @@ ((self ^. jsf "evaluate" [toJSVal contextNode, toJSVal type', toJSVal inResult]) >>= fromJSVal) + +-- | +evaluate_ :: + (MonadDOM m, IsNode contextNode) => + XPathExpression -> + Maybe contextNode -> Word -> Maybe XPathResult -> m () +evaluate_ self contextNode type' inResult + = liftDOM + (void + (self ^. jsf "evaluate" + [toJSVal contextNode, toJSVal type', toJSVal inResult])) + +-- | +evaluateUnchecked :: + (MonadDOM m, IsNode contextNode) => + XPathExpression -> + Maybe contextNode -> Word -> Maybe XPathResult -> m XPathResult +evaluateUnchecked self contextNode type' inResult + = liftDOM + ((self ^. jsf "evaluate" + [toJSVal contextNode, toJSVal type', toJSVal inResult]) + >>= fromJSValUnchecked) diff --git a/src/JSDOM/Generated/XPathNSResolver.hs b/src/JSDOM/Generated/XPathNSResolver.hs --- a/src/JSDOM/Generated/XPathNSResolver.hs +++ b/src/JSDOM/Generated/XPathNSResolver.hs @@ -1,8 +1,9 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.XPathNSResolver - (lookupNamespaceURI, XPathNSResolver, castToXPathNSResolver, - gTypeXPathNSResolver) + (lookupNamespaceURI, lookupNamespaceURI_, + lookupNamespaceURIUnchecked, XPathNSResolver, + castToXPathNSResolver, gTypeXPathNSResolver) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -24,3 +25,20 @@ = liftDOM ((self ^. jsf "lookupNamespaceURI" [toJSVal prefix]) >>= fromMaybeJSString) + +-- | +lookupNamespaceURI_ :: + (MonadDOM m, ToJSString prefix) => + XPathNSResolver -> prefix -> m () +lookupNamespaceURI_ self prefix + = liftDOM + (void (self ^. jsf "lookupNamespaceURI" [toJSVal prefix])) + +-- | +lookupNamespaceURIUnchecked :: + (MonadDOM m, ToJSString prefix, FromJSString result) => + XPathNSResolver -> prefix -> m result +lookupNamespaceURIUnchecked self prefix + = liftDOM + ((self ^. jsf "lookupNamespaceURI" [toJSVal prefix]) >>= + fromJSValUnchecked) diff --git a/src/JSDOM/Generated/XPathResult.hs b/src/JSDOM/Generated/XPathResult.hs --- a/src/JSDOM/Generated/XPathResult.hs +++ b/src/JSDOM/Generated/XPathResult.hs @@ -1,16 +1,18 @@ {-# LANGUAGE PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.XPathResult - (iterateNext, snapshotItem, pattern ANY_TYPE, pattern NUMBER_TYPE, - pattern STRING_TYPE, pattern BOOLEAN_TYPE, + (iterateNext, iterateNext_, iterateNextUnchecked, 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, pattern ANY_UNORDERED_NODE_TYPE, pattern FIRST_ORDERED_NODE_TYPE, getResultType, getNumberValue, getStringValue, getBooleanValue, - getSingleNodeValue, getInvalidIteratorState, getSnapshotLength, - XPathResult, castToXPathResult, gTypeXPathResult) + getSingleNodeValue, getSingleNodeValueUnchecked, + getInvalidIteratorState, getSnapshotLength, XPathResult, + castToXPathResult, gTypeXPathResult) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import Data.Typeable (Typeable) @@ -29,12 +31,34 @@ iterateNext self = liftDOM ((self ^. jsf "iterateNext" ()) >>= fromJSVal) +-- | +iterateNext_ :: (MonadDOM m) => XPathResult -> m () +iterateNext_ self = liftDOM (void (self ^. jsf "iterateNext" ())) + +-- | +iterateNextUnchecked :: (MonadDOM m) => XPathResult -> m Node +iterateNextUnchecked self + = liftDOM ((self ^. jsf "iterateNext" ()) >>= fromJSValUnchecked) + -- | snapshotItem :: (MonadDOM m) => XPathResult -> Word -> m (Maybe Node) snapshotItem self index = liftDOM ((self ^. jsf "snapshotItem" [toJSVal index]) >>= fromJSVal) + +-- | +snapshotItem_ :: (MonadDOM m) => XPathResult -> Word -> m () +snapshotItem_ self index + = liftDOM (void (self ^. jsf "snapshotItem" [toJSVal index])) + +-- | +snapshotItemUnchecked :: + (MonadDOM m) => XPathResult -> Word -> m Node +snapshotItemUnchecked self index + = liftDOM + ((self ^. jsf "snapshotItem" [toJSVal index]) >>= + fromJSValUnchecked) pattern ANY_TYPE = 0 pattern NUMBER_TYPE = 1 pattern STRING_TYPE = 2 @@ -71,6 +95,12 @@ getSingleNodeValue :: (MonadDOM m) => XPathResult -> m (Maybe Node) getSingleNodeValue self = liftDOM ((self ^. js "singleNodeValue") >>= fromJSVal) + +-- | +getSingleNodeValueUnchecked :: + (MonadDOM m) => XPathResult -> m Node +getSingleNodeValueUnchecked self + = liftDOM ((self ^. js "singleNodeValue") >>= fromJSValUnchecked) -- | getInvalidIteratorState :: (MonadDOM m) => XPathResult -> m Bool diff --git a/src/JSDOM/Generated/XSLTProcessor.hs b/src/JSDOM/Generated/XSLTProcessor.hs --- a/src/JSDOM/Generated/XSLTProcessor.hs +++ b/src/JSDOM/Generated/XSLTProcessor.hs @@ -2,7 +2,10 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.XSLTProcessor (newXSLTProcessor, importStylesheet, transformToFragment, - transformToDocument, setParameter, getParameter, removeParameter, + transformToFragment_, transformToFragmentUnchecked, + transformToDocument, transformToDocument_, + transformToDocumentUnchecked, setParameter, getParameter, + getParameter_, getParameterUnchecked, removeParameter, clearParameters, reset, XSLTProcessor, castToXSLTProcessor, gTypeXSLTProcessor) where @@ -42,6 +45,26 @@ [toJSVal source, toJSVal docVal]) >>= fromJSVal) +-- | +transformToFragment_ :: + (MonadDOM m, IsNode source, IsDocument docVal) => + XSLTProcessor -> Maybe source -> Maybe docVal -> m () +transformToFragment_ self source docVal + = liftDOM + (void + (self ^. jsf "transformToFragment" + [toJSVal source, toJSVal docVal])) + +-- | +transformToFragmentUnchecked :: + (MonadDOM m, IsNode source, IsDocument docVal) => + XSLTProcessor -> Maybe source -> Maybe docVal -> m DocumentFragment +transformToFragmentUnchecked self source docVal + = liftDOM + ((self ^. jsf "transformToFragment" + [toJSVal source, toJSVal docVal]) + >>= fromJSValUnchecked) + -- | transformToDocument :: (MonadDOM m, IsNode source) => @@ -51,6 +74,23 @@ ((self ^. jsf "transformToDocument" [toJSVal source]) >>= fromJSVal) +-- | +transformToDocument_ :: + (MonadDOM m, IsNode source) => + XSLTProcessor -> Maybe source -> m () +transformToDocument_ self source + = liftDOM + (void (self ^. jsf "transformToDocument" [toJSVal source])) + +-- | +transformToDocumentUnchecked :: + (MonadDOM m, IsNode source) => + XSLTProcessor -> Maybe source -> m Document +transformToDocumentUnchecked self source + = liftDOM + ((self ^. jsf "transformToDocument" [toJSVal source]) >>= + fromJSValUnchecked) + -- | setParameter :: (MonadDOM m, ToJSString namespaceURI, ToJSString localName, @@ -72,6 +112,27 @@ ((self ^. jsf "getParameter" [toJSVal namespaceURI, toJSVal localName]) >>= fromMaybeJSString) + +-- | +getParameter_ :: + (MonadDOM m, ToJSString namespaceURI, ToJSString localName) => + XSLTProcessor -> namespaceURI -> localName -> m () +getParameter_ self namespaceURI localName + = liftDOM + (void + (self ^. jsf "getParameter" + [toJSVal namespaceURI, toJSVal localName])) + +-- | +getParameterUnchecked :: + (MonadDOM m, ToJSString namespaceURI, ToJSString localName, + FromJSString result) => + XSLTProcessor -> namespaceURI -> localName -> m result +getParameterUnchecked self namespaceURI localName + = liftDOM + ((self ^. jsf "getParameter" + [toJSVal namespaceURI, toJSVal localName]) + >>= fromJSValUnchecked) -- | removeParameter :: diff --git a/src/JSDOM/Types.hs b/src/JSDOM/Types.hs --- a/src/JSDOM/Types.hs +++ b/src/JSDOM/Types.hs @@ -6,19 +6,35 @@ {-# LANGUAGE LambdaCase #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Types ( - -- * Monad - DOM, DOMContext, askDOM, runDOM, MonadDOM(..) + -- * JavaScript Context and Monad + JSContextRef(..), JSM, askJSM, runJSM, MonadJSM(..), liftJSM - -- * Object - , maybeNullOrUndefined, maybeNullOrUndefined', maybeToNullable - , propagateGError, GType(..) - , GObject(..), IsGObject, toGObject, castToGObject, gTypeGObject, unsafeCastGObject, isA, objectToString - , ToJSVal(..), FromJSVal(..), fromJSArray, fromJSArrayUnchecked + -- * DOM Context and Monad + , DOMContext(..), DOM, askDOM, runDOM, MonadDOM(..), liftDOM - -- * DOMString - , DOMString(..), ToDOMString(..), FromDOMString(..), IsDOMString, ToJSString(..), FromJSString(..) + -- * JavaScript Value + , JSVal(..), ToJSVal(..), FromJSVal(..) + + -- * JavaScript String + , JSString(..), ToJSString(..), FromJSString(..) , toMaybeJSString, fromMaybeJSString + -- * JavaScript Array + , fromJSArray, fromJSArrayUnchecked + + -- * JavaScript Object + , Object(..) + + -- * Nullable + , Nullable(..), nullableToMaybe, maybeToNullable + + -- * DOM String + , DOMString(..), ToDOMString(..), FromDOMString(..), IsDOMString + + -- * Object + , maybeNullOrUndefined, maybeNullOrUndefined', GType(..) + , GObject(..), IsGObject, toGObject, castToGObject, gTypeGObject, unsafeCastGObject, isA, objectToString + -- * Callbacks , Callback(..) , withCallback @@ -672,7 +688,8 @@ (Object(..), valToBool, valNull, valToNumber, (!!), js, JSVal, JSString, JSM, maybeNullOrUndefined, maybeNullOrUndefined', valToStr, jsg, ToJSString(..), strToText, MakeObject(..), - Nullable(..), Function(..), freeFunction, instanceOf, JSContextRef) + Nullable(..), Function(..), freeFunction, instanceOf, JSContextRef, + askJSM, runJSM, MonadJSM(..), liftJSM) import Foreign.Ptr (nullPtr) import Control.Lens.Operators ((^.)) import Data.Maybe (catMaybes) @@ -682,33 +699,24 @@ import Control.Monad.Trans.Reader (ReaderT(..), ask) import Control.Exception (bracket) +-- | This is the same as 'JSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) type DOM = JSM +-- | This is the same as 'JSContextRef' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) type DOMContext = JSContextRef - -askDOM :: MonadDOM m => m DOMContext -askDOM = liftDOM ask - -runDOM :: DOM a -> DOMContext -> IO a -runDOM = runReaderT - -class (Applicative m, MonadIO m) => MonadDOM m where - liftDOM :: JSM a -> m a - {-# MINIMAL liftDOM #-} - -instance MonadDOM JSM where - liftDOM = id - {-# INLINE liftDOM #-} +-- | This is the same as 'MonadJSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) +type MonadDOM = MonadJSM -#ifdef ghcjs_HOST_OS -postGUIAsync :: IO () -> IO () -postGUIAsync = id +-- | This is the same as 'liftJSM' except when using ghcjs-dom-webkit with GHC (instead of ghcjs-dom-jsaddle) +liftDOM :: MonadDOM m => DOM a -> m a +liftDOM = liftJSM -postGUISync :: IO a -> IO a -postGUISync = id -#endif +-- | 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 = askJSM -propagateGError :: a -> a -propagateGError = id +-- | 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 = runJSM newtype GType = GType Object @@ -892,7 +900,6 @@ type ToDOMString s = ToJSString s type FromDOMString s = FromJSString s - type IsDOMString s = (ToDOMString s, FromDOMString s) -- Callbacks @@ -901,11 +908,11 @@ withCallback :: (MonadDOM m, Coercible c Function) => JSM c -> (c -> JSM a) -> m a withCallback aquire f = do - jsCtx <- liftDOM ask + jsCtx <- askJSM liftIO $ bracket - (runReaderT aquire jsCtx) - ((`runReaderT` jsCtx) . freeFunction . coerce) - (\t -> runReaderT (f t) jsCtx) + (runJSM aquire jsCtx) + ((`runJSM` jsCtx) . freeFunction . coerce) + (\t -> runJSM (f t) jsCtx) newtype AudioBufferCallback = AudioBufferCallback (Callback (JSVal -> IO ())) instance ToJSVal AudioBufferCallback where toJSVal (AudioBufferCallback (Callback r)) = toJSVal r