packages feed

ghcjs-dom 0.2.1.0 → 0.2.2.0

raw patch · 525 files changed

+39070/−43876 lines, 525 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- GHCJS.DOM.EventM: newListener :: IsEvent e => EventM t e () -> IO (SaferEventListener t e)
+ GHCJS.DOM.EventM: newListener :: (IsEvent e) => EventM t e () -> IO (SaferEventListener t e)
- GHCJS.DOM.EventM: newListenerAsync :: IsEvent e => EventM t e () -> IO (SaferEventListener t e)
+ GHCJS.DOM.EventM: newListenerAsync :: (IsEvent e) => EventM t e () -> IO (SaferEventListener t e)
- GHCJS.DOM.EventM: newListenerSync :: IsEvent e => EventM t e () -> IO (SaferEventListener t e)
+ GHCJS.DOM.EventM: newListenerSync :: (IsEvent e) => EventM t e () -> IO (SaferEventListener t e)

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

Files

ghcjs-dom.cabal view
@@ -1,5 +1,5 @@ name: ghcjs-dom-version: 0.2.1.0+version: 0.2.2.0 cabal-version: >=1.10 build-type: Simple license: MIT
src/GHCJS/DOM.hs view
@@ -59,20 +59,20 @@  #ifdef ghcjs_HOST_OS foreign import javascript unsafe "$r = window"-  ghcjs_currentWindow :: IO (JSRef Window)+  ghcjs_currentWindow :: IO (Nullable Window) foreign import javascript unsafe "$r = document"-  ghcjs_currentDocument :: IO (JSRef Document)+  ghcjs_currentDocument :: IO (Nullable Document) #else-ghcjs_currentWindow :: IO (JSRef Window)+ghcjs_currentWindow :: IO (Nullable Window) ghcjs_currentWindow = undefined-ghcjs_currentDocument :: IO (JSRef Document)+ghcjs_currentDocument :: IO (Nullable Document) ghcjs_currentDocument = undefined #endif  currentWindow :: IO (Maybe Window)-currentWindow = fmap Window . maybeJSNullOrUndefined <$> ghcjs_currentWindow+currentWindow = nullableToMaybe <$> ghcjs_currentWindow currentDocument :: IO (Maybe Document)-currentDocument = fmap Document . maybeJSNullOrUndefined <$> ghcjs_currentDocument+currentDocument = nullableToMaybe <$> ghcjs_currentDocument  type WebView = Window castToWebView = id
src/GHCJS/DOM/EventTargetClosures.hs view
@@ -10,33 +10,33 @@ import GHCJS.Foreign.Callback import GHCJS.Marshal.Pure import GHCJS.DOM.Types-import GHCJS.Marshal.Pure (pToJSRef, pFromJSRef)+import GHCJS.Foreign.Callback.Internal  newtype EventName t e = EventName DOMString newtype SaferEventListener t e = SaferEventListener EventListener  instance PToJSRef (SaferEventListener t e) where-    pToJSRef (SaferEventListener l) = castRef $ pToJSRef l+    pToJSRef (SaferEventListener l) = pToJSRef l     {-# INLINE pToJSRef #-}  instance PFromJSRef (SaferEventListener t e) where-    pFromJSRef = SaferEventListener . pFromJSRef . castRef+    pFromJSRef = SaferEventListener . pFromJSRef     {-# INLINE pFromJSRef #-}  unsafeEventName :: DOMString -> EventName t e unsafeEventName = EventName  eventListenerNew :: IsEvent event => (event -> IO ()) -> IO EventListener-eventListenerNew callback = (EventListener . castRef . pToJSRef) <$> syncCallback1 ContinueAsync (callback . unsafeCastGObject . GObject)+eventListenerNew callback = (EventListener . jsref) <$> syncCallback1 ContinueAsync (callback . unsafeCastGObject . GObject)  eventListenerNewSync :: IsEvent event => (event -> IO ()) -> IO EventListener-eventListenerNewSync callback = (EventListener . castRef . pToJSRef) <$> syncCallback1 ThrowWouldBlock (callback . unsafeCastGObject . GObject)+eventListenerNewSync callback = (EventListener . jsref) <$> syncCallback1 ThrowWouldBlock (callback . unsafeCastGObject . GObject)  eventListenerNewAsync :: IsEvent event => (event -> IO ()) -> IO EventListener-eventListenerNewAsync callback = (EventListener . castRef . pToJSRef) <$> asyncCallback1 (callback . unsafeCastGObject . GObject)+eventListenerNewAsync callback = (EventListener . jsref) <$> asyncCallback1 (callback . unsafeCastGObject . GObject)  eventListenerRelease :: EventListener -> IO ()-eventListenerRelease (EventListener ref) = releaseCallback (Callback $ castRef ref)+eventListenerRelease (EventListener ref) = releaseCallback (Callback ref)  #else module GHCJS.DOM.EventTargetClosures (
src/GHCJS/DOM/JSFFI/AudioContext.hs view
@@ -23,13 +23,13 @@  foreign import javascript interruptible         "$1[\"decodeAudioData\"]($2, $c, function() { $c(null); });" js_decodeAudioData ::-        JSRef AudioContext -> JSRef ArrayBuffer -> IO (JSRef AudioBuffer)+        AudioContext -> ArrayBuffer -> IO (Nullable AudioBuffer)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.decodeAudioData Mozilla AudioContext.decodeAudioData documentation> decodeAudioData :: (MonadIO m, IsAudioContext self, IsArrayBuffer audioData) =>                    self -> audioData -> m AudioBuffer-decodeAudioData self audioData = liftIO $ js_decodeAudioData-        (unAudioContext (toAudioContext self))-        (unArrayBuffer  (toArrayBuffer audioData))-            >>= fromJSRef >>= maybe (throwIO DecodeAudioError) return+decodeAudioData self audioData = liftIO $ nullableToMaybe <$> js_decodeAudioData+        (toAudioContext self)+        (toArrayBuffer audioData)+            >>= maybe (throwIO DecodeAudioError) return
src/GHCJS/DOM/JSFFI/Database.hs view
@@ -30,19 +30,20 @@ import GHCJS.DOM.JSFFI.Generated.Database as Generated hiding (js_changeVersion, changeVersion, js_transaction, transaction, js_readTransaction, readTransaction)  withSQLTransactionCallback :: (SQLTransaction -> IO ()) -> (SQLTransactionCallback -> IO a) -> IO a-withSQLTransactionCallback f = bracket (newSQLTransactionCallbackSync (f . fromJust)) releaseCallback+withSQLTransactionCallback f = bracket (newSQLTransactionCallbackSync (f . fromJust)) (\(SQLTransactionCallback c) -> releaseCallback c)  foreign import javascript interruptible         "$1[\"changeVersion\"]($2, $3, $4, $c, function() { $c(null); });"-        js_changeVersion :: JSRef Database -> JSString -> JSString -> JSRef SQLTransactionCallback -> IO (JSRef SQLError)+        js_changeVersion :: Database -> JSString -> JSString -> Nullable SQLTransactionCallback -> IO (Nullable SQLError)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.changeVersion Mozilla Database.changeVersion documentation> changeVersion' :: (MonadIO m, ToJSString oldVersion, ToJSString newVersion) =>                   Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> IO ()) -> m (Maybe SQLError)-changeVersion' self oldVersion newVersion Nothing = liftIO $-    js_changeVersion (unDatabase self) (toJSString oldVersion) (toJSString newVersion) jsNull >>= fromJSRef-changeVersion' self oldVersion newVersion (Just callback) = liftIO $ withSQLTransactionCallback callback-    (js_changeVersion (unDatabase self) (toJSString oldVersion) (toJSString newVersion) . pToJSRef) >>= fromJSRef+changeVersion' self oldVersion newVersion Nothing = liftIO $ nullableToMaybe <$>+    js_changeVersion self (toJSString oldVersion) (toJSString newVersion) (Nullable jsNull)+changeVersion' self oldVersion newVersion (Just callback) = liftIO $ nullableToMaybe <$>+    withSQLTransactionCallback callback+        (js_changeVersion self (toJSString oldVersion) (toJSString newVersion) . Nullable . pToJSRef)  changeVersion :: (MonadIO m, ToJSString oldVersion, ToJSString newVersion) =>                  Database -> oldVersion -> newVersion -> Maybe (SQLTransaction -> IO ()) -> m ()@@ -50,24 +51,25 @@     changeVersion' self oldVersion newVersion callback >>= maybe (return ()) throwSQLException  foreign import javascript interruptible "$1[\"transaction\"]($2, $c, function() { $c(null); });"-        js_transaction :: JSRef Database -> JSRef SQLTransactionCallback -> IO (JSRef SQLError)+        js_transaction :: Database -> SQLTransactionCallback -> IO (Nullable SQLError)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.transaction Mozilla Database.transaction documentation> transaction' :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m (Maybe SQLError)-transaction' self callback = liftIO $ withSQLTransactionCallback callback-    (js_transaction (unDatabase self) . pToJSRef) >>= fromJSRef+transaction' self callback = liftIO $ nullableToMaybe <$>+    withSQLTransactionCallback callback+        (js_transaction self)  transaction :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m () transaction self callback = transaction' self callback >>= maybe (return ()) throwSQLException  foreign import javascript interruptible         "$1[\"readTransaction\"]($2, $c, function() { $c(null); });"-        js_readTransaction :: JSRef Database -> JSRef SQLTransactionCallback -> IO (JSRef SQLError)+        js_readTransaction :: Database -> SQLTransactionCallback -> IO (Nullable SQLError)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.readTransaction Mozilla Database.readTransaction documentation> readTransaction' :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m (Maybe SQLError)-readTransaction' self callback = liftIO $-      withSQLTransactionCallback callback (js_readTransaction (unDatabase self) . pToJSRef) >>= fromJSRef+readTransaction' self callback = liftIO $ nullableToMaybe <$>+      withSQLTransactionCallback callback (js_readTransaction self)  readTransaction :: (MonadIO m) => Database -> (SQLTransaction -> IO ()) -> m () readTransaction self callback = readTransaction' self callback >>= maybe (return ()) throwSQLException
src/GHCJS/DOM/JSFFI/Generated/ANGLEInstancedArrays.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,7 +24,7 @@ foreign import javascript unsafe         "$1[\"drawArraysInstancedANGLE\"]($2,\n$3, $4, $5)"         js_drawArraysInstancedANGLE ::-        JSRef ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> IO ()+        ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.drawArraysInstancedANGLE Mozilla ANGLEInstancedArrays.drawArraysInstancedANGLE documentation>  drawArraysInstancedANGLE ::@@ -32,15 +32,12 @@                            ANGLEInstancedArrays -> Word -> Int -> Int -> Int -> m () drawArraysInstancedANGLE self mode first count primcount   = liftIO-      (js_drawArraysInstancedANGLE (unANGLEInstancedArrays self) mode-         first-         count-         primcount)+      (js_drawArraysInstancedANGLE (self) mode first count primcount)   foreign import javascript unsafe         "$1[\"drawElementsInstancedANGLE\"]($2,\n$3, $4, $5, $6)"         js_drawElementsInstancedANGLE ::-        JSRef ANGLEInstancedArrays ->+        ANGLEInstancedArrays ->           Word -> Int -> Word -> Double -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.drawElementsInstancedANGLE Mozilla ANGLEInstancedArrays.drawElementsInstancedANGLE documentation> @@ -49,22 +46,18 @@                              ANGLEInstancedArrays -> Word -> Int -> Word -> Int64 -> Int -> m () drawElementsInstancedANGLE self mode count type' offset primcount   = liftIO-      (js_drawElementsInstancedANGLE (unANGLEInstancedArrays self) mode-         count-         type'+      (js_drawElementsInstancedANGLE (self) mode count type'          (fromIntegral offset)          primcount)   foreign import javascript unsafe         "$1[\"vertexAttribDivisorANGLE\"]($2,\n$3)"         js_vertexAttribDivisorANGLE ::-        JSRef ANGLEInstancedArrays -> Word -> Word -> IO ()+        ANGLEInstancedArrays -> Word -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ANGLEInstancedArrays.vertexAttribDivisorANGLE Mozilla ANGLEInstancedArrays.vertexAttribDivisorANGLE documentation>  vertexAttribDivisorANGLE ::                          (MonadIO m) => ANGLEInstancedArrays -> Word -> Word -> m () vertexAttribDivisorANGLE self index divisor-  = liftIO-      (js_vertexAttribDivisorANGLE (unANGLEInstancedArrays self) index-         divisor)+  = liftIO (js_vertexAttribDivisorANGLE (self) index divisor) pattern VERTEX_ATTRIB_ARRAY_DIVISOR_ANGLE = 35070
src/GHCJS/DOM/JSFFI/Generated/AbstractView.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,18 +19,18 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"document\"]" js_getDocument-        :: JSRef AbstractView -> IO (JSRef Document)+        :: AbstractView -> IO (Nullable Document)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.document Mozilla AbstractView.document documentation>  getDocument :: (MonadIO m) => AbstractView -> m (Maybe Document) getDocument self-  = liftIO ((js_getDocument (unAbstractView self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getDocument (self)))   foreign import javascript unsafe "$1[\"styleMedia\"]"-        js_getStyleMedia :: JSRef AbstractView -> IO (JSRef StyleMedia)+        js_getStyleMedia :: AbstractView -> IO (Nullable StyleMedia)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AbstractView.styleMedia Mozilla AbstractView.styleMedia documentation>  getStyleMedia ::               (MonadIO m) => AbstractView -> m (Maybe StyleMedia) getStyleMedia self-  = liftIO ((js_getStyleMedia (unAbstractView self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getStyleMedia (self)))
src/GHCJS/DOM/JSFFI/Generated/AbstractWorker.hs view
@@ -4,7 +4,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))
src/GHCJS/DOM/JSFFI/Generated/AllAudioCapabilities.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,23 +20,19 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"sourceId\"]" js_getSourceId-        :: JSRef AllAudioCapabilities -> IO (JSRef [result])+        :: AllAudioCapabilities -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AllAudioCapabilities.sourceId Mozilla AllAudioCapabilities.sourceId documentation>  getSourceId ::             (MonadIO m, FromJSString result) =>               AllAudioCapabilities -> m [result] getSourceId self-  = liftIO-      ((js_getSourceId (unAllAudioCapabilities self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getSourceId (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"volume\"]" js_getVolume ::-        JSRef AllAudioCapabilities -> IO (JSRef CapabilityRange)+        AllAudioCapabilities -> IO (Nullable CapabilityRange)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AllAudioCapabilities.volume Mozilla AllAudioCapabilities.volume documentation>  getVolume ::           (MonadIO m) => AllAudioCapabilities -> m (Maybe CapabilityRange)-getVolume self-  = liftIO-      ((js_getVolume (unAllAudioCapabilities self)) >>= fromJSRef)+getVolume self = liftIO (nullableToMaybe <$> (js_getVolume (self)))
src/GHCJS/DOM/JSFFI/Generated/AllVideoCapabilities.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,81 +22,67 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"sourceType\"]"-        js_getSourceType ::-        JSRef AllVideoCapabilities -> IO (JSRef [result])+        js_getSourceType :: AllVideoCapabilities -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.sourceType Mozilla AllVideoCapabilities.sourceType documentation>  getSourceType ::               (MonadIO m, FromJSString result) =>                 AllVideoCapabilities -> m [result] getSourceType self-  = liftIO-      ((js_getSourceType (unAllVideoCapabilities self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getSourceType (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"sourceId\"]" js_getSourceId-        :: JSRef AllVideoCapabilities -> IO (JSRef [result])+        :: AllVideoCapabilities -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.sourceId Mozilla AllVideoCapabilities.sourceId documentation>  getSourceId ::             (MonadIO m, FromJSString result) =>               AllVideoCapabilities -> m [result] getSourceId self-  = liftIO-      ((js_getSourceId (unAllVideoCapabilities self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getSourceId (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef AllVideoCapabilities -> IO (JSRef CapabilityRange)+        AllVideoCapabilities -> IO (Nullable CapabilityRange)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.width Mozilla AllVideoCapabilities.width documentation>  getWidth ::          (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange)-getWidth self-  = liftIO-      ((js_getWidth (unAllVideoCapabilities self)) >>= fromJSRef)+getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef AllVideoCapabilities -> IO (JSRef CapabilityRange)+        AllVideoCapabilities -> IO (Nullable CapabilityRange)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.height Mozilla AllVideoCapabilities.height documentation>  getHeight ::           (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange)-getHeight self-  = liftIO-      ((js_getHeight (unAllVideoCapabilities self)) >>= fromJSRef)+getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"frameRate\"]"         js_getFrameRate ::-        JSRef AllVideoCapabilities -> IO (JSRef CapabilityRange)+        AllVideoCapabilities -> IO (Nullable CapabilityRange)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.frameRate Mozilla AllVideoCapabilities.frameRate documentation>  getFrameRate ::              (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange) getFrameRate self-  = liftIO-      ((js_getFrameRate (unAllVideoCapabilities self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getFrameRate (self)))   foreign import javascript unsafe "$1[\"aspectRatio\"]"         js_getAspectRatio ::-        JSRef AllVideoCapabilities -> IO (JSRef CapabilityRange)+        AllVideoCapabilities -> IO (Nullable CapabilityRange)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.aspectRatio Mozilla AllVideoCapabilities.aspectRatio documentation>  getAspectRatio ::                (MonadIO m) => AllVideoCapabilities -> m (Maybe CapabilityRange) getAspectRatio self-  = liftIO-      ((js_getAspectRatio (unAllVideoCapabilities self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAspectRatio (self)))   foreign import javascript unsafe "$1[\"facingMode\"]"-        js_getFacingMode ::-        JSRef AllVideoCapabilities -> IO (JSRef [result])+        js_getFacingMode :: AllVideoCapabilities -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AllVideoCapabilities.facingMode Mozilla AllVideoCapabilities.facingMode documentation>  getFacingMode ::               (MonadIO m, FromJSString result) =>                 AllVideoCapabilities -> m [result] getFacingMode self-  = liftIO-      ((js_getFacingMode (unAllVideoCapabilities self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getFacingMode (self)) >>= fromJSRefUnchecked)
src/GHCJS/DOM/JSFFI/Generated/AnalyserNode.hs view
@@ -13,7 +13,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -28,7 +28,7 @@   foreign import javascript unsafe         "$1[\"getFloatFrequencyData\"]($2)" js_getFloatFrequencyData ::-        JSRef AnalyserNode -> JSRef Float32Array -> IO ()+        AnalyserNode -> Nullable Float32Array -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getFloatFrequencyData Mozilla AnalyserNode.getFloatFrequencyData documentation>  getFloatFrequencyData ::@@ -36,12 +36,12 @@                         AnalyserNode -> Maybe array -> m () getFloatFrequencyData self array   = liftIO-      (js_getFloatFrequencyData (unAnalyserNode self)-         (maybe jsNull (unFloat32Array . toFloat32Array) array))+      (js_getFloatFrequencyData (self)+         (maybeToNullable (fmap toFloat32Array array)))   foreign import javascript unsafe "$1[\"getByteFrequencyData\"]($2)"         js_getByteFrequencyData ::-        JSRef AnalyserNode -> JSRef Uint8Array -> IO ()+        AnalyserNode -> Nullable Uint8Array -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getByteFrequencyData Mozilla AnalyserNode.getByteFrequencyData documentation>  getByteFrequencyData ::@@ -49,12 +49,12 @@                        AnalyserNode -> Maybe array -> m () getByteFrequencyData self array   = liftIO-      (js_getByteFrequencyData (unAnalyserNode self)-         (maybe jsNull (unUint8Array . toUint8Array) array))+      (js_getByteFrequencyData (self)+         (maybeToNullable (fmap toUint8Array array)))   foreign import javascript unsafe         "$1[\"getByteTimeDomainData\"]($2)" js_getByteTimeDomainData ::-        JSRef AnalyserNode -> JSRef Uint8Array -> IO ()+        AnalyserNode -> Nullable Uint8Array -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.getByteTimeDomainData Mozilla AnalyserNode.getByteTimeDomainData documentation>  getByteTimeDomainData ::@@ -62,78 +62,72 @@                         AnalyserNode -> Maybe array -> m () getByteTimeDomainData self array   = liftIO-      (js_getByteTimeDomainData (unAnalyserNode self)-         (maybe jsNull (unUint8Array . toUint8Array) array))+      (js_getByteTimeDomainData (self)+         (maybeToNullable (fmap toUint8Array array)))   foreign import javascript unsafe "$1[\"fftSize\"] = $2;"-        js_setFftSize :: JSRef AnalyserNode -> Word -> IO ()+        js_setFftSize :: AnalyserNode -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.fftSize Mozilla AnalyserNode.fftSize documentation>  setFftSize :: (MonadIO m) => AnalyserNode -> Word -> m ()-setFftSize self val-  = liftIO (js_setFftSize (unAnalyserNode self) val)+setFftSize self val = liftIO (js_setFftSize (self) val)   foreign import javascript unsafe "$1[\"fftSize\"]" js_getFftSize ::-        JSRef AnalyserNode -> IO Word+        AnalyserNode -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.fftSize Mozilla AnalyserNode.fftSize documentation>  getFftSize :: (MonadIO m) => AnalyserNode -> m Word-getFftSize self = liftIO (js_getFftSize (unAnalyserNode self))+getFftSize self = liftIO (js_getFftSize (self))   foreign import javascript unsafe "$1[\"frequencyBinCount\"]"-        js_getFrequencyBinCount :: JSRef AnalyserNode -> IO Word+        js_getFrequencyBinCount :: AnalyserNode -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.frequencyBinCount Mozilla AnalyserNode.frequencyBinCount documentation>  getFrequencyBinCount :: (MonadIO m) => AnalyserNode -> m Word-getFrequencyBinCount self-  = liftIO (js_getFrequencyBinCount (unAnalyserNode self))+getFrequencyBinCount self = liftIO (js_getFrequencyBinCount (self))   foreign import javascript unsafe "$1[\"minDecibels\"] = $2;"-        js_setMinDecibels :: JSRef AnalyserNode -> Double -> IO ()+        js_setMinDecibels :: AnalyserNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.minDecibels Mozilla AnalyserNode.minDecibels documentation>  setMinDecibels :: (MonadIO m) => AnalyserNode -> Double -> m ()-setMinDecibels self val-  = liftIO (js_setMinDecibels (unAnalyserNode self) val)+setMinDecibels self val = liftIO (js_setMinDecibels (self) val)   foreign import javascript unsafe "$1[\"minDecibels\"]"-        js_getMinDecibels :: JSRef AnalyserNode -> IO Double+        js_getMinDecibels :: AnalyserNode -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.minDecibels Mozilla AnalyserNode.minDecibels documentation>  getMinDecibels :: (MonadIO m) => AnalyserNode -> m Double-getMinDecibels self-  = liftIO (js_getMinDecibels (unAnalyserNode self))+getMinDecibels self = liftIO (js_getMinDecibels (self))   foreign import javascript unsafe "$1[\"maxDecibels\"] = $2;"-        js_setMaxDecibels :: JSRef AnalyserNode -> Double -> IO ()+        js_setMaxDecibels :: AnalyserNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.maxDecibels Mozilla AnalyserNode.maxDecibels documentation>  setMaxDecibels :: (MonadIO m) => AnalyserNode -> Double -> m ()-setMaxDecibels self val-  = liftIO (js_setMaxDecibels (unAnalyserNode self) val)+setMaxDecibels self val = liftIO (js_setMaxDecibels (self) val)   foreign import javascript unsafe "$1[\"maxDecibels\"]"-        js_getMaxDecibels :: JSRef AnalyserNode -> IO Double+        js_getMaxDecibels :: AnalyserNode -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.maxDecibels Mozilla AnalyserNode.maxDecibels documentation>  getMaxDecibels :: (MonadIO m) => AnalyserNode -> m Double-getMaxDecibels self-  = liftIO (js_getMaxDecibels (unAnalyserNode self))+getMaxDecibels self = liftIO (js_getMaxDecibels (self))   foreign import javascript unsafe         "$1[\"smoothingTimeConstant\"] = $2;" js_setSmoothingTimeConstant-        :: JSRef AnalyserNode -> Double -> IO ()+        :: AnalyserNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.smoothingTimeConstant Mozilla AnalyserNode.smoothingTimeConstant documentation>  setSmoothingTimeConstant ::                          (MonadIO m) => AnalyserNode -> Double -> m () setSmoothingTimeConstant self val-  = liftIO (js_setSmoothingTimeConstant (unAnalyserNode self) val)+  = liftIO (js_setSmoothingTimeConstant (self) val)   foreign import javascript unsafe "$1[\"smoothingTimeConstant\"]"-        js_getSmoothingTimeConstant :: JSRef AnalyserNode -> IO Double+        js_getSmoothingTimeConstant :: AnalyserNode -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnalyserNode.smoothingTimeConstant Mozilla AnalyserNode.smoothingTimeConstant documentation>  getSmoothingTimeConstant :: (MonadIO m) => AnalyserNode -> m Double getSmoothingTimeConstant self-  = liftIO (js_getSmoothingTimeConstant (unAnalyserNode self))+  = liftIO (js_getSmoothingTimeConstant (self))
src/GHCJS/DOM/JSFFI/Generated/AnimationEvent.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,19 +20,17 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"animationName\"]"-        js_getAnimationName :: JSRef AnimationEvent -> IO JSString+        js_getAnimationName :: AnimationEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent.animationName Mozilla AnimationEvent.animationName documentation>  getAnimationName ::                  (MonadIO m, FromJSString result) => AnimationEvent -> m result getAnimationName self-  = liftIO-      (fromJSString <$> (js_getAnimationName (unAnimationEvent self)))+  = liftIO (fromJSString <$> (js_getAnimationName (self)))   foreign import javascript unsafe "$1[\"elapsedTime\"]"-        js_getElapsedTime :: JSRef AnimationEvent -> IO Double+        js_getElapsedTime :: AnimationEvent -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AnimationEvent.elapsedTime Mozilla AnimationEvent.elapsedTime documentation>  getElapsedTime :: (MonadIO m) => AnimationEvent -> m Double-getElapsedTime self-  = liftIO (js_getElapsedTime (unAnimationEvent self))+getElapsedTime self = liftIO (js_getElapsedTime (self))
src/GHCJS/DOM/JSFFI/Generated/ApplicationCache.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,25 +23,25 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"update\"]()" js_update ::-        JSRef ApplicationCache -> IO ()+        ApplicationCache -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.update Mozilla ApplicationCache.update documentation>  update :: (MonadIO m) => ApplicationCache -> m ()-update self = liftIO (js_update (unApplicationCache self))+update self = liftIO (js_update (self))   foreign import javascript unsafe "$1[\"swapCache\"]()" js_swapCache-        :: JSRef ApplicationCache -> IO ()+        :: ApplicationCache -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.swapCache Mozilla ApplicationCache.swapCache documentation>  swapCache :: (MonadIO m) => ApplicationCache -> m ()-swapCache self = liftIO (js_swapCache (unApplicationCache self))+swapCache self = liftIO (js_swapCache (self))   foreign import javascript unsafe "$1[\"abort\"]()" js_abort ::-        JSRef ApplicationCache -> IO ()+        ApplicationCache -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.abort Mozilla ApplicationCache.abort documentation>  abort :: (MonadIO m) => ApplicationCache -> m ()-abort self = liftIO (js_abort (unApplicationCache self))+abort self = liftIO (js_abort (self)) pattern UNCACHED = 0 pattern IDLE = 1 pattern CHECKING = 2@@ -50,11 +50,11 @@ pattern OBSOLETE = 5   foreign import javascript unsafe "$1[\"status\"]" js_getStatus ::-        JSRef ApplicationCache -> IO Word+        ApplicationCache -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.status Mozilla ApplicationCache.status documentation>  getStatus :: (MonadIO m) => ApplicationCache -> m Word-getStatus self = liftIO (js_getStatus (unApplicationCache self))+getStatus self = liftIO (js_getStatus (self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ApplicationCache.onchecking Mozilla ApplicationCache.onchecking documentation>  checking :: EventName ApplicationCache Event
src/GHCJS/DOM/JSFFI/Generated/Attr.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,50 +20,48 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef Attr -> IO (JSRef (Maybe JSString))+        Attr -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.name Mozilla Attr.name documentation>  getName ::         (MonadIO m, FromJSString result) => Attr -> m (Maybe result)-getName self-  = liftIO (fromMaybeJSString <$> (js_getName (unAttr self)))+getName self = liftIO (fromMaybeJSString <$> (js_getName (self)))   foreign import javascript unsafe "($1[\"specified\"] ? 1 : 0)"-        js_getSpecified :: JSRef Attr -> IO Bool+        js_getSpecified :: Attr -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.specified Mozilla Attr.specified documentation>  getSpecified :: (MonadIO m) => Attr -> m Bool-getSpecified self = liftIO (js_getSpecified (unAttr self))+getSpecified self = liftIO (js_getSpecified (self))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef Attr -> JSRef (Maybe JSString) -> IO ()+        :: Attr -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation>  setValue ::          (MonadIO m, ToJSString val) => Attr -> Maybe val -> m () setValue self val-  = liftIO (js_setValue (unAttr self) (toMaybeJSString val))+  = liftIO (js_setValue (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef Attr -> IO (JSRef (Maybe JSString))+        Attr -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.value Mozilla Attr.value documentation>  getValue ::          (MonadIO m, FromJSString result) => Attr -> m (Maybe result)-getValue self-  = liftIO (fromMaybeJSString <$> (js_getValue (unAttr self)))+getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))   foreign import javascript unsafe "$1[\"ownerElement\"]"-        js_getOwnerElement :: JSRef Attr -> IO (JSRef Element)+        js_getOwnerElement :: Attr -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.ownerElement Mozilla Attr.ownerElement documentation>  getOwnerElement :: (MonadIO m) => Attr -> m (Maybe Element) getOwnerElement self-  = liftIO ((js_getOwnerElement (unAttr self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getOwnerElement (self)))   foreign import javascript unsafe "($1[\"isId\"] ? 1 : 0)"-        js_getIsId :: JSRef Attr -> IO Bool+        js_getIsId :: Attr -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Attr.isId Mozilla Attr.isId documentation>  getIsId :: (MonadIO m) => Attr -> m Bool-getIsId self = liftIO (js_getIsId (unAttr self))+getIsId self = liftIO (js_getIsId (self))
src/GHCJS/DOM/JSFFI/Generated/AudioBuffer.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,55 +23,53 @@   foreign import javascript unsafe "$1[\"getChannelData\"]($2)"         js_getChannelData ::-        JSRef AudioBuffer -> Word -> IO (JSRef Float32Array)+        AudioBuffer -> Word -> IO (Nullable Float32Array)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.getChannelData Mozilla AudioBuffer.getChannelData documentation>  getChannelData ::                (MonadIO m) => AudioBuffer -> Word -> m (Maybe Float32Array) getChannelData self channelIndex   = liftIO-      ((js_getChannelData (unAudioBuffer self) channelIndex) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getChannelData (self) channelIndex))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef AudioBuffer -> IO Int+        AudioBuffer -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.length Mozilla AudioBuffer.length documentation>  getLength :: (MonadIO m) => AudioBuffer -> m Int-getLength self = liftIO (js_getLength (unAudioBuffer self))+getLength self = liftIO (js_getLength (self))   foreign import javascript unsafe "$1[\"duration\"]" js_getDuration-        :: JSRef AudioBuffer -> IO Float+        :: AudioBuffer -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.duration Mozilla AudioBuffer.duration documentation>  getDuration :: (MonadIO m) => AudioBuffer -> m Float-getDuration self = liftIO (js_getDuration (unAudioBuffer self))+getDuration self = liftIO (js_getDuration (self))   foreign import javascript unsafe "$1[\"sampleRate\"]"-        js_getSampleRate :: JSRef AudioBuffer -> IO Float+        js_getSampleRate :: AudioBuffer -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.sampleRate Mozilla AudioBuffer.sampleRate documentation>  getSampleRate :: (MonadIO m) => AudioBuffer -> m Float-getSampleRate self = liftIO (js_getSampleRate (unAudioBuffer self))+getSampleRate self = liftIO (js_getSampleRate (self))   foreign import javascript unsafe "$1[\"gain\"] = $2;" js_setGain ::-        JSRef AudioBuffer -> Float -> IO ()+        AudioBuffer -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.gain Mozilla AudioBuffer.gain documentation>  setGain :: (MonadIO m) => AudioBuffer -> Float -> m ()-setGain self val = liftIO (js_setGain (unAudioBuffer self) val)+setGain self val = liftIO (js_setGain (self) val)   foreign import javascript unsafe "$1[\"gain\"]" js_getGain ::-        JSRef AudioBuffer -> IO Float+        AudioBuffer -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.gain Mozilla AudioBuffer.gain documentation>  getGain :: (MonadIO m) => AudioBuffer -> m Float-getGain self = liftIO (js_getGain (unAudioBuffer self))+getGain self = liftIO (js_getGain (self))   foreign import javascript unsafe "$1[\"numberOfChannels\"]"-        js_getNumberOfChannels :: JSRef AudioBuffer -> IO Word+        js_getNumberOfChannels :: AudioBuffer -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBuffer.numberOfChannels Mozilla AudioBuffer.numberOfChannels documentation>  getNumberOfChannels :: (MonadIO m) => AudioBuffer -> m Word-getNumberOfChannels self-  = liftIO (js_getNumberOfChannels (unAudioBuffer self))+getNumberOfChannels self = liftIO (js_getNumberOfChannels (self))
src/GHCJS/DOM/JSFFI/Generated/AudioBufferCallback.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,10 +24,11 @@                          (Maybe AudioBuffer -> IO ()) -> m AudioBufferCallback newAudioBufferCallback callback   = liftIO-      (syncCallback1 ThrowWouldBlock-         (\ audioBuffer ->-            fromJSRefUnchecked audioBuffer >>=-              \ audioBuffer' -> callback audioBuffer'))+      (AudioBufferCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ audioBuffer ->+              fromJSRefUnchecked audioBuffer >>=+                \ audioBuffer' -> callback audioBuffer'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation>  newAudioBufferCallbackSync ::@@ -35,10 +36,11 @@                              (Maybe AudioBuffer -> IO ()) -> m AudioBufferCallback newAudioBufferCallbackSync callback   = liftIO-      (syncCallback1 ContinueAsync-         (\ audioBuffer ->-            fromJSRefUnchecked audioBuffer >>=-              \ audioBuffer' -> callback audioBuffer'))+      (AudioBufferCallback <$>+         syncCallback1 ContinueAsync+           (\ audioBuffer ->+              fromJSRefUnchecked audioBuffer >>=+                \ audioBuffer' -> callback audioBuffer'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferCallback Mozilla AudioBufferCallback documentation>  newAudioBufferCallbackAsync ::@@ -46,7 +48,8 @@                               (Maybe AudioBuffer -> IO ()) -> m AudioBufferCallback newAudioBufferCallbackAsync callback   = liftIO-      (asyncCallback1-         (\ audioBuffer ->-            fromJSRefUnchecked audioBuffer >>=-              \ audioBuffer' -> callback audioBuffer'))+      (AudioBufferCallback <$>+         asyncCallback1+           (\ audioBuffer ->+              fromJSRefUnchecked audioBuffer >>=+                \ audioBuffer' -> callback audioBuffer'))
src/GHCJS/DOM/JSFFI/Generated/AudioBufferSourceNode.hs view
@@ -14,7 +14,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -29,53 +29,46 @@   foreign import javascript unsafe "$1[\"start\"]($2, $3, $4)"         js_start ::-        JSRef AudioBufferSourceNode -> Double -> Double -> Double -> IO ()+        AudioBufferSourceNode -> Double -> Double -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.start Mozilla AudioBufferSourceNode.start documentation>  start ::       (MonadIO m) =>         AudioBufferSourceNode -> Double -> Double -> Double -> m () start self when grainOffset grainDuration-  = liftIO-      (js_start (unAudioBufferSourceNode self) when grainOffset-         grainDuration)+  = liftIO (js_start (self) when grainOffset grainDuration)   foreign import javascript unsafe "$1[\"stop\"]($2)" js_stop ::-        JSRef AudioBufferSourceNode -> Double -> IO ()+        AudioBufferSourceNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.stop Mozilla AudioBufferSourceNode.stop documentation>  stop :: (MonadIO m) => AudioBufferSourceNode -> Double -> m ()-stop self when-  = liftIO (js_stop (unAudioBufferSourceNode self) when)+stop self when = liftIO (js_stop (self) when)   foreign import javascript unsafe "$1[\"noteOn\"]($2)" js_noteOn ::-        JSRef AudioBufferSourceNode -> Double -> IO ()+        AudioBufferSourceNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.noteOn Mozilla AudioBufferSourceNode.noteOn documentation>  noteOn :: (MonadIO m) => AudioBufferSourceNode -> Double -> m ()-noteOn self when-  = liftIO (js_noteOn (unAudioBufferSourceNode self) when)+noteOn self when = liftIO (js_noteOn (self) when)   foreign import javascript unsafe "$1[\"noteGrainOn\"]($2, $3, $4)"         js_noteGrainOn ::-        JSRef AudioBufferSourceNode -> Double -> Double -> Double -> IO ()+        AudioBufferSourceNode -> Double -> Double -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.noteGrainOn Mozilla AudioBufferSourceNode.noteGrainOn documentation>  noteGrainOn ::             (MonadIO m) =>               AudioBufferSourceNode -> Double -> Double -> Double -> m () noteGrainOn self when grainOffset grainDuration-  = liftIO-      (js_noteGrainOn (unAudioBufferSourceNode self) when grainOffset-         grainDuration)+  = liftIO (js_noteGrainOn (self) when grainOffset grainDuration)   foreign import javascript unsafe "$1[\"noteOff\"]($2)" js_noteOff-        :: JSRef AudioBufferSourceNode -> Double -> IO ()+        :: AudioBufferSourceNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.noteOff Mozilla AudioBufferSourceNode.noteOff documentation>  noteOff :: (MonadIO m) => AudioBufferSourceNode -> Double -> m ()-noteOff self when-  = liftIO (js_noteOff (unAudioBufferSourceNode self) when)+noteOff self when = liftIO (js_noteOff (self) when) pattern UNSCHEDULED_STATE = 0 pattern SCHEDULED_STATE = 1 pattern PLAYING_STATE = 2@@ -83,119 +76,104 @@   foreign import javascript unsafe "$1[\"buffer\"] = $2;"         js_setBuffer ::-        JSRef AudioBufferSourceNode -> JSRef AudioBuffer -> IO ()+        AudioBufferSourceNode -> Nullable AudioBuffer -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation>  setBuffer ::           (MonadIO m) => AudioBufferSourceNode -> Maybe AudioBuffer -> m () setBuffer self val-  = liftIO-      (js_setBuffer (unAudioBufferSourceNode self)-         (maybe jsNull pToJSRef val))+  = liftIO (js_setBuffer (self) (maybeToNullable val))   foreign import javascript unsafe "$1[\"buffer\"]" js_getBuffer ::-        JSRef AudioBufferSourceNode -> IO (JSRef AudioBuffer)+        AudioBufferSourceNode -> IO (Nullable AudioBuffer)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.buffer Mozilla AudioBufferSourceNode.buffer documentation>  getBuffer ::           (MonadIO m) => AudioBufferSourceNode -> m (Maybe AudioBuffer)-getBuffer self-  = liftIO-      ((js_getBuffer (unAudioBufferSourceNode self)) >>= fromJSRef)+getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer (self)))   foreign import javascript unsafe "$1[\"playbackState\"]"-        js_getPlaybackState :: JSRef AudioBufferSourceNode -> IO Word+        js_getPlaybackState :: AudioBufferSourceNode -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackState Mozilla AudioBufferSourceNode.playbackState documentation>  getPlaybackState :: (MonadIO m) => AudioBufferSourceNode -> m Word-getPlaybackState self-  = liftIO (js_getPlaybackState (unAudioBufferSourceNode self))+getPlaybackState self = liftIO (js_getPlaybackState (self))   foreign import javascript unsafe "$1[\"gain\"]" js_getGain ::-        JSRef AudioBufferSourceNode -> IO (JSRef AudioParam)+        AudioBufferSourceNode -> IO (Nullable AudioParam)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.gain Mozilla AudioBufferSourceNode.gain documentation>  getGain ::         (MonadIO m) => AudioBufferSourceNode -> m (Maybe AudioParam)-getGain self-  = liftIO-      ((js_getGain (unAudioBufferSourceNode self)) >>= fromJSRef)+getGain self = liftIO (nullableToMaybe <$> (js_getGain (self)))   foreign import javascript unsafe "$1[\"playbackRate\"]"         js_getPlaybackRate ::-        JSRef AudioBufferSourceNode -> IO (JSRef AudioParam)+        AudioBufferSourceNode -> IO (Nullable AudioParam)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.playbackRate Mozilla AudioBufferSourceNode.playbackRate documentation>  getPlaybackRate ::                 (MonadIO m) => AudioBufferSourceNode -> m (Maybe AudioParam) getPlaybackRate self-  = liftIO-      ((js_getPlaybackRate (unAudioBufferSourceNode self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPlaybackRate (self)))   foreign import javascript unsafe "$1[\"loop\"] = $2;" js_setLoop ::-        JSRef AudioBufferSourceNode -> Bool -> IO ()+        AudioBufferSourceNode -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loop Mozilla AudioBufferSourceNode.loop documentation>  setLoop :: (MonadIO m) => AudioBufferSourceNode -> Bool -> m ()-setLoop self val-  = liftIO (js_setLoop (unAudioBufferSourceNode self) val)+setLoop self val = liftIO (js_setLoop (self) val)   foreign import javascript unsafe "($1[\"loop\"] ? 1 : 0)"-        js_getLoop :: JSRef AudioBufferSourceNode -> IO Bool+        js_getLoop :: AudioBufferSourceNode -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loop Mozilla AudioBufferSourceNode.loop documentation>  getLoop :: (MonadIO m) => AudioBufferSourceNode -> m Bool-getLoop self = liftIO (js_getLoop (unAudioBufferSourceNode self))+getLoop self = liftIO (js_getLoop (self))   foreign import javascript unsafe "$1[\"loopStart\"] = $2;"-        js_setLoopStart :: JSRef AudioBufferSourceNode -> Double -> IO ()+        js_setLoopStart :: AudioBufferSourceNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopStart Mozilla AudioBufferSourceNode.loopStart documentation>  setLoopStart ::              (MonadIO m) => AudioBufferSourceNode -> Double -> m ()-setLoopStart self val-  = liftIO (js_setLoopStart (unAudioBufferSourceNode self) val)+setLoopStart self val = liftIO (js_setLoopStart (self) val)   foreign import javascript unsafe "$1[\"loopStart\"]"-        js_getLoopStart :: JSRef AudioBufferSourceNode -> IO Double+        js_getLoopStart :: AudioBufferSourceNode -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopStart Mozilla AudioBufferSourceNode.loopStart documentation>  getLoopStart :: (MonadIO m) => AudioBufferSourceNode -> m Double-getLoopStart self-  = liftIO (js_getLoopStart (unAudioBufferSourceNode self))+getLoopStart self = liftIO (js_getLoopStart (self))   foreign import javascript unsafe "$1[\"loopEnd\"] = $2;"-        js_setLoopEnd :: JSRef AudioBufferSourceNode -> Double -> IO ()+        js_setLoopEnd :: AudioBufferSourceNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopEnd Mozilla AudioBufferSourceNode.loopEnd documentation>  setLoopEnd ::            (MonadIO m) => AudioBufferSourceNode -> Double -> m ()-setLoopEnd self val-  = liftIO (js_setLoopEnd (unAudioBufferSourceNode self) val)+setLoopEnd self val = liftIO (js_setLoopEnd (self) val)   foreign import javascript unsafe "$1[\"loopEnd\"]" js_getLoopEnd ::-        JSRef AudioBufferSourceNode -> IO Double+        AudioBufferSourceNode -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.loopEnd Mozilla AudioBufferSourceNode.loopEnd documentation>  getLoopEnd :: (MonadIO m) => AudioBufferSourceNode -> m Double-getLoopEnd self-  = liftIO (js_getLoopEnd (unAudioBufferSourceNode self))+getLoopEnd self = liftIO (js_getLoopEnd (self))   foreign import javascript unsafe "$1[\"looping\"] = $2;"-        js_setLooping :: JSRef AudioBufferSourceNode -> Bool -> IO ()+        js_setLooping :: AudioBufferSourceNode -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.looping Mozilla AudioBufferSourceNode.looping documentation>  setLooping :: (MonadIO m) => AudioBufferSourceNode -> Bool -> m ()-setLooping self val-  = liftIO (js_setLooping (unAudioBufferSourceNode self) val)+setLooping self val = liftIO (js_setLooping (self) val)   foreign import javascript unsafe "($1[\"looping\"] ? 1 : 0)"-        js_getLooping :: JSRef AudioBufferSourceNode -> IO Bool+        js_getLooping :: AudioBufferSourceNode -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.looping Mozilla AudioBufferSourceNode.looping documentation>  getLooping :: (MonadIO m) => AudioBufferSourceNode -> m Bool-getLooping self-  = liftIO (js_getLooping (unAudioBufferSourceNode self))+getLooping self = liftIO (js_getLooping (self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioBufferSourceNode.onended Mozilla AudioBufferSourceNode.onended documentation>  ended :: EventName AudioBufferSourceNode Event
src/GHCJS/DOM/JSFFI/Generated/AudioContext.hs view
@@ -27,7 +27,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -42,17 +42,15 @@   foreign import javascript unsafe         "new (window[\"AudioContext\"]\n||\nwindow[\"webkitAudioContext\"])()"-        js_newAudioContext :: IO (JSRef AudioContext)+        js_newAudioContext :: IO AudioContext  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext Mozilla AudioContext documentation>  newAudioContext :: (MonadIO m) => m AudioContext-newAudioContext-  = liftIO (js_newAudioContext >>= fromJSRefUnchecked)+newAudioContext = liftIO (js_newAudioContext)   foreign import javascript unsafe "$1[\"createBuffer\"]($2, $3, $4)"         js_createBuffer ::-        JSRef AudioContext ->-          Word -> Word -> Float -> IO (JSRef AudioBuffer)+        AudioContext -> Word -> Word -> Float -> IO (Nullable AudioBuffer)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation>  createBuffer ::@@ -60,16 +58,15 @@                self -> Word -> Word -> Float -> m (Maybe AudioBuffer) createBuffer self numberOfChannels numberOfFrames sampleRate   = liftIO-      ((js_createBuffer (unAudioContext (toAudioContext self))-          numberOfChannels-          numberOfFrames-          sampleRate)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createBuffer (toAudioContext self) numberOfChannels+            numberOfFrames+            sampleRate))   foreign import javascript unsafe "$1[\"createBuffer\"]($2, $3)"         js_createBufferFromArrayBuffer ::-        JSRef AudioContext ->-          JSRef ArrayBuffer -> Bool -> IO (JSRef AudioBuffer)+        AudioContext ->+          Nullable ArrayBuffer -> Bool -> IO (Nullable AudioBuffer)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBuffer Mozilla AudioContext.createBuffer documentation>  createBufferFromArrayBuffer ::@@ -77,17 +74,17 @@                               self -> Maybe buffer -> Bool -> m (Maybe AudioBuffer) createBufferFromArrayBuffer self buffer mixToMono   = liftIO-      ((js_createBufferFromArrayBuffer-          (unAudioContext (toAudioContext self))-          (maybe jsNull (unArrayBuffer . toArrayBuffer) buffer)-          mixToMono)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createBufferFromArrayBuffer (toAudioContext self)+            (maybeToNullable (fmap toArrayBuffer buffer))+            mixToMono))   foreign import javascript unsafe         "$1[\"decodeAudioData\"]($2, $3,\n$4)" js_decodeAudioData ::-        JSRef AudioContext ->-          JSRef ArrayBuffer ->-            JSRef AudioBufferCallback -> JSRef AudioBufferCallback -> IO ()+        AudioContext ->+          Nullable ArrayBuffer ->+            Nullable AudioBufferCallback ->+              Nullable AudioBufferCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.decodeAudioData Mozilla AudioContext.decodeAudioData documentation>  decodeAudioData ::@@ -97,14 +94,14 @@                       Maybe AudioBufferCallback -> Maybe AudioBufferCallback -> m () decodeAudioData self audioData successCallback errorCallback   = liftIO-      (js_decodeAudioData (unAudioContext (toAudioContext self))-         (maybe jsNull (unArrayBuffer . toArrayBuffer) audioData)-         (maybe jsNull pToJSRef successCallback)-         (maybe jsNull pToJSRef errorCallback))+      (js_decodeAudioData (toAudioContext self)+         (maybeToNullable (fmap toArrayBuffer audioData))+         (maybeToNullable successCallback)+         (maybeToNullable errorCallback))   foreign import javascript unsafe "$1[\"createBufferSource\"]()"         js_createBufferSource ::-        JSRef AudioContext -> IO (JSRef AudioBufferSourceNode)+        AudioContext -> IO (Nullable AudioBufferSourceNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBufferSource Mozilla AudioContext.createBufferSource documentation>  createBufferSource ::@@ -112,14 +109,14 @@                      self -> m (Maybe AudioBufferSourceNode) createBufferSource self   = liftIO-      ((js_createBufferSource (unAudioContext (toAudioContext self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_createBufferSource (toAudioContext self)))   foreign import javascript unsafe         "$1[\"createMediaElementSource\"]($2)" js_createMediaElementSource         ::-        JSRef AudioContext ->-          JSRef HTMLMediaElement -> IO (JSRef MediaElementAudioSourceNode)+        AudioContext ->+          Nullable HTMLMediaElement ->+            IO (Nullable MediaElementAudioSourceNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaElementSource Mozilla AudioContext.createMediaElementSource documentation>  createMediaElementSource ::@@ -128,16 +125,14 @@                            self -> Maybe mediaElement -> m (Maybe MediaElementAudioSourceNode) createMediaElementSource self mediaElement   = liftIO-      ((js_createMediaElementSource-          (unAudioContext (toAudioContext self))-          (maybe jsNull (unHTMLMediaElement . toHTMLMediaElement)-             mediaElement))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createMediaElementSource (toAudioContext self)+            (maybeToNullable (fmap toHTMLMediaElement mediaElement))))   foreign import javascript unsafe         "$1[\"createMediaStreamSource\"]($2)" js_createMediaStreamSource ::-        JSRef AudioContext ->-          JSRef MediaStream -> IO (JSRef MediaStreamAudioSourceNode)+        AudioContext ->+          Nullable MediaStream -> IO (Nullable MediaStreamAudioSourceNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamSource Mozilla AudioContext.createMediaStreamSource documentation>  createMediaStreamSource ::@@ -145,14 +140,14 @@                           self -> Maybe MediaStream -> m (Maybe MediaStreamAudioSourceNode) createMediaStreamSource self mediaStream   = liftIO-      ((js_createMediaStreamSource (unAudioContext (toAudioContext self))-          (maybe jsNull pToJSRef mediaStream))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createMediaStreamSource (toAudioContext self)+            (maybeToNullable mediaStream)))   foreign import javascript unsafe         "$1[\"createMediaStreamDestination\"]()"         js_createMediaStreamDestination ::-        JSRef AudioContext -> IO (JSRef MediaStreamAudioDestinationNode)+        AudioContext -> IO (Nullable MediaStreamAudioDestinationNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createMediaStreamDestination Mozilla AudioContext.createMediaStreamDestination documentation>  createMediaStreamDestination ::@@ -160,24 +155,21 @@                                self -> m (Maybe MediaStreamAudioDestinationNode) createMediaStreamDestination self   = liftIO-      ((js_createMediaStreamDestination-          (unAudioContext (toAudioContext self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createMediaStreamDestination (toAudioContext self)))   foreign import javascript unsafe "$1[\"createGain\"]()"-        js_createGain :: JSRef AudioContext -> IO (JSRef GainNode)+        js_createGain :: AudioContext -> IO (Nullable GainNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGain Mozilla AudioContext.createGain documentation>  createGain ::            (MonadIO m, IsAudioContext self) => self -> m (Maybe GainNode) createGain self   = liftIO-      ((js_createGain (unAudioContext (toAudioContext self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_createGain (toAudioContext self)))   foreign import javascript unsafe "$1[\"createDelay\"]($2)"-        js_createDelay ::-        JSRef AudioContext -> Double -> IO (JSRef DelayNode)+        js_createDelay :: AudioContext -> Double -> IO (Nullable DelayNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelay Mozilla AudioContext.createDelay documentation>  createDelay ::@@ -185,13 +177,12 @@               self -> Double -> m (Maybe DelayNode) createDelay self maxDelayTime   = liftIO-      ((js_createDelay (unAudioContext (toAudioContext self))-          maxDelayTime)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createDelay (toAudioContext self) maxDelayTime))   foreign import javascript unsafe "$1[\"createBiquadFilter\"]()"         js_createBiquadFilter ::-        JSRef AudioContext -> IO (JSRef BiquadFilterNode)+        AudioContext -> IO (Nullable BiquadFilterNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createBiquadFilter Mozilla AudioContext.createBiquadFilter documentation>  createBiquadFilter ::@@ -199,12 +190,10 @@                      self -> m (Maybe BiquadFilterNode) createBiquadFilter self   = liftIO-      ((js_createBiquadFilter (unAudioContext (toAudioContext self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_createBiquadFilter (toAudioContext self)))   foreign import javascript unsafe "$1[\"createWaveShaper\"]()"-        js_createWaveShaper ::-        JSRef AudioContext -> IO (JSRef WaveShaperNode)+        js_createWaveShaper :: AudioContext -> IO (Nullable WaveShaperNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createWaveShaper Mozilla AudioContext.createWaveShaper documentation>  createWaveShaper ::@@ -212,35 +201,31 @@                    self -> m (Maybe WaveShaperNode) createWaveShaper self   = liftIO-      ((js_createWaveShaper (unAudioContext (toAudioContext self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_createWaveShaper (toAudioContext self)))   foreign import javascript unsafe "$1[\"createPanner\"]()"-        js_createPanner :: JSRef AudioContext -> IO (JSRef PannerNode)+        js_createPanner :: AudioContext -> IO (Nullable PannerNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPanner Mozilla AudioContext.createPanner documentation>  createPanner ::              (MonadIO m, IsAudioContext self) => self -> m (Maybe PannerNode) createPanner self   = liftIO-      ((js_createPanner (unAudioContext (toAudioContext self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_createPanner (toAudioContext self)))   foreign import javascript unsafe "$1[\"createConvolver\"]()"-        js_createConvolver ::-        JSRef AudioContext -> IO (JSRef ConvolverNode)+        js_createConvolver :: AudioContext -> IO (Nullable ConvolverNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createConvolver Mozilla AudioContext.createConvolver documentation>  createConvolver ::                 (MonadIO m, IsAudioContext self) => self -> m (Maybe ConvolverNode) createConvolver self   = liftIO-      ((js_createConvolver (unAudioContext (toAudioContext self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_createConvolver (toAudioContext self)))   foreign import javascript unsafe         "$1[\"createDynamicsCompressor\"]()" js_createDynamicsCompressor ::-        JSRef AudioContext -> IO (JSRef DynamicsCompressorNode)+        AudioContext -> IO (Nullable DynamicsCompressorNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDynamicsCompressor Mozilla AudioContext.createDynamicsCompressor documentation>  createDynamicsCompressor ::@@ -248,26 +233,24 @@                            self -> m (Maybe DynamicsCompressorNode) createDynamicsCompressor self   = liftIO-      ((js_createDynamicsCompressor-          (unAudioContext (toAudioContext self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createDynamicsCompressor (toAudioContext self)))   foreign import javascript unsafe "$1[\"createAnalyser\"]()"-        js_createAnalyser :: JSRef AudioContext -> IO (JSRef AnalyserNode)+        js_createAnalyser :: AudioContext -> IO (Nullable AnalyserNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createAnalyser Mozilla AudioContext.createAnalyser documentation>  createAnalyser ::                (MonadIO m, IsAudioContext self) => self -> m (Maybe AnalyserNode) createAnalyser self   = liftIO-      ((js_createAnalyser (unAudioContext (toAudioContext self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_createAnalyser (toAudioContext self)))   foreign import javascript unsafe         "$1[\"createScriptProcessor\"]($2,\n$3, $4)"         js_createScriptProcessor ::-        JSRef AudioContext ->-          Word -> Word -> Word -> IO (JSRef ScriptProcessorNode)+        AudioContext ->+          Word -> Word -> Word -> IO (Nullable ScriptProcessorNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createScriptProcessor Mozilla AudioContext.createScriptProcessor documentation>  createScriptProcessor ::@@ -276,15 +259,13 @@ createScriptProcessor self bufferSize numberOfInputChannels   numberOfOutputChannels   = liftIO-      ((js_createScriptProcessor (unAudioContext (toAudioContext self))-          bufferSize-          numberOfInputChannels-          numberOfOutputChannels)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createScriptProcessor (toAudioContext self) bufferSize+            numberOfInputChannels+            numberOfOutputChannels))   foreign import javascript unsafe "$1[\"createOscillator\"]()"-        js_createOscillator ::-        JSRef AudioContext -> IO (JSRef OscillatorNode)+        js_createOscillator :: AudioContext -> IO (Nullable OscillatorNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createOscillator Mozilla AudioContext.createOscillator documentation>  createOscillator ::@@ -292,13 +273,13 @@                    self -> m (Maybe OscillatorNode) createOscillator self   = liftIO-      ((js_createOscillator (unAudioContext (toAudioContext self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_createOscillator (toAudioContext self)))   foreign import javascript unsafe         "$1[\"createPeriodicWave\"]($2, $3)" js_createPeriodicWave ::-        JSRef AudioContext ->-          JSRef Float32Array -> JSRef Float32Array -> IO (JSRef PeriodicWave)+        AudioContext ->+          Nullable Float32Array ->+            Nullable Float32Array -> IO (Nullable PeriodicWave)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createPeriodicWave Mozilla AudioContext.createPeriodicWave documentation>  createPeriodicWave ::@@ -307,14 +288,14 @@                      self -> Maybe real -> Maybe imag -> m (Maybe PeriodicWave) createPeriodicWave self real imag   = liftIO-      ((js_createPeriodicWave (unAudioContext (toAudioContext self))-          (maybe jsNull (unFloat32Array . toFloat32Array) real)-          (maybe jsNull (unFloat32Array . toFloat32Array) imag))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createPeriodicWave (toAudioContext self)+            (maybeToNullable (fmap toFloat32Array real))+            (maybeToNullable (fmap toFloat32Array imag))))   foreign import javascript unsafe         "$1[\"createChannelSplitter\"]($2)" js_createChannelSplitter ::-        JSRef AudioContext -> Word -> IO (JSRef ChannelSplitterNode)+        AudioContext -> Word -> IO (Nullable ChannelSplitterNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelSplitter Mozilla AudioContext.createChannelSplitter documentation>  createChannelSplitter ::@@ -322,13 +303,12 @@                         self -> Word -> m (Maybe ChannelSplitterNode) createChannelSplitter self numberOfOutputs   = liftIO-      ((js_createChannelSplitter (unAudioContext (toAudioContext self))-          numberOfOutputs)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createChannelSplitter (toAudioContext self) numberOfOutputs))   foreign import javascript unsafe "$1[\"createChannelMerger\"]($2)"         js_createChannelMerger ::-        JSRef AudioContext -> Word -> IO (JSRef ChannelMergerNode)+        AudioContext -> Word -> IO (Nullable ChannelMergerNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createChannelMerger Mozilla AudioContext.createChannelMerger documentation>  createChannelMerger ::@@ -336,32 +316,30 @@                       self -> Word -> m (Maybe ChannelMergerNode) createChannelMerger self numberOfInputs   = liftIO-      ((js_createChannelMerger (unAudioContext (toAudioContext self))-          numberOfInputs)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createChannelMerger (toAudioContext self) numberOfInputs))   foreign import javascript unsafe "$1[\"startRendering\"]()"-        js_startRendering :: JSRef AudioContext -> IO ()+        js_startRendering :: AudioContext -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.startRendering Mozilla AudioContext.startRendering documentation>  startRendering :: (MonadIO m, IsAudioContext self) => self -> m () startRendering self-  = liftIO (js_startRendering (unAudioContext (toAudioContext self)))+  = liftIO (js_startRendering (toAudioContext self))   foreign import javascript unsafe "$1[\"createGainNode\"]()"-        js_createGainNode :: JSRef AudioContext -> IO (JSRef GainNode)+        js_createGainNode :: AudioContext -> IO (Nullable GainNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createGainNode Mozilla AudioContext.createGainNode documentation>  createGainNode ::                (MonadIO m, IsAudioContext self) => self -> m (Maybe GainNode) createGainNode self   = liftIO-      ((js_createGainNode (unAudioContext (toAudioContext self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_createGainNode (toAudioContext self)))   foreign import javascript unsafe "$1[\"createDelayNode\"]($2)"         js_createDelayNode ::-        JSRef AudioContext -> Double -> IO (JSRef DelayNode)+        AudioContext -> Double -> IO (Nullable DelayNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createDelayNode Mozilla AudioContext.createDelayNode documentation>  createDelayNode ::@@ -369,15 +347,14 @@                   self -> Double -> m (Maybe DelayNode) createDelayNode self maxDelayTime   = liftIO-      ((js_createDelayNode (unAudioContext (toAudioContext self))-          maxDelayTime)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createDelayNode (toAudioContext self) maxDelayTime))   foreign import javascript unsafe         "$1[\"createJavaScriptNode\"]($2,\n$3, $4)" js_createJavaScriptNode         ::-        JSRef AudioContext ->-          Word -> Word -> Word -> IO (JSRef ScriptProcessorNode)+        AudioContext ->+          Word -> Word -> Word -> IO (Nullable ScriptProcessorNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.createJavaScriptNode Mozilla AudioContext.createJavaScriptNode documentation>  createJavaScriptNode ::@@ -386,15 +363,14 @@ createJavaScriptNode self bufferSize numberOfInputChannels   numberOfOutputChannels   = liftIO-      ((js_createJavaScriptNode (unAudioContext (toAudioContext self))-          bufferSize-          numberOfInputChannels-          numberOfOutputChannels)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createJavaScriptNode (toAudioContext self) bufferSize+            numberOfInputChannels+            numberOfOutputChannels))   foreign import javascript unsafe "$1[\"destination\"]"         js_getDestination ::-        JSRef AudioContext -> IO (JSRef AudioDestinationNode)+        AudioContext -> IO (Nullable AudioDestinationNode)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.destination Mozilla AudioContext.destination documentation>  getDestination ::@@ -402,47 +378,44 @@                  self -> m (Maybe AudioDestinationNode) getDestination self   = liftIO-      ((js_getDestination (unAudioContext (toAudioContext self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getDestination (toAudioContext self)))   foreign import javascript unsafe "$1[\"currentTime\"]"-        js_getCurrentTime :: JSRef AudioContext -> IO Double+        js_getCurrentTime :: AudioContext -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.currentTime Mozilla AudioContext.currentTime documentation>  getCurrentTime ::                (MonadIO m, IsAudioContext self) => self -> m Double getCurrentTime self-  = liftIO (js_getCurrentTime (unAudioContext (toAudioContext self)))+  = liftIO (js_getCurrentTime (toAudioContext self))   foreign import javascript unsafe "$1[\"sampleRate\"]"-        js_getSampleRate :: JSRef AudioContext -> IO Float+        js_getSampleRate :: AudioContext -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.sampleRate Mozilla AudioContext.sampleRate documentation>  getSampleRate ::               (MonadIO m, IsAudioContext self) => self -> m Float getSampleRate self-  = liftIO (js_getSampleRate (unAudioContext (toAudioContext self)))+  = liftIO (js_getSampleRate (toAudioContext self))   foreign import javascript unsafe "$1[\"listener\"]" js_getListener-        :: JSRef AudioContext -> IO (JSRef AudioListener)+        :: AudioContext -> IO (Nullable AudioListener)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.listener Mozilla AudioContext.listener documentation>  getListener ::             (MonadIO m, IsAudioContext self) => self -> m (Maybe AudioListener) getListener self   = liftIO-      ((js_getListener (unAudioContext (toAudioContext self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getListener (toAudioContext self)))   foreign import javascript unsafe "$1[\"activeSourceCount\"]"-        js_getActiveSourceCount :: JSRef AudioContext -> IO Word+        js_getActiveSourceCount :: AudioContext -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.activeSourceCount Mozilla AudioContext.activeSourceCount documentation>  getActiveSourceCount ::                      (MonadIO m, IsAudioContext self) => self -> m Word getActiveSourceCount self-  = liftIO-      (js_getActiveSourceCount (unAudioContext (toAudioContext self)))+  = liftIO (js_getActiveSourceCount (toAudioContext self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioContext.oncomplete Mozilla AudioContext.oncomplete documentation>  complete ::
src/GHCJS/DOM/JSFFI/Generated/AudioDestinationNode.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,9 +19,8 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"maxChannelCount\"]"-        js_getMaxChannelCount :: JSRef AudioDestinationNode -> IO Word+        js_getMaxChannelCount :: AudioDestinationNode -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioDestinationNode.maxChannelCount Mozilla AudioDestinationNode.maxChannelCount documentation>  getMaxChannelCount :: (MonadIO m) => AudioDestinationNode -> m Word-getMaxChannelCount self-  = liftIO (js_getMaxChannelCount (unAudioDestinationNode self))+getMaxChannelCount self = liftIO (js_getMaxChannelCount (self))
src/GHCJS/DOM/JSFFI/Generated/AudioListener.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,19 +22,17 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"setPosition\"]($2, $3, $4)"-        js_setPosition ::-        JSRef AudioListener -> Float -> Float -> Float -> IO ()+        js_setPosition :: AudioListener -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setPosition Mozilla AudioListener.setPosition documentation>  setPosition ::             (MonadIO m) => AudioListener -> Float -> Float -> Float -> m ()-setPosition self x y z-  = liftIO (js_setPosition (unAudioListener self) x y z)+setPosition self x y z = liftIO (js_setPosition (self) x y z)   foreign import javascript unsafe         "$1[\"setOrientation\"]($2, $3, $4,\n$5, $6, $7)" js_setOrientation         ::-        JSRef AudioListener ->+        AudioListener ->           Float -> Float -> Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setOrientation Mozilla AudioListener.setOrientation documentation> @@ -43,47 +41,40 @@                  AudioListener ->                    Float -> Float -> Float -> Float -> Float -> Float -> m () setOrientation self x y z xUp yUp zUp-  = liftIO-      (js_setOrientation (unAudioListener self) x y z xUp yUp zUp)+  = liftIO (js_setOrientation (self) x y z xUp yUp zUp)   foreign import javascript unsafe "$1[\"setVelocity\"]($2, $3, $4)"-        js_setVelocity ::-        JSRef AudioListener -> Float -> Float -> Float -> IO ()+        js_setVelocity :: AudioListener -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.setVelocity Mozilla AudioListener.setVelocity documentation>  setVelocity ::             (MonadIO m) => AudioListener -> Float -> Float -> Float -> m ()-setVelocity self x y z-  = liftIO (js_setVelocity (unAudioListener self) x y z)+setVelocity self x y z = liftIO (js_setVelocity (self) x y z)   foreign import javascript unsafe "$1[\"dopplerFactor\"] = $2;"-        js_setDopplerFactor :: JSRef AudioListener -> Float -> IO ()+        js_setDopplerFactor :: AudioListener -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.dopplerFactor Mozilla AudioListener.dopplerFactor documentation>  setDopplerFactor :: (MonadIO m) => AudioListener -> Float -> m ()-setDopplerFactor self val-  = liftIO (js_setDopplerFactor (unAudioListener self) val)+setDopplerFactor self val = liftIO (js_setDopplerFactor (self) val)   foreign import javascript unsafe "$1[\"dopplerFactor\"]"-        js_getDopplerFactor :: JSRef AudioListener -> IO Float+        js_getDopplerFactor :: AudioListener -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.dopplerFactor Mozilla AudioListener.dopplerFactor documentation>  getDopplerFactor :: (MonadIO m) => AudioListener -> m Float-getDopplerFactor self-  = liftIO (js_getDopplerFactor (unAudioListener self))+getDopplerFactor self = liftIO (js_getDopplerFactor (self))   foreign import javascript unsafe "$1[\"speedOfSound\"] = $2;"-        js_setSpeedOfSound :: JSRef AudioListener -> Float -> IO ()+        js_setSpeedOfSound :: AudioListener -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.speedOfSound Mozilla AudioListener.speedOfSound documentation>  setSpeedOfSound :: (MonadIO m) => AudioListener -> Float -> m ()-setSpeedOfSound self val-  = liftIO (js_setSpeedOfSound (unAudioListener self) val)+setSpeedOfSound self val = liftIO (js_setSpeedOfSound (self) val)   foreign import javascript unsafe "$1[\"speedOfSound\"]"-        js_getSpeedOfSound :: JSRef AudioListener -> IO Float+        js_getSpeedOfSound :: AudioListener -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioListener.speedOfSound Mozilla AudioListener.speedOfSound documentation>  getSpeedOfSound :: (MonadIO m) => AudioListener -> m Float-getSpeedOfSound self-  = liftIO (js_getSpeedOfSound (unAudioListener self))+getSpeedOfSound self = liftIO (js_getSpeedOfSound (self))
src/GHCJS/DOM/JSFFI/Generated/AudioNode.hs view
@@ -12,7 +12,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,7 +27,7 @@   foreign import javascript unsafe "$1[\"connect\"]($2, $3, $4)"         js_connect ::-        JSRef AudioNode -> JSRef AudioNode -> Word -> Word -> IO ()+        AudioNode -> Nullable AudioNode -> Word -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.connect Mozilla AudioNode.connect documentation>  connect ::@@ -35,14 +35,14 @@           self -> Maybe destination -> Word -> Word -> m () connect self destination output input   = liftIO-      (js_connect (unAudioNode (toAudioNode self))-         (maybe jsNull (unAudioNode . toAudioNode) destination)+      (js_connect (toAudioNode self)+         (maybeToNullable (fmap toAudioNode destination))          output          input)   foreign import javascript unsafe "$1[\"connect\"]($2, $3)"         js_connectParam ::-        JSRef AudioNode -> JSRef AudioParam -> Word -> IO ()+        AudioNode -> Nullable AudioParam -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.connect Mozilla AudioNode.connect documentation>  connectParam ::@@ -50,65 +50,63 @@                self -> Maybe AudioParam -> Word -> m () connectParam self destination output   = liftIO-      (js_connectParam (unAudioNode (toAudioNode self))-         (maybe jsNull pToJSRef destination)+      (js_connectParam (toAudioNode self) (maybeToNullable destination)          output)   foreign import javascript unsafe "$1[\"disconnect\"]($2)"-        js_disconnect :: JSRef AudioNode -> Word -> IO ()+        js_disconnect :: AudioNode -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.disconnect Mozilla AudioNode.disconnect documentation>  disconnect :: (MonadIO m, IsAudioNode self) => self -> Word -> m () disconnect self output-  = liftIO (js_disconnect (unAudioNode (toAudioNode self)) output)+  = liftIO (js_disconnect (toAudioNode self) output)   foreign import javascript unsafe "$1[\"context\"]" js_getContext ::-        JSRef AudioNode -> IO (JSRef AudioContext)+        AudioNode -> IO (Nullable AudioContext)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.context Mozilla AudioNode.context documentation>  getContext ::            (MonadIO m, IsAudioNode self) => self -> m (Maybe AudioContext) getContext self-  = liftIO-      ((js_getContext (unAudioNode (toAudioNode self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getContext (toAudioNode self)))   foreign import javascript unsafe "$1[\"numberOfInputs\"]"-        js_getNumberOfInputs :: JSRef AudioNode -> IO Word+        js_getNumberOfInputs :: AudioNode -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.numberOfInputs Mozilla AudioNode.numberOfInputs documentation>  getNumberOfInputs ::                   (MonadIO m, IsAudioNode self) => self -> m Word getNumberOfInputs self-  = liftIO (js_getNumberOfInputs (unAudioNode (toAudioNode self)))+  = liftIO (js_getNumberOfInputs (toAudioNode self))   foreign import javascript unsafe "$1[\"numberOfOutputs\"]"-        js_getNumberOfOutputs :: JSRef AudioNode -> IO Word+        js_getNumberOfOutputs :: AudioNode -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.numberOfOutputs Mozilla AudioNode.numberOfOutputs documentation>  getNumberOfOutputs ::                    (MonadIO m, IsAudioNode self) => self -> m Word getNumberOfOutputs self-  = liftIO (js_getNumberOfOutputs (unAudioNode (toAudioNode self)))+  = liftIO (js_getNumberOfOutputs (toAudioNode self))   foreign import javascript unsafe "$1[\"channelCount\"] = $2;"-        js_setChannelCount :: JSRef AudioNode -> Word -> IO ()+        js_setChannelCount :: AudioNode -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCount Mozilla AudioNode.channelCount documentation>  setChannelCount ::                 (MonadIO m, IsAudioNode self) => self -> Word -> m () setChannelCount self val-  = liftIO (js_setChannelCount (unAudioNode (toAudioNode self)) val)+  = liftIO (js_setChannelCount (toAudioNode self) val)   foreign import javascript unsafe "$1[\"channelCount\"]"-        js_getChannelCount :: JSRef AudioNode -> IO Word+        js_getChannelCount :: AudioNode -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCount Mozilla AudioNode.channelCount documentation>  getChannelCount :: (MonadIO m, IsAudioNode self) => self -> m Word getChannelCount self-  = liftIO (js_getChannelCount (unAudioNode (toAudioNode self)))+  = liftIO (js_getChannelCount (toAudioNode self))   foreign import javascript unsafe "$1[\"channelCountMode\"] = $2;"-        js_setChannelCountMode :: JSRef AudioNode -> JSString -> IO ()+        js_setChannelCountMode :: AudioNode -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCountMode Mozilla AudioNode.channelCountMode documentation>  setChannelCountMode ::@@ -116,11 +114,10 @@                       self -> val -> m () setChannelCountMode self val   = liftIO-      (js_setChannelCountMode (unAudioNode (toAudioNode self))-         (toJSString val))+      (js_setChannelCountMode (toAudioNode self) (toJSString val))   foreign import javascript unsafe "$1[\"channelCountMode\"]"-        js_getChannelCountMode :: JSRef AudioNode -> IO JSString+        js_getChannelCountMode :: AudioNode -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelCountMode Mozilla AudioNode.channelCountMode documentation>  getChannelCountMode ::@@ -128,12 +125,11 @@                       self -> m result getChannelCountMode self   = liftIO-      (fromJSString <$>-         (js_getChannelCountMode (unAudioNode (toAudioNode self))))+      (fromJSString <$> (js_getChannelCountMode (toAudioNode self)))   foreign import javascript unsafe         "$1[\"channelInterpretation\"] = $2;" js_setChannelInterpretation-        :: JSRef AudioNode -> JSString -> IO ()+        :: AudioNode -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelInterpretation Mozilla AudioNode.channelInterpretation documentation>  setChannelInterpretation ::@@ -141,11 +137,10 @@                            self -> val -> m () setChannelInterpretation self val   = liftIO-      (js_setChannelInterpretation (unAudioNode (toAudioNode self))-         (toJSString val))+      (js_setChannelInterpretation (toAudioNode self) (toJSString val))   foreign import javascript unsafe "$1[\"channelInterpretation\"]"-        js_getChannelInterpretation :: JSRef AudioNode -> IO JSString+        js_getChannelInterpretation :: AudioNode -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioNode.channelInterpretation Mozilla AudioNode.channelInterpretation documentation>  getChannelInterpretation ::@@ -153,5 +148,4 @@                            self -> m result getChannelInterpretation self   = liftIO-      (fromJSString <$>-         (js_getChannelInterpretation (unAudioNode (toAudioNode self))))+      (fromJSString <$> (js_getChannelInterpretation (toAudioNode self)))
src/GHCJS/DOM/JSFFI/Generated/AudioParam.hs view
@@ -13,7 +13,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,53 +27,48 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"setValueAtTime\"]($2, $3)"-        js_setValueAtTime :: JSRef AudioParam -> Float -> Float -> IO ()+        js_setValueAtTime :: AudioParam -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setValueAtTime Mozilla AudioParam.setValueAtTime documentation>  setValueAtTime ::                (MonadIO m) => AudioParam -> Float -> Float -> m () setValueAtTime self value time-  = liftIO (js_setValueAtTime (unAudioParam self) value time)+  = liftIO (js_setValueAtTime (self) value time)   foreign import javascript unsafe         "$1[\"linearRampToValueAtTime\"]($2,\n$3)"-        js_linearRampToValueAtTime ::-        JSRef AudioParam -> Float -> Float -> IO ()+        js_linearRampToValueAtTime :: AudioParam -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.linearRampToValueAtTime Mozilla AudioParam.linearRampToValueAtTime documentation>  linearRampToValueAtTime ::                         (MonadIO m) => AudioParam -> Float -> Float -> m () linearRampToValueAtTime self value time-  = liftIO-      (js_linearRampToValueAtTime (unAudioParam self) value time)+  = liftIO (js_linearRampToValueAtTime (self) value time)   foreign import javascript unsafe         "$1[\"exponentialRampToValueAtTime\"]($2,\n$3)"         js_exponentialRampToValueAtTime ::-        JSRef AudioParam -> Float -> Float -> IO ()+        AudioParam -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.exponentialRampToValueAtTime Mozilla AudioParam.exponentialRampToValueAtTime documentation>  exponentialRampToValueAtTime ::                              (MonadIO m) => AudioParam -> Float -> Float -> m () exponentialRampToValueAtTime self value time-  = liftIO-      (js_exponentialRampToValueAtTime (unAudioParam self) value time)+  = liftIO (js_exponentialRampToValueAtTime (self) value time)   foreign import javascript unsafe         "$1[\"setTargetAtTime\"]($2, $3,\n$4)" js_setTargetAtTime ::-        JSRef AudioParam -> Float -> Float -> Float -> IO ()+        AudioParam -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setTargetAtTime Mozilla AudioParam.setTargetAtTime documentation>  setTargetAtTime ::                 (MonadIO m) => AudioParam -> Float -> Float -> Float -> m () setTargetAtTime self target time timeConstant-  = liftIO-      (js_setTargetAtTime (unAudioParam self) target time timeConstant)+  = liftIO (js_setTargetAtTime (self) target time timeConstant)   foreign import javascript unsafe         "$1[\"setValueCurveAtTime\"]($2,\n$3, $4)" js_setValueCurveAtTime-        ::-        JSRef AudioParam -> JSRef Float32Array -> Float -> Float -> IO ()+        :: AudioParam -> Nullable Float32Array -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setValueCurveAtTime Mozilla AudioParam.setValueCurveAtTime documentation>  setValueCurveAtTime ::@@ -81,80 +76,77 @@                       AudioParam -> Maybe values -> Float -> Float -> m () setValueCurveAtTime self values time duration   = liftIO-      (js_setValueCurveAtTime (unAudioParam self)-         (maybe jsNull (unFloat32Array . toFloat32Array) values)+      (js_setValueCurveAtTime (self)+         (maybeToNullable (fmap toFloat32Array values))          time          duration)   foreign import javascript unsafe         "$1[\"cancelScheduledValues\"]($2)" js_cancelScheduledValues ::-        JSRef AudioParam -> Float -> IO ()+        AudioParam -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.cancelScheduledValues Mozilla AudioParam.cancelScheduledValues documentation>  cancelScheduledValues :: (MonadIO m) => AudioParam -> Float -> m () cancelScheduledValues self startTime-  = liftIO (js_cancelScheduledValues (unAudioParam self) startTime)+  = liftIO (js_cancelScheduledValues (self) startTime)   foreign import javascript unsafe         "$1[\"setTargetValueAtTime\"]($2,\n$3, $4)" js_setTargetValueAtTime-        :: JSRef AudioParam -> Float -> Float -> Float -> IO ()+        :: AudioParam -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.setTargetValueAtTime Mozilla AudioParam.setTargetValueAtTime documentation>  setTargetValueAtTime ::                      (MonadIO m) => AudioParam -> Float -> Float -> Float -> m () setTargetValueAtTime self targetValue time timeConstant   = liftIO-      (js_setTargetValueAtTime (unAudioParam self) targetValue time-         timeConstant)+      (js_setTargetValueAtTime (self) targetValue time timeConstant)   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef AudioParam -> Float -> IO ()+        :: AudioParam -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.value Mozilla AudioParam.value documentation>  setValue :: (MonadIO m) => AudioParam -> Float -> m ()-setValue self val = liftIO (js_setValue (unAudioParam self) val)+setValue self val = liftIO (js_setValue (self) val)   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef AudioParam -> IO Float+        AudioParam -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.value Mozilla AudioParam.value documentation>  getValue :: (MonadIO m) => AudioParam -> m Float-getValue self = liftIO (js_getValue (unAudioParam self))+getValue self = liftIO (js_getValue (self))   foreign import javascript unsafe "$1[\"minValue\"]" js_getMinValue-        :: JSRef AudioParam -> IO Float+        :: AudioParam -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.minValue Mozilla AudioParam.minValue documentation>  getMinValue :: (MonadIO m) => AudioParam -> m Float-getMinValue self = liftIO (js_getMinValue (unAudioParam self))+getMinValue self = liftIO (js_getMinValue (self))   foreign import javascript unsafe "$1[\"maxValue\"]" js_getMaxValue-        :: JSRef AudioParam -> IO Float+        :: AudioParam -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.maxValue Mozilla AudioParam.maxValue documentation>  getMaxValue :: (MonadIO m) => AudioParam -> m Float-getMaxValue self = liftIO (js_getMaxValue (unAudioParam self))+getMaxValue self = liftIO (js_getMaxValue (self))   foreign import javascript unsafe "$1[\"defaultValue\"]"-        js_getDefaultValue :: JSRef AudioParam -> IO Float+        js_getDefaultValue :: AudioParam -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.defaultValue Mozilla AudioParam.defaultValue documentation>  getDefaultValue :: (MonadIO m) => AudioParam -> m Float-getDefaultValue self-  = liftIO (js_getDefaultValue (unAudioParam self))+getDefaultValue self = liftIO (js_getDefaultValue (self))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef AudioParam -> IO JSString+        AudioParam -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.name Mozilla AudioParam.name documentation>  getName ::         (MonadIO m, FromJSString result) => AudioParam -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unAudioParam self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"units\"]" js_getUnits ::-        JSRef AudioParam -> IO Word+        AudioParam -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioParam.units Mozilla AudioParam.units documentation>  getUnits :: (MonadIO m) => AudioParam -> m Word-getUnits self = liftIO (js_getUnits (unAudioParam self))+getUnits self = liftIO (js_getUnits (self))
src/GHCJS/DOM/JSFFI/Generated/AudioProcessingEvent.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,31 +21,28 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"playbackTime\"]"-        js_getPlaybackTime :: JSRef AudioProcessingEvent -> IO Double+        js_getPlaybackTime :: AudioProcessingEvent -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.playbackTime Mozilla AudioProcessingEvent.playbackTime documentation>  getPlaybackTime :: (MonadIO m) => AudioProcessingEvent -> m Double-getPlaybackTime self-  = liftIO (js_getPlaybackTime (unAudioProcessingEvent self))+getPlaybackTime self = liftIO (js_getPlaybackTime (self))   foreign import javascript unsafe "$1[\"inputBuffer\"]"         js_getInputBuffer ::-        JSRef AudioProcessingEvent -> IO (JSRef AudioBuffer)+        AudioProcessingEvent -> IO (Nullable AudioBuffer)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.inputBuffer Mozilla AudioProcessingEvent.inputBuffer documentation>  getInputBuffer ::                (MonadIO m) => AudioProcessingEvent -> m (Maybe AudioBuffer) getInputBuffer self-  = liftIO-      ((js_getInputBuffer (unAudioProcessingEvent self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getInputBuffer (self)))   foreign import javascript unsafe "$1[\"outputBuffer\"]"         js_getOutputBuffer ::-        JSRef AudioProcessingEvent -> IO (JSRef AudioBuffer)+        AudioProcessingEvent -> IO (Nullable AudioBuffer)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioProcessingEvent.outputBuffer Mozilla AudioProcessingEvent.outputBuffer documentation>  getOutputBuffer ::                 (MonadIO m) => AudioProcessingEvent -> m (Maybe AudioBuffer) getOutputBuffer self-  = liftIO-      ((js_getOutputBuffer (unAudioProcessingEvent self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getOutputBuffer (self)))
src/GHCJS/DOM/JSFFI/Generated/AudioStreamTrack.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,7 +20,7 @@   foreign import javascript unsafe         "new window[\"AudioStreamTrack\"]($1)" js_newAudioStreamTrack ::-        JSRef Dictionary -> IO (JSRef AudioStreamTrack)+        Nullable Dictionary -> IO AudioStreamTrack  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioStreamTrack Mozilla AudioStreamTrack documentation>  newAudioStreamTrack ::@@ -29,5 +29,4 @@ newAudioStreamTrack audioConstraints   = liftIO       (js_newAudioStreamTrack-         (maybe jsNull (unDictionary . toDictionary) audioConstraints)-         >>= fromJSRefUnchecked)+         (maybeToNullable (fmap toDictionary audioConstraints)))
src/GHCJS/DOM/JSFFI/Generated/AudioTrack.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,77 +22,72 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"id\"]" js_getId ::-        JSRef AudioTrack -> IO JSString+        AudioTrack -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.id Mozilla AudioTrack.id documentation>  getId :: (MonadIO m, FromJSString result) => AudioTrack -> m result-getId self-  = liftIO (fromJSString <$> (js_getId (unAudioTrack self)))+getId self = liftIO (fromJSString <$> (js_getId (self)))   foreign import javascript unsafe "$1[\"kind\"] = $2;" js_setKind ::-        JSRef AudioTrack -> JSString -> IO ()+        AudioTrack -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.kind Mozilla AudioTrack.kind documentation>  setKind :: (MonadIO m, ToJSString val) => AudioTrack -> val -> m ()-setKind self val-  = liftIO (js_setKind (unAudioTrack self) (toJSString val))+setKind self val = liftIO (js_setKind (self) (toJSString val))   foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::-        JSRef AudioTrack -> IO JSString+        AudioTrack -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.kind Mozilla AudioTrack.kind documentation>  getKind ::         (MonadIO m, FromJSString result) => AudioTrack -> m result-getKind self-  = liftIO (fromJSString <$> (js_getKind (unAudioTrack self)))+getKind self = liftIO (fromJSString <$> (js_getKind (self)))   foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::-        JSRef AudioTrack -> IO JSString+        AudioTrack -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.label Mozilla AudioTrack.label documentation>  getLabel ::          (MonadIO m, FromJSString result) => AudioTrack -> m result-getLabel self-  = liftIO (fromJSString <$> (js_getLabel (unAudioTrack self)))+getLabel self = liftIO (fromJSString <$> (js_getLabel (self)))   foreign import javascript unsafe "$1[\"language\"] = $2;"-        js_setLanguage :: JSRef AudioTrack -> JSString -> IO ()+        js_setLanguage :: AudioTrack -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.language Mozilla AudioTrack.language documentation>  setLanguage ::             (MonadIO m, ToJSString val) => AudioTrack -> val -> m () setLanguage self val-  = liftIO (js_setLanguage (unAudioTrack self) (toJSString val))+  = liftIO (js_setLanguage (self) (toJSString val))   foreign import javascript unsafe "$1[\"language\"]" js_getLanguage-        :: JSRef AudioTrack -> IO JSString+        :: AudioTrack -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.language Mozilla AudioTrack.language documentation>  getLanguage ::             (MonadIO m, FromJSString result) => AudioTrack -> m result getLanguage self-  = liftIO (fromJSString <$> (js_getLanguage (unAudioTrack self)))+  = liftIO (fromJSString <$> (js_getLanguage (self)))   foreign import javascript unsafe "$1[\"enabled\"] = $2;"-        js_setEnabled :: JSRef AudioTrack -> Bool -> IO ()+        js_setEnabled :: AudioTrack -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.enabled Mozilla AudioTrack.enabled documentation>  setEnabled :: (MonadIO m) => AudioTrack -> Bool -> m ()-setEnabled self val-  = liftIO (js_setEnabled (unAudioTrack self) val)+setEnabled self val = liftIO (js_setEnabled (self) val)   foreign import javascript unsafe "($1[\"enabled\"] ? 1 : 0)"-        js_getEnabled :: JSRef AudioTrack -> IO Bool+        js_getEnabled :: AudioTrack -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.enabled Mozilla AudioTrack.enabled documentation>  getEnabled :: (MonadIO m) => AudioTrack -> m Bool-getEnabled self = liftIO (js_getEnabled (unAudioTrack self))+getEnabled self = liftIO (js_getEnabled (self))   foreign import javascript unsafe "$1[\"sourceBuffer\"]"-        js_getSourceBuffer :: JSRef AudioTrack -> IO (JSRef SourceBuffer)+        js_getSourceBuffer :: AudioTrack -> IO (Nullable SourceBuffer)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrack.sourceBuffer Mozilla AudioTrack.sourceBuffer documentation>  getSourceBuffer ::                 (MonadIO m) => AudioTrack -> m (Maybe SourceBuffer) getSourceBuffer self-  = liftIO ((js_getSourceBuffer (unAudioTrack self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSourceBuffer (self)))
src/GHCJS/DOM/JSFFI/Generated/AudioTrackList.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,17 +20,17 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef AudioTrackList -> Word -> IO (JSRef AudioTrack)+        AudioTrackList -> Word -> IO (Nullable AudioTrack)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.item Mozilla AudioTrackList.item documentation>  item ::      (MonadIO m) => AudioTrackList -> Word -> m (Maybe AudioTrack) item self index-  = liftIO ((js_item (unAudioTrackList self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"getTrackById\"]($2)"         js_getTrackById ::-        JSRef AudioTrackList -> JSString -> IO (JSRef AudioTrack)+        AudioTrackList -> JSString -> IO (Nullable AudioTrack)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.getTrackById Mozilla AudioTrackList.getTrackById documentation>  getTrackById ::@@ -38,15 +38,14 @@                AudioTrackList -> id -> m (Maybe AudioTrack) getTrackById self id   = liftIO-      ((js_getTrackById (unAudioTrackList self) (toJSString id)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getTrackById (self) (toJSString id)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef AudioTrackList -> IO Word+        AudioTrackList -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.length Mozilla AudioTrackList.length documentation>  getLength :: (MonadIO m) => AudioTrackList -> m Word-getLength self = liftIO (js_getLength (unAudioTrackList self))+getLength self = liftIO (js_getLength (self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AudioTrackList.onchange Mozilla AudioTrackList.onchange documentation>  change :: EventName AudioTrackList Event
src/GHCJS/DOM/JSFFI/Generated/AutocompleteErrorEvent.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,12 +19,10 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"reason\"]" js_getReason ::-        JSRef AutocompleteErrorEvent -> IO JSString+        AutocompleteErrorEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/AutocompleteErrorEvent.reason Mozilla AutocompleteErrorEvent.reason documentation>  getReason ::           (MonadIO m, FromJSString result) =>             AutocompleteErrorEvent -> m result-getReason self-  = liftIO-      (fromJSString <$> (js_getReason (unAutocompleteErrorEvent self)))+getReason self = liftIO (fromJSString <$> (js_getReason (self)))
src/GHCJS/DOM/JSFFI/Generated/BarProp.hs view
@@ -4,7 +4,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -18,8 +18,8 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "($1[\"visible\"] ? 1 : 0)"-        js_getVisible :: JSRef BarProp -> IO Bool+        js_getVisible :: BarProp -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BarProp.visible Mozilla BarProp.visible documentation>  getVisible :: (MonadIO m) => BarProp -> m Bool-getVisible self = liftIO (js_getVisible (unBarProp self))+getVisible self = liftIO (js_getVisible (self))
src/GHCJS/DOM/JSFFI/Generated/BatteryManager.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,34 +22,32 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "($1[\"charging\"] ? 1 : 0)"-        js_getCharging :: JSRef BatteryManager -> IO Bool+        js_getCharging :: BatteryManager -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.charging Mozilla BatteryManager.charging documentation>  getCharging :: (MonadIO m) => BatteryManager -> m Bool-getCharging self = liftIO (js_getCharging (unBatteryManager self))+getCharging self = liftIO (js_getCharging (self))   foreign import javascript unsafe "$1[\"chargingTime\"]"-        js_getChargingTime :: JSRef BatteryManager -> IO Double+        js_getChargingTime :: BatteryManager -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.chargingTime Mozilla BatteryManager.chargingTime documentation>  getChargingTime :: (MonadIO m) => BatteryManager -> m Double-getChargingTime self-  = liftIO (js_getChargingTime (unBatteryManager self))+getChargingTime self = liftIO (js_getChargingTime (self))   foreign import javascript unsafe "$1[\"dischargingTime\"]"-        js_getDischargingTime :: JSRef BatteryManager -> IO Double+        js_getDischargingTime :: BatteryManager -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.dischargingTime Mozilla BatteryManager.dischargingTime documentation>  getDischargingTime :: (MonadIO m) => BatteryManager -> m Double-getDischargingTime self-  = liftIO (js_getDischargingTime (unBatteryManager self))+getDischargingTime self = liftIO (js_getDischargingTime (self))   foreign import javascript unsafe "$1[\"level\"]" js_getLevel ::-        JSRef BatteryManager -> IO Double+        BatteryManager -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.level Mozilla BatteryManager.level documentation>  getLevel :: (MonadIO m) => BatteryManager -> m Double-getLevel self = liftIO (js_getLevel (unBatteryManager self))+getLevel self = liftIO (js_getLevel (self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BatteryManager.onchargingchange Mozilla BatteryManager.onchargingchange documentation>  chargingChange :: EventName BatteryManager Event
src/GHCJS/DOM/JSFFI/Generated/BeforeLoadEvent.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,10 +19,9 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"url\"]" js_getUrl ::-        JSRef BeforeLoadEvent -> IO JSString+        BeforeLoadEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeLoadEvent.url Mozilla BeforeLoadEvent.url documentation>  getUrl ::        (MonadIO m, FromJSString result) => BeforeLoadEvent -> m result-getUrl self-  = liftIO (fromJSString <$> (js_getUrl (unBeforeLoadEvent self)))+getUrl self = liftIO (fromJSString <$> (js_getUrl (self)))
src/GHCJS/DOM/JSFFI/Generated/BeforeUnloadEvent.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,21 +20,19 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"returnValue\"] = $2;"-        js_setReturnValue :: JSRef BeforeUnloadEvent -> JSString -> IO ()+        js_setReturnValue :: BeforeUnloadEvent -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeUnloadEvent.returnValue Mozilla BeforeUnloadEvent.returnValue documentation>  setReturnValue ::                (MonadIO m, ToJSString val) => BeforeUnloadEvent -> val -> m () setReturnValue self val-  = liftIO-      (js_setReturnValue (unBeforeUnloadEvent self) (toJSString val))+  = liftIO (js_setReturnValue (self) (toJSString val))   foreign import javascript unsafe "$1[\"returnValue\"]"-        js_getReturnValue :: JSRef BeforeUnloadEvent -> IO JSString+        js_getReturnValue :: BeforeUnloadEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BeforeUnloadEvent.returnValue Mozilla BeforeUnloadEvent.returnValue documentation>  getReturnValue ::                (MonadIO m, FromJSString result) => BeforeUnloadEvent -> m result getReturnValue self-  = liftIO-      (fromJSString <$> (js_getReturnValue (unBeforeUnloadEvent self)))+  = liftIO (fromJSString <$> (js_getReturnValue (self)))
src/GHCJS/DOM/JSFFI/Generated/BiquadFilterNode.hs view
@@ -10,7 +10,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -26,9 +26,9 @@ foreign import javascript unsafe         "$1[\"getFrequencyResponse\"]($2,\n$3, $4)" js_getFrequencyResponse         ::-        JSRef BiquadFilterNode ->-          JSRef Float32Array ->-            JSRef Float32Array -> JSRef Float32Array -> IO ()+        BiquadFilterNode ->+          Nullable Float32Array ->+            Nullable Float32Array -> Nullable Float32Array -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.getFrequencyResponse Mozilla BiquadFilterNode.getFrequencyResponse documentation>  getFrequencyResponse ::@@ -39,10 +39,10 @@                            Maybe magResponse -> Maybe phaseResponse -> m () getFrequencyResponse self frequencyHz magResponse phaseResponse   = liftIO-      (js_getFrequencyResponse (unBiquadFilterNode self)-         (maybe jsNull (unFloat32Array . toFloat32Array) frequencyHz)-         (maybe jsNull (unFloat32Array . toFloat32Array) magResponse)-         (maybe jsNull (unFloat32Array . toFloat32Array) phaseResponse))+      (js_getFrequencyResponse (self)+         (maybeToNullable (fmap toFloat32Array frequencyHz))+         (maybeToNullable (fmap toFloat32Array magResponse))+         (maybeToNullable (fmap toFloat32Array phaseResponse))) pattern LOWPASS = 0 pattern HIGHPASS = 1 pattern BANDPASS = 2@@ -53,54 +53,48 @@ pattern ALLPASS = 7   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        JSRef BiquadFilterNode -> JSString -> IO ()+        BiquadFilterNode -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.type Mozilla BiquadFilterNode.type documentation>  setType ::         (MonadIO m, ToJSString val) => BiquadFilterNode -> val -> m ()-setType self val-  = liftIO (js_setType (unBiquadFilterNode self) (toJSString val))+setType self val = liftIO (js_setType (self) (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef BiquadFilterNode -> IO JSString+        BiquadFilterNode -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.type Mozilla BiquadFilterNode.type documentation>  getType ::         (MonadIO m, FromJSString result) => BiquadFilterNode -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unBiquadFilterNode self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"frequency\"]"-        js_getFrequency :: JSRef BiquadFilterNode -> IO (JSRef AudioParam)+        js_getFrequency :: BiquadFilterNode -> IO (Nullable AudioParam)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.frequency Mozilla BiquadFilterNode.frequency documentation>  getFrequency ::              (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam) getFrequency self-  = liftIO-      ((js_getFrequency (unBiquadFilterNode self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getFrequency (self)))   foreign import javascript unsafe "$1[\"detune\"]" js_getDetune ::-        JSRef BiquadFilterNode -> IO (JSRef AudioParam)+        BiquadFilterNode -> IO (Nullable AudioParam)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.detune Mozilla BiquadFilterNode.detune documentation>  getDetune ::           (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam)-getDetune self-  = liftIO ((js_getDetune (unBiquadFilterNode self)) >>= fromJSRef)+getDetune self = liftIO (nullableToMaybe <$> (js_getDetune (self)))   foreign import javascript unsafe "$1[\"Q\"]" js_getQ ::-        JSRef BiquadFilterNode -> IO (JSRef AudioParam)+        BiquadFilterNode -> IO (Nullable AudioParam)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.Q Mozilla BiquadFilterNode.Q documentation>  getQ :: (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam)-getQ self-  = liftIO ((js_getQ (unBiquadFilterNode self)) >>= fromJSRef)+getQ self = liftIO (nullableToMaybe <$> (js_getQ (self)))   foreign import javascript unsafe "$1[\"gain\"]" js_getGain ::-        JSRef BiquadFilterNode -> IO (JSRef AudioParam)+        BiquadFilterNode -> IO (Nullable AudioParam)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/BiquadFilterNode.gain Mozilla BiquadFilterNode.gain documentation>  getGain :: (MonadIO m) => BiquadFilterNode -> m (Maybe AudioParam)-getGain self-  = liftIO ((js_getGain (unBiquadFilterNode self)) >>= fromJSRef)+getGain self = liftIO (nullableToMaybe <$> (js_getGain (self)))
src/GHCJS/DOM/JSFFI/Generated/Blob.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,30 +20,27 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "new window[\"Blob\"]()"-        js_newBlob :: IO (JSRef Blob)+        js_newBlob :: IO Blob  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob Mozilla Blob documentation>  newBlob :: (MonadIO m) => m Blob-newBlob = liftIO (js_newBlob >>= fromJSRefUnchecked)+newBlob = liftIO (js_newBlob)   foreign import javascript unsafe "new window[\"Blob\"]($1, $2)"-        js_newBlob' ::-        JSRef [JSRef a] -> JSRef BlobPropertyBag -> IO (JSRef Blob)+        js_newBlob' :: JSRef -> Nullable BlobPropertyBag -> IO Blob  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob Mozilla Blob documentation>  newBlob' ::          (MonadIO m, IsBlobPropertyBag options) =>-           [JSRef a] -> Maybe options -> m Blob+           [JSRef] -> Maybe options -> m Blob newBlob' blobParts options   = liftIO       (toJSRef blobParts >>= \ blobParts' -> js_newBlob' blobParts'-         (maybe jsNull (unBlobPropertyBag . toBlobPropertyBag) options)-         >>= fromJSRefUnchecked)+         (maybeToNullable (fmap toBlobPropertyBag options)))   foreign import javascript unsafe "$1[\"slice\"]($2, $3, $4)"         js_slice ::-        JSRef Blob ->-          Double -> Double -> JSRef (Maybe JSString) -> IO (JSRef Blob)+        Blob -> Double -> Double -> Nullable JSString -> IO (Nullable Blob)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.slice Mozilla Blob.slice documentation>  slice ::@@ -51,24 +48,21 @@         self -> Int64 -> Int64 -> Maybe contentType -> m (Maybe Blob) slice self start end contentType   = liftIO-      ((js_slice (unBlob (toBlob self)) (fromIntegral start)-          (fromIntegral end)-          (toMaybeJSString contentType))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_slice (toBlob self) (fromIntegral start) (fromIntegral end)+            (toMaybeJSString contentType)))   foreign import javascript unsafe "$1[\"size\"]" js_getSize ::-        JSRef Blob -> IO Double+        Blob -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.size Mozilla Blob.size documentation>  getSize :: (MonadIO m, IsBlob self) => self -> m Word64-getSize self-  = liftIO (round <$> (js_getSize (unBlob (toBlob self))))+getSize self = liftIO (round <$> (js_getSize (toBlob self)))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef Blob -> IO JSString+        Blob -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Blob.type Mozilla Blob.type documentation>  getType ::         (MonadIO m, IsBlob self, FromJSString result) => self -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unBlob (toBlob self))))+getType self = liftIO (fromJSString <$> (js_getType (toBlob self)))
src/GHCJS/DOM/JSFFI/Generated/CSS.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,7 +20,7 @@   foreign import javascript unsafe         "($1[\"supports\"]($2, $3) ? 1 : 0)" js_supports2 ::-        JSRef CSS -> JSString -> JSString -> IO Bool+        CSS -> JSString -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation>  supports2 ::@@ -28,15 +28,14 @@             CSS -> property -> value -> m Bool supports2 self property value   = liftIO-      (js_supports2 (unCSS self) (toJSString property)-         (toJSString value))+      (js_supports2 (self) (toJSString property) (toJSString value))   foreign import javascript unsafe "($1[\"supports\"]($2) ? 1 : 0)"-        js_supports :: JSRef CSS -> JSString -> IO Bool+        js_supports :: CSS -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSS.supports Mozilla CSS.supports documentation>  supports ::          (MonadIO m, ToJSString conditionText) =>            CSS -> conditionText -> m Bool supports self conditionText-  = liftIO (js_supports (unCSS self) (toJSString conditionText))+  = liftIO (js_supports (self) (toJSString conditionText))
src/GHCJS/DOM/JSFFI/Generated/CSSCharsetRule.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,23 +19,20 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"encoding\"] = $2;"-        js_setEncoding ::-        JSRef CSSCharsetRule -> JSRef (Maybe JSString) -> IO ()+        js_setEncoding :: CSSCharsetRule -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSCharsetRule.encoding Mozilla CSSCharsetRule.encoding documentation>  setEncoding ::             (MonadIO m, ToJSString val) => CSSCharsetRule -> Maybe val -> m () setEncoding self val-  = liftIO-      (js_setEncoding (unCSSCharsetRule self) (toMaybeJSString val))+  = liftIO (js_setEncoding (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"encoding\"]" js_getEncoding-        :: JSRef CSSCharsetRule -> IO (JSRef (Maybe JSString))+        :: CSSCharsetRule -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSCharsetRule.encoding Mozilla CSSCharsetRule.encoding documentation>  getEncoding ::             (MonadIO m, FromJSString result) =>               CSSCharsetRule -> m (Maybe result) getEncoding self-  = liftIO-      (fromMaybeJSString <$> (js_getEncoding (unCSSCharsetRule self)))+  = liftIO (fromMaybeJSString <$> (js_getEncoding (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceLoadEvent.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,21 +20,18 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"fontface\"]" js_getFontface-        :: JSRef CSSFontFaceLoadEvent -> IO (JSRef CSSFontFaceRule)+        :: CSSFontFaceLoadEvent -> IO (Nullable CSSFontFaceRule)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.fontface Mozilla CSSFontFaceLoadEvent.fontface documentation>  getFontface ::             (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe CSSFontFaceRule) getFontface self-  = liftIO-      ((js_getFontface (unCSSFontFaceLoadEvent self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getFontface (self)))   foreign import javascript unsafe "$1[\"error\"]" js_getError ::-        JSRef CSSFontFaceLoadEvent -> IO (JSRef DOMError)+        CSSFontFaceLoadEvent -> IO (Nullable DOMError)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceLoadEvent.error Mozilla CSSFontFaceLoadEvent.error documentation>  getError ::          (MonadIO m) => CSSFontFaceLoadEvent -> m (Maybe DOMError)-getError self-  = liftIO-      ((js_getError (unCSSFontFaceLoadEvent self)) >>= fromJSRef)+getError self = liftIO (nullableToMaybe <$> (js_getError (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSFontFaceRule.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,10 +19,9 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::-        JSRef CSSFontFaceRule -> IO (JSRef CSSStyleDeclaration)+        CSSFontFaceRule -> IO (Nullable CSSStyleDeclaration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSFontFaceRule.style Mozilla CSSFontFaceRule.style documentation>  getStyle ::          (MonadIO m) => CSSFontFaceRule -> m (Maybe CSSStyleDeclaration)-getStyle self-  = liftIO ((js_getStyle (unCSSFontFaceRule self)) >>= fromJSRef)+getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSImportRule.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,29 +20,26 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"href\"]" js_getHref ::-        JSRef CSSImportRule -> IO (JSRef (Maybe JSString))+        CSSImportRule -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.href Mozilla CSSImportRule.href documentation>  getHref ::         (MonadIO m, FromJSString result) =>           CSSImportRule -> m (Maybe result)-getHref self-  = liftIO-      (fromMaybeJSString <$> (js_getHref (unCSSImportRule self)))+getHref self = liftIO (fromMaybeJSString <$> (js_getHref (self)))   foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::-        JSRef CSSImportRule -> IO (JSRef MediaList)+        CSSImportRule -> IO (Nullable MediaList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.media Mozilla CSSImportRule.media documentation>  getMedia :: (MonadIO m) => CSSImportRule -> m (Maybe MediaList)-getMedia self-  = liftIO ((js_getMedia (unCSSImportRule self)) >>= fromJSRef)+getMedia self = liftIO (nullableToMaybe <$> (js_getMedia (self)))   foreign import javascript unsafe "$1[\"styleSheet\"]"-        js_getStyleSheet :: JSRef CSSImportRule -> IO (JSRef CSSStyleSheet)+        js_getStyleSheet :: CSSImportRule -> IO (Nullable CSSStyleSheet)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSImportRule.styleSheet Mozilla CSSImportRule.styleSheet documentation>  getStyleSheet ::               (MonadIO m) => CSSImportRule -> m (Maybe CSSStyleSheet) getStyleSheet self-  = liftIO ((js_getStyleSheet (unCSSImportRule self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getStyleSheet (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSKeyframeRule.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,29 +20,26 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"keyText\"] = $2;"-        js_setKeyText :: JSRef CSSKeyframeRule -> JSString -> IO ()+        js_setKeyText :: CSSKeyframeRule -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.keyText Mozilla CSSKeyframeRule.keyText documentation>  setKeyText ::            (MonadIO m, ToJSString val) => CSSKeyframeRule -> val -> m () setKeyText self val-  = liftIO (js_setKeyText (unCSSKeyframeRule self) (toJSString val))+  = liftIO (js_setKeyText (self) (toJSString val))   foreign import javascript unsafe "$1[\"keyText\"]" js_getKeyText ::-        JSRef CSSKeyframeRule -> IO JSString+        CSSKeyframeRule -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.keyText Mozilla CSSKeyframeRule.keyText documentation>  getKeyText ::            (MonadIO m, FromJSString result) => CSSKeyframeRule -> m result-getKeyText self-  = liftIO-      (fromJSString <$> (js_getKeyText (unCSSKeyframeRule self)))+getKeyText self = liftIO (fromJSString <$> (js_getKeyText (self)))   foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::-        JSRef CSSKeyframeRule -> IO (JSRef CSSStyleDeclaration)+        CSSKeyframeRule -> IO (Nullable CSSStyleDeclaration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframeRule.style Mozilla CSSKeyframeRule.style documentation>  getStyle ::          (MonadIO m) => CSSKeyframeRule -> m (Maybe CSSStyleDeclaration)-getStyle self-  = liftIO ((js_getStyle (unCSSKeyframeRule self)) >>= fromJSRef)+getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSKeyframesRule.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,36 +22,34 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"insertRule\"]($2)"-        js_insertRule :: JSRef CSSKeyframesRule -> JSString -> IO ()+        js_insertRule :: CSSKeyframesRule -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.insertRule Mozilla CSSKeyframesRule.insertRule documentation>  insertRule ::            (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m () insertRule self rule-  = liftIO-      (js_insertRule (unCSSKeyframesRule self) (toJSString rule))+  = liftIO (js_insertRule (self) (toJSString rule))   foreign import javascript unsafe "$1[\"appendRule\"]($2)"-        js_appendRule :: JSRef CSSKeyframesRule -> JSString -> IO ()+        js_appendRule :: CSSKeyframesRule -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.appendRule Mozilla CSSKeyframesRule.appendRule documentation>  appendRule ::            (MonadIO m, ToJSString rule) => CSSKeyframesRule -> rule -> m () appendRule self rule-  = liftIO-      (js_appendRule (unCSSKeyframesRule self) (toJSString rule))+  = liftIO (js_appendRule (self) (toJSString rule))   foreign import javascript unsafe "$1[\"deleteRule\"]($2)"-        js_deleteRule :: JSRef CSSKeyframesRule -> JSString -> IO ()+        js_deleteRule :: CSSKeyframesRule -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.deleteRule Mozilla CSSKeyframesRule.deleteRule documentation>  deleteRule ::            (MonadIO m, ToJSString key) => CSSKeyframesRule -> key -> m () deleteRule self key-  = liftIO (js_deleteRule (unCSSKeyframesRule self) (toJSString key))+  = liftIO (js_deleteRule (self) (toJSString key))   foreign import javascript unsafe "$1[\"findRule\"]($2)" js_findRule-        :: JSRef CSSKeyframesRule -> JSString -> IO (JSRef CSSKeyframeRule)+        :: CSSKeyframesRule -> JSString -> IO (Nullable CSSKeyframeRule)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.findRule Mozilla CSSKeyframesRule.findRule documentation>  findRule ::@@ -59,46 +57,41 @@            CSSKeyframesRule -> key -> m (Maybe CSSKeyframeRule) findRule self key   = liftIO-      ((js_findRule (unCSSKeyframesRule self) (toJSString key)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_findRule (self) (toJSString key)))   foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::-        JSRef CSSKeyframesRule -> Word -> IO (JSRef CSSKeyframeRule)+        CSSKeyframesRule -> Word -> IO (Nullable CSSKeyframeRule)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule._get Mozilla CSSKeyframesRule._get documentation>  _get ::      (MonadIO m) =>        CSSKeyframesRule -> Word -> m (Maybe CSSKeyframeRule) _get self index-  = liftIO ((js__get (unCSSKeyframesRule self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js__get (self) index))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef CSSKeyframesRule -> JSRef (Maybe JSString) -> IO ()+        CSSKeyframesRule -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation>  setName ::         (MonadIO m, ToJSString val) =>           CSSKeyframesRule -> Maybe val -> m ()-setName self val-  = liftIO-      (js_setName (unCSSKeyframesRule self) (toMaybeJSString val))+setName self val = liftIO (js_setName (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef CSSKeyframesRule -> IO (JSRef (Maybe JSString))+        CSSKeyframesRule -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.name Mozilla CSSKeyframesRule.name documentation>  getName ::         (MonadIO m, FromJSString result) =>           CSSKeyframesRule -> m (Maybe result)-getName self-  = liftIO-      (fromMaybeJSString <$> (js_getName (unCSSKeyframesRule self)))+getName self = liftIO (fromMaybeJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules-        :: JSRef CSSKeyframesRule -> IO (JSRef CSSRuleList)+        :: CSSKeyframesRule -> IO (Nullable CSSRuleList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSKeyframesRule.cssRules Mozilla CSSKeyframesRule.cssRules documentation>  getCssRules ::             (MonadIO m) => CSSKeyframesRule -> m (Maybe CSSRuleList) getCssRules self-  = liftIO ((js_getCssRules (unCSSKeyframesRule self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getCssRules (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSMediaRule.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,36 +20,33 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"-        js_insertRule :: JSRef CSSMediaRule -> JSString -> Word -> IO Word+        js_insertRule :: CSSMediaRule -> JSString -> Word -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.insertRule Mozilla CSSMediaRule.insertRule documentation>  insertRule ::            (MonadIO m, ToJSString rule) =>              CSSMediaRule -> rule -> Word -> m Word insertRule self rule index-  = liftIO-      (js_insertRule (unCSSMediaRule self) (toJSString rule) index)+  = liftIO (js_insertRule (self) (toJSString rule) index)   foreign import javascript unsafe "$1[\"deleteRule\"]($2)"-        js_deleteRule :: JSRef CSSMediaRule -> Word -> IO ()+        js_deleteRule :: CSSMediaRule -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.deleteRule Mozilla CSSMediaRule.deleteRule documentation>  deleteRule :: (MonadIO m) => CSSMediaRule -> Word -> m ()-deleteRule self index-  = liftIO (js_deleteRule (unCSSMediaRule self) index)+deleteRule self index = liftIO (js_deleteRule (self) index)   foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::-        JSRef CSSMediaRule -> IO (JSRef MediaList)+        CSSMediaRule -> IO (Nullable MediaList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.media Mozilla CSSMediaRule.media documentation>  getMedia :: (MonadIO m) => CSSMediaRule -> m (Maybe MediaList)-getMedia self-  = liftIO ((js_getMedia (unCSSMediaRule self)) >>= fromJSRef)+getMedia self = liftIO (nullableToMaybe <$> (js_getMedia (self)))   foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules-        :: JSRef CSSMediaRule -> IO (JSRef CSSRuleList)+        :: CSSMediaRule -> IO (Nullable CSSRuleList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSMediaRule.cssRules Mozilla CSSMediaRule.cssRules documentation>  getCssRules :: (MonadIO m) => CSSMediaRule -> m (Maybe CSSRuleList) getCssRules self-  = liftIO ((js_getCssRules (unCSSMediaRule self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getCssRules (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSPageRule.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,32 +20,27 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"selectorText\"] = $2;"-        js_setSelectorText ::-        JSRef CSSPageRule -> JSRef (Maybe JSString) -> IO ()+        js_setSelectorText :: CSSPageRule -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation>  setSelectorText ::                 (MonadIO m, ToJSString val) => CSSPageRule -> Maybe val -> m () setSelectorText self val-  = liftIO-      (js_setSelectorText (unCSSPageRule self) (toMaybeJSString val))+  = liftIO (js_setSelectorText (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"selectorText\"]"-        js_getSelectorText ::-        JSRef CSSPageRule -> IO (JSRef (Maybe JSString))+        js_getSelectorText :: CSSPageRule -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.selectorText Mozilla CSSPageRule.selectorText documentation>  getSelectorText ::                 (MonadIO m, FromJSString result) => CSSPageRule -> m (Maybe result) getSelectorText self-  = liftIO-      (fromMaybeJSString <$> (js_getSelectorText (unCSSPageRule self)))+  = liftIO (fromMaybeJSString <$> (js_getSelectorText (self)))   foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::-        JSRef CSSPageRule -> IO (JSRef CSSStyleDeclaration)+        CSSPageRule -> IO (Nullable CSSStyleDeclaration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPageRule.style Mozilla CSSPageRule.style documentation>  getStyle ::          (MonadIO m) => CSSPageRule -> m (Maybe CSSStyleDeclaration)-getStyle self-  = liftIO ((js_getStyle (unCSSPageRule self)) >>= fromJSRef)+getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSPrimitiveValue.hs view
@@ -18,7 +18,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -32,28 +32,25 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"setFloatValue\"]($2, $3)"-        js_setFloatValue ::-        JSRef CSSPrimitiveValue -> Word -> Float -> IO ()+        js_setFloatValue :: CSSPrimitiveValue -> Word -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.setFloatValue Mozilla CSSPrimitiveValue.setFloatValue documentation>  setFloatValue ::               (MonadIO m) => CSSPrimitiveValue -> Word -> Float -> m () setFloatValue self unitType floatValue-  = liftIO-      (js_setFloatValue (unCSSPrimitiveValue self) unitType floatValue)+  = liftIO (js_setFloatValue (self) unitType floatValue)   foreign import javascript unsafe "$1[\"getFloatValue\"]($2)"-        js_getFloatValue :: JSRef CSSPrimitiveValue -> Word -> IO Float+        js_getFloatValue :: CSSPrimitiveValue -> Word -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getFloatValue Mozilla CSSPrimitiveValue.getFloatValue documentation>  getFloatValue ::               (MonadIO m) => CSSPrimitiveValue -> Word -> m Float getFloatValue self unitType-  = liftIO (js_getFloatValue (unCSSPrimitiveValue self) unitType)+  = liftIO (js_getFloatValue (self) unitType)   foreign import javascript unsafe "$1[\"setStringValue\"]($2, $3)"-        js_setStringValue ::-        JSRef CSSPrimitiveValue -> Word -> JSString -> IO ()+        js_setStringValue :: CSSPrimitiveValue -> Word -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.setStringValue Mozilla CSSPrimitiveValue.setStringValue documentation>  setStringValue ::@@ -61,48 +58,42 @@                  CSSPrimitiveValue -> Word -> stringValue -> m () setStringValue self stringType stringValue   = liftIO-      (js_setStringValue (unCSSPrimitiveValue self) stringType-         (toJSString stringValue))+      (js_setStringValue (self) stringType (toJSString stringValue))   foreign import javascript unsafe "$1[\"getStringValue\"]()"-        js_getStringValue :: JSRef CSSPrimitiveValue -> IO JSString+        js_getStringValue :: CSSPrimitiveValue -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getStringValue Mozilla CSSPrimitiveValue.getStringValue documentation>  getStringValue ::                (MonadIO m, FromJSString result) => CSSPrimitiveValue -> m result getStringValue self-  = liftIO-      (fromJSString <$> (js_getStringValue (unCSSPrimitiveValue self)))+  = liftIO (fromJSString <$> (js_getStringValue (self)))   foreign import javascript unsafe "$1[\"getCounterValue\"]()"-        js_getCounterValue :: JSRef CSSPrimitiveValue -> IO (JSRef Counter)+        js_getCounterValue :: CSSPrimitiveValue -> IO (Nullable Counter)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getCounterValue Mozilla CSSPrimitiveValue.getCounterValue documentation>  getCounterValue ::                 (MonadIO m) => CSSPrimitiveValue -> m (Maybe Counter) getCounterValue self-  = liftIO-      ((js_getCounterValue (unCSSPrimitiveValue self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getCounterValue (self)))   foreign import javascript unsafe "$1[\"getRectValue\"]()"-        js_getRectValue :: JSRef CSSPrimitiveValue -> IO (JSRef Rect)+        js_getRectValue :: CSSPrimitiveValue -> IO (Nullable Rect)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRectValue Mozilla CSSPrimitiveValue.getRectValue documentation>  getRectValue :: (MonadIO m) => CSSPrimitiveValue -> m (Maybe Rect) getRectValue self-  = liftIO-      ((js_getRectValue (unCSSPrimitiveValue self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getRectValue (self)))   foreign import javascript unsafe "$1[\"getRGBColorValue\"]()"-        js_getRGBColorValue ::-        JSRef CSSPrimitiveValue -> IO (JSRef RGBColor)+        js_getRGBColorValue :: CSSPrimitiveValue -> IO (Nullable RGBColor)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.getRGBColorValue Mozilla CSSPrimitiveValue.getRGBColorValue documentation>  getRGBColorValue ::                  (MonadIO m) => CSSPrimitiveValue -> m (Maybe RGBColor) getRGBColorValue self-  = liftIO-      ((js_getRGBColorValue (unCSSPrimitiveValue self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getRGBColorValue (self))) pattern CSS_UNKNOWN = 0 pattern CSS_NUMBER = 1 pattern CSS_PERCENTAGE = 2@@ -135,9 +126,8 @@ pattern CSS_VMAX = 29   foreign import javascript unsafe "$1[\"primitiveType\"]"-        js_getPrimitiveType :: JSRef CSSPrimitiveValue -> IO Word+        js_getPrimitiveType :: CSSPrimitiveValue -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSPrimitiveValue.primitiveType Mozilla CSSPrimitiveValue.primitiveType documentation>  getPrimitiveType :: (MonadIO m) => CSSPrimitiveValue -> m Word-getPrimitiveType self-  = liftIO (js_getPrimitiveType (unCSSPrimitiveValue self))+getPrimitiveType self = liftIO (js_getPrimitiveType (self))
src/GHCJS/DOM/JSFFI/Generated/CSSRule.hs view
@@ -12,7 +12,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -40,52 +40,47 @@ pattern WEBKIT_KEYFRAME_RULE = 8   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef CSSRule -> IO Word+        CSSRule -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.type Mozilla CSSRule.type documentation>  getType :: (MonadIO m, IsCSSRule self) => self -> m Word-getType self = liftIO (js_getType (unCSSRule (toCSSRule self)))+getType self = liftIO (js_getType (toCSSRule self))   foreign import javascript unsafe "$1[\"cssText\"] = $2;"-        js_setCssText :: JSRef CSSRule -> JSRef (Maybe JSString) -> IO ()+        js_setCssText :: CSSRule -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation>  setCssText ::            (MonadIO m, IsCSSRule self, ToJSString val) =>              self -> Maybe val -> m () setCssText self val-  = liftIO-      (js_setCssText (unCSSRule (toCSSRule self)) (toMaybeJSString val))+  = liftIO (js_setCssText (toCSSRule self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText ::-        JSRef CSSRule -> IO (JSRef (Maybe JSString))+        CSSRule -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.cssText Mozilla CSSRule.cssText documentation>  getCssText ::            (MonadIO m, IsCSSRule self, FromJSString result) =>              self -> m (Maybe result) getCssText self-  = liftIO-      (fromMaybeJSString <$>-         (js_getCssText (unCSSRule (toCSSRule self))))+  = liftIO (fromMaybeJSString <$> (js_getCssText (toCSSRule self)))   foreign import javascript unsafe "$1[\"parentStyleSheet\"]"-        js_getParentStyleSheet :: JSRef CSSRule -> IO (JSRef CSSStyleSheet)+        js_getParentStyleSheet :: CSSRule -> IO (Nullable CSSStyleSheet)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentStyleSheet Mozilla CSSRule.parentStyleSheet documentation>  getParentStyleSheet ::                     (MonadIO m, IsCSSRule self) => self -> m (Maybe CSSStyleSheet) getParentStyleSheet self   = liftIO-      ((js_getParentStyleSheet (unCSSRule (toCSSRule self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getParentStyleSheet (toCSSRule self)))   foreign import javascript unsafe "$1[\"parentRule\"]"-        js_getParentRule :: JSRef CSSRule -> IO (JSRef CSSRule)+        js_getParentRule :: CSSRule -> IO (Nullable CSSRule)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRule.parentRule Mozilla CSSRule.parentRule documentation>  getParentRule ::               (MonadIO m, IsCSSRule self) => self -> m (Maybe CSSRule) getParentRule self-  = liftIO-      ((js_getParentRule (unCSSRule (toCSSRule self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getParentRule (toCSSRule self)))
src/GHCJS/DOM/JSFFI/Generated/CSSRuleList.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,16 +19,16 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef CSSRuleList -> Word -> IO (JSRef CSSRule)+        CSSRuleList -> Word -> IO (Nullable CSSRule)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.item Mozilla CSSRuleList.item documentation>  item :: (MonadIO m) => CSSRuleList -> Word -> m (Maybe CSSRule) item self index-  = liftIO ((js_item (unCSSRuleList self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef CSSRuleList -> IO Word+        CSSRuleList -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSRuleList.length Mozilla CSSRuleList.length documentation>  getLength :: (MonadIO m) => CSSRuleList -> m Word-getLength self = liftIO (js_getLength (unCSSRuleList self))+getLength self = liftIO (js_getLength (self))
src/GHCJS/DOM/JSFFI/Generated/CSSStyleDeclaration.hs view
@@ -11,7 +11,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -26,8 +26,7 @@   foreign import javascript unsafe "$1[\"getPropertyValue\"]($2)"         js_getPropertyValue ::-        JSRef CSSStyleDeclaration ->-          JSString -> IO (JSRef (Maybe JSString))+        CSSStyleDeclaration -> JSString -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyValue Mozilla CSSStyleDeclaration.getPropertyValue documentation>  getPropertyValue ::@@ -36,12 +35,11 @@ getPropertyValue self propertyName   = liftIO       (fromMaybeJSString <$>-         (js_getPropertyValue (unCSSStyleDeclaration self)-            (toJSString propertyName)))+         (js_getPropertyValue (self) (toJSString propertyName)))   foreign import javascript unsafe "$1[\"getPropertyCSSValue\"]($2)"         js_getPropertyCSSValue ::-        JSRef CSSStyleDeclaration -> JSString -> IO (JSRef CSSValue)+        CSSStyleDeclaration -> JSString -> IO (Nullable CSSValue)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyCSSValue Mozilla CSSStyleDeclaration.getPropertyCSSValue documentation>  getPropertyCSSValue ::@@ -49,14 +47,12 @@                       CSSStyleDeclaration -> propertyName -> m (Maybe CSSValue) getPropertyCSSValue self propertyName   = liftIO-      ((js_getPropertyCSSValue (unCSSStyleDeclaration self)-          (toJSString propertyName))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getPropertyCSSValue (self) (toJSString propertyName)))   foreign import javascript unsafe "$1[\"removeProperty\"]($2)"         js_removeProperty ::-        JSRef CSSStyleDeclaration ->-          JSString -> IO (JSRef (Maybe JSString))+        CSSStyleDeclaration -> JSString -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.removeProperty Mozilla CSSStyleDeclaration.removeProperty documentation>  removeProperty ::@@ -65,13 +61,11 @@ removeProperty self propertyName   = liftIO       (fromMaybeJSString <$>-         (js_removeProperty (unCSSStyleDeclaration self)-            (toJSString propertyName)))+         (js_removeProperty (self) (toJSString propertyName)))   foreign import javascript unsafe "$1[\"getPropertyPriority\"]($2)"         js_getPropertyPriority ::-        JSRef CSSStyleDeclaration ->-          JSString -> IO (JSRef (Maybe JSString))+        CSSStyleDeclaration -> JSString -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyPriority Mozilla CSSStyleDeclaration.getPropertyPriority documentation>  getPropertyPriority ::@@ -80,13 +74,12 @@ getPropertyPriority self propertyName   = liftIO       (fromMaybeJSString <$>-         (js_getPropertyPriority (unCSSStyleDeclaration self)-            (toJSString propertyName)))+         (js_getPropertyPriority (self) (toJSString propertyName)))   foreign import javascript unsafe "$1[\"setProperty\"]($2, $3, $4)"         js_setProperty ::-        JSRef CSSStyleDeclaration ->-          JSString -> JSRef (Maybe JSString) -> JSString -> IO ()+        CSSStyleDeclaration ->+          JSString -> Nullable JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.setProperty Mozilla CSSStyleDeclaration.setProperty documentation>  setProperty ::@@ -96,26 +89,22 @@                 propertyName -> Maybe value -> priority -> m () setProperty self propertyName value priority   = liftIO-      (js_setProperty (unCSSStyleDeclaration self)-         (toJSString propertyName)+      (js_setProperty (self) (toJSString propertyName)          (toMaybeJSString value)          (toJSString priority))   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef CSSStyleDeclaration -> Word -> IO JSString+        CSSStyleDeclaration -> Word -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.item Mozilla CSSStyleDeclaration.item documentation>  item ::      (MonadIO m, FromJSString result) =>        CSSStyleDeclaration -> Word -> m result-item self index-  = liftIO-      (fromJSString <$> (js_item (unCSSStyleDeclaration self) index))+item self index = liftIO (fromJSString <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"getPropertyShorthand\"]($2)"         js_getPropertyShorthand ::-        JSRef CSSStyleDeclaration ->-          JSString -> IO (JSRef (Maybe JSString))+        CSSStyleDeclaration -> JSString -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.getPropertyShorthand Mozilla CSSStyleDeclaration.getPropertyShorthand documentation>  getPropertyShorthand ::@@ -124,59 +113,51 @@ getPropertyShorthand self propertyName   = liftIO       (fromMaybeJSString <$>-         (js_getPropertyShorthand (unCSSStyleDeclaration self)-            (toJSString propertyName)))+         (js_getPropertyShorthand (self) (toJSString propertyName)))   foreign import javascript unsafe         "($1[\"isPropertyImplicit\"]($2) ? 1 : 0)" js_isPropertyImplicit ::-        JSRef CSSStyleDeclaration -> JSString -> IO Bool+        CSSStyleDeclaration -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.isPropertyImplicit Mozilla CSSStyleDeclaration.isPropertyImplicit documentation>  isPropertyImplicit ::                    (MonadIO m, ToJSString propertyName) =>                      CSSStyleDeclaration -> propertyName -> m Bool isPropertyImplicit self propertyName-  = liftIO-      (js_isPropertyImplicit (unCSSStyleDeclaration self)-         (toJSString propertyName))+  = liftIO (js_isPropertyImplicit (self) (toJSString propertyName))   foreign import javascript unsafe "$1[\"cssText\"] = $2;"-        js_setCssText ::-        JSRef CSSStyleDeclaration -> JSRef (Maybe JSString) -> IO ()+        js_setCssText :: CSSStyleDeclaration -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation>  setCssText ::            (MonadIO m, ToJSString val) =>              CSSStyleDeclaration -> Maybe val -> m () setCssText self val-  = liftIO-      (js_setCssText (unCSSStyleDeclaration self) (toMaybeJSString val))+  = liftIO (js_setCssText (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText ::-        JSRef CSSStyleDeclaration -> IO (JSRef (Maybe JSString))+        CSSStyleDeclaration -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.cssText Mozilla CSSStyleDeclaration.cssText documentation>  getCssText ::            (MonadIO m, FromJSString result) =>              CSSStyleDeclaration -> m (Maybe result) getCssText self-  = liftIO-      (fromMaybeJSString <$>-         (js_getCssText (unCSSStyleDeclaration self)))+  = liftIO (fromMaybeJSString <$> (js_getCssText (self)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef CSSStyleDeclaration -> IO Word+        CSSStyleDeclaration -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.length Mozilla CSSStyleDeclaration.length documentation>  getLength :: (MonadIO m) => CSSStyleDeclaration -> m Word-getLength self = liftIO (js_getLength (unCSSStyleDeclaration self))+getLength self = liftIO (js_getLength (self))   foreign import javascript unsafe "$1[\"parentRule\"]"-        js_getParentRule :: JSRef CSSStyleDeclaration -> IO (JSRef CSSRule)+        js_getParentRule :: CSSStyleDeclaration -> IO (Nullable CSSRule)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleDeclaration.parentRule Mozilla CSSStyleDeclaration.parentRule documentation>  getParentRule ::               (MonadIO m) => CSSStyleDeclaration -> m (Maybe CSSRule) getParentRule self-  = liftIO-      ((js_getParentRule (unCSSStyleDeclaration self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getParentRule (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSStyleRule.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,33 +20,28 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"selectorText\"] = $2;"-        js_setSelectorText ::-        JSRef CSSStyleRule -> JSRef (Maybe JSString) -> IO ()+        js_setSelectorText :: CSSStyleRule -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation>  setSelectorText ::                 (MonadIO m, ToJSString val) => CSSStyleRule -> Maybe val -> m () setSelectorText self val-  = liftIO-      (js_setSelectorText (unCSSStyleRule self) (toMaybeJSString val))+  = liftIO (js_setSelectorText (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"selectorText\"]"-        js_getSelectorText ::-        JSRef CSSStyleRule -> IO (JSRef (Maybe JSString))+        js_getSelectorText :: CSSStyleRule -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.selectorText Mozilla CSSStyleRule.selectorText documentation>  getSelectorText ::                 (MonadIO m, FromJSString result) =>                   CSSStyleRule -> m (Maybe result) getSelectorText self-  = liftIO-      (fromMaybeJSString <$> (js_getSelectorText (unCSSStyleRule self)))+  = liftIO (fromMaybeJSString <$> (js_getSelectorText (self)))   foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::-        JSRef CSSStyleRule -> IO (JSRef CSSStyleDeclaration)+        CSSStyleRule -> IO (Nullable CSSStyleDeclaration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleRule.style Mozilla CSSStyleRule.style documentation>  getStyle ::          (MonadIO m) => CSSStyleRule -> m (Maybe CSSStyleDeclaration)-getStyle self-  = liftIO ((js_getStyle (unCSSStyleRule self)) >>= fromJSRef)+getStyle self = liftIO (nullableToMaybe <$> (js_getStyle (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSStyleSheet.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,27 +21,25 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"-        js_insertRule :: JSRef CSSStyleSheet -> JSString -> Word -> IO Word+        js_insertRule :: CSSStyleSheet -> JSString -> Word -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.insertRule Mozilla CSSStyleSheet.insertRule documentation>  insertRule ::            (MonadIO m, ToJSString rule) =>              CSSStyleSheet -> rule -> Word -> m Word insertRule self rule index-  = liftIO-      (js_insertRule (unCSSStyleSheet self) (toJSString rule) index)+  = liftIO (js_insertRule (self) (toJSString rule) index)   foreign import javascript unsafe "$1[\"deleteRule\"]($2)"-        js_deleteRule :: JSRef CSSStyleSheet -> Word -> IO ()+        js_deleteRule :: CSSStyleSheet -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.deleteRule Mozilla CSSStyleSheet.deleteRule documentation>  deleteRule :: (MonadIO m) => CSSStyleSheet -> Word -> m ()-deleteRule self index-  = liftIO (js_deleteRule (unCSSStyleSheet self) index)+deleteRule self index = liftIO (js_deleteRule (self) index)   foreign import javascript unsafe "$1[\"addRule\"]($2, $3, $4)"         js_addRule ::-        JSRef CSSStyleSheet -> JSString -> JSString -> Word -> IO Int+        CSSStyleSheet -> JSString -> JSString -> Word -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.addRule Mozilla CSSStyleSheet.addRule documentation>  addRule ::@@ -49,39 +47,35 @@           CSSStyleSheet -> selector -> style -> Word -> m Int addRule self selector style index   = liftIO-      (js_addRule (unCSSStyleSheet self) (toJSString selector)-         (toJSString style)-         index)+      (js_addRule (self) (toJSString selector) (toJSString style) index)   foreign import javascript unsafe "$1[\"removeRule\"]($2)"-        js_removeRule :: JSRef CSSStyleSheet -> Word -> IO ()+        js_removeRule :: CSSStyleSheet -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.removeRule Mozilla CSSStyleSheet.removeRule documentation>  removeRule :: (MonadIO m) => CSSStyleSheet -> Word -> m ()-removeRule self index-  = liftIO (js_removeRule (unCSSStyleSheet self) index)+removeRule self index = liftIO (js_removeRule (self) index)   foreign import javascript unsafe "$1[\"ownerRule\"]"-        js_getOwnerRule :: JSRef CSSStyleSheet -> IO (JSRef CSSRule)+        js_getOwnerRule :: CSSStyleSheet -> IO (Nullable CSSRule)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.ownerRule Mozilla CSSStyleSheet.ownerRule documentation>  getOwnerRule :: (MonadIO m) => CSSStyleSheet -> m (Maybe CSSRule) getOwnerRule self-  = liftIO ((js_getOwnerRule (unCSSStyleSheet self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getOwnerRule (self)))   foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules-        :: JSRef CSSStyleSheet -> IO (JSRef CSSRuleList)+        :: CSSStyleSheet -> IO (Nullable CSSRuleList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.cssRules Mozilla CSSStyleSheet.cssRules documentation>  getCssRules ::             (MonadIO m) => CSSStyleSheet -> m (Maybe CSSRuleList) getCssRules self-  = liftIO ((js_getCssRules (unCSSStyleSheet self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getCssRules (self)))   foreign import javascript unsafe "$1[\"rules\"]" js_getRules ::-        JSRef CSSStyleSheet -> IO (JSRef CSSRuleList)+        CSSStyleSheet -> IO (Nullable CSSRuleList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSStyleSheet.rules Mozilla CSSStyleSheet.rules documentation>  getRules :: (MonadIO m) => CSSStyleSheet -> m (Maybe CSSRuleList)-getRules self-  = liftIO ((js_getRules (unCSSStyleSheet self)) >>= fromJSRef)+getRules self = liftIO (nullableToMaybe <$> (js_getRules (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSSupportsRule.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,40 +20,36 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"insertRule\"]($2, $3)"-        js_insertRule ::-        JSRef CSSSupportsRule -> JSString -> Word -> IO Word+        js_insertRule :: CSSSupportsRule -> JSString -> Word -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.insertRule Mozilla CSSSupportsRule.insertRule documentation>  insertRule ::            (MonadIO m, ToJSString rule) =>              CSSSupportsRule -> rule -> Word -> m Word insertRule self rule index-  = liftIO-      (js_insertRule (unCSSSupportsRule self) (toJSString rule) index)+  = liftIO (js_insertRule (self) (toJSString rule) index)   foreign import javascript unsafe "$1[\"deleteRule\"]($2)"-        js_deleteRule :: JSRef CSSSupportsRule -> Word -> IO ()+        js_deleteRule :: CSSSupportsRule -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.deleteRule Mozilla CSSSupportsRule.deleteRule documentation>  deleteRule :: (MonadIO m) => CSSSupportsRule -> Word -> m ()-deleteRule self index-  = liftIO (js_deleteRule (unCSSSupportsRule self) index)+deleteRule self index = liftIO (js_deleteRule (self) index)   foreign import javascript unsafe "$1[\"cssRules\"]" js_getCssRules-        :: JSRef CSSSupportsRule -> IO (JSRef CSSRuleList)+        :: CSSSupportsRule -> IO (Nullable CSSRuleList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.cssRules Mozilla CSSSupportsRule.cssRules documentation>  getCssRules ::             (MonadIO m) => CSSSupportsRule -> m (Maybe CSSRuleList) getCssRules self-  = liftIO ((js_getCssRules (unCSSSupportsRule self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getCssRules (self)))   foreign import javascript unsafe "$1[\"conditionText\"]"-        js_getConditionText :: JSRef CSSSupportsRule -> IO JSString+        js_getConditionText :: CSSSupportsRule -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSSupportsRule.conditionText Mozilla CSSSupportsRule.conditionText documentation>  getConditionText ::                  (MonadIO m, FromJSString result) => CSSSupportsRule -> m result getConditionText self-  = liftIO-      (fromJSString <$> (js_getConditionText (unCSSSupportsRule self)))+  = liftIO (fromJSString <$> (js_getConditionText (self)))
src/GHCJS/DOM/JSFFI/Generated/CSSValue.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -26,33 +26,29 @@ pattern CSS_CUSTOM = 3   foreign import javascript unsafe "$1[\"cssText\"] = $2;"-        js_setCssText :: JSRef CSSValue -> JSRef (Maybe JSString) -> IO ()+        js_setCssText :: CSSValue -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation>  setCssText ::            (MonadIO m, IsCSSValue self, ToJSString val) =>              self -> Maybe val -> m () setCssText self val-  = liftIO-      (js_setCssText (unCSSValue (toCSSValue self))-         (toMaybeJSString val))+  = liftIO (js_setCssText (toCSSValue self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"cssText\"]" js_getCssText ::-        JSRef CSSValue -> IO (JSRef (Maybe JSString))+        CSSValue -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssText Mozilla CSSValue.cssText documentation>  getCssText ::            (MonadIO m, IsCSSValue self, FromJSString result) =>              self -> m (Maybe result) getCssText self-  = liftIO-      (fromMaybeJSString <$>-         (js_getCssText (unCSSValue (toCSSValue self))))+  = liftIO (fromMaybeJSString <$> (js_getCssText (toCSSValue self)))   foreign import javascript unsafe "$1[\"cssValueType\"]"-        js_getCssValueType :: JSRef CSSValue -> IO Word+        js_getCssValueType :: CSSValue -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValue.cssValueType Mozilla CSSValue.cssValueType documentation>  getCssValueType :: (MonadIO m, IsCSSValue self) => self -> m Word getCssValueType self-  = liftIO (js_getCssValueType (unCSSValue (toCSSValue self)))+  = liftIO (js_getCssValueType (toCSSValue self))
src/GHCJS/DOM/JSFFI/Generated/CSSValueList.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,7 +20,7 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef CSSValueList -> Word -> IO (JSRef CSSValue)+        CSSValueList -> Word -> IO (Nullable CSSValue)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.item Mozilla CSSValueList.item documentation>  item ::@@ -28,13 +28,11 @@        self -> Word -> m (Maybe CSSValue) item self index   = liftIO-      ((js_item (unCSSValueList (toCSSValueList self)) index) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_item (toCSSValueList self) index))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef CSSValueList -> IO Word+        CSSValueList -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CSSValueList.length Mozilla CSSValueList.length documentation>  getLength :: (MonadIO m, IsCSSValueList self) => self -> m Word-getLength self-  = liftIO (js_getLength (unCSSValueList (toCSSValueList self)))+getLength self = liftIO (js_getLength (toCSSValueList self))
src/GHCJS/DOM/JSFFI/Generated/CanvasGradient.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,13 +19,11 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"addColorStop\"]($2, $3)"-        js_addColorStop ::-        JSRef CanvasGradient -> Float -> JSString -> IO ()+        js_addColorStop :: CanvasGradient -> Float -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasGradient.addColorStop Mozilla CanvasGradient.addColorStop documentation>  addColorStop ::              (MonadIO m, ToJSString color) =>                CanvasGradient -> Float -> color -> m () addColorStop self offset color-  = liftIO-      (js_addColorStop (unCanvasGradient self) offset (toJSString color))+  = liftIO (js_addColorStop (self) offset (toJSString color))
src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,7 +20,7 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"canvas\"]" js_getCanvas ::-        JSRef CanvasRenderingContext -> IO (JSRef HTMLCanvasElement)+        CanvasRenderingContext -> IO (Nullable HTMLCanvasElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext.canvas Mozilla CanvasRenderingContext.canvas documentation>  getCanvas ::@@ -28,6 +28,5 @@             self -> m (Maybe HTMLCanvasElement) getCanvas self   = liftIO-      ((js_getCanvas-          (unCanvasRenderingContext (toCanvasRenderingContext self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getCanvas (toCanvasRenderingContext self)))
src/GHCJS/DOM/JSFFI/Generated/CanvasRenderingContext2D.hs view
@@ -75,7 +75,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -89,50 +89,45 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"save\"]()" js_save ::-        JSRef CanvasRenderingContext2D -> IO ()+        CanvasRenderingContext2D -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.save Mozilla CanvasRenderingContext2D.save documentation>  save :: (MonadIO m) => CanvasRenderingContext2D -> m ()-save self = liftIO (js_save (unCanvasRenderingContext2D self))+save self = liftIO (js_save (self))   foreign import javascript unsafe "$1[\"restore\"]()" js_restore ::-        JSRef CanvasRenderingContext2D -> IO ()+        CanvasRenderingContext2D -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.restore Mozilla CanvasRenderingContext2D.restore documentation>  restore :: (MonadIO m) => CanvasRenderingContext2D -> m ()-restore self-  = liftIO (js_restore (unCanvasRenderingContext2D self))+restore self = liftIO (js_restore (self))   foreign import javascript unsafe "$1[\"scale\"]($2, $3)" js_scale-        :: JSRef CanvasRenderingContext2D -> Float -> Float -> IO ()+        :: CanvasRenderingContext2D -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.scale Mozilla CanvasRenderingContext2D.scale documentation>  scale ::       (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()-scale self sx sy-  = liftIO (js_scale (unCanvasRenderingContext2D self) sx sy)+scale self sx sy = liftIO (js_scale (self) sx sy)   foreign import javascript unsafe "$1[\"rotate\"]($2)" js_rotate ::-        JSRef CanvasRenderingContext2D -> Float -> IO ()+        CanvasRenderingContext2D -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.rotate Mozilla CanvasRenderingContext2D.rotate documentation>  rotate :: (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-rotate self angle-  = liftIO (js_rotate (unCanvasRenderingContext2D self) angle)+rotate self angle = liftIO (js_rotate (self) angle)   foreign import javascript unsafe "$1[\"translate\"]($2, $3)"-        js_translate ::-        JSRef CanvasRenderingContext2D -> Float -> Float -> IO ()+        js_translate :: CanvasRenderingContext2D -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.translate Mozilla CanvasRenderingContext2D.translate documentation>  translate ::           (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()-translate self tx ty-  = liftIO (js_translate (unCanvasRenderingContext2D self) tx ty)+translate self tx ty = liftIO (js_translate (self) tx ty)   foreign import javascript unsafe         "$1[\"transform\"]($2, $3, $4, $5,\n$6, $7)" js_transform ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float -> Float -> Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.transform Mozilla CanvasRenderingContext2D.transform documentation> @@ -141,13 +136,11 @@             CanvasRenderingContext2D ->               Float -> Float -> Float -> Float -> Float -> Float -> m () transform self m11 m12 m21 m22 dx dy-  = liftIO-      (js_transform (unCanvasRenderingContext2D self) m11 m12 m21 m22 dx-         dy)+  = liftIO (js_transform (self) m11 m12 m21 m22 dx dy)   foreign import javascript unsafe         "$1[\"setTransform\"]($2, $3, $4,\n$5, $6, $7)" js_setTransform ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float -> Float -> Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setTransform Mozilla CanvasRenderingContext2D.setTransform documentation> @@ -156,16 +149,13 @@                CanvasRenderingContext2D ->                  Float -> Float -> Float -> Float -> Float -> Float -> m () setTransform self m11 m12 m21 m22 dx dy-  = liftIO-      (js_setTransform (unCanvasRenderingContext2D self) m11 m12 m21 m22-         dx-         dy)+  = liftIO (js_setTransform (self) m11 m12 m21 m22 dx dy)   foreign import javascript unsafe         "$1[\"createLinearGradient\"]($2,\n$3, $4, $5)"         js_createLinearGradient ::-        JSRef CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> IO (JSRef CanvasGradient)+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO (Nullable CanvasGradient)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createLinearGradient Mozilla CanvasRenderingContext2D.createLinearGradient documentation>  createLinearGradient ::@@ -174,18 +164,15 @@                          Float -> Float -> Float -> Float -> m (Maybe CanvasGradient) createLinearGradient self x0 y0 x1 y1   = liftIO-      ((js_createLinearGradient (unCanvasRenderingContext2D self) x0 y0-          x1-          y1)-         >>= fromJSRef)+      (nullableToMaybe <$> (js_createLinearGradient (self) x0 y0 x1 y1))   foreign import javascript unsafe         "$1[\"createRadialGradient\"]($2,\n$3, $4, $5, $6, $7)"         js_createRadialGradient ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float ->             Float ->-              Float -> Float -> Float -> Float -> IO (JSRef CanvasGradient)+              Float -> Float -> Float -> Float -> IO (Nullable CanvasGradient)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createRadialGradient Mozilla CanvasRenderingContext2D.createRadialGradient documentation>  createRadialGradient ::@@ -196,39 +183,29 @@                              Float -> Float -> Float -> Float -> m (Maybe CanvasGradient) createRadialGradient self x0 y0 r0 x1 y1 r1   = liftIO-      ((js_createRadialGradient (unCanvasRenderingContext2D self) x0 y0-          r0-          x1-          y1-          r1)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createRadialGradient (self) x0 y0 r0 x1 y1 r1))   foreign import javascript unsafe "$1[\"setLineDash\"]($2)"-        js_setLineDash ::-        JSRef CanvasRenderingContext2D -> JSRef [Float] -> IO ()+        js_setLineDash :: CanvasRenderingContext2D -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineDash Mozilla CanvasRenderingContext2D.setLineDash documentation>  setLineDash ::             (MonadIO m) => CanvasRenderingContext2D -> [Float] -> m () setLineDash self dash-  = liftIO-      (toJSRef dash >>=-         \ dash' -> js_setLineDash (unCanvasRenderingContext2D self) dash')+  = liftIO (toJSRef dash >>= \ dash' -> js_setLineDash (self) dash')   foreign import javascript unsafe "$1[\"getLineDash\"]()"-        js_getLineDash ::-        JSRef CanvasRenderingContext2D -> IO (JSRef [Float])+        js_getLineDash :: CanvasRenderingContext2D -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getLineDash Mozilla CanvasRenderingContext2D.getLineDash documentation>  getLineDash :: (MonadIO m) => CanvasRenderingContext2D -> m [Float] getLineDash self-  = liftIO-      ((js_getLineDash (unCanvasRenderingContext2D self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getLineDash (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe         "$1[\"clearRect\"]($2, $3, $4, $5)" js_clearRect ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clearRect Mozilla CanvasRenderingContext2D.clearRect documentation> @@ -237,12 +214,11 @@             CanvasRenderingContext2D ->               Float -> Float -> Float -> Float -> m () clearRect self x y width height-  = liftIO-      (js_clearRect (unCanvasRenderingContext2D self) x y width height)+  = liftIO (js_clearRect (self) x y width height)   foreign import javascript unsafe "$1[\"fillRect\"]($2, $3, $4, $5)"         js_fillRect ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillRect Mozilla CanvasRenderingContext2D.fillRect documentation> @@ -251,46 +227,41 @@            CanvasRenderingContext2D ->              Float -> Float -> Float -> Float -> m () fillRect self x y width height-  = liftIO-      (js_fillRect (unCanvasRenderingContext2D self) x y width height)+  = liftIO (js_fillRect (self) x y width height)   foreign import javascript unsafe "$1[\"beginPath\"]()" js_beginPath-        :: JSRef CanvasRenderingContext2D -> IO ()+        :: CanvasRenderingContext2D -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.beginPath Mozilla CanvasRenderingContext2D.beginPath documentation>  beginPath :: (MonadIO m) => CanvasRenderingContext2D -> m ()-beginPath self-  = liftIO (js_beginPath (unCanvasRenderingContext2D self))+beginPath self = liftIO (js_beginPath (self))   foreign import javascript unsafe "$1[\"closePath\"]()" js_closePath-        :: JSRef CanvasRenderingContext2D -> IO ()+        :: CanvasRenderingContext2D -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.closePath Mozilla CanvasRenderingContext2D.closePath documentation>  closePath :: (MonadIO m) => CanvasRenderingContext2D -> m ()-closePath self-  = liftIO (js_closePath (unCanvasRenderingContext2D self))+closePath self = liftIO (js_closePath (self))   foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)" js_moveTo-        :: JSRef CanvasRenderingContext2D -> Float -> Float -> IO ()+        :: CanvasRenderingContext2D -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.moveTo Mozilla CanvasRenderingContext2D.moveTo documentation>  moveTo ::        (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()-moveTo self x y-  = liftIO (js_moveTo (unCanvasRenderingContext2D self) x y)+moveTo self x y = liftIO (js_moveTo (self) x y)   foreign import javascript unsafe "$1[\"lineTo\"]($2, $3)" js_lineTo-        :: JSRef CanvasRenderingContext2D -> Float -> Float -> IO ()+        :: CanvasRenderingContext2D -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineTo Mozilla CanvasRenderingContext2D.lineTo documentation>  lineTo ::        (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m ()-lineTo self x y-  = liftIO (js_lineTo (unCanvasRenderingContext2D self) x y)+lineTo self x y = liftIO (js_lineTo (self) x y)   foreign import javascript unsafe         "$1[\"quadraticCurveTo\"]($2, $3,\n$4, $5)" js_quadraticCurveTo ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.quadraticCurveTo Mozilla CanvasRenderingContext2D.quadraticCurveTo documentation> @@ -299,13 +270,12 @@                    CanvasRenderingContext2D ->                      Float -> Float -> Float -> Float -> m () quadraticCurveTo self cpx cpy x y-  = liftIO-      (js_quadraticCurveTo (unCanvasRenderingContext2D self) cpx cpy x y)+  = liftIO (js_quadraticCurveTo (self) cpx cpy x y)   foreign import javascript unsafe         "$1[\"bezierCurveTo\"]($2, $3, $4,\n$5, $6, $7)" js_bezierCurveTo         ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float -> Float -> Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.bezierCurveTo Mozilla CanvasRenderingContext2D.bezierCurveTo documentation> @@ -314,15 +284,11 @@                 CanvasRenderingContext2D ->                   Float -> Float -> Float -> Float -> Float -> Float -> m () bezierCurveTo self cp1x cp1y cp2x cp2y x y-  = liftIO-      (js_bezierCurveTo (unCanvasRenderingContext2D self) cp1x cp1y cp2x-         cp2y-         x-         y)+  = liftIO (js_bezierCurveTo (self) cp1x cp1y cp2x cp2y x y)   foreign import javascript unsafe         "$1[\"arcTo\"]($2, $3, $4, $5, $6)" js_arcTo ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float -> Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.arcTo Mozilla CanvasRenderingContext2D.arcTo documentation> @@ -331,12 +297,11 @@         CanvasRenderingContext2D ->           Float -> Float -> Float -> Float -> Float -> m () arcTo self x1 y1 x2 y2 radius-  = liftIO-      (js_arcTo (unCanvasRenderingContext2D self) x1 y1 x2 y2 radius)+  = liftIO (js_arcTo (self) x1 y1 x2 y2 radius)   foreign import javascript unsafe "$1[\"rect\"]($2, $3, $4, $5)"         js_rect ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.rect Mozilla CanvasRenderingContext2D.rect documentation> @@ -345,12 +310,11 @@        CanvasRenderingContext2D ->          Float -> Float -> Float -> Float -> m () rect self x y width height-  = liftIO-      (js_rect (unCanvasRenderingContext2D self) x y width height)+  = liftIO (js_rect (self) x y width height)   foreign import javascript unsafe         "$1[\"arc\"]($2, $3, $4, $5, $6,\n$7)" js_arc ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float -> Float -> Float -> Float -> Float -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.arc Mozilla CanvasRenderingContext2D.arc documentation> @@ -360,14 +324,10 @@         Float -> Float -> Float -> Float -> Float -> Bool -> m () arc self x y radius startAngle endAngle anticlockwise   = liftIO-      (js_arc (unCanvasRenderingContext2D self) x y radius startAngle-         endAngle-         anticlockwise)+      (js_arc (self) x y radius startAngle endAngle anticlockwise)   foreign import javascript unsafe "$1[\"fill\"]($2, $3)" js_fillPath-        ::-        JSRef CanvasRenderingContext2D ->-          JSRef Path2D -> JSRef CanvasWindingRule -> IO ()+        :: CanvasRenderingContext2D -> Nullable Path2D -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fill Mozilla CanvasRenderingContext2D.fill documentation>  fillPath ::@@ -376,25 +336,19 @@              Maybe Path2D -> CanvasWindingRule -> m () fillPath self path winding   = liftIO-      (js_fillPath (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef path)-         (pToJSRef winding))+      (js_fillPath (self) (maybeToNullable path) (pToJSRef winding))   foreign import javascript unsafe "$1[\"stroke\"]($2)" js_strokePath-        :: JSRef CanvasRenderingContext2D -> JSRef Path2D -> IO ()+        :: CanvasRenderingContext2D -> Nullable Path2D -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.stroke Mozilla CanvasRenderingContext2D.stroke documentation>  strokePath ::            (MonadIO m) => CanvasRenderingContext2D -> Maybe Path2D -> m () strokePath self path-  = liftIO-      (js_strokePath (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef path))+  = liftIO (js_strokePath (self) (maybeToNullable path))   foreign import javascript unsafe "$1[\"clip\"]($2, $3)" js_clipPath-        ::-        JSRef CanvasRenderingContext2D ->-          JSRef Path2D -> JSRef CanvasWindingRule -> IO ()+        :: CanvasRenderingContext2D -> Nullable Path2D -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clip Mozilla CanvasRenderingContext2D.clip documentation>  clipPath ::@@ -403,45 +357,38 @@              Maybe Path2D -> CanvasWindingRule -> m () clipPath self path winding   = liftIO-      (js_clipPath (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef path)-         (pToJSRef winding))+      (js_clipPath (self) (maybeToNullable path) (pToJSRef winding))   foreign import javascript unsafe "$1[\"fill\"]($2)" js_fill ::-        JSRef CanvasRenderingContext2D -> JSRef CanvasWindingRule -> IO ()+        CanvasRenderingContext2D -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fill Mozilla CanvasRenderingContext2D.fill documentation>  fill ::      (MonadIO m) =>        CanvasRenderingContext2D -> CanvasWindingRule -> m ()-fill self winding-  = liftIO-      (js_fill (unCanvasRenderingContext2D self) (pToJSRef winding))+fill self winding = liftIO (js_fill (self) (pToJSRef winding))   foreign import javascript unsafe "$1[\"stroke\"]()" js_stroke ::-        JSRef CanvasRenderingContext2D -> IO ()+        CanvasRenderingContext2D -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.stroke Mozilla CanvasRenderingContext2D.stroke documentation>  stroke :: (MonadIO m) => CanvasRenderingContext2D -> m ()-stroke self = liftIO (js_stroke (unCanvasRenderingContext2D self))+stroke self = liftIO (js_stroke (self))   foreign import javascript unsafe "$1[\"clip\"]($2)" js_clip ::-        JSRef CanvasRenderingContext2D -> JSRef CanvasWindingRule -> IO ()+        CanvasRenderingContext2D -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clip Mozilla CanvasRenderingContext2D.clip documentation>  clip ::      (MonadIO m) =>        CanvasRenderingContext2D -> CanvasWindingRule -> m ()-clip self winding-  = liftIO-      (js_clip (unCanvasRenderingContext2D self) (pToJSRef winding))+clip self winding = liftIO (js_clip (self) (pToJSRef winding))   foreign import javascript unsafe         "($1[\"isPointInPath\"]($2, $3, $4,\n$5) ? 1 : 0)"         js_isPointInPathPath ::-        JSRef CanvasRenderingContext2D ->-          JSRef Path2D ->-            Float -> Float -> JSRef CanvasWindingRule -> IO Bool+        CanvasRenderingContext2D ->+          Nullable Path2D -> Float -> Float -> JSRef -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation>  isPointInPathPath ::@@ -450,17 +397,14 @@                       Maybe Path2D -> Float -> Float -> CanvasWindingRule -> m Bool isPointInPathPath self path x y winding   = liftIO-      (js_isPointInPathPath (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef path)-         x-         y+      (js_isPointInPathPath (self) (maybeToNullable path) x y          (pToJSRef winding))   foreign import javascript unsafe         "($1[\"isPointInStroke\"]($2, $3,\n$4) ? 1 : 0)"         js_isPointInStrokePath ::-        JSRef CanvasRenderingContext2D ->-          JSRef Path2D -> Float -> Float -> IO Bool+        CanvasRenderingContext2D ->+          Nullable Path2D -> Float -> Float -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation>  isPointInStrokePath ::@@ -468,16 +412,11 @@                       CanvasRenderingContext2D ->                         Maybe Path2D -> Float -> Float -> m Bool isPointInStrokePath self path x y-  = liftIO-      (js_isPointInStrokePath (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef path)-         x-         y)+  = liftIO (js_isPointInStrokePath (self) (maybeToNullable path) x y)   foreign import javascript unsafe         "($1[\"isPointInPath\"]($2, $3,\n$4) ? 1 : 0)" js_isPointInPath ::-        JSRef CanvasRenderingContext2D ->-          Float -> Float -> JSRef CanvasWindingRule -> IO Bool+        CanvasRenderingContext2D -> Float -> Float -> JSRef -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInPath Mozilla CanvasRenderingContext2D.isPointInPath documentation>  isPointInPath ::@@ -485,24 +424,20 @@                 CanvasRenderingContext2D ->                   Float -> Float -> CanvasWindingRule -> m Bool isPointInPath self x y winding-  = liftIO-      (js_isPointInPath (unCanvasRenderingContext2D self) x y-         (pToJSRef winding))+  = liftIO (js_isPointInPath (self) x y (pToJSRef winding))   foreign import javascript unsafe         "($1[\"isPointInStroke\"]($2,\n$3) ? 1 : 0)" js_isPointInStroke ::-        JSRef CanvasRenderingContext2D -> Float -> Float -> IO Bool+        CanvasRenderingContext2D -> Float -> Float -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.isPointInStroke Mozilla CanvasRenderingContext2D.isPointInStroke documentation>  isPointInStroke ::                 (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m Bool-isPointInStroke self x y-  = liftIO (js_isPointInStroke (unCanvasRenderingContext2D self) x y)+isPointInStroke self x y = liftIO (js_isPointInStroke (self) x y)   foreign import javascript unsafe "$1[\"measureText\"]($2)"         js_measureText ::-        JSRef CanvasRenderingContext2D ->-          JSString -> IO (JSRef TextMetrics)+        CanvasRenderingContext2D -> JSString -> IO (Nullable TextMetrics)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.measureText Mozilla CanvasRenderingContext2D.measureText documentation>  measureText ::@@ -510,22 +445,19 @@               CanvasRenderingContext2D -> text -> m (Maybe TextMetrics) measureText self text   = liftIO-      ((js_measureText (unCanvasRenderingContext2D self)-          (toJSString text))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_measureText (self) (toJSString text)))   foreign import javascript unsafe "$1[\"setAlpha\"]($2)" js_setAlpha-        :: JSRef CanvasRenderingContext2D -> Float -> IO ()+        :: CanvasRenderingContext2D -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setAlpha Mozilla CanvasRenderingContext2D.setAlpha documentation>  setAlpha ::          (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setAlpha self alpha-  = liftIO (js_setAlpha (unCanvasRenderingContext2D self) alpha)+setAlpha self alpha = liftIO (js_setAlpha (self) alpha)   foreign import javascript unsafe         "$1[\"setCompositeOperation\"]($2)" js_setCompositeOperation ::-        JSRef CanvasRenderingContext2D -> JSString -> IO ()+        CanvasRenderingContext2D -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setCompositeOperation Mozilla CanvasRenderingContext2D.setCompositeOperation documentation>  setCompositeOperation ::@@ -533,68 +465,60 @@                         CanvasRenderingContext2D -> compositeOperation -> m () setCompositeOperation self compositeOperation   = liftIO-      (js_setCompositeOperation (unCanvasRenderingContext2D self)-         (toJSString compositeOperation))+      (js_setCompositeOperation (self) (toJSString compositeOperation))   foreign import javascript unsafe "$1[\"setLineWidth\"]($2)"         js_setLineWidthFunction ::-        JSRef CanvasRenderingContext2D -> Float -> IO ()+        CanvasRenderingContext2D -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineWidth Mozilla CanvasRenderingContext2D.setLineWidth documentation>  setLineWidthFunction ::                      (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setLineWidthFunction self width-  = liftIO-      (js_setLineWidthFunction (unCanvasRenderingContext2D self) width)+  = liftIO (js_setLineWidthFunction (self) width)   foreign import javascript unsafe "$1[\"setLineCap\"]($2)"         js_setLineCapFunction ::-        JSRef CanvasRenderingContext2D -> JSString -> IO ()+        CanvasRenderingContext2D -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineCap Mozilla CanvasRenderingContext2D.setLineCap documentation>  setLineCapFunction ::                    (MonadIO m, ToJSString cap) =>                      CanvasRenderingContext2D -> cap -> m () setLineCapFunction self cap-  = liftIO-      (js_setLineCapFunction (unCanvasRenderingContext2D self)-         (toJSString cap))+  = liftIO (js_setLineCapFunction (self) (toJSString cap))   foreign import javascript unsafe "$1[\"setLineJoin\"]($2)"         js_setLineJoinFunction ::-        JSRef CanvasRenderingContext2D -> JSString -> IO ()+        CanvasRenderingContext2D -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setLineJoin Mozilla CanvasRenderingContext2D.setLineJoin documentation>  setLineJoinFunction ::                     (MonadIO m, ToJSString join) =>                       CanvasRenderingContext2D -> join -> m () setLineJoinFunction self join-  = liftIO-      (js_setLineJoinFunction (unCanvasRenderingContext2D self)-         (toJSString join))+  = liftIO (js_setLineJoinFunction (self) (toJSString join))   foreign import javascript unsafe "$1[\"setMiterLimit\"]($2)"         js_setMiterLimitFunction ::-        JSRef CanvasRenderingContext2D -> Float -> IO ()+        CanvasRenderingContext2D -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setMiterLimit Mozilla CanvasRenderingContext2D.setMiterLimit documentation>  setMiterLimitFunction ::                       (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setMiterLimitFunction self limit-  = liftIO-      (js_setMiterLimitFunction (unCanvasRenderingContext2D self) limit)+  = liftIO (js_setMiterLimitFunction (self) limit)   foreign import javascript unsafe "$1[\"clearShadow\"]()"-        js_clearShadow :: JSRef CanvasRenderingContext2D -> IO ()+        js_clearShadow :: CanvasRenderingContext2D -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.clearShadow Mozilla CanvasRenderingContext2D.clearShadow documentation>  clearShadow :: (MonadIO m) => CanvasRenderingContext2D -> m ()-clearShadow self-  = liftIO (js_clearShadow (unCanvasRenderingContext2D self))+clearShadow self = liftIO (js_clearShadow (self))   foreign import javascript unsafe "$1[\"fillText\"]($2, $3, $4, $5)"         js_fillText ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           JSString -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillText Mozilla CanvasRenderingContext2D.fillText documentation> @@ -602,14 +526,11 @@          (MonadIO m, ToJSString text) =>            CanvasRenderingContext2D -> text -> Float -> Float -> Float -> m () fillText self text x y maxWidth-  = liftIO-      (js_fillText (unCanvasRenderingContext2D self) (toJSString text) x-         y-         maxWidth)+  = liftIO (js_fillText (self) (toJSString text) x y maxWidth)   foreign import javascript unsafe         "$1[\"strokeText\"]($2, $3, $4, $5)" js_strokeText ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           JSString -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeText Mozilla CanvasRenderingContext2D.strokeText documentation> @@ -617,41 +538,32 @@            (MonadIO m, ToJSString text) =>              CanvasRenderingContext2D -> text -> Float -> Float -> Float -> m () strokeText self text x y maxWidth-  = liftIO-      (js_strokeText (unCanvasRenderingContext2D self) (toJSString text)-         x-         y-         maxWidth)+  = liftIO (js_strokeText (self) (toJSString text) x y maxWidth)   foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3)"         js_setStrokeColor ::-        JSRef CanvasRenderingContext2D -> JSString -> Float -> IO ()+        CanvasRenderingContext2D -> JSString -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation>  setStrokeColor ::                (MonadIO m, ToJSString color) =>                  CanvasRenderingContext2D -> color -> Float -> m () setStrokeColor self color alpha-  = liftIO-      (js_setStrokeColor (unCanvasRenderingContext2D self)-         (toJSString color)-         alpha)+  = liftIO (js_setStrokeColor (self) (toJSString color) alpha)   foreign import javascript unsafe "$1[\"setStrokeColor\"]($2, $3)"         js_setStrokeColorGray ::-        JSRef CanvasRenderingContext2D -> Float -> Float -> IO ()+        CanvasRenderingContext2D -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation>  setStrokeColorGray ::                    (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () setStrokeColorGray self grayLevel alpha-  = liftIO-      (js_setStrokeColorGray (unCanvasRenderingContext2D self) grayLevel-         alpha)+  = liftIO (js_setStrokeColorGray (self) grayLevel alpha)   foreign import javascript unsafe         "$1[\"setStrokeColor\"]($2, $3, $4,\n$5)" js_setStrokeColorRGB ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> @@ -660,13 +572,12 @@                     CanvasRenderingContext2D ->                       Float -> Float -> Float -> Float -> m () setStrokeColorRGB self r g b a-  = liftIO-      (js_setStrokeColorRGB (unCanvasRenderingContext2D self) r g b a)+  = liftIO (js_setStrokeColorRGB (self) r g b a)   foreign import javascript unsafe         "$1[\"setStrokeColor\"]($2, $3, $4,\n$5, $6)" js_setStrokeColorCYMK         ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float -> Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setStrokeColor Mozilla CanvasRenderingContext2D.setStrokeColor documentation> @@ -675,38 +586,32 @@                      CanvasRenderingContext2D ->                        Float -> Float -> Float -> Float -> Float -> m () setStrokeColorCYMK self c m y k a-  = liftIO-      (js_setStrokeColorCYMK (unCanvasRenderingContext2D self) c m y k a)+  = liftIO (js_setStrokeColorCYMK (self) c m y k a)   foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3)"         js_setFillColor ::-        JSRef CanvasRenderingContext2D -> JSString -> Float -> IO ()+        CanvasRenderingContext2D -> JSString -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation>  setFillColor ::              (MonadIO m, ToJSString color) =>                CanvasRenderingContext2D -> color -> Float -> m () setFillColor self color alpha-  = liftIO-      (js_setFillColor (unCanvasRenderingContext2D self)-         (toJSString color)-         alpha)+  = liftIO (js_setFillColor (self) (toJSString color) alpha)   foreign import javascript unsafe "$1[\"setFillColor\"]($2, $3)"         js_setFillColorGray ::-        JSRef CanvasRenderingContext2D -> Float -> Float -> IO ()+        CanvasRenderingContext2D -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation>  setFillColorGray ::                  (MonadIO m) => CanvasRenderingContext2D -> Float -> Float -> m () setFillColorGray self grayLevel alpha-  = liftIO-      (js_setFillColorGray (unCanvasRenderingContext2D self) grayLevel-         alpha)+  = liftIO (js_setFillColorGray (self) grayLevel alpha)   foreign import javascript unsafe         "$1[\"setFillColor\"]($2, $3, $4,\n$5)" js_setFillColorRGB ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> @@ -715,12 +620,11 @@                   CanvasRenderingContext2D ->                     Float -> Float -> Float -> Float -> m () setFillColorRGB self r g b a-  = liftIO-      (js_setFillColorRGB (unCanvasRenderingContext2D self) r g b a)+  = liftIO (js_setFillColorRGB (self) r g b a)   foreign import javascript unsafe         "$1[\"setFillColor\"]($2, $3, $4,\n$5, $6)" js_setFillColorCYMK ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float -> Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setFillColor Mozilla CanvasRenderingContext2D.setFillColor documentation> @@ -729,12 +633,11 @@                    CanvasRenderingContext2D ->                      Float -> Float -> Float -> Float -> Float -> m () setFillColorCYMK self c m y k a-  = liftIO-      (js_setFillColorCYMK (unCanvasRenderingContext2D self) c m y k a)+  = liftIO (js_setFillColorCYMK (self) c m y k a)   foreign import javascript unsafe         "$1[\"strokeRect\"]($2, $3, $4, $5)" js_strokeRect ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeRect Mozilla CanvasRenderingContext2D.strokeRect documentation> @@ -743,13 +646,12 @@              CanvasRenderingContext2D ->                Float -> Float -> Float -> Float -> m () strokeRect self x y width height-  = liftIO-      (js_strokeRect (unCanvasRenderingContext2D self) x y width height)+  = liftIO (js_strokeRect (self) x y width height)   foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4)"         js_drawImage ::-        JSRef CanvasRenderingContext2D ->-          JSRef HTMLImageElement -> Float -> Float -> IO ()+        CanvasRenderingContext2D ->+          Nullable HTMLImageElement -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation>  drawImage ::@@ -757,16 +659,13 @@             CanvasRenderingContext2D ->               Maybe HTMLImageElement -> Float -> Float -> m () drawImage self image x y-  = liftIO-      (js_drawImage (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef image)-         x-         y)+  = liftIO (js_drawImage (self) (maybeToNullable image) x y)   foreign import javascript unsafe         "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)" js_drawImageScaled ::-        JSRef CanvasRenderingContext2D ->-          JSRef HTMLImageElement -> Float -> Float -> Float -> Float -> IO ()+        CanvasRenderingContext2D ->+          Nullable HTMLImageElement ->+            Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation>  drawImageScaled ::@@ -775,18 +674,14 @@                     Maybe HTMLImageElement -> Float -> Float -> Float -> Float -> m () drawImageScaled self image x y width height   = liftIO-      (js_drawImageScaled (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef image)-         x-         y-         width+      (js_drawImageScaled (self) (maybeToNullable image) x y width          height)   foreign import javascript unsafe         "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)"         js_drawImagePart ::-        JSRef CanvasRenderingContext2D ->-          JSRef HTMLImageElement ->+        CanvasRenderingContext2D ->+          Nullable HTMLImageElement ->             Float ->               Float ->                 Float -> Float -> Float -> Float -> Float -> Float -> IO ()@@ -800,21 +695,14 @@                       Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () drawImagePart self image sx sy sw sh dx dy dw dh   = liftIO-      (js_drawImagePart (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef image)-         sx-         sy-         sw-         sh-         dx-         dy+      (js_drawImagePart (self) (maybeToNullable image) sx sy sw sh dx dy          dw          dh)   foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4)"         js_drawImageFromCanvas ::-        JSRef CanvasRenderingContext2D ->-          JSRef HTMLCanvasElement -> Float -> Float -> IO ()+        CanvasRenderingContext2D ->+          Nullable HTMLCanvasElement -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation>  drawImageFromCanvas ::@@ -823,16 +711,13 @@                         Maybe HTMLCanvasElement -> Float -> Float -> m () drawImageFromCanvas self canvas x y   = liftIO-      (js_drawImageFromCanvas (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef canvas)-         x-         y)+      (js_drawImageFromCanvas (self) (maybeToNullable canvas) x y)   foreign import javascript unsafe         "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)"         js_drawImageFromCanvasScaled ::-        JSRef CanvasRenderingContext2D ->-          JSRef HTMLCanvasElement ->+        CanvasRenderingContext2D ->+          Nullable HTMLCanvasElement ->             Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation> @@ -842,18 +727,15 @@                               Maybe HTMLCanvasElement -> Float -> Float -> Float -> Float -> m () drawImageFromCanvasScaled self canvas x y width height   = liftIO-      (js_drawImageFromCanvasScaled (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef canvas)-         x-         y+      (js_drawImageFromCanvasScaled (self) (maybeToNullable canvas) x y          width          height)   foreign import javascript unsafe         "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)"         js_drawImageFromCanvasPart ::-        JSRef CanvasRenderingContext2D ->-          JSRef HTMLCanvasElement ->+        CanvasRenderingContext2D ->+          Nullable HTMLCanvasElement ->             Float ->               Float ->                 Float -> Float -> Float -> Float -> Float -> Float -> IO ()@@ -867,10 +749,7 @@                                 Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () drawImageFromCanvasPart self canvas sx sy sw sh dx dy dw dh   = liftIO-      (js_drawImageFromCanvasPart (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef canvas)-         sx-         sy+      (js_drawImageFromCanvasPart (self) (maybeToNullable canvas) sx sy          sw          sh          dx@@ -880,8 +759,8 @@   foreign import javascript unsafe "$1[\"drawImage\"]($2, $3, $4)"         js_drawImageFromVideo ::-        JSRef CanvasRenderingContext2D ->-          JSRef HTMLVideoElement -> Float -> Float -> IO ()+        CanvasRenderingContext2D ->+          Nullable HTMLVideoElement -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation>  drawImageFromVideo ::@@ -889,17 +768,14 @@                      CanvasRenderingContext2D ->                        Maybe HTMLVideoElement -> Float -> Float -> m () drawImageFromVideo self video x y-  = liftIO-      (js_drawImageFromVideo (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef video)-         x-         y)+  = liftIO (js_drawImageFromVideo (self) (maybeToNullable video) x y)   foreign import javascript unsafe         "$1[\"drawImage\"]($2, $3, $4, $5,\n$6)"         js_drawImageFromVideoScaled ::-        JSRef CanvasRenderingContext2D ->-          JSRef HTMLVideoElement -> Float -> Float -> Float -> Float -> IO ()+        CanvasRenderingContext2D ->+          Nullable HTMLVideoElement ->+            Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawImage Mozilla CanvasRenderingContext2D.drawImage documentation>  drawImageFromVideoScaled ::@@ -908,18 +784,15 @@                              Maybe HTMLVideoElement -> Float -> Float -> Float -> Float -> m () drawImageFromVideoScaled self video x y width height   = liftIO-      (js_drawImageFromVideoScaled (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef video)-         x-         y+      (js_drawImageFromVideoScaled (self) (maybeToNullable video) x y          width          height)   foreign import javascript unsafe         "$1[\"drawImage\"]($2, $3, $4, $5,\n$6, $7, $8, $9, $10)"         js_drawImageFromVideoPart ::-        JSRef CanvasRenderingContext2D ->-          JSRef HTMLVideoElement ->+        CanvasRenderingContext2D ->+          Nullable HTMLVideoElement ->             Float ->               Float ->                 Float -> Float -> Float -> Float -> Float -> Float -> IO ()@@ -933,11 +806,7 @@                                Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () drawImageFromVideoPart self video sx sy sw sh dx dy dw dh   = liftIO-      (js_drawImageFromVideoPart (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef video)-         sx-         sy-         sw+      (js_drawImageFromVideoPart (self) (maybeToNullable video) sx sy sw          sh          dx          dy@@ -947,8 +816,8 @@ foreign import javascript unsafe         "$1[\"drawImageFromRect\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11)"         js_drawImageFromRect ::-        JSRef CanvasRenderingContext2D ->-          JSRef HTMLImageElement ->+        CanvasRenderingContext2D ->+          Nullable HTMLImageElement ->             Float ->               Float ->                 Float ->@@ -967,13 +836,7 @@ drawImageFromRect self image sx sy sw sh dx dy dw dh   compositeOperation   = liftIO-      (js_drawImageFromRect (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef image)-         sx-         sy-         sw-         sh-         dx+      (js_drawImageFromRect (self) (maybeToNullable image) sx sy sw sh dx          dy          dw          dh@@ -981,7 +844,7 @@   foreign import javascript unsafe         "$1[\"setShadow\"]($2, $3, $4, $5,\n$6)" js_setShadow ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float -> Float -> Float -> JSString -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> @@ -991,13 +854,11 @@               Float -> Float -> Float -> color -> Float -> m () setShadow self width height blur color alpha   = liftIO-      (js_setShadow (unCanvasRenderingContext2D self) width height blur-         (toJSString color)-         alpha)+      (js_setShadow (self) width height blur (toJSString color) alpha)   foreign import javascript unsafe         "$1[\"setShadow\"]($2, $3, $4, $5,\n$6)" js_setShadowGray ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float -> Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.setShadow Mozilla CanvasRenderingContext2D.setShadow documentation> @@ -1007,14 +868,11 @@                   Float -> Float -> Float -> Float -> Float -> m () setShadowGray self width height blur grayLevel alpha   = liftIO-      (js_setShadowGray (unCanvasRenderingContext2D self) width height-         blur-         grayLevel-         alpha)+      (js_setShadowGray (self) width height blur grayLevel alpha)   foreign import javascript unsafe         "$1[\"setShadow\"]($2, $3, $4, $5,\n$6, $7, $8)" js_setShadowRGB ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float ->             Float -> Float -> Float -> Float -> Float -> Float -> IO () @@ -1024,18 +882,12 @@                CanvasRenderingContext2D ->                  Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () setShadowRGB self width height blur r g b a-  = liftIO-      (js_setShadowRGB (unCanvasRenderingContext2D self) width height-         blur-         r-         g-         b-         a)+  = liftIO (js_setShadowRGB (self) width height blur r g b a)   foreign import javascript unsafe         "$1[\"setShadow\"]($2, $3, $4, $5,\n$6, $7, $8, $9)"         js_setShadowCYMK ::-        JSRef CanvasRenderingContext2D ->+        CanvasRenderingContext2D ->           Float ->             Float ->               Float -> Float -> Float -> Float -> Float -> Float -> IO ()@@ -1047,19 +899,12 @@                   Float ->                     Float -> Float -> Float -> Float -> Float -> Float -> Float -> m () setShadowCYMK self width height blur c m y k a-  = liftIO-      (js_setShadowCYMK (unCanvasRenderingContext2D self) width height-         blur-         c-         m-         y-         k-         a)+  = liftIO (js_setShadowCYMK (self) width height blur c m y k a)   foreign import javascript unsafe "$1[\"putImageData\"]($2, $3, $4)"         js_putImageData ::-        JSRef CanvasRenderingContext2D ->-          JSRef ImageData -> Float -> Float -> IO ()+        CanvasRenderingContext2D ->+          Nullable ImageData -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.putImageData Mozilla CanvasRenderingContext2D.putImageData documentation>  putImageData ::@@ -1067,17 +912,13 @@                CanvasRenderingContext2D ->                  Maybe ImageData -> Float -> Float -> m () putImageData self imagedata dx dy-  = liftIO-      (js_putImageData (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef imagedata)-         dx-         dy)+  = liftIO (js_putImageData (self) (maybeToNullable imagedata) dx dy)   foreign import javascript unsafe         "$1[\"putImageData\"]($2, $3, $4,\n$5, $6, $7, $8)"         js_putImageDataDirty ::-        JSRef CanvasRenderingContext2D ->-          JSRef ImageData ->+        CanvasRenderingContext2D ->+          Nullable ImageData ->             Float -> Float -> Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.putImageData Mozilla CanvasRenderingContext2D.putImageData documentation> @@ -1089,10 +930,7 @@ putImageDataDirty self imagedata dx dy dirtyX dirtyY dirtyWidth   dirtyHeight   = liftIO-      (js_putImageDataDirty (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef imagedata)-         dx-         dy+      (js_putImageDataDirty (self) (maybeToNullable imagedata) dx dy          dirtyX          dirtyY          dirtyWidth@@ -1101,8 +939,8 @@ foreign import javascript unsafe         "$1[\"webkitPutImageDataHD\"]($2,\n$3, $4)" js_webkitPutImageDataHD         ::-        JSRef CanvasRenderingContext2D ->-          JSRef ImageData -> Float -> Float -> IO ()+        CanvasRenderingContext2D ->+          Nullable ImageData -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitPutImageDataHD Mozilla CanvasRenderingContext2D.webkitPutImageDataHD documentation>  webkitPutImageDataHD ::@@ -1111,16 +949,13 @@                          Maybe ImageData -> Float -> Float -> m () webkitPutImageDataHD self imagedata dx dy   = liftIO-      (js_webkitPutImageDataHD (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef imagedata)-         dx-         dy)+      (js_webkitPutImageDataHD (self) (maybeToNullable imagedata) dx dy)   foreign import javascript unsafe         "$1[\"webkitPutImageDataHD\"]($2,\n$3, $4, $5, $6, $7, $8)"         js_webkitPutImageDataHDDirty ::-        JSRef CanvasRenderingContext2D ->-          JSRef ImageData ->+        CanvasRenderingContext2D ->+          Nullable ImageData ->             Float -> Float -> Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitPutImageDataHD Mozilla CanvasRenderingContext2D.webkitPutImageDataHD documentation> @@ -1132,9 +967,7 @@ webkitPutImageDataHDDirty self imagedata dx dy dirtyX dirtyY   dirtyWidth dirtyHeight   = liftIO-      (js_webkitPutImageDataHDDirty (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef imagedata)-         dx+      (js_webkitPutImageDataHDDirty (self) (maybeToNullable imagedata) dx          dy          dirtyX          dirtyY@@ -1143,9 +976,9 @@   foreign import javascript unsafe "$1[\"createPattern\"]($2, $3)"         js_createPatternFromCanvas ::-        JSRef CanvasRenderingContext2D ->-          JSRef HTMLCanvasElement ->-            JSRef (Maybe JSString) -> IO (JSRef CanvasPattern)+        CanvasRenderingContext2D ->+          Nullable HTMLCanvasElement ->+            Nullable JSString -> IO (Nullable CanvasPattern)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation>  createPatternFromCanvas ::@@ -1155,16 +988,15 @@                               Maybe repetitionType -> m (Maybe CanvasPattern) createPatternFromCanvas self canvas repetitionType   = liftIO-      ((js_createPatternFromCanvas (unCanvasRenderingContext2D self)-          (maybe jsNull pToJSRef canvas)-          (toMaybeJSString repetitionType))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createPatternFromCanvas (self) (maybeToNullable canvas)+            (toMaybeJSString repetitionType)))   foreign import javascript unsafe "$1[\"createPattern\"]($2, $3)"         js_createPattern ::-        JSRef CanvasRenderingContext2D ->-          JSRef HTMLImageElement ->-            JSRef (Maybe JSString) -> IO (JSRef CanvasPattern)+        CanvasRenderingContext2D ->+          Nullable HTMLImageElement ->+            Nullable JSString -> IO (Nullable CanvasPattern)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createPattern Mozilla CanvasRenderingContext2D.createPattern documentation>  createPattern ::@@ -1174,15 +1006,14 @@                     Maybe repetitionType -> m (Maybe CanvasPattern) createPattern self image repetitionType   = liftIO-      ((js_createPattern (unCanvasRenderingContext2D self)-          (maybe jsNull pToJSRef image)-          (toMaybeJSString repetitionType))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createPattern (self) (maybeToNullable image)+            (toMaybeJSString repetitionType)))   foreign import javascript unsafe "$1[\"createImageData\"]($2)"         js_createImageData ::-        JSRef CanvasRenderingContext2D ->-          JSRef ImageData -> IO (JSRef ImageData)+        CanvasRenderingContext2D ->+          Nullable ImageData -> IO (Nullable ImageData)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation>  createImageData ::@@ -1190,14 +1021,13 @@                   CanvasRenderingContext2D -> Maybe ImageData -> m (Maybe ImageData) createImageData self imagedata   = liftIO-      ((js_createImageData (unCanvasRenderingContext2D self)-          (maybe jsNull pToJSRef imagedata))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createImageData (self) (maybeToNullable imagedata)))   foreign import javascript unsafe "$1[\"createImageData\"]($2, $3)"         js_createImageDataSize ::-        JSRef CanvasRenderingContext2D ->-          Float -> Float -> IO (JSRef ImageData)+        CanvasRenderingContext2D ->+          Float -> Float -> IO (Nullable ImageData)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.createImageData Mozilla CanvasRenderingContext2D.createImageData documentation>  createImageDataSize ::@@ -1205,13 +1035,12 @@                       CanvasRenderingContext2D -> Float -> Float -> m (Maybe ImageData) createImageDataSize self sw sh   = liftIO-      ((js_createImageDataSize (unCanvasRenderingContext2D self) sw sh)-         >>= fromJSRef)+      (nullableToMaybe <$> (js_createImageDataSize (self) sw sh))   foreign import javascript unsafe         "$1[\"getImageData\"]($2, $3, $4,\n$5)" js_getImageData ::-        JSRef CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> IO (JSRef ImageData)+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO (Nullable ImageData)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.getImageData Mozilla CanvasRenderingContext2D.getImageData documentation>  getImageData ::@@ -1219,15 +1048,13 @@                CanvasRenderingContext2D ->                  Float -> Float -> Float -> Float -> m (Maybe ImageData) getImageData self sx sy sw sh-  = liftIO-      ((js_getImageData (unCanvasRenderingContext2D self) sx sy sw sh)-         >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getImageData (self) sx sy sw sh))   foreign import javascript unsafe         "$1[\"webkitGetImageDataHD\"]($2,\n$3, $4, $5)"         js_webkitGetImageDataHD ::-        JSRef CanvasRenderingContext2D ->-          Float -> Float -> Float -> Float -> IO (JSRef ImageData)+        CanvasRenderingContext2D ->+          Float -> Float -> Float -> Float -> IO (Nullable ImageData)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitGetImageDataHD Mozilla CanvasRenderingContext2D.webkitGetImageDataHD documentation>  webkitGetImageDataHD ::@@ -1236,14 +1063,11 @@                          Float -> Float -> Float -> Float -> m (Maybe ImageData) webkitGetImageDataHD self sx sy sw sh   = liftIO-      ((js_webkitGetImageDataHD (unCanvasRenderingContext2D self) sx sy-          sw-          sh)-         >>= fromJSRef)+      (nullableToMaybe <$> (js_webkitGetImageDataHD (self) sx sy sw sh))   foreign import javascript unsafe "$1[\"drawFocusIfNeeded\"]($2)"         js_drawFocusIfNeeded ::-        JSRef CanvasRenderingContext2D -> JSRef Element -> IO ()+        CanvasRenderingContext2D -> Nullable Element -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawFocusIfNeeded Mozilla CanvasRenderingContext2D.drawFocusIfNeeded documentation>  drawFocusIfNeeded ::@@ -1251,13 +1075,13 @@                     CanvasRenderingContext2D -> Maybe element -> m () drawFocusIfNeeded self element   = liftIO-      (js_drawFocusIfNeeded (unCanvasRenderingContext2D self)-         (maybe jsNull (unElement . toElement) element))+      (js_drawFocusIfNeeded (self)+         (maybeToNullable (fmap toElement element)))   foreign import javascript unsafe         "$1[\"drawFocusIfNeeded\"]($2, $3)" js_drawFocusIfNeededPath ::-        JSRef CanvasRenderingContext2D ->-          JSRef Path2D -> JSRef Element -> IO ()+        CanvasRenderingContext2D ->+          Nullable Path2D -> Nullable Element -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.drawFocusIfNeeded Mozilla CanvasRenderingContext2D.drawFocusIfNeeded documentation>  drawFocusIfNeededPath ::@@ -1265,33 +1089,29 @@                         CanvasRenderingContext2D -> Maybe Path2D -> Maybe element -> m () drawFocusIfNeededPath self path element   = liftIO-      (js_drawFocusIfNeededPath (unCanvasRenderingContext2D self)-         (maybe jsNull pToJSRef path)-         (maybe jsNull (unElement . toElement) element))+      (js_drawFocusIfNeededPath (self) (maybeToNullable path)+         (maybeToNullable (fmap toElement element)))   foreign import javascript unsafe "$1[\"globalAlpha\"] = $2;"-        js_setGlobalAlpha ::-        JSRef CanvasRenderingContext2D -> Float -> IO ()+        js_setGlobalAlpha :: CanvasRenderingContext2D -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalAlpha Mozilla CanvasRenderingContext2D.globalAlpha documentation>  setGlobalAlpha ::                (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setGlobalAlpha self val-  = liftIO (js_setGlobalAlpha (unCanvasRenderingContext2D self) val)+setGlobalAlpha self val = liftIO (js_setGlobalAlpha (self) val)   foreign import javascript unsafe "$1[\"globalAlpha\"]"-        js_getGlobalAlpha :: JSRef CanvasRenderingContext2D -> IO Float+        js_getGlobalAlpha :: CanvasRenderingContext2D -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalAlpha Mozilla CanvasRenderingContext2D.globalAlpha documentation>  getGlobalAlpha ::                (MonadIO m) => CanvasRenderingContext2D -> m Float-getGlobalAlpha self-  = liftIO (js_getGlobalAlpha (unCanvasRenderingContext2D self))+getGlobalAlpha self = liftIO (js_getGlobalAlpha (self))   foreign import javascript unsafe         "$1[\"globalCompositeOperation\"] = $2;"         js_setGlobalCompositeOperation ::-        JSRef CanvasRenderingContext2D -> JSRef (Maybe JSString) -> IO ()+        CanvasRenderingContext2D -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation>  setGlobalCompositeOperation ::@@ -1299,12 +1119,11 @@                               CanvasRenderingContext2D -> Maybe val -> m () setGlobalCompositeOperation self val   = liftIO-      (js_setGlobalCompositeOperation (unCanvasRenderingContext2D self)-         (toMaybeJSString val))+      (js_setGlobalCompositeOperation (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"globalCompositeOperation\"]"         js_getGlobalCompositeOperation ::-        JSRef CanvasRenderingContext2D -> IO (JSRef (Maybe JSString))+        CanvasRenderingContext2D -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.globalCompositeOperation Mozilla CanvasRenderingContext2D.globalCompositeOperation documentation>  getGlobalCompositeOperation ::@@ -1312,201 +1131,169 @@                               CanvasRenderingContext2D -> m (Maybe result) getGlobalCompositeOperation self   = liftIO-      (fromMaybeJSString <$>-         (js_getGlobalCompositeOperation (unCanvasRenderingContext2D self)))+      (fromMaybeJSString <$> (js_getGlobalCompositeOperation (self)))   foreign import javascript unsafe "$1[\"lineWidth\"] = $2;"-        js_setLineWidth :: JSRef CanvasRenderingContext2D -> Float -> IO ()+        js_setLineWidth :: CanvasRenderingContext2D -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineWidth Mozilla CanvasRenderingContext2D.lineWidth documentation>  setLineWidth ::              (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setLineWidth self val-  = liftIO (js_setLineWidth (unCanvasRenderingContext2D self) val)+setLineWidth self val = liftIO (js_setLineWidth (self) val)   foreign import javascript unsafe "$1[\"lineWidth\"]"-        js_getLineWidth :: JSRef CanvasRenderingContext2D -> IO Float+        js_getLineWidth :: CanvasRenderingContext2D -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineWidth Mozilla CanvasRenderingContext2D.lineWidth documentation>  getLineWidth :: (MonadIO m) => CanvasRenderingContext2D -> m Float-getLineWidth self-  = liftIO (js_getLineWidth (unCanvasRenderingContext2D self))+getLineWidth self = liftIO (js_getLineWidth (self))   foreign import javascript unsafe "$1[\"lineCap\"] = $2;"         js_setLineCap ::-        JSRef CanvasRenderingContext2D -> JSRef (Maybe JSString) -> IO ()+        CanvasRenderingContext2D -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation>  setLineCap ::            (MonadIO m, ToJSString val) =>              CanvasRenderingContext2D -> Maybe val -> m () setLineCap self val-  = liftIO-      (js_setLineCap (unCanvasRenderingContext2D self)-         (toMaybeJSString val))+  = liftIO (js_setLineCap (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"lineCap\"]" js_getLineCap ::-        JSRef CanvasRenderingContext2D -> IO (JSRef (Maybe JSString))+        CanvasRenderingContext2D -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineCap Mozilla CanvasRenderingContext2D.lineCap documentation>  getLineCap ::            (MonadIO m, FromJSString result) =>              CanvasRenderingContext2D -> m (Maybe result) getLineCap self-  = liftIO-      (fromMaybeJSString <$>-         (js_getLineCap (unCanvasRenderingContext2D self)))+  = liftIO (fromMaybeJSString <$> (js_getLineCap (self)))   foreign import javascript unsafe "$1[\"lineJoin\"] = $2;"         js_setLineJoin ::-        JSRef CanvasRenderingContext2D -> JSRef (Maybe JSString) -> IO ()+        CanvasRenderingContext2D -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation>  setLineJoin ::             (MonadIO m, ToJSString val) =>               CanvasRenderingContext2D -> Maybe val -> m () setLineJoin self val-  = liftIO-      (js_setLineJoin (unCanvasRenderingContext2D self)-         (toMaybeJSString val))+  = liftIO (js_setLineJoin (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"lineJoin\"]" js_getLineJoin-        :: JSRef CanvasRenderingContext2D -> IO (JSRef (Maybe JSString))+        :: CanvasRenderingContext2D -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineJoin Mozilla CanvasRenderingContext2D.lineJoin documentation>  getLineJoin ::             (MonadIO m, FromJSString result) =>               CanvasRenderingContext2D -> m (Maybe result) getLineJoin self-  = liftIO-      (fromMaybeJSString <$>-         (js_getLineJoin (unCanvasRenderingContext2D self)))+  = liftIO (fromMaybeJSString <$> (js_getLineJoin (self)))   foreign import javascript unsafe "$1[\"miterLimit\"] = $2;"-        js_setMiterLimit ::-        JSRef CanvasRenderingContext2D -> Float -> IO ()+        js_setMiterLimit :: CanvasRenderingContext2D -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.miterLimit Mozilla CanvasRenderingContext2D.miterLimit documentation>  setMiterLimit ::               (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setMiterLimit self val-  = liftIO (js_setMiterLimit (unCanvasRenderingContext2D self) val)+setMiterLimit self val = liftIO (js_setMiterLimit (self) val)   foreign import javascript unsafe "$1[\"miterLimit\"]"-        js_getMiterLimit :: JSRef CanvasRenderingContext2D -> IO Float+        js_getMiterLimit :: CanvasRenderingContext2D -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.miterLimit Mozilla CanvasRenderingContext2D.miterLimit documentation>  getMiterLimit :: (MonadIO m) => CanvasRenderingContext2D -> m Float-getMiterLimit self-  = liftIO (js_getMiterLimit (unCanvasRenderingContext2D self))+getMiterLimit self = liftIO (js_getMiterLimit (self))   foreign import javascript unsafe "$1[\"shadowOffsetX\"] = $2;"-        js_setShadowOffsetX ::-        JSRef CanvasRenderingContext2D -> Float -> IO ()+        js_setShadowOffsetX :: CanvasRenderingContext2D -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetX Mozilla CanvasRenderingContext2D.shadowOffsetX documentation>  setShadowOffsetX ::                  (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setShadowOffsetX self val-  = liftIO-      (js_setShadowOffsetX (unCanvasRenderingContext2D self) val)+setShadowOffsetX self val = liftIO (js_setShadowOffsetX (self) val)   foreign import javascript unsafe "$1[\"shadowOffsetX\"]"-        js_getShadowOffsetX :: JSRef CanvasRenderingContext2D -> IO Float+        js_getShadowOffsetX :: CanvasRenderingContext2D -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetX Mozilla CanvasRenderingContext2D.shadowOffsetX documentation>  getShadowOffsetX ::                  (MonadIO m) => CanvasRenderingContext2D -> m Float-getShadowOffsetX self-  = liftIO (js_getShadowOffsetX (unCanvasRenderingContext2D self))+getShadowOffsetX self = liftIO (js_getShadowOffsetX (self))   foreign import javascript unsafe "$1[\"shadowOffsetY\"] = $2;"-        js_setShadowOffsetY ::-        JSRef CanvasRenderingContext2D -> Float -> IO ()+        js_setShadowOffsetY :: CanvasRenderingContext2D -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetY Mozilla CanvasRenderingContext2D.shadowOffsetY documentation>  setShadowOffsetY ::                  (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setShadowOffsetY self val-  = liftIO-      (js_setShadowOffsetY (unCanvasRenderingContext2D self) val)+setShadowOffsetY self val = liftIO (js_setShadowOffsetY (self) val)   foreign import javascript unsafe "$1[\"shadowOffsetY\"]"-        js_getShadowOffsetY :: JSRef CanvasRenderingContext2D -> IO Float+        js_getShadowOffsetY :: CanvasRenderingContext2D -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowOffsetY Mozilla CanvasRenderingContext2D.shadowOffsetY documentation>  getShadowOffsetY ::                  (MonadIO m) => CanvasRenderingContext2D -> m Float-getShadowOffsetY self-  = liftIO (js_getShadowOffsetY (unCanvasRenderingContext2D self))+getShadowOffsetY self = liftIO (js_getShadowOffsetY (self))   foreign import javascript unsafe "$1[\"shadowBlur\"] = $2;"-        js_setShadowBlur ::-        JSRef CanvasRenderingContext2D -> Float -> IO ()+        js_setShadowBlur :: CanvasRenderingContext2D -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowBlur Mozilla CanvasRenderingContext2D.shadowBlur documentation>  setShadowBlur ::               (MonadIO m) => CanvasRenderingContext2D -> Float -> m ()-setShadowBlur self val-  = liftIO (js_setShadowBlur (unCanvasRenderingContext2D self) val)+setShadowBlur self val = liftIO (js_setShadowBlur (self) val)   foreign import javascript unsafe "$1[\"shadowBlur\"]"-        js_getShadowBlur :: JSRef CanvasRenderingContext2D -> IO Float+        js_getShadowBlur :: CanvasRenderingContext2D -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowBlur Mozilla CanvasRenderingContext2D.shadowBlur documentation>  getShadowBlur :: (MonadIO m) => CanvasRenderingContext2D -> m Float-getShadowBlur self-  = liftIO (js_getShadowBlur (unCanvasRenderingContext2D self))+getShadowBlur self = liftIO (js_getShadowBlur (self))   foreign import javascript unsafe "$1[\"shadowColor\"] = $2;"         js_setShadowColor ::-        JSRef CanvasRenderingContext2D -> JSRef (Maybe JSString) -> IO ()+        CanvasRenderingContext2D -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation>  setShadowColor ::                (MonadIO m, ToJSString val) =>                  CanvasRenderingContext2D -> Maybe val -> m () setShadowColor self val-  = liftIO-      (js_setShadowColor (unCanvasRenderingContext2D self)-         (toMaybeJSString val))+  = liftIO (js_setShadowColor (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"shadowColor\"]"         js_getShadowColor ::-        JSRef CanvasRenderingContext2D -> IO (JSRef (Maybe JSString))+        CanvasRenderingContext2D -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.shadowColor Mozilla CanvasRenderingContext2D.shadowColor documentation>  getShadowColor ::                (MonadIO m, FromJSString result) =>                  CanvasRenderingContext2D -> m (Maybe result) getShadowColor self-  = liftIO-      (fromMaybeJSString <$>-         (js_getShadowColor (unCanvasRenderingContext2D self)))+  = liftIO (fromMaybeJSString <$> (js_getShadowColor (self)))   foreign import javascript unsafe "$1[\"lineDashOffset\"] = $2;"-        js_setLineDashOffset ::-        JSRef CanvasRenderingContext2D -> Float -> IO ()+        js_setLineDashOffset :: CanvasRenderingContext2D -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineDashOffset Mozilla CanvasRenderingContext2D.lineDashOffset documentation>  setLineDashOffset ::                   (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setLineDashOffset self val-  = liftIO-      (js_setLineDashOffset (unCanvasRenderingContext2D self) val)+  = liftIO (js_setLineDashOffset (self) val)   foreign import javascript unsafe "$1[\"lineDashOffset\"]"-        js_getLineDashOffset :: JSRef CanvasRenderingContext2D -> IO Float+        js_getLineDashOffset :: CanvasRenderingContext2D -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.lineDashOffset Mozilla CanvasRenderingContext2D.lineDashOffset documentation>  getLineDashOffset ::                   (MonadIO m) => CanvasRenderingContext2D -> m Float-getLineDashOffset self-  = liftIO (js_getLineDashOffset (unCanvasRenderingContext2D self))+getLineDashOffset self = liftIO (js_getLineDashOffset (self))   foreign import javascript unsafe "$1[\"webkitLineDash\"] = $2;"         js_setWebkitLineDash ::-        JSRef CanvasRenderingContext2D -> JSRef Array -> IO ()+        CanvasRenderingContext2D -> Nullable Array -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation>  setWebkitLineDash ::@@ -1514,143 +1301,118 @@                     CanvasRenderingContext2D -> Maybe val -> m () setWebkitLineDash self val   = liftIO-      (js_setWebkitLineDash (unCanvasRenderingContext2D self)-         (maybe jsNull (unArray . toArray) val))+      (js_setWebkitLineDash (self) (maybeToNullable (fmap toArray val)))   foreign import javascript unsafe "$1[\"webkitLineDash\"]"         js_getWebkitLineDash ::-        JSRef CanvasRenderingContext2D -> IO (JSRef Array)+        CanvasRenderingContext2D -> IO (Nullable Array)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDash Mozilla CanvasRenderingContext2D.webkitLineDash documentation>  getWebkitLineDash ::                   (MonadIO m) => CanvasRenderingContext2D -> m (Maybe Array) getWebkitLineDash self-  = liftIO-      ((js_getWebkitLineDash (unCanvasRenderingContext2D self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getWebkitLineDash (self)))   foreign import javascript unsafe         "$1[\"webkitLineDashOffset\"] = $2;" js_setWebkitLineDashOffset ::-        JSRef CanvasRenderingContext2D -> Float -> IO ()+        CanvasRenderingContext2D -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDashOffset Mozilla CanvasRenderingContext2D.webkitLineDashOffset documentation>  setWebkitLineDashOffset ::                         (MonadIO m) => CanvasRenderingContext2D -> Float -> m () setWebkitLineDashOffset self val-  = liftIO-      (js_setWebkitLineDashOffset (unCanvasRenderingContext2D self) val)+  = liftIO (js_setWebkitLineDashOffset (self) val)   foreign import javascript unsafe "$1[\"webkitLineDashOffset\"]"-        js_getWebkitLineDashOffset ::-        JSRef CanvasRenderingContext2D -> IO Float+        js_getWebkitLineDashOffset :: CanvasRenderingContext2D -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitLineDashOffset Mozilla CanvasRenderingContext2D.webkitLineDashOffset documentation>  getWebkitLineDashOffset ::                         (MonadIO m) => CanvasRenderingContext2D -> m Float getWebkitLineDashOffset self-  = liftIO-      (js_getWebkitLineDashOffset (unCanvasRenderingContext2D self))+  = liftIO (js_getWebkitLineDashOffset (self))   foreign import javascript unsafe "$1[\"font\"] = $2;" js_setFont ::-        JSRef CanvasRenderingContext2D -> JSString -> IO ()+        CanvasRenderingContext2D -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.font Mozilla CanvasRenderingContext2D.font documentation>  setFont ::         (MonadIO m, ToJSString val) =>           CanvasRenderingContext2D -> val -> m ()-setFont self val-  = liftIO-      (js_setFont (unCanvasRenderingContext2D self) (toJSString val))+setFont self val = liftIO (js_setFont (self) (toJSString val))   foreign import javascript unsafe "$1[\"font\"]" js_getFont ::-        JSRef CanvasRenderingContext2D -> IO JSString+        CanvasRenderingContext2D -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.font Mozilla CanvasRenderingContext2D.font documentation>  getFont ::         (MonadIO m, FromJSString result) =>           CanvasRenderingContext2D -> m result-getFont self-  = liftIO-      (fromJSString <$> (js_getFont (unCanvasRenderingContext2D self)))+getFont self = liftIO (fromJSString <$> (js_getFont (self)))   foreign import javascript unsafe "$1[\"textAlign\"] = $2;"-        js_setTextAlign ::-        JSRef CanvasRenderingContext2D -> JSString -> IO ()+        js_setTextAlign :: CanvasRenderingContext2D -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textAlign Mozilla CanvasRenderingContext2D.textAlign documentation>  setTextAlign ::              (MonadIO m, ToJSString val) =>                CanvasRenderingContext2D -> val -> m () setTextAlign self val-  = liftIO-      (js_setTextAlign (unCanvasRenderingContext2D self)-         (toJSString val))+  = liftIO (js_setTextAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"textAlign\"]"-        js_getTextAlign :: JSRef CanvasRenderingContext2D -> IO JSString+        js_getTextAlign :: CanvasRenderingContext2D -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textAlign Mozilla CanvasRenderingContext2D.textAlign documentation>  getTextAlign ::              (MonadIO m, FromJSString result) =>                CanvasRenderingContext2D -> m result getTextAlign self-  = liftIO-      (fromJSString <$>-         (js_getTextAlign (unCanvasRenderingContext2D self)))+  = liftIO (fromJSString <$> (js_getTextAlign (self)))   foreign import javascript unsafe "$1[\"textBaseline\"] = $2;"-        js_setTextBaseline ::-        JSRef CanvasRenderingContext2D -> JSString -> IO ()+        js_setTextBaseline :: CanvasRenderingContext2D -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textBaseline Mozilla CanvasRenderingContext2D.textBaseline documentation>  setTextBaseline ::                 (MonadIO m, ToJSString val) =>                   CanvasRenderingContext2D -> val -> m () setTextBaseline self val-  = liftIO-      (js_setTextBaseline (unCanvasRenderingContext2D self)-         (toJSString val))+  = liftIO (js_setTextBaseline (self) (toJSString val))   foreign import javascript unsafe "$1[\"textBaseline\"]"-        js_getTextBaseline :: JSRef CanvasRenderingContext2D -> IO JSString+        js_getTextBaseline :: CanvasRenderingContext2D -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.textBaseline Mozilla CanvasRenderingContext2D.textBaseline documentation>  getTextBaseline ::                 (MonadIO m, FromJSString result) =>                   CanvasRenderingContext2D -> m result getTextBaseline self-  = liftIO-      (fromJSString <$>-         (js_getTextBaseline (unCanvasRenderingContext2D self)))+  = liftIO (fromJSString <$> (js_getTextBaseline (self)))   foreign import javascript unsafe "$1[\"direction\"] = $2;"-        js_setDirection ::-        JSRef CanvasRenderingContext2D -> JSString -> IO ()+        js_setDirection :: CanvasRenderingContext2D -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.direction Mozilla CanvasRenderingContext2D.direction documentation>  setDirection ::              (MonadIO m, ToJSString val) =>                CanvasRenderingContext2D -> val -> m () setDirection self val-  = liftIO-      (js_setDirection (unCanvasRenderingContext2D self)-         (toJSString val))+  = liftIO (js_setDirection (self) (toJSString val))   foreign import javascript unsafe "$1[\"direction\"]"-        js_getDirection :: JSRef CanvasRenderingContext2D -> IO JSString+        js_getDirection :: CanvasRenderingContext2D -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.direction Mozilla CanvasRenderingContext2D.direction documentation>  getDirection ::              (MonadIO m, FromJSString result) =>                CanvasRenderingContext2D -> m result getDirection self-  = liftIO-      (fromJSString <$>-         (js_getDirection (unCanvasRenderingContext2D self)))+  = liftIO (fromJSString <$> (js_getDirection (self)))   foreign import javascript unsafe "$1[\"strokeStyle\"] = $2;"         js_setStrokeStyle ::-        JSRef CanvasRenderingContext2D -> JSRef CanvasStyle -> IO ()+        CanvasRenderingContext2D -> Nullable CanvasStyle -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation>  setStrokeStyle ::@@ -1658,24 +1420,22 @@                  CanvasRenderingContext2D -> Maybe val -> m () setStrokeStyle self val   = liftIO-      (js_setStrokeStyle (unCanvasRenderingContext2D self)-         (maybe jsNull (unCanvasStyle . toCanvasStyle) val))+      (js_setStrokeStyle (self)+         (maybeToNullable (fmap toCanvasStyle val)))   foreign import javascript unsafe "$1[\"strokeStyle\"]"         js_getStrokeStyle ::-        JSRef CanvasRenderingContext2D -> IO (JSRef CanvasStyle)+        CanvasRenderingContext2D -> IO (Nullable CanvasStyle)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.strokeStyle Mozilla CanvasRenderingContext2D.strokeStyle documentation>  getStrokeStyle ::                (MonadIO m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle) getStrokeStyle self-  = liftIO-      ((js_getStrokeStyle (unCanvasRenderingContext2D self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getStrokeStyle (self)))   foreign import javascript unsafe "$1[\"fillStyle\"] = $2;"         js_setFillStyle ::-        JSRef CanvasRenderingContext2D -> JSRef CanvasStyle -> IO ()+        CanvasRenderingContext2D -> Nullable CanvasStyle -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation>  setFillStyle ::@@ -1683,56 +1443,47 @@                CanvasRenderingContext2D -> Maybe val -> m () setFillStyle self val   = liftIO-      (js_setFillStyle (unCanvasRenderingContext2D self)-         (maybe jsNull (unCanvasStyle . toCanvasStyle) val))+      (js_setFillStyle (self) (maybeToNullable (fmap toCanvasStyle val)))   foreign import javascript unsafe "$1[\"fillStyle\"]"         js_getFillStyle ::-        JSRef CanvasRenderingContext2D -> IO (JSRef CanvasStyle)+        CanvasRenderingContext2D -> IO (Nullable CanvasStyle)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.fillStyle Mozilla CanvasRenderingContext2D.fillStyle documentation>  getFillStyle ::              (MonadIO m) => CanvasRenderingContext2D -> m (Maybe CanvasStyle) getFillStyle self-  = liftIO-      ((js_getFillStyle (unCanvasRenderingContext2D self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getFillStyle (self)))   foreign import javascript unsafe         "$1[\"webkitBackingStorePixelRatio\"]"         js_getWebkitBackingStorePixelRatio ::-        JSRef CanvasRenderingContext2D -> IO Float+        CanvasRenderingContext2D -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitBackingStorePixelRatio Mozilla CanvasRenderingContext2D.webkitBackingStorePixelRatio documentation>  getWebkitBackingStorePixelRatio ::                                 (MonadIO m) => CanvasRenderingContext2D -> m Float getWebkitBackingStorePixelRatio self-  = liftIO-      (js_getWebkitBackingStorePixelRatio-         (unCanvasRenderingContext2D self))+  = liftIO (js_getWebkitBackingStorePixelRatio (self))   foreign import javascript unsafe         "$1[\"webkitImageSmoothingEnabled\"] = $2;"         js_setWebkitImageSmoothingEnabled ::-        JSRef CanvasRenderingContext2D -> Bool -> IO ()+        CanvasRenderingContext2D -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitImageSmoothingEnabled Mozilla CanvasRenderingContext2D.webkitImageSmoothingEnabled documentation>  setWebkitImageSmoothingEnabled ::                                (MonadIO m) => CanvasRenderingContext2D -> Bool -> m () setWebkitImageSmoothingEnabled self val-  = liftIO-      (js_setWebkitImageSmoothingEnabled-         (unCanvasRenderingContext2D self)-         val)+  = liftIO (js_setWebkitImageSmoothingEnabled (self) val)   foreign import javascript unsafe         "($1[\"webkitImageSmoothingEnabled\"] ? 1 : 0)"         js_getWebkitImageSmoothingEnabled ::-        JSRef CanvasRenderingContext2D -> IO Bool+        CanvasRenderingContext2D -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CanvasRenderingContext2D.webkitImageSmoothingEnabled Mozilla CanvasRenderingContext2D.webkitImageSmoothingEnabled documentation>  getWebkitImageSmoothingEnabled ::                                (MonadIO m) => CanvasRenderingContext2D -> m Bool getWebkitImageSmoothingEnabled self-  = liftIO-      (js_getWebkitImageSmoothingEnabled-         (unCanvasRenderingContext2D self))+  = liftIO (js_getWebkitImageSmoothingEnabled (self))
src/GHCJS/DOM/JSFFI/Generated/CapabilityRange.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,23 +20,22 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"max\"]" js_getMax ::-        JSRef CapabilityRange -> IO (JSRef a)+        CapabilityRange -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CapabilityRange.max Mozilla CapabilityRange.max documentation> -getMax :: (MonadIO m) => CapabilityRange -> m (JSRef a)-getMax self = liftIO (js_getMax (unCapabilityRange self))+getMax :: (MonadIO m) => CapabilityRange -> m JSRef+getMax self = liftIO (js_getMax (self))   foreign import javascript unsafe "$1[\"min\"]" js_getMin ::-        JSRef CapabilityRange -> IO (JSRef a)+        CapabilityRange -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CapabilityRange.min Mozilla CapabilityRange.min documentation> -getMin :: (MonadIO m) => CapabilityRange -> m (JSRef a)-getMin self = liftIO (js_getMin (unCapabilityRange self))+getMin :: (MonadIO m) => CapabilityRange -> m JSRef+getMin self = liftIO (js_getMin (self))   foreign import javascript unsafe "($1[\"supported\"] ? 1 : 0)"-        js_getSupported :: JSRef CapabilityRange -> IO Bool+        js_getSupported :: CapabilityRange -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CapabilityRange.supported Mozilla CapabilityRange.supported documentation>  getSupported :: (MonadIO m) => CapabilityRange -> m Bool-getSupported self-  = liftIO (js_getSupported (unCapabilityRange self))+getSupported self = liftIO (js_getSupported (self))
src/GHCJS/DOM/JSFFI/Generated/CharacterData.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,7 +24,7 @@   foreign import javascript unsafe "$1[\"substringData\"]($2, $3)"         js_substringData ::-        JSRef CharacterData -> Word -> Word -> IO (JSRef (Maybe JSString))+        CharacterData -> Word -> Word -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.substringData Mozilla CharacterData.substringData documentation>  substringData ::@@ -33,23 +33,20 @@ substringData self offset length   = liftIO       (fromMaybeJSString <$>-         (js_substringData (unCharacterData (toCharacterData self)) offset-            length))+         (js_substringData (toCharacterData self) offset length))   foreign import javascript unsafe "$1[\"appendData\"]($2)"-        js_appendData :: JSRef CharacterData -> JSString -> IO ()+        js_appendData :: CharacterData -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.appendData Mozilla CharacterData.appendData documentation>  appendData ::            (MonadIO m, IsCharacterData self, ToJSString data') =>              self -> data' -> m () appendData self data'-  = liftIO-      (js_appendData (unCharacterData (toCharacterData self))-         (toJSString data'))+  = liftIO (js_appendData (toCharacterData self) (toJSString data'))   foreign import javascript unsafe "$1[\"insertData\"]($2, $3)"-        js_insertData :: JSRef CharacterData -> Word -> JSString -> IO ()+        js_insertData :: CharacterData -> Word -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.insertData Mozilla CharacterData.insertData documentation>  insertData ::@@ -57,23 +54,20 @@              self -> Word -> data' -> m () insertData self offset data'   = liftIO-      (js_insertData (unCharacterData (toCharacterData self)) offset-         (toJSString data'))+      (js_insertData (toCharacterData self) offset (toJSString data'))   foreign import javascript unsafe "$1[\"deleteData\"]($2, $3)"-        js_deleteData :: JSRef CharacterData -> Word -> Word -> IO ()+        js_deleteData :: CharacterData -> Word -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.deleteData Mozilla CharacterData.deleteData documentation>  deleteData ::            (MonadIO m, IsCharacterData self) => self -> Word -> Word -> m () deleteData self offset length-  = liftIO-      (js_deleteData (unCharacterData (toCharacterData self)) offset-         length)+  = liftIO (js_deleteData (toCharacterData self) offset length)   foreign import javascript unsafe "$1[\"replaceData\"]($2, $3, $4)"         js_replaceData ::-        JSRef CharacterData -> Word -> Word -> JSString -> IO ()+        CharacterData -> Word -> Word -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.replaceData Mozilla CharacterData.replaceData documentation>  replaceData ::@@ -81,24 +75,21 @@               self -> Word -> Word -> data' -> m () replaceData self offset length data'   = liftIO-      (js_replaceData (unCharacterData (toCharacterData self)) offset-         length+      (js_replaceData (toCharacterData self) offset length          (toJSString data'))   foreign import javascript unsafe "$1[\"data\"] = $2;" js_setData ::-        JSRef CharacterData -> JSRef (Maybe JSString) -> IO ()+        CharacterData -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.data Mozilla CharacterData.data documentation>  setData ::         (MonadIO m, IsCharacterData self, ToJSString val) =>           self -> Maybe val -> m () setData self val-  = liftIO-      (js_setData (unCharacterData (toCharacterData self))-         (toMaybeJSString val))+  = liftIO (js_setData (toCharacterData self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"data\"]" js_getData ::-        JSRef CharacterData -> IO (JSRef (Maybe JSString))+        CharacterData -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.data Mozilla CharacterData.data documentation>  getData ::@@ -106,13 +97,11 @@           self -> m (Maybe result) getData self   = liftIO-      (fromMaybeJSString <$>-         (js_getData (unCharacterData (toCharacterData self))))+      (fromMaybeJSString <$> (js_getData (toCharacterData self)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef CharacterData -> IO Word+        CharacterData -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CharacterData.length Mozilla CharacterData.length documentation>  getLength :: (MonadIO m, IsCharacterData self) => self -> m Word-getLength self-  = liftIO (js_getLength (unCharacterData (toCharacterData self)))+getLength self = liftIO (js_getLength (toCharacterData self))
src/GHCJS/DOM/JSFFI/Generated/ChildNode.hs view
@@ -4,7 +4,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -18,8 +18,8 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"remove\"]()" js_remove ::-        JSRef ChildNode -> IO ()+        ChildNode -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ChildNode.remove Mozilla ChildNode.remove documentation>  remove :: (MonadIO m) => ChildNode -> m ()-remove self = liftIO (js_remove (unChildNode self))+remove self = liftIO (js_remove (self))
src/GHCJS/DOM/JSFFI/Generated/ClientRect.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,43 +20,43 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"top\"]" js_getTop ::-        JSRef ClientRect -> IO Float+        ClientRect -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.top Mozilla ClientRect.top documentation>  getTop :: (MonadIO m) => ClientRect -> m Float-getTop self = liftIO (js_getTop (unClientRect self))+getTop self = liftIO (js_getTop (self))   foreign import javascript unsafe "$1[\"right\"]" js_getRight ::-        JSRef ClientRect -> IO Float+        ClientRect -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.right Mozilla ClientRect.right documentation>  getRight :: (MonadIO m) => ClientRect -> m Float-getRight self = liftIO (js_getRight (unClientRect self))+getRight self = liftIO (js_getRight (self))   foreign import javascript unsafe "$1[\"bottom\"]" js_getBottom ::-        JSRef ClientRect -> IO Float+        ClientRect -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.bottom Mozilla ClientRect.bottom documentation>  getBottom :: (MonadIO m) => ClientRect -> m Float-getBottom self = liftIO (js_getBottom (unClientRect self))+getBottom self = liftIO (js_getBottom (self))   foreign import javascript unsafe "$1[\"left\"]" js_getLeft ::-        JSRef ClientRect -> IO Float+        ClientRect -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.left Mozilla ClientRect.left documentation>  getLeft :: (MonadIO m) => ClientRect -> m Float-getLeft self = liftIO (js_getLeft (unClientRect self))+getLeft self = liftIO (js_getLeft (self))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef ClientRect -> IO Float+        ClientRect -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.width Mozilla ClientRect.width documentation>  getWidth :: (MonadIO m) => ClientRect -> m Float-getWidth self = liftIO (js_getWidth (unClientRect self))+getWidth self = liftIO (js_getWidth (self))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef ClientRect -> IO Float+        ClientRect -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRect.height Mozilla ClientRect.height documentation>  getHeight :: (MonadIO m) => ClientRect -> m Float-getHeight self = liftIO (js_getHeight (unClientRect self))+getHeight self = liftIO (js_getHeight (self))
src/GHCJS/DOM/JSFFI/Generated/ClientRectList.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,17 +19,17 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef ClientRectList -> Word -> IO (JSRef ClientRect)+        ClientRectList -> Word -> IO (Nullable ClientRect)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList.item Mozilla ClientRectList.item documentation>  item ::      (MonadIO m) => ClientRectList -> Word -> m (Maybe ClientRect) item self index-  = liftIO ((js_item (unClientRectList self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef ClientRectList -> IO Word+        ClientRectList -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ClientRectList.length Mozilla ClientRectList.length documentation>  getLength :: (MonadIO m) => ClientRectList -> m Word-getLength self = liftIO (js_getLength (unClientRectList self))+getLength self = liftIO (js_getLength (self))
src/GHCJS/DOM/JSFFI/Generated/CloseEvent.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,24 +19,23 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "($1[\"wasClean\"] ? 1 : 0)"-        js_getWasClean :: JSRef CloseEvent -> IO Bool+        js_getWasClean :: CloseEvent -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.wasClean Mozilla CloseEvent.wasClean documentation>  getWasClean :: (MonadIO m) => CloseEvent -> m Bool-getWasClean self = liftIO (js_getWasClean (unCloseEvent self))+getWasClean self = liftIO (js_getWasClean (self))   foreign import javascript unsafe "$1[\"code\"]" js_getCode ::-        JSRef CloseEvent -> IO Word+        CloseEvent -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.code Mozilla CloseEvent.code documentation>  getCode :: (MonadIO m) => CloseEvent -> m Word-getCode self = liftIO (js_getCode (unCloseEvent self))+getCode self = liftIO (js_getCode (self))   foreign import javascript unsafe "$1[\"reason\"]" js_getReason ::-        JSRef CloseEvent -> IO JSString+        CloseEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CloseEvent.reason Mozilla CloseEvent.reason documentation>  getReason ::           (MonadIO m, FromJSString result) => CloseEvent -> m result-getReason self-  = liftIO (fromJSString <$> (js_getReason (unCloseEvent self)))+getReason self = liftIO (fromJSString <$> (js_getReason (self)))
src/GHCJS/DOM/JSFFI/Generated/CommandLineAPIHost.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,46 +22,40 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"clearConsoleMessages\"]()"-        js_clearConsoleMessages :: JSRef CommandLineAPIHost -> IO ()+        js_clearConsoleMessages :: CommandLineAPIHost -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.clearConsoleMessages Mozilla CommandLineAPIHost.clearConsoleMessages documentation>  clearConsoleMessages :: (MonadIO m) => CommandLineAPIHost -> m ()-clearConsoleMessages self-  = liftIO (js_clearConsoleMessages (unCommandLineAPIHost self))+clearConsoleMessages self = liftIO (js_clearConsoleMessages (self))   foreign import javascript unsafe "$1[\"copyText\"]($2)" js_copyText-        :: JSRef CommandLineAPIHost -> JSString -> IO ()+        :: CommandLineAPIHost -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.copyText Mozilla CommandLineAPIHost.copyText documentation>  copyText ::          (MonadIO m, ToJSString text) => CommandLineAPIHost -> text -> m ()-copyText self text-  = liftIO-      (js_copyText (unCommandLineAPIHost self) (toJSString text))+copyText self text = liftIO (js_copyText (self) (toJSString text))   foreign import javascript unsafe "$1[\"inspect\"]($2, $3)"-        js_inspect ::-        JSRef CommandLineAPIHost -> JSRef a -> JSRef a -> IO ()+        js_inspect :: CommandLineAPIHost -> JSRef -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspect Mozilla CommandLineAPIHost.inspect documentation>  inspect ::-        (MonadIO m) => CommandLineAPIHost -> JSRef a -> JSRef a -> m ()+        (MonadIO m) => CommandLineAPIHost -> JSRef -> JSRef -> m () inspect self objectId hints-  = liftIO (js_inspect (unCommandLineAPIHost self) objectId hints)+  = liftIO (js_inspect (self) objectId hints)   foreign import javascript unsafe "$1[\"inspectedObject\"]($2)"-        js_inspectedObject ::-        JSRef CommandLineAPIHost -> Int -> IO (JSRef a)+        js_inspectedObject :: CommandLineAPIHost -> Int -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.inspectedObject Mozilla CommandLineAPIHost.inspectedObject documentation>  inspectedObject ::-                (MonadIO m) => CommandLineAPIHost -> Int -> m (JSRef a)-inspectedObject self num-  = liftIO (js_inspectedObject (unCommandLineAPIHost self) num)+                (MonadIO m) => CommandLineAPIHost -> Int -> m JSRef+inspectedObject self num = liftIO (js_inspectedObject (self) num)   foreign import javascript unsafe "$1[\"getEventListeners\"]($2)"         js_getEventListeners ::-        JSRef CommandLineAPIHost -> JSRef Node -> IO (JSRef Array)+        CommandLineAPIHost -> Nullable Node -> IO (Nullable Array)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.getEventListeners Mozilla CommandLineAPIHost.getEventListeners documentation>  getEventListeners ::@@ -69,30 +63,25 @@                     CommandLineAPIHost -> Maybe node -> m (Maybe Array) getEventListeners self node   = liftIO-      ((js_getEventListeners (unCommandLineAPIHost self)-          (maybe jsNull (unNode . toNode) node))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getEventListeners (self) (maybeToNullable (fmap toNode node))))   foreign import javascript unsafe "$1[\"databaseId\"]($2)"-        js_databaseId :: JSRef CommandLineAPIHost -> JSRef a -> IO JSString+        js_databaseId :: CommandLineAPIHost -> JSRef -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.databaseId Mozilla CommandLineAPIHost.databaseId documentation>  databaseId ::            (MonadIO m, FromJSString result) =>-             CommandLineAPIHost -> JSRef a -> m result+             CommandLineAPIHost -> JSRef -> m result databaseId self database-  = liftIO-      (fromJSString <$>-         (js_databaseId (unCommandLineAPIHost self) database))+  = liftIO (fromJSString <$> (js_databaseId (self) database))   foreign import javascript unsafe "$1[\"storageId\"]($2)"-        js_storageId :: JSRef CommandLineAPIHost -> JSRef a -> IO JSString+        js_storageId :: CommandLineAPIHost -> JSRef -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CommandLineAPIHost.storageId Mozilla CommandLineAPIHost.storageId documentation>  storageId ::           (MonadIO m, FromJSString result) =>-            CommandLineAPIHost -> JSRef a -> m result+            CommandLineAPIHost -> JSRef -> m result storageId self storage-  = liftIO-      (fromJSString <$>-         (js_storageId (unCommandLineAPIHost self) storage))+  = liftIO (fromJSString <$> (js_storageId (self) storage))
src/GHCJS/DOM/JSFFI/Generated/Comment.hs view
@@ -4,7 +4,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -18,9 +18,8 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "new window[\"Comment\"]($1)"-        js_newComment :: JSString -> IO (JSRef Comment)+        js_newComment :: JSString -> IO Comment  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Comment Mozilla Comment documentation>  newComment :: (MonadIO m, ToJSString data') => data' -> m Comment-newComment data'-  = liftIO (js_newComment (toJSString data') >>= fromJSRefUnchecked)+newComment data' = liftIO (js_newComment (toJSString data'))
src/GHCJS/DOM/JSFFI/Generated/CompositionEvent.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,8 +22,8 @@ foreign import javascript unsafe         "$1[\"initCompositionEvent\"]($2,\n$3, $4, $5, $6)"         js_initCompositionEvent ::-        JSRef CompositionEvent ->-          JSString -> Bool -> Bool -> JSRef Window -> JSString -> IO ()+        CompositionEvent ->+          JSString -> Bool -> Bool -> Nullable Window -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent.initCompositionEvent Mozilla CompositionEvent.initCompositionEvent documentation>  initCompositionEvent ::@@ -33,18 +33,15 @@ initCompositionEvent self typeArg canBubbleArg cancelableArg   viewArg dataArg   = liftIO-      (js_initCompositionEvent (unCompositionEvent self)-         (toJSString typeArg)-         canBubbleArg+      (js_initCompositionEvent (self) (toJSString typeArg) canBubbleArg          cancelableArg-         (maybe jsNull pToJSRef viewArg)+         (maybeToNullable viewArg)          (toJSString dataArg))   foreign import javascript unsafe "$1[\"data\"]" js_getData ::-        JSRef CompositionEvent -> IO JSString+        CompositionEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CompositionEvent.data Mozilla CompositionEvent.data documentation>  getData ::         (MonadIO m, FromJSString result) => CompositionEvent -> m result-getData self-  = liftIO (fromJSString <$> (js_getData (unCompositionEvent self)))+getData self = liftIO (fromJSString <$> (js_getData (self)))
src/GHCJS/DOM/JSFFI/Generated/ConvolverNode.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,34 +20,31 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"buffer\"] = $2;"-        js_setBuffer :: JSRef ConvolverNode -> JSRef AudioBuffer -> IO ()+        js_setBuffer :: ConvolverNode -> Nullable AudioBuffer -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation>  setBuffer ::           (MonadIO m) => ConvolverNode -> Maybe AudioBuffer -> m () setBuffer self val-  = liftIO-      (js_setBuffer (unConvolverNode self) (maybe jsNull pToJSRef val))+  = liftIO (js_setBuffer (self) (maybeToNullable val))   foreign import javascript unsafe "$1[\"buffer\"]" js_getBuffer ::-        JSRef ConvolverNode -> IO (JSRef AudioBuffer)+        ConvolverNode -> IO (Nullable AudioBuffer)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.buffer Mozilla ConvolverNode.buffer documentation>  getBuffer :: (MonadIO m) => ConvolverNode -> m (Maybe AudioBuffer)-getBuffer self-  = liftIO ((js_getBuffer (unConvolverNode self)) >>= fromJSRef)+getBuffer self = liftIO (nullableToMaybe <$> (js_getBuffer (self)))   foreign import javascript unsafe "$1[\"normalize\"] = $2;"-        js_setNormalize :: JSRef ConvolverNode -> Bool -> IO ()+        js_setNormalize :: ConvolverNode -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.normalize Mozilla ConvolverNode.normalize documentation>  setNormalize :: (MonadIO m) => ConvolverNode -> Bool -> m ()-setNormalize self val-  = liftIO (js_setNormalize (unConvolverNode self) val)+setNormalize self val = liftIO (js_setNormalize (self) val)   foreign import javascript unsafe "($1[\"normalize\"] ? 1 : 0)"-        js_getNormalize :: JSRef ConvolverNode -> IO Bool+        js_getNormalize :: ConvolverNode -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ConvolverNode.normalize Mozilla ConvolverNode.normalize documentation>  getNormalize :: (MonadIO m) => ConvolverNode -> m Bool-getNormalize self = liftIO (js_getNormalize (unConvolverNode self))+getNormalize self = liftIO (js_getNormalize (self))
src/GHCJS/DOM/JSFFI/Generated/Coordinates.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,61 +22,55 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"latitude\"]" js_getLatitude-        :: JSRef Coordinates -> IO Double+        :: Coordinates -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.latitude Mozilla Coordinates.latitude documentation>  getLatitude :: (MonadIO m) => Coordinates -> m Double-getLatitude self = liftIO (js_getLatitude (unCoordinates self))+getLatitude self = liftIO (js_getLatitude (self))   foreign import javascript unsafe "$1[\"longitude\"]"-        js_getLongitude :: JSRef Coordinates -> IO Double+        js_getLongitude :: Coordinates -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.longitude Mozilla Coordinates.longitude documentation>  getLongitude :: (MonadIO m) => Coordinates -> m Double-getLongitude self = liftIO (js_getLongitude (unCoordinates self))+getLongitude self = liftIO (js_getLongitude (self))   foreign import javascript unsafe "$1[\"altitude\"]" js_getAltitude-        :: JSRef Coordinates -> IO (JSRef (Maybe Double))+        :: Coordinates -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitude Mozilla Coordinates.altitude documentation>  getAltitude :: (MonadIO m) => Coordinates -> m (Maybe Double) getAltitude self-  = liftIO-      ((js_getAltitude (unCoordinates self)) >>= fromJSRefUnchecked)+  = liftIO ((js_getAltitude (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"accuracy\"]" js_getAccuracy-        :: JSRef Coordinates -> IO Double+        :: Coordinates -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.accuracy Mozilla Coordinates.accuracy documentation>  getAccuracy :: (MonadIO m) => Coordinates -> m Double-getAccuracy self = liftIO (js_getAccuracy (unCoordinates self))+getAccuracy self = liftIO (js_getAccuracy (self))   foreign import javascript unsafe "$1[\"altitudeAccuracy\"]"-        js_getAltitudeAccuracy ::-        JSRef Coordinates -> IO (JSRef (Maybe Double))+        js_getAltitudeAccuracy :: Coordinates -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.altitudeAccuracy Mozilla Coordinates.altitudeAccuracy documentation>  getAltitudeAccuracy ::                     (MonadIO m) => Coordinates -> m (Maybe Double) getAltitudeAccuracy self-  = liftIO-      ((js_getAltitudeAccuracy (unCoordinates self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getAltitudeAccuracy (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"heading\"]" js_getHeading ::-        JSRef Coordinates -> IO (JSRef (Maybe Double))+        Coordinates -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.heading Mozilla Coordinates.heading documentation>  getHeading :: (MonadIO m) => Coordinates -> m (Maybe Double) getHeading self-  = liftIO-      ((js_getHeading (unCoordinates self)) >>= fromJSRefUnchecked)+  = liftIO ((js_getHeading (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"speed\"]" js_getSpeed ::-        JSRef Coordinates -> IO (JSRef (Maybe Double))+        Coordinates -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Coordinates.speed Mozilla Coordinates.speed documentation>  getSpeed :: (MonadIO m) => Coordinates -> m (Maybe Double) getSpeed self-  = liftIO-      ((js_getSpeed (unCoordinates self)) >>= fromJSRefUnchecked)+  = liftIO ((js_getSpeed (self)) >>= fromJSRefUnchecked)
src/GHCJS/DOM/JSFFI/Generated/Counter.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,28 +20,28 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"identifier\"]"-        js_getIdentifier :: JSRef Counter -> IO JSString+        js_getIdentifier :: Counter -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.identifier Mozilla Counter.identifier documentation>  getIdentifier ::               (MonadIO m, FromJSString result) => Counter -> m result getIdentifier self-  = liftIO (fromJSString <$> (js_getIdentifier (unCounter self)))+  = liftIO (fromJSString <$> (js_getIdentifier (self)))   foreign import javascript unsafe "$1[\"listStyle\"]"-        js_getListStyle :: JSRef Counter -> IO JSString+        js_getListStyle :: Counter -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.listStyle Mozilla Counter.listStyle documentation>  getListStyle ::              (MonadIO m, FromJSString result) => Counter -> m result getListStyle self-  = liftIO (fromJSString <$> (js_getListStyle (unCounter self)))+  = liftIO (fromJSString <$> (js_getListStyle (self)))   foreign import javascript unsafe "$1[\"separator\"]"-        js_getSeparator :: JSRef Counter -> IO JSString+        js_getSeparator :: Counter -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Counter.separator Mozilla Counter.separator documentation>  getSeparator ::              (MonadIO m, FromJSString result) => Counter -> m result getSeparator self-  = liftIO (fromJSString <$> (js_getSeparator (unCounter self)))+  = liftIO (fromJSString <$> (js_getSeparator (self)))
src/GHCJS/DOM/JSFFI/Generated/Crypto.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,7 +20,7 @@   foreign import javascript unsafe "$1[\"getRandomValues\"]($2)"         js_getRandomValues ::-        JSRef Crypto -> JSRef ArrayBufferView -> IO (JSRef ArrayBufferView)+        Crypto -> Nullable ArrayBufferView -> IO (Nullable ArrayBufferView)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.getRandomValues Mozilla Crypto.getRandomValues documentation>  getRandomValues ::@@ -28,14 +28,14 @@                   Crypto -> Maybe array -> m (Maybe ArrayBufferView) getRandomValues self array   = liftIO-      ((js_getRandomValues (unCrypto self)-          (maybe jsNull (unArrayBufferView . toArrayBufferView) array))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getRandomValues (self)+            (maybeToNullable (fmap toArrayBufferView array))))   foreign import javascript unsafe "$1[\"webkitSubtle\"]"-        js_getWebkitSubtle :: JSRef Crypto -> IO (JSRef SubtleCrypto)+        js_getWebkitSubtle :: Crypto -> IO (Nullable SubtleCrypto)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Crypto.webkitSubtle Mozilla Crypto.webkitSubtle documentation>  getWebkitSubtle :: (MonadIO m) => Crypto -> m (Maybe SubtleCrypto) getWebkitSubtle self-  = liftIO ((js_getWebkitSubtle (unCrypto self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getWebkitSubtle (self)))
src/GHCJS/DOM/JSFFI/Generated/CryptoKey.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,32 +20,31 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef CryptoKey -> IO (JSRef KeyType)+        CryptoKey -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.type Mozilla CryptoKey.type documentation>  getType :: (MonadIO m) => CryptoKey -> m KeyType-getType self-  = liftIO ((js_getType (unCryptoKey self)) >>= fromJSRefUnchecked)+getType self = liftIO ((js_getType (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "($1[\"extractable\"] ? 1 : 0)"-        js_getExtractable :: JSRef CryptoKey -> IO Bool+        js_getExtractable :: CryptoKey -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.extractable Mozilla CryptoKey.extractable documentation>  getExtractable :: (MonadIO m) => CryptoKey -> m Bool-getExtractable self = liftIO (js_getExtractable (unCryptoKey self))+getExtractable self = liftIO (js_getExtractable (self))   foreign import javascript unsafe "$1[\"algorithm\"]"-        js_getAlgorithm :: JSRef CryptoKey -> IO (JSRef Algorithm)+        js_getAlgorithm :: CryptoKey -> IO (Nullable Algorithm)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.algorithm Mozilla CryptoKey.algorithm documentation>  getAlgorithm :: (MonadIO m) => CryptoKey -> m (Maybe Algorithm) getAlgorithm self-  = liftIO ((js_getAlgorithm (unCryptoKey self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAlgorithm (self)))   foreign import javascript unsafe "$1[\"usages\"]" js_getUsages ::-        JSRef CryptoKey -> IO (JSRef [KeyUsage])+        CryptoKey -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKey.usages Mozilla CryptoKey.usages documentation>  getUsages :: (MonadIO m) => CryptoKey -> m [KeyUsage] getUsages self-  = liftIO ((js_getUsages (unCryptoKey self)) >>= fromJSRefUnchecked)+  = liftIO ((js_getUsages (self)) >>= fromJSRefUnchecked)
src/GHCJS/DOM/JSFFI/Generated/CryptoKeyPair.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,18 +19,18 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"publicKey\"]"-        js_getPublicKey :: JSRef CryptoKeyPair -> IO (JSRef CryptoKey)+        js_getPublicKey :: CryptoKeyPair -> IO (Nullable CryptoKey)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.publicKey Mozilla CryptoKeyPair.publicKey documentation>  getPublicKey :: (MonadIO m) => CryptoKeyPair -> m (Maybe CryptoKey) getPublicKey self-  = liftIO ((js_getPublicKey (unCryptoKeyPair self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPublicKey (self)))   foreign import javascript unsafe "$1[\"privateKey\"]"-        js_getPrivateKey :: JSRef CryptoKeyPair -> IO (JSRef CryptoKey)+        js_getPrivateKey :: CryptoKeyPair -> IO (Nullable CryptoKey)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CryptoKeyPair.privateKey Mozilla CryptoKeyPair.privateKey documentation>  getPrivateKey ::               (MonadIO m) => CryptoKeyPair -> m (Maybe CryptoKey) getPrivateKey self-  = liftIO ((js_getPrivateKey (unCryptoKeyPair self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPrivateKey (self)))
src/GHCJS/DOM/JSFFI/Generated/CustomEvent.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,22 +20,21 @@   foreign import javascript unsafe         "$1[\"initCustomEvent\"]($2, $3,\n$4, $5)" js_initCustomEvent ::-        JSRef CustomEvent -> JSString -> Bool -> Bool -> JSRef a -> IO ()+        CustomEvent -> JSString -> Bool -> Bool -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent.initCustomEvent Mozilla CustomEvent.initCustomEvent documentation>  initCustomEvent ::                 (MonadIO m, ToJSString typeArg) =>-                  CustomEvent -> typeArg -> Bool -> Bool -> JSRef a -> m ()+                  CustomEvent -> typeArg -> Bool -> Bool -> JSRef -> m () initCustomEvent self typeArg canBubbleArg cancelableArg detailArg   = liftIO-      (js_initCustomEvent (unCustomEvent self) (toJSString typeArg)-         canBubbleArg+      (js_initCustomEvent (self) (toJSString typeArg) canBubbleArg          cancelableArg          detailArg)   foreign import javascript unsafe "$1[\"detail\"]" js_getDetail ::-        JSRef CustomEvent -> IO (JSRef a)+        CustomEvent -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/CustomEvent.detail Mozilla CustomEvent.detail documentation> -getDetail :: (MonadIO m) => CustomEvent -> m (JSRef a)-getDetail self = liftIO (js_getDetail (unCustomEvent self))+getDetail :: (MonadIO m) => CustomEvent -> m JSRef+getDetail self = liftIO (js_getDetail (self))
src/GHCJS/DOM/JSFFI/Generated/DOMError.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,12 +19,11 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef DOMError -> IO JSString+        DOMError -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMError.name Mozilla DOMError.name documentation>  getName ::         (MonadIO m, IsDOMError self, FromJSString result) =>           self -> m result getName self-  = liftIO-      (fromJSString <$> (js_getName (unDOMError (toDOMError self))))+  = liftIO (fromJSString <$> (js_getName (toDOMError self)))
src/GHCJS/DOM/JSFFI/Generated/DOMImplementation.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,8 +23,7 @@   foreign import javascript unsafe         "($1[\"hasFeature\"]($2,\n$3) ? 1 : 0)" js_hasFeature ::-        JSRef DOMImplementation ->-          JSString -> JSRef (Maybe JSString) -> IO Bool+        DOMImplementation -> JSString -> Nullable JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.hasFeature Mozilla DOMImplementation.hasFeature documentation>  hasFeature ::@@ -32,15 +31,15 @@              DOMImplementation -> feature -> Maybe version -> m Bool hasFeature self feature version   = liftIO-      (js_hasFeature (unDOMImplementation self) (toJSString feature)+      (js_hasFeature (self) (toJSString feature)          (toMaybeJSString version))   foreign import javascript unsafe         "$1[\"createDocumentType\"]($2, $3,\n$4)" js_createDocumentType ::-        JSRef DOMImplementation ->-          JSRef (Maybe JSString) ->-            JSRef (Maybe JSString) ->-              JSRef (Maybe JSString) -> IO (JSRef DocumentType)+        DOMImplementation ->+          Nullable JSString ->+            Nullable JSString ->+              Nullable JSString -> IO (Nullable DocumentType)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocumentType Mozilla DOMImplementation.createDocumentType documentation>  createDocumentType ::@@ -51,17 +50,17 @@                          Maybe publicId -> Maybe systemId -> m (Maybe DocumentType) createDocumentType self qualifiedName publicId systemId   = liftIO-      ((js_createDocumentType (unDOMImplementation self)-          (toMaybeJSString qualifiedName)-          (toMaybeJSString publicId)-          (toMaybeJSString systemId))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createDocumentType (self) (toMaybeJSString qualifiedName)+            (toMaybeJSString publicId)+            (toMaybeJSString systemId)))   foreign import javascript unsafe         "$1[\"createDocument\"]($2, $3, $4)" js_createDocument ::-        JSRef DOMImplementation ->-          JSRef (Maybe JSString) ->-            JSRef (Maybe JSString) -> JSRef DocumentType -> IO (JSRef Document)+        DOMImplementation ->+          Nullable JSString ->+            Nullable JSString ->+              Nullable DocumentType -> IO (Nullable Document)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createDocument Mozilla DOMImplementation.createDocument documentation>  createDocument ::@@ -71,16 +70,15 @@                      Maybe qualifiedName -> Maybe DocumentType -> m (Maybe Document) createDocument self namespaceURI qualifiedName doctype   = liftIO-      ((js_createDocument (unDOMImplementation self)-          (toMaybeJSString namespaceURI)-          (toMaybeJSString qualifiedName)-          (maybe jsNull pToJSRef doctype))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createDocument (self) (toMaybeJSString namespaceURI)+            (toMaybeJSString qualifiedName)+            (maybeToNullable doctype)))   foreign import javascript unsafe         "$1[\"createCSSStyleSheet\"]($2,\n$3)" js_createCSSStyleSheet ::-        JSRef DOMImplementation ->-          JSString -> JSString -> IO (JSRef CSSStyleSheet)+        DOMImplementation ->+          JSString -> JSString -> IO (Nullable CSSStyleSheet)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createCSSStyleSheet Mozilla DOMImplementation.createCSSStyleSheet documentation>  createCSSStyleSheet ::@@ -88,14 +86,13 @@                       DOMImplementation -> title -> media -> m (Maybe CSSStyleSheet) createCSSStyleSheet self title media   = liftIO-      ((js_createCSSStyleSheet (unDOMImplementation self)-          (toJSString title)-          (toJSString media))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createCSSStyleSheet (self) (toJSString title)+            (toJSString media)))   foreign import javascript unsafe "$1[\"createHTMLDocument\"]($2)"         js_createHTMLDocument ::-        JSRef DOMImplementation -> JSString -> IO (JSRef HTMLDocument)+        DOMImplementation -> JSString -> IO (Nullable HTMLDocument)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMImplementation.createHTMLDocument Mozilla DOMImplementation.createHTMLDocument documentation>  createHTMLDocument ::@@ -103,6 +100,5 @@                      DOMImplementation -> title -> m (Maybe HTMLDocument) createHTMLDocument self title   = liftIO-      ((js_createHTMLDocument (unDOMImplementation self)-          (toJSString title))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createHTMLDocument (self) (toJSString title)))
src/GHCJS/DOM/JSFFI/Generated/DOMNamedFlowCollection.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,20 +20,18 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef DOMNamedFlowCollection -> Word -> IO (JSRef WebKitNamedFlow)+        DOMNamedFlowCollection -> Word -> IO (Nullable WebKitNamedFlow)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.item Mozilla WebKitNamedFlowCollection.item documentation>  item ::      (MonadIO m) =>        DOMNamedFlowCollection -> Word -> m (Maybe WebKitNamedFlow) item self index-  = liftIO-      ((js_item (unDOMNamedFlowCollection self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"         js_namedItem ::-        JSRef DOMNamedFlowCollection ->-          JSString -> IO (JSRef WebKitNamedFlow)+        DOMNamedFlowCollection -> JSString -> IO (Nullable WebKitNamedFlow)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.namedItem Mozilla WebKitNamedFlowCollection.namedItem documentation>  namedItem ::@@ -41,13 +39,11 @@             DOMNamedFlowCollection -> name -> m (Maybe WebKitNamedFlow) namedItem self name   = liftIO-      ((js_namedItem (unDOMNamedFlowCollection self) (toJSString name))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef DOMNamedFlowCollection -> IO Word+        DOMNamedFlowCollection -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitNamedFlowCollection.length Mozilla WebKitNamedFlowCollection.length documentation>  getLength :: (MonadIO m) => DOMNamedFlowCollection -> m Word-getLength self-  = liftIO (js_getLength (unDOMNamedFlowCollection self))+getLength self = liftIO (js_getLength (self))
src/GHCJS/DOM/JSFFI/Generated/DOMParser.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,15 +19,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "new window[\"DOMParser\"]()"-        js_newDOMParser :: IO (JSRef DOMParser)+        js_newDOMParser :: IO DOMParser  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser Mozilla DOMParser documentation>  newDOMParser :: (MonadIO m) => m DOMParser-newDOMParser = liftIO (js_newDOMParser >>= fromJSRefUnchecked)+newDOMParser = liftIO (js_newDOMParser)   foreign import javascript unsafe "$1[\"parseFromString\"]($2, $3)"         js_parseFromString ::-        JSRef DOMParser -> JSString -> JSString -> IO (JSRef Document)+        DOMParser -> JSString -> JSString -> IO (Nullable Document)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMParser.parseFromString Mozilla DOMParser.parseFromString documentation>  parseFromString ::@@ -35,6 +35,6 @@                   DOMParser -> str -> contentType -> m (Maybe Document) parseFromString self str contentType   = liftIO-      ((js_parseFromString (unDOMParser self) (toJSString str)-          (toJSString contentType))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_parseFromString (self) (toJSString str)+            (toJSString contentType)))
src/GHCJS/DOM/JSFFI/Generated/DOMSettableTokenList.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,34 +20,28 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::-        JSRef DOMSettableTokenList -> Word -> IO (JSRef (Maybe JSString))+        DOMSettableTokenList -> Word -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList._get Mozilla DOMSettableTokenList._get documentation>  _get ::      (MonadIO m, FromJSString result) =>        DOMSettableTokenList -> Word -> m (Maybe result) _get self index-  = liftIO-      (fromMaybeJSString <$>-         (js__get (unDOMSettableTokenList self) index))+  = liftIO (fromMaybeJSString <$> (js__get (self) index))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef DOMSettableTokenList -> JSString -> IO ()+        :: DOMSettableTokenList -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList.value Mozilla DOMSettableTokenList.value documentation>  setValue ::          (MonadIO m, ToJSString val) => DOMSettableTokenList -> val -> m ()-setValue self val-  = liftIO-      (js_setValue (unDOMSettableTokenList self) (toJSString val))+setValue self val = liftIO (js_setValue (self) (toJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef DOMSettableTokenList -> IO JSString+        DOMSettableTokenList -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMSettableTokenList.value Mozilla DOMSettableTokenList.value documentation>  getValue ::          (MonadIO m, FromJSString result) =>            DOMSettableTokenList -> m result-getValue self-  = liftIO-      (fromJSString <$> (js_getValue (unDOMSettableTokenList self)))+getValue self = liftIO (fromJSString <$> (js_getValue (self)))
src/GHCJS/DOM/JSFFI/Generated/DOMStringList.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,28 +19,27 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef DOMStringList -> Word -> IO (JSRef (Maybe JSString))+        DOMStringList -> Word -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.item Mozilla DOMStringList.item documentation>  item ::      (MonadIO m, FromJSString result) =>        DOMStringList -> Word -> m (Maybe result) item self index-  = liftIO-      (fromMaybeJSString <$> (js_item (unDOMStringList self) index))+  = liftIO (fromMaybeJSString <$> (js_item (self) index))   foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"-        js_contains :: JSRef DOMStringList -> JSString -> IO Bool+        js_contains :: DOMStringList -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.contains Mozilla DOMStringList.contains documentation>  contains ::          (MonadIO m, ToJSString string) => DOMStringList -> string -> m Bool contains self string-  = liftIO (js_contains (unDOMStringList self) (toJSString string))+  = liftIO (js_contains (self) (toJSString string))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef DOMStringList -> IO Word+        DOMStringList -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMStringList.length Mozilla DOMStringList.length documentation>  getLength :: (MonadIO m) => DOMStringList -> m Word-getLength self = liftIO (js_getLength (unDOMStringList self))+getLength self = liftIO (js_getLength (self))
src/GHCJS/DOM/JSFFI/Generated/DOMTokenList.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,7 +21,7 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef DOMTokenList -> Word -> IO (JSRef (Maybe JSString))+        DOMTokenList -> Word -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.item Mozilla DOMTokenList.item documentation>  item ::@@ -29,23 +29,20 @@        self -> Word -> m (Maybe result) item self index   = liftIO-      (fromMaybeJSString <$>-         (js_item (unDOMTokenList (toDOMTokenList self)) index))+      (fromMaybeJSString <$> (js_item (toDOMTokenList self) index))   foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"-        js_contains :: JSRef DOMTokenList -> JSString -> IO Bool+        js_contains :: DOMTokenList -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.contains Mozilla DOMTokenList.contains documentation>  contains ::          (MonadIO m, IsDOMTokenList self, ToJSString token) =>            self -> token -> m Bool contains self token-  = liftIO-      (js_contains (unDOMTokenList (toDOMTokenList self))-         (toJSString token))+  = liftIO (js_contains (toDOMTokenList self) (toJSString token))   foreign import javascript unsafe "$1[\"add\"].apply($1, $2)" js_add-        :: JSRef DOMTokenList -> JSRef [a] -> IO ()+        :: DOMTokenList -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.add Mozilla DOMTokenList.add documentation>  add ::@@ -55,10 +52,10 @@ add self tokens   = liftIO       (toJSRef tokens >>=-         \ tokens' -> js_add (unDOMTokenList (toDOMTokenList self)) tokens')+         \ tokens' -> js_add (toDOMTokenList self) tokens')   foreign import javascript unsafe "$1[\"remove\"].apply($1, $2)"-        js_remove :: JSRef DOMTokenList -> JSRef [a] -> IO ()+        js_remove :: DOMTokenList -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.remove Mozilla DOMTokenList.remove documentation>  remove ::@@ -68,38 +65,31 @@ remove self tokens   = liftIO       (toJSRef tokens >>=-         \ tokens' ->-           js_remove (unDOMTokenList (toDOMTokenList self)) tokens')+         \ tokens' -> js_remove (toDOMTokenList self) tokens')   foreign import javascript unsafe "($1[\"toggle\"]($2, $3) ? 1 : 0)"-        js_toggle :: JSRef DOMTokenList -> JSString -> Bool -> IO Bool+        js_toggle :: DOMTokenList -> JSString -> Bool -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.toggle Mozilla DOMTokenList.toggle documentation>  toggle ::        (MonadIO m, IsDOMTokenList self, ToJSString token) =>          self -> token -> Bool -> m Bool toggle self token force-  = liftIO-      (js_toggle (unDOMTokenList (toDOMTokenList self))-         (toJSString token)-         force)+  = liftIO (js_toggle (toDOMTokenList self) (toJSString token) force)   foreign import javascript unsafe "$1[\"toString\"]()" js_toString-        :: JSRef DOMTokenList -> IO JSString+        :: DOMTokenList -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.toString Mozilla DOMTokenList.toString documentation>  toString ::          (MonadIO m, IsDOMTokenList self, FromJSString result) =>            self -> m result toString self-  = liftIO-      (fromJSString <$>-         (js_toString (unDOMTokenList (toDOMTokenList self))))+  = liftIO (fromJSString <$> (js_toString (toDOMTokenList self)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef DOMTokenList -> IO Word+        DOMTokenList -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DOMTokenList.length Mozilla DOMTokenList.length documentation>  getLength :: (MonadIO m, IsDOMTokenList self) => self -> m Word-getLength self-  = liftIO (js_getLength (unDOMTokenList (toDOMTokenList self)))+getLength self = liftIO (js_getLength (toDOMTokenList self))
src/GHCJS/DOM/JSFFI/Generated/DataCue.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,61 +21,58 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "new window[\"WebKitDataCue\"]()"-        js_newDataCue :: IO (JSRef DataCue)+        js_newDataCue :: IO DataCue  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation>  newDataCue :: (MonadIO m) => m DataCue-newDataCue = liftIO (js_newDataCue >>= fromJSRefUnchecked)+newDataCue = liftIO (js_newDataCue)   foreign import javascript unsafe         "new window[\"WebKitDataCue\"]($1,\n$2, $3, $4)" js_newDataCue' ::-        Double -> Double -> JSRef a -> JSString -> IO (JSRef DataCue)+        Double -> Double -> JSRef -> JSString -> IO DataCue  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue Mozilla WebKitDataCue documentation>  newDataCue' ::             (MonadIO m, ToJSString type') =>-              Double -> Double -> JSRef a -> type' -> m DataCue+              Double -> Double -> JSRef -> type' -> m DataCue newDataCue' startTime endTime value type'   = liftIO-      (js_newDataCue' startTime endTime value (toJSString type') >>=-         fromJSRefUnchecked)+      (js_newDataCue' startTime endTime value (toJSString type'))   foreign import javascript unsafe "$1[\"data\"] = $2;" js_setData ::-        JSRef DataCue -> JSRef ArrayBuffer -> IO ()+        DataCue -> Nullable ArrayBuffer -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation>  setData ::         (MonadIO m, IsArrayBuffer val) => DataCue -> Maybe val -> m () setData self val   = liftIO-      (js_setData (unDataCue self)-         (maybe jsNull (unArrayBuffer . toArrayBuffer) val))+      (js_setData (self) (maybeToNullable (fmap toArrayBuffer val)))   foreign import javascript unsafe "$1[\"data\"]" js_getData ::-        JSRef DataCue -> IO (JSRef ArrayBuffer)+        DataCue -> IO (Nullable ArrayBuffer)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.data Mozilla WebKitDataCue.data documentation>  getData :: (MonadIO m) => DataCue -> m (Maybe ArrayBuffer)-getData self = liftIO ((js_getData (unDataCue self)) >>= fromJSRef)+getData self = liftIO (nullableToMaybe <$> (js_getData (self)))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef DataCue -> JSRef a -> IO ()+        :: DataCue -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.value Mozilla WebKitDataCue.value documentation> -setValue :: (MonadIO m) => DataCue -> JSRef a -> m ()-setValue self val = liftIO (js_setValue (unDataCue self) val)+setValue :: (MonadIO m) => DataCue -> JSRef -> m ()+setValue self val = liftIO (js_setValue (self) val)   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef DataCue -> IO (JSRef a)+        DataCue -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.value Mozilla WebKitDataCue.value documentation> -getValue :: (MonadIO m) => DataCue -> m (JSRef a)-getValue self = liftIO (js_getValue (unDataCue self))+getValue :: (MonadIO m) => DataCue -> m JSRef+getValue self = liftIO (js_getValue (self))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef DataCue -> IO JSString+        DataCue -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitDataCue.type Mozilla WebKitDataCue.type documentation>  getType :: (MonadIO m, FromJSString result) => DataCue -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unDataCue self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))
src/GHCJS/DOM/JSFFI/Generated/DataTransfer.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,41 +23,37 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"clearData\"]($2)"-        js_clearData :: JSRef DataTransfer -> JSString -> IO ()+        js_clearData :: DataTransfer -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.clearData Mozilla DataTransfer.clearData documentation>  clearData ::           (MonadIO m, ToJSString type') => DataTransfer -> type' -> m () clearData self type'-  = liftIO (js_clearData (unDataTransfer self) (toJSString type'))+  = liftIO (js_clearData (self) (toJSString type'))   foreign import javascript unsafe "$1[\"getData\"]($2)" js_getData-        :: JSRef DataTransfer -> JSString -> IO JSString+        :: DataTransfer -> JSString -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.getData Mozilla DataTransfer.getData documentation>  getData ::         (MonadIO m, ToJSString type', FromJSString result) =>           DataTransfer -> type' -> m result getData self type'-  = liftIO-      (fromJSString <$>-         (js_getData (unDataTransfer self) (toJSString type')))+  = liftIO (fromJSString <$> (js_getData (self) (toJSString type')))   foreign import javascript unsafe "$1[\"setData\"]($2, $3)"-        js_setData :: JSRef DataTransfer -> JSString -> JSString -> IO ()+        js_setData :: DataTransfer -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.setData Mozilla DataTransfer.setData documentation>  setData ::         (MonadIO m, ToJSString type', ToJSString data') =>           DataTransfer -> type' -> data' -> m () setData self type' data'-  = liftIO-      (js_setData (unDataTransfer self) (toJSString type')-         (toJSString data'))+  = liftIO (js_setData (self) (toJSString type') (toJSString data'))   foreign import javascript unsafe "$1[\"setDragImage\"]($2, $3, $4)"         js_setDragImage ::-        JSRef DataTransfer -> JSRef Element -> Int -> Int -> IO ()+        DataTransfer -> Nullable Element -> Int -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.setDragImage Mozilla DataTransfer.setDragImage documentation>  setDragImage ::@@ -65,71 +61,63 @@                DataTransfer -> Maybe image -> Int -> Int -> m () setDragImage self image x y   = liftIO-      (js_setDragImage (unDataTransfer self)-         (maybe jsNull (unElement . toElement) image)-         x+      (js_setDragImage (self) (maybeToNullable (fmap toElement image)) x          y)   foreign import javascript unsafe "$1[\"dropEffect\"] = $2;"-        js_setDropEffect :: JSRef DataTransfer -> JSString -> IO ()+        js_setDropEffect :: DataTransfer -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.dropEffect Mozilla DataTransfer.dropEffect documentation>  setDropEffect ::               (MonadIO m, ToJSString val) => DataTransfer -> val -> m () setDropEffect self val-  = liftIO (js_setDropEffect (unDataTransfer self) (toJSString val))+  = liftIO (js_setDropEffect (self) (toJSString val))   foreign import javascript unsafe "$1[\"dropEffect\"]"-        js_getDropEffect :: JSRef DataTransfer -> IO JSString+        js_getDropEffect :: DataTransfer -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.dropEffect Mozilla DataTransfer.dropEffect documentation>  getDropEffect ::               (MonadIO m, FromJSString result) => DataTransfer -> m result getDropEffect self-  = liftIO-      (fromJSString <$> (js_getDropEffect (unDataTransfer self)))+  = liftIO (fromJSString <$> (js_getDropEffect (self)))   foreign import javascript unsafe "$1[\"effectAllowed\"] = $2;"-        js_setEffectAllowed :: JSRef DataTransfer -> JSString -> IO ()+        js_setEffectAllowed :: DataTransfer -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.effectAllowed Mozilla DataTransfer.effectAllowed documentation>  setEffectAllowed ::                  (MonadIO m, ToJSString val) => DataTransfer -> val -> m () setEffectAllowed self val-  = liftIO-      (js_setEffectAllowed (unDataTransfer self) (toJSString val))+  = liftIO (js_setEffectAllowed (self) (toJSString val))   foreign import javascript unsafe "$1[\"effectAllowed\"]"-        js_getEffectAllowed :: JSRef DataTransfer -> IO JSString+        js_getEffectAllowed :: DataTransfer -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.effectAllowed Mozilla DataTransfer.effectAllowed documentation>  getEffectAllowed ::                  (MonadIO m, FromJSString result) => DataTransfer -> m result getEffectAllowed self-  = liftIO-      (fromJSString <$> (js_getEffectAllowed (unDataTransfer self)))+  = liftIO (fromJSString <$> (js_getEffectAllowed (self)))   foreign import javascript unsafe "$1[\"types\"]" js_getTypes ::-        JSRef DataTransfer -> IO (JSRef Array)+        DataTransfer -> IO (Nullable Array)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.types Mozilla DataTransfer.types documentation>  getTypes :: (MonadIO m) => DataTransfer -> m (Maybe Array)-getTypes self-  = liftIO ((js_getTypes (unDataTransfer self)) >>= fromJSRef)+getTypes self = liftIO (nullableToMaybe <$> (js_getTypes (self)))   foreign import javascript unsafe "$1[\"files\"]" js_getFiles ::-        JSRef DataTransfer -> IO (JSRef FileList)+        DataTransfer -> IO (Nullable FileList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.files Mozilla DataTransfer.files documentation>  getFiles :: (MonadIO m) => DataTransfer -> m (Maybe FileList)-getFiles self-  = liftIO ((js_getFiles (unDataTransfer self)) >>= fromJSRef)+getFiles self = liftIO (nullableToMaybe <$> (js_getFiles (self)))   foreign import javascript unsafe "$1[\"items\"]" js_getItems ::-        JSRef DataTransfer -> IO (JSRef DataTransferItemList)+        DataTransfer -> IO (Nullable DataTransferItemList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransfer.items Mozilla DataTransfer.items documentation>  getItems ::          (MonadIO m) => DataTransfer -> m (Maybe DataTransferItemList)-getItems self-  = liftIO ((js_getItems (unDataTransfer self)) >>= fromJSRef)+getItems self = liftIO (nullableToMaybe <$> (js_getItems (self)))
src/GHCJS/DOM/JSFFI/Generated/DataTransferItem.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,39 +21,34 @@   foreign import javascript unsafe "$1[\"getAsString\"]($2)"         js_getAsString ::-        JSRef DataTransferItem -> JSRef (StringCallback callback) -> IO ()+        DataTransferItem -> Nullable (StringCallback callback) -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsString Mozilla DataTransferItem.getAsString documentation>  getAsString ::             (MonadIO m, ToJSString callback) =>               DataTransferItem -> Maybe (StringCallback callback) -> m () getAsString self callback-  = liftIO-      (js_getAsString (unDataTransferItem self)-         (maybe jsNull pToJSRef callback))+  = liftIO (js_getAsString (self) (maybeToNullable callback))   foreign import javascript unsafe "$1[\"getAsFile\"]()" js_getAsFile-        :: JSRef DataTransferItem -> IO (JSRef Blob)+        :: DataTransferItem -> IO (Nullable Blob)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.getAsFile Mozilla DataTransferItem.getAsFile documentation>  getAsFile :: (MonadIO m) => DataTransferItem -> m (Maybe Blob)-getAsFile self-  = liftIO ((js_getAsFile (unDataTransferItem self)) >>= fromJSRef)+getAsFile self = liftIO (nullableToMaybe <$> (js_getAsFile (self)))   foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::-        JSRef DataTransferItem -> IO JSString+        DataTransferItem -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.kind Mozilla DataTransferItem.kind documentation>  getKind ::         (MonadIO m, FromJSString result) => DataTransferItem -> m result-getKind self-  = liftIO (fromJSString <$> (js_getKind (unDataTransferItem self)))+getKind self = liftIO (fromJSString <$> (js_getKind (self)))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef DataTransferItem -> IO JSString+        DataTransferItem -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItem.type Mozilla DataTransferItem.type documentation>  getType ::         (MonadIO m, FromJSString result) => DataTransferItem -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unDataTransferItem self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))
src/GHCJS/DOM/JSFFI/Generated/DataTransferItemList.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,50 +20,44 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef DataTransferItemList -> Word -> IO (JSRef DataTransferItem)+        DataTransferItemList -> Word -> IO (Nullable DataTransferItem)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.item Mozilla DataTransferItemList.item documentation>  item ::      (MonadIO m) =>        DataTransferItemList -> Word -> m (Maybe DataTransferItem) item self index-  = liftIO-      ((js_item (unDataTransferItemList self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::-        JSRef DataTransferItemList -> IO ()+        DataTransferItemList -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.clear Mozilla DataTransferItemList.clear documentation>  clear :: (MonadIO m) => DataTransferItemList -> m ()-clear self = liftIO (js_clear (unDataTransferItemList self))+clear self = liftIO (js_clear (self))   foreign import javascript unsafe "$1[\"add\"]($2)" js_addFile ::-        JSRef DataTransferItemList -> JSRef File -> IO ()+        DataTransferItemList -> Nullable File -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.add Mozilla DataTransferItemList.add documentation>  addFile ::         (MonadIO m) => DataTransferItemList -> Maybe File -> m () addFile self file-  = liftIO-      (js_addFile (unDataTransferItemList self)-         (maybe jsNull pToJSRef file))+  = liftIO (js_addFile (self) (maybeToNullable file))   foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add ::-        JSRef DataTransferItemList -> JSString -> JSString -> IO ()+        DataTransferItemList -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.add Mozilla DataTransferItemList.add documentation>  add ::     (MonadIO m, ToJSString data', ToJSString type') =>       DataTransferItemList -> data' -> type' -> m () add self data' type'-  = liftIO-      (js_add (unDataTransferItemList self) (toJSString data')-         (toJSString type'))+  = liftIO (js_add (self) (toJSString data') (toJSString type'))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef DataTransferItemList -> IO Int+        DataTransferItemList -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DataTransferItemList.length Mozilla DataTransferItemList.length documentation>  getLength :: (MonadIO m) => DataTransferItemList -> m Int-getLength self-  = liftIO (js_getLength (unDataTransferItemList self))+getLength self = liftIO (js_getLength (self))
src/GHCJS/DOM/JSFFI/Generated/Database.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,11 +21,12 @@   foreign import javascript unsafe         "$1[\"changeVersion\"]($2, $3, $4,\n$5, $6)" js_changeVersion ::-        JSRef Database ->+        Database ->           JSString ->             JSString ->-              JSRef SQLTransactionCallback ->-                JSRef SQLTransactionErrorCallback -> JSRef VoidCallback -> IO ()+              Nullable SQLTransactionCallback ->+                Nullable SQLTransactionErrorCallback ->+                  Nullable VoidCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.changeVersion Mozilla Database.changeVersion documentation>  changeVersion ::@@ -38,17 +39,18 @@ changeVersion self oldVersion newVersion callback errorCallback   successCallback   = liftIO-      (js_changeVersion (unDatabase self) (toJSString oldVersion)+      (js_changeVersion (self) (toJSString oldVersion)          (toJSString newVersion)-         (maybe jsNull pToJSRef callback)-         (maybe jsNull pToJSRef errorCallback)-         (maybe jsNull pToJSRef successCallback))+         (maybeToNullable callback)+         (maybeToNullable errorCallback)+         (maybeToNullable successCallback))   foreign import javascript unsafe "$1[\"transaction\"]($2, $3, $4)"         js_transaction ::-        JSRef Database ->-          JSRef SQLTransactionCallback ->-            JSRef SQLTransactionErrorCallback -> JSRef VoidCallback -> IO ()+        Database ->+          Nullable SQLTransactionCallback ->+            Nullable SQLTransactionErrorCallback ->+              Nullable VoidCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.transaction Mozilla Database.transaction documentation>  transaction ::@@ -58,15 +60,16 @@                   Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m () transaction self callback errorCallback successCallback   = liftIO-      (js_transaction (unDatabase self) (maybe jsNull pToJSRef callback)-         (maybe jsNull pToJSRef errorCallback)-         (maybe jsNull pToJSRef successCallback))+      (js_transaction (self) (maybeToNullable callback)+         (maybeToNullable errorCallback)+         (maybeToNullable successCallback))   foreign import javascript unsafe         "$1[\"readTransaction\"]($2, $3,\n$4)" js_readTransaction ::-        JSRef Database ->-          JSRef SQLTransactionCallback ->-            JSRef SQLTransactionErrorCallback -> JSRef VoidCallback -> IO ()+        Database ->+          Nullable SQLTransactionCallback ->+            Nullable SQLTransactionErrorCallback ->+              Nullable VoidCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.readTransaction Mozilla Database.readTransaction documentation>  readTransaction ::@@ -76,16 +79,14 @@                       Maybe SQLTransactionErrorCallback -> Maybe VoidCallback -> m () readTransaction self callback errorCallback successCallback   = liftIO-      (js_readTransaction (unDatabase self)-         (maybe jsNull pToJSRef callback)-         (maybe jsNull pToJSRef errorCallback)-         (maybe jsNull pToJSRef successCallback))+      (js_readTransaction (self) (maybeToNullable callback)+         (maybeToNullable errorCallback)+         (maybeToNullable successCallback))   foreign import javascript unsafe "$1[\"version\"]" js_getVersion ::-        JSRef Database -> IO JSString+        Database -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Database.version Mozilla Database.version documentation>  getVersion ::            (MonadIO m, FromJSString result) => Database -> m result-getVersion self-  = liftIO (fromJSString <$> (js_getVersion (unDatabase self)))+getVersion self = liftIO (fromJSString <$> (js_getVersion (self)))
src/GHCJS/DOM/JSFFI/Generated/DatabaseCallback.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,24 +23,27 @@                     (MonadIO m) => (Maybe Database -> IO ()) -> m DatabaseCallback newDatabaseCallback callback   = liftIO-      (syncCallback1 ThrowWouldBlock-         (\ database ->-            fromJSRefUnchecked database >>= \ database' -> callback database'))+      (DatabaseCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ database ->+              fromJSRefUnchecked database >>= \ database' -> callback database'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation>  newDatabaseCallbackSync ::                         (MonadIO m) => (Maybe Database -> IO ()) -> m DatabaseCallback newDatabaseCallbackSync callback   = liftIO-      (syncCallback1 ContinueAsync-         (\ database ->-            fromJSRefUnchecked database >>= \ database' -> callback database'))+      (DatabaseCallback <$>+         syncCallback1 ContinueAsync+           (\ database ->+              fromJSRefUnchecked database >>= \ database' -> callback database'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DatabaseCallback Mozilla DatabaseCallback documentation>  newDatabaseCallbackAsync ::                          (MonadIO m) => (Maybe Database -> IO ()) -> m DatabaseCallback newDatabaseCallbackAsync callback   = liftIO-      (asyncCallback1-         (\ database ->-            fromJSRefUnchecked database >>= \ database' -> callback database'))+      (DatabaseCallback <$>+         asyncCallback1+           (\ database ->+              fromJSRefUnchecked database >>= \ database' -> callback database'))
src/GHCJS/DOM/JSFFI/Generated/DedicatedWorkerGlobalScope.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,16 +20,16 @@   foreign import javascript unsafe "$1[\"postMessage\"]($2, $3)"         js_postMessage ::-        JSRef DedicatedWorkerGlobalScope -> JSRef a -> JSRef Array -> IO ()+        DedicatedWorkerGlobalScope -> JSRef -> Nullable Array -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DedicatedWorkerGlobalScope.postMessage Mozilla DedicatedWorkerGlobalScope.postMessage documentation>  postMessage ::             (MonadIO m, IsArray messagePorts) =>-              DedicatedWorkerGlobalScope -> JSRef a -> Maybe messagePorts -> m ()+              DedicatedWorkerGlobalScope -> JSRef -> Maybe messagePorts -> m () postMessage self message messagePorts   = liftIO-      (js_postMessage (unDedicatedWorkerGlobalScope self) message-         (maybe jsNull (unArray . toArray) messagePorts))+      (js_postMessage (self) message+         (maybeToNullable (fmap toArray messagePorts)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DedicatedWorkerGlobalScope.onmessage Mozilla DedicatedWorkerGlobalScope.onmessage documentation>  message :: EventName DedicatedWorkerGlobalScope MessageEvent
src/GHCJS/DOM/JSFFI/Generated/DelayNode.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,9 +19,9 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"delayTime\"]"-        js_getDelayTime :: JSRef DelayNode -> IO (JSRef AudioParam)+        js_getDelayTime :: DelayNode -> IO (Nullable AudioParam)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DelayNode.delayTime Mozilla DelayNode.delayTime documentation>  getDelayTime :: (MonadIO m) => DelayNode -> m (Maybe AudioParam) getDelayTime self-  = liftIO ((js_getDelayTime (unDelayNode self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getDelayTime (self)))
src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEvent.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -25,12 +25,12 @@ foreign import javascript unsafe         "$1[\"initDeviceMotionEvent\"]($2,\n$3, $4, $5, $6, $7, $8)"         js_initDeviceMotionEvent ::-        JSRef DeviceMotionEvent ->+        DeviceMotionEvent ->           JSString ->             Bool ->               Bool ->-                JSRef Acceleration ->-                  JSRef Acceleration -> JSRef RotationRate -> Double -> IO ()+                Nullable Acceleration ->+                  Nullable Acceleration -> Nullable RotationRate -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.initDeviceMotionEvent Mozilla DeviceMotionEvent.initDeviceMotionEvent documentation>  initDeviceMotionEvent ::@@ -47,55 +47,49 @@ initDeviceMotionEvent self type' bubbles cancelable acceleration   accelerationIncludingGravity rotationRate interval   = liftIO-      (js_initDeviceMotionEvent (unDeviceMotionEvent self)-         (toJSString type')-         bubbles+      (js_initDeviceMotionEvent (self) (toJSString type') bubbles          cancelable-         (maybe jsNull (unAcceleration . toAcceleration) acceleration)-         (maybe jsNull (unAcceleration . toAcceleration)-            accelerationIncludingGravity)-         (maybe jsNull (unRotationRate . toRotationRate) rotationRate)+         (maybeToNullable (fmap toAcceleration acceleration))+         (maybeToNullable+            (fmap toAcceleration accelerationIncludingGravity))+         (maybeToNullable (fmap toRotationRate rotationRate))          interval)   foreign import javascript unsafe "$1[\"acceleration\"]"         js_getAcceleration ::-        JSRef DeviceMotionEvent -> IO (JSRef Acceleration)+        DeviceMotionEvent -> IO (Nullable Acceleration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.acceleration Mozilla DeviceMotionEvent.acceleration documentation>  getAcceleration ::                 (MonadIO m) => DeviceMotionEvent -> m (Maybe Acceleration) getAcceleration self-  = liftIO-      ((js_getAcceleration (unDeviceMotionEvent self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAcceleration (self)))   foreign import javascript unsafe         "$1[\"accelerationIncludingGravity\"]"         js_getAccelerationIncludingGravity ::-        JSRef DeviceMotionEvent -> IO (JSRef Acceleration)+        DeviceMotionEvent -> IO (Nullable Acceleration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.accelerationIncludingGravity Mozilla DeviceMotionEvent.accelerationIncludingGravity documentation>  getAccelerationIncludingGravity ::                                 (MonadIO m) => DeviceMotionEvent -> m (Maybe Acceleration) getAccelerationIncludingGravity self   = liftIO-      ((js_getAccelerationIncludingGravity (unDeviceMotionEvent self))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_getAccelerationIncludingGravity (self)))   foreign import javascript unsafe "$1[\"rotationRate\"]"         js_getRotationRate ::-        JSRef DeviceMotionEvent -> IO (JSRef RotationRate)+        DeviceMotionEvent -> IO (Nullable RotationRate)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.rotationRate Mozilla DeviceMotionEvent.rotationRate documentation>  getRotationRate ::                 (MonadIO m) => DeviceMotionEvent -> m (Maybe RotationRate) getRotationRate self-  = liftIO-      ((js_getRotationRate (unDeviceMotionEvent self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getRotationRate (self)))   foreign import javascript unsafe "$1[\"interval\"]" js_getInterval-        :: JSRef DeviceMotionEvent -> IO Double+        :: DeviceMotionEvent -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceMotionEvent.interval Mozilla DeviceMotionEvent.interval documentation>  getInterval :: (MonadIO m) => DeviceMotionEvent -> m Double-getInterval self-  = liftIO (js_getInterval (unDeviceMotionEvent self))+getInterval self = liftIO (js_getInterval (self))
src/GHCJS/DOM/JSFFI/Generated/DeviceOrientationEvent.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,7 +23,7 @@ foreign import javascript unsafe         "$1[\"initDeviceOrientationEvent\"]($2,\n$3, $4, $5, $6, $7, $8)"         js_initDeviceOrientationEvent ::-        JSRef DeviceOrientationEvent ->+        DeviceOrientationEvent ->           JSString ->             Bool -> Bool -> Double -> Double -> Double -> Bool -> IO () @@ -35,9 +35,7 @@ initDeviceOrientationEvent self type' bubbles cancelable alpha beta   gamma absolute   = liftIO-      (js_initDeviceOrientationEvent (unDeviceOrientationEvent self)-         (toJSString type')-         bubbles+      (js_initDeviceOrientationEvent (self) (toJSString type') bubbles          cancelable          alpha          beta@@ -45,32 +43,29 @@          absolute)   foreign import javascript unsafe "$1[\"alpha\"]" js_getAlpha ::-        JSRef DeviceOrientationEvent -> IO Double+        DeviceOrientationEvent -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.alpha Mozilla DeviceOrientationEvent.alpha documentation>  getAlpha :: (MonadIO m) => DeviceOrientationEvent -> m Double-getAlpha self-  = liftIO (js_getAlpha (unDeviceOrientationEvent self))+getAlpha self = liftIO (js_getAlpha (self))   foreign import javascript unsafe "$1[\"beta\"]" js_getBeta ::-        JSRef DeviceOrientationEvent -> IO Double+        DeviceOrientationEvent -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.beta Mozilla DeviceOrientationEvent.beta documentation>  getBeta :: (MonadIO m) => DeviceOrientationEvent -> m Double-getBeta self = liftIO (js_getBeta (unDeviceOrientationEvent self))+getBeta self = liftIO (js_getBeta (self))   foreign import javascript unsafe "$1[\"gamma\"]" js_getGamma ::-        JSRef DeviceOrientationEvent -> IO Double+        DeviceOrientationEvent -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.gamma Mozilla DeviceOrientationEvent.gamma documentation>  getGamma :: (MonadIO m) => DeviceOrientationEvent -> m Double-getGamma self-  = liftIO (js_getGamma (unDeviceOrientationEvent self))+getGamma self = liftIO (js_getGamma (self))   foreign import javascript unsafe "($1[\"absolute\"] ? 1 : 0)"-        js_getAbsolute :: JSRef DeviceOrientationEvent -> IO Bool+        js_getAbsolute :: DeviceOrientationEvent -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceOrientationEvent.absolute Mozilla DeviceOrientationEvent.absolute documentation>  getAbsolute :: (MonadIO m) => DeviceOrientationEvent -> m Bool-getAbsolute self-  = liftIO (js_getAbsolute (unDeviceOrientationEvent self))+getAbsolute self = liftIO (js_getAbsolute (self))
src/GHCJS/DOM/JSFFI/Generated/DeviceProximityEvent.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,22 +20,22 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef DeviceProximityEvent -> IO Double+        DeviceProximityEvent -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.value Mozilla DeviceProximityEvent.value documentation>  getValue :: (MonadIO m) => DeviceProximityEvent -> m Double-getValue self = liftIO (js_getValue (unDeviceProximityEvent self))+getValue self = liftIO (js_getValue (self))   foreign import javascript unsafe "$1[\"min\"]" js_getMin ::-        JSRef DeviceProximityEvent -> IO Double+        DeviceProximityEvent -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.min Mozilla DeviceProximityEvent.min documentation>  getMin :: (MonadIO m) => DeviceProximityEvent -> m Double-getMin self = liftIO (js_getMin (unDeviceProximityEvent self))+getMin self = liftIO (js_getMin (self))   foreign import javascript unsafe "$1[\"max\"]" js_getMax ::-        JSRef DeviceProximityEvent -> IO Double+        DeviceProximityEvent -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DeviceProximityEvent.max Mozilla DeviceProximityEvent.max documentation>  getMax :: (MonadIO m) => DeviceProximityEvent -> m Double-getMax self = liftIO (js_getMax (unDeviceProximityEvent self))+getMax self = liftIO (js_getMax (self))
src/GHCJS/DOM/JSFFI/Generated/Document.hs view
@@ -78,7 +78,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -92,15 +92,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "new window[\"Document\"]()"-        js_newDocument :: IO (JSRef Document)+        js_newDocument :: IO Document  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document Mozilla Document documentation>  newDocument :: (MonadIO m) => m Document-newDocument = liftIO (js_newDocument >>= fromJSRefUnchecked)+newDocument = liftIO (js_newDocument)   foreign import javascript unsafe "$1[\"createElement\"]($2)"         js_createElement ::-        JSRef Document -> JSRef (Maybe JSString) -> IO (JSRef Element)+        Document -> Nullable JSString -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElement Mozilla Document.createElement documentation>  createElement ::@@ -108,24 +108,22 @@                 self -> Maybe tagName -> m (Maybe Element) createElement self tagName   = liftIO-      ((js_createElement (unDocument (toDocument self))-          (toMaybeJSString tagName))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createElement (toDocument self) (toMaybeJSString tagName)))   foreign import javascript unsafe "$1[\"createDocumentFragment\"]()"         js_createDocumentFragment ::-        JSRef Document -> IO (JSRef DocumentFragment)+        Document -> IO (Nullable DocumentFragment)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createDocumentFragment Mozilla Document.createDocumentFragment documentation>  createDocumentFragment ::                        (MonadIO m, IsDocument self) => self -> m (Maybe DocumentFragment) createDocumentFragment self   = liftIO-      ((js_createDocumentFragment (unDocument (toDocument self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_createDocumentFragment (toDocument self)))   foreign import javascript unsafe "$1[\"createTextNode\"]($2)"-        js_createTextNode :: JSRef Document -> JSString -> IO (JSRef Text)+        js_createTextNode :: Document -> JSString -> IO (Nullable Text)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTextNode Mozilla Document.createTextNode documentation>  createTextNode ::@@ -133,13 +131,11 @@                  self -> data' -> m (Maybe Text) createTextNode self data'   = liftIO-      ((js_createTextNode (unDocument (toDocument self))-          (toJSString data'))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createTextNode (toDocument self) (toJSString data')))   foreign import javascript unsafe "$1[\"createComment\"]($2)"-        js_createComment ::-        JSRef Document -> JSString -> IO (JSRef Comment)+        js_createComment :: Document -> JSString -> IO (Nullable Comment)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createComment Mozilla Document.createComment documentation>  createComment ::@@ -147,13 +143,12 @@                 self -> data' -> m (Maybe Comment) createComment self data'   = liftIO-      ((js_createComment (unDocument (toDocument self))-          (toJSString data'))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createComment (toDocument self) (toJSString data')))   foreign import javascript unsafe "$1[\"createCDATASection\"]($2)"         js_createCDATASection ::-        JSRef Document -> JSString -> IO (JSRef CDATASection)+        Document -> JSString -> IO (Nullable CDATASection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createCDATASection Mozilla Document.createCDATASection documentation>  createCDATASection ::@@ -161,15 +156,14 @@                      self -> data' -> m (Maybe CDATASection) createCDATASection self data'   = liftIO-      ((js_createCDATASection (unDocument (toDocument self))-          (toJSString data'))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createCDATASection (toDocument self) (toJSString data')))   foreign import javascript unsafe         "$1[\"createProcessingInstruction\"]($2,\n$3)"         js_createProcessingInstruction ::-        JSRef Document ->-          JSString -> JSString -> IO (JSRef ProcessingInstruction)+        Document ->+          JSString -> JSString -> IO (Nullable ProcessingInstruction)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createProcessingInstruction Mozilla Document.createProcessingInstruction documentation>  createProcessingInstruction ::@@ -178,13 +172,13 @@                               self -> target -> data' -> m (Maybe ProcessingInstruction) createProcessingInstruction self target data'   = liftIO-      ((js_createProcessingInstruction (unDocument (toDocument self))-          (toJSString target)-          (toJSString data'))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createProcessingInstruction (toDocument self)+            (toJSString target)+            (toJSString data')))   foreign import javascript unsafe "$1[\"createAttribute\"]($2)"-        js_createAttribute :: JSRef Document -> JSString -> IO (JSRef Attr)+        js_createAttribute :: Document -> JSString -> IO (Nullable Attr)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttribute Mozilla Document.createAttribute documentation>  createAttribute ::@@ -192,13 +186,12 @@                   self -> name -> m (Maybe Attr) createAttribute self name   = liftIO-      ((js_createAttribute (unDocument (toDocument self))-          (toJSString name))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createAttribute (toDocument self) (toJSString name)))   foreign import javascript unsafe         "$1[\"createEntityReference\"]($2)" js_createEntityReference ::-        JSRef Document -> JSString -> IO (JSRef EntityReference)+        Document -> JSString -> IO (Nullable EntityReference)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEntityReference Mozilla Document.createEntityReference documentation>  createEntityReference ::@@ -206,13 +199,12 @@                         self -> name -> m (Maybe EntityReference) createEntityReference self name   = liftIO-      ((js_createEntityReference (unDocument (toDocument self))-          (toJSString name))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createEntityReference (toDocument self) (toJSString name)))   foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"         js_getElementsByTagName ::-        JSRef Document -> JSString -> IO (JSRef NodeList)+        Document -> JSString -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagName Mozilla Document.getElementsByTagName documentation>  getElementsByTagName ::@@ -220,13 +212,12 @@                        self -> tagname -> m (Maybe NodeList) getElementsByTagName self tagname   = liftIO-      ((js_getElementsByTagName (unDocument (toDocument self))-          (toJSString tagname))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getElementsByTagName (toDocument self) (toJSString tagname)))   foreign import javascript unsafe "$1[\"importNode\"]($2, $3)"         js_importNode ::-        JSRef Document -> JSRef Node -> Bool -> IO (JSRef Node)+        Document -> Nullable Node -> Bool -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.importNode Mozilla Document.importNode documentation>  importNode ::@@ -234,16 +225,15 @@              self -> Maybe importedNode -> Bool -> m (Maybe Node) importNode self importedNode deep   = liftIO-      ((js_importNode (unDocument (toDocument self))-          (maybe jsNull (unNode . toNode) importedNode)-          deep)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_importNode (toDocument self)+            (maybeToNullable (fmap toNode importedNode))+            deep))   foreign import javascript unsafe "$1[\"createElementNS\"]($2, $3)"         js_createElementNS ::-        JSRef Document ->-          JSRef (Maybe JSString) ->-            JSRef (Maybe JSString) -> IO (JSRef Element)+        Document ->+          Nullable JSString -> Nullable JSString -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createElementNS Mozilla Document.createElementNS documentation>  createElementNS ::@@ -253,15 +243,15 @@                     Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Element) createElementNS self namespaceURI qualifiedName   = liftIO-      ((js_createElementNS (unDocument (toDocument self))-          (toMaybeJSString namespaceURI)-          (toMaybeJSString qualifiedName))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createElementNS (toDocument self)+            (toMaybeJSString namespaceURI)+            (toMaybeJSString qualifiedName)))   foreign import javascript unsafe         "$1[\"createAttributeNS\"]($2, $3)" js_createAttributeNS ::-        JSRef Document ->-          JSRef (Maybe JSString) -> JSRef (Maybe JSString) -> IO (JSRef Attr)+        Document ->+          Nullable JSString -> Nullable JSString -> IO (Nullable Attr)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createAttributeNS Mozilla Document.createAttributeNS documentation>  createAttributeNS ::@@ -270,16 +260,15 @@                     self -> Maybe namespaceURI -> Maybe qualifiedName -> m (Maybe Attr) createAttributeNS self namespaceURI qualifiedName   = liftIO-      ((js_createAttributeNS (unDocument (toDocument self))-          (toMaybeJSString namespaceURI)-          (toMaybeJSString qualifiedName))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createAttributeNS (toDocument self)+            (toMaybeJSString namespaceURI)+            (toMaybeJSString qualifiedName)))   foreign import javascript unsafe         "$1[\"getElementsByTagNameNS\"]($2,\n$3)" js_getElementsByTagNameNS         ::-        JSRef Document ->-          JSRef (Maybe JSString) -> JSString -> IO (JSRef NodeList)+        Document -> Nullable JSString -> JSString -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByTagNameNS Mozilla Document.getElementsByTagNameNS documentation>  getElementsByTagNameNS ::@@ -288,14 +277,13 @@                          self -> Maybe namespaceURI -> localName -> m (Maybe NodeList) getElementsByTagNameNS self namespaceURI localName   = liftIO-      ((js_getElementsByTagNameNS (unDocument (toDocument self))-          (toMaybeJSString namespaceURI)-          (toJSString localName))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getElementsByTagNameNS (toDocument self)+            (toMaybeJSString namespaceURI)+            (toJSString localName)))   foreign import javascript unsafe "$1[\"getElementById\"]($2)"-        js_getElementById ::-        JSRef Document -> JSString -> IO (JSRef Element)+        js_getElementById :: Document -> JSString -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementById Mozilla Document.getElementById documentation>  getElementById ::@@ -303,12 +291,11 @@                  self -> elementId -> m (Maybe Element) getElementById self elementId   = liftIO-      ((js_getElementById (unDocument (toDocument self))-          (toJSString elementId))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getElementById (toDocument self) (toJSString elementId)))   foreign import javascript unsafe "$1[\"adoptNode\"]($2)"-        js_adoptNode :: JSRef Document -> JSRef Node -> IO (JSRef Node)+        js_adoptNode :: Document -> Nullable Node -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.adoptNode Mozilla Document.adoptNode documentation>  adoptNode ::@@ -316,12 +303,12 @@             self -> Maybe source -> m (Maybe Node) adoptNode self source   = liftIO-      ((js_adoptNode (unDocument (toDocument self))-          (maybe jsNull (unNode . toNode) source))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_adoptNode (toDocument self)+            (maybeToNullable (fmap toNode source))))   foreign import javascript unsafe "$1[\"createEvent\"]($2)"-        js_createEvent :: JSRef Document -> JSString -> IO (JSRef Event)+        js_createEvent :: Document -> JSString -> IO (Nullable Event)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createEvent Mozilla Document.createEvent documentation>  createEvent ::@@ -329,26 +316,24 @@               self -> eventType -> m (Maybe Event) createEvent self eventType   = liftIO-      ((js_createEvent (unDocument (toDocument self))-          (toJSString eventType))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createEvent (toDocument self) (toJSString eventType)))   foreign import javascript unsafe "$1[\"createRange\"]()"-        js_createRange :: JSRef Document -> IO (JSRef Range)+        js_createRange :: Document -> IO (Nullable Range)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createRange Mozilla Document.createRange documentation>  createRange ::             (MonadIO m, IsDocument self) => self -> m (Maybe Range) createRange self-  = liftIO-      ((js_createRange (unDocument (toDocument self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_createRange (toDocument self)))   foreign import javascript unsafe         "$1[\"createNodeIterator\"]($2, $3,\n$4, $5)" js_createNodeIterator         ::-        JSRef Document ->-          JSRef Node ->-            Word -> JSRef NodeFilter -> Bool -> IO (JSRef NodeIterator)+        Document ->+          Nullable Node ->+            Word -> Nullable NodeFilter -> Bool -> IO (Nullable NodeIterator)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNodeIterator Mozilla Document.createNodeIterator documentation>  createNodeIterator ::@@ -359,18 +344,18 @@ createNodeIterator self root whatToShow filter   expandEntityReferences   = liftIO-      ((js_createNodeIterator (unDocument (toDocument self))-          (maybe jsNull (unNode . toNode) root)-          whatToShow-          (maybe jsNull pToJSRef filter)-          expandEntityReferences)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createNodeIterator (toDocument self)+            (maybeToNullable (fmap toNode root))+            whatToShow+            (maybeToNullable filter)+            expandEntityReferences))   foreign import javascript unsafe         "$1[\"createTreeWalker\"]($2, $3,\n$4, $5)" js_createTreeWalker ::-        JSRef Document ->-          JSRef Node ->-            Word -> JSRef NodeFilter -> Bool -> IO (JSRef TreeWalker)+        Document ->+          Nullable Node ->+            Word -> Nullable NodeFilter -> Bool -> IO (Nullable TreeWalker)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTreeWalker Mozilla Document.createTreeWalker documentation>  createTreeWalker ::@@ -380,17 +365,17 @@                        Word -> Maybe NodeFilter -> Bool -> m (Maybe TreeWalker) createTreeWalker self root whatToShow filter expandEntityReferences   = liftIO-      ((js_createTreeWalker (unDocument (toDocument self))-          (maybe jsNull (unNode . toNode) root)-          whatToShow-          (maybe jsNull pToJSRef filter)-          expandEntityReferences)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createTreeWalker (toDocument self)+            (maybeToNullable (fmap toNode root))+            whatToShow+            (maybeToNullable filter)+            expandEntityReferences))   foreign import javascript unsafe "$1[\"getOverrideStyle\"]($2, $3)"         js_getOverrideStyle ::-        JSRef Document ->-          JSRef Element -> JSString -> IO (JSRef CSSStyleDeclaration)+        Document ->+          Nullable Element -> JSString -> IO (Nullable CSSStyleDeclaration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getOverrideStyle Mozilla Document.getOverrideStyle documentation>  getOverrideStyle ::@@ -400,15 +385,16 @@                      Maybe element -> pseudoElement -> m (Maybe CSSStyleDeclaration) getOverrideStyle self element pseudoElement   = liftIO-      ((js_getOverrideStyle (unDocument (toDocument self))-          (maybe jsNull (unElement . toElement) element)-          (toJSString pseudoElement))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getOverrideStyle (toDocument self)+            (maybeToNullable (fmap toElement element))+            (toJSString pseudoElement)))   foreign import javascript unsafe "$1[\"createExpression\"]($2, $3)"         js_createExpression ::-        JSRef Document ->-          JSString -> JSRef XPathNSResolver -> IO (JSRef XPathExpression)+        Document ->+          JSString ->+            Nullable XPathNSResolver -> IO (Nullable XPathExpression)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createExpression Mozilla Document.createExpression documentation>  createExpression ::@@ -417,14 +403,13 @@                      expression -> Maybe XPathNSResolver -> m (Maybe XPathExpression) createExpression self expression resolver   = liftIO-      ((js_createExpression (unDocument (toDocument self))-          (toJSString expression)-          (maybe jsNull pToJSRef resolver))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createExpression (toDocument self) (toJSString expression)+            (maybeToNullable resolver)))   foreign import javascript unsafe "$1[\"createNSResolver\"]($2)"         js_createNSResolver ::-        JSRef Document -> JSRef Node -> IO (JSRef XPathNSResolver)+        Document -> Nullable Node -> IO (Nullable XPathNSResolver)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createNSResolver Mozilla Document.createNSResolver documentation>  createNSResolver ::@@ -432,17 +417,17 @@                    self -> Maybe nodeResolver -> m (Maybe XPathNSResolver) createNSResolver self nodeResolver   = liftIO-      ((js_createNSResolver (unDocument (toDocument self))-          (maybe jsNull (unNode . toNode) nodeResolver))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createNSResolver (toDocument self)+            (maybeToNullable (fmap toNode nodeResolver))))   foreign import javascript unsafe         "$1[\"evaluate\"]($2, $3, $4, $5,\n$6)" js_evaluate ::-        JSRef Document ->+        Document ->           JSString ->-            JSRef Node ->-              JSRef XPathNSResolver ->-                Word -> JSRef XPathResult -> IO (JSRef XPathResult)+            Nullable Node ->+              Nullable XPathNSResolver ->+                Word -> Nullable XPathResult -> IO (Nullable XPathResult)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.evaluate Mozilla Document.evaluate documentation>  evaluate ::@@ -455,18 +440,16 @@                    Word -> Maybe XPathResult -> m (Maybe XPathResult) evaluate self expression contextNode resolver type' inResult   = liftIO-      ((js_evaluate (unDocument (toDocument self))-          (toJSString expression)-          (maybe jsNull (unNode . toNode) contextNode)-          (maybe jsNull pToJSRef resolver)-          type'-          (maybe jsNull pToJSRef inResult))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_evaluate (toDocument self) (toJSString expression)+            (maybeToNullable (fmap toNode contextNode))+            (maybeToNullable resolver)+            type'+            (maybeToNullable inResult)))   foreign import javascript unsafe         "($1[\"execCommand\"]($2, $3,\n$4) ? 1 : 0)" js_execCommand ::-        JSRef Document ->-          JSString -> Bool -> JSRef (Maybe JSString) -> IO Bool+        Document -> JSString -> Bool -> Nullable JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.execCommand Mozilla Document.execCommand documentation>  execCommand ::@@ -475,13 +458,13 @@               self -> command -> Bool -> Maybe value -> m Bool execCommand self command userInterface value   = liftIO-      (js_execCommand (unDocument (toDocument self)) (toJSString command)+      (js_execCommand (toDocument self) (toJSString command)          userInterface          (toMaybeJSString value))   foreign import javascript unsafe         "($1[\"queryCommandEnabled\"]($2) ? 1 : 0)" js_queryCommandEnabled-        :: JSRef Document -> JSString -> IO Bool+        :: Document -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandEnabled Mozilla Document.queryCommandEnabled documentation>  queryCommandEnabled ::@@ -489,12 +472,11 @@                       self -> command -> m Bool queryCommandEnabled self command   = liftIO-      (js_queryCommandEnabled (unDocument (toDocument self))-         (toJSString command))+      (js_queryCommandEnabled (toDocument self) (toJSString command))   foreign import javascript unsafe         "($1[\"queryCommandIndeterm\"]($2) ? 1 : 0)"-        js_queryCommandIndeterm :: JSRef Document -> JSString -> IO Bool+        js_queryCommandIndeterm :: Document -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandIndeterm Mozilla Document.queryCommandIndeterm documentation>  queryCommandIndeterm ::@@ -502,12 +484,11 @@                        self -> command -> m Bool queryCommandIndeterm self command   = liftIO-      (js_queryCommandIndeterm (unDocument (toDocument self))-         (toJSString command))+      (js_queryCommandIndeterm (toDocument self) (toJSString command))   foreign import javascript unsafe         "($1[\"queryCommandState\"]($2) ? 1 : 0)" js_queryCommandState ::-        JSRef Document -> JSString -> IO Bool+        Document -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandState Mozilla Document.queryCommandState documentation>  queryCommandState ::@@ -515,12 +496,11 @@                     self -> command -> m Bool queryCommandState self command   = liftIO-      (js_queryCommandState (unDocument (toDocument self))-         (toJSString command))+      (js_queryCommandState (toDocument self) (toJSString command))   foreign import javascript unsafe         "($1[\"queryCommandSupported\"]($2) ? 1 : 0)"-        js_queryCommandSupported :: JSRef Document -> JSString -> IO Bool+        js_queryCommandSupported :: Document -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandSupported Mozilla Document.queryCommandSupported documentation>  queryCommandSupported ::@@ -528,11 +508,10 @@                         self -> command -> m Bool queryCommandSupported self command   = liftIO-      (js_queryCommandSupported (unDocument (toDocument self))-         (toJSString command))+      (js_queryCommandSupported (toDocument self) (toJSString command))   foreign import javascript unsafe "$1[\"queryCommandValue\"]($2)"-        js_queryCommandValue :: JSRef Document -> JSString -> IO JSString+        js_queryCommandValue :: Document -> JSString -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.queryCommandValue Mozilla Document.queryCommandValue documentation>  queryCommandValue ::@@ -542,12 +521,11 @@ queryCommandValue self command   = liftIO       (fromJSString <$>-         (js_queryCommandValue (unDocument (toDocument self))-            (toJSString command)))+         (js_queryCommandValue (toDocument self) (toJSString command)))   foreign import javascript unsafe "$1[\"getElementsByName\"]($2)"         js_getElementsByName ::-        JSRef Document -> JSString -> IO (JSRef NodeList)+        Document -> JSString -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByName Mozilla Document.getElementsByName documentation>  getElementsByName ::@@ -555,13 +533,12 @@                     self -> elementName -> m (Maybe NodeList) getElementsByName self elementName   = liftIO-      ((js_getElementsByName (unDocument (toDocument self))-          (toJSString elementName))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getElementsByName (toDocument self) (toJSString elementName)))   foreign import javascript unsafe "$1[\"elementFromPoint\"]($2, $3)"         js_elementFromPoint ::-        JSRef Document -> Int -> Int -> IO (JSRef Element)+        Document -> Int -> Int -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.elementFromPoint Mozilla Document.elementFromPoint documentation>  elementFromPoint ::@@ -569,12 +546,11 @@                    self -> Int -> Int -> m (Maybe Element) elementFromPoint self x y   = liftIO-      ((js_elementFromPoint (unDocument (toDocument self)) x y) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_elementFromPoint (toDocument self) x y))   foreign import javascript unsafe         "$1[\"caretRangeFromPoint\"]($2,\n$3)" js_caretRangeFromPoint ::-        JSRef Document -> Int -> Int -> IO (JSRef Range)+        Document -> Int -> Int -> IO (Nullable Range)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.caretRangeFromPoint Mozilla Document.caretRangeFromPoint documentation>  caretRangeFromPoint ::@@ -582,25 +558,24 @@                       self -> Int -> Int -> m (Maybe Range) caretRangeFromPoint self x y   = liftIO-      ((js_caretRangeFromPoint (unDocument (toDocument self)) x y) >>=-         fromJSRef)+      (nullableToMaybe <$>+         (js_caretRangeFromPoint (toDocument self) x y))   foreign import javascript unsafe "$1[\"getSelection\"]()"-        js_getSelection :: JSRef Document -> IO (JSRef Selection)+        js_getSelection :: Document -> IO (Nullable Selection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getSelection Mozilla Document.getSelection documentation>  getSelection ::              (MonadIO m, IsDocument self) => self -> m (Maybe Selection) getSelection self-  = liftIO-      ((js_getSelection (unDocument (toDocument self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSelection (toDocument self)))   foreign import javascript unsafe         "$1[\"getCSSCanvasContext\"]($2,\n$3, $4, $5)"         js_getCSSCanvasContext ::-        JSRef Document ->+        Document ->           JSString ->-            JSString -> Int -> Int -> IO (JSRef CanvasRenderingContext)+            JSString -> Int -> Int -> IO (Nullable CanvasRenderingContext)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getCSSCanvasContext Mozilla Document.getCSSCanvasContext documentation>  getCSSCanvasContext ::@@ -610,16 +585,15 @@                         contextId -> name -> Int -> Int -> m (Maybe CanvasRenderingContext) getCSSCanvasContext self contextId name width height   = liftIO-      ((js_getCSSCanvasContext (unDocument (toDocument self))-          (toJSString contextId)-          (toJSString name)-          width-          height)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getCSSCanvasContext (toDocument self) (toJSString contextId)+            (toJSString name)+            width+            height))   foreign import javascript unsafe         "$1[\"getElementsByClassName\"]($2)" js_getElementsByClassName ::-        JSRef Document -> JSString -> IO (JSRef NodeList)+        Document -> JSString -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.getElementsByClassName Mozilla Document.getElementsByClassName documentation>  getElementsByClassName ::@@ -627,20 +601,18 @@                          self -> tagname -> m (Maybe NodeList) getElementsByClassName self tagname   = liftIO-      ((js_getElementsByClassName (unDocument (toDocument self))-          (toJSString tagname))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getElementsByClassName (toDocument self) (toJSString tagname)))   foreign import javascript unsafe "($1[\"hasFocus\"]() ? 1 : 0)"-        js_hasFocus :: JSRef Document -> IO Bool+        js_hasFocus :: Document -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hasFocus Mozilla Document.hasFocus documentation>  hasFocus :: (MonadIO m, IsDocument self) => self -> m Bool-hasFocus self = liftIO (js_hasFocus (unDocument (toDocument self)))+hasFocus self = liftIO (js_hasFocus (toDocument self))   foreign import javascript unsafe "$1[\"querySelector\"]($2)"-        js_querySelector ::-        JSRef Document -> JSString -> IO (JSRef Element)+        js_querySelector :: Document -> JSString -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelector Mozilla Document.querySelector documentation>  querySelector ::@@ -648,13 +620,12 @@                 self -> selectors -> m (Maybe Element) querySelector self selectors   = liftIO-      ((js_querySelector (unDocument (toDocument self))-          (toJSString selectors))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_querySelector (toDocument self) (toJSString selectors)))   foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"         js_querySelectorAll ::-        JSRef Document -> JSString -> IO (JSRef NodeList)+        Document -> JSString -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.querySelectorAll Mozilla Document.querySelectorAll documentation>  querySelectorAll ::@@ -662,39 +633,38 @@                    self -> selectors -> m (Maybe NodeList) querySelectorAll self selectors   = liftIO-      ((js_querySelectorAll (unDocument (toDocument self))-          (toJSString selectors))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_querySelectorAll (toDocument self) (toJSString selectors)))   foreign import javascript unsafe "$1[\"webkitCancelFullScreen\"]()"-        js_webkitCancelFullScreen :: JSRef Document -> IO ()+        js_webkitCancelFullScreen :: Document -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCancelFullScreen Mozilla Document.webkitCancelFullScreen documentation>  webkitCancelFullScreen ::                        (MonadIO m, IsDocument self) => self -> m () webkitCancelFullScreen self-  = liftIO (js_webkitCancelFullScreen (unDocument (toDocument self)))+  = liftIO (js_webkitCancelFullScreen (toDocument self))   foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()"-        js_webkitExitFullscreen :: JSRef Document -> IO ()+        js_webkitExitFullscreen :: Document -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitExitFullscreen Mozilla Document.webkitExitFullscreen documentation>  webkitExitFullscreen ::                      (MonadIO m, IsDocument self) => self -> m () webkitExitFullscreen self-  = liftIO (js_webkitExitFullscreen (unDocument (toDocument self)))+  = liftIO (js_webkitExitFullscreen (toDocument self))   foreign import javascript unsafe "$1[\"exitPointerLock\"]()"-        js_exitPointerLock :: JSRef Document -> IO ()+        js_exitPointerLock :: Document -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.exitPointerLock Mozilla Document.exitPointerLock documentation>  exitPointerLock :: (MonadIO m, IsDocument self) => self -> m () exitPointerLock self-  = liftIO (js_exitPointerLock (unDocument (toDocument self)))+  = liftIO (js_exitPointerLock (toDocument self))   foreign import javascript unsafe "$1[\"webkitGetNamedFlows\"]()"         js_webkitGetNamedFlows ::-        JSRef Document -> IO (JSRef DOMNamedFlowCollection)+        Document -> IO (Nullable DOMNamedFlowCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitGetNamedFlows Mozilla Document.webkitGetNamedFlows documentation>  webkitGetNamedFlows ::@@ -702,19 +672,18 @@                       self -> m (Maybe DOMNamedFlowCollection) webkitGetNamedFlows self   = liftIO-      ((js_webkitGetNamedFlows (unDocument (toDocument self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_webkitGetNamedFlows (toDocument self)))   foreign import javascript unsafe         "$1[\"createTouch\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12)"         js_createTouch ::-        JSRef Document ->-          JSRef Window ->-            JSRef EventTarget ->+        Document ->+          Nullable Window ->+            Nullable EventTarget ->               Int ->                 Int ->                   Int ->-                    Int -> Int -> Int -> Int -> Float -> Float -> IO (JSRef Touch)+                    Int -> Int -> Int -> Int -> Float -> Float -> IO (Nullable Touch)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouch Mozilla Document.createTouch documentation>  createTouch ::@@ -729,66 +698,60 @@ createTouch self window target identifier pageX pageY screenX   screenY webkitRadiusX webkitRadiusY webkitRotationAngle webkitForce   = liftIO-      ((js_createTouch (unDocument (toDocument self))-          (maybe jsNull pToJSRef window)-          (maybe jsNull (unEventTarget . toEventTarget) target)-          identifier-          pageX-          pageY-          screenX-          screenY-          webkitRadiusX-          webkitRadiusY-          webkitRotationAngle-          webkitForce)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createTouch (toDocument self) (maybeToNullable window)+            (maybeToNullable (fmap toEventTarget target))+            identifier+            pageX+            pageY+            screenX+            screenY+            webkitRadiusX+            webkitRadiusY+            webkitRotationAngle+            webkitForce))   foreign import javascript unsafe "$1[\"createTouchList\"]()"-        js_createTouchList :: JSRef Document -> IO (JSRef TouchList)+        js_createTouchList :: Document -> IO (Nullable TouchList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.createTouchList Mozilla Document.createTouchList documentation>  createTouchList ::                 (MonadIO m, IsDocument self) => self -> m (Maybe TouchList) createTouchList self   = liftIO-      ((js_createTouchList (unDocument (toDocument self))) >>= fromJSRef)+      (nullableToMaybe <$> (js_createTouchList (toDocument self)))   foreign import javascript unsafe "$1[\"doctype\"]" js_getDoctype ::-        JSRef Document -> IO (JSRef DocumentType)+        Document -> IO (Nullable DocumentType)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.doctype Mozilla Document.doctype documentation>  getDoctype ::            (MonadIO m, IsDocument self) => self -> m (Maybe DocumentType) getDoctype self-  = liftIO-      ((js_getDoctype (unDocument (toDocument self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getDoctype (toDocument self)))   foreign import javascript unsafe "$1[\"implementation\"]"-        js_getImplementation ::-        JSRef Document -> IO (JSRef DOMImplementation)+        js_getImplementation :: Document -> IO (Nullable DOMImplementation)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.implementation Mozilla Document.implementation documentation>  getImplementation ::                   (MonadIO m, IsDocument self) => self -> m (Maybe DOMImplementation) getImplementation self   = liftIO-      ((js_getImplementation (unDocument (toDocument self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getImplementation (toDocument self)))   foreign import javascript unsafe "$1[\"documentElement\"]"-        js_getDocumentElement :: JSRef Document -> IO (JSRef Element)+        js_getDocumentElement :: Document -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentElement Mozilla Document.documentElement documentation>  getDocumentElement ::                    (MonadIO m, IsDocument self) => self -> m (Maybe Element) getDocumentElement self   = liftIO-      ((js_getDocumentElement (unDocument (toDocument self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getDocumentElement (toDocument self)))   foreign import javascript unsafe "$1[\"inputEncoding\"]"-        js_getInputEncoding ::-        JSRef Document -> IO (JSRef (Maybe JSString))+        js_getInputEncoding :: Document -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.inputEncoding Mozilla Document.inputEncoding documentation>  getInputEncoding ::@@ -796,11 +759,10 @@                    self -> m (Maybe result) getInputEncoding self   = liftIO-      (fromMaybeJSString <$>-         (js_getInputEncoding (unDocument (toDocument self))))+      (fromMaybeJSString <$> (js_getInputEncoding (toDocument self)))   foreign import javascript unsafe "$1[\"xmlEncoding\"]"-        js_getXmlEncoding :: JSRef Document -> IO (JSRef (Maybe JSString))+        js_getXmlEncoding :: Document -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlEncoding Mozilla Document.xmlEncoding documentation>  getXmlEncoding ::@@ -808,24 +770,20 @@                  self -> m (Maybe result) getXmlEncoding self   = liftIO-      (fromMaybeJSString <$>-         (js_getXmlEncoding (unDocument (toDocument self))))+      (fromMaybeJSString <$> (js_getXmlEncoding (toDocument self)))   foreign import javascript unsafe "$1[\"xmlVersion\"] = $2;"-        js_setXmlVersion ::-        JSRef Document -> JSRef (Maybe JSString) -> IO ()+        js_setXmlVersion :: Document -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation>  setXmlVersion ::               (MonadIO m, IsDocument self, ToJSString val) =>                 self -> Maybe val -> m () setXmlVersion self val-  = liftIO-      (js_setXmlVersion (unDocument (toDocument self))-         (toMaybeJSString val))+  = liftIO (js_setXmlVersion (toDocument self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"xmlVersion\"]"-        js_getXmlVersion :: JSRef Document -> IO (JSRef (Maybe JSString))+        js_getXmlVersion :: Document -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlVersion Mozilla Document.xmlVersion documentation>  getXmlVersion ::@@ -833,28 +791,27 @@                 self -> m (Maybe result) getXmlVersion self   = liftIO-      (fromMaybeJSString <$>-         (js_getXmlVersion (unDocument (toDocument self))))+      (fromMaybeJSString <$> (js_getXmlVersion (toDocument self)))   foreign import javascript unsafe "$1[\"xmlStandalone\"] = $2;"-        js_setXmlStandalone :: JSRef Document -> Bool -> IO ()+        js_setXmlStandalone :: Document -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation>  setXmlStandalone ::                  (MonadIO m, IsDocument self) => self -> Bool -> m () setXmlStandalone self val-  = liftIO (js_setXmlStandalone (unDocument (toDocument self)) val)+  = liftIO (js_setXmlStandalone (toDocument self) val)   foreign import javascript unsafe "($1[\"xmlStandalone\"] ? 1 : 0)"-        js_getXmlStandalone :: JSRef Document -> IO Bool+        js_getXmlStandalone :: Document -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.xmlStandalone Mozilla Document.xmlStandalone documentation>  getXmlStandalone :: (MonadIO m, IsDocument self) => self -> m Bool getXmlStandalone self-  = liftIO (js_getXmlStandalone (unDocument (toDocument self)))+  = liftIO (js_getXmlStandalone (toDocument self))   foreign import javascript unsafe "$1[\"documentURI\"]"-        js_getDocumentURI :: JSRef Document -> IO (JSRef (Maybe JSString))+        js_getDocumentURI :: Document -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.documentURI Mozilla Document.documentURI documentation>  getDocumentURI ::@@ -862,134 +819,120 @@                  self -> m (Maybe result) getDocumentURI self   = liftIO-      (fromMaybeJSString <$>-         (js_getDocumentURI (unDocument (toDocument self))))+      (fromMaybeJSString <$> (js_getDocumentURI (toDocument self)))   foreign import javascript unsafe "$1[\"defaultView\"]"-        js_getDefaultView :: JSRef Document -> IO (JSRef Window)+        js_getDefaultView :: Document -> IO (Nullable Window)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultView Mozilla Document.defaultView documentation>  getDefaultView ::                (MonadIO m, IsDocument self) => self -> m (Maybe Window) getDefaultView self   = liftIO-      ((js_getDefaultView (unDocument (toDocument self))) >>= fromJSRef)+      (nullableToMaybe <$> (js_getDefaultView (toDocument self)))   foreign import javascript unsafe "$1[\"styleSheets\"]"-        js_getStyleSheets :: JSRef Document -> IO (JSRef StyleSheetList)+        js_getStyleSheets :: Document -> IO (Nullable StyleSheetList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.styleSheets Mozilla Document.styleSheets documentation>  getStyleSheets ::                (MonadIO m, IsDocument self) => self -> m (Maybe StyleSheetList) getStyleSheets self   = liftIO-      ((js_getStyleSheets (unDocument (toDocument self))) >>= fromJSRef)+      (nullableToMaybe <$> (js_getStyleSheets (toDocument self)))   foreign import javascript unsafe "$1[\"contentType\"]"-        js_getContentType :: JSRef Document -> IO JSString+        js_getContentType :: Document -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.contentType Mozilla Document.contentType documentation>  getContentType ::                (MonadIO m, IsDocument self, FromJSString result) =>                  self -> m result getContentType self-  = liftIO-      (fromJSString <$>-         (js_getContentType (unDocument (toDocument self))))+  = liftIO (fromJSString <$> (js_getContentType (toDocument self)))   foreign import javascript unsafe "$1[\"title\"] = $2;" js_setTitle-        :: JSRef Document -> JSRef (Maybe JSString) -> IO ()+        :: Document -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation>  setTitle ::          (MonadIO m, IsDocument self, ToJSString val) =>            self -> Maybe val -> m () setTitle self val-  = liftIO-      (js_setTitle (unDocument (toDocument self)) (toMaybeJSString val))+  = liftIO (js_setTitle (toDocument self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"title\"]" js_getTitle ::-        JSRef Document -> IO (JSRef (Maybe JSString))+        Document -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.title Mozilla Document.title documentation>  getTitle ::          (MonadIO m, IsDocument self, FromJSString result) =>            self -> m (Maybe result) getTitle self-  = liftIO-      (fromMaybeJSString <$>-         (js_getTitle (unDocument (toDocument self))))+  = liftIO (fromMaybeJSString <$> (js_getTitle (toDocument self)))   foreign import javascript unsafe "$1[\"referrer\"]" js_getReferrer-        :: JSRef Document -> IO JSString+        :: Document -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.referrer Mozilla Document.referrer documentation>  getReferrer ::             (MonadIO m, IsDocument self, FromJSString result) =>               self -> m result getReferrer self-  = liftIO-      (fromJSString <$> (js_getReferrer (unDocument (toDocument self))))+  = liftIO (fromJSString <$> (js_getReferrer (toDocument self)))   foreign import javascript unsafe "$1[\"domain\"] = $2;"-        js_setDomain :: JSRef Document -> JSRef (Maybe JSString) -> IO ()+        js_setDomain :: Document -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation>  setDomain ::           (MonadIO m, IsDocument self, ToJSString val) =>             self -> Maybe val -> m () setDomain self val-  = liftIO-      (js_setDomain (unDocument (toDocument self)) (toMaybeJSString val))+  = liftIO (js_setDomain (toDocument self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"domain\"]" js_getDomain ::-        JSRef Document -> IO (JSRef (Maybe JSString))+        Document -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.domain Mozilla Document.domain documentation>  getDomain ::           (MonadIO m, IsDocument self, FromJSString result) =>             self -> m (Maybe result) getDomain self-  = liftIO-      (fromMaybeJSString <$>-         (js_getDomain (unDocument (toDocument self))))+  = liftIO (fromMaybeJSString <$> (js_getDomain (toDocument self)))   foreign import javascript unsafe "$1[\"URL\"]" js_getURL ::-        JSRef Document -> IO JSString+        Document -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.URL Mozilla Document.URL documentation>  getURL ::        (MonadIO m, IsDocument self, FromJSString result) =>          self -> m result getURL self-  = liftIO-      (fromJSString <$> (js_getURL (unDocument (toDocument self))))+  = liftIO (fromJSString <$> (js_getURL (toDocument self)))   foreign import javascript unsafe "$1[\"cookie\"] = $2;"-        js_setCookie :: JSRef Document -> JSRef (Maybe JSString) -> IO ()+        js_setCookie :: Document -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation>  setCookie ::           (MonadIO m, IsDocument self, ToJSString val) =>             self -> Maybe val -> m () setCookie self val-  = liftIO-      (js_setCookie (unDocument (toDocument self)) (toMaybeJSString val))+  = liftIO (js_setCookie (toDocument self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"cookie\"]" js_getCookie ::-        JSRef Document -> IO (JSRef (Maybe JSString))+        Document -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.cookie Mozilla Document.cookie documentation>  getCookie ::           (MonadIO m, IsDocument self, FromJSString result) =>             self -> m (Maybe result) getCookie self-  = liftIO-      (fromMaybeJSString <$>-         (js_getCookie (unDocument (toDocument self))))+  = liftIO (fromMaybeJSString <$> (js_getCookie (toDocument self)))   foreign import javascript unsafe "$1[\"body\"] = $2;" js_setBody ::-        JSRef Document -> JSRef HTMLElement -> IO ()+        Document -> Nullable HTMLElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation>  setBody ::@@ -997,139 +940,122 @@           self -> Maybe val -> m () setBody self val   = liftIO-      (js_setBody (unDocument (toDocument self))-         (maybe jsNull (unHTMLElement . toHTMLElement) val))+      (js_setBody (toDocument self)+         (maybeToNullable (fmap toHTMLElement val)))   foreign import javascript unsafe "$1[\"body\"]" js_getBody ::-        JSRef Document -> IO (JSRef HTMLElement)+        Document -> IO (Nullable HTMLElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.body Mozilla Document.body documentation>  getBody ::         (MonadIO m, IsDocument self) => self -> m (Maybe HTMLElement) getBody self-  = liftIO-      ((js_getBody (unDocument (toDocument self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getBody (toDocument self)))   foreign import javascript unsafe "$1[\"head\"]" js_getHead ::-        JSRef Document -> IO (JSRef HTMLHeadElement)+        Document -> IO (Nullable HTMLHeadElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.head Mozilla Document.head documentation>  getHead ::         (MonadIO m, IsDocument self) => self -> m (Maybe HTMLHeadElement) getHead self-  = liftIO-      ((js_getHead (unDocument (toDocument self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getHead (toDocument self)))   foreign import javascript unsafe "$1[\"images\"]" js_getImages ::-        JSRef Document -> IO (JSRef HTMLCollection)+        Document -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.images Mozilla Document.images documentation>  getImages ::           (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection) getImages self-  = liftIO-      ((js_getImages (unDocument (toDocument self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getImages (toDocument self)))   foreign import javascript unsafe "$1[\"applets\"]" js_getApplets ::-        JSRef Document -> IO (JSRef HTMLCollection)+        Document -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.applets Mozilla Document.applets documentation>  getApplets ::            (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection) getApplets self-  = liftIO-      ((js_getApplets (unDocument (toDocument self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getApplets (toDocument self)))   foreign import javascript unsafe "$1[\"links\"]" js_getLinks ::-        JSRef Document -> IO (JSRef HTMLCollection)+        Document -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.links Mozilla Document.links documentation>  getLinks ::          (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection) getLinks self-  = liftIO-      ((js_getLinks (unDocument (toDocument self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getLinks (toDocument self)))   foreign import javascript unsafe "$1[\"forms\"]" js_getForms ::-        JSRef Document -> IO (JSRef HTMLCollection)+        Document -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.forms Mozilla Document.forms documentation>  getForms ::          (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection) getForms self-  = liftIO-      ((js_getForms (unDocument (toDocument self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getForms (toDocument self)))   foreign import javascript unsafe "$1[\"anchors\"]" js_getAnchors ::-        JSRef Document -> IO (JSRef HTMLCollection)+        Document -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.anchors Mozilla Document.anchors documentation>  getAnchors ::            (MonadIO m, IsDocument self) => self -> m (Maybe HTMLCollection) getAnchors self-  = liftIO-      ((js_getAnchors (unDocument (toDocument self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAnchors (toDocument self)))   foreign import javascript unsafe "$1[\"lastModified\"]"-        js_getLastModified :: JSRef Document -> IO JSString+        js_getLastModified :: Document -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.lastModified Mozilla Document.lastModified documentation>  getLastModified ::                 (MonadIO m, IsDocument self, FromJSString result) =>                   self -> m result getLastModified self-  = liftIO-      (fromJSString <$>-         (js_getLastModified (unDocument (toDocument self))))+  = liftIO (fromJSString <$> (js_getLastModified (toDocument self)))   foreign import javascript unsafe "$1[\"location\"] = $2;"-        js_setLocation :: JSRef Document -> JSRef Location -> IO ()+        js_setLocation :: Document -> Nullable Location -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation>  setLocation ::             (MonadIO m, IsDocument self) => self -> Maybe Location -> m () setLocation self val-  = liftIO-      (js_setLocation (unDocument (toDocument self))-         (maybe jsNull pToJSRef val))+  = liftIO (js_setLocation (toDocument self) (maybeToNullable val))   foreign import javascript unsafe "$1[\"location\"]" js_getLocation-        :: JSRef Document -> IO (JSRef Location)+        :: Document -> IO (Nullable Location)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.location Mozilla Document.location documentation>  getLocation ::             (MonadIO m, IsDocument self) => self -> m (Maybe Location) getLocation self-  = liftIO-      ((js_getLocation (unDocument (toDocument self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getLocation (toDocument self)))   foreign import javascript unsafe "$1[\"charset\"] = $2;"-        js_setCharset :: JSRef Document -> JSRef (Maybe JSString) -> IO ()+        js_setCharset :: Document -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation>  setCharset ::            (MonadIO m, IsDocument self, ToJSString val) =>              self -> Maybe val -> m () setCharset self val-  = liftIO-      (js_setCharset (unDocument (toDocument self))-         (toMaybeJSString val))+  = liftIO (js_setCharset (toDocument self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::-        JSRef Document -> IO (JSRef (Maybe JSString))+        Document -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.charset Mozilla Document.charset documentation>  getCharset ::            (MonadIO m, IsDocument self, FromJSString result) =>              self -> m (Maybe result) getCharset self-  = liftIO-      (fromMaybeJSString <$>-         (js_getCharset (unDocument (toDocument self))))+  = liftIO (fromMaybeJSString <$> (js_getCharset (toDocument self)))   foreign import javascript unsafe "$1[\"defaultCharset\"]"-        js_getDefaultCharset ::-        JSRef Document -> IO (JSRef (Maybe JSString))+        js_getDefaultCharset :: Document -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.defaultCharset Mozilla Document.defaultCharset documentation>  getDefaultCharset ::@@ -1137,11 +1063,10 @@                     self -> m (Maybe result) getDefaultCharset self   = liftIO-      (fromMaybeJSString <$>-         (js_getDefaultCharset (unDocument (toDocument self))))+      (fromMaybeJSString <$> (js_getDefaultCharset (toDocument self)))   foreign import javascript unsafe "$1[\"readyState\"]"-        js_getReadyState :: JSRef Document -> IO (JSRef (Maybe JSString))+        js_getReadyState :: Document -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.readyState Mozilla Document.readyState documentation>  getReadyState ::@@ -1149,11 +1074,10 @@                 self -> m (Maybe result) getReadyState self   = liftIO-      (fromMaybeJSString <$>-         (js_getReadyState (unDocument (toDocument self))))+      (fromMaybeJSString <$> (js_getReadyState (toDocument self)))   foreign import javascript unsafe "$1[\"characterSet\"]"-        js_getCharacterSet :: JSRef Document -> IO (JSRef (Maybe JSString))+        js_getCharacterSet :: Document -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.characterSet Mozilla Document.characterSet documentation>  getCharacterSet ::@@ -1161,12 +1085,10 @@                   self -> m (Maybe result) getCharacterSet self   = liftIO-      (fromMaybeJSString <$>-         (js_getCharacterSet (unDocument (toDocument self))))+      (fromMaybeJSString <$> (js_getCharacterSet (toDocument self)))   foreign import javascript unsafe "$1[\"preferredStylesheetSet\"]"-        js_getPreferredStylesheetSet ::-        JSRef Document -> IO (JSRef (Maybe JSString))+        js_getPreferredStylesheetSet :: Document -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.preferredStylesheetSet Mozilla Document.preferredStylesheetSet documentation>  getPreferredStylesheetSet ::@@ -1175,11 +1097,11 @@ getPreferredStylesheetSet self   = liftIO       (fromMaybeJSString <$>-         (js_getPreferredStylesheetSet (unDocument (toDocument self))))+         (js_getPreferredStylesheetSet (toDocument self)))   foreign import javascript unsafe         "$1[\"selectedStylesheetSet\"] = $2;" js_setSelectedStylesheetSet-        :: JSRef Document -> JSRef (Maybe JSString) -> IO ()+        :: Document -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation>  setSelectedStylesheetSet ::@@ -1187,12 +1109,11 @@                            self -> Maybe val -> m () setSelectedStylesheetSet self val   = liftIO-      (js_setSelectedStylesheetSet (unDocument (toDocument self))+      (js_setSelectedStylesheetSet (toDocument self)          (toMaybeJSString val))   foreign import javascript unsafe "$1[\"selectedStylesheetSet\"]"-        js_getSelectedStylesheetSet ::-        JSRef Document -> IO (JSRef (Maybe JSString))+        js_getSelectedStylesheetSet :: Document -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.selectedStylesheetSet Mozilla Document.selectedStylesheetSet documentation>  getSelectedStylesheetSet ::@@ -1201,111 +1122,101 @@ getSelectedStylesheetSet self   = liftIO       (fromMaybeJSString <$>-         (js_getSelectedStylesheetSet (unDocument (toDocument self))))+         (js_getSelectedStylesheetSet (toDocument self)))   foreign import javascript unsafe "$1[\"activeElement\"]"-        js_getActiveElement :: JSRef Document -> IO (JSRef Element)+        js_getActiveElement :: Document -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.activeElement Mozilla Document.activeElement documentation>  getActiveElement ::                  (MonadIO m, IsDocument self) => self -> m (Maybe Element) getActiveElement self   = liftIO-      ((js_getActiveElement (unDocument (toDocument self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getActiveElement (toDocument self)))   foreign import javascript unsafe "$1[\"compatMode\"]"-        js_getCompatMode :: JSRef Document -> IO JSString+        js_getCompatMode :: Document -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.compatMode Mozilla Document.compatMode documentation>  getCompatMode ::               (MonadIO m, IsDocument self, FromJSString result) =>                 self -> m result getCompatMode self-  = liftIO-      (fromJSString <$>-         (js_getCompatMode (unDocument (toDocument self))))+  = liftIO (fromJSString <$> (js_getCompatMode (toDocument self)))   foreign import javascript unsafe         "($1[\"webkitIsFullScreen\"] ? 1 : 0)" js_getWebkitIsFullScreen ::-        JSRef Document -> IO Bool+        Document -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitIsFullScreen Mozilla Document.webkitIsFullScreen documentation>  getWebkitIsFullScreen ::                       (MonadIO m, IsDocument self) => self -> m Bool getWebkitIsFullScreen self-  = liftIO (js_getWebkitIsFullScreen (unDocument (toDocument self)))+  = liftIO (js_getWebkitIsFullScreen (toDocument self))   foreign import javascript unsafe         "($1[\"webkitFullScreenKeyboardInputAllowed\"] ? 1 : 0)"-        js_getWebkitFullScreenKeyboardInputAllowed ::-        JSRef Document -> IO Bool+        js_getWebkitFullScreenKeyboardInputAllowed :: Document -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullScreenKeyboardInputAllowed Mozilla Document.webkitFullScreenKeyboardInputAllowed documentation>  getWebkitFullScreenKeyboardInputAllowed ::                                         (MonadIO m, IsDocument self) => self -> m Bool getWebkitFullScreenKeyboardInputAllowed self   = liftIO-      (js_getWebkitFullScreenKeyboardInputAllowed-         (unDocument (toDocument self)))+      (js_getWebkitFullScreenKeyboardInputAllowed (toDocument self))   foreign import javascript unsafe         "$1[\"webkitCurrentFullScreenElement\"]"         js_getWebkitCurrentFullScreenElement ::-        JSRef Document -> IO (JSRef Element)+        Document -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitCurrentFullScreenElement Mozilla Document.webkitCurrentFullScreenElement documentation>  getWebkitCurrentFullScreenElement ::                                   (MonadIO m, IsDocument self) => self -> m (Maybe Element) getWebkitCurrentFullScreenElement self   = liftIO-      ((js_getWebkitCurrentFullScreenElement-          (unDocument (toDocument self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getWebkitCurrentFullScreenElement (toDocument self)))   foreign import javascript unsafe         "($1[\"webkitFullscreenEnabled\"] ? 1 : 0)"-        js_getWebkitFullscreenEnabled :: JSRef Document -> IO Bool+        js_getWebkitFullscreenEnabled :: Document -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenEnabled Mozilla Document.webkitFullscreenEnabled documentation>  getWebkitFullscreenEnabled ::                            (MonadIO m, IsDocument self) => self -> m Bool getWebkitFullscreenEnabled self-  = liftIO-      (js_getWebkitFullscreenEnabled (unDocument (toDocument self)))+  = liftIO (js_getWebkitFullscreenEnabled (toDocument self))   foreign import javascript unsafe "$1[\"webkitFullscreenElement\"]"-        js_getWebkitFullscreenElement ::-        JSRef Document -> IO (JSRef Element)+        js_getWebkitFullscreenElement :: Document -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.webkitFullscreenElement Mozilla Document.webkitFullscreenElement documentation>  getWebkitFullscreenElement ::                            (MonadIO m, IsDocument self) => self -> m (Maybe Element) getWebkitFullscreenElement self   = liftIO-      ((js_getWebkitFullscreenElement (unDocument (toDocument self))) >>=-         fromJSRef)+      (nullableToMaybe <$>+         (js_getWebkitFullscreenElement (toDocument self)))   foreign import javascript unsafe "$1[\"pointerLockElement\"]"-        js_getPointerLockElement :: JSRef Document -> IO (JSRef Element)+        js_getPointerLockElement :: Document -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.pointerLockElement Mozilla Document.pointerLockElement documentation>  getPointerLockElement ::                       (MonadIO m, IsDocument self) => self -> m (Maybe Element) getPointerLockElement self   = liftIO-      ((js_getPointerLockElement (unDocument (toDocument self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getPointerLockElement (toDocument self)))   foreign import javascript unsafe "$1[\"fonts\"]" js_getFonts ::-        JSRef Document -> IO (JSRef FontLoader)+        Document -> IO (Nullable FontLoader)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.fonts Mozilla Document.fonts documentation>  getFonts ::          (MonadIO m, IsDocument self) => self -> m (Maybe FontLoader) getFonts self-  = liftIO-      ((js_getFonts (unDocument (toDocument self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getFonts (toDocument self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.onabort Mozilla Document.onabort documentation>  abort ::@@ -1606,7 +1517,7 @@   = unsafeEventName (toJSString "webkitwillrevealtop")   foreign import javascript unsafe "$1[\"visibilityState\"]"-        js_getVisibilityState :: JSRef Document -> IO JSString+        js_getVisibilityState :: Document -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.visibilityState Mozilla Document.visibilityState documentation>  getVisibilityState ::@@ -1614,47 +1525,41 @@                      self -> m result getVisibilityState self   = liftIO-      (fromJSString <$>-         (js_getVisibilityState (unDocument (toDocument self))))+      (fromJSString <$> (js_getVisibilityState (toDocument self)))   foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"-        js_getHidden :: JSRef Document -> IO Bool+        js_getHidden :: Document -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.hidden Mozilla Document.hidden documentation>  getHidden :: (MonadIO m, IsDocument self) => self -> m Bool-getHidden self-  = liftIO (js_getHidden (unDocument (toDocument self)))+getHidden self = liftIO (js_getHidden (toDocument self))   foreign import javascript unsafe "$1[\"securityPolicy\"]"-        js_getSecurityPolicy :: JSRef Document -> IO (JSRef SecurityPolicy)+        js_getSecurityPolicy :: Document -> IO (Nullable SecurityPolicy)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.securityPolicy Mozilla Document.securityPolicy documentation>  getSecurityPolicy ::                   (MonadIO m, IsDocument self) => self -> m (Maybe SecurityPolicy) getSecurityPolicy self   = liftIO-      ((js_getSecurityPolicy (unDocument (toDocument self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getSecurityPolicy (toDocument self)))   foreign import javascript unsafe "$1[\"currentScript\"]"-        js_getCurrentScript ::-        JSRef Document -> IO (JSRef HTMLScriptElement)+        js_getCurrentScript :: Document -> IO (Nullable HTMLScriptElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.currentScript Mozilla Document.currentScript documentation>  getCurrentScript ::                  (MonadIO m, IsDocument self) => self -> m (Maybe HTMLScriptElement) getCurrentScript self   = liftIO-      ((js_getCurrentScript (unDocument (toDocument self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getCurrentScript (toDocument self)))   foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::-        JSRef Document -> IO JSString+        Document -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Document.origin Mozilla Document.origin documentation>  getOrigin ::           (MonadIO m, IsDocument self, FromJSString result) =>             self -> m result getOrigin self-  = liftIO-      (fromJSString <$> (js_getOrigin (unDocument (toDocument self))))+  = liftIO (fromJSString <$> (js_getOrigin (toDocument self)))
src/GHCJS/DOM/JSFFI/Generated/DocumentFragment.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,16 +21,15 @@   foreign import javascript unsafe         "new window[\"DocumentFragment\"]()" js_newDocumentFragment ::-        IO (JSRef DocumentFragment)+        IO DocumentFragment  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment Mozilla DocumentFragment documentation>  newDocumentFragment :: (MonadIO m) => m DocumentFragment-newDocumentFragment-  = liftIO (js_newDocumentFragment >>= fromJSRefUnchecked)+newDocumentFragment = liftIO (js_newDocumentFragment)   foreign import javascript unsafe "$1[\"querySelector\"]($2)"         js_querySelector ::-        JSRef DocumentFragment -> JSString -> IO (JSRef Element)+        DocumentFragment -> JSString -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelector Mozilla DocumentFragment.querySelector documentation>  querySelector ::@@ -38,13 +37,12 @@                 DocumentFragment -> selectors -> m (Maybe Element) querySelector self selectors   = liftIO-      ((js_querySelector (unDocumentFragment self)-          (toJSString selectors))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_querySelector (self) (toJSString selectors)))   foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"         js_querySelectorAll ::-        JSRef DocumentFragment -> JSString -> IO (JSRef NodeList)+        DocumentFragment -> JSString -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentFragment.querySelectorAll Mozilla DocumentFragment.querySelectorAll documentation>  querySelectorAll ::@@ -52,6 +50,5 @@                    DocumentFragment -> selectors -> m (Maybe NodeList) querySelectorAll self selectors   = liftIO-      ((js_querySelectorAll (unDocumentFragment self)-          (toJSString selectors))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_querySelectorAll (self) (toJSString selectors)))
src/GHCJS/DOM/JSFFI/Generated/DocumentType.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,63 +21,57 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef DocumentType -> IO JSString+        DocumentType -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.name Mozilla DocumentType.name documentation>  getName ::         (MonadIO m, FromJSString result) => DocumentType -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unDocumentType self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"entities\"]" js_getEntities-        :: JSRef DocumentType -> IO (JSRef NamedNodeMap)+        :: DocumentType -> IO (Nullable NamedNodeMap)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.entities Mozilla DocumentType.entities documentation>  getEntities ::             (MonadIO m) => DocumentType -> m (Maybe NamedNodeMap) getEntities self-  = liftIO ((js_getEntities (unDocumentType self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getEntities (self)))   foreign import javascript unsafe "$1[\"notations\"]"-        js_getNotations :: JSRef DocumentType -> IO (JSRef NamedNodeMap)+        js_getNotations :: DocumentType -> IO (Nullable NamedNodeMap)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.notations Mozilla DocumentType.notations documentation>  getNotations ::              (MonadIO m) => DocumentType -> m (Maybe NamedNodeMap) getNotations self-  = liftIO ((js_getNotations (unDocumentType self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getNotations (self)))   foreign import javascript unsafe "$1[\"publicId\"]" js_getPublicId-        :: JSRef DocumentType -> IO (JSRef (Maybe JSString))+        :: DocumentType -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.publicId Mozilla DocumentType.publicId documentation>  getPublicId ::             (MonadIO m, FromJSString result) =>               DocumentType -> m (Maybe result) getPublicId self-  = liftIO-      (fromMaybeJSString <$> (js_getPublicId (unDocumentType self)))+  = liftIO (fromMaybeJSString <$> (js_getPublicId (self)))   foreign import javascript unsafe "$1[\"systemId\"]" js_getSystemId-        :: JSRef DocumentType -> IO (JSRef (Maybe JSString))+        :: DocumentType -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.systemId Mozilla DocumentType.systemId documentation>  getSystemId ::             (MonadIO m, FromJSString result) =>               DocumentType -> m (Maybe result) getSystemId self-  = liftIO-      (fromMaybeJSString <$> (js_getSystemId (unDocumentType self)))+  = liftIO (fromMaybeJSString <$> (js_getSystemId (self)))   foreign import javascript unsafe "$1[\"internalSubset\"]"-        js_getInternalSubset ::-        JSRef DocumentType -> IO (JSRef (Maybe JSString))+        js_getInternalSubset :: DocumentType -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DocumentType.internalSubset Mozilla DocumentType.internalSubset documentation>  getInternalSubset ::                   (MonadIO m, FromJSString result) =>                     DocumentType -> m (Maybe result) getInternalSubset self-  = liftIO-      (fromMaybeJSString <$>-         (js_getInternalSubset (unDocumentType self)))+  = liftIO (fromMaybeJSString <$> (js_getInternalSubset (self)))
src/GHCJS/DOM/JSFFI/Generated/DynamicsCompressorNode.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,62 +22,53 @@   foreign import javascript unsafe "$1[\"threshold\"]"         js_getThreshold ::-        JSRef DynamicsCompressorNode -> IO (JSRef AudioParam)+        DynamicsCompressorNode -> IO (Nullable AudioParam)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.threshold Mozilla DynamicsCompressorNode.threshold documentation>  getThreshold ::              (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam) getThreshold self-  = liftIO-      ((js_getThreshold (unDynamicsCompressorNode self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getThreshold (self)))   foreign import javascript unsafe "$1[\"knee\"]" js_getKnee ::-        JSRef DynamicsCompressorNode -> IO (JSRef AudioParam)+        DynamicsCompressorNode -> IO (Nullable AudioParam)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.knee Mozilla DynamicsCompressorNode.knee documentation>  getKnee ::         (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam)-getKnee self-  = liftIO-      ((js_getKnee (unDynamicsCompressorNode self)) >>= fromJSRef)+getKnee self = liftIO (nullableToMaybe <$> (js_getKnee (self)))   foreign import javascript unsafe "$1[\"ratio\"]" js_getRatio ::-        JSRef DynamicsCompressorNode -> IO (JSRef AudioParam)+        DynamicsCompressorNode -> IO (Nullable AudioParam)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.ratio Mozilla DynamicsCompressorNode.ratio documentation>  getRatio ::          (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam)-getRatio self-  = liftIO-      ((js_getRatio (unDynamicsCompressorNode self)) >>= fromJSRef)+getRatio self = liftIO (nullableToMaybe <$> (js_getRatio (self)))   foreign import javascript unsafe "$1[\"reduction\"]"         js_getReduction ::-        JSRef DynamicsCompressorNode -> IO (JSRef AudioParam)+        DynamicsCompressorNode -> IO (Nullable AudioParam)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.reduction Mozilla DynamicsCompressorNode.reduction documentation>  getReduction ::              (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam) getReduction self-  = liftIO-      ((js_getReduction (unDynamicsCompressorNode self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getReduction (self)))   foreign import javascript unsafe "$1[\"attack\"]" js_getAttack ::-        JSRef DynamicsCompressorNode -> IO (JSRef AudioParam)+        DynamicsCompressorNode -> IO (Nullable AudioParam)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.attack Mozilla DynamicsCompressorNode.attack documentation>  getAttack ::           (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam)-getAttack self-  = liftIO-      ((js_getAttack (unDynamicsCompressorNode self)) >>= fromJSRef)+getAttack self = liftIO (nullableToMaybe <$> (js_getAttack (self)))   foreign import javascript unsafe "$1[\"release\"]" js_getRelease ::-        JSRef DynamicsCompressorNode -> IO (JSRef AudioParam)+        DynamicsCompressorNode -> IO (Nullable AudioParam)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/DynamicsCompressorNode.release Mozilla DynamicsCompressorNode.release documentation>  getRelease ::            (MonadIO m) => DynamicsCompressorNode -> m (Maybe AudioParam) getRelease self-  = liftIO-      ((js_getRelease (unDynamicsCompressorNode self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getRelease (self)))
src/GHCJS/DOM/JSFFI/Generated/EXTBlendMinMax.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))
src/GHCJS/DOM/JSFFI/Generated/EXTTextureFilterAnisotropic.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))
src/GHCJS/DOM/JSFFI/Generated/EXTsRGB.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))
src/GHCJS/DOM/JSFFI/Generated/Element.hs view
@@ -59,7 +59,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -73,8 +73,7 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"getAttribute\"]($2)"-        js_getAttribute ::-        JSRef Element -> JSString -> IO (JSRef (Maybe JSString))+        js_getAttribute :: Element -> JSString -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttribute Mozilla Element.getAttribute documentation>  getAttribute ::@@ -84,10 +83,10 @@ getAttribute self name   = liftIO       (fromMaybeJSString <$>-         (js_getAttribute (unElement (toElement self)) (toJSString name)))+         (js_getAttribute (toElement self) (toJSString name)))   foreign import javascript unsafe "$1[\"setAttribute\"]($2, $3)"-        js_setAttribute :: JSRef Element -> JSString -> JSString -> IO ()+        js_setAttribute :: Element -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttribute Mozilla Element.setAttribute documentation>  setAttribute ::@@ -95,22 +94,21 @@                self -> name -> value -> m () setAttribute self name value   = liftIO-      (js_setAttribute (unElement (toElement self)) (toJSString name)+      (js_setAttribute (toElement self) (toJSString name)          (toJSString value))   foreign import javascript unsafe "$1[\"removeAttribute\"]($2)"-        js_removeAttribute :: JSRef Element -> JSString -> IO ()+        js_removeAttribute :: Element -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttribute Mozilla Element.removeAttribute documentation>  removeAttribute ::                 (MonadIO m, IsElement self, ToJSString name) =>                   self -> name -> m () removeAttribute self name-  = liftIO-      (js_removeAttribute (unElement (toElement self)) (toJSString name))+  = liftIO (js_removeAttribute (toElement self) (toJSString name))   foreign import javascript unsafe "$1[\"getAttributeNode\"]($2)"-        js_getAttributeNode :: JSRef Element -> JSString -> IO (JSRef Attr)+        js_getAttributeNode :: Element -> JSString -> IO (Nullable Attr)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNode Mozilla Element.getAttributeNode documentation>  getAttributeNode ::@@ -118,39 +116,37 @@                    self -> name -> m (Maybe Attr) getAttributeNode self name   = liftIO-      ((js_getAttributeNode (unElement (toElement self))-          (toJSString name))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getAttributeNode (toElement self) (toJSString name)))   foreign import javascript unsafe "$1[\"setAttributeNode\"]($2)"         js_setAttributeNode ::-        JSRef Element -> JSRef Attr -> IO (JSRef Attr)+        Element -> Nullable Attr -> IO (Nullable Attr)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNode Mozilla Element.setAttributeNode documentation>  setAttributeNode ::                  (MonadIO m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr) setAttributeNode self newAttr   = liftIO-      ((js_setAttributeNode (unElement (toElement self))-          (maybe jsNull pToJSRef newAttr))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_setAttributeNode (toElement self) (maybeToNullable newAttr)))   foreign import javascript unsafe "$1[\"removeAttributeNode\"]($2)"         js_removeAttributeNode ::-        JSRef Element -> JSRef Attr -> IO (JSRef Attr)+        Element -> Nullable Attr -> IO (Nullable Attr)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNode Mozilla Element.removeAttributeNode documentation>  removeAttributeNode ::                     (MonadIO m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr) removeAttributeNode self oldAttr   = liftIO-      ((js_removeAttributeNode (unElement (toElement self))-          (maybe jsNull pToJSRef oldAttr))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_removeAttributeNode (toElement self)+            (maybeToNullable oldAttr)))   foreign import javascript unsafe "$1[\"getElementsByTagName\"]($2)"         js_getElementsByTagName ::-        JSRef Element -> JSString -> IO (JSRef NodeList)+        Element -> JSString -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagName Mozilla Element.getElementsByTagName documentation>  getElementsByTagName ::@@ -158,22 +154,20 @@                        self -> name -> m (Maybe NodeList) getElementsByTagName self name   = liftIO-      ((js_getElementsByTagName (unElement (toElement self))-          (toJSString name))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getElementsByTagName (toElement self) (toJSString name)))   foreign import javascript unsafe         "($1[\"hasAttributes\"]() ? 1 : 0)" js_hasAttributes ::-        JSRef Element -> IO Bool+        Element -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributes Mozilla Element.hasAttributes documentation>  hasAttributes :: (MonadIO m, IsElement self) => self -> m Bool-hasAttributes self-  = liftIO (js_hasAttributes (unElement (toElement self)))+hasAttributes self = liftIO (js_hasAttributes (toElement self))   foreign import javascript unsafe "$1[\"getAttributeNS\"]($2, $3)"         js_getAttributeNS ::-        JSRef Element -> JSRef (Maybe JSString) -> JSString -> IO JSString+        Element -> Nullable JSString -> JSString -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNS Mozilla Element.getAttributeNS documentation>  getAttributeNS ::@@ -183,14 +177,12 @@ getAttributeNS self namespaceURI localName   = liftIO       (fromJSString <$>-         (js_getAttributeNS (unElement (toElement self))-            (toMaybeJSString namespaceURI)+         (js_getAttributeNS (toElement self) (toMaybeJSString namespaceURI)             (toJSString localName)))   foreign import javascript unsafe         "$1[\"setAttributeNS\"]($2, $3, $4)" js_setAttributeNS ::-        JSRef Element ->-          JSRef (Maybe JSString) -> JSString -> JSString -> IO ()+        Element -> Nullable JSString -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNS Mozilla Element.setAttributeNS documentation>  setAttributeNS ::@@ -199,14 +191,13 @@                  self -> Maybe namespaceURI -> qualifiedName -> value -> m () setAttributeNS self namespaceURI qualifiedName value   = liftIO-      (js_setAttributeNS (unElement (toElement self))-         (toMaybeJSString namespaceURI)+      (js_setAttributeNS (toElement self) (toMaybeJSString namespaceURI)          (toJSString qualifiedName)          (toJSString value))   foreign import javascript unsafe         "$1[\"removeAttributeNS\"]($2, $3)" js_removeAttributeNS ::-        JSRef Element -> JSRef (Maybe JSString) -> JSString -> IO ()+        Element -> Nullable JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.removeAttributeNS Mozilla Element.removeAttributeNS documentation>  removeAttributeNS ::@@ -215,15 +206,14 @@                     self -> Maybe namespaceURI -> localName -> m () removeAttributeNS self namespaceURI localName   = liftIO-      (js_removeAttributeNS (unElement (toElement self))+      (js_removeAttributeNS (toElement self)          (toMaybeJSString namespaceURI)          (toJSString localName))   foreign import javascript unsafe         "$1[\"getElementsByTagNameNS\"]($2,\n$3)" js_getElementsByTagNameNS         ::-        JSRef Element ->-          JSRef (Maybe JSString) -> JSString -> IO (JSRef NodeList)+        Element -> Nullable JSString -> JSString -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByTagNameNS Mozilla Element.getElementsByTagNameNS documentation>  getElementsByTagNameNS ::@@ -232,15 +222,14 @@                          self -> Maybe namespaceURI -> localName -> m (Maybe NodeList) getElementsByTagNameNS self namespaceURI localName   = liftIO-      ((js_getElementsByTagNameNS (unElement (toElement self))-          (toMaybeJSString namespaceURI)-          (toJSString localName))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getElementsByTagNameNS (toElement self)+            (toMaybeJSString namespaceURI)+            (toJSString localName)))   foreign import javascript unsafe         "$1[\"getAttributeNodeNS\"]($2, $3)" js_getAttributeNodeNS ::-        JSRef Element ->-          JSRef (Maybe JSString) -> JSString -> IO (JSRef Attr)+        Element -> Nullable JSString -> JSString -> IO (Nullable Attr)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getAttributeNodeNS Mozilla Element.getAttributeNodeNS documentation>  getAttributeNodeNS ::@@ -249,39 +238,37 @@                      self -> Maybe namespaceURI -> localName -> m (Maybe Attr) getAttributeNodeNS self namespaceURI localName   = liftIO-      ((js_getAttributeNodeNS (unElement (toElement self))-          (toMaybeJSString namespaceURI)-          (toJSString localName))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getAttributeNodeNS (toElement self)+            (toMaybeJSString namespaceURI)+            (toJSString localName)))   foreign import javascript unsafe "$1[\"setAttributeNodeNS\"]($2)"         js_setAttributeNodeNS ::-        JSRef Element -> JSRef Attr -> IO (JSRef Attr)+        Element -> Nullable Attr -> IO (Nullable Attr)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.setAttributeNodeNS Mozilla Element.setAttributeNodeNS documentation>  setAttributeNodeNS ::                    (MonadIO m, IsElement self) => self -> Maybe Attr -> m (Maybe Attr) setAttributeNodeNS self newAttr   = liftIO-      ((js_setAttributeNodeNS (unElement (toElement self))-          (maybe jsNull pToJSRef newAttr))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_setAttributeNodeNS (toElement self) (maybeToNullable newAttr)))   foreign import javascript unsafe         "($1[\"hasAttribute\"]($2) ? 1 : 0)" js_hasAttribute ::-        JSRef Element -> JSString -> IO Bool+        Element -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttribute Mozilla Element.hasAttribute documentation>  hasAttribute ::              (MonadIO m, IsElement self, ToJSString name) =>                self -> name -> m Bool hasAttribute self name-  = liftIO-      (js_hasAttribute (unElement (toElement self)) (toJSString name))+  = liftIO (js_hasAttribute (toElement self) (toJSString name))   foreign import javascript unsafe         "($1[\"hasAttributeNS\"]($2,\n$3) ? 1 : 0)" js_hasAttributeNS ::-        JSRef Element -> JSRef (Maybe JSString) -> JSString -> IO Bool+        Element -> Nullable JSString -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.hasAttributeNS Mozilla Element.hasAttributeNS documentation>  hasAttributeNS ::@@ -290,65 +277,62 @@                  self -> Maybe namespaceURI -> localName -> m Bool hasAttributeNS self namespaceURI localName   = liftIO-      (js_hasAttributeNS (unElement (toElement self))-         (toMaybeJSString namespaceURI)+      (js_hasAttributeNS (toElement self) (toMaybeJSString namespaceURI)          (toJSString localName))   foreign import javascript unsafe "$1[\"focus\"]()" js_focus ::-        JSRef Element -> IO ()+        Element -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.focus Mozilla Element.focus documentation>  focus :: (MonadIO m, IsElement self) => self -> m ()-focus self = liftIO (js_focus (unElement (toElement self)))+focus self = liftIO (js_focus (toElement self))   foreign import javascript unsafe "$1[\"blur\"]()" js_blur ::-        JSRef Element -> IO ()+        Element -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.blur Mozilla Element.blur documentation>  blur :: (MonadIO m, IsElement self) => self -> m ()-blur self = liftIO (js_blur (unElement (toElement self)))+blur self = liftIO (js_blur (toElement self))   foreign import javascript unsafe "$1[\"scrollIntoView\"]($2)"-        js_scrollIntoView :: JSRef Element -> Bool -> IO ()+        js_scrollIntoView :: Element -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollIntoView Mozilla Element.scrollIntoView documentation>  scrollIntoView ::                (MonadIO m, IsElement self) => self -> Bool -> m () scrollIntoView self alignWithTop-  = liftIO-      (js_scrollIntoView (unElement (toElement self)) alignWithTop)+  = liftIO (js_scrollIntoView (toElement self) alignWithTop)   foreign import javascript unsafe         "$1[\"scrollIntoViewIfNeeded\"]($2)" js_scrollIntoViewIfNeeded ::-        JSRef Element -> Bool -> IO ()+        Element -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollIntoViewIfNeeded Mozilla Element.scrollIntoViewIfNeeded documentation>  scrollIntoViewIfNeeded ::                        (MonadIO m, IsElement self) => self -> Bool -> m () scrollIntoViewIfNeeded self centerIfNeeded   = liftIO-      (js_scrollIntoViewIfNeeded (unElement (toElement self))-         centerIfNeeded)+      (js_scrollIntoViewIfNeeded (toElement self) centerIfNeeded)   foreign import javascript unsafe "$1[\"scrollByLines\"]($2)"-        js_scrollByLines :: JSRef Element -> Int -> IO ()+        js_scrollByLines :: Element -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollByLines Mozilla Element.scrollByLines documentation>  scrollByLines :: (MonadIO m, IsElement self) => self -> Int -> m () scrollByLines self lines-  = liftIO (js_scrollByLines (unElement (toElement self)) lines)+  = liftIO (js_scrollByLines (toElement self) lines)   foreign import javascript unsafe "$1[\"scrollByPages\"]($2)"-        js_scrollByPages :: JSRef Element -> Int -> IO ()+        js_scrollByPages :: Element -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollByPages Mozilla Element.scrollByPages documentation>  scrollByPages :: (MonadIO m, IsElement self) => self -> Int -> m () scrollByPages self pages-  = liftIO (js_scrollByPages (unElement (toElement self)) pages)+  = liftIO (js_scrollByPages (toElement self) pages)   foreign import javascript unsafe         "$1[\"getElementsByClassName\"]($2)" js_getElementsByClassName ::-        JSRef Element -> JSString -> IO (JSRef NodeList)+        Element -> JSString -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getElementsByClassName Mozilla Element.getElementsByClassName documentation>  getElementsByClassName ::@@ -356,12 +340,11 @@                          self -> name -> m (Maybe NodeList) getElementsByClassName self name   = liftIO-      ((js_getElementsByClassName (unElement (toElement self))-          (toJSString name))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getElementsByClassName (toElement self) (toJSString name)))   foreign import javascript unsafe "$1[\"querySelector\"]($2)"-        js_querySelector :: JSRef Element -> JSString -> IO (JSRef Element)+        js_querySelector :: Element -> JSString -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelector Mozilla Element.querySelector documentation>  querySelector ::@@ -369,13 +352,12 @@                 self -> selectors -> m (Maybe Element) querySelector self selectors   = liftIO-      ((js_querySelector (unElement (toElement self))-          (toJSString selectors))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_querySelector (toElement self) (toJSString selectors)))   foreign import javascript unsafe "$1[\"querySelectorAll\"]($2)"         js_querySelectorAll ::-        JSRef Element -> JSString -> IO (JSRef NodeList)+        Element -> JSString -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.querySelectorAll Mozilla Element.querySelectorAll documentation>  querySelectorAll ::@@ -383,23 +365,21 @@                    self -> selectors -> m (Maybe NodeList) querySelectorAll self selectors   = liftIO-      ((js_querySelectorAll (unElement (toElement self))-          (toJSString selectors))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_querySelectorAll (toElement self) (toJSString selectors)))   foreign import javascript unsafe "($1[\"matches\"]($2) ? 1 : 0)"-        js_matches :: JSRef Element -> JSString -> IO Bool+        js_matches :: Element -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.matches Mozilla Element.matches documentation>  matches ::         (MonadIO m, IsElement self, ToJSString selectors) =>           self -> selectors -> m Bool matches self selectors-  = liftIO-      (js_matches (unElement (toElement self)) (toJSString selectors))+  = liftIO (js_matches (toElement self) (toJSString selectors))   foreign import javascript unsafe "$1[\"closest\"]($2)" js_closest-        :: JSRef Element -> JSString -> IO (JSRef Element)+        :: Element -> JSString -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.closest Mozilla Element.closest documentation>  closest ::@@ -407,12 +387,12 @@           self -> selectors -> m (Maybe Element) closest self selectors   = liftIO-      ((js_closest (unElement (toElement self)) (toJSString selectors))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_closest (toElement self) (toJSString selectors)))   foreign import javascript unsafe         "($1[\"webkitMatchesSelector\"]($2) ? 1 : 0)"-        js_webkitMatchesSelector :: JSRef Element -> JSString -> IO Bool+        js_webkitMatchesSelector :: Element -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitMatchesSelector Mozilla Element.webkitMatchesSelector documentation>  webkitMatchesSelector ::@@ -420,410 +400,373 @@                         self -> selectors -> m Bool webkitMatchesSelector self selectors   = liftIO-      (js_webkitMatchesSelector (unElement (toElement self))-         (toJSString selectors))+      (js_webkitMatchesSelector (toElement self) (toJSString selectors))   foreign import javascript unsafe "$1[\"getClientRects\"]()"-        js_getClientRects :: JSRef Element -> IO (JSRef ClientRectList)+        js_getClientRects :: Element -> IO (Nullable ClientRectList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getClientRects Mozilla Element.getClientRects documentation>  getClientRects ::                (MonadIO m, IsElement self) => self -> m (Maybe ClientRectList) getClientRects self-  = liftIO-      ((js_getClientRects (unElement (toElement self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getClientRects (toElement self)))   foreign import javascript unsafe "$1[\"getBoundingClientRect\"]()"-        js_getBoundingClientRect :: JSRef Element -> IO (JSRef ClientRect)+        js_getBoundingClientRect :: Element -> IO (Nullable ClientRect)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.getBoundingClientRect Mozilla Element.getBoundingClientRect documentation>  getBoundingClientRect ::                       (MonadIO m, IsElement self) => self -> m (Maybe ClientRect) getBoundingClientRect self   = liftIO-      ((js_getBoundingClientRect (unElement (toElement self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getBoundingClientRect (toElement self)))   foreign import javascript unsafe         "$1[\"webkitRequestFullScreen\"]($2)" js_webkitRequestFullScreen ::-        JSRef Element -> Word -> IO ()+        Element -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRequestFullScreen Mozilla Element.webkitRequestFullScreen documentation>  webkitRequestFullScreen ::                         (MonadIO m, IsElement self) => self -> Word -> m () webkitRequestFullScreen self flags-  = liftIO-      (js_webkitRequestFullScreen (unElement (toElement self)) flags)+  = liftIO (js_webkitRequestFullScreen (toElement self) flags)   foreign import javascript unsafe         "$1[\"webkitRequestFullscreen\"]()" js_webkitRequestFullscreen ::-        JSRef Element -> IO ()+        Element -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRequestFullscreen Mozilla Element.webkitRequestFullscreen documentation>  webkitRequestFullscreen ::                         (MonadIO m, IsElement self) => self -> m () webkitRequestFullscreen self-  = liftIO (js_webkitRequestFullscreen (unElement (toElement self)))+  = liftIO (js_webkitRequestFullscreen (toElement self))   foreign import javascript unsafe "$1[\"requestPointerLock\"]()"-        js_requestPointerLock :: JSRef Element -> IO ()+        js_requestPointerLock :: Element -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.requestPointerLock Mozilla Element.requestPointerLock documentation>  requestPointerLock :: (MonadIO m, IsElement self) => self -> m () requestPointerLock self-  = liftIO (js_requestPointerLock (unElement (toElement self)))+  = liftIO (js_requestPointerLock (toElement self))   foreign import javascript unsafe         "$1[\"webkitGetRegionFlowRanges\"]()" js_webkitGetRegionFlowRanges-        :: JSRef Element -> IO (JSRef [Maybe Range])+        :: Element -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitGetRegionFlowRanges Mozilla Element.webkitGetRegionFlowRanges documentation>  webkitGetRegionFlowRanges ::                           (MonadIO m, IsElement self) => self -> m [Maybe Range] webkitGetRegionFlowRanges self   = liftIO-      ((js_webkitGetRegionFlowRanges (unElement (toElement self))) >>=+      ((js_webkitGetRegionFlowRanges (toElement self)) >>=          fromJSRefUnchecked) pattern ALLOW_KEYBOARD_INPUT = 1   foreign import javascript unsafe "$1[\"tagName\"]" js_getTagName ::-        JSRef Element -> IO (JSRef (Maybe JSString))+        Element -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.tagName Mozilla Element.tagName documentation>  getTagName ::            (MonadIO m, IsElement self, FromJSString result) =>              self -> m (Maybe result) getTagName self-  = liftIO-      (fromMaybeJSString <$>-         (js_getTagName (unElement (toElement self))))+  = liftIO (fromMaybeJSString <$> (js_getTagName (toElement self)))   foreign import javascript unsafe "$1[\"attributes\"]"-        js_getAttributes :: JSRef Element -> IO (JSRef NamedNodeMap)+        js_getAttributes :: Element -> IO (Nullable NamedNodeMap)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.attributes Mozilla Element.attributes documentation>  getAttributes ::               (MonadIO m, IsElement self) => self -> m (Maybe NamedNodeMap) getAttributes self-  = liftIO-      ((js_getAttributes (unElement (toElement self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAttributes (toElement self)))   foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::-        JSRef Element -> IO (JSRef CSSStyleDeclaration)+        Element -> IO (Nullable CSSStyleDeclaration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.style Mozilla Element.style documentation>  getStyle ::          (MonadIO m, IsElement self) =>            self -> m (Maybe CSSStyleDeclaration) getStyle self-  = liftIO ((js_getStyle (unElement (toElement self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getStyle (toElement self)))   foreign import javascript unsafe "$1[\"id\"] = $2;" js_setId ::-        JSRef Element -> JSString -> IO ()+        Element -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.id Mozilla Element.id documentation>  setId ::       (MonadIO m, IsElement self, ToJSString val) => self -> val -> m () setId self val-  = liftIO (js_setId (unElement (toElement self)) (toJSString val))+  = liftIO (js_setId (toElement self) (toJSString val))   foreign import javascript unsafe "$1[\"id\"]" js_getId ::-        JSRef Element -> IO JSString+        Element -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.id Mozilla Element.id documentation>  getId ::       (MonadIO m, IsElement self, FromJSString result) =>         self -> m result-getId self-  = liftIO (fromJSString <$> (js_getId (unElement (toElement self))))+getId self = liftIO (fromJSString <$> (js_getId (toElement self)))   foreign import javascript unsafe "$1[\"offsetLeft\"]"-        js_getOffsetLeft :: JSRef Element -> IO Double+        js_getOffsetLeft :: Element -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetLeft Mozilla Element.offsetLeft documentation>  getOffsetLeft :: (MonadIO m, IsElement self) => self -> m Double-getOffsetLeft self-  = liftIO (js_getOffsetLeft (unElement (toElement self)))+getOffsetLeft self = liftIO (js_getOffsetLeft (toElement self))   foreign import javascript unsafe "$1[\"offsetTop\"]"-        js_getOffsetTop :: JSRef Element -> IO Double+        js_getOffsetTop :: Element -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetTop Mozilla Element.offsetTop documentation>  getOffsetTop :: (MonadIO m, IsElement self) => self -> m Double-getOffsetTop self-  = liftIO (js_getOffsetTop (unElement (toElement self)))+getOffsetTop self = liftIO (js_getOffsetTop (toElement self))   foreign import javascript unsafe "$1[\"offsetWidth\"]"-        js_getOffsetWidth :: JSRef Element -> IO Double+        js_getOffsetWidth :: Element -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetWidth Mozilla Element.offsetWidth documentation>  getOffsetWidth :: (MonadIO m, IsElement self) => self -> m Double-getOffsetWidth self-  = liftIO (js_getOffsetWidth (unElement (toElement self)))+getOffsetWidth self = liftIO (js_getOffsetWidth (toElement self))   foreign import javascript unsafe "$1[\"offsetHeight\"]"-        js_getOffsetHeight :: JSRef Element -> IO Double+        js_getOffsetHeight :: Element -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetHeight Mozilla Element.offsetHeight documentation>  getOffsetHeight :: (MonadIO m, IsElement self) => self -> m Double-getOffsetHeight self-  = liftIO (js_getOffsetHeight (unElement (toElement self)))+getOffsetHeight self = liftIO (js_getOffsetHeight (toElement self))   foreign import javascript unsafe "$1[\"clientLeft\"]"-        js_getClientLeft :: JSRef Element -> IO Double+        js_getClientLeft :: Element -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientLeft Mozilla Element.clientLeft documentation>  getClientLeft :: (MonadIO m, IsElement self) => self -> m Double-getClientLeft self-  = liftIO (js_getClientLeft (unElement (toElement self)))+getClientLeft self = liftIO (js_getClientLeft (toElement self))   foreign import javascript unsafe "$1[\"clientTop\"]"-        js_getClientTop :: JSRef Element -> IO Double+        js_getClientTop :: Element -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientTop Mozilla Element.clientTop documentation>  getClientTop :: (MonadIO m, IsElement self) => self -> m Double-getClientTop self-  = liftIO (js_getClientTop (unElement (toElement self)))+getClientTop self = liftIO (js_getClientTop (toElement self))   foreign import javascript unsafe "$1[\"clientWidth\"]"-        js_getClientWidth :: JSRef Element -> IO Double+        js_getClientWidth :: Element -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientWidth Mozilla Element.clientWidth documentation>  getClientWidth :: (MonadIO m, IsElement self) => self -> m Double-getClientWidth self-  = liftIO (js_getClientWidth (unElement (toElement self)))+getClientWidth self = liftIO (js_getClientWidth (toElement self))   foreign import javascript unsafe "$1[\"clientHeight\"]"-        js_getClientHeight :: JSRef Element -> IO Double+        js_getClientHeight :: Element -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.clientHeight Mozilla Element.clientHeight documentation>  getClientHeight :: (MonadIO m, IsElement self) => self -> m Double-getClientHeight self-  = liftIO (js_getClientHeight (unElement (toElement self)))+getClientHeight self = liftIO (js_getClientHeight (toElement self))   foreign import javascript unsafe "$1[\"scrollLeft\"] = $2;"-        js_setScrollLeft :: JSRef Element -> Int -> IO ()+        js_setScrollLeft :: Element -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollLeft Mozilla Element.scrollLeft documentation>  setScrollLeft :: (MonadIO m, IsElement self) => self -> Int -> m () setScrollLeft self val-  = liftIO (js_setScrollLeft (unElement (toElement self)) val)+  = liftIO (js_setScrollLeft (toElement self) val)   foreign import javascript unsafe "$1[\"scrollLeft\"]"-        js_getScrollLeft :: JSRef Element -> IO Int+        js_getScrollLeft :: Element -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollLeft Mozilla Element.scrollLeft documentation>  getScrollLeft :: (MonadIO m, IsElement self) => self -> m Int-getScrollLeft self-  = liftIO (js_getScrollLeft (unElement (toElement self)))+getScrollLeft self = liftIO (js_getScrollLeft (toElement self))   foreign import javascript unsafe "$1[\"scrollTop\"] = $2;"-        js_setScrollTop :: JSRef Element -> Int -> IO ()+        js_setScrollTop :: Element -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTop Mozilla Element.scrollTop documentation>  setScrollTop :: (MonadIO m, IsElement self) => self -> Int -> m () setScrollTop self val-  = liftIO (js_setScrollTop (unElement (toElement self)) val)+  = liftIO (js_setScrollTop (toElement self) val)   foreign import javascript unsafe "$1[\"scrollTop\"]"-        js_getScrollTop :: JSRef Element -> IO Int+        js_getScrollTop :: Element -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollTop Mozilla Element.scrollTop documentation>  getScrollTop :: (MonadIO m, IsElement self) => self -> m Int-getScrollTop self-  = liftIO (js_getScrollTop (unElement (toElement self)))+getScrollTop self = liftIO (js_getScrollTop (toElement self))   foreign import javascript unsafe "$1[\"scrollWidth\"]"-        js_getScrollWidth :: JSRef Element -> IO Int+        js_getScrollWidth :: Element -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollWidth Mozilla Element.scrollWidth documentation>  getScrollWidth :: (MonadIO m, IsElement self) => self -> m Int-getScrollWidth self-  = liftIO (js_getScrollWidth (unElement (toElement self)))+getScrollWidth self = liftIO (js_getScrollWidth (toElement self))   foreign import javascript unsafe "$1[\"scrollHeight\"]"-        js_getScrollHeight :: JSRef Element -> IO Int+        js_getScrollHeight :: Element -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.scrollHeight Mozilla Element.scrollHeight documentation>  getScrollHeight :: (MonadIO m, IsElement self) => self -> m Int-getScrollHeight self-  = liftIO (js_getScrollHeight (unElement (toElement self)))+getScrollHeight self = liftIO (js_getScrollHeight (toElement self))   foreign import javascript unsafe "$1[\"offsetParent\"]"-        js_getOffsetParent :: JSRef Element -> IO (JSRef Element)+        js_getOffsetParent :: Element -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.offsetParent Mozilla Element.offsetParent documentation>  getOffsetParent ::                 (MonadIO m, IsElement self) => self -> m (Maybe Element) getOffsetParent self   = liftIO-      ((js_getOffsetParent (unElement (toElement self))) >>= fromJSRef)+      (nullableToMaybe <$> (js_getOffsetParent (toElement self)))   foreign import javascript unsafe "$1[\"innerHTML\"] = $2;"-        js_setInnerHTML :: JSRef Element -> JSRef (Maybe JSString) -> IO ()+        js_setInnerHTML :: Element -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation>  setInnerHTML ::              (MonadIO m, IsElement self, ToJSString val) =>                self -> Maybe val -> m () setInnerHTML self val-  = liftIO-      (js_setInnerHTML (unElement (toElement self))-         (toMaybeJSString val))+  = liftIO (js_setInnerHTML (toElement self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"innerHTML\"]"-        js_getInnerHTML :: JSRef Element -> IO (JSRef (Maybe JSString))+        js_getInnerHTML :: Element -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.innerHTML Mozilla Element.innerHTML documentation>  getInnerHTML ::              (MonadIO m, IsElement self, FromJSString result) =>                self -> m (Maybe result) getInnerHTML self-  = liftIO-      (fromMaybeJSString <$>-         (js_getInnerHTML (unElement (toElement self))))+  = liftIO (fromMaybeJSString <$> (js_getInnerHTML (toElement self)))   foreign import javascript unsafe "$1[\"outerHTML\"] = $2;"-        js_setOuterHTML :: JSRef Element -> JSRef (Maybe JSString) -> IO ()+        js_setOuterHTML :: Element -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation>  setOuterHTML ::              (MonadIO m, IsElement self, ToJSString val) =>                self -> Maybe val -> m () setOuterHTML self val-  = liftIO-      (js_setOuterHTML (unElement (toElement self))-         (toMaybeJSString val))+  = liftIO (js_setOuterHTML (toElement self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"outerHTML\"]"-        js_getOuterHTML :: JSRef Element -> IO (JSRef (Maybe JSString))+        js_getOuterHTML :: Element -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.outerHTML Mozilla Element.outerHTML documentation>  getOuterHTML ::              (MonadIO m, IsElement self, FromJSString result) =>                self -> m (Maybe result) getOuterHTML self-  = liftIO-      (fromMaybeJSString <$>-         (js_getOuterHTML (unElement (toElement self))))+  = liftIO (fromMaybeJSString <$> (js_getOuterHTML (toElement self)))   foreign import javascript unsafe "$1[\"className\"] = $2;"-        js_setClassName :: JSRef Element -> JSString -> IO ()+        js_setClassName :: Element -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.className Mozilla Element.className documentation>  setClassName ::              (MonadIO m, IsElement self, ToJSString val) => self -> val -> m () setClassName self val-  = liftIO-      (js_setClassName (unElement (toElement self)) (toJSString val))+  = liftIO (js_setClassName (toElement self) (toJSString val))   foreign import javascript unsafe "$1[\"className\"]"-        js_getClassName :: JSRef Element -> IO JSString+        js_getClassName :: Element -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.className Mozilla Element.className documentation>  getClassName ::              (MonadIO m, IsElement self, FromJSString result) =>                self -> m result getClassName self-  = liftIO-      (fromJSString <$> (js_getClassName (unElement (toElement self))))+  = liftIO (fromJSString <$> (js_getClassName (toElement self)))   foreign import javascript unsafe "$1[\"classList\"]"-        js_getClassList :: JSRef Element -> IO (JSRef DOMTokenList)+        js_getClassList :: Element -> IO (Nullable DOMTokenList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.classList Mozilla Element.classList documentation>  getClassList ::              (MonadIO m, IsElement self) => self -> m (Maybe DOMTokenList) getClassList self-  = liftIO-      ((js_getClassList (unElement (toElement self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getClassList (toElement self)))   foreign import javascript unsafe "$1[\"dataset\"]" js_getDataset ::-        JSRef Element -> IO (JSRef DOMStringMap)+        Element -> IO (Nullable DOMStringMap)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.dataset Mozilla Element.dataset documentation>  getDataset ::            (MonadIO m, IsElement self) => self -> m (Maybe DOMStringMap) getDataset self-  = liftIO-      ((js_getDataset (unElement (toElement self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getDataset (toElement self)))   foreign import javascript unsafe "$1[\"firstElementChild\"]"-        js_getFirstElementChild :: JSRef Element -> IO (JSRef Element)+        js_getFirstElementChild :: Element -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.firstElementChild Mozilla Element.firstElementChild documentation>  getFirstElementChild ::                      (MonadIO m, IsElement self) => self -> m (Maybe Element) getFirstElementChild self   = liftIO-      ((js_getFirstElementChild (unElement (toElement self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getFirstElementChild (toElement self)))   foreign import javascript unsafe "$1[\"lastElementChild\"]"-        js_getLastElementChild :: JSRef Element -> IO (JSRef Element)+        js_getLastElementChild :: Element -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.lastElementChild Mozilla Element.lastElementChild documentation>  getLastElementChild ::                     (MonadIO m, IsElement self) => self -> m (Maybe Element) getLastElementChild self   = liftIO-      ((js_getLastElementChild (unElement (toElement self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getLastElementChild (toElement self)))   foreign import javascript unsafe "$1[\"previousElementSibling\"]"-        js_getPreviousElementSibling :: JSRef Element -> IO (JSRef Element)+        js_getPreviousElementSibling :: Element -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.previousElementSibling Mozilla Element.previousElementSibling documentation>  getPreviousElementSibling ::                           (MonadIO m, IsElement self) => self -> m (Maybe Element) getPreviousElementSibling self   = liftIO-      ((js_getPreviousElementSibling (unElement (toElement self))) >>=-         fromJSRef)+      (nullableToMaybe <$>+         (js_getPreviousElementSibling (toElement self)))   foreign import javascript unsafe "$1[\"nextElementSibling\"]"-        js_getNextElementSibling :: JSRef Element -> IO (JSRef Element)+        js_getNextElementSibling :: Element -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.nextElementSibling Mozilla Element.nextElementSibling documentation>  getNextElementSibling ::                       (MonadIO m, IsElement self) => self -> m (Maybe Element) getNextElementSibling self   = liftIO-      ((js_getNextElementSibling (unElement (toElement self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getNextElementSibling (toElement self)))   foreign import javascript unsafe "$1[\"childElementCount\"]"-        js_getChildElementCount :: JSRef Element -> IO Word+        js_getChildElementCount :: Element -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.childElementCount Mozilla Element.childElementCount documentation>  getChildElementCount ::                      (MonadIO m, IsElement self) => self -> m Word getChildElementCount self-  = liftIO (js_getChildElementCount (unElement (toElement self)))+  = liftIO (js_getChildElementCount (toElement self))   foreign import javascript unsafe "$1[\"uiactions\"] = $2;"-        js_setUiactions :: JSRef Element -> JSString -> IO ()+        js_setUiactions :: Element -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.uiactions Mozilla Element.uiactions documentation>  setUiactions ::              (MonadIO m, IsElement self, ToJSString val) => self -> val -> m () setUiactions self val-  = liftIO-      (js_setUiactions (unElement (toElement self)) (toJSString val))+  = liftIO (js_setUiactions (toElement self) (toJSString val))   foreign import javascript unsafe "$1[\"uiactions\"]"-        js_getUiactions :: JSRef Element -> IO JSString+        js_getUiactions :: Element -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.uiactions Mozilla Element.uiactions documentation>  getUiactions ::              (MonadIO m, IsElement self, FromJSString result) =>                self -> m result getUiactions self-  = liftIO-      (fromJSString <$> (js_getUiactions (unElement (toElement self))))+  = liftIO (fromJSString <$> (js_getUiactions (toElement self)))   foreign import javascript unsafe "$1[\"webkitRegionOverset\"]"-        js_getWebkitRegionOverset :: JSRef Element -> IO JSString+        js_getWebkitRegionOverset :: Element -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.webkitRegionOverset Mozilla Element.webkitRegionOverset documentation>  getWebkitRegionOverset ::@@ -831,8 +774,7 @@                          self -> m result getWebkitRegionOverset self   = liftIO-      (fromJSString <$>-         (js_getWebkitRegionOverset (unElement (toElement self))))+      (fromJSString <$> (js_getWebkitRegionOverset (toElement self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Element.onabort Mozilla Element.onabort documentation>  abort ::
src/GHCJS/DOM/JSFFI/Generated/Entity.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,29 +20,28 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"publicId\"]" js_getPublicId-        :: JSRef Entity -> IO (JSRef (Maybe JSString))+        :: Entity -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.publicId Mozilla Entity.publicId documentation>  getPublicId ::             (MonadIO m, FromJSString result) => Entity -> m (Maybe result) getPublicId self-  = liftIO (fromMaybeJSString <$> (js_getPublicId (unEntity self)))+  = liftIO (fromMaybeJSString <$> (js_getPublicId (self)))   foreign import javascript unsafe "$1[\"systemId\"]" js_getSystemId-        :: JSRef Entity -> IO (JSRef (Maybe JSString))+        :: Entity -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.systemId Mozilla Entity.systemId documentation>  getSystemId ::             (MonadIO m, FromJSString result) => Entity -> m (Maybe result) getSystemId self-  = liftIO (fromMaybeJSString <$> (js_getSystemId (unEntity self)))+  = liftIO (fromMaybeJSString <$> (js_getSystemId (self)))   foreign import javascript unsafe "$1[\"notationName\"]"-        js_getNotationName :: JSRef Entity -> IO (JSRef (Maybe JSString))+        js_getNotationName :: Entity -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Entity.notationName Mozilla Entity.notationName documentation>  getNotationName ::                 (MonadIO m, FromJSString result) => Entity -> m (Maybe result) getNotationName self-  = liftIO-      (fromMaybeJSString <$> (js_getNotationName (unEntity self)))+  = liftIO (fromMaybeJSString <$> (js_getNotationName (self)))
src/GHCJS/DOM/JSFFI/Generated/Enums.hs view
@@ -46,7 +46,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -77,16 +77,16 @@   instance FromJSRef KeyType where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"secret\"" js_KeyTypeSecret ::-        JSRef KeyType+        JSRef   foreign import javascript unsafe "\"public\"" js_KeyTypePublic ::-        JSRef KeyType+        JSRef   foreign import javascript unsafe "\"private\"" js_KeyTypePrivate ::-        JSRef KeyType+        JSRef   data KeyUsage = KeyUsageEncrypt               | KeyUsageDecrypt@@ -123,31 +123,31 @@   instance FromJSRef KeyUsage where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"encrypt\"" js_KeyUsageEncrypt-        :: JSRef KeyUsage+        :: JSRef   foreign import javascript unsafe "\"decrypt\"" js_KeyUsageDecrypt-        :: JSRef KeyUsage+        :: JSRef   foreign import javascript unsafe "\"sign\"" js_KeyUsageSign ::-        JSRef KeyUsage+        JSRef   foreign import javascript unsafe "\"verify\"" js_KeyUsageVerify ::-        JSRef KeyUsage+        JSRef   foreign import javascript unsafe "\"deriveKey\""-        js_KeyUsageDeriveKey :: JSRef KeyUsage+        js_KeyUsageDeriveKey :: JSRef   foreign import javascript unsafe "\"deriveBits\""-        js_KeyUsageDeriveBits :: JSRef KeyUsage+        js_KeyUsageDeriveBits :: JSRef   foreign import javascript unsafe "\"wrapKey\"" js_KeyUsageWrapKey-        :: JSRef KeyUsage+        :: JSRef   foreign import javascript unsafe "\"unwrapKey\""-        js_KeyUsageUnwrapKey :: JSRef KeyUsage+        js_KeyUsageUnwrapKey :: JSRef   data CanvasWindingRule = CanvasWindingRuleNonzero                        | CanvasWindingRuleEvenodd@@ -168,13 +168,13 @@   instance FromJSRef CanvasWindingRule where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"nonzero\""-        js_CanvasWindingRuleNonzero :: JSRef CanvasWindingRule+        js_CanvasWindingRuleNonzero :: JSRef   foreign import javascript unsafe "\"evenodd\""-        js_CanvasWindingRuleEvenodd :: JSRef CanvasWindingRule+        js_CanvasWindingRuleEvenodd :: JSRef   data VideoPresentationMode = VideoPresentationModeFullscreen                            | VideoPresentationModeOptimized@@ -205,16 +205,16 @@   instance FromJSRef VideoPresentationMode where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"fullscreen\""-        js_VideoPresentationModeFullscreen :: JSRef VideoPresentationMode+        js_VideoPresentationModeFullscreen :: JSRef   foreign import javascript unsafe "\"optimized\""-        js_VideoPresentationModeOptimized :: JSRef VideoPresentationMode+        js_VideoPresentationModeOptimized :: JSRef   foreign import javascript unsafe "\"inline\""-        js_VideoPresentationModeInline :: JSRef VideoPresentationMode+        js_VideoPresentationModeInline :: JSRef   data TextTrackMode = TextTrackModeDisabled                    | TextTrackModeHidden@@ -239,16 +239,16 @@   instance FromJSRef TextTrackMode where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"disabled\""-        js_TextTrackModeDisabled :: JSRef TextTrackMode+        js_TextTrackModeDisabled :: JSRef   foreign import javascript unsafe "\"hidden\""-        js_TextTrackModeHidden :: JSRef TextTrackMode+        js_TextTrackModeHidden :: JSRef   foreign import javascript unsafe "\"showing\""-        js_TextTrackModeShowing :: JSRef TextTrackMode+        js_TextTrackModeShowing :: JSRef   data TextTrackKind = TextTrackKindSubtitles                    | TextTrackKindCaptions@@ -282,22 +282,22 @@   instance FromJSRef TextTrackKind where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"subtitles\""-        js_TextTrackKindSubtitles :: JSRef TextTrackKind+        js_TextTrackKindSubtitles :: JSRef   foreign import javascript unsafe "\"captions\""-        js_TextTrackKindCaptions :: JSRef TextTrackKind+        js_TextTrackKindCaptions :: JSRef   foreign import javascript unsafe "\"descriptions\""-        js_TextTrackKindDescriptions :: JSRef TextTrackKind+        js_TextTrackKindDescriptions :: JSRef   foreign import javascript unsafe "\"chapters\""-        js_TextTrackKindChapters :: JSRef TextTrackKind+        js_TextTrackKindChapters :: JSRef   foreign import javascript unsafe "\"metadata\""-        js_TextTrackKindMetadata :: JSRef TextTrackKind+        js_TextTrackKindMetadata :: JSRef   data DeviceType = DeviceTypeNone                 | DeviceTypeAirplay@@ -319,16 +319,16 @@   instance FromJSRef DeviceType where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"none\"" js_DeviceTypeNone ::-        JSRef DeviceType+        JSRef   foreign import javascript unsafe "\"airplay\"" js_DeviceTypeAirplay-        :: JSRef DeviceType+        :: JSRef   foreign import javascript unsafe "\"tvout\"" js_DeviceTypeTvout ::-        JSRef DeviceType+        JSRef   data MediaUIPartID = MediaUIPartIDOptimizedFullscreenButton                    | MediaUIPartIDOptimizedFullscreenPlaceholder@@ -353,15 +353,14 @@   instance FromJSRef MediaUIPartID where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"optimized-fullscreen-button\""-        js_MediaUIPartIDOptimizedFullscreenButton :: JSRef MediaUIPartID+        js_MediaUIPartIDOptimizedFullscreenButton :: JSRef   foreign import javascript unsafe         "\"optimized-fullscreen-placeholder\""-        js_MediaUIPartIDOptimizedFullscreenPlaceholder ::-        JSRef MediaUIPartID+        js_MediaUIPartIDOptimizedFullscreenPlaceholder :: JSRef   data EndOfStreamError = EndOfStreamErrorNetwork                       | EndOfStreamErrorDecode@@ -382,13 +381,13 @@   instance FromJSRef EndOfStreamError where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"network\""-        js_EndOfStreamErrorNetwork :: JSRef EndOfStreamError+        js_EndOfStreamErrorNetwork :: JSRef   foreign import javascript unsafe "\"decode\""-        js_EndOfStreamErrorDecode :: JSRef EndOfStreamError+        js_EndOfStreamErrorDecode :: JSRef   data AppendMode = AppendModeSegments                 | AppendModeSequence@@ -407,13 +406,13 @@   instance FromJSRef AppendMode where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"segments\""-        js_AppendModeSegments :: JSRef AppendMode+        js_AppendModeSegments :: JSRef   foreign import javascript unsafe "\"sequence\""-        js_AppendModeSequence :: JSRef AppendMode+        js_AppendModeSequence :: JSRef   data SourceTypeEnum = SourceTypeEnumNone                     | SourceTypeEnumCamera@@ -437,16 +436,16 @@   instance FromJSRef SourceTypeEnum where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"none\"" js_SourceTypeEnumNone-        :: JSRef SourceTypeEnum+        :: JSRef   foreign import javascript unsafe "\"camera\""-        js_SourceTypeEnumCamera :: JSRef SourceTypeEnum+        js_SourceTypeEnumCamera :: JSRef   foreign import javascript unsafe "\"microphone\""-        js_SourceTypeEnumMicrophone :: JSRef SourceTypeEnum+        js_SourceTypeEnumMicrophone :: JSRef   data VideoFacingModeEnum = VideoFacingModeEnumUser                          | VideoFacingModeEnumEnvironment@@ -477,19 +476,19 @@   instance FromJSRef VideoFacingModeEnum where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"user\""-        js_VideoFacingModeEnumUser :: JSRef VideoFacingModeEnum+        js_VideoFacingModeEnumUser :: JSRef   foreign import javascript unsafe "\"environment\""-        js_VideoFacingModeEnumEnvironment :: JSRef VideoFacingModeEnum+        js_VideoFacingModeEnumEnvironment :: JSRef   foreign import javascript unsafe "\"left\""-        js_VideoFacingModeEnumLeft :: JSRef VideoFacingModeEnum+        js_VideoFacingModeEnumLeft :: JSRef   foreign import javascript unsafe "\"right\""-        js_VideoFacingModeEnumRight :: JSRef VideoFacingModeEnum+        js_VideoFacingModeEnumRight :: JSRef   data MediaStreamTrackState = MediaStreamTrackStateNew                            | MediaStreamTrackStateLive@@ -516,16 +515,16 @@   instance FromJSRef MediaStreamTrackState where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"new\""-        js_MediaStreamTrackStateNew :: JSRef MediaStreamTrackState+        js_MediaStreamTrackStateNew :: JSRef   foreign import javascript unsafe "\"live\""-        js_MediaStreamTrackStateLive :: JSRef MediaStreamTrackState+        js_MediaStreamTrackStateLive :: JSRef   foreign import javascript unsafe "\"ended\""-        js_MediaStreamTrackStateEnded :: JSRef MediaStreamTrackState+        js_MediaStreamTrackStateEnded :: JSRef   data RTCIceTransportsEnum = RTCIceTransportsEnumNone                           | RTCIceTransportsEnumRelay@@ -551,16 +550,16 @@   instance FromJSRef RTCIceTransportsEnum where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"none\""-        js_RTCIceTransportsEnumNone :: JSRef RTCIceTransportsEnum+        js_RTCIceTransportsEnumNone :: JSRef   foreign import javascript unsafe "\"relay\""-        js_RTCIceTransportsEnumRelay :: JSRef RTCIceTransportsEnum+        js_RTCIceTransportsEnumRelay :: JSRef   foreign import javascript unsafe "\"all\""-        js_RTCIceTransportsEnumAll :: JSRef RTCIceTransportsEnum+        js_RTCIceTransportsEnumAll :: JSRef   data RTCIdentityOptionEnum = RTCIdentityOptionEnumYes                            | RTCIdentityOptionEnumNo@@ -587,16 +586,16 @@   instance FromJSRef RTCIdentityOptionEnum where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"yes\""-        js_RTCIdentityOptionEnumYes :: JSRef RTCIdentityOptionEnum+        js_RTCIdentityOptionEnumYes :: JSRef   foreign import javascript unsafe "\"no\""-        js_RTCIdentityOptionEnumNo :: JSRef RTCIdentityOptionEnum+        js_RTCIdentityOptionEnumNo :: JSRef   foreign import javascript unsafe "\"ifconfigured\""-        js_RTCIdentityOptionEnumIfconfigured :: JSRef RTCIdentityOptionEnum+        js_RTCIdentityOptionEnumIfconfigured :: JSRef   data ReadableStreamStateType = ReadableStreamStateTypeReadable                              | ReadableStreamStateTypeWaiting@@ -633,19 +632,19 @@   instance FromJSRef ReadableStreamStateType where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"readable\""-        js_ReadableStreamStateTypeReadable :: JSRef ReadableStreamStateType+        js_ReadableStreamStateTypeReadable :: JSRef   foreign import javascript unsafe "\"waiting\""-        js_ReadableStreamStateTypeWaiting :: JSRef ReadableStreamStateType+        js_ReadableStreamStateTypeWaiting :: JSRef   foreign import javascript unsafe "\"closed\""-        js_ReadableStreamStateTypeClosed :: JSRef ReadableStreamStateType+        js_ReadableStreamStateTypeClosed :: JSRef   foreign import javascript unsafe "\"errored\""-        js_ReadableStreamStateTypeErrored :: JSRef ReadableStreamStateType+        js_ReadableStreamStateTypeErrored :: JSRef   data OverSampleType = OverSampleTypeNone                     | OverSampleType2x@@ -667,16 +666,16 @@   instance FromJSRef OverSampleType where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"none\"" js_OverSampleTypeNone-        :: JSRef OverSampleType+        :: JSRef   foreign import javascript unsafe "\"2x\"" js_OverSampleType2x ::-        JSRef OverSampleType+        JSRef   foreign import javascript unsafe "\"4x\"" js_OverSampleType4x ::-        JSRef OverSampleType+        JSRef   data PageOverlayType = PageOverlayTypeView                      | PageOverlayTypeDocument@@ -697,13 +696,13 @@   instance FromJSRef PageOverlayType where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"view\"" js_PageOverlayTypeView-        :: JSRef PageOverlayType+        :: JSRef   foreign import javascript unsafe "\"document\""-        js_PageOverlayTypeDocument :: JSRef PageOverlayType+        js_PageOverlayTypeDocument :: JSRef   data XMLHttpRequestResponseType = XMLHttpRequestResponseType                                 | XMLHttpRequestResponseTypeArraybuffer@@ -751,27 +750,22 @@   instance FromJSRef XMLHttpRequestResponseType where         fromJSRefUnchecked = return . pFromJSRef-        fromJSRef = return . pFromJSRef . castRef+        fromJSRef = return . pFromJSRef   foreign import javascript unsafe "\"\""-        js_XMLHttpRequestResponseType :: JSRef XMLHttpRequestResponseType+        js_XMLHttpRequestResponseType :: JSRef   foreign import javascript unsafe "\"arraybuffer\""-        js_XMLHttpRequestResponseTypeArraybuffer ::-        JSRef XMLHttpRequestResponseType+        js_XMLHttpRequestResponseTypeArraybuffer :: JSRef   foreign import javascript unsafe "\"blob\""-        js_XMLHttpRequestResponseTypeBlob ::-        JSRef XMLHttpRequestResponseType+        js_XMLHttpRequestResponseTypeBlob :: JSRef   foreign import javascript unsafe "\"document\""-        js_XMLHttpRequestResponseTypeDocument ::-        JSRef XMLHttpRequestResponseType+        js_XMLHttpRequestResponseTypeDocument :: JSRef   foreign import javascript unsafe "\"json\""-        js_XMLHttpRequestResponseTypeJson ::-        JSRef XMLHttpRequestResponseType+        js_XMLHttpRequestResponseTypeJson :: JSRef   foreign import javascript unsafe "\"text\""-        js_XMLHttpRequestResponseTypeText ::-        JSRef XMLHttpRequestResponseType+        js_XMLHttpRequestResponseTypeText :: JSRef
src/GHCJS/DOM/JSFFI/Generated/ErrorEvent.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,33 +20,32 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::-        JSRef ErrorEvent -> IO JSString+        ErrorEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.message Mozilla ErrorEvent.message documentation>  getMessage ::            (MonadIO m, FromJSString result) => ErrorEvent -> m result-getMessage self-  = liftIO (fromJSString <$> (js_getMessage (unErrorEvent self)))+getMessage self = liftIO (fromJSString <$> (js_getMessage (self)))   foreign import javascript unsafe "$1[\"filename\"]" js_getFilename-        :: JSRef ErrorEvent -> IO JSString+        :: ErrorEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.filename Mozilla ErrorEvent.filename documentation>  getFilename ::             (MonadIO m, FromJSString result) => ErrorEvent -> m result getFilename self-  = liftIO (fromJSString <$> (js_getFilename (unErrorEvent self)))+  = liftIO (fromJSString <$> (js_getFilename (self)))   foreign import javascript unsafe "$1[\"lineno\"]" js_getLineno ::-        JSRef ErrorEvent -> IO Word+        ErrorEvent -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.lineno Mozilla ErrorEvent.lineno documentation>  getLineno :: (MonadIO m) => ErrorEvent -> m Word-getLineno self = liftIO (js_getLineno (unErrorEvent self))+getLineno self = liftIO (js_getLineno (self))   foreign import javascript unsafe "$1[\"colno\"]" js_getColno ::-        JSRef ErrorEvent -> IO Word+        ErrorEvent -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ErrorEvent.colno Mozilla ErrorEvent.colno documentation>  getColno :: (MonadIO m) => ErrorEvent -> m Word-getColno self = liftIO (js_getColno (unErrorEvent self))+getColno self = liftIO (js_getColno (self))
src/GHCJS/DOM/JSFFI/Generated/Event.hs view
@@ -21,7 +21,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -34,23 +34,21 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"stopPropagation\"]()"-        js_stopPropagation :: JSRef Event -> IO ()+        js_stopPropagation :: Event -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.stopPropagation Mozilla Event.stopPropagation documentation>  stopPropagation :: (MonadIO m, IsEvent self) => self -> m ()-stopPropagation self-  = liftIO (js_stopPropagation (unEvent (toEvent self)))+stopPropagation self = liftIO (js_stopPropagation (toEvent self))   foreign import javascript unsafe "$1[\"preventDefault\"]()"-        js_preventDefault :: JSRef Event -> IO ()+        js_preventDefault :: Event -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.preventDefault Mozilla Event.preventDefault documentation>  preventDefault :: (MonadIO m, IsEvent self) => self -> m ()-preventDefault self-  = liftIO (js_preventDefault (unEvent (toEvent self)))+preventDefault self = liftIO (js_preventDefault (toEvent self))   foreign import javascript unsafe "$1[\"initEvent\"]($2, $3, $4)"-        js_initEvent :: JSRef Event -> JSString -> Bool -> Bool -> IO ()+        js_initEvent :: Event -> JSString -> Bool -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.initEvent Mozilla Event.initEvent documentation>  initEvent ::@@ -58,19 +56,18 @@             self -> eventTypeArg -> Bool -> Bool -> m () initEvent self eventTypeArg canBubbleArg cancelableArg   = liftIO-      (js_initEvent (unEvent (toEvent self)) (toJSString eventTypeArg)-         canBubbleArg+      (js_initEvent (toEvent self) (toJSString eventTypeArg) canBubbleArg          cancelableArg)   foreign import javascript unsafe         "$1[\"stopImmediatePropagation\"]()" js_stopImmediatePropagation ::-        JSRef Event -> IO ()+        Event -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.stopImmediatePropagation Mozilla Event.stopImmediatePropagation documentation>  stopImmediatePropagation ::                          (MonadIO m, IsEvent self) => self -> m () stopImmediatePropagation self-  = liftIO (js_stopImmediatePropagation (unEvent (toEvent self)))+  = liftIO (js_stopImmediatePropagation (toEvent self)) pattern NONE = 0 pattern CAPTURING_PHASE = 1 pattern AT_TARGET = 2@@ -93,122 +90,114 @@ pattern CHANGE = 32768   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef Event -> IO JSString+        Event -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.type Mozilla Event.type documentation>  getType ::         (MonadIO m, IsEvent self, FromJSString result) => self -> m result getType self-  = liftIO (fromJSString <$> (js_getType (unEvent (toEvent self))))+  = liftIO (fromJSString <$> (js_getType (toEvent self)))   foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::-        JSRef Event -> IO (JSRef EventTarget)+        Event -> IO (Nullable EventTarget)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.target Mozilla Event.target documentation>  getTarget ::           (MonadIO m, IsEvent self) => self -> m (Maybe EventTarget) getTarget self-  = liftIO ((js_getTarget (unEvent (toEvent self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getTarget (toEvent self)))   foreign import javascript unsafe "$1[\"currentTarget\"]"-        js_getCurrentTarget :: JSRef Event -> IO (JSRef EventTarget)+        js_getCurrentTarget :: Event -> IO (Nullable EventTarget)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.currentTarget Mozilla Event.currentTarget documentation>  getCurrentTarget ::                  (MonadIO m, IsEvent self) => self -> m (Maybe EventTarget) getCurrentTarget self-  = liftIO-      ((js_getCurrentTarget (unEvent (toEvent self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getCurrentTarget (toEvent self)))   foreign import javascript unsafe "$1[\"eventPhase\"]"-        js_getEventPhase :: JSRef Event -> IO Word+        js_getEventPhase :: Event -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.eventPhase Mozilla Event.eventPhase documentation>  getEventPhase :: (MonadIO m, IsEvent self) => self -> m Word-getEventPhase self-  = liftIO (js_getEventPhase (unEvent (toEvent self)))+getEventPhase self = liftIO (js_getEventPhase (toEvent self))   foreign import javascript unsafe "($1[\"bubbles\"] ? 1 : 0)"-        js_getBubbles :: JSRef Event -> IO Bool+        js_getBubbles :: Event -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.bubbles Mozilla Event.bubbles documentation>  getBubbles :: (MonadIO m, IsEvent self) => self -> m Bool-getBubbles self = liftIO (js_getBubbles (unEvent (toEvent self)))+getBubbles self = liftIO (js_getBubbles (toEvent self))   foreign import javascript unsafe "($1[\"cancelable\"] ? 1 : 0)"-        js_getCancelable :: JSRef Event -> IO Bool+        js_getCancelable :: Event -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelable Mozilla Event.cancelable documentation>  getCancelable :: (MonadIO m, IsEvent self) => self -> m Bool-getCancelable self-  = liftIO (js_getCancelable (unEvent (toEvent self)))+getCancelable self = liftIO (js_getCancelable (toEvent self))   foreign import javascript unsafe "$1[\"timeStamp\"]"-        js_getTimeStamp :: JSRef Event -> IO Word+        js_getTimeStamp :: Event -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.timeStamp Mozilla Event.timeStamp documentation>  getTimeStamp :: (MonadIO m, IsEvent self) => self -> m Word-getTimeStamp self-  = liftIO (js_getTimeStamp (unEvent (toEvent self)))+getTimeStamp self = liftIO (js_getTimeStamp (toEvent self))   foreign import javascript unsafe         "($1[\"defaultPrevented\"] ? 1 : 0)" js_getDefaultPrevented ::-        JSRef Event -> IO Bool+        Event -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.defaultPrevented Mozilla Event.defaultPrevented documentation>  getDefaultPrevented :: (MonadIO m, IsEvent self) => self -> m Bool getDefaultPrevented self-  = liftIO (js_getDefaultPrevented (unEvent (toEvent self)))+  = liftIO (js_getDefaultPrevented (toEvent self))   foreign import javascript unsafe "$1[\"srcElement\"]"-        js_getSrcElement :: JSRef Event -> IO (JSRef EventTarget)+        js_getSrcElement :: Event -> IO (Nullable EventTarget)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.srcElement Mozilla Event.srcElement documentation>  getSrcElement ::               (MonadIO m, IsEvent self) => self -> m (Maybe EventTarget) getSrcElement self-  = liftIO-      ((js_getSrcElement (unEvent (toEvent self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSrcElement (toEvent self)))   foreign import javascript unsafe "$1[\"returnValue\"] = $2;"-        js_setReturnValue :: JSRef Event -> Bool -> IO ()+        js_setReturnValue :: Event -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.returnValue Mozilla Event.returnValue documentation>  setReturnValue :: (MonadIO m, IsEvent self) => self -> Bool -> m () setReturnValue self val-  = liftIO (js_setReturnValue (unEvent (toEvent self)) val)+  = liftIO (js_setReturnValue (toEvent self) val)   foreign import javascript unsafe "($1[\"returnValue\"] ? 1 : 0)"-        js_getReturnValue :: JSRef Event -> IO Bool+        js_getReturnValue :: Event -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.returnValue Mozilla Event.returnValue documentation>  getReturnValue :: (MonadIO m, IsEvent self) => self -> m Bool-getReturnValue self-  = liftIO (js_getReturnValue (unEvent (toEvent self)))+getReturnValue self = liftIO (js_getReturnValue (toEvent self))   foreign import javascript unsafe "$1[\"cancelBubble\"] = $2;"-        js_setCancelBubble :: JSRef Event -> Bool -> IO ()+        js_setCancelBubble :: Event -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelBubble Mozilla Event.cancelBubble documentation>  setCancelBubble ::                 (MonadIO m, IsEvent self) => self -> Bool -> m () setCancelBubble self val-  = liftIO (js_setCancelBubble (unEvent (toEvent self)) val)+  = liftIO (js_setCancelBubble (toEvent self) val)   foreign import javascript unsafe "($1[\"cancelBubble\"] ? 1 : 0)"-        js_getCancelBubble :: JSRef Event -> IO Bool+        js_getCancelBubble :: Event -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.cancelBubble Mozilla Event.cancelBubble documentation>  getCancelBubble :: (MonadIO m, IsEvent self) => self -> m Bool-getCancelBubble self-  = liftIO (js_getCancelBubble (unEvent (toEvent self)))+getCancelBubble self = liftIO (js_getCancelBubble (toEvent self))   foreign import javascript unsafe "$1[\"clipboardData\"]"-        js_getClipboardData :: JSRef Event -> IO (JSRef DataTransfer)+        js_getClipboardData :: Event -> IO (Nullable DataTransfer)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Event.clipboardData Mozilla Event.clipboardData documentation>  getClipboardData ::                  (MonadIO m, IsEvent self) => self -> m (Maybe DataTransfer) getClipboardData self-  = liftIO-      ((js_getClipboardData (unEvent (toEvent self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getClipboardData (toEvent self)))
src/GHCJS/DOM/JSFFI/Generated/EventListener.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,12 +19,11 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"handleEvent\"]($2)"-        js_handleEvent :: JSRef EventListener -> JSRef Event -> IO ()+        js_handleEvent :: EventListener -> Nullable Event -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/EventListener.handleEvent Mozilla EventListener.handleEvent documentation>  handleEvent ::             (MonadIO m, IsEvent evt) => EventListener -> Maybe evt -> m () handleEvent self evt   = liftIO-      (js_handleEvent (unEventListener self)-         (maybe jsNull (unEvent . toEvent) evt))+      (js_handleEvent (self) (maybeToNullable (fmap toEvent evt)))
src/GHCJS/DOM/JSFFI/Generated/EventSource.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,7 +23,7 @@   foreign import javascript unsafe         "new window[\"EventSource\"]($1,\n$2)" js_newEventSource ::-        JSString -> JSRef Dictionary -> IO (JSRef EventSource)+        JSString -> Nullable Dictionary -> IO EventSource  -- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource Mozilla EventSource documentation>  newEventSource ::@@ -32,43 +32,40 @@ newEventSource url eventSourceInit   = liftIO       (js_newEventSource (toJSString url)-         (maybe jsNull (unDictionary . toDictionary) eventSourceInit)-         >>= fromJSRefUnchecked)+         (maybeToNullable (fmap toDictionary eventSourceInit)))   foreign import javascript unsafe "$1[\"close\"]()" js_close ::-        JSRef EventSource -> IO ()+        EventSource -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.close Mozilla EventSource.close documentation>  close :: (MonadIO m) => EventSource -> m ()-close self = liftIO (js_close (unEventSource self))+close self = liftIO (js_close (self)) pattern CONNECTING = 0 pattern OPEN = 1 pattern CLOSED = 2   foreign import javascript unsafe "$1[\"url\"]" js_getUrl ::-        JSRef EventSource -> IO JSString+        EventSource -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.url Mozilla EventSource.url documentation>  getUrl ::        (MonadIO m, FromJSString result) => EventSource -> m result-getUrl self-  = liftIO (fromJSString <$> (js_getUrl (unEventSource self)))+getUrl self = liftIO (fromJSString <$> (js_getUrl (self)))   foreign import javascript unsafe         "($1[\"withCredentials\"] ? 1 : 0)" js_getWithCredentials ::-        JSRef EventSource -> IO Bool+        EventSource -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.withCredentials Mozilla EventSource.withCredentials documentation>  getWithCredentials :: (MonadIO m) => EventSource -> m Bool-getWithCredentials self-  = liftIO (js_getWithCredentials (unEventSource self))+getWithCredentials self = liftIO (js_getWithCredentials (self))   foreign import javascript unsafe "$1[\"readyState\"]"-        js_getReadyState :: JSRef EventSource -> IO Word+        js_getReadyState :: EventSource -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.readyState Mozilla EventSource.readyState documentation>  getReadyState :: (MonadIO m) => EventSource -> m Word-getReadyState self = liftIO (js_getReadyState (unEventSource self))+getReadyState self = liftIO (js_getReadyState (self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/EventSource.onopen Mozilla EventSource.onopen documentation>  open :: EventName EventSource Event
src/GHCJS/DOM/JSFFI/Generated/EventTarget.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,8 +20,7 @@   foreign import javascript unsafe         "$1[\"addEventListener\"]($2, $3,\n$4)" js_addEventListener ::-        JSRef EventTarget ->-          JSString -> JSRef EventListener -> Bool -> IO ()+        EventTarget -> JSString -> Nullable EventListener -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.addEventListener Mozilla EventTarget.addEventListener documentation>  addEventListener ::@@ -29,16 +28,14 @@                    self -> type' -> Maybe EventListener -> Bool -> m () addEventListener self type' listener useCapture   = liftIO-      (js_addEventListener (unEventTarget (toEventTarget self))-         (toJSString type')-         (maybe jsNull pToJSRef listener)+      (js_addEventListener (toEventTarget self) (toJSString type')+         (maybeToNullable listener)          useCapture)   foreign import javascript unsafe         "$1[\"removeEventListener\"]($2,\n$3, $4)" js_removeEventListener         ::-        JSRef EventTarget ->-          JSString -> JSRef EventListener -> Bool -> IO ()+        EventTarget -> JSString -> Nullable EventListener -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.removeEventListener Mozilla EventTarget.removeEventListener documentation>  removeEventListener ::@@ -46,14 +43,13 @@                       self -> type' -> Maybe EventListener -> Bool -> m () removeEventListener self type' listener useCapture   = liftIO-      (js_removeEventListener (unEventTarget (toEventTarget self))-         (toJSString type')-         (maybe jsNull pToJSRef listener)+      (js_removeEventListener (toEventTarget self) (toJSString type')+         (maybeToNullable listener)          useCapture)   foreign import javascript unsafe         "($1[\"dispatchEvent\"]($2) ? 1 : 0)" js_dispatchEvent ::-        JSRef EventTarget -> JSRef Event -> IO Bool+        EventTarget -> Nullable Event -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/EventTarget.dispatchEvent Mozilla EventTarget.dispatchEvent documentation>  dispatchEvent ::@@ -61,5 +57,5 @@                 self -> Maybe event -> m Bool dispatchEvent self event   = liftIO-      (js_dispatchEvent (unEventTarget (toEventTarget self))-         (maybe jsNull (unEvent . toEvent) event))+      (js_dispatchEvent (toEventTarget self)+         (maybeToNullable (fmap toEvent event)))
src/GHCJS/DOM/JSFFI/Generated/File.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,16 +19,16 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef File -> IO JSString+        File -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/File.name Mozilla File.name documentation>  getName :: (MonadIO m, FromJSString result) => File -> m result-getName self = liftIO (fromJSString <$> (js_getName (unFile self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"lastModifiedDate\"]"-        js_getLastModifiedDate :: JSRef File -> IO (JSRef Date)+        js_getLastModifiedDate :: File -> IO (Nullable Date)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/File.lastModifiedDate Mozilla File.lastModifiedDate documentation>  getLastModifiedDate :: (MonadIO m) => File -> m (Maybe Date) getLastModifiedDate self-  = liftIO ((js_getLastModifiedDate (unFile self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getLastModifiedDate (self)))
src/GHCJS/DOM/JSFFI/Generated/FileError.hs view
@@ -10,7 +10,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -36,8 +36,8 @@ pattern PATH_EXISTS_ERR = 12   foreign import javascript unsafe "$1[\"code\"]" js_getCode ::-        JSRef FileError -> IO Word+        FileError -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileError.code Mozilla FileError.code documentation>  getCode :: (MonadIO m) => FileError -> m Word-getCode self = liftIO (js_getCode (unFileError self))+getCode self = liftIO (js_getCode (self))
src/GHCJS/DOM/JSFFI/Generated/FileList.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,16 +19,16 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef FileList -> Word -> IO (JSRef File)+        FileList -> Word -> IO (Nullable File)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileList.item Mozilla FileList.item documentation>  item :: (MonadIO m) => FileList -> Word -> m (Maybe File) item self index-  = liftIO ((js_item (unFileList self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef FileList -> IO Word+        FileList -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileList.length Mozilla FileList.length documentation>  getLength :: (MonadIO m) => FileList -> m Word-getLength self = liftIO (js_getLength (unFileList self))+getLength self = liftIO (js_getLength (self))
src/GHCJS/DOM/JSFFI/Generated/FileReader.hs view
@@ -10,7 +10,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,37 +24,34 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "new window[\"FileReader\"]()"-        js_newFileReader :: IO (JSRef FileReader)+        js_newFileReader :: IO FileReader  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader Mozilla FileReader documentation>  newFileReader :: (MonadIO m) => m FileReader-newFileReader = liftIO (js_newFileReader >>= fromJSRefUnchecked)+newFileReader = liftIO (js_newFileReader)   foreign import javascript unsafe "$1[\"readAsArrayBuffer\"]($2)"-        js_readAsArrayBuffer :: JSRef FileReader -> JSRef Blob -> IO ()+        js_readAsArrayBuffer :: FileReader -> Nullable Blob -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readAsArrayBuffer Mozilla FileReader.readAsArrayBuffer documentation>  readAsArrayBuffer ::                   (MonadIO m, IsBlob blob) => FileReader -> Maybe blob -> m () readAsArrayBuffer self blob   = liftIO-      (js_readAsArrayBuffer (unFileReader self)-         (maybe jsNull (unBlob . toBlob) blob))+      (js_readAsArrayBuffer (self) (maybeToNullable (fmap toBlob blob)))   foreign import javascript unsafe "$1[\"readAsBinaryString\"]($2)"-        js_readAsBinaryString :: JSRef FileReader -> JSRef Blob -> IO ()+        js_readAsBinaryString :: FileReader -> Nullable Blob -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readAsBinaryString Mozilla FileReader.readAsBinaryString documentation>  readAsBinaryString ::                    (MonadIO m, IsBlob blob) => FileReader -> Maybe blob -> m () readAsBinaryString self blob   = liftIO-      (js_readAsBinaryString (unFileReader self)-         (maybe jsNull (unBlob . toBlob) blob))+      (js_readAsBinaryString (self) (maybeToNullable (fmap toBlob blob)))   foreign import javascript unsafe "$1[\"readAsText\"]($2, $3)"-        js_readAsText ::-        JSRef FileReader -> JSRef Blob -> JSString -> IO ()+        js_readAsText :: FileReader -> Nullable Blob -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readAsText Mozilla FileReader.readAsText documentation>  readAsText ::@@ -62,52 +59,49 @@              FileReader -> Maybe blob -> encoding -> m () readAsText self blob encoding   = liftIO-      (js_readAsText (unFileReader self)-         (maybe jsNull (unBlob . toBlob) blob)+      (js_readAsText (self) (maybeToNullable (fmap toBlob blob))          (toJSString encoding))   foreign import javascript unsafe "$1[\"readAsDataURL\"]($2)"-        js_readAsDataURL :: JSRef FileReader -> JSRef Blob -> IO ()+        js_readAsDataURL :: FileReader -> Nullable Blob -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readAsDataURL Mozilla FileReader.readAsDataURL documentation>  readAsDataURL ::               (MonadIO m, IsBlob blob) => FileReader -> Maybe blob -> m () readAsDataURL self blob   = liftIO-      (js_readAsDataURL (unFileReader self)-         (maybe jsNull (unBlob . toBlob) blob))+      (js_readAsDataURL (self) (maybeToNullable (fmap toBlob blob)))   foreign import javascript unsafe "$1[\"abort\"]()" js_abort ::-        JSRef FileReader -> IO ()+        FileReader -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.abort Mozilla FileReader.abort documentation>  abort :: (MonadIO m) => FileReader -> m ()-abort self = liftIO (js_abort (unFileReader self))+abort self = liftIO (js_abort (self)) pattern EMPTY = 0 pattern LOADING = 1 pattern DONE = 2   foreign import javascript unsafe "$1[\"readyState\"]"-        js_getReadyState :: JSRef FileReader -> IO Word+        js_getReadyState :: FileReader -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.readyState Mozilla FileReader.readyState documentation>  getReadyState :: (MonadIO m) => FileReader -> m Word-getReadyState self = liftIO (js_getReadyState (unFileReader self))+getReadyState self = liftIO (js_getReadyState (self))   foreign import javascript unsafe "$1[\"result\"]" js_getResult ::-        JSRef FileReader -> IO (JSRef a)+        FileReader -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.result Mozilla FileReader.result documentation> -getResult :: (MonadIO m) => FileReader -> m (JSRef a)-getResult self = liftIO (js_getResult (unFileReader self))+getResult :: (MonadIO m) => FileReader -> m JSRef+getResult self = liftIO (js_getResult (self))   foreign import javascript unsafe "$1[\"error\"]" js_getError ::-        JSRef FileReader -> IO (JSRef FileError)+        FileReader -> IO (Nullable FileError)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.error Mozilla FileReader.error documentation>  getError :: (MonadIO m) => FileReader -> m (Maybe FileError)-getError self-  = liftIO ((js_getError (unFileReader self)) >>= fromJSRef)+getError self = liftIO (nullableToMaybe <$> (js_getError (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReader.onloadstart Mozilla FileReader.onloadstart documentation>  loadStart :: EventName FileReader ProgressEvent
src/GHCJS/DOM/JSFFI/Generated/FileReaderSync.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,16 +21,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "new window[\"FileReaderSync\"]()"-        js_newFileReaderSync :: IO (JSRef FileReaderSync)+        js_newFileReaderSync :: IO FileReaderSync  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync Mozilla FileReaderSync documentation>  newFileReaderSync :: (MonadIO m) => m FileReaderSync-newFileReaderSync-  = liftIO (js_newFileReaderSync >>= fromJSRefUnchecked)+newFileReaderSync = liftIO (js_newFileReaderSync)   foreign import javascript unsafe "$1[\"readAsArrayBuffer\"]($2)"         js_readAsArrayBuffer ::-        JSRef FileReaderSync -> JSRef Blob -> IO (JSRef ArrayBuffer)+        FileReaderSync -> Nullable Blob -> IO (Nullable ArrayBuffer)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsArrayBuffer Mozilla FileReaderSync.readAsArrayBuffer documentation>  readAsArrayBuffer ::@@ -38,13 +37,12 @@                     FileReaderSync -> Maybe blob -> m (Maybe ArrayBuffer) readAsArrayBuffer self blob   = liftIO-      ((js_readAsArrayBuffer (unFileReaderSync self)-          (maybe jsNull (unBlob . toBlob) blob))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_readAsArrayBuffer (self) (maybeToNullable (fmap toBlob blob))))   foreign import javascript unsafe "$1[\"readAsBinaryString\"]($2)"         js_readAsBinaryString ::-        JSRef FileReaderSync -> JSRef Blob -> IO JSString+        FileReaderSync -> Nullable Blob -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsBinaryString Mozilla FileReaderSync.readAsBinaryString documentation>  readAsBinaryString ::@@ -53,12 +51,12 @@ readAsBinaryString self blob   = liftIO       (fromJSString <$>-         (js_readAsBinaryString (unFileReaderSync self)-            (maybe jsNull (unBlob . toBlob) blob)))+         (js_readAsBinaryString (self)+            (maybeToNullable (fmap toBlob blob))))   foreign import javascript unsafe "$1[\"readAsText\"]($2, $3)"         js_readAsText ::-        JSRef FileReaderSync -> JSRef Blob -> JSString -> IO JSString+        FileReaderSync -> Nullable Blob -> JSString -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsText Mozilla FileReaderSync.readAsText documentation>  readAsText ::@@ -68,13 +66,11 @@ readAsText self blob encoding   = liftIO       (fromJSString <$>-         (js_readAsText (unFileReaderSync self)-            (maybe jsNull (unBlob . toBlob) blob)+         (js_readAsText (self) (maybeToNullable (fmap toBlob blob))             (toJSString encoding)))   foreign import javascript unsafe "$1[\"readAsDataURL\"]($2)"-        js_readAsDataURL ::-        JSRef FileReaderSync -> JSRef Blob -> IO JSString+        js_readAsDataURL :: FileReaderSync -> Nullable Blob -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FileReaderSync.readAsDataURL Mozilla FileReaderSync.readAsDataURL documentation>  readAsDataURL ::@@ -83,5 +79,4 @@ readAsDataURL self blob   = liftIO       (fromJSString <$>-         (js_readAsDataURL (unFileReaderSync self)-            (maybe jsNull (unBlob . toBlob) blob)))+         (js_readAsDataURL (self) (maybeToNullable (fmap toBlob blob))))
src/GHCJS/DOM/JSFFI/Generated/FocusEvent.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,10 +19,10 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"relatedTarget\"]"-        js_getRelatedTarget :: JSRef FocusEvent -> IO (JSRef EventTarget)+        js_getRelatedTarget :: FocusEvent -> IO (Nullable EventTarget)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FocusEvent.relatedTarget Mozilla FocusEvent.relatedTarget documentation>  getRelatedTarget ::                  (MonadIO m) => FocusEvent -> m (Maybe EventTarget) getRelatedTarget self-  = liftIO ((js_getRelatedTarget (unFocusEvent self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getRelatedTarget (self)))
src/GHCJS/DOM/JSFFI/Generated/FontLoader.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,19 +22,17 @@   foreign import javascript unsafe         "($1[\"checkFont\"]($2,\n$3) ? 1 : 0)" js_checkFont ::-        JSRef FontLoader -> JSString -> JSString -> IO Bool+        FontLoader -> JSString -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.checkFont Mozilla FontLoader.checkFont documentation>  checkFont ::           (MonadIO m, ToJSString font, ToJSString text) =>             FontLoader -> font -> text -> m Bool checkFont self font text-  = liftIO-      (js_checkFont (unFontLoader self) (toJSString font)-         (toJSString text))+  = liftIO (js_checkFont (self) (toJSString font) (toJSString text))   foreign import javascript unsafe "$1[\"loadFont\"]($2)" js_loadFont-        :: JSRef FontLoader -> JSRef Dictionary -> IO ()+        :: FontLoader -> Nullable Dictionary -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.loadFont Mozilla FontLoader.loadFont documentation>  loadFont ::@@ -42,20 +40,18 @@            FontLoader -> Maybe params -> m () loadFont self params   = liftIO-      (js_loadFont (unFontLoader self)-         (maybe jsNull (unDictionary . toDictionary) params))+      (js_loadFont (self) (maybeToNullable (fmap toDictionary params)))   foreign import javascript unsafe "$1[\"notifyWhenFontsReady\"]($2)"         js_notifyWhenFontsReady ::-        JSRef FontLoader -> JSRef VoidCallback -> IO ()+        FontLoader -> Nullable VoidCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.notifyWhenFontsReady Mozilla FontLoader.notifyWhenFontsReady documentation>  notifyWhenFontsReady ::                      (MonadIO m) => FontLoader -> Maybe VoidCallback -> m () notifyWhenFontsReady self callback   = liftIO-      (js_notifyWhenFontsReady (unFontLoader self)-         (maybe jsNull pToJSRef callback))+      (js_notifyWhenFontsReady (self) (maybeToNullable callback))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.onloading Mozilla FontLoader.onloading documentation>  loading :: EventName FontLoader Event@@ -78,8 +74,8 @@ error = unsafeEventName (toJSString "error")   foreign import javascript unsafe "($1[\"loading\"] ? 1 : 0)"-        js_getLoading :: JSRef FontLoader -> IO Bool+        js_getLoading :: FontLoader -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FontLoader.loading Mozilla FontLoader.loading documentation>  getLoading :: (MonadIO m) => FontLoader -> m Bool-getLoading self = liftIO (js_getLoading (unFontLoader self))+getLoading self = liftIO (js_getLoading (self))
src/GHCJS/DOM/JSFFI/Generated/FormData.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,18 +19,14 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "new window[\"FormData\"]($1)"-        js_newFormData :: JSRef HTMLFormElement -> IO (JSRef FormData)+        js_newFormData :: Nullable HTMLFormElement -> IO FormData  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FormData Mozilla FormData documentation>  newFormData :: (MonadIO m) => Maybe HTMLFormElement -> m FormData-newFormData form-  = liftIO-      (js_newFormData (maybe jsNull pToJSRef form) >>=-         fromJSRefUnchecked)+newFormData form = liftIO (js_newFormData (maybeToNullable form))   foreign import javascript unsafe "$1[\"append\"]($2, $3, $4)"-        js_append ::-        JSRef FormData -> JSString -> JSString -> JSString -> IO ()+        js_append :: FormData -> JSString -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/FormData.append Mozilla FormData.append documentation>  append ::@@ -39,5 +35,5 @@          FormData -> name -> value -> filename -> m () append self name value filename   = liftIO-      (js_append (unFormData self) (toJSString name) (toJSString value)+      (js_append (self) (toJSString name) (toJSString value)          (toJSString filename))
src/GHCJS/DOM/JSFFI/Generated/GainNode.hs view
@@ -4,7 +4,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -18,9 +18,8 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"gain\"]" js_getGain ::-        JSRef GainNode -> IO (JSRef AudioParam)+        GainNode -> IO (Nullable AudioParam)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/GainNode.gain Mozilla GainNode.gain documentation>  getGain :: (MonadIO m) => GainNode -> m (Maybe AudioParam)-getGain self-  = liftIO ((js_getGain (unGainNode self)) >>= fromJSRef)+getGain self = liftIO (nullableToMaybe <$> (js_getGain (self)))
src/GHCJS/DOM/JSFFI/Generated/Gamepad.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,54 +21,52 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"id\"]" js_getId ::-        JSRef Gamepad -> IO JSString+        Gamepad -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.id Mozilla Gamepad.id documentation>  getId :: (MonadIO m, FromJSString result) => Gamepad -> m result-getId self = liftIO (fromJSString <$> (js_getId (unGamepad self)))+getId self = liftIO (fromJSString <$> (js_getId (self)))   foreign import javascript unsafe "$1[\"index\"]" js_getIndex ::-        JSRef Gamepad -> IO Word+        Gamepad -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.index Mozilla Gamepad.index documentation>  getIndex :: (MonadIO m) => Gamepad -> m Word-getIndex self = liftIO (js_getIndex (unGamepad self))+getIndex self = liftIO (js_getIndex (self))   foreign import javascript unsafe "($1[\"connected\"] ? 1 : 0)"-        js_getConnected :: JSRef Gamepad -> IO Bool+        js_getConnected :: Gamepad -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.connected Mozilla Gamepad.connected documentation>  getConnected :: (MonadIO m) => Gamepad -> m Bool-getConnected self = liftIO (js_getConnected (unGamepad self))+getConnected self = liftIO (js_getConnected (self))   foreign import javascript unsafe "$1[\"timestamp\"]"-        js_getTimestamp :: JSRef Gamepad -> IO Double+        js_getTimestamp :: Gamepad -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.timestamp Mozilla Gamepad.timestamp documentation>  getTimestamp :: (MonadIO m) => Gamepad -> m Double-getTimestamp self = liftIO (js_getTimestamp (unGamepad self))+getTimestamp self = liftIO (js_getTimestamp (self))   foreign import javascript unsafe "$1[\"mapping\"]" js_getMapping ::-        JSRef Gamepad -> IO JSString+        Gamepad -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.mapping Mozilla Gamepad.mapping documentation>  getMapping ::            (MonadIO m, FromJSString result) => Gamepad -> m result-getMapping self-  = liftIO (fromJSString <$> (js_getMapping (unGamepad self)))+getMapping self = liftIO (fromJSString <$> (js_getMapping (self)))   foreign import javascript unsafe "$1[\"axes\"]" js_getAxes ::-        JSRef Gamepad -> IO (JSRef [Double])+        Gamepad -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.axes Mozilla Gamepad.axes documentation>  getAxes :: (MonadIO m) => Gamepad -> m [Double]-getAxes self-  = liftIO ((js_getAxes (unGamepad self)) >>= fromJSRefUnchecked)+getAxes self = liftIO ((js_getAxes (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"buttons\"]" js_getButtons ::-        JSRef Gamepad -> IO (JSRef [Maybe GamepadButton])+        Gamepad -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Gamepad.buttons Mozilla Gamepad.buttons documentation>  getButtons :: (MonadIO m) => Gamepad -> m [Maybe GamepadButton] getButtons self-  = liftIO ((js_getButtons (unGamepad self)) >>= fromJSRefUnchecked)+  = liftIO ((js_getButtons (self)) >>= fromJSRefUnchecked)
src/GHCJS/DOM/JSFFI/Generated/GamepadButton.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,15 +19,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "($1[\"pressed\"] ? 1 : 0)"-        js_getPressed :: JSRef GamepadButton -> IO Bool+        js_getPressed :: GamepadButton -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadButton.pressed Mozilla GamepadButton.pressed documentation>  getPressed :: (MonadIO m) => GamepadButton -> m Bool-getPressed self = liftIO (js_getPressed (unGamepadButton self))+getPressed self = liftIO (js_getPressed (self))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef GamepadButton -> IO Double+        GamepadButton -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadButton.value Mozilla GamepadButton.value documentation>  getValue :: (MonadIO m) => GamepadButton -> m Double-getValue self = liftIO (js_getValue (unGamepadButton self))+getValue self = liftIO (js_getValue (self))
src/GHCJS/DOM/JSFFI/Generated/GamepadEvent.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,9 +19,9 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"gamepad\"]" js_getGamepad ::-        JSRef GamepadEvent -> IO (JSRef Gamepad)+        GamepadEvent -> IO (Nullable Gamepad)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/GamepadEvent.gamepad Mozilla GamepadEvent.gamepad documentation>  getGamepad :: (MonadIO m) => GamepadEvent -> m (Maybe Gamepad) getGamepad self-  = liftIO ((js_getGamepad (unGamepadEvent self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getGamepad (self)))
src/GHCJS/DOM/JSFFI/Generated/Geolocation.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,9 +21,9 @@   foreign import javascript unsafe         "$1[\"getCurrentPosition\"]($2, $3,\n$4)" js_getCurrentPosition ::-        JSRef Geolocation ->-          JSRef PositionCallback ->-            JSRef PositionErrorCallback -> JSRef PositionOptions -> IO ()+        Geolocation ->+          Nullable PositionCallback ->+            Nullable PositionErrorCallback -> Nullable PositionOptions -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.getCurrentPosition Mozilla Geolocation.getCurrentPosition documentation>  getCurrentPosition ::@@ -33,16 +33,16 @@                          Maybe PositionErrorCallback -> Maybe options -> m () getCurrentPosition self successCallback errorCallback options   = liftIO-      (js_getCurrentPosition (unGeolocation self)-         (maybe jsNull pToJSRef successCallback)-         (maybe jsNull pToJSRef errorCallback)-         (maybe jsNull (unPositionOptions . toPositionOptions) options))+      (js_getCurrentPosition (self) (maybeToNullable successCallback)+         (maybeToNullable errorCallback)+         (maybeToNullable (fmap toPositionOptions options)))   foreign import javascript unsafe         "$1[\"watchPosition\"]($2, $3, $4)" js_watchPosition ::-        JSRef Geolocation ->-          JSRef PositionCallback ->-            JSRef PositionErrorCallback -> JSRef PositionOptions -> IO Int+        Geolocation ->+          Nullable PositionCallback ->+            Nullable PositionErrorCallback ->+              Nullable PositionOptions -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.watchPosition Mozilla Geolocation.watchPosition documentation>  watchPosition ::@@ -52,15 +52,13 @@                     Maybe PositionErrorCallback -> Maybe options -> m Int watchPosition self successCallback errorCallback options   = liftIO-      (js_watchPosition (unGeolocation self)-         (maybe jsNull pToJSRef successCallback)-         (maybe jsNull pToJSRef errorCallback)-         (maybe jsNull (unPositionOptions . toPositionOptions) options))+      (js_watchPosition (self) (maybeToNullable successCallback)+         (maybeToNullable errorCallback)+         (maybeToNullable (fmap toPositionOptions options)))   foreign import javascript unsafe "$1[\"clearWatch\"]($2)"-        js_clearWatch :: JSRef Geolocation -> Int -> IO ()+        js_clearWatch :: Geolocation -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Geolocation.clearWatch Mozilla Geolocation.clearWatch documentation>  clearWatch :: (MonadIO m) => Geolocation -> Int -> m ()-clearWatch self watchID-  = liftIO (js_clearWatch (unGeolocation self) watchID)+clearWatch self watchID = liftIO (js_clearWatch (self) watchID)
src/GHCJS/DOM/JSFFI/Generated/Geoposition.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,16 +19,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"coords\"]" js_getCoords ::-        JSRef Geoposition -> IO (JSRef Coordinates)+        Geoposition -> IO (Nullable Coordinates)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition.coords Mozilla Geoposition.coords documentation>  getCoords :: (MonadIO m) => Geoposition -> m (Maybe Coordinates)-getCoords self-  = liftIO ((js_getCoords (unGeoposition self)) >>= fromJSRef)+getCoords self = liftIO (nullableToMaybe <$> (js_getCoords (self)))   foreign import javascript unsafe "$1[\"timestamp\"]"-        js_getTimestamp :: JSRef Geoposition -> IO Word+        js_getTimestamp :: Geoposition -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Geoposition.timestamp Mozilla Geoposition.timestamp documentation>  getTimestamp :: (MonadIO m) => Geoposition -> m Word-getTimestamp self = liftIO (js_getTimestamp (unGeoposition self))+getTimestamp self = liftIO (js_getTimestamp (self))
src/GHCJS/DOM/JSFFI/Generated/HTMLAllCollection.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,16 +20,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef HTMLAllCollection -> Word -> IO (JSRef Node)+        HTMLAllCollection -> Word -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.item Mozilla HTMLAllCollection.item documentation>  item :: (MonadIO m) => HTMLAllCollection -> Word -> m (Maybe Node) item self index-  = liftIO ((js_item (unHTMLAllCollection self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        js_namedItem ::-        JSRef HTMLAllCollection -> JSString -> IO (JSRef Node)+        js_namedItem :: HTMLAllCollection -> JSString -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.namedItem Mozilla HTMLAllCollection.namedItem documentation>  namedItem ::@@ -37,24 +36,21 @@             HTMLAllCollection -> name -> m (Maybe Node) namedItem self name   = liftIO-      ((js_namedItem (unHTMLAllCollection self) (toJSString name)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"tags\"]($2)" js_tags ::-        JSRef HTMLAllCollection -> JSString -> IO (JSRef NodeList)+        HTMLAllCollection -> JSString -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.tags Mozilla HTMLAllCollection.tags documentation>  tags ::      (MonadIO m, ToJSString name) =>        HTMLAllCollection -> name -> m (Maybe NodeList) tags self name-  = liftIO-      ((js_tags (unHTMLAllCollection self) (toJSString name)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_tags (self) (toJSString name)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef HTMLAllCollection -> IO Word+        HTMLAllCollection -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAllCollection.length Mozilla HTMLAllCollection.length documentation>  getLength :: (MonadIO m) => HTMLAllCollection -> m Word-getLength self = liftIO (js_getLength (unHTMLAllCollection self))+getLength self = liftIO (js_getLength (self))
src/GHCJS/DOM/JSFFI/Generated/HTMLAnchorElement.hs view
@@ -21,7 +21,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -35,432 +35,375 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"toString\"]()" js_toString-        :: JSRef HTMLAnchorElement -> IO JSString+        :: HTMLAnchorElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.toString Mozilla HTMLAnchorElement.toString documentation>  toString ::          (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-toString self-  = liftIO-      (fromJSString <$> (js_toString (unHTMLAnchorElement self)))+toString self = liftIO (fromJSString <$> (js_toString (self)))   foreign import javascript unsafe "$1[\"charset\"] = $2;"-        js_setCharset :: JSRef HTMLAnchorElement -> JSString -> IO ()+        js_setCharset :: HTMLAnchorElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.charset Mozilla HTMLAnchorElement.charset documentation>  setCharset ::            (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () setCharset self val-  = liftIO-      (js_setCharset (unHTMLAnchorElement self) (toJSString val))+  = liftIO (js_setCharset (self) (toJSString val))   foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::-        JSRef HTMLAnchorElement -> IO JSString+        HTMLAnchorElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.charset Mozilla HTMLAnchorElement.charset documentation>  getCharset ::            (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getCharset self-  = liftIO-      (fromJSString <$> (js_getCharset (unHTMLAnchorElement self)))+getCharset self = liftIO (fromJSString <$> (js_getCharset (self)))   foreign import javascript unsafe "$1[\"coords\"] = $2;"-        js_setCoords :: JSRef HTMLAnchorElement -> JSString -> IO ()+        js_setCoords :: HTMLAnchorElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.coords Mozilla HTMLAnchorElement.coords documentation>  setCoords ::           (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setCoords self val-  = liftIO (js_setCoords (unHTMLAnchorElement self) (toJSString val))+setCoords self val = liftIO (js_setCoords (self) (toJSString val))   foreign import javascript unsafe "$1[\"coords\"]" js_getCoords ::-        JSRef HTMLAnchorElement -> IO JSString+        HTMLAnchorElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.coords Mozilla HTMLAnchorElement.coords documentation>  getCoords ::           (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getCoords self-  = liftIO-      (fromJSString <$> (js_getCoords (unHTMLAnchorElement self)))+getCoords self = liftIO (fromJSString <$> (js_getCoords (self)))   foreign import javascript unsafe "$1[\"download\"] = $2;"-        js_setDownload :: JSRef HTMLAnchorElement -> JSString -> IO ()+        js_setDownload :: HTMLAnchorElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.download Mozilla HTMLAnchorElement.download documentation>  setDownload ::             (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () setDownload self val-  = liftIO-      (js_setDownload (unHTMLAnchorElement self) (toJSString val))+  = liftIO (js_setDownload (self) (toJSString val))   foreign import javascript unsafe "$1[\"download\"]" js_getDownload-        :: JSRef HTMLAnchorElement -> IO JSString+        :: HTMLAnchorElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.download Mozilla HTMLAnchorElement.download documentation>  getDownload ::             (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result getDownload self-  = liftIO-      (fromJSString <$> (js_getDownload (unHTMLAnchorElement self)))+  = liftIO (fromJSString <$> (js_getDownload (self)))   foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::-        JSRef HTMLAnchorElement -> JSString -> IO ()+        HTMLAnchorElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.href Mozilla HTMLAnchorElement.href documentation>  setHref ::         (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setHref self val-  = liftIO (js_setHref (unHTMLAnchorElement self) (toJSString val))+setHref self val = liftIO (js_setHref (self) (toJSString val))   foreign import javascript unsafe "$1[\"href\"]" js_getHref ::-        JSRef HTMLAnchorElement -> IO JSString+        HTMLAnchorElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.href Mozilla HTMLAnchorElement.href documentation>  getHref ::         (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getHref self-  = liftIO (fromJSString <$> (js_getHref (unHTMLAnchorElement self)))+getHref self = liftIO (fromJSString <$> (js_getHref (self)))   foreign import javascript unsafe "$1[\"hreflang\"] = $2;"-        js_setHreflang :: JSRef HTMLAnchorElement -> JSString -> IO ()+        js_setHreflang :: HTMLAnchorElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hreflang Mozilla HTMLAnchorElement.hreflang documentation>  setHreflang ::             (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m () setHreflang self val-  = liftIO-      (js_setHreflang (unHTMLAnchorElement self) (toJSString val))+  = liftIO (js_setHreflang (self) (toJSString val))   foreign import javascript unsafe "$1[\"hreflang\"]" js_getHreflang-        :: JSRef HTMLAnchorElement -> IO JSString+        :: HTMLAnchorElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hreflang Mozilla HTMLAnchorElement.hreflang documentation>  getHreflang ::             (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result getHreflang self-  = liftIO-      (fromJSString <$> (js_getHreflang (unHTMLAnchorElement self)))+  = liftIO (fromJSString <$> (js_getHreflang (self)))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLAnchorElement -> JSString -> IO ()+        HTMLAnchorElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.name Mozilla HTMLAnchorElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLAnchorElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLAnchorElement -> IO JSString+        HTMLAnchorElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.name Mozilla HTMLAnchorElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unHTMLAnchorElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"ping\"] = $2;" js_setPing ::-        JSRef HTMLAnchorElement -> JSString -> IO ()+        HTMLAnchorElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.ping Mozilla HTMLAnchorElement.ping documentation>  setPing ::         (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setPing self val-  = liftIO (js_setPing (unHTMLAnchorElement self) (toJSString val))+setPing self val = liftIO (js_setPing (self) (toJSString val))   foreign import javascript unsafe "$1[\"ping\"]" js_getPing ::-        JSRef HTMLAnchorElement -> IO JSString+        HTMLAnchorElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.ping Mozilla HTMLAnchorElement.ping documentation>  getPing ::         (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getPing self-  = liftIO (fromJSString <$> (js_getPing (unHTMLAnchorElement self)))+getPing self = liftIO (fromJSString <$> (js_getPing (self)))   foreign import javascript unsafe "$1[\"rel\"] = $2;" js_setRel ::-        JSRef HTMLAnchorElement -> JSString -> IO ()+        HTMLAnchorElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.rel Mozilla HTMLAnchorElement.rel documentation>  setRel ::        (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setRel self val-  = liftIO (js_setRel (unHTMLAnchorElement self) (toJSString val))+setRel self val = liftIO (js_setRel (self) (toJSString val))   foreign import javascript unsafe "$1[\"rel\"]" js_getRel ::-        JSRef HTMLAnchorElement -> IO JSString+        HTMLAnchorElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.rel Mozilla HTMLAnchorElement.rel documentation>  getRel ::        (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getRel self-  = liftIO (fromJSString <$> (js_getRel (unHTMLAnchorElement self)))+getRel self = liftIO (fromJSString <$> (js_getRel (self)))   foreign import javascript unsafe "$1[\"rev\"] = $2;" js_setRev ::-        JSRef HTMLAnchorElement -> JSString -> IO ()+        HTMLAnchorElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.rev Mozilla HTMLAnchorElement.rev documentation>  setRev ::        (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setRev self val-  = liftIO (js_setRev (unHTMLAnchorElement self) (toJSString val))+setRev self val = liftIO (js_setRev (self) (toJSString val))   foreign import javascript unsafe "$1[\"rev\"]" js_getRev ::-        JSRef HTMLAnchorElement -> IO JSString+        HTMLAnchorElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.rev Mozilla HTMLAnchorElement.rev documentation>  getRev ::        (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getRev self-  = liftIO (fromJSString <$> (js_getRev (unHTMLAnchorElement self)))+getRev self = liftIO (fromJSString <$> (js_getRev (self)))   foreign import javascript unsafe "$1[\"shape\"] = $2;" js_setShape-        :: JSRef HTMLAnchorElement -> JSString -> IO ()+        :: HTMLAnchorElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.shape Mozilla HTMLAnchorElement.shape documentation>  setShape ::          (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setShape self val-  = liftIO (js_setShape (unHTMLAnchorElement self) (toJSString val))+setShape self val = liftIO (js_setShape (self) (toJSString val))   foreign import javascript unsafe "$1[\"shape\"]" js_getShape ::-        JSRef HTMLAnchorElement -> IO JSString+        HTMLAnchorElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.shape Mozilla HTMLAnchorElement.shape documentation>  getShape ::          (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getShape self-  = liftIO-      (fromJSString <$> (js_getShape (unHTMLAnchorElement self)))+getShape self = liftIO (fromJSString <$> (js_getShape (self)))   foreign import javascript unsafe "$1[\"target\"] = $2;"-        js_setTarget :: JSRef HTMLAnchorElement -> JSString -> IO ()+        js_setTarget :: HTMLAnchorElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.target Mozilla HTMLAnchorElement.target documentation>  setTarget ::           (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setTarget self val-  = liftIO (js_setTarget (unHTMLAnchorElement self) (toJSString val))+setTarget self val = liftIO (js_setTarget (self) (toJSString val))   foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::-        JSRef HTMLAnchorElement -> IO JSString+        HTMLAnchorElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.target Mozilla HTMLAnchorElement.target documentation>  getTarget ::           (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getTarget self-  = liftIO-      (fromJSString <$> (js_getTarget (unHTMLAnchorElement self)))+getTarget self = liftIO (fromJSString <$> (js_getTarget (self)))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        JSRef HTMLAnchorElement -> JSString -> IO ()+        HTMLAnchorElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.type Mozilla HTMLAnchorElement.type documentation>  setType ::         (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setType self val-  = liftIO (js_setType (unHTMLAnchorElement self) (toJSString val))+setType self val = liftIO (js_setType (self) (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLAnchorElement -> IO JSString+        HTMLAnchorElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.type Mozilla HTMLAnchorElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unHTMLAnchorElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"hash\"] = $2;" js_setHash ::-        JSRef HTMLAnchorElement -> JSRef (Maybe JSString) -> IO ()+        HTMLAnchorElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hash Mozilla HTMLAnchorElement.hash documentation>  setHash ::         (MonadIO m, ToJSString val) =>           HTMLAnchorElement -> Maybe val -> m ()-setHash self val-  = liftIO-      (js_setHash (unHTMLAnchorElement self) (toMaybeJSString val))+setHash self val = liftIO (js_setHash (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"hash\"]" js_getHash ::-        JSRef HTMLAnchorElement -> IO (JSRef (Maybe JSString))+        HTMLAnchorElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hash Mozilla HTMLAnchorElement.hash documentation>  getHash ::         (MonadIO m, FromJSString result) =>           HTMLAnchorElement -> m (Maybe result)-getHash self-  = liftIO-      (fromMaybeJSString <$> (js_getHash (unHTMLAnchorElement self)))+getHash self = liftIO (fromMaybeJSString <$> (js_getHash (self)))   foreign import javascript unsafe "$1[\"host\"] = $2;" js_setHost ::-        JSRef HTMLAnchorElement -> JSRef (Maybe JSString) -> IO ()+        HTMLAnchorElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.host Mozilla HTMLAnchorElement.host documentation>  setHost ::         (MonadIO m, ToJSString val) =>           HTMLAnchorElement -> Maybe val -> m ()-setHost self val-  = liftIO-      (js_setHost (unHTMLAnchorElement self) (toMaybeJSString val))+setHost self val = liftIO (js_setHost (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"host\"]" js_getHost ::-        JSRef HTMLAnchorElement -> IO (JSRef (Maybe JSString))+        HTMLAnchorElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.host Mozilla HTMLAnchorElement.host documentation>  getHost ::         (MonadIO m, FromJSString result) =>           HTMLAnchorElement -> m (Maybe result)-getHost self-  = liftIO-      (fromMaybeJSString <$> (js_getHost (unHTMLAnchorElement self)))+getHost self = liftIO (fromMaybeJSString <$> (js_getHost (self)))   foreign import javascript unsafe "$1[\"hostname\"] = $2;"-        js_setHostname ::-        JSRef HTMLAnchorElement -> JSRef (Maybe JSString) -> IO ()+        js_setHostname :: HTMLAnchorElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hostname Mozilla HTMLAnchorElement.hostname documentation>  setHostname ::             (MonadIO m, ToJSString val) =>               HTMLAnchorElement -> Maybe val -> m () setHostname self val-  = liftIO-      (js_setHostname (unHTMLAnchorElement self) (toMaybeJSString val))+  = liftIO (js_setHostname (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"hostname\"]" js_getHostname-        :: JSRef HTMLAnchorElement -> IO (JSRef (Maybe JSString))+        :: HTMLAnchorElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.hostname Mozilla HTMLAnchorElement.hostname documentation>  getHostname ::             (MonadIO m, FromJSString result) =>               HTMLAnchorElement -> m (Maybe result) getHostname self-  = liftIO-      (fromMaybeJSString <$> (js_getHostname (unHTMLAnchorElement self)))+  = liftIO (fromMaybeJSString <$> (js_getHostname (self)))   foreign import javascript unsafe "$1[\"pathname\"] = $2;"-        js_setPathname ::-        JSRef HTMLAnchorElement -> JSRef (Maybe JSString) -> IO ()+        js_setPathname :: HTMLAnchorElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.pathname Mozilla HTMLAnchorElement.pathname documentation>  setPathname ::             (MonadIO m, ToJSString val) =>               HTMLAnchorElement -> Maybe val -> m () setPathname self val-  = liftIO-      (js_setPathname (unHTMLAnchorElement self) (toMaybeJSString val))+  = liftIO (js_setPathname (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"pathname\"]" js_getPathname-        :: JSRef HTMLAnchorElement -> IO (JSRef (Maybe JSString))+        :: HTMLAnchorElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.pathname Mozilla HTMLAnchorElement.pathname documentation>  getPathname ::             (MonadIO m, FromJSString result) =>               HTMLAnchorElement -> m (Maybe result) getPathname self-  = liftIO-      (fromMaybeJSString <$> (js_getPathname (unHTMLAnchorElement self)))+  = liftIO (fromMaybeJSString <$> (js_getPathname (self)))   foreign import javascript unsafe "$1[\"port\"] = $2;" js_setPort ::-        JSRef HTMLAnchorElement -> JSRef (Maybe JSString) -> IO ()+        HTMLAnchorElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.port Mozilla HTMLAnchorElement.port documentation>  setPort ::         (MonadIO m, ToJSString val) =>           HTMLAnchorElement -> Maybe val -> m ()-setPort self val-  = liftIO-      (js_setPort (unHTMLAnchorElement self) (toMaybeJSString val))+setPort self val = liftIO (js_setPort (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"port\"]" js_getPort ::-        JSRef HTMLAnchorElement -> IO (JSRef (Maybe JSString))+        HTMLAnchorElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.port Mozilla HTMLAnchorElement.port documentation>  getPort ::         (MonadIO m, FromJSString result) =>           HTMLAnchorElement -> m (Maybe result)-getPort self-  = liftIO-      (fromMaybeJSString <$> (js_getPort (unHTMLAnchorElement self)))+getPort self = liftIO (fromMaybeJSString <$> (js_getPort (self)))   foreign import javascript unsafe "$1[\"protocol\"] = $2;"-        js_setProtocol ::-        JSRef HTMLAnchorElement -> JSRef (Maybe JSString) -> IO ()+        js_setProtocol :: HTMLAnchorElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.protocol Mozilla HTMLAnchorElement.protocol documentation>  setProtocol ::             (MonadIO m, ToJSString val) =>               HTMLAnchorElement -> Maybe val -> m () setProtocol self val-  = liftIO-      (js_setProtocol (unHTMLAnchorElement self) (toMaybeJSString val))+  = liftIO (js_setProtocol (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol-        :: JSRef HTMLAnchorElement -> IO (JSRef (Maybe JSString))+        :: HTMLAnchorElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.protocol Mozilla HTMLAnchorElement.protocol documentation>  getProtocol ::             (MonadIO m, FromJSString result) =>               HTMLAnchorElement -> m (Maybe result) getProtocol self-  = liftIO-      (fromMaybeJSString <$> (js_getProtocol (unHTMLAnchorElement self)))+  = liftIO (fromMaybeJSString <$> (js_getProtocol (self)))   foreign import javascript unsafe "$1[\"search\"] = $2;"-        js_setSearch ::-        JSRef HTMLAnchorElement -> JSRef (Maybe JSString) -> IO ()+        js_setSearch :: HTMLAnchorElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.search Mozilla HTMLAnchorElement.search documentation>  setSearch ::           (MonadIO m, ToJSString val) =>             HTMLAnchorElement -> Maybe val -> m () setSearch self val-  = liftIO-      (js_setSearch (unHTMLAnchorElement self) (toMaybeJSString val))+  = liftIO (js_setSearch (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"search\"]" js_getSearch ::-        JSRef HTMLAnchorElement -> IO (JSRef (Maybe JSString))+        HTMLAnchorElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.search Mozilla HTMLAnchorElement.search documentation>  getSearch ::           (MonadIO m, FromJSString result) =>             HTMLAnchorElement -> m (Maybe result) getSearch self-  = liftIO-      (fromMaybeJSString <$> (js_getSearch (unHTMLAnchorElement self)))+  = liftIO (fromMaybeJSString <$> (js_getSearch (self)))   foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::-        JSRef HTMLAnchorElement -> IO (JSRef (Maybe JSString))+        HTMLAnchorElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.origin Mozilla HTMLAnchorElement.origin documentation>  getOrigin ::           (MonadIO m, FromJSString result) =>             HTMLAnchorElement -> m (Maybe result) getOrigin self-  = liftIO-      (fromMaybeJSString <$> (js_getOrigin (unHTMLAnchorElement self)))+  = liftIO (fromMaybeJSString <$> (js_getOrigin (self)))   foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::-        JSRef HTMLAnchorElement -> JSString -> IO ()+        HTMLAnchorElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.text Mozilla HTMLAnchorElement.text documentation>  setText ::         (MonadIO m, ToJSString val) => HTMLAnchorElement -> val -> m ()-setText self val-  = liftIO (js_setText (unHTMLAnchorElement self) (toJSString val))+setText self val = liftIO (js_setText (self) (toJSString val))   foreign import javascript unsafe "$1[\"text\"]" js_getText ::-        JSRef HTMLAnchorElement -> IO JSString+        HTMLAnchorElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.text Mozilla HTMLAnchorElement.text documentation>  getText ::         (MonadIO m, FromJSString result) => HTMLAnchorElement -> m result-getText self-  = liftIO (fromJSString <$> (js_getText (unHTMLAnchorElement self)))+getText self = liftIO (fromJSString <$> (js_getText (self)))   foreign import javascript unsafe "$1[\"relList\"]" js_getRelList ::-        JSRef HTMLAnchorElement -> IO (JSRef DOMTokenList)+        HTMLAnchorElement -> IO (Nullable DOMTokenList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAnchorElement.relList Mozilla HTMLAnchorElement.relList documentation>  getRelList ::            (MonadIO m) => HTMLAnchorElement -> m (Maybe DOMTokenList) getRelList self-  = liftIO ((js_getRelList (unHTMLAnchorElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getRelList (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLAppletElement.hs view
@@ -13,7 +13,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,209 +27,180 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLAppletElement -> JSString -> IO ()+        :: HTMLAppletElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.align Mozilla HTMLAppletElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()-setAlign self val-  = liftIO (js_setAlign (unHTMLAppletElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLAppletElement -> IO JSString+        HTMLAppletElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.align Mozilla HTMLAppletElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) => HTMLAppletElement -> m result-getAlign self-  = liftIO-      (fromJSString <$> (js_getAlign (unHTMLAppletElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))   foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::-        JSRef HTMLAppletElement -> JSString -> IO ()+        HTMLAppletElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.alt Mozilla HTMLAppletElement.alt documentation>  setAlt ::        (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()-setAlt self val-  = liftIO (js_setAlt (unHTMLAppletElement self) (toJSString val))+setAlt self val = liftIO (js_setAlt (self) (toJSString val))   foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::-        JSRef HTMLAppletElement -> IO JSString+        HTMLAppletElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.alt Mozilla HTMLAppletElement.alt documentation>  getAlt ::        (MonadIO m, FromJSString result) => HTMLAppletElement -> m result-getAlt self-  = liftIO (fromJSString <$> (js_getAlt (unHTMLAppletElement self)))+getAlt self = liftIO (fromJSString <$> (js_getAlt (self)))   foreign import javascript unsafe "$1[\"archive\"] = $2;"-        js_setArchive :: JSRef HTMLAppletElement -> JSString -> IO ()+        js_setArchive :: HTMLAppletElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.archive Mozilla HTMLAppletElement.archive documentation>  setArchive ::            (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m () setArchive self val-  = liftIO-      (js_setArchive (unHTMLAppletElement self) (toJSString val))+  = liftIO (js_setArchive (self) (toJSString val))   foreign import javascript unsafe "$1[\"archive\"]" js_getArchive ::-        JSRef HTMLAppletElement -> IO JSString+        HTMLAppletElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.archive Mozilla HTMLAppletElement.archive documentation>  getArchive ::            (MonadIO m, FromJSString result) => HTMLAppletElement -> m result-getArchive self-  = liftIO-      (fromJSString <$> (js_getArchive (unHTMLAppletElement self)))+getArchive self = liftIO (fromJSString <$> (js_getArchive (self)))   foreign import javascript unsafe "$1[\"code\"] = $2;" js_setCode ::-        JSRef HTMLAppletElement -> JSString -> IO ()+        HTMLAppletElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.code Mozilla HTMLAppletElement.code documentation>  setCode ::         (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()-setCode self val-  = liftIO (js_setCode (unHTMLAppletElement self) (toJSString val))+setCode self val = liftIO (js_setCode (self) (toJSString val))   foreign import javascript unsafe "$1[\"code\"]" js_getCode ::-        JSRef HTMLAppletElement -> IO JSString+        HTMLAppletElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.code Mozilla HTMLAppletElement.code documentation>  getCode ::         (MonadIO m, FromJSString result) => HTMLAppletElement -> m result-getCode self-  = liftIO (fromJSString <$> (js_getCode (unHTMLAppletElement self)))+getCode self = liftIO (fromJSString <$> (js_getCode (self)))   foreign import javascript unsafe "$1[\"codeBase\"] = $2;"-        js_setCodeBase :: JSRef HTMLAppletElement -> JSString -> IO ()+        js_setCodeBase :: HTMLAppletElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.codeBase Mozilla HTMLAppletElement.codeBase documentation>  setCodeBase ::             (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m () setCodeBase self val-  = liftIO-      (js_setCodeBase (unHTMLAppletElement self) (toJSString val))+  = liftIO (js_setCodeBase (self) (toJSString val))   foreign import javascript unsafe "$1[\"codeBase\"]" js_getCodeBase-        :: JSRef HTMLAppletElement -> IO JSString+        :: HTMLAppletElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.codeBase Mozilla HTMLAppletElement.codeBase documentation>  getCodeBase ::             (MonadIO m, FromJSString result) => HTMLAppletElement -> m result getCodeBase self-  = liftIO-      (fromJSString <$> (js_getCodeBase (unHTMLAppletElement self)))+  = liftIO (fromJSString <$> (js_getCodeBase (self)))   foreign import javascript unsafe "$1[\"height\"] = $2;"-        js_setHeight :: JSRef HTMLAppletElement -> JSString -> IO ()+        js_setHeight :: HTMLAppletElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.height Mozilla HTMLAppletElement.height documentation>  setHeight ::           (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()-setHeight self val-  = liftIO (js_setHeight (unHTMLAppletElement self) (toJSString val))+setHeight self val = liftIO (js_setHeight (self) (toJSString val))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef HTMLAppletElement -> IO JSString+        HTMLAppletElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.height Mozilla HTMLAppletElement.height documentation>  getHeight ::           (MonadIO m, FromJSString result) => HTMLAppletElement -> m result-getHeight self-  = liftIO-      (fromJSString <$> (js_getHeight (unHTMLAppletElement self)))+getHeight self = liftIO (fromJSString <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"hspace\"] = $2;"-        js_setHspace :: JSRef HTMLAppletElement -> JSString -> IO ()+        js_setHspace :: HTMLAppletElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.hspace Mozilla HTMLAppletElement.hspace documentation>  setHspace ::           (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()-setHspace self val-  = liftIO (js_setHspace (unHTMLAppletElement self) (toJSString val))+setHspace self val = liftIO (js_setHspace (self) (toJSString val))   foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace ::-        JSRef HTMLAppletElement -> IO JSString+        HTMLAppletElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.hspace Mozilla HTMLAppletElement.hspace documentation>  getHspace ::           (MonadIO m, FromJSString result) => HTMLAppletElement -> m result-getHspace self-  = liftIO-      (fromJSString <$> (js_getHspace (unHTMLAppletElement self)))+getHspace self = liftIO (fromJSString <$> (js_getHspace (self)))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLAppletElement -> JSString -> IO ()+        HTMLAppletElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.name Mozilla HTMLAppletElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLAppletElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLAppletElement -> IO JSString+        HTMLAppletElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.name Mozilla HTMLAppletElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLAppletElement -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unHTMLAppletElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"object\"] = $2;"-        js_setObject :: JSRef HTMLAppletElement -> JSString -> IO ()+        js_setObject :: HTMLAppletElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.object Mozilla HTMLAppletElement.object documentation>  setObject ::           (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()-setObject self val-  = liftIO (js_setObject (unHTMLAppletElement self) (toJSString val))+setObject self val = liftIO (js_setObject (self) (toJSString val))   foreign import javascript unsafe "$1[\"object\"]" js_getObject ::-        JSRef HTMLAppletElement -> IO JSString+        HTMLAppletElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.object Mozilla HTMLAppletElement.object documentation>  getObject ::           (MonadIO m, FromJSString result) => HTMLAppletElement -> m result-getObject self-  = liftIO-      (fromJSString <$> (js_getObject (unHTMLAppletElement self)))+getObject self = liftIO (fromJSString <$> (js_getObject (self)))   foreign import javascript unsafe "$1[\"vspace\"] = $2;"-        js_setVspace :: JSRef HTMLAppletElement -> JSString -> IO ()+        js_setVspace :: HTMLAppletElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.vspace Mozilla HTMLAppletElement.vspace documentation>  setVspace ::           (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()-setVspace self val-  = liftIO (js_setVspace (unHTMLAppletElement self) (toJSString val))+setVspace self val = liftIO (js_setVspace (self) (toJSString val))   foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace ::-        JSRef HTMLAppletElement -> IO JSString+        HTMLAppletElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.vspace Mozilla HTMLAppletElement.vspace documentation>  getVspace ::           (MonadIO m, FromJSString result) => HTMLAppletElement -> m result-getVspace self-  = liftIO-      (fromJSString <$> (js_getVspace (unHTMLAppletElement self)))+getVspace self = liftIO (fromJSString <$> (js_getVspace (self)))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: JSRef HTMLAppletElement -> JSString -> IO ()+        :: HTMLAppletElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.width Mozilla HTMLAppletElement.width documentation>  setWidth ::          (MonadIO m, ToJSString val) => HTMLAppletElement -> val -> m ()-setWidth self val-  = liftIO (js_setWidth (unHTMLAppletElement self) (toJSString val))+setWidth self val = liftIO (js_setWidth (self) (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef HTMLAppletElement -> IO JSString+        HTMLAppletElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAppletElement.width Mozilla HTMLAppletElement.width documentation>  getWidth ::          (MonadIO m, FromJSString result) => HTMLAppletElement -> m result-getWidth self-  = liftIO-      (fromJSString <$> (js_getWidth (unHTMLAppletElement self)))+getWidth self = liftIO (fromJSString <$> (js_getWidth (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLAreaElement.hs view
@@ -13,7 +13,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,217 +27,195 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::-        JSRef HTMLAreaElement -> JSString -> IO ()+        HTMLAreaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.alt Mozilla HTMLAreaElement.alt documentation>  setAlt ::        (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m ()-setAlt self val-  = liftIO (js_setAlt (unHTMLAreaElement self) (toJSString val))+setAlt self val = liftIO (js_setAlt (self) (toJSString val))   foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::-        JSRef HTMLAreaElement -> IO JSString+        HTMLAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.alt Mozilla HTMLAreaElement.alt documentation>  getAlt ::        (MonadIO m, FromJSString result) => HTMLAreaElement -> m result-getAlt self-  = liftIO (fromJSString <$> (js_getAlt (unHTMLAreaElement self)))+getAlt self = liftIO (fromJSString <$> (js_getAlt (self)))   foreign import javascript unsafe "$1[\"coords\"] = $2;"-        js_setCoords :: JSRef HTMLAreaElement -> JSString -> IO ()+        js_setCoords :: HTMLAreaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.coords Mozilla HTMLAreaElement.coords documentation>  setCoords ::           (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m ()-setCoords self val-  = liftIO (js_setCoords (unHTMLAreaElement self) (toJSString val))+setCoords self val = liftIO (js_setCoords (self) (toJSString val))   foreign import javascript unsafe "$1[\"coords\"]" js_getCoords ::-        JSRef HTMLAreaElement -> IO JSString+        HTMLAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.coords Mozilla HTMLAreaElement.coords documentation>  getCoords ::           (MonadIO m, FromJSString result) => HTMLAreaElement -> m result-getCoords self-  = liftIO (fromJSString <$> (js_getCoords (unHTMLAreaElement self)))+getCoords self = liftIO (fromJSString <$> (js_getCoords (self)))   foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::-        JSRef HTMLAreaElement -> JSString -> IO ()+        HTMLAreaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.href Mozilla HTMLAreaElement.href documentation>  setHref ::         (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m ()-setHref self val-  = liftIO (js_setHref (unHTMLAreaElement self) (toJSString val))+setHref self val = liftIO (js_setHref (self) (toJSString val))   foreign import javascript unsafe "$1[\"href\"]" js_getHref ::-        JSRef HTMLAreaElement -> IO JSString+        HTMLAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.href Mozilla HTMLAreaElement.href documentation>  getHref ::         (MonadIO m, FromJSString result) => HTMLAreaElement -> m result-getHref self-  = liftIO (fromJSString <$> (js_getHref (unHTMLAreaElement self)))+getHref self = liftIO (fromJSString <$> (js_getHref (self)))   foreign import javascript unsafe "$1[\"noHref\"] = $2;"-        js_setNoHref :: JSRef HTMLAreaElement -> Bool -> IO ()+        js_setNoHref :: HTMLAreaElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.noHref Mozilla HTMLAreaElement.noHref documentation>  setNoHref :: (MonadIO m) => HTMLAreaElement -> Bool -> m ()-setNoHref self val-  = liftIO (js_setNoHref (unHTMLAreaElement self) val)+setNoHref self val = liftIO (js_setNoHref (self) val)   foreign import javascript unsafe "($1[\"noHref\"] ? 1 : 0)"-        js_getNoHref :: JSRef HTMLAreaElement -> IO Bool+        js_getNoHref :: HTMLAreaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.noHref Mozilla HTMLAreaElement.noHref documentation>  getNoHref :: (MonadIO m) => HTMLAreaElement -> m Bool-getNoHref self = liftIO (js_getNoHref (unHTMLAreaElement self))+getNoHref self = liftIO (js_getNoHref (self))   foreign import javascript unsafe "$1[\"ping\"] = $2;" js_setPing ::-        JSRef HTMLAreaElement -> JSString -> IO ()+        HTMLAreaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.ping Mozilla HTMLAreaElement.ping documentation>  setPing ::         (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m ()-setPing self val-  = liftIO (js_setPing (unHTMLAreaElement self) (toJSString val))+setPing self val = liftIO (js_setPing (self) (toJSString val))   foreign import javascript unsafe "$1[\"ping\"]" js_getPing ::-        JSRef HTMLAreaElement -> IO JSString+        HTMLAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.ping Mozilla HTMLAreaElement.ping documentation>  getPing ::         (MonadIO m, FromJSString result) => HTMLAreaElement -> m result-getPing self-  = liftIO (fromJSString <$> (js_getPing (unHTMLAreaElement self)))+getPing self = liftIO (fromJSString <$> (js_getPing (self)))   foreign import javascript unsafe "$1[\"rel\"] = $2;" js_setRel ::-        JSRef HTMLAreaElement -> JSString -> IO ()+        HTMLAreaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.rel Mozilla HTMLAreaElement.rel documentation>  setRel ::        (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m ()-setRel self val-  = liftIO (js_setRel (unHTMLAreaElement self) (toJSString val))+setRel self val = liftIO (js_setRel (self) (toJSString val))   foreign import javascript unsafe "$1[\"rel\"]" js_getRel ::-        JSRef HTMLAreaElement -> IO JSString+        HTMLAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.rel Mozilla HTMLAreaElement.rel documentation>  getRel ::        (MonadIO m, FromJSString result) => HTMLAreaElement -> m result-getRel self-  = liftIO (fromJSString <$> (js_getRel (unHTMLAreaElement self)))+getRel self = liftIO (fromJSString <$> (js_getRel (self)))   foreign import javascript unsafe "$1[\"shape\"] = $2;" js_setShape-        :: JSRef HTMLAreaElement -> JSString -> IO ()+        :: HTMLAreaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.shape Mozilla HTMLAreaElement.shape documentation>  setShape ::          (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m ()-setShape self val-  = liftIO (js_setShape (unHTMLAreaElement self) (toJSString val))+setShape self val = liftIO (js_setShape (self) (toJSString val))   foreign import javascript unsafe "$1[\"shape\"]" js_getShape ::-        JSRef HTMLAreaElement -> IO JSString+        HTMLAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.shape Mozilla HTMLAreaElement.shape documentation>  getShape ::          (MonadIO m, FromJSString result) => HTMLAreaElement -> m result-getShape self-  = liftIO (fromJSString <$> (js_getShape (unHTMLAreaElement self)))+getShape self = liftIO (fromJSString <$> (js_getShape (self)))   foreign import javascript unsafe "$1[\"target\"] = $2;"-        js_setTarget :: JSRef HTMLAreaElement -> JSString -> IO ()+        js_setTarget :: HTMLAreaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.target Mozilla HTMLAreaElement.target documentation>  setTarget ::           (MonadIO m, ToJSString val) => HTMLAreaElement -> val -> m ()-setTarget self val-  = liftIO (js_setTarget (unHTMLAreaElement self) (toJSString val))+setTarget self val = liftIO (js_setTarget (self) (toJSString val))   foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::-        JSRef HTMLAreaElement -> IO JSString+        HTMLAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.target Mozilla HTMLAreaElement.target documentation>  getTarget ::           (MonadIO m, FromJSString result) => HTMLAreaElement -> m result-getTarget self-  = liftIO (fromJSString <$> (js_getTarget (unHTMLAreaElement self)))+getTarget self = liftIO (fromJSString <$> (js_getTarget (self)))   foreign import javascript unsafe "$1[\"hash\"]" js_getHash ::-        JSRef HTMLAreaElement -> IO JSString+        HTMLAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.hash Mozilla HTMLAreaElement.hash documentation>  getHash ::         (MonadIO m, FromJSString result) => HTMLAreaElement -> m result-getHash self-  = liftIO (fromJSString <$> (js_getHash (unHTMLAreaElement self)))+getHash self = liftIO (fromJSString <$> (js_getHash (self)))   foreign import javascript unsafe "$1[\"host\"]" js_getHost ::-        JSRef HTMLAreaElement -> IO JSString+        HTMLAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.host Mozilla HTMLAreaElement.host documentation>  getHost ::         (MonadIO m, FromJSString result) => HTMLAreaElement -> m result-getHost self-  = liftIO (fromJSString <$> (js_getHost (unHTMLAreaElement self)))+getHost self = liftIO (fromJSString <$> (js_getHost (self)))   foreign import javascript unsafe "$1[\"hostname\"]" js_getHostname-        :: JSRef HTMLAreaElement -> IO JSString+        :: HTMLAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.hostname Mozilla HTMLAreaElement.hostname documentation>  getHostname ::             (MonadIO m, FromJSString result) => HTMLAreaElement -> m result getHostname self-  = liftIO-      (fromJSString <$> (js_getHostname (unHTMLAreaElement self)))+  = liftIO (fromJSString <$> (js_getHostname (self)))   foreign import javascript unsafe "$1[\"pathname\"]" js_getPathname-        :: JSRef HTMLAreaElement -> IO JSString+        :: HTMLAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.pathname Mozilla HTMLAreaElement.pathname documentation>  getPathname ::             (MonadIO m, FromJSString result) => HTMLAreaElement -> m result getPathname self-  = liftIO-      (fromJSString <$> (js_getPathname (unHTMLAreaElement self)))+  = liftIO (fromJSString <$> (js_getPathname (self)))   foreign import javascript unsafe "$1[\"port\"]" js_getPort ::-        JSRef HTMLAreaElement -> IO JSString+        HTMLAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.port Mozilla HTMLAreaElement.port documentation>  getPort ::         (MonadIO m, FromJSString result) => HTMLAreaElement -> m result-getPort self-  = liftIO (fromJSString <$> (js_getPort (unHTMLAreaElement self)))+getPort self = liftIO (fromJSString <$> (js_getPort (self)))   foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol-        :: JSRef HTMLAreaElement -> IO JSString+        :: HTMLAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.protocol Mozilla HTMLAreaElement.protocol documentation>  getProtocol ::             (MonadIO m, FromJSString result) => HTMLAreaElement -> m result getProtocol self-  = liftIO-      (fromJSString <$> (js_getProtocol (unHTMLAreaElement self)))+  = liftIO (fromJSString <$> (js_getProtocol (self)))   foreign import javascript unsafe "$1[\"search\"]" js_getSearch ::-        JSRef HTMLAreaElement -> IO JSString+        HTMLAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.search Mozilla HTMLAreaElement.search documentation>  getSearch ::           (MonadIO m, FromJSString result) => HTMLAreaElement -> m result-getSearch self-  = liftIO (fromJSString <$> (js_getSearch (unHTMLAreaElement self)))+getSearch self = liftIO (fromJSString <$> (js_getSearch (self)))   foreign import javascript unsafe "$1[\"relList\"]" js_getRelList ::-        JSRef HTMLAreaElement -> IO (JSRef DOMTokenList)+        HTMLAreaElement -> IO (Nullable DOMTokenList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLAreaElement.relList Mozilla HTMLAreaElement.relList documentation>  getRelList ::            (MonadIO m) => HTMLAreaElement -> m (Maybe DOMTokenList) getRelList self-  = liftIO ((js_getRelList (unHTMLAreaElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getRelList (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLBRElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,19 +19,17 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"clear\"] = $2;" js_setClear-        :: JSRef HTMLBRElement -> JSString -> IO ()+        :: HTMLBRElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBRElement.clear Mozilla HTMLBRElement.clear documentation>  setClear ::          (MonadIO m, ToJSString val) => HTMLBRElement -> val -> m ()-setClear self val-  = liftIO (js_setClear (unHTMLBRElement self) (toJSString val))+setClear self val = liftIO (js_setClear (self) (toJSString val))   foreign import javascript unsafe "$1[\"clear\"]" js_getClear ::-        JSRef HTMLBRElement -> IO JSString+        HTMLBRElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBRElement.clear Mozilla HTMLBRElement.clear documentation>  getClear ::          (MonadIO m, FromJSString result) => HTMLBRElement -> m result-getClear self-  = liftIO (fromJSString <$> (js_getClear (unHTMLBRElement self)))+getClear self = liftIO (fromJSString <$> (js_getClear (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLBaseElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,40 +20,34 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::-        JSRef HTMLBaseElement -> JSRef (Maybe JSString) -> IO ()+        HTMLBaseElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.href Mozilla HTMLBaseElement.href documentation>  setHref ::         (MonadIO m, ToJSString val) => HTMLBaseElement -> Maybe val -> m ()-setHref self val-  = liftIO-      (js_setHref (unHTMLBaseElement self) (toMaybeJSString val))+setHref self val = liftIO (js_setHref (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"href\"]" js_getHref ::-        JSRef HTMLBaseElement -> IO (JSRef (Maybe JSString))+        HTMLBaseElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.href Mozilla HTMLBaseElement.href documentation>  getHref ::         (MonadIO m, FromJSString result) =>           HTMLBaseElement -> m (Maybe result)-getHref self-  = liftIO-      (fromMaybeJSString <$> (js_getHref (unHTMLBaseElement self)))+getHref self = liftIO (fromMaybeJSString <$> (js_getHref (self)))   foreign import javascript unsafe "$1[\"target\"] = $2;"-        js_setTarget :: JSRef HTMLBaseElement -> JSString -> IO ()+        js_setTarget :: HTMLBaseElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.target Mozilla HTMLBaseElement.target documentation>  setTarget ::           (MonadIO m, ToJSString val) => HTMLBaseElement -> val -> m ()-setTarget self val-  = liftIO (js_setTarget (unHTMLBaseElement self) (toJSString val))+setTarget self val = liftIO (js_setTarget (self) (toJSString val))   foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::-        JSRef HTMLBaseElement -> IO JSString+        HTMLBaseElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseElement.target Mozilla HTMLBaseElement.target documentation>  getTarget ::           (MonadIO m, FromJSString result) => HTMLBaseElement -> m result-getTarget self-  = liftIO (fromJSString <$> (js_getTarget (unHTMLBaseElement self)))+getTarget self = liftIO (fromJSString <$> (js_getTarget (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLBaseFontElement.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,55 +21,47 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"color\"] = $2;" js_setColor-        :: JSRef HTMLBaseFontElement -> JSString -> IO ()+        :: HTMLBaseFontElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.color Mozilla HTMLBaseFontElement.color documentation>  setColor ::          (MonadIO m, ToJSString val) => HTMLBaseFontElement -> val -> m ()-setColor self val-  = liftIO-      (js_setColor (unHTMLBaseFontElement self) (toJSString val))+setColor self val = liftIO (js_setColor (self) (toJSString val))   foreign import javascript unsafe "$1[\"color\"]" js_getColor ::-        JSRef HTMLBaseFontElement -> IO JSString+        HTMLBaseFontElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.color Mozilla HTMLBaseFontElement.color documentation>  getColor ::          (MonadIO m, FromJSString result) => HTMLBaseFontElement -> m result-getColor self-  = liftIO-      (fromJSString <$> (js_getColor (unHTMLBaseFontElement self)))+getColor self = liftIO (fromJSString <$> (js_getColor (self)))   foreign import javascript unsafe "$1[\"face\"] = $2;" js_setFace ::-        JSRef HTMLBaseFontElement -> JSString -> IO ()+        HTMLBaseFontElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.face Mozilla HTMLBaseFontElement.face documentation>  setFace ::         (MonadIO m, ToJSString val) => HTMLBaseFontElement -> val -> m ()-setFace self val-  = liftIO (js_setFace (unHTMLBaseFontElement self) (toJSString val))+setFace self val = liftIO (js_setFace (self) (toJSString val))   foreign import javascript unsafe "$1[\"face\"]" js_getFace ::-        JSRef HTMLBaseFontElement -> IO JSString+        HTMLBaseFontElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.face Mozilla HTMLBaseFontElement.face documentation>  getFace ::         (MonadIO m, FromJSString result) => HTMLBaseFontElement -> m result-getFace self-  = liftIO-      (fromJSString <$> (js_getFace (unHTMLBaseFontElement self)))+getFace self = liftIO (fromJSString <$> (js_getFace (self)))   foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::-        JSRef HTMLBaseFontElement -> Int -> IO ()+        HTMLBaseFontElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.size Mozilla HTMLBaseFontElement.size documentation>  setSize :: (MonadIO m) => HTMLBaseFontElement -> Int -> m ()-setSize self val-  = liftIO (js_setSize (unHTMLBaseFontElement self) val)+setSize self val = liftIO (js_setSize (self) val)   foreign import javascript unsafe "$1[\"size\"]" js_getSize ::-        JSRef HTMLBaseFontElement -> IO Int+        HTMLBaseFontElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBaseFontElement.size Mozilla HTMLBaseFontElement.size documentation>  getSize :: (MonadIO m) => HTMLBaseFontElement -> m Int-getSize self = liftIO (js_getSize (unHTMLBaseFontElement self))+getSize self = liftIO (js_getSize (self))
src/GHCJS/DOM/JSFFI/Generated/HTMLBodyElement.hs view
@@ -11,7 +11,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -25,115 +25,103 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"aLink\"] = $2;" js_setALink-        :: JSRef HTMLBodyElement -> JSString -> IO ()+        :: HTMLBodyElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.aLink Mozilla HTMLBodyElement.aLink documentation>  setALink ::          (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m ()-setALink self val-  = liftIO (js_setALink (unHTMLBodyElement self) (toJSString val))+setALink self val = liftIO (js_setALink (self) (toJSString val))   foreign import javascript unsafe "$1[\"aLink\"]" js_getALink ::-        JSRef HTMLBodyElement -> IO JSString+        HTMLBodyElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.aLink Mozilla HTMLBodyElement.aLink documentation>  getALink ::          (MonadIO m, FromJSString result) => HTMLBodyElement -> m result-getALink self-  = liftIO (fromJSString <$> (js_getALink (unHTMLBodyElement self)))+getALink self = liftIO (fromJSString <$> (js_getALink (self)))   foreign import javascript unsafe "$1[\"background\"] = $2;"-        js_setBackground :: JSRef HTMLBodyElement -> JSString -> IO ()+        js_setBackground :: HTMLBodyElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.background Mozilla HTMLBodyElement.background documentation>  setBackground ::               (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m () setBackground self val-  = liftIO-      (js_setBackground (unHTMLBodyElement self) (toJSString val))+  = liftIO (js_setBackground (self) (toJSString val))   foreign import javascript unsafe "$1[\"background\"]"-        js_getBackground :: JSRef HTMLBodyElement -> IO JSString+        js_getBackground :: HTMLBodyElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.background Mozilla HTMLBodyElement.background documentation>  getBackground ::               (MonadIO m, FromJSString result) => HTMLBodyElement -> m result getBackground self-  = liftIO-      (fromJSString <$> (js_getBackground (unHTMLBodyElement self)))+  = liftIO (fromJSString <$> (js_getBackground (self)))   foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        js_setBgColor :: JSRef HTMLBodyElement -> JSString -> IO ()+        js_setBgColor :: HTMLBodyElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.bgColor Mozilla HTMLBodyElement.bgColor documentation>  setBgColor ::            (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m () setBgColor self val-  = liftIO (js_setBgColor (unHTMLBodyElement self) (toJSString val))+  = liftIO (js_setBgColor (self) (toJSString val))   foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::-        JSRef HTMLBodyElement -> IO JSString+        HTMLBodyElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.bgColor Mozilla HTMLBodyElement.bgColor documentation>  getBgColor ::            (MonadIO m, FromJSString result) => HTMLBodyElement -> m result-getBgColor self-  = liftIO-      (fromJSString <$> (js_getBgColor (unHTMLBodyElement self)))+getBgColor self = liftIO (fromJSString <$> (js_getBgColor (self)))   foreign import javascript unsafe "$1[\"link\"] = $2;" js_setLink ::-        JSRef HTMLBodyElement -> JSString -> IO ()+        HTMLBodyElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.link Mozilla HTMLBodyElement.link documentation>  setLink ::         (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m ()-setLink self val-  = liftIO (js_setLink (unHTMLBodyElement self) (toJSString val))+setLink self val = liftIO (js_setLink (self) (toJSString val))   foreign import javascript unsafe "$1[\"link\"]" js_getLink ::-        JSRef HTMLBodyElement -> IO JSString+        HTMLBodyElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.link Mozilla HTMLBodyElement.link documentation>  getLink ::         (MonadIO m, FromJSString result) => HTMLBodyElement -> m result-getLink self-  = liftIO (fromJSString <$> (js_getLink (unHTMLBodyElement self)))+getLink self = liftIO (fromJSString <$> (js_getLink (self)))   foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::-        JSRef HTMLBodyElement -> JSString -> IO ()+        HTMLBodyElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.text Mozilla HTMLBodyElement.text documentation>  setText ::         (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m ()-setText self val-  = liftIO (js_setText (unHTMLBodyElement self) (toJSString val))+setText self val = liftIO (js_setText (self) (toJSString val))   foreign import javascript unsafe "$1[\"text\"]" js_getText ::-        JSRef HTMLBodyElement -> IO JSString+        HTMLBodyElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.text Mozilla HTMLBodyElement.text documentation>  getText ::         (MonadIO m, FromJSString result) => HTMLBodyElement -> m result-getText self-  = liftIO (fromJSString <$> (js_getText (unHTMLBodyElement self)))+getText self = liftIO (fromJSString <$> (js_getText (self)))   foreign import javascript unsafe "$1[\"vLink\"] = $2;" js_setVLink-        :: JSRef HTMLBodyElement -> JSString -> IO ()+        :: HTMLBodyElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.vLink Mozilla HTMLBodyElement.vLink documentation>  setVLink ::          (MonadIO m, ToJSString val) => HTMLBodyElement -> val -> m ()-setVLink self val-  = liftIO (js_setVLink (unHTMLBodyElement self) (toJSString val))+setVLink self val = liftIO (js_setVLink (self) (toJSString val))   foreign import javascript unsafe "$1[\"vLink\"]" js_getVLink ::-        JSRef HTMLBodyElement -> IO JSString+        HTMLBodyElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.vLink Mozilla HTMLBodyElement.vLink documentation>  getVLink ::          (MonadIO m, FromJSString result) => HTMLBodyElement -> m result-getVLink self-  = liftIO (fromJSString <$> (js_getVLink (unHTMLBodyElement self)))+getVLink self = liftIO (fromJSString <$> (js_getVLink (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLBodyElement.onbeforeunload Mozilla HTMLBodyElement.onbeforeunload documentation>  beforeUnload :: EventName HTMLBodyElement BeforeUnloadEvent
src/GHCJS/DOM/JSFFI/Generated/HTMLButtonElement.hs view
@@ -18,7 +18,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -33,267 +33,230 @@   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::-        JSRef HTMLButtonElement -> IO Bool+        HTMLButtonElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.checkValidity Mozilla HTMLButtonElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLButtonElement -> m Bool-checkValidity self-  = liftIO (js_checkValidity (unHTMLButtonElement self))+checkValidity self = liftIO (js_checkValidity (self))   foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         js_setCustomValidity ::-        JSRef HTMLButtonElement -> JSRef (Maybe JSString) -> IO ()+        HTMLButtonElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.setCustomValidity Mozilla HTMLButtonElement.setCustomValidity documentation>  setCustomValidity ::                   (MonadIO m, ToJSString error) =>                     HTMLButtonElement -> Maybe error -> m () setCustomValidity self error-  = liftIO-      (js_setCustomValidity (unHTMLButtonElement self)-         (toMaybeJSString error))+  = liftIO (js_setCustomValidity (self) (toMaybeJSString error))   foreign import javascript unsafe "$1[\"autofocus\"] = $2;"-        js_setAutofocus :: JSRef HTMLButtonElement -> Bool -> IO ()+        js_setAutofocus :: HTMLButtonElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.autofocus Mozilla HTMLButtonElement.autofocus documentation>  setAutofocus :: (MonadIO m) => HTMLButtonElement -> Bool -> m ()-setAutofocus self val-  = liftIO (js_setAutofocus (unHTMLButtonElement self) val)+setAutofocus self val = liftIO (js_setAutofocus (self) val)   foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"-        js_getAutofocus :: JSRef HTMLButtonElement -> IO Bool+        js_getAutofocus :: HTMLButtonElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.autofocus Mozilla HTMLButtonElement.autofocus documentation>  getAutofocus :: (MonadIO m) => HTMLButtonElement -> m Bool-getAutofocus self-  = liftIO (js_getAutofocus (unHTMLButtonElement self))+getAutofocus self = liftIO (js_getAutofocus (self))   foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        js_setDisabled :: JSRef HTMLButtonElement -> Bool -> IO ()+        js_setDisabled :: HTMLButtonElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.disabled Mozilla HTMLButtonElement.disabled documentation>  setDisabled :: (MonadIO m) => HTMLButtonElement -> Bool -> m ()-setDisabled self val-  = liftIO (js_setDisabled (unHTMLButtonElement self) val)+setDisabled self val = liftIO (js_setDisabled (self) val)   foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        js_getDisabled :: JSRef HTMLButtonElement -> IO Bool+        js_getDisabled :: HTMLButtonElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.disabled Mozilla HTMLButtonElement.disabled documentation>  getDisabled :: (MonadIO m) => HTMLButtonElement -> m Bool-getDisabled self-  = liftIO (js_getDisabled (unHTMLButtonElement self))+getDisabled self = liftIO (js_getDisabled (self))   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::-        JSRef HTMLButtonElement -> IO (JSRef HTMLFormElement)+        HTMLButtonElement -> IO (Nullable HTMLFormElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.form Mozilla HTMLButtonElement.form documentation>  getForm ::         (MonadIO m) => HTMLButtonElement -> m (Maybe HTMLFormElement)-getForm self-  = liftIO ((js_getForm (unHTMLButtonElement self)) >>= fromJSRef)+getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"formAction\"] = $2;"-        js_setFormAction :: JSRef HTMLButtonElement -> JSString -> IO ()+        js_setFormAction :: HTMLButtonElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formAction Mozilla HTMLButtonElement.formAction documentation>  setFormAction ::               (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () setFormAction self val-  = liftIO-      (js_setFormAction (unHTMLButtonElement self) (toJSString val))+  = liftIO (js_setFormAction (self) (toJSString val))   foreign import javascript unsafe "$1[\"formAction\"]"-        js_getFormAction :: JSRef HTMLButtonElement -> IO JSString+        js_getFormAction :: HTMLButtonElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formAction Mozilla HTMLButtonElement.formAction documentation>  getFormAction ::               (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getFormAction self-  = liftIO-      (fromJSString <$> (js_getFormAction (unHTMLButtonElement self)))+  = liftIO (fromJSString <$> (js_getFormAction (self)))   foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"         js_setFormEnctype ::-        JSRef HTMLButtonElement -> JSRef (Maybe JSString) -> IO ()+        HTMLButtonElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formEnctype Mozilla HTMLButtonElement.formEnctype documentation>  setFormEnctype ::                (MonadIO m, ToJSString val) =>                  HTMLButtonElement -> Maybe val -> m () setFormEnctype self val-  = liftIO-      (js_setFormEnctype (unHTMLButtonElement self)-         (toMaybeJSString val))+  = liftIO (js_setFormEnctype (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"formEnctype\"]"-        js_getFormEnctype ::-        JSRef HTMLButtonElement -> IO (JSRef (Maybe JSString))+        js_getFormEnctype :: HTMLButtonElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formEnctype Mozilla HTMLButtonElement.formEnctype documentation>  getFormEnctype ::                (MonadIO m, FromJSString result) =>                  HTMLButtonElement -> m (Maybe result) getFormEnctype self-  = liftIO-      (fromMaybeJSString <$>-         (js_getFormEnctype (unHTMLButtonElement self)))+  = liftIO (fromMaybeJSString <$> (js_getFormEnctype (self)))   foreign import javascript unsafe "$1[\"formMethod\"] = $2;"-        js_setFormMethod ::-        JSRef HTMLButtonElement -> JSRef (Maybe JSString) -> IO ()+        js_setFormMethod :: HTMLButtonElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formMethod Mozilla HTMLButtonElement.formMethod documentation>  setFormMethod ::               (MonadIO m, ToJSString val) =>                 HTMLButtonElement -> Maybe val -> m () setFormMethod self val-  = liftIO-      (js_setFormMethod (unHTMLButtonElement self) (toMaybeJSString val))+  = liftIO (js_setFormMethod (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"formMethod\"]"-        js_getFormMethod ::-        JSRef HTMLButtonElement -> IO (JSRef (Maybe JSString))+        js_getFormMethod :: HTMLButtonElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formMethod Mozilla HTMLButtonElement.formMethod documentation>  getFormMethod ::               (MonadIO m, FromJSString result) =>                 HTMLButtonElement -> m (Maybe result) getFormMethod self-  = liftIO-      (fromMaybeJSString <$>-         (js_getFormMethod (unHTMLButtonElement self)))+  = liftIO (fromMaybeJSString <$> (js_getFormMethod (self)))   foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"-        js_setFormNoValidate :: JSRef HTMLButtonElement -> Bool -> IO ()+        js_setFormNoValidate :: HTMLButtonElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formNoValidate Mozilla HTMLButtonElement.formNoValidate documentation>  setFormNoValidate ::                   (MonadIO m) => HTMLButtonElement -> Bool -> m () setFormNoValidate self val-  = liftIO (js_setFormNoValidate (unHTMLButtonElement self) val)+  = liftIO (js_setFormNoValidate (self) val)   foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"-        js_getFormNoValidate :: JSRef HTMLButtonElement -> IO Bool+        js_getFormNoValidate :: HTMLButtonElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formNoValidate Mozilla HTMLButtonElement.formNoValidate documentation>  getFormNoValidate :: (MonadIO m) => HTMLButtonElement -> m Bool-getFormNoValidate self-  = liftIO (js_getFormNoValidate (unHTMLButtonElement self))+getFormNoValidate self = liftIO (js_getFormNoValidate (self))   foreign import javascript unsafe "$1[\"formTarget\"] = $2;"-        js_setFormTarget :: JSRef HTMLButtonElement -> JSString -> IO ()+        js_setFormTarget :: HTMLButtonElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formTarget Mozilla HTMLButtonElement.formTarget documentation>  setFormTarget ::               (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m () setFormTarget self val-  = liftIO-      (js_setFormTarget (unHTMLButtonElement self) (toJSString val))+  = liftIO (js_setFormTarget (self) (toJSString val))   foreign import javascript unsafe "$1[\"formTarget\"]"-        js_getFormTarget :: JSRef HTMLButtonElement -> IO JSString+        js_getFormTarget :: HTMLButtonElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.formTarget Mozilla HTMLButtonElement.formTarget documentation>  getFormTarget ::               (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getFormTarget self-  = liftIO-      (fromJSString <$> (js_getFormTarget (unHTMLButtonElement self)))+  = liftIO (fromJSString <$> (js_getFormTarget (self)))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLButtonElement -> JSString -> IO ()+        HTMLButtonElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.name Mozilla HTMLButtonElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLButtonElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLButtonElement -> IO JSString+        HTMLButtonElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.name Mozilla HTMLButtonElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLButtonElement -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unHTMLButtonElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        JSRef HTMLButtonElement -> JSRef (Maybe JSString) -> IO ()+        HTMLButtonElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.type Mozilla HTMLButtonElement.type documentation>  setType ::         (MonadIO m, ToJSString val) =>           HTMLButtonElement -> Maybe val -> m ()-setType self val-  = liftIO-      (js_setType (unHTMLButtonElement self) (toMaybeJSString val))+setType self val = liftIO (js_setType (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLButtonElement -> IO (JSRef (Maybe JSString))+        HTMLButtonElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.type Mozilla HTMLButtonElement.type documentation>  getType ::         (MonadIO m, FromJSString result) =>           HTMLButtonElement -> m (Maybe result)-getType self-  = liftIO-      (fromMaybeJSString <$> (js_getType (unHTMLButtonElement self)))+getType self = liftIO (fromMaybeJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef HTMLButtonElement -> JSString -> IO ()+        :: HTMLButtonElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.value Mozilla HTMLButtonElement.value documentation>  setValue ::          (MonadIO m, ToJSString val) => HTMLButtonElement -> val -> m ()-setValue self val-  = liftIO (js_setValue (unHTMLButtonElement self) (toJSString val))+setValue self val = liftIO (js_setValue (self) (toJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef HTMLButtonElement -> IO JSString+        HTMLButtonElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.value Mozilla HTMLButtonElement.value documentation>  getValue ::          (MonadIO m, FromJSString result) => HTMLButtonElement -> m result-getValue self-  = liftIO-      (fromJSString <$> (js_getValue (unHTMLButtonElement self)))+getValue self = liftIO (fromJSString <$> (js_getValue (self)))   foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"-        js_getWillValidate :: JSRef HTMLButtonElement -> IO Bool+        js_getWillValidate :: HTMLButtonElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.willValidate Mozilla HTMLButtonElement.willValidate documentation>  getWillValidate :: (MonadIO m) => HTMLButtonElement -> m Bool-getWillValidate self-  = liftIO (js_getWillValidate (unHTMLButtonElement self))+getWillValidate self = liftIO (js_getWillValidate (self))   foreign import javascript unsafe "$1[\"validity\"]" js_getValidity-        :: JSRef HTMLButtonElement -> IO (JSRef ValidityState)+        :: HTMLButtonElement -> IO (Nullable ValidityState)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.validity Mozilla HTMLButtonElement.validity documentation>  getValidity ::             (MonadIO m) => HTMLButtonElement -> m (Maybe ValidityState) getValidity self-  = liftIO-      ((js_getValidity (unHTMLButtonElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getValidity (self)))   foreign import javascript unsafe "$1[\"validationMessage\"]"-        js_getValidationMessage :: JSRef HTMLButtonElement -> IO JSString+        js_getValidationMessage :: HTMLButtonElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.validationMessage Mozilla HTMLButtonElement.validationMessage documentation>  getValidationMessage ::                      (MonadIO m, FromJSString result) => HTMLButtonElement -> m result getValidationMessage self-  = liftIO-      (fromJSString <$>-         (js_getValidationMessage (unHTMLButtonElement self)))+  = liftIO (fromJSString <$> (js_getValidationMessage (self)))   foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::-        JSRef HTMLButtonElement -> IO (JSRef NodeList)+        HTMLButtonElement -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLButtonElement.labels Mozilla HTMLButtonElement.labels documentation>  getLabels :: (MonadIO m) => HTMLButtonElement -> m (Maybe NodeList)-getLabels self-  = liftIO ((js_getLabels (unHTMLButtonElement self)) >>= fromJSRef)+getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLCanvasElement.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,7 +23,7 @@   foreign import javascript unsafe "$1[\"toDataURL\"]($2)"         js_toDataURL ::-        JSRef HTMLCanvasElement -> JSRef (Maybe JSString) -> IO JSString+        HTMLCanvasElement -> Nullable JSString -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.toDataURL Mozilla HTMLCanvasElement.toDataURL documentation>  toDataURL ::@@ -31,60 +31,53 @@             HTMLCanvasElement -> Maybe type' -> m result toDataURL self type'   = liftIO-      (fromJSString <$>-         (js_toDataURL (unHTMLCanvasElement self) (toMaybeJSString type')))+      (fromJSString <$> (js_toDataURL (self) (toMaybeJSString type')))   foreign import javascript unsafe "$1[\"getContext\"]($2)"-        js_getContext ::-        JSRef HTMLCanvasElement -> JSString -> IO (JSRef a)+        js_getContext :: HTMLCanvasElement -> JSString -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.getContext Mozilla HTMLCanvasElement.getContext documentation>  getContext ::            (MonadIO m, ToJSString contextId) =>-             HTMLCanvasElement -> contextId -> m (JSRef a)+             HTMLCanvasElement -> contextId -> m JSRef getContext self contextId-  = liftIO-      (js_getContext (unHTMLCanvasElement self) (toJSString contextId))+  = liftIO (js_getContext (self) (toJSString contextId))   foreign import javascript unsafe         "$1[\"probablySupportsContext\"]($2)" js_probablySupportsContext ::-        JSRef HTMLCanvasElement -> JSString -> IO (JSRef a)+        HTMLCanvasElement -> JSString -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.probablySupportsContext Mozilla HTMLCanvasElement.probablySupportsContext documentation>  probablySupportsContext ::                         (MonadIO m, ToJSString contextId) =>-                          HTMLCanvasElement -> contextId -> m (JSRef a)+                          HTMLCanvasElement -> contextId -> m JSRef probablySupportsContext self contextId-  = liftIO-      (js_probablySupportsContext (unHTMLCanvasElement self)-         (toJSString contextId))+  = liftIO (js_probablySupportsContext (self) (toJSString contextId))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: JSRef HTMLCanvasElement -> Int -> IO ()+        :: HTMLCanvasElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.width Mozilla HTMLCanvasElement.width documentation>  setWidth :: (MonadIO m) => HTMLCanvasElement -> Int -> m ()-setWidth self val-  = liftIO (js_setWidth (unHTMLCanvasElement self) val)+setWidth self val = liftIO (js_setWidth (self) val)   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef HTMLCanvasElement -> IO Int+        HTMLCanvasElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.width Mozilla HTMLCanvasElement.width documentation>  getWidth :: (MonadIO m) => HTMLCanvasElement -> m Int-getWidth self = liftIO (js_getWidth (unHTMLCanvasElement self))+getWidth self = liftIO (js_getWidth (self))   foreign import javascript unsafe "$1[\"height\"] = $2;"-        js_setHeight :: JSRef HTMLCanvasElement -> Int -> IO ()+        js_setHeight :: HTMLCanvasElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.height Mozilla HTMLCanvasElement.height documentation>  setHeight :: (MonadIO m) => HTMLCanvasElement -> Int -> m ()-setHeight self val-  = liftIO (js_setHeight (unHTMLCanvasElement self) val)+setHeight self val = liftIO (js_setHeight (self) val)   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef HTMLCanvasElement -> IO Int+        HTMLCanvasElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCanvasElement.height Mozilla HTMLCanvasElement.height documentation>  getHeight :: (MonadIO m) => HTMLCanvasElement -> m Int-getHeight self = liftIO (js_getHeight (unHTMLCanvasElement self))+getHeight self = liftIO (js_getHeight (self))
src/GHCJS/DOM/JSFFI/Generated/HTMLCollection.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,7 +20,7 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef HTMLCollection -> Word -> IO (JSRef Node)+        HTMLCollection -> Word -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.item Mozilla HTMLCollection.item documentation>  item ::@@ -28,11 +28,10 @@        self -> Word -> m (Maybe Node) item self index   = liftIO-      ((js_item (unHTMLCollection (toHTMLCollection self)) index) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_item (toHTMLCollection self) index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        js_namedItem :: JSRef HTMLCollection -> JSString -> IO (JSRef Node)+        js_namedItem :: HTMLCollection -> JSString -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.namedItem Mozilla HTMLCollection.namedItem documentation>  namedItem ::@@ -40,14 +39,12 @@             self -> name -> m (Maybe Node) namedItem self name   = liftIO-      ((js_namedItem (unHTMLCollection (toHTMLCollection self))-          (toJSString name))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_namedItem (toHTMLCollection self) (toJSString name)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef HTMLCollection -> IO Word+        HTMLCollection -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLCollection.length Mozilla HTMLCollection.length documentation>  getLength :: (MonadIO m, IsHTMLCollection self) => self -> m Word-getLength self-  = liftIO (js_getLength (unHTMLCollection (toHTMLCollection self)))+getLength self = liftIO (js_getLength (toHTMLCollection self))
src/GHCJS/DOM/JSFFI/Generated/HTMLDListElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,16 +19,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"compact\"] = $2;"-        js_setCompact :: JSRef HTMLDListElement -> Bool -> IO ()+        js_setCompact :: HTMLDListElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDListElement.compact Mozilla HTMLDListElement.compact documentation>  setCompact :: (MonadIO m) => HTMLDListElement -> Bool -> m ()-setCompact self val-  = liftIO (js_setCompact (unHTMLDListElement self) val)+setCompact self val = liftIO (js_setCompact (self) val)   foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"-        js_getCompact :: JSRef HTMLDListElement -> IO Bool+        js_getCompact :: HTMLDListElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDListElement.compact Mozilla HTMLDListElement.compact documentation>  getCompact :: (MonadIO m) => HTMLDListElement -> m Bool-getCompact self = liftIO (js_getCompact (unHTMLDListElement self))+getCompact self = liftIO (js_getCompact (self))
src/GHCJS/DOM/JSFFI/Generated/HTMLDataListElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,11 +19,10 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"options\"]" js_getOptions ::-        JSRef HTMLDataListElement -> IO (JSRef HTMLCollection)+        HTMLDataListElement -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDataListElement.options Mozilla HTMLDataListElement.options documentation>  getOptions ::            (MonadIO m) => HTMLDataListElement -> m (Maybe HTMLCollection) getOptions self-  = liftIO-      ((js_getOptions (unHTMLDataListElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getOptions (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLDetailsElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,16 +19,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"open\"] = $2;" js_setOpen ::-        JSRef HTMLDetailsElement -> Bool -> IO ()+        HTMLDetailsElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDetailsElement.open Mozilla HTMLDetailsElement.open documentation>  setOpen :: (MonadIO m) => HTMLDetailsElement -> Bool -> m ()-setOpen self val-  = liftIO (js_setOpen (unHTMLDetailsElement self) val)+setOpen self val = liftIO (js_setOpen (self) val)   foreign import javascript unsafe "($1[\"open\"] ? 1 : 0)"-        js_getOpen :: JSRef HTMLDetailsElement -> IO Bool+        js_getOpen :: HTMLDetailsElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDetailsElement.open Mozilla HTMLDetailsElement.open documentation>  getOpen :: (MonadIO m) => HTMLDetailsElement -> m Bool-getOpen self = liftIO (js_getOpen (unHTMLDetailsElement self))+getOpen self = liftIO (js_getOpen (self))
src/GHCJS/DOM/JSFFI/Generated/HTMLDirectoryElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,17 +20,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"compact\"] = $2;"-        js_setCompact :: JSRef HTMLDirectoryElement -> Bool -> IO ()+        js_setCompact :: HTMLDirectoryElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDirectoryElement.compact Mozilla HTMLDirectoryElement.compact documentation>  setCompact :: (MonadIO m) => HTMLDirectoryElement -> Bool -> m ()-setCompact self val-  = liftIO (js_setCompact (unHTMLDirectoryElement self) val)+setCompact self val = liftIO (js_setCompact (self) val)   foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"-        js_getCompact :: JSRef HTMLDirectoryElement -> IO Bool+        js_getCompact :: HTMLDirectoryElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDirectoryElement.compact Mozilla HTMLDirectoryElement.compact documentation>  getCompact :: (MonadIO m) => HTMLDirectoryElement -> m Bool-getCompact self-  = liftIO (js_getCompact (unHTMLDirectoryElement self))+getCompact self = liftIO (js_getCompact (self))
src/GHCJS/DOM/JSFFI/Generated/HTMLDivElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,19 +19,17 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLDivElement -> JSString -> IO ()+        :: HTMLDivElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDivElement.align Mozilla HTMLDivElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) => HTMLDivElement -> val -> m ()-setAlign self val-  = liftIO (js_setAlign (unHTMLDivElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLDivElement -> IO JSString+        HTMLDivElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDivElement.align Mozilla HTMLDivElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) => HTMLDivElement -> m result-getAlign self-  = liftIO (fromJSString <$> (js_getAlign (unHTMLDivElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLDocument.hs view
@@ -16,7 +16,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -30,271 +30,240 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"open\"]()" js_open ::-        JSRef HTMLDocument -> IO ()+        HTMLDocument -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.open Mozilla HTMLDocument.open documentation>  open :: (MonadIO m) => HTMLDocument -> m ()-open self = liftIO (js_open (unHTMLDocument self))+open self = liftIO (js_open (self))   foreign import javascript unsafe "$1[\"close\"]()" js_close ::-        JSRef HTMLDocument -> IO ()+        HTMLDocument -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.close Mozilla HTMLDocument.close documentation>  close :: (MonadIO m) => HTMLDocument -> m ()-close self = liftIO (js_close (unHTMLDocument self))+close self = liftIO (js_close (self))   foreign import javascript unsafe "$1[\"write\"]($2)" js_write ::-        JSRef HTMLDocument -> JSString -> IO ()+        HTMLDocument -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.write Mozilla HTMLDocument.write documentation>  write ::       (MonadIO m, ToJSString text) => HTMLDocument -> text -> m ()-write self text-  = liftIO (js_write (unHTMLDocument self) (toJSString text))+write self text = liftIO (js_write (self) (toJSString text))   foreign import javascript unsafe "$1[\"writeln\"]($2)" js_writeln-        :: JSRef HTMLDocument -> JSString -> IO ()+        :: HTMLDocument -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.writeln Mozilla HTMLDocument.writeln documentation>  writeln ::         (MonadIO m, ToJSString text) => HTMLDocument -> text -> m ()-writeln self text-  = liftIO (js_writeln (unHTMLDocument self) (toJSString text))+writeln self text = liftIO (js_writeln (self) (toJSString text))   foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::-        JSRef HTMLDocument -> IO ()+        HTMLDocument -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.clear Mozilla HTMLDocument.clear documentation>  clear :: (MonadIO m) => HTMLDocument -> m ()-clear self = liftIO (js_clear (unHTMLDocument self))+clear self = liftIO (js_clear (self))   foreign import javascript unsafe "$1[\"captureEvents\"]()"-        js_captureEvents :: JSRef HTMLDocument -> IO ()+        js_captureEvents :: HTMLDocument -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.captureEvents Mozilla HTMLDocument.captureEvents documentation>  captureEvents :: (MonadIO m) => HTMLDocument -> m ()-captureEvents self-  = liftIO (js_captureEvents (unHTMLDocument self))+captureEvents self = liftIO (js_captureEvents (self))   foreign import javascript unsafe "$1[\"releaseEvents\"]()"-        js_releaseEvents :: JSRef HTMLDocument -> IO ()+        js_releaseEvents :: HTMLDocument -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.releaseEvents Mozilla HTMLDocument.releaseEvents documentation>  releaseEvents :: (MonadIO m) => HTMLDocument -> m ()-releaseEvents self-  = liftIO (js_releaseEvents (unHTMLDocument self))+releaseEvents self = liftIO (js_releaseEvents (self))   foreign import javascript unsafe "$1[\"embeds\"]" js_getEmbeds ::-        JSRef HTMLDocument -> IO (JSRef HTMLCollection)+        HTMLDocument -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.embeds Mozilla HTMLDocument.embeds documentation>  getEmbeds ::           (MonadIO m) => HTMLDocument -> m (Maybe HTMLCollection)-getEmbeds self-  = liftIO ((js_getEmbeds (unHTMLDocument self)) >>= fromJSRef)+getEmbeds self = liftIO (nullableToMaybe <$> (js_getEmbeds (self)))   foreign import javascript unsafe "$1[\"plugins\"]" js_getPlugins ::-        JSRef HTMLDocument -> IO (JSRef HTMLCollection)+        HTMLDocument -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.plugins Mozilla HTMLDocument.plugins documentation>  getPlugins ::            (MonadIO m) => HTMLDocument -> m (Maybe HTMLCollection) getPlugins self-  = liftIO ((js_getPlugins (unHTMLDocument self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPlugins (self)))   foreign import javascript unsafe "$1[\"scripts\"]" js_getScripts ::-        JSRef HTMLDocument -> IO (JSRef HTMLCollection)+        HTMLDocument -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.scripts Mozilla HTMLDocument.scripts documentation>  getScripts ::            (MonadIO m) => HTMLDocument -> m (Maybe HTMLCollection) getScripts self-  = liftIO ((js_getScripts (unHTMLDocument self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getScripts (self)))   foreign import javascript unsafe "$1[\"all\"]" js_getAll ::-        JSRef HTMLDocument -> IO (JSRef HTMLAllCollection)+        HTMLDocument -> IO (Nullable HTMLAllCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.all Mozilla HTMLDocument.all documentation>  getAll ::        (MonadIO m) => HTMLDocument -> m (Maybe HTMLAllCollection)-getAll self-  = liftIO ((js_getAll (unHTMLDocument self)) >>= fromJSRef)+getAll self = liftIO (nullableToMaybe <$> (js_getAll (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef HTMLDocument -> IO Int+        HTMLDocument -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.width Mozilla HTMLDocument.width documentation>  getWidth :: (MonadIO m) => HTMLDocument -> m Int-getWidth self = liftIO (js_getWidth (unHTMLDocument self))+getWidth self = liftIO (js_getWidth (self))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef HTMLDocument -> IO Int+        HTMLDocument -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.height Mozilla HTMLDocument.height documentation>  getHeight :: (MonadIO m) => HTMLDocument -> m Int-getHeight self = liftIO (js_getHeight (unHTMLDocument self))+getHeight self = liftIO (js_getHeight (self))   foreign import javascript unsafe "$1[\"dir\"] = $2;" js_setDir ::-        JSRef HTMLDocument -> JSRef (Maybe JSString) -> IO ()+        HTMLDocument -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.dir Mozilla HTMLDocument.dir documentation>  setDir ::        (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m ()-setDir self val-  = liftIO (js_setDir (unHTMLDocument self) (toMaybeJSString val))+setDir self val = liftIO (js_setDir (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"dir\"]" js_getDir ::-        JSRef HTMLDocument -> IO (JSRef (Maybe JSString))+        HTMLDocument -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.dir Mozilla HTMLDocument.dir documentation>  getDir ::        (MonadIO m, FromJSString result) =>          HTMLDocument -> m (Maybe result)-getDir self-  = liftIO (fromMaybeJSString <$> (js_getDir (unHTMLDocument self)))+getDir self = liftIO (fromMaybeJSString <$> (js_getDir (self)))   foreign import javascript unsafe "$1[\"designMode\"] = $2;"-        js_setDesignMode ::-        JSRef HTMLDocument -> JSRef (Maybe JSString) -> IO ()+        js_setDesignMode :: HTMLDocument -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.designMode Mozilla HTMLDocument.designMode documentation>  setDesignMode ::               (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m () setDesignMode self val-  = liftIO-      (js_setDesignMode (unHTMLDocument self) (toMaybeJSString val))+  = liftIO (js_setDesignMode (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"designMode\"]"-        js_getDesignMode ::-        JSRef HTMLDocument -> IO (JSRef (Maybe JSString))+        js_getDesignMode :: HTMLDocument -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.designMode Mozilla HTMLDocument.designMode documentation>  getDesignMode ::               (MonadIO m, FromJSString result) =>                 HTMLDocument -> m (Maybe result) getDesignMode self-  = liftIO-      (fromMaybeJSString <$> (js_getDesignMode (unHTMLDocument self)))+  = liftIO (fromMaybeJSString <$> (js_getDesignMode (self)))   foreign import javascript unsafe "$1[\"compatMode\"]"-        js_getCompatMode :: JSRef HTMLDocument -> IO JSString+        js_getCompatMode :: HTMLDocument -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.compatMode Mozilla HTMLDocument.compatMode documentation>  getCompatMode ::               (MonadIO m, FromJSString result) => HTMLDocument -> m result getCompatMode self-  = liftIO-      (fromJSString <$> (js_getCompatMode (unHTMLDocument self)))+  = liftIO (fromJSString <$> (js_getCompatMode (self)))   foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        js_setBgColor ::-        JSRef HTMLDocument -> JSRef (Maybe JSString) -> IO ()+        js_setBgColor :: HTMLDocument -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.bgColor Mozilla HTMLDocument.bgColor documentation>  setBgColor ::            (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m () setBgColor self val-  = liftIO-      (js_setBgColor (unHTMLDocument self) (toMaybeJSString val))+  = liftIO (js_setBgColor (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::-        JSRef HTMLDocument -> IO (JSRef (Maybe JSString))+        HTMLDocument -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.bgColor Mozilla HTMLDocument.bgColor documentation>  getBgColor ::            (MonadIO m, FromJSString result) =>              HTMLDocument -> m (Maybe result) getBgColor self-  = liftIO-      (fromMaybeJSString <$> (js_getBgColor (unHTMLDocument self)))+  = liftIO (fromMaybeJSString <$> (js_getBgColor (self)))   foreign import javascript unsafe "$1[\"fgColor\"] = $2;"-        js_setFgColor ::-        JSRef HTMLDocument -> JSRef (Maybe JSString) -> IO ()+        js_setFgColor :: HTMLDocument -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.fgColor Mozilla HTMLDocument.fgColor documentation>  setFgColor ::            (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m () setFgColor self val-  = liftIO-      (js_setFgColor (unHTMLDocument self) (toMaybeJSString val))+  = liftIO (js_setFgColor (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"fgColor\"]" js_getFgColor ::-        JSRef HTMLDocument -> IO (JSRef (Maybe JSString))+        HTMLDocument -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.fgColor Mozilla HTMLDocument.fgColor documentation>  getFgColor ::            (MonadIO m, FromJSString result) =>              HTMLDocument -> m (Maybe result) getFgColor self-  = liftIO-      (fromMaybeJSString <$> (js_getFgColor (unHTMLDocument self)))+  = liftIO (fromMaybeJSString <$> (js_getFgColor (self)))   foreign import javascript unsafe "$1[\"alinkColor\"] = $2;"-        js_setAlinkColor ::-        JSRef HTMLDocument -> JSRef (Maybe JSString) -> IO ()+        js_setAlinkColor :: HTMLDocument -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.alinkColor Mozilla HTMLDocument.alinkColor documentation>  setAlinkColor ::               (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m () setAlinkColor self val-  = liftIO-      (js_setAlinkColor (unHTMLDocument self) (toMaybeJSString val))+  = liftIO (js_setAlinkColor (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"alinkColor\"]"-        js_getAlinkColor ::-        JSRef HTMLDocument -> IO (JSRef (Maybe JSString))+        js_getAlinkColor :: HTMLDocument -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.alinkColor Mozilla HTMLDocument.alinkColor documentation>  getAlinkColor ::               (MonadIO m, FromJSString result) =>                 HTMLDocument -> m (Maybe result) getAlinkColor self-  = liftIO-      (fromMaybeJSString <$> (js_getAlinkColor (unHTMLDocument self)))+  = liftIO (fromMaybeJSString <$> (js_getAlinkColor (self)))   foreign import javascript unsafe "$1[\"linkColor\"] = $2;"-        js_setLinkColor ::-        JSRef HTMLDocument -> JSRef (Maybe JSString) -> IO ()+        js_setLinkColor :: HTMLDocument -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.linkColor Mozilla HTMLDocument.linkColor documentation>  setLinkColor ::              (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m () setLinkColor self val-  = liftIO-      (js_setLinkColor (unHTMLDocument self) (toMaybeJSString val))+  = liftIO (js_setLinkColor (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"linkColor\"]"-        js_getLinkColor ::-        JSRef HTMLDocument -> IO (JSRef (Maybe JSString))+        js_getLinkColor :: HTMLDocument -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.linkColor Mozilla HTMLDocument.linkColor documentation>  getLinkColor ::              (MonadIO m, FromJSString result) =>                HTMLDocument -> m (Maybe result) getLinkColor self-  = liftIO-      (fromMaybeJSString <$> (js_getLinkColor (unHTMLDocument self)))+  = liftIO (fromMaybeJSString <$> (js_getLinkColor (self)))   foreign import javascript unsafe "$1[\"vlinkColor\"] = $2;"-        js_setVlinkColor ::-        JSRef HTMLDocument -> JSRef (Maybe JSString) -> IO ()+        js_setVlinkColor :: HTMLDocument -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.vlinkColor Mozilla HTMLDocument.vlinkColor documentation>  setVlinkColor ::               (MonadIO m, ToJSString val) => HTMLDocument -> Maybe val -> m () setVlinkColor self val-  = liftIO-      (js_setVlinkColor (unHTMLDocument self) (toMaybeJSString val))+  = liftIO (js_setVlinkColor (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"vlinkColor\"]"-        js_getVlinkColor ::-        JSRef HTMLDocument -> IO (JSRef (Maybe JSString))+        js_getVlinkColor :: HTMLDocument -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLDocument.vlinkColor Mozilla HTMLDocument.vlinkColor documentation>  getVlinkColor ::               (MonadIO m, FromJSString result) =>                 HTMLDocument -> m (Maybe result) getVlinkColor self-  = liftIO-      (fromMaybeJSString <$> (js_getVlinkColor (unHTMLDocument self)))+  = liftIO (fromMaybeJSString <$> (js_getVlinkColor (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLElement.hs view
@@ -21,7 +21,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -37,8 +37,8 @@ foreign import javascript unsafe         "$1[\"insertAdjacentElement\"]($2,\n$3)" js_insertAdjacentElement         ::-        JSRef HTMLElement ->-          JSString -> JSRef Element -> IO (JSRef Element)+        HTMLElement ->+          JSString -> Nullable Element -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentElement Mozilla HTMLElement.insertAdjacentElement documentation>  insertAdjacentElement ::@@ -47,14 +47,13 @@                         self -> where' -> Maybe element -> m (Maybe Element) insertAdjacentElement self where' element   = liftIO-      ((js_insertAdjacentElement (unHTMLElement (toHTMLElement self))-          (toJSString where')-          (maybe jsNull (unElement . toElement) element))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_insertAdjacentElement (toHTMLElement self) (toJSString where')+            (maybeToNullable (fmap toElement element))))   foreign import javascript unsafe         "$1[\"insertAdjacentHTML\"]($2, $3)" js_insertAdjacentHTML ::-        JSRef HTMLElement -> JSString -> JSString -> IO ()+        HTMLElement -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentHTML Mozilla HTMLElement.insertAdjacentHTML documentation>  insertAdjacentHTML ::@@ -63,13 +62,12 @@                      self -> where' -> html -> m () insertAdjacentHTML self where' html   = liftIO-      (js_insertAdjacentHTML (unHTMLElement (toHTMLElement self))-         (toJSString where')+      (js_insertAdjacentHTML (toHTMLElement self) (toJSString where')          (toJSString html))   foreign import javascript unsafe         "$1[\"insertAdjacentText\"]($2, $3)" js_insertAdjacentText ::-        JSRef HTMLElement -> JSString -> JSString -> IO ()+        HTMLElement -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.insertAdjacentText Mozilla HTMLElement.insertAdjacentText documentation>  insertAdjacentText ::@@ -78,138 +76,126 @@                      self -> where' -> text -> m () insertAdjacentText self where' text   = liftIO-      (js_insertAdjacentText (unHTMLElement (toHTMLElement self))-         (toJSString where')+      (js_insertAdjacentText (toHTMLElement self) (toJSString where')          (toJSString text))   foreign import javascript unsafe "$1[\"click\"]()" js_click ::-        JSRef HTMLElement -> IO ()+        HTMLElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.click Mozilla HTMLElement.click documentation>  click :: (MonadIO m, IsHTMLElement self) => self -> m ()-click self = liftIO (js_click (unHTMLElement (toHTMLElement self)))+click self = liftIO (js_click (toHTMLElement self))   foreign import javascript unsafe "$1[\"title\"] = $2;" js_setTitle-        :: JSRef HTMLElement -> JSString -> IO ()+        :: HTMLElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.title Mozilla HTMLElement.title documentation>  setTitle ::          (MonadIO m, IsHTMLElement self, ToJSString val) =>            self -> val -> m () setTitle self val-  = liftIO-      (js_setTitle (unHTMLElement (toHTMLElement self)) (toJSString val))+  = liftIO (js_setTitle (toHTMLElement self) (toJSString val))   foreign import javascript unsafe "$1[\"title\"]" js_getTitle ::-        JSRef HTMLElement -> IO JSString+        HTMLElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.title Mozilla HTMLElement.title documentation>  getTitle ::          (MonadIO m, IsHTMLElement self, FromJSString result) =>            self -> m result getTitle self-  = liftIO-      (fromJSString <$>-         (js_getTitle (unHTMLElement (toHTMLElement self))))+  = liftIO (fromJSString <$> (js_getTitle (toHTMLElement self)))   foreign import javascript unsafe "$1[\"lang\"] = $2;" js_setLang ::-        JSRef HTMLElement -> JSString -> IO ()+        HTMLElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.lang Mozilla HTMLElement.lang documentation>  setLang ::         (MonadIO m, IsHTMLElement self, ToJSString val) =>           self -> val -> m () setLang self val-  = liftIO-      (js_setLang (unHTMLElement (toHTMLElement self)) (toJSString val))+  = liftIO (js_setLang (toHTMLElement self) (toJSString val))   foreign import javascript unsafe "$1[\"lang\"]" js_getLang ::-        JSRef HTMLElement -> IO JSString+        HTMLElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.lang Mozilla HTMLElement.lang documentation>  getLang ::         (MonadIO m, IsHTMLElement self, FromJSString result) =>           self -> m result getLang self-  = liftIO-      (fromJSString <$>-         (js_getLang (unHTMLElement (toHTMLElement self))))+  = liftIO (fromJSString <$> (js_getLang (toHTMLElement self)))   foreign import javascript unsafe "$1[\"translate\"] = $2;"-        js_setTranslate :: JSRef HTMLElement -> Bool -> IO ()+        js_setTranslate :: HTMLElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.translate Mozilla HTMLElement.translate documentation>  setTranslate ::              (MonadIO m, IsHTMLElement self) => self -> Bool -> m () setTranslate self val-  = liftIO (js_setTranslate (unHTMLElement (toHTMLElement self)) val)+  = liftIO (js_setTranslate (toHTMLElement self) val)   foreign import javascript unsafe "($1[\"translate\"] ? 1 : 0)"-        js_getTranslate :: JSRef HTMLElement -> IO Bool+        js_getTranslate :: HTMLElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.translate Mozilla HTMLElement.translate documentation>  getTranslate :: (MonadIO m, IsHTMLElement self) => self -> m Bool-getTranslate self-  = liftIO (js_getTranslate (unHTMLElement (toHTMLElement self)))+getTranslate self = liftIO (js_getTranslate (toHTMLElement self))   foreign import javascript unsafe "$1[\"dir\"] = $2;" js_setDir ::-        JSRef HTMLElement -> JSString -> IO ()+        HTMLElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.dir Mozilla HTMLElement.dir documentation>  setDir ::        (MonadIO m, IsHTMLElement self, ToJSString val) =>          self -> val -> m () setDir self val-  = liftIO-      (js_setDir (unHTMLElement (toHTMLElement self)) (toJSString val))+  = liftIO (js_setDir (toHTMLElement self) (toJSString val))   foreign import javascript unsafe "$1[\"dir\"]" js_getDir ::-        JSRef HTMLElement -> IO JSString+        HTMLElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.dir Mozilla HTMLElement.dir documentation>  getDir ::        (MonadIO m, IsHTMLElement self, FromJSString result) =>          self -> m result getDir self-  = liftIO-      (fromJSString <$> (js_getDir (unHTMLElement (toHTMLElement self))))+  = liftIO (fromJSString <$> (js_getDir (toHTMLElement self)))   foreign import javascript unsafe "$1[\"tabIndex\"] = $2;"-        js_setTabIndex :: JSRef HTMLElement -> Int -> IO ()+        js_setTabIndex :: HTMLElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.tabIndex Mozilla HTMLElement.tabIndex documentation>  setTabIndex ::             (MonadIO m, IsHTMLElement self) => self -> Int -> m () setTabIndex self val-  = liftIO (js_setTabIndex (unHTMLElement (toHTMLElement self)) val)+  = liftIO (js_setTabIndex (toHTMLElement self) val)   foreign import javascript unsafe "$1[\"tabIndex\"]" js_getTabIndex-        :: JSRef HTMLElement -> IO Int+        :: HTMLElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.tabIndex Mozilla HTMLElement.tabIndex documentation>  getTabIndex :: (MonadIO m, IsHTMLElement self) => self -> m Int-getTabIndex self-  = liftIO (js_getTabIndex (unHTMLElement (toHTMLElement self)))+getTabIndex self = liftIO (js_getTabIndex (toHTMLElement self))   foreign import javascript unsafe "$1[\"draggable\"] = $2;"-        js_setDraggable :: JSRef HTMLElement -> Bool -> IO ()+        js_setDraggable :: HTMLElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.draggable Mozilla HTMLElement.draggable documentation>  setDraggable ::              (MonadIO m, IsHTMLElement self) => self -> Bool -> m () setDraggable self val-  = liftIO (js_setDraggable (unHTMLElement (toHTMLElement self)) val)+  = liftIO (js_setDraggable (toHTMLElement self) val)   foreign import javascript unsafe "($1[\"draggable\"] ? 1 : 0)"-        js_getDraggable :: JSRef HTMLElement -> IO Bool+        js_getDraggable :: HTMLElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.draggable Mozilla HTMLElement.draggable documentation>  getDraggable :: (MonadIO m, IsHTMLElement self) => self -> m Bool-getDraggable self-  = liftIO (js_getDraggable (unHTMLElement (toHTMLElement self)))+getDraggable self = liftIO (js_getDraggable (toHTMLElement self))   foreign import javascript unsafe "$1[\"webkitdropzone\"] = $2;"-        js_setWebkitdropzone :: JSRef HTMLElement -> JSString -> IO ()+        js_setWebkitdropzone :: HTMLElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.webkitdropzone Mozilla HTMLElement.webkitdropzone documentation>  setWebkitdropzone ::@@ -217,11 +203,10 @@                     self -> val -> m () setWebkitdropzone self val   = liftIO-      (js_setWebkitdropzone (unHTMLElement (toHTMLElement self))-         (toJSString val))+      (js_setWebkitdropzone (toHTMLElement self) (toJSString val))   foreign import javascript unsafe "$1[\"webkitdropzone\"]"-        js_getWebkitdropzone :: JSRef HTMLElement -> IO JSString+        js_getWebkitdropzone :: HTMLElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.webkitdropzone Mozilla HTMLElement.webkitdropzone documentation>  getWebkitdropzone ::@@ -229,53 +214,45 @@                     self -> m result getWebkitdropzone self   = liftIO-      (fromJSString <$>-         (js_getWebkitdropzone (unHTMLElement (toHTMLElement self))))+      (fromJSString <$> (js_getWebkitdropzone (toHTMLElement self)))   foreign import javascript unsafe "$1[\"hidden\"] = $2;"-        js_setHidden :: JSRef HTMLElement -> Bool -> IO ()+        js_setHidden :: HTMLElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.hidden Mozilla HTMLElement.hidden documentation>  setHidden ::           (MonadIO m, IsHTMLElement self) => self -> Bool -> m ()-setHidden self val-  = liftIO (js_setHidden (unHTMLElement (toHTMLElement self)) val)+setHidden self val = liftIO (js_setHidden (toHTMLElement self) val)   foreign import javascript unsafe "($1[\"hidden\"] ? 1 : 0)"-        js_getHidden :: JSRef HTMLElement -> IO Bool+        js_getHidden :: HTMLElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.hidden Mozilla HTMLElement.hidden documentation>  getHidden :: (MonadIO m, IsHTMLElement self) => self -> m Bool-getHidden self-  = liftIO (js_getHidden (unHTMLElement (toHTMLElement self)))+getHidden self = liftIO (js_getHidden (toHTMLElement self))   foreign import javascript unsafe "$1[\"accessKey\"] = $2;"-        js_setAccessKey :: JSRef HTMLElement -> JSString -> IO ()+        js_setAccessKey :: HTMLElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.accessKey Mozilla HTMLElement.accessKey documentation>  setAccessKey ::              (MonadIO m, IsHTMLElement self, ToJSString val) =>                self -> val -> m () setAccessKey self val-  = liftIO-      (js_setAccessKey (unHTMLElement (toHTMLElement self))-         (toJSString val))+  = liftIO (js_setAccessKey (toHTMLElement self) (toJSString val))   foreign import javascript unsafe "$1[\"accessKey\"]"-        js_getAccessKey :: JSRef HTMLElement -> IO JSString+        js_getAccessKey :: HTMLElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.accessKey Mozilla HTMLElement.accessKey documentation>  getAccessKey ::              (MonadIO m, IsHTMLElement self, FromJSString result) =>                self -> m result getAccessKey self-  = liftIO-      (fromJSString <$>-         (js_getAccessKey (unHTMLElement (toHTMLElement self))))+  = liftIO (fromJSString <$> (js_getAccessKey (toHTMLElement self)))   foreign import javascript unsafe "$1[\"innerText\"] = $2;"-        js_setInnerText ::-        JSRef HTMLElement -> JSRef (Maybe JSString) -> IO ()+        js_setInnerText :: HTMLElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.innerText Mozilla HTMLElement.innerText documentation>  setInnerText ::@@ -283,11 +260,10 @@                self -> Maybe val -> m () setInnerText self val   = liftIO-      (js_setInnerText (unHTMLElement (toHTMLElement self))-         (toMaybeJSString val))+      (js_setInnerText (toHTMLElement self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"innerText\"]"-        js_getInnerText :: JSRef HTMLElement -> IO (JSRef (Maybe JSString))+        js_getInnerText :: HTMLElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.innerText Mozilla HTMLElement.innerText documentation>  getInnerText ::@@ -295,12 +271,10 @@                self -> m (Maybe result) getInnerText self   = liftIO-      (fromMaybeJSString <$>-         (js_getInnerText (unHTMLElement (toHTMLElement self))))+      (fromMaybeJSString <$> (js_getInnerText (toHTMLElement self)))   foreign import javascript unsafe "$1[\"outerText\"] = $2;"-        js_setOuterText ::-        JSRef HTMLElement -> JSRef (Maybe JSString) -> IO ()+        js_setOuterText :: HTMLElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.outerText Mozilla HTMLElement.outerText documentation>  setOuterText ::@@ -308,11 +282,10 @@                self -> Maybe val -> m () setOuterText self val   = liftIO-      (js_setOuterText (unHTMLElement (toHTMLElement self))-         (toMaybeJSString val))+      (js_setOuterText (toHTMLElement self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"outerText\"]"-        js_getOuterText :: JSRef HTMLElement -> IO (JSRef (Maybe JSString))+        js_getOuterText :: HTMLElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.outerText Mozilla HTMLElement.outerText documentation>  getOuterText ::@@ -320,23 +293,20 @@                self -> m (Maybe result) getOuterText self   = liftIO-      (fromMaybeJSString <$>-         (js_getOuterText (unHTMLElement (toHTMLElement self))))+      (fromMaybeJSString <$> (js_getOuterText (toHTMLElement self)))   foreign import javascript unsafe "$1[\"children\"]" js_getChildren-        :: JSRef HTMLElement -> IO (JSRef HTMLCollection)+        :: HTMLElement -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.children Mozilla HTMLElement.children documentation>  getChildren ::             (MonadIO m, IsHTMLElement self) => self -> m (Maybe HTMLCollection) getChildren self   = liftIO-      ((js_getChildren (unHTMLElement (toHTMLElement self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getChildren (toHTMLElement self)))   foreign import javascript unsafe "$1[\"contentEditable\"] = $2;"-        js_setContentEditable ::-        JSRef HTMLElement -> JSRef (Maybe JSString) -> IO ()+        js_setContentEditable :: HTMLElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.contentEditable Mozilla HTMLElement.contentEditable documentation>  setContentEditable ::@@ -344,12 +314,10 @@                      self -> Maybe val -> m () setContentEditable self val   = liftIO-      (js_setContentEditable (unHTMLElement (toHTMLElement self))-         (toMaybeJSString val))+      (js_setContentEditable (toHTMLElement self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"contentEditable\"]"-        js_getContentEditable ::-        JSRef HTMLElement -> IO (JSRef (Maybe JSString))+        js_getContentEditable :: HTMLElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.contentEditable Mozilla HTMLElement.contentEditable documentation>  getContentEditable ::@@ -358,33 +326,30 @@ getContentEditable self   = liftIO       (fromMaybeJSString <$>-         (js_getContentEditable (unHTMLElement (toHTMLElement self))))+         (js_getContentEditable (toHTMLElement self)))   foreign import javascript unsafe         "($1[\"isContentEditable\"] ? 1 : 0)" js_getIsContentEditable ::-        JSRef HTMLElement -> IO Bool+        HTMLElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.isContentEditable Mozilla HTMLElement.isContentEditable documentation>  getIsContentEditable ::                      (MonadIO m, IsHTMLElement self) => self -> m Bool getIsContentEditable self-  = liftIO-      (js_getIsContentEditable (unHTMLElement (toHTMLElement self)))+  = liftIO (js_getIsContentEditable (toHTMLElement self))   foreign import javascript unsafe "$1[\"spellcheck\"] = $2;"-        js_setSpellcheck :: JSRef HTMLElement -> Bool -> IO ()+        js_setSpellcheck :: HTMLElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.spellcheck Mozilla HTMLElement.spellcheck documentation>  setSpellcheck ::               (MonadIO m, IsHTMLElement self) => self -> Bool -> m () setSpellcheck self val-  = liftIO-      (js_setSpellcheck (unHTMLElement (toHTMLElement self)) val)+  = liftIO (js_setSpellcheck (toHTMLElement self) val)   foreign import javascript unsafe "($1[\"spellcheck\"] ? 1 : 0)"-        js_getSpellcheck :: JSRef HTMLElement -> IO Bool+        js_getSpellcheck :: HTMLElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLElement.spellcheck Mozilla HTMLElement.spellcheck documentation>  getSpellcheck :: (MonadIO m, IsHTMLElement self) => self -> m Bool-getSpellcheck self-  = liftIO (js_getSpellcheck (unHTMLElement (toHTMLElement self)))+getSpellcheck self = liftIO (js_getSpellcheck (toHTMLElement self))
src/GHCJS/DOM/JSFFI/Generated/HTMLEmbedElement.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,121 +23,106 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"getSVGDocument\"]()"-        js_getSVGDocument ::-        JSRef HTMLEmbedElement -> IO (JSRef SVGDocument)+        js_getSVGDocument :: HTMLEmbedElement -> IO (Nullable SVGDocument)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.getSVGDocument Mozilla HTMLEmbedElement.getSVGDocument documentation>  getSVGDocument ::                (MonadIO m) => HTMLEmbedElement -> m (Maybe SVGDocument) getSVGDocument self-  = liftIO-      ((js_getSVGDocument (unHTMLEmbedElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSVGDocument (self)))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLEmbedElement -> JSString -> IO ()+        :: HTMLEmbedElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.align Mozilla HTMLEmbedElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m ()-setAlign self val-  = liftIO (js_setAlign (unHTMLEmbedElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLEmbedElement -> IO JSString+        HTMLEmbedElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.align Mozilla HTMLEmbedElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result-getAlign self-  = liftIO (fromJSString <$> (js_getAlign (unHTMLEmbedElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))   foreign import javascript unsafe "$1[\"height\"] = $2;"-        js_setHeight :: JSRef HTMLEmbedElement -> JSString -> IO ()+        js_setHeight :: HTMLEmbedElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.height Mozilla HTMLEmbedElement.height documentation>  setHeight ::           (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m ()-setHeight self val-  = liftIO (js_setHeight (unHTMLEmbedElement self) (toJSString val))+setHeight self val = liftIO (js_setHeight (self) (toJSString val))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef HTMLEmbedElement -> IO JSString+        HTMLEmbedElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.height Mozilla HTMLEmbedElement.height documentation>  getHeight ::           (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result-getHeight self-  = liftIO-      (fromJSString <$> (js_getHeight (unHTMLEmbedElement self)))+getHeight self = liftIO (fromJSString <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLEmbedElement -> JSString -> IO ()+        HTMLEmbedElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.name Mozilla HTMLEmbedElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLEmbedElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLEmbedElement -> IO JSString+        HTMLEmbedElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.name Mozilla HTMLEmbedElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unHTMLEmbedElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::-        JSRef HTMLEmbedElement -> JSString -> IO ()+        HTMLEmbedElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.src Mozilla HTMLEmbedElement.src documentation>  setSrc ::        (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m ()-setSrc self val-  = liftIO (js_setSrc (unHTMLEmbedElement self) (toJSString val))+setSrc self val = liftIO (js_setSrc (self) (toJSString val))   foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::-        JSRef HTMLEmbedElement -> IO JSString+        HTMLEmbedElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.src Mozilla HTMLEmbedElement.src documentation>  getSrc ::        (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result-getSrc self-  = liftIO (fromJSString <$> (js_getSrc (unHTMLEmbedElement self)))+getSrc self = liftIO (fromJSString <$> (js_getSrc (self)))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        JSRef HTMLEmbedElement -> JSString -> IO ()+        HTMLEmbedElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.type Mozilla HTMLEmbedElement.type documentation>  setType ::         (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m ()-setType self val-  = liftIO (js_setType (unHTMLEmbedElement self) (toJSString val))+setType self val = liftIO (js_setType (self) (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLEmbedElement -> IO JSString+        HTMLEmbedElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.type Mozilla HTMLEmbedElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unHTMLEmbedElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: JSRef HTMLEmbedElement -> JSString -> IO ()+        :: HTMLEmbedElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.width Mozilla HTMLEmbedElement.width documentation>  setWidth ::          (MonadIO m, ToJSString val) => HTMLEmbedElement -> val -> m ()-setWidth self val-  = liftIO (js_setWidth (unHTMLEmbedElement self) (toJSString val))+setWidth self val = liftIO (js_setWidth (self) (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef HTMLEmbedElement -> IO JSString+        HTMLEmbedElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLEmbedElement.width Mozilla HTMLEmbedElement.width documentation>  getWidth ::          (MonadIO m, FromJSString result) => HTMLEmbedElement -> m result-getWidth self-  = liftIO (fromJSString <$> (js_getWidth (unHTMLEmbedElement self)))+getWidth self = liftIO (fromJSString <$> (js_getWidth (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLFieldSetElement.hs view
@@ -10,7 +10,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -25,115 +25,99 @@   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::-        JSRef HTMLFieldSetElement -> IO Bool+        HTMLFieldSetElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.checkValidity Mozilla HTMLFieldSetElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLFieldSetElement -> m Bool-checkValidity self-  = liftIO (js_checkValidity (unHTMLFieldSetElement self))+checkValidity self = liftIO (js_checkValidity (self))   foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         js_setCustomValidity ::-        JSRef HTMLFieldSetElement -> JSRef (Maybe JSString) -> IO ()+        HTMLFieldSetElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.setCustomValidity Mozilla HTMLFieldSetElement.setCustomValidity documentation>  setCustomValidity ::                   (MonadIO m, ToJSString error) =>                     HTMLFieldSetElement -> Maybe error -> m () setCustomValidity self error-  = liftIO-      (js_setCustomValidity (unHTMLFieldSetElement self)-         (toMaybeJSString error))+  = liftIO (js_setCustomValidity (self) (toMaybeJSString error))   foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        js_setDisabled :: JSRef HTMLFieldSetElement -> Bool -> IO ()+        js_setDisabled :: HTMLFieldSetElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.disabled Mozilla HTMLFieldSetElement.disabled documentation>  setDisabled :: (MonadIO m) => HTMLFieldSetElement -> Bool -> m ()-setDisabled self val-  = liftIO (js_setDisabled (unHTMLFieldSetElement self) val)+setDisabled self val = liftIO (js_setDisabled (self) val)   foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        js_getDisabled :: JSRef HTMLFieldSetElement -> IO Bool+        js_getDisabled :: HTMLFieldSetElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.disabled Mozilla HTMLFieldSetElement.disabled documentation>  getDisabled :: (MonadIO m) => HTMLFieldSetElement -> m Bool-getDisabled self-  = liftIO (js_getDisabled (unHTMLFieldSetElement self))+getDisabled self = liftIO (js_getDisabled (self))   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::-        JSRef HTMLFieldSetElement -> IO (JSRef HTMLFormElement)+        HTMLFieldSetElement -> IO (Nullable HTMLFormElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.form Mozilla HTMLFieldSetElement.form documentation>  getForm ::         (MonadIO m) => HTMLFieldSetElement -> m (Maybe HTMLFormElement)-getForm self-  = liftIO ((js_getForm (unHTMLFieldSetElement self)) >>= fromJSRef)+getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLFieldSetElement -> JSString -> IO ()+        HTMLFieldSetElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.name Mozilla HTMLFieldSetElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLFieldSetElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLFieldSetElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLFieldSetElement -> IO JSString+        HTMLFieldSetElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.name Mozilla HTMLFieldSetElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLFieldSetElement -> m result-getName self-  = liftIO-      (fromJSString <$> (js_getName (unHTMLFieldSetElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLFieldSetElement -> IO JSString+        HTMLFieldSetElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.type Mozilla HTMLFieldSetElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLFieldSetElement -> m result-getType self-  = liftIO-      (fromJSString <$> (js_getType (unHTMLFieldSetElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"elements\"]" js_getElements-        :: JSRef HTMLFieldSetElement -> IO (JSRef HTMLCollection)+        :: HTMLFieldSetElement -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.elements Mozilla HTMLFieldSetElement.elements documentation>  getElements ::             (MonadIO m) => HTMLFieldSetElement -> m (Maybe HTMLCollection) getElements self-  = liftIO-      ((js_getElements (unHTMLFieldSetElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getElements (self)))   foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"-        js_getWillValidate :: JSRef HTMLFieldSetElement -> IO Bool+        js_getWillValidate :: HTMLFieldSetElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.willValidate Mozilla HTMLFieldSetElement.willValidate documentation>  getWillValidate :: (MonadIO m) => HTMLFieldSetElement -> m Bool-getWillValidate self-  = liftIO (js_getWillValidate (unHTMLFieldSetElement self))+getWillValidate self = liftIO (js_getWillValidate (self))   foreign import javascript unsafe "$1[\"validity\"]" js_getValidity-        :: JSRef HTMLFieldSetElement -> IO (JSRef ValidityState)+        :: HTMLFieldSetElement -> IO (Nullable ValidityState)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.validity Mozilla HTMLFieldSetElement.validity documentation>  getValidity ::             (MonadIO m) => HTMLFieldSetElement -> m (Maybe ValidityState) getValidity self-  = liftIO-      ((js_getValidity (unHTMLFieldSetElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getValidity (self)))   foreign import javascript unsafe "$1[\"validationMessage\"]"-        js_getValidationMessage :: JSRef HTMLFieldSetElement -> IO JSString+        js_getValidationMessage :: HTMLFieldSetElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFieldSetElement.validationMessage Mozilla HTMLFieldSetElement.validationMessage documentation>  getValidationMessage ::                      (MonadIO m, FromJSString result) => HTMLFieldSetElement -> m result getValidationMessage self-  = liftIO-      (fromJSString <$>-         (js_getValidationMessage (unHTMLFieldSetElement self)))+  = liftIO (fromJSString <$> (js_getValidationMessage (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLFontElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,55 +20,49 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"color\"] = $2;" js_setColor-        :: JSRef HTMLFontElement -> JSString -> IO ()+        :: HTMLFontElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.color Mozilla HTMLFontElement.color documentation>  setColor ::          (MonadIO m, ToJSString val) => HTMLFontElement -> val -> m ()-setColor self val-  = liftIO (js_setColor (unHTMLFontElement self) (toJSString val))+setColor self val = liftIO (js_setColor (self) (toJSString val))   foreign import javascript unsafe "$1[\"color\"]" js_getColor ::-        JSRef HTMLFontElement -> IO JSString+        HTMLFontElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.color Mozilla HTMLFontElement.color documentation>  getColor ::          (MonadIO m, FromJSString result) => HTMLFontElement -> m result-getColor self-  = liftIO (fromJSString <$> (js_getColor (unHTMLFontElement self)))+getColor self = liftIO (fromJSString <$> (js_getColor (self)))   foreign import javascript unsafe "$1[\"face\"] = $2;" js_setFace ::-        JSRef HTMLFontElement -> JSString -> IO ()+        HTMLFontElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.face Mozilla HTMLFontElement.face documentation>  setFace ::         (MonadIO m, ToJSString val) => HTMLFontElement -> val -> m ()-setFace self val-  = liftIO (js_setFace (unHTMLFontElement self) (toJSString val))+setFace self val = liftIO (js_setFace (self) (toJSString val))   foreign import javascript unsafe "$1[\"face\"]" js_getFace ::-        JSRef HTMLFontElement -> IO JSString+        HTMLFontElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.face Mozilla HTMLFontElement.face documentation>  getFace ::         (MonadIO m, FromJSString result) => HTMLFontElement -> m result-getFace self-  = liftIO (fromJSString <$> (js_getFace (unHTMLFontElement self)))+getFace self = liftIO (fromJSString <$> (js_getFace (self)))   foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::-        JSRef HTMLFontElement -> JSString -> IO ()+        HTMLFontElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.size Mozilla HTMLFontElement.size documentation>  setSize ::         (MonadIO m, ToJSString val) => HTMLFontElement -> val -> m ()-setSize self val-  = liftIO (js_setSize (unHTMLFontElement self) (toJSString val))+setSize self val = liftIO (js_setSize (self) (toJSString val))   foreign import javascript unsafe "$1[\"size\"]" js_getSize ::-        JSRef HTMLFontElement -> IO JSString+        HTMLFontElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFontElement.size Mozilla HTMLFontElement.size documentation>  getSize ::         (MonadIO m, FromJSString result) => HTMLFontElement -> m result-getSize self-  = liftIO (fromJSString <$> (js_getSize (unHTMLFontElement self)))+getSize self = liftIO (fromJSString <$> (js_getSize (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLFormControlsCollection.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,18 +20,17 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::-        JSRef HTMLFormControlsCollection -> Word -> IO (JSRef Node)+        HTMLFormControlsCollection -> Word -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection._get Mozilla HTMLFormControlsCollection._get documentation>  _get ::      (MonadIO m) => HTMLFormControlsCollection -> Word -> m (Maybe Node) _get self index-  = liftIO-      ((js__get (unHTMLFormControlsCollection self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js__get (self) index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"         js_namedItem ::-        JSRef HTMLFormControlsCollection -> JSString -> IO (JSRef Node)+        HTMLFormControlsCollection -> JSString -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormControlsCollection.namedItem Mozilla HTMLFormControlsCollection.namedItem documentation>  namedItem ::@@ -39,6 +38,4 @@             HTMLFormControlsCollection -> name -> m (Maybe Node) namedItem self name   = liftIO-      ((js_namedItem (unHTMLFormControlsCollection self)-          (toJSString name))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))
src/GHCJS/DOM/JSFFI/Generated/HTMLFormElement.hs view
@@ -19,7 +19,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -33,276 +33,246 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::-        JSRef HTMLFormElement -> Word -> IO (JSRef Element)+        HTMLFormElement -> Word -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement._get Mozilla HTMLFormElement._get documentation>  _get :: (MonadIO m) => HTMLFormElement -> Word -> m (Maybe Element) _get self index-  = liftIO ((js__get (unHTMLFormElement self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js__get (self) index))   foreign import javascript unsafe "$1[\"submit\"]()" js_submit ::-        JSRef HTMLFormElement -> IO ()+        HTMLFormElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.submit Mozilla HTMLFormElement.submit documentation>  submit :: (MonadIO m) => HTMLFormElement -> m ()-submit self = liftIO (js_submit (unHTMLFormElement self))+submit self = liftIO (js_submit (self))   foreign import javascript unsafe "$1[\"reset\"]()" js_reset ::-        JSRef HTMLFormElement -> IO ()+        HTMLFormElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.reset Mozilla HTMLFormElement.reset documentation>  reset :: (MonadIO m) => HTMLFormElement -> m ()-reset self = liftIO (js_reset (unHTMLFormElement self))+reset self = liftIO (js_reset (self))   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::-        JSRef HTMLFormElement -> IO Bool+        HTMLFormElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.checkValidity Mozilla HTMLFormElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLFormElement -> m Bool-checkValidity self-  = liftIO (js_checkValidity (unHTMLFormElement self))+checkValidity self = liftIO (js_checkValidity (self))   foreign import javascript unsafe "$1[\"requestAutocomplete\"]()"-        js_requestAutocomplete :: JSRef HTMLFormElement -> IO ()+        js_requestAutocomplete :: HTMLFormElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.requestAutocomplete Mozilla HTMLFormElement.requestAutocomplete documentation>  requestAutocomplete :: (MonadIO m) => HTMLFormElement -> m ()-requestAutocomplete self-  = liftIO (js_requestAutocomplete (unHTMLFormElement self))+requestAutocomplete self = liftIO (js_requestAutocomplete (self))   foreign import javascript unsafe "$1[\"acceptCharset\"] = $2;"-        js_setAcceptCharset :: JSRef HTMLFormElement -> JSString -> IO ()+        js_setAcceptCharset :: HTMLFormElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.acceptCharset Mozilla HTMLFormElement.acceptCharset documentation>  setAcceptCharset ::                  (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m () setAcceptCharset self val-  = liftIO-      (js_setAcceptCharset (unHTMLFormElement self) (toJSString val))+  = liftIO (js_setAcceptCharset (self) (toJSString val))   foreign import javascript unsafe "$1[\"acceptCharset\"]"-        js_getAcceptCharset :: JSRef HTMLFormElement -> IO JSString+        js_getAcceptCharset :: HTMLFormElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.acceptCharset Mozilla HTMLFormElement.acceptCharset documentation>  getAcceptCharset ::                  (MonadIO m, FromJSString result) => HTMLFormElement -> m result getAcceptCharset self-  = liftIO-      (fromJSString <$> (js_getAcceptCharset (unHTMLFormElement self)))+  = liftIO (fromJSString <$> (js_getAcceptCharset (self)))   foreign import javascript unsafe "$1[\"action\"] = $2;"-        js_setAction :: JSRef HTMLFormElement -> JSString -> IO ()+        js_setAction :: HTMLFormElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.action Mozilla HTMLFormElement.action documentation>  setAction ::           (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m ()-setAction self val-  = liftIO (js_setAction (unHTMLFormElement self) (toJSString val))+setAction self val = liftIO (js_setAction (self) (toJSString val))   foreign import javascript unsafe "$1[\"action\"]" js_getAction ::-        JSRef HTMLFormElement -> IO JSString+        HTMLFormElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.action Mozilla HTMLFormElement.action documentation>  getAction ::           (MonadIO m, FromJSString result) => HTMLFormElement -> m result-getAction self-  = liftIO (fromJSString <$> (js_getAction (unHTMLFormElement self)))+getAction self = liftIO (fromJSString <$> (js_getAction (self)))   foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"-        js_setAutocomplete :: JSRef HTMLFormElement -> JSString -> IO ()+        js_setAutocomplete :: HTMLFormElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocomplete Mozilla HTMLFormElement.autocomplete documentation>  setAutocomplete ::                 (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m () setAutocomplete self val-  = liftIO-      (js_setAutocomplete (unHTMLFormElement self) (toJSString val))+  = liftIO (js_setAutocomplete (self) (toJSString val))   foreign import javascript unsafe "$1[\"autocomplete\"]"-        js_getAutocomplete :: JSRef HTMLFormElement -> IO JSString+        js_getAutocomplete :: HTMLFormElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocomplete Mozilla HTMLFormElement.autocomplete documentation>  getAutocomplete ::                 (MonadIO m, FromJSString result) => HTMLFormElement -> m result getAutocomplete self-  = liftIO-      (fromJSString <$> (js_getAutocomplete (unHTMLFormElement self)))+  = liftIO (fromJSString <$> (js_getAutocomplete (self)))   foreign import javascript unsafe "$1[\"enctype\"] = $2;"-        js_setEnctype ::-        JSRef HTMLFormElement -> JSRef (Maybe JSString) -> IO ()+        js_setEnctype :: HTMLFormElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.enctype Mozilla HTMLFormElement.enctype documentation>  setEnctype ::            (MonadIO m, ToJSString val) => HTMLFormElement -> Maybe val -> m () setEnctype self val-  = liftIO-      (js_setEnctype (unHTMLFormElement self) (toMaybeJSString val))+  = liftIO (js_setEnctype (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"enctype\"]" js_getEnctype ::-        JSRef HTMLFormElement -> IO (JSRef (Maybe JSString))+        HTMLFormElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.enctype Mozilla HTMLFormElement.enctype documentation>  getEnctype ::            (MonadIO m, FromJSString result) =>              HTMLFormElement -> m (Maybe result) getEnctype self-  = liftIO-      (fromMaybeJSString <$> (js_getEnctype (unHTMLFormElement self)))+  = liftIO (fromMaybeJSString <$> (js_getEnctype (self)))   foreign import javascript unsafe "$1[\"encoding\"] = $2;"-        js_setEncoding ::-        JSRef HTMLFormElement -> JSRef (Maybe JSString) -> IO ()+        js_setEncoding :: HTMLFormElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.encoding Mozilla HTMLFormElement.encoding documentation>  setEncoding ::             (MonadIO m, ToJSString val) => HTMLFormElement -> Maybe val -> m () setEncoding self val-  = liftIO-      (js_setEncoding (unHTMLFormElement self) (toMaybeJSString val))+  = liftIO (js_setEncoding (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"encoding\"]" js_getEncoding-        :: JSRef HTMLFormElement -> IO (JSRef (Maybe JSString))+        :: HTMLFormElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.encoding Mozilla HTMLFormElement.encoding documentation>  getEncoding ::             (MonadIO m, FromJSString result) =>               HTMLFormElement -> m (Maybe result) getEncoding self-  = liftIO-      (fromMaybeJSString <$> (js_getEncoding (unHTMLFormElement self)))+  = liftIO (fromMaybeJSString <$> (js_getEncoding (self)))   foreign import javascript unsafe "$1[\"method\"] = $2;"-        js_setMethod ::-        JSRef HTMLFormElement -> JSRef (Maybe JSString) -> IO ()+        js_setMethod :: HTMLFormElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.method Mozilla HTMLFormElement.method documentation>  setMethod ::           (MonadIO m, ToJSString val) => HTMLFormElement -> Maybe val -> m () setMethod self val-  = liftIO-      (js_setMethod (unHTMLFormElement self) (toMaybeJSString val))+  = liftIO (js_setMethod (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"method\"]" js_getMethod ::-        JSRef HTMLFormElement -> IO (JSRef (Maybe JSString))+        HTMLFormElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.method Mozilla HTMLFormElement.method documentation>  getMethod ::           (MonadIO m, FromJSString result) =>             HTMLFormElement -> m (Maybe result) getMethod self-  = liftIO-      (fromMaybeJSString <$> (js_getMethod (unHTMLFormElement self)))+  = liftIO (fromMaybeJSString <$> (js_getMethod (self)))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLFormElement -> JSString -> IO ()+        HTMLFormElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.name Mozilla HTMLFormElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLFormElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLFormElement -> IO JSString+        HTMLFormElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.name Mozilla HTMLFormElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLFormElement -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unHTMLFormElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"noValidate\"] = $2;"-        js_setNoValidate :: JSRef HTMLFormElement -> Bool -> IO ()+        js_setNoValidate :: HTMLFormElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.noValidate Mozilla HTMLFormElement.noValidate documentation>  setNoValidate :: (MonadIO m) => HTMLFormElement -> Bool -> m ()-setNoValidate self val-  = liftIO (js_setNoValidate (unHTMLFormElement self) val)+setNoValidate self val = liftIO (js_setNoValidate (self) val)   foreign import javascript unsafe "($1[\"noValidate\"] ? 1 : 0)"-        js_getNoValidate :: JSRef HTMLFormElement -> IO Bool+        js_getNoValidate :: HTMLFormElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.noValidate Mozilla HTMLFormElement.noValidate documentation>  getNoValidate :: (MonadIO m) => HTMLFormElement -> m Bool-getNoValidate self-  = liftIO (js_getNoValidate (unHTMLFormElement self))+getNoValidate self = liftIO (js_getNoValidate (self))   foreign import javascript unsafe "$1[\"target\"] = $2;"-        js_setTarget :: JSRef HTMLFormElement -> JSString -> IO ()+        js_setTarget :: HTMLFormElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.target Mozilla HTMLFormElement.target documentation>  setTarget ::           (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m ()-setTarget self val-  = liftIO (js_setTarget (unHTMLFormElement self) (toJSString val))+setTarget self val = liftIO (js_setTarget (self) (toJSString val))   foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::-        JSRef HTMLFormElement -> IO JSString+        HTMLFormElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.target Mozilla HTMLFormElement.target documentation>  getTarget ::           (MonadIO m, FromJSString result) => HTMLFormElement -> m result-getTarget self-  = liftIO (fromJSString <$> (js_getTarget (unHTMLFormElement self)))+getTarget self = liftIO (fromJSString <$> (js_getTarget (self)))   foreign import javascript unsafe "$1[\"elements\"]" js_getElements-        :: JSRef HTMLFormElement -> IO (JSRef HTMLCollection)+        :: HTMLFormElement -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.elements Mozilla HTMLFormElement.elements documentation>  getElements ::             (MonadIO m) => HTMLFormElement -> m (Maybe HTMLCollection) getElements self-  = liftIO ((js_getElements (unHTMLFormElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getElements (self)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef HTMLFormElement -> IO Int+        HTMLFormElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.length Mozilla HTMLFormElement.length documentation>  getLength :: (MonadIO m) => HTMLFormElement -> m Int-getLength self = liftIO (js_getLength (unHTMLFormElement self))+getLength self = liftIO (js_getLength (self))   foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"-        js_setAutocorrect :: JSRef HTMLFormElement -> Bool -> IO ()+        js_setAutocorrect :: HTMLFormElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocorrect Mozilla HTMLFormElement.autocorrect documentation>  setAutocorrect :: (MonadIO m) => HTMLFormElement -> Bool -> m ()-setAutocorrect self val-  = liftIO (js_setAutocorrect (unHTMLFormElement self) val)+setAutocorrect self val = liftIO (js_setAutocorrect (self) val)   foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"-        js_getAutocorrect :: JSRef HTMLFormElement -> IO Bool+        js_getAutocorrect :: HTMLFormElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocorrect Mozilla HTMLFormElement.autocorrect documentation>  getAutocorrect :: (MonadIO m) => HTMLFormElement -> m Bool-getAutocorrect self-  = liftIO (js_getAutocorrect (unHTMLFormElement self))+getAutocorrect self = liftIO (js_getAutocorrect (self))   foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"         js_setAutocapitalize ::-        JSRef HTMLFormElement -> JSRef (Maybe JSString) -> IO ()+        HTMLFormElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocapitalize Mozilla HTMLFormElement.autocapitalize documentation>  setAutocapitalize ::                   (MonadIO m, ToJSString val) => HTMLFormElement -> Maybe val -> m () setAutocapitalize self val-  = liftIO-      (js_setAutocapitalize (unHTMLFormElement self)-         (toMaybeJSString val))+  = liftIO (js_setAutocapitalize (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"autocapitalize\"]"-        js_getAutocapitalize ::-        JSRef HTMLFormElement -> IO (JSRef (Maybe JSString))+        js_getAutocapitalize :: HTMLFormElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.autocapitalize Mozilla HTMLFormElement.autocapitalize documentation>  getAutocapitalize ::                   (MonadIO m, FromJSString result) =>                     HTMLFormElement -> m (Maybe result) getAutocapitalize self-  = liftIO-      (fromMaybeJSString <$>-         (js_getAutocapitalize (unHTMLFormElement self)))+  = liftIO (fromMaybeJSString <$> (js_getAutocapitalize (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFormElement.onautocomplete Mozilla HTMLFormElement.onautocomplete documentation>  autocomplete :: EventName HTMLFormElement onautocomplete
src/GHCJS/DOM/JSFFI/Generated/HTMLFrameElement.hs view
@@ -16,7 +16,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -30,222 +30,198 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"getSVGDocument\"]()"-        js_getSVGDocument ::-        JSRef HTMLFrameElement -> IO (JSRef SVGDocument)+        js_getSVGDocument :: HTMLFrameElement -> IO (Nullable SVGDocument)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.getSVGDocument Mozilla HTMLFrameElement.getSVGDocument documentation>  getSVGDocument ::                (MonadIO m) => HTMLFrameElement -> m (Maybe SVGDocument) getSVGDocument self-  = liftIO-      ((js_getSVGDocument (unHTMLFrameElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSVGDocument (self)))   foreign import javascript unsafe "$1[\"frameBorder\"] = $2;"-        js_setFrameBorder :: JSRef HTMLFrameElement -> JSString -> IO ()+        js_setFrameBorder :: HTMLFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.frameBorder Mozilla HTMLFrameElement.frameBorder documentation>  setFrameBorder ::                (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m () setFrameBorder self val-  = liftIO-      (js_setFrameBorder (unHTMLFrameElement self) (toJSString val))+  = liftIO (js_setFrameBorder (self) (toJSString val))   foreign import javascript unsafe "$1[\"frameBorder\"]"-        js_getFrameBorder :: JSRef HTMLFrameElement -> IO JSString+        js_getFrameBorder :: HTMLFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.frameBorder Mozilla HTMLFrameElement.frameBorder documentation>  getFrameBorder ::                (MonadIO m, FromJSString result) => HTMLFrameElement -> m result getFrameBorder self-  = liftIO-      (fromJSString <$> (js_getFrameBorder (unHTMLFrameElement self)))+  = liftIO (fromJSString <$> (js_getFrameBorder (self)))   foreign import javascript unsafe "$1[\"longDesc\"] = $2;"-        js_setLongDesc :: JSRef HTMLFrameElement -> JSString -> IO ()+        js_setLongDesc :: HTMLFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.longDesc Mozilla HTMLFrameElement.longDesc documentation>  setLongDesc ::             (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m () setLongDesc self val-  = liftIO-      (js_setLongDesc (unHTMLFrameElement self) (toJSString val))+  = liftIO (js_setLongDesc (self) (toJSString val))   foreign import javascript unsafe "$1[\"longDesc\"]" js_getLongDesc-        :: JSRef HTMLFrameElement -> IO JSString+        :: HTMLFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.longDesc Mozilla HTMLFrameElement.longDesc documentation>  getLongDesc ::             (MonadIO m, FromJSString result) => HTMLFrameElement -> m result getLongDesc self-  = liftIO-      (fromJSString <$> (js_getLongDesc (unHTMLFrameElement self)))+  = liftIO (fromJSString <$> (js_getLongDesc (self)))   foreign import javascript unsafe "$1[\"marginHeight\"] = $2;"-        js_setMarginHeight :: JSRef HTMLFrameElement -> JSString -> IO ()+        js_setMarginHeight :: HTMLFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginHeight Mozilla HTMLFrameElement.marginHeight documentation>  setMarginHeight ::                 (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m () setMarginHeight self val-  = liftIO-      (js_setMarginHeight (unHTMLFrameElement self) (toJSString val))+  = liftIO (js_setMarginHeight (self) (toJSString val))   foreign import javascript unsafe "$1[\"marginHeight\"]"-        js_getMarginHeight :: JSRef HTMLFrameElement -> IO JSString+        js_getMarginHeight :: HTMLFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginHeight Mozilla HTMLFrameElement.marginHeight documentation>  getMarginHeight ::                 (MonadIO m, FromJSString result) => HTMLFrameElement -> m result getMarginHeight self-  = liftIO-      (fromJSString <$> (js_getMarginHeight (unHTMLFrameElement self)))+  = liftIO (fromJSString <$> (js_getMarginHeight (self)))   foreign import javascript unsafe "$1[\"marginWidth\"] = $2;"-        js_setMarginWidth :: JSRef HTMLFrameElement -> JSString -> IO ()+        js_setMarginWidth :: HTMLFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginWidth Mozilla HTMLFrameElement.marginWidth documentation>  setMarginWidth ::                (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m () setMarginWidth self val-  = liftIO-      (js_setMarginWidth (unHTMLFrameElement self) (toJSString val))+  = liftIO (js_setMarginWidth (self) (toJSString val))   foreign import javascript unsafe "$1[\"marginWidth\"]"-        js_getMarginWidth :: JSRef HTMLFrameElement -> IO JSString+        js_getMarginWidth :: HTMLFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.marginWidth Mozilla HTMLFrameElement.marginWidth documentation>  getMarginWidth ::                (MonadIO m, FromJSString result) => HTMLFrameElement -> m result getMarginWidth self-  = liftIO-      (fromJSString <$> (js_getMarginWidth (unHTMLFrameElement self)))+  = liftIO (fromJSString <$> (js_getMarginWidth (self)))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLFrameElement -> JSString -> IO ()+        HTMLFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.name Mozilla HTMLFrameElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLFrameElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLFrameElement -> IO JSString+        HTMLFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.name Mozilla HTMLFrameElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLFrameElement -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unHTMLFrameElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"noResize\"] = $2;"-        js_setNoResize :: JSRef HTMLFrameElement -> Bool -> IO ()+        js_setNoResize :: HTMLFrameElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.noResize Mozilla HTMLFrameElement.noResize documentation>  setNoResize :: (MonadIO m) => HTMLFrameElement -> Bool -> m ()-setNoResize self val-  = liftIO (js_setNoResize (unHTMLFrameElement self) val)+setNoResize self val = liftIO (js_setNoResize (self) val)   foreign import javascript unsafe "($1[\"noResize\"] ? 1 : 0)"-        js_getNoResize :: JSRef HTMLFrameElement -> IO Bool+        js_getNoResize :: HTMLFrameElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.noResize Mozilla HTMLFrameElement.noResize documentation>  getNoResize :: (MonadIO m) => HTMLFrameElement -> m Bool-getNoResize self-  = liftIO (js_getNoResize (unHTMLFrameElement self))+getNoResize self = liftIO (js_getNoResize (self))   foreign import javascript unsafe "$1[\"scrolling\"] = $2;"-        js_setScrolling :: JSRef HTMLFrameElement -> JSString -> IO ()+        js_setScrolling :: HTMLFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.scrolling Mozilla HTMLFrameElement.scrolling documentation>  setScrolling ::              (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m () setScrolling self val-  = liftIO-      (js_setScrolling (unHTMLFrameElement self) (toJSString val))+  = liftIO (js_setScrolling (self) (toJSString val))   foreign import javascript unsafe "$1[\"scrolling\"]"-        js_getScrolling :: JSRef HTMLFrameElement -> IO JSString+        js_getScrolling :: HTMLFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.scrolling Mozilla HTMLFrameElement.scrolling documentation>  getScrolling ::              (MonadIO m, FromJSString result) => HTMLFrameElement -> m result getScrolling self-  = liftIO-      (fromJSString <$> (js_getScrolling (unHTMLFrameElement self)))+  = liftIO (fromJSString <$> (js_getScrolling (self)))   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::-        JSRef HTMLFrameElement -> JSString -> IO ()+        HTMLFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.src Mozilla HTMLFrameElement.src documentation>  setSrc ::        (MonadIO m, ToJSString val) => HTMLFrameElement -> val -> m ()-setSrc self val-  = liftIO (js_setSrc (unHTMLFrameElement self) (toJSString val))+setSrc self val = liftIO (js_setSrc (self) (toJSString val))   foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::-        JSRef HTMLFrameElement -> IO JSString+        HTMLFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.src Mozilla HTMLFrameElement.src documentation>  getSrc ::        (MonadIO m, FromJSString result) => HTMLFrameElement -> m result-getSrc self-  = liftIO (fromJSString <$> (js_getSrc (unHTMLFrameElement self)))+getSrc self = liftIO (fromJSString <$> (js_getSrc (self)))   foreign import javascript unsafe "$1[\"contentDocument\"]"-        js_getContentDocument ::-        JSRef HTMLFrameElement -> IO (JSRef Document)+        js_getContentDocument :: HTMLFrameElement -> IO (Nullable Document)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentDocument Mozilla HTMLFrameElement.contentDocument documentation>  getContentDocument ::                    (MonadIO m) => HTMLFrameElement -> m (Maybe Document) getContentDocument self-  = liftIO-      ((js_getContentDocument (unHTMLFrameElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getContentDocument (self)))   foreign import javascript unsafe "$1[\"contentWindow\"]"-        js_getContentWindow :: JSRef HTMLFrameElement -> IO (JSRef Window)+        js_getContentWindow :: HTMLFrameElement -> IO (Nullable Window)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.contentWindow Mozilla HTMLFrameElement.contentWindow documentation>  getContentWindow ::                  (MonadIO m) => HTMLFrameElement -> m (Maybe Window) getContentWindow self-  = liftIO-      ((js_getContentWindow (unHTMLFrameElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getContentWindow (self)))   foreign import javascript unsafe "$1[\"location\"] = $2;"-        js_setLocation ::-        JSRef HTMLFrameElement -> JSRef (Maybe JSString) -> IO ()+        js_setLocation :: HTMLFrameElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.location Mozilla HTMLFrameElement.location documentation>  setLocation ::             (MonadIO m, ToJSString val) =>               HTMLFrameElement -> Maybe val -> m () setLocation self val-  = liftIO-      (js_setLocation (unHTMLFrameElement self) (toMaybeJSString val))+  = liftIO (js_setLocation (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"location\"]" js_getLocation-        :: JSRef HTMLFrameElement -> IO (JSRef (Maybe JSString))+        :: HTMLFrameElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.location Mozilla HTMLFrameElement.location documentation>  getLocation ::             (MonadIO m, FromJSString result) =>               HTMLFrameElement -> m (Maybe result) getLocation self-  = liftIO-      (fromMaybeJSString <$> (js_getLocation (unHTMLFrameElement self)))+  = liftIO (fromMaybeJSString <$> (js_getLocation (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef HTMLFrameElement -> IO Int+        HTMLFrameElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.width Mozilla HTMLFrameElement.width documentation>  getWidth :: (MonadIO m) => HTMLFrameElement -> m Int-getWidth self = liftIO (js_getWidth (unHTMLFrameElement self))+getWidth self = liftIO (js_getWidth (self))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef HTMLFrameElement -> IO Int+        HTMLFrameElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameElement.height Mozilla HTMLFrameElement.height documentation>  getHeight :: (MonadIO m) => HTMLFrameElement -> m Int-getHeight self = liftIO (js_getHeight (unHTMLFrameElement self))+getHeight self = liftIO (js_getHeight (self))
src/GHCJS/DOM/JSFFI/Generated/HTMLFrameSetElement.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,42 +22,36 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"cols\"] = $2;" js_setCols ::-        JSRef HTMLFrameSetElement -> JSString -> IO ()+        HTMLFrameSetElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.cols Mozilla HTMLFrameSetElement.cols documentation>  setCols ::         (MonadIO m, ToJSString val) => HTMLFrameSetElement -> val -> m ()-setCols self val-  = liftIO (js_setCols (unHTMLFrameSetElement self) (toJSString val))+setCols self val = liftIO (js_setCols (self) (toJSString val))   foreign import javascript unsafe "$1[\"cols\"]" js_getCols ::-        JSRef HTMLFrameSetElement -> IO JSString+        HTMLFrameSetElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.cols Mozilla HTMLFrameSetElement.cols documentation>  getCols ::         (MonadIO m, FromJSString result) => HTMLFrameSetElement -> m result-getCols self-  = liftIO-      (fromJSString <$> (js_getCols (unHTMLFrameSetElement self)))+getCols self = liftIO (fromJSString <$> (js_getCols (self)))   foreign import javascript unsafe "$1[\"rows\"] = $2;" js_setRows ::-        JSRef HTMLFrameSetElement -> JSString -> IO ()+        HTMLFrameSetElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.rows Mozilla HTMLFrameSetElement.rows documentation>  setRows ::         (MonadIO m, ToJSString val) => HTMLFrameSetElement -> val -> m ()-setRows self val-  = liftIO (js_setRows (unHTMLFrameSetElement self) (toJSString val))+setRows self val = liftIO (js_setRows (self) (toJSString val))   foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::-        JSRef HTMLFrameSetElement -> IO JSString+        HTMLFrameSetElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.rows Mozilla HTMLFrameSetElement.rows documentation>  getRows ::         (MonadIO m, FromJSString result) => HTMLFrameSetElement -> m result-getRows self-  = liftIO-      (fromJSString <$> (js_getRows (unHTMLFrameSetElement self)))+getRows self = liftIO (fromJSString <$> (js_getRows (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLFrameSetElement.onbeforeunload Mozilla HTMLFrameSetElement.onbeforeunload documentation>  beforeUnload :: EventName HTMLFrameSetElement BeforeUnloadEvent
src/GHCJS/DOM/JSFFI/Generated/HTMLHRElement.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,70 +21,63 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLHRElement -> JSString -> IO ()+        :: HTMLHRElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.align Mozilla HTMLHRElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) => HTMLHRElement -> val -> m ()-setAlign self val-  = liftIO (js_setAlign (unHTMLHRElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLHRElement -> IO JSString+        HTMLHRElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.align Mozilla HTMLHRElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) => HTMLHRElement -> m result-getAlign self-  = liftIO (fromJSString <$> (js_getAlign (unHTMLHRElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))   foreign import javascript unsafe "$1[\"noShade\"] = $2;"-        js_setNoShade :: JSRef HTMLHRElement -> Bool -> IO ()+        js_setNoShade :: HTMLHRElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.noShade Mozilla HTMLHRElement.noShade documentation>  setNoShade :: (MonadIO m) => HTMLHRElement -> Bool -> m ()-setNoShade self val-  = liftIO (js_setNoShade (unHTMLHRElement self) val)+setNoShade self val = liftIO (js_setNoShade (self) val)   foreign import javascript unsafe "($1[\"noShade\"] ? 1 : 0)"-        js_getNoShade :: JSRef HTMLHRElement -> IO Bool+        js_getNoShade :: HTMLHRElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.noShade Mozilla HTMLHRElement.noShade documentation>  getNoShade :: (MonadIO m) => HTMLHRElement -> m Bool-getNoShade self = liftIO (js_getNoShade (unHTMLHRElement self))+getNoShade self = liftIO (js_getNoShade (self))   foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::-        JSRef HTMLHRElement -> JSString -> IO ()+        HTMLHRElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.size Mozilla HTMLHRElement.size documentation>  setSize ::         (MonadIO m, ToJSString val) => HTMLHRElement -> val -> m ()-setSize self val-  = liftIO (js_setSize (unHTMLHRElement self) (toJSString val))+setSize self val = liftIO (js_setSize (self) (toJSString val))   foreign import javascript unsafe "$1[\"size\"]" js_getSize ::-        JSRef HTMLHRElement -> IO JSString+        HTMLHRElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.size Mozilla HTMLHRElement.size documentation>  getSize ::         (MonadIO m, FromJSString result) => HTMLHRElement -> m result-getSize self-  = liftIO (fromJSString <$> (js_getSize (unHTMLHRElement self)))+getSize self = liftIO (fromJSString <$> (js_getSize (self)))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: JSRef HTMLHRElement -> JSString -> IO ()+        :: HTMLHRElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.width Mozilla HTMLHRElement.width documentation>  setWidth ::          (MonadIO m, ToJSString val) => HTMLHRElement -> val -> m ()-setWidth self val-  = liftIO (js_setWidth (unHTMLHRElement self) (toJSString val))+setWidth self val = liftIO (js_setWidth (self) (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef HTMLHRElement -> IO JSString+        HTMLHRElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHRElement.width Mozilla HTMLHRElement.width documentation>  getWidth ::          (MonadIO m, FromJSString result) => HTMLHRElement -> m result-getWidth self-  = liftIO (fromJSString <$> (js_getWidth (unHTMLHRElement self)))+getWidth self = liftIO (fromJSString <$> (js_getWidth (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLHeadElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,20 +19,18 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"profile\"] = $2;"-        js_setProfile :: JSRef HTMLHeadElement -> JSString -> IO ()+        js_setProfile :: HTMLHeadElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadElement.profile Mozilla HTMLHeadElement.profile documentation>  setProfile ::            (MonadIO m, ToJSString val) => HTMLHeadElement -> val -> m () setProfile self val-  = liftIO (js_setProfile (unHTMLHeadElement self) (toJSString val))+  = liftIO (js_setProfile (self) (toJSString val))   foreign import javascript unsafe "$1[\"profile\"]" js_getProfile ::-        JSRef HTMLHeadElement -> IO JSString+        HTMLHeadElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadElement.profile Mozilla HTMLHeadElement.profile documentation>  getProfile ::            (MonadIO m, FromJSString result) => HTMLHeadElement -> m result-getProfile self-  = liftIO-      (fromJSString <$> (js_getProfile (unHTMLHeadElement self)))+getProfile self = liftIO (fromJSString <$> (js_getProfile (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLHeadingElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,20 +19,17 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLHeadingElement -> JSString -> IO ()+        :: HTMLHeadingElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadingElement.align Mozilla HTMLHeadingElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) => HTMLHeadingElement -> val -> m ()-setAlign self val-  = liftIO (js_setAlign (unHTMLHeadingElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLHeadingElement -> IO JSString+        HTMLHeadingElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHeadingElement.align Mozilla HTMLHeadingElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) => HTMLHeadingElement -> m result-getAlign self-  = liftIO-      (fromJSString <$> (js_getAlign (unHTMLHeadingElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLHtmlElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,39 +20,36 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"version\"] = $2;"-        js_setVersion :: JSRef HTMLHtmlElement -> JSString -> IO ()+        js_setVersion :: HTMLHtmlElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement.version Mozilla HTMLHtmlElement.version documentation>  setVersion ::            (MonadIO m, ToJSString val) => HTMLHtmlElement -> val -> m () setVersion self val-  = liftIO (js_setVersion (unHTMLHtmlElement self) (toJSString val))+  = liftIO (js_setVersion (self) (toJSString val))   foreign import javascript unsafe "$1[\"version\"]" js_getVersion ::-        JSRef HTMLHtmlElement -> IO JSString+        HTMLHtmlElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement.version Mozilla HTMLHtmlElement.version documentation>  getVersion ::            (MonadIO m, FromJSString result) => HTMLHtmlElement -> m result-getVersion self-  = liftIO-      (fromJSString <$> (js_getVersion (unHTMLHtmlElement self)))+getVersion self = liftIO (fromJSString <$> (js_getVersion (self)))   foreign import javascript unsafe "$1[\"manifest\"] = $2;"-        js_setManifest :: JSRef HTMLHtmlElement -> JSString -> IO ()+        js_setManifest :: HTMLHtmlElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement.manifest Mozilla HTMLHtmlElement.manifest documentation>  setManifest ::             (MonadIO m, ToJSString val) => HTMLHtmlElement -> val -> m () setManifest self val-  = liftIO (js_setManifest (unHTMLHtmlElement self) (toJSString val))+  = liftIO (js_setManifest (self) (toJSString val))   foreign import javascript unsafe "$1[\"manifest\"]" js_getManifest-        :: JSRef HTMLHtmlElement -> IO JSString+        :: HTMLHtmlElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLHtmlElement.manifest Mozilla HTMLHtmlElement.manifest documentation>  getManifest ::             (MonadIO m, FromJSString result) => HTMLHtmlElement -> m result getManifest self-  = liftIO-      (fromJSString <$> (js_getManifest (unHTMLHtmlElement self)))+  = liftIO (fromJSString <$> (js_getManifest (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLIFrameElement.hs view
@@ -18,7 +18,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -32,265 +32,232 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"getSVGDocument\"]()"-        js_getSVGDocument ::-        JSRef HTMLIFrameElement -> IO (JSRef SVGDocument)+        js_getSVGDocument :: HTMLIFrameElement -> IO (Nullable SVGDocument)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.getSVGDocument Mozilla HTMLIFrameElement.getSVGDocument documentation>  getSVGDocument ::                (MonadIO m) => HTMLIFrameElement -> m (Maybe SVGDocument) getSVGDocument self-  = liftIO-      ((js_getSVGDocument (unHTMLIFrameElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSVGDocument (self)))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLIFrameElement -> JSString -> IO ()+        :: HTMLIFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.align Mozilla HTMLIFrameElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setAlign self val-  = liftIO (js_setAlign (unHTMLIFrameElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLIFrameElement -> IO JSString+        HTMLIFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.align Mozilla HTMLIFrameElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result-getAlign self-  = liftIO-      (fromJSString <$> (js_getAlign (unHTMLIFrameElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))   foreign import javascript unsafe "$1[\"frameBorder\"] = $2;"-        js_setFrameBorder :: JSRef HTMLIFrameElement -> JSString -> IO ()+        js_setFrameBorder :: HTMLIFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.frameBorder Mozilla HTMLIFrameElement.frameBorder documentation>  setFrameBorder ::                (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () setFrameBorder self val-  = liftIO-      (js_setFrameBorder (unHTMLIFrameElement self) (toJSString val))+  = liftIO (js_setFrameBorder (self) (toJSString val))   foreign import javascript unsafe "$1[\"frameBorder\"]"-        js_getFrameBorder :: JSRef HTMLIFrameElement -> IO JSString+        js_getFrameBorder :: HTMLIFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.frameBorder Mozilla HTMLIFrameElement.frameBorder documentation>  getFrameBorder ::                (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result getFrameBorder self-  = liftIO-      (fromJSString <$> (js_getFrameBorder (unHTMLIFrameElement self)))+  = liftIO (fromJSString <$> (js_getFrameBorder (self)))   foreign import javascript unsafe "$1[\"height\"] = $2;"-        js_setHeight :: JSRef HTMLIFrameElement -> JSString -> IO ()+        js_setHeight :: HTMLIFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.height Mozilla HTMLIFrameElement.height documentation>  setHeight ::           (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setHeight self val-  = liftIO (js_setHeight (unHTMLIFrameElement self) (toJSString val))+setHeight self val = liftIO (js_setHeight (self) (toJSString val))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef HTMLIFrameElement -> IO JSString+        HTMLIFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.height Mozilla HTMLIFrameElement.height documentation>  getHeight ::           (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result-getHeight self-  = liftIO-      (fromJSString <$> (js_getHeight (unHTMLIFrameElement self)))+getHeight self = liftIO (fromJSString <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"longDesc\"] = $2;"-        js_setLongDesc :: JSRef HTMLIFrameElement -> JSString -> IO ()+        js_setLongDesc :: HTMLIFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.longDesc Mozilla HTMLIFrameElement.longDesc documentation>  setLongDesc ::             (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () setLongDesc self val-  = liftIO-      (js_setLongDesc (unHTMLIFrameElement self) (toJSString val))+  = liftIO (js_setLongDesc (self) (toJSString val))   foreign import javascript unsafe "$1[\"longDesc\"]" js_getLongDesc-        :: JSRef HTMLIFrameElement -> IO JSString+        :: HTMLIFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.longDesc Mozilla HTMLIFrameElement.longDesc documentation>  getLongDesc ::             (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result getLongDesc self-  = liftIO-      (fromJSString <$> (js_getLongDesc (unHTMLIFrameElement self)))+  = liftIO (fromJSString <$> (js_getLongDesc (self)))   foreign import javascript unsafe "$1[\"marginHeight\"] = $2;"-        js_setMarginHeight :: JSRef HTMLIFrameElement -> JSString -> IO ()+        js_setMarginHeight :: HTMLIFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginHeight Mozilla HTMLIFrameElement.marginHeight documentation>  setMarginHeight ::                 (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () setMarginHeight self val-  = liftIO-      (js_setMarginHeight (unHTMLIFrameElement self) (toJSString val))+  = liftIO (js_setMarginHeight (self) (toJSString val))   foreign import javascript unsafe "$1[\"marginHeight\"]"-        js_getMarginHeight :: JSRef HTMLIFrameElement -> IO JSString+        js_getMarginHeight :: HTMLIFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginHeight Mozilla HTMLIFrameElement.marginHeight documentation>  getMarginHeight ::                 (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result getMarginHeight self-  = liftIO-      (fromJSString <$> (js_getMarginHeight (unHTMLIFrameElement self)))+  = liftIO (fromJSString <$> (js_getMarginHeight (self)))   foreign import javascript unsafe "$1[\"marginWidth\"] = $2;"-        js_setMarginWidth :: JSRef HTMLIFrameElement -> JSString -> IO ()+        js_setMarginWidth :: HTMLIFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginWidth Mozilla HTMLIFrameElement.marginWidth documentation>  setMarginWidth ::                (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () setMarginWidth self val-  = liftIO-      (js_setMarginWidth (unHTMLIFrameElement self) (toJSString val))+  = liftIO (js_setMarginWidth (self) (toJSString val))   foreign import javascript unsafe "$1[\"marginWidth\"]"-        js_getMarginWidth :: JSRef HTMLIFrameElement -> IO JSString+        js_getMarginWidth :: HTMLIFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.marginWidth Mozilla HTMLIFrameElement.marginWidth documentation>  getMarginWidth ::                (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result getMarginWidth self-  = liftIO-      (fromJSString <$> (js_getMarginWidth (unHTMLIFrameElement self)))+  = liftIO (fromJSString <$> (js_getMarginWidth (self)))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLIFrameElement -> JSString -> IO ()+        HTMLIFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.name Mozilla HTMLIFrameElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLIFrameElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLIFrameElement -> IO JSString+        HTMLIFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.name Mozilla HTMLIFrameElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unHTMLIFrameElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"sandbox\"] = $2;"-        js_setSandbox :: JSRef HTMLIFrameElement -> JSString -> IO ()+        js_setSandbox :: HTMLIFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.sandbox Mozilla HTMLIFrameElement.sandbox documentation>  setSandbox ::            (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () setSandbox self val-  = liftIO-      (js_setSandbox (unHTMLIFrameElement self) (toJSString val))+  = liftIO (js_setSandbox (self) (toJSString val))   foreign import javascript unsafe "$1[\"sandbox\"]" js_getSandbox ::-        JSRef HTMLIFrameElement -> IO JSString+        HTMLIFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.sandbox Mozilla HTMLIFrameElement.sandbox documentation>  getSandbox ::            (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result-getSandbox self-  = liftIO-      (fromJSString <$> (js_getSandbox (unHTMLIFrameElement self)))+getSandbox self = liftIO (fromJSString <$> (js_getSandbox (self)))   foreign import javascript unsafe "$1[\"scrolling\"] = $2;"-        js_setScrolling :: JSRef HTMLIFrameElement -> JSString -> IO ()+        js_setScrolling :: HTMLIFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.scrolling Mozilla HTMLIFrameElement.scrolling documentation>  setScrolling ::              (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m () setScrolling self val-  = liftIO-      (js_setScrolling (unHTMLIFrameElement self) (toJSString val))+  = liftIO (js_setScrolling (self) (toJSString val))   foreign import javascript unsafe "$1[\"scrolling\"]"-        js_getScrolling :: JSRef HTMLIFrameElement -> IO JSString+        js_getScrolling :: HTMLIFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.scrolling Mozilla HTMLIFrameElement.scrolling documentation>  getScrolling ::              (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result getScrolling self-  = liftIO-      (fromJSString <$> (js_getScrolling (unHTMLIFrameElement self)))+  = liftIO (fromJSString <$> (js_getScrolling (self)))   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::-        JSRef HTMLIFrameElement -> JSString -> IO ()+        HTMLIFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.src Mozilla HTMLIFrameElement.src documentation>  setSrc ::        (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setSrc self val-  = liftIO (js_setSrc (unHTMLIFrameElement self) (toJSString val))+setSrc self val = liftIO (js_setSrc (self) (toJSString val))   foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::-        JSRef HTMLIFrameElement -> IO JSString+        HTMLIFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.src Mozilla HTMLIFrameElement.src documentation>  getSrc ::        (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result-getSrc self-  = liftIO (fromJSString <$> (js_getSrc (unHTMLIFrameElement self)))+getSrc self = liftIO (fromJSString <$> (js_getSrc (self)))   foreign import javascript unsafe "$1[\"srcdoc\"] = $2;"-        js_setSrcdoc :: JSRef HTMLIFrameElement -> JSString -> IO ()+        js_setSrcdoc :: HTMLIFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.srcdoc Mozilla HTMLIFrameElement.srcdoc documentation>  setSrcdoc ::           (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setSrcdoc self val-  = liftIO (js_setSrcdoc (unHTMLIFrameElement self) (toJSString val))+setSrcdoc self val = liftIO (js_setSrcdoc (self) (toJSString val))   foreign import javascript unsafe "$1[\"srcdoc\"]" js_getSrcdoc ::-        JSRef HTMLIFrameElement -> IO JSString+        HTMLIFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.srcdoc Mozilla HTMLIFrameElement.srcdoc documentation>  getSrcdoc ::           (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result-getSrcdoc self-  = liftIO-      (fromJSString <$> (js_getSrcdoc (unHTMLIFrameElement self)))+getSrcdoc self = liftIO (fromJSString <$> (js_getSrcdoc (self)))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: JSRef HTMLIFrameElement -> JSString -> IO ()+        :: HTMLIFrameElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.width Mozilla HTMLIFrameElement.width documentation>  setWidth ::          (MonadIO m, ToJSString val) => HTMLIFrameElement -> val -> m ()-setWidth self val-  = liftIO (js_setWidth (unHTMLIFrameElement self) (toJSString val))+setWidth self val = liftIO (js_setWidth (self) (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef HTMLIFrameElement -> IO JSString+        HTMLIFrameElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.width Mozilla HTMLIFrameElement.width documentation>  getWidth ::          (MonadIO m, FromJSString result) => HTMLIFrameElement -> m result-getWidth self-  = liftIO-      (fromJSString <$> (js_getWidth (unHTMLIFrameElement self)))+getWidth self = liftIO (fromJSString <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"contentDocument\"]"         js_getContentDocument ::-        JSRef HTMLIFrameElement -> IO (JSRef Document)+        HTMLIFrameElement -> IO (Nullable Document)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentDocument Mozilla HTMLIFrameElement.contentDocument documentation>  getContentDocument ::                    (MonadIO m) => HTMLIFrameElement -> m (Maybe Document) getContentDocument self-  = liftIO-      ((js_getContentDocument (unHTMLIFrameElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getContentDocument (self)))   foreign import javascript unsafe "$1[\"contentWindow\"]"-        js_getContentWindow :: JSRef HTMLIFrameElement -> IO (JSRef Window)+        js_getContentWindow :: HTMLIFrameElement -> IO (Nullable Window)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLIFrameElement.contentWindow Mozilla HTMLIFrameElement.contentWindow documentation>  getContentWindow ::                  (MonadIO m) => HTMLIFrameElement -> m (Maybe Window) getContentWindow self-  = liftIO-      ((js_getContentWindow (unHTMLIFrameElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getContentWindow (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLImageElement.hs view
@@ -20,7 +20,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -34,330 +34,295 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLImageElement -> JSString -> IO ()+        HTMLImageElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.name Mozilla HTMLImageElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLImageElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLImageElement -> IO JSString+        HTMLImageElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.name Mozilla HTMLImageElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLImageElement -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unHTMLImageElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLImageElement -> JSString -> IO ()+        :: HTMLImageElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.align Mozilla HTMLImageElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()-setAlign self val-  = liftIO (js_setAlign (unHTMLImageElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLImageElement -> IO JSString+        HTMLImageElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.align Mozilla HTMLImageElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) => HTMLImageElement -> m result-getAlign self-  = liftIO (fromJSString <$> (js_getAlign (unHTMLImageElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))   foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::-        JSRef HTMLImageElement -> JSString -> IO ()+        HTMLImageElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.alt Mozilla HTMLImageElement.alt documentation>  setAlt ::        (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()-setAlt self val-  = liftIO (js_setAlt (unHTMLImageElement self) (toJSString val))+setAlt self val = liftIO (js_setAlt (self) (toJSString val))   foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::-        JSRef HTMLImageElement -> IO JSString+        HTMLImageElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.alt Mozilla HTMLImageElement.alt documentation>  getAlt ::        (MonadIO m, FromJSString result) => HTMLImageElement -> m result-getAlt self-  = liftIO (fromJSString <$> (js_getAlt (unHTMLImageElement self)))+getAlt self = liftIO (fromJSString <$> (js_getAlt (self)))   foreign import javascript unsafe "$1[\"border\"] = $2;"-        js_setBorder :: JSRef HTMLImageElement -> JSString -> IO ()+        js_setBorder :: HTMLImageElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.border Mozilla HTMLImageElement.border documentation>  setBorder ::           (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()-setBorder self val-  = liftIO (js_setBorder (unHTMLImageElement self) (toJSString val))+setBorder self val = liftIO (js_setBorder (self) (toJSString val))   foreign import javascript unsafe "$1[\"border\"]" js_getBorder ::-        JSRef HTMLImageElement -> IO JSString+        HTMLImageElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.border Mozilla HTMLImageElement.border documentation>  getBorder ::           (MonadIO m, FromJSString result) => HTMLImageElement -> m result-getBorder self-  = liftIO-      (fromJSString <$> (js_getBorder (unHTMLImageElement self)))+getBorder self = liftIO (fromJSString <$> (js_getBorder (self)))   foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"-        js_setCrossOrigin :: JSRef HTMLImageElement -> JSString -> IO ()+        js_setCrossOrigin :: HTMLImageElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.crossOrigin Mozilla HTMLImageElement.crossOrigin documentation>  setCrossOrigin ::                (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m () setCrossOrigin self val-  = liftIO-      (js_setCrossOrigin (unHTMLImageElement self) (toJSString val))+  = liftIO (js_setCrossOrigin (self) (toJSString val))   foreign import javascript unsafe "$1[\"crossOrigin\"]"-        js_getCrossOrigin :: JSRef HTMLImageElement -> IO JSString+        js_getCrossOrigin :: HTMLImageElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.crossOrigin Mozilla HTMLImageElement.crossOrigin documentation>  getCrossOrigin ::                (MonadIO m, FromJSString result) => HTMLImageElement -> m result getCrossOrigin self-  = liftIO-      (fromJSString <$> (js_getCrossOrigin (unHTMLImageElement self)))+  = liftIO (fromJSString <$> (js_getCrossOrigin (self)))   foreign import javascript unsafe "$1[\"height\"] = $2;"-        js_setHeight :: JSRef HTMLImageElement -> Int -> IO ()+        js_setHeight :: HTMLImageElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.height Mozilla HTMLImageElement.height documentation>  setHeight :: (MonadIO m) => HTMLImageElement -> Int -> m ()-setHeight self val-  = liftIO (js_setHeight (unHTMLImageElement self) val)+setHeight self val = liftIO (js_setHeight (self) val)   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef HTMLImageElement -> IO Int+        HTMLImageElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.height Mozilla HTMLImageElement.height documentation>  getHeight :: (MonadIO m) => HTMLImageElement -> m Int-getHeight self = liftIO (js_getHeight (unHTMLImageElement self))+getHeight self = liftIO (js_getHeight (self))   foreign import javascript unsafe "$1[\"hspace\"] = $2;"-        js_setHspace :: JSRef HTMLImageElement -> Int -> IO ()+        js_setHspace :: HTMLImageElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.hspace Mozilla HTMLImageElement.hspace documentation>  setHspace :: (MonadIO m) => HTMLImageElement -> Int -> m ()-setHspace self val-  = liftIO (js_setHspace (unHTMLImageElement self) val)+setHspace self val = liftIO (js_setHspace (self) val)   foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace ::-        JSRef HTMLImageElement -> IO Int+        HTMLImageElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.hspace Mozilla HTMLImageElement.hspace documentation>  getHspace :: (MonadIO m) => HTMLImageElement -> m Int-getHspace self = liftIO (js_getHspace (unHTMLImageElement self))+getHspace self = liftIO (js_getHspace (self))   foreign import javascript unsafe "$1[\"isMap\"] = $2;" js_setIsMap-        :: JSRef HTMLImageElement -> Bool -> IO ()+        :: HTMLImageElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.isMap Mozilla HTMLImageElement.isMap documentation>  setIsMap :: (MonadIO m) => HTMLImageElement -> Bool -> m ()-setIsMap self val-  = liftIO (js_setIsMap (unHTMLImageElement self) val)+setIsMap self val = liftIO (js_setIsMap (self) val)   foreign import javascript unsafe "($1[\"isMap\"] ? 1 : 0)"-        js_getIsMap :: JSRef HTMLImageElement -> IO Bool+        js_getIsMap :: HTMLImageElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.isMap Mozilla HTMLImageElement.isMap documentation>  getIsMap :: (MonadIO m) => HTMLImageElement -> m Bool-getIsMap self = liftIO (js_getIsMap (unHTMLImageElement self))+getIsMap self = liftIO (js_getIsMap (self))   foreign import javascript unsafe "$1[\"longDesc\"] = $2;"-        js_setLongDesc :: JSRef HTMLImageElement -> JSString -> IO ()+        js_setLongDesc :: HTMLImageElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.longDesc Mozilla HTMLImageElement.longDesc documentation>  setLongDesc ::             (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m () setLongDesc self val-  = liftIO-      (js_setLongDesc (unHTMLImageElement self) (toJSString val))+  = liftIO (js_setLongDesc (self) (toJSString val))   foreign import javascript unsafe "$1[\"longDesc\"]" js_getLongDesc-        :: JSRef HTMLImageElement -> IO JSString+        :: HTMLImageElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.longDesc Mozilla HTMLImageElement.longDesc documentation>  getLongDesc ::             (MonadIO m, FromJSString result) => HTMLImageElement -> m result getLongDesc self-  = liftIO-      (fromJSString <$> (js_getLongDesc (unHTMLImageElement self)))+  = liftIO (fromJSString <$> (js_getLongDesc (self)))   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::-        JSRef HTMLImageElement -> JSString -> IO ()+        HTMLImageElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.src Mozilla HTMLImageElement.src documentation>  setSrc ::        (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()-setSrc self val-  = liftIO (js_setSrc (unHTMLImageElement self) (toJSString val))+setSrc self val = liftIO (js_setSrc (self) (toJSString val))   foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::-        JSRef HTMLImageElement -> IO JSString+        HTMLImageElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.src Mozilla HTMLImageElement.src documentation>  getSrc ::        (MonadIO m, FromJSString result) => HTMLImageElement -> m result-getSrc self-  = liftIO (fromJSString <$> (js_getSrc (unHTMLImageElement self)))+getSrc self = liftIO (fromJSString <$> (js_getSrc (self)))   foreign import javascript unsafe "$1[\"srcset\"] = $2;"-        js_setSrcset :: JSRef HTMLImageElement -> JSString -> IO ()+        js_setSrcset :: HTMLImageElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.srcset Mozilla HTMLImageElement.srcset documentation>  setSrcset ::           (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()-setSrcset self val-  = liftIO (js_setSrcset (unHTMLImageElement self) (toJSString val))+setSrcset self val = liftIO (js_setSrcset (self) (toJSString val))   foreign import javascript unsafe "$1[\"srcset\"]" js_getSrcset ::-        JSRef HTMLImageElement -> IO JSString+        HTMLImageElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.srcset Mozilla HTMLImageElement.srcset documentation>  getSrcset ::           (MonadIO m, FromJSString result) => HTMLImageElement -> m result-getSrcset self-  = liftIO-      (fromJSString <$> (js_getSrcset (unHTMLImageElement self)))+getSrcset self = liftIO (fromJSString <$> (js_getSrcset (self)))   foreign import javascript unsafe "$1[\"sizes\"] = $2;" js_setSizes-        :: JSRef HTMLImageElement -> JSString -> IO ()+        :: HTMLImageElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.sizes Mozilla HTMLImageElement.sizes documentation>  setSizes ::          (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()-setSizes self val-  = liftIO (js_setSizes (unHTMLImageElement self) (toJSString val))+setSizes self val = liftIO (js_setSizes (self) (toJSString val))   foreign import javascript unsafe "$1[\"sizes\"]" js_getSizes ::-        JSRef HTMLImageElement -> IO JSString+        HTMLImageElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.sizes Mozilla HTMLImageElement.sizes documentation>  getSizes ::          (MonadIO m, FromJSString result) => HTMLImageElement -> m result-getSizes self-  = liftIO (fromJSString <$> (js_getSizes (unHTMLImageElement self)))+getSizes self = liftIO (fromJSString <$> (js_getSizes (self)))   foreign import javascript unsafe "$1[\"currentSrc\"]"-        js_getCurrentSrc :: JSRef HTMLImageElement -> IO JSString+        js_getCurrentSrc :: HTMLImageElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.currentSrc Mozilla HTMLImageElement.currentSrc documentation>  getCurrentSrc ::               (MonadIO m, FromJSString result) => HTMLImageElement -> m result getCurrentSrc self-  = liftIO-      (fromJSString <$> (js_getCurrentSrc (unHTMLImageElement self)))+  = liftIO (fromJSString <$> (js_getCurrentSrc (self)))   foreign import javascript unsafe "$1[\"useMap\"] = $2;"-        js_setUseMap :: JSRef HTMLImageElement -> JSString -> IO ()+        js_setUseMap :: HTMLImageElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.useMap Mozilla HTMLImageElement.useMap documentation>  setUseMap ::           (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()-setUseMap self val-  = liftIO (js_setUseMap (unHTMLImageElement self) (toJSString val))+setUseMap self val = liftIO (js_setUseMap (self) (toJSString val))   foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap ::-        JSRef HTMLImageElement -> IO JSString+        HTMLImageElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.useMap Mozilla HTMLImageElement.useMap documentation>  getUseMap ::           (MonadIO m, FromJSString result) => HTMLImageElement -> m result-getUseMap self-  = liftIO-      (fromJSString <$> (js_getUseMap (unHTMLImageElement self)))+getUseMap self = liftIO (fromJSString <$> (js_getUseMap (self)))   foreign import javascript unsafe "$1[\"vspace\"] = $2;"-        js_setVspace :: JSRef HTMLImageElement -> Int -> IO ()+        js_setVspace :: HTMLImageElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.vspace Mozilla HTMLImageElement.vspace documentation>  setVspace :: (MonadIO m) => HTMLImageElement -> Int -> m ()-setVspace self val-  = liftIO (js_setVspace (unHTMLImageElement self) val)+setVspace self val = liftIO (js_setVspace (self) val)   foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace ::-        JSRef HTMLImageElement -> IO Int+        HTMLImageElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.vspace Mozilla HTMLImageElement.vspace documentation>  getVspace :: (MonadIO m) => HTMLImageElement -> m Int-getVspace self = liftIO (js_getVspace (unHTMLImageElement self))+getVspace self = liftIO (js_getVspace (self))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: JSRef HTMLImageElement -> Int -> IO ()+        :: HTMLImageElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.width Mozilla HTMLImageElement.width documentation>  setWidth :: (MonadIO m) => HTMLImageElement -> Int -> m ()-setWidth self val-  = liftIO (js_setWidth (unHTMLImageElement self) val)+setWidth self val = liftIO (js_setWidth (self) val)   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef HTMLImageElement -> IO Int+        HTMLImageElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.width Mozilla HTMLImageElement.width documentation>  getWidth :: (MonadIO m) => HTMLImageElement -> m Int-getWidth self = liftIO (js_getWidth (unHTMLImageElement self))+getWidth self = liftIO (js_getWidth (self))   foreign import javascript unsafe "($1[\"complete\"] ? 1 : 0)"-        js_getComplete :: JSRef HTMLImageElement -> IO Bool+        js_getComplete :: HTMLImageElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.complete Mozilla HTMLImageElement.complete documentation>  getComplete :: (MonadIO m) => HTMLImageElement -> m Bool-getComplete self-  = liftIO (js_getComplete (unHTMLImageElement self))+getComplete self = liftIO (js_getComplete (self))   foreign import javascript unsafe "$1[\"lowsrc\"] = $2;"-        js_setLowsrc :: JSRef HTMLImageElement -> JSString -> IO ()+        js_setLowsrc :: HTMLImageElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.lowsrc Mozilla HTMLImageElement.lowsrc documentation>  setLowsrc ::           (MonadIO m, ToJSString val) => HTMLImageElement -> val -> m ()-setLowsrc self val-  = liftIO (js_setLowsrc (unHTMLImageElement self) (toJSString val))+setLowsrc self val = liftIO (js_setLowsrc (self) (toJSString val))   foreign import javascript unsafe "$1[\"lowsrc\"]" js_getLowsrc ::-        JSRef HTMLImageElement -> IO JSString+        HTMLImageElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.lowsrc Mozilla HTMLImageElement.lowsrc documentation>  getLowsrc ::           (MonadIO m, FromJSString result) => HTMLImageElement -> m result-getLowsrc self-  = liftIO-      (fromJSString <$> (js_getLowsrc (unHTMLImageElement self)))+getLowsrc self = liftIO (fromJSString <$> (js_getLowsrc (self)))   foreign import javascript unsafe "$1[\"naturalHeight\"]"-        js_getNaturalHeight :: JSRef HTMLImageElement -> IO Int+        js_getNaturalHeight :: HTMLImageElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.naturalHeight Mozilla HTMLImageElement.naturalHeight documentation>  getNaturalHeight :: (MonadIO m) => HTMLImageElement -> m Int-getNaturalHeight self-  = liftIO (js_getNaturalHeight (unHTMLImageElement self))+getNaturalHeight self = liftIO (js_getNaturalHeight (self))   foreign import javascript unsafe "$1[\"naturalWidth\"]"-        js_getNaturalWidth :: JSRef HTMLImageElement -> IO Int+        js_getNaturalWidth :: HTMLImageElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.naturalWidth Mozilla HTMLImageElement.naturalWidth documentation>  getNaturalWidth :: (MonadIO m) => HTMLImageElement -> m Int-getNaturalWidth self-  = liftIO (js_getNaturalWidth (unHTMLImageElement self))+getNaturalWidth self = liftIO (js_getNaturalWidth (self))   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef HTMLImageElement -> IO Int+        HTMLImageElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.x Mozilla HTMLImageElement.x documentation>  getX :: (MonadIO m) => HTMLImageElement -> m Int-getX self = liftIO (js_getX (unHTMLImageElement self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef HTMLImageElement -> IO Int+        HTMLImageElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLImageElement.y Mozilla HTMLImageElement.y documentation>  getY :: (MonadIO m) => HTMLImageElement -> m Int-getY self = liftIO (js_getY (unHTMLImageElement self))+getY self = liftIO (js_getY (self))
src/GHCJS/DOM/JSFFI/Generated/HTMLInputElement.hs view
@@ -55,7 +55,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -69,64 +69,58 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"stepUp\"]($2)" js_stepUp ::-        JSRef HTMLInputElement -> Int -> IO ()+        HTMLInputElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.stepUp Mozilla HTMLInputElement.stepUp documentation>  stepUp :: (MonadIO m) => HTMLInputElement -> Int -> m ()-stepUp self n = liftIO (js_stepUp (unHTMLInputElement self) n)+stepUp self n = liftIO (js_stepUp (self) n)   foreign import javascript unsafe "$1[\"stepDown\"]($2)" js_stepDown-        :: JSRef HTMLInputElement -> Int -> IO ()+        :: HTMLInputElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.stepDown Mozilla HTMLInputElement.stepDown documentation>  stepDown :: (MonadIO m) => HTMLInputElement -> Int -> m ()-stepDown self n = liftIO (js_stepDown (unHTMLInputElement self) n)+stepDown self n = liftIO (js_stepDown (self) n)   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::-        JSRef HTMLInputElement -> IO Bool+        HTMLInputElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.checkValidity Mozilla HTMLInputElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLInputElement -> m Bool-checkValidity self-  = liftIO (js_checkValidity (unHTMLInputElement self))+checkValidity self = liftIO (js_checkValidity (self))   foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         js_setCustomValidity ::-        JSRef HTMLInputElement -> JSRef (Maybe JSString) -> IO ()+        HTMLInputElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.setCustomValidity Mozilla HTMLInputElement.setCustomValidity documentation>  setCustomValidity ::                   (MonadIO m, ToJSString error) =>                     HTMLInputElement -> Maybe error -> m () setCustomValidity self error-  = liftIO-      (js_setCustomValidity (unHTMLInputElement self)-         (toMaybeJSString error))+  = liftIO (js_setCustomValidity (self) (toMaybeJSString error))   foreign import javascript unsafe "$1[\"select\"]()" js_select ::-        JSRef HTMLInputElement -> IO ()+        HTMLInputElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.select Mozilla HTMLInputElement.select documentation>  select :: (MonadIO m) => HTMLInputElement -> m ()-select self = liftIO (js_select (unHTMLInputElement self))+select self = liftIO (js_select (self))   foreign import javascript unsafe "$1[\"setRangeText\"]($2)"-        js_setRangeText :: JSRef HTMLInputElement -> JSString -> IO ()+        js_setRangeText :: HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.setRangeText Mozilla HTMLInputElement.setRangeText documentation>  setRangeText ::              (MonadIO m, ToJSString replacement) =>                HTMLInputElement -> replacement -> m () setRangeText self replacement-  = liftIO-      (js_setRangeText (unHTMLInputElement self)-         (toJSString replacement))+  = liftIO (js_setRangeText (self) (toJSString replacement))   foreign import javascript unsafe         "$1[\"setRangeText\"]($2, $3, $4,\n$5)" js_setRangeText4 ::-        JSRef HTMLInputElement ->-          JSString -> Word -> Word -> JSString -> IO ()+        HTMLInputElement -> JSString -> Word -> Word -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.setRangeText Mozilla HTMLInputElement.setRangeText documentation>  setRangeText4 ::@@ -135,15 +129,12 @@                   replacement -> Word -> Word -> selectionMode -> m () setRangeText4 self replacement start end selectionMode   = liftIO-      (js_setRangeText4 (unHTMLInputElement self)-         (toJSString replacement)-         start-         end+      (js_setRangeText4 (self) (toJSString replacement) start end          (toJSString selectionMode))   foreign import javascript unsafe         "$1[\"setSelectionRange\"]($2, $3,\n$4)" js_setSelectionRange ::-        JSRef HTMLInputElement -> Int -> Int -> JSString -> IO ()+        HTMLInputElement -> Int -> Int -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.setSelectionRange Mozilla HTMLInputElement.setSelectionRange documentation>  setSelectionRange ::@@ -151,845 +142,742 @@                     HTMLInputElement -> Int -> Int -> direction -> m () setSelectionRange self start end direction   = liftIO-      (js_setSelectionRange (unHTMLInputElement self) start end-         (toJSString direction))+      (js_setSelectionRange (self) start end (toJSString direction))   foreign import javascript unsafe "$1[\"accept\"] = $2;"-        js_setAccept :: JSRef HTMLInputElement -> JSString -> IO ()+        js_setAccept :: HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.accept Mozilla HTMLInputElement.accept documentation>  setAccept ::           (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()-setAccept self val-  = liftIO (js_setAccept (unHTMLInputElement self) (toJSString val))+setAccept self val = liftIO (js_setAccept (self) (toJSString val))   foreign import javascript unsafe "$1[\"accept\"]" js_getAccept ::-        JSRef HTMLInputElement -> IO JSString+        HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.accept Mozilla HTMLInputElement.accept documentation>  getAccept ::           (MonadIO m, FromJSString result) => HTMLInputElement -> m result-getAccept self-  = liftIO-      (fromJSString <$> (js_getAccept (unHTMLInputElement self)))+getAccept self = liftIO (fromJSString <$> (js_getAccept (self)))   foreign import javascript unsafe "$1[\"alt\"] = $2;" js_setAlt ::-        JSRef HTMLInputElement -> JSString -> IO ()+        HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.alt Mozilla HTMLInputElement.alt documentation>  setAlt ::        (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()-setAlt self val-  = liftIO (js_setAlt (unHTMLInputElement self) (toJSString val))+setAlt self val = liftIO (js_setAlt (self) (toJSString val))   foreign import javascript unsafe "$1[\"alt\"]" js_getAlt ::-        JSRef HTMLInputElement -> IO JSString+        HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.alt Mozilla HTMLInputElement.alt documentation>  getAlt ::        (MonadIO m, FromJSString result) => HTMLInputElement -> m result-getAlt self-  = liftIO (fromJSString <$> (js_getAlt (unHTMLInputElement self)))+getAlt self = liftIO (fromJSString <$> (js_getAlt (self)))   foreign import javascript unsafe "$1[\"autocomplete\"] = $2;"-        js_setAutocomplete :: JSRef HTMLInputElement -> JSString -> IO ()+        js_setAutocomplete :: HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocomplete Mozilla HTMLInputElement.autocomplete documentation>  setAutocomplete ::                 (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setAutocomplete self val-  = liftIO-      (js_setAutocomplete (unHTMLInputElement self) (toJSString val))+  = liftIO (js_setAutocomplete (self) (toJSString val))   foreign import javascript unsafe "$1[\"autocomplete\"]"-        js_getAutocomplete :: JSRef HTMLInputElement -> IO JSString+        js_getAutocomplete :: HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocomplete Mozilla HTMLInputElement.autocomplete documentation>  getAutocomplete ::                 (MonadIO m, FromJSString result) => HTMLInputElement -> m result getAutocomplete self-  = liftIO-      (fromJSString <$> (js_getAutocomplete (unHTMLInputElement self)))+  = liftIO (fromJSString <$> (js_getAutocomplete (self)))   foreign import javascript unsafe "$1[\"autofocus\"] = $2;"-        js_setAutofocus :: JSRef HTMLInputElement -> Bool -> IO ()+        js_setAutofocus :: HTMLInputElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autofocus Mozilla HTMLInputElement.autofocus documentation>  setAutofocus :: (MonadIO m) => HTMLInputElement -> Bool -> m ()-setAutofocus self val-  = liftIO (js_setAutofocus (unHTMLInputElement self) val)+setAutofocus self val = liftIO (js_setAutofocus (self) val)   foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"-        js_getAutofocus :: JSRef HTMLInputElement -> IO Bool+        js_getAutofocus :: HTMLInputElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autofocus Mozilla HTMLInputElement.autofocus documentation>  getAutofocus :: (MonadIO m) => HTMLInputElement -> m Bool-getAutofocus self-  = liftIO (js_getAutofocus (unHTMLInputElement self))+getAutofocus self = liftIO (js_getAutofocus (self))   foreign import javascript unsafe "$1[\"defaultChecked\"] = $2;"-        js_setDefaultChecked :: JSRef HTMLInputElement -> Bool -> IO ()+        js_setDefaultChecked :: HTMLInputElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultChecked Mozilla HTMLInputElement.defaultChecked documentation>  setDefaultChecked ::                   (MonadIO m) => HTMLInputElement -> Bool -> m () setDefaultChecked self val-  = liftIO (js_setDefaultChecked (unHTMLInputElement self) val)+  = liftIO (js_setDefaultChecked (self) val)   foreign import javascript unsafe "($1[\"defaultChecked\"] ? 1 : 0)"-        js_getDefaultChecked :: JSRef HTMLInputElement -> IO Bool+        js_getDefaultChecked :: HTMLInputElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultChecked Mozilla HTMLInputElement.defaultChecked documentation>  getDefaultChecked :: (MonadIO m) => HTMLInputElement -> m Bool-getDefaultChecked self-  = liftIO (js_getDefaultChecked (unHTMLInputElement self))+getDefaultChecked self = liftIO (js_getDefaultChecked (self))   foreign import javascript unsafe "$1[\"checked\"] = $2;"-        js_setChecked :: JSRef HTMLInputElement -> Bool -> IO ()+        js_setChecked :: HTMLInputElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.checked Mozilla HTMLInputElement.checked documentation>  setChecked :: (MonadIO m) => HTMLInputElement -> Bool -> m ()-setChecked self val-  = liftIO (js_setChecked (unHTMLInputElement self) val)+setChecked self val = liftIO (js_setChecked (self) val)   foreign import javascript unsafe "($1[\"checked\"] ? 1 : 0)"-        js_getChecked :: JSRef HTMLInputElement -> IO Bool+        js_getChecked :: HTMLInputElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.checked Mozilla HTMLInputElement.checked documentation>  getChecked :: (MonadIO m) => HTMLInputElement -> m Bool-getChecked self = liftIO (js_getChecked (unHTMLInputElement self))+getChecked self = liftIO (js_getChecked (self))   foreign import javascript unsafe "$1[\"dirName\"] = $2;"-        js_setDirName :: JSRef HTMLInputElement -> JSString -> IO ()+        js_setDirName :: HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.dirName Mozilla HTMLInputElement.dirName documentation>  setDirName ::            (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setDirName self val-  = liftIO (js_setDirName (unHTMLInputElement self) (toJSString val))+  = liftIO (js_setDirName (self) (toJSString val))   foreign import javascript unsafe "$1[\"dirName\"]" js_getDirName ::-        JSRef HTMLInputElement -> IO JSString+        HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.dirName Mozilla HTMLInputElement.dirName documentation>  getDirName ::            (MonadIO m, FromJSString result) => HTMLInputElement -> m result-getDirName self-  = liftIO-      (fromJSString <$> (js_getDirName (unHTMLInputElement self)))+getDirName self = liftIO (fromJSString <$> (js_getDirName (self)))   foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        js_setDisabled :: JSRef HTMLInputElement -> Bool -> IO ()+        js_setDisabled :: HTMLInputElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.disabled Mozilla HTMLInputElement.disabled documentation>  setDisabled :: (MonadIO m) => HTMLInputElement -> Bool -> m ()-setDisabled self val-  = liftIO (js_setDisabled (unHTMLInputElement self) val)+setDisabled self val = liftIO (js_setDisabled (self) val)   foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        js_getDisabled :: JSRef HTMLInputElement -> IO Bool+        js_getDisabled :: HTMLInputElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.disabled Mozilla HTMLInputElement.disabled documentation>  getDisabled :: (MonadIO m) => HTMLInputElement -> m Bool-getDisabled self-  = liftIO (js_getDisabled (unHTMLInputElement self))+getDisabled self = liftIO (js_getDisabled (self))   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::-        JSRef HTMLInputElement -> IO (JSRef HTMLFormElement)+        HTMLInputElement -> IO (Nullable HTMLFormElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.form Mozilla HTMLInputElement.form documentation>  getForm ::         (MonadIO m) => HTMLInputElement -> m (Maybe HTMLFormElement)-getForm self-  = liftIO ((js_getForm (unHTMLInputElement self)) >>= fromJSRef)+getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"files\"] = $2;" js_setFiles-        :: JSRef HTMLInputElement -> JSRef FileList -> IO ()+        :: HTMLInputElement -> Nullable FileList -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.files Mozilla HTMLInputElement.files documentation>  setFiles ::          (MonadIO m) => HTMLInputElement -> Maybe FileList -> m () setFiles self val-  = liftIO-      (js_setFiles (unHTMLInputElement self) (maybe jsNull pToJSRef val))+  = liftIO (js_setFiles (self) (maybeToNullable val))   foreign import javascript unsafe "$1[\"files\"]" js_getFiles ::-        JSRef HTMLInputElement -> IO (JSRef FileList)+        HTMLInputElement -> IO (Nullable FileList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.files Mozilla HTMLInputElement.files documentation>  getFiles :: (MonadIO m) => HTMLInputElement -> m (Maybe FileList)-getFiles self-  = liftIO ((js_getFiles (unHTMLInputElement self)) >>= fromJSRef)+getFiles self = liftIO (nullableToMaybe <$> (js_getFiles (self)))   foreign import javascript unsafe "$1[\"formAction\"] = $2;"-        js_setFormAction :: JSRef HTMLInputElement -> JSString -> IO ()+        js_setFormAction :: HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formAction Mozilla HTMLInputElement.formAction documentation>  setFormAction ::               (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setFormAction self val-  = liftIO-      (js_setFormAction (unHTMLInputElement self) (toJSString val))+  = liftIO (js_setFormAction (self) (toJSString val))   foreign import javascript unsafe "$1[\"formAction\"]"-        js_getFormAction :: JSRef HTMLInputElement -> IO JSString+        js_getFormAction :: HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formAction Mozilla HTMLInputElement.formAction documentation>  getFormAction ::               (MonadIO m, FromJSString result) => HTMLInputElement -> m result getFormAction self-  = liftIO-      (fromJSString <$> (js_getFormAction (unHTMLInputElement self)))+  = liftIO (fromJSString <$> (js_getFormAction (self)))   foreign import javascript unsafe "$1[\"formEnctype\"] = $2;"-        js_setFormEnctype ::-        JSRef HTMLInputElement -> JSRef (Maybe JSString) -> IO ()+        js_setFormEnctype :: HTMLInputElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formEnctype Mozilla HTMLInputElement.formEnctype documentation>  setFormEnctype ::                (MonadIO m, ToJSString val) =>                  HTMLInputElement -> Maybe val -> m () setFormEnctype self val-  = liftIO-      (js_setFormEnctype (unHTMLInputElement self) (toMaybeJSString val))+  = liftIO (js_setFormEnctype (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"formEnctype\"]"-        js_getFormEnctype ::-        JSRef HTMLInputElement -> IO (JSRef (Maybe JSString))+        js_getFormEnctype :: HTMLInputElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formEnctype Mozilla HTMLInputElement.formEnctype documentation>  getFormEnctype ::                (MonadIO m, FromJSString result) =>                  HTMLInputElement -> m (Maybe result) getFormEnctype self-  = liftIO-      (fromMaybeJSString <$>-         (js_getFormEnctype (unHTMLInputElement self)))+  = liftIO (fromMaybeJSString <$> (js_getFormEnctype (self)))   foreign import javascript unsafe "$1[\"formMethod\"] = $2;"-        js_setFormMethod ::-        JSRef HTMLInputElement -> JSRef (Maybe JSString) -> IO ()+        js_setFormMethod :: HTMLInputElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formMethod Mozilla HTMLInputElement.formMethod documentation>  setFormMethod ::               (MonadIO m, ToJSString val) =>                 HTMLInputElement -> Maybe val -> m () setFormMethod self val-  = liftIO-      (js_setFormMethod (unHTMLInputElement self) (toMaybeJSString val))+  = liftIO (js_setFormMethod (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"formMethod\"]"-        js_getFormMethod ::-        JSRef HTMLInputElement -> IO (JSRef (Maybe JSString))+        js_getFormMethod :: HTMLInputElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formMethod Mozilla HTMLInputElement.formMethod documentation>  getFormMethod ::               (MonadIO m, FromJSString result) =>                 HTMLInputElement -> m (Maybe result) getFormMethod self-  = liftIO-      (fromMaybeJSString <$>-         (js_getFormMethod (unHTMLInputElement self)))+  = liftIO (fromMaybeJSString <$> (js_getFormMethod (self)))   foreign import javascript unsafe "$1[\"formNoValidate\"] = $2;"-        js_setFormNoValidate :: JSRef HTMLInputElement -> Bool -> IO ()+        js_setFormNoValidate :: HTMLInputElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formNoValidate Mozilla HTMLInputElement.formNoValidate documentation>  setFormNoValidate ::                   (MonadIO m) => HTMLInputElement -> Bool -> m () setFormNoValidate self val-  = liftIO (js_setFormNoValidate (unHTMLInputElement self) val)+  = liftIO (js_setFormNoValidate (self) val)   foreign import javascript unsafe "($1[\"formNoValidate\"] ? 1 : 0)"-        js_getFormNoValidate :: JSRef HTMLInputElement -> IO Bool+        js_getFormNoValidate :: HTMLInputElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formNoValidate Mozilla HTMLInputElement.formNoValidate documentation>  getFormNoValidate :: (MonadIO m) => HTMLInputElement -> m Bool-getFormNoValidate self-  = liftIO (js_getFormNoValidate (unHTMLInputElement self))+getFormNoValidate self = liftIO (js_getFormNoValidate (self))   foreign import javascript unsafe "$1[\"formTarget\"] = $2;"-        js_setFormTarget :: JSRef HTMLInputElement -> JSString -> IO ()+        js_setFormTarget :: HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formTarget Mozilla HTMLInputElement.formTarget documentation>  setFormTarget ::               (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setFormTarget self val-  = liftIO-      (js_setFormTarget (unHTMLInputElement self) (toJSString val))+  = liftIO (js_setFormTarget (self) (toJSString val))   foreign import javascript unsafe "$1[\"formTarget\"]"-        js_getFormTarget :: JSRef HTMLInputElement -> IO JSString+        js_getFormTarget :: HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.formTarget Mozilla HTMLInputElement.formTarget documentation>  getFormTarget ::               (MonadIO m, FromJSString result) => HTMLInputElement -> m result getFormTarget self-  = liftIO-      (fromJSString <$> (js_getFormTarget (unHTMLInputElement self)))+  = liftIO (fromJSString <$> (js_getFormTarget (self)))   foreign import javascript unsafe "$1[\"height\"] = $2;"-        js_setHeight :: JSRef HTMLInputElement -> Word -> IO ()+        js_setHeight :: HTMLInputElement -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.height Mozilla HTMLInputElement.height documentation>  setHeight :: (MonadIO m) => HTMLInputElement -> Word -> m ()-setHeight self val-  = liftIO (js_setHeight (unHTMLInputElement self) val)+setHeight self val = liftIO (js_setHeight (self) val)   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef HTMLInputElement -> IO Word+        HTMLInputElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.height Mozilla HTMLInputElement.height documentation>  getHeight :: (MonadIO m) => HTMLInputElement -> m Word-getHeight self = liftIO (js_getHeight (unHTMLInputElement self))+getHeight self = liftIO (js_getHeight (self))   foreign import javascript unsafe "$1[\"indeterminate\"] = $2;"-        js_setIndeterminate :: JSRef HTMLInputElement -> Bool -> IO ()+        js_setIndeterminate :: HTMLInputElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.indeterminate Mozilla HTMLInputElement.indeterminate documentation>  setIndeterminate :: (MonadIO m) => HTMLInputElement -> Bool -> m ()-setIndeterminate self val-  = liftIO (js_setIndeterminate (unHTMLInputElement self) val)+setIndeterminate self val = liftIO (js_setIndeterminate (self) val)   foreign import javascript unsafe "($1[\"indeterminate\"] ? 1 : 0)"-        js_getIndeterminate :: JSRef HTMLInputElement -> IO Bool+        js_getIndeterminate :: HTMLInputElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.indeterminate Mozilla HTMLInputElement.indeterminate documentation>  getIndeterminate :: (MonadIO m) => HTMLInputElement -> m Bool-getIndeterminate self-  = liftIO (js_getIndeterminate (unHTMLInputElement self))+getIndeterminate self = liftIO (js_getIndeterminate (self))   foreign import javascript unsafe "$1[\"list\"]" js_getList ::-        JSRef HTMLInputElement -> IO (JSRef HTMLElement)+        HTMLInputElement -> IO (Nullable HTMLElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.list Mozilla HTMLInputElement.list documentation>  getList :: (MonadIO m) => HTMLInputElement -> m (Maybe HTMLElement)-getList self-  = liftIO ((js_getList (unHTMLInputElement self)) >>= fromJSRef)+getList self = liftIO (nullableToMaybe <$> (js_getList (self)))   foreign import javascript unsafe "$1[\"max\"] = $2;" js_setMax ::-        JSRef HTMLInputElement -> JSString -> IO ()+        HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.max Mozilla HTMLInputElement.max documentation>  setMax ::        (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()-setMax self val-  = liftIO (js_setMax (unHTMLInputElement self) (toJSString val))+setMax self val = liftIO (js_setMax (self) (toJSString val))   foreign import javascript unsafe "$1[\"max\"]" js_getMax ::-        JSRef HTMLInputElement -> IO JSString+        HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.max Mozilla HTMLInputElement.max documentation>  getMax ::        (MonadIO m, FromJSString result) => HTMLInputElement -> m result-getMax self-  = liftIO (fromJSString <$> (js_getMax (unHTMLInputElement self)))+getMax self = liftIO (fromJSString <$> (js_getMax (self)))   foreign import javascript unsafe "$1[\"maxLength\"] = $2;"-        js_setMaxLength :: JSRef HTMLInputElement -> Int -> IO ()+        js_setMaxLength :: HTMLInputElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.maxLength Mozilla HTMLInputElement.maxLength documentation>  setMaxLength :: (MonadIO m) => HTMLInputElement -> Int -> m ()-setMaxLength self val-  = liftIO (js_setMaxLength (unHTMLInputElement self) val)+setMaxLength self val = liftIO (js_setMaxLength (self) val)   foreign import javascript unsafe "$1[\"maxLength\"]"-        js_getMaxLength :: JSRef HTMLInputElement -> IO Int+        js_getMaxLength :: HTMLInputElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.maxLength Mozilla HTMLInputElement.maxLength documentation>  getMaxLength :: (MonadIO m) => HTMLInputElement -> m Int-getMaxLength self-  = liftIO (js_getMaxLength (unHTMLInputElement self))+getMaxLength self = liftIO (js_getMaxLength (self))   foreign import javascript unsafe "$1[\"min\"] = $2;" js_setMin ::-        JSRef HTMLInputElement -> JSString -> IO ()+        HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.min Mozilla HTMLInputElement.min documentation>  setMin ::        (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()-setMin self val-  = liftIO (js_setMin (unHTMLInputElement self) (toJSString val))+setMin self val = liftIO (js_setMin (self) (toJSString val))   foreign import javascript unsafe "$1[\"min\"]" js_getMin ::-        JSRef HTMLInputElement -> IO JSString+        HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.min Mozilla HTMLInputElement.min documentation>  getMin ::        (MonadIO m, FromJSString result) => HTMLInputElement -> m result-getMin self-  = liftIO (fromJSString <$> (js_getMin (unHTMLInputElement self)))+getMin self = liftIO (fromJSString <$> (js_getMin (self)))   foreign import javascript unsafe "$1[\"multiple\"] = $2;"-        js_setMultiple :: JSRef HTMLInputElement -> Bool -> IO ()+        js_setMultiple :: HTMLInputElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.multiple Mozilla HTMLInputElement.multiple documentation>  setMultiple :: (MonadIO m) => HTMLInputElement -> Bool -> m ()-setMultiple self val-  = liftIO (js_setMultiple (unHTMLInputElement self) val)+setMultiple self val = liftIO (js_setMultiple (self) val)   foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)"-        js_getMultiple :: JSRef HTMLInputElement -> IO Bool+        js_getMultiple :: HTMLInputElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.multiple Mozilla HTMLInputElement.multiple documentation>  getMultiple :: (MonadIO m) => HTMLInputElement -> m Bool-getMultiple self-  = liftIO (js_getMultiple (unHTMLInputElement self))+getMultiple self = liftIO (js_getMultiple (self))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLInputElement -> JSString -> IO ()+        HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.name Mozilla HTMLInputElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLInputElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLInputElement -> IO JSString+        HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.name Mozilla HTMLInputElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLInputElement -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unHTMLInputElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"pattern\"] = $2;"-        js_setPattern :: JSRef HTMLInputElement -> JSString -> IO ()+        js_setPattern :: HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.pattern Mozilla HTMLInputElement.pattern documentation>  setPattern ::            (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setPattern self val-  = liftIO (js_setPattern (unHTMLInputElement self) (toJSString val))+  = liftIO (js_setPattern (self) (toJSString val))   foreign import javascript unsafe "$1[\"pattern\"]" js_getPattern ::-        JSRef HTMLInputElement -> IO JSString+        HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.pattern Mozilla HTMLInputElement.pattern documentation>  getPattern ::            (MonadIO m, FromJSString result) => HTMLInputElement -> m result-getPattern self-  = liftIO-      (fromJSString <$> (js_getPattern (unHTMLInputElement self)))+getPattern self = liftIO (fromJSString <$> (js_getPattern (self)))   foreign import javascript unsafe "$1[\"placeholder\"] = $2;"-        js_setPlaceholder :: JSRef HTMLInputElement -> JSString -> IO ()+        js_setPlaceholder :: HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.placeholder Mozilla HTMLInputElement.placeholder documentation>  setPlaceholder ::                (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setPlaceholder self val-  = liftIO-      (js_setPlaceholder (unHTMLInputElement self) (toJSString val))+  = liftIO (js_setPlaceholder (self) (toJSString val))   foreign import javascript unsafe "$1[\"placeholder\"]"-        js_getPlaceholder :: JSRef HTMLInputElement -> IO JSString+        js_getPlaceholder :: HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.placeholder Mozilla HTMLInputElement.placeholder documentation>  getPlaceholder ::                (MonadIO m, FromJSString result) => HTMLInputElement -> m result getPlaceholder self-  = liftIO-      (fromJSString <$> (js_getPlaceholder (unHTMLInputElement self)))+  = liftIO (fromJSString <$> (js_getPlaceholder (self)))   foreign import javascript unsafe "$1[\"readOnly\"] = $2;"-        js_setReadOnly :: JSRef HTMLInputElement -> Bool -> IO ()+        js_setReadOnly :: HTMLInputElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.readOnly Mozilla HTMLInputElement.readOnly documentation>  setReadOnly :: (MonadIO m) => HTMLInputElement -> Bool -> m ()-setReadOnly self val-  = liftIO (js_setReadOnly (unHTMLInputElement self) val)+setReadOnly self val = liftIO (js_setReadOnly (self) val)   foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)"-        js_getReadOnly :: JSRef HTMLInputElement -> IO Bool+        js_getReadOnly :: HTMLInputElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.readOnly Mozilla HTMLInputElement.readOnly documentation>  getReadOnly :: (MonadIO m) => HTMLInputElement -> m Bool-getReadOnly self-  = liftIO (js_getReadOnly (unHTMLInputElement self))+getReadOnly self = liftIO (js_getReadOnly (self))   foreign import javascript unsafe "$1[\"required\"] = $2;"-        js_setRequired :: JSRef HTMLInputElement -> Bool -> IO ()+        js_setRequired :: HTMLInputElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.required Mozilla HTMLInputElement.required documentation>  setRequired :: (MonadIO m) => HTMLInputElement -> Bool -> m ()-setRequired self val-  = liftIO (js_setRequired (unHTMLInputElement self) val)+setRequired self val = liftIO (js_setRequired (self) val)   foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"-        js_getRequired :: JSRef HTMLInputElement -> IO Bool+        js_getRequired :: HTMLInputElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.required Mozilla HTMLInputElement.required documentation>  getRequired :: (MonadIO m) => HTMLInputElement -> m Bool-getRequired self-  = liftIO (js_getRequired (unHTMLInputElement self))+getRequired self = liftIO (js_getRequired (self))   foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::-        JSRef HTMLInputElement -> Word -> IO ()+        HTMLInputElement -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.size Mozilla HTMLInputElement.size documentation>  setSize :: (MonadIO m) => HTMLInputElement -> Word -> m ()-setSize self val-  = liftIO (js_setSize (unHTMLInputElement self) val)+setSize self val = liftIO (js_setSize (self) val)   foreign import javascript unsafe "$1[\"size\"]" js_getSize ::-        JSRef HTMLInputElement -> IO Word+        HTMLInputElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.size Mozilla HTMLInputElement.size documentation>  getSize :: (MonadIO m) => HTMLInputElement -> m Word-getSize self = liftIO (js_getSize (unHTMLInputElement self))+getSize self = liftIO (js_getSize (self))   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::-        JSRef HTMLInputElement -> JSString -> IO ()+        HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.src Mozilla HTMLInputElement.src documentation>  setSrc ::        (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()-setSrc self val-  = liftIO (js_setSrc (unHTMLInputElement self) (toJSString val))+setSrc self val = liftIO (js_setSrc (self) (toJSString val))   foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::-        JSRef HTMLInputElement -> IO JSString+        HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.src Mozilla HTMLInputElement.src documentation>  getSrc ::        (MonadIO m, FromJSString result) => HTMLInputElement -> m result-getSrc self-  = liftIO (fromJSString <$> (js_getSrc (unHTMLInputElement self)))+getSrc self = liftIO (fromJSString <$> (js_getSrc (self)))   foreign import javascript unsafe "$1[\"step\"] = $2;" js_setStep ::-        JSRef HTMLInputElement -> JSString -> IO ()+        HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.step Mozilla HTMLInputElement.step documentation>  setStep ::         (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()-setStep self val-  = liftIO (js_setStep (unHTMLInputElement self) (toJSString val))+setStep self val = liftIO (js_setStep (self) (toJSString val))   foreign import javascript unsafe "$1[\"step\"]" js_getStep ::-        JSRef HTMLInputElement -> IO JSString+        HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.step Mozilla HTMLInputElement.step documentation>  getStep ::         (MonadIO m, FromJSString result) => HTMLInputElement -> m result-getStep self-  = liftIO (fromJSString <$> (js_getStep (unHTMLInputElement self)))+getStep self = liftIO (fromJSString <$> (js_getStep (self)))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        JSRef HTMLInputElement -> JSString -> IO ()+        HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.type Mozilla HTMLInputElement.type documentation>  setType ::         (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()-setType self val-  = liftIO (js_setType (unHTMLInputElement self) (toJSString val))+setType self val = liftIO (js_setType (self) (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLInputElement -> IO JSString+        HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.type Mozilla HTMLInputElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLInputElement -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unHTMLInputElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"         js_setDefaultValue ::-        JSRef HTMLInputElement -> JSRef (Maybe JSString) -> IO ()+        HTMLInputElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultValue Mozilla HTMLInputElement.defaultValue documentation>  setDefaultValue ::                 (MonadIO m, ToJSString val) =>                   HTMLInputElement -> Maybe val -> m () setDefaultValue self val-  = liftIO-      (js_setDefaultValue (unHTMLInputElement self)-         (toMaybeJSString val))+  = liftIO (js_setDefaultValue (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"defaultValue\"]"-        js_getDefaultValue ::-        JSRef HTMLInputElement -> IO (JSRef (Maybe JSString))+        js_getDefaultValue :: HTMLInputElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.defaultValue Mozilla HTMLInputElement.defaultValue documentation>  getDefaultValue ::                 (MonadIO m, FromJSString result) =>                   HTMLInputElement -> m (Maybe result) getDefaultValue self-  = liftIO-      (fromMaybeJSString <$>-         (js_getDefaultValue (unHTMLInputElement self)))+  = liftIO (fromMaybeJSString <$> (js_getDefaultValue (self)))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef HTMLInputElement -> JSRef (Maybe JSString) -> IO ()+        :: HTMLInputElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.value Mozilla HTMLInputElement.value documentation>  setValue ::          (MonadIO m, ToJSString val) =>            HTMLInputElement -> Maybe val -> m () setValue self val-  = liftIO-      (js_setValue (unHTMLInputElement self) (toMaybeJSString val))+  = liftIO (js_setValue (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef HTMLInputElement -> IO (JSRef (Maybe JSString))+        HTMLInputElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.value Mozilla HTMLInputElement.value documentation>  getValue ::          (MonadIO m, FromJSString result) =>            HTMLInputElement -> m (Maybe result)-getValue self-  = liftIO-      (fromMaybeJSString <$> (js_getValue (unHTMLInputElement self)))+getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))   foreign import javascript unsafe "$1[\"valueAsDate\"] = $2;"-        js_setValueAsDate :: JSRef HTMLInputElement -> JSRef Date -> IO ()+        js_setValueAsDate :: HTMLInputElement -> Nullable Date -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsDate Mozilla HTMLInputElement.valueAsDate documentation>  setValueAsDate ::                (MonadIO m, IsDate val) => HTMLInputElement -> Maybe val -> m () setValueAsDate self val   = liftIO-      (js_setValueAsDate (unHTMLInputElement self)-         (maybe jsNull (unDate . toDate) val))+      (js_setValueAsDate (self) (maybeToNullable (fmap toDate val)))   foreign import javascript unsafe "$1[\"valueAsDate\"]"-        js_getValueAsDate :: JSRef HTMLInputElement -> IO (JSRef Date)+        js_getValueAsDate :: HTMLInputElement -> IO (Nullable Date)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsDate Mozilla HTMLInputElement.valueAsDate documentation>  getValueAsDate :: (MonadIO m) => HTMLInputElement -> m (Maybe Date) getValueAsDate self-  = liftIO-      ((js_getValueAsDate (unHTMLInputElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getValueAsDate (self)))   foreign import javascript unsafe "$1[\"valueAsNumber\"] = $2;"-        js_setValueAsNumber :: JSRef HTMLInputElement -> Double -> IO ()+        js_setValueAsNumber :: HTMLInputElement -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsNumber Mozilla HTMLInputElement.valueAsNumber documentation>  setValueAsNumber ::                  (MonadIO m) => HTMLInputElement -> Double -> m ()-setValueAsNumber self val-  = liftIO (js_setValueAsNumber (unHTMLInputElement self) val)+setValueAsNumber self val = liftIO (js_setValueAsNumber (self) val)   foreign import javascript unsafe "$1[\"valueAsNumber\"]"-        js_getValueAsNumber :: JSRef HTMLInputElement -> IO Double+        js_getValueAsNumber :: HTMLInputElement -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.valueAsNumber Mozilla HTMLInputElement.valueAsNumber documentation>  getValueAsNumber :: (MonadIO m) => HTMLInputElement -> m Double-getValueAsNumber self-  = liftIO (js_getValueAsNumber (unHTMLInputElement self))+getValueAsNumber self = liftIO (js_getValueAsNumber (self))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: JSRef HTMLInputElement -> Word -> IO ()+        :: HTMLInputElement -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.width Mozilla HTMLInputElement.width documentation>  setWidth :: (MonadIO m) => HTMLInputElement -> Word -> m ()-setWidth self val-  = liftIO (js_setWidth (unHTMLInputElement self) val)+setWidth self val = liftIO (js_setWidth (self) val)   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef HTMLInputElement -> IO Word+        HTMLInputElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.width Mozilla HTMLInputElement.width documentation>  getWidth :: (MonadIO m) => HTMLInputElement -> m Word-getWidth self = liftIO (js_getWidth (unHTMLInputElement self))+getWidth self = liftIO (js_getWidth (self))   foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"-        js_getWillValidate :: JSRef HTMLInputElement -> IO Bool+        js_getWillValidate :: HTMLInputElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.willValidate Mozilla HTMLInputElement.willValidate documentation>  getWillValidate :: (MonadIO m) => HTMLInputElement -> m Bool-getWillValidate self-  = liftIO (js_getWillValidate (unHTMLInputElement self))+getWillValidate self = liftIO (js_getWillValidate (self))   foreign import javascript unsafe "$1[\"validity\"]" js_getValidity-        :: JSRef HTMLInputElement -> IO (JSRef ValidityState)+        :: HTMLInputElement -> IO (Nullable ValidityState)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.validity Mozilla HTMLInputElement.validity documentation>  getValidity ::             (MonadIO m) => HTMLInputElement -> m (Maybe ValidityState) getValidity self-  = liftIO ((js_getValidity (unHTMLInputElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getValidity (self)))   foreign import javascript unsafe "$1[\"validationMessage\"]"-        js_getValidationMessage :: JSRef HTMLInputElement -> IO JSString+        js_getValidationMessage :: HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.validationMessage Mozilla HTMLInputElement.validationMessage documentation>  getValidationMessage ::                      (MonadIO m, FromJSString result) => HTMLInputElement -> m result getValidationMessage self-  = liftIO-      (fromJSString <$>-         (js_getValidationMessage (unHTMLInputElement self)))+  = liftIO (fromJSString <$> (js_getValidationMessage (self)))   foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::-        JSRef HTMLInputElement -> IO (JSRef NodeList)+        HTMLInputElement -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.labels Mozilla HTMLInputElement.labels documentation>  getLabels :: (MonadIO m) => HTMLInputElement -> m (Maybe NodeList)-getLabels self-  = liftIO ((js_getLabels (unHTMLInputElement self)) >>= fromJSRef)+getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))   foreign import javascript unsafe "$1[\"selectionStart\"] = $2;"-        js_setSelectionStart :: JSRef HTMLInputElement -> Int -> IO ()+        js_setSelectionStart :: HTMLInputElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionStart Mozilla HTMLInputElement.selectionStart documentation>  setSelectionStart :: (MonadIO m) => HTMLInputElement -> Int -> m () setSelectionStart self val-  = liftIO (js_setSelectionStart (unHTMLInputElement self) val)+  = liftIO (js_setSelectionStart (self) val)   foreign import javascript unsafe "$1[\"selectionStart\"]"-        js_getSelectionStart :: JSRef HTMLInputElement -> IO Int+        js_getSelectionStart :: HTMLInputElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionStart Mozilla HTMLInputElement.selectionStart documentation>  getSelectionStart :: (MonadIO m) => HTMLInputElement -> m Int-getSelectionStart self-  = liftIO (js_getSelectionStart (unHTMLInputElement self))+getSelectionStart self = liftIO (js_getSelectionStart (self))   foreign import javascript unsafe "$1[\"selectionEnd\"] = $2;"-        js_setSelectionEnd :: JSRef HTMLInputElement -> Int -> IO ()+        js_setSelectionEnd :: HTMLInputElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionEnd Mozilla HTMLInputElement.selectionEnd documentation>  setSelectionEnd :: (MonadIO m) => HTMLInputElement -> Int -> m ()-setSelectionEnd self val-  = liftIO (js_setSelectionEnd (unHTMLInputElement self) val)+setSelectionEnd self val = liftIO (js_setSelectionEnd (self) val)   foreign import javascript unsafe "$1[\"selectionEnd\"]"-        js_getSelectionEnd :: JSRef HTMLInputElement -> IO Int+        js_getSelectionEnd :: HTMLInputElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionEnd Mozilla HTMLInputElement.selectionEnd documentation>  getSelectionEnd :: (MonadIO m) => HTMLInputElement -> m Int-getSelectionEnd self-  = liftIO (js_getSelectionEnd (unHTMLInputElement self))+getSelectionEnd self = liftIO (js_getSelectionEnd (self))   foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;"-        js_setSelectionDirection ::-        JSRef HTMLInputElement -> JSString -> IO ()+        js_setSelectionDirection :: HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionDirection Mozilla HTMLInputElement.selectionDirection documentation>  setSelectionDirection ::                       (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m () setSelectionDirection self val-  = liftIO-      (js_setSelectionDirection (unHTMLInputElement self)-         (toJSString val))+  = liftIO (js_setSelectionDirection (self) (toJSString val))   foreign import javascript unsafe "$1[\"selectionDirection\"]"-        js_getSelectionDirection :: JSRef HTMLInputElement -> IO JSString+        js_getSelectionDirection :: HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.selectionDirection Mozilla HTMLInputElement.selectionDirection documentation>  getSelectionDirection ::                       (MonadIO m, FromJSString result) => HTMLInputElement -> m result getSelectionDirection self-  = liftIO-      (fromJSString <$>-         (js_getSelectionDirection (unHTMLInputElement self)))+  = liftIO (fromJSString <$> (js_getSelectionDirection (self)))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLInputElement -> JSString -> IO ()+        :: HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.align Mozilla HTMLInputElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()-setAlign self val-  = liftIO (js_setAlign (unHTMLInputElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLInputElement -> IO JSString+        HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.align Mozilla HTMLInputElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) => HTMLInputElement -> m result-getAlign self-  = liftIO (fromJSString <$> (js_getAlign (unHTMLInputElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))   foreign import javascript unsafe "$1[\"useMap\"] = $2;"-        js_setUseMap :: JSRef HTMLInputElement -> JSString -> IO ()+        js_setUseMap :: HTMLInputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.useMap Mozilla HTMLInputElement.useMap documentation>  setUseMap ::           (MonadIO m, ToJSString val) => HTMLInputElement -> val -> m ()-setUseMap self val-  = liftIO (js_setUseMap (unHTMLInputElement self) (toJSString val))+setUseMap self val = liftIO (js_setUseMap (self) (toJSString val))   foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap ::-        JSRef HTMLInputElement -> IO JSString+        HTMLInputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.useMap Mozilla HTMLInputElement.useMap documentation>  getUseMap ::           (MonadIO m, FromJSString result) => HTMLInputElement -> m result-getUseMap self-  = liftIO-      (fromJSString <$> (js_getUseMap (unHTMLInputElement self)))+getUseMap self = liftIO (fromJSString <$> (js_getUseMap (self)))   foreign import javascript unsafe "$1[\"incremental\"] = $2;"-        js_setIncremental :: JSRef HTMLInputElement -> Bool -> IO ()+        js_setIncremental :: HTMLInputElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.incremental Mozilla HTMLInputElement.incremental documentation>  setIncremental :: (MonadIO m) => HTMLInputElement -> Bool -> m ()-setIncremental self val-  = liftIO (js_setIncremental (unHTMLInputElement self) val)+setIncremental self val = liftIO (js_setIncremental (self) val)   foreign import javascript unsafe "($1[\"incremental\"] ? 1 : 0)"-        js_getIncremental :: JSRef HTMLInputElement -> IO Bool+        js_getIncremental :: HTMLInputElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.incremental Mozilla HTMLInputElement.incremental documentation>  getIncremental :: (MonadIO m) => HTMLInputElement -> m Bool-getIncremental self-  = liftIO (js_getIncremental (unHTMLInputElement self))+getIncremental self = liftIO (js_getIncremental (self))   foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"-        js_setAutocorrect :: JSRef HTMLInputElement -> Bool -> IO ()+        js_setAutocorrect :: HTMLInputElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocorrect Mozilla HTMLInputElement.autocorrect documentation>  setAutocorrect :: (MonadIO m) => HTMLInputElement -> Bool -> m ()-setAutocorrect self val-  = liftIO (js_setAutocorrect (unHTMLInputElement self) val)+setAutocorrect self val = liftIO (js_setAutocorrect (self) val)   foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"-        js_getAutocorrect :: JSRef HTMLInputElement -> IO Bool+        js_getAutocorrect :: HTMLInputElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocorrect Mozilla HTMLInputElement.autocorrect documentation>  getAutocorrect :: (MonadIO m) => HTMLInputElement -> m Bool-getAutocorrect self-  = liftIO (js_getAutocorrect (unHTMLInputElement self))+getAutocorrect self = liftIO (js_getAutocorrect (self))   foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"         js_setAutocapitalize ::-        JSRef HTMLInputElement -> JSRef (Maybe JSString) -> IO ()+        HTMLInputElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocapitalize Mozilla HTMLInputElement.autocapitalize documentation>  setAutocapitalize ::                   (MonadIO m, ToJSString val) =>                     HTMLInputElement -> Maybe val -> m () setAutocapitalize self val-  = liftIO-      (js_setAutocapitalize (unHTMLInputElement self)-         (toMaybeJSString val))+  = liftIO (js_setAutocapitalize (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"autocapitalize\"]"-        js_getAutocapitalize ::-        JSRef HTMLInputElement -> IO (JSRef (Maybe JSString))+        js_getAutocapitalize :: HTMLInputElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.autocapitalize Mozilla HTMLInputElement.autocapitalize documentation>  getAutocapitalize ::                   (MonadIO m, FromJSString result) =>                     HTMLInputElement -> m (Maybe result) getAutocapitalize self-  = liftIO-      (fromMaybeJSString <$>-         (js_getAutocapitalize (unHTMLInputElement self)))+  = liftIO (fromMaybeJSString <$> (js_getAutocapitalize (self)))   foreign import javascript unsafe "$1[\"capture\"] = $2;"-        js_setCapture :: JSRef HTMLInputElement -> Bool -> IO ()+        js_setCapture :: HTMLInputElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.capture Mozilla HTMLInputElement.capture documentation>  setCapture :: (MonadIO m) => HTMLInputElement -> Bool -> m ()-setCapture self val-  = liftIO (js_setCapture (unHTMLInputElement self) val)+setCapture self val = liftIO (js_setCapture (self) val)   foreign import javascript unsafe "($1[\"capture\"] ? 1 : 0)"-        js_getCapture :: JSRef HTMLInputElement -> IO Bool+        js_getCapture :: HTMLInputElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLInputElement.capture Mozilla HTMLInputElement.capture documentation>  getCapture :: (MonadIO m) => HTMLInputElement -> m Bool-getCapture self = liftIO (js_getCapture (unHTMLInputElement self))+getCapture self = liftIO (js_getCapture (self))
src/GHCJS/DOM/JSFFI/Generated/HTMLKeygenElement.hs view
@@ -13,7 +13,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -28,167 +28,146 @@   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::-        JSRef HTMLKeygenElement -> IO Bool+        HTMLKeygenElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.checkValidity Mozilla HTMLKeygenElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLKeygenElement -> m Bool-checkValidity self-  = liftIO (js_checkValidity (unHTMLKeygenElement self))+checkValidity self = liftIO (js_checkValidity (self))   foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         js_setCustomValidity ::-        JSRef HTMLKeygenElement -> JSRef (Maybe JSString) -> IO ()+        HTMLKeygenElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.setCustomValidity Mozilla HTMLKeygenElement.setCustomValidity documentation>  setCustomValidity ::                   (MonadIO m, ToJSString error) =>                     HTMLKeygenElement -> Maybe error -> m () setCustomValidity self error-  = liftIO-      (js_setCustomValidity (unHTMLKeygenElement self)-         (toMaybeJSString error))+  = liftIO (js_setCustomValidity (self) (toMaybeJSString error))   foreign import javascript unsafe "$1[\"autofocus\"] = $2;"-        js_setAutofocus :: JSRef HTMLKeygenElement -> Bool -> IO ()+        js_setAutofocus :: HTMLKeygenElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.autofocus Mozilla HTMLKeygenElement.autofocus documentation>  setAutofocus :: (MonadIO m) => HTMLKeygenElement -> Bool -> m ()-setAutofocus self val-  = liftIO (js_setAutofocus (unHTMLKeygenElement self) val)+setAutofocus self val = liftIO (js_setAutofocus (self) val)   foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"-        js_getAutofocus :: JSRef HTMLKeygenElement -> IO Bool+        js_getAutofocus :: HTMLKeygenElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.autofocus Mozilla HTMLKeygenElement.autofocus documentation>  getAutofocus :: (MonadIO m) => HTMLKeygenElement -> m Bool-getAutofocus self-  = liftIO (js_getAutofocus (unHTMLKeygenElement self))+getAutofocus self = liftIO (js_getAutofocus (self))   foreign import javascript unsafe "$1[\"challenge\"] = $2;"-        js_setChallenge :: JSRef HTMLKeygenElement -> JSString -> IO ()+        js_setChallenge :: HTMLKeygenElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.challenge Mozilla HTMLKeygenElement.challenge documentation>  setChallenge ::              (MonadIO m, ToJSString val) => HTMLKeygenElement -> val -> m () setChallenge self val-  = liftIO-      (js_setChallenge (unHTMLKeygenElement self) (toJSString val))+  = liftIO (js_setChallenge (self) (toJSString val))   foreign import javascript unsafe "$1[\"challenge\"]"-        js_getChallenge :: JSRef HTMLKeygenElement -> IO JSString+        js_getChallenge :: HTMLKeygenElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.challenge Mozilla HTMLKeygenElement.challenge documentation>  getChallenge ::              (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result getChallenge self-  = liftIO-      (fromJSString <$> (js_getChallenge (unHTMLKeygenElement self)))+  = liftIO (fromJSString <$> (js_getChallenge (self)))   foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        js_setDisabled :: JSRef HTMLKeygenElement -> Bool -> IO ()+        js_setDisabled :: HTMLKeygenElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.disabled Mozilla HTMLKeygenElement.disabled documentation>  setDisabled :: (MonadIO m) => HTMLKeygenElement -> Bool -> m ()-setDisabled self val-  = liftIO (js_setDisabled (unHTMLKeygenElement self) val)+setDisabled self val = liftIO (js_setDisabled (self) val)   foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        js_getDisabled :: JSRef HTMLKeygenElement -> IO Bool+        js_getDisabled :: HTMLKeygenElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.disabled Mozilla HTMLKeygenElement.disabled documentation>  getDisabled :: (MonadIO m) => HTMLKeygenElement -> m Bool-getDisabled self-  = liftIO (js_getDisabled (unHTMLKeygenElement self))+getDisabled self = liftIO (js_getDisabled (self))   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::-        JSRef HTMLKeygenElement -> IO (JSRef HTMLFormElement)+        HTMLKeygenElement -> IO (Nullable HTMLFormElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.form Mozilla HTMLKeygenElement.form documentation>  getForm ::         (MonadIO m) => HTMLKeygenElement -> m (Maybe HTMLFormElement)-getForm self-  = liftIO ((js_getForm (unHTMLKeygenElement self)) >>= fromJSRef)+getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"keytype\"] = $2;"-        js_setKeytype :: JSRef HTMLKeygenElement -> JSString -> IO ()+        js_setKeytype :: HTMLKeygenElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.keytype Mozilla HTMLKeygenElement.keytype documentation>  setKeytype ::            (MonadIO m, ToJSString val) => HTMLKeygenElement -> val -> m () setKeytype self val-  = liftIO-      (js_setKeytype (unHTMLKeygenElement self) (toJSString val))+  = liftIO (js_setKeytype (self) (toJSString val))   foreign import javascript unsafe "$1[\"keytype\"]" js_getKeytype ::-        JSRef HTMLKeygenElement -> IO JSString+        HTMLKeygenElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.keytype Mozilla HTMLKeygenElement.keytype documentation>  getKeytype ::            (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result-getKeytype self-  = liftIO-      (fromJSString <$> (js_getKeytype (unHTMLKeygenElement self)))+getKeytype self = liftIO (fromJSString <$> (js_getKeytype (self)))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLKeygenElement -> JSString -> IO ()+        HTMLKeygenElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.name Mozilla HTMLKeygenElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLKeygenElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLKeygenElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLKeygenElement -> IO JSString+        HTMLKeygenElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.name Mozilla HTMLKeygenElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unHTMLKeygenElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLKeygenElement -> IO JSString+        HTMLKeygenElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.type Mozilla HTMLKeygenElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unHTMLKeygenElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"-        js_getWillValidate :: JSRef HTMLKeygenElement -> IO Bool+        js_getWillValidate :: HTMLKeygenElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.willValidate Mozilla HTMLKeygenElement.willValidate documentation>  getWillValidate :: (MonadIO m) => HTMLKeygenElement -> m Bool-getWillValidate self-  = liftIO (js_getWillValidate (unHTMLKeygenElement self))+getWillValidate self = liftIO (js_getWillValidate (self))   foreign import javascript unsafe "$1[\"validity\"]" js_getValidity-        :: JSRef HTMLKeygenElement -> IO (JSRef ValidityState)+        :: HTMLKeygenElement -> IO (Nullable ValidityState)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.validity Mozilla HTMLKeygenElement.validity documentation>  getValidity ::             (MonadIO m) => HTMLKeygenElement -> m (Maybe ValidityState) getValidity self-  = liftIO-      ((js_getValidity (unHTMLKeygenElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getValidity (self)))   foreign import javascript unsafe "$1[\"validationMessage\"]"-        js_getValidationMessage :: JSRef HTMLKeygenElement -> IO JSString+        js_getValidationMessage :: HTMLKeygenElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.validationMessage Mozilla HTMLKeygenElement.validationMessage documentation>  getValidationMessage ::                      (MonadIO m, FromJSString result) => HTMLKeygenElement -> m result getValidationMessage self-  = liftIO-      (fromJSString <$>-         (js_getValidationMessage (unHTMLKeygenElement self)))+  = liftIO (fromJSString <$> (js_getValidationMessage (self)))   foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::-        JSRef HTMLKeygenElement -> IO (JSRef NodeList)+        HTMLKeygenElement -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLKeygenElement.labels Mozilla HTMLKeygenElement.labels documentation>  getLabels :: (MonadIO m) => HTMLKeygenElement -> m (Maybe NodeList)-getLabels self-  = liftIO ((js_getLabels (unHTMLKeygenElement self)) >>= fromJSRef)+getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLLIElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,33 +20,31 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        JSRef HTMLLIElement -> JSString -> IO ()+        HTMLLIElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement.type Mozilla HTMLLIElement.type documentation>  setType ::         (MonadIO m, ToJSString val) => HTMLLIElement -> val -> m ()-setType self val-  = liftIO (js_setType (unHTMLLIElement self) (toJSString val))+setType self val = liftIO (js_setType (self) (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLLIElement -> IO JSString+        HTMLLIElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement.type Mozilla HTMLLIElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLLIElement -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unHTMLLIElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef HTMLLIElement -> Int -> IO ()+        :: HTMLLIElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement.value Mozilla HTMLLIElement.value documentation>  setValue :: (MonadIO m) => HTMLLIElement -> Int -> m ()-setValue self val = liftIO (js_setValue (unHTMLLIElement self) val)+setValue self val = liftIO (js_setValue (self) val)   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef HTMLLIElement -> IO Int+        HTMLLIElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLIElement.value Mozilla HTMLLIElement.value documentation>  getValue :: (MonadIO m) => HTMLLIElement -> m Int-getValue self = liftIO (js_getValue (unHTMLLIElement self))+getValue self = liftIO (js_getValue (self))
src/GHCJS/DOM/JSFFI/Generated/HTMLLabelElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,38 +20,35 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::-        JSRef HTMLLabelElement -> IO (JSRef HTMLFormElement)+        HTMLLabelElement -> IO (Nullable HTMLFormElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.form Mozilla HTMLLabelElement.form documentation>  getForm ::         (MonadIO m) => HTMLLabelElement -> m (Maybe HTMLFormElement)-getForm self-  = liftIO ((js_getForm (unHTMLLabelElement self)) >>= fromJSRef)+getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"-        js_setHtmlFor :: JSRef HTMLLabelElement -> JSString -> IO ()+        js_setHtmlFor :: HTMLLabelElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.htmlFor Mozilla HTMLLabelElement.htmlFor documentation>  setHtmlFor ::            (MonadIO m, ToJSString val) => HTMLLabelElement -> val -> m () setHtmlFor self val-  = liftIO (js_setHtmlFor (unHTMLLabelElement self) (toJSString val))+  = liftIO (js_setHtmlFor (self) (toJSString val))   foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor ::-        JSRef HTMLLabelElement -> IO JSString+        HTMLLabelElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.htmlFor Mozilla HTMLLabelElement.htmlFor documentation>  getHtmlFor ::            (MonadIO m, FromJSString result) => HTMLLabelElement -> m result-getHtmlFor self-  = liftIO-      (fromJSString <$> (js_getHtmlFor (unHTMLLabelElement self)))+getHtmlFor self = liftIO (fromJSString <$> (js_getHtmlFor (self)))   foreign import javascript unsafe "$1[\"control\"]" js_getControl ::-        JSRef HTMLLabelElement -> IO (JSRef HTMLElement)+        HTMLLabelElement -> IO (Nullable HTMLElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLabelElement.control Mozilla HTMLLabelElement.control documentation>  getControl ::            (MonadIO m) => HTMLLabelElement -> m (Maybe HTMLElement) getControl self-  = liftIO ((js_getControl (unHTMLLabelElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getControl (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLLegendElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,29 +19,25 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::-        JSRef HTMLLegendElement -> IO (JSRef HTMLFormElement)+        HTMLLegendElement -> IO (Nullable HTMLFormElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.form Mozilla HTMLLegendElement.form documentation>  getForm ::         (MonadIO m) => HTMLLegendElement -> m (Maybe HTMLFormElement)-getForm self-  = liftIO ((js_getForm (unHTMLLegendElement self)) >>= fromJSRef)+getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLLegendElement -> JSString -> IO ()+        :: HTMLLegendElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.align Mozilla HTMLLegendElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) => HTMLLegendElement -> val -> m ()-setAlign self val-  = liftIO (js_setAlign (unHTMLLegendElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLLegendElement -> IO JSString+        HTMLLegendElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLegendElement.align Mozilla HTMLLegendElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) => HTMLLegendElement -> m result-getAlign self-  = liftIO-      (fromJSString <$> (js_getAlign (unHTMLLegendElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLLinkElement.hs view
@@ -13,7 +13,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,199 +27,180 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        js_setDisabled :: JSRef HTMLLinkElement -> Bool -> IO ()+        js_setDisabled :: HTMLLinkElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.disabled Mozilla HTMLLinkElement.disabled documentation>  setDisabled :: (MonadIO m) => HTMLLinkElement -> Bool -> m ()-setDisabled self val-  = liftIO (js_setDisabled (unHTMLLinkElement self) val)+setDisabled self val = liftIO (js_setDisabled (self) val)   foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        js_getDisabled :: JSRef HTMLLinkElement -> IO Bool+        js_getDisabled :: HTMLLinkElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.disabled Mozilla HTMLLinkElement.disabled documentation>  getDisabled :: (MonadIO m) => HTMLLinkElement -> m Bool-getDisabled self = liftIO (js_getDisabled (unHTMLLinkElement self))+getDisabled self = liftIO (js_getDisabled (self))   foreign import javascript unsafe "$1[\"charset\"] = $2;"-        js_setCharset :: JSRef HTMLLinkElement -> JSString -> IO ()+        js_setCharset :: HTMLLinkElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.charset Mozilla HTMLLinkElement.charset documentation>  setCharset ::            (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m () setCharset self val-  = liftIO (js_setCharset (unHTMLLinkElement self) (toJSString val))+  = liftIO (js_setCharset (self) (toJSString val))   foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::-        JSRef HTMLLinkElement -> IO JSString+        HTMLLinkElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.charset Mozilla HTMLLinkElement.charset documentation>  getCharset ::            (MonadIO m, FromJSString result) => HTMLLinkElement -> m result-getCharset self-  = liftIO-      (fromJSString <$> (js_getCharset (unHTMLLinkElement self)))+getCharset self = liftIO (fromJSString <$> (js_getCharset (self)))   foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::-        JSRef HTMLLinkElement -> JSString -> IO ()+        HTMLLinkElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.href Mozilla HTMLLinkElement.href documentation>  setHref ::         (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m ()-setHref self val-  = liftIO (js_setHref (unHTMLLinkElement self) (toJSString val))+setHref self val = liftIO (js_setHref (self) (toJSString val))   foreign import javascript unsafe "$1[\"href\"]" js_getHref ::-        JSRef HTMLLinkElement -> IO JSString+        HTMLLinkElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.href Mozilla HTMLLinkElement.href documentation>  getHref ::         (MonadIO m, FromJSString result) => HTMLLinkElement -> m result-getHref self-  = liftIO (fromJSString <$> (js_getHref (unHTMLLinkElement self)))+getHref self = liftIO (fromJSString <$> (js_getHref (self)))   foreign import javascript unsafe "$1[\"hreflang\"] = $2;"-        js_setHreflang :: JSRef HTMLLinkElement -> JSString -> IO ()+        js_setHreflang :: HTMLLinkElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.hreflang Mozilla HTMLLinkElement.hreflang documentation>  setHreflang ::             (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m () setHreflang self val-  = liftIO (js_setHreflang (unHTMLLinkElement self) (toJSString val))+  = liftIO (js_setHreflang (self) (toJSString val))   foreign import javascript unsafe "$1[\"hreflang\"]" js_getHreflang-        :: JSRef HTMLLinkElement -> IO JSString+        :: HTMLLinkElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.hreflang Mozilla HTMLLinkElement.hreflang documentation>  getHreflang ::             (MonadIO m, FromJSString result) => HTMLLinkElement -> m result getHreflang self-  = liftIO-      (fromJSString <$> (js_getHreflang (unHTMLLinkElement self)))+  = liftIO (fromJSString <$> (js_getHreflang (self)))   foreign import javascript unsafe "$1[\"media\"] = $2;" js_setMedia-        :: JSRef HTMLLinkElement -> JSString -> IO ()+        :: HTMLLinkElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.media Mozilla HTMLLinkElement.media documentation>  setMedia ::          (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m ()-setMedia self val-  = liftIO (js_setMedia (unHTMLLinkElement self) (toJSString val))+setMedia self val = liftIO (js_setMedia (self) (toJSString val))   foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::-        JSRef HTMLLinkElement -> IO JSString+        HTMLLinkElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.media Mozilla HTMLLinkElement.media documentation>  getMedia ::          (MonadIO m, FromJSString result) => HTMLLinkElement -> m result-getMedia self-  = liftIO (fromJSString <$> (js_getMedia (unHTMLLinkElement self)))+getMedia self = liftIO (fromJSString <$> (js_getMedia (self)))   foreign import javascript unsafe "$1[\"rel\"] = $2;" js_setRel ::-        JSRef HTMLLinkElement -> JSString -> IO ()+        HTMLLinkElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.rel Mozilla HTMLLinkElement.rel documentation>  setRel ::        (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m ()-setRel self val-  = liftIO (js_setRel (unHTMLLinkElement self) (toJSString val))+setRel self val = liftIO (js_setRel (self) (toJSString val))   foreign import javascript unsafe "$1[\"rel\"]" js_getRel ::-        JSRef HTMLLinkElement -> IO JSString+        HTMLLinkElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.rel Mozilla HTMLLinkElement.rel documentation>  getRel ::        (MonadIO m, FromJSString result) => HTMLLinkElement -> m result-getRel self-  = liftIO (fromJSString <$> (js_getRel (unHTMLLinkElement self)))+getRel self = liftIO (fromJSString <$> (js_getRel (self)))   foreign import javascript unsafe "$1[\"rev\"] = $2;" js_setRev ::-        JSRef HTMLLinkElement -> JSString -> IO ()+        HTMLLinkElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.rev Mozilla HTMLLinkElement.rev documentation>  setRev ::        (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m ()-setRev self val-  = liftIO (js_setRev (unHTMLLinkElement self) (toJSString val))+setRev self val = liftIO (js_setRev (self) (toJSString val))   foreign import javascript unsafe "$1[\"rev\"]" js_getRev ::-        JSRef HTMLLinkElement -> IO JSString+        HTMLLinkElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.rev Mozilla HTMLLinkElement.rev documentation>  getRev ::        (MonadIO m, FromJSString result) => HTMLLinkElement -> m result-getRev self-  = liftIO (fromJSString <$> (js_getRev (unHTMLLinkElement self)))+getRev self = liftIO (fromJSString <$> (js_getRev (self)))   foreign import javascript unsafe "$1[\"sizes\"] = $2;" js_setSizes-        :: JSRef HTMLLinkElement -> JSRef DOMSettableTokenList -> IO ()+        :: HTMLLinkElement -> Nullable DOMSettableTokenList -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sizes Mozilla HTMLLinkElement.sizes documentation>  setSizes ::          (MonadIO m) =>            HTMLLinkElement -> Maybe DOMSettableTokenList -> m () setSizes self val-  = liftIO-      (js_setSizes (unHTMLLinkElement self) (maybe jsNull pToJSRef val))+  = liftIO (js_setSizes (self) (maybeToNullable val))   foreign import javascript unsafe "$1[\"sizes\"]" js_getSizes ::-        JSRef HTMLLinkElement -> IO (JSRef DOMSettableTokenList)+        HTMLLinkElement -> IO (Nullable DOMSettableTokenList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sizes Mozilla HTMLLinkElement.sizes documentation>  getSizes ::          (MonadIO m) => HTMLLinkElement -> m (Maybe DOMSettableTokenList)-getSizes self-  = liftIO ((js_getSizes (unHTMLLinkElement self)) >>= fromJSRef)+getSizes self = liftIO (nullableToMaybe <$> (js_getSizes (self)))   foreign import javascript unsafe "$1[\"target\"] = $2;"-        js_setTarget :: JSRef HTMLLinkElement -> JSString -> IO ()+        js_setTarget :: HTMLLinkElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.target Mozilla HTMLLinkElement.target documentation>  setTarget ::           (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m ()-setTarget self val-  = liftIO (js_setTarget (unHTMLLinkElement self) (toJSString val))+setTarget self val = liftIO (js_setTarget (self) (toJSString val))   foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::-        JSRef HTMLLinkElement -> IO JSString+        HTMLLinkElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.target Mozilla HTMLLinkElement.target documentation>  getTarget ::           (MonadIO m, FromJSString result) => HTMLLinkElement -> m result-getTarget self-  = liftIO (fromJSString <$> (js_getTarget (unHTMLLinkElement self)))+getTarget self = liftIO (fromJSString <$> (js_getTarget (self)))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        JSRef HTMLLinkElement -> JSString -> IO ()+        HTMLLinkElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.type Mozilla HTMLLinkElement.type documentation>  setType ::         (MonadIO m, ToJSString val) => HTMLLinkElement -> val -> m ()-setType self val-  = liftIO (js_setType (unHTMLLinkElement self) (toJSString val))+setType self val = liftIO (js_setType (self) (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLLinkElement -> IO JSString+        HTMLLinkElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.type Mozilla HTMLLinkElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLLinkElement -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unHTMLLinkElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"sheet\"]" js_getSheet ::-        JSRef HTMLLinkElement -> IO (JSRef StyleSheet)+        HTMLLinkElement -> IO (Nullable StyleSheet)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.sheet Mozilla HTMLLinkElement.sheet documentation>  getSheet :: (MonadIO m) => HTMLLinkElement -> m (Maybe StyleSheet)-getSheet self-  = liftIO ((js_getSheet (unHTMLLinkElement self)) >>= fromJSRef)+getSheet self = liftIO (nullableToMaybe <$> (js_getSheet (self)))   foreign import javascript unsafe "$1[\"relList\"]" js_getRelList ::-        JSRef HTMLLinkElement -> IO (JSRef DOMTokenList)+        HTMLLinkElement -> IO (Nullable DOMTokenList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLLinkElement.relList Mozilla HTMLLinkElement.relList documentation>  getRelList ::            (MonadIO m) => HTMLLinkElement -> m (Maybe DOMTokenList) getRelList self-  = liftIO ((js_getRelList (unHTMLLinkElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getRelList (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLMapElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,28 +19,25 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"areas\"]" js_getAreas ::-        JSRef HTMLMapElement -> IO (JSRef HTMLCollection)+        HTMLMapElement -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.areas Mozilla HTMLMapElement.areas documentation>  getAreas ::          (MonadIO m) => HTMLMapElement -> m (Maybe HTMLCollection)-getAreas self-  = liftIO ((js_getAreas (unHTMLMapElement self)) >>= fromJSRef)+getAreas self = liftIO (nullableToMaybe <$> (js_getAreas (self)))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLMapElement -> JSString -> IO ()+        HTMLMapElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.name Mozilla HTMLMapElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLMapElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLMapElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLMapElement -> IO JSString+        HTMLMapElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMapElement.name Mozilla HTMLMapElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLMapElement -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unHTMLMapElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLMarqueeElement.hs view
@@ -16,7 +16,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -30,207 +30,184 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"start\"]()" js_start ::-        JSRef HTMLMarqueeElement -> IO ()+        HTMLMarqueeElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.start Mozilla HTMLMarqueeElement.start documentation>  start :: (MonadIO m) => HTMLMarqueeElement -> m ()-start self = liftIO (js_start (unHTMLMarqueeElement self))+start self = liftIO (js_start (self))   foreign import javascript unsafe "$1[\"stop\"]()" js_stop ::-        JSRef HTMLMarqueeElement -> IO ()+        HTMLMarqueeElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.stop Mozilla HTMLMarqueeElement.stop documentation>  stop :: (MonadIO m) => HTMLMarqueeElement -> m ()-stop self = liftIO (js_stop (unHTMLMarqueeElement self))+stop self = liftIO (js_stop (self))   foreign import javascript unsafe "$1[\"behavior\"] = $2;"-        js_setBehavior :: JSRef HTMLMarqueeElement -> JSString -> IO ()+        js_setBehavior :: HTMLMarqueeElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.behavior Mozilla HTMLMarqueeElement.behavior documentation>  setBehavior ::             (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m () setBehavior self val-  = liftIO-      (js_setBehavior (unHTMLMarqueeElement self) (toJSString val))+  = liftIO (js_setBehavior (self) (toJSString val))   foreign import javascript unsafe "$1[\"behavior\"]" js_getBehavior-        :: JSRef HTMLMarqueeElement -> IO JSString+        :: HTMLMarqueeElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.behavior Mozilla HTMLMarqueeElement.behavior documentation>  getBehavior ::             (MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result getBehavior self-  = liftIO-      (fromJSString <$> (js_getBehavior (unHTMLMarqueeElement self)))+  = liftIO (fromJSString <$> (js_getBehavior (self)))   foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        js_setBgColor :: JSRef HTMLMarqueeElement -> JSString -> IO ()+        js_setBgColor :: HTMLMarqueeElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.bgColor Mozilla HTMLMarqueeElement.bgColor documentation>  setBgColor ::            (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m () setBgColor self val-  = liftIO-      (js_setBgColor (unHTMLMarqueeElement self) (toJSString val))+  = liftIO (js_setBgColor (self) (toJSString val))   foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::-        JSRef HTMLMarqueeElement -> IO JSString+        HTMLMarqueeElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.bgColor Mozilla HTMLMarqueeElement.bgColor documentation>  getBgColor ::            (MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result-getBgColor self-  = liftIO-      (fromJSString <$> (js_getBgColor (unHTMLMarqueeElement self)))+getBgColor self = liftIO (fromJSString <$> (js_getBgColor (self)))   foreign import javascript unsafe "$1[\"direction\"] = $2;"-        js_setDirection :: JSRef HTMLMarqueeElement -> JSString -> IO ()+        js_setDirection :: HTMLMarqueeElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.direction Mozilla HTMLMarqueeElement.direction documentation>  setDirection ::              (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m () setDirection self val-  = liftIO-      (js_setDirection (unHTMLMarqueeElement self) (toJSString val))+  = liftIO (js_setDirection (self) (toJSString val))   foreign import javascript unsafe "$1[\"direction\"]"-        js_getDirection :: JSRef HTMLMarqueeElement -> IO JSString+        js_getDirection :: HTMLMarqueeElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.direction Mozilla HTMLMarqueeElement.direction documentation>  getDirection ::              (MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result getDirection self-  = liftIO-      (fromJSString <$> (js_getDirection (unHTMLMarqueeElement self)))+  = liftIO (fromJSString <$> (js_getDirection (self)))   foreign import javascript unsafe "$1[\"height\"] = $2;"-        js_setHeight :: JSRef HTMLMarqueeElement -> JSString -> IO ()+        js_setHeight :: HTMLMarqueeElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.height Mozilla HTMLMarqueeElement.height documentation>  setHeight ::           (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m ()-setHeight self val-  = liftIO-      (js_setHeight (unHTMLMarqueeElement self) (toJSString val))+setHeight self val = liftIO (js_setHeight (self) (toJSString val))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef HTMLMarqueeElement -> IO JSString+        HTMLMarqueeElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.height Mozilla HTMLMarqueeElement.height documentation>  getHeight ::           (MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result-getHeight self-  = liftIO-      (fromJSString <$> (js_getHeight (unHTMLMarqueeElement self)))+getHeight self = liftIO (fromJSString <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"hspace\"] = $2;"-        js_setHspace :: JSRef HTMLMarqueeElement -> Word -> IO ()+        js_setHspace :: HTMLMarqueeElement -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.hspace Mozilla HTMLMarqueeElement.hspace documentation>  setHspace :: (MonadIO m) => HTMLMarqueeElement -> Word -> m ()-setHspace self val-  = liftIO (js_setHspace (unHTMLMarqueeElement self) val)+setHspace self val = liftIO (js_setHspace (self) val)   foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace ::-        JSRef HTMLMarqueeElement -> IO Word+        HTMLMarqueeElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.hspace Mozilla HTMLMarqueeElement.hspace documentation>  getHspace :: (MonadIO m) => HTMLMarqueeElement -> m Word-getHspace self = liftIO (js_getHspace (unHTMLMarqueeElement self))+getHspace self = liftIO (js_getHspace (self))   foreign import javascript unsafe "$1[\"loop\"] = $2;" js_setLoop ::-        JSRef HTMLMarqueeElement -> Int -> IO ()+        HTMLMarqueeElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.loop Mozilla HTMLMarqueeElement.loop documentation>  setLoop :: (MonadIO m) => HTMLMarqueeElement -> Int -> m ()-setLoop self val-  = liftIO (js_setLoop (unHTMLMarqueeElement self) val)+setLoop self val = liftIO (js_setLoop (self) val)   foreign import javascript unsafe "$1[\"loop\"]" js_getLoop ::-        JSRef HTMLMarqueeElement -> IO Int+        HTMLMarqueeElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.loop Mozilla HTMLMarqueeElement.loop documentation>  getLoop :: (MonadIO m) => HTMLMarqueeElement -> m Int-getLoop self = liftIO (js_getLoop (unHTMLMarqueeElement self))+getLoop self = liftIO (js_getLoop (self))   foreign import javascript unsafe "$1[\"scrollAmount\"] = $2;"-        js_setScrollAmount :: JSRef HTMLMarqueeElement -> Int -> IO ()+        js_setScrollAmount :: HTMLMarqueeElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.scrollAmount Mozilla HTMLMarqueeElement.scrollAmount documentation>  setScrollAmount :: (MonadIO m) => HTMLMarqueeElement -> Int -> m ()-setScrollAmount self val-  = liftIO (js_setScrollAmount (unHTMLMarqueeElement self) val)+setScrollAmount self val = liftIO (js_setScrollAmount (self) val)   foreign import javascript unsafe "$1[\"scrollAmount\"]"-        js_getScrollAmount :: JSRef HTMLMarqueeElement -> IO Int+        js_getScrollAmount :: HTMLMarqueeElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.scrollAmount Mozilla HTMLMarqueeElement.scrollAmount documentation>  getScrollAmount :: (MonadIO m) => HTMLMarqueeElement -> m Int-getScrollAmount self-  = liftIO (js_getScrollAmount (unHTMLMarqueeElement self))+getScrollAmount self = liftIO (js_getScrollAmount (self))   foreign import javascript unsafe "$1[\"scrollDelay\"] = $2;"-        js_setScrollDelay :: JSRef HTMLMarqueeElement -> Int -> IO ()+        js_setScrollDelay :: HTMLMarqueeElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.scrollDelay Mozilla HTMLMarqueeElement.scrollDelay documentation>  setScrollDelay :: (MonadIO m) => HTMLMarqueeElement -> Int -> m ()-setScrollDelay self val-  = liftIO (js_setScrollDelay (unHTMLMarqueeElement self) val)+setScrollDelay self val = liftIO (js_setScrollDelay (self) val)   foreign import javascript unsafe "$1[\"scrollDelay\"]"-        js_getScrollDelay :: JSRef HTMLMarqueeElement -> IO Int+        js_getScrollDelay :: HTMLMarqueeElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.scrollDelay Mozilla HTMLMarqueeElement.scrollDelay documentation>  getScrollDelay :: (MonadIO m) => HTMLMarqueeElement -> m Int-getScrollDelay self-  = liftIO (js_getScrollDelay (unHTMLMarqueeElement self))+getScrollDelay self = liftIO (js_getScrollDelay (self))   foreign import javascript unsafe "$1[\"trueSpeed\"] = $2;"-        js_setTrueSpeed :: JSRef HTMLMarqueeElement -> Bool -> IO ()+        js_setTrueSpeed :: HTMLMarqueeElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.trueSpeed Mozilla HTMLMarqueeElement.trueSpeed documentation>  setTrueSpeed :: (MonadIO m) => HTMLMarqueeElement -> Bool -> m ()-setTrueSpeed self val-  = liftIO (js_setTrueSpeed (unHTMLMarqueeElement self) val)+setTrueSpeed self val = liftIO (js_setTrueSpeed (self) val)   foreign import javascript unsafe "($1[\"trueSpeed\"] ? 1 : 0)"-        js_getTrueSpeed :: JSRef HTMLMarqueeElement -> IO Bool+        js_getTrueSpeed :: HTMLMarqueeElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.trueSpeed Mozilla HTMLMarqueeElement.trueSpeed documentation>  getTrueSpeed :: (MonadIO m) => HTMLMarqueeElement -> m Bool-getTrueSpeed self-  = liftIO (js_getTrueSpeed (unHTMLMarqueeElement self))+getTrueSpeed self = liftIO (js_getTrueSpeed (self))   foreign import javascript unsafe "$1[\"vspace\"] = $2;"-        js_setVspace :: JSRef HTMLMarqueeElement -> Word -> IO ()+        js_setVspace :: HTMLMarqueeElement -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.vspace Mozilla HTMLMarqueeElement.vspace documentation>  setVspace :: (MonadIO m) => HTMLMarqueeElement -> Word -> m ()-setVspace self val-  = liftIO (js_setVspace (unHTMLMarqueeElement self) val)+setVspace self val = liftIO (js_setVspace (self) val)   foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace ::-        JSRef HTMLMarqueeElement -> IO Word+        HTMLMarqueeElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.vspace Mozilla HTMLMarqueeElement.vspace documentation>  getVspace :: (MonadIO m) => HTMLMarqueeElement -> m Word-getVspace self = liftIO (js_getVspace (unHTMLMarqueeElement self))+getVspace self = liftIO (js_getVspace (self))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: JSRef HTMLMarqueeElement -> JSString -> IO ()+        :: HTMLMarqueeElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.width Mozilla HTMLMarqueeElement.width documentation>  setWidth ::          (MonadIO m, ToJSString val) => HTMLMarqueeElement -> val -> m ()-setWidth self val-  = liftIO (js_setWidth (unHTMLMarqueeElement self) (toJSString val))+setWidth self val = liftIO (js_setWidth (self) (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef HTMLMarqueeElement -> IO JSString+        HTMLMarqueeElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMarqueeElement.width Mozilla HTMLMarqueeElement.width documentation>  getWidth ::          (MonadIO m, FromJSString result) => HTMLMarqueeElement -> m result-getWidth self-  = liftIO-      (fromJSString <$> (js_getWidth (unHTMLMarqueeElement self)))+getWidth self = liftIO (fromJSString <$> (js_getWidth (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLMediaElement.hs view
@@ -53,7 +53,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -67,17 +67,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"load\"]()" js_load ::-        JSRef HTMLMediaElement -> IO ()+        HTMLMediaElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.load Mozilla HTMLMediaElement.load documentation>  load :: (MonadIO m, IsHTMLMediaElement self) => self -> m ()-load self-  = liftIO (js_load (unHTMLMediaElement (toHTMLMediaElement self)))+load self = liftIO (js_load (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"canPlayType\"]($2, $3)"         js_canPlayType ::-        JSRef HTMLMediaElement ->-          JSString -> JSRef (Maybe JSString) -> IO JSString+        HTMLMediaElement -> JSString -> Nullable JSString -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.canPlayType Mozilla HTMLMediaElement.canPlayType documentation>  canPlayType ::@@ -87,41 +85,37 @@ canPlayType self type' keySystem   = liftIO       (fromJSString <$>-         (js_canPlayType (unHTMLMediaElement (toHTMLMediaElement self))-            (toJSString type')+         (js_canPlayType (toHTMLMediaElement self) (toJSString type')             (toMaybeJSString keySystem)))   foreign import javascript unsafe "$1[\"play\"]()" js_play ::-        JSRef HTMLMediaElement -> IO ()+        HTMLMediaElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.play Mozilla HTMLMediaElement.play documentation>  play :: (MonadIO m, IsHTMLMediaElement self) => self -> m ()-play self-  = liftIO (js_play (unHTMLMediaElement (toHTMLMediaElement self)))+play self = liftIO (js_play (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"pause\"]()" js_pause ::-        JSRef HTMLMediaElement -> IO ()+        HTMLMediaElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.pause Mozilla HTMLMediaElement.pause documentation>  pause :: (MonadIO m, IsHTMLMediaElement self) => self -> m ()-pause self-  = liftIO (js_pause (unHTMLMediaElement (toHTMLMediaElement self)))+pause self = liftIO (js_pause (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"fastSeek\"]($2)" js_fastSeek-        :: JSRef HTMLMediaElement -> Double -> IO ()+        :: HTMLMediaElement -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.fastSeek Mozilla HTMLMediaElement.fastSeek documentation>  fastSeek ::          (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m () fastSeek self time-  = liftIO-      (js_fastSeek (unHTMLMediaElement (toHTMLMediaElement self)) time)+  = liftIO (js_fastSeek (toHTMLMediaElement self) time)   foreign import javascript unsafe         "$1[\"webkitGenerateKeyRequest\"]($2,\n$3)"         js_webkitGenerateKeyRequest ::-        JSRef HTMLMediaElement ->-          JSRef (Maybe JSString) -> JSRef Uint8Array -> IO ()+        HTMLMediaElement ->+          Nullable JSString -> Nullable Uint8Array -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitGenerateKeyRequest Mozilla HTMLMediaElement.webkitGenerateKeyRequest documentation>  webkitGenerateKeyRequest ::@@ -130,16 +124,15 @@                            self -> Maybe keySystem -> Maybe initData -> m () webkitGenerateKeyRequest self keySystem initData   = liftIO-      (js_webkitGenerateKeyRequest-         (unHTMLMediaElement (toHTMLMediaElement self))+      (js_webkitGenerateKeyRequest (toHTMLMediaElement self)          (toMaybeJSString keySystem)-         (maybe jsNull (unUint8Array . toUint8Array) initData))+         (maybeToNullable (fmap toUint8Array initData)))   foreign import javascript unsafe         "$1[\"webkitAddKey\"]($2, $3, $4,\n$5)" js_webkitAddKey ::-        JSRef HTMLMediaElement ->-          JSRef (Maybe JSString) ->-            JSRef Uint8Array -> JSRef Uint8Array -> JSString -> IO ()+        HTMLMediaElement ->+          Nullable JSString ->+            Nullable Uint8Array -> Nullable Uint8Array -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitAddKey Mozilla HTMLMediaElement.webkitAddKey documentation>  webkitAddKey ::@@ -149,17 +142,15 @@                  Maybe keySystem -> Maybe key -> Maybe initData -> sessionId -> m () webkitAddKey self keySystem key initData sessionId   = liftIO-      (js_webkitAddKey (unHTMLMediaElement (toHTMLMediaElement self))+      (js_webkitAddKey (toHTMLMediaElement self)          (toMaybeJSString keySystem)-         (maybe jsNull (unUint8Array . toUint8Array) key)-         (maybe jsNull (unUint8Array . toUint8Array) initData)+         (maybeToNullable (fmap toUint8Array key))+         (maybeToNullable (fmap toUint8Array initData))          (toJSString sessionId))   foreign import javascript unsafe         "$1[\"webkitCancelKeyRequest\"]($2,\n$3)" js_webkitCancelKeyRequest-        ::-        JSRef HTMLMediaElement ->-          JSRef (Maybe JSString) -> JSString -> IO ()+        :: HTMLMediaElement -> Nullable JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitCancelKeyRequest Mozilla HTMLMediaElement.webkitCancelKeyRequest documentation>  webkitCancelKeyRequest ::@@ -168,14 +159,13 @@                          self -> Maybe keySystem -> sessionId -> m () webkitCancelKeyRequest self keySystem sessionId   = liftIO-      (js_webkitCancelKeyRequest-         (unHTMLMediaElement (toHTMLMediaElement self))+      (js_webkitCancelKeyRequest (toHTMLMediaElement self)          (toMaybeJSString keySystem)          (toJSString sessionId))   foreign import javascript unsafe "$1[\"webkitSetMediaKeys\"]($2)"         js_webkitSetMediaKeys ::-        JSRef HTMLMediaElement -> JSRef MediaKeys -> IO ()+        HTMLMediaElement -> Nullable MediaKeys -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitSetMediaKeys Mozilla HTMLMediaElement.webkitSetMediaKeys documentation>  webkitSetMediaKeys ::@@ -183,14 +173,13 @@                      self -> Maybe MediaKeys -> m () webkitSetMediaKeys self mediaKeys   = liftIO-      (js_webkitSetMediaKeys-         (unHTMLMediaElement (toHTMLMediaElement self))-         (maybe jsNull pToJSRef mediaKeys))+      (js_webkitSetMediaKeys (toHTMLMediaElement self)+         (maybeToNullable mediaKeys))   foreign import javascript unsafe "$1[\"addTextTrack\"]($2, $3, $4)"         js_addTextTrack ::-        JSRef HTMLMediaElement ->-          JSString -> JSString -> JSString -> IO (JSRef TextTrack)+        HTMLMediaElement ->+          JSString -> JSString -> JSString -> IO (Nullable TextTrack)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.addTextTrack Mozilla HTMLMediaElement.addTextTrack documentation>  addTextTrack ::@@ -199,15 +188,14 @@                self -> kind -> label -> language -> m (Maybe TextTrack) addTextTrack self kind label language   = liftIO-      ((js_addTextTrack (unHTMLMediaElement (toHTMLMediaElement self))-          (toJSString kind)-          (toJSString label)-          (toJSString language))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_addTextTrack (toHTMLMediaElement self) (toJSString kind)+            (toJSString label)+            (toJSString language)))   foreign import javascript unsafe         "$1[\"getVideoPlaybackQuality\"]()" js_getVideoPlaybackQuality ::-        JSRef HTMLMediaElement -> IO (JSRef VideoPlaybackQuality)+        HTMLMediaElement -> IO (Nullable VideoPlaybackQuality)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.getVideoPlaybackQuality Mozilla HTMLMediaElement.getVideoPlaybackQuality documentation>  getVideoPlaybackQuality ::@@ -215,22 +203,19 @@                           self -> m (Maybe VideoPlaybackQuality) getVideoPlaybackQuality self   = liftIO-      ((js_getVideoPlaybackQuality-          (unHTMLMediaElement (toHTMLMediaElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getVideoPlaybackQuality (toHTMLMediaElement self)))   foreign import javascript unsafe         "$1[\"webkitShowPlaybackTargetPicker\"]()"-        js_webkitShowPlaybackTargetPicker ::-        JSRef HTMLMediaElement -> IO ()+        js_webkitShowPlaybackTargetPicker :: HTMLMediaElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitShowPlaybackTargetPicker Mozilla HTMLMediaElement.webkitShowPlaybackTargetPicker documentation>  webkitShowPlaybackTargetPicker ::                                (MonadIO m, IsHTMLMediaElement self) => self -> m () webkitShowPlaybackTargetPicker self   = liftIO-      (js_webkitShowPlaybackTargetPicker-         (unHTMLMediaElement (toHTMLMediaElement self)))+      (js_webkitShowPlaybackTargetPicker (toHTMLMediaElement self)) pattern NETWORK_EMPTY = 0 pattern NETWORK_IDLE = 1 pattern NETWORK_LOADING = 2@@ -242,7 +227,7 @@ pattern HAVE_ENOUGH_DATA = 4   foreign import javascript unsafe "$1[\"error\"]" js_getError ::-        JSRef HTMLMediaElement -> IO (JSRef MediaError)+        HTMLMediaElement -> IO (Nullable MediaError)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.error Mozilla HTMLMediaElement.error documentation>  getError ::@@ -250,35 +235,30 @@            self -> m (Maybe MediaError) getError self   = liftIO-      ((js_getError (unHTMLMediaElement (toHTMLMediaElement self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getError (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::-        JSRef HTMLMediaElement -> JSString -> IO ()+        HTMLMediaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.src Mozilla HTMLMediaElement.src documentation>  setSrc ::        (MonadIO m, IsHTMLMediaElement self, ToJSString val) =>          self -> val -> m () setSrc self val-  = liftIO-      (js_setSrc (unHTMLMediaElement (toHTMLMediaElement self))-         (toJSString val))+  = liftIO (js_setSrc (toHTMLMediaElement self) (toJSString val))   foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::-        JSRef HTMLMediaElement -> IO JSString+        HTMLMediaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.src Mozilla HTMLMediaElement.src documentation>  getSrc ::        (MonadIO m, IsHTMLMediaElement self, FromJSString result) =>          self -> m result getSrc self-  = liftIO-      (fromJSString <$>-         (js_getSrc (unHTMLMediaElement (toHTMLMediaElement self))))+  = liftIO (fromJSString <$> (js_getSrc (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"currentSrc\"]"-        js_getCurrentSrc :: JSRef HTMLMediaElement -> IO JSString+        js_getCurrentSrc :: HTMLMediaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.currentSrc Mozilla HTMLMediaElement.currentSrc documentation>  getCurrentSrc ::@@ -286,33 +266,29 @@                 self -> m result getCurrentSrc self   = liftIO-      (fromJSString <$>-         (js_getCurrentSrc (unHTMLMediaElement (toHTMLMediaElement self))))+      (fromJSString <$> (js_getCurrentSrc (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"networkState\"]"-        js_getNetworkState :: JSRef HTMLMediaElement -> IO Word+        js_getNetworkState :: HTMLMediaElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.networkState Mozilla HTMLMediaElement.networkState documentation>  getNetworkState ::                 (MonadIO m, IsHTMLMediaElement self) => self -> m Word getNetworkState self-  = liftIO-      (js_getNetworkState (unHTMLMediaElement (toHTMLMediaElement self)))+  = liftIO (js_getNetworkState (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"preload\"] = $2;"-        js_setPreload :: JSRef HTMLMediaElement -> JSString -> IO ()+        js_setPreload :: HTMLMediaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.preload Mozilla HTMLMediaElement.preload documentation>  setPreload ::            (MonadIO m, IsHTMLMediaElement self, ToJSString val) =>              self -> val -> m () setPreload self val-  = liftIO-      (js_setPreload (unHTMLMediaElement (toHTMLMediaElement self))-         (toJSString val))+  = liftIO (js_setPreload (toHTMLMediaElement self) (toJSString val))   foreign import javascript unsafe "$1[\"preload\"]" js_getPreload ::-        JSRef HTMLMediaElement -> IO JSString+        HTMLMediaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.preload Mozilla HTMLMediaElement.preload documentation>  getPreload ::@@ -320,11 +296,10 @@              self -> m result getPreload self   = liftIO-      (fromJSString <$>-         (js_getPreload (unHTMLMediaElement (toHTMLMediaElement self))))+      (fromJSString <$> (js_getPreload (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"buffered\"]" js_getBuffered-        :: JSRef HTMLMediaElement -> IO (JSRef TimeRanges)+        :: HTMLMediaElement -> IO (Nullable TimeRanges)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.buffered Mozilla HTMLMediaElement.buffered documentation>  getBuffered ::@@ -332,116 +307,98 @@               self -> m (Maybe TimeRanges) getBuffered self   = liftIO-      ((js_getBuffered (unHTMLMediaElement (toHTMLMediaElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_getBuffered (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"readyState\"]"-        js_getReadyState :: JSRef HTMLMediaElement -> IO Word+        js_getReadyState :: HTMLMediaElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.readyState Mozilla HTMLMediaElement.readyState documentation>  getReadyState ::               (MonadIO m, IsHTMLMediaElement self) => self -> m Word getReadyState self-  = liftIO-      (js_getReadyState (unHTMLMediaElement (toHTMLMediaElement self)))+  = liftIO (js_getReadyState (toHTMLMediaElement self))   foreign import javascript unsafe "($1[\"seeking\"] ? 1 : 0)"-        js_getSeeking :: JSRef HTMLMediaElement -> IO Bool+        js_getSeeking :: HTMLMediaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.seeking Mozilla HTMLMediaElement.seeking documentation>  getSeeking ::            (MonadIO m, IsHTMLMediaElement self) => self -> m Bool-getSeeking self-  = liftIO-      (js_getSeeking (unHTMLMediaElement (toHTMLMediaElement self)))+getSeeking self = liftIO (js_getSeeking (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"currentTime\"] = $2;"-        js_setCurrentTime :: JSRef HTMLMediaElement -> Double -> IO ()+        js_setCurrentTime :: HTMLMediaElement -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.currentTime Mozilla HTMLMediaElement.currentTime documentation>  setCurrentTime ::                (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m () setCurrentTime self val-  = liftIO-      (js_setCurrentTime (unHTMLMediaElement (toHTMLMediaElement self))-         val)+  = liftIO (js_setCurrentTime (toHTMLMediaElement self) val)   foreign import javascript unsafe "$1[\"currentTime\"]"-        js_getCurrentTime :: JSRef HTMLMediaElement -> IO Double+        js_getCurrentTime :: HTMLMediaElement -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.currentTime Mozilla HTMLMediaElement.currentTime documentation>  getCurrentTime ::                (MonadIO m, IsHTMLMediaElement self) => self -> m Double getCurrentTime self-  = liftIO-      (js_getCurrentTime (unHTMLMediaElement (toHTMLMediaElement self)))+  = liftIO (js_getCurrentTime (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"duration\"]" js_getDuration-        :: JSRef HTMLMediaElement -> IO Double+        :: HTMLMediaElement -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.duration Mozilla HTMLMediaElement.duration documentation>  getDuration ::             (MonadIO m, IsHTMLMediaElement self) => self -> m Double getDuration self-  = liftIO-      (js_getDuration (unHTMLMediaElement (toHTMLMediaElement self)))+  = liftIO (js_getDuration (toHTMLMediaElement self))   foreign import javascript unsafe "($1[\"paused\"] ? 1 : 0)"-        js_getPaused :: JSRef HTMLMediaElement -> IO Bool+        js_getPaused :: HTMLMediaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.paused Mozilla HTMLMediaElement.paused documentation>  getPaused :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool-getPaused self-  = liftIO-      (js_getPaused (unHTMLMediaElement (toHTMLMediaElement self)))+getPaused self = liftIO (js_getPaused (toHTMLMediaElement self))   foreign import javascript unsafe         "$1[\"defaultPlaybackRate\"] = $2;" js_setDefaultPlaybackRate ::-        JSRef HTMLMediaElement -> Double -> IO ()+        HTMLMediaElement -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.defaultPlaybackRate Mozilla HTMLMediaElement.defaultPlaybackRate documentation>  setDefaultPlaybackRate ::                        (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m () setDefaultPlaybackRate self val-  = liftIO-      (js_setDefaultPlaybackRate-         (unHTMLMediaElement (toHTMLMediaElement self))-         val)+  = liftIO (js_setDefaultPlaybackRate (toHTMLMediaElement self) val)   foreign import javascript unsafe "$1[\"defaultPlaybackRate\"]"-        js_getDefaultPlaybackRate :: JSRef HTMLMediaElement -> IO Double+        js_getDefaultPlaybackRate :: HTMLMediaElement -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.defaultPlaybackRate Mozilla HTMLMediaElement.defaultPlaybackRate documentation>  getDefaultPlaybackRate ::                        (MonadIO m, IsHTMLMediaElement self) => self -> m Double getDefaultPlaybackRate self-  = liftIO-      (js_getDefaultPlaybackRate-         (unHTMLMediaElement (toHTMLMediaElement self)))+  = liftIO (js_getDefaultPlaybackRate (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"playbackRate\"] = $2;"-        js_setPlaybackRate :: JSRef HTMLMediaElement -> Double -> IO ()+        js_setPlaybackRate :: HTMLMediaElement -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.playbackRate Mozilla HTMLMediaElement.playbackRate documentation>  setPlaybackRate ::                 (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m () setPlaybackRate self val-  = liftIO-      (js_setPlaybackRate (unHTMLMediaElement (toHTMLMediaElement self))-         val)+  = liftIO (js_setPlaybackRate (toHTMLMediaElement self) val)   foreign import javascript unsafe "$1[\"playbackRate\"]"-        js_getPlaybackRate :: JSRef HTMLMediaElement -> IO Double+        js_getPlaybackRate :: HTMLMediaElement -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.playbackRate Mozilla HTMLMediaElement.playbackRate documentation>  getPlaybackRate ::                 (MonadIO m, IsHTMLMediaElement self) => self -> m Double getPlaybackRate self-  = liftIO-      (js_getPlaybackRate (unHTMLMediaElement (toHTMLMediaElement self)))+  = liftIO (js_getPlaybackRate (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"played\"]" js_getPlayed ::-        JSRef HTMLMediaElement -> IO (JSRef TimeRanges)+        HTMLMediaElement -> IO (Nullable TimeRanges)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.played Mozilla HTMLMediaElement.played documentation>  getPlayed ::@@ -449,11 +406,10 @@             self -> m (Maybe TimeRanges) getPlayed self   = liftIO-      ((js_getPlayed (unHTMLMediaElement (toHTMLMediaElement self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getPlayed (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"seekable\"]" js_getSeekable-        :: JSRef HTMLMediaElement -> IO (JSRef TimeRanges)+        :: HTMLMediaElement -> IO (Nullable TimeRanges)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.seekable Mozilla HTMLMediaElement.seekable documentation>  getSeekable ::@@ -461,136 +417,117 @@               self -> m (Maybe TimeRanges) getSeekable self   = liftIO-      ((js_getSeekable (unHTMLMediaElement (toHTMLMediaElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_getSeekable (toHTMLMediaElement self)))   foreign import javascript unsafe "($1[\"ended\"] ? 1 : 0)"-        js_getEnded :: JSRef HTMLMediaElement -> IO Bool+        js_getEnded :: HTMLMediaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.ended Mozilla HTMLMediaElement.ended documentation>  getEnded :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool-getEnded self-  = liftIO-      (js_getEnded (unHTMLMediaElement (toHTMLMediaElement self)))+getEnded self = liftIO (js_getEnded (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"autoplay\"] = $2;"-        js_setAutoplay :: JSRef HTMLMediaElement -> Bool -> IO ()+        js_setAutoplay :: HTMLMediaElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.autoplay Mozilla HTMLMediaElement.autoplay documentation>  setAutoplay ::             (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () setAutoplay self val-  = liftIO-      (js_setAutoplay (unHTMLMediaElement (toHTMLMediaElement self)) val)+  = liftIO (js_setAutoplay (toHTMLMediaElement self) val)   foreign import javascript unsafe "($1[\"autoplay\"] ? 1 : 0)"-        js_getAutoplay :: JSRef HTMLMediaElement -> IO Bool+        js_getAutoplay :: HTMLMediaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.autoplay Mozilla HTMLMediaElement.autoplay documentation>  getAutoplay ::             (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getAutoplay self-  = liftIO-      (js_getAutoplay (unHTMLMediaElement (toHTMLMediaElement self)))+  = liftIO (js_getAutoplay (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"loop\"] = $2;" js_setLoop ::-        JSRef HTMLMediaElement -> Bool -> IO ()+        HTMLMediaElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.loop Mozilla HTMLMediaElement.loop documentation>  setLoop ::         (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () setLoop self val-  = liftIO-      (js_setLoop (unHTMLMediaElement (toHTMLMediaElement self)) val)+  = liftIO (js_setLoop (toHTMLMediaElement self) val)   foreign import javascript unsafe "($1[\"loop\"] ? 1 : 0)"-        js_getLoop :: JSRef HTMLMediaElement -> IO Bool+        js_getLoop :: HTMLMediaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.loop Mozilla HTMLMediaElement.loop documentation>  getLoop :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool-getLoop self-  = liftIO-      (js_getLoop (unHTMLMediaElement (toHTMLMediaElement self)))+getLoop self = liftIO (js_getLoop (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"controls\"] = $2;"-        js_setControls :: JSRef HTMLMediaElement -> Bool -> IO ()+        js_setControls :: HTMLMediaElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controls Mozilla HTMLMediaElement.controls documentation>  setControls ::             (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () setControls self val-  = liftIO-      (js_setControls (unHTMLMediaElement (toHTMLMediaElement self)) val)+  = liftIO (js_setControls (toHTMLMediaElement self) val)   foreign import javascript unsafe "($1[\"controls\"] ? 1 : 0)"-        js_getControls :: JSRef HTMLMediaElement -> IO Bool+        js_getControls :: HTMLMediaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controls Mozilla HTMLMediaElement.controls documentation>  getControls ::             (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getControls self-  = liftIO-      (js_getControls (unHTMLMediaElement (toHTMLMediaElement self)))+  = liftIO (js_getControls (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"volume\"] = $2;"-        js_setVolume :: JSRef HTMLMediaElement -> Double -> IO ()+        js_setVolume :: HTMLMediaElement -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.volume Mozilla HTMLMediaElement.volume documentation>  setVolume ::           (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m () setVolume self val-  = liftIO-      (js_setVolume (unHTMLMediaElement (toHTMLMediaElement self)) val)+  = liftIO (js_setVolume (toHTMLMediaElement self) val)   foreign import javascript unsafe "$1[\"volume\"]" js_getVolume ::-        JSRef HTMLMediaElement -> IO Double+        HTMLMediaElement -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.volume Mozilla HTMLMediaElement.volume documentation>  getVolume ::           (MonadIO m, IsHTMLMediaElement self) => self -> m Double-getVolume self-  = liftIO-      (js_getVolume (unHTMLMediaElement (toHTMLMediaElement self)))+getVolume self = liftIO (js_getVolume (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"muted\"] = $2;" js_setMuted-        :: JSRef HTMLMediaElement -> Bool -> IO ()+        :: HTMLMediaElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.muted Mozilla HTMLMediaElement.muted documentation>  setMuted ::          (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () setMuted self val-  = liftIO-      (js_setMuted (unHTMLMediaElement (toHTMLMediaElement self)) val)+  = liftIO (js_setMuted (toHTMLMediaElement self) val)   foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)"-        js_getMuted :: JSRef HTMLMediaElement -> IO Bool+        js_getMuted :: HTMLMediaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.muted Mozilla HTMLMediaElement.muted documentation>  getMuted :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool-getMuted self-  = liftIO-      (js_getMuted (unHTMLMediaElement (toHTMLMediaElement self)))+getMuted self = liftIO (js_getMuted (toHTMLMediaElement self))   foreign import javascript unsafe "$1[\"defaultMuted\"] = $2;"-        js_setDefaultMuted :: JSRef HTMLMediaElement -> Bool -> IO ()+        js_setDefaultMuted :: HTMLMediaElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.defaultMuted Mozilla HTMLMediaElement.defaultMuted documentation>  setDefaultMuted ::                 (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () setDefaultMuted self val-  = liftIO-      (js_setDefaultMuted (unHTMLMediaElement (toHTMLMediaElement self))-         val)+  = liftIO (js_setDefaultMuted (toHTMLMediaElement self) val)   foreign import javascript unsafe "($1[\"defaultMuted\"] ? 1 : 0)"-        js_getDefaultMuted :: JSRef HTMLMediaElement -> IO Bool+        js_getDefaultMuted :: HTMLMediaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.defaultMuted Mozilla HTMLMediaElement.defaultMuted documentation>  getDefaultMuted ::                 (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getDefaultMuted self-  = liftIO-      (js_getDefaultMuted (unHTMLMediaElement (toHTMLMediaElement self)))+  = liftIO (js_getDefaultMuted (toHTMLMediaElement self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onemptied Mozilla HTMLMediaElement.onemptied documentation>  emptied ::@@ -678,93 +615,78 @@   foreign import javascript unsafe         "$1[\"webkitPreservesPitch\"] = $2;" js_setWebkitPreservesPitch ::-        JSRef HTMLMediaElement -> Bool -> IO ()+        HTMLMediaElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitPreservesPitch Mozilla HTMLMediaElement.webkitPreservesPitch documentation>  setWebkitPreservesPitch ::                         (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () setWebkitPreservesPitch self val-  = liftIO-      (js_setWebkitPreservesPitch-         (unHTMLMediaElement (toHTMLMediaElement self))-         val)+  = liftIO (js_setWebkitPreservesPitch (toHTMLMediaElement self) val)   foreign import javascript unsafe         "($1[\"webkitPreservesPitch\"] ? 1 : 0)" js_getWebkitPreservesPitch-        :: JSRef HTMLMediaElement -> IO Bool+        :: HTMLMediaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitPreservesPitch Mozilla HTMLMediaElement.webkitPreservesPitch documentation>  getWebkitPreservesPitch ::                         (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getWebkitPreservesPitch self-  = liftIO-      (js_getWebkitPreservesPitch-         (unHTMLMediaElement (toHTMLMediaElement self)))+  = liftIO (js_getWebkitPreservesPitch (toHTMLMediaElement self))   foreign import javascript unsafe         "($1[\"webkitHasClosedCaptions\"] ? 1 : 0)"-        js_getWebkitHasClosedCaptions :: JSRef HTMLMediaElement -> IO Bool+        js_getWebkitHasClosedCaptions :: HTMLMediaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitHasClosedCaptions Mozilla HTMLMediaElement.webkitHasClosedCaptions documentation>  getWebkitHasClosedCaptions ::                            (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getWebkitHasClosedCaptions self-  = liftIO-      (js_getWebkitHasClosedCaptions-         (unHTMLMediaElement (toHTMLMediaElement self)))+  = liftIO (js_getWebkitHasClosedCaptions (toHTMLMediaElement self))   foreign import javascript unsafe         "$1[\"webkitClosedCaptionsVisible\"] = $2;"         js_setWebkitClosedCaptionsVisible ::-        JSRef HTMLMediaElement -> Bool -> IO ()+        HTMLMediaElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitClosedCaptionsVisible Mozilla HTMLMediaElement.webkitClosedCaptionsVisible documentation>  setWebkitClosedCaptionsVisible ::                                (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () setWebkitClosedCaptionsVisible self val   = liftIO-      (js_setWebkitClosedCaptionsVisible-         (unHTMLMediaElement (toHTMLMediaElement self))-         val)+      (js_setWebkitClosedCaptionsVisible (toHTMLMediaElement self) val)   foreign import javascript unsafe         "($1[\"webkitClosedCaptionsVisible\"] ? 1 : 0)"-        js_getWebkitClosedCaptionsVisible ::-        JSRef HTMLMediaElement -> IO Bool+        js_getWebkitClosedCaptionsVisible :: HTMLMediaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitClosedCaptionsVisible Mozilla HTMLMediaElement.webkitClosedCaptionsVisible documentation>  getWebkitClosedCaptionsVisible ::                                (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getWebkitClosedCaptionsVisible self   = liftIO-      (js_getWebkitClosedCaptionsVisible-         (unHTMLMediaElement (toHTMLMediaElement self)))+      (js_getWebkitClosedCaptionsVisible (toHTMLMediaElement self))   foreign import javascript unsafe         "$1[\"webkitAudioDecodedByteCount\"]"-        js_getWebkitAudioDecodedByteCount ::-        JSRef HTMLMediaElement -> IO Word+        js_getWebkitAudioDecodedByteCount :: HTMLMediaElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitAudioDecodedByteCount Mozilla HTMLMediaElement.webkitAudioDecodedByteCount documentation>  getWebkitAudioDecodedByteCount ::                                (MonadIO m, IsHTMLMediaElement self) => self -> m Word getWebkitAudioDecodedByteCount self   = liftIO-      (js_getWebkitAudioDecodedByteCount-         (unHTMLMediaElement (toHTMLMediaElement self)))+      (js_getWebkitAudioDecodedByteCount (toHTMLMediaElement self))   foreign import javascript unsafe         "$1[\"webkitVideoDecodedByteCount\"]"-        js_getWebkitVideoDecodedByteCount ::-        JSRef HTMLMediaElement -> IO Word+        js_getWebkitVideoDecodedByteCount :: HTMLMediaElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitVideoDecodedByteCount Mozilla HTMLMediaElement.webkitVideoDecodedByteCount documentation>  getWebkitVideoDecodedByteCount ::                                (MonadIO m, IsHTMLMediaElement self) => self -> m Word getWebkitVideoDecodedByteCount self   = liftIO-      (js_getWebkitVideoDecodedByteCount-         (unHTMLMediaElement (toHTMLMediaElement self)))+      (js_getWebkitVideoDecodedByteCount (toHTMLMediaElement self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwebkitkeyadded Mozilla HTMLMediaElement.onwebkitkeyadded documentation>  webKitKeyAdded ::@@ -791,19 +713,18 @@ webKitNeedKey = unsafeEventName (toJSString "webkitneedkey")   foreign import javascript unsafe "$1[\"webkitKeys\"]"-        js_getWebkitKeys :: JSRef HTMLMediaElement -> IO (JSRef MediaKeys)+        js_getWebkitKeys :: HTMLMediaElement -> IO (Nullable MediaKeys)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitKeys Mozilla HTMLMediaElement.webkitKeys documentation>  getWebkitKeys ::               (MonadIO m, IsHTMLMediaElement self) => self -> m (Maybe MediaKeys) getWebkitKeys self   = liftIO-      ((js_getWebkitKeys (unHTMLMediaElement (toHTMLMediaElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_getWebkitKeys (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"audioTracks\"]"         js_getAudioTracks ::-        JSRef HTMLMediaElement -> IO (JSRef AudioTrackList)+        HTMLMediaElement -> IO (Nullable AudioTrackList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.audioTracks Mozilla HTMLMediaElement.audioTracks documentation>  getAudioTracks ::@@ -811,12 +732,10 @@                  self -> m (Maybe AudioTrackList) getAudioTracks self   = liftIO-      ((js_getAudioTracks (unHTMLMediaElement (toHTMLMediaElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_getAudioTracks (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"textTracks\"]"-        js_getTextTracks ::-        JSRef HTMLMediaElement -> IO (JSRef TextTrackList)+        js_getTextTracks :: HTMLMediaElement -> IO (Nullable TextTrackList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.textTracks Mozilla HTMLMediaElement.textTracks documentation>  getTextTracks ::@@ -824,12 +743,11 @@                 self -> m (Maybe TextTrackList) getTextTracks self   = liftIO-      ((js_getTextTracks (unHTMLMediaElement (toHTMLMediaElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_getTextTracks (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"videoTracks\"]"         js_getVideoTracks ::-        JSRef HTMLMediaElement -> IO (JSRef VideoTrackList)+        HTMLMediaElement -> IO (Nullable VideoTrackList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.videoTracks Mozilla HTMLMediaElement.videoTracks documentation>  getVideoTracks ::@@ -837,12 +755,10 @@                  self -> m (Maybe VideoTrackList) getVideoTracks self   = liftIO-      ((js_getVideoTracks (unHTMLMediaElement (toHTMLMediaElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_getVideoTracks (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"mediaGroup\"] = $2;"-        js_setMediaGroup ::-        JSRef HTMLMediaElement -> JSRef (Maybe JSString) -> IO ()+        js_setMediaGroup :: HTMLMediaElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.mediaGroup Mozilla HTMLMediaElement.mediaGroup documentation>  setMediaGroup ::@@ -850,12 +766,10 @@                 self -> Maybe val -> m () setMediaGroup self val   = liftIO-      (js_setMediaGroup (unHTMLMediaElement (toHTMLMediaElement self))-         (toMaybeJSString val))+      (js_setMediaGroup (toHTMLMediaElement self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"mediaGroup\"]"-        js_getMediaGroup ::-        JSRef HTMLMediaElement -> IO (JSRef (Maybe JSString))+        js_getMediaGroup :: HTMLMediaElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.mediaGroup Mozilla HTMLMediaElement.mediaGroup documentation>  getMediaGroup ::@@ -864,11 +778,11 @@ getMediaGroup self   = liftIO       (fromMaybeJSString <$>-         (js_getMediaGroup (unHTMLMediaElement (toHTMLMediaElement self))))+         (js_getMediaGroup (toHTMLMediaElement self)))   foreign import javascript unsafe "$1[\"controller\"] = $2;"         js_setController ::-        JSRef HTMLMediaElement -> JSRef MediaController -> IO ()+        HTMLMediaElement -> Nullable MediaController -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controller Mozilla HTMLMediaElement.controller documentation>  setController ::@@ -876,12 +790,11 @@                 self -> Maybe MediaController -> m () setController self val   = liftIO-      (js_setController (unHTMLMediaElement (toHTMLMediaElement self))-         (maybe jsNull pToJSRef val))+      (js_setController (toHTMLMediaElement self) (maybeToNullable val))   foreign import javascript unsafe "$1[\"controller\"]"         js_getController ::-        JSRef HTMLMediaElement -> IO (JSRef MediaController)+        HTMLMediaElement -> IO (Nullable MediaController)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.controller Mozilla HTMLMediaElement.controller documentation>  getController ::@@ -889,13 +802,12 @@                 self -> m (Maybe MediaController) getController self   = liftIO-      ((js_getController (unHTMLMediaElement (toHTMLMediaElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_getController (toHTMLMediaElement self)))   foreign import javascript unsafe         "($1[\"webkitCurrentPlaybackTargetIsWireless\"] ? 1 : 0)"         js_getWebkitCurrentPlaybackTargetIsWireless ::-        JSRef HTMLMediaElement -> IO Bool+        HTMLMediaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.webkitCurrentPlaybackTargetIsWireless Mozilla HTMLMediaElement.webkitCurrentPlaybackTargetIsWireless documentation>  getWebkitCurrentPlaybackTargetIsWireless ::@@ -903,7 +815,7 @@ getWebkitCurrentPlaybackTargetIsWireless self   = liftIO       (js_getWebkitCurrentPlaybackTargetIsWireless-         (unHTMLMediaElement (toHTMLMediaElement self)))+         (toHTMLMediaElement self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.onwebkitcurrentplaybacktargetiswirelesschanged Mozilla HTMLMediaElement.onwebkitcurrentplaybacktargetiswirelesschanged documentation>  webKitCurrentPlaybackTargetIsWirelessChanged ::@@ -923,7 +835,7 @@   foreign import javascript unsafe "$1[\"srcObject\"] = $2;"         js_setSrcObject ::-        JSRef HTMLMediaElement -> JSRef MediaStream -> IO ()+        HTMLMediaElement -> Nullable MediaStream -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation>  setSrcObject ::@@ -931,12 +843,10 @@                self -> Maybe MediaStream -> m () setSrcObject self val   = liftIO-      (js_setSrcObject (unHTMLMediaElement (toHTMLMediaElement self))-         (maybe jsNull pToJSRef val))+      (js_setSrcObject (toHTMLMediaElement self) (maybeToNullable val))   foreign import javascript unsafe "$1[\"srcObject\"]"-        js_getSrcObject ::-        JSRef HTMLMediaElement -> IO (JSRef (Maybe MediaStream))+        js_getSrcObject :: HTMLMediaElement -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMediaElement.srcObject Mozilla HTMLMediaElement.srcObject documentation>  getSrcObject ::@@ -944,5 +854,5 @@                self -> m (Maybe MediaStream) getSrcObject self   = liftIO-      ((js_getSrcObject (unHTMLMediaElement (toHTMLMediaElement self)))-         >>= fromJSRefUnchecked)+      ((js_getSrcObject (toHTMLMediaElement self)) >>=+         fromJSRefUnchecked)
src/GHCJS/DOM/JSFFI/Generated/HTMLMenuElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,16 +19,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"compact\"] = $2;"-        js_setCompact :: JSRef HTMLMenuElement -> Bool -> IO ()+        js_setCompact :: HTMLMenuElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMenuElement.compact Mozilla HTMLMenuElement.compact documentation>  setCompact :: (MonadIO m) => HTMLMenuElement -> Bool -> m ()-setCompact self val-  = liftIO (js_setCompact (unHTMLMenuElement self) val)+setCompact self val = liftIO (js_setCompact (self) val)   foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"-        js_getCompact :: JSRef HTMLMenuElement -> IO Bool+        js_getCompact :: HTMLMenuElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMenuElement.compact Mozilla HTMLMenuElement.compact documentation>  getCompact :: (MonadIO m) => HTMLMenuElement -> m Bool-getCompact self = liftIO (js_getCompact (unHTMLMenuElement self))+getCompact self = liftIO (js_getCompact (self))
src/GHCJS/DOM/JSFFI/Generated/HTMLMetaElement.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,76 +22,68 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"content\"] = $2;"-        js_setContent :: JSRef HTMLMetaElement -> JSString -> IO ()+        js_setContent :: HTMLMetaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.content Mozilla HTMLMetaElement.content documentation>  setContent ::            (MonadIO m, ToJSString val) => HTMLMetaElement -> val -> m () setContent self val-  = liftIO (js_setContent (unHTMLMetaElement self) (toJSString val))+  = liftIO (js_setContent (self) (toJSString val))   foreign import javascript unsafe "$1[\"content\"]" js_getContent ::-        JSRef HTMLMetaElement -> IO JSString+        HTMLMetaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.content Mozilla HTMLMetaElement.content documentation>  getContent ::            (MonadIO m, FromJSString result) => HTMLMetaElement -> m result-getContent self-  = liftIO-      (fromJSString <$> (js_getContent (unHTMLMetaElement self)))+getContent self = liftIO (fromJSString <$> (js_getContent (self)))   foreign import javascript unsafe "$1[\"httpEquiv\"] = $2;"-        js_setHttpEquiv :: JSRef HTMLMetaElement -> JSString -> IO ()+        js_setHttpEquiv :: HTMLMetaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.httpEquiv Mozilla HTMLMetaElement.httpEquiv documentation>  setHttpEquiv ::              (MonadIO m, ToJSString val) => HTMLMetaElement -> val -> m () setHttpEquiv self val-  = liftIO-      (js_setHttpEquiv (unHTMLMetaElement self) (toJSString val))+  = liftIO (js_setHttpEquiv (self) (toJSString val))   foreign import javascript unsafe "$1[\"httpEquiv\"]"-        js_getHttpEquiv :: JSRef HTMLMetaElement -> IO JSString+        js_getHttpEquiv :: HTMLMetaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.httpEquiv Mozilla HTMLMetaElement.httpEquiv documentation>  getHttpEquiv ::              (MonadIO m, FromJSString result) => HTMLMetaElement -> m result getHttpEquiv self-  = liftIO-      (fromJSString <$> (js_getHttpEquiv (unHTMLMetaElement self)))+  = liftIO (fromJSString <$> (js_getHttpEquiv (self)))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLMetaElement -> JSString -> IO ()+        HTMLMetaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.name Mozilla HTMLMetaElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLMetaElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLMetaElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLMetaElement -> IO JSString+        HTMLMetaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.name Mozilla HTMLMetaElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLMetaElement -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unHTMLMetaElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"scheme\"] = $2;"-        js_setScheme :: JSRef HTMLMetaElement -> JSString -> IO ()+        js_setScheme :: HTMLMetaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.scheme Mozilla HTMLMetaElement.scheme documentation>  setScheme ::           (MonadIO m, ToJSString val) => HTMLMetaElement -> val -> m ()-setScheme self val-  = liftIO (js_setScheme (unHTMLMetaElement self) (toJSString val))+setScheme self val = liftIO (js_setScheme (self) (toJSString val))   foreign import javascript unsafe "$1[\"scheme\"]" js_getScheme ::-        JSRef HTMLMetaElement -> IO JSString+        HTMLMetaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMetaElement.scheme Mozilla HTMLMetaElement.scheme documentation>  getScheme ::           (MonadIO m, FromJSString result) => HTMLMetaElement -> m result-getScheme self-  = liftIO (fromJSString <$> (js_getScheme (unHTMLMetaElement self)))+getScheme self = liftIO (fromJSString <$> (js_getScheme (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLMeterElement.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,96 +23,92 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef HTMLMeterElement -> Double -> IO ()+        :: HTMLMeterElement -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.value Mozilla HTMLMeterElement.value documentation>  setValue :: (MonadIO m) => HTMLMeterElement -> Double -> m ()-setValue self val-  = liftIO (js_setValue (unHTMLMeterElement self) val)+setValue self val = liftIO (js_setValue (self) val)   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef HTMLMeterElement -> IO Double+        HTMLMeterElement -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.value Mozilla HTMLMeterElement.value documentation>  getValue :: (MonadIO m) => HTMLMeterElement -> m Double-getValue self = liftIO (js_getValue (unHTMLMeterElement self))+getValue self = liftIO (js_getValue (self))   foreign import javascript unsafe "$1[\"min\"] = $2;" js_setMin ::-        JSRef HTMLMeterElement -> Double -> IO ()+        HTMLMeterElement -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.min Mozilla HTMLMeterElement.min documentation>  setMin :: (MonadIO m) => HTMLMeterElement -> Double -> m ()-setMin self val = liftIO (js_setMin (unHTMLMeterElement self) val)+setMin self val = liftIO (js_setMin (self) val)   foreign import javascript unsafe "$1[\"min\"]" js_getMin ::-        JSRef HTMLMeterElement -> IO Double+        HTMLMeterElement -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.min Mozilla HTMLMeterElement.min documentation>  getMin :: (MonadIO m) => HTMLMeterElement -> m Double-getMin self = liftIO (js_getMin (unHTMLMeterElement self))+getMin self = liftIO (js_getMin (self))   foreign import javascript unsafe "$1[\"max\"] = $2;" js_setMax ::-        JSRef HTMLMeterElement -> Double -> IO ()+        HTMLMeterElement -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.max Mozilla HTMLMeterElement.max documentation>  setMax :: (MonadIO m) => HTMLMeterElement -> Double -> m ()-setMax self val = liftIO (js_setMax (unHTMLMeterElement self) val)+setMax self val = liftIO (js_setMax (self) val)   foreign import javascript unsafe "$1[\"max\"]" js_getMax ::-        JSRef HTMLMeterElement -> IO Double+        HTMLMeterElement -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.max Mozilla HTMLMeterElement.max documentation>  getMax :: (MonadIO m) => HTMLMeterElement -> m Double-getMax self = liftIO (js_getMax (unHTMLMeterElement self))+getMax self = liftIO (js_getMax (self))   foreign import javascript unsafe "$1[\"low\"] = $2;" js_setLow ::-        JSRef HTMLMeterElement -> Double -> IO ()+        HTMLMeterElement -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.low Mozilla HTMLMeterElement.low documentation>  setLow :: (MonadIO m) => HTMLMeterElement -> Double -> m ()-setLow self val = liftIO (js_setLow (unHTMLMeterElement self) val)+setLow self val = liftIO (js_setLow (self) val)   foreign import javascript unsafe "$1[\"low\"]" js_getLow ::-        JSRef HTMLMeterElement -> IO Double+        HTMLMeterElement -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.low Mozilla HTMLMeterElement.low documentation>  getLow :: (MonadIO m) => HTMLMeterElement -> m Double-getLow self = liftIO (js_getLow (unHTMLMeterElement self))+getLow self = liftIO (js_getLow (self))   foreign import javascript unsafe "$1[\"high\"] = $2;" js_setHigh ::-        JSRef HTMLMeterElement -> Double -> IO ()+        HTMLMeterElement -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.high Mozilla HTMLMeterElement.high documentation>  setHigh :: (MonadIO m) => HTMLMeterElement -> Double -> m ()-setHigh self val-  = liftIO (js_setHigh (unHTMLMeterElement self) val)+setHigh self val = liftIO (js_setHigh (self) val)   foreign import javascript unsafe "$1[\"high\"]" js_getHigh ::-        JSRef HTMLMeterElement -> IO Double+        HTMLMeterElement -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.high Mozilla HTMLMeterElement.high documentation>  getHigh :: (MonadIO m) => HTMLMeterElement -> m Double-getHigh self = liftIO (js_getHigh (unHTMLMeterElement self))+getHigh self = liftIO (js_getHigh (self))   foreign import javascript unsafe "$1[\"optimum\"] = $2;"-        js_setOptimum :: JSRef HTMLMeterElement -> Double -> IO ()+        js_setOptimum :: HTMLMeterElement -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.optimum Mozilla HTMLMeterElement.optimum documentation>  setOptimum :: (MonadIO m) => HTMLMeterElement -> Double -> m ()-setOptimum self val-  = liftIO (js_setOptimum (unHTMLMeterElement self) val)+setOptimum self val = liftIO (js_setOptimum (self) val)   foreign import javascript unsafe "$1[\"optimum\"]" js_getOptimum ::-        JSRef HTMLMeterElement -> IO Double+        HTMLMeterElement -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.optimum Mozilla HTMLMeterElement.optimum documentation>  getOptimum :: (MonadIO m) => HTMLMeterElement -> m Double-getOptimum self = liftIO (js_getOptimum (unHTMLMeterElement self))+getOptimum self = liftIO (js_getOptimum (self))   foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::-        JSRef HTMLMeterElement -> IO (JSRef NodeList)+        HTMLMeterElement -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLMeterElement.labels Mozilla HTMLMeterElement.labels documentation>  getLabels :: (MonadIO m) => HTMLMeterElement -> m (Maybe NodeList)-getLabels self-  = liftIO ((js_getLabels (unHTMLMeterElement self)) >>= fromJSRef)+getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLModElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,38 +20,35 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"cite\"] = $2;" js_setCite ::-        JSRef HTMLModElement -> JSString -> IO ()+        HTMLModElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement.cite Mozilla HTMLModElement.cite documentation>  setCite ::         (MonadIO m, ToJSString val) => HTMLModElement -> val -> m ()-setCite self val-  = liftIO (js_setCite (unHTMLModElement self) (toJSString val))+setCite self val = liftIO (js_setCite (self) (toJSString val))   foreign import javascript unsafe "$1[\"cite\"]" js_getCite ::-        JSRef HTMLModElement -> IO JSString+        HTMLModElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement.cite Mozilla HTMLModElement.cite documentation>  getCite ::         (MonadIO m, FromJSString result) => HTMLModElement -> m result-getCite self-  = liftIO (fromJSString <$> (js_getCite (unHTMLModElement self)))+getCite self = liftIO (fromJSString <$> (js_getCite (self)))   foreign import javascript unsafe "$1[\"dateTime\"] = $2;"-        js_setDateTime :: JSRef HTMLModElement -> JSString -> IO ()+        js_setDateTime :: HTMLModElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement.dateTime Mozilla HTMLModElement.dateTime documentation>  setDateTime ::             (MonadIO m, ToJSString val) => HTMLModElement -> val -> m () setDateTime self val-  = liftIO (js_setDateTime (unHTMLModElement self) (toJSString val))+  = liftIO (js_setDateTime (self) (toJSString val))   foreign import javascript unsafe "$1[\"dateTime\"]" js_getDateTime-        :: JSRef HTMLModElement -> IO JSString+        :: HTMLModElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLModElement.dateTime Mozilla HTMLModElement.dateTime documentation>  getDateTime ::             (MonadIO m, FromJSString result) => HTMLModElement -> m result getDateTime self-  = liftIO-      (fromJSString <$> (js_getDateTime (unHTMLModElement self)))+  = liftIO (fromJSString <$> (js_getDateTime (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLOListElement.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,65 +22,59 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"compact\"] = $2;"-        js_setCompact :: JSRef HTMLOListElement -> Bool -> IO ()+        js_setCompact :: HTMLOListElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.compact Mozilla HTMLOListElement.compact documentation>  setCompact :: (MonadIO m) => HTMLOListElement -> Bool -> m ()-setCompact self val-  = liftIO (js_setCompact (unHTMLOListElement self) val)+setCompact self val = liftIO (js_setCompact (self) val)   foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"-        js_getCompact :: JSRef HTMLOListElement -> IO Bool+        js_getCompact :: HTMLOListElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.compact Mozilla HTMLOListElement.compact documentation>  getCompact :: (MonadIO m) => HTMLOListElement -> m Bool-getCompact self = liftIO (js_getCompact (unHTMLOListElement self))+getCompact self = liftIO (js_getCompact (self))   foreign import javascript unsafe "$1[\"start\"] = $2;" js_setStart-        :: JSRef HTMLOListElement -> Int -> IO ()+        :: HTMLOListElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.start Mozilla HTMLOListElement.start documentation>  setStart :: (MonadIO m) => HTMLOListElement -> Int -> m ()-setStart self val-  = liftIO (js_setStart (unHTMLOListElement self) val)+setStart self val = liftIO (js_setStart (self) val)   foreign import javascript unsafe "$1[\"start\"]" js_getStart ::-        JSRef HTMLOListElement -> IO Int+        HTMLOListElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.start Mozilla HTMLOListElement.start documentation>  getStart :: (MonadIO m) => HTMLOListElement -> m Int-getStart self = liftIO (js_getStart (unHTMLOListElement self))+getStart self = liftIO (js_getStart (self))   foreign import javascript unsafe "$1[\"reversed\"] = $2;"-        js_setReversed :: JSRef HTMLOListElement -> Bool -> IO ()+        js_setReversed :: HTMLOListElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.reversed Mozilla HTMLOListElement.reversed documentation>  setReversed :: (MonadIO m) => HTMLOListElement -> Bool -> m ()-setReversed self val-  = liftIO (js_setReversed (unHTMLOListElement self) val)+setReversed self val = liftIO (js_setReversed (self) val)   foreign import javascript unsafe "($1[\"reversed\"] ? 1 : 0)"-        js_getReversed :: JSRef HTMLOListElement -> IO Bool+        js_getReversed :: HTMLOListElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.reversed Mozilla HTMLOListElement.reversed documentation>  getReversed :: (MonadIO m) => HTMLOListElement -> m Bool-getReversed self-  = liftIO (js_getReversed (unHTMLOListElement self))+getReversed self = liftIO (js_getReversed (self))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        JSRef HTMLOListElement -> JSString -> IO ()+        HTMLOListElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.type Mozilla HTMLOListElement.type documentation>  setType ::         (MonadIO m, ToJSString val) => HTMLOListElement -> val -> m ()-setType self val-  = liftIO (js_setType (unHTMLOListElement self) (toJSString val))+setType self val = liftIO (js_setType (self) (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLOListElement -> IO JSString+        HTMLOListElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOListElement.type Mozilla HTMLOListElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLOListElement -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unHTMLOListElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLObjectElement.hs view
@@ -22,7 +22,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -37,374 +37,327 @@   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::-        JSRef HTMLObjectElement -> IO Bool+        HTMLObjectElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.checkValidity Mozilla HTMLObjectElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLObjectElement -> m Bool-checkValidity self-  = liftIO (js_checkValidity (unHTMLObjectElement self))+checkValidity self = liftIO (js_checkValidity (self))   foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         js_setCustomValidity ::-        JSRef HTMLObjectElement -> JSRef (Maybe JSString) -> IO ()+        HTMLObjectElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.setCustomValidity Mozilla HTMLObjectElement.setCustomValidity documentation>  setCustomValidity ::                   (MonadIO m, ToJSString error) =>                     HTMLObjectElement -> Maybe error -> m () setCustomValidity self error-  = liftIO-      (js_setCustomValidity (unHTMLObjectElement self)-         (toMaybeJSString error))+  = liftIO (js_setCustomValidity (self) (toMaybeJSString error))   foreign import javascript unsafe "$1[\"getSVGDocument\"]()"-        js_getSVGDocument ::-        JSRef HTMLObjectElement -> IO (JSRef SVGDocument)+        js_getSVGDocument :: HTMLObjectElement -> IO (Nullable SVGDocument)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.getSVGDocument Mozilla HTMLObjectElement.getSVGDocument documentation>  getSVGDocument ::                (MonadIO m) => HTMLObjectElement -> m (Maybe SVGDocument) getSVGDocument self-  = liftIO-      ((js_getSVGDocument (unHTMLObjectElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSVGDocument (self)))   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::-        JSRef HTMLObjectElement -> IO (JSRef HTMLFormElement)+        HTMLObjectElement -> IO (Nullable HTMLFormElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.form Mozilla HTMLObjectElement.form documentation>  getForm ::         (MonadIO m) => HTMLObjectElement -> m (Maybe HTMLFormElement)-getForm self-  = liftIO ((js_getForm (unHTMLObjectElement self)) >>= fromJSRef)+getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"code\"] = $2;" js_setCode ::-        JSRef HTMLObjectElement -> JSString -> IO ()+        HTMLObjectElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.code Mozilla HTMLObjectElement.code documentation>  setCode ::         (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()-setCode self val-  = liftIO (js_setCode (unHTMLObjectElement self) (toJSString val))+setCode self val = liftIO (js_setCode (self) (toJSString val))   foreign import javascript unsafe "$1[\"code\"]" js_getCode ::-        JSRef HTMLObjectElement -> IO JSString+        HTMLObjectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.code Mozilla HTMLObjectElement.code documentation>  getCode ::         (MonadIO m, FromJSString result) => HTMLObjectElement -> m result-getCode self-  = liftIO (fromJSString <$> (js_getCode (unHTMLObjectElement self)))+getCode self = liftIO (fromJSString <$> (js_getCode (self)))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLObjectElement -> JSString -> IO ()+        :: HTMLObjectElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.align Mozilla HTMLObjectElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()-setAlign self val-  = liftIO (js_setAlign (unHTMLObjectElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLObjectElement -> IO JSString+        HTMLObjectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.align Mozilla HTMLObjectElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) => HTMLObjectElement -> m result-getAlign self-  = liftIO-      (fromJSString <$> (js_getAlign (unHTMLObjectElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))   foreign import javascript unsafe "$1[\"archive\"] = $2;"-        js_setArchive :: JSRef HTMLObjectElement -> JSString -> IO ()+        js_setArchive :: HTMLObjectElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.archive Mozilla HTMLObjectElement.archive documentation>  setArchive ::            (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setArchive self val-  = liftIO-      (js_setArchive (unHTMLObjectElement self) (toJSString val))+  = liftIO (js_setArchive (self) (toJSString val))   foreign import javascript unsafe "$1[\"archive\"]" js_getArchive ::-        JSRef HTMLObjectElement -> IO JSString+        HTMLObjectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.archive Mozilla HTMLObjectElement.archive documentation>  getArchive ::            (MonadIO m, FromJSString result) => HTMLObjectElement -> m result-getArchive self-  = liftIO-      (fromJSString <$> (js_getArchive (unHTMLObjectElement self)))+getArchive self = liftIO (fromJSString <$> (js_getArchive (self)))   foreign import javascript unsafe "$1[\"border\"] = $2;"-        js_setBorder :: JSRef HTMLObjectElement -> JSString -> IO ()+        js_setBorder :: HTMLObjectElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.border Mozilla HTMLObjectElement.border documentation>  setBorder ::           (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()-setBorder self val-  = liftIO (js_setBorder (unHTMLObjectElement self) (toJSString val))+setBorder self val = liftIO (js_setBorder (self) (toJSString val))   foreign import javascript unsafe "$1[\"border\"]" js_getBorder ::-        JSRef HTMLObjectElement -> IO JSString+        HTMLObjectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.border Mozilla HTMLObjectElement.border documentation>  getBorder ::           (MonadIO m, FromJSString result) => HTMLObjectElement -> m result-getBorder self-  = liftIO-      (fromJSString <$> (js_getBorder (unHTMLObjectElement self)))+getBorder self = liftIO (fromJSString <$> (js_getBorder (self)))   foreign import javascript unsafe "$1[\"codeBase\"] = $2;"-        js_setCodeBase :: JSRef HTMLObjectElement -> JSString -> IO ()+        js_setCodeBase :: HTMLObjectElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.codeBase Mozilla HTMLObjectElement.codeBase documentation>  setCodeBase ::             (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setCodeBase self val-  = liftIO-      (js_setCodeBase (unHTMLObjectElement self) (toJSString val))+  = liftIO (js_setCodeBase (self) (toJSString val))   foreign import javascript unsafe "$1[\"codeBase\"]" js_getCodeBase-        :: JSRef HTMLObjectElement -> IO JSString+        :: HTMLObjectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.codeBase Mozilla HTMLObjectElement.codeBase documentation>  getCodeBase ::             (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getCodeBase self-  = liftIO-      (fromJSString <$> (js_getCodeBase (unHTMLObjectElement self)))+  = liftIO (fromJSString <$> (js_getCodeBase (self)))   foreign import javascript unsafe "$1[\"codeType\"] = $2;"-        js_setCodeType :: JSRef HTMLObjectElement -> JSString -> IO ()+        js_setCodeType :: HTMLObjectElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.codeType Mozilla HTMLObjectElement.codeType documentation>  setCodeType ::             (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setCodeType self val-  = liftIO-      (js_setCodeType (unHTMLObjectElement self) (toJSString val))+  = liftIO (js_setCodeType (self) (toJSString val))   foreign import javascript unsafe "$1[\"codeType\"]" js_getCodeType-        :: JSRef HTMLObjectElement -> IO JSString+        :: HTMLObjectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.codeType Mozilla HTMLObjectElement.codeType documentation>  getCodeType ::             (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getCodeType self-  = liftIO-      (fromJSString <$> (js_getCodeType (unHTMLObjectElement self)))+  = liftIO (fromJSString <$> (js_getCodeType (self)))   foreign import javascript unsafe "$1[\"data\"] = $2;" js_setData ::-        JSRef HTMLObjectElement -> JSString -> IO ()+        HTMLObjectElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.data Mozilla HTMLObjectElement.data documentation>  setData ::         (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()-setData self val-  = liftIO (js_setData (unHTMLObjectElement self) (toJSString val))+setData self val = liftIO (js_setData (self) (toJSString val))   foreign import javascript unsafe "$1[\"data\"]" js_getData ::-        JSRef HTMLObjectElement -> IO JSString+        HTMLObjectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.data Mozilla HTMLObjectElement.data documentation>  getData ::         (MonadIO m, FromJSString result) => HTMLObjectElement -> m result-getData self-  = liftIO (fromJSString <$> (js_getData (unHTMLObjectElement self)))+getData self = liftIO (fromJSString <$> (js_getData (self)))   foreign import javascript unsafe "$1[\"declare\"] = $2;"-        js_setDeclare :: JSRef HTMLObjectElement -> Bool -> IO ()+        js_setDeclare :: HTMLObjectElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.declare Mozilla HTMLObjectElement.declare documentation>  setDeclare :: (MonadIO m) => HTMLObjectElement -> Bool -> m ()-setDeclare self val-  = liftIO (js_setDeclare (unHTMLObjectElement self) val)+setDeclare self val = liftIO (js_setDeclare (self) val)   foreign import javascript unsafe "($1[\"declare\"] ? 1 : 0)"-        js_getDeclare :: JSRef HTMLObjectElement -> IO Bool+        js_getDeclare :: HTMLObjectElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.declare Mozilla HTMLObjectElement.declare documentation>  getDeclare :: (MonadIO m) => HTMLObjectElement -> m Bool-getDeclare self = liftIO (js_getDeclare (unHTMLObjectElement self))+getDeclare self = liftIO (js_getDeclare (self))   foreign import javascript unsafe "$1[\"height\"] = $2;"-        js_setHeight :: JSRef HTMLObjectElement -> JSString -> IO ()+        js_setHeight :: HTMLObjectElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.height Mozilla HTMLObjectElement.height documentation>  setHeight ::           (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()-setHeight self val-  = liftIO (js_setHeight (unHTMLObjectElement self) (toJSString val))+setHeight self val = liftIO (js_setHeight (self) (toJSString val))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef HTMLObjectElement -> IO JSString+        HTMLObjectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.height Mozilla HTMLObjectElement.height documentation>  getHeight ::           (MonadIO m, FromJSString result) => HTMLObjectElement -> m result-getHeight self-  = liftIO-      (fromJSString <$> (js_getHeight (unHTMLObjectElement self)))+getHeight self = liftIO (fromJSString <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"hspace\"] = $2;"-        js_setHspace :: JSRef HTMLObjectElement -> Int -> IO ()+        js_setHspace :: HTMLObjectElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.hspace Mozilla HTMLObjectElement.hspace documentation>  setHspace :: (MonadIO m) => HTMLObjectElement -> Int -> m ()-setHspace self val-  = liftIO (js_setHspace (unHTMLObjectElement self) val)+setHspace self val = liftIO (js_setHspace (self) val)   foreign import javascript unsafe "$1[\"hspace\"]" js_getHspace ::-        JSRef HTMLObjectElement -> IO Int+        HTMLObjectElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.hspace Mozilla HTMLObjectElement.hspace documentation>  getHspace :: (MonadIO m) => HTMLObjectElement -> m Int-getHspace self = liftIO (js_getHspace (unHTMLObjectElement self))+getHspace self = liftIO (js_getHspace (self))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLObjectElement -> JSString -> IO ()+        HTMLObjectElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.name Mozilla HTMLObjectElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLObjectElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLObjectElement -> IO JSString+        HTMLObjectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.name Mozilla HTMLObjectElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLObjectElement -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unHTMLObjectElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"standby\"] = $2;"-        js_setStandby :: JSRef HTMLObjectElement -> JSString -> IO ()+        js_setStandby :: HTMLObjectElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.standby Mozilla HTMLObjectElement.standby documentation>  setStandby ::            (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m () setStandby self val-  = liftIO-      (js_setStandby (unHTMLObjectElement self) (toJSString val))+  = liftIO (js_setStandby (self) (toJSString val))   foreign import javascript unsafe "$1[\"standby\"]" js_getStandby ::-        JSRef HTMLObjectElement -> IO JSString+        HTMLObjectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.standby Mozilla HTMLObjectElement.standby documentation>  getStandby ::            (MonadIO m, FromJSString result) => HTMLObjectElement -> m result-getStandby self-  = liftIO-      (fromJSString <$> (js_getStandby (unHTMLObjectElement self)))+getStandby self = liftIO (fromJSString <$> (js_getStandby (self)))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        JSRef HTMLObjectElement -> JSString -> IO ()+        HTMLObjectElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.type Mozilla HTMLObjectElement.type documentation>  setType ::         (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()-setType self val-  = liftIO (js_setType (unHTMLObjectElement self) (toJSString val))+setType self val = liftIO (js_setType (self) (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLObjectElement -> IO JSString+        HTMLObjectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.type Mozilla HTMLObjectElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLObjectElement -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unHTMLObjectElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"useMap\"] = $2;"-        js_setUseMap :: JSRef HTMLObjectElement -> JSString -> IO ()+        js_setUseMap :: HTMLObjectElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.useMap Mozilla HTMLObjectElement.useMap documentation>  setUseMap ::           (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()-setUseMap self val-  = liftIO (js_setUseMap (unHTMLObjectElement self) (toJSString val))+setUseMap self val = liftIO (js_setUseMap (self) (toJSString val))   foreign import javascript unsafe "$1[\"useMap\"]" js_getUseMap ::-        JSRef HTMLObjectElement -> IO JSString+        HTMLObjectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.useMap Mozilla HTMLObjectElement.useMap documentation>  getUseMap ::           (MonadIO m, FromJSString result) => HTMLObjectElement -> m result-getUseMap self-  = liftIO-      (fromJSString <$> (js_getUseMap (unHTMLObjectElement self)))+getUseMap self = liftIO (fromJSString <$> (js_getUseMap (self)))   foreign import javascript unsafe "$1[\"vspace\"] = $2;"-        js_setVspace :: JSRef HTMLObjectElement -> Int -> IO ()+        js_setVspace :: HTMLObjectElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.vspace Mozilla HTMLObjectElement.vspace documentation>  setVspace :: (MonadIO m) => HTMLObjectElement -> Int -> m ()-setVspace self val-  = liftIO (js_setVspace (unHTMLObjectElement self) val)+setVspace self val = liftIO (js_setVspace (self) val)   foreign import javascript unsafe "$1[\"vspace\"]" js_getVspace ::-        JSRef HTMLObjectElement -> IO Int+        HTMLObjectElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.vspace Mozilla HTMLObjectElement.vspace documentation>  getVspace :: (MonadIO m) => HTMLObjectElement -> m Int-getVspace self = liftIO (js_getVspace (unHTMLObjectElement self))+getVspace self = liftIO (js_getVspace (self))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: JSRef HTMLObjectElement -> JSString -> IO ()+        :: HTMLObjectElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.width Mozilla HTMLObjectElement.width documentation>  setWidth ::          (MonadIO m, ToJSString val) => HTMLObjectElement -> val -> m ()-setWidth self val-  = liftIO (js_setWidth (unHTMLObjectElement self) (toJSString val))+setWidth self val = liftIO (js_setWidth (self) (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef HTMLObjectElement -> IO JSString+        HTMLObjectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.width Mozilla HTMLObjectElement.width documentation>  getWidth ::          (MonadIO m, FromJSString result) => HTMLObjectElement -> m result-getWidth self-  = liftIO-      (fromJSString <$> (js_getWidth (unHTMLObjectElement self)))+getWidth self = liftIO (fromJSString <$> (js_getWidth (self)))   foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"-        js_getWillValidate :: JSRef HTMLObjectElement -> IO Bool+        js_getWillValidate :: HTMLObjectElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.willValidate Mozilla HTMLObjectElement.willValidate documentation>  getWillValidate :: (MonadIO m) => HTMLObjectElement -> m Bool-getWillValidate self-  = liftIO (js_getWillValidate (unHTMLObjectElement self))+getWillValidate self = liftIO (js_getWillValidate (self))   foreign import javascript unsafe "$1[\"validity\"]" js_getValidity-        :: JSRef HTMLObjectElement -> IO (JSRef ValidityState)+        :: HTMLObjectElement -> IO (Nullable ValidityState)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.validity Mozilla HTMLObjectElement.validity documentation>  getValidity ::             (MonadIO m) => HTMLObjectElement -> m (Maybe ValidityState) getValidity self-  = liftIO-      ((js_getValidity (unHTMLObjectElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getValidity (self)))   foreign import javascript unsafe "$1[\"validationMessage\"]"-        js_getValidationMessage :: JSRef HTMLObjectElement -> IO JSString+        js_getValidationMessage :: HTMLObjectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.validationMessage Mozilla HTMLObjectElement.validationMessage documentation>  getValidationMessage ::                      (MonadIO m, FromJSString result) => HTMLObjectElement -> m result getValidationMessage self-  = liftIO-      (fromJSString <$>-         (js_getValidationMessage (unHTMLObjectElement self)))+  = liftIO (fromJSString <$> (js_getValidationMessage (self)))   foreign import javascript unsafe "$1[\"contentDocument\"]"         js_getContentDocument ::-        JSRef HTMLObjectElement -> IO (JSRef Document)+        HTMLObjectElement -> IO (Nullable Document)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLObjectElement.contentDocument Mozilla HTMLObjectElement.contentDocument documentation>  getContentDocument ::                    (MonadIO m) => HTMLObjectElement -> m (Maybe Document) getContentDocument self-  = liftIO-      ((js_getContentDocument (unHTMLObjectElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getContentDocument (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLOptGroupElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,37 +20,31 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        js_setDisabled :: JSRef HTMLOptGroupElement -> Bool -> IO ()+        js_setDisabled :: HTMLOptGroupElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement.disabled Mozilla HTMLOptGroupElement.disabled documentation>  setDisabled :: (MonadIO m) => HTMLOptGroupElement -> Bool -> m ()-setDisabled self val-  = liftIO (js_setDisabled (unHTMLOptGroupElement self) val)+setDisabled self val = liftIO (js_setDisabled (self) val)   foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        js_getDisabled :: JSRef HTMLOptGroupElement -> IO Bool+        js_getDisabled :: HTMLOptGroupElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement.disabled Mozilla HTMLOptGroupElement.disabled documentation>  getDisabled :: (MonadIO m) => HTMLOptGroupElement -> m Bool-getDisabled self-  = liftIO (js_getDisabled (unHTMLOptGroupElement self))+getDisabled self = liftIO (js_getDisabled (self))   foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel-        :: JSRef HTMLOptGroupElement -> JSString -> IO ()+        :: HTMLOptGroupElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement.label Mozilla HTMLOptGroupElement.label documentation>  setLabel ::          (MonadIO m, ToJSString val) => HTMLOptGroupElement -> val -> m ()-setLabel self val-  = liftIO-      (js_setLabel (unHTMLOptGroupElement self) (toJSString val))+setLabel self val = liftIO (js_setLabel (self) (toJSString val))   foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::-        JSRef HTMLOptGroupElement -> IO JSString+        HTMLOptGroupElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptGroupElement.label Mozilla HTMLOptGroupElement.label documentation>  getLabel ::          (MonadIO m, FromJSString result) => HTMLOptGroupElement -> m result-getLabel self-  = liftIO-      (fromJSString <$> (js_getLabel (unHTMLOptGroupElement self)))+getLabel self = liftIO (fromJSString <$> (js_getLabel (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLOptionElement.hs view
@@ -10,7 +10,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,123 +24,109 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        js_setDisabled :: JSRef HTMLOptionElement -> Bool -> IO ()+        js_setDisabled :: HTMLOptionElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.disabled Mozilla HTMLOptionElement.disabled documentation>  setDisabled :: (MonadIO m) => HTMLOptionElement -> Bool -> m ()-setDisabled self val-  = liftIO (js_setDisabled (unHTMLOptionElement self) val)+setDisabled self val = liftIO (js_setDisabled (self) val)   foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        js_getDisabled :: JSRef HTMLOptionElement -> IO Bool+        js_getDisabled :: HTMLOptionElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.disabled Mozilla HTMLOptionElement.disabled documentation>  getDisabled :: (MonadIO m) => HTMLOptionElement -> m Bool-getDisabled self-  = liftIO (js_getDisabled (unHTMLOptionElement self))+getDisabled self = liftIO (js_getDisabled (self))   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::-        JSRef HTMLOptionElement -> IO (JSRef HTMLFormElement)+        HTMLOptionElement -> IO (Nullable HTMLFormElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.form Mozilla HTMLOptionElement.form documentation>  getForm ::         (MonadIO m) => HTMLOptionElement -> m (Maybe HTMLFormElement)-getForm self-  = liftIO ((js_getForm (unHTMLOptionElement self)) >>= fromJSRef)+getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel-        :: JSRef HTMLOptionElement -> JSString -> IO ()+        :: HTMLOptionElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.label Mozilla HTMLOptionElement.label documentation>  setLabel ::          (MonadIO m, ToJSString val) => HTMLOptionElement -> val -> m ()-setLabel self val-  = liftIO (js_setLabel (unHTMLOptionElement self) (toJSString val))+setLabel self val = liftIO (js_setLabel (self) (toJSString val))   foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::-        JSRef HTMLOptionElement -> IO JSString+        HTMLOptionElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.label Mozilla HTMLOptionElement.label documentation>  getLabel ::          (MonadIO m, FromJSString result) => HTMLOptionElement -> m result-getLabel self-  = liftIO-      (fromJSString <$> (js_getLabel (unHTMLOptionElement self)))+getLabel self = liftIO (fromJSString <$> (js_getLabel (self)))   foreign import javascript unsafe "$1[\"defaultSelected\"] = $2;"-        js_setDefaultSelected :: JSRef HTMLOptionElement -> Bool -> IO ()+        js_setDefaultSelected :: HTMLOptionElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.defaultSelected Mozilla HTMLOptionElement.defaultSelected documentation>  setDefaultSelected ::                    (MonadIO m) => HTMLOptionElement -> Bool -> m () setDefaultSelected self val-  = liftIO (js_setDefaultSelected (unHTMLOptionElement self) val)+  = liftIO (js_setDefaultSelected (self) val)   foreign import javascript unsafe         "($1[\"defaultSelected\"] ? 1 : 0)" js_getDefaultSelected ::-        JSRef HTMLOptionElement -> IO Bool+        HTMLOptionElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.defaultSelected Mozilla HTMLOptionElement.defaultSelected documentation>  getDefaultSelected :: (MonadIO m) => HTMLOptionElement -> m Bool-getDefaultSelected self-  = liftIO (js_getDefaultSelected (unHTMLOptionElement self))+getDefaultSelected self = liftIO (js_getDefaultSelected (self))   foreign import javascript unsafe "$1[\"selected\"] = $2;"-        js_setSelected :: JSRef HTMLOptionElement -> Bool -> IO ()+        js_setSelected :: HTMLOptionElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.selected Mozilla HTMLOptionElement.selected documentation>  setSelected :: (MonadIO m) => HTMLOptionElement -> Bool -> m ()-setSelected self val-  = liftIO (js_setSelected (unHTMLOptionElement self) val)+setSelected self val = liftIO (js_setSelected (self) val)   foreign import javascript unsafe "($1[\"selected\"] ? 1 : 0)"-        js_getSelected :: JSRef HTMLOptionElement -> IO Bool+        js_getSelected :: HTMLOptionElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.selected Mozilla HTMLOptionElement.selected documentation>  getSelected :: (MonadIO m) => HTMLOptionElement -> m Bool-getSelected self-  = liftIO (js_getSelected (unHTMLOptionElement self))+getSelected self = liftIO (js_getSelected (self))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef HTMLOptionElement -> JSString -> IO ()+        :: HTMLOptionElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.value Mozilla HTMLOptionElement.value documentation>  setValue ::          (MonadIO m, ToJSString val) => HTMLOptionElement -> val -> m ()-setValue self val-  = liftIO (js_setValue (unHTMLOptionElement self) (toJSString val))+setValue self val = liftIO (js_setValue (self) (toJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef HTMLOptionElement -> IO JSString+        HTMLOptionElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.value Mozilla HTMLOptionElement.value documentation>  getValue ::          (MonadIO m, FromJSString result) => HTMLOptionElement -> m result-getValue self-  = liftIO-      (fromJSString <$> (js_getValue (unHTMLOptionElement self)))+getValue self = liftIO (fromJSString <$> (js_getValue (self)))   foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::-        JSRef HTMLOptionElement -> JSString -> IO ()+        HTMLOptionElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.text Mozilla HTMLOptionElement.text documentation>  setText ::         (MonadIO m, ToJSString val) => HTMLOptionElement -> val -> m ()-setText self val-  = liftIO (js_setText (unHTMLOptionElement self) (toJSString val))+setText self val = liftIO (js_setText (self) (toJSString val))   foreign import javascript unsafe "$1[\"text\"]" js_getText ::-        JSRef HTMLOptionElement -> IO JSString+        HTMLOptionElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.text Mozilla HTMLOptionElement.text documentation>  getText ::         (MonadIO m, FromJSString result) => HTMLOptionElement -> m result-getText self-  = liftIO (fromJSString <$> (js_getText (unHTMLOptionElement self)))+getText self = liftIO (fromJSString <$> (js_getText (self)))   foreign import javascript unsafe "$1[\"index\"]" js_getIndex ::-        JSRef HTMLOptionElement -> IO Int+        HTMLOptionElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionElement.index Mozilla HTMLOptionElement.index documentation>  getIndex :: (MonadIO m) => HTMLOptionElement -> m Int-getIndex self = liftIO (js_getIndex (unHTMLOptionElement self))+getIndex self = liftIO (js_getIndex (self))
src/GHCJS/DOM/JSFFI/Generated/HTMLOptionsCollection.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,7 +23,7 @@   foreign import javascript unsafe "$1[\"namedItem\"]($2)"         js_namedItem ::-        JSRef HTMLOptionsCollection -> JSString -> IO (JSRef Node)+        HTMLOptionsCollection -> JSString -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.namedItem Mozilla HTMLOptionsCollection.namedItem documentation>  namedItem ::@@ -31,13 +31,12 @@             HTMLOptionsCollection -> name -> m (Maybe Node) namedItem self name   = liftIO-      ((js_namedItem (unHTMLOptionsCollection self) (toJSString name))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_addBefore         ::-        JSRef HTMLOptionsCollection ->-          JSRef HTMLElement -> JSRef HTMLElement -> IO ()+        HTMLOptionsCollection ->+          Nullable HTMLElement -> Nullable HTMLElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.add Mozilla HTMLOptionsCollection.add documentation>  addBefore ::@@ -45,12 +44,11 @@             HTMLOptionsCollection -> Maybe element -> Maybe before -> m () addBefore self element before   = liftIO-      (js_addBefore (unHTMLOptionsCollection self)-         (maybe jsNull (unHTMLElement . toHTMLElement) element)-         (maybe jsNull (unHTMLElement . toHTMLElement) before))+      (js_addBefore (self) (maybeToNullable (fmap toHTMLElement element))+         (maybeToNullable (fmap toHTMLElement before)))   foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add ::-        JSRef HTMLOptionsCollection -> JSRef HTMLElement -> Int -> IO ()+        HTMLOptionsCollection -> Nullable HTMLElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.add Mozilla HTMLOptionsCollection.add documentation>  add ::@@ -58,47 +56,41 @@       HTMLOptionsCollection -> Maybe element -> Int -> m () add self element index   = liftIO-      (js_add (unHTMLOptionsCollection self)-         (maybe jsNull (unHTMLElement . toHTMLElement) element)+      (js_add (self) (maybeToNullable (fmap toHTMLElement element))          index)   foreign import javascript unsafe "$1[\"remove\"]($2)" js_remove ::-        JSRef HTMLOptionsCollection -> Word -> IO ()+        HTMLOptionsCollection -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.remove Mozilla HTMLOptionsCollection.remove documentation>  remove :: (MonadIO m) => HTMLOptionsCollection -> Word -> m ()-remove self index-  = liftIO (js_remove (unHTMLOptionsCollection self) index)+remove self index = liftIO (js_remove (self) index)   foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;"-        js_setSelectedIndex :: JSRef HTMLOptionsCollection -> Int -> IO ()+        js_setSelectedIndex :: HTMLOptionsCollection -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.selectedIndex Mozilla HTMLOptionsCollection.selectedIndex documentation>  setSelectedIndex ::                  (MonadIO m) => HTMLOptionsCollection -> Int -> m ()-setSelectedIndex self val-  = liftIO (js_setSelectedIndex (unHTMLOptionsCollection self) val)+setSelectedIndex self val = liftIO (js_setSelectedIndex (self) val)   foreign import javascript unsafe "$1[\"selectedIndex\"]"-        js_getSelectedIndex :: JSRef HTMLOptionsCollection -> IO Int+        js_getSelectedIndex :: HTMLOptionsCollection -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.selectedIndex Mozilla HTMLOptionsCollection.selectedIndex documentation>  getSelectedIndex :: (MonadIO m) => HTMLOptionsCollection -> m Int-getSelectedIndex self-  = liftIO (js_getSelectedIndex (unHTMLOptionsCollection self))+getSelectedIndex self = liftIO (js_getSelectedIndex (self))   foreign import javascript unsafe "$1[\"length\"] = $2;"-        js_setLength :: JSRef HTMLOptionsCollection -> Word -> IO ()+        js_setLength :: HTMLOptionsCollection -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.length Mozilla HTMLOptionsCollection.length documentation>  setLength :: (MonadIO m) => HTMLOptionsCollection -> Word -> m ()-setLength self val-  = liftIO (js_setLength (unHTMLOptionsCollection self) val)+setLength self val = liftIO (js_setLength (self) val)   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef HTMLOptionsCollection -> IO Word+        HTMLOptionsCollection -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOptionsCollection.length Mozilla HTMLOptionsCollection.length documentation>  getLength :: (MonadIO m) => HTMLOptionsCollection -> m Word-getLength self-  = liftIO (js_getLength (unHTMLOptionsCollection self))+getLength self = liftIO (js_getLength (self))
src/GHCJS/DOM/JSFFI/Generated/HTMLOutputElement.hs view
@@ -12,7 +12,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,152 +27,132 @@   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::-        JSRef HTMLOutputElement -> IO Bool+        HTMLOutputElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.checkValidity Mozilla HTMLOutputElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLOutputElement -> m Bool-checkValidity self-  = liftIO (js_checkValidity (unHTMLOutputElement self))+checkValidity self = liftIO (js_checkValidity (self))   foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         js_setCustomValidity ::-        JSRef HTMLOutputElement -> JSRef (Maybe JSString) -> IO ()+        HTMLOutputElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.setCustomValidity Mozilla HTMLOutputElement.setCustomValidity documentation>  setCustomValidity ::                   (MonadIO m, ToJSString error) =>                     HTMLOutputElement -> Maybe error -> m () setCustomValidity self error-  = liftIO-      (js_setCustomValidity (unHTMLOutputElement self)-         (toMaybeJSString error))+  = liftIO (js_setCustomValidity (self) (toMaybeJSString error))   foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor ::-        JSRef HTMLOutputElement -> IO (JSRef DOMSettableTokenList)+        HTMLOutputElement -> IO (Nullable DOMSettableTokenList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.htmlFor Mozilla HTMLOutputElement.htmlFor documentation>  getHtmlFor ::            (MonadIO m) => HTMLOutputElement -> m (Maybe DOMSettableTokenList) getHtmlFor self-  = liftIO ((js_getHtmlFor (unHTMLOutputElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getHtmlFor (self)))   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::-        JSRef HTMLOutputElement -> IO (JSRef HTMLFormElement)+        HTMLOutputElement -> IO (Nullable HTMLFormElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.form Mozilla HTMLOutputElement.form documentation>  getForm ::         (MonadIO m) => HTMLOutputElement -> m (Maybe HTMLFormElement)-getForm self-  = liftIO ((js_getForm (unHTMLOutputElement self)) >>= fromJSRef)+getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLOutputElement -> JSString -> IO ()+        HTMLOutputElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.name Mozilla HTMLOutputElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLOutputElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLOutputElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLOutputElement -> IO JSString+        HTMLOutputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.name Mozilla HTMLOutputElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLOutputElement -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unHTMLOutputElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLOutputElement -> IO JSString+        HTMLOutputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.type Mozilla HTMLOutputElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLOutputElement -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unHTMLOutputElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"         js_setDefaultValue ::-        JSRef HTMLOutputElement -> JSRef (Maybe JSString) -> IO ()+        HTMLOutputElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.defaultValue Mozilla HTMLOutputElement.defaultValue documentation>  setDefaultValue ::                 (MonadIO m, ToJSString val) =>                   HTMLOutputElement -> Maybe val -> m () setDefaultValue self val-  = liftIO-      (js_setDefaultValue (unHTMLOutputElement self)-         (toMaybeJSString val))+  = liftIO (js_setDefaultValue (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"defaultValue\"]"-        js_getDefaultValue ::-        JSRef HTMLOutputElement -> IO (JSRef (Maybe JSString))+        js_getDefaultValue :: HTMLOutputElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.defaultValue Mozilla HTMLOutputElement.defaultValue documentation>  getDefaultValue ::                 (MonadIO m, FromJSString result) =>                   HTMLOutputElement -> m (Maybe result) getDefaultValue self-  = liftIO-      (fromMaybeJSString <$>-         (js_getDefaultValue (unHTMLOutputElement self)))+  = liftIO (fromMaybeJSString <$> (js_getDefaultValue (self)))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef HTMLOutputElement -> JSRef (Maybe JSString) -> IO ()+        :: HTMLOutputElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.value Mozilla HTMLOutputElement.value documentation>  setValue ::          (MonadIO m, ToJSString val) =>            HTMLOutputElement -> Maybe val -> m () setValue self val-  = liftIO-      (js_setValue (unHTMLOutputElement self) (toMaybeJSString val))+  = liftIO (js_setValue (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef HTMLOutputElement -> IO (JSRef (Maybe JSString))+        HTMLOutputElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.value Mozilla HTMLOutputElement.value documentation>  getValue ::          (MonadIO m, FromJSString result) =>            HTMLOutputElement -> m (Maybe result)-getValue self-  = liftIO-      (fromMaybeJSString <$> (js_getValue (unHTMLOutputElement self)))+getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))   foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"-        js_getWillValidate :: JSRef HTMLOutputElement -> IO Bool+        js_getWillValidate :: HTMLOutputElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.willValidate Mozilla HTMLOutputElement.willValidate documentation>  getWillValidate :: (MonadIO m) => HTMLOutputElement -> m Bool-getWillValidate self-  = liftIO (js_getWillValidate (unHTMLOutputElement self))+getWillValidate self = liftIO (js_getWillValidate (self))   foreign import javascript unsafe "$1[\"validity\"]" js_getValidity-        :: JSRef HTMLOutputElement -> IO (JSRef ValidityState)+        :: HTMLOutputElement -> IO (Nullable ValidityState)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.validity Mozilla HTMLOutputElement.validity documentation>  getValidity ::             (MonadIO m) => HTMLOutputElement -> m (Maybe ValidityState) getValidity self-  = liftIO-      ((js_getValidity (unHTMLOutputElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getValidity (self)))   foreign import javascript unsafe "$1[\"validationMessage\"]"-        js_getValidationMessage :: JSRef HTMLOutputElement -> IO JSString+        js_getValidationMessage :: HTMLOutputElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.validationMessage Mozilla HTMLOutputElement.validationMessage documentation>  getValidationMessage ::                      (MonadIO m, FromJSString result) => HTMLOutputElement -> m result getValidationMessage self-  = liftIO-      (fromJSString <$>-         (js_getValidationMessage (unHTMLOutputElement self)))+  = liftIO (fromJSString <$> (js_getValidationMessage (self)))   foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::-        JSRef HTMLOutputElement -> IO (JSRef NodeList)+        HTMLOutputElement -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLOutputElement.labels Mozilla HTMLOutputElement.labels documentation>  getLabels :: (MonadIO m) => HTMLOutputElement -> m (Maybe NodeList)-getLabels self-  = liftIO ((js_getLabels (unHTMLOutputElement self)) >>= fromJSRef)+getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLParagraphElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,22 +20,18 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLParagraphElement -> JSString -> IO ()+        :: HTMLParagraphElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParagraphElement.align Mozilla HTMLParagraphElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) => HTMLParagraphElement -> val -> m ()-setAlign self val-  = liftIO-      (js_setAlign (unHTMLParagraphElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLParagraphElement -> IO JSString+        HTMLParagraphElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParagraphElement.align Mozilla HTMLParagraphElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) =>            HTMLParagraphElement -> m result-getAlign self-  = liftIO-      (fromJSString <$> (js_getAlign (unHTMLParagraphElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLParamElement.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,75 +21,67 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLParamElement -> JSString -> IO ()+        HTMLParamElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.name Mozilla HTMLParamElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLParamElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLParamElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLParamElement -> IO JSString+        HTMLParamElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.name Mozilla HTMLParamElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLParamElement -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unHTMLParamElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        JSRef HTMLParamElement -> JSString -> IO ()+        HTMLParamElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.type Mozilla HTMLParamElement.type documentation>  setType ::         (MonadIO m, ToJSString val) => HTMLParamElement -> val -> m ()-setType self val-  = liftIO (js_setType (unHTMLParamElement self) (toJSString val))+setType self val = liftIO (js_setType (self) (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLParamElement -> IO JSString+        HTMLParamElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.type Mozilla HTMLParamElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLParamElement -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unHTMLParamElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef HTMLParamElement -> JSString -> IO ()+        :: HTMLParamElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.value Mozilla HTMLParamElement.value documentation>  setValue ::          (MonadIO m, ToJSString val) => HTMLParamElement -> val -> m ()-setValue self val-  = liftIO (js_setValue (unHTMLParamElement self) (toJSString val))+setValue self val = liftIO (js_setValue (self) (toJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef HTMLParamElement -> IO JSString+        HTMLParamElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.value Mozilla HTMLParamElement.value documentation>  getValue ::          (MonadIO m, FromJSString result) => HTMLParamElement -> m result-getValue self-  = liftIO (fromJSString <$> (js_getValue (unHTMLParamElement self)))+getValue self = liftIO (fromJSString <$> (js_getValue (self)))   foreign import javascript unsafe "$1[\"valueType\"] = $2;"-        js_setValueType :: JSRef HTMLParamElement -> JSString -> IO ()+        js_setValueType :: HTMLParamElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.valueType Mozilla HTMLParamElement.valueType documentation>  setValueType ::              (MonadIO m, ToJSString val) => HTMLParamElement -> val -> m () setValueType self val-  = liftIO-      (js_setValueType (unHTMLParamElement self) (toJSString val))+  = liftIO (js_setValueType (self) (toJSString val))   foreign import javascript unsafe "$1[\"valueType\"]"-        js_getValueType :: JSRef HTMLParamElement -> IO JSString+        js_getValueType :: HTMLParamElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLParamElement.valueType Mozilla HTMLParamElement.valueType documentation>  getValueType ::              (MonadIO m, FromJSString result) => HTMLParamElement -> m result getValueType self-  = liftIO-      (fromJSString <$> (js_getValueType (unHTMLParamElement self)))+  = liftIO (fromJSString <$> (js_getValueType (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLPreElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,30 +20,29 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: JSRef HTMLPreElement -> Int -> IO ()+        :: HTMLPreElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement.width Mozilla HTMLPreElement.width documentation>  setWidth :: (MonadIO m) => HTMLPreElement -> Int -> m ()-setWidth self val-  = liftIO (js_setWidth (unHTMLPreElement self) val)+setWidth self val = liftIO (js_setWidth (self) val)   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef HTMLPreElement -> IO Int+        HTMLPreElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement.width Mozilla HTMLPreElement.width documentation>  getWidth :: (MonadIO m) => HTMLPreElement -> m Int-getWidth self = liftIO (js_getWidth (unHTMLPreElement self))+getWidth self = liftIO (js_getWidth (self))   foreign import javascript unsafe "$1[\"wrap\"] = $2;" js_setWrap ::-        JSRef HTMLPreElement -> Bool -> IO ()+        HTMLPreElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement.wrap Mozilla HTMLPreElement.wrap documentation>  setWrap :: (MonadIO m) => HTMLPreElement -> Bool -> m ()-setWrap self val = liftIO (js_setWrap (unHTMLPreElement self) val)+setWrap self val = liftIO (js_setWrap (self) val)   foreign import javascript unsafe "($1[\"wrap\"] ? 1 : 0)"-        js_getWrap :: JSRef HTMLPreElement -> IO Bool+        js_getWrap :: HTMLPreElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLPreElement.wrap Mozilla HTMLPreElement.wrap documentation>  getWrap :: (MonadIO m) => HTMLPreElement -> m Bool-getWrap self = liftIO (js_getWrap (unHTMLPreElement self))+getWrap self = liftIO (js_getWrap (self))
src/GHCJS/DOM/JSFFI/Generated/HTMLProgressElement.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,49 +21,44 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef HTMLProgressElement -> Double -> IO ()+        :: HTMLProgressElement -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.value Mozilla HTMLProgressElement.value documentation>  setValue :: (MonadIO m) => HTMLProgressElement -> Double -> m ()-setValue self val-  = liftIO (js_setValue (unHTMLProgressElement self) val)+setValue self val = liftIO (js_setValue (self) val)   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef HTMLProgressElement -> IO Double+        HTMLProgressElement -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.value Mozilla HTMLProgressElement.value documentation>  getValue :: (MonadIO m) => HTMLProgressElement -> m Double-getValue self = liftIO (js_getValue (unHTMLProgressElement self))+getValue self = liftIO (js_getValue (self))   foreign import javascript unsafe "$1[\"max\"] = $2;" js_setMax ::-        JSRef HTMLProgressElement -> Double -> IO ()+        HTMLProgressElement -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.max Mozilla HTMLProgressElement.max documentation>  setMax :: (MonadIO m) => HTMLProgressElement -> Double -> m ()-setMax self val-  = liftIO (js_setMax (unHTMLProgressElement self) val)+setMax self val = liftIO (js_setMax (self) val)   foreign import javascript unsafe "$1[\"max\"]" js_getMax ::-        JSRef HTMLProgressElement -> IO Double+        HTMLProgressElement -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.max Mozilla HTMLProgressElement.max documentation>  getMax :: (MonadIO m) => HTMLProgressElement -> m Double-getMax self = liftIO (js_getMax (unHTMLProgressElement self))+getMax self = liftIO (js_getMax (self))   foreign import javascript unsafe "$1[\"position\"]" js_getPosition-        :: JSRef HTMLProgressElement -> IO Double+        :: HTMLProgressElement -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.position Mozilla HTMLProgressElement.position documentation>  getPosition :: (MonadIO m) => HTMLProgressElement -> m Double-getPosition self-  = liftIO (js_getPosition (unHTMLProgressElement self))+getPosition self = liftIO (js_getPosition (self))   foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::-        JSRef HTMLProgressElement -> IO (JSRef NodeList)+        HTMLProgressElement -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLProgressElement.labels Mozilla HTMLProgressElement.labels documentation>  getLabels ::           (MonadIO m) => HTMLProgressElement -> m (Maybe NodeList)-getLabels self-  = liftIO-      ((js_getLabels (unHTMLProgressElement self)) >>= fromJSRef)+getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLQuoteElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,19 +19,17 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"cite\"] = $2;" js_setCite ::-        JSRef HTMLQuoteElement -> JSString -> IO ()+        HTMLQuoteElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLQuoteElement.cite Mozilla HTMLQuoteElement.cite documentation>  setCite ::         (MonadIO m, ToJSString val) => HTMLQuoteElement -> val -> m ()-setCite self val-  = liftIO (js_setCite (unHTMLQuoteElement self) (toJSString val))+setCite self val = liftIO (js_setCite (self) (toJSString val))   foreign import javascript unsafe "$1[\"cite\"]" js_getCite ::-        JSRef HTMLQuoteElement -> IO JSString+        HTMLQuoteElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLQuoteElement.cite Mozilla HTMLQuoteElement.cite documentation>  getCite ::         (MonadIO m, FromJSString result) => HTMLQuoteElement -> m result-getCite self-  = liftIO (fromJSString <$> (js_getCite (unHTMLQuoteElement self)))+getCite self = liftIO (fromJSString <$> (js_getCite (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLScriptElement.hs view
@@ -12,7 +12,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -26,187 +26,163 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::-        JSRef HTMLScriptElement -> JSRef (Maybe JSString) -> IO ()+        HTMLScriptElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.text Mozilla HTMLScriptElement.text documentation>  setText ::         (MonadIO m, ToJSString val) =>           HTMLScriptElement -> Maybe val -> m ()-setText self val-  = liftIO-      (js_setText (unHTMLScriptElement self) (toMaybeJSString val))+setText self val = liftIO (js_setText (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"text\"]" js_getText ::-        JSRef HTMLScriptElement -> IO (JSRef (Maybe JSString))+        HTMLScriptElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.text Mozilla HTMLScriptElement.text documentation>  getText ::         (MonadIO m, FromJSString result) =>           HTMLScriptElement -> m (Maybe result)-getText self-  = liftIO-      (fromMaybeJSString <$> (js_getText (unHTMLScriptElement self)))+getText self = liftIO (fromMaybeJSString <$> (js_getText (self)))   foreign import javascript unsafe "$1[\"htmlFor\"] = $2;"-        js_setHtmlFor :: JSRef HTMLScriptElement -> JSString -> IO ()+        js_setHtmlFor :: HTMLScriptElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.htmlFor Mozilla HTMLScriptElement.htmlFor documentation>  setHtmlFor ::            (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () setHtmlFor self val-  = liftIO-      (js_setHtmlFor (unHTMLScriptElement self) (toJSString val))+  = liftIO (js_setHtmlFor (self) (toJSString val))   foreign import javascript unsafe "$1[\"htmlFor\"]" js_getHtmlFor ::-        JSRef HTMLScriptElement -> IO JSString+        HTMLScriptElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.htmlFor Mozilla HTMLScriptElement.htmlFor documentation>  getHtmlFor ::            (MonadIO m, FromJSString result) => HTMLScriptElement -> m result-getHtmlFor self-  = liftIO-      (fromJSString <$> (js_getHtmlFor (unHTMLScriptElement self)))+getHtmlFor self = liftIO (fromJSString <$> (js_getHtmlFor (self)))   foreign import javascript unsafe "$1[\"event\"] = $2;" js_setEvent-        :: JSRef HTMLScriptElement -> JSString -> IO ()+        :: HTMLScriptElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.event Mozilla HTMLScriptElement.event documentation>  setEvent ::          (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m ()-setEvent self val-  = liftIO (js_setEvent (unHTMLScriptElement self) (toJSString val))+setEvent self val = liftIO (js_setEvent (self) (toJSString val))   foreign import javascript unsafe "$1[\"event\"]" js_getEvent ::-        JSRef HTMLScriptElement -> IO JSString+        HTMLScriptElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.event Mozilla HTMLScriptElement.event documentation>  getEvent ::          (MonadIO m, FromJSString result) => HTMLScriptElement -> m result-getEvent self-  = liftIO-      (fromJSString <$> (js_getEvent (unHTMLScriptElement self)))+getEvent self = liftIO (fromJSString <$> (js_getEvent (self)))   foreign import javascript unsafe "$1[\"charset\"] = $2;"-        js_setCharset :: JSRef HTMLScriptElement -> JSString -> IO ()+        js_setCharset :: HTMLScriptElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.charset Mozilla HTMLScriptElement.charset documentation>  setCharset ::            (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () setCharset self val-  = liftIO-      (js_setCharset (unHTMLScriptElement self) (toJSString val))+  = liftIO (js_setCharset (self) (toJSString val))   foreign import javascript unsafe "$1[\"charset\"]" js_getCharset ::-        JSRef HTMLScriptElement -> IO JSString+        HTMLScriptElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.charset Mozilla HTMLScriptElement.charset documentation>  getCharset ::            (MonadIO m, FromJSString result) => HTMLScriptElement -> m result-getCharset self-  = liftIO-      (fromJSString <$> (js_getCharset (unHTMLScriptElement self)))+getCharset self = liftIO (fromJSString <$> (js_getCharset (self)))   foreign import javascript unsafe "$1[\"async\"] = $2;" js_setAsync-        :: JSRef HTMLScriptElement -> Bool -> IO ()+        :: HTMLScriptElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.async Mozilla HTMLScriptElement.async documentation>  setAsync :: (MonadIO m) => HTMLScriptElement -> Bool -> m ()-setAsync self val-  = liftIO (js_setAsync (unHTMLScriptElement self) val)+setAsync self val = liftIO (js_setAsync (self) val)   foreign import javascript unsafe "($1[\"async\"] ? 1 : 0)"-        js_getAsync :: JSRef HTMLScriptElement -> IO Bool+        js_getAsync :: HTMLScriptElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.async Mozilla HTMLScriptElement.async documentation>  getAsync :: (MonadIO m) => HTMLScriptElement -> m Bool-getAsync self = liftIO (js_getAsync (unHTMLScriptElement self))+getAsync self = liftIO (js_getAsync (self))   foreign import javascript unsafe "$1[\"defer\"] = $2;" js_setDefer-        :: JSRef HTMLScriptElement -> Bool -> IO ()+        :: HTMLScriptElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.defer Mozilla HTMLScriptElement.defer documentation>  setDefer :: (MonadIO m) => HTMLScriptElement -> Bool -> m ()-setDefer self val-  = liftIO (js_setDefer (unHTMLScriptElement self) val)+setDefer self val = liftIO (js_setDefer (self) val)   foreign import javascript unsafe "($1[\"defer\"] ? 1 : 0)"-        js_getDefer :: JSRef HTMLScriptElement -> IO Bool+        js_getDefer :: HTMLScriptElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.defer Mozilla HTMLScriptElement.defer documentation>  getDefer :: (MonadIO m) => HTMLScriptElement -> m Bool-getDefer self = liftIO (js_getDefer (unHTMLScriptElement self))+getDefer self = liftIO (js_getDefer (self))   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::-        JSRef HTMLScriptElement -> JSString -> IO ()+        HTMLScriptElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.src Mozilla HTMLScriptElement.src documentation>  setSrc ::        (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m ()-setSrc self val-  = liftIO (js_setSrc (unHTMLScriptElement self) (toJSString val))+setSrc self val = liftIO (js_setSrc (self) (toJSString val))   foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::-        JSRef HTMLScriptElement -> IO JSString+        HTMLScriptElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.src Mozilla HTMLScriptElement.src documentation>  getSrc ::        (MonadIO m, FromJSString result) => HTMLScriptElement -> m result-getSrc self-  = liftIO (fromJSString <$> (js_getSrc (unHTMLScriptElement self)))+getSrc self = liftIO (fromJSString <$> (js_getSrc (self)))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        JSRef HTMLScriptElement -> JSString -> IO ()+        HTMLScriptElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.type Mozilla HTMLScriptElement.type documentation>  setType ::         (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m ()-setType self val-  = liftIO (js_setType (unHTMLScriptElement self) (toJSString val))+setType self val = liftIO (js_setType (self) (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLScriptElement -> IO JSString+        HTMLScriptElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.type Mozilla HTMLScriptElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLScriptElement -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unHTMLScriptElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"crossOrigin\"] = $2;"-        js_setCrossOrigin :: JSRef HTMLScriptElement -> JSString -> IO ()+        js_setCrossOrigin :: HTMLScriptElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.crossOrigin Mozilla HTMLScriptElement.crossOrigin documentation>  setCrossOrigin ::                (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m () setCrossOrigin self val-  = liftIO-      (js_setCrossOrigin (unHTMLScriptElement self) (toJSString val))+  = liftIO (js_setCrossOrigin (self) (toJSString val))   foreign import javascript unsafe "$1[\"crossOrigin\"]"-        js_getCrossOrigin :: JSRef HTMLScriptElement -> IO JSString+        js_getCrossOrigin :: HTMLScriptElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.crossOrigin Mozilla HTMLScriptElement.crossOrigin documentation>  getCrossOrigin ::                (MonadIO m, FromJSString result) => HTMLScriptElement -> m result getCrossOrigin self-  = liftIO-      (fromJSString <$> (js_getCrossOrigin (unHTMLScriptElement self)))+  = liftIO (fromJSString <$> (js_getCrossOrigin (self)))   foreign import javascript unsafe "$1[\"nonce\"] = $2;" js_setNonce-        :: JSRef HTMLScriptElement -> JSString -> IO ()+        :: HTMLScriptElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.nonce Mozilla HTMLScriptElement.nonce documentation>  setNonce ::          (MonadIO m, ToJSString val) => HTMLScriptElement -> val -> m ()-setNonce self val-  = liftIO (js_setNonce (unHTMLScriptElement self) (toJSString val))+setNonce self val = liftIO (js_setNonce (self) (toJSString val))   foreign import javascript unsafe "$1[\"nonce\"]" js_getNonce ::-        JSRef HTMLScriptElement -> IO JSString+        HTMLScriptElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLScriptElement.nonce Mozilla HTMLScriptElement.nonce documentation>  getNonce ::          (MonadIO m, FromJSString result) => HTMLScriptElement -> m result-getNonce self-  = liftIO-      (fromJSString <$> (js_getNonce (unHTMLScriptElement self)))+getNonce self = liftIO (fromJSString <$> (js_getNonce (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLSelectElement.hs view
@@ -20,7 +20,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -34,16 +34,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef HTMLSelectElement -> Word -> IO (JSRef Node)+        HTMLSelectElement -> Word -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.item Mozilla HTMLSelectElement.item documentation>  item :: (MonadIO m) => HTMLSelectElement -> Word -> m (Maybe Node) item self index-  = liftIO ((js_item (unHTMLSelectElement self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        js_namedItem ::-        JSRef HTMLSelectElement -> JSString -> IO (JSRef Node)+        js_namedItem :: HTMLSelectElement -> JSString -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.namedItem Mozilla HTMLSelectElement.namedItem documentation>  namedItem ::@@ -51,13 +50,12 @@             HTMLSelectElement -> name -> m (Maybe Node) namedItem self name   = liftIO-      ((js_namedItem (unHTMLSelectElement self) (toJSString name)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_addBefore         ::-        JSRef HTMLSelectElement ->-          JSRef HTMLElement -> JSRef HTMLElement -> IO ()+        HTMLSelectElement ->+          Nullable HTMLElement -> Nullable HTMLElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.add Mozilla HTMLSelectElement.add documentation>  addBefore ::@@ -65,12 +63,11 @@             HTMLSelectElement -> Maybe element -> Maybe before -> m () addBefore self element before   = liftIO-      (js_addBefore (unHTMLSelectElement self)-         (maybe jsNull (unHTMLElement . toHTMLElement) element)-         (maybe jsNull (unHTMLElement . toHTMLElement) before))+      (js_addBefore (self) (maybeToNullable (fmap toHTMLElement element))+         (maybeToNullable (fmap toHTMLElement before)))   foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add ::-        JSRef HTMLSelectElement -> JSRef HTMLElement -> Int -> IO ()+        HTMLSelectElement -> Nullable HTMLElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.add Mozilla HTMLSelectElement.add documentation>  add ::@@ -78,260 +75,231 @@       HTMLSelectElement -> Maybe element -> Int -> m () add self element index   = liftIO-      (js_add (unHTMLSelectElement self)-         (maybe jsNull (unHTMLElement . toHTMLElement) element)+      (js_add (self) (maybeToNullable (fmap toHTMLElement element))          index)   foreign import javascript unsafe "$1[\"remove\"]()" js_remove ::-        JSRef HTMLSelectElement -> IO ()+        HTMLSelectElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.remove Mozilla HTMLSelectElement.remove documentation>  remove :: (MonadIO m) => HTMLSelectElement -> m ()-remove self = liftIO (js_remove (unHTMLSelectElement self))+remove self = liftIO (js_remove (self))   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::-        JSRef HTMLSelectElement -> IO Bool+        HTMLSelectElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.checkValidity Mozilla HTMLSelectElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLSelectElement -> m Bool-checkValidity self-  = liftIO (js_checkValidity (unHTMLSelectElement self))+checkValidity self = liftIO (js_checkValidity (self))   foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         js_setCustomValidity ::-        JSRef HTMLSelectElement -> JSRef (Maybe JSString) -> IO ()+        HTMLSelectElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.setCustomValidity Mozilla HTMLSelectElement.setCustomValidity documentation>  setCustomValidity ::                   (MonadIO m, ToJSString error) =>                     HTMLSelectElement -> Maybe error -> m () setCustomValidity self error-  = liftIO-      (js_setCustomValidity (unHTMLSelectElement self)-         (toMaybeJSString error))+  = liftIO (js_setCustomValidity (self) (toMaybeJSString error))   foreign import javascript unsafe "$1[\"autofocus\"] = $2;"-        js_setAutofocus :: JSRef HTMLSelectElement -> Bool -> IO ()+        js_setAutofocus :: HTMLSelectElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.autofocus Mozilla HTMLSelectElement.autofocus documentation>  setAutofocus :: (MonadIO m) => HTMLSelectElement -> Bool -> m ()-setAutofocus self val-  = liftIO (js_setAutofocus (unHTMLSelectElement self) val)+setAutofocus self val = liftIO (js_setAutofocus (self) val)   foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"-        js_getAutofocus :: JSRef HTMLSelectElement -> IO Bool+        js_getAutofocus :: HTMLSelectElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.autofocus Mozilla HTMLSelectElement.autofocus documentation>  getAutofocus :: (MonadIO m) => HTMLSelectElement -> m Bool-getAutofocus self-  = liftIO (js_getAutofocus (unHTMLSelectElement self))+getAutofocus self = liftIO (js_getAutofocus (self))   foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        js_setDisabled :: JSRef HTMLSelectElement -> Bool -> IO ()+        js_setDisabled :: HTMLSelectElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.disabled Mozilla HTMLSelectElement.disabled documentation>  setDisabled :: (MonadIO m) => HTMLSelectElement -> Bool -> m ()-setDisabled self val-  = liftIO (js_setDisabled (unHTMLSelectElement self) val)+setDisabled self val = liftIO (js_setDisabled (self) val)   foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        js_getDisabled :: JSRef HTMLSelectElement -> IO Bool+        js_getDisabled :: HTMLSelectElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.disabled Mozilla HTMLSelectElement.disabled documentation>  getDisabled :: (MonadIO m) => HTMLSelectElement -> m Bool-getDisabled self-  = liftIO (js_getDisabled (unHTMLSelectElement self))+getDisabled self = liftIO (js_getDisabled (self))   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::-        JSRef HTMLSelectElement -> IO (JSRef HTMLFormElement)+        HTMLSelectElement -> IO (Nullable HTMLFormElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.form Mozilla HTMLSelectElement.form documentation>  getForm ::         (MonadIO m) => HTMLSelectElement -> m (Maybe HTMLFormElement)-getForm self-  = liftIO ((js_getForm (unHTMLSelectElement self)) >>= fromJSRef)+getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"multiple\"] = $2;"-        js_setMultiple :: JSRef HTMLSelectElement -> Bool -> IO ()+        js_setMultiple :: HTMLSelectElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.multiple Mozilla HTMLSelectElement.multiple documentation>  setMultiple :: (MonadIO m) => HTMLSelectElement -> Bool -> m ()-setMultiple self val-  = liftIO (js_setMultiple (unHTMLSelectElement self) val)+setMultiple self val = liftIO (js_setMultiple (self) val)   foreign import javascript unsafe "($1[\"multiple\"] ? 1 : 0)"-        js_getMultiple :: JSRef HTMLSelectElement -> IO Bool+        js_getMultiple :: HTMLSelectElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.multiple Mozilla HTMLSelectElement.multiple documentation>  getMultiple :: (MonadIO m) => HTMLSelectElement -> m Bool-getMultiple self-  = liftIO (js_getMultiple (unHTMLSelectElement self))+getMultiple self = liftIO (js_getMultiple (self))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLSelectElement -> JSString -> IO ()+        HTMLSelectElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.name Mozilla HTMLSelectElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLSelectElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLSelectElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLSelectElement -> IO JSString+        HTMLSelectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.name Mozilla HTMLSelectElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLSelectElement -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unHTMLSelectElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"required\"] = $2;"-        js_setRequired :: JSRef HTMLSelectElement -> Bool -> IO ()+        js_setRequired :: HTMLSelectElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.required Mozilla HTMLSelectElement.required documentation>  setRequired :: (MonadIO m) => HTMLSelectElement -> Bool -> m ()-setRequired self val-  = liftIO (js_setRequired (unHTMLSelectElement self) val)+setRequired self val = liftIO (js_setRequired (self) val)   foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"-        js_getRequired :: JSRef HTMLSelectElement -> IO Bool+        js_getRequired :: HTMLSelectElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.required Mozilla HTMLSelectElement.required documentation>  getRequired :: (MonadIO m) => HTMLSelectElement -> m Bool-getRequired self-  = liftIO (js_getRequired (unHTMLSelectElement self))+getRequired self = liftIO (js_getRequired (self))   foreign import javascript unsafe "$1[\"size\"] = $2;" js_setSize ::-        JSRef HTMLSelectElement -> Int -> IO ()+        HTMLSelectElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.size Mozilla HTMLSelectElement.size documentation>  setSize :: (MonadIO m) => HTMLSelectElement -> Int -> m ()-setSize self val-  = liftIO (js_setSize (unHTMLSelectElement self) val)+setSize self val = liftIO (js_setSize (self) val)   foreign import javascript unsafe "$1[\"size\"]" js_getSize ::-        JSRef HTMLSelectElement -> IO Int+        HTMLSelectElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.size Mozilla HTMLSelectElement.size documentation>  getSize :: (MonadIO m) => HTMLSelectElement -> m Int-getSize self = liftIO (js_getSize (unHTMLSelectElement self))+getSize self = liftIO (js_getSize (self))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLSelectElement -> IO JSString+        HTMLSelectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.type Mozilla HTMLSelectElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLSelectElement -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unHTMLSelectElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"options\"]" js_getOptions ::-        JSRef HTMLSelectElement -> IO (JSRef HTMLOptionsCollection)+        HTMLSelectElement -> IO (Nullable HTMLOptionsCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.options Mozilla HTMLSelectElement.options documentation>  getOptions ::            (MonadIO m) => HTMLSelectElement -> m (Maybe HTMLOptionsCollection) getOptions self-  = liftIO ((js_getOptions (unHTMLSelectElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getOptions (self)))   foreign import javascript unsafe "$1[\"length\"] = $2;"-        js_setLength :: JSRef HTMLSelectElement -> Word -> IO ()+        js_setLength :: HTMLSelectElement -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.length Mozilla HTMLSelectElement.length documentation>  setLength :: (MonadIO m) => HTMLSelectElement -> Word -> m ()-setLength self val-  = liftIO (js_setLength (unHTMLSelectElement self) val)+setLength self val = liftIO (js_setLength (self) val)   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef HTMLSelectElement -> IO Word+        HTMLSelectElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.length Mozilla HTMLSelectElement.length documentation>  getLength :: (MonadIO m) => HTMLSelectElement -> m Word-getLength self = liftIO (js_getLength (unHTMLSelectElement self))+getLength self = liftIO (js_getLength (self))   foreign import javascript unsafe "$1[\"selectedOptions\"]"         js_getSelectedOptions ::-        JSRef HTMLSelectElement -> IO (JSRef HTMLCollection)+        HTMLSelectElement -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedOptions Mozilla HTMLSelectElement.selectedOptions documentation>  getSelectedOptions ::                    (MonadIO m) => HTMLSelectElement -> m (Maybe HTMLCollection) getSelectedOptions self-  = liftIO-      ((js_getSelectedOptions (unHTMLSelectElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSelectedOptions (self)))   foreign import javascript unsafe "$1[\"selectedIndex\"] = $2;"-        js_setSelectedIndex :: JSRef HTMLSelectElement -> Int -> IO ()+        js_setSelectedIndex :: HTMLSelectElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedIndex Mozilla HTMLSelectElement.selectedIndex documentation>  setSelectedIndex :: (MonadIO m) => HTMLSelectElement -> Int -> m ()-setSelectedIndex self val-  = liftIO (js_setSelectedIndex (unHTMLSelectElement self) val)+setSelectedIndex self val = liftIO (js_setSelectedIndex (self) val)   foreign import javascript unsafe "$1[\"selectedIndex\"]"-        js_getSelectedIndex :: JSRef HTMLSelectElement -> IO Int+        js_getSelectedIndex :: HTMLSelectElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.selectedIndex Mozilla HTMLSelectElement.selectedIndex documentation>  getSelectedIndex :: (MonadIO m) => HTMLSelectElement -> m Int-getSelectedIndex self-  = liftIO (js_getSelectedIndex (unHTMLSelectElement self))+getSelectedIndex self = liftIO (js_getSelectedIndex (self))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef HTMLSelectElement -> JSRef (Maybe JSString) -> IO ()+        :: HTMLSelectElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.value Mozilla HTMLSelectElement.value documentation>  setValue ::          (MonadIO m, ToJSString val) =>            HTMLSelectElement -> Maybe val -> m () setValue self val-  = liftIO-      (js_setValue (unHTMLSelectElement self) (toMaybeJSString val))+  = liftIO (js_setValue (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef HTMLSelectElement -> IO (JSRef (Maybe JSString))+        HTMLSelectElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.value Mozilla HTMLSelectElement.value documentation>  getValue ::          (MonadIO m, FromJSString result) =>            HTMLSelectElement -> m (Maybe result)-getValue self-  = liftIO-      (fromMaybeJSString <$> (js_getValue (unHTMLSelectElement self)))+getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))   foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"-        js_getWillValidate :: JSRef HTMLSelectElement -> IO Bool+        js_getWillValidate :: HTMLSelectElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.willValidate Mozilla HTMLSelectElement.willValidate documentation>  getWillValidate :: (MonadIO m) => HTMLSelectElement -> m Bool-getWillValidate self-  = liftIO (js_getWillValidate (unHTMLSelectElement self))+getWillValidate self = liftIO (js_getWillValidate (self))   foreign import javascript unsafe "$1[\"validity\"]" js_getValidity-        :: JSRef HTMLSelectElement -> IO (JSRef ValidityState)+        :: HTMLSelectElement -> IO (Nullable ValidityState)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.validity Mozilla HTMLSelectElement.validity documentation>  getValidity ::             (MonadIO m) => HTMLSelectElement -> m (Maybe ValidityState) getValidity self-  = liftIO-      ((js_getValidity (unHTMLSelectElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getValidity (self)))   foreign import javascript unsafe "$1[\"validationMessage\"]"-        js_getValidationMessage :: JSRef HTMLSelectElement -> IO JSString+        js_getValidationMessage :: HTMLSelectElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.validationMessage Mozilla HTMLSelectElement.validationMessage documentation>  getValidationMessage ::                      (MonadIO m, FromJSString result) => HTMLSelectElement -> m result getValidationMessage self-  = liftIO-      (fromJSString <$>-         (js_getValidationMessage (unHTMLSelectElement self)))+  = liftIO (fromJSString <$> (js_getValidationMessage (self)))   foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::-        JSRef HTMLSelectElement -> IO (JSRef NodeList)+        HTMLSelectElement -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSelectElement.labels Mozilla HTMLSelectElement.labels documentation>  getLabels :: (MonadIO m) => HTMLSelectElement -> m (Maybe NodeList)-getLabels self-  = liftIO ((js_getLabels (unHTMLSelectElement self)) >>= fromJSRef)+getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLSourceElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,56 +20,49 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::-        JSRef HTMLSourceElement -> JSString -> IO ()+        HTMLSourceElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.src Mozilla HTMLSourceElement.src documentation>  setSrc ::        (MonadIO m, ToJSString val) => HTMLSourceElement -> val -> m ()-setSrc self val-  = liftIO (js_setSrc (unHTMLSourceElement self) (toJSString val))+setSrc self val = liftIO (js_setSrc (self) (toJSString val))   foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::-        JSRef HTMLSourceElement -> IO JSString+        HTMLSourceElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.src Mozilla HTMLSourceElement.src documentation>  getSrc ::        (MonadIO m, FromJSString result) => HTMLSourceElement -> m result-getSrc self-  = liftIO (fromJSString <$> (js_getSrc (unHTMLSourceElement self)))+getSrc self = liftIO (fromJSString <$> (js_getSrc (self)))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        JSRef HTMLSourceElement -> JSString -> IO ()+        HTMLSourceElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.type Mozilla HTMLSourceElement.type documentation>  setType ::         (MonadIO m, ToJSString val) => HTMLSourceElement -> val -> m ()-setType self val-  = liftIO (js_setType (unHTMLSourceElement self) (toJSString val))+setType self val = liftIO (js_setType (self) (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLSourceElement -> IO JSString+        HTMLSourceElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.type Mozilla HTMLSourceElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLSourceElement -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unHTMLSourceElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"media\"] = $2;" js_setMedia-        :: JSRef HTMLSourceElement -> JSString -> IO ()+        :: HTMLSourceElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.media Mozilla HTMLSourceElement.media documentation>  setMedia ::          (MonadIO m, ToJSString val) => HTMLSourceElement -> val -> m ()-setMedia self val-  = liftIO (js_setMedia (unHTMLSourceElement self) (toJSString val))+setMedia self val = liftIO (js_setMedia (self) (toJSString val))   foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::-        JSRef HTMLSourceElement -> IO JSString+        HTMLSourceElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLSourceElement.media Mozilla HTMLSourceElement.media documentation>  getMedia ::          (MonadIO m, FromJSString result) => HTMLSourceElement -> m result-getMedia self-  = liftIO-      (fromJSString <$> (js_getMedia (unHTMLSourceElement self)))+getMedia self = liftIO (fromJSString <$> (js_getMedia (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLStyleElement.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,61 +21,54 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        js_setDisabled :: JSRef HTMLStyleElement -> Bool -> IO ()+        js_setDisabled :: HTMLStyleElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.disabled Mozilla HTMLStyleElement.disabled documentation>  setDisabled :: (MonadIO m) => HTMLStyleElement -> Bool -> m ()-setDisabled self val-  = liftIO (js_setDisabled (unHTMLStyleElement self) val)+setDisabled self val = liftIO (js_setDisabled (self) val)   foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        js_getDisabled :: JSRef HTMLStyleElement -> IO Bool+        js_getDisabled :: HTMLStyleElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.disabled Mozilla HTMLStyleElement.disabled documentation>  getDisabled :: (MonadIO m) => HTMLStyleElement -> m Bool-getDisabled self-  = liftIO (js_getDisabled (unHTMLStyleElement self))+getDisabled self = liftIO (js_getDisabled (self))   foreign import javascript unsafe "$1[\"media\"] = $2;" js_setMedia-        :: JSRef HTMLStyleElement -> JSString -> IO ()+        :: HTMLStyleElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.media Mozilla HTMLStyleElement.media documentation>  setMedia ::          (MonadIO m, ToJSString val) => HTMLStyleElement -> val -> m ()-setMedia self val-  = liftIO (js_setMedia (unHTMLStyleElement self) (toJSString val))+setMedia self val = liftIO (js_setMedia (self) (toJSString val))   foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::-        JSRef HTMLStyleElement -> IO JSString+        HTMLStyleElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.media Mozilla HTMLStyleElement.media documentation>  getMedia ::          (MonadIO m, FromJSString result) => HTMLStyleElement -> m result-getMedia self-  = liftIO (fromJSString <$> (js_getMedia (unHTMLStyleElement self)))+getMedia self = liftIO (fromJSString <$> (js_getMedia (self)))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        JSRef HTMLStyleElement -> JSString -> IO ()+        HTMLStyleElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.type Mozilla HTMLStyleElement.type documentation>  setType ::         (MonadIO m, ToJSString val) => HTMLStyleElement -> val -> m ()-setType self val-  = liftIO (js_setType (unHTMLStyleElement self) (toJSString val))+setType self val = liftIO (js_setType (self) (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLStyleElement -> IO JSString+        HTMLStyleElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.type Mozilla HTMLStyleElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLStyleElement -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unHTMLStyleElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"sheet\"]" js_getSheet ::-        JSRef HTMLStyleElement -> IO (JSRef StyleSheet)+        HTMLStyleElement -> IO (Nullable StyleSheet)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLStyleElement.sheet Mozilla HTMLStyleElement.sheet documentation>  getSheet :: (MonadIO m) => HTMLStyleElement -> m (Maybe StyleSheet)-getSheet self-  = liftIO ((js_getSheet (unHTMLStyleElement self)) >>= fromJSRef)+getSheet self = liftIO (nullableToMaybe <$> (js_getSheet (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLTableCaptionElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,23 +20,19 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLTableCaptionElement -> JSString -> IO ()+        :: HTMLTableCaptionElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCaptionElement.align Mozilla HTMLTableCaptionElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) =>            HTMLTableCaptionElement -> val -> m ()-setAlign self val-  = liftIO-      (js_setAlign (unHTMLTableCaptionElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLTableCaptionElement -> IO JSString+        HTMLTableCaptionElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCaptionElement.align Mozilla HTMLTableCaptionElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) =>            HTMLTableCaptionElement -> m result-getAlign self-  = liftIO-      (fromJSString <$> (js_getAlign (unHTMLTableCaptionElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLTableCellElement.hs view
@@ -16,7 +16,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -30,287 +30,239 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"cellIndex\"]"-        js_getCellIndex :: JSRef HTMLTableCellElement -> IO Int+        js_getCellIndex :: HTMLTableCellElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.cellIndex Mozilla HTMLTableCellElement.cellIndex documentation>  getCellIndex :: (MonadIO m) => HTMLTableCellElement -> m Int-getCellIndex self-  = liftIO (js_getCellIndex (unHTMLTableCellElement self))+getCellIndex self = liftIO (js_getCellIndex (self))   foreign import javascript unsafe "$1[\"abbr\"] = $2;" js_setAbbr ::-        JSRef HTMLTableCellElement -> JSString -> IO ()+        HTMLTableCellElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.abbr Mozilla HTMLTableCellElement.abbr documentation>  setAbbr ::         (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setAbbr self val-  = liftIO-      (js_setAbbr (unHTMLTableCellElement self) (toJSString val))+setAbbr self val = liftIO (js_setAbbr (self) (toJSString val))   foreign import javascript unsafe "$1[\"abbr\"]" js_getAbbr ::-        JSRef HTMLTableCellElement -> IO JSString+        HTMLTableCellElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.abbr Mozilla HTMLTableCellElement.abbr documentation>  getAbbr ::         (MonadIO m, FromJSString result) =>           HTMLTableCellElement -> m result-getAbbr self-  = liftIO-      (fromJSString <$> (js_getAbbr (unHTMLTableCellElement self)))+getAbbr self = liftIO (fromJSString <$> (js_getAbbr (self)))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLTableCellElement -> JSString -> IO ()+        :: HTMLTableCellElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.align Mozilla HTMLTableCellElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setAlign self val-  = liftIO-      (js_setAlign (unHTMLTableCellElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLTableCellElement -> IO JSString+        HTMLTableCellElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.align Mozilla HTMLTableCellElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) =>            HTMLTableCellElement -> m result-getAlign self-  = liftIO-      (fromJSString <$> (js_getAlign (unHTMLTableCellElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))   foreign import javascript unsafe "$1[\"axis\"] = $2;" js_setAxis ::-        JSRef HTMLTableCellElement -> JSString -> IO ()+        HTMLTableCellElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.axis Mozilla HTMLTableCellElement.axis documentation>  setAxis ::         (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setAxis self val-  = liftIO-      (js_setAxis (unHTMLTableCellElement self) (toJSString val))+setAxis self val = liftIO (js_setAxis (self) (toJSString val))   foreign import javascript unsafe "$1[\"axis\"]" js_getAxis ::-        JSRef HTMLTableCellElement -> IO JSString+        HTMLTableCellElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.axis Mozilla HTMLTableCellElement.axis documentation>  getAxis ::         (MonadIO m, FromJSString result) =>           HTMLTableCellElement -> m result-getAxis self-  = liftIO-      (fromJSString <$> (js_getAxis (unHTMLTableCellElement self)))+getAxis self = liftIO (fromJSString <$> (js_getAxis (self)))   foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        js_setBgColor :: JSRef HTMLTableCellElement -> JSString -> IO ()+        js_setBgColor :: HTMLTableCellElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.bgColor Mozilla HTMLTableCellElement.bgColor documentation>  setBgColor ::            (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () setBgColor self val-  = liftIO-      (js_setBgColor (unHTMLTableCellElement self) (toJSString val))+  = liftIO (js_setBgColor (self) (toJSString val))   foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::-        JSRef HTMLTableCellElement -> IO JSString+        HTMLTableCellElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.bgColor Mozilla HTMLTableCellElement.bgColor documentation>  getBgColor ::            (MonadIO m, FromJSString result) =>              HTMLTableCellElement -> m result-getBgColor self-  = liftIO-      (fromJSString <$> (js_getBgColor (unHTMLTableCellElement self)))+getBgColor self = liftIO (fromJSString <$> (js_getBgColor (self)))   foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh ::-        JSRef HTMLTableCellElement -> JSString -> IO ()+        HTMLTableCellElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.ch Mozilla HTMLTableCellElement.ch documentation>  setCh ::       (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setCh self val-  = liftIO (js_setCh (unHTMLTableCellElement self) (toJSString val))+setCh self val = liftIO (js_setCh (self) (toJSString val))   foreign import javascript unsafe "$1[\"ch\"]" js_getCh ::-        JSRef HTMLTableCellElement -> IO JSString+        HTMLTableCellElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.ch Mozilla HTMLTableCellElement.ch documentation>  getCh ::       (MonadIO m, FromJSString result) =>         HTMLTableCellElement -> m result-getCh self-  = liftIO-      (fromJSString <$> (js_getCh (unHTMLTableCellElement self)))+getCh self = liftIO (fromJSString <$> (js_getCh (self)))   foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff-        :: JSRef HTMLTableCellElement -> JSString -> IO ()+        :: HTMLTableCellElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.chOff Mozilla HTMLTableCellElement.chOff documentation>  setChOff ::          (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setChOff self val-  = liftIO-      (js_setChOff (unHTMLTableCellElement self) (toJSString val))+setChOff self val = liftIO (js_setChOff (self) (toJSString val))   foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff ::-        JSRef HTMLTableCellElement -> IO JSString+        HTMLTableCellElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.chOff Mozilla HTMLTableCellElement.chOff documentation>  getChOff ::          (MonadIO m, FromJSString result) =>            HTMLTableCellElement -> m result-getChOff self-  = liftIO-      (fromJSString <$> (js_getChOff (unHTMLTableCellElement self)))+getChOff self = liftIO (fromJSString <$> (js_getChOff (self)))   foreign import javascript unsafe "$1[\"colSpan\"] = $2;"-        js_setColSpan :: JSRef HTMLTableCellElement -> Int -> IO ()+        js_setColSpan :: HTMLTableCellElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.colSpan Mozilla HTMLTableCellElement.colSpan documentation>  setColSpan :: (MonadIO m) => HTMLTableCellElement -> Int -> m ()-setColSpan self val-  = liftIO (js_setColSpan (unHTMLTableCellElement self) val)+setColSpan self val = liftIO (js_setColSpan (self) val)   foreign import javascript unsafe "$1[\"colSpan\"]" js_getColSpan ::-        JSRef HTMLTableCellElement -> IO Int+        HTMLTableCellElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.colSpan Mozilla HTMLTableCellElement.colSpan documentation>  getColSpan :: (MonadIO m) => HTMLTableCellElement -> m Int-getColSpan self-  = liftIO (js_getColSpan (unHTMLTableCellElement self))+getColSpan self = liftIO (js_getColSpan (self))   foreign import javascript unsafe "$1[\"headers\"] = $2;"-        js_setHeaders :: JSRef HTMLTableCellElement -> JSString -> IO ()+        js_setHeaders :: HTMLTableCellElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.headers Mozilla HTMLTableCellElement.headers documentation>  setHeaders ::            (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m () setHeaders self val-  = liftIO-      (js_setHeaders (unHTMLTableCellElement self) (toJSString val))+  = liftIO (js_setHeaders (self) (toJSString val))   foreign import javascript unsafe "$1[\"headers\"]" js_getHeaders ::-        JSRef HTMLTableCellElement -> IO JSString+        HTMLTableCellElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.headers Mozilla HTMLTableCellElement.headers documentation>  getHeaders ::            (MonadIO m, FromJSString result) =>              HTMLTableCellElement -> m result-getHeaders self-  = liftIO-      (fromJSString <$> (js_getHeaders (unHTMLTableCellElement self)))+getHeaders self = liftIO (fromJSString <$> (js_getHeaders (self)))   foreign import javascript unsafe "$1[\"height\"] = $2;"-        js_setHeight :: JSRef HTMLTableCellElement -> JSString -> IO ()+        js_setHeight :: HTMLTableCellElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.height Mozilla HTMLTableCellElement.height documentation>  setHeight ::           (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setHeight self val-  = liftIO-      (js_setHeight (unHTMLTableCellElement self) (toJSString val))+setHeight self val = liftIO (js_setHeight (self) (toJSString val))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef HTMLTableCellElement -> IO JSString+        HTMLTableCellElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.height Mozilla HTMLTableCellElement.height documentation>  getHeight ::           (MonadIO m, FromJSString result) =>             HTMLTableCellElement -> m result-getHeight self-  = liftIO-      (fromJSString <$> (js_getHeight (unHTMLTableCellElement self)))+getHeight self = liftIO (fromJSString <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"noWrap\"] = $2;"-        js_setNoWrap :: JSRef HTMLTableCellElement -> Bool -> IO ()+        js_setNoWrap :: HTMLTableCellElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.noWrap Mozilla HTMLTableCellElement.noWrap documentation>  setNoWrap :: (MonadIO m) => HTMLTableCellElement -> Bool -> m ()-setNoWrap self val-  = liftIO (js_setNoWrap (unHTMLTableCellElement self) val)+setNoWrap self val = liftIO (js_setNoWrap (self) val)   foreign import javascript unsafe "($1[\"noWrap\"] ? 1 : 0)"-        js_getNoWrap :: JSRef HTMLTableCellElement -> IO Bool+        js_getNoWrap :: HTMLTableCellElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.noWrap Mozilla HTMLTableCellElement.noWrap documentation>  getNoWrap :: (MonadIO m) => HTMLTableCellElement -> m Bool-getNoWrap self-  = liftIO (js_getNoWrap (unHTMLTableCellElement self))+getNoWrap self = liftIO (js_getNoWrap (self))   foreign import javascript unsafe "$1[\"rowSpan\"] = $2;"-        js_setRowSpan :: JSRef HTMLTableCellElement -> Int -> IO ()+        js_setRowSpan :: HTMLTableCellElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.rowSpan Mozilla HTMLTableCellElement.rowSpan documentation>  setRowSpan :: (MonadIO m) => HTMLTableCellElement -> Int -> m ()-setRowSpan self val-  = liftIO (js_setRowSpan (unHTMLTableCellElement self) val)+setRowSpan self val = liftIO (js_setRowSpan (self) val)   foreign import javascript unsafe "$1[\"rowSpan\"]" js_getRowSpan ::-        JSRef HTMLTableCellElement -> IO Int+        HTMLTableCellElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.rowSpan Mozilla HTMLTableCellElement.rowSpan documentation>  getRowSpan :: (MonadIO m) => HTMLTableCellElement -> m Int-getRowSpan self-  = liftIO (js_getRowSpan (unHTMLTableCellElement self))+getRowSpan self = liftIO (js_getRowSpan (self))   foreign import javascript unsafe "$1[\"scope\"] = $2;" js_setScope-        :: JSRef HTMLTableCellElement -> JSString -> IO ()+        :: HTMLTableCellElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.scope Mozilla HTMLTableCellElement.scope documentation>  setScope ::          (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setScope self val-  = liftIO-      (js_setScope (unHTMLTableCellElement self) (toJSString val))+setScope self val = liftIO (js_setScope (self) (toJSString val))   foreign import javascript unsafe "$1[\"scope\"]" js_getScope ::-        JSRef HTMLTableCellElement -> IO JSString+        HTMLTableCellElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.scope Mozilla HTMLTableCellElement.scope documentation>  getScope ::          (MonadIO m, FromJSString result) =>            HTMLTableCellElement -> m result-getScope self-  = liftIO-      (fromJSString <$> (js_getScope (unHTMLTableCellElement self)))+getScope self = liftIO (fromJSString <$> (js_getScope (self)))   foreign import javascript unsafe "$1[\"vAlign\"] = $2;"-        js_setVAlign :: JSRef HTMLTableCellElement -> JSString -> IO ()+        js_setVAlign :: HTMLTableCellElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.vAlign Mozilla HTMLTableCellElement.vAlign documentation>  setVAlign ::           (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setVAlign self val-  = liftIO-      (js_setVAlign (unHTMLTableCellElement self) (toJSString val))+setVAlign self val = liftIO (js_setVAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign ::-        JSRef HTMLTableCellElement -> IO JSString+        HTMLTableCellElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.vAlign Mozilla HTMLTableCellElement.vAlign documentation>  getVAlign ::           (MonadIO m, FromJSString result) =>             HTMLTableCellElement -> m result-getVAlign self-  = liftIO-      (fromJSString <$> (js_getVAlign (unHTMLTableCellElement self)))+getVAlign self = liftIO (fromJSString <$> (js_getVAlign (self)))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: JSRef HTMLTableCellElement -> JSString -> IO ()+        :: HTMLTableCellElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.width Mozilla HTMLTableCellElement.width documentation>  setWidth ::          (MonadIO m, ToJSString val) => HTMLTableCellElement -> val -> m ()-setWidth self val-  = liftIO-      (js_setWidth (unHTMLTableCellElement self) (toJSString val))+setWidth self val = liftIO (js_setWidth (self) (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef HTMLTableCellElement -> IO JSString+        HTMLTableCellElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableCellElement.width Mozilla HTMLTableCellElement.width documentation>  getWidth ::          (MonadIO m, FromJSString result) =>            HTMLTableCellElement -> m result-getWidth self-  = liftIO-      (fromJSString <$> (js_getWidth (unHTMLTableCellElement self)))+getWidth self = liftIO (fromJSString <$> (js_getWidth (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLTableColElement.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,114 +23,95 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLTableColElement -> JSString -> IO ()+        :: HTMLTableColElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.align Mozilla HTMLTableColElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m ()-setAlign self val-  = liftIO-      (js_setAlign (unHTMLTableColElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLTableColElement -> IO JSString+        HTMLTableColElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.align Mozilla HTMLTableColElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) => HTMLTableColElement -> m result-getAlign self-  = liftIO-      (fromJSString <$> (js_getAlign (unHTMLTableColElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))   foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh ::-        JSRef HTMLTableColElement -> JSString -> IO ()+        HTMLTableColElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.ch Mozilla HTMLTableColElement.ch documentation>  setCh ::       (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m ()-setCh self val-  = liftIO (js_setCh (unHTMLTableColElement self) (toJSString val))+setCh self val = liftIO (js_setCh (self) (toJSString val))   foreign import javascript unsafe "$1[\"ch\"]" js_getCh ::-        JSRef HTMLTableColElement -> IO JSString+        HTMLTableColElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.ch Mozilla HTMLTableColElement.ch documentation>  getCh ::       (MonadIO m, FromJSString result) => HTMLTableColElement -> m result-getCh self-  = liftIO (fromJSString <$> (js_getCh (unHTMLTableColElement self)))+getCh self = liftIO (fromJSString <$> (js_getCh (self)))   foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff-        :: JSRef HTMLTableColElement -> JSString -> IO ()+        :: HTMLTableColElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.chOff Mozilla HTMLTableColElement.chOff documentation>  setChOff ::          (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m ()-setChOff self val-  = liftIO-      (js_setChOff (unHTMLTableColElement self) (toJSString val))+setChOff self val = liftIO (js_setChOff (self) (toJSString val))   foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff ::-        JSRef HTMLTableColElement -> IO JSString+        HTMLTableColElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.chOff Mozilla HTMLTableColElement.chOff documentation>  getChOff ::          (MonadIO m, FromJSString result) => HTMLTableColElement -> m result-getChOff self-  = liftIO-      (fromJSString <$> (js_getChOff (unHTMLTableColElement self)))+getChOff self = liftIO (fromJSString <$> (js_getChOff (self)))   foreign import javascript unsafe "$1[\"span\"] = $2;" js_setSpan ::-        JSRef HTMLTableColElement -> Int -> IO ()+        HTMLTableColElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.span Mozilla HTMLTableColElement.span documentation>  setSpan :: (MonadIO m) => HTMLTableColElement -> Int -> m ()-setSpan self val-  = liftIO (js_setSpan (unHTMLTableColElement self) val)+setSpan self val = liftIO (js_setSpan (self) val)   foreign import javascript unsafe "$1[\"span\"]" js_getSpan ::-        JSRef HTMLTableColElement -> IO Int+        HTMLTableColElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.span Mozilla HTMLTableColElement.span documentation>  getSpan :: (MonadIO m) => HTMLTableColElement -> m Int-getSpan self = liftIO (js_getSpan (unHTMLTableColElement self))+getSpan self = liftIO (js_getSpan (self))   foreign import javascript unsafe "$1[\"vAlign\"] = $2;"-        js_setVAlign :: JSRef HTMLTableColElement -> JSString -> IO ()+        js_setVAlign :: HTMLTableColElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.vAlign Mozilla HTMLTableColElement.vAlign documentation>  setVAlign ::           (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m ()-setVAlign self val-  = liftIO-      (js_setVAlign (unHTMLTableColElement self) (toJSString val))+setVAlign self val = liftIO (js_setVAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign ::-        JSRef HTMLTableColElement -> IO JSString+        HTMLTableColElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.vAlign Mozilla HTMLTableColElement.vAlign documentation>  getVAlign ::           (MonadIO m, FromJSString result) => HTMLTableColElement -> m result-getVAlign self-  = liftIO-      (fromJSString <$> (js_getVAlign (unHTMLTableColElement self)))+getVAlign self = liftIO (fromJSString <$> (js_getVAlign (self)))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: JSRef HTMLTableColElement -> JSString -> IO ()+        :: HTMLTableColElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.width Mozilla HTMLTableColElement.width documentation>  setWidth ::          (MonadIO m, ToJSString val) => HTMLTableColElement -> val -> m ()-setWidth self val-  = liftIO-      (js_setWidth (unHTMLTableColElement self) (toJSString val))+setWidth self val = liftIO (js_setWidth (self) (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef HTMLTableColElement -> IO JSString+        HTMLTableColElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableColElement.width Mozilla HTMLTableColElement.width documentation>  getWidth ::          (MonadIO m, FromJSString result) => HTMLTableColElement -> m result-getWidth self-  = liftIO-      (fromJSString <$> (js_getWidth (unHTMLTableColElement self)))+getWidth self = liftIO (fromJSString <$> (js_getWidth (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLTableElement.hs view
@@ -20,7 +20,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -34,334 +34,301 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"createTHead\"]()"-        js_createTHead :: JSRef HTMLTableElement -> IO (JSRef HTMLElement)+        js_createTHead :: HTMLTableElement -> IO (Nullable HTMLElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTHead Mozilla HTMLTableElement.createTHead documentation>  createTHead ::             (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement) createTHead self-  = liftIO ((js_createTHead (unHTMLTableElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_createTHead (self)))   foreign import javascript unsafe "$1[\"deleteTHead\"]()"-        js_deleteTHead :: JSRef HTMLTableElement -> IO ()+        js_deleteTHead :: HTMLTableElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.deleteTHead Mozilla HTMLTableElement.deleteTHead documentation>  deleteTHead :: (MonadIO m) => HTMLTableElement -> m ()-deleteTHead self-  = liftIO (js_deleteTHead (unHTMLTableElement self))+deleteTHead self = liftIO (js_deleteTHead (self))   foreign import javascript unsafe "$1[\"createTFoot\"]()"-        js_createTFoot :: JSRef HTMLTableElement -> IO (JSRef HTMLElement)+        js_createTFoot :: HTMLTableElement -> IO (Nullable HTMLElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTFoot Mozilla HTMLTableElement.createTFoot documentation>  createTFoot ::             (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement) createTFoot self-  = liftIO ((js_createTFoot (unHTMLTableElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_createTFoot (self)))   foreign import javascript unsafe "$1[\"deleteTFoot\"]()"-        js_deleteTFoot :: JSRef HTMLTableElement -> IO ()+        js_deleteTFoot :: HTMLTableElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.deleteTFoot Mozilla HTMLTableElement.deleteTFoot documentation>  deleteTFoot :: (MonadIO m) => HTMLTableElement -> m ()-deleteTFoot self-  = liftIO (js_deleteTFoot (unHTMLTableElement self))+deleteTFoot self = liftIO (js_deleteTFoot (self))   foreign import javascript unsafe "$1[\"createTBody\"]()"-        js_createTBody :: JSRef HTMLTableElement -> IO (JSRef HTMLElement)+        js_createTBody :: HTMLTableElement -> IO (Nullable HTMLElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createTBody Mozilla HTMLTableElement.createTBody documentation>  createTBody ::             (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement) createTBody self-  = liftIO ((js_createTBody (unHTMLTableElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_createTBody (self)))   foreign import javascript unsafe "$1[\"createCaption\"]()"-        js_createCaption ::-        JSRef HTMLTableElement -> IO (JSRef HTMLElement)+        js_createCaption :: HTMLTableElement -> IO (Nullable HTMLElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.createCaption Mozilla HTMLTableElement.createCaption documentation>  createCaption ::               (MonadIO m) => HTMLTableElement -> m (Maybe HTMLElement) createCaption self-  = liftIO-      ((js_createCaption (unHTMLTableElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_createCaption (self)))   foreign import javascript unsafe "$1[\"deleteCaption\"]()"-        js_deleteCaption :: JSRef HTMLTableElement -> IO ()+        js_deleteCaption :: HTMLTableElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.deleteCaption Mozilla HTMLTableElement.deleteCaption documentation>  deleteCaption :: (MonadIO m) => HTMLTableElement -> m ()-deleteCaption self-  = liftIO (js_deleteCaption (unHTMLTableElement self))+deleteCaption self = liftIO (js_deleteCaption (self))   foreign import javascript unsafe "$1[\"insertRow\"]($2)"         js_insertRow ::-        JSRef HTMLTableElement -> Int -> IO (JSRef HTMLElement)+        HTMLTableElement -> Int -> IO (Nullable HTMLElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.insertRow Mozilla HTMLTableElement.insertRow documentation>  insertRow ::           (MonadIO m) => HTMLTableElement -> Int -> m (Maybe HTMLElement) insertRow self index-  = liftIO-      ((js_insertRow (unHTMLTableElement self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_insertRow (self) index))   foreign import javascript unsafe "$1[\"deleteRow\"]($2)"-        js_deleteRow :: JSRef HTMLTableElement -> Int -> IO ()+        js_deleteRow :: HTMLTableElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.deleteRow Mozilla HTMLTableElement.deleteRow documentation>  deleteRow :: (MonadIO m) => HTMLTableElement -> Int -> m ()-deleteRow self index-  = liftIO (js_deleteRow (unHTMLTableElement self) index)+deleteRow self index = liftIO (js_deleteRow (self) index)   foreign import javascript unsafe "$1[\"caption\"] = $2;"         js_setCaption ::-        JSRef HTMLTableElement -> JSRef HTMLTableCaptionElement -> IO ()+        HTMLTableElement -> Nullable HTMLTableCaptionElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.caption Mozilla HTMLTableElement.caption documentation>  setCaption ::            (MonadIO m) =>              HTMLTableElement -> Maybe HTMLTableCaptionElement -> m () setCaption self val-  = liftIO-      (js_setCaption (unHTMLTableElement self)-         (maybe jsNull pToJSRef val))+  = liftIO (js_setCaption (self) (maybeToNullable val))   foreign import javascript unsafe "$1[\"caption\"]" js_getCaption ::-        JSRef HTMLTableElement -> IO (JSRef HTMLTableCaptionElement)+        HTMLTableElement -> IO (Nullable HTMLTableCaptionElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.caption Mozilla HTMLTableElement.caption documentation>  getCaption ::            (MonadIO m) =>              HTMLTableElement -> m (Maybe HTMLTableCaptionElement) getCaption self-  = liftIO ((js_getCaption (unHTMLTableElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getCaption (self)))   foreign import javascript unsafe "$1[\"tHead\"] = $2;" js_setTHead-        :: JSRef HTMLTableElement -> JSRef HTMLTableSectionElement -> IO ()+        :: HTMLTableElement -> Nullable HTMLTableSectionElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tHead Mozilla HTMLTableElement.tHead documentation>  setTHead ::          (MonadIO m) =>            HTMLTableElement -> Maybe HTMLTableSectionElement -> m () setTHead self val-  = liftIO-      (js_setTHead (unHTMLTableElement self) (maybe jsNull pToJSRef val))+  = liftIO (js_setTHead (self) (maybeToNullable val))   foreign import javascript unsafe "$1[\"tHead\"]" js_getTHead ::-        JSRef HTMLTableElement -> IO (JSRef HTMLTableSectionElement)+        HTMLTableElement -> IO (Nullable HTMLTableSectionElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tHead Mozilla HTMLTableElement.tHead documentation>  getTHead ::          (MonadIO m) =>            HTMLTableElement -> m (Maybe HTMLTableSectionElement)-getTHead self-  = liftIO ((js_getTHead (unHTMLTableElement self)) >>= fromJSRef)+getTHead self = liftIO (nullableToMaybe <$> (js_getTHead (self)))   foreign import javascript unsafe "$1[\"tFoot\"] = $2;" js_setTFoot-        :: JSRef HTMLTableElement -> JSRef HTMLTableSectionElement -> IO ()+        :: HTMLTableElement -> Nullable HTMLTableSectionElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tFoot Mozilla HTMLTableElement.tFoot documentation>  setTFoot ::          (MonadIO m) =>            HTMLTableElement -> Maybe HTMLTableSectionElement -> m () setTFoot self val-  = liftIO-      (js_setTFoot (unHTMLTableElement self) (maybe jsNull pToJSRef val))+  = liftIO (js_setTFoot (self) (maybeToNullable val))   foreign import javascript unsafe "$1[\"tFoot\"]" js_getTFoot ::-        JSRef HTMLTableElement -> IO (JSRef HTMLTableSectionElement)+        HTMLTableElement -> IO (Nullable HTMLTableSectionElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tFoot Mozilla HTMLTableElement.tFoot documentation>  getTFoot ::          (MonadIO m) =>            HTMLTableElement -> m (Maybe HTMLTableSectionElement)-getTFoot self-  = liftIO ((js_getTFoot (unHTMLTableElement self)) >>= fromJSRef)+getTFoot self = liftIO (nullableToMaybe <$> (js_getTFoot (self)))   foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::-        JSRef HTMLTableElement -> IO (JSRef HTMLCollection)+        HTMLTableElement -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rows Mozilla HTMLTableElement.rows documentation>  getRows ::         (MonadIO m) => HTMLTableElement -> m (Maybe HTMLCollection)-getRows self-  = liftIO ((js_getRows (unHTMLTableElement self)) >>= fromJSRef)+getRows self = liftIO (nullableToMaybe <$> (js_getRows (self)))   foreign import javascript unsafe "$1[\"tBodies\"]" js_getTBodies ::-        JSRef HTMLTableElement -> IO (JSRef HTMLCollection)+        HTMLTableElement -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.tBodies Mozilla HTMLTableElement.tBodies documentation>  getTBodies ::            (MonadIO m) => HTMLTableElement -> m (Maybe HTMLCollection) getTBodies self-  = liftIO ((js_getTBodies (unHTMLTableElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getTBodies (self)))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLTableElement -> JSString -> IO ()+        :: HTMLTableElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.align Mozilla HTMLTableElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m ()-setAlign self val-  = liftIO (js_setAlign (unHTMLTableElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLTableElement -> IO JSString+        HTMLTableElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.align Mozilla HTMLTableElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) => HTMLTableElement -> m result-getAlign self-  = liftIO (fromJSString <$> (js_getAlign (unHTMLTableElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))   foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        js_setBgColor :: JSRef HTMLTableElement -> JSString -> IO ()+        js_setBgColor :: HTMLTableElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.bgColor Mozilla HTMLTableElement.bgColor documentation>  setBgColor ::            (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () setBgColor self val-  = liftIO (js_setBgColor (unHTMLTableElement self) (toJSString val))+  = liftIO (js_setBgColor (self) (toJSString val))   foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::-        JSRef HTMLTableElement -> IO JSString+        HTMLTableElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.bgColor Mozilla HTMLTableElement.bgColor documentation>  getBgColor ::            (MonadIO m, FromJSString result) => HTMLTableElement -> m result-getBgColor self-  = liftIO-      (fromJSString <$> (js_getBgColor (unHTMLTableElement self)))+getBgColor self = liftIO (fromJSString <$> (js_getBgColor (self)))   foreign import javascript unsafe "$1[\"border\"] = $2;"-        js_setBorder :: JSRef HTMLTableElement -> JSString -> IO ()+        js_setBorder :: HTMLTableElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.border Mozilla HTMLTableElement.border documentation>  setBorder ::           (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m ()-setBorder self val-  = liftIO (js_setBorder (unHTMLTableElement self) (toJSString val))+setBorder self val = liftIO (js_setBorder (self) (toJSString val))   foreign import javascript unsafe "$1[\"border\"]" js_getBorder ::-        JSRef HTMLTableElement -> IO JSString+        HTMLTableElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.border Mozilla HTMLTableElement.border documentation>  getBorder ::           (MonadIO m, FromJSString result) => HTMLTableElement -> m result-getBorder self-  = liftIO-      (fromJSString <$> (js_getBorder (unHTMLTableElement self)))+getBorder self = liftIO (fromJSString <$> (js_getBorder (self)))   foreign import javascript unsafe "$1[\"cellPadding\"] = $2;"-        js_setCellPadding :: JSRef HTMLTableElement -> JSString -> IO ()+        js_setCellPadding :: HTMLTableElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellPadding Mozilla HTMLTableElement.cellPadding documentation>  setCellPadding ::                (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () setCellPadding self val-  = liftIO-      (js_setCellPadding (unHTMLTableElement self) (toJSString val))+  = liftIO (js_setCellPadding (self) (toJSString val))   foreign import javascript unsafe "$1[\"cellPadding\"]"-        js_getCellPadding :: JSRef HTMLTableElement -> IO JSString+        js_getCellPadding :: HTMLTableElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellPadding Mozilla HTMLTableElement.cellPadding documentation>  getCellPadding ::                (MonadIO m, FromJSString result) => HTMLTableElement -> m result getCellPadding self-  = liftIO-      (fromJSString <$> (js_getCellPadding (unHTMLTableElement self)))+  = liftIO (fromJSString <$> (js_getCellPadding (self)))   foreign import javascript unsafe "$1[\"cellSpacing\"] = $2;"-        js_setCellSpacing :: JSRef HTMLTableElement -> JSString -> IO ()+        js_setCellSpacing :: HTMLTableElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellSpacing Mozilla HTMLTableElement.cellSpacing documentation>  setCellSpacing ::                (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () setCellSpacing self val-  = liftIO-      (js_setCellSpacing (unHTMLTableElement self) (toJSString val))+  = liftIO (js_setCellSpacing (self) (toJSString val))   foreign import javascript unsafe "$1[\"cellSpacing\"]"-        js_getCellSpacing :: JSRef HTMLTableElement -> IO JSString+        js_getCellSpacing :: HTMLTableElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.cellSpacing Mozilla HTMLTableElement.cellSpacing documentation>  getCellSpacing ::                (MonadIO m, FromJSString result) => HTMLTableElement -> m result getCellSpacing self-  = liftIO-      (fromJSString <$> (js_getCellSpacing (unHTMLTableElement self)))+  = liftIO (fromJSString <$> (js_getCellSpacing (self)))   foreign import javascript unsafe "$1[\"frame\"] = $2;" js_setFrame-        :: JSRef HTMLTableElement -> JSString -> IO ()+        :: HTMLTableElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.frame Mozilla HTMLTableElement.frame documentation>  setFrame ::          (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m ()-setFrame self val-  = liftIO (js_setFrame (unHTMLTableElement self) (toJSString val))+setFrame self val = liftIO (js_setFrame (self) (toJSString val))   foreign import javascript unsafe "$1[\"frame\"]" js_getFrame ::-        JSRef HTMLTableElement -> IO JSString+        HTMLTableElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.frame Mozilla HTMLTableElement.frame documentation>  getFrame ::          (MonadIO m, FromJSString result) => HTMLTableElement -> m result-getFrame self-  = liftIO (fromJSString <$> (js_getFrame (unHTMLTableElement self)))+getFrame self = liftIO (fromJSString <$> (js_getFrame (self)))   foreign import javascript unsafe "$1[\"rules\"] = $2;" js_setRules-        :: JSRef HTMLTableElement -> JSString -> IO ()+        :: HTMLTableElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rules Mozilla HTMLTableElement.rules documentation>  setRules ::          (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m ()-setRules self val-  = liftIO (js_setRules (unHTMLTableElement self) (toJSString val))+setRules self val = liftIO (js_setRules (self) (toJSString val))   foreign import javascript unsafe "$1[\"rules\"]" js_getRules ::-        JSRef HTMLTableElement -> IO JSString+        HTMLTableElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.rules Mozilla HTMLTableElement.rules documentation>  getRules ::          (MonadIO m, FromJSString result) => HTMLTableElement -> m result-getRules self-  = liftIO (fromJSString <$> (js_getRules (unHTMLTableElement self)))+getRules self = liftIO (fromJSString <$> (js_getRules (self)))   foreign import javascript unsafe "$1[\"summary\"] = $2;"-        js_setSummary :: JSRef HTMLTableElement -> JSString -> IO ()+        js_setSummary :: HTMLTableElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.summary Mozilla HTMLTableElement.summary documentation>  setSummary ::            (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m () setSummary self val-  = liftIO (js_setSummary (unHTMLTableElement self) (toJSString val))+  = liftIO (js_setSummary (self) (toJSString val))   foreign import javascript unsafe "$1[\"summary\"]" js_getSummary ::-        JSRef HTMLTableElement -> IO JSString+        HTMLTableElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.summary Mozilla HTMLTableElement.summary documentation>  getSummary ::            (MonadIO m, FromJSString result) => HTMLTableElement -> m result-getSummary self-  = liftIO-      (fromJSString <$> (js_getSummary (unHTMLTableElement self)))+getSummary self = liftIO (fromJSString <$> (js_getSummary (self)))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: JSRef HTMLTableElement -> JSString -> IO ()+        :: HTMLTableElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.width Mozilla HTMLTableElement.width documentation>  setWidth ::          (MonadIO m, ToJSString val) => HTMLTableElement -> val -> m ()-setWidth self val-  = liftIO (js_setWidth (unHTMLTableElement self) (toJSString val))+setWidth self val = liftIO (js_setWidth (self) (toJSString val))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef HTMLTableElement -> IO JSString+        HTMLTableElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableElement.width Mozilla HTMLTableElement.width documentation>  getWidth ::          (MonadIO m, FromJSString result) => HTMLTableElement -> m result-getWidth self-  = liftIO (fromJSString <$> (js_getWidth (unHTMLTableElement self)))+getWidth self = liftIO (fromJSString <$> (js_getWidth (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLTableRowElement.hs view
@@ -11,7 +11,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -26,142 +26,120 @@   foreign import javascript unsafe "$1[\"insertCell\"]($2)"         js_insertCell ::-        JSRef HTMLTableRowElement -> Int -> IO (JSRef HTMLElement)+        HTMLTableRowElement -> Int -> IO (Nullable HTMLElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.insertCell Mozilla HTMLTableRowElement.insertCell documentation>  insertCell ::            (MonadIO m) => HTMLTableRowElement -> Int -> m (Maybe HTMLElement) insertCell self index-  = liftIO-      ((js_insertCell (unHTMLTableRowElement self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_insertCell (self) index))   foreign import javascript unsafe "$1[\"deleteCell\"]($2)"-        js_deleteCell :: JSRef HTMLTableRowElement -> Int -> IO ()+        js_deleteCell :: HTMLTableRowElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.deleteCell Mozilla HTMLTableRowElement.deleteCell documentation>  deleteCell :: (MonadIO m) => HTMLTableRowElement -> Int -> m ()-deleteCell self index-  = liftIO (js_deleteCell (unHTMLTableRowElement self) index)+deleteCell self index = liftIO (js_deleteCell (self) index)   foreign import javascript unsafe "$1[\"rowIndex\"]" js_getRowIndex-        :: JSRef HTMLTableRowElement -> IO Int+        :: HTMLTableRowElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.rowIndex Mozilla HTMLTableRowElement.rowIndex documentation>  getRowIndex :: (MonadIO m) => HTMLTableRowElement -> m Int-getRowIndex self-  = liftIO (js_getRowIndex (unHTMLTableRowElement self))+getRowIndex self = liftIO (js_getRowIndex (self))   foreign import javascript unsafe "$1[\"sectionRowIndex\"]"-        js_getSectionRowIndex :: JSRef HTMLTableRowElement -> IO Int+        js_getSectionRowIndex :: HTMLTableRowElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.sectionRowIndex Mozilla HTMLTableRowElement.sectionRowIndex documentation>  getSectionRowIndex :: (MonadIO m) => HTMLTableRowElement -> m Int-getSectionRowIndex self-  = liftIO (js_getSectionRowIndex (unHTMLTableRowElement self))+getSectionRowIndex self = liftIO (js_getSectionRowIndex (self))   foreign import javascript unsafe "$1[\"cells\"]" js_getCells ::-        JSRef HTMLTableRowElement -> IO (JSRef HTMLCollection)+        HTMLTableRowElement -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.cells Mozilla HTMLTableRowElement.cells documentation>  getCells ::          (MonadIO m) => HTMLTableRowElement -> m (Maybe HTMLCollection)-getCells self-  = liftIO ((js_getCells (unHTMLTableRowElement self)) >>= fromJSRef)+getCells self = liftIO (nullableToMaybe <$> (js_getCells (self)))   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLTableRowElement -> JSString -> IO ()+        :: HTMLTableRowElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.align Mozilla HTMLTableRowElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) => HTMLTableRowElement -> val -> m ()-setAlign self val-  = liftIO-      (js_setAlign (unHTMLTableRowElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLTableRowElement -> IO JSString+        HTMLTableRowElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.align Mozilla HTMLTableRowElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) => HTMLTableRowElement -> m result-getAlign self-  = liftIO-      (fromJSString <$> (js_getAlign (unHTMLTableRowElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))   foreign import javascript unsafe "$1[\"bgColor\"] = $2;"-        js_setBgColor :: JSRef HTMLTableRowElement -> JSString -> IO ()+        js_setBgColor :: HTMLTableRowElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.bgColor Mozilla HTMLTableRowElement.bgColor documentation>  setBgColor ::            (MonadIO m, ToJSString val) => HTMLTableRowElement -> val -> m () setBgColor self val-  = liftIO-      (js_setBgColor (unHTMLTableRowElement self) (toJSString val))+  = liftIO (js_setBgColor (self) (toJSString val))   foreign import javascript unsafe "$1[\"bgColor\"]" js_getBgColor ::-        JSRef HTMLTableRowElement -> IO JSString+        HTMLTableRowElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.bgColor Mozilla HTMLTableRowElement.bgColor documentation>  getBgColor ::            (MonadIO m, FromJSString result) => HTMLTableRowElement -> m result-getBgColor self-  = liftIO-      (fromJSString <$> (js_getBgColor (unHTMLTableRowElement self)))+getBgColor self = liftIO (fromJSString <$> (js_getBgColor (self)))   foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh ::-        JSRef HTMLTableRowElement -> JSString -> IO ()+        HTMLTableRowElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.ch Mozilla HTMLTableRowElement.ch documentation>  setCh ::       (MonadIO m, ToJSString val) => HTMLTableRowElement -> val -> m ()-setCh self val-  = liftIO (js_setCh (unHTMLTableRowElement self) (toJSString val))+setCh self val = liftIO (js_setCh (self) (toJSString val))   foreign import javascript unsafe "$1[\"ch\"]" js_getCh ::-        JSRef HTMLTableRowElement -> IO JSString+        HTMLTableRowElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.ch Mozilla HTMLTableRowElement.ch documentation>  getCh ::       (MonadIO m, FromJSString result) => HTMLTableRowElement -> m result-getCh self-  = liftIO (fromJSString <$> (js_getCh (unHTMLTableRowElement self)))+getCh self = liftIO (fromJSString <$> (js_getCh (self)))   foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff-        :: JSRef HTMLTableRowElement -> JSString -> IO ()+        :: HTMLTableRowElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.chOff Mozilla HTMLTableRowElement.chOff documentation>  setChOff ::          (MonadIO m, ToJSString val) => HTMLTableRowElement -> val -> m ()-setChOff self val-  = liftIO-      (js_setChOff (unHTMLTableRowElement self) (toJSString val))+setChOff self val = liftIO (js_setChOff (self) (toJSString val))   foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff ::-        JSRef HTMLTableRowElement -> IO JSString+        HTMLTableRowElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.chOff Mozilla HTMLTableRowElement.chOff documentation>  getChOff ::          (MonadIO m, FromJSString result) => HTMLTableRowElement -> m result-getChOff self-  = liftIO-      (fromJSString <$> (js_getChOff (unHTMLTableRowElement self)))+getChOff self = liftIO (fromJSString <$> (js_getChOff (self)))   foreign import javascript unsafe "$1[\"vAlign\"] = $2;"-        js_setVAlign :: JSRef HTMLTableRowElement -> JSString -> IO ()+        js_setVAlign :: HTMLTableRowElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.vAlign Mozilla HTMLTableRowElement.vAlign documentation>  setVAlign ::           (MonadIO m, ToJSString val) => HTMLTableRowElement -> val -> m ()-setVAlign self val-  = liftIO-      (js_setVAlign (unHTMLTableRowElement self) (toJSString val))+setVAlign self val = liftIO (js_setVAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign ::-        JSRef HTMLTableRowElement -> IO JSString+        HTMLTableRowElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableRowElement.vAlign Mozilla HTMLTableRowElement.vAlign documentation>  getVAlign ::           (MonadIO m, FromJSString result) => HTMLTableRowElement -> m result-getVAlign self-  = liftIO-      (fromJSString <$> (js_getVAlign (unHTMLTableRowElement self)))+getVAlign self = liftIO (fromJSString <$> (js_getVAlign (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLTableSectionElement.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,119 +24,98 @@   foreign import javascript unsafe "$1[\"insertRow\"]($2)"         js_insertRow ::-        JSRef HTMLTableSectionElement -> Int -> IO (JSRef HTMLElement)+        HTMLTableSectionElement -> Int -> IO (Nullable HTMLElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.insertRow Mozilla HTMLTableSectionElement.insertRow documentation>  insertRow ::           (MonadIO m) =>             HTMLTableSectionElement -> Int -> m (Maybe HTMLElement) insertRow self index-  = liftIO-      ((js_insertRow (unHTMLTableSectionElement self) index) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_insertRow (self) index))   foreign import javascript unsafe "$1[\"deleteRow\"]($2)"-        js_deleteRow :: JSRef HTMLTableSectionElement -> Int -> IO ()+        js_deleteRow :: HTMLTableSectionElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.deleteRow Mozilla HTMLTableSectionElement.deleteRow documentation>  deleteRow :: (MonadIO m) => HTMLTableSectionElement -> Int -> m ()-deleteRow self index-  = liftIO (js_deleteRow (unHTMLTableSectionElement self) index)+deleteRow self index = liftIO (js_deleteRow (self) index)   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef HTMLTableSectionElement -> JSString -> IO ()+        :: HTMLTableSectionElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.align Mozilla HTMLTableSectionElement.align documentation>  setAlign ::          (MonadIO m, ToJSString val) =>            HTMLTableSectionElement -> val -> m ()-setAlign self val-  = liftIO-      (js_setAlign (unHTMLTableSectionElement self) (toJSString val))+setAlign self val = liftIO (js_setAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef HTMLTableSectionElement -> IO JSString+        HTMLTableSectionElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.align Mozilla HTMLTableSectionElement.align documentation>  getAlign ::          (MonadIO m, FromJSString result) =>            HTMLTableSectionElement -> m result-getAlign self-  = liftIO-      (fromJSString <$> (js_getAlign (unHTMLTableSectionElement self)))+getAlign self = liftIO (fromJSString <$> (js_getAlign (self)))   foreign import javascript unsafe "$1[\"ch\"] = $2;" js_setCh ::-        JSRef HTMLTableSectionElement -> JSString -> IO ()+        HTMLTableSectionElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.ch Mozilla HTMLTableSectionElement.ch documentation>  setCh ::       (MonadIO m, ToJSString val) =>         HTMLTableSectionElement -> val -> m ()-setCh self val-  = liftIO-      (js_setCh (unHTMLTableSectionElement self) (toJSString val))+setCh self val = liftIO (js_setCh (self) (toJSString val))   foreign import javascript unsafe "$1[\"ch\"]" js_getCh ::-        JSRef HTMLTableSectionElement -> IO JSString+        HTMLTableSectionElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.ch Mozilla HTMLTableSectionElement.ch documentation>  getCh ::       (MonadIO m, FromJSString result) =>         HTMLTableSectionElement -> m result-getCh self-  = liftIO-      (fromJSString <$> (js_getCh (unHTMLTableSectionElement self)))+getCh self = liftIO (fromJSString <$> (js_getCh (self)))   foreign import javascript unsafe "$1[\"chOff\"] = $2;" js_setChOff-        :: JSRef HTMLTableSectionElement -> JSString -> IO ()+        :: HTMLTableSectionElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.chOff Mozilla HTMLTableSectionElement.chOff documentation>  setChOff ::          (MonadIO m, ToJSString val) =>            HTMLTableSectionElement -> val -> m ()-setChOff self val-  = liftIO-      (js_setChOff (unHTMLTableSectionElement self) (toJSString val))+setChOff self val = liftIO (js_setChOff (self) (toJSString val))   foreign import javascript unsafe "$1[\"chOff\"]" js_getChOff ::-        JSRef HTMLTableSectionElement -> IO JSString+        HTMLTableSectionElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.chOff Mozilla HTMLTableSectionElement.chOff documentation>  getChOff ::          (MonadIO m, FromJSString result) =>            HTMLTableSectionElement -> m result-getChOff self-  = liftIO-      (fromJSString <$> (js_getChOff (unHTMLTableSectionElement self)))+getChOff self = liftIO (fromJSString <$> (js_getChOff (self)))   foreign import javascript unsafe "$1[\"vAlign\"] = $2;"-        js_setVAlign :: JSRef HTMLTableSectionElement -> JSString -> IO ()+        js_setVAlign :: HTMLTableSectionElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.vAlign Mozilla HTMLTableSectionElement.vAlign documentation>  setVAlign ::           (MonadIO m, ToJSString val) =>             HTMLTableSectionElement -> val -> m ()-setVAlign self val-  = liftIO-      (js_setVAlign (unHTMLTableSectionElement self) (toJSString val))+setVAlign self val = liftIO (js_setVAlign (self) (toJSString val))   foreign import javascript unsafe "$1[\"vAlign\"]" js_getVAlign ::-        JSRef HTMLTableSectionElement -> IO JSString+        HTMLTableSectionElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.vAlign Mozilla HTMLTableSectionElement.vAlign documentation>  getVAlign ::           (MonadIO m, FromJSString result) =>             HTMLTableSectionElement -> m result-getVAlign self-  = liftIO-      (fromJSString <$> (js_getVAlign (unHTMLTableSectionElement self)))+getVAlign self = liftIO (fromJSString <$> (js_getVAlign (self)))   foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::-        JSRef HTMLTableSectionElement -> IO (JSRef HTMLCollection)+        HTMLTableSectionElement -> IO (Nullable HTMLCollection)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTableSectionElement.rows Mozilla HTMLTableSectionElement.rows documentation>  getRows ::         (MonadIO m) => HTMLTableSectionElement -> m (Maybe HTMLCollection)-getRows self-  = liftIO-      ((js_getRows (unHTMLTableSectionElement self)) >>= fromJSRef)+getRows self = liftIO (nullableToMaybe <$> (js_getRows (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLTemplateElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,11 +19,10 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"content\"]" js_getContent ::-        JSRef HTMLTemplateElement -> IO (JSRef DocumentFragment)+        HTMLTemplateElement -> IO (Nullable DocumentFragment)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTemplateElement.content Mozilla HTMLTemplateElement.content documentation>  getContent ::            (MonadIO m) => HTMLTemplateElement -> m (Maybe DocumentFragment) getContent self-  = liftIO-      ((js_getContent (unHTMLTemplateElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getContent (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLTextAreaElement.hs view
@@ -31,7 +31,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -46,48 +46,43 @@   foreign import javascript unsafe         "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity ::-        JSRef HTMLTextAreaElement -> IO Bool+        HTMLTextAreaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.checkValidity Mozilla HTMLTextAreaElement.checkValidity documentation>  checkValidity :: (MonadIO m) => HTMLTextAreaElement -> m Bool-checkValidity self-  = liftIO (js_checkValidity (unHTMLTextAreaElement self))+checkValidity self = liftIO (js_checkValidity (self))   foreign import javascript unsafe "$1[\"setCustomValidity\"]($2)"         js_setCustomValidity ::-        JSRef HTMLTextAreaElement -> JSRef (Maybe JSString) -> IO ()+        HTMLTextAreaElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.setCustomValidity Mozilla HTMLTextAreaElement.setCustomValidity documentation>  setCustomValidity ::                   (MonadIO m, ToJSString error) =>                     HTMLTextAreaElement -> Maybe error -> m () setCustomValidity self error-  = liftIO-      (js_setCustomValidity (unHTMLTextAreaElement self)-         (toMaybeJSString error))+  = liftIO (js_setCustomValidity (self) (toMaybeJSString error))   foreign import javascript unsafe "$1[\"select\"]()" js_select ::-        JSRef HTMLTextAreaElement -> IO ()+        HTMLTextAreaElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.select Mozilla HTMLTextAreaElement.select documentation>  select :: (MonadIO m) => HTMLTextAreaElement -> m ()-select self = liftIO (js_select (unHTMLTextAreaElement self))+select self = liftIO (js_select (self))   foreign import javascript unsafe "$1[\"setRangeText\"]($2)"-        js_setRangeText :: JSRef HTMLTextAreaElement -> JSString -> IO ()+        js_setRangeText :: HTMLTextAreaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.setRangeText Mozilla HTMLTextAreaElement.setRangeText documentation>  setRangeText ::              (MonadIO m, ToJSString replacement) =>                HTMLTextAreaElement -> replacement -> m () setRangeText self replacement-  = liftIO-      (js_setRangeText (unHTMLTextAreaElement self)-         (toJSString replacement))+  = liftIO (js_setRangeText (self) (toJSString replacement))   foreign import javascript unsafe         "$1[\"setRangeText\"]($2, $3, $4,\n$5)" js_setRangeText4 ::-        JSRef HTMLTextAreaElement ->+        HTMLTextAreaElement ->           JSString -> Word -> Word -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.setRangeText Mozilla HTMLTextAreaElement.setRangeText documentation> @@ -97,15 +92,12 @@                   replacement -> Word -> Word -> selectionMode -> m () setRangeText4 self replacement start end selectionMode   = liftIO-      (js_setRangeText4 (unHTMLTextAreaElement self)-         (toJSString replacement)-         start-         end+      (js_setRangeText4 (self) (toJSString replacement) start end          (toJSString selectionMode))   foreign import javascript unsafe         "$1[\"setSelectionRange\"]($2, $3,\n$4)" js_setSelectionRange ::-        JSRef HTMLTextAreaElement -> Int -> Int -> JSString -> IO ()+        HTMLTextAreaElement -> Int -> Int -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.setSelectionRange Mozilla HTMLTextAreaElement.setSelectionRange documentation>  setSelectionRange ::@@ -113,408 +105,352 @@                     HTMLTextAreaElement -> Int -> Int -> direction -> m () setSelectionRange self start end direction   = liftIO-      (js_setSelectionRange (unHTMLTextAreaElement self) start end-         (toJSString direction))+      (js_setSelectionRange (self) start end (toJSString direction))   foreign import javascript unsafe "$1[\"autofocus\"] = $2;"-        js_setAutofocus :: JSRef HTMLTextAreaElement -> Bool -> IO ()+        js_setAutofocus :: HTMLTextAreaElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autofocus Mozilla HTMLTextAreaElement.autofocus documentation>  setAutofocus :: (MonadIO m) => HTMLTextAreaElement -> Bool -> m ()-setAutofocus self val-  = liftIO (js_setAutofocus (unHTMLTextAreaElement self) val)+setAutofocus self val = liftIO (js_setAutofocus (self) val)   foreign import javascript unsafe "($1[\"autofocus\"] ? 1 : 0)"-        js_getAutofocus :: JSRef HTMLTextAreaElement -> IO Bool+        js_getAutofocus :: HTMLTextAreaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autofocus Mozilla HTMLTextAreaElement.autofocus documentation>  getAutofocus :: (MonadIO m) => HTMLTextAreaElement -> m Bool-getAutofocus self-  = liftIO (js_getAutofocus (unHTMLTextAreaElement self))+getAutofocus self = liftIO (js_getAutofocus (self))   foreign import javascript unsafe "$1[\"cols\"] = $2;" js_setCols ::-        JSRef HTMLTextAreaElement -> Int -> IO ()+        HTMLTextAreaElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.cols Mozilla HTMLTextAreaElement.cols documentation>  setCols :: (MonadIO m) => HTMLTextAreaElement -> Int -> m ()-setCols self val-  = liftIO (js_setCols (unHTMLTextAreaElement self) val)+setCols self val = liftIO (js_setCols (self) val)   foreign import javascript unsafe "$1[\"cols\"]" js_getCols ::-        JSRef HTMLTextAreaElement -> IO Int+        HTMLTextAreaElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.cols Mozilla HTMLTextAreaElement.cols documentation>  getCols :: (MonadIO m) => HTMLTextAreaElement -> m Int-getCols self = liftIO (js_getCols (unHTMLTextAreaElement self))+getCols self = liftIO (js_getCols (self))   foreign import javascript unsafe "$1[\"dirName\"] = $2;"-        js_setDirName :: JSRef HTMLTextAreaElement -> JSString -> IO ()+        js_setDirName :: HTMLTextAreaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.dirName Mozilla HTMLTextAreaElement.dirName documentation>  setDirName ::            (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () setDirName self val-  = liftIO-      (js_setDirName (unHTMLTextAreaElement self) (toJSString val))+  = liftIO (js_setDirName (self) (toJSString val))   foreign import javascript unsafe "$1[\"dirName\"]" js_getDirName ::-        JSRef HTMLTextAreaElement -> IO JSString+        HTMLTextAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.dirName Mozilla HTMLTextAreaElement.dirName documentation>  getDirName ::            (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result-getDirName self-  = liftIO-      (fromJSString <$> (js_getDirName (unHTMLTextAreaElement self)))+getDirName self = liftIO (fromJSString <$> (js_getDirName (self)))   foreign import javascript unsafe "$1[\"disabled\"] = $2;"-        js_setDisabled :: JSRef HTMLTextAreaElement -> Bool -> IO ()+        js_setDisabled :: HTMLTextAreaElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.disabled Mozilla HTMLTextAreaElement.disabled documentation>  setDisabled :: (MonadIO m) => HTMLTextAreaElement -> Bool -> m ()-setDisabled self val-  = liftIO (js_setDisabled (unHTMLTextAreaElement self) val)+setDisabled self val = liftIO (js_setDisabled (self) val)   foreign import javascript unsafe "($1[\"disabled\"] ? 1 : 0)"-        js_getDisabled :: JSRef HTMLTextAreaElement -> IO Bool+        js_getDisabled :: HTMLTextAreaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.disabled Mozilla HTMLTextAreaElement.disabled documentation>  getDisabled :: (MonadIO m) => HTMLTextAreaElement -> m Bool-getDisabled self-  = liftIO (js_getDisabled (unHTMLTextAreaElement self))+getDisabled self = liftIO (js_getDisabled (self))   foreign import javascript unsafe "$1[\"form\"]" js_getForm ::-        JSRef HTMLTextAreaElement -> IO (JSRef HTMLFormElement)+        HTMLTextAreaElement -> IO (Nullable HTMLFormElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.form Mozilla HTMLTextAreaElement.form documentation>  getForm ::         (MonadIO m) => HTMLTextAreaElement -> m (Maybe HTMLFormElement)-getForm self-  = liftIO ((js_getForm (unHTMLTextAreaElement self)) >>= fromJSRef)+getForm self = liftIO (nullableToMaybe <$> (js_getForm (self)))   foreign import javascript unsafe "$1[\"maxLength\"] = $2;"-        js_setMaxLength :: JSRef HTMLTextAreaElement -> Int -> IO ()+        js_setMaxLength :: HTMLTextAreaElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.maxLength Mozilla HTMLTextAreaElement.maxLength documentation>  setMaxLength :: (MonadIO m) => HTMLTextAreaElement -> Int -> m ()-setMaxLength self val-  = liftIO (js_setMaxLength (unHTMLTextAreaElement self) val)+setMaxLength self val = liftIO (js_setMaxLength (self) val)   foreign import javascript unsafe "$1[\"maxLength\"]"-        js_getMaxLength :: JSRef HTMLTextAreaElement -> IO Int+        js_getMaxLength :: HTMLTextAreaElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.maxLength Mozilla HTMLTextAreaElement.maxLength documentation>  getMaxLength :: (MonadIO m) => HTMLTextAreaElement -> m Int-getMaxLength self-  = liftIO (js_getMaxLength (unHTMLTextAreaElement self))+getMaxLength self = liftIO (js_getMaxLength (self))   foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName ::-        JSRef HTMLTextAreaElement -> JSString -> IO ()+        HTMLTextAreaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.name Mozilla HTMLTextAreaElement.name documentation>  setName ::         (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m ()-setName self val-  = liftIO (js_setName (unHTMLTextAreaElement self) (toJSString val))+setName self val = liftIO (js_setName (self) (toJSString val))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef HTMLTextAreaElement -> IO JSString+        HTMLTextAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.name Mozilla HTMLTextAreaElement.name documentation>  getName ::         (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result-getName self-  = liftIO-      (fromJSString <$> (js_getName (unHTMLTextAreaElement self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"placeholder\"] = $2;"-        js_setPlaceholder :: JSRef HTMLTextAreaElement -> JSString -> IO ()+        js_setPlaceholder :: HTMLTextAreaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.placeholder Mozilla HTMLTextAreaElement.placeholder documentation>  setPlaceholder ::                (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () setPlaceholder self val-  = liftIO-      (js_setPlaceholder (unHTMLTextAreaElement self) (toJSString val))+  = liftIO (js_setPlaceholder (self) (toJSString val))   foreign import javascript unsafe "$1[\"placeholder\"]"-        js_getPlaceholder :: JSRef HTMLTextAreaElement -> IO JSString+        js_getPlaceholder :: HTMLTextAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.placeholder Mozilla HTMLTextAreaElement.placeholder documentation>  getPlaceholder ::                (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getPlaceholder self-  = liftIO-      (fromJSString <$> (js_getPlaceholder (unHTMLTextAreaElement self)))+  = liftIO (fromJSString <$> (js_getPlaceholder (self)))   foreign import javascript unsafe "$1[\"readOnly\"] = $2;"-        js_setReadOnly :: JSRef HTMLTextAreaElement -> Bool -> IO ()+        js_setReadOnly :: HTMLTextAreaElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.readOnly Mozilla HTMLTextAreaElement.readOnly documentation>  setReadOnly :: (MonadIO m) => HTMLTextAreaElement -> Bool -> m ()-setReadOnly self val-  = liftIO (js_setReadOnly (unHTMLTextAreaElement self) val)+setReadOnly self val = liftIO (js_setReadOnly (self) val)   foreign import javascript unsafe "($1[\"readOnly\"] ? 1 : 0)"-        js_getReadOnly :: JSRef HTMLTextAreaElement -> IO Bool+        js_getReadOnly :: HTMLTextAreaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.readOnly Mozilla HTMLTextAreaElement.readOnly documentation>  getReadOnly :: (MonadIO m) => HTMLTextAreaElement -> m Bool-getReadOnly self-  = liftIO (js_getReadOnly (unHTMLTextAreaElement self))+getReadOnly self = liftIO (js_getReadOnly (self))   foreign import javascript unsafe "$1[\"required\"] = $2;"-        js_setRequired :: JSRef HTMLTextAreaElement -> Bool -> IO ()+        js_setRequired :: HTMLTextAreaElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.required Mozilla HTMLTextAreaElement.required documentation>  setRequired :: (MonadIO m) => HTMLTextAreaElement -> Bool -> m ()-setRequired self val-  = liftIO (js_setRequired (unHTMLTextAreaElement self) val)+setRequired self val = liftIO (js_setRequired (self) val)   foreign import javascript unsafe "($1[\"required\"] ? 1 : 0)"-        js_getRequired :: JSRef HTMLTextAreaElement -> IO Bool+        js_getRequired :: HTMLTextAreaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.required Mozilla HTMLTextAreaElement.required documentation>  getRequired :: (MonadIO m) => HTMLTextAreaElement -> m Bool-getRequired self-  = liftIO (js_getRequired (unHTMLTextAreaElement self))+getRequired self = liftIO (js_getRequired (self))   foreign import javascript unsafe "$1[\"rows\"] = $2;" js_setRows ::-        JSRef HTMLTextAreaElement -> Int -> IO ()+        HTMLTextAreaElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.rows Mozilla HTMLTextAreaElement.rows documentation>  setRows :: (MonadIO m) => HTMLTextAreaElement -> Int -> m ()-setRows self val-  = liftIO (js_setRows (unHTMLTextAreaElement self) val)+setRows self val = liftIO (js_setRows (self) val)   foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::-        JSRef HTMLTextAreaElement -> IO Int+        HTMLTextAreaElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.rows Mozilla HTMLTextAreaElement.rows documentation>  getRows :: (MonadIO m) => HTMLTextAreaElement -> m Int-getRows self = liftIO (js_getRows (unHTMLTextAreaElement self))+getRows self = liftIO (js_getRows (self))   foreign import javascript unsafe "$1[\"wrap\"] = $2;" js_setWrap ::-        JSRef HTMLTextAreaElement -> JSString -> IO ()+        HTMLTextAreaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.wrap Mozilla HTMLTextAreaElement.wrap documentation>  setWrap ::         (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m ()-setWrap self val-  = liftIO (js_setWrap (unHTMLTextAreaElement self) (toJSString val))+setWrap self val = liftIO (js_setWrap (self) (toJSString val))   foreign import javascript unsafe "$1[\"wrap\"]" js_getWrap ::-        JSRef HTMLTextAreaElement -> IO JSString+        HTMLTextAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.wrap Mozilla HTMLTextAreaElement.wrap documentation>  getWrap ::         (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result-getWrap self-  = liftIO-      (fromJSString <$> (js_getWrap (unHTMLTextAreaElement self)))+getWrap self = liftIO (fromJSString <$> (js_getWrap (self)))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLTextAreaElement -> IO JSString+        HTMLTextAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.type Mozilla HTMLTextAreaElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result-getType self-  = liftIO-      (fromJSString <$> (js_getType (unHTMLTextAreaElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"defaultValue\"] = $2;"         js_setDefaultValue ::-        JSRef HTMLTextAreaElement -> JSRef (Maybe JSString) -> IO ()+        HTMLTextAreaElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.defaultValue Mozilla HTMLTextAreaElement.defaultValue documentation>  setDefaultValue ::                 (MonadIO m, ToJSString val) =>                   HTMLTextAreaElement -> Maybe val -> m () setDefaultValue self val-  = liftIO-      (js_setDefaultValue (unHTMLTextAreaElement self)-         (toMaybeJSString val))+  = liftIO (js_setDefaultValue (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"defaultValue\"]"-        js_getDefaultValue ::-        JSRef HTMLTextAreaElement -> IO (JSRef (Maybe JSString))+        js_getDefaultValue :: HTMLTextAreaElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.defaultValue Mozilla HTMLTextAreaElement.defaultValue documentation>  getDefaultValue ::                 (MonadIO m, FromJSString result) =>                   HTMLTextAreaElement -> m (Maybe result) getDefaultValue self-  = liftIO-      (fromMaybeJSString <$>-         (js_getDefaultValue (unHTMLTextAreaElement self)))+  = liftIO (fromMaybeJSString <$> (js_getDefaultValue (self)))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef HTMLTextAreaElement -> JSRef (Maybe JSString) -> IO ()+        :: HTMLTextAreaElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.value Mozilla HTMLTextAreaElement.value documentation>  setValue ::          (MonadIO m, ToJSString val) =>            HTMLTextAreaElement -> Maybe val -> m () setValue self val-  = liftIO-      (js_setValue (unHTMLTextAreaElement self) (toMaybeJSString val))+  = liftIO (js_setValue (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef HTMLTextAreaElement -> IO (JSRef (Maybe JSString))+        HTMLTextAreaElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.value Mozilla HTMLTextAreaElement.value documentation>  getValue ::          (MonadIO m, FromJSString result) =>            HTMLTextAreaElement -> m (Maybe result)-getValue self-  = liftIO-      (fromMaybeJSString <$> (js_getValue (unHTMLTextAreaElement self)))+getValue self = liftIO (fromMaybeJSString <$> (js_getValue (self)))   foreign import javascript unsafe "$1[\"textLength\"]"-        js_getTextLength :: JSRef HTMLTextAreaElement -> IO Word+        js_getTextLength :: HTMLTextAreaElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.textLength Mozilla HTMLTextAreaElement.textLength documentation>  getTextLength :: (MonadIO m) => HTMLTextAreaElement -> m Word-getTextLength self-  = liftIO (js_getTextLength (unHTMLTextAreaElement self))+getTextLength self = liftIO (js_getTextLength (self))   foreign import javascript unsafe "($1[\"willValidate\"] ? 1 : 0)"-        js_getWillValidate :: JSRef HTMLTextAreaElement -> IO Bool+        js_getWillValidate :: HTMLTextAreaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.willValidate Mozilla HTMLTextAreaElement.willValidate documentation>  getWillValidate :: (MonadIO m) => HTMLTextAreaElement -> m Bool-getWillValidate self-  = liftIO (js_getWillValidate (unHTMLTextAreaElement self))+getWillValidate self = liftIO (js_getWillValidate (self))   foreign import javascript unsafe "$1[\"validity\"]" js_getValidity-        :: JSRef HTMLTextAreaElement -> IO (JSRef ValidityState)+        :: HTMLTextAreaElement -> IO (Nullable ValidityState)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.validity Mozilla HTMLTextAreaElement.validity documentation>  getValidity ::             (MonadIO m) => HTMLTextAreaElement -> m (Maybe ValidityState) getValidity self-  = liftIO-      ((js_getValidity (unHTMLTextAreaElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getValidity (self)))   foreign import javascript unsafe "$1[\"validationMessage\"]"-        js_getValidationMessage :: JSRef HTMLTextAreaElement -> IO JSString+        js_getValidationMessage :: HTMLTextAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.validationMessage Mozilla HTMLTextAreaElement.validationMessage documentation>  getValidationMessage ::                      (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getValidationMessage self-  = liftIO-      (fromJSString <$>-         (js_getValidationMessage (unHTMLTextAreaElement self)))+  = liftIO (fromJSString <$> (js_getValidationMessage (self)))   foreign import javascript unsafe "$1[\"labels\"]" js_getLabels ::-        JSRef HTMLTextAreaElement -> IO (JSRef NodeList)+        HTMLTextAreaElement -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.labels Mozilla HTMLTextAreaElement.labels documentation>  getLabels ::           (MonadIO m) => HTMLTextAreaElement -> m (Maybe NodeList)-getLabels self-  = liftIO-      ((js_getLabels (unHTMLTextAreaElement self)) >>= fromJSRef)+getLabels self = liftIO (nullableToMaybe <$> (js_getLabels (self)))   foreign import javascript unsafe "$1[\"selectionStart\"] = $2;"-        js_setSelectionStart :: JSRef HTMLTextAreaElement -> Int -> IO ()+        js_setSelectionStart :: HTMLTextAreaElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionStart Mozilla HTMLTextAreaElement.selectionStart documentation>  setSelectionStart ::                   (MonadIO m) => HTMLTextAreaElement -> Int -> m () setSelectionStart self val-  = liftIO (js_setSelectionStart (unHTMLTextAreaElement self) val)+  = liftIO (js_setSelectionStart (self) val)   foreign import javascript unsafe "$1[\"selectionStart\"]"-        js_getSelectionStart :: JSRef HTMLTextAreaElement -> IO Int+        js_getSelectionStart :: HTMLTextAreaElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionStart Mozilla HTMLTextAreaElement.selectionStart documentation>  getSelectionStart :: (MonadIO m) => HTMLTextAreaElement -> m Int-getSelectionStart self-  = liftIO (js_getSelectionStart (unHTMLTextAreaElement self))+getSelectionStart self = liftIO (js_getSelectionStart (self))   foreign import javascript unsafe "$1[\"selectionEnd\"] = $2;"-        js_setSelectionEnd :: JSRef HTMLTextAreaElement -> Int -> IO ()+        js_setSelectionEnd :: HTMLTextAreaElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionEnd Mozilla HTMLTextAreaElement.selectionEnd documentation>  setSelectionEnd ::                 (MonadIO m) => HTMLTextAreaElement -> Int -> m ()-setSelectionEnd self val-  = liftIO (js_setSelectionEnd (unHTMLTextAreaElement self) val)+setSelectionEnd self val = liftIO (js_setSelectionEnd (self) val)   foreign import javascript unsafe "$1[\"selectionEnd\"]"-        js_getSelectionEnd :: JSRef HTMLTextAreaElement -> IO Int+        js_getSelectionEnd :: HTMLTextAreaElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionEnd Mozilla HTMLTextAreaElement.selectionEnd documentation>  getSelectionEnd :: (MonadIO m) => HTMLTextAreaElement -> m Int-getSelectionEnd self-  = liftIO (js_getSelectionEnd (unHTMLTextAreaElement self))+getSelectionEnd self = liftIO (js_getSelectionEnd (self))   foreign import javascript unsafe "$1[\"selectionDirection\"] = $2;"         js_setSelectionDirection ::-        JSRef HTMLTextAreaElement -> JSString -> IO ()+        HTMLTextAreaElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionDirection Mozilla HTMLTextAreaElement.selectionDirection documentation>  setSelectionDirection ::                       (MonadIO m, ToJSString val) => HTMLTextAreaElement -> val -> m () setSelectionDirection self val-  = liftIO-      (js_setSelectionDirection (unHTMLTextAreaElement self)-         (toJSString val))+  = liftIO (js_setSelectionDirection (self) (toJSString val))   foreign import javascript unsafe "$1[\"selectionDirection\"]"-        js_getSelectionDirection ::-        JSRef HTMLTextAreaElement -> IO JSString+        js_getSelectionDirection :: HTMLTextAreaElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.selectionDirection Mozilla HTMLTextAreaElement.selectionDirection documentation>  getSelectionDirection ::                       (MonadIO m, FromJSString result) => HTMLTextAreaElement -> m result getSelectionDirection self-  = liftIO-      (fromJSString <$>-         (js_getSelectionDirection (unHTMLTextAreaElement self)))+  = liftIO (fromJSString <$> (js_getSelectionDirection (self)))   foreign import javascript unsafe "$1[\"autocorrect\"] = $2;"-        js_setAutocorrect :: JSRef HTMLTextAreaElement -> Bool -> IO ()+        js_setAutocorrect :: HTMLTextAreaElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocorrect Mozilla HTMLTextAreaElement.autocorrect documentation>  setAutocorrect ::                (MonadIO m) => HTMLTextAreaElement -> Bool -> m ()-setAutocorrect self val-  = liftIO (js_setAutocorrect (unHTMLTextAreaElement self) val)+setAutocorrect self val = liftIO (js_setAutocorrect (self) val)   foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)"-        js_getAutocorrect :: JSRef HTMLTextAreaElement -> IO Bool+        js_getAutocorrect :: HTMLTextAreaElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocorrect Mozilla HTMLTextAreaElement.autocorrect documentation>  getAutocorrect :: (MonadIO m) => HTMLTextAreaElement -> m Bool-getAutocorrect self-  = liftIO (js_getAutocorrect (unHTMLTextAreaElement self))+getAutocorrect self = liftIO (js_getAutocorrect (self))   foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;"         js_setAutocapitalize ::-        JSRef HTMLTextAreaElement -> JSRef (Maybe JSString) -> IO ()+        HTMLTextAreaElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocapitalize Mozilla HTMLTextAreaElement.autocapitalize documentation>  setAutocapitalize ::                   (MonadIO m, ToJSString val) =>                     HTMLTextAreaElement -> Maybe val -> m () setAutocapitalize self val-  = liftIO-      (js_setAutocapitalize (unHTMLTextAreaElement self)-         (toMaybeJSString val))+  = liftIO (js_setAutocapitalize (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"autocapitalize\"]"         js_getAutocapitalize ::-        JSRef HTMLTextAreaElement -> IO (JSRef (Maybe JSString))+        HTMLTextAreaElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTextAreaElement.autocapitalize Mozilla HTMLTextAreaElement.autocapitalize documentation>  getAutocapitalize ::                   (MonadIO m, FromJSString result) =>                     HTMLTextAreaElement -> m (Maybe result) getAutocapitalize self-  = liftIO-      (fromMaybeJSString <$>-         (js_getAutocapitalize (unHTMLTextAreaElement self)))+  = liftIO (fromMaybeJSString <$> (js_getAutocapitalize (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLTitleElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,23 +19,19 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"text\"] = $2;" js_setText ::-        JSRef HTMLTitleElement -> JSRef (Maybe JSString) -> IO ()+        HTMLTitleElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTitleElement.text Mozilla HTMLTitleElement.text documentation>  setText ::         (MonadIO m, ToJSString val) =>           HTMLTitleElement -> Maybe val -> m ()-setText self val-  = liftIO-      (js_setText (unHTMLTitleElement self) (toMaybeJSString val))+setText self val = liftIO (js_setText (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"text\"]" js_getText ::-        JSRef HTMLTitleElement -> IO (JSRef (Maybe JSString))+        HTMLTitleElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTitleElement.text Mozilla HTMLTitleElement.text documentation>  getText ::         (MonadIO m, FromJSString result) =>           HTMLTitleElement -> m (Maybe result)-getText self-  = liftIO-      (fromMaybeJSString <$> (js_getText (unHTMLTitleElement self)))+getText self = liftIO (fromMaybeJSString <$> (js_getText (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLTrackElement.hs view
@@ -10,7 +10,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -28,105 +28,94 @@ pattern ERROR = 3   foreign import javascript unsafe "$1[\"kind\"] = $2;" js_setKind ::-        JSRef HTMLTrackElement -> JSString -> IO ()+        HTMLTrackElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.kind Mozilla HTMLTrackElement.kind documentation>  setKind ::         (MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m ()-setKind self val-  = liftIO (js_setKind (unHTMLTrackElement self) (toJSString val))+setKind self val = liftIO (js_setKind (self) (toJSString val))   foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::-        JSRef HTMLTrackElement -> IO JSString+        HTMLTrackElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.kind Mozilla HTMLTrackElement.kind documentation>  getKind ::         (MonadIO m, FromJSString result) => HTMLTrackElement -> m result-getKind self-  = liftIO (fromJSString <$> (js_getKind (unHTMLTrackElement self)))+getKind self = liftIO (fromJSString <$> (js_getKind (self)))   foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc ::-        JSRef HTMLTrackElement -> JSString -> IO ()+        HTMLTrackElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.src Mozilla HTMLTrackElement.src documentation>  setSrc ::        (MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m ()-setSrc self val-  = liftIO (js_setSrc (unHTMLTrackElement self) (toJSString val))+setSrc self val = liftIO (js_setSrc (self) (toJSString val))   foreign import javascript unsafe "$1[\"src\"]" js_getSrc ::-        JSRef HTMLTrackElement -> IO JSString+        HTMLTrackElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.src Mozilla HTMLTrackElement.src documentation>  getSrc ::        (MonadIO m, FromJSString result) => HTMLTrackElement -> m result-getSrc self-  = liftIO (fromJSString <$> (js_getSrc (unHTMLTrackElement self)))+getSrc self = liftIO (fromJSString <$> (js_getSrc (self)))   foreign import javascript unsafe "$1[\"srclang\"] = $2;"-        js_setSrclang :: JSRef HTMLTrackElement -> JSString -> IO ()+        js_setSrclang :: HTMLTrackElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.srclang Mozilla HTMLTrackElement.srclang documentation>  setSrclang ::            (MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m () setSrclang self val-  = liftIO (js_setSrclang (unHTMLTrackElement self) (toJSString val))+  = liftIO (js_setSrclang (self) (toJSString val))   foreign import javascript unsafe "$1[\"srclang\"]" js_getSrclang ::-        JSRef HTMLTrackElement -> IO JSString+        HTMLTrackElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.srclang Mozilla HTMLTrackElement.srclang documentation>  getSrclang ::            (MonadIO m, FromJSString result) => HTMLTrackElement -> m result-getSrclang self-  = liftIO-      (fromJSString <$> (js_getSrclang (unHTMLTrackElement self)))+getSrclang self = liftIO (fromJSString <$> (js_getSrclang (self)))   foreign import javascript unsafe "$1[\"label\"] = $2;" js_setLabel-        :: JSRef HTMLTrackElement -> JSString -> IO ()+        :: HTMLTrackElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.label Mozilla HTMLTrackElement.label documentation>  setLabel ::          (MonadIO m, ToJSString val) => HTMLTrackElement -> val -> m ()-setLabel self val-  = liftIO (js_setLabel (unHTMLTrackElement self) (toJSString val))+setLabel self val = liftIO (js_setLabel (self) (toJSString val))   foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::-        JSRef HTMLTrackElement -> IO JSString+        HTMLTrackElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.label Mozilla HTMLTrackElement.label documentation>  getLabel ::          (MonadIO m, FromJSString result) => HTMLTrackElement -> m result-getLabel self-  = liftIO (fromJSString <$> (js_getLabel (unHTMLTrackElement self)))+getLabel self = liftIO (fromJSString <$> (js_getLabel (self)))   foreign import javascript unsafe "$1[\"default\"] = $2;"-        js_setDefault :: JSRef HTMLTrackElement -> Bool -> IO ()+        js_setDefault :: HTMLTrackElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.default Mozilla HTMLTrackElement.default documentation>  setDefault :: (MonadIO m) => HTMLTrackElement -> Bool -> m ()-setDefault self val-  = liftIO (js_setDefault (unHTMLTrackElement self) val)+setDefault self val = liftIO (js_setDefault (self) val)   foreign import javascript unsafe "($1[\"default\"] ? 1 : 0)"-        js_getDefault :: JSRef HTMLTrackElement -> IO Bool+        js_getDefault :: HTMLTrackElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.default Mozilla HTMLTrackElement.default documentation>  getDefault :: (MonadIO m) => HTMLTrackElement -> m Bool-getDefault self = liftIO (js_getDefault (unHTMLTrackElement self))+getDefault self = liftIO (js_getDefault (self))   foreign import javascript unsafe "$1[\"readyState\"]"-        js_getReadyState :: JSRef HTMLTrackElement -> IO Word+        js_getReadyState :: HTMLTrackElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.readyState Mozilla HTMLTrackElement.readyState documentation>  getReadyState :: (MonadIO m) => HTMLTrackElement -> m Word-getReadyState self-  = liftIO (js_getReadyState (unHTMLTrackElement self))+getReadyState self = liftIO (js_getReadyState (self))   foreign import javascript unsafe "$1[\"track\"]" js_getTrack ::-        JSRef HTMLTrackElement -> IO (JSRef TextTrack)+        HTMLTrackElement -> IO (Nullable TextTrack)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLTrackElement.track Mozilla HTMLTrackElement.track documentation>  getTrack :: (MonadIO m) => HTMLTrackElement -> m (Maybe TextTrack)-getTrack self-  = liftIO ((js_getTrack (unHTMLTrackElement self)) >>= fromJSRef)+getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLUListElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,34 +20,31 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"compact\"] = $2;"-        js_setCompact :: JSRef HTMLUListElement -> Bool -> IO ()+        js_setCompact :: HTMLUListElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement.compact Mozilla HTMLUListElement.compact documentation>  setCompact :: (MonadIO m) => HTMLUListElement -> Bool -> m ()-setCompact self val-  = liftIO (js_setCompact (unHTMLUListElement self) val)+setCompact self val = liftIO (js_setCompact (self) val)   foreign import javascript unsafe "($1[\"compact\"] ? 1 : 0)"-        js_getCompact :: JSRef HTMLUListElement -> IO Bool+        js_getCompact :: HTMLUListElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement.compact Mozilla HTMLUListElement.compact documentation>  getCompact :: (MonadIO m) => HTMLUListElement -> m Bool-getCompact self = liftIO (js_getCompact (unHTMLUListElement self))+getCompact self = liftIO (js_getCompact (self))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        JSRef HTMLUListElement -> JSString -> IO ()+        HTMLUListElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement.type Mozilla HTMLUListElement.type documentation>  setType ::         (MonadIO m, ToJSString val) => HTMLUListElement -> val -> m ()-setType self val-  = liftIO (js_setType (unHTMLUListElement self) (toJSString val))+setType self val = liftIO (js_setType (self) (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef HTMLUListElement -> IO JSString+        HTMLUListElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLUListElement.type Mozilla HTMLUListElement.type documentation>  getType ::         (MonadIO m, FromJSString result) => HTMLUListElement -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unHTMLUListElement self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))
src/GHCJS/DOM/JSFFI/Generated/HTMLVideoElement.hs view
@@ -24,7 +24,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -38,206 +38,183 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"webkitEnterFullscreen\"]()"-        js_webkitEnterFullscreen :: JSRef HTMLVideoElement -> IO ()+        js_webkitEnterFullscreen :: HTMLVideoElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitEnterFullscreen Mozilla HTMLVideoElement.webkitEnterFullscreen documentation>  webkitEnterFullscreen :: (MonadIO m) => HTMLVideoElement -> m () webkitEnterFullscreen self-  = liftIO (js_webkitEnterFullscreen (unHTMLVideoElement self))+  = liftIO (js_webkitEnterFullscreen (self))   foreign import javascript unsafe "$1[\"webkitExitFullscreen\"]()"-        js_webkitExitFullscreen :: JSRef HTMLVideoElement -> IO ()+        js_webkitExitFullscreen :: HTMLVideoElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitExitFullscreen Mozilla HTMLVideoElement.webkitExitFullscreen documentation>  webkitExitFullscreen :: (MonadIO m) => HTMLVideoElement -> m ()-webkitExitFullscreen self-  = liftIO (js_webkitExitFullscreen (unHTMLVideoElement self))+webkitExitFullscreen self = liftIO (js_webkitExitFullscreen (self))   foreign import javascript unsafe "$1[\"webkitEnterFullScreen\"]()"-        js_webkitEnterFullScreen :: JSRef HTMLVideoElement -> IO ()+        js_webkitEnterFullScreen :: HTMLVideoElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitEnterFullScreen Mozilla HTMLVideoElement.webkitEnterFullScreen documentation>  webkitEnterFullScreen :: (MonadIO m) => HTMLVideoElement -> m () webkitEnterFullScreen self-  = liftIO (js_webkitEnterFullScreen (unHTMLVideoElement self))+  = liftIO (js_webkitEnterFullScreen (self))   foreign import javascript unsafe "$1[\"webkitExitFullScreen\"]()"-        js_webkitExitFullScreen :: JSRef HTMLVideoElement -> IO ()+        js_webkitExitFullScreen :: HTMLVideoElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitExitFullScreen Mozilla HTMLVideoElement.webkitExitFullScreen documentation>  webkitExitFullScreen :: (MonadIO m) => HTMLVideoElement -> m ()-webkitExitFullScreen self-  = liftIO (js_webkitExitFullScreen (unHTMLVideoElement self))+webkitExitFullScreen self = liftIO (js_webkitExitFullScreen (self))   foreign import javascript unsafe         "($1[\"webkitSupportsPresentationMode\"]($2) ? 1 : 0)"         js_webkitSupportsPresentationMode ::-        JSRef HTMLVideoElement -> JSRef VideoPresentationMode -> IO Bool+        HTMLVideoElement -> JSRef -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitSupportsPresentationMode Mozilla HTMLVideoElement.webkitSupportsPresentationMode documentation>  webkitSupportsPresentationMode ::                                (MonadIO m) => HTMLVideoElement -> VideoPresentationMode -> m Bool webkitSupportsPresentationMode self mode-  = liftIO-      (js_webkitSupportsPresentationMode (unHTMLVideoElement self)-         (pToJSRef mode))+  = liftIO (js_webkitSupportsPresentationMode (self) (pToJSRef mode))   foreign import javascript unsafe         "$1[\"webkitSetPresentationMode\"]($2)"-        js_webkitSetPresentationMode ::-        JSRef HTMLVideoElement -> JSRef VideoPresentationMode -> IO ()+        js_webkitSetPresentationMode :: HTMLVideoElement -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitSetPresentationMode Mozilla HTMLVideoElement.webkitSetPresentationMode documentation>  webkitSetPresentationMode ::                           (MonadIO m) => HTMLVideoElement -> VideoPresentationMode -> m () webkitSetPresentationMode self mode-  = liftIO-      (js_webkitSetPresentationMode (unHTMLVideoElement self)-         (pToJSRef mode))+  = liftIO (js_webkitSetPresentationMode (self) (pToJSRef mode))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: JSRef HTMLVideoElement -> Word -> IO ()+        :: HTMLVideoElement -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.width Mozilla HTMLVideoElement.width documentation>  setWidth :: (MonadIO m) => HTMLVideoElement -> Word -> m ()-setWidth self val-  = liftIO (js_setWidth (unHTMLVideoElement self) val)+setWidth self val = liftIO (js_setWidth (self) val)   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef HTMLVideoElement -> IO Word+        HTMLVideoElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.width Mozilla HTMLVideoElement.width documentation>  getWidth :: (MonadIO m) => HTMLVideoElement -> m Word-getWidth self = liftIO (js_getWidth (unHTMLVideoElement self))+getWidth self = liftIO (js_getWidth (self))   foreign import javascript unsafe "$1[\"height\"] = $2;"-        js_setHeight :: JSRef HTMLVideoElement -> Word -> IO ()+        js_setHeight :: HTMLVideoElement -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.height Mozilla HTMLVideoElement.height documentation>  setHeight :: (MonadIO m) => HTMLVideoElement -> Word -> m ()-setHeight self val-  = liftIO (js_setHeight (unHTMLVideoElement self) val)+setHeight self val = liftIO (js_setHeight (self) val)   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef HTMLVideoElement -> IO Word+        HTMLVideoElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.height Mozilla HTMLVideoElement.height documentation>  getHeight :: (MonadIO m) => HTMLVideoElement -> m Word-getHeight self = liftIO (js_getHeight (unHTMLVideoElement self))+getHeight self = liftIO (js_getHeight (self))   foreign import javascript unsafe "$1[\"videoWidth\"]"-        js_getVideoWidth :: JSRef HTMLVideoElement -> IO Word+        js_getVideoWidth :: HTMLVideoElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.videoWidth Mozilla HTMLVideoElement.videoWidth documentation>  getVideoWidth :: (MonadIO m) => HTMLVideoElement -> m Word-getVideoWidth self-  = liftIO (js_getVideoWidth (unHTMLVideoElement self))+getVideoWidth self = liftIO (js_getVideoWidth (self))   foreign import javascript unsafe "$1[\"videoHeight\"]"-        js_getVideoHeight :: JSRef HTMLVideoElement -> IO Word+        js_getVideoHeight :: HTMLVideoElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.videoHeight Mozilla HTMLVideoElement.videoHeight documentation>  getVideoHeight :: (MonadIO m) => HTMLVideoElement -> m Word-getVideoHeight self-  = liftIO (js_getVideoHeight (unHTMLVideoElement self))+getVideoHeight self = liftIO (js_getVideoHeight (self))   foreign import javascript unsafe "$1[\"poster\"] = $2;"-        js_setPoster :: JSRef HTMLVideoElement -> JSString -> IO ()+        js_setPoster :: HTMLVideoElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.poster Mozilla HTMLVideoElement.poster documentation>  setPoster ::           (MonadIO m, ToJSString val) => HTMLVideoElement -> val -> m ()-setPoster self val-  = liftIO (js_setPoster (unHTMLVideoElement self) (toJSString val))+setPoster self val = liftIO (js_setPoster (self) (toJSString val))   foreign import javascript unsafe "$1[\"poster\"]" js_getPoster ::-        JSRef HTMLVideoElement -> IO JSString+        HTMLVideoElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.poster Mozilla HTMLVideoElement.poster documentation>  getPoster ::           (MonadIO m, FromJSString result) => HTMLVideoElement -> m result-getPoster self-  = liftIO-      (fromJSString <$> (js_getPoster (unHTMLVideoElement self)))+getPoster self = liftIO (fromJSString <$> (js_getPoster (self)))   foreign import javascript unsafe         "($1[\"webkitSupportsFullscreen\"] ? 1 : 0)"-        js_getWebkitSupportsFullscreen :: JSRef HTMLVideoElement -> IO Bool+        js_getWebkitSupportsFullscreen :: HTMLVideoElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitSupportsFullscreen Mozilla HTMLVideoElement.webkitSupportsFullscreen documentation>  getWebkitSupportsFullscreen ::                             (MonadIO m) => HTMLVideoElement -> m Bool getWebkitSupportsFullscreen self-  = liftIO (js_getWebkitSupportsFullscreen (unHTMLVideoElement self))+  = liftIO (js_getWebkitSupportsFullscreen (self))   foreign import javascript unsafe         "($1[\"webkitDisplayingFullscreen\"] ? 1 : 0)"-        js_getWebkitDisplayingFullscreen ::-        JSRef HTMLVideoElement -> IO Bool+        js_getWebkitDisplayingFullscreen :: HTMLVideoElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitDisplayingFullscreen Mozilla HTMLVideoElement.webkitDisplayingFullscreen documentation>  getWebkitDisplayingFullscreen ::                               (MonadIO m) => HTMLVideoElement -> m Bool getWebkitDisplayingFullscreen self-  = liftIO-      (js_getWebkitDisplayingFullscreen (unHTMLVideoElement self))+  = liftIO (js_getWebkitDisplayingFullscreen (self))   foreign import javascript unsafe         "$1[\"webkitWirelessVideoPlaybackDisabled\"] = $2;"         js_setWebkitWirelessVideoPlaybackDisabled ::-        JSRef HTMLVideoElement -> Bool -> IO ()+        HTMLVideoElement -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitWirelessVideoPlaybackDisabled Mozilla HTMLVideoElement.webkitWirelessVideoPlaybackDisabled documentation>  setWebkitWirelessVideoPlaybackDisabled ::                                        (MonadIO m) => HTMLVideoElement -> Bool -> m () setWebkitWirelessVideoPlaybackDisabled self val-  = liftIO-      (js_setWebkitWirelessVideoPlaybackDisabled-         (unHTMLVideoElement self)-         val)+  = liftIO (js_setWebkitWirelessVideoPlaybackDisabled (self) val)   foreign import javascript unsafe         "($1[\"webkitWirelessVideoPlaybackDisabled\"] ? 1 : 0)"         js_getWebkitWirelessVideoPlaybackDisabled ::-        JSRef HTMLVideoElement -> IO Bool+        HTMLVideoElement -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitWirelessVideoPlaybackDisabled Mozilla HTMLVideoElement.webkitWirelessVideoPlaybackDisabled documentation>  getWebkitWirelessVideoPlaybackDisabled ::                                        (MonadIO m) => HTMLVideoElement -> m Bool getWebkitWirelessVideoPlaybackDisabled self-  = liftIO-      (js_getWebkitWirelessVideoPlaybackDisabled-         (unHTMLVideoElement self))+  = liftIO (js_getWebkitWirelessVideoPlaybackDisabled (self))   foreign import javascript unsafe "$1[\"webkitDecodedFrameCount\"]"-        js_getWebkitDecodedFrameCount :: JSRef HTMLVideoElement -> IO Word+        js_getWebkitDecodedFrameCount :: HTMLVideoElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitDecodedFrameCount Mozilla HTMLVideoElement.webkitDecodedFrameCount documentation>  getWebkitDecodedFrameCount ::                            (MonadIO m) => HTMLVideoElement -> m Word getWebkitDecodedFrameCount self-  = liftIO (js_getWebkitDecodedFrameCount (unHTMLVideoElement self))+  = liftIO (js_getWebkitDecodedFrameCount (self))   foreign import javascript unsafe "$1[\"webkitDroppedFrameCount\"]"-        js_getWebkitDroppedFrameCount :: JSRef HTMLVideoElement -> IO Word+        js_getWebkitDroppedFrameCount :: HTMLVideoElement -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitDroppedFrameCount Mozilla HTMLVideoElement.webkitDroppedFrameCount documentation>  getWebkitDroppedFrameCount ::                            (MonadIO m) => HTMLVideoElement -> m Word getWebkitDroppedFrameCount self-  = liftIO (js_getWebkitDroppedFrameCount (unHTMLVideoElement self))+  = liftIO (js_getWebkitDroppedFrameCount (self))   foreign import javascript unsafe "$1[\"webkitPresentationMode\"]"-        js_getWebkitPresentationMode ::-        JSRef HTMLVideoElement -> IO (JSRef VideoPresentationMode)+        js_getWebkitPresentationMode :: HTMLVideoElement -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.webkitPresentationMode Mozilla HTMLVideoElement.webkitPresentationMode documentation>  getWebkitPresentationMode ::                           (MonadIO m) => HTMLVideoElement -> m VideoPresentationMode getWebkitPresentationMode self   = liftIO-      ((js_getWebkitPresentationMode (unHTMLVideoElement self)) >>=-         fromJSRefUnchecked)+      ((js_getWebkitPresentationMode (self)) >>= fromJSRefUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HTMLVideoElement.onwebkitpresentationmodechanged Mozilla HTMLVideoElement.onwebkitpresentationmodechanged documentation>  webKitPresentationModeChanged :: EventName HTMLVideoElement Event
src/GHCJS/DOM/JSFFI/Generated/HashChangeEvent.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,7 +22,7 @@ foreign import javascript unsafe         "$1[\"initHashChangeEvent\"]($2,\n$3, $4, $5, $6)"         js_initHashChangeEvent ::-        JSRef HashChangeEvent ->+        HashChangeEvent ->           JSString -> Bool -> Bool -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HashChangeEvent.initHashChangeEvent Mozilla HashChangeEvent.initHashChangeEvent documentation> @@ -33,26 +33,23 @@                         type' -> Bool -> Bool -> oldURL -> newURL -> m () initHashChangeEvent self type' canBubble cancelable oldURL newURL   = liftIO-      (js_initHashChangeEvent (unHashChangeEvent self) (toJSString type')-         canBubble+      (js_initHashChangeEvent (self) (toJSString type') canBubble          cancelable          (toJSString oldURL)          (toJSString newURL))   foreign import javascript unsafe "$1[\"oldURL\"]" js_getOldURL ::-        JSRef HashChangeEvent -> IO JSString+        HashChangeEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HashChangeEvent.oldURL Mozilla HashChangeEvent.oldURL documentation>  getOldURL ::           (MonadIO m, FromJSString result) => HashChangeEvent -> m result-getOldURL self-  = liftIO (fromJSString <$> (js_getOldURL (unHashChangeEvent self)))+getOldURL self = liftIO (fromJSString <$> (js_getOldURL (self)))   foreign import javascript unsafe "$1[\"newURL\"]" js_getNewURL ::-        JSRef HashChangeEvent -> IO JSString+        HashChangeEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/HashChangeEvent.newURL Mozilla HashChangeEvent.newURL documentation>  getNewURL ::           (MonadIO m, FromJSString result) => HashChangeEvent -> m result-getNewURL self-  = liftIO (fromJSString <$> (js_getNewURL (unHashChangeEvent self)))+getNewURL self = liftIO (fromJSString <$> (js_getNewURL (self)))
src/GHCJS/DOM/JSFFI/Generated/History.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,64 +20,60 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"back\"]()" js_back ::-        JSRef History -> IO ()+        History -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/History.back Mozilla History.back documentation>  back :: (MonadIO m) => History -> m ()-back self = liftIO (js_back (unHistory self))+back self = liftIO (js_back (self))   foreign import javascript unsafe "$1[\"forward\"]()" js_forward ::-        JSRef History -> IO ()+        History -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/History.forward Mozilla History.forward documentation>  forward :: (MonadIO m) => History -> m ()-forward self = liftIO (js_forward (unHistory self))+forward self = liftIO (js_forward (self))   foreign import javascript unsafe "$1[\"go\"]($2)" js_go ::-        JSRef History -> Int -> IO ()+        History -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/History.go Mozilla History.go documentation>  go :: (MonadIO m) => History -> Int -> m ()-go self distance = liftIO (js_go (unHistory self) distance)+go self distance = liftIO (js_go (self) distance)   foreign import javascript unsafe "$1[\"pushState\"]($2, $3, $4)"-        js_pushState ::-        JSRef History -> JSRef a -> JSString -> JSString -> IO ()+        js_pushState :: History -> JSRef -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/History.pushState Mozilla History.pushState documentation>  pushState ::           (MonadIO m, ToJSString title, ToJSString url) =>-            History -> JSRef a -> title -> url -> m ()+            History -> JSRef -> title -> url -> m () pushState self data' title url   = liftIO-      (js_pushState (unHistory self) data' (toJSString title)-         (toJSString url))+      (js_pushState (self) data' (toJSString title) (toJSString url))   foreign import javascript unsafe "$1[\"replaceState\"]($2, $3, $4)"         js_replaceState ::-        JSRef History -> JSRef a -> JSString -> JSString -> IO ()+        History -> JSRef -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/History.replaceState Mozilla History.replaceState documentation>  replaceState ::              (MonadIO m, ToJSString title, ToJSString url) =>-               History -> JSRef a -> title -> url -> m ()+               History -> JSRef -> title -> url -> m () replaceState self data' title url   = liftIO-      (js_replaceState (unHistory self) data' (toJSString title)-         (toJSString url))+      (js_replaceState (self) data' (toJSString title) (toJSString url))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef History -> IO Word+        History -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/History.length Mozilla History.length documentation>  getLength :: (MonadIO m) => History -> m Word-getLength self = liftIO (js_getLength (unHistory self))+getLength self = liftIO (js_getLength (self))   foreign import javascript unsafe "$1[\"state\"]" js_getState ::-        JSRef History -> IO (JSRef SerializedScriptValue)+        History -> IO (Nullable SerializedScriptValue)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/History.state Mozilla History.state documentation>  getState ::          (MonadIO m) => History -> m (Maybe SerializedScriptValue)-getState self-  = liftIO ((js_getState (unHistory self)) >>= fromJSRef)+getState self = liftIO (nullableToMaybe <$> (js_getState (self)))
src/GHCJS/DOM/JSFFI/Generated/IDBCursor.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,77 +22,67 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"update\"]($2)" js_update ::-        JSRef IDBCursor -> JSRef a -> IO (JSRef IDBRequest)+        IDBCursor -> JSRef -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.update Mozilla IDBCursor.update documentation>  update ::        (MonadIO m, IsIDBCursor self) =>-         self -> JSRef a -> m (Maybe IDBRequest)+         self -> JSRef -> m (Maybe IDBRequest) update self value-  = liftIO-      ((js_update (unIDBCursor (toIDBCursor self)) value) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_update (toIDBCursor self) value))   foreign import javascript unsafe "$1[\"advance\"]($2)" js_advance-        :: JSRef IDBCursor -> Word -> IO ()+        :: IDBCursor -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.advance Mozilla IDBCursor.advance documentation>  advance :: (MonadIO m, IsIDBCursor self) => self -> Word -> m ()-advance self count-  = liftIO (js_advance (unIDBCursor (toIDBCursor self)) count)+advance self count = liftIO (js_advance (toIDBCursor self) count)   foreign import javascript unsafe "$1[\"continue\"]($2)" js_continue-        :: JSRef IDBCursor -> JSRef a -> IO ()+        :: IDBCursor -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.continue Mozilla IDBCursor.continue documentation> -continue ::-         (MonadIO m, IsIDBCursor self) => self -> JSRef a -> m ()-continue self key-  = liftIO (js_continue (unIDBCursor (toIDBCursor self)) key)+continue :: (MonadIO m, IsIDBCursor self) => self -> JSRef -> m ()+continue self key = liftIO (js_continue (toIDBCursor self) key)   foreign import javascript unsafe "$1[\"delete\"]()" js_delete ::-        JSRef IDBCursor -> IO (JSRef IDBRequest)+        IDBCursor -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.delete Mozilla IDBCursor.delete documentation>  delete ::        (MonadIO m, IsIDBCursor self) => self -> m (Maybe IDBRequest) delete self-  = liftIO-      ((js_delete (unIDBCursor (toIDBCursor self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_delete (toIDBCursor self)))   foreign import javascript unsafe "$1[\"source\"]" js_getSource ::-        JSRef IDBCursor -> IO (JSRef IDBAny)+        IDBCursor -> IO (Nullable IDBAny)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.source Mozilla IDBCursor.source documentation>  getSource ::           (MonadIO m, IsIDBCursor self) => self -> m (Maybe IDBAny) getSource self-  = liftIO-      ((js_getSource (unIDBCursor (toIDBCursor self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSource (toIDBCursor self)))   foreign import javascript unsafe "$1[\"direction\"]"-        js_getDirection :: JSRef IDBCursor -> IO JSString+        js_getDirection :: IDBCursor -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.direction Mozilla IDBCursor.direction documentation>  getDirection ::              (MonadIO m, IsIDBCursor self, FromJSString result) =>                self -> m result getDirection self-  = liftIO-      (fromJSString <$>-         (js_getDirection (unIDBCursor (toIDBCursor self))))+  = liftIO (fromJSString <$> (js_getDirection (toIDBCursor self)))   foreign import javascript unsafe "$1[\"key\"]" js_getKey ::-        JSRef IDBCursor -> IO (JSRef a)+        IDBCursor -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.key Mozilla IDBCursor.key documentation> -getKey :: (MonadIO m, IsIDBCursor self) => self -> m (JSRef a)-getKey self = liftIO (js_getKey (unIDBCursor (toIDBCursor self)))+getKey :: (MonadIO m, IsIDBCursor self) => self -> m JSRef+getKey self = liftIO (js_getKey (toIDBCursor self))   foreign import javascript unsafe "$1[\"primaryKey\"]"-        js_getPrimaryKey :: JSRef IDBCursor -> IO (JSRef a)+        js_getPrimaryKey :: IDBCursor -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursor.primaryKey Mozilla IDBCursor.primaryKey documentation> -getPrimaryKey ::-              (MonadIO m, IsIDBCursor self) => self -> m (JSRef a)-getPrimaryKey self-  = liftIO (js_getPrimaryKey (unIDBCursor (toIDBCursor self)))+getPrimaryKey :: (MonadIO m, IsIDBCursor self) => self -> m JSRef+getPrimaryKey self = liftIO (js_getPrimaryKey (toIDBCursor self))
src/GHCJS/DOM/JSFFI/Generated/IDBCursorWithValue.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,8 +19,8 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef IDBCursorWithValue -> IO (JSRef a)+        IDBCursorWithValue -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBCursorWithValue.value Mozilla IDBCursorWithValue.value documentation> -getValue :: (MonadIO m) => IDBCursorWithValue -> m (JSRef a)-getValue self = liftIO (js_getValue (unIDBCursorWithValue self))+getValue :: (MonadIO m) => IDBCursorWithValue -> m JSRef+getValue self = liftIO (js_getValue (self))
src/GHCJS/DOM/JSFFI/Generated/IDBDatabase.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,8 +24,8 @@   foreign import javascript unsafe         "$1[\"createObjectStore\"]($2, $3)" js_createObjectStore ::-        JSRef IDBDatabase ->-          JSString -> JSRef Dictionary -> IO (JSRef IDBObjectStore)+        IDBDatabase ->+          JSString -> Nullable Dictionary -> IO (Nullable IDBObjectStore)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.createObjectStore Mozilla IDBDatabase.createObjectStore documentation>  createObjectStore ::@@ -33,24 +33,22 @@                     IDBDatabase -> name -> Maybe options -> m (Maybe IDBObjectStore) createObjectStore self name options   = liftIO-      ((js_createObjectStore (unIDBDatabase self) (toJSString name)-          (maybe jsNull (unDictionary . toDictionary) options))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createObjectStore (self) (toJSString name)+            (maybeToNullable (fmap toDictionary options))))   foreign import javascript unsafe "$1[\"deleteObjectStore\"]($2)"-        js_deleteObjectStore :: JSRef IDBDatabase -> JSString -> IO ()+        js_deleteObjectStore :: IDBDatabase -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.deleteObjectStore Mozilla IDBDatabase.deleteObjectStore documentation>  deleteObjectStore ::                   (MonadIO m, ToJSString name) => IDBDatabase -> name -> m () deleteObjectStore self name-  = liftIO-      (js_deleteObjectStore (unIDBDatabase self) (toJSString name))+  = liftIO (js_deleteObjectStore (self) (toJSString name))   foreign import javascript unsafe "$1[\"transaction\"]($2, $3)"         js_transaction ::-        JSRef IDBDatabase ->-          JSString -> JSString -> IO (JSRef IDBTransaction)+        IDBDatabase -> JSString -> JSString -> IO (Nullable IDBTransaction)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation>  transaction ::@@ -58,14 +56,12 @@               IDBDatabase -> storeName -> mode -> m (Maybe IDBTransaction) transaction self storeName mode   = liftIO-      ((js_transaction (unIDBDatabase self) (toJSString storeName)-          (toJSString mode))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_transaction (self) (toJSString storeName) (toJSString mode)))   foreign import javascript unsafe "$1[\"transaction\"]($2, $3)"         js_transaction' ::-        JSRef IDBDatabase ->-          JSRef [storeNames] -> JSString -> IO (JSRef IDBTransaction)+        IDBDatabase -> JSRef -> JSString -> IO (Nullable IDBTransaction)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.transaction Mozilla IDBDatabase.transaction documentation>  transaction' ::@@ -73,45 +69,42 @@                IDBDatabase -> [storeNames] -> mode -> m (Maybe IDBTransaction) transaction' self storeNames mode   = liftIO-      ((toJSRef storeNames >>=-          \ storeNames' -> js_transaction' (unIDBDatabase self) storeNames'-          (toJSString mode))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (toJSRef storeNames >>=+            \ storeNames' -> js_transaction' (self) storeNames'+            (toJSString mode)))   foreign import javascript unsafe "$1[\"close\"]()" js_close ::-        JSRef IDBDatabase -> IO ()+        IDBDatabase -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.close Mozilla IDBDatabase.close documentation>  close :: (MonadIO m) => IDBDatabase -> m ()-close self = liftIO (js_close (unIDBDatabase self))+close self = liftIO (js_close (self))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef IDBDatabase -> IO JSString+        IDBDatabase -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.name Mozilla IDBDatabase.name documentation>  getName ::         (MonadIO m, FromJSString result) => IDBDatabase -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unIDBDatabase self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"version\"]" js_getVersion ::-        JSRef IDBDatabase -> IO Double+        IDBDatabase -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.version Mozilla IDBDatabase.version documentation>  getVersion :: (MonadIO m) => IDBDatabase -> m Word64-getVersion self-  = liftIO (round <$> (js_getVersion (unIDBDatabase self)))+getVersion self = liftIO (round <$> (js_getVersion (self)))   foreign import javascript unsafe "$1[\"objectStoreNames\"]"         js_getObjectStoreNames ::-        JSRef IDBDatabase -> IO (JSRef DOMStringList)+        IDBDatabase -> IO (Nullable DOMStringList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.objectStoreNames Mozilla IDBDatabase.objectStoreNames documentation>  getObjectStoreNames ::                     (MonadIO m) => IDBDatabase -> m (Maybe DOMStringList) getObjectStoreNames self-  = liftIO-      ((js_getObjectStoreNames (unIDBDatabase self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getObjectStoreNames (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBDatabase.onabort Mozilla IDBDatabase.onabort documentation>  abort :: EventName IDBDatabase Event
src/GHCJS/DOM/JSFFI/Generated/IDBFactory.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,8 +19,7 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"open\"]($2, $3)" js_open ::-        JSRef IDBFactory ->-          JSString -> Double -> IO (JSRef IDBOpenDBRequest)+        IDBFactory -> JSString -> Double -> IO (Nullable IDBOpenDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.open Mozilla IDBFactory.open documentation>  open ::@@ -28,13 +27,12 @@        IDBFactory -> name -> Word64 -> m (Maybe IDBOpenDBRequest) open self name version   = liftIO-      ((js_open (unIDBFactory self) (toJSString name)-          (fromIntegral version))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_open (self) (toJSString name) (fromIntegral version)))   foreign import javascript unsafe "$1[\"deleteDatabase\"]($2)"         js_deleteDatabase ::-        JSRef IDBFactory -> JSString -> IO (JSRef IDBOpenDBRequest)+        IDBFactory -> JSString -> IO (Nullable IDBOpenDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.deleteDatabase Mozilla IDBFactory.deleteDatabase documentation>  deleteDatabase ::@@ -42,13 +40,11 @@                  IDBFactory -> name -> m (Maybe IDBOpenDBRequest) deleteDatabase self name   = liftIO-      ((js_deleteDatabase (unIDBFactory self) (toJSString name)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_deleteDatabase (self) (toJSString name)))   foreign import javascript unsafe "$1[\"cmp\"]($2, $3)" js_cmp ::-        JSRef IDBFactory -> JSRef a -> JSRef a -> IO Int+        IDBFactory -> JSRef -> JSRef -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBFactory.cmp Mozilla IDBFactory.cmp documentation> -cmp :: (MonadIO m) => IDBFactory -> JSRef a -> JSRef a -> m Int-cmp self first second-  = liftIO (js_cmp (unIDBFactory self) first second)+cmp :: (MonadIO m) => IDBFactory -> JSRef -> JSRef -> m Int+cmp self first second = liftIO (js_cmp (self) first second)
src/GHCJS/DOM/JSFFI/Generated/IDBIndex.hs view
@@ -11,7 +11,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -26,8 +26,8 @@   foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)"         js_openCursorRange ::-        JSRef IDBIndex ->-          JSRef IDBKeyRange -> JSString -> IO (JSRef IDBRequest)+        IDBIndex ->+          Nullable IDBKeyRange -> JSString -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation>  openCursorRange ::@@ -35,28 +35,27 @@                   IDBIndex -> Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest) openCursorRange self range direction   = liftIO-      ((js_openCursorRange (unIDBIndex self)-          (maybe jsNull pToJSRef range)-          (toJSString direction))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_openCursorRange (self) (maybeToNullable range)+            (toJSString direction)))   foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)"         js_openCursor ::-        JSRef IDBIndex -> JSRef a -> JSString -> IO (JSRef IDBRequest)+        IDBIndex -> JSRef -> JSString -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openCursor Mozilla IDBIndex.openCursor documentation>  openCursor ::            (MonadIO m, ToJSString direction) =>-             IDBIndex -> JSRef a -> direction -> m (Maybe IDBRequest)+             IDBIndex -> JSRef -> direction -> m (Maybe IDBRequest) openCursor self key direction   = liftIO-      ((js_openCursor (unIDBIndex self) key (toJSString direction)) >>=-         fromJSRef)+      (nullableToMaybe <$>+         (js_openCursor (self) key (toJSString direction)))   foreign import javascript unsafe "$1[\"openKeyCursor\"]($2, $3)"         js_openKeyCursorRange ::-        JSRef IDBIndex ->-          JSRef IDBKeyRange -> JSString -> IO (JSRef IDBRequest)+        IDBIndex ->+          Nullable IDBKeyRange -> JSString -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation>  openKeyCursorRange ::@@ -64,26 +63,25 @@                      IDBIndex -> Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest) openKeyCursorRange self range direction   = liftIO-      ((js_openKeyCursorRange (unIDBIndex self)-          (maybe jsNull pToJSRef range)-          (toJSString direction))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_openKeyCursorRange (self) (maybeToNullable range)+            (toJSString direction)))   foreign import javascript unsafe "$1[\"openKeyCursor\"]($2, $3)"         js_openKeyCursor ::-        JSRef IDBIndex -> JSRef a -> JSString -> IO (JSRef IDBRequest)+        IDBIndex -> JSRef -> JSString -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.openKeyCursor Mozilla IDBIndex.openKeyCursor documentation>  openKeyCursor ::               (MonadIO m, ToJSString direction) =>-                IDBIndex -> JSRef a -> direction -> m (Maybe IDBRequest)+                IDBIndex -> JSRef -> direction -> m (Maybe IDBRequest) openKeyCursor self key direction   = liftIO-      ((js_openKeyCursor (unIDBIndex self) key (toJSString direction))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_openKeyCursor (self) key (toJSString direction)))   foreign import javascript unsafe "$1[\"get\"]($2)" js_getRange ::-        JSRef IDBIndex -> JSRef IDBKeyRange -> IO (JSRef IDBRequest)+        IDBIndex -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation>  getRange ::@@ -91,20 +89,18 @@            IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest) getRange self key   = liftIO-      ((js_getRange (unIDBIndex self) (maybe jsNull pToJSRef key)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getRange (self) (maybeToNullable key)))   foreign import javascript unsafe "$1[\"get\"]($2)" js_get ::-        JSRef IDBIndex -> JSRef a -> IO (JSRef IDBRequest)+        IDBIndex -> JSRef -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.get Mozilla IDBIndex.get documentation> -get :: (MonadIO m) => IDBIndex -> JSRef a -> m (Maybe IDBRequest)-get self key-  = liftIO ((js_get (unIDBIndex self) key) >>= fromJSRef)+get :: (MonadIO m) => IDBIndex -> JSRef -> m (Maybe IDBRequest)+get self key = liftIO (nullableToMaybe <$> (js_get (self) key))   foreign import javascript unsafe "$1[\"getKey\"]($2)"         js_getKeyRange ::-        JSRef IDBIndex -> JSRef IDBKeyRange -> IO (JSRef IDBRequest)+        IDBIndex -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation>  getKeyRange ::@@ -112,20 +108,18 @@               IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest) getKeyRange self key   = liftIO-      ((js_getKeyRange (unIDBIndex self) (maybe jsNull pToJSRef key)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getKeyRange (self) (maybeToNullable key)))   foreign import javascript unsafe "$1[\"getKey\"]($2)" js_getKey ::-        JSRef IDBIndex -> JSRef a -> IO (JSRef IDBRequest)+        IDBIndex -> JSRef -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.getKey Mozilla IDBIndex.getKey documentation> -getKey ::-       (MonadIO m) => IDBIndex -> JSRef a -> m (Maybe IDBRequest)+getKey :: (MonadIO m) => IDBIndex -> JSRef -> m (Maybe IDBRequest) getKey self key-  = liftIO ((js_getKey (unIDBIndex self) key) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getKey (self) key))   foreign import javascript unsafe "$1[\"count\"]($2)" js_countRange-        :: JSRef IDBIndex -> JSRef IDBKeyRange -> IO (JSRef IDBRequest)+        :: IDBIndex -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation>  countRange ::@@ -133,52 +127,50 @@              IDBIndex -> Maybe IDBKeyRange -> m (Maybe IDBRequest) countRange self range   = liftIO-      ((js_countRange (unIDBIndex self) (maybe jsNull pToJSRef range))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_countRange (self) (maybeToNullable range)))   foreign import javascript unsafe "$1[\"count\"]($2)" js_count ::-        JSRef IDBIndex -> JSRef a -> IO (JSRef IDBRequest)+        IDBIndex -> JSRef -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.count Mozilla IDBIndex.count documentation> -count :: (MonadIO m) => IDBIndex -> JSRef a -> m (Maybe IDBRequest)-count self key-  = liftIO ((js_count (unIDBIndex self) key) >>= fromJSRef)+count :: (MonadIO m) => IDBIndex -> JSRef -> m (Maybe IDBRequest)+count self key = liftIO (nullableToMaybe <$> (js_count (self) key))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef IDBIndex -> IO JSString+        IDBIndex -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.name Mozilla IDBIndex.name documentation>  getName :: (MonadIO m, FromJSString result) => IDBIndex -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unIDBIndex self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"objectStore\"]"-        js_getObjectStore :: JSRef IDBIndex -> IO (JSRef IDBObjectStore)+        js_getObjectStore :: IDBIndex -> IO (Nullable IDBObjectStore)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.objectStore Mozilla IDBIndex.objectStore documentation>  getObjectStore ::                (MonadIO m) => IDBIndex -> m (Maybe IDBObjectStore) getObjectStore self-  = liftIO ((js_getObjectStore (unIDBIndex self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getObjectStore (self)))   foreign import javascript unsafe "$1[\"keyPath\"]" js_getKeyPath ::-        JSRef IDBIndex -> IO (JSRef IDBAny)+        IDBIndex -> IO (Nullable IDBAny)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.keyPath Mozilla IDBIndex.keyPath documentation>  getKeyPath :: (MonadIO m) => IDBIndex -> m (Maybe IDBAny) getKeyPath self-  = liftIO ((js_getKeyPath (unIDBIndex self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getKeyPath (self)))   foreign import javascript unsafe "($1[\"multiEntry\"] ? 1 : 0)"-        js_getMultiEntry :: JSRef IDBIndex -> IO Bool+        js_getMultiEntry :: IDBIndex -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.multiEntry Mozilla IDBIndex.multiEntry documentation>  getMultiEntry :: (MonadIO m) => IDBIndex -> m Bool-getMultiEntry self = liftIO (js_getMultiEntry (unIDBIndex self))+getMultiEntry self = liftIO (js_getMultiEntry (self))   foreign import javascript unsafe "($1[\"unique\"] ? 1 : 0)"-        js_getUnique :: JSRef IDBIndex -> IO Bool+        js_getUnique :: IDBIndex -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBIndex.unique Mozilla IDBIndex.unique documentation>  getUnique :: (MonadIO m) => IDBIndex -> m Bool-getUnique self = liftIO (js_getUnique (unIDBIndex self))+getUnique self = liftIO (js_getUnique (self))
src/GHCJS/DOM/JSFFI/Generated/IDBKeyRange.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,77 +21,75 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"only\"]($2)" js_only ::-        JSRef IDBKeyRange -> JSRef a -> IO (JSRef IDBKeyRange)+        IDBKeyRange -> JSRef -> IO (Nullable IDBKeyRange)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.only Mozilla IDBKeyRange.only documentation>  only ::-     (MonadIO m) => IDBKeyRange -> JSRef a -> m (Maybe IDBKeyRange)+     (MonadIO m) => IDBKeyRange -> JSRef -> m (Maybe IDBKeyRange) only self value-  = liftIO ((js_only (unIDBKeyRange self) value) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_only (self) value))   foreign import javascript unsafe "$1[\"lowerBound\"]($2, $3)"         js_lowerBound ::-        JSRef IDBKeyRange -> JSRef a -> Bool -> IO (JSRef IDBKeyRange)+        IDBKeyRange -> JSRef -> Bool -> IO (Nullable IDBKeyRange)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lowerBound Mozilla IDBKeyRange.lowerBound documentation>  lowerBound ::            (MonadIO m) =>-             IDBKeyRange -> JSRef a -> Bool -> m (Maybe IDBKeyRange)+             IDBKeyRange -> JSRef -> Bool -> m (Maybe IDBKeyRange) lowerBound self lower open-  = liftIO-      ((js_lowerBound (unIDBKeyRange self) lower open) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_lowerBound (self) lower open))   foreign import javascript unsafe "$1[\"upperBound\"]($2, $3)"         js_upperBound ::-        JSRef IDBKeyRange -> JSRef a -> Bool -> IO (JSRef IDBKeyRange)+        IDBKeyRange -> JSRef -> Bool -> IO (Nullable IDBKeyRange)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upperBound Mozilla IDBKeyRange.upperBound documentation>  upperBound ::            (MonadIO m) =>-             IDBKeyRange -> JSRef a -> Bool -> m (Maybe IDBKeyRange)+             IDBKeyRange -> JSRef -> Bool -> m (Maybe IDBKeyRange) upperBound self upper open-  = liftIO-      ((js_upperBound (unIDBKeyRange self) upper open) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_upperBound (self) upper open))   foreign import javascript unsafe "$1[\"bound\"]($2, $3, $4, $5)"         js_bound ::-        JSRef IDBKeyRange ->-          JSRef a -> JSRef a -> Bool -> Bool -> IO (JSRef IDBKeyRange)+        IDBKeyRange ->+          JSRef -> JSRef -> Bool -> Bool -> IO (Nullable IDBKeyRange)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.bound Mozilla IDBKeyRange.bound documentation>  bound ::       (MonadIO m) =>         IDBKeyRange ->-          JSRef a -> JSRef a -> Bool -> Bool -> m (Maybe IDBKeyRange)+          JSRef -> JSRef -> Bool -> Bool -> m (Maybe IDBKeyRange) bound self lower upper lowerOpen upperOpen   = liftIO-      ((js_bound (unIDBKeyRange self) lower upper lowerOpen upperOpen)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_bound (self) lower upper lowerOpen upperOpen))   foreign import javascript unsafe "$1[\"lower\"]" js_getLower ::-        JSRef IDBKeyRange -> IO (JSRef a)+        IDBKeyRange -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lower Mozilla IDBKeyRange.lower documentation> -getLower :: (MonadIO m) => IDBKeyRange -> m (JSRef a)-getLower self = liftIO (js_getLower (unIDBKeyRange self))+getLower :: (MonadIO m) => IDBKeyRange -> m JSRef+getLower self = liftIO (js_getLower (self))   foreign import javascript unsafe "$1[\"upper\"]" js_getUpper ::-        JSRef IDBKeyRange -> IO (JSRef a)+        IDBKeyRange -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upper Mozilla IDBKeyRange.upper documentation> -getUpper :: (MonadIO m) => IDBKeyRange -> m (JSRef a)-getUpper self = liftIO (js_getUpper (unIDBKeyRange self))+getUpper :: (MonadIO m) => IDBKeyRange -> m JSRef+getUpper self = liftIO (js_getUpper (self))   foreign import javascript unsafe "($1[\"lowerOpen\"] ? 1 : 0)"-        js_getLowerOpen :: JSRef IDBKeyRange -> IO Bool+        js_getLowerOpen :: IDBKeyRange -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.lowerOpen Mozilla IDBKeyRange.lowerOpen documentation>  getLowerOpen :: (MonadIO m) => IDBKeyRange -> m Bool-getLowerOpen self = liftIO (js_getLowerOpen (unIDBKeyRange self))+getLowerOpen self = liftIO (js_getLowerOpen (self))   foreign import javascript unsafe "($1[\"upperOpen\"] ? 1 : 0)"-        js_getUpperOpen :: JSRef IDBKeyRange -> IO Bool+        js_getUpperOpen :: IDBKeyRange -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBKeyRange.upperOpen Mozilla IDBKeyRange.upperOpen documentation>  getUpperOpen :: (MonadIO m) => IDBKeyRange -> m Bool-getUpperOpen self = liftIO (js_getUpperOpen (unIDBKeyRange self))+getUpperOpen self = liftIO (js_getUpperOpen (self))
src/GHCJS/DOM/JSFFI/Generated/IDBObjectStore.hs view
@@ -12,7 +12,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -26,28 +26,28 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"put\"]($2, $3)" js_put ::-        JSRef IDBObjectStore -> JSRef a -> JSRef a -> IO (JSRef IDBRequest)+        IDBObjectStore -> JSRef -> JSRef -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.put Mozilla IDBObjectStore.put documentation>  put ::     (MonadIO m) =>-      IDBObjectStore -> JSRef a -> JSRef a -> m (Maybe IDBRequest)+      IDBObjectStore -> JSRef -> JSRef -> m (Maybe IDBRequest) put self value key-  = liftIO ((js_put (unIDBObjectStore self) value key) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_put (self) value key))   foreign import javascript unsafe "$1[\"add\"]($2, $3)" js_add ::-        JSRef IDBObjectStore -> JSRef a -> JSRef a -> IO (JSRef IDBRequest)+        IDBObjectStore -> JSRef -> JSRef -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.add Mozilla IDBObjectStore.add documentation>  add ::     (MonadIO m) =>-      IDBObjectStore -> JSRef a -> JSRef a -> m (Maybe IDBRequest)+      IDBObjectStore -> JSRef -> JSRef -> m (Maybe IDBRequest) add self value key-  = liftIO ((js_add (unIDBObjectStore self) value key) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_add (self) value key))   foreign import javascript unsafe "$1[\"delete\"]($2)"         js_deleteRange ::-        JSRef IDBObjectStore -> JSRef IDBKeyRange -> IO (JSRef IDBRequest)+        IDBObjectStore -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation>  deleteRange ::@@ -55,21 +55,20 @@               IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest) deleteRange self keyRange   = liftIO-      ((js_deleteRange (unIDBObjectStore self)-          (maybe jsNull pToJSRef keyRange))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_deleteRange (self) (maybeToNullable keyRange)))   foreign import javascript unsafe "$1[\"delete\"]($2)" js_delete ::-        JSRef IDBObjectStore -> JSRef a -> IO (JSRef IDBRequest)+        IDBObjectStore -> JSRef -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.delete Mozilla IDBObjectStore.delete documentation>  delete ::-       (MonadIO m) => IDBObjectStore -> JSRef a -> m (Maybe IDBRequest)+       (MonadIO m) => IDBObjectStore -> JSRef -> m (Maybe IDBRequest) delete self key-  = liftIO ((js_delete (unIDBObjectStore self) key) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_delete (self) key))   foreign import javascript unsafe "$1[\"get\"]($2)" js_getRange ::-        JSRef IDBObjectStore -> JSRef IDBKeyRange -> IO (JSRef IDBRequest)+        IDBObjectStore -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation>  getRange ::@@ -77,30 +76,27 @@            IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest) getRange self key   = liftIO-      ((js_getRange (unIDBObjectStore self) (maybe jsNull pToJSRef key))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_getRange (self) (maybeToNullable key)))   foreign import javascript unsafe "$1[\"get\"]($2)" js_get ::-        JSRef IDBObjectStore -> JSRef a -> IO (JSRef IDBRequest)+        IDBObjectStore -> JSRef -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.get Mozilla IDBObjectStore.get documentation>  get ::-    (MonadIO m) => IDBObjectStore -> JSRef a -> m (Maybe IDBRequest)-get self key-  = liftIO ((js_get (unIDBObjectStore self) key) >>= fromJSRef)+    (MonadIO m) => IDBObjectStore -> JSRef -> m (Maybe IDBRequest)+get self key = liftIO (nullableToMaybe <$> (js_get (self) key))   foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::-        JSRef IDBObjectStore -> IO (JSRef IDBRequest)+        IDBObjectStore -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.clear Mozilla IDBObjectStore.clear documentation>  clear :: (MonadIO m) => IDBObjectStore -> m (Maybe IDBRequest)-clear self-  = liftIO ((js_clear (unIDBObjectStore self)) >>= fromJSRef)+clear self = liftIO (nullableToMaybe <$> (js_clear (self)))   foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)"         js_openCursorRange ::-        JSRef IDBObjectStore ->-          JSRef IDBKeyRange -> JSString -> IO (JSRef IDBRequest)+        IDBObjectStore ->+          Nullable IDBKeyRange -> JSString -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation>  openCursorRange ::@@ -109,30 +105,27 @@                     Maybe IDBKeyRange -> direction -> m (Maybe IDBRequest) openCursorRange self range direction   = liftIO-      ((js_openCursorRange (unIDBObjectStore self)-          (maybe jsNull pToJSRef range)-          (toJSString direction))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_openCursorRange (self) (maybeToNullable range)+            (toJSString direction)))   foreign import javascript unsafe "$1[\"openCursor\"]($2, $3)"         js_openCursor ::-        JSRef IDBObjectStore ->-          JSRef a -> JSString -> IO (JSRef IDBRequest)+        IDBObjectStore -> JSRef -> JSString -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.openCursor Mozilla IDBObjectStore.openCursor documentation>  openCursor ::            (MonadIO m, ToJSString direction) =>-             IDBObjectStore -> JSRef a -> direction -> m (Maybe IDBRequest)+             IDBObjectStore -> JSRef -> direction -> m (Maybe IDBRequest) openCursor self key direction   = liftIO-      ((js_openCursor (unIDBObjectStore self) key (toJSString direction))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_openCursor (self) key (toJSString direction)))   foreign import javascript unsafe "$1[\"createIndex\"]($2, $3, $4)"         js_createIndex' ::-        JSRef IDBObjectStore ->-          JSString ->-            JSRef [keyPath] -> JSRef Dictionary -> IO (JSRef IDBIndex)+        IDBObjectStore ->+          JSString -> JSRef -> Nullable Dictionary -> IO (Nullable IDBIndex)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation>  createIndex' ::@@ -142,16 +135,16 @@                  name -> [keyPath] -> Maybe options -> m (Maybe IDBIndex) createIndex' self name keyPath options   = liftIO-      ((toJSRef keyPath >>=-          \ keyPath' ->-            js_createIndex' (unIDBObjectStore self) (toJSString name) keyPath'-          (maybe jsNull (unDictionary . toDictionary) options))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (toJSRef keyPath >>=+            \ keyPath' -> js_createIndex' (self) (toJSString name) keyPath'+            (maybeToNullable (fmap toDictionary options))))   foreign import javascript unsafe "$1[\"createIndex\"]($2, $3, $4)"         js_createIndex ::-        JSRef IDBObjectStore ->-          JSString -> JSString -> JSRef Dictionary -> IO (JSRef IDBIndex)+        IDBObjectStore ->+          JSString ->+            JSString -> Nullable Dictionary -> IO (Nullable IDBIndex)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.createIndex Mozilla IDBObjectStore.createIndex documentation>  createIndex ::@@ -161,35 +154,32 @@                 name -> keyPath -> Maybe options -> m (Maybe IDBIndex) createIndex self name keyPath options   = liftIO-      ((js_createIndex (unIDBObjectStore self) (toJSString name)-          (toJSString keyPath)-          (maybe jsNull (unDictionary . toDictionary) options))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createIndex (self) (toJSString name) (toJSString keyPath)+            (maybeToNullable (fmap toDictionary options))))   foreign import javascript unsafe "$1[\"index\"]($2)" js_index ::-        JSRef IDBObjectStore -> JSString -> IO (JSRef IDBIndex)+        IDBObjectStore -> JSString -> IO (Nullable IDBIndex)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.index Mozilla IDBObjectStore.index documentation>  index ::       (MonadIO m, ToJSString name) =>         IDBObjectStore -> name -> m (Maybe IDBIndex) index self name-  = liftIO-      ((js_index (unIDBObjectStore self) (toJSString name)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_index (self) (toJSString name)))   foreign import javascript unsafe "$1[\"deleteIndex\"]($2)"-        js_deleteIndex :: JSRef IDBObjectStore -> JSString -> IO ()+        js_deleteIndex :: IDBObjectStore -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.deleteIndex Mozilla IDBObjectStore.deleteIndex documentation>  deleteIndex ::             (MonadIO m, ToJSString name) => IDBObjectStore -> name -> m () deleteIndex self name-  = liftIO (js_deleteIndex (unIDBObjectStore self) (toJSString name))+  = liftIO (js_deleteIndex (self) (toJSString name))   foreign import javascript unsafe "$1[\"count\"]($2)" js_countRange         ::-        JSRef IDBObjectStore -> JSRef IDBKeyRange -> IO (JSRef IDBRequest)+        IDBObjectStore -> Nullable IDBKeyRange -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation>  countRange ::@@ -197,63 +187,55 @@              IDBObjectStore -> Maybe IDBKeyRange -> m (Maybe IDBRequest) countRange self range   = liftIO-      ((js_countRange (unIDBObjectStore self)-          (maybe jsNull pToJSRef range))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_countRange (self) (maybeToNullable range)))   foreign import javascript unsafe "$1[\"count\"]($2)" js_count ::-        JSRef IDBObjectStore -> JSRef a -> IO (JSRef IDBRequest)+        IDBObjectStore -> JSRef -> IO (Nullable IDBRequest)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.count Mozilla IDBObjectStore.count documentation>  count ::-      (MonadIO m) => IDBObjectStore -> JSRef a -> m (Maybe IDBRequest)-count self key-  = liftIO ((js_count (unIDBObjectStore self) key) >>= fromJSRef)+      (MonadIO m) => IDBObjectStore -> JSRef -> m (Maybe IDBRequest)+count self key = liftIO (nullableToMaybe <$> (js_count (self) key))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef IDBObjectStore -> IO (JSRef (Maybe JSString))+        IDBObjectStore -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.name Mozilla IDBObjectStore.name documentation>  getName ::         (MonadIO m, FromJSString result) =>           IDBObjectStore -> m (Maybe result)-getName self-  = liftIO-      (fromMaybeJSString <$> (js_getName (unIDBObjectStore self)))+getName self = liftIO (fromMaybeJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"keyPath\"]" js_getKeyPath ::-        JSRef IDBObjectStore -> IO (JSRef IDBAny)+        IDBObjectStore -> IO (Nullable IDBAny)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.keyPath Mozilla IDBObjectStore.keyPath documentation>  getKeyPath :: (MonadIO m) => IDBObjectStore -> m (Maybe IDBAny) getKeyPath self-  = liftIO ((js_getKeyPath (unIDBObjectStore self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getKeyPath (self)))   foreign import javascript unsafe "$1[\"indexNames\"]"-        js_getIndexNames ::-        JSRef IDBObjectStore -> IO (JSRef DOMStringList)+        js_getIndexNames :: IDBObjectStore -> IO (Nullable DOMStringList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.indexNames Mozilla IDBObjectStore.indexNames documentation>  getIndexNames ::               (MonadIO m) => IDBObjectStore -> m (Maybe DOMStringList) getIndexNames self-  = liftIO ((js_getIndexNames (unIDBObjectStore self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getIndexNames (self)))   foreign import javascript unsafe "$1[\"transaction\"]"-        js_getTransaction ::-        JSRef IDBObjectStore -> IO (JSRef IDBTransaction)+        js_getTransaction :: IDBObjectStore -> IO (Nullable IDBTransaction)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.transaction Mozilla IDBObjectStore.transaction documentation>  getTransaction ::                (MonadIO m) => IDBObjectStore -> m (Maybe IDBTransaction) getTransaction self-  = liftIO-      ((js_getTransaction (unIDBObjectStore self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getTransaction (self)))   foreign import javascript unsafe "($1[\"autoIncrement\"] ? 1 : 0)"-        js_getAutoIncrement :: JSRef IDBObjectStore -> IO Bool+        js_getAutoIncrement :: IDBObjectStore -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBObjectStore.autoIncrement Mozilla IDBObjectStore.autoIncrement documentation>  getAutoIncrement :: (MonadIO m) => IDBObjectStore -> m Bool-getAutoIncrement self-  = liftIO (js_getAutoIncrement (unIDBObjectStore self))+getAutoIncrement self = liftIO (js_getAutoIncrement (self))
src/GHCJS/DOM/JSFFI/Generated/IDBOpenDBRequest.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))
src/GHCJS/DOM/JSFFI/Generated/IDBRequest.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,57 +21,51 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"result\"]" js_getResult ::-        JSRef IDBRequest -> IO (JSRef IDBAny)+        IDBRequest -> IO (Nullable IDBAny)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.result Mozilla IDBRequest.result documentation>  getResult ::           (MonadIO m, IsIDBRequest self) => self -> m (Maybe IDBAny) getResult self-  = liftIO-      ((js_getResult (unIDBRequest (toIDBRequest self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getResult (toIDBRequest self)))   foreign import javascript unsafe "$1[\"error\"]" js_getError ::-        JSRef IDBRequest -> IO (JSRef DOMError)+        IDBRequest -> IO (Nullable DOMError)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.error Mozilla IDBRequest.error documentation>  getError ::          (MonadIO m, IsIDBRequest self) => self -> m (Maybe DOMError) getError self-  = liftIO-      ((js_getError (unIDBRequest (toIDBRequest self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getError (toIDBRequest self)))   foreign import javascript unsafe "$1[\"source\"]" js_getSource ::-        JSRef IDBRequest -> IO (JSRef IDBAny)+        IDBRequest -> IO (Nullable IDBAny)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.source Mozilla IDBRequest.source documentation>  getSource ::           (MonadIO m, IsIDBRequest self) => self -> m (Maybe IDBAny) getSource self-  = liftIO-      ((js_getSource (unIDBRequest (toIDBRequest self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSource (toIDBRequest self)))   foreign import javascript unsafe "$1[\"transaction\"]"-        js_getTransaction :: JSRef IDBRequest -> IO (JSRef IDBTransaction)+        js_getTransaction :: IDBRequest -> IO (Nullable IDBTransaction)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.transaction Mozilla IDBRequest.transaction documentation>  getTransaction ::                (MonadIO m, IsIDBRequest self) => self -> m (Maybe IDBTransaction) getTransaction self   = liftIO-      ((js_getTransaction (unIDBRequest (toIDBRequest self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getTransaction (toIDBRequest self)))   foreign import javascript unsafe "$1[\"readyState\"]"-        js_getReadyState :: JSRef IDBRequest -> IO JSString+        js_getReadyState :: IDBRequest -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.readyState Mozilla IDBRequest.readyState documentation>  getReadyState ::               (MonadIO m, IsIDBRequest self, FromJSString result) =>                 self -> m result getReadyState self-  = liftIO-      (fromJSString <$>-         (js_getReadyState (unIDBRequest (toIDBRequest self))))+  = liftIO (fromJSString <$> (js_getReadyState (toIDBRequest self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBRequest.onsuccess Mozilla IDBRequest.onsuccess documentation>  success ::
src/GHCJS/DOM/JSFFI/Generated/IDBTransaction.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,7 +21,7 @@   foreign import javascript unsafe "$1[\"objectStore\"]($2)"         js_objectStore ::-        JSRef IDBTransaction -> JSString -> IO (JSRef IDBObjectStore)+        IDBTransaction -> JSString -> IO (Nullable IDBObjectStore)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.objectStore Mozilla IDBTransaction.objectStore documentation>  objectStore ::@@ -29,40 +29,36 @@               IDBTransaction -> name -> m (Maybe IDBObjectStore) objectStore self name   = liftIO-      ((js_objectStore (unIDBTransaction self) (toJSString name)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_objectStore (self) (toJSString name)))   foreign import javascript unsafe "$1[\"abort\"]()" js_abort ::-        JSRef IDBTransaction -> IO ()+        IDBTransaction -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.abort Mozilla IDBTransaction.abort documentation>  abort :: (MonadIO m) => IDBTransaction -> m ()-abort self = liftIO (js_abort (unIDBTransaction self))+abort self = liftIO (js_abort (self))   foreign import javascript unsafe "$1[\"mode\"]" js_getMode ::-        JSRef IDBTransaction -> IO JSString+        IDBTransaction -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.mode Mozilla IDBTransaction.mode documentation>  getMode ::         (MonadIO m, FromJSString result) => IDBTransaction -> m result-getMode self-  = liftIO (fromJSString <$> (js_getMode (unIDBTransaction self)))+getMode self = liftIO (fromJSString <$> (js_getMode (self)))   foreign import javascript unsafe "$1[\"db\"]" js_getDb ::-        JSRef IDBTransaction -> IO (JSRef IDBDatabase)+        IDBTransaction -> IO (Nullable IDBDatabase)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.db Mozilla IDBTransaction.db documentation>  getDb :: (MonadIO m) => IDBTransaction -> m (Maybe IDBDatabase)-getDb self-  = liftIO ((js_getDb (unIDBTransaction self)) >>= fromJSRef)+getDb self = liftIO (nullableToMaybe <$> (js_getDb (self)))   foreign import javascript unsafe "$1[\"error\"]" js_getError ::-        JSRef IDBTransaction -> IO (JSRef DOMError)+        IDBTransaction -> IO (Nullable DOMError)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.error Mozilla IDBTransaction.error documentation>  getError :: (MonadIO m) => IDBTransaction -> m (Maybe DOMError)-getError self-  = liftIO ((js_getError (unIDBTransaction self)) >>= fromJSRef)+getError self = liftIO (nullableToMaybe <$> (js_getError (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBTransaction.onabort Mozilla IDBTransaction.onabort documentation>  abortEvent :: EventName IDBTransaction Event
src/GHCJS/DOM/JSFFI/Generated/IDBVersionChangeEvent.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,22 +20,18 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"oldVersion\"]"-        js_getOldVersion :: JSRef IDBVersionChangeEvent -> IO Double+        js_getOldVersion :: IDBVersionChangeEvent -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBVersionChangeEvent.oldVersion Mozilla IDBVersionChangeEvent.oldVersion documentation>  getOldVersion :: (MonadIO m) => IDBVersionChangeEvent -> m Word64-getOldVersion self-  = liftIO-      (round <$> (js_getOldVersion (unIDBVersionChangeEvent self)))+getOldVersion self = liftIO (round <$> (js_getOldVersion (self)))   foreign import javascript unsafe "$1[\"newVersion\"]"-        js_getNewVersion ::-        JSRef IDBVersionChangeEvent -> IO (JSRef (Maybe Double))+        js_getNewVersion :: IDBVersionChangeEvent -> IO (Nullable Double)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/IDBVersionChangeEvent.newVersion Mozilla IDBVersionChangeEvent.newVersion documentation>  getNewVersion ::               (MonadIO m) => IDBVersionChangeEvent -> m (Maybe Word64) getNewVersion self   = liftIO-      (fmap round . pFromJSRef <$>-         (js_getNewVersion (unIDBVersionChangeEvent self)))+      (fmap round . nullableToMaybe <$> (js_getNewVersion (self)))
src/GHCJS/DOM/JSFFI/Generated/ImageData.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,7 +21,7 @@   foreign import javascript unsafe         "new window[\"ImageData\"]($1, $2,\n$3)" js_newImageData ::-        JSRef Uint8ClampedArray -> Word -> Word -> IO (JSRef ImageData)+        Nullable Uint8ClampedArray -> Word -> Word -> IO ImageData  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData Mozilla ImageData documentation>  newImageData ::@@ -29,31 +29,28 @@                Maybe data' -> Word -> Word -> m ImageData newImageData data' sw sh   = liftIO-      (js_newImageData-         (maybe jsNull (unUint8ClampedArray . toUint8ClampedArray) data')+      (js_newImageData (maybeToNullable (fmap toUint8ClampedArray data'))          sw-         sh-         >>= fromJSRefUnchecked)+         sh)   foreign import javascript unsafe         "new window[\"ImageData\"]($1, $2)" js_newImageData' ::-        Word -> Word -> IO (JSRef ImageData)+        Word -> Word -> IO ImageData  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData Mozilla ImageData documentation>  newImageData' :: (MonadIO m) => Word -> Word -> m ImageData-newImageData' sw sh-  = liftIO (js_newImageData' sw sh >>= fromJSRefUnchecked)+newImageData' sw sh = liftIO (js_newImageData' sw sh)   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef ImageData -> IO Int+        ImageData -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData.width Mozilla ImageData.width documentation>  getWidth :: (MonadIO m) => ImageData -> m Int-getWidth self = liftIO (js_getWidth (unImageData self))+getWidth self = liftIO (js_getWidth (self))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef ImageData -> IO Int+        ImageData -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ImageData.height Mozilla ImageData.height documentation>  getHeight :: (MonadIO m) => ImageData -> m Int-getHeight self = liftIO (js_getHeight (unImageData self))+getHeight self = liftIO (js_getHeight (self))
src/GHCJS/DOM/JSFFI/Generated/InspectorFrontendHost.hs view
@@ -20,7 +20,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -34,162 +34,140 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"loaded\"]()" js_loaded ::-        JSRef InspectorFrontendHost -> IO ()+        InspectorFrontendHost -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.loaded Mozilla InspectorFrontendHost.loaded documentation>  loaded :: (MonadIO m) => InspectorFrontendHost -> m ()-loaded self = liftIO (js_loaded (unInspectorFrontendHost self))+loaded self = liftIO (js_loaded (self))   foreign import javascript unsafe "$1[\"closeWindow\"]()"-        js_closeWindow :: JSRef InspectorFrontendHost -> IO ()+        js_closeWindow :: InspectorFrontendHost -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.closeWindow Mozilla InspectorFrontendHost.closeWindow documentation>  closeWindow :: (MonadIO m) => InspectorFrontendHost -> m ()-closeWindow self-  = liftIO (js_closeWindow (unInspectorFrontendHost self))+closeWindow self = liftIO (js_closeWindow (self))   foreign import javascript unsafe "$1[\"bringToFront\"]()"-        js_bringToFront :: JSRef InspectorFrontendHost -> IO ()+        js_bringToFront :: InspectorFrontendHost -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.bringToFront Mozilla InspectorFrontendHost.bringToFront documentation>  bringToFront :: (MonadIO m) => InspectorFrontendHost -> m ()-bringToFront self-  = liftIO (js_bringToFront (unInspectorFrontendHost self))+bringToFront self = liftIO (js_bringToFront (self))   foreign import javascript unsafe "$1[\"setZoomFactor\"]($2)"-        js_setZoomFactor :: JSRef InspectorFrontendHost -> Float -> IO ()+        js_setZoomFactor :: InspectorFrontendHost -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setZoomFactor Mozilla InspectorFrontendHost.setZoomFactor documentation>  setZoomFactor ::               (MonadIO m) => InspectorFrontendHost -> Float -> m ()-setZoomFactor self zoom-  = liftIO (js_setZoomFactor (unInspectorFrontendHost self) zoom)+setZoomFactor self zoom = liftIO (js_setZoomFactor (self) zoom)   foreign import javascript unsafe "$1[\"inspectedURLChanged\"]($2)"         js_inspectedURLChanged ::-        JSRef InspectorFrontendHost -> JSString -> IO ()+        InspectorFrontendHost -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.inspectedURLChanged Mozilla InspectorFrontendHost.inspectedURLChanged documentation>  inspectedURLChanged ::                     (MonadIO m, ToJSString newURL) =>                       InspectorFrontendHost -> newURL -> m () inspectedURLChanged self newURL-  = liftIO-      (js_inspectedURLChanged (unInspectorFrontendHost self)-         (toJSString newURL))+  = liftIO (js_inspectedURLChanged (self) (toJSString newURL))   foreign import javascript unsafe "$1[\"requestSetDockSide\"]($2)"-        js_requestSetDockSide ::-        JSRef InspectorFrontendHost -> JSString -> IO ()+        js_requestSetDockSide :: InspectorFrontendHost -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.requestSetDockSide Mozilla InspectorFrontendHost.requestSetDockSide documentation>  requestSetDockSide ::                    (MonadIO m, ToJSString side) =>                      InspectorFrontendHost -> side -> m () requestSetDockSide self side-  = liftIO-      (js_requestSetDockSide (unInspectorFrontendHost self)-         (toJSString side))+  = liftIO (js_requestSetDockSide (self) (toJSString side))   foreign import javascript unsafe         "$1[\"setAttachedWindowHeight\"]($2)" js_setAttachedWindowHeight ::-        JSRef InspectorFrontendHost -> Word -> IO ()+        InspectorFrontendHost -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setAttachedWindowHeight Mozilla InspectorFrontendHost.setAttachedWindowHeight documentation>  setAttachedWindowHeight ::                         (MonadIO m) => InspectorFrontendHost -> Word -> m () setAttachedWindowHeight self height-  = liftIO-      (js_setAttachedWindowHeight (unInspectorFrontendHost self) height)+  = liftIO (js_setAttachedWindowHeight (self) height)   foreign import javascript unsafe         "$1[\"setAttachedWindowWidth\"]($2)" js_setAttachedWindowWidth ::-        JSRef InspectorFrontendHost -> Word -> IO ()+        InspectorFrontendHost -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setAttachedWindowWidth Mozilla InspectorFrontendHost.setAttachedWindowWidth documentation>  setAttachedWindowWidth ::                        (MonadIO m) => InspectorFrontendHost -> Word -> m () setAttachedWindowWidth self width-  = liftIO-      (js_setAttachedWindowWidth (unInspectorFrontendHost self) width)+  = liftIO (js_setAttachedWindowWidth (self) width)   foreign import javascript unsafe "$1[\"setToolbarHeight\"]($2)"-        js_setToolbarHeight ::-        JSRef InspectorFrontendHost -> Float -> IO ()+        js_setToolbarHeight :: InspectorFrontendHost -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.setToolbarHeight Mozilla InspectorFrontendHost.setToolbarHeight documentation>  setToolbarHeight ::                  (MonadIO m) => InspectorFrontendHost -> Float -> m () setToolbarHeight self height-  = liftIO-      (js_setToolbarHeight (unInspectorFrontendHost self) height)+  = liftIO (js_setToolbarHeight (self) height)   foreign import javascript unsafe "$1[\"moveWindowBy\"]($2, $3)"-        js_moveWindowBy ::-        JSRef InspectorFrontendHost -> Float -> Float -> IO ()+        js_moveWindowBy :: InspectorFrontendHost -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.moveWindowBy Mozilla InspectorFrontendHost.moveWindowBy documentation>  moveWindowBy ::              (MonadIO m) => InspectorFrontendHost -> Float -> Float -> m ()-moveWindowBy self x y-  = liftIO (js_moveWindowBy (unInspectorFrontendHost self) x y)+moveWindowBy self x y = liftIO (js_moveWindowBy (self) x y)   foreign import javascript unsafe "$1[\"localizedStringsURL\"]()"-        js_localizedStringsURL ::-        JSRef InspectorFrontendHost -> IO JSString+        js_localizedStringsURL :: InspectorFrontendHost -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.localizedStringsURL Mozilla InspectorFrontendHost.localizedStringsURL documentation>  localizedStringsURL ::                     (MonadIO m, FromJSString result) =>                       InspectorFrontendHost -> m result localizedStringsURL self-  = liftIO-      (fromJSString <$>-         (js_localizedStringsURL (unInspectorFrontendHost self)))+  = liftIO (fromJSString <$> (js_localizedStringsURL (self)))   foreign import javascript unsafe "$1[\"debuggableType\"]()"-        js_debuggableType :: JSRef InspectorFrontendHost -> IO JSString+        js_debuggableType :: InspectorFrontendHost -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.debuggableType Mozilla InspectorFrontendHost.debuggableType documentation>  debuggableType ::                (MonadIO m, FromJSString result) =>                  InspectorFrontendHost -> m result debuggableType self-  = liftIO-      (fromJSString <$>-         (js_debuggableType (unInspectorFrontendHost self)))+  = liftIO (fromJSString <$> (js_debuggableType (self)))   foreign import javascript unsafe "$1[\"copyText\"]($2)" js_copyText-        :: JSRef InspectorFrontendHost -> JSString -> IO ()+        :: InspectorFrontendHost -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.copyText Mozilla InspectorFrontendHost.copyText documentation>  copyText ::          (MonadIO m, ToJSString text) =>            InspectorFrontendHost -> text -> m ()-copyText self text-  = liftIO-      (js_copyText (unInspectorFrontendHost self) (toJSString text))+copyText self text = liftIO (js_copyText (self) (toJSString text))   foreign import javascript unsafe "$1[\"openInNewTab\"]($2)"-        js_openInNewTab :: JSRef InspectorFrontendHost -> JSString -> IO ()+        js_openInNewTab :: InspectorFrontendHost -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.openInNewTab Mozilla InspectorFrontendHost.openInNewTab documentation>  openInNewTab ::              (MonadIO m, ToJSString url) => InspectorFrontendHost -> url -> m () openInNewTab self url-  = liftIO-      (js_openInNewTab (unInspectorFrontendHost self) (toJSString url))+  = liftIO (js_openInNewTab (self) (toJSString url))   foreign import javascript unsafe "($1[\"canSave\"]() ? 1 : 0)"-        js_canSave :: JSRef InspectorFrontendHost -> IO Bool+        js_canSave :: InspectorFrontendHost -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canSave Mozilla InspectorFrontendHost.canSave documentation>  canSave :: (MonadIO m) => InspectorFrontendHost -> m Bool-canSave self = liftIO (js_canSave (unInspectorFrontendHost self))+canSave self = liftIO (js_canSave (self))   foreign import javascript unsafe "$1[\"save\"]($2, $3, $4, $5)"         js_save ::-        JSRef InspectorFrontendHost ->+        InspectorFrontendHost ->           JSString -> JSString -> Bool -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.save Mozilla InspectorFrontendHost.save documentation> @@ -198,72 +176,63 @@        InspectorFrontendHost -> url -> content -> Bool -> Bool -> m () save self url content base64Encoded forceSaveAs   = liftIO-      (js_save (unInspectorFrontendHost self) (toJSString url)-         (toJSString content)-         base64Encoded+      (js_save (self) (toJSString url) (toJSString content) base64Encoded          forceSaveAs)   foreign import javascript unsafe "$1[\"append\"]($2, $3)" js_append-        :: JSRef InspectorFrontendHost -> JSString -> JSString -> IO ()+        :: InspectorFrontendHost -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.append Mozilla InspectorFrontendHost.append documentation>  append ::        (MonadIO m, ToJSString url, ToJSString content) =>          InspectorFrontendHost -> url -> content -> m () append self url content-  = liftIO-      (js_append (unInspectorFrontendHost self) (toJSString url)-         (toJSString content))+  = liftIO (js_append (self) (toJSString url) (toJSString content))   foreign import javascript unsafe "$1[\"close\"]($2)" js_close ::-        JSRef InspectorFrontendHost -> JSString -> IO ()+        InspectorFrontendHost -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.close Mozilla InspectorFrontendHost.close documentation>  close ::       (MonadIO m, ToJSString url) => InspectorFrontendHost -> url -> m ()-close self url-  = liftIO (js_close (unInspectorFrontendHost self) (toJSString url))+close self url = liftIO (js_close (self) (toJSString url))   foreign import javascript unsafe "$1[\"platform\"]()" js_platform-        :: JSRef InspectorFrontendHost -> IO JSString+        :: InspectorFrontendHost -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.platform Mozilla InspectorFrontendHost.platform documentation>  platform ::          (MonadIO m, FromJSString result) =>            InspectorFrontendHost -> m result-platform self-  = liftIO-      (fromJSString <$> (js_platform (unInspectorFrontendHost self)))+platform self = liftIO (fromJSString <$> (js_platform (self)))   foreign import javascript unsafe "$1[\"port\"]()" js_port ::-        JSRef InspectorFrontendHost -> IO JSString+        InspectorFrontendHost -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.port Mozilla InspectorFrontendHost.port documentation>  port ::      (MonadIO m, FromJSString result) =>        InspectorFrontendHost -> m result-port self-  = liftIO-      (fromJSString <$> (js_port (unInspectorFrontendHost self)))+port self = liftIO (fromJSString <$> (js_port (self)))   foreign import javascript unsafe "$1[\"showContextMenu\"]($2, $3)"         js_showContextMenu ::-        JSRef InspectorFrontendHost -> JSRef MouseEvent -> JSRef a -> IO ()+        InspectorFrontendHost -> Nullable MouseEvent -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.showContextMenu Mozilla InspectorFrontendHost.showContextMenu documentation>  showContextMenu ::                 (MonadIO m, IsMouseEvent event) =>-                  InspectorFrontendHost -> Maybe event -> JSRef a -> m ()+                  InspectorFrontendHost -> Maybe event -> JSRef -> m () showContextMenu self event items   = liftIO-      (js_showContextMenu (unInspectorFrontendHost self)-         (maybe jsNull (unMouseEvent . toMouseEvent) event)+      (js_showContextMenu (self)+         (maybeToNullable (fmap toMouseEvent event))          items)   foreign import javascript unsafe         "$1[\"dispatchEventAsContextMenuEvent\"]($2)"         js_dispatchEventAsContextMenuEvent ::-        JSRef InspectorFrontendHost -> JSRef Event -> IO ()+        InspectorFrontendHost -> Nullable Event -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.dispatchEventAsContextMenuEvent Mozilla InspectorFrontendHost.dispatchEventAsContextMenuEvent documentation>  dispatchEventAsContextMenuEvent ::@@ -271,63 +240,55 @@                                   InspectorFrontendHost -> Maybe event -> m () dispatchEventAsContextMenuEvent self event   = liftIO-      (js_dispatchEventAsContextMenuEvent (unInspectorFrontendHost self)-         (maybe jsNull (unEvent . toEvent) event))+      (js_dispatchEventAsContextMenuEvent (self)+         (maybeToNullable (fmap toEvent event)))   foreign import javascript unsafe "$1[\"sendMessageToBackend\"]($2)"         js_sendMessageToBackend ::-        JSRef InspectorFrontendHost -> JSString -> IO ()+        InspectorFrontendHost -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.sendMessageToBackend Mozilla InspectorFrontendHost.sendMessageToBackend documentation>  sendMessageToBackend ::                      (MonadIO m, ToJSString message) =>                        InspectorFrontendHost -> message -> m () sendMessageToBackend self message-  = liftIO-      (js_sendMessageToBackend (unInspectorFrontendHost self)-         (toJSString message))+  = liftIO (js_sendMessageToBackend (self) (toJSString message))   foreign import javascript unsafe "$1[\"unbufferedLog\"]($2)"-        js_unbufferedLog ::-        JSRef InspectorFrontendHost -> JSString -> IO ()+        js_unbufferedLog :: InspectorFrontendHost -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.unbufferedLog Mozilla InspectorFrontendHost.unbufferedLog documentation>  unbufferedLog ::               (MonadIO m, ToJSString message) =>                 InspectorFrontendHost -> message -> m () unbufferedLog self message-  = liftIO-      (js_unbufferedLog (unInspectorFrontendHost self)-         (toJSString message))+  = liftIO (js_unbufferedLog (self) (toJSString message))   foreign import javascript unsafe "($1[\"isUnderTest\"]() ? 1 : 0)"-        js_isUnderTest :: JSRef InspectorFrontendHost -> IO Bool+        js_isUnderTest :: InspectorFrontendHost -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.isUnderTest Mozilla InspectorFrontendHost.isUnderTest documentation>  isUnderTest :: (MonadIO m) => InspectorFrontendHost -> m Bool-isUnderTest self-  = liftIO (js_isUnderTest (unInspectorFrontendHost self))+isUnderTest self = liftIO (js_isUnderTest (self))   foreign import javascript unsafe "$1[\"beep\"]()" js_beep ::-        JSRef InspectorFrontendHost -> IO ()+        InspectorFrontendHost -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.beep Mozilla InspectorFrontendHost.beep documentation>  beep :: (MonadIO m) => InspectorFrontendHost -> m ()-beep self = liftIO (js_beep (unInspectorFrontendHost self))+beep self = liftIO (js_beep (self))   foreign import javascript unsafe         "($1[\"canInspectWorkers\"]() ? 1 : 0)" js_canInspectWorkers ::-        JSRef InspectorFrontendHost -> IO Bool+        InspectorFrontendHost -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canInspectWorkers Mozilla InspectorFrontendHost.canInspectWorkers documentation>  canInspectWorkers :: (MonadIO m) => InspectorFrontendHost -> m Bool-canInspectWorkers self-  = liftIO (js_canInspectWorkers (unInspectorFrontendHost self))+canInspectWorkers self = liftIO (js_canInspectWorkers (self))   foreign import javascript unsafe "($1[\"canSaveAs\"]() ? 1 : 0)"-        js_canSaveAs :: JSRef InspectorFrontendHost -> IO Bool+        js_canSaveAs :: InspectorFrontendHost -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InspectorFrontendHost.canSaveAs Mozilla InspectorFrontendHost.canSaveAs documentation>  canSaveAs :: (MonadIO m) => InspectorFrontendHost -> m Bool-canSaveAs self-  = liftIO (js_canSaveAs (unInspectorFrontendHost self))+canSaveAs self = liftIO (js_canSaveAs (self))
src/GHCJS/DOM/JSFFI/Generated/InternalSettings.hs view
@@ -40,7 +40,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -56,19 +56,17 @@ foreign import javascript unsafe         "$1[\"setTouchEventEmulationEnabled\"]($2)"         js_setTouchEventEmulationEnabled ::-        JSRef InternalSettings -> Bool -> IO ()+        InternalSettings -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTouchEventEmulationEnabled Mozilla InternalSettings.setTouchEventEmulationEnabled documentation>  setTouchEventEmulationEnabled ::                               (MonadIO m) => InternalSettings -> Bool -> m () setTouchEventEmulationEnabled self enabled-  = liftIO-      (js_setTouchEventEmulationEnabled (unInternalSettings self)-         enabled)+  = liftIO (js_setTouchEventEmulationEnabled (self) enabled)   foreign import javascript unsafe         "$1[\"setStandardFontFamily\"]($2,\n$3)" js_setStandardFontFamily-        :: JSRef InternalSettings -> JSString -> JSString -> IO ()+        :: InternalSettings -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setStandardFontFamily Mozilla InternalSettings.setStandardFontFamily documentation>  setStandardFontFamily ::@@ -76,13 +74,12 @@                         InternalSettings -> family' -> script -> m () setStandardFontFamily self family' script   = liftIO-      (js_setStandardFontFamily (unInternalSettings self)-         (toJSString family')+      (js_setStandardFontFamily (self) (toJSString family')          (toJSString script))   foreign import javascript unsafe         "$1[\"setSerifFontFamily\"]($2, $3)" js_setSerifFontFamily ::-        JSRef InternalSettings -> JSString -> JSString -> IO ()+        InternalSettings -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setSerifFontFamily Mozilla InternalSettings.setSerifFontFamily documentation>  setSerifFontFamily ::@@ -90,13 +87,12 @@                      InternalSettings -> family' -> script -> m () setSerifFontFamily self family' script   = liftIO-      (js_setSerifFontFamily (unInternalSettings self)-         (toJSString family')+      (js_setSerifFontFamily (self) (toJSString family')          (toJSString script))   foreign import javascript unsafe         "$1[\"setSansSerifFontFamily\"]($2,\n$3)" js_setSansSerifFontFamily-        :: JSRef InternalSettings -> JSString -> JSString -> IO ()+        :: InternalSettings -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setSansSerifFontFamily Mozilla InternalSettings.setSansSerifFontFamily documentation>  setSansSerifFontFamily ::@@ -104,13 +100,12 @@                          InternalSettings -> family' -> script -> m () setSansSerifFontFamily self family' script   = liftIO-      (js_setSansSerifFontFamily (unInternalSettings self)-         (toJSString family')+      (js_setSansSerifFontFamily (self) (toJSString family')          (toJSString script))   foreign import javascript unsafe         "$1[\"setFixedFontFamily\"]($2, $3)" js_setFixedFontFamily ::-        JSRef InternalSettings -> JSString -> JSString -> IO ()+        InternalSettings -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setFixedFontFamily Mozilla InternalSettings.setFixedFontFamily documentation>  setFixedFontFamily ::@@ -118,13 +113,12 @@                      InternalSettings -> family' -> script -> m () setFixedFontFamily self family' script   = liftIO-      (js_setFixedFontFamily (unInternalSettings self)-         (toJSString family')+      (js_setFixedFontFamily (self) (toJSString family')          (toJSString script))   foreign import javascript unsafe         "$1[\"setCursiveFontFamily\"]($2,\n$3)" js_setCursiveFontFamily ::-        JSRef InternalSettings -> JSString -> JSString -> IO ()+        InternalSettings -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setCursiveFontFamily Mozilla InternalSettings.setCursiveFontFamily documentation>  setCursiveFontFamily ::@@ -132,13 +126,12 @@                        InternalSettings -> family' -> script -> m () setCursiveFontFamily self family' script   = liftIO-      (js_setCursiveFontFamily (unInternalSettings self)-         (toJSString family')+      (js_setCursiveFontFamily (self) (toJSString family')          (toJSString script))   foreign import javascript unsafe         "$1[\"setFantasyFontFamily\"]($2,\n$3)" js_setFantasyFontFamily ::-        JSRef InternalSettings -> JSString -> JSString -> IO ()+        InternalSettings -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setFantasyFontFamily Mozilla InternalSettings.setFantasyFontFamily documentation>  setFantasyFontFamily ::@@ -146,14 +139,13 @@                        InternalSettings -> family' -> script -> m () setFantasyFontFamily self family' script   = liftIO-      (js_setFantasyFontFamily (unInternalSettings self)-         (toJSString family')+      (js_setFantasyFontFamily (self) (toJSString family')          (toJSString script))   foreign import javascript unsafe         "$1[\"setPictographFontFamily\"]($2,\n$3)"         js_setPictographFontFamily ::-        JSRef InternalSettings -> JSString -> JSString -> IO ()+        InternalSettings -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setPictographFontFamily Mozilla InternalSettings.setPictographFontFamily documentation>  setPictographFontFamily ::@@ -161,82 +153,76 @@                           InternalSettings -> family' -> script -> m () setPictographFontFamily self family' script   = liftIO-      (js_setPictographFontFamily (unInternalSettings self)-         (toJSString family')+      (js_setPictographFontFamily (self) (toJSString family')          (toJSString script))   foreign import javascript unsafe         "$1[\"setFontFallbackPrefersPictographs\"]($2)"         js_setFontFallbackPrefersPictographs ::-        JSRef InternalSettings -> Bool -> IO ()+        InternalSettings -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setFontFallbackPrefersPictographs Mozilla InternalSettings.setFontFallbackPrefersPictographs documentation>  setFontFallbackPrefersPictographs ::                                   (MonadIO m) => InternalSettings -> Bool -> m () setFontFallbackPrefersPictographs self preferPictographs   = liftIO-      (js_setFontFallbackPrefersPictographs (unInternalSettings self)-         preferPictographs)+      (js_setFontFallbackPrefersPictographs (self) preferPictographs)   foreign import javascript unsafe         "$1[\"setTextAutosizingEnabled\"]($2)" js_setTextAutosizingEnabled-        :: JSRef InternalSettings -> Bool -> IO ()+        :: InternalSettings -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTextAutosizingEnabled Mozilla InternalSettings.setTextAutosizingEnabled documentation>  setTextAutosizingEnabled ::                          (MonadIO m) => InternalSettings -> Bool -> m () setTextAutosizingEnabled self enabled-  = liftIO-      (js_setTextAutosizingEnabled (unInternalSettings self) enabled)+  = liftIO (js_setTextAutosizingEnabled (self) enabled)   foreign import javascript unsafe         "$1[\"setTextAutosizingWindowSizeOverride\"]($2,\n$3)"         js_setTextAutosizingWindowSizeOverride ::-        JSRef InternalSettings -> Int -> Int -> IO ()+        InternalSettings -> Int -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTextAutosizingWindowSizeOverride Mozilla InternalSettings.setTextAutosizingWindowSizeOverride documentation>  setTextAutosizingWindowSizeOverride ::                                     (MonadIO m) => InternalSettings -> Int -> Int -> m () setTextAutosizingWindowSizeOverride self width height   = liftIO-      (js_setTextAutosizingWindowSizeOverride (unInternalSettings self)-         width-         height)+      (js_setTextAutosizingWindowSizeOverride (self) width height)   foreign import javascript unsafe         "$1[\"setTextAutosizingFontScaleFactor\"]($2)"         js_setTextAutosizingFontScaleFactor ::-        JSRef InternalSettings -> Float -> IO ()+        InternalSettings -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTextAutosizingFontScaleFactor Mozilla InternalSettings.setTextAutosizingFontScaleFactor documentation>  setTextAutosizingFontScaleFactor ::                                  (MonadIO m) => InternalSettings -> Float -> m () setTextAutosizingFontScaleFactor self fontScaleFactor   = liftIO-      (js_setTextAutosizingFontScaleFactor (unInternalSettings self)-         fontScaleFactor)+      (js_setTextAutosizingFontScaleFactor (self) fontScaleFactor)   foreign import javascript unsafe "$1[\"setCSSShapesEnabled\"]($2)"-        js_setCSSShapesEnabled :: JSRef InternalSettings -> Bool -> IO ()+        js_setCSSShapesEnabled :: InternalSettings -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setCSSShapesEnabled Mozilla InternalSettings.setCSSShapesEnabled documentation>  setCSSShapesEnabled ::                     (MonadIO m) => InternalSettings -> Bool -> m () setCSSShapesEnabled self enabled-  = liftIO (js_setCSSShapesEnabled (unInternalSettings self) enabled)+  = liftIO (js_setCSSShapesEnabled (self) enabled)   foreign import javascript unsafe "$1[\"setCanStartMedia\"]($2)"-        js_setCanStartMedia :: JSRef InternalSettings -> Bool -> IO ()+        js_setCanStartMedia :: InternalSettings -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setCanStartMedia Mozilla InternalSettings.setCanStartMedia documentation>  setCanStartMedia :: (MonadIO m) => InternalSettings -> Bool -> m () setCanStartMedia self enabled-  = liftIO (js_setCanStartMedia (unInternalSettings self) enabled)+  = liftIO (js_setCanStartMedia (self) enabled)   foreign import javascript unsafe         "$1[\"setShouldDisplayTrackKind\"]($2,\n$3)"         js_setShouldDisplayTrackKind ::-        JSRef InternalSettings -> JSString -> Bool -> IO ()+        InternalSettings -> JSString -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setShouldDisplayTrackKind Mozilla InternalSettings.setShouldDisplayTrackKind documentation>  setShouldDisplayTrackKind ::@@ -244,54 +230,45 @@                             InternalSettings -> kind -> Bool -> m () setShouldDisplayTrackKind self kind enabled   = liftIO-      (js_setShouldDisplayTrackKind (unInternalSettings self)-         (toJSString kind)-         enabled)+      (js_setShouldDisplayTrackKind (self) (toJSString kind) enabled)   foreign import javascript unsafe         "($1[\"shouldDisplayTrackKind\"]($2) ? 1 : 0)"         js_shouldDisplayTrackKind ::-        JSRef InternalSettings -> JSString -> IO Bool+        InternalSettings -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.shouldDisplayTrackKind Mozilla InternalSettings.shouldDisplayTrackKind documentation>  shouldDisplayTrackKind ::                        (MonadIO m, ToJSString trackKind) =>                          InternalSettings -> trackKind -> m Bool shouldDisplayTrackKind self trackKind-  = liftIO-      (js_shouldDisplayTrackKind (unInternalSettings self)-         (toJSString trackKind))+  = liftIO (js_shouldDisplayTrackKind (self) (toJSString trackKind))   foreign import javascript unsafe         "$1[\"setDefaultVideoPosterURL\"]($2)" js_setDefaultVideoPosterURL-        :: JSRef InternalSettings -> JSString -> IO ()+        :: InternalSettings -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setDefaultVideoPosterURL Mozilla InternalSettings.setDefaultVideoPosterURL documentation>  setDefaultVideoPosterURL ::                          (MonadIO m, ToJSString poster) =>                            InternalSettings -> poster -> m () setDefaultVideoPosterURL self poster-  = liftIO-      (js_setDefaultVideoPosterURL (unInternalSettings self)-         (toJSString poster))+  = liftIO (js_setDefaultVideoPosterURL (self) (toJSString poster))   foreign import javascript unsafe         "$1[\"setTimeWithoutMouseMovementBeforeHidingControls\"]($2)"         js_setTimeWithoutMouseMovementBeforeHidingControls ::-        JSRef InternalSettings -> Double -> IO ()+        InternalSettings -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setTimeWithoutMouseMovementBeforeHidingControls Mozilla InternalSettings.setTimeWithoutMouseMovementBeforeHidingControls documentation>  setTimeWithoutMouseMovementBeforeHidingControls ::                                                 (MonadIO m) => InternalSettings -> Double -> m () setTimeWithoutMouseMovementBeforeHidingControls self time   = liftIO-      (js_setTimeWithoutMouseMovementBeforeHidingControls-         (unInternalSettings self)-         time)+      (js_setTimeWithoutMouseMovementBeforeHidingControls (self) time)   foreign import javascript unsafe "$1[\"setMediaTypeOverride\"]($2)"-        js_setMediaTypeOverride ::-        JSRef InternalSettings -> JSString -> IO ()+        js_setMediaTypeOverride :: InternalSettings -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setMediaTypeOverride Mozilla InternalSettings.setMediaTypeOverride documentation>  setMediaTypeOverride ::@@ -299,143 +276,123 @@                        InternalSettings -> mediaTypeOverride -> m () setMediaTypeOverride self mediaTypeOverride   = liftIO-      (js_setMediaTypeOverride (unInternalSettings self)-         (toJSString mediaTypeOverride))+      (js_setMediaTypeOverride (self) (toJSString mediaTypeOverride))   foreign import javascript unsafe         "$1[\"setPluginReplacementEnabled\"]($2)"-        js_setPluginReplacementEnabled ::-        JSRef InternalSettings -> Bool -> IO ()+        js_setPluginReplacementEnabled :: InternalSettings -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setPluginReplacementEnabled Mozilla InternalSettings.setPluginReplacementEnabled documentation>  setPluginReplacementEnabled ::                             (MonadIO m) => InternalSettings -> Bool -> m () setPluginReplacementEnabled self enabled-  = liftIO-      (js_setPluginReplacementEnabled (unInternalSettings self) enabled)+  = liftIO (js_setPluginReplacementEnabled (self) enabled)   foreign import javascript unsafe "$1[\"setEditingBehavior\"]($2)"-        js_setEditingBehavior ::-        JSRef InternalSettings -> JSString -> IO ()+        js_setEditingBehavior :: InternalSettings -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setEditingBehavior Mozilla InternalSettings.setEditingBehavior documentation>  setEditingBehavior ::                    (MonadIO m, ToJSString behavior) =>                      InternalSettings -> behavior -> m () setEditingBehavior self behavior-  = liftIO-      (js_setEditingBehavior (unInternalSettings self)-         (toJSString behavior))+  = liftIO (js_setEditingBehavior (self) (toJSString behavior))   foreign import javascript unsafe         "$1[\"setShouldConvertPositionStyleOnCopy\"]($2)"         js_setShouldConvertPositionStyleOnCopy ::-        JSRef InternalSettings -> Bool -> IO ()+        InternalSettings -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setShouldConvertPositionStyleOnCopy Mozilla InternalSettings.setShouldConvertPositionStyleOnCopy documentation>  setShouldConvertPositionStyleOnCopy ::                                     (MonadIO m) => InternalSettings -> Bool -> m () setShouldConvertPositionStyleOnCopy self convert-  = liftIO-      (js_setShouldConvertPositionStyleOnCopy (unInternalSettings self)-         convert)+  = liftIO (js_setShouldConvertPositionStyleOnCopy (self) convert)   foreign import javascript unsafe         "$1[\"setLangAttributeAwareFormControlUIEnabled\"]($2)"         js_setLangAttributeAwareFormControlUIEnabled ::-        JSRef InternalSettings -> Bool -> IO ()+        InternalSettings -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setLangAttributeAwareFormControlUIEnabled Mozilla InternalSettings.setLangAttributeAwareFormControlUIEnabled documentation>  setLangAttributeAwareFormControlUIEnabled ::                                           (MonadIO m) => InternalSettings -> Bool -> m () setLangAttributeAwareFormControlUIEnabled self enabled   = liftIO-      (js_setLangAttributeAwareFormControlUIEnabled-         (unInternalSettings self)-         enabled)+      (js_setLangAttributeAwareFormControlUIEnabled (self) enabled)   foreign import javascript unsafe         "$1[\"setStorageBlockingPolicy\"]($2)" js_setStorageBlockingPolicy-        :: JSRef InternalSettings -> JSString -> IO ()+        :: InternalSettings -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setStorageBlockingPolicy Mozilla InternalSettings.setStorageBlockingPolicy documentation>  setStorageBlockingPolicy ::                          (MonadIO m, ToJSString policy) =>                            InternalSettings -> policy -> m () setStorageBlockingPolicy self policy-  = liftIO-      (js_setStorageBlockingPolicy (unInternalSettings self)-         (toJSString policy))+  = liftIO (js_setStorageBlockingPolicy (self) (toJSString policy))   foreign import javascript unsafe "$1[\"setImagesEnabled\"]($2)"-        js_setImagesEnabled :: JSRef InternalSettings -> Bool -> IO ()+        js_setImagesEnabled :: InternalSettings -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setImagesEnabled Mozilla InternalSettings.setImagesEnabled documentation>  setImagesEnabled :: (MonadIO m) => InternalSettings -> Bool -> m () setImagesEnabled self enabled-  = liftIO (js_setImagesEnabled (unInternalSettings self) enabled)+  = liftIO (js_setImagesEnabled (self) enabled)   foreign import javascript unsafe         "$1[\"setUseLegacyBackgroundSizeShorthandBehavior\"]($2)"         js_setUseLegacyBackgroundSizeShorthandBehavior ::-        JSRef InternalSettings -> Bool -> IO ()+        InternalSettings -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setUseLegacyBackgroundSizeShorthandBehavior Mozilla InternalSettings.setUseLegacyBackgroundSizeShorthandBehavior documentation>  setUseLegacyBackgroundSizeShorthandBehavior ::                                             (MonadIO m) => InternalSettings -> Bool -> m () setUseLegacyBackgroundSizeShorthandBehavior self enabled   = liftIO-      (js_setUseLegacyBackgroundSizeShorthandBehavior-         (unInternalSettings self)-         enabled)+      (js_setUseLegacyBackgroundSizeShorthandBehavior (self) enabled)   foreign import javascript unsafe         "$1[\"setAutoscrollForDragAndDropEnabled\"]($2)"         js_setAutoscrollForDragAndDropEnabled ::-        JSRef InternalSettings -> Bool -> IO ()+        InternalSettings -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setAutoscrollForDragAndDropEnabled Mozilla InternalSettings.setAutoscrollForDragAndDropEnabled documentation>  setAutoscrollForDragAndDropEnabled ::                                    (MonadIO m) => InternalSettings -> Bool -> m () setAutoscrollForDragAndDropEnabled self enabled-  = liftIO-      (js_setAutoscrollForDragAndDropEnabled (unInternalSettings self)-         enabled)+  = liftIO (js_setAutoscrollForDragAndDropEnabled (self) enabled)   foreign import javascript unsafe         "$1[\"setBackgroundShouldExtendBeyondPage\"]($2)"         js_setBackgroundShouldExtendBeyondPage ::-        JSRef InternalSettings -> Bool -> IO ()+        InternalSettings -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setBackgroundShouldExtendBeyondPage Mozilla InternalSettings.setBackgroundShouldExtendBeyondPage documentation>  setBackgroundShouldExtendBeyondPage ::                                     (MonadIO m) => InternalSettings -> Bool -> m () setBackgroundShouldExtendBeyondPage self hasExtendedBackground   = liftIO-      (js_setBackgroundShouldExtendBeyondPage (unInternalSettings self)+      (js_setBackgroundShouldExtendBeyondPage (self)          hasExtendedBackground)   foreign import javascript unsafe         "$1[\"setScrollingTreeIncludesFrames\"]($2)"         js_setScrollingTreeIncludesFrames ::-        JSRef InternalSettings -> Bool -> IO ()+        InternalSettings -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setScrollingTreeIncludesFrames Mozilla InternalSettings.setScrollingTreeIncludesFrames documentation>  setScrollingTreeIncludesFrames ::                                (MonadIO m) => InternalSettings -> Bool -> m () setScrollingTreeIncludesFrames self enabled-  = liftIO-      (js_setScrollingTreeIncludesFrames (unInternalSettings self)-         enabled)+  = liftIO (js_setScrollingTreeIncludesFrames (self) enabled)   foreign import javascript unsafe         "$1[\"setMinimumTimerInterval\"]($2)" js_setMinimumTimerInterval ::-        JSRef InternalSettings -> Double -> IO ()+        InternalSettings -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/InternalSettings.setMinimumTimerInterval Mozilla InternalSettings.setMinimumTimerInterval documentation>  setMinimumTimerInterval ::                         (MonadIO m) => InternalSettings -> Double -> m () setMinimumTimerInterval self intervalInSeconds-  = liftIO-      (js_setMinimumTimerInterval (unInternalSettings self)-         intervalInSeconds)+  = liftIO (js_setMinimumTimerInterval (self) intervalInSeconds)
src/GHCJS/DOM/JSFFI/Generated/Internals.hs view
@@ -171,7 +171,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -185,7 +185,7 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"address\"]($2)" js_address-        :: JSRef Internals -> JSRef Node -> IO JSString+        :: Internals -> Nullable Node -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.address Mozilla Internals.address documentation>  address ::@@ -194,36 +194,33 @@ address self node   = liftIO       (fromJSString <$>-         (js_address (unInternals self)-            (maybe jsNull (unNode . toNode) node)))+         (js_address (self) (maybeToNullable (fmap toNode node))))   foreign import javascript unsafe         "($1[\"nodeNeedsStyleRecalc\"]($2) ? 1 : 0)"-        js_nodeNeedsStyleRecalc :: JSRef Internals -> JSRef Node -> IO Bool+        js_nodeNeedsStyleRecalc :: Internals -> Nullable Node -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodeNeedsStyleRecalc Mozilla Internals.nodeNeedsStyleRecalc documentation>  nodeNeedsStyleRecalc ::                      (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool nodeNeedsStyleRecalc self node   = liftIO-      (js_nodeNeedsStyleRecalc (unInternals self)-         (maybe jsNull (unNode . toNode) node))+      (js_nodeNeedsStyleRecalc (self)+         (maybeToNullable (fmap toNode node)))   foreign import javascript unsafe "$1[\"description\"]($2)"-        js_description :: JSRef Internals -> JSRef a -> IO JSString+        js_description :: Internals -> JSRef -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.description Mozilla Internals.description documentation>  description ::-            (MonadIO m, FromJSString result) =>-              Internals -> JSRef a -> m result+            (MonadIO m, FromJSString result) => Internals -> JSRef -> m result description self value-  = liftIO-      (fromJSString <$> (js_description (unInternals self) value))+  = liftIO (fromJSString <$> (js_description (self) value))   foreign import javascript unsafe         "($1[\"hasPausedImageAnimations\"]($2) ? 1 : 0)"         js_hasPausedImageAnimations ::-        JSRef Internals -> JSRef Element -> IO Bool+        Internals -> Nullable Element -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasPausedImageAnimations Mozilla Internals.hasPausedImageAnimations documentation>  hasPausedImageAnimations ::@@ -231,12 +228,12 @@                            Internals -> Maybe element -> m Bool hasPausedImageAnimations self element   = liftIO-      (js_hasPausedImageAnimations (unInternals self)-         (maybe jsNull (unElement . toElement) element))+      (js_hasPausedImageAnimations (self)+         (maybeToNullable (fmap toElement element)))   foreign import javascript unsafe         "$1[\"elementRenderTreeAsText\"]($2)" js_elementRenderTreeAsText ::-        JSRef Internals -> JSRef Element -> IO JSString+        Internals -> Nullable Element -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementRenderTreeAsText Mozilla Internals.elementRenderTreeAsText documentation>  elementRenderTreeAsText ::@@ -245,34 +242,32 @@ elementRenderTreeAsText self element   = liftIO       (fromJSString <$>-         (js_elementRenderTreeAsText (unInternals self)-            (maybe jsNull (unElement . toElement) element)))+         (js_elementRenderTreeAsText (self)+            (maybeToNullable (fmap toElement element))))   foreign import javascript unsafe         "($1[\"isPreloaded\"]($2) ? 1 : 0)" js_isPreloaded ::-        JSRef Internals -> JSString -> IO Bool+        Internals -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPreloaded Mozilla Internals.isPreloaded documentation>  isPreloaded ::             (MonadIO m, ToJSString url) => Internals -> url -> m Bool isPreloaded self url-  = liftIO (js_isPreloaded (unInternals self) (toJSString url))+  = liftIO (js_isPreloaded (self) (toJSString url))   foreign import javascript unsafe         "($1[\"isLoadingFromMemoryCache\"]($2) ? 1 : 0)"-        js_isLoadingFromMemoryCache ::-        JSRef Internals -> JSString -> IO Bool+        js_isLoadingFromMemoryCache :: Internals -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isLoadingFromMemoryCache Mozilla Internals.isLoadingFromMemoryCache documentation>  isLoadingFromMemoryCache ::                          (MonadIO m, ToJSString url) => Internals -> url -> m Bool isLoadingFromMemoryCache self url-  = liftIO-      (js_isLoadingFromMemoryCache (unInternals self) (toJSString url))+  = liftIO (js_isLoadingFromMemoryCache (self) (toJSString url))   foreign import javascript unsafe "$1[\"xhrResponseSource\"]($2)"         js_xhrResponseSource ::-        JSRef Internals -> JSRef XMLHttpRequest -> IO JSString+        Internals -> Nullable XMLHttpRequest -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.xhrResponseSource Mozilla Internals.xhrResponseSource documentation>  xhrResponseSource ::@@ -281,52 +276,49 @@ xhrResponseSource self xhr   = liftIO       (fromJSString <$>-         (js_xhrResponseSource (unInternals self)-            (maybe jsNull pToJSRef xhr)))+         (js_xhrResponseSource (self) (maybeToNullable xhr)))   foreign import javascript unsafe "$1[\"clearMemoryCache\"]()"-        js_clearMemoryCache :: JSRef Internals -> IO ()+        js_clearMemoryCache :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.clearMemoryCache Mozilla Internals.clearMemoryCache documentation>  clearMemoryCache :: (MonadIO m) => Internals -> m ()-clearMemoryCache self-  = liftIO (js_clearMemoryCache (unInternals self))+clearMemoryCache self = liftIO (js_clearMemoryCache (self))   foreign import javascript unsafe         "$1[\"pruneMemoryCacheToSize\"]($2)" js_pruneMemoryCacheToSize ::-        JSRef Internals -> Int -> IO ()+        Internals -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pruneMemoryCacheToSize Mozilla Internals.pruneMemoryCacheToSize documentation>  pruneMemoryCacheToSize :: (MonadIO m) => Internals -> Int -> m () pruneMemoryCacheToSize self size-  = liftIO (js_pruneMemoryCacheToSize (unInternals self) size)+  = liftIO (js_pruneMemoryCacheToSize (self) size)   foreign import javascript unsafe "$1[\"memoryCacheSize\"]()"-        js_memoryCacheSize :: JSRef Internals -> IO Int+        js_memoryCacheSize :: Internals -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryCacheSize Mozilla Internals.memoryCacheSize documentation>  memoryCacheSize :: (MonadIO m) => Internals -> m Int-memoryCacheSize self-  = liftIO (js_memoryCacheSize (unInternals self))+memoryCacheSize self = liftIO (js_memoryCacheSize (self))   foreign import javascript unsafe "$1[\"clearPageCache\"]()"-        js_clearPageCache :: JSRef Internals -> IO ()+        js_clearPageCache :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.clearPageCache Mozilla Internals.clearPageCache documentation>  clearPageCache :: (MonadIO m) => Internals -> m ()-clearPageCache self = liftIO (js_clearPageCache (unInternals self))+clearPageCache self = liftIO (js_clearPageCache (self))   foreign import javascript unsafe "$1[\"pageCacheSize\"]()"-        js_pageCacheSize :: JSRef Internals -> IO Word+        js_pageCacheSize :: Internals -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageCacheSize Mozilla Internals.pageCacheSize documentation>  pageCacheSize :: (MonadIO m) => Internals -> m Word-pageCacheSize self = liftIO (js_pageCacheSize (unInternals self))+pageCacheSize self = liftIO (js_pageCacheSize (self))   foreign import javascript unsafe         "$1[\"computedStyleIncludingVisitedInfo\"]($2)"         js_computedStyleIncludingVisitedInfo ::-        JSRef Internals -> JSRef Node -> IO (JSRef CSSStyleDeclaration)+        Internals -> Nullable Node -> IO (Nullable CSSStyleDeclaration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.computedStyleIncludingVisitedInfo Mozilla Internals.computedStyleIncludingVisitedInfo documentation>  computedStyleIncludingVisitedInfo ::@@ -334,13 +326,13 @@                                     Internals -> Maybe node -> m (Maybe CSSStyleDeclaration) computedStyleIncludingVisitedInfo self node   = liftIO-      ((js_computedStyleIncludingVisitedInfo (unInternals self)-          (maybe jsNull (unNode . toNode) node))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_computedStyleIncludingVisitedInfo (self)+            (maybeToNullable (fmap toNode node))))   foreign import javascript unsafe "$1[\"ensureShadowRoot\"]($2)"         js_ensureShadowRoot ::-        JSRef Internals -> JSRef Element -> IO (JSRef Node)+        Internals -> Nullable Element -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.ensureShadowRoot Mozilla Internals.ensureShadowRoot documentation>  ensureShadowRoot ::@@ -348,13 +340,13 @@                    Internals -> Maybe host -> m (Maybe Node) ensureShadowRoot self host   = liftIO-      ((js_ensureShadowRoot (unInternals self)-          (maybe jsNull (unElement . toElement) host))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_ensureShadowRoot (self)+            (maybeToNullable (fmap toElement host))))   foreign import javascript unsafe "$1[\"createShadowRoot\"]($2)"         js_createShadowRoot ::-        JSRef Internals -> JSRef Element -> IO (JSRef Node)+        Internals -> Nullable Element -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createShadowRoot Mozilla Internals.createShadowRoot documentation>  createShadowRoot ::@@ -362,13 +354,13 @@                    Internals -> Maybe host -> m (Maybe Node) createShadowRoot self host   = liftIO-      ((js_createShadowRoot (unInternals self)-          (maybe jsNull (unElement . toElement) host))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createShadowRoot (self)+            (maybeToNullable (fmap toElement host))))   foreign import javascript unsafe "$1[\"shadowRoot\"]($2)"         js_shadowRoot ::-        JSRef Internals -> JSRef Element -> IO (JSRef Node)+        Internals -> Nullable Element -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRoot Mozilla Internals.shadowRoot documentation>  shadowRoot ::@@ -376,12 +368,11 @@              Internals -> Maybe host -> m (Maybe Node) shadowRoot self host   = liftIO-      ((js_shadowRoot (unInternals self)-          (maybe jsNull (unElement . toElement) host))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_shadowRoot (self) (maybeToNullable (fmap toElement host))))   foreign import javascript unsafe "$1[\"shadowRootType\"]($2)"-        js_shadowRootType :: JSRef Internals -> JSRef Node -> IO JSString+        js_shadowRootType :: Internals -> Nullable Node -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowRootType Mozilla Internals.shadowRootType documentation>  shadowRootType ::@@ -390,12 +381,11 @@ shadowRootType self root   = liftIO       (fromJSString <$>-         (js_shadowRootType (unInternals self)-            (maybe jsNull (unNode . toNode) root)))+         (js_shadowRootType (self) (maybeToNullable (fmap toNode root))))   foreign import javascript unsafe "$1[\"includerFor\"]($2)"         js_includerFor ::-        JSRef Internals -> JSRef Node -> IO (JSRef Element)+        Internals -> Nullable Node -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.includerFor Mozilla Internals.includerFor documentation>  includerFor ::@@ -403,13 +393,11 @@               Internals -> Maybe node -> m (Maybe Element) includerFor self node   = liftIO-      ((js_includerFor (unInternals self)-          (maybe jsNull (unNode . toNode) node))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_includerFor (self) (maybeToNullable (fmap toNode node))))   foreign import javascript unsafe "$1[\"shadowPseudoId\"]($2)"-        js_shadowPseudoId ::-        JSRef Internals -> JSRef Element -> IO JSString+        js_shadowPseudoId :: Internals -> Nullable Element -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shadowPseudoId Mozilla Internals.shadowPseudoId documentation>  shadowPseudoId ::@@ -418,12 +406,12 @@ shadowPseudoId self element   = liftIO       (fromJSString <$>-         (js_shadowPseudoId (unInternals self)-            (maybe jsNull (unElement . toElement) element)))+         (js_shadowPseudoId (self)+            (maybeToNullable (fmap toElement element))))   foreign import javascript unsafe         "$1[\"setShadowPseudoId\"]($2, $3)" js_setShadowPseudoId ::-        JSRef Internals -> JSRef Element -> JSString -> IO ()+        Internals -> Nullable Element -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setShadowPseudoId Mozilla Internals.setShadowPseudoId documentation>  setShadowPseudoId ::@@ -431,13 +419,13 @@                     Internals -> Maybe element -> id -> m () setShadowPseudoId self element id   = liftIO-      (js_setShadowPseudoId (unInternals self)-         (maybe jsNull (unElement . toElement) element)+      (js_setShadowPseudoId (self)+         (maybeToNullable (fmap toElement element))          (toJSString id))   foreign import javascript unsafe "$1[\"treeScopeRootNode\"]($2)"         js_treeScopeRootNode ::-        JSRef Internals -> JSRef Node -> IO (JSRef Node)+        Internals -> Nullable Node -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.treeScopeRootNode Mozilla Internals.treeScopeRootNode documentation>  treeScopeRootNode ::@@ -445,13 +433,12 @@                     Internals -> Maybe node -> m (Maybe Node) treeScopeRootNode self node   = liftIO-      ((js_treeScopeRootNode (unInternals self)-          (maybe jsNull (unNode . toNode) node))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_treeScopeRootNode (self) (maybeToNullable (fmap toNode node))))   foreign import javascript unsafe "$1[\"parentTreeScope\"]($2)"         js_parentTreeScope ::-        JSRef Internals -> JSRef Node -> IO (JSRef Node)+        Internals -> Nullable Node -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parentTreeScope Mozilla Internals.parentTreeScope documentation>  parentTreeScope ::@@ -459,60 +446,55 @@                   Internals -> Maybe node -> m (Maybe Node) parentTreeScope self node   = liftIO-      ((js_parentTreeScope (unInternals self)-          (maybe jsNull (unNode . toNode) node))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_parentTreeScope (self) (maybeToNullable (fmap toNode node))))   foreign import javascript unsafe         "$1[\"lastSpatialNavigationCandidateCount\"]()"-        js_lastSpatialNavigationCandidateCount ::-        JSRef Internals -> IO Word+        js_lastSpatialNavigationCandidateCount :: Internals -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpatialNavigationCandidateCount Mozilla Internals.lastSpatialNavigationCandidateCount documentation>  lastSpatialNavigationCandidateCount ::                                     (MonadIO m) => Internals -> m Word lastSpatialNavigationCandidateCount self-  = liftIO-      (js_lastSpatialNavigationCandidateCount (unInternals self))+  = liftIO (js_lastSpatialNavigationCandidateCount (self))   foreign import javascript unsafe         "$1[\"numberOfActiveAnimations\"]()" js_numberOfActiveAnimations ::-        JSRef Internals -> IO Word+        Internals -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfActiveAnimations Mozilla Internals.numberOfActiveAnimations documentation>  numberOfActiveAnimations :: (MonadIO m) => Internals -> m Word numberOfActiveAnimations self-  = liftIO (js_numberOfActiveAnimations (unInternals self))+  = liftIO (js_numberOfActiveAnimations (self))   foreign import javascript unsafe "$1[\"suspendAnimations\"]()"-        js_suspendAnimations :: JSRef Internals -> IO ()+        js_suspendAnimations :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.suspendAnimations Mozilla Internals.suspendAnimations documentation>  suspendAnimations :: (MonadIO m) => Internals -> m ()-suspendAnimations self-  = liftIO (js_suspendAnimations (unInternals self))+suspendAnimations self = liftIO (js_suspendAnimations (self))   foreign import javascript unsafe "$1[\"resumeAnimations\"]()"-        js_resumeAnimations :: JSRef Internals -> IO ()+        js_resumeAnimations :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.resumeAnimations Mozilla Internals.resumeAnimations documentation>  resumeAnimations :: (MonadIO m) => Internals -> m ()-resumeAnimations self-  = liftIO (js_resumeAnimations (unInternals self))+resumeAnimations self = liftIO (js_resumeAnimations (self))   foreign import javascript unsafe         "($1[\"animationsAreSuspended\"]() ? 1 : 0)"-        js_animationsAreSuspended :: JSRef Internals -> IO Bool+        js_animationsAreSuspended :: Internals -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.animationsAreSuspended Mozilla Internals.animationsAreSuspended documentation>  animationsAreSuspended :: (MonadIO m) => Internals -> m Bool animationsAreSuspended self-  = liftIO (js_animationsAreSuspended (unInternals self))+  = liftIO (js_animationsAreSuspended (self))   foreign import javascript unsafe         "($1[\"pauseAnimationAtTimeOnElement\"]($2,\n$3, $4) ? 1 : 0)"         js_pauseAnimationAtTimeOnElement ::-        JSRef Internals -> JSString -> Double -> JSRef Element -> IO Bool+        Internals -> JSString -> Double -> Nullable Element -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseAnimationAtTimeOnElement Mozilla Internals.pauseAnimationAtTimeOnElement documentation>  pauseAnimationAtTimeOnElement ::@@ -520,16 +502,15 @@                                 Internals -> animationName -> Double -> Maybe element -> m Bool pauseAnimationAtTimeOnElement self animationName pauseTime element   = liftIO-      (js_pauseAnimationAtTimeOnElement (unInternals self)-         (toJSString animationName)+      (js_pauseAnimationAtTimeOnElement (self) (toJSString animationName)          pauseTime-         (maybe jsNull (unElement . toElement) element))+         (maybeToNullable (fmap toElement element)))   foreign import javascript unsafe         "($1[\"pauseAnimationAtTimeOnPseudoElement\"]($2,\n$3, $4, $5) ? 1 : 0)"         js_pauseAnimationAtTimeOnPseudoElement ::-        JSRef Internals ->-          JSString -> Double -> JSRef Element -> JSString -> IO Bool+        Internals ->+          JSString -> Double -> Nullable Element -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseAnimationAtTimeOnPseudoElement Mozilla Internals.pauseAnimationAtTimeOnPseudoElement documentation>  pauseAnimationAtTimeOnPseudoElement ::@@ -541,16 +522,16 @@ pauseAnimationAtTimeOnPseudoElement self animationName pauseTime   element pseudoId   = liftIO-      (js_pauseAnimationAtTimeOnPseudoElement (unInternals self)+      (js_pauseAnimationAtTimeOnPseudoElement (self)          (toJSString animationName)          pauseTime-         (maybe jsNull (unElement . toElement) element)+         (maybeToNullable (fmap toElement element))          (toJSString pseudoId))   foreign import javascript unsafe         "($1[\"pauseTransitionAtTimeOnElement\"]($2,\n$3, $4) ? 1 : 0)"         js_pauseTransitionAtTimeOnElement ::-        JSRef Internals -> JSString -> Double -> JSRef Element -> IO Bool+        Internals -> JSString -> Double -> Nullable Element -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseTransitionAtTimeOnElement Mozilla Internals.pauseTransitionAtTimeOnElement documentation>  pauseTransitionAtTimeOnElement ::@@ -558,16 +539,15 @@                                  Internals -> propertyName -> Double -> Maybe element -> m Bool pauseTransitionAtTimeOnElement self propertyName pauseTime element   = liftIO-      (js_pauseTransitionAtTimeOnElement (unInternals self)-         (toJSString propertyName)+      (js_pauseTransitionAtTimeOnElement (self) (toJSString propertyName)          pauseTime-         (maybe jsNull (unElement . toElement) element))+         (maybeToNullable (fmap toElement element)))   foreign import javascript unsafe         "($1[\"pauseTransitionAtTimeOnPseudoElement\"]($2,\n$3, $4, $5) ? 1 : 0)"         js_pauseTransitionAtTimeOnPseudoElement ::-        JSRef Internals ->-          JSString -> Double -> JSRef Element -> JSString -> IO Bool+        Internals ->+          JSString -> Double -> Nullable Element -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pauseTransitionAtTimeOnPseudoElement Mozilla Internals.pauseTransitionAtTimeOnPseudoElement documentation>  pauseTransitionAtTimeOnPseudoElement ::@@ -578,26 +558,24 @@ pauseTransitionAtTimeOnPseudoElement self property pauseTime   element pseudoId   = liftIO-      (js_pauseTransitionAtTimeOnPseudoElement (unInternals self)+      (js_pauseTransitionAtTimeOnPseudoElement (self)          (toJSString property)          pauseTime-         (maybe jsNull (unElement . toElement) element)+         (maybeToNullable (fmap toElement element))          (toJSString pseudoId))   foreign import javascript unsafe "($1[\"attached\"]($2) ? 1 : 0)"-        js_attached :: JSRef Internals -> JSRef Node -> IO Bool+        js_attached :: Internals -> Nullable Node -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.attached Mozilla Internals.attached documentation>  attached ::          (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool attached self node-  = liftIO-      (js_attached (unInternals self)-         (maybe jsNull (unNode . toNode) node))+  = liftIO (js_attached (self) (maybeToNullable (fmap toNode node)))   foreign import javascript unsafe "$1[\"visiblePlaceholder\"]($2)"         js_visiblePlaceholder ::-        JSRef Internals -> JSRef Element -> IO JSString+        Internals -> Nullable Element -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.visiblePlaceholder Mozilla Internals.visiblePlaceholder documentation>  visiblePlaceholder ::@@ -606,13 +584,13 @@ visiblePlaceholder self element   = liftIO       (fromJSString <$>-         (js_visiblePlaceholder (unInternals self)-            (maybe jsNull (unElement . toElement) element)))+         (js_visiblePlaceholder (self)+            (maybeToNullable (fmap toElement element))))   foreign import javascript unsafe         "$1[\"selectColorInColorChooser\"]($2,\n$3)"         js_selectColorInColorChooser ::-        JSRef Internals -> JSRef Element -> JSString -> IO ()+        Internals -> Nullable Element -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectColorInColorChooser Mozilla Internals.selectColorInColorChooser documentation>  selectColorInColorChooser ::@@ -620,27 +598,26 @@                             Internals -> Maybe element -> colorValue -> m () selectColorInColorChooser self element colorValue   = liftIO-      (js_selectColorInColorChooser (unInternals self)-         (maybe jsNull (unElement . toElement) element)+      (js_selectColorInColorChooser (self)+         (maybeToNullable (fmap toElement element))          (toJSString colorValue))   foreign import javascript unsafe         "$1[\"formControlStateOfPreviousHistoryItem\"]()"-        js_formControlStateOfPreviousHistoryItem ::-        JSRef Internals -> IO (JSRef [result])+        js_formControlStateOfPreviousHistoryItem :: Internals -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.formControlStateOfPreviousHistoryItem Mozilla Internals.formControlStateOfPreviousHistoryItem documentation>  formControlStateOfPreviousHistoryItem ::                                       (MonadIO m, FromJSString result) => Internals -> m [result] formControlStateOfPreviousHistoryItem self   = liftIO-      ((js_formControlStateOfPreviousHistoryItem (unInternals self)) >>=+      ((js_formControlStateOfPreviousHistoryItem (self)) >>=          fromJSRefUnchecked)   foreign import javascript unsafe         "$1[\"setFormControlStateOfPreviousHistoryItem\"]($2)"         js_setFormControlStateOfPreviousHistoryItem ::-        JSRef Internals -> JSRef [values] -> IO ()+        Internals -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setFormControlStateOfPreviousHistoryItem Mozilla Internals.setFormControlStateOfPreviousHistoryItem documentation>  setFormControlStateOfPreviousHistoryItem ::@@ -650,22 +627,20 @@   = liftIO       (toJSRef values >>=          \ values' ->-           js_setFormControlStateOfPreviousHistoryItem (unInternals self)-             values')+           js_setFormControlStateOfPreviousHistoryItem (self) values')   foreign import javascript unsafe "$1[\"absoluteCaretBounds\"]()"-        js_absoluteCaretBounds :: JSRef Internals -> IO (JSRef ClientRect)+        js_absoluteCaretBounds :: Internals -> IO (Nullable ClientRect)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.absoluteCaretBounds Mozilla Internals.absoluteCaretBounds documentation>  absoluteCaretBounds ::                     (MonadIO m) => Internals -> m (Maybe ClientRect) absoluteCaretBounds self-  = liftIO-      ((js_absoluteCaretBounds (unInternals self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_absoluteCaretBounds (self)))   foreign import javascript unsafe "$1[\"boundingBox\"]($2)"         js_boundingBox ::-        JSRef Internals -> JSRef Element -> IO (JSRef ClientRect)+        Internals -> Nullable Element -> IO (Nullable ClientRect)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.boundingBox Mozilla Internals.boundingBox documentation>  boundingBox ::@@ -673,35 +648,32 @@               Internals -> Maybe element -> m (Maybe ClientRect) boundingBox self element   = liftIO-      ((js_boundingBox (unInternals self)-          (maybe jsNull (unElement . toElement) element))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_boundingBox (self) (maybeToNullable (fmap toElement element))))   foreign import javascript unsafe         "$1[\"inspectorHighlightRects\"]()" js_inspectorHighlightRects ::-        JSRef Internals -> IO (JSRef ClientRectList)+        Internals -> IO (Nullable ClientRectList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightRects Mozilla Internals.inspectorHighlightRects documentation>  inspectorHighlightRects ::                         (MonadIO m) => Internals -> m (Maybe ClientRectList) inspectorHighlightRects self-  = liftIO-      ((js_inspectorHighlightRects (unInternals self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_inspectorHighlightRects (self)))   foreign import javascript unsafe         "$1[\"inspectorHighlightObject\"]()" js_inspectorHighlightObject ::-        JSRef Internals -> IO JSString+        Internals -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.inspectorHighlightObject Mozilla Internals.inspectorHighlightObject documentation>  inspectorHighlightObject ::                          (MonadIO m, FromJSString result) => Internals -> m result inspectorHighlightObject self-  = liftIO-      (fromJSString <$> (js_inspectorHighlightObject (unInternals self)))+  = liftIO (fromJSString <$> (js_inspectorHighlightObject (self)))   foreign import javascript unsafe         "$1[\"markerCountForNode\"]($2, $3)" js_markerCountForNode ::-        JSRef Internals -> JSRef Node -> JSString -> IO Word+        Internals -> Nullable Node -> JSString -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerCountForNode Mozilla Internals.markerCountForNode documentation>  markerCountForNode ::@@ -709,14 +681,13 @@                      Internals -> Maybe node -> markerType -> m Word markerCountForNode self node markerType   = liftIO-      (js_markerCountForNode (unInternals self)-         (maybe jsNull (unNode . toNode) node)+      (js_markerCountForNode (self) (maybeToNullable (fmap toNode node))          (toJSString markerType))   foreign import javascript unsafe         "$1[\"markerRangeForNode\"]($2, $3,\n$4)" js_markerRangeForNode ::-        JSRef Internals ->-          JSRef Node -> JSString -> Word -> IO (JSRef Range)+        Internals ->+          Nullable Node -> JSString -> Word -> IO (Nullable Range)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerRangeForNode Mozilla Internals.markerRangeForNode documentation>  markerRangeForNode ::@@ -724,16 +695,15 @@                      Internals -> Maybe node -> markerType -> Word -> m (Maybe Range) markerRangeForNode self node markerType index   = liftIO-      ((js_markerRangeForNode (unInternals self)-          (maybe jsNull (unNode . toNode) node)-          (toJSString markerType)-          index)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_markerRangeForNode (self) (maybeToNullable (fmap toNode node))+            (toJSString markerType)+            index))   foreign import javascript unsafe         "$1[\"markerDescriptionForNode\"]($2,\n$3, $4)"         js_markerDescriptionForNode ::-        JSRef Internals -> JSRef Node -> JSString -> Word -> IO JSString+        Internals -> Nullable Node -> JSString -> Word -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerDescriptionForNode Mozilla Internals.markerDescriptionForNode documentation>  markerDescriptionForNode ::@@ -743,71 +713,64 @@ markerDescriptionForNode self node markerType index   = liftIO       (fromJSString <$>-         (js_markerDescriptionForNode (unInternals self)-            (maybe jsNull (unNode . toNode) node)+         (js_markerDescriptionForNode (self)+            (maybeToNullable (fmap toNode node))             (toJSString markerType)             index))   foreign import javascript unsafe         "$1[\"addTextMatchMarker\"]($2, $3)" js_addTextMatchMarker ::-        JSRef Internals -> JSRef Range -> Bool -> IO ()+        Internals -> Nullable Range -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.addTextMatchMarker Mozilla Internals.addTextMatchMarker documentation>  addTextMatchMarker ::                    (MonadIO m) => Internals -> Maybe Range -> Bool -> m () addTextMatchMarker self range isActive   = liftIO-      (js_addTextMatchMarker (unInternals self)-         (maybe jsNull pToJSRef range)-         isActive)+      (js_addTextMatchMarker (self) (maybeToNullable range) isActive)   foreign import javascript unsafe         "$1[\"setMarkedTextMatchesAreHighlighted\"]($2)"-        js_setMarkedTextMatchesAreHighlighted ::-        JSRef Internals -> Bool -> IO ()+        js_setMarkedTextMatchesAreHighlighted :: Internals -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setMarkedTextMatchesAreHighlighted Mozilla Internals.setMarkedTextMatchesAreHighlighted documentation>  setMarkedTextMatchesAreHighlighted ::                                    (MonadIO m) => Internals -> Bool -> m () setMarkedTextMatchesAreHighlighted self flag-  = liftIO-      (js_setMarkedTextMatchesAreHighlighted (unInternals self) flag)+  = liftIO (js_setMarkedTextMatchesAreHighlighted (self) flag)   foreign import javascript unsafe "$1[\"invalidateFontCache\"]()"-        js_invalidateFontCache :: JSRef Internals -> IO ()+        js_invalidateFontCache :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.invalidateFontCache Mozilla Internals.invalidateFontCache documentation>  invalidateFontCache :: (MonadIO m) => Internals -> m ()-invalidateFontCache self-  = liftIO (js_invalidateFontCache (unInternals self))+invalidateFontCache self = liftIO (js_invalidateFontCache (self))   foreign import javascript unsafe         "$1[\"setScrollViewPosition\"]($2,\n$3)" js_setScrollViewPosition-        :: JSRef Internals -> Int -> Int -> IO ()+        :: Internals -> Int -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setScrollViewPosition Mozilla Internals.setScrollViewPosition documentation>  setScrollViewPosition ::                       (MonadIO m) => Internals -> Int -> Int -> m () setScrollViewPosition self x y-  = liftIO (js_setScrollViewPosition (unInternals self) x y)+  = liftIO (js_setScrollViewPosition (self) x y)   foreign import javascript unsafe         "$1[\"setPagination\"]($2, $3, $4)" js_setPagination ::-        JSRef Internals -> JSString -> Int -> Int -> IO ()+        Internals -> JSString -> Int -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPagination Mozilla Internals.setPagination documentation>  setPagination ::               (MonadIO m, ToJSString mode) =>                 Internals -> mode -> Int -> Int -> m () setPagination self mode gap pageLength-  = liftIO-      (js_setPagination (unInternals self) (toJSString mode) gap-         pageLength)+  = liftIO (js_setPagination (self) (toJSString mode) gap pageLength)   foreign import javascript unsafe         "$1[\"configurationForViewport\"]($2,\n$3, $4, $5, $6)"         js_configurationForViewport ::-        JSRef Internals -> Float -> Int -> Int -> Int -> Int -> IO JSString+        Internals -> Float -> Int -> Int -> Int -> Int -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.configurationForViewport Mozilla Internals.configurationForViewport documentation>  configurationForViewport ::@@ -817,8 +780,7 @@   deviceHeight availableWidth availableHeight   = liftIO       (fromJSString <$>-         (js_configurationForViewport (unInternals self) devicePixelRatio-            deviceWidth+         (js_configurationForViewport (self) devicePixelRatio deviceWidth             deviceHeight             availableWidth             availableHeight))@@ -826,7 +788,7 @@ foreign import javascript unsafe         "($1[\"wasLastChangeUserEdit\"]($2) ? 1 : 0)"         js_wasLastChangeUserEdit ::-        JSRef Internals -> JSRef Element -> IO Bool+        Internals -> Nullable Element -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wasLastChangeUserEdit Mozilla Internals.wasLastChangeUserEdit documentation>  wasLastChangeUserEdit ::@@ -834,13 +796,13 @@                         Internals -> Maybe textField -> m Bool wasLastChangeUserEdit self textField   = liftIO-      (js_wasLastChangeUserEdit (unInternals self)-         (maybe jsNull (unElement . toElement) textField))+      (js_wasLastChangeUserEdit (self)+         (maybeToNullable (fmap toElement textField)))   foreign import javascript unsafe         "($1[\"elementShouldAutoComplete\"]($2) ? 1 : 0)"         js_elementShouldAutoComplete ::-        JSRef Internals -> JSRef Element -> IO Bool+        Internals -> Nullable Element -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementShouldAutoComplete Mozilla Internals.elementShouldAutoComplete documentation>  elementShouldAutoComplete ::@@ -848,12 +810,12 @@                             Internals -> Maybe inputElement -> m Bool elementShouldAutoComplete self inputElement   = liftIO-      (js_elementShouldAutoComplete (unInternals self)-         (maybe jsNull (unElement . toElement) inputElement))+      (js_elementShouldAutoComplete (self)+         (maybeToNullable (fmap toElement inputElement)))   foreign import javascript unsafe "$1[\"setEditingValue\"]($2, $3)"         js_setEditingValue ::-        JSRef Internals -> JSRef Element -> JSString -> IO ()+        Internals -> Nullable Element -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setEditingValue Mozilla Internals.setEditingValue documentation>  setEditingValue ::@@ -861,13 +823,12 @@                   Internals -> Maybe inputElement -> value -> m () setEditingValue self inputElement value   = liftIO-      (js_setEditingValue (unInternals self)-         (maybe jsNull (unElement . toElement) inputElement)+      (js_setEditingValue (self)+         (maybeToNullable (fmap toElement inputElement))          (toJSString value))   foreign import javascript unsafe "$1[\"setAutofilled\"]($2, $3)"-        js_setAutofilled ::-        JSRef Internals -> JSRef Element -> Bool -> IO ()+        js_setAutofilled :: Internals -> Nullable Element -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutofilled Mozilla Internals.setAutofilled documentation>  setAutofilled ::@@ -875,13 +836,13 @@                 Internals -> Maybe inputElement -> Bool -> m () setAutofilled self inputElement enabled   = liftIO-      (js_setAutofilled (unInternals self)-         (maybe jsNull (unElement . toElement) inputElement)+      (js_setAutofilled (self)+         (maybeToNullable (fmap toElement inputElement))          enabled)   foreign import javascript unsafe         "$1[\"countMatchesForText\"]($2,\n$3, $4)" js_countMatchesForText-        :: JSRef Internals -> JSString -> Word -> JSString -> IO Word+        :: Internals -> JSString -> Word -> JSString -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.countMatchesForText Mozilla Internals.countMatchesForText documentation>  countMatchesForText ::@@ -889,23 +850,20 @@                       Internals -> text -> Word -> markMatches -> m Word countMatchesForText self text findOptions markMatches   = liftIO-      (js_countMatchesForText (unInternals self) (toJSString text)-         findOptions+      (js_countMatchesForText (self) (toJSString text) findOptions          (toJSString markMatches))   foreign import javascript unsafe "$1[\"paintControlTints\"]()"-        js_paintControlTints :: JSRef Internals -> IO ()+        js_paintControlTints :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.paintControlTints Mozilla Internals.paintControlTints documentation>  paintControlTints :: (MonadIO m) => Internals -> m ()-paintControlTints self-  = liftIO (js_paintControlTints (unInternals self))+paintControlTints self = liftIO (js_paintControlTints (self))   foreign import javascript unsafe         "$1[\"scrollElementToRect\"]($2,\n$3, $4, $5, $6)"         js_scrollElementToRect ::-        JSRef Internals ->-          JSRef Element -> Int -> Int -> Int -> Int -> IO ()+        Internals -> Nullable Element -> Int -> Int -> Int -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.scrollElementToRect Mozilla Internals.scrollElementToRect documentation>  scrollElementToRect ::@@ -913,8 +871,8 @@                       Internals -> Maybe element -> Int -> Int -> Int -> Int -> m () scrollElementToRect self element x y w h   = liftIO-      (js_scrollElementToRect (unInternals self)-         (maybe jsNull (unElement . toElement) element)+      (js_scrollElementToRect (self)+         (maybeToNullable (fmap toElement element))          x          y          w@@ -923,7 +881,7 @@ foreign import javascript unsafe         "$1[\"rangeFromLocationAndLength\"]($2,\n$3, $4)"         js_rangeFromLocationAndLength ::-        JSRef Internals -> JSRef Element -> Int -> Int -> IO (JSRef Range)+        Internals -> Nullable Element -> Int -> Int -> IO (Nullable Range)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeFromLocationAndLength Mozilla Internals.rangeFromLocationAndLength documentation>  rangeFromLocationAndLength ::@@ -931,15 +889,15 @@                              Internals -> Maybe scope -> Int -> Int -> m (Maybe Range) rangeFromLocationAndLength self scope rangeLocation rangeLength   = liftIO-      ((js_rangeFromLocationAndLength (unInternals self)-          (maybe jsNull (unElement . toElement) scope)-          rangeLocation-          rangeLength)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_rangeFromLocationAndLength (self)+            (maybeToNullable (fmap toElement scope))+            rangeLocation+            rangeLength))   foreign import javascript unsafe         "$1[\"locationFromRange\"]($2, $3)" js_locationFromRange ::-        JSRef Internals -> JSRef Element -> JSRef Range -> IO Word+        Internals -> Nullable Element -> Nullable Range -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.locationFromRange Mozilla Internals.locationFromRange documentation>  locationFromRange ::@@ -947,13 +905,13 @@                     Internals -> Maybe scope -> Maybe Range -> m Word locationFromRange self scope range   = liftIO-      (js_locationFromRange (unInternals self)-         (maybe jsNull (unElement . toElement) scope)-         (maybe jsNull pToJSRef range))+      (js_locationFromRange (self)+         (maybeToNullable (fmap toElement scope))+         (maybeToNullable range))   foreign import javascript unsafe "$1[\"lengthFromRange\"]($2, $3)"         js_lengthFromRange ::-        JSRef Internals -> JSRef Element -> JSRef Range -> IO Word+        Internals -> Nullable Element -> Nullable Range -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lengthFromRange Mozilla Internals.lengthFromRange documentation>  lengthFromRange ::@@ -961,12 +919,11 @@                   Internals -> Maybe scope -> Maybe Range -> m Word lengthFromRange self scope range   = liftIO-      (js_lengthFromRange (unInternals self)-         (maybe jsNull (unElement . toElement) scope)-         (maybe jsNull pToJSRef range))+      (js_lengthFromRange (self) (maybeToNullable (fmap toElement scope))+         (maybeToNullable range))   foreign import javascript unsafe "$1[\"rangeAsText\"]($2)"-        js_rangeAsText :: JSRef Internals -> JSRef Range -> IO JSString+        js_rangeAsText :: Internals -> Nullable Range -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeAsText Mozilla Internals.rangeAsText documentation>  rangeAsText ::@@ -974,12 +931,11 @@               Internals -> Maybe Range -> m result rangeAsText self range   = liftIO-      (fromJSString <$>-         (js_rangeAsText (unInternals self) (maybe jsNull pToJSRef range)))+      (fromJSString <$> (js_rangeAsText (self) (maybeToNullable range)))   foreign import javascript unsafe "$1[\"subrange\"]($2, $3, $4)"         js_subrange ::-        JSRef Internals -> JSRef Range -> Int -> Int -> IO (JSRef Range)+        Internals -> Nullable Range -> Int -> Int -> IO (Nullable Range)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.subrange Mozilla Internals.subrange documentation>  subrange ::@@ -987,67 +943,64 @@            Internals -> Maybe Range -> Int -> Int -> m (Maybe Range) subrange self range rangeLocation rangeLength   = liftIO-      ((js_subrange (unInternals self) (maybe jsNull pToJSRef range)-          rangeLocation-          rangeLength)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_subrange (self) (maybeToNullable range) rangeLocation+            rangeLength))   foreign import javascript unsafe         "$1[\"rangeForDictionaryLookupAtLocation\"]($2,\n$3)"         js_rangeForDictionaryLookupAtLocation ::-        JSRef Internals -> Int -> Int -> IO (JSRef Range)+        Internals -> Int -> Int -> IO (Nullable Range)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.rangeForDictionaryLookupAtLocation Mozilla Internals.rangeForDictionaryLookupAtLocation documentation>  rangeForDictionaryLookupAtLocation ::                                    (MonadIO m) => Internals -> Int -> Int -> m (Maybe Range) rangeForDictionaryLookupAtLocation self x y   = liftIO-      ((js_rangeForDictionaryLookupAtLocation (unInternals self) x y) >>=-         fromJSRef)+      (nullableToMaybe <$>+         (js_rangeForDictionaryLookupAtLocation (self) x y))   foreign import javascript unsafe         "$1[\"setDelegatesScrolling\"]($2)" js_setDelegatesScrolling ::-        JSRef Internals -> Bool -> IO ()+        Internals -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setDelegatesScrolling Mozilla Internals.setDelegatesScrolling documentation>  setDelegatesScrolling :: (MonadIO m) => Internals -> Bool -> m () setDelegatesScrolling self enabled-  = liftIO (js_setDelegatesScrolling (unInternals self) enabled)+  = liftIO (js_setDelegatesScrolling (self) enabled)   foreign import javascript unsafe         "$1[\"lastSpellCheckRequestSequence\"]()"-        js_lastSpellCheckRequestSequence :: JSRef Internals -> IO Int+        js_lastSpellCheckRequestSequence :: Internals -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckRequestSequence Mozilla Internals.lastSpellCheckRequestSequence documentation>  lastSpellCheckRequestSequence :: (MonadIO m) => Internals -> m Int lastSpellCheckRequestSequence self-  = liftIO (js_lastSpellCheckRequestSequence (unInternals self))+  = liftIO (js_lastSpellCheckRequestSequence (self))   foreign import javascript unsafe         "$1[\"lastSpellCheckProcessedSequence\"]()"-        js_lastSpellCheckProcessedSequence :: JSRef Internals -> IO Int+        js_lastSpellCheckProcessedSequence :: Internals -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.lastSpellCheckProcessedSequence Mozilla Internals.lastSpellCheckProcessedSequence documentation>  lastSpellCheckProcessedSequence ::                                 (MonadIO m) => Internals -> m Int lastSpellCheckProcessedSequence self-  = liftIO (js_lastSpellCheckProcessedSequence (unInternals self))+  = liftIO (js_lastSpellCheckProcessedSequence (self))   foreign import javascript unsafe "$1[\"userPreferredLanguages\"]()"-        js_userPreferredLanguages :: JSRef Internals -> IO (JSRef [result])+        js_userPreferredLanguages :: Internals -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.userPreferredLanguages Mozilla Internals.userPreferredLanguages documentation>  userPreferredLanguages ::                        (MonadIO m, FromJSString result) => Internals -> m [result] userPreferredLanguages self   = liftIO-      ((js_userPreferredLanguages (unInternals self)) >>=-         fromJSRefUnchecked)+      ((js_userPreferredLanguages (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe         "$1[\"setUserPreferredLanguages\"]($2)"-        js_setUserPreferredLanguages ::-        JSRef Internals -> JSRef [languages] -> IO ()+        js_setUserPreferredLanguages :: Internals -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setUserPreferredLanguages Mozilla Internals.setUserPreferredLanguages documentation>  setUserPreferredLanguages ::@@ -1056,34 +1009,34 @@ setUserPreferredLanguages self languages   = liftIO       (toJSRef languages >>=-         \ languages' ->-           js_setUserPreferredLanguages (unInternals self) languages')+         \ languages' -> js_setUserPreferredLanguages (self) languages')   foreign import javascript unsafe "$1[\"wheelEventHandlerCount\"]()"-        js_wheelEventHandlerCount :: JSRef Internals -> IO Word+        js_wheelEventHandlerCount :: Internals -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.wheelEventHandlerCount Mozilla Internals.wheelEventHandlerCount documentation>  wheelEventHandlerCount :: (MonadIO m) => Internals -> m Word wheelEventHandlerCount self-  = liftIO (js_wheelEventHandlerCount (unInternals self))+  = liftIO (js_wheelEventHandlerCount (self))   foreign import javascript unsafe "$1[\"touchEventHandlerCount\"]()"-        js_touchEventHandlerCount :: JSRef Internals -> IO Word+        js_touchEventHandlerCount :: Internals -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.touchEventHandlerCount Mozilla Internals.touchEventHandlerCount documentation>  touchEventHandlerCount :: (MonadIO m) => Internals -> m Word touchEventHandlerCount self-  = liftIO (js_touchEventHandlerCount (unInternals self))+  = liftIO (js_touchEventHandlerCount (self))   foreign import javascript unsafe         "$1[\"nodesFromRect\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11)"         js_nodesFromRect ::-        JSRef Internals ->-          JSRef Document ->+        Internals ->+          Nullable Document ->             Int ->               Int ->                 Word ->-                  Word -> Word -> Word -> Bool -> Bool -> Bool -> IO (JSRef NodeList)+                  Word ->+                    Word -> Word -> Bool -> Bool -> Bool -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nodesFromRect Mozilla Internals.nodesFromRect documentation>  nodesFromRect ::@@ -1098,183 +1051,169 @@   bottomPadding leftPadding ignoreClipping allowShadowContent   allowChildFrameContent   = liftIO-      ((js_nodesFromRect (unInternals self)-          (maybe jsNull (unDocument . toDocument) document)-          x-          y-          topPadding-          rightPadding-          bottomPadding-          leftPadding-          ignoreClipping-          allowShadowContent-          allowChildFrameContent)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_nodesFromRect (self)+            (maybeToNullable (fmap toDocument document))+            x+            y+            topPadding+            rightPadding+            bottomPadding+            leftPadding+            ignoreClipping+            allowShadowContent+            allowChildFrameContent))   foreign import javascript unsafe "$1[\"parserMetaData\"]($2)"-        js_parserMetaData :: JSRef Internals -> JSRef a -> IO JSString+        js_parserMetaData :: Internals -> JSRef -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.parserMetaData Mozilla Internals.parserMetaData documentation>  parserMetaData ::-               (MonadIO m, FromJSString result) =>-                 Internals -> JSRef a -> m result+               (MonadIO m, FromJSString result) => Internals -> JSRef -> m result parserMetaData self func-  = liftIO-      (fromJSString <$> (js_parserMetaData (unInternals self) func))+  = liftIO (fromJSString <$> (js_parserMetaData (self) func))   foreign import javascript unsafe         "$1[\"updateEditorUINowIfScheduled\"]()"-        js_updateEditorUINowIfScheduled :: JSRef Internals -> IO ()+        js_updateEditorUINowIfScheduled :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.updateEditorUINowIfScheduled Mozilla Internals.updateEditorUINowIfScheduled documentation>  updateEditorUINowIfScheduled :: (MonadIO m) => Internals -> m () updateEditorUINowIfScheduled self-  = liftIO (js_updateEditorUINowIfScheduled (unInternals self))+  = liftIO (js_updateEditorUINowIfScheduled (self))   foreign import javascript unsafe         "($1[\"hasSpellingMarker\"]($2,\n$3) ? 1 : 0)" js_hasSpellingMarker-        :: JSRef Internals -> Int -> Int -> IO Bool+        :: Internals -> Int -> Int -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasSpellingMarker Mozilla Internals.hasSpellingMarker documentation>  hasSpellingMarker ::                   (MonadIO m) => Internals -> Int -> Int -> m Bool hasSpellingMarker self from length-  = liftIO (js_hasSpellingMarker (unInternals self) from length)+  = liftIO (js_hasSpellingMarker (self) from length)   foreign import javascript unsafe         "($1[\"hasGrammarMarker\"]($2,\n$3) ? 1 : 0)" js_hasGrammarMarker-        :: JSRef Internals -> Int -> Int -> IO Bool+        :: Internals -> Int -> Int -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasGrammarMarker Mozilla Internals.hasGrammarMarker documentation>  hasGrammarMarker ::                  (MonadIO m) => Internals -> Int -> Int -> m Bool hasGrammarMarker self from length-  = liftIO (js_hasGrammarMarker (unInternals self) from length)+  = liftIO (js_hasGrammarMarker (self) from length)   foreign import javascript unsafe         "($1[\"hasAutocorrectedMarker\"]($2,\n$3) ? 1 : 0)"-        js_hasAutocorrectedMarker ::-        JSRef Internals -> Int -> Int -> IO Bool+        js_hasAutocorrectedMarker :: Internals -> Int -> Int -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.hasAutocorrectedMarker Mozilla Internals.hasAutocorrectedMarker documentation>  hasAutocorrectedMarker ::                        (MonadIO m) => Internals -> Int -> Int -> m Bool hasAutocorrectedMarker self from length-  = liftIO (js_hasAutocorrectedMarker (unInternals self) from length)+  = liftIO (js_hasAutocorrectedMarker (self) from length)   foreign import javascript unsafe         "$1[\"setContinuousSpellCheckingEnabled\"]($2)"-        js_setContinuousSpellCheckingEnabled ::-        JSRef Internals -> Bool -> IO ()+        js_setContinuousSpellCheckingEnabled :: Internals -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setContinuousSpellCheckingEnabled Mozilla Internals.setContinuousSpellCheckingEnabled documentation>  setContinuousSpellCheckingEnabled ::                                   (MonadIO m) => Internals -> Bool -> m () setContinuousSpellCheckingEnabled self enabled-  = liftIO-      (js_setContinuousSpellCheckingEnabled (unInternals self) enabled)+  = liftIO (js_setContinuousSpellCheckingEnabled (self) enabled)   foreign import javascript unsafe         "$1[\"setAutomaticQuoteSubstitutionEnabled\"]($2)"         js_setAutomaticQuoteSubstitutionEnabled ::-        JSRef Internals -> Bool -> IO ()+        Internals -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticQuoteSubstitutionEnabled Mozilla Internals.setAutomaticQuoteSubstitutionEnabled documentation>  setAutomaticQuoteSubstitutionEnabled ::                                      (MonadIO m) => Internals -> Bool -> m () setAutomaticQuoteSubstitutionEnabled self enabled-  = liftIO-      (js_setAutomaticQuoteSubstitutionEnabled (unInternals self)-         enabled)+  = liftIO (js_setAutomaticQuoteSubstitutionEnabled (self) enabled)   foreign import javascript unsafe         "$1[\"setAutomaticLinkDetectionEnabled\"]($2)"-        js_setAutomaticLinkDetectionEnabled ::-        JSRef Internals -> Bool -> IO ()+        js_setAutomaticLinkDetectionEnabled :: Internals -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticLinkDetectionEnabled Mozilla Internals.setAutomaticLinkDetectionEnabled documentation>  setAutomaticLinkDetectionEnabled ::                                  (MonadIO m) => Internals -> Bool -> m () setAutomaticLinkDetectionEnabled self enabled-  = liftIO-      (js_setAutomaticLinkDetectionEnabled (unInternals self) enabled)+  = liftIO (js_setAutomaticLinkDetectionEnabled (self) enabled)   foreign import javascript unsafe         "$1[\"setAutomaticDashSubstitutionEnabled\"]($2)"         js_setAutomaticDashSubstitutionEnabled ::-        JSRef Internals -> Bool -> IO ()+        Internals -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticDashSubstitutionEnabled Mozilla Internals.setAutomaticDashSubstitutionEnabled documentation>  setAutomaticDashSubstitutionEnabled ::                                     (MonadIO m) => Internals -> Bool -> m () setAutomaticDashSubstitutionEnabled self enabled-  = liftIO-      (js_setAutomaticDashSubstitutionEnabled (unInternals self) enabled)+  = liftIO (js_setAutomaticDashSubstitutionEnabled (self) enabled)   foreign import javascript unsafe         "$1[\"setAutomaticTextReplacementEnabled\"]($2)"-        js_setAutomaticTextReplacementEnabled ::-        JSRef Internals -> Bool -> IO ()+        js_setAutomaticTextReplacementEnabled :: Internals -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticTextReplacementEnabled Mozilla Internals.setAutomaticTextReplacementEnabled documentation>  setAutomaticTextReplacementEnabled ::                                    (MonadIO m) => Internals -> Bool -> m () setAutomaticTextReplacementEnabled self enabled-  = liftIO-      (js_setAutomaticTextReplacementEnabled (unInternals self) enabled)+  = liftIO (js_setAutomaticTextReplacementEnabled (self) enabled)   foreign import javascript unsafe         "$1[\"setAutomaticSpellingCorrectionEnabled\"]($2)"         js_setAutomaticSpellingCorrectionEnabled ::-        JSRef Internals -> Bool -> IO ()+        Internals -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setAutomaticSpellingCorrectionEnabled Mozilla Internals.setAutomaticSpellingCorrectionEnabled documentation>  setAutomaticSpellingCorrectionEnabled ::                                       (MonadIO m) => Internals -> Bool -> m () setAutomaticSpellingCorrectionEnabled self enabled-  = liftIO-      (js_setAutomaticSpellingCorrectionEnabled (unInternals self)-         enabled)+  = liftIO (js_setAutomaticSpellingCorrectionEnabled (self) enabled)   foreign import javascript unsafe         "($1[\"isOverwriteModeEnabled\"]() ? 1 : 0)"-        js_isOverwriteModeEnabled :: JSRef Internals -> IO Bool+        js_isOverwriteModeEnabled :: Internals -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isOverwriteModeEnabled Mozilla Internals.isOverwriteModeEnabled documentation>  isOverwriteModeEnabled :: (MonadIO m) => Internals -> m Bool isOverwriteModeEnabled self-  = liftIO (js_isOverwriteModeEnabled (unInternals self))+  = liftIO (js_isOverwriteModeEnabled (self))   foreign import javascript unsafe         "$1[\"toggleOverwriteModeEnabled\"]()"-        js_toggleOverwriteModeEnabled :: JSRef Internals -> IO ()+        js_toggleOverwriteModeEnabled :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.toggleOverwriteModeEnabled Mozilla Internals.toggleOverwriteModeEnabled documentation>  toggleOverwriteModeEnabled :: (MonadIO m) => Internals -> m () toggleOverwriteModeEnabled self-  = liftIO (js_toggleOverwriteModeEnabled (unInternals self))+  = liftIO (js_toggleOverwriteModeEnabled (self))   foreign import javascript unsafe         "$1[\"numberOfScrollableAreas\"]()" js_numberOfScrollableAreas ::-        JSRef Internals -> IO Word+        Internals -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfScrollableAreas Mozilla Internals.numberOfScrollableAreas documentation>  numberOfScrollableAreas :: (MonadIO m) => Internals -> m Word numberOfScrollableAreas self-  = liftIO (js_numberOfScrollableAreas (unInternals self))+  = liftIO (js_numberOfScrollableAreas (self))   foreign import javascript unsafe         "($1[\"isPageBoxVisible\"]($2) ? 1 : 0)" js_isPageBoxVisible ::-        JSRef Internals -> Int -> IO Bool+        Internals -> Int -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPageBoxVisible Mozilla Internals.isPageBoxVisible documentation>  isPageBoxVisible :: (MonadIO m) => Internals -> Int -> m Bool isPageBoxVisible self pageNumber-  = liftIO (js_isPageBoxVisible (unInternals self) pageNumber)+  = liftIO (js_isPageBoxVisible (self) pageNumber)   foreign import javascript unsafe "$1[\"layerTreeAsText\"]($2, $3)"         js_layerTreeAsText ::-        JSRef Internals -> JSRef Document -> Word -> IO JSString+        Internals -> Nullable Document -> Word -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.layerTreeAsText Mozilla Internals.layerTreeAsText documentation>  layerTreeAsText ::@@ -1283,93 +1222,87 @@ layerTreeAsText self document flags   = liftIO       (fromJSString <$>-         (js_layerTreeAsText (unInternals self)-            (maybe jsNull (unDocument . toDocument) document)+         (js_layerTreeAsText (self)+            (maybeToNullable (fmap toDocument document))             flags))   foreign import javascript unsafe         "$1[\"scrollingStateTreeAsText\"]()" js_scrollingStateTreeAsText ::-        JSRef Internals -> IO JSString+        Internals -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.scrollingStateTreeAsText Mozilla Internals.scrollingStateTreeAsText documentation>  scrollingStateTreeAsText ::                          (MonadIO m, FromJSString result) => Internals -> m result scrollingStateTreeAsText self-  = liftIO-      (fromJSString <$> (js_scrollingStateTreeAsText (unInternals self)))+  = liftIO (fromJSString <$> (js_scrollingStateTreeAsText (self)))   foreign import javascript unsafe         "$1[\"mainThreadScrollingReasons\"]()"-        js_mainThreadScrollingReasons :: JSRef Internals -> IO JSString+        js_mainThreadScrollingReasons :: Internals -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mainThreadScrollingReasons Mozilla Internals.mainThreadScrollingReasons documentation>  mainThreadScrollingReasons ::                            (MonadIO m, FromJSString result) => Internals -> m result mainThreadScrollingReasons self-  = liftIO-      (fromJSString <$>-         (js_mainThreadScrollingReasons (unInternals self)))+  = liftIO (fromJSString <$> (js_mainThreadScrollingReasons (self)))   foreign import javascript unsafe "$1[\"nonFastScrollableRects\"]()"         js_nonFastScrollableRects ::-        JSRef Internals -> IO (JSRef ClientRectList)+        Internals -> IO (Nullable ClientRectList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.nonFastScrollableRects Mozilla Internals.nonFastScrollableRects documentation>  nonFastScrollableRects ::                        (MonadIO m) => Internals -> m (Maybe ClientRectList) nonFastScrollableRects self-  = liftIO-      ((js_nonFastScrollableRects (unInternals self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_nonFastScrollableRects (self)))   foreign import javascript unsafe "$1[\"repaintRectsAsText\"]()"-        js_repaintRectsAsText :: JSRef Internals -> IO JSString+        js_repaintRectsAsText :: Internals -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.repaintRectsAsText Mozilla Internals.repaintRectsAsText documentation>  repaintRectsAsText ::                    (MonadIO m, FromJSString result) => Internals -> m result repaintRectsAsText self-  = liftIO-      (fromJSString <$> (js_repaintRectsAsText (unInternals self)))+  = liftIO (fromJSString <$> (js_repaintRectsAsText (self)))   foreign import javascript unsafe         "$1[\"garbageCollectDocumentResources\"]()"-        js_garbageCollectDocumentResources :: JSRef Internals -> IO ()+        js_garbageCollectDocumentResources :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.garbageCollectDocumentResources Mozilla Internals.garbageCollectDocumentResources documentation>  garbageCollectDocumentResources :: (MonadIO m) => Internals -> m () garbageCollectDocumentResources self-  = liftIO (js_garbageCollectDocumentResources (unInternals self))+  = liftIO (js_garbageCollectDocumentResources (self))   foreign import javascript unsafe "$1[\"allowRoundingHacks\"]()"-        js_allowRoundingHacks :: JSRef Internals -> IO ()+        js_allowRoundingHacks :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.allowRoundingHacks Mozilla Internals.allowRoundingHacks documentation>  allowRoundingHacks :: (MonadIO m) => Internals -> m ()-allowRoundingHacks self-  = liftIO (js_allowRoundingHacks (unInternals self))+allowRoundingHacks self = liftIO (js_allowRoundingHacks (self))   foreign import javascript unsafe "$1[\"insertAuthorCSS\"]($2)"-        js_insertAuthorCSS :: JSRef Internals -> JSString -> IO ()+        js_insertAuthorCSS :: Internals -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.insertAuthorCSS Mozilla Internals.insertAuthorCSS documentation>  insertAuthorCSS ::                 (MonadIO m, ToJSString css) => Internals -> css -> m () insertAuthorCSS self css-  = liftIO (js_insertAuthorCSS (unInternals self) (toJSString css))+  = liftIO (js_insertAuthorCSS (self) (toJSString css))   foreign import javascript unsafe "$1[\"insertUserCSS\"]($2)"-        js_insertUserCSS :: JSRef Internals -> JSString -> IO ()+        js_insertUserCSS :: Internals -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.insertUserCSS Mozilla Internals.insertUserCSS documentation>  insertUserCSS ::               (MonadIO m, ToJSString css) => Internals -> css -> m () insertUserCSS self css-  = liftIO (js_insertUserCSS (unInternals self) (toJSString css))+  = liftIO (js_insertUserCSS (self) (toJSString css))   foreign import javascript unsafe         "$1[\"setBatteryStatus\"]($2, $3,\n$4, $5, $6)" js_setBatteryStatus         ::-        JSRef Internals ->+        Internals ->           JSString -> Bool -> Double -> Double -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setBatteryStatus Mozilla Internals.setBatteryStatus documentation> @@ -1380,16 +1313,14 @@ setBatteryStatus self eventType charging chargingTime   dischargingTime level   = liftIO-      (js_setBatteryStatus (unInternals self) (toJSString eventType)-         charging+      (js_setBatteryStatus (self) (toJSString eventType) charging          chargingTime          dischargingTime          level)   foreign import javascript unsafe         "$1[\"setDeviceProximity\"]($2, $3,\n$4, $5)" js_setDeviceProximity-        ::-        JSRef Internals -> JSString -> Double -> Double -> Double -> IO ()+        :: Internals -> JSString -> Double -> Double -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setDeviceProximity Mozilla Internals.setDeviceProximity documentation>  setDeviceProximity ::@@ -1397,87 +1328,77 @@                      Internals -> eventType -> Double -> Double -> Double -> m () setDeviceProximity self eventType value min max   = liftIO-      (js_setDeviceProximity (unInternals self) (toJSString eventType)-         value-         min-         max)+      (js_setDeviceProximity (self) (toJSString eventType) value min max)   foreign import javascript unsafe "$1[\"numberOfLiveNodes\"]()"-        js_numberOfLiveNodes :: JSRef Internals -> IO Word+        js_numberOfLiveNodes :: Internals -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveNodes Mozilla Internals.numberOfLiveNodes documentation>  numberOfLiveNodes :: (MonadIO m) => Internals -> m Word-numberOfLiveNodes self-  = liftIO (js_numberOfLiveNodes (unInternals self))+numberOfLiveNodes self = liftIO (js_numberOfLiveNodes (self))   foreign import javascript unsafe "$1[\"numberOfLiveDocuments\"]()"-        js_numberOfLiveDocuments :: JSRef Internals -> IO Word+        js_numberOfLiveDocuments :: Internals -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfLiveDocuments Mozilla Internals.numberOfLiveDocuments documentation>  numberOfLiveDocuments :: (MonadIO m) => Internals -> m Word numberOfLiveDocuments self-  = liftIO (js_numberOfLiveDocuments (unInternals self))+  = liftIO (js_numberOfLiveDocuments (self))   foreign import javascript unsafe         "$1[\"consoleMessageArgumentCounts\"]()"-        js_consoleMessageArgumentCounts ::-        JSRef Internals -> IO (JSRef [result])+        js_consoleMessageArgumentCounts :: Internals -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.consoleMessageArgumentCounts Mozilla Internals.consoleMessageArgumentCounts documentation>  consoleMessageArgumentCounts ::                              (MonadIO m, FromJSString result) => Internals -> m [result] consoleMessageArgumentCounts self   = liftIO-      ((js_consoleMessageArgumentCounts (unInternals self)) >>=-         fromJSRefUnchecked)+      ((js_consoleMessageArgumentCounts (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe         "$1[\"openDummyInspectorFrontend\"]($2)"         js_openDummyInspectorFrontend ::-        JSRef Internals -> JSString -> IO (JSRef Window)+        Internals -> JSString -> IO (Nullable Window)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.openDummyInspectorFrontend Mozilla Internals.openDummyInspectorFrontend documentation>  openDummyInspectorFrontend ::                            (MonadIO m, ToJSString url) => Internals -> url -> m (Maybe Window) openDummyInspectorFrontend self url   = liftIO-      ((js_openDummyInspectorFrontend (unInternals self)-          (toJSString url))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_openDummyInspectorFrontend (self) (toJSString url)))   foreign import javascript unsafe         "$1[\"closeDummyInspectorFrontend\"]()"-        js_closeDummyInspectorFrontend :: JSRef Internals -> IO ()+        js_closeDummyInspectorFrontend :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.closeDummyInspectorFrontend Mozilla Internals.closeDummyInspectorFrontend documentation>  closeDummyInspectorFrontend :: (MonadIO m) => Internals -> m () closeDummyInspectorFrontend self-  = liftIO (js_closeDummyInspectorFrontend (unInternals self))+  = liftIO (js_closeDummyInspectorFrontend (self))   foreign import javascript unsafe         "$1[\"setJavaScriptProfilingEnabled\"]($2)"-        js_setJavaScriptProfilingEnabled ::-        JSRef Internals -> Bool -> IO ()+        js_setJavaScriptProfilingEnabled :: Internals -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setJavaScriptProfilingEnabled Mozilla Internals.setJavaScriptProfilingEnabled documentation>  setJavaScriptProfilingEnabled ::                               (MonadIO m) => Internals -> Bool -> m () setJavaScriptProfilingEnabled self creates-  = liftIO-      (js_setJavaScriptProfilingEnabled (unInternals self) creates)+  = liftIO (js_setJavaScriptProfilingEnabled (self) creates)   foreign import javascript unsafe         "$1[\"setInspectorIsUnderTest\"]($2)" js_setInspectorIsUnderTest ::-        JSRef Internals -> Bool -> IO ()+        Internals -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setInspectorIsUnderTest Mozilla Internals.setInspectorIsUnderTest documentation>  setInspectorIsUnderTest :: (MonadIO m) => Internals -> Bool -> m () setInspectorIsUnderTest self isUnderTest-  = liftIO-      (js_setInspectorIsUnderTest (unInternals self) isUnderTest)+  = liftIO (js_setInspectorIsUnderTest (self) isUnderTest)   foreign import javascript unsafe "$1[\"counterValue\"]($2)"-        js_counterValue :: JSRef Internals -> JSRef Element -> IO JSString+        js_counterValue :: Internals -> Nullable Element -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.counterValue Mozilla Internals.counterValue documentation>  counterValue ::@@ -1486,12 +1407,12 @@ counterValue self element   = liftIO       (fromJSString <$>-         (js_counterValue (unInternals self)-            (maybe jsNull (unElement . toElement) element)))+         (js_counterValue (self)+            (maybeToNullable (fmap toElement element))))   foreign import javascript unsafe "$1[\"pageNumber\"]($2, $3, $4)"         js_pageNumber ::-        JSRef Internals -> JSRef Element -> Float -> Float -> IO Int+        Internals -> Nullable Element -> Float -> Float -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageNumber Mozilla Internals.pageNumber documentation>  pageNumber ::@@ -1499,45 +1420,40 @@              Internals -> Maybe element -> Float -> Float -> m Int pageNumber self element pageWidth pageHeight   = liftIO-      (js_pageNumber (unInternals self)-         (maybe jsNull (unElement . toElement) element)+      (js_pageNumber (self) (maybeToNullable (fmap toElement element))          pageWidth          pageHeight)   foreign import javascript unsafe "$1[\"shortcutIconURLs\"]()"-        js_shortcutIconURLs :: JSRef Internals -> IO (JSRef [result])+        js_shortcutIconURLs :: Internals -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.shortcutIconURLs Mozilla Internals.shortcutIconURLs documentation>  shortcutIconURLs ::                  (MonadIO m, FromJSString result) => Internals -> m [result] shortcutIconURLs self-  = liftIO-      ((js_shortcutIconURLs (unInternals self)) >>= fromJSRefUnchecked)+  = liftIO ((js_shortcutIconURLs (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"allIconURLs\"]()"-        js_allIconURLs :: JSRef Internals -> IO (JSRef [result])+        js_allIconURLs :: Internals -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.allIconURLs Mozilla Internals.allIconURLs documentation>  allIconURLs ::             (MonadIO m, FromJSString result) => Internals -> m [result] allIconURLs self-  = liftIO-      ((js_allIconURLs (unInternals self)) >>= fromJSRefUnchecked)+  = liftIO ((js_allIconURLs (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"numberOfPages\"]($2, $3)"-        js_numberOfPages :: JSRef Internals -> Double -> Double -> IO Int+        js_numberOfPages :: Internals -> Double -> Double -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.numberOfPages Mozilla Internals.numberOfPages documentation>  numberOfPages ::               (MonadIO m) => Internals -> Double -> Double -> m Int numberOfPages self pageWidthInPixels pageHeightInPixels   = liftIO-      (js_numberOfPages (unInternals self) pageWidthInPixels-         pageHeightInPixels)+      (js_numberOfPages (self) pageWidthInPixels pageHeightInPixels)   foreign import javascript unsafe "$1[\"pageProperty\"]($2, $3)"-        js_pageProperty ::-        JSRef Internals -> JSString -> Int -> IO JSString+        js_pageProperty :: Internals -> JSString -> Int -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageProperty Mozilla Internals.pageProperty documentation>  pageProperty ::@@ -1546,13 +1462,12 @@ pageProperty self propertyName pageNumber   = liftIO       (fromJSString <$>-         (js_pageProperty (unInternals self) (toJSString propertyName)-            pageNumber))+         (js_pageProperty (self) (toJSString propertyName) pageNumber))   foreign import javascript unsafe         "$1[\"pageSizeAndMarginsInPixels\"]($2,\n$3, $4, $5, $6, $7, $8)"         js_pageSizeAndMarginsInPixels ::-        JSRef Internals ->+        Internals ->           Int -> Int -> Int -> Int -> Int -> Int -> Int -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageSizeAndMarginsInPixels Mozilla Internals.pageSizeAndMarginsInPixels documentation> @@ -1564,8 +1479,7 @@   marginRight marginBottom marginLeft   = liftIO       (fromJSString <$>-         (js_pageSizeAndMarginsInPixels (unInternals self) pageIndex width-            height+         (js_pageSizeAndMarginsInPixels (self) pageIndex width height             marginTop             marginRight             marginBottom@@ -1573,50 +1487,50 @@   foreign import javascript unsafe         "$1[\"setPageScaleFactor\"]($2, $3,\n$4)" js_setPageScaleFactor ::-        JSRef Internals -> Float -> Int -> Int -> IO ()+        Internals -> Float -> Int -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageScaleFactor Mozilla Internals.setPageScaleFactor documentation>  setPageScaleFactor ::                    (MonadIO m) => Internals -> Float -> Int -> Int -> m () setPageScaleFactor self scaleFactor x y-  = liftIO (js_setPageScaleFactor (unInternals self) scaleFactor x y)+  = liftIO (js_setPageScaleFactor (self) scaleFactor x y)   foreign import javascript unsafe "$1[\"setPageZoomFactor\"]($2)"-        js_setPageZoomFactor :: JSRef Internals -> Float -> IO ()+        js_setPageZoomFactor :: Internals -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageZoomFactor Mozilla Internals.setPageZoomFactor documentation>  setPageZoomFactor :: (MonadIO m) => Internals -> Float -> m () setPageZoomFactor self zoomFactor-  = liftIO (js_setPageZoomFactor (unInternals self) zoomFactor)+  = liftIO (js_setPageZoomFactor (self) zoomFactor)   foreign import javascript unsafe "$1[\"setHeaderHeight\"]($2)"-        js_setHeaderHeight :: JSRef Internals -> Float -> IO ()+        js_setHeaderHeight :: Internals -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setHeaderHeight Mozilla Internals.setHeaderHeight documentation>  setHeaderHeight :: (MonadIO m) => Internals -> Float -> m () setHeaderHeight self height-  = liftIO (js_setHeaderHeight (unInternals self) height)+  = liftIO (js_setHeaderHeight (self) height)   foreign import javascript unsafe "$1[\"setFooterHeight\"]($2)"-        js_setFooterHeight :: JSRef Internals -> Float -> IO ()+        js_setFooterHeight :: Internals -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setFooterHeight Mozilla Internals.setFooterHeight documentation>  setFooterHeight :: (MonadIO m) => Internals -> Float -> m () setFooterHeight self height-  = liftIO (js_setFooterHeight (unInternals self) height)+  = liftIO (js_setFooterHeight (self) height)   foreign import javascript unsafe "$1[\"setTopContentInset\"]($2)"-        js_setTopContentInset :: JSRef Internals -> Float -> IO ()+        js_setTopContentInset :: Internals -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setTopContentInset Mozilla Internals.setTopContentInset documentation>  setTopContentInset :: (MonadIO m) => Internals -> Float -> m () setTopContentInset self contentInset-  = liftIO (js_setTopContentInset (unInternals self) contentInset)+  = liftIO (js_setTopContentInset (self) contentInset)   foreign import javascript unsafe         "$1[\"webkitWillEnterFullScreenForElement\"]($2)"         js_webkitWillEnterFullScreenForElement ::-        JSRef Internals -> JSRef Element -> IO ()+        Internals -> Nullable Element -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitWillEnterFullScreenForElement Mozilla Internals.webkitWillEnterFullScreenForElement documentation>  webkitWillEnterFullScreenForElement ::@@ -1624,13 +1538,13 @@                                       Internals -> Maybe element -> m () webkitWillEnterFullScreenForElement self element   = liftIO-      (js_webkitWillEnterFullScreenForElement (unInternals self)-         (maybe jsNull (unElement . toElement) element))+      (js_webkitWillEnterFullScreenForElement (self)+         (maybeToNullable (fmap toElement element)))   foreign import javascript unsafe         "$1[\"webkitDidEnterFullScreenForElement\"]($2)"         js_webkitDidEnterFullScreenForElement ::-        JSRef Internals -> JSRef Element -> IO ()+        Internals -> Nullable Element -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitDidEnterFullScreenForElement Mozilla Internals.webkitDidEnterFullScreenForElement documentation>  webkitDidEnterFullScreenForElement ::@@ -1638,13 +1552,13 @@                                      Internals -> Maybe element -> m () webkitDidEnterFullScreenForElement self element   = liftIO-      (js_webkitDidEnterFullScreenForElement (unInternals self)-         (maybe jsNull (unElement . toElement) element))+      (js_webkitDidEnterFullScreenForElement (self)+         (maybeToNullable (fmap toElement element)))   foreign import javascript unsafe         "$1[\"webkitWillExitFullScreenForElement\"]($2)"         js_webkitWillExitFullScreenForElement ::-        JSRef Internals -> JSRef Element -> IO ()+        Internals -> Nullable Element -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitWillExitFullScreenForElement Mozilla Internals.webkitWillExitFullScreenForElement documentation>  webkitWillExitFullScreenForElement ::@@ -1652,13 +1566,13 @@                                      Internals -> Maybe element -> m () webkitWillExitFullScreenForElement self element   = liftIO-      (js_webkitWillExitFullScreenForElement (unInternals self)-         (maybe jsNull (unElement . toElement) element))+      (js_webkitWillExitFullScreenForElement (self)+         (maybeToNullable (fmap toElement element)))   foreign import javascript unsafe         "$1[\"webkitDidExitFullScreenForElement\"]($2)"         js_webkitDidExitFullScreenForElement ::-        JSRef Internals -> JSRef Element -> IO ()+        Internals -> Nullable Element -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.webkitDidExitFullScreenForElement Mozilla Internals.webkitDidExitFullScreenForElement documentation>  webkitDidExitFullScreenForElement ::@@ -1666,26 +1580,24 @@                                     Internals -> Maybe element -> m () webkitDidExitFullScreenForElement self element   = liftIO-      (js_webkitDidExitFullScreenForElement (unInternals self)-         (maybe jsNull (unElement . toElement) element))+      (js_webkitDidExitFullScreenForElement (self)+         (maybeToNullable (fmap toElement element)))   foreign import javascript unsafe         "$1[\"setApplicationCacheOriginQuota\"]($2)"-        js_setApplicationCacheOriginQuota ::-        JSRef Internals -> Double -> IO ()+        js_setApplicationCacheOriginQuota :: Internals -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setApplicationCacheOriginQuota Mozilla Internals.setApplicationCacheOriginQuota documentation>  setApplicationCacheOriginQuota ::                                (MonadIO m) => Internals -> Word64 -> m () setApplicationCacheOriginQuota self quota   = liftIO-      (js_setApplicationCacheOriginQuota (unInternals self)-         (fromIntegral quota))+      (js_setApplicationCacheOriginQuota (self) (fromIntegral quota))   foreign import javascript unsafe         "$1[\"registerURLSchemeAsBypassingContentSecurityPolicy\"]($2)"         js_registerURLSchemeAsBypassingContentSecurityPolicy ::-        JSRef Internals -> JSString -> IO ()+        Internals -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.registerURLSchemeAsBypassingContentSecurityPolicy Mozilla Internals.registerURLSchemeAsBypassingContentSecurityPolicy documentation>  registerURLSchemeAsBypassingContentSecurityPolicy ::@@ -1693,14 +1605,13 @@                                                     Internals -> scheme -> m () registerURLSchemeAsBypassingContentSecurityPolicy self scheme   = liftIO-      (js_registerURLSchemeAsBypassingContentSecurityPolicy-         (unInternals self)+      (js_registerURLSchemeAsBypassingContentSecurityPolicy (self)          (toJSString scheme))   foreign import javascript unsafe         "$1[\"removeURLSchemeRegisteredAsBypassingContentSecurityPolicy\"]($2)"         js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy ::-        JSRef Internals -> JSString -> IO ()+        Internals -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.removeURLSchemeRegisteredAsBypassingContentSecurityPolicy Mozilla Internals.removeURLSchemeRegisteredAsBypassingContentSecurityPolicy documentation>  removeURLSchemeRegisteredAsBypassingContentSecurityPolicy ::@@ -1710,76 +1621,73 @@   scheme   = liftIO       (js_removeURLSchemeRegisteredAsBypassingContentSecurityPolicy-         (unInternals self)+         (self)          (toJSString scheme))   foreign import javascript unsafe "$1[\"mallocStatistics\"]()"-        js_mallocStatistics ::-        JSRef Internals -> IO (JSRef MallocStatistics)+        js_mallocStatistics :: Internals -> IO (Nullable MallocStatistics)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mallocStatistics Mozilla Internals.mallocStatistics documentation>  mallocStatistics ::                  (MonadIO m) => Internals -> m (Maybe MallocStatistics) mallocStatistics self-  = liftIO ((js_mallocStatistics (unInternals self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_mallocStatistics (self)))   foreign import javascript unsafe "$1[\"typeConversions\"]()"-        js_typeConversions :: JSRef Internals -> IO (JSRef TypeConversions)+        js_typeConversions :: Internals -> IO (Nullable TypeConversions)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.typeConversions Mozilla Internals.typeConversions documentation>  typeConversions ::                 (MonadIO m) => Internals -> m (Maybe TypeConversions) typeConversions self-  = liftIO ((js_typeConversions (unInternals self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_typeConversions (self)))   foreign import javascript unsafe "$1[\"memoryInfo\"]()"-        js_memoryInfo :: JSRef Internals -> IO (JSRef MemoryInfo)+        js_memoryInfo :: Internals -> IO (Nullable MemoryInfo)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.memoryInfo Mozilla Internals.memoryInfo documentation>  memoryInfo :: (MonadIO m) => Internals -> m (Maybe MemoryInfo) memoryInfo self-  = liftIO ((js_memoryInfo (unInternals self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_memoryInfo (self)))   foreign import javascript unsafe "$1[\"getReferencedFilePaths\"]()"-        js_getReferencedFilePaths :: JSRef Internals -> IO (JSRef [result])+        js_getReferencedFilePaths :: Internals -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getReferencedFilePaths Mozilla Internals.getReferencedFilePaths documentation>  getReferencedFilePaths ::                        (MonadIO m, FromJSString result) => Internals -> m [result] getReferencedFilePaths self   = liftIO-      ((js_getReferencedFilePaths (unInternals self)) >>=-         fromJSRefUnchecked)+      ((js_getReferencedFilePaths (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"startTrackingRepaints\"]()"-        js_startTrackingRepaints :: JSRef Internals -> IO ()+        js_startTrackingRepaints :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.startTrackingRepaints Mozilla Internals.startTrackingRepaints documentation>  startTrackingRepaints :: (MonadIO m) => Internals -> m () startTrackingRepaints self-  = liftIO (js_startTrackingRepaints (unInternals self))+  = liftIO (js_startTrackingRepaints (self))   foreign import javascript unsafe "$1[\"stopTrackingRepaints\"]()"-        js_stopTrackingRepaints :: JSRef Internals -> IO ()+        js_stopTrackingRepaints :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.stopTrackingRepaints Mozilla Internals.stopTrackingRepaints documentation>  stopTrackingRepaints :: (MonadIO m) => Internals -> m ()-stopTrackingRepaints self-  = liftIO (js_stopTrackingRepaints (unInternals self))+stopTrackingRepaints self = liftIO (js_stopTrackingRepaints (self))   foreign import javascript unsafe         "($1[\"isTimerThrottled\"]($2) ? 1 : 0)" js_isTimerThrottled ::-        JSRef Internals -> Int -> IO Bool+        Internals -> Int -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isTimerThrottled Mozilla Internals.isTimerThrottled documentation>  isTimerThrottled :: (MonadIO m) => Internals -> Int -> m Bool isTimerThrottled self timerHandle-  = liftIO (js_isTimerThrottled (unInternals self) timerHandle)+  = liftIO (js_isTimerThrottled (self) timerHandle)   foreign import javascript unsafe         "$1[\"updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks\"]($2)"         js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks ::-        JSRef Internals -> JSRef Node -> IO ()+        Internals -> Nullable Node -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks Mozilla Internals.updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks documentation>  updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks ::@@ -1788,22 +1696,21 @@ updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks self node   = liftIO       (js_updateLayoutIgnorePendingStylesheetsAndRunPostLayoutTasks-         (unInternals self)-         (maybe jsNull (unNode . toNode) node))+         (self)+         (maybeToNullable (fmap toNode node)))   foreign import javascript unsafe "$1[\"getCurrentCursorInfo\"]()"-        js_getCurrentCursorInfo :: JSRef Internals -> IO JSString+        js_getCurrentCursorInfo :: Internals -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getCurrentCursorInfo Mozilla Internals.getCurrentCursorInfo documentation>  getCurrentCursorInfo ::                      (MonadIO m, FromJSString result) => Internals -> m result getCurrentCursorInfo self-  = liftIO-      (fromJSString <$> (js_getCurrentCursorInfo (unInternals self)))+  = liftIO (fromJSString <$> (js_getCurrentCursorInfo (self)))   foreign import javascript unsafe         "$1[\"markerTextForListItem\"]($2)" js_markerTextForListItem ::-        JSRef Internals -> JSRef Element -> IO JSString+        Internals -> Nullable Element -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.markerTextForListItem Mozilla Internals.markerTextForListItem documentation>  markerTextForListItem ::@@ -1812,12 +1719,12 @@ markerTextForListItem self element   = liftIO       (fromJSString <$>-         (js_markerTextForListItem (unInternals self)-            (maybe jsNull (unElement . toElement) element)))+         (js_markerTextForListItem (self)+            (maybeToNullable (fmap toElement element))))   foreign import javascript unsafe "$1[\"toolTipFromElement\"]($2)"         js_toolTipFromElement ::-        JSRef Internals -> JSRef Element -> IO JSString+        Internals -> Nullable Element -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.toolTipFromElement Mozilla Internals.toolTipFromElement documentation>  toolTipFromElement ::@@ -1826,13 +1733,13 @@ toolTipFromElement self element   = liftIO       (fromJSString <$>-         (js_toolTipFromElement (unInternals self)-            (maybe jsNull (unElement . toElement) element)))+         (js_toolTipFromElement (self)+            (maybeToNullable (fmap toElement element))))   foreign import javascript unsafe "$1[\"deserializeBuffer\"]($2)"         js_deserializeBuffer ::-        JSRef Internals ->-          JSRef ArrayBuffer -> IO (JSRef SerializedScriptValue)+        Internals ->+          Nullable ArrayBuffer -> IO (Nullable SerializedScriptValue)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.deserializeBuffer Mozilla Internals.deserializeBuffer documentation>  deserializeBuffer ::@@ -1840,14 +1747,14 @@                     Internals -> Maybe buffer -> m (Maybe SerializedScriptValue) deserializeBuffer self buffer   = liftIO-      ((js_deserializeBuffer (unInternals self)-          (maybe jsNull (unArrayBuffer . toArrayBuffer) buffer))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_deserializeBuffer (self)+            (maybeToNullable (fmap toArrayBuffer buffer))))   foreign import javascript unsafe "$1[\"serializeObject\"]($2)"         js_serializeObject ::-        JSRef Internals ->-          JSRef SerializedScriptValue -> IO (JSRef ArrayBuffer)+        Internals ->+          Nullable SerializedScriptValue -> IO (Nullable ArrayBuffer)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.serializeObject Mozilla Internals.serializeObject documentation>  serializeObject ::@@ -1855,46 +1762,43 @@                   Internals -> Maybe obj -> m (Maybe ArrayBuffer) serializeObject self obj   = liftIO-      ((js_serializeObject (unInternals self)-          (maybe jsNull (unSerializedScriptValue . toSerializedScriptValue)-             obj))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_serializeObject (self)+            (maybeToNullable (fmap toSerializedScriptValue obj))))   foreign import javascript unsafe         "$1[\"setUsesOverlayScrollbars\"]($2)" js_setUsesOverlayScrollbars-        :: JSRef Internals -> Bool -> IO ()+        :: Internals -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setUsesOverlayScrollbars Mozilla Internals.setUsesOverlayScrollbars documentation>  setUsesOverlayScrollbars ::                          (MonadIO m) => Internals -> Bool -> m () setUsesOverlayScrollbars self enabled-  = liftIO (js_setUsesOverlayScrollbars (unInternals self) enabled)+  = liftIO (js_setUsesOverlayScrollbars (self) enabled)   foreign import javascript unsafe "$1[\"forceReload\"]($2)"-        js_forceReload :: JSRef Internals -> Bool -> IO ()+        js_forceReload :: Internals -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.forceReload Mozilla Internals.forceReload documentation>  forceReload :: (MonadIO m) => Internals -> Bool -> m ()-forceReload self endToEnd-  = liftIO (js_forceReload (unInternals self) endToEnd)+forceReload self endToEnd = liftIO (js_forceReload (self) endToEnd)   foreign import javascript unsafe         "$1[\"simulateAudioInterruption\"]($2)"-        js_simulateAudioInterruption ::-        JSRef Internals -> JSRef Node -> IO ()+        js_simulateAudioInterruption :: Internals -> Nullable Node -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateAudioInterruption Mozilla Internals.simulateAudioInterruption documentation>  simulateAudioInterruption ::                           (MonadIO m, IsNode node) => Internals -> Maybe node -> m () simulateAudioInterruption self node   = liftIO-      (js_simulateAudioInterruption (unInternals self)-         (maybe jsNull (unNode . toNode) node))+      (js_simulateAudioInterruption (self)+         (maybeToNullable (fmap toNode node)))   foreign import javascript unsafe         "($1[\"mediaElementHasCharacteristic\"]($2,\n$3) ? 1 : 0)"         js_mediaElementHasCharacteristic ::-        JSRef Internals -> JSRef Node -> JSString -> IO Bool+        Internals -> Nullable Node -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.mediaElementHasCharacteristic Mozilla Internals.mediaElementHasCharacteristic documentation>  mediaElementHasCharacteristic ::@@ -1902,30 +1806,29 @@                                 Internals -> Maybe node -> characteristic -> m Bool mediaElementHasCharacteristic self node characteristic   = liftIO-      (js_mediaElementHasCharacteristic (unInternals self)-         (maybe jsNull (unNode . toNode) node)+      (js_mediaElementHasCharacteristic (self)+         (maybeToNullable (fmap toNode node))          (toJSString characteristic))   foreign import javascript unsafe "$1[\"initializeMockCDM\"]()"-        js_initializeMockCDM :: JSRef Internals -> IO ()+        js_initializeMockCDM :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.initializeMockCDM Mozilla Internals.initializeMockCDM documentation>  initializeMockCDM :: (MonadIO m) => Internals -> m ()-initializeMockCDM self-  = liftIO (js_initializeMockCDM (unInternals self))+initializeMockCDM self = liftIO (js_initializeMockCDM (self))   foreign import javascript unsafe         "$1[\"enableMockSpeechSynthesizer\"]()"-        js_enableMockSpeechSynthesizer :: JSRef Internals -> IO ()+        js_enableMockSpeechSynthesizer :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.enableMockSpeechSynthesizer Mozilla Internals.enableMockSpeechSynthesizer documentation>  enableMockSpeechSynthesizer :: (MonadIO m) => Internals -> m () enableMockSpeechSynthesizer self-  = liftIO (js_enableMockSpeechSynthesizer (unInternals self))+  = liftIO (js_enableMockSpeechSynthesizer (self))   foreign import javascript unsafe "$1[\"getImageSourceURL\"]($2)"         js_getImageSourceURL ::-        JSRef Internals -> JSRef Element -> IO JSString+        Internals -> Nullable Element -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.getImageSourceURL Mozilla Internals.getImageSourceURL documentation>  getImageSourceURL ::@@ -1934,38 +1837,34 @@ getImageSourceURL self element   = liftIO       (fromJSString <$>-         (js_getImageSourceURL (unInternals self)-            (maybe jsNull (unElement . toElement) element)))+         (js_getImageSourceURL (self)+            (maybeToNullable (fmap toElement element))))   foreign import javascript unsafe         "$1[\"captionsStyleSheetOverride\"]()"-        js_captionsStyleSheetOverride :: JSRef Internals -> IO JSString+        js_captionsStyleSheetOverride :: Internals -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.captionsStyleSheetOverride Mozilla Internals.captionsStyleSheetOverride documentation>  captionsStyleSheetOverride ::                            (MonadIO m, FromJSString result) => Internals -> m result captionsStyleSheetOverride self-  = liftIO-      (fromJSString <$>-         (js_captionsStyleSheetOverride (unInternals self)))+  = liftIO (fromJSString <$> (js_captionsStyleSheetOverride (self)))   foreign import javascript unsafe         "$1[\"setCaptionsStyleSheetOverride\"]($2)"-        js_setCaptionsStyleSheetOverride ::-        JSRef Internals -> JSString -> IO ()+        js_setCaptionsStyleSheetOverride :: Internals -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setCaptionsStyleSheetOverride Mozilla Internals.setCaptionsStyleSheetOverride documentation>  setCaptionsStyleSheetOverride ::                               (MonadIO m, ToJSString override) => Internals -> override -> m () setCaptionsStyleSheetOverride self override   = liftIO-      (js_setCaptionsStyleSheetOverride (unInternals self)-         (toJSString override))+      (js_setCaptionsStyleSheetOverride (self) (toJSString override))   foreign import javascript unsafe         "$1[\"setPrimaryAudioTrackLanguageOverride\"]($2)"         js_setPrimaryAudioTrackLanguageOverride ::-        JSRef Internals -> JSString -> IO ()+        Internals -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPrimaryAudioTrackLanguageOverride Mozilla Internals.setPrimaryAudioTrackLanguageOverride documentation>  setPrimaryAudioTrackLanguageOverride ::@@ -1973,24 +1872,24 @@                                        Internals -> language -> m () setPrimaryAudioTrackLanguageOverride self language   = liftIO-      (js_setPrimaryAudioTrackLanguageOverride (unInternals self)+      (js_setPrimaryAudioTrackLanguageOverride (self)          (toJSString language))   foreign import javascript unsafe         "$1[\"setCaptionDisplayMode\"]($2)" js_setCaptionDisplayMode ::-        JSRef Internals -> JSString -> IO ()+        Internals -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setCaptionDisplayMode Mozilla Internals.setCaptionDisplayMode documentation>  setCaptionDisplayMode ::                       (MonadIO m, ToJSString mode) => Internals -> mode -> m () setCaptionDisplayMode self mode-  = liftIO-      (js_setCaptionDisplayMode (unInternals self) (toJSString mode))+  = liftIO (js_setCaptionDisplayMode (self) (toJSString mode))   foreign import javascript unsafe "$1[\"createTimeRanges\"]($2, $3)"         js_createTimeRanges ::-        JSRef Internals ->-          JSRef Float32Array -> JSRef Float32Array -> IO (JSRef TimeRanges)+        Internals ->+          Nullable Float32Array ->+            Nullable Float32Array -> IO (Nullable TimeRanges)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.createTimeRanges Mozilla Internals.createTimeRanges documentation>  createTimeRanges ::@@ -1999,47 +1898,46 @@                      Maybe startTimes -> Maybe endTimes -> m (Maybe TimeRanges) createTimeRanges self startTimes endTimes   = liftIO-      ((js_createTimeRanges (unInternals self)-          (maybe jsNull (unFloat32Array . toFloat32Array) startTimes)-          (maybe jsNull (unFloat32Array . toFloat32Array) endTimes))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createTimeRanges (self)+            (maybeToNullable (fmap toFloat32Array startTimes))+            (maybeToNullable (fmap toFloat32Array endTimes))))   foreign import javascript unsafe         "$1[\"closestTimeToTimeRanges\"]($2,\n$3)"         js_closestTimeToTimeRanges ::-        JSRef Internals -> Double -> JSRef TimeRanges -> IO Double+        Internals -> Double -> Nullable TimeRanges -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.closestTimeToTimeRanges Mozilla Internals.closestTimeToTimeRanges documentation>  closestTimeToTimeRanges ::                         (MonadIO m) => Internals -> Double -> Maybe TimeRanges -> m Double closestTimeToTimeRanges self time ranges   = liftIO-      (js_closestTimeToTimeRanges (unInternals self) time-         (maybe jsNull pToJSRef ranges))+      (js_closestTimeToTimeRanges (self) time (maybeToNullable ranges))   foreign import javascript unsafe         "($1[\"isSelectPopupVisible\"]($2) ? 1 : 0)"-        js_isSelectPopupVisible :: JSRef Internals -> JSRef Node -> IO Bool+        js_isSelectPopupVisible :: Internals -> Nullable Node -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isSelectPopupVisible Mozilla Internals.isSelectPopupVisible documentation>  isSelectPopupVisible ::                      (MonadIO m, IsNode node) => Internals -> Maybe node -> m Bool isSelectPopupVisible self node   = liftIO-      (js_isSelectPopupVisible (unInternals self)-         (maybe jsNull (unNode . toNode) node))+      (js_isSelectPopupVisible (self)+         (maybeToNullable (fmap toNode node)))   foreign import javascript unsafe "($1[\"isVibrating\"]() ? 1 : 0)"-        js_isVibrating :: JSRef Internals -> IO Bool+        js_isVibrating :: Internals -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isVibrating Mozilla Internals.isVibrating documentation>  isVibrating :: (MonadIO m) => Internals -> m Bool-isVibrating self = liftIO (js_isVibrating (unInternals self))+isVibrating self = liftIO (js_isVibrating (self))   foreign import javascript unsafe         "($1[\"isPluginUnavailabilityIndicatorObscured\"]($2) ? 1 : 0)"         js_isPluginUnavailabilityIndicatorObscured ::-        JSRef Internals -> JSRef Element -> IO Bool+        Internals -> Nullable Element -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginUnavailabilityIndicatorObscured Mozilla Internals.isPluginUnavailabilityIndicatorObscured documentation>  isPluginUnavailabilityIndicatorObscured ::@@ -2047,12 +1945,12 @@                                           Internals -> Maybe element -> m Bool isPluginUnavailabilityIndicatorObscured self element   = liftIO-      (js_isPluginUnavailabilityIndicatorObscured (unInternals self)-         (maybe jsNull (unElement . toElement) element))+      (js_isPluginUnavailabilityIndicatorObscured (self)+         (maybeToNullable (fmap toElement element)))   foreign import javascript unsafe         "($1[\"isPluginSnapshotted\"]($2) ? 1 : 0)" js_isPluginSnapshotted-        :: JSRef Internals -> JSRef Element -> IO Bool+        :: Internals -> Nullable Element -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPluginSnapshotted Mozilla Internals.isPluginSnapshotted documentation>  isPluginSnapshotted ::@@ -2060,31 +1958,30 @@                       Internals -> Maybe element -> m Bool isPluginSnapshotted self element   = liftIO-      (js_isPluginSnapshotted (unInternals self)-         (maybe jsNull (unElement . toElement) element))+      (js_isPluginSnapshotted (self)+         (maybeToNullable (fmap toElement element)))   foreign import javascript unsafe "$1[\"selectionBounds\"]()"-        js_selectionBounds :: JSRef Internals -> IO (JSRef ClientRect)+        js_selectionBounds :: Internals -> IO (Nullable ClientRect)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.selectionBounds Mozilla Internals.selectionBounds documentation>  selectionBounds :: (MonadIO m) => Internals -> m (Maybe ClientRect) selectionBounds self-  = liftIO ((js_selectionBounds (unInternals self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_selectionBounds (self)))   foreign import javascript unsafe         "$1[\"initializeMockMediaSource\"]()" js_initializeMockMediaSource-        :: JSRef Internals -> IO ()+        :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.initializeMockMediaSource Mozilla Internals.initializeMockMediaSource documentation>  initializeMockMediaSource :: (MonadIO m) => Internals -> m () initializeMockMediaSource self-  = liftIO (js_initializeMockMediaSource (unInternals self))+  = liftIO (js_initializeMockMediaSource (self))   foreign import javascript unsafe         "$1[\"bufferedSamplesForTrackID\"]($2,\n$3)"         js_bufferedSamplesForTrackID ::-        JSRef Internals ->-          JSRef SourceBuffer -> JSString -> IO (JSRef [result])+        Internals -> Nullable SourceBuffer -> JSString -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.bufferedSamplesForTrackID Mozilla Internals.bufferedSamplesForTrackID documentation>  bufferedSamplesForTrackID ::@@ -2092,55 +1989,51 @@                             Internals -> Maybe SourceBuffer -> trackID -> m [result] bufferedSamplesForTrackID self buffer trackID   = liftIO-      ((js_bufferedSamplesForTrackID (unInternals self)-          (maybe jsNull pToJSRef buffer)+      ((js_bufferedSamplesForTrackID (self) (maybeToNullable buffer)           (toJSString trackID))          >>= fromJSRefUnchecked)   foreign import javascript unsafe         "$1[\"beginMediaSessionInterruption\"]()"-        js_beginMediaSessionInterruption :: JSRef Internals -> IO ()+        js_beginMediaSessionInterruption :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.beginMediaSessionInterruption Mozilla Internals.beginMediaSessionInterruption documentation>  beginMediaSessionInterruption :: (MonadIO m) => Internals -> m () beginMediaSessionInterruption self-  = liftIO (js_beginMediaSessionInterruption (unInternals self))+  = liftIO (js_beginMediaSessionInterruption (self))   foreign import javascript unsafe         "$1[\"endMediaSessionInterruption\"]($2)"-        js_endMediaSessionInterruption ::-        JSRef Internals -> JSString -> IO ()+        js_endMediaSessionInterruption :: Internals -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.endMediaSessionInterruption Mozilla Internals.endMediaSessionInterruption documentation>  endMediaSessionInterruption ::                             (MonadIO m, ToJSString flags) => Internals -> flags -> m () endMediaSessionInterruption self flags-  = liftIO-      (js_endMediaSessionInterruption (unInternals self)-         (toJSString flags))+  = liftIO (js_endMediaSessionInterruption (self) (toJSString flags))   foreign import javascript unsafe         "$1[\"applicationWillEnterForeground\"]()"-        js_applicationWillEnterForeground :: JSRef Internals -> IO ()+        js_applicationWillEnterForeground :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.applicationWillEnterForeground Mozilla Internals.applicationWillEnterForeground documentation>  applicationWillEnterForeground :: (MonadIO m) => Internals -> m () applicationWillEnterForeground self-  = liftIO (js_applicationWillEnterForeground (unInternals self))+  = liftIO (js_applicationWillEnterForeground (self))   foreign import javascript unsafe         "$1[\"applicationWillEnterBackground\"]()"-        js_applicationWillEnterBackground :: JSRef Internals -> IO ()+        js_applicationWillEnterBackground :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.applicationWillEnterBackground Mozilla Internals.applicationWillEnterBackground documentation>  applicationWillEnterBackground :: (MonadIO m) => Internals -> m () applicationWillEnterBackground self-  = liftIO (js_applicationWillEnterBackground (unInternals self))+  = liftIO (js_applicationWillEnterBackground (self))   foreign import javascript unsafe         "$1[\"setMediaSessionRestrictions\"]($2,\n$3)"         js_setMediaSessionRestrictions ::-        JSRef Internals -> JSString -> JSString -> IO ()+        Internals -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setMediaSessionRestrictions Mozilla Internals.setMediaSessionRestrictions documentation>  setMediaSessionRestrictions ::@@ -2148,42 +2041,37 @@                               Internals -> mediaType -> restrictions -> m () setMediaSessionRestrictions self mediaType restrictions   = liftIO-      (js_setMediaSessionRestrictions (unInternals self)-         (toJSString mediaType)+      (js_setMediaSessionRestrictions (self) (toJSString mediaType)          (toJSString restrictions))   foreign import javascript unsafe         "$1[\"postRemoteControlCommand\"]($2)" js_postRemoteControlCommand-        :: JSRef Internals -> JSString -> IO ()+        :: Internals -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.postRemoteControlCommand Mozilla Internals.postRemoteControlCommand documentation>  postRemoteControlCommand ::                          (MonadIO m, ToJSString command) => Internals -> command -> m () postRemoteControlCommand self command-  = liftIO-      (js_postRemoteControlCommand (unInternals self)-         (toJSString command))+  = liftIO (js_postRemoteControlCommand (self) (toJSString command))   foreign import javascript unsafe "$1[\"simulateSystemSleep\"]()"-        js_simulateSystemSleep :: JSRef Internals -> IO ()+        js_simulateSystemSleep :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateSystemSleep Mozilla Internals.simulateSystemSleep documentation>  simulateSystemSleep :: (MonadIO m) => Internals -> m ()-simulateSystemSleep self-  = liftIO (js_simulateSystemSleep (unInternals self))+simulateSystemSleep self = liftIO (js_simulateSystemSleep (self))   foreign import javascript unsafe "$1[\"simulateSystemWake\"]()"-        js_simulateSystemWake :: JSRef Internals -> IO ()+        js_simulateSystemWake :: Internals -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.simulateSystemWake Mozilla Internals.simulateSystemWake documentation>  simulateSystemWake :: (MonadIO m) => Internals -> m ()-simulateSystemWake self-  = liftIO (js_simulateSystemWake (unInternals self))+simulateSystemWake self = liftIO (js_simulateSystemWake (self))   foreign import javascript unsafe         "($1[\"elementIsBlockingDisplaySleep\"]($2) ? 1 : 0)"         js_elementIsBlockingDisplaySleep ::-        JSRef Internals -> JSRef Element -> IO Bool+        Internals -> Nullable Element -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.elementIsBlockingDisplaySleep Mozilla Internals.elementIsBlockingDisplaySleep documentation>  elementIsBlockingDisplaySleep ::@@ -2191,48 +2079,43 @@                                 Internals -> Maybe element -> m Bool elementIsBlockingDisplaySleep self element   = liftIO-      (js_elementIsBlockingDisplaySleep (unInternals self)-         (maybe jsNull (unElement . toElement) element))+      (js_elementIsBlockingDisplaySleep (self)+         (maybeToNullable (fmap toElement element)))   foreign import javascript unsafe         "$1[\"installMockPageOverlay\"]($2)" js_installMockPageOverlay ::-        JSRef Internals -> JSRef PageOverlayType -> IO ()+        Internals -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.installMockPageOverlay Mozilla Internals.installMockPageOverlay documentation>  installMockPageOverlay ::                        (MonadIO m) => Internals -> PageOverlayType -> m () installMockPageOverlay self type'-  = liftIO-      (js_installMockPageOverlay (unInternals self) (pToJSRef type'))+  = liftIO (js_installMockPageOverlay (self) (pToJSRef type'))   foreign import javascript unsafe         "$1[\"pageOverlayLayerTreeAsText\"]()"-        js_pageOverlayLayerTreeAsText :: JSRef Internals -> IO JSString+        js_pageOverlayLayerTreeAsText :: Internals -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.pageOverlayLayerTreeAsText Mozilla Internals.pageOverlayLayerTreeAsText documentation>  pageOverlayLayerTreeAsText ::                            (MonadIO m, FromJSString result) => Internals -> m result pageOverlayLayerTreeAsText self-  = liftIO-      (fromJSString <$>-         (js_pageOverlayLayerTreeAsText (unInternals self)))+  = liftIO (fromJSString <$> (js_pageOverlayLayerTreeAsText (self)))   foreign import javascript unsafe "$1[\"setPageMuted\"]($2)"-        js_setPageMuted :: JSRef Internals -> Bool -> IO ()+        js_setPageMuted :: Internals -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.setPageMuted Mozilla Internals.setPageMuted documentation>  setPageMuted :: (MonadIO m) => Internals -> Bool -> m ()-setPageMuted self muted-  = liftIO (js_setPageMuted (unInternals self) muted)+setPageMuted self muted = liftIO (js_setPageMuted (self) muted)   foreign import javascript unsafe         "($1[\"isPagePlayingAudio\"]() ? 1 : 0)" js_isPagePlayingAudio ::-        JSRef Internals -> IO Bool+        Internals -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.isPagePlayingAudio Mozilla Internals.isPagePlayingAudio documentation>  isPagePlayingAudio :: (MonadIO m) => Internals -> m Bool-isPagePlayingAudio self-  = liftIO (js_isPagePlayingAudio (unInternals self))+isPagePlayingAudio self = liftIO (js_isPagePlayingAudio (self)) pattern LAYER_TREE_INCLUDES_VISIBLE_RECTS = 1 pattern LAYER_TREE_INCLUDES_TILE_CACHES = 2 pattern LAYER_TREE_INCLUDES_REPAINT_RECTS = 4@@ -2240,29 +2123,26 @@ pattern LAYER_TREE_INCLUDES_CONTENT_LAYERS = 16   foreign import javascript unsafe "$1[\"settings\"]" js_getSettings-        :: JSRef Internals -> IO (JSRef InternalSettings)+        :: Internals -> IO (Nullable InternalSettings)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.settings Mozilla Internals.settings documentation>  getSettings ::             (MonadIO m) => Internals -> m (Maybe InternalSettings) getSettings self-  = liftIO ((js_getSettings (unInternals self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSettings (self)))   foreign import javascript unsafe "$1[\"workerThreadCount\"]"-        js_getWorkerThreadCount :: JSRef Internals -> IO Word+        js_getWorkerThreadCount :: Internals -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.workerThreadCount Mozilla Internals.workerThreadCount documentation>  getWorkerThreadCount :: (MonadIO m) => Internals -> m Word-getWorkerThreadCount self-  = liftIO (js_getWorkerThreadCount (unInternals self))+getWorkerThreadCount self = liftIO (js_getWorkerThreadCount (self))   foreign import javascript unsafe "$1[\"consoleProfiles\"]"-        js_getConsoleProfiles ::-        JSRef Internals -> IO (JSRef [Maybe ScriptProfile])+        js_getConsoleProfiles :: Internals -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Internals.consoleProfiles Mozilla Internals.consoleProfiles documentation>  getConsoleProfiles ::                    (MonadIO m) => Internals -> m [Maybe ScriptProfile] getConsoleProfiles self-  = liftIO-      ((js_getConsoleProfiles (unInternals self)) >>= fromJSRefUnchecked)+  = liftIO ((js_getConsoleProfiles (self)) >>= fromJSRefUnchecked)
src/GHCJS/DOM/JSFFI/Generated/KeyboardEvent.hs view
@@ -11,7 +11,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,11 +27,11 @@ foreign import javascript unsafe         "$1[\"initKeyboardEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9, $10,\n$11, $12)"         js_initKeyboardEvent ::-        JSRef KeyboardEvent ->+        KeyboardEvent ->           JSString ->             Bool ->               Bool ->-                JSRef Window ->+                Nullable Window ->                   JSString -> Word -> Bool -> Bool -> Bool -> Bool -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.initKeyboardEvent Mozilla KeyboardEvent.initKeyboardEvent documentation> @@ -47,10 +47,9 @@ initKeyboardEvent self type' canBubble cancelable view   keyIdentifier location ctrlKey altKey shiftKey metaKey altGraphKey   = liftIO-      (js_initKeyboardEvent (unKeyboardEvent self) (toJSString type')-         canBubble+      (js_initKeyboardEvent (self) (toJSString type') canBubble          cancelable-         (maybe jsNull pToJSRef view)+         (maybeToNullable view)          (toJSString keyIdentifier)          location          ctrlKey@@ -64,62 +63,59 @@ pattern DOM_KEY_LOCATION_NUMPAD = 3   foreign import javascript unsafe "$1[\"keyIdentifier\"]"-        js_getKeyIdentifier :: JSRef KeyboardEvent -> IO JSString+        js_getKeyIdentifier :: KeyboardEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.keyIdentifier Mozilla KeyboardEvent.keyIdentifier documentation>  getKeyIdentifier ::                  (MonadIO m, FromJSString result) => KeyboardEvent -> m result getKeyIdentifier self-  = liftIO-      (fromJSString <$> (js_getKeyIdentifier (unKeyboardEvent self)))+  = liftIO (fromJSString <$> (js_getKeyIdentifier (self)))   foreign import javascript unsafe "$1[\"location\"]" js_getLocation-        :: JSRef KeyboardEvent -> IO Word+        :: KeyboardEvent -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.location Mozilla KeyboardEvent.location documentation>  getLocation :: (MonadIO m) => KeyboardEvent -> m Word-getLocation self = liftIO (js_getLocation (unKeyboardEvent self))+getLocation self = liftIO (js_getLocation (self))   foreign import javascript unsafe "$1[\"keyLocation\"]"-        js_getKeyLocation :: JSRef KeyboardEvent -> IO Word+        js_getKeyLocation :: KeyboardEvent -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.keyLocation Mozilla KeyboardEvent.keyLocation documentation>  getKeyLocation :: (MonadIO m) => KeyboardEvent -> m Word-getKeyLocation self-  = liftIO (js_getKeyLocation (unKeyboardEvent self))+getKeyLocation self = liftIO (js_getKeyLocation (self))   foreign import javascript unsafe "($1[\"ctrlKey\"] ? 1 : 0)"-        js_getCtrlKey :: JSRef KeyboardEvent -> IO Bool+        js_getCtrlKey :: KeyboardEvent -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.ctrlKey Mozilla KeyboardEvent.ctrlKey documentation>  getCtrlKey :: (MonadIO m) => KeyboardEvent -> m Bool-getCtrlKey self = liftIO (js_getCtrlKey (unKeyboardEvent self))+getCtrlKey self = liftIO (js_getCtrlKey (self))   foreign import javascript unsafe "($1[\"shiftKey\"] ? 1 : 0)"-        js_getShiftKey :: JSRef KeyboardEvent -> IO Bool+        js_getShiftKey :: KeyboardEvent -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.shiftKey Mozilla KeyboardEvent.shiftKey documentation>  getShiftKey :: (MonadIO m) => KeyboardEvent -> m Bool-getShiftKey self = liftIO (js_getShiftKey (unKeyboardEvent self))+getShiftKey self = liftIO (js_getShiftKey (self))   foreign import javascript unsafe "($1[\"altKey\"] ? 1 : 0)"-        js_getAltKey :: JSRef KeyboardEvent -> IO Bool+        js_getAltKey :: KeyboardEvent -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.altKey Mozilla KeyboardEvent.altKey documentation>  getAltKey :: (MonadIO m) => KeyboardEvent -> m Bool-getAltKey self = liftIO (js_getAltKey (unKeyboardEvent self))+getAltKey self = liftIO (js_getAltKey (self))   foreign import javascript unsafe "($1[\"metaKey\"] ? 1 : 0)"-        js_getMetaKey :: JSRef KeyboardEvent -> IO Bool+        js_getMetaKey :: KeyboardEvent -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.metaKey Mozilla KeyboardEvent.metaKey documentation>  getMetaKey :: (MonadIO m) => KeyboardEvent -> m Bool-getMetaKey self = liftIO (js_getMetaKey (unKeyboardEvent self))+getMetaKey self = liftIO (js_getMetaKey (self))   foreign import javascript unsafe "($1[\"altGraphKey\"] ? 1 : 0)"-        js_getAltGraphKey :: JSRef KeyboardEvent -> IO Bool+        js_getAltGraphKey :: KeyboardEvent -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/KeyboardEvent.altGraphKey Mozilla KeyboardEvent.altGraphKey documentation>  getAltGraphKey :: (MonadIO m) => KeyboardEvent -> m Bool-getAltGraphKey self-  = liftIO (js_getAltGraphKey (unKeyboardEvent self))+getAltGraphKey self = liftIO (js_getAltGraphKey (self))
src/GHCJS/DOM/JSFFI/Generated/Location.hs view
@@ -13,7 +13,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,186 +27,172 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"assign\"]($2)" js_assign ::-        JSRef Location -> JSString -> IO ()+        Location -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.assign Mozilla Location.assign documentation>  assign :: (MonadIO m, ToJSString url) => Location -> url -> m ()-assign self url-  = liftIO (js_assign (unLocation self) (toJSString url))+assign self url = liftIO (js_assign (self) (toJSString url))   foreign import javascript unsafe "$1[\"replace\"]($2)" js_replace-        :: JSRef Location -> JSString -> IO ()+        :: Location -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.replace Mozilla Location.replace documentation>  replace :: (MonadIO m, ToJSString url) => Location -> url -> m ()-replace self url-  = liftIO (js_replace (unLocation self) (toJSString url))+replace self url = liftIO (js_replace (self) (toJSString url))   foreign import javascript unsafe "$1[\"reload\"]()" js_reload ::-        JSRef Location -> IO ()+        Location -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.reload Mozilla Location.reload documentation>  reload :: (MonadIO m) => Location -> m ()-reload self = liftIO (js_reload (unLocation self))+reload self = liftIO (js_reload (self))   foreign import javascript unsafe "$1[\"toString\"]()" js_toString-        :: JSRef Location -> IO JSString+        :: Location -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.toString Mozilla Location.toString documentation>  toString ::          (MonadIO m, FromJSString result) => Location -> m result-toString self-  = liftIO (fromJSString <$> (js_toString (unLocation self)))+toString self = liftIO (fromJSString <$> (js_toString (self)))   foreign import javascript unsafe "$1[\"href\"] = $2;" js_setHref ::-        JSRef Location -> JSString -> IO ()+        Location -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.href Mozilla Location.href documentation>  setHref :: (MonadIO m, ToJSString val) => Location -> val -> m ()-setHref self val-  = liftIO (js_setHref (unLocation self) (toJSString val))+setHref self val = liftIO (js_setHref (self) (toJSString val))   foreign import javascript unsafe "$1[\"href\"]" js_getHref ::-        JSRef Location -> IO JSString+        Location -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.href Mozilla Location.href documentation>  getHref :: (MonadIO m, FromJSString result) => Location -> m result-getHref self-  = liftIO (fromJSString <$> (js_getHref (unLocation self)))+getHref self = liftIO (fromJSString <$> (js_getHref (self)))   foreign import javascript unsafe "$1[\"protocol\"] = $2;"-        js_setProtocol :: JSRef Location -> JSString -> IO ()+        js_setProtocol :: Location -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.protocol Mozilla Location.protocol documentation>  setProtocol ::             (MonadIO m, ToJSString val) => Location -> val -> m () setProtocol self val-  = liftIO (js_setProtocol (unLocation self) (toJSString val))+  = liftIO (js_setProtocol (self) (toJSString val))   foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol-        :: JSRef Location -> IO JSString+        :: Location -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.protocol Mozilla Location.protocol documentation>  getProtocol ::             (MonadIO m, FromJSString result) => Location -> m result getProtocol self-  = liftIO (fromJSString <$> (js_getProtocol (unLocation self)))+  = liftIO (fromJSString <$> (js_getProtocol (self)))   foreign import javascript unsafe "$1[\"host\"] = $2;" js_setHost ::-        JSRef Location -> JSString -> IO ()+        Location -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.host Mozilla Location.host documentation>  setHost :: (MonadIO m, ToJSString val) => Location -> val -> m ()-setHost self val-  = liftIO (js_setHost (unLocation self) (toJSString val))+setHost self val = liftIO (js_setHost (self) (toJSString val))   foreign import javascript unsafe "$1[\"host\"]" js_getHost ::-        JSRef Location -> IO JSString+        Location -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.host Mozilla Location.host documentation>  getHost :: (MonadIO m, FromJSString result) => Location -> m result-getHost self-  = liftIO (fromJSString <$> (js_getHost (unLocation self)))+getHost self = liftIO (fromJSString <$> (js_getHost (self)))   foreign import javascript unsafe "$1[\"hostname\"] = $2;"-        js_setHostname :: JSRef Location -> JSString -> IO ()+        js_setHostname :: Location -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.hostname Mozilla Location.hostname documentation>  setHostname ::             (MonadIO m, ToJSString val) => Location -> val -> m () setHostname self val-  = liftIO (js_setHostname (unLocation self) (toJSString val))+  = liftIO (js_setHostname (self) (toJSString val))   foreign import javascript unsafe "$1[\"hostname\"]" js_getHostname-        :: JSRef Location -> IO JSString+        :: Location -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.hostname Mozilla Location.hostname documentation>  getHostname ::             (MonadIO m, FromJSString result) => Location -> m result getHostname self-  = liftIO (fromJSString <$> (js_getHostname (unLocation self)))+  = liftIO (fromJSString <$> (js_getHostname (self)))   foreign import javascript unsafe "$1[\"port\"] = $2;" js_setPort ::-        JSRef Location -> JSString -> IO ()+        Location -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.port Mozilla Location.port documentation>  setPort :: (MonadIO m, ToJSString val) => Location -> val -> m ()-setPort self val-  = liftIO (js_setPort (unLocation self) (toJSString val))+setPort self val = liftIO (js_setPort (self) (toJSString val))   foreign import javascript unsafe "$1[\"port\"]" js_getPort ::-        JSRef Location -> IO JSString+        Location -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.port Mozilla Location.port documentation>  getPort :: (MonadIO m, FromJSString result) => Location -> m result-getPort self-  = liftIO (fromJSString <$> (js_getPort (unLocation self)))+getPort self = liftIO (fromJSString <$> (js_getPort (self)))   foreign import javascript unsafe "$1[\"pathname\"] = $2;"-        js_setPathname :: JSRef Location -> JSString -> IO ()+        js_setPathname :: Location -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.pathname Mozilla Location.pathname documentation>  setPathname ::             (MonadIO m, ToJSString val) => Location -> val -> m () setPathname self val-  = liftIO (js_setPathname (unLocation self) (toJSString val))+  = liftIO (js_setPathname (self) (toJSString val))   foreign import javascript unsafe "$1[\"pathname\"]" js_getPathname-        :: JSRef Location -> IO JSString+        :: Location -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.pathname Mozilla Location.pathname documentation>  getPathname ::             (MonadIO m, FromJSString result) => Location -> m result getPathname self-  = liftIO (fromJSString <$> (js_getPathname (unLocation self)))+  = liftIO (fromJSString <$> (js_getPathname (self)))   foreign import javascript unsafe "$1[\"search\"] = $2;"-        js_setSearch :: JSRef Location -> JSString -> IO ()+        js_setSearch :: Location -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.search Mozilla Location.search documentation>  setSearch :: (MonadIO m, ToJSString val) => Location -> val -> m ()-setSearch self val-  = liftIO (js_setSearch (unLocation self) (toJSString val))+setSearch self val = liftIO (js_setSearch (self) (toJSString val))   foreign import javascript unsafe "$1[\"search\"]" js_getSearch ::-        JSRef Location -> IO JSString+        Location -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.search Mozilla Location.search documentation>  getSearch ::           (MonadIO m, FromJSString result) => Location -> m result-getSearch self-  = liftIO (fromJSString <$> (js_getSearch (unLocation self)))+getSearch self = liftIO (fromJSString <$> (js_getSearch (self)))   foreign import javascript unsafe "$1[\"hash\"] = $2;" js_setHash ::-        JSRef Location -> JSString -> IO ()+        Location -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.hash Mozilla Location.hash documentation>  setHash :: (MonadIO m, ToJSString val) => Location -> val -> m ()-setHash self val-  = liftIO (js_setHash (unLocation self) (toJSString val))+setHash self val = liftIO (js_setHash (self) (toJSString val))   foreign import javascript unsafe "$1[\"hash\"]" js_getHash ::-        JSRef Location -> IO JSString+        Location -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.hash Mozilla Location.hash documentation>  getHash :: (MonadIO m, FromJSString result) => Location -> m result-getHash self-  = liftIO (fromJSString <$> (js_getHash (unLocation self)))+getHash self = liftIO (fromJSString <$> (js_getHash (self)))   foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::-        JSRef Location -> IO JSString+        Location -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.origin Mozilla Location.origin documentation>  getOrigin ::           (MonadIO m, FromJSString result) => Location -> m result-getOrigin self-  = liftIO (fromJSString <$> (js_getOrigin (unLocation self)))+getOrigin self = liftIO (fromJSString <$> (js_getOrigin (self)))   foreign import javascript unsafe "$1[\"ancestorOrigins\"]"-        js_getAncestorOrigins :: JSRef Location -> IO (JSRef DOMStringList)+        js_getAncestorOrigins :: Location -> IO (Nullable DOMStringList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Location.ancestorOrigins Mozilla Location.ancestorOrigins documentation>  getAncestorOrigins ::                    (MonadIO m) => Location -> m (Maybe DOMStringList) getAncestorOrigins self-  = liftIO ((js_getAncestorOrigins (unLocation self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAncestorOrigins (self)))
src/GHCJS/DOM/JSFFI/Generated/MallocStatistics.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,25 +20,22 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"reservedVMBytes\"]"-        js_getReservedVMBytes :: JSRef MallocStatistics -> IO Word+        js_getReservedVMBytes :: MallocStatistics -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MallocStatistics.reservedVMBytes Mozilla MallocStatistics.reservedVMBytes documentation>  getReservedVMBytes :: (MonadIO m) => MallocStatistics -> m Word-getReservedVMBytes self-  = liftIO (js_getReservedVMBytes (unMallocStatistics self))+getReservedVMBytes self = liftIO (js_getReservedVMBytes (self))   foreign import javascript unsafe "$1[\"committedVMBytes\"]"-        js_getCommittedVMBytes :: JSRef MallocStatistics -> IO Word+        js_getCommittedVMBytes :: MallocStatistics -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MallocStatistics.committedVMBytes Mozilla MallocStatistics.committedVMBytes documentation>  getCommittedVMBytes :: (MonadIO m) => MallocStatistics -> m Word-getCommittedVMBytes self-  = liftIO (js_getCommittedVMBytes (unMallocStatistics self))+getCommittedVMBytes self = liftIO (js_getCommittedVMBytes (self))   foreign import javascript unsafe "$1[\"freeListBytes\"]"-        js_getFreeListBytes :: JSRef MallocStatistics -> IO Word+        js_getFreeListBytes :: MallocStatistics -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MallocStatistics.freeListBytes Mozilla MallocStatistics.freeListBytes documentation>  getFreeListBytes :: (MonadIO m) => MallocStatistics -> m Word-getFreeListBytes self-  = liftIO (js_getFreeListBytes (unMallocStatistics self))+getFreeListBytes self = liftIO (js_getFreeListBytes (self))
src/GHCJS/DOM/JSFFI/Generated/MediaController.hs view
@@ -15,7 +15,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -30,161 +30,152 @@   foreign import javascript unsafe         "new window[\"MediaController\"]()" js_newMediaController ::-        IO (JSRef MediaController)+        IO MediaController  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController Mozilla MediaController documentation>  newMediaController :: (MonadIO m) => m MediaController-newMediaController-  = liftIO (js_newMediaController >>= fromJSRefUnchecked)+newMediaController = liftIO (js_newMediaController)   foreign import javascript unsafe "$1[\"play\"]()" js_play ::-        JSRef MediaController -> IO ()+        MediaController -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.play Mozilla MediaController.play documentation>  play :: (MonadIO m) => MediaController -> m ()-play self = liftIO (js_play (unMediaController self))+play self = liftIO (js_play (self))   foreign import javascript unsafe "$1[\"pause\"]()" js_pause ::-        JSRef MediaController -> IO ()+        MediaController -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.pause Mozilla MediaController.pause documentation>  pause :: (MonadIO m) => MediaController -> m ()-pause self = liftIO (js_pause (unMediaController self))+pause self = liftIO (js_pause (self))   foreign import javascript unsafe "$1[\"unpause\"]()" js_unpause ::-        JSRef MediaController -> IO ()+        MediaController -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.unpause Mozilla MediaController.unpause documentation>  unpause :: (MonadIO m) => MediaController -> m ()-unpause self = liftIO (js_unpause (unMediaController self))+unpause self = liftIO (js_unpause (self))   foreign import javascript unsafe "$1[\"buffered\"]" js_getBuffered-        :: JSRef MediaController -> IO (JSRef TimeRanges)+        :: MediaController -> IO (Nullable TimeRanges)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.buffered Mozilla MediaController.buffered documentation>  getBuffered ::             (MonadIO m) => MediaController -> m (Maybe TimeRanges) getBuffered self-  = liftIO ((js_getBuffered (unMediaController self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getBuffered (self)))   foreign import javascript unsafe "$1[\"seekable\"]" js_getSeekable-        :: JSRef MediaController -> IO (JSRef TimeRanges)+        :: MediaController -> IO (Nullable TimeRanges)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.seekable Mozilla MediaController.seekable documentation>  getSeekable ::             (MonadIO m) => MediaController -> m (Maybe TimeRanges) getSeekable self-  = liftIO ((js_getSeekable (unMediaController self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSeekable (self)))   foreign import javascript unsafe "$1[\"duration\"]" js_getDuration-        :: JSRef MediaController -> IO Double+        :: MediaController -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.duration Mozilla MediaController.duration documentation>  getDuration :: (MonadIO m) => MediaController -> m Double-getDuration self = liftIO (js_getDuration (unMediaController self))+getDuration self = liftIO (js_getDuration (self))   foreign import javascript unsafe "$1[\"currentTime\"] = $2;"-        js_setCurrentTime :: JSRef MediaController -> Double -> IO ()+        js_setCurrentTime :: MediaController -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.currentTime Mozilla MediaController.currentTime documentation>  setCurrentTime :: (MonadIO m) => MediaController -> Double -> m ()-setCurrentTime self val-  = liftIO (js_setCurrentTime (unMediaController self) val)+setCurrentTime self val = liftIO (js_setCurrentTime (self) val)   foreign import javascript unsafe "$1[\"currentTime\"]"-        js_getCurrentTime :: JSRef MediaController -> IO Double+        js_getCurrentTime :: MediaController -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.currentTime Mozilla MediaController.currentTime documentation>  getCurrentTime :: (MonadIO m) => MediaController -> m Double-getCurrentTime self-  = liftIO (js_getCurrentTime (unMediaController self))+getCurrentTime self = liftIO (js_getCurrentTime (self))   foreign import javascript unsafe "($1[\"paused\"] ? 1 : 0)"-        js_getPaused :: JSRef MediaController -> IO Bool+        js_getPaused :: MediaController -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.paused Mozilla MediaController.paused documentation>  getPaused :: (MonadIO m) => MediaController -> m Bool-getPaused self = liftIO (js_getPaused (unMediaController self))+getPaused self = liftIO (js_getPaused (self))   foreign import javascript unsafe "$1[\"played\"]" js_getPlayed ::-        JSRef MediaController -> IO (JSRef TimeRanges)+        MediaController -> IO (Nullable TimeRanges)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.played Mozilla MediaController.played documentation>  getPlayed :: (MonadIO m) => MediaController -> m (Maybe TimeRanges)-getPlayed self-  = liftIO ((js_getPlayed (unMediaController self)) >>= fromJSRef)+getPlayed self = liftIO (nullableToMaybe <$> (js_getPlayed (self)))   foreign import javascript unsafe "$1[\"playbackState\"]"-        js_getPlaybackState :: JSRef MediaController -> IO JSString+        js_getPlaybackState :: MediaController -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.playbackState Mozilla MediaController.playbackState documentation>  getPlaybackState ::                  (MonadIO m, FromJSString result) => MediaController -> m result getPlaybackState self-  = liftIO-      (fromJSString <$> (js_getPlaybackState (unMediaController self)))+  = liftIO (fromJSString <$> (js_getPlaybackState (self)))   foreign import javascript unsafe         "$1[\"defaultPlaybackRate\"] = $2;" js_setDefaultPlaybackRate ::-        JSRef MediaController -> Double -> IO ()+        MediaController -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.defaultPlaybackRate Mozilla MediaController.defaultPlaybackRate documentation>  setDefaultPlaybackRate ::                        (MonadIO m) => MediaController -> Double -> m () setDefaultPlaybackRate self val-  = liftIO (js_setDefaultPlaybackRate (unMediaController self) val)+  = liftIO (js_setDefaultPlaybackRate (self) val)   foreign import javascript unsafe "$1[\"defaultPlaybackRate\"]"-        js_getDefaultPlaybackRate :: JSRef MediaController -> IO Double+        js_getDefaultPlaybackRate :: MediaController -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.defaultPlaybackRate Mozilla MediaController.defaultPlaybackRate documentation>  getDefaultPlaybackRate ::                        (MonadIO m) => MediaController -> m Double getDefaultPlaybackRate self-  = liftIO (js_getDefaultPlaybackRate (unMediaController self))+  = liftIO (js_getDefaultPlaybackRate (self))   foreign import javascript unsafe "$1[\"playbackRate\"] = $2;"-        js_setPlaybackRate :: JSRef MediaController -> Double -> IO ()+        js_setPlaybackRate :: MediaController -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.playbackRate Mozilla MediaController.playbackRate documentation>  setPlaybackRate :: (MonadIO m) => MediaController -> Double -> m ()-setPlaybackRate self val-  = liftIO (js_setPlaybackRate (unMediaController self) val)+setPlaybackRate self val = liftIO (js_setPlaybackRate (self) val)   foreign import javascript unsafe "$1[\"playbackRate\"]"-        js_getPlaybackRate :: JSRef MediaController -> IO Double+        js_getPlaybackRate :: MediaController -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.playbackRate Mozilla MediaController.playbackRate documentation>  getPlaybackRate :: (MonadIO m) => MediaController -> m Double-getPlaybackRate self-  = liftIO (js_getPlaybackRate (unMediaController self))+getPlaybackRate self = liftIO (js_getPlaybackRate (self))   foreign import javascript unsafe "$1[\"volume\"] = $2;"-        js_setVolume :: JSRef MediaController -> Double -> IO ()+        js_setVolume :: MediaController -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.volume Mozilla MediaController.volume documentation>  setVolume :: (MonadIO m) => MediaController -> Double -> m ()-setVolume self val-  = liftIO (js_setVolume (unMediaController self) val)+setVolume self val = liftIO (js_setVolume (self) val)   foreign import javascript unsafe "$1[\"volume\"]" js_getVolume ::-        JSRef MediaController -> IO Double+        MediaController -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.volume Mozilla MediaController.volume documentation>  getVolume :: (MonadIO m) => MediaController -> m Double-getVolume self = liftIO (js_getVolume (unMediaController self))+getVolume self = liftIO (js_getVolume (self))   foreign import javascript unsafe "$1[\"muted\"] = $2;" js_setMuted-        :: JSRef MediaController -> Bool -> IO ()+        :: MediaController -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.muted Mozilla MediaController.muted documentation>  setMuted :: (MonadIO m) => MediaController -> Bool -> m ()-setMuted self val-  = liftIO (js_setMuted (unMediaController self) val)+setMuted self val = liftIO (js_setMuted (self) val)   foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)"-        js_getMuted :: JSRef MediaController -> IO Bool+        js_getMuted :: MediaController -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaController.muted Mozilla MediaController.muted documentation>  getMuted :: (MonadIO m) => MediaController -> m Bool-getMuted self = liftIO (js_getMuted (unMediaController self))+getMuted self = liftIO (js_getMuted (self))
src/GHCJS/DOM/JSFFI/Generated/MediaControlsHost.hs view
@@ -26,7 +26,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -41,8 +41,7 @@   foreign import javascript unsafe         "$1[\"sortedTrackListForMenu\"]($2)" js_sortedTrackListForMenu ::-        JSRef MediaControlsHost ->-          JSRef TextTrackList -> IO (JSRef [Maybe TextTrack])+        MediaControlsHost -> Nullable TextTrackList -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.sortedTrackListForMenu Mozilla MediaControlsHost.sortedTrackListForMenu documentation>  sortedTrackListForMenu ::@@ -50,15 +49,12 @@                          MediaControlsHost -> Maybe TextTrackList -> m [Maybe TextTrack] sortedTrackListForMenu self trackList   = liftIO-      ((js_sortedTrackListForMenu (unMediaControlsHost self)-          (maybe jsNull pToJSRef trackList))-         >>= fromJSRefUnchecked)+      ((js_sortedTrackListForMenu (self) (maybeToNullable trackList)) >>=+         fromJSRefUnchecked)   foreign import javascript unsafe         "$1[\"sortedTrackListForMenu\"]($2)" js_sortedTrackListForMenuAudio-        ::-        JSRef MediaControlsHost ->-          JSRef AudioTrackList -> IO (JSRef [Maybe AudioTrack])+        :: MediaControlsHost -> Nullable AudioTrackList -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.sortedTrackListForMenu Mozilla MediaControlsHost.sortedTrackListForMenu documentation>  sortedTrackListForMenuAudio ::@@ -66,13 +62,13 @@                               MediaControlsHost -> Maybe AudioTrackList -> m [Maybe AudioTrack] sortedTrackListForMenuAudio self trackList   = liftIO-      ((js_sortedTrackListForMenuAudio (unMediaControlsHost self)-          (maybe jsNull pToJSRef trackList))+      ((js_sortedTrackListForMenuAudio (self)+          (maybeToNullable trackList))          >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"displayNameForTrack\"]($2)"         js_displayNameForTrack ::-        JSRef MediaControlsHost -> JSRef TextTrack -> IO JSString+        MediaControlsHost -> Nullable TextTrack -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.displayNameForTrack Mozilla MediaControlsHost.displayNameForTrack documentation>  displayNameForTrack ::@@ -81,12 +77,11 @@ displayNameForTrack self track   = liftIO       (fromJSString <$>-         (js_displayNameForTrack (unMediaControlsHost self)-            (maybe jsNull pToJSRef track)))+         (js_displayNameForTrack (self) (maybeToNullable track)))   foreign import javascript unsafe "$1[\"displayNameForTrack\"]($2)"         js_displayNameForTrackAudio ::-        JSRef MediaControlsHost -> JSRef AudioTrack -> IO JSString+        MediaControlsHost -> Nullable AudioTrack -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.displayNameForTrack Mozilla MediaControlsHost.displayNameForTrack documentation>  displayNameForTrackAudio ::@@ -95,60 +90,54 @@ displayNameForTrackAudio self track   = liftIO       (fromJSString <$>-         (js_displayNameForTrackAudio (unMediaControlsHost self)-            (maybe jsNull pToJSRef track)))+         (js_displayNameForTrackAudio (self) (maybeToNullable track)))   foreign import javascript unsafe "$1[\"setSelectedTextTrack\"]($2)"         js_setSelectedTextTrack ::-        JSRef MediaControlsHost -> JSRef TextTrack -> IO ()+        MediaControlsHost -> Nullable TextTrack -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.setSelectedTextTrack Mozilla MediaControlsHost.setSelectedTextTrack documentation>  setSelectedTextTrack ::                      (MonadIO m) => MediaControlsHost -> Maybe TextTrack -> m () setSelectedTextTrack self track-  = liftIO-      (js_setSelectedTextTrack (unMediaControlsHost self)-         (maybe jsNull pToJSRef track))+  = liftIO (js_setSelectedTextTrack (self) (maybeToNullable track))   foreign import javascript unsafe         "$1[\"updateTextTrackContainer\"]()" js_updateTextTrackContainer ::-        JSRef MediaControlsHost -> IO ()+        MediaControlsHost -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.updateTextTrackContainer Mozilla MediaControlsHost.updateTextTrackContainer documentation>  updateTextTrackContainer ::                          (MonadIO m) => MediaControlsHost -> m () updateTextTrackContainer self-  = liftIO (js_updateTextTrackContainer (unMediaControlsHost self))+  = liftIO (js_updateTextTrackContainer (self))   foreign import javascript unsafe "$1[\"enteredFullscreen\"]()"-        js_enteredFullscreen :: JSRef MediaControlsHost -> IO ()+        js_enteredFullscreen :: MediaControlsHost -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.enteredFullscreen Mozilla MediaControlsHost.enteredFullscreen documentation>  enteredFullscreen :: (MonadIO m) => MediaControlsHost -> m ()-enteredFullscreen self-  = liftIO (js_enteredFullscreen (unMediaControlsHost self))+enteredFullscreen self = liftIO (js_enteredFullscreen (self))   foreign import javascript unsafe "$1[\"exitedFullscreen\"]()"-        js_exitedFullscreen :: JSRef MediaControlsHost -> IO ()+        js_exitedFullscreen :: MediaControlsHost -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.exitedFullscreen Mozilla MediaControlsHost.exitedFullscreen documentation>  exitedFullscreen :: (MonadIO m) => MediaControlsHost -> m ()-exitedFullscreen self-  = liftIO (js_exitedFullscreen (unMediaControlsHost self))+exitedFullscreen self = liftIO (js_exitedFullscreen (self))   foreign import javascript unsafe         "$1[\"enterFullscreenOptimized\"]()" js_enterFullscreenOptimized ::-        JSRef MediaControlsHost -> IO ()+        MediaControlsHost -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.enterFullscreenOptimized Mozilla MediaControlsHost.enterFullscreenOptimized documentation>  enterFullscreenOptimized ::                          (MonadIO m) => MediaControlsHost -> m () enterFullscreenOptimized self-  = liftIO (js_enterFullscreenOptimized (unMediaControlsHost self))+  = liftIO (js_enterFullscreenOptimized (self))   foreign import javascript unsafe "$1[\"mediaUIImageData\"]($2)"-        js_mediaUIImageData ::-        JSRef MediaControlsHost -> JSRef MediaUIPartID -> IO JSString+        js_mediaUIImageData :: MediaControlsHost -> JSRef -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.mediaUIImageData Mozilla MediaControlsHost.mediaUIImageData documentation>  mediaUIImageData ::@@ -156,132 +145,115 @@                    MediaControlsHost -> MediaUIPartID -> m result mediaUIImageData self partID   = liftIO-      (fromJSString <$>-         (js_mediaUIImageData (unMediaControlsHost self) (pToJSRef partID)))+      (fromJSString <$> (js_mediaUIImageData (self) (pToJSRef partID)))   foreign import javascript unsafe "$1[\"captionMenuOffItem\"]"         js_getCaptionMenuOffItem ::-        JSRef MediaControlsHost -> IO (JSRef TextTrack)+        MediaControlsHost -> IO (Nullable TextTrack)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuOffItem Mozilla MediaControlsHost.captionMenuOffItem documentation>  getCaptionMenuOffItem ::                       (MonadIO m) => MediaControlsHost -> m (Maybe TextTrack) getCaptionMenuOffItem self-  = liftIO-      ((js_getCaptionMenuOffItem (unMediaControlsHost self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getCaptionMenuOffItem (self)))   foreign import javascript unsafe "$1[\"captionMenuAutomaticItem\"]"         js_getCaptionMenuAutomaticItem ::-        JSRef MediaControlsHost -> IO (JSRef TextTrack)+        MediaControlsHost -> IO (Nullable TextTrack)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionMenuAutomaticItem Mozilla MediaControlsHost.captionMenuAutomaticItem documentation>  getCaptionMenuAutomaticItem ::                             (MonadIO m) => MediaControlsHost -> m (Maybe TextTrack) getCaptionMenuAutomaticItem self   = liftIO-      ((js_getCaptionMenuAutomaticItem (unMediaControlsHost self)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getCaptionMenuAutomaticItem (self)))   foreign import javascript unsafe "$1[\"captionDisplayMode\"]"-        js_getCaptionDisplayMode :: JSRef MediaControlsHost -> IO JSString+        js_getCaptionDisplayMode :: MediaControlsHost -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.captionDisplayMode Mozilla MediaControlsHost.captionDisplayMode documentation>  getCaptionDisplayMode ::                       (MonadIO m, FromJSString result) => MediaControlsHost -> m result getCaptionDisplayMode self-  = liftIO-      (fromJSString <$>-         (js_getCaptionDisplayMode (unMediaControlsHost self)))+  = liftIO (fromJSString <$> (js_getCaptionDisplayMode (self)))   foreign import javascript unsafe "$1[\"textTrackContainer\"]"         js_getTextTrackContainer ::-        JSRef MediaControlsHost -> IO (JSRef HTMLElement)+        MediaControlsHost -> IO (Nullable HTMLElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.textTrackContainer Mozilla MediaControlsHost.textTrackContainer documentation>  getTextTrackContainer ::                       (MonadIO m) => MediaControlsHost -> m (Maybe HTMLElement) getTextTrackContainer self-  = liftIO-      ((js_getTextTrackContainer (unMediaControlsHost self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getTextTrackContainer (self)))   foreign import javascript unsafe         "($1[\"mediaPlaybackAllowsInline\"] ? 1 : 0)"-        js_getMediaPlaybackAllowsInline ::-        JSRef MediaControlsHost -> IO Bool+        js_getMediaPlaybackAllowsInline :: MediaControlsHost -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.mediaPlaybackAllowsInline Mozilla MediaControlsHost.mediaPlaybackAllowsInline documentation>  getMediaPlaybackAllowsInline ::                              (MonadIO m) => MediaControlsHost -> m Bool getMediaPlaybackAllowsInline self-  = liftIO-      (js_getMediaPlaybackAllowsInline (unMediaControlsHost self))+  = liftIO (js_getMediaPlaybackAllowsInline (self))   foreign import javascript unsafe         "($1[\"supportsFullscreen\"] ? 1 : 0)" js_getSupportsFullscreen ::-        JSRef MediaControlsHost -> IO Bool+        MediaControlsHost -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.supportsFullscreen Mozilla MediaControlsHost.supportsFullscreen documentation>  getSupportsFullscreen :: (MonadIO m) => MediaControlsHost -> m Bool getSupportsFullscreen self-  = liftIO (js_getSupportsFullscreen (unMediaControlsHost self))+  = liftIO (js_getSupportsFullscreen (self))   foreign import javascript unsafe         "($1[\"userGestureRequired\"] ? 1 : 0)" js_getUserGestureRequired-        :: JSRef MediaControlsHost -> IO Bool+        :: MediaControlsHost -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.userGestureRequired Mozilla MediaControlsHost.userGestureRequired documentation>  getUserGestureRequired ::                        (MonadIO m) => MediaControlsHost -> m Bool getUserGestureRequired self-  = liftIO (js_getUserGestureRequired (unMediaControlsHost self))+  = liftIO (js_getUserGestureRequired (self))   foreign import javascript unsafe         "$1[\"externalDeviceDisplayName\"]" js_getExternalDeviceDisplayName-        :: JSRef MediaControlsHost -> IO JSString+        :: MediaControlsHost -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.externalDeviceDisplayName Mozilla MediaControlsHost.externalDeviceDisplayName documentation>  getExternalDeviceDisplayName ::                              (MonadIO m, FromJSString result) => MediaControlsHost -> m result getExternalDeviceDisplayName self   = liftIO-      (fromJSString <$>-         (js_getExternalDeviceDisplayName (unMediaControlsHost self)))+      (fromJSString <$> (js_getExternalDeviceDisplayName (self)))   foreign import javascript unsafe "$1[\"externalDeviceType\"]"-        js_getExternalDeviceType ::-        JSRef MediaControlsHost -> IO (JSRef DeviceType)+        js_getExternalDeviceType :: MediaControlsHost -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.externalDeviceType Mozilla MediaControlsHost.externalDeviceType documentation>  getExternalDeviceType ::                       (MonadIO m) => MediaControlsHost -> m DeviceType getExternalDeviceType self-  = liftIO-      ((js_getExternalDeviceType (unMediaControlsHost self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getExternalDeviceType (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe         "$1[\"controlsDependOnPageScaleFactor\"] = $2;"         js_setControlsDependOnPageScaleFactor ::-        JSRef MediaControlsHost -> Bool -> IO ()+        MediaControlsHost -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.controlsDependOnPageScaleFactor Mozilla MediaControlsHost.controlsDependOnPageScaleFactor documentation>  setControlsDependOnPageScaleFactor ::                                    (MonadIO m) => MediaControlsHost -> Bool -> m () setControlsDependOnPageScaleFactor self val-  = liftIO-      (js_setControlsDependOnPageScaleFactor (unMediaControlsHost self)-         val)+  = liftIO (js_setControlsDependOnPageScaleFactor (self) val)   foreign import javascript unsafe         "($1[\"controlsDependOnPageScaleFactor\"] ? 1 : 0)"         js_getControlsDependOnPageScaleFactor ::-        JSRef MediaControlsHost -> IO Bool+        MediaControlsHost -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaControlsHost.controlsDependOnPageScaleFactor Mozilla MediaControlsHost.controlsDependOnPageScaleFactor documentation>  getControlsDependOnPageScaleFactor ::                                    (MonadIO m) => MediaControlsHost -> m Bool getControlsDependOnPageScaleFactor self-  = liftIO-      (js_getControlsDependOnPageScaleFactor (unMediaControlsHost self))+  = liftIO (js_getControlsDependOnPageScaleFactor (self))
src/GHCJS/DOM/JSFFI/Generated/MediaElementAudioSourceNode.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,13 +21,11 @@   foreign import javascript unsafe "$1[\"mediaElement\"]"         js_getMediaElement ::-        JSRef MediaElementAudioSourceNode -> IO (JSRef HTMLMediaElement)+        MediaElementAudioSourceNode -> IO (Nullable HTMLMediaElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaElementAudioSourceNode.mediaElement Mozilla MediaElementAudioSourceNode.mediaElement documentation>  getMediaElement ::                 (MonadIO m) =>                   MediaElementAudioSourceNode -> m (Maybe HTMLMediaElement) getMediaElement self-  = liftIO-      ((js_getMediaElement (unMediaElementAudioSourceNode self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getMediaElement (self)))
src/GHCJS/DOM/JSFFI/Generated/MediaError.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -26,8 +26,8 @@ pattern MEDIA_ERR_ENCRYPTED = 5   foreign import javascript unsafe "$1[\"code\"]" js_getCode ::-        JSRef MediaError -> IO Word+        MediaError -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaError.code Mozilla MediaError.code documentation>  getCode :: (MonadIO m) => MediaError -> m Word-getCode self = liftIO (js_getCode (unMediaError self))+getCode self = liftIO (js_getCode (self))
src/GHCJS/DOM/JSFFI/Generated/MediaKeyError.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -28,16 +28,15 @@ pattern MEDIA_KEYERR_DOMAIN = 6   foreign import javascript unsafe "$1[\"code\"]" js_getCode ::-        JSRef MediaKeyError -> IO Word+        MediaKeyError -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyError.code Mozilla WebKitMediaKeyError.code documentation>  getCode :: (MonadIO m) => MediaKeyError -> m Word-getCode self = liftIO (js_getCode (unMediaKeyError self))+getCode self = liftIO (js_getCode (self))   foreign import javascript unsafe "$1[\"systemCode\"]"-        js_getSystemCode :: JSRef MediaKeyError -> IO Word+        js_getSystemCode :: MediaKeyError -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyError.systemCode Mozilla WebKitMediaKeyError.systemCode documentation>  getSystemCode :: (MonadIO m) => MediaKeyError -> m Word-getSystemCode self-  = liftIO (js_getSystemCode (unMediaKeyError self))+getSystemCode self = liftIO (js_getSystemCode (self))
src/GHCJS/DOM/JSFFI/Generated/MediaKeyEvent.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,64 +22,60 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"keySystem\"]"-        js_getKeySystem :: JSRef MediaKeyEvent -> IO JSString+        js_getKeySystem :: MediaKeyEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.keySystem Mozilla MediaKeyEvent.keySystem documentation>  getKeySystem ::              (MonadIO m, FromJSString result) => MediaKeyEvent -> m result getKeySystem self-  = liftIO-      (fromJSString <$> (js_getKeySystem (unMediaKeyEvent self)))+  = liftIO (fromJSString <$> (js_getKeySystem (self)))   foreign import javascript unsafe "$1[\"sessionId\"]"-        js_getSessionId :: JSRef MediaKeyEvent -> IO JSString+        js_getSessionId :: MediaKeyEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.sessionId Mozilla MediaKeyEvent.sessionId documentation>  getSessionId ::              (MonadIO m, FromJSString result) => MediaKeyEvent -> m result getSessionId self-  = liftIO-      (fromJSString <$> (js_getSessionId (unMediaKeyEvent self)))+  = liftIO (fromJSString <$> (js_getSessionId (self)))   foreign import javascript unsafe "$1[\"initData\"]" js_getInitData-        :: JSRef MediaKeyEvent -> IO (JSRef Uint8Array)+        :: MediaKeyEvent -> IO (Nullable Uint8Array)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.initData Mozilla MediaKeyEvent.initData documentation>  getInitData :: (MonadIO m) => MediaKeyEvent -> m (Maybe Uint8Array) getInitData self-  = liftIO ((js_getInitData (unMediaKeyEvent self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getInitData (self)))   foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::-        JSRef MediaKeyEvent -> IO (JSRef Uint8Array)+        MediaKeyEvent -> IO (Nullable Uint8Array)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.message Mozilla MediaKeyEvent.message documentation>  getMessage :: (MonadIO m) => MediaKeyEvent -> m (Maybe Uint8Array) getMessage self-  = liftIO ((js_getMessage (unMediaKeyEvent self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getMessage (self)))   foreign import javascript unsafe "$1[\"defaultURL\"]"-        js_getDefaultURL :: JSRef MediaKeyEvent -> IO JSString+        js_getDefaultURL :: MediaKeyEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.defaultURL Mozilla MediaKeyEvent.defaultURL documentation>  getDefaultURL ::               (MonadIO m, FromJSString result) => MediaKeyEvent -> m result getDefaultURL self-  = liftIO-      (fromJSString <$> (js_getDefaultURL (unMediaKeyEvent self)))+  = liftIO (fromJSString <$> (js_getDefaultURL (self)))   foreign import javascript unsafe "$1[\"errorCode\"]"-        js_getErrorCode :: JSRef MediaKeyEvent -> IO (JSRef MediaKeyError)+        js_getErrorCode :: MediaKeyEvent -> IO (Nullable MediaKeyError)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.errorCode Mozilla MediaKeyEvent.errorCode documentation>  getErrorCode ::              (MonadIO m) => MediaKeyEvent -> m (Maybe MediaKeyError) getErrorCode self-  = liftIO ((js_getErrorCode (unMediaKeyEvent self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getErrorCode (self)))   foreign import javascript unsafe "$1[\"systemCode\"]"-        js_getSystemCode :: JSRef MediaKeyEvent -> IO Word+        js_getSystemCode :: MediaKeyEvent -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyEvent.systemCode Mozilla MediaKeyEvent.systemCode documentation>  getSystemCode :: (MonadIO m) => MediaKeyEvent -> m Word-getSystemCode self-  = liftIO (js_getSystemCode (unMediaKeyEvent self))+getSystemCode self = liftIO (js_getSystemCode (self))
src/GHCJS/DOM/JSFFI/Generated/MediaKeyMessageEvent.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,23 +20,20 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::-        JSRef MediaKeyMessageEvent -> IO (JSRef Uint8Array)+        MediaKeyMessageEvent -> IO (Nullable Uint8Array)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent.message Mozilla WebKitMediaKeyMessageEvent.message documentation>  getMessage ::            (MonadIO m) => MediaKeyMessageEvent -> m (Maybe Uint8Array) getMessage self-  = liftIO-      ((js_getMessage (unMediaKeyMessageEvent self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getMessage (self)))   foreign import javascript unsafe "$1[\"destinationURL\"]"-        js_getDestinationURL :: JSRef MediaKeyMessageEvent -> IO JSString+        js_getDestinationURL :: MediaKeyMessageEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeyMessageEvent.destinationURL Mozilla WebKitMediaKeyMessageEvent.destinationURL documentation>  getDestinationURL ::                   (MonadIO m, FromJSString result) =>                     MediaKeyMessageEvent -> m result getDestinationURL self-  = liftIO-      (fromJSString <$>-         (js_getDestinationURL (unMediaKeyMessageEvent self)))+  = liftIO (fromJSString <$> (js_getDestinationURL (self)))
src/GHCJS/DOM/JSFFI/Generated/MediaKeyNeededEvent.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,11 +19,10 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"initData\"]" js_getInitData-        :: JSRef MediaKeyNeededEvent -> IO (JSRef Uint8Array)+        :: MediaKeyNeededEvent -> IO (Nullable Uint8Array)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaKeyNeededEvent.initData Mozilla MediaKeyNeededEvent.initData documentation>  getInitData ::             (MonadIO m) => MediaKeyNeededEvent -> m (Maybe Uint8Array) getInitData self-  = liftIO-      ((js_getInitData (unMediaKeyNeededEvent self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getInitData (self)))
src/GHCJS/DOM/JSFFI/Generated/MediaKeySession.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,7 +21,7 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"update\"]($2)" js_update ::-        JSRef MediaKeySession -> JSRef Uint8Array -> IO ()+        MediaKeySession -> Nullable Uint8Array -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.update Mozilla WebKitMediaKeySession.update documentation>  update ::@@ -29,44 +29,40 @@          MediaKeySession -> Maybe key -> m () update self key   = liftIO-      (js_update (unMediaKeySession self)-         (maybe jsNull (unUint8Array . toUint8Array) key))+      (js_update (self) (maybeToNullable (fmap toUint8Array key)))   foreign import javascript unsafe "$1[\"close\"]()" js_close ::-        JSRef MediaKeySession -> IO ()+        MediaKeySession -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.close Mozilla WebKitMediaKeySession.close documentation>  close :: (MonadIO m) => MediaKeySession -> m ()-close self = liftIO (js_close (unMediaKeySession self))+close self = liftIO (js_close (self))   foreign import javascript unsafe "$1[\"error\"]" js_getError ::-        JSRef MediaKeySession -> IO (JSRef MediaKeyError)+        MediaKeySession -> IO (Nullable MediaKeyError)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.error Mozilla WebKitMediaKeySession.error documentation>  getError ::          (MonadIO m) => MediaKeySession -> m (Maybe MediaKeyError)-getError self-  = liftIO ((js_getError (unMediaKeySession self)) >>= fromJSRef)+getError self = liftIO (nullableToMaybe <$> (js_getError (self)))   foreign import javascript unsafe "$1[\"keySystem\"]"-        js_getKeySystem :: JSRef MediaKeySession -> IO JSString+        js_getKeySystem :: MediaKeySession -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.keySystem Mozilla WebKitMediaKeySession.keySystem documentation>  getKeySystem ::              (MonadIO m, FromJSString result) => MediaKeySession -> m result getKeySystem self-  = liftIO-      (fromJSString <$> (js_getKeySystem (unMediaKeySession self)))+  = liftIO (fromJSString <$> (js_getKeySystem (self)))   foreign import javascript unsafe "$1[\"sessionId\"]"-        js_getSessionId :: JSRef MediaKeySession -> IO JSString+        js_getSessionId :: MediaKeySession -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.sessionId Mozilla WebKitMediaKeySession.sessionId documentation>  getSessionId ::              (MonadIO m, FromJSString result) => MediaKeySession -> m result getSessionId self-  = liftIO-      (fromJSString <$> (js_getSessionId (unMediaKeySession self)))+  = liftIO (fromJSString <$> (js_getSessionId (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeySession.onwebkitkeyadded Mozilla WebKitMediaKeySession.onwebkitkeyadded documentation>  webKitKeyAdded :: EventName MediaKeySession Event
src/GHCJS/DOM/JSFFI/Generated/MediaKeys.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,19 +21,18 @@   foreign import javascript unsafe         "new window[\"WebKitMediaKeys\"]($1)" js_newMediaKeys ::-        JSString -> IO (JSRef MediaKeys)+        JSString -> IO MediaKeys  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys Mozilla WebKitMediaKeys documentation>  newMediaKeys ::              (MonadIO m, ToJSString keySystem) => keySystem -> m MediaKeys newMediaKeys keySystem-  = liftIO-      (js_newMediaKeys (toJSString keySystem) >>= fromJSRefUnchecked)+  = liftIO (js_newMediaKeys (toJSString keySystem))   foreign import javascript unsafe "$1[\"createSession\"]($2, $3)"         js_createSession ::-        JSRef MediaKeys ->-          JSString -> JSRef Uint8Array -> IO (JSRef MediaKeySession)+        MediaKeys ->+          JSString -> Nullable Uint8Array -> IO (Nullable MediaKeySession)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.createSession Mozilla WebKitMediaKeys.createSession documentation>  createSession ::@@ -41,13 +40,13 @@                 MediaKeys -> type' -> Maybe initData -> m (Maybe MediaKeySession) createSession self type' initData   = liftIO-      ((js_createSession (unMediaKeys self) (toJSString type')-          (maybe jsNull (unUint8Array . toUint8Array) initData))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createSession (self) (toJSString type')+            (maybeToNullable (fmap toUint8Array initData))))   foreign import javascript unsafe         "($1[\"isTypeSupported\"]($2,\n$3) ? 1 : 0)" js_isTypeSupported ::-        JSRef MediaKeys -> JSString -> JSString -> IO Bool+        MediaKeys -> JSString -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.isTypeSupported Mozilla WebKitMediaKeys.isTypeSupported documentation>  isTypeSupported ::@@ -55,14 +54,14 @@                   MediaKeys -> keySystem -> type' -> m Bool isTypeSupported self keySystem type'   = liftIO-      (js_isTypeSupported (unMediaKeys self) (toJSString keySystem)+      (js_isTypeSupported (self) (toJSString keySystem)          (toJSString type'))   foreign import javascript unsafe "$1[\"keySystem\"]"-        js_getKeySystem :: JSRef MediaKeys -> IO JSString+        js_getKeySystem :: MediaKeys -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/WebKitMediaKeys.keySystem Mozilla WebKitMediaKeys.keySystem documentation>  getKeySystem ::              (MonadIO m, FromJSString result) => MediaKeys -> m result getKeySystem self-  = liftIO (fromJSString <$> (js_getKeySystem (unMediaKeys self)))+  = liftIO (fromJSString <$> (js_getKeySystem (self)))
src/GHCJS/DOM/JSFFI/Generated/MediaList.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,58 +21,54 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef MediaList -> Word -> IO (JSRef (Maybe JSString))+        MediaList -> Word -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.item Mozilla MediaList.item documentation>  item ::      (MonadIO m, FromJSString result) =>        MediaList -> Word -> m (Maybe result) item self index-  = liftIO (fromMaybeJSString <$> (js_item (unMediaList self) index))+  = liftIO (fromMaybeJSString <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"deleteMedium\"]($2)"-        js_deleteMedium :: JSRef MediaList -> JSString -> IO ()+        js_deleteMedium :: MediaList -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.deleteMedium Mozilla MediaList.deleteMedium documentation>  deleteMedium ::              (MonadIO m, ToJSString oldMedium) => MediaList -> oldMedium -> m () deleteMedium self oldMedium-  = liftIO-      (js_deleteMedium (unMediaList self) (toJSString oldMedium))+  = liftIO (js_deleteMedium (self) (toJSString oldMedium))   foreign import javascript unsafe "$1[\"appendMedium\"]($2)"-        js_appendMedium :: JSRef MediaList -> JSString -> IO ()+        js_appendMedium :: MediaList -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.appendMedium Mozilla MediaList.appendMedium documentation>  appendMedium ::              (MonadIO m, ToJSString newMedium) => MediaList -> newMedium -> m () appendMedium self newMedium-  = liftIO-      (js_appendMedium (unMediaList self) (toJSString newMedium))+  = liftIO (js_appendMedium (self) (toJSString newMedium))   foreign import javascript unsafe "$1[\"mediaText\"] = $2;"-        js_setMediaText ::-        JSRef MediaList -> JSRef (Maybe JSString) -> IO ()+        js_setMediaText :: MediaList -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.mediaText Mozilla MediaList.mediaText documentation>  setMediaText ::              (MonadIO m, ToJSString val) => MediaList -> Maybe val -> m () setMediaText self val-  = liftIO (js_setMediaText (unMediaList self) (toMaybeJSString val))+  = liftIO (js_setMediaText (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"mediaText\"]"-        js_getMediaText :: JSRef MediaList -> IO (JSRef (Maybe JSString))+        js_getMediaText :: MediaList -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.mediaText Mozilla MediaList.mediaText documentation>  getMediaText ::              (MonadIO m, FromJSString result) => MediaList -> m (Maybe result) getMediaText self-  = liftIO-      (fromMaybeJSString <$> (js_getMediaText (unMediaList self)))+  = liftIO (fromMaybeJSString <$> (js_getMediaText (self)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef MediaList -> IO Word+        MediaList -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaList.length Mozilla MediaList.length documentation>  getLength :: (MonadIO m) => MediaList -> m Word-getLength self = liftIO (js_getLength (unMediaList self))+getLength self = liftIO (js_getLength (self))
src/GHCJS/DOM/JSFFI/Generated/MediaQueryList.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,42 +21,37 @@   foreign import javascript unsafe "$1[\"addListener\"]($2)"         js_addListener ::-        JSRef MediaQueryList -> JSRef MediaQueryListListener -> IO ()+        MediaQueryList -> Nullable MediaQueryListListener -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList.addListener Mozilla MediaQueryList.addListener documentation>  addListener ::             (MonadIO m) =>               MediaQueryList -> Maybe MediaQueryListListener -> m () addListener self listener-  = liftIO-      (js_addListener (unMediaQueryList self)-         (maybe jsNull pToJSRef listener))+  = liftIO (js_addListener (self) (maybeToNullable listener))   foreign import javascript unsafe "$1[\"removeListener\"]($2)"         js_removeListener ::-        JSRef MediaQueryList -> JSRef MediaQueryListListener -> IO ()+        MediaQueryList -> Nullable MediaQueryListListener -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList.removeListener Mozilla MediaQueryList.removeListener documentation>  removeListener ::                (MonadIO m) =>                  MediaQueryList -> Maybe MediaQueryListListener -> m () removeListener self listener-  = liftIO-      (js_removeListener (unMediaQueryList self)-         (maybe jsNull pToJSRef listener))+  = liftIO (js_removeListener (self) (maybeToNullable listener))   foreign import javascript unsafe "$1[\"media\"]" js_getMedia ::-        JSRef MediaQueryList -> IO JSString+        MediaQueryList -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList.media Mozilla MediaQueryList.media documentation>  getMedia ::          (MonadIO m, FromJSString result) => MediaQueryList -> m result-getMedia self-  = liftIO (fromJSString <$> (js_getMedia (unMediaQueryList self)))+getMedia self = liftIO (fromJSString <$> (js_getMedia (self)))   foreign import javascript unsafe "($1[\"matches\"] ? 1 : 0)"-        js_getMatches :: JSRef MediaQueryList -> IO Bool+        js_getMatches :: MediaQueryList -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryList.matches Mozilla MediaQueryList.matches documentation>  getMatches :: (MonadIO m) => MediaQueryList -> m Bool-getMatches self = liftIO (js_getMatches (unMediaQueryList self))+getMatches self = liftIO (js_getMatches (self))
src/GHCJS/DOM/JSFFI/Generated/MediaQueryListListener.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,8 +24,9 @@                             (Maybe MediaQueryList -> IO ()) -> m MediaQueryListListener newMediaQueryListListener callback   = liftIO-      (syncCallback1 ThrowWouldBlock-         (\ list -> fromJSRefUnchecked list >>= \ list' -> callback list'))+      (MediaQueryListListener <$>+         syncCallback1 ThrowWouldBlock+           (\ list -> fromJSRefUnchecked list >>= \ list' -> callback list'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryListListener Mozilla MediaQueryListListener documentation>  newMediaQueryListListenerSync ::@@ -33,8 +34,9 @@                                 (Maybe MediaQueryList -> IO ()) -> m MediaQueryListListener newMediaQueryListListenerSync callback   = liftIO-      (syncCallback1 ContinueAsync-         (\ list -> fromJSRefUnchecked list >>= \ list' -> callback list'))+      (MediaQueryListListener <$>+         syncCallback1 ContinueAsync+           (\ list -> fromJSRefUnchecked list >>= \ list' -> callback list'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaQueryListListener Mozilla MediaQueryListListener documentation>  newMediaQueryListListenerAsync ::@@ -42,5 +44,6 @@                                  (Maybe MediaQueryList -> IO ()) -> m MediaQueryListListener newMediaQueryListListenerAsync callback   = liftIO-      (asyncCallback1-         (\ list -> fromJSRefUnchecked list >>= \ list' -> callback list'))+      (MediaQueryListListener <$>+         asyncCallback1+           (\ list -> fromJSRefUnchecked list >>= \ list' -> callback list'))
src/GHCJS/DOM/JSFFI/Generated/MediaSource.hs view
@@ -10,7 +10,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,15 +24,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "new window[\"MediaSource\"]()"-        js_newMediaSource :: IO (JSRef MediaSource)+        js_newMediaSource :: IO MediaSource  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource Mozilla MediaSource documentation>  newMediaSource :: (MonadIO m) => m MediaSource-newMediaSource = liftIO (js_newMediaSource >>= fromJSRefUnchecked)+newMediaSource = liftIO (js_newMediaSource)   foreign import javascript unsafe "$1[\"addSourceBuffer\"]($2)"         js_addSourceBuffer ::-        JSRef MediaSource -> JSString -> IO (JSRef SourceBuffer)+        MediaSource -> JSString -> IO (Nullable SourceBuffer)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.addSourceBuffer Mozilla MediaSource.addSourceBuffer documentation>  addSourceBuffer ::@@ -40,83 +40,77 @@                   MediaSource -> type' -> m (Maybe SourceBuffer) addSourceBuffer self type'   = liftIO-      ((js_addSourceBuffer (unMediaSource self) (toJSString type')) >>=-         fromJSRef)+      (nullableToMaybe <$>+         (js_addSourceBuffer (self) (toJSString type')))   foreign import javascript unsafe "$1[\"removeSourceBuffer\"]($2)"         js_removeSourceBuffer ::-        JSRef MediaSource -> JSRef SourceBuffer -> IO ()+        MediaSource -> Nullable SourceBuffer -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.removeSourceBuffer Mozilla MediaSource.removeSourceBuffer documentation>  removeSourceBuffer ::                    (MonadIO m) => MediaSource -> Maybe SourceBuffer -> m () removeSourceBuffer self buffer-  = liftIO-      (js_removeSourceBuffer (unMediaSource self)-         (maybe jsNull pToJSRef buffer))+  = liftIO (js_removeSourceBuffer (self) (maybeToNullable buffer))   foreign import javascript unsafe "$1[\"endOfStream\"]($2)"-        js_endOfStream ::-        JSRef MediaSource -> JSRef EndOfStreamError -> IO ()+        js_endOfStream :: MediaSource -> JSRef -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.endOfStream Mozilla MediaSource.endOfStream documentation>  endOfStream ::             (MonadIO m) => MediaSource -> EndOfStreamError -> m () endOfStream self error-  = liftIO (js_endOfStream (unMediaSource self) (pToJSRef error))+  = liftIO (js_endOfStream (self) (pToJSRef error))   foreign import javascript unsafe         "($1[\"isTypeSupported\"]($2) ? 1 : 0)" js_isTypeSupported ::-        JSRef MediaSource -> JSString -> IO Bool+        MediaSource -> JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.isTypeSupported Mozilla MediaSource.isTypeSupported documentation>  isTypeSupported ::                 (MonadIO m, ToJSString type') => MediaSource -> type' -> m Bool isTypeSupported self type'-  = liftIO-      (js_isTypeSupported (unMediaSource self) (toJSString type'))+  = liftIO (js_isTypeSupported (self) (toJSString type'))   foreign import javascript unsafe "$1[\"sourceBuffers\"]"         js_getSourceBuffers ::-        JSRef MediaSource -> IO (JSRef SourceBufferList)+        MediaSource -> IO (Nullable SourceBufferList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.sourceBuffers Mozilla MediaSource.sourceBuffers documentation>  getSourceBuffers ::                  (MonadIO m) => MediaSource -> m (Maybe SourceBufferList) getSourceBuffers self-  = liftIO ((js_getSourceBuffers (unMediaSource self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSourceBuffers (self)))   foreign import javascript unsafe "$1[\"activeSourceBuffers\"]"         js_getActiveSourceBuffers ::-        JSRef MediaSource -> IO (JSRef SourceBufferList)+        MediaSource -> IO (Nullable SourceBufferList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.activeSourceBuffers Mozilla MediaSource.activeSourceBuffers documentation>  getActiveSourceBuffers ::                        (MonadIO m) => MediaSource -> m (Maybe SourceBufferList) getActiveSourceBuffers self-  = liftIO-      ((js_getActiveSourceBuffers (unMediaSource self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getActiveSourceBuffers (self)))   foreign import javascript unsafe "$1[\"duration\"] = $2;"-        js_setDuration :: JSRef MediaSource -> Double -> IO ()+        js_setDuration :: MediaSource -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.duration Mozilla MediaSource.duration documentation>  setDuration :: (MonadIO m) => MediaSource -> Double -> m ()-setDuration self val-  = liftIO (js_setDuration (unMediaSource self) val)+setDuration self val = liftIO (js_setDuration (self) val)   foreign import javascript unsafe "$1[\"duration\"]" js_getDuration-        :: JSRef MediaSource -> IO Double+        :: MediaSource -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.duration Mozilla MediaSource.duration documentation>  getDuration :: (MonadIO m) => MediaSource -> m Double-getDuration self = liftIO (js_getDuration (unMediaSource self))+getDuration self = liftIO (js_getDuration (self))   foreign import javascript unsafe "$1[\"readyState\"]"-        js_getReadyState :: JSRef MediaSource -> IO JSString+        js_getReadyState :: MediaSource -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSource.readyState Mozilla MediaSource.readyState documentation>  getReadyState ::               (MonadIO m, FromJSString result) => MediaSource -> m result getReadyState self-  = liftIO (fromJSString <$> (js_getReadyState (unMediaSource self)))+  = liftIO (fromJSString <$> (js_getReadyState (self)))
src/GHCJS/DOM/JSFFI/Generated/MediaSourceStates.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,85 +22,69 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"sourceType\"]"-        js_getSourceType ::-        JSRef MediaSourceStates -> IO (JSRef SourceTypeEnum)+        js_getSourceType :: MediaSourceStates -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.sourceType Mozilla MediaSourceStates.sourceType documentation>  getSourceType ::               (MonadIO m) => MediaSourceStates -> m SourceTypeEnum getSourceType self-  = liftIO-      ((js_getSourceType (unMediaSourceStates self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getSourceType (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"sourceId\"]" js_getSourceId-        :: JSRef MediaSourceStates -> IO JSString+        :: MediaSourceStates -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.sourceId Mozilla MediaSourceStates.sourceId documentation>  getSourceId ::             (MonadIO m, FromJSString result) => MediaSourceStates -> m result getSourceId self-  = liftIO-      (fromJSString <$> (js_getSourceId (unMediaSourceStates self)))+  = liftIO (fromJSString <$> (js_getSourceId (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef MediaSourceStates -> IO (JSRef (Maybe Word))+        MediaSourceStates -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.width Mozilla MediaSourceStates.width documentation>  getWidth :: (MonadIO m) => MediaSourceStates -> m (Maybe Word) getWidth self-  = liftIO-      ((js_getWidth (unMediaSourceStates self)) >>= fromJSRefUnchecked)+  = liftIO ((js_getWidth (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef MediaSourceStates -> IO (JSRef (Maybe Word))+        MediaSourceStates -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.height Mozilla MediaSourceStates.height documentation>  getHeight :: (MonadIO m) => MediaSourceStates -> m (Maybe Word) getHeight self-  = liftIO-      ((js_getHeight (unMediaSourceStates self)) >>= fromJSRefUnchecked)+  = liftIO ((js_getHeight (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"frameRate\"]"-        js_getFrameRate ::-        JSRef MediaSourceStates -> IO (JSRef (Maybe Float))+        js_getFrameRate :: MediaSourceStates -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.frameRate Mozilla MediaSourceStates.frameRate documentation>  getFrameRate :: (MonadIO m) => MediaSourceStates -> m (Maybe Float) getFrameRate self-  = liftIO-      ((js_getFrameRate (unMediaSourceStates self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getFrameRate (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"aspectRatio\"]"-        js_getAspectRatio ::-        JSRef MediaSourceStates -> IO (JSRef (Maybe Float))+        js_getAspectRatio :: MediaSourceStates -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.aspectRatio Mozilla MediaSourceStates.aspectRatio documentation>  getAspectRatio ::                (MonadIO m) => MediaSourceStates -> m (Maybe Float) getAspectRatio self-  = liftIO-      ((js_getAspectRatio (unMediaSourceStates self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getAspectRatio (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"facingMode\"]"-        js_getFacingMode ::-        JSRef MediaSourceStates -> IO (JSRef VideoFacingModeEnum)+        js_getFacingMode :: MediaSourceStates -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.facingMode Mozilla MediaSourceStates.facingMode documentation>  getFacingMode ::               (MonadIO m) => MediaSourceStates -> m VideoFacingModeEnum getFacingMode self-  = liftIO-      ((js_getFacingMode (unMediaSourceStates self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getFacingMode (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"volume\"]" js_getVolume ::-        JSRef MediaSourceStates -> IO (JSRef (Maybe Word))+        MediaSourceStates -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaSourceStates.volume Mozilla MediaSourceStates.volume documentation>  getVolume :: (MonadIO m) => MediaSourceStates -> m (Maybe Word) getVolume self-  = liftIO-      ((js_getVolume (unMediaSourceStates self)) >>= fromJSRefUnchecked)+  = liftIO ((js_getVolume (self)) >>= fromJSRefUnchecked)
src/GHCJS/DOM/JSFFI/Generated/MediaStream.hs view
@@ -11,7 +11,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -26,27 +26,25 @@   foreign import javascript unsafe         "new window[\"webkitMediaStream\"]()" js_newMediaStream ::-        IO (JSRef MediaStream)+        IO MediaStream  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream Mozilla webkitMediaStream documentation>  newMediaStream :: (MonadIO m) => m MediaStream-newMediaStream = liftIO (js_newMediaStream >>= fromJSRefUnchecked)+newMediaStream = liftIO (js_newMediaStream)   foreign import javascript unsafe         "new window[\"webkitMediaStream\"]($1)" js_newMediaStream' ::-        JSRef MediaStream -> IO (JSRef MediaStream)+        Nullable MediaStream -> IO MediaStream  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream Mozilla webkitMediaStream documentation>  newMediaStream' ::                 (MonadIO m) => Maybe MediaStream -> m MediaStream newMediaStream' stream-  = liftIO-      (js_newMediaStream' (maybe jsNull pToJSRef stream) >>=-         fromJSRefUnchecked)+  = liftIO (js_newMediaStream' (maybeToNullable stream))   foreign import javascript unsafe         "new window[\"webkitMediaStream\"]($1)" js_newMediaStream'' ::-        JSRef [Maybe tracks] -> IO (JSRef MediaStream)+        JSRef -> IO MediaStream  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream Mozilla webkitMediaStream documentation>  newMediaStream'' ::@@ -54,43 +52,37 @@                    [Maybe tracks] -> m MediaStream newMediaStream'' tracks   = liftIO-      (toJSRef tracks >>= \ tracks' -> js_newMediaStream'' tracks' >>=-         fromJSRefUnchecked)+      (toJSRef tracks >>= \ tracks' -> js_newMediaStream'' tracks')   foreign import javascript unsafe "$1[\"getAudioTracks\"]()"-        js_getAudioTracks ::-        JSRef MediaStream -> IO (JSRef [Maybe MediaStreamTrack])+        js_getAudioTracks :: MediaStream -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getAudioTracks Mozilla webkitMediaStream.getAudioTracks documentation>  getAudioTracks ::                (MonadIO m) => MediaStream -> m [Maybe MediaStreamTrack] getAudioTracks self-  = liftIO-      ((js_getAudioTracks (unMediaStream self)) >>= fromJSRefUnchecked)+  = liftIO ((js_getAudioTracks (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"getVideoTracks\"]()"-        js_getVideoTracks ::-        JSRef MediaStream -> IO (JSRef [Maybe MediaStreamTrack])+        js_getVideoTracks :: MediaStream -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getVideoTracks Mozilla webkitMediaStream.getVideoTracks documentation>  getVideoTracks ::                (MonadIO m) => MediaStream -> m [Maybe MediaStreamTrack] getVideoTracks self-  = liftIO-      ((js_getVideoTracks (unMediaStream self)) >>= fromJSRefUnchecked)+  = liftIO ((js_getVideoTracks (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"getTracks\"]()" js_getTracks-        :: JSRef MediaStream -> IO (JSRef [Maybe MediaStreamTrack])+        :: MediaStream -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTracks Mozilla webkitMediaStream.getTracks documentation>  getTracks ::           (MonadIO m) => MediaStream -> m [Maybe MediaStreamTrack] getTracks self-  = liftIO-      ((js_getTracks (unMediaStream self)) >>= fromJSRefUnchecked)+  = liftIO ((js_getTracks (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"addTrack\"]($2)" js_addTrack-        :: JSRef MediaStream -> JSRef MediaStreamTrack -> IO ()+        :: MediaStream -> Nullable MediaStreamTrack -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.addTrack Mozilla webkitMediaStream.addTrack documentation>  addTrack ::@@ -98,12 +90,11 @@            MediaStream -> Maybe track -> m () addTrack self track   = liftIO-      (js_addTrack (unMediaStream self)-         (maybe jsNull (unMediaStreamTrack . toMediaStreamTrack) track))+      (js_addTrack (self)+         (maybeToNullable (fmap toMediaStreamTrack track)))   foreign import javascript unsafe "$1[\"removeTrack\"]($2)"-        js_removeTrack ::-        JSRef MediaStream -> JSRef MediaStreamTrack -> IO ()+        js_removeTrack :: MediaStream -> Nullable MediaStreamTrack -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.removeTrack Mozilla webkitMediaStream.removeTrack documentation>  removeTrack ::@@ -111,12 +102,12 @@               MediaStream -> Maybe track -> m () removeTrack self track   = liftIO-      (js_removeTrack (unMediaStream self)-         (maybe jsNull (unMediaStreamTrack . toMediaStreamTrack) track))+      (js_removeTrack (self)+         (maybeToNullable (fmap toMediaStreamTrack track)))   foreign import javascript unsafe "$1[\"getTrackById\"]($2)"         js_getTrackById ::-        JSRef MediaStream -> JSString -> IO (JSRef MediaStreamTrack)+        MediaStream -> JSString -> IO (Nullable MediaStreamTrack)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.getTrackById Mozilla webkitMediaStream.getTrackById documentation>  getTrackById ::@@ -124,31 +115,29 @@                MediaStream -> trackId -> m (Maybe MediaStreamTrack) getTrackById self trackId   = liftIO-      ((js_getTrackById (unMediaStream self) (toJSString trackId)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getTrackById (self) (toJSString trackId)))   foreign import javascript unsafe "$1[\"clone\"]()" js_clone ::-        JSRef MediaStream -> IO (JSRef MediaStream)+        MediaStream -> IO (Nullable MediaStream)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.clone Mozilla webkitMediaStream.clone documentation>  clone :: (MonadIO m) => MediaStream -> m (Maybe MediaStream)-clone self = liftIO ((js_clone (unMediaStream self)) >>= fromJSRef)+clone self = liftIO (nullableToMaybe <$> (js_clone (self)))   foreign import javascript unsafe "$1[\"id\"]" js_getId ::-        JSRef MediaStream -> IO JSString+        MediaStream -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.id Mozilla webkitMediaStream.id documentation>  getId ::       (MonadIO m, FromJSString result) => MediaStream -> m result-getId self-  = liftIO (fromJSString <$> (js_getId (unMediaStream self)))+getId self = liftIO (fromJSString <$> (js_getId (self)))   foreign import javascript unsafe "($1[\"active\"] ? 1 : 0)"-        js_getActive :: JSRef MediaStream -> IO Bool+        js_getActive :: MediaStream -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.active Mozilla webkitMediaStream.active documentation>  getActive :: (MonadIO m) => MediaStream -> m Bool-getActive self = liftIO (js_getActive (unMediaStream self))+getActive self = liftIO (js_getActive (self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitMediaStream.onactive Mozilla webkitMediaStream.onactive documentation>  active :: EventName MediaStream Event
src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioDestinationNode.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,13 +20,10 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"stream\"]" js_getStream ::-        JSRef MediaStreamAudioDestinationNode -> IO (JSRef MediaStream)+        MediaStreamAudioDestinationNode -> IO (Nullable MediaStream)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioDestinationNode.stream Mozilla MediaStreamAudioDestinationNode.stream documentation>  getStream ::           (MonadIO m) =>             MediaStreamAudioDestinationNode -> m (Maybe MediaStream)-getStream self-  = liftIO-      ((js_getStream (unMediaStreamAudioDestinationNode self)) >>=-         fromJSRef)+getStream self = liftIO (nullableToMaybe <$> (js_getStream (self)))
src/GHCJS/DOM/JSFFI/Generated/MediaStreamAudioSourceNode.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,12 +20,10 @@   foreign import javascript unsafe "$1[\"mediaStream\"]"         js_getMediaStream ::-        JSRef MediaStreamAudioSourceNode -> IO (JSRef MediaStream)+        MediaStreamAudioSourceNode -> IO (Nullable MediaStream)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamAudioSourceNode.mediaStream Mozilla MediaStreamAudioSourceNode.mediaStream documentation>  getMediaStream ::                (MonadIO m) => MediaStreamAudioSourceNode -> m (Maybe MediaStream) getMediaStream self-  = liftIO-      ((js_getMediaStream (unMediaStreamAudioSourceNode self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getMediaStream (self)))
src/GHCJS/DOM/JSFFI/Generated/MediaStreamEvent.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,10 +19,9 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"stream\"]" js_getStream ::-        JSRef MediaStreamEvent -> IO (JSRef MediaStream)+        MediaStreamEvent -> IO (Nullable MediaStream)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamEvent.stream Mozilla MediaStreamEvent.stream documentation>  getStream ::           (MonadIO m) => MediaStreamEvent -> m (Maybe MediaStream)-getStream self-  = liftIO ((js_getStream (unMediaStreamEvent self)) >>= fromJSRef)+getStream self = liftIO (nullableToMaybe <$> (js_getStream (self)))
src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrack.hs view
@@ -12,7 +12,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,8 +27,8 @@   foreign import javascript unsafe "$1[\"getSources\"]($2)"         js_getSources ::-        JSRef MediaStreamTrack ->-          JSRef MediaStreamTrackSourcesCallback -> IO ()+        MediaStreamTrack ->+          Nullable MediaStreamTrackSourcesCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getSources Mozilla MediaStreamTrack.getSources documentation>  getSources ::@@ -36,12 +36,12 @@              self -> Maybe MediaStreamTrackSourcesCallback -> m () getSources self callback   = liftIO-      (js_getSources (unMediaStreamTrack (toMediaStreamTrack self))-         (maybe jsNull pToJSRef callback))+      (js_getSources (toMediaStreamTrack self)+         (maybeToNullable callback))   foreign import javascript unsafe "$1[\"getConstraints\"]()"         js_getConstraints ::-        JSRef MediaStreamTrack -> IO (JSRef MediaTrackConstraints)+        MediaStreamTrack -> IO (Nullable MediaTrackConstraints)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getConstraints Mozilla MediaStreamTrack.getConstraints documentation>  getConstraints ::@@ -49,11 +49,10 @@                  self -> m (Maybe MediaTrackConstraints) getConstraints self   = liftIO-      ((js_getConstraints (unMediaStreamTrack (toMediaStreamTrack self)))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_getConstraints (toMediaStreamTrack self)))   foreign import javascript unsafe "$1[\"states\"]()" js_states ::-        JSRef MediaStreamTrack -> IO (JSRef MediaSourceStates)+        MediaStreamTrack -> IO (Nullable MediaSourceStates)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.states Mozilla MediaStreamTrack.states documentation>  states ::@@ -61,12 +60,11 @@          self -> m (Maybe MediaSourceStates) states self   = liftIO-      ((js_states (unMediaStreamTrack (toMediaStreamTrack self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_states (toMediaStreamTrack self)))   foreign import javascript unsafe "$1[\"getCapabilities\"]()"         js_getCapabilities ::-        JSRef MediaStreamTrack -> IO (JSRef MediaStreamCapabilities)+        MediaStreamTrack -> IO (Nullable MediaStreamCapabilities)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.getCapabilities Mozilla MediaStreamTrack.getCapabilities documentation>  getCapabilities ::@@ -74,13 +72,12 @@                   self -> m (Maybe MediaStreamCapabilities) getCapabilities self   = liftIO-      ((js_getCapabilities-          (unMediaStreamTrack (toMediaStreamTrack self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getCapabilities (toMediaStreamTrack self)))   foreign import javascript unsafe "$1[\"applyConstraints\"]($2)"         js_applyConstraints ::-        JSRef MediaStreamTrack -> JSRef Dictionary -> IO ()+        MediaStreamTrack -> Nullable Dictionary -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.applyConstraints Mozilla MediaStreamTrack.applyConstraints documentation>  applyConstraints ::@@ -88,93 +85,79 @@                    self -> Maybe constraints -> m () applyConstraints self constraints   = liftIO-      (js_applyConstraints (unMediaStreamTrack (toMediaStreamTrack self))-         (maybe jsNull (unDictionary . toDictionary) constraints))+      (js_applyConstraints (toMediaStreamTrack self)+         (maybeToNullable (fmap toDictionary constraints)))   foreign import javascript unsafe "$1[\"clone\"]()" js_clone ::-        JSRef MediaStreamTrack -> IO (JSRef MediaStreamTrack)+        MediaStreamTrack -> IO (Nullable MediaStreamTrack)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.clone Mozilla MediaStreamTrack.clone documentation>  clone ::       (MonadIO m, IsMediaStreamTrack self) =>         self -> m (Maybe MediaStreamTrack) clone self-  = liftIO-      ((js_clone (unMediaStreamTrack (toMediaStreamTrack self))) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_clone (toMediaStreamTrack self)))   foreign import javascript unsafe "$1[\"stop\"]()" js_stop ::-        JSRef MediaStreamTrack -> IO ()+        MediaStreamTrack -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.stop Mozilla MediaStreamTrack.stop documentation>  stop :: (MonadIO m, IsMediaStreamTrack self) => self -> m ()-stop self-  = liftIO (js_stop (unMediaStreamTrack (toMediaStreamTrack self)))+stop self = liftIO (js_stop (toMediaStreamTrack self))   foreign import javascript unsafe "$1[\"kind\"]" js_getKind ::-        JSRef MediaStreamTrack -> IO JSString+        MediaStreamTrack -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.kind Mozilla MediaStreamTrack.kind documentation>  getKind ::         (MonadIO m, IsMediaStreamTrack self, FromJSString result) =>           self -> m result getKind self-  = liftIO-      (fromJSString <$>-         (js_getKind (unMediaStreamTrack (toMediaStreamTrack self))))+  = liftIO (fromJSString <$> (js_getKind (toMediaStreamTrack self)))   foreign import javascript unsafe "$1[\"id\"]" js_getId ::-        JSRef MediaStreamTrack -> IO JSString+        MediaStreamTrack -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.id Mozilla MediaStreamTrack.id documentation>  getId ::       (MonadIO m, IsMediaStreamTrack self, FromJSString result) =>         self -> m result getId self-  = liftIO-      (fromJSString <$>-         (js_getId (unMediaStreamTrack (toMediaStreamTrack self))))+  = liftIO (fromJSString <$> (js_getId (toMediaStreamTrack self)))   foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::-        JSRef MediaStreamTrack -> IO JSString+        MediaStreamTrack -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.label Mozilla MediaStreamTrack.label documentation>  getLabel ::          (MonadIO m, IsMediaStreamTrack self, FromJSString result) =>            self -> m result getLabel self-  = liftIO-      (fromJSString <$>-         (js_getLabel (unMediaStreamTrack (toMediaStreamTrack self))))+  = liftIO (fromJSString <$> (js_getLabel (toMediaStreamTrack self)))   foreign import javascript unsafe "$1[\"enabled\"] = $2;"-        js_setEnabled :: JSRef MediaStreamTrack -> Bool -> IO ()+        js_setEnabled :: MediaStreamTrack -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.enabled Mozilla MediaStreamTrack.enabled documentation>  setEnabled ::            (MonadIO m, IsMediaStreamTrack self) => self -> Bool -> m () setEnabled self val-  = liftIO-      (js_setEnabled (unMediaStreamTrack (toMediaStreamTrack self)) val)+  = liftIO (js_setEnabled (toMediaStreamTrack self) val)   foreign import javascript unsafe "($1[\"enabled\"] ? 1 : 0)"-        js_getEnabled :: JSRef MediaStreamTrack -> IO Bool+        js_getEnabled :: MediaStreamTrack -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.enabled Mozilla MediaStreamTrack.enabled documentation>  getEnabled ::            (MonadIO m, IsMediaStreamTrack self) => self -> m Bool-getEnabled self-  = liftIO-      (js_getEnabled (unMediaStreamTrack (toMediaStreamTrack self)))+getEnabled self = liftIO (js_getEnabled (toMediaStreamTrack self))   foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)"-        js_getMuted :: JSRef MediaStreamTrack -> IO Bool+        js_getMuted :: MediaStreamTrack -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.muted Mozilla MediaStreamTrack.muted documentation>  getMuted :: (MonadIO m, IsMediaStreamTrack self) => self -> m Bool-getMuted self-  = liftIO-      (js_getMuted (unMediaStreamTrack (toMediaStreamTrack self)))+getMuted self = liftIO (js_getMuted (toMediaStreamTrack self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onmute Mozilla MediaStreamTrack.onmute documentation>  mute ::@@ -189,27 +172,23 @@ unmute = unsafeEventName (toJSString "unmute")   foreign import javascript unsafe "($1[\"_readonly\"] ? 1 : 0)"-        js_get_readonly :: JSRef MediaStreamTrack -> IO Bool+        js_get_readonly :: MediaStreamTrack -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack._readonly Mozilla MediaStreamTrack._readonly documentation>  get_readonly ::              (MonadIO m, IsMediaStreamTrack self) => self -> m Bool get_readonly self-  = liftIO-      (js_get_readonly (unMediaStreamTrack (toMediaStreamTrack self)))+  = liftIO (js_get_readonly (toMediaStreamTrack self))   foreign import javascript unsafe "($1[\"remote\"] ? 1 : 0)"-        js_getRemote :: JSRef MediaStreamTrack -> IO Bool+        js_getRemote :: MediaStreamTrack -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.remote Mozilla MediaStreamTrack.remote documentation>  getRemote :: (MonadIO m, IsMediaStreamTrack self) => self -> m Bool-getRemote self-  = liftIO-      (js_getRemote (unMediaStreamTrack (toMediaStreamTrack self)))+getRemote self = liftIO (js_getRemote (toMediaStreamTrack self))   foreign import javascript unsafe "$1[\"readyState\"]"-        js_getReadyState ::-        JSRef MediaStreamTrack -> IO (JSRef MediaStreamTrackState)+        js_getReadyState :: MediaStreamTrack -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.readyState Mozilla MediaStreamTrack.readyState documentation>  getReadyState ::@@ -217,8 +196,8 @@                 self -> m MediaStreamTrackState getReadyState self   = liftIO-      ((js_getReadyState (unMediaStreamTrack (toMediaStreamTrack self)))-         >>= fromJSRefUnchecked)+      ((js_getReadyState (toMediaStreamTrack self)) >>=+         fromJSRefUnchecked)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrack.onstarted Mozilla MediaStreamTrack.onstarted documentation>  started ::
src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackEvent.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,11 +19,9 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"track\"]" js_getTrack ::-        JSRef MediaStreamTrackEvent -> IO (JSRef MediaStreamTrack)+        MediaStreamTrackEvent -> IO (Nullable MediaStreamTrack)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackEvent.track Mozilla MediaStreamTrackEvent.track documentation>  getTrack ::          (MonadIO m) => MediaStreamTrackEvent -> m (Maybe MediaStreamTrack)-getTrack self-  = liftIO-      ((js_getTrack (unMediaStreamTrackEvent self)) >>= fromJSRef)+getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self)))
src/GHCJS/DOM/JSFFI/Generated/MediaStreamTrackSourcesCallback.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,9 +27,10 @@                                        m MediaStreamTrackSourcesCallback newMediaStreamTrackSourcesCallback callback   = liftIO-      (syncCallback1 ThrowWouldBlock-         (\ sources ->-            fromJSRefUnchecked sources >>= \ sources' -> callback sources'))+      (MediaStreamTrackSourcesCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ sources ->+              fromJSRefUnchecked sources >>= \ sources' -> callback sources'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackSourcesCallback Mozilla MediaStreamTrackSourcesCallback documentation>  newMediaStreamTrackSourcesCallbackSync ::@@ -38,9 +39,10 @@                                            m MediaStreamTrackSourcesCallback newMediaStreamTrackSourcesCallbackSync callback   = liftIO-      (syncCallback1 ContinueAsync-         (\ sources ->-            fromJSRefUnchecked sources >>= \ sources' -> callback sources'))+      (MediaStreamTrackSourcesCallback <$>+         syncCallback1 ContinueAsync+           (\ sources ->+              fromJSRefUnchecked sources >>= \ sources' -> callback sources'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaStreamTrackSourcesCallback Mozilla MediaStreamTrackSourcesCallback documentation>  newMediaStreamTrackSourcesCallbackAsync ::@@ -49,6 +51,7 @@                                             m MediaStreamTrackSourcesCallback newMediaStreamTrackSourcesCallbackAsync callback   = liftIO-      (asyncCallback1-         (\ sources ->-            fromJSRefUnchecked sources >>= \ sources' -> callback sources'))+      (MediaStreamTrackSourcesCallback <$>+         asyncCallback1+           (\ sources ->+              fromJSRefUnchecked sources >>= \ sources' -> callback sources'))
src/GHCJS/DOM/JSFFI/Generated/MediaTrackConstraints.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,29 +20,21 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"mandatory\"]"-        js_getMandatory ::-        JSRef MediaTrackConstraints ->-          IO (JSRef (Maybe MediaTrackConstraintSet))+        js_getMandatory :: MediaTrackConstraints -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraints.mandatory Mozilla MediaTrackConstraints.mandatory documentation>  getMandatory ::              (MonadIO m) =>                MediaTrackConstraints -> m (Maybe MediaTrackConstraintSet) getMandatory self-  = liftIO-      ((js_getMandatory (unMediaTrackConstraints self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getMandatory (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"optional\"]" js_getOptional-        ::-        JSRef MediaTrackConstraints ->-          IO (JSRef (Maybe [Maybe MediaTrackConstraint]))+        :: MediaTrackConstraints -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MediaTrackConstraints.optional Mozilla MediaTrackConstraints.optional documentation>  getOptional ::             (MonadIO m) =>               MediaTrackConstraints -> m (Maybe [Maybe MediaTrackConstraint]) getOptional self-  = liftIO-      ((js_getOptional (unMediaTrackConstraints self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getOptional (self)) >>= fromJSRefUnchecked)
src/GHCJS/DOM/JSFFI/Generated/MemoryInfo.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,17 +19,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"usedJSHeapSize\"]"-        js_getUsedJSHeapSize :: JSRef MemoryInfo -> IO Word+        js_getUsedJSHeapSize :: MemoryInfo -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MemoryInfo.usedJSHeapSize Mozilla MemoryInfo.usedJSHeapSize documentation>  getUsedJSHeapSize :: (MonadIO m) => MemoryInfo -> m Word-getUsedJSHeapSize self-  = liftIO (js_getUsedJSHeapSize (unMemoryInfo self))+getUsedJSHeapSize self = liftIO (js_getUsedJSHeapSize (self))   foreign import javascript unsafe "$1[\"totalJSHeapSize\"]"-        js_getTotalJSHeapSize :: JSRef MemoryInfo -> IO Word+        js_getTotalJSHeapSize :: MemoryInfo -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MemoryInfo.totalJSHeapSize Mozilla MemoryInfo.totalJSHeapSize documentation>  getTotalJSHeapSize :: (MonadIO m) => MemoryInfo -> m Word-getTotalJSHeapSize self-  = liftIO (js_getTotalJSHeapSize (unMemoryInfo self))+getTotalJSHeapSize self = liftIO (js_getTotalJSHeapSize (self))
src/GHCJS/DOM/JSFFI/Generated/MessageChannel.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,25 +20,22 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "new window[\"MessageChannel\"]()"-        js_newMessageChannel :: IO (JSRef MessageChannel)+        js_newMessageChannel :: IO MessageChannel  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel Mozilla MessageChannel documentation>  newMessageChannel :: (MonadIO m) => m MessageChannel-newMessageChannel-  = liftIO (js_newMessageChannel >>= fromJSRefUnchecked)+newMessageChannel = liftIO (js_newMessageChannel)   foreign import javascript unsafe "$1[\"port1\"]" js_getPort1 ::-        JSRef MessageChannel -> IO (JSRef MessagePort)+        MessageChannel -> IO (Nullable MessagePort)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port1 Mozilla MessageChannel.port1 documentation>  getPort1 :: (MonadIO m) => MessageChannel -> m (Maybe MessagePort)-getPort1 self-  = liftIO ((js_getPort1 (unMessageChannel self)) >>= fromJSRef)+getPort1 self = liftIO (nullableToMaybe <$> (js_getPort1 (self)))   foreign import javascript unsafe "$1[\"port2\"]" js_getPort2 ::-        JSRef MessageChannel -> IO (JSRef MessagePort)+        MessageChannel -> IO (Nullable MessagePort)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageChannel.port2 Mozilla MessageChannel.port2 documentation>  getPort2 :: (MonadIO m) => MessageChannel -> m (Maybe MessagePort)-getPort2 self-  = liftIO ((js_getPort2 (unMessageChannel self)) >>= fromJSRef)+getPort2 self = liftIO (nullableToMaybe <$> (js_getPort2 (self)))
src/GHCJS/DOM/JSFFI/Generated/MessageEvent.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,12 +24,12 @@ foreign import javascript unsafe         "$1[\"initMessageEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9)"         js_initMessageEvent ::-        JSRef MessageEvent ->+        MessageEvent ->           JSString ->             Bool ->               Bool ->-                JSRef a ->-                  JSString -> JSString -> JSRef Window -> JSRef Array -> IO ()+                JSRef ->+                  JSString -> JSString -> Nullable Window -> Nullable Array -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.initMessageEvent Mozilla MessageEvent.initMessageEvent documentation>  initMessageEvent ::@@ -39,30 +39,29 @@                      typeArg ->                        Bool ->                          Bool ->-                           JSRef a ->+                           JSRef ->                              originArg ->                                lastEventIdArg -> Maybe Window -> Maybe messagePorts -> m () initMessageEvent self typeArg canBubbleArg cancelableArg dataArg   originArg lastEventIdArg sourceArg messagePorts   = liftIO-      (js_initMessageEvent (unMessageEvent self) (toJSString typeArg)-         canBubbleArg+      (js_initMessageEvent (self) (toJSString typeArg) canBubbleArg          cancelableArg          dataArg          (toJSString originArg)          (toJSString lastEventIdArg)-         (maybe jsNull pToJSRef sourceArg)-         (maybe jsNull (unArray . toArray) messagePorts))+         (maybeToNullable sourceArg)+         (maybeToNullable (fmap toArray messagePorts)))   foreign import javascript unsafe         "$1[\"webkitInitMessageEvent\"]($2,\n$3, $4, $5, $6, $7, $8, $9)"         js_webkitInitMessageEvent ::-        JSRef MessageEvent ->+        MessageEvent ->           JSString ->             Bool ->               Bool ->-                JSRef a ->-                  JSString -> JSString -> JSRef Window -> JSRef Array -> IO ()+                JSRef ->+                  JSString -> JSString -> Nullable Window -> Nullable Array -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.webkitInitMessageEvent Mozilla MessageEvent.webkitInitMessageEvent documentation>  webkitInitMessageEvent ::@@ -72,61 +71,55 @@                            typeArg ->                              Bool ->                                Bool ->-                                 JSRef a ->+                                 JSRef ->                                    originArg ->                                      lastEventIdArg -> Maybe Window -> Maybe transferables -> m () webkitInitMessageEvent self typeArg canBubbleArg cancelableArg   dataArg originArg lastEventIdArg sourceArg transferables   = liftIO-      (js_webkitInitMessageEvent (unMessageEvent self)-         (toJSString typeArg)-         canBubbleArg+      (js_webkitInitMessageEvent (self) (toJSString typeArg) canBubbleArg          cancelableArg          dataArg          (toJSString originArg)          (toJSString lastEventIdArg)-         (maybe jsNull pToJSRef sourceArg)-         (maybe jsNull (unArray . toArray) transferables))+         (maybeToNullable sourceArg)+         (maybeToNullable (fmap toArray transferables)))   foreign import javascript unsafe "$1[\"origin\"]" js_getOrigin ::-        JSRef MessageEvent -> IO JSString+        MessageEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.origin Mozilla MessageEvent.origin documentation>  getOrigin ::           (MonadIO m, FromJSString result) => MessageEvent -> m result-getOrigin self-  = liftIO (fromJSString <$> (js_getOrigin (unMessageEvent self)))+getOrigin self = liftIO (fromJSString <$> (js_getOrigin (self)))   foreign import javascript unsafe "$1[\"lastEventId\"]"-        js_getLastEventId :: JSRef MessageEvent -> IO JSString+        js_getLastEventId :: MessageEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.lastEventId Mozilla MessageEvent.lastEventId documentation>  getLastEventId ::                (MonadIO m, FromJSString result) => MessageEvent -> m result getLastEventId self-  = liftIO-      (fromJSString <$> (js_getLastEventId (unMessageEvent self)))+  = liftIO (fromJSString <$> (js_getLastEventId (self)))   foreign import javascript unsafe "$1[\"source\"]" js_getSource ::-        JSRef MessageEvent -> IO (JSRef EventTarget)+        MessageEvent -> IO (Nullable EventTarget)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.source Mozilla MessageEvent.source documentation>  getSource :: (MonadIO m) => MessageEvent -> m (Maybe EventTarget)-getSource self-  = liftIO ((js_getSource (unMessageEvent self)) >>= fromJSRef)+getSource self = liftIO (nullableToMaybe <$> (js_getSource (self)))   foreign import javascript unsafe "$1[\"data\"]" js_getData ::-        JSRef MessageEvent -> IO (JSRef a)+        MessageEvent -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.data Mozilla MessageEvent.data documentation> -getData :: (MonadIO m) => MessageEvent -> m (JSRef a)-getData self = liftIO (js_getData (unMessageEvent self))+getData :: (MonadIO m) => MessageEvent -> m JSRef+getData self = liftIO (js_getData (self))   foreign import javascript unsafe "$1[\"ports\"]" js_getPorts ::-        JSRef MessageEvent -> IO (JSRef [Maybe MessagePort])+        MessageEvent -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessageEvent.ports Mozilla MessageEvent.ports documentation>  getPorts :: (MonadIO m) => MessageEvent -> m [Maybe MessagePort] getPorts self-  = liftIO-      ((js_getPorts (unMessageEvent self)) >>= fromJSRefUnchecked)+  = liftIO ((js_getPorts (self)) >>= fromJSRefUnchecked)
src/GHCJS/DOM/JSFFI/Generated/MessagePort.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,31 +19,30 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"postMessage\"]($2, $3)"-        js_postMessage ::-        JSRef MessagePort -> JSRef a -> JSRef Array -> IO ()+        js_postMessage :: MessagePort -> JSRef -> Nullable Array -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort.postMessage Mozilla MessagePort.postMessage documentation>  postMessage ::             (MonadIO m, IsArray messagePorts) =>-              MessagePort -> JSRef a -> Maybe messagePorts -> m ()+              MessagePort -> JSRef -> Maybe messagePorts -> m () postMessage self message messagePorts   = liftIO-      (js_postMessage (unMessagePort self) message-         (maybe jsNull (unArray . toArray) messagePorts))+      (js_postMessage (self) message+         (maybeToNullable (fmap toArray messagePorts)))   foreign import javascript unsafe "$1[\"start\"]()" js_start ::-        JSRef MessagePort -> IO ()+        MessagePort -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort.start Mozilla MessagePort.start documentation>  start :: (MonadIO m) => MessagePort -> m ()-start self = liftIO (js_start (unMessagePort self))+start self = liftIO (js_start (self))   foreign import javascript unsafe "$1[\"close\"]()" js_close ::-        JSRef MessagePort -> IO ()+        MessagePort -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort.close Mozilla MessagePort.close documentation>  close :: (MonadIO m) => MessagePort -> m ()-close self = liftIO (js_close (unMessagePort self))+close self = liftIO (js_close (self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MessagePort.onmessage Mozilla MessagePort.onmessage documentation>  message :: EventName MessagePort MessageEvent
src/GHCJS/DOM/JSFFI/Generated/MimeType.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,35 +20,34 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef MimeType -> IO JSString+        MimeType -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.type Mozilla MimeType.type documentation>  getType :: (MonadIO m, FromJSString result) => MimeType -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unMimeType self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"suffixes\"]" js_getSuffixes-        :: JSRef MimeType -> IO JSString+        :: MimeType -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.suffixes Mozilla MimeType.suffixes documentation>  getSuffixes ::             (MonadIO m, FromJSString result) => MimeType -> m result getSuffixes self-  = liftIO (fromJSString <$> (js_getSuffixes (unMimeType self)))+  = liftIO (fromJSString <$> (js_getSuffixes (self)))   foreign import javascript unsafe "$1[\"description\"]"-        js_getDescription :: JSRef MimeType -> IO JSString+        js_getDescription :: MimeType -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.description Mozilla MimeType.description documentation>  getDescription ::                (MonadIO m, FromJSString result) => MimeType -> m result getDescription self-  = liftIO (fromJSString <$> (js_getDescription (unMimeType self)))+  = liftIO (fromJSString <$> (js_getDescription (self)))   foreign import javascript unsafe "$1[\"enabledPlugin\"]"-        js_getEnabledPlugin :: JSRef MimeType -> IO (JSRef Plugin)+        js_getEnabledPlugin :: MimeType -> IO (Nullable Plugin)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeType.enabledPlugin Mozilla MimeType.enabledPlugin documentation>  getEnabledPlugin :: (MonadIO m) => MimeType -> m (Maybe Plugin) getEnabledPlugin self-  = liftIO ((js_getEnabledPlugin (unMimeType self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getEnabledPlugin (self)))
src/GHCJS/DOM/JSFFI/Generated/MimeTypeArray.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,16 +19,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef MimeTypeArray -> Word -> IO (JSRef MimeType)+        MimeTypeArray -> Word -> IO (Nullable MimeType)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.item Mozilla MimeTypeArray.item documentation>  item :: (MonadIO m) => MimeTypeArray -> Word -> m (Maybe MimeType) item self index-  = liftIO ((js_item (unMimeTypeArray self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        js_namedItem ::-        JSRef MimeTypeArray -> JSString -> IO (JSRef MimeType)+        js_namedItem :: MimeTypeArray -> JSString -> IO (Nullable MimeType)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.namedItem Mozilla MimeTypeArray.namedItem documentation>  namedItem ::@@ -36,12 +35,11 @@             MimeTypeArray -> name -> m (Maybe MimeType) namedItem self name   = liftIO-      ((js_namedItem (unMimeTypeArray self) (toJSString name)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef MimeTypeArray -> IO Word+        MimeTypeArray -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MimeTypeArray.length Mozilla MimeTypeArray.length documentation>  getLength :: (MonadIO m) => MimeTypeArray -> m Word-getLength self = liftIO (js_getLength (unMimeTypeArray self))+getLength self = liftIO (js_getLength (self))
src/GHCJS/DOM/JSFFI/Generated/MouseEvent.hs view
@@ -14,7 +14,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -29,17 +29,18 @@ foreign import javascript unsafe         "$1[\"initMouseEvent\"]($2, $3, $4,\n$5, $6, $7, $8, $9, $10, $11,\n$12, $13, $14, $15, $16)"         js_initMouseEvent ::-        JSRef MouseEvent ->+        MouseEvent ->           JSString ->             Bool ->               Bool ->-                JSRef Window ->+                Nullable Window ->                   Int ->                     Int ->                       Int ->                         Int ->                           Int ->-                            Bool -> Bool -> Bool -> Bool -> Word -> JSRef EventTarget -> IO ()+                            Bool ->+                              Bool -> Bool -> Bool -> Word -> Nullable EventTarget -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.initMouseEvent Mozilla MouseEvent.initMouseEvent documentation>  initMouseEvent ::@@ -61,11 +62,9 @@   screenY clientX clientY ctrlKey altKey shiftKey metaKey button   relatedTarget   = liftIO-      (js_initMouseEvent (unMouseEvent (toMouseEvent self))-         (toJSString type')-         canBubble+      (js_initMouseEvent (toMouseEvent self) (toJSString type') canBubble          cancelable-         (maybe jsNull pToJSRef view)+         (maybeToNullable view)          detail          screenX          screenY@@ -76,166 +75,149 @@          shiftKey          metaKey          button-         (maybe jsNull (unEventTarget . toEventTarget) relatedTarget))+         (maybeToNullable (fmap toEventTarget relatedTarget)))   foreign import javascript unsafe "$1[\"screenX\"]" js_getScreenX ::-        JSRef MouseEvent -> IO Int+        MouseEvent -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.screenX Mozilla MouseEvent.screenX documentation>  getScreenX :: (MonadIO m, IsMouseEvent self) => self -> m Int-getScreenX self-  = liftIO (js_getScreenX (unMouseEvent (toMouseEvent self)))+getScreenX self = liftIO (js_getScreenX (toMouseEvent self))   foreign import javascript unsafe "$1[\"screenY\"]" js_getScreenY ::-        JSRef MouseEvent -> IO Int+        MouseEvent -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.screenY Mozilla MouseEvent.screenY documentation>  getScreenY :: (MonadIO m, IsMouseEvent self) => self -> m Int-getScreenY self-  = liftIO (js_getScreenY (unMouseEvent (toMouseEvent self)))+getScreenY self = liftIO (js_getScreenY (toMouseEvent self))   foreign import javascript unsafe "$1[\"clientX\"]" js_getClientX ::-        JSRef MouseEvent -> IO Int+        MouseEvent -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.clientX Mozilla MouseEvent.clientX documentation>  getClientX :: (MonadIO m, IsMouseEvent self) => self -> m Int-getClientX self-  = liftIO (js_getClientX (unMouseEvent (toMouseEvent self)))+getClientX self = liftIO (js_getClientX (toMouseEvent self))   foreign import javascript unsafe "$1[\"clientY\"]" js_getClientY ::-        JSRef MouseEvent -> IO Int+        MouseEvent -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.clientY Mozilla MouseEvent.clientY documentation>  getClientY :: (MonadIO m, IsMouseEvent self) => self -> m Int-getClientY self-  = liftIO (js_getClientY (unMouseEvent (toMouseEvent self)))+getClientY self = liftIO (js_getClientY (toMouseEvent self))   foreign import javascript unsafe "($1[\"ctrlKey\"] ? 1 : 0)"-        js_getCtrlKey :: JSRef MouseEvent -> IO Bool+        js_getCtrlKey :: MouseEvent -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.ctrlKey Mozilla MouseEvent.ctrlKey documentation>  getCtrlKey :: (MonadIO m, IsMouseEvent self) => self -> m Bool-getCtrlKey self-  = liftIO (js_getCtrlKey (unMouseEvent (toMouseEvent self)))+getCtrlKey self = liftIO (js_getCtrlKey (toMouseEvent self))   foreign import javascript unsafe "($1[\"shiftKey\"] ? 1 : 0)"-        js_getShiftKey :: JSRef MouseEvent -> IO Bool+        js_getShiftKey :: MouseEvent -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.shiftKey Mozilla MouseEvent.shiftKey documentation>  getShiftKey :: (MonadIO m, IsMouseEvent self) => self -> m Bool-getShiftKey self-  = liftIO (js_getShiftKey (unMouseEvent (toMouseEvent self)))+getShiftKey self = liftIO (js_getShiftKey (toMouseEvent self))   foreign import javascript unsafe "($1[\"altKey\"] ? 1 : 0)"-        js_getAltKey :: JSRef MouseEvent -> IO Bool+        js_getAltKey :: MouseEvent -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.altKey Mozilla MouseEvent.altKey documentation>  getAltKey :: (MonadIO m, IsMouseEvent self) => self -> m Bool-getAltKey self-  = liftIO (js_getAltKey (unMouseEvent (toMouseEvent self)))+getAltKey self = liftIO (js_getAltKey (toMouseEvent self))   foreign import javascript unsafe "($1[\"metaKey\"] ? 1 : 0)"-        js_getMetaKey :: JSRef MouseEvent -> IO Bool+        js_getMetaKey :: MouseEvent -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.metaKey Mozilla MouseEvent.metaKey documentation>  getMetaKey :: (MonadIO m, IsMouseEvent self) => self -> m Bool-getMetaKey self-  = liftIO (js_getMetaKey (unMouseEvent (toMouseEvent self)))+getMetaKey self = liftIO (js_getMetaKey (toMouseEvent self))   foreign import javascript unsafe "$1[\"button\"]" js_getButton ::-        JSRef MouseEvent -> IO Word+        MouseEvent -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.button Mozilla MouseEvent.button documentation>  getButton :: (MonadIO m, IsMouseEvent self) => self -> m Word-getButton self-  = liftIO (js_getButton (unMouseEvent (toMouseEvent self)))+getButton self = liftIO (js_getButton (toMouseEvent self))   foreign import javascript unsafe "$1[\"relatedTarget\"]"-        js_getRelatedTarget :: JSRef MouseEvent -> IO (JSRef EventTarget)+        js_getRelatedTarget :: MouseEvent -> IO (Nullable EventTarget)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.relatedTarget Mozilla MouseEvent.relatedTarget documentation>  getRelatedTarget ::                  (MonadIO m, IsMouseEvent self) => self -> m (Maybe EventTarget) getRelatedTarget self   = liftIO-      ((js_getRelatedTarget (unMouseEvent (toMouseEvent self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getRelatedTarget (toMouseEvent self)))   foreign import javascript unsafe "$1[\"movementX\"]"-        js_getMovementX :: JSRef MouseEvent -> IO Int+        js_getMovementX :: MouseEvent -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.movementX Mozilla MouseEvent.movementX documentation>  getMovementX :: (MonadIO m, IsMouseEvent self) => self -> m Int-getMovementX self-  = liftIO (js_getMovementX (unMouseEvent (toMouseEvent self)))+getMovementX self = liftIO (js_getMovementX (toMouseEvent self))   foreign import javascript unsafe "$1[\"movementY\"]"-        js_getMovementY :: JSRef MouseEvent -> IO Int+        js_getMovementY :: MouseEvent -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.movementY Mozilla MouseEvent.movementY documentation>  getMovementY :: (MonadIO m, IsMouseEvent self) => self -> m Int-getMovementY self-  = liftIO (js_getMovementY (unMouseEvent (toMouseEvent self)))+getMovementY self = liftIO (js_getMovementY (toMouseEvent self))   foreign import javascript unsafe "$1[\"offsetX\"]" js_getOffsetX ::-        JSRef MouseEvent -> IO Int+        MouseEvent -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.offsetX Mozilla MouseEvent.offsetX documentation>  getOffsetX :: (MonadIO m, IsMouseEvent self) => self -> m Int-getOffsetX self-  = liftIO (js_getOffsetX (unMouseEvent (toMouseEvent self)))+getOffsetX self = liftIO (js_getOffsetX (toMouseEvent self))   foreign import javascript unsafe "$1[\"offsetY\"]" js_getOffsetY ::-        JSRef MouseEvent -> IO Int+        MouseEvent -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.offsetY Mozilla MouseEvent.offsetY documentation>  getOffsetY :: (MonadIO m, IsMouseEvent self) => self -> m Int-getOffsetY self-  = liftIO (js_getOffsetY (unMouseEvent (toMouseEvent self)))+getOffsetY self = liftIO (js_getOffsetY (toMouseEvent self))   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef MouseEvent -> IO Int+        MouseEvent -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.x Mozilla MouseEvent.x documentation>  getX :: (MonadIO m, IsMouseEvent self) => self -> m Int-getX self = liftIO (js_getX (unMouseEvent (toMouseEvent self)))+getX self = liftIO (js_getX (toMouseEvent self))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef MouseEvent -> IO Int+        MouseEvent -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.y Mozilla MouseEvent.y documentation>  getY :: (MonadIO m, IsMouseEvent self) => self -> m Int-getY self = liftIO (js_getY (unMouseEvent (toMouseEvent self)))+getY self = liftIO (js_getY (toMouseEvent self))   foreign import javascript unsafe "$1[\"fromElement\"]"-        js_getFromElement :: JSRef MouseEvent -> IO (JSRef Node)+        js_getFromElement :: MouseEvent -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.fromElement Mozilla MouseEvent.fromElement documentation>  getFromElement ::                (MonadIO m, IsMouseEvent self) => self -> m (Maybe Node) getFromElement self   = liftIO-      ((js_getFromElement (unMouseEvent (toMouseEvent self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getFromElement (toMouseEvent self)))   foreign import javascript unsafe "$1[\"toElement\"]"-        js_getToElement :: JSRef MouseEvent -> IO (JSRef Node)+        js_getToElement :: MouseEvent -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.toElement Mozilla MouseEvent.toElement documentation>  getToElement ::              (MonadIO m, IsMouseEvent self) => self -> m (Maybe Node) getToElement self   = liftIO-      ((js_getToElement (unMouseEvent (toMouseEvent self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getToElement (toMouseEvent self)))   foreign import javascript unsafe "$1[\"dataTransfer\"]"-        js_getDataTransfer :: JSRef MouseEvent -> IO (JSRef DataTransfer)+        js_getDataTransfer :: MouseEvent -> IO (Nullable DataTransfer)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MouseEvent.dataTransfer Mozilla MouseEvent.dataTransfer documentation>  getDataTransfer ::                 (MonadIO m, IsMouseEvent self) => self -> m (Maybe DataTransfer) getDataTransfer self   = liftIO-      ((js_getDataTransfer (unMouseEvent (toMouseEvent self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getDataTransfer (toMouseEvent self)))
src/GHCJS/DOM/JSFFI/Generated/MutationEvent.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -25,11 +25,11 @@ foreign import javascript unsafe         "$1[\"initMutationEvent\"]($2, $3,\n$4, $5, $6, $7, $8, $9)"         js_initMutationEvent ::-        JSRef MutationEvent ->+        MutationEvent ->           JSString ->             Bool ->               Bool ->-                JSRef Node -> JSString -> JSString -> JSString -> Word -> IO ()+                Nullable Node -> JSString -> JSString -> JSString -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.initMutationEvent Mozilla MutationEvent.initMutationEvent documentation>  initMutationEvent ::@@ -44,10 +44,9 @@ initMutationEvent self type' canBubble cancelable relatedNode   prevValue newValue attrName attrChange   = liftIO-      (js_initMutationEvent (unMutationEvent self) (toJSString type')-         canBubble+      (js_initMutationEvent (self) (toJSString type') canBubble          cancelable-         (maybe jsNull (unNode . toNode) relatedNode)+         (maybeToNullable (fmap toNode relatedNode))          (toJSString prevValue)          (toJSString newValue)          (toJSString attrName)@@ -57,45 +56,43 @@ pattern REMOVAL = 3   foreign import javascript unsafe "$1[\"relatedNode\"]"-        js_getRelatedNode :: JSRef MutationEvent -> IO (JSRef Node)+        js_getRelatedNode :: MutationEvent -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.relatedNode Mozilla MutationEvent.relatedNode documentation>  getRelatedNode :: (MonadIO m) => MutationEvent -> m (Maybe Node) getRelatedNode self-  = liftIO ((js_getRelatedNode (unMutationEvent self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getRelatedNode (self)))   foreign import javascript unsafe "$1[\"prevValue\"]"-        js_getPrevValue :: JSRef MutationEvent -> IO JSString+        js_getPrevValue :: MutationEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.prevValue Mozilla MutationEvent.prevValue documentation>  getPrevValue ::              (MonadIO m, FromJSString result) => MutationEvent -> m result getPrevValue self-  = liftIO-      (fromJSString <$> (js_getPrevValue (unMutationEvent self)))+  = liftIO (fromJSString <$> (js_getPrevValue (self)))   foreign import javascript unsafe "$1[\"newValue\"]" js_getNewValue-        :: JSRef MutationEvent -> IO JSString+        :: MutationEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.newValue Mozilla MutationEvent.newValue documentation>  getNewValue ::             (MonadIO m, FromJSString result) => MutationEvent -> m result getNewValue self-  = liftIO (fromJSString <$> (js_getNewValue (unMutationEvent self)))+  = liftIO (fromJSString <$> (js_getNewValue (self)))   foreign import javascript unsafe "$1[\"attrName\"]" js_getAttrName-        :: JSRef MutationEvent -> IO JSString+        :: MutationEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.attrName Mozilla MutationEvent.attrName documentation>  getAttrName ::             (MonadIO m, FromJSString result) => MutationEvent -> m result getAttrName self-  = liftIO (fromJSString <$> (js_getAttrName (unMutationEvent self)))+  = liftIO (fromJSString <$> (js_getAttrName (self)))   foreign import javascript unsafe "$1[\"attrChange\"]"-        js_getAttrChange :: JSRef MutationEvent -> IO Word+        js_getAttrChange :: MutationEvent -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationEvent.attrChange Mozilla MutationEvent.attrChange documentation>  getAttrChange :: (MonadIO m) => MutationEvent -> m Word-getAttrChange self-  = liftIO (js_getAttrChange (unMutationEvent self))+getAttrChange self = liftIO (js_getAttrChange (self))
src/GHCJS/DOM/JSFFI/Generated/MutationObserver.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,7 +21,7 @@   foreign import javascript unsafe         "new window[\"MutationObserver\"]($1)" js_newMutationObserver ::-        JSRef MutationCallback -> IO (JSRef MutationObserver)+        Nullable MutationCallback -> IO MutationObserver  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver Mozilla MutationObserver documentation>  newMutationObserver ::@@ -30,12 +30,11 @@ newMutationObserver callback   = liftIO       (js_newMutationObserver-         (maybe jsNull (unMutationCallback . toMutationCallback) callback)-         >>= fromJSRefUnchecked)+         (maybeToNullable (fmap toMutationCallback callback)))   foreign import javascript unsafe "$1[\"observe\"]($2, $3)"         js_observe ::-        JSRef MutationObserver -> JSRef Node -> JSRef Dictionary -> IO ()+        MutationObserver -> Nullable Node -> Nullable Dictionary -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver.observe Mozilla MutationObserver.observe documentation>  observe ::@@ -43,24 +42,21 @@           MutationObserver -> Maybe target -> Maybe options -> m () observe self target options   = liftIO-      (js_observe (unMutationObserver self)-         (maybe jsNull (unNode . toNode) target)-         (maybe jsNull (unDictionary . toDictionary) options))+      (js_observe (self) (maybeToNullable (fmap toNode target))+         (maybeToNullable (fmap toDictionary options)))   foreign import javascript unsafe "$1[\"takeRecords\"]()"-        js_takeRecords ::-        JSRef MutationObserver -> IO (JSRef [Maybe MutationRecord])+        js_takeRecords :: MutationObserver -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver.takeRecords Mozilla MutationObserver.takeRecords documentation>  takeRecords ::             (MonadIO m) => MutationObserver -> m [Maybe MutationRecord] takeRecords self-  = liftIO-      ((js_takeRecords (unMutationObserver self)) >>= fromJSRefUnchecked)+  = liftIO ((js_takeRecords (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"disconnect\"]()"-        js_disconnect :: JSRef MutationObserver -> IO ()+        js_disconnect :: MutationObserver -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationObserver.disconnect Mozilla MutationObserver.disconnect documentation>  disconnect :: (MonadIO m) => MutationObserver -> m ()-disconnect self = liftIO (js_disconnect (unMutationObserver self))+disconnect self = liftIO (js_disconnect (self))
src/GHCJS/DOM/JSFFI/Generated/MutationRecord.hs view
@@ -10,7 +10,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,93 +24,82 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef MutationRecord -> IO JSString+        MutationRecord -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.type Mozilla MutationRecord.type documentation>  getType ::         (MonadIO m, FromJSString result) => MutationRecord -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unMutationRecord self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::-        JSRef MutationRecord -> IO (JSRef Node)+        MutationRecord -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.target Mozilla MutationRecord.target documentation>  getTarget :: (MonadIO m) => MutationRecord -> m (Maybe Node)-getTarget self-  = liftIO ((js_getTarget (unMutationRecord self)) >>= fromJSRef)+getTarget self = liftIO (nullableToMaybe <$> (js_getTarget (self)))   foreign import javascript unsafe "$1[\"addedNodes\"]"-        js_getAddedNodes :: JSRef MutationRecord -> IO (JSRef NodeList)+        js_getAddedNodes :: MutationRecord -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.addedNodes Mozilla MutationRecord.addedNodes documentation>  getAddedNodes ::               (MonadIO m) => MutationRecord -> m (Maybe NodeList) getAddedNodes self-  = liftIO ((js_getAddedNodes (unMutationRecord self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAddedNodes (self)))   foreign import javascript unsafe "$1[\"removedNodes\"]"-        js_getRemovedNodes :: JSRef MutationRecord -> IO (JSRef NodeList)+        js_getRemovedNodes :: MutationRecord -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.removedNodes Mozilla MutationRecord.removedNodes documentation>  getRemovedNodes ::                 (MonadIO m) => MutationRecord -> m (Maybe NodeList) getRemovedNodes self-  = liftIO-      ((js_getRemovedNodes (unMutationRecord self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getRemovedNodes (self)))   foreign import javascript unsafe "$1[\"previousSibling\"]"-        js_getPreviousSibling :: JSRef MutationRecord -> IO (JSRef Node)+        js_getPreviousSibling :: MutationRecord -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.previousSibling Mozilla MutationRecord.previousSibling documentation>  getPreviousSibling ::                    (MonadIO m) => MutationRecord -> m (Maybe Node) getPreviousSibling self-  = liftIO-      ((js_getPreviousSibling (unMutationRecord self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPreviousSibling (self)))   foreign import javascript unsafe "$1[\"nextSibling\"]"-        js_getNextSibling :: JSRef MutationRecord -> IO (JSRef Node)+        js_getNextSibling :: MutationRecord -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.nextSibling Mozilla MutationRecord.nextSibling documentation>  getNextSibling :: (MonadIO m) => MutationRecord -> m (Maybe Node) getNextSibling self-  = liftIO-      ((js_getNextSibling (unMutationRecord self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getNextSibling (self)))   foreign import javascript unsafe "$1[\"attributeName\"]"-        js_getAttributeName ::-        JSRef MutationRecord -> IO (JSRef (Maybe JSString))+        js_getAttributeName :: MutationRecord -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeName Mozilla MutationRecord.attributeName documentation>  getAttributeName ::                  (MonadIO m, FromJSString result) =>                    MutationRecord -> m (Maybe result) getAttributeName self-  = liftIO-      (fromMaybeJSString <$>-         (js_getAttributeName (unMutationRecord self)))+  = liftIO (fromMaybeJSString <$> (js_getAttributeName (self)))   foreign import javascript unsafe "$1[\"attributeNamespace\"]"         js_getAttributeNamespace ::-        JSRef MutationRecord -> IO (JSRef (Maybe JSString))+        MutationRecord -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.attributeNamespace Mozilla MutationRecord.attributeNamespace documentation>  getAttributeNamespace ::                       (MonadIO m, FromJSString result) =>                         MutationRecord -> m (Maybe result) getAttributeNamespace self-  = liftIO-      (fromMaybeJSString <$>-         (js_getAttributeNamespace (unMutationRecord self)))+  = liftIO (fromMaybeJSString <$> (js_getAttributeNamespace (self)))   foreign import javascript unsafe "$1[\"oldValue\"]" js_getOldValue-        :: JSRef MutationRecord -> IO (JSRef (Maybe JSString))+        :: MutationRecord -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/MutationRecord.oldValue Mozilla MutationRecord.oldValue documentation>  getOldValue ::             (MonadIO m, FromJSString result) =>               MutationRecord -> m (Maybe result) getOldValue self-  = liftIO-      (fromMaybeJSString <$> (js_getOldValue (unMutationRecord self)))+  = liftIO (fromMaybeJSString <$> (js_getOldValue (self)))
src/GHCJS/DOM/JSFFI/Generated/NamedNodeMap.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,8 +23,7 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"getNamedItem\"]($2)"-        js_getNamedItem ::-        JSRef NamedNodeMap -> JSString -> IO (JSRef Node)+        js_getNamedItem :: NamedNodeMap -> JSString -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItem Mozilla NamedNodeMap.getNamedItem documentation>  getNamedItem ::@@ -32,12 +31,11 @@                NamedNodeMap -> name -> m (Maybe Node) getNamedItem self name   = liftIO-      ((js_getNamedItem (unNamedNodeMap self) (toJSString name)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getNamedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"setNamedItem\"]($2)"         js_setNamedItem ::-        JSRef NamedNodeMap -> JSRef Node -> IO (JSRef Node)+        NamedNodeMap -> Nullable Node -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItem Mozilla NamedNodeMap.setNamedItem documentation>  setNamedItem ::@@ -45,13 +43,12 @@                NamedNodeMap -> Maybe node -> m (Maybe Node) setNamedItem self node   = liftIO-      ((js_setNamedItem (unNamedNodeMap self)-          (maybe jsNull (unNode . toNode) node))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_setNamedItem (self) (maybeToNullable (fmap toNode node))))   foreign import javascript unsafe "$1[\"removeNamedItem\"]($2)"         js_removeNamedItem ::-        JSRef NamedNodeMap -> JSString -> IO (JSRef Node)+        NamedNodeMap -> JSString -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItem Mozilla NamedNodeMap.removeNamedItem documentation>  removeNamedItem ::@@ -59,21 +56,19 @@                   NamedNodeMap -> name -> m (Maybe Node) removeNamedItem self name   = liftIO-      ((js_removeNamedItem (unNamedNodeMap self) (toJSString name)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_removeNamedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef NamedNodeMap -> Word -> IO (JSRef Node)+        NamedNodeMap -> Word -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.item Mozilla NamedNodeMap.item documentation>  item :: (MonadIO m) => NamedNodeMap -> Word -> m (Maybe Node) item self index-  = liftIO ((js_item (unNamedNodeMap self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"getNamedItemNS\"]($2, $3)"         js_getNamedItemNS ::-        JSRef NamedNodeMap ->-          JSRef (Maybe JSString) -> JSString -> IO (JSRef Node)+        NamedNodeMap -> Nullable JSString -> JSString -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.getNamedItemNS Mozilla NamedNodeMap.getNamedItemNS documentation>  getNamedItemNS ::@@ -81,14 +76,13 @@                  NamedNodeMap -> Maybe namespaceURI -> localName -> m (Maybe Node) getNamedItemNS self namespaceURI localName   = liftIO-      ((js_getNamedItemNS (unNamedNodeMap self)-          (toMaybeJSString namespaceURI)-          (toJSString localName))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getNamedItemNS (self) (toMaybeJSString namespaceURI)+            (toJSString localName)))   foreign import javascript unsafe "$1[\"setNamedItemNS\"]($2)"         js_setNamedItemNS ::-        JSRef NamedNodeMap -> JSRef Node -> IO (JSRef Node)+        NamedNodeMap -> Nullable Node -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.setNamedItemNS Mozilla NamedNodeMap.setNamedItemNS documentation>  setNamedItemNS ::@@ -96,14 +90,12 @@                  NamedNodeMap -> Maybe node -> m (Maybe Node) setNamedItemNS self node   = liftIO-      ((js_setNamedItemNS (unNamedNodeMap self)-          (maybe jsNull (unNode . toNode) node))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_setNamedItemNS (self) (maybeToNullable (fmap toNode node))))   foreign import javascript unsafe         "$1[\"removeNamedItemNS\"]($2, $3)" js_removeNamedItemNS ::-        JSRef NamedNodeMap ->-          JSRef (Maybe JSString) -> JSString -> IO (JSRef Node)+        NamedNodeMap -> Nullable JSString -> JSString -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.removeNamedItemNS Mozilla NamedNodeMap.removeNamedItemNS documentation>  removeNamedItemNS ::@@ -111,14 +103,13 @@                     NamedNodeMap -> Maybe namespaceURI -> localName -> m (Maybe Node) removeNamedItemNS self namespaceURI localName   = liftIO-      ((js_removeNamedItemNS (unNamedNodeMap self)-          (toMaybeJSString namespaceURI)-          (toJSString localName))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_removeNamedItemNS (self) (toMaybeJSString namespaceURI)+            (toJSString localName)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef NamedNodeMap -> IO Word+        NamedNodeMap -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NamedNodeMap.length Mozilla NamedNodeMap.length documentation>  getLength :: (MonadIO m) => NamedNodeMap -> m Word-getLength self = liftIO (js_getLength (unNamedNodeMap self))+getLength self = liftIO (js_getLength (self))
src/GHCJS/DOM/JSFFI/Generated/Navigator.hs view
@@ -22,7 +22,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -36,20 +36,19 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"getGamepads\"]()"-        js_getGamepads :: JSRef Navigator -> IO (JSRef [Maybe Gamepad])+        js_getGamepads :: Navigator -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.getGamepads Mozilla Navigator.getGamepads documentation>  getGamepads :: (MonadIO m) => Navigator -> m [Maybe Gamepad] getGamepads self-  = liftIO-      ((js_getGamepads (unNavigator self)) >>= fromJSRefUnchecked)+  = liftIO ((js_getGamepads (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe         "$1[\"webkitGetUserMedia\"]($2, $3,\n$4)" js_webkitGetUserMedia ::-        JSRef Navigator ->-          JSRef Dictionary ->-            JSRef NavigatorUserMediaSuccessCallback ->-              JSRef NavigatorUserMediaErrorCallback -> IO ()+        Navigator ->+          Nullable Dictionary ->+            Nullable NavigatorUserMediaSuccessCallback ->+              Nullable NavigatorUserMediaErrorCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitGetUserMedia Mozilla Navigator.webkitGetUserMedia documentation>  webkitGetUserMedia ::@@ -60,15 +59,15 @@                            Maybe NavigatorUserMediaErrorCallback -> m () webkitGetUserMedia self options successCallback errorCallback   = liftIO-      (js_webkitGetUserMedia (unNavigator self)-         (maybe jsNull (unDictionary . toDictionary) options)-         (maybe jsNull pToJSRef successCallback)-         (maybe jsNull pToJSRef errorCallback))+      (js_webkitGetUserMedia (self)+         (maybeToNullable (fmap toDictionary options))+         (maybeToNullable successCallback)+         (maybeToNullable errorCallback))   foreign import javascript unsafe         "$1[\"registerProtocolHandler\"]($2,\n$3, $4)"         js_registerProtocolHandler ::-        JSRef Navigator -> JSString -> JSString -> JSString -> IO ()+        Navigator -> JSString -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.registerProtocolHandler Mozilla Navigator.registerProtocolHandler documentation>  registerProtocolHandler ::@@ -76,14 +75,14 @@                           Navigator -> scheme -> url -> title -> m () registerProtocolHandler self scheme url title   = liftIO-      (js_registerProtocolHandler (unNavigator self) (toJSString scheme)+      (js_registerProtocolHandler (self) (toJSString scheme)          (toJSString url)          (toJSString title))   foreign import javascript unsafe         "$1[\"isProtocolHandlerRegistered\"]($2,\n$3)"         js_isProtocolHandlerRegistered ::-        JSRef Navigator -> JSString -> JSString -> IO JSString+        Navigator -> JSString -> JSString -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.isProtocolHandlerRegistered Mozilla Navigator.isProtocolHandlerRegistered documentation>  isProtocolHandlerRegistered ::@@ -93,14 +92,13 @@ isProtocolHandlerRegistered self scheme url   = liftIO       (fromJSString <$>-         (js_isProtocolHandlerRegistered (unNavigator self)-            (toJSString scheme)+         (js_isProtocolHandlerRegistered (self) (toJSString scheme)             (toJSString url)))   foreign import javascript unsafe         "$1[\"unregisterProtocolHandler\"]($2,\n$3)"         js_unregisterProtocolHandler ::-        JSRef Navigator -> JSString -> JSString -> IO ()+        Navigator -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.unregisterProtocolHandler Mozilla Navigator.unregisterProtocolHandler documentation>  unregisterProtocolHandler ::@@ -108,206 +106,200 @@                             Navigator -> scheme -> url -> m () unregisterProtocolHandler self scheme url   = liftIO-      (js_unregisterProtocolHandler (unNavigator self)-         (toJSString scheme)+      (js_unregisterProtocolHandler (self) (toJSString scheme)          (toJSString url))   foreign import javascript unsafe "($1[\"vibrate\"]($2) ? 1 : 0)"-        js_vibratePattern :: JSRef Navigator -> JSRef [Word] -> IO Bool+        js_vibratePattern :: Navigator -> JSRef -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vibrate Mozilla Navigator.vibrate documentation>  vibratePattern :: (MonadIO m) => Navigator -> [Word] -> m Bool vibratePattern self pattern'   = liftIO       (toJSRef pattern' >>=-         \ pattern'' -> js_vibratePattern (unNavigator self) pattern'')+         \ pattern'' -> js_vibratePattern (self) pattern'')   foreign import javascript unsafe "($1[\"vibrate\"]($2) ? 1 : 0)"-        js_vibrate :: JSRef Navigator -> Word -> IO Bool+        js_vibrate :: Navigator -> Word -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vibrate Mozilla Navigator.vibrate documentation>  vibrate :: (MonadIO m) => Navigator -> Word -> m Bool-vibrate self time = liftIO (js_vibrate (unNavigator self) time)+vibrate self time = liftIO (js_vibrate (self) time)   foreign import javascript unsafe "($1[\"javaEnabled\"]() ? 1 : 0)"-        js_javaEnabled :: JSRef Navigator -> IO Bool+        js_javaEnabled :: Navigator -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.javaEnabled Mozilla Navigator.javaEnabled documentation>  javaEnabled :: (MonadIO m) => Navigator -> m Bool-javaEnabled self = liftIO (js_javaEnabled (unNavigator self))+javaEnabled self = liftIO (js_javaEnabled (self))   foreign import javascript unsafe "$1[\"getStorageUpdates\"]()"-        js_getStorageUpdates :: JSRef Navigator -> IO ()+        js_getStorageUpdates :: Navigator -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.getStorageUpdates Mozilla Navigator.getStorageUpdates documentation>  getStorageUpdates :: (MonadIO m) => Navigator -> m ()-getStorageUpdates self-  = liftIO (js_getStorageUpdates (unNavigator self))+getStorageUpdates self = liftIO (js_getStorageUpdates (self))   foreign import javascript unsafe "$1[\"webkitBattery\"]"-        js_getWebkitBattery :: JSRef Navigator -> IO (JSRef BatteryManager)+        js_getWebkitBattery :: Navigator -> IO (Nullable BatteryManager)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitBattery Mozilla Navigator.webkitBattery documentation>  getWebkitBattery ::                  (MonadIO m) => Navigator -> m (Maybe BatteryManager) getWebkitBattery self-  = liftIO ((js_getWebkitBattery (unNavigator self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getWebkitBattery (self)))   foreign import javascript unsafe "$1[\"geolocation\"]"-        js_getGeolocation :: JSRef Navigator -> IO (JSRef Geolocation)+        js_getGeolocation :: Navigator -> IO (Nullable Geolocation)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.geolocation Mozilla Navigator.geolocation documentation>  getGeolocation :: (MonadIO m) => Navigator -> m (Maybe Geolocation) getGeolocation self-  = liftIO ((js_getGeolocation (unNavigator self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getGeolocation (self)))   foreign import javascript unsafe "$1[\"webkitTemporaryStorage\"]"         js_getWebkitTemporaryStorage ::-        JSRef Navigator -> IO (JSRef StorageQuota)+        Navigator -> IO (Nullable StorageQuota)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitTemporaryStorage Mozilla Navigator.webkitTemporaryStorage documentation>  getWebkitTemporaryStorage ::                           (MonadIO m) => Navigator -> m (Maybe StorageQuota) getWebkitTemporaryStorage self   = liftIO-      ((js_getWebkitTemporaryStorage (unNavigator self)) >>= fromJSRef)+      (nullableToMaybe <$> (js_getWebkitTemporaryStorage (self)))   foreign import javascript unsafe "$1[\"webkitPersistentStorage\"]"         js_getWebkitPersistentStorage ::-        JSRef Navigator -> IO (JSRef StorageQuota)+        Navigator -> IO (Nullable StorageQuota)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.webkitPersistentStorage Mozilla Navigator.webkitPersistentStorage documentation>  getWebkitPersistentStorage ::                            (MonadIO m) => Navigator -> m (Maybe StorageQuota) getWebkitPersistentStorage self   = liftIO-      ((js_getWebkitPersistentStorage (unNavigator self)) >>= fromJSRef)+      (nullableToMaybe <$> (js_getWebkitPersistentStorage (self)))   foreign import javascript unsafe "$1[\"appCodeName\"]"-        js_getAppCodeName :: JSRef Navigator -> IO JSString+        js_getAppCodeName :: Navigator -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.appCodeName Mozilla Navigator.appCodeName documentation>  getAppCodeName ::                (MonadIO m, FromJSString result) => Navigator -> m result getAppCodeName self-  = liftIO (fromJSString <$> (js_getAppCodeName (unNavigator self)))+  = liftIO (fromJSString <$> (js_getAppCodeName (self)))   foreign import javascript unsafe "$1[\"appName\"]" js_getAppName ::-        JSRef Navigator -> IO JSString+        Navigator -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.appName Mozilla Navigator.appName documentation>  getAppName ::            (MonadIO m, FromJSString result) => Navigator -> m result-getAppName self-  = liftIO (fromJSString <$> (js_getAppName (unNavigator self)))+getAppName self = liftIO (fromJSString <$> (js_getAppName (self)))   foreign import javascript unsafe "$1[\"appVersion\"]"-        js_getAppVersion :: JSRef Navigator -> IO JSString+        js_getAppVersion :: Navigator -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.appVersion Mozilla Navigator.appVersion documentation>  getAppVersion ::               (MonadIO m, FromJSString result) => Navigator -> m result getAppVersion self-  = liftIO (fromJSString <$> (js_getAppVersion (unNavigator self)))+  = liftIO (fromJSString <$> (js_getAppVersion (self)))   foreign import javascript unsafe "$1[\"language\"]" js_getLanguage-        :: JSRef Navigator -> IO JSString+        :: Navigator -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.language Mozilla Navigator.language documentation>  getLanguage ::             (MonadIO m, FromJSString result) => Navigator -> m result getLanguage self-  = liftIO (fromJSString <$> (js_getLanguage (unNavigator self)))+  = liftIO (fromJSString <$> (js_getLanguage (self)))   foreign import javascript unsafe "$1[\"userAgent\"]"-        js_getUserAgent :: JSRef Navigator -> IO JSString+        js_getUserAgent :: Navigator -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.userAgent Mozilla Navigator.userAgent documentation>  getUserAgent ::              (MonadIO m, FromJSString result) => Navigator -> m result getUserAgent self-  = liftIO (fromJSString <$> (js_getUserAgent (unNavigator self)))+  = liftIO (fromJSString <$> (js_getUserAgent (self)))   foreign import javascript unsafe "$1[\"platform\"]" js_getPlatform-        :: JSRef Navigator -> IO JSString+        :: Navigator -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.platform Mozilla Navigator.platform documentation>  getPlatform ::             (MonadIO m, FromJSString result) => Navigator -> m result getPlatform self-  = liftIO (fromJSString <$> (js_getPlatform (unNavigator self)))+  = liftIO (fromJSString <$> (js_getPlatform (self)))   foreign import javascript unsafe "$1[\"plugins\"]" js_getPlugins ::-        JSRef Navigator -> IO (JSRef PluginArray)+        Navigator -> IO (Nullable PluginArray)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.plugins Mozilla Navigator.plugins documentation>  getPlugins :: (MonadIO m) => Navigator -> m (Maybe PluginArray) getPlugins self-  = liftIO ((js_getPlugins (unNavigator self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPlugins (self)))   foreign import javascript unsafe "$1[\"mimeTypes\"]"-        js_getMimeTypes :: JSRef Navigator -> IO (JSRef MimeTypeArray)+        js_getMimeTypes :: Navigator -> IO (Nullable MimeTypeArray)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.mimeTypes Mozilla Navigator.mimeTypes documentation>  getMimeTypes :: (MonadIO m) => Navigator -> m (Maybe MimeTypeArray) getMimeTypes self-  = liftIO ((js_getMimeTypes (unNavigator self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getMimeTypes (self)))   foreign import javascript unsafe "$1[\"product\"]" js_getProduct ::-        JSRef Navigator -> IO JSString+        Navigator -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.product Mozilla Navigator.product documentation>  getProduct ::            (MonadIO m, FromJSString result) => Navigator -> m result-getProduct self-  = liftIO (fromJSString <$> (js_getProduct (unNavigator self)))+getProduct self = liftIO (fromJSString <$> (js_getProduct (self)))   foreign import javascript unsafe "$1[\"productSub\"]"-        js_getProductSub :: JSRef Navigator -> IO JSString+        js_getProductSub :: Navigator -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.productSub Mozilla Navigator.productSub documentation>  getProductSub ::               (MonadIO m, FromJSString result) => Navigator -> m result getProductSub self-  = liftIO (fromJSString <$> (js_getProductSub (unNavigator self)))+  = liftIO (fromJSString <$> (js_getProductSub (self)))   foreign import javascript unsafe "$1[\"vendor\"]" js_getVendor ::-        JSRef Navigator -> IO JSString+        Navigator -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vendor Mozilla Navigator.vendor documentation>  getVendor ::           (MonadIO m, FromJSString result) => Navigator -> m result-getVendor self-  = liftIO (fromJSString <$> (js_getVendor (unNavigator self)))+getVendor self = liftIO (fromJSString <$> (js_getVendor (self)))   foreign import javascript unsafe "$1[\"vendorSub\"]"-        js_getVendorSub :: JSRef Navigator -> IO JSString+        js_getVendorSub :: Navigator -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.vendorSub Mozilla Navigator.vendorSub documentation>  getVendorSub ::              (MonadIO m, FromJSString result) => Navigator -> m result getVendorSub self-  = liftIO (fromJSString <$> (js_getVendorSub (unNavigator self)))+  = liftIO (fromJSString <$> (js_getVendorSub (self)))   foreign import javascript unsafe "($1[\"cookieEnabled\"] ? 1 : 0)"-        js_getCookieEnabled :: JSRef Navigator -> IO Bool+        js_getCookieEnabled :: Navigator -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.cookieEnabled Mozilla Navigator.cookieEnabled documentation>  getCookieEnabled :: (MonadIO m) => Navigator -> m Bool-getCookieEnabled self-  = liftIO (js_getCookieEnabled (unNavigator self))+getCookieEnabled self = liftIO (js_getCookieEnabled (self))   foreign import javascript unsafe "($1[\"onLine\"] ? 1 : 0)"-        js_getOnLine :: JSRef Navigator -> IO Bool+        js_getOnLine :: Navigator -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.onLine Mozilla Navigator.onLine documentation>  getOnLine :: (MonadIO m) => Navigator -> m Bool-getOnLine self = liftIO (js_getOnLine (unNavigator self))+getOnLine self = liftIO (js_getOnLine (self))   foreign import javascript unsafe "$1[\"hardwareConcurrency\"]"-        js_getHardwareConcurrency :: JSRef Navigator -> IO Int+        js_getHardwareConcurrency :: Navigator -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Navigator.hardwareConcurrency Mozilla Navigator.hardwareConcurrency documentation>  getHardwareConcurrency :: (MonadIO m) => Navigator -> m Int getHardwareConcurrency self-  = liftIO (js_getHardwareConcurrency (unNavigator self))+  = liftIO (js_getHardwareConcurrency (self))
src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaError.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,14 +19,11 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"constraintName\"]"-        js_getConstraintName ::-        JSRef NavigatorUserMediaError -> IO JSString+        js_getConstraintName :: NavigatorUserMediaError -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaError.constraintName Mozilla NavigatorUserMediaError.constraintName documentation>  getConstraintName ::                   (MonadIO m, FromJSString result) =>                     NavigatorUserMediaError -> m result getConstraintName self-  = liftIO-      (fromJSString <$>-         (js_getConstraintName (unNavigatorUserMediaError self)))+  = liftIO (fromJSString <$> (js_getConstraintName (self)))
src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaErrorCallback.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,9 +27,10 @@                                        m NavigatorUserMediaErrorCallback newNavigatorUserMediaErrorCallback callback   = liftIO-      (syncCallback1 ThrowWouldBlock-         (\ error ->-            fromJSRefUnchecked error >>= \ error' -> callback error'))+      (NavigatorUserMediaErrorCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ error ->+              fromJSRefUnchecked error >>= \ error' -> callback error'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaErrorCallback Mozilla NavigatorUserMediaErrorCallback documentation>  newNavigatorUserMediaErrorCallbackSync ::@@ -38,9 +39,10 @@                                            m NavigatorUserMediaErrorCallback newNavigatorUserMediaErrorCallbackSync callback   = liftIO-      (syncCallback1 ContinueAsync-         (\ error ->-            fromJSRefUnchecked error >>= \ error' -> callback error'))+      (NavigatorUserMediaErrorCallback <$>+         syncCallback1 ContinueAsync+           (\ error ->+              fromJSRefUnchecked error >>= \ error' -> callback error'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaErrorCallback Mozilla NavigatorUserMediaErrorCallback documentation>  newNavigatorUserMediaErrorCallbackAsync ::@@ -49,6 +51,7 @@                                             m NavigatorUserMediaErrorCallback newNavigatorUserMediaErrorCallbackAsync callback   = liftIO-      (asyncCallback1-         (\ error ->-            fromJSRefUnchecked error >>= \ error' -> callback error'))+      (NavigatorUserMediaErrorCallback <$>+         asyncCallback1+           (\ error ->+              fromJSRefUnchecked error >>= \ error' -> callback error'))
src/GHCJS/DOM/JSFFI/Generated/NavigatorUserMediaSuccessCallback.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,9 +27,10 @@                                          m NavigatorUserMediaSuccessCallback newNavigatorUserMediaSuccessCallback callback   = liftIO-      (syncCallback1 ThrowWouldBlock-         (\ stream ->-            fromJSRefUnchecked stream >>= \ stream' -> callback stream'))+      (NavigatorUserMediaSuccessCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ stream ->+              fromJSRefUnchecked stream >>= \ stream' -> callback stream'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaSuccessCallback Mozilla NavigatorUserMediaSuccessCallback documentation>  newNavigatorUserMediaSuccessCallbackSync ::@@ -38,9 +39,10 @@                                              m NavigatorUserMediaSuccessCallback newNavigatorUserMediaSuccessCallbackSync callback   = liftIO-      (syncCallback1 ContinueAsync-         (\ stream ->-            fromJSRefUnchecked stream >>= \ stream' -> callback stream'))+      (NavigatorUserMediaSuccessCallback <$>+         syncCallback1 ContinueAsync+           (\ stream ->+              fromJSRefUnchecked stream >>= \ stream' -> callback stream'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NavigatorUserMediaSuccessCallback Mozilla NavigatorUserMediaSuccessCallback documentation>  newNavigatorUserMediaSuccessCallbackAsync ::@@ -49,6 +51,7 @@                                               m NavigatorUserMediaSuccessCallback newNavigatorUserMediaSuccessCallbackAsync callback   = liftIO-      (asyncCallback1-         (\ stream ->-            fromJSRefUnchecked stream >>= \ stream' -> callback stream'))+      (NavigatorUserMediaSuccessCallback <$>+         asyncCallback1+           (\ stream ->+              fromJSRefUnchecked stream >>= \ stream' -> callback stream'))
src/GHCJS/DOM/JSFFI/Generated/Node.hs view
@@ -34,7 +34,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -49,7 +49,7 @@   foreign import javascript unsafe "$1[\"insertBefore\"]($2, $3)"         js_insertBefore ::-        JSRef Node -> JSRef Node -> JSRef Node -> IO (JSRef Node)+        Node -> Nullable Node -> Nullable Node -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.insertBefore Mozilla Node.insertBefore documentation>  insertBefore ::@@ -57,14 +57,14 @@                self -> Maybe newChild -> Maybe refChild -> m (Maybe Node) insertBefore self newChild refChild   = liftIO-      ((js_insertBefore (unNode (toNode self))-          (maybe jsNull (unNode . toNode) newChild)-          (maybe jsNull (unNode . toNode) refChild))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_insertBefore (toNode self)+            (maybeToNullable (fmap toNode newChild))+            (maybeToNullable (fmap toNode refChild))))   foreign import javascript unsafe "$1[\"replaceChild\"]($2, $3)"         js_replaceChild ::-        JSRef Node -> JSRef Node -> JSRef Node -> IO (JSRef Node)+        Node -> Nullable Node -> Nullable Node -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.replaceChild Mozilla Node.replaceChild documentation>  replaceChild ::@@ -72,13 +72,13 @@                self -> Maybe newChild -> Maybe oldChild -> m (Maybe Node) replaceChild self newChild oldChild   = liftIO-      ((js_replaceChild (unNode (toNode self))-          (maybe jsNull (unNode . toNode) newChild)-          (maybe jsNull (unNode . toNode) oldChild))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_replaceChild (toNode self)+            (maybeToNullable (fmap toNode newChild))+            (maybeToNullable (fmap toNode oldChild))))   foreign import javascript unsafe "$1[\"removeChild\"]($2)"-        js_removeChild :: JSRef Node -> JSRef Node -> IO (JSRef Node)+        js_removeChild :: Node -> Nullable Node -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.removeChild Mozilla Node.removeChild documentation>  removeChild ::@@ -86,12 +86,12 @@               self -> Maybe oldChild -> m (Maybe Node) removeChild self oldChild   = liftIO-      ((js_removeChild (unNode (toNode self))-          (maybe jsNull (unNode . toNode) oldChild))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_removeChild (toNode self)+            (maybeToNullable (fmap toNode oldChild))))   foreign import javascript unsafe "$1[\"appendChild\"]($2)"-        js_appendChild :: JSRef Node -> JSRef Node -> IO (JSRef Node)+        js_appendChild :: Node -> Nullable Node -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.appendChild Mozilla Node.appendChild documentation>  appendChild ::@@ -99,38 +99,37 @@               self -> Maybe newChild -> m (Maybe Node) appendChild self newChild   = liftIO-      ((js_appendChild (unNode (toNode self))-          (maybe jsNull (unNode . toNode) newChild))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_appendChild (toNode self)+            (maybeToNullable (fmap toNode newChild))))   foreign import javascript unsafe         "($1[\"hasChildNodes\"]() ? 1 : 0)" js_hasChildNodes ::-        JSRef Node -> IO Bool+        Node -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.hasChildNodes Mozilla Node.hasChildNodes documentation>  hasChildNodes :: (MonadIO m, IsNode self) => self -> m Bool-hasChildNodes self-  = liftIO (js_hasChildNodes (unNode (toNode self)))+hasChildNodes self = liftIO (js_hasChildNodes (toNode self))   foreign import javascript unsafe "$1[\"cloneNode\"]($2)"-        js_cloneNode :: JSRef Node -> Bool -> IO (JSRef Node)+        js_cloneNode :: Node -> Bool -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.cloneNode Mozilla Node.cloneNode documentation>  cloneNode ::           (MonadIO m, IsNode self) => self -> Bool -> m (Maybe Node) cloneNode self deep-  = liftIO ((js_cloneNode (unNode (toNode self)) deep) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_cloneNode (toNode self) deep))   foreign import javascript unsafe "$1[\"normalize\"]()" js_normalize-        :: JSRef Node -> IO ()+        :: Node -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.normalize Mozilla Node.normalize documentation>  normalize :: (MonadIO m, IsNode self) => self -> m ()-normalize self = liftIO (js_normalize (unNode (toNode self)))+normalize self = liftIO (js_normalize (toNode self))   foreign import javascript unsafe         "($1[\"isSupported\"]($2,\n$3) ? 1 : 0)" js_isSupported ::-        JSRef Node -> JSString -> JSRef (Maybe JSString) -> IO Bool+        Node -> JSString -> Nullable JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isSupported Mozilla Node.isSupported documentation>  isSupported ::@@ -138,11 +137,11 @@               self -> feature -> Maybe version -> m Bool isSupported self feature version   = liftIO-      (js_isSupported (unNode (toNode self)) (toJSString feature)+      (js_isSupported (toNode self) (toJSString feature)          (toMaybeJSString version))   foreign import javascript unsafe "($1[\"isSameNode\"]($2) ? 1 : 0)"-        js_isSameNode :: JSRef Node -> JSRef Node -> IO Bool+        js_isSameNode :: Node -> Nullable Node -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isSameNode Mozilla Node.isSameNode documentation>  isSameNode ::@@ -150,12 +149,11 @@              self -> Maybe other -> m Bool isSameNode self other   = liftIO-      (js_isSameNode (unNode (toNode self))-         (maybe jsNull (unNode . toNode) other))+      (js_isSameNode (toNode self) (maybeToNullable (fmap toNode other)))   foreign import javascript unsafe         "($1[\"isEqualNode\"]($2) ? 1 : 0)" js_isEqualNode ::-        JSRef Node -> JSRef Node -> IO Bool+        Node -> Nullable Node -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isEqualNode Mozilla Node.isEqualNode documentation>  isEqualNode ::@@ -163,12 +161,12 @@               self -> Maybe other -> m Bool isEqualNode self other   = liftIO-      (js_isEqualNode (unNode (toNode self))-         (maybe jsNull (unNode . toNode) other))+      (js_isEqualNode (toNode self)+         (maybeToNullable (fmap toNode other)))   foreign import javascript unsafe "$1[\"lookupPrefix\"]($2)"         js_lookupPrefix ::-        JSRef Node -> JSRef (Maybe JSString) -> IO (JSRef (Maybe JSString))+        Node -> Nullable JSString -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupPrefix Mozilla Node.lookupPrefix documentation>  lookupPrefix ::@@ -178,12 +176,11 @@ lookupPrefix self namespaceURI   = liftIO       (fromMaybeJSString <$>-         (js_lookupPrefix (unNode (toNode self))-            (toMaybeJSString namespaceURI)))+         (js_lookupPrefix (toNode self) (toMaybeJSString namespaceURI)))   foreign import javascript unsafe         "($1[\"isDefaultNamespace\"]($2) ? 1 : 0)" js_isDefaultNamespace ::-        JSRef Node -> JSRef (Maybe JSString) -> IO Bool+        Node -> Nullable JSString -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.isDefaultNamespace Mozilla Node.isDefaultNamespace documentation>  isDefaultNamespace ::@@ -191,12 +188,12 @@                      self -> Maybe namespaceURI -> m Bool isDefaultNamespace self namespaceURI   = liftIO-      (js_isDefaultNamespace (unNode (toNode self))+      (js_isDefaultNamespace (toNode self)          (toMaybeJSString namespaceURI))   foreign import javascript unsafe "$1[\"lookupNamespaceURI\"]($2)"         js_lookupNamespaceURI ::-        JSRef Node -> JSRef (Maybe JSString) -> IO (JSRef (Maybe JSString))+        Node -> Nullable JSString -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lookupNamespaceURI Mozilla Node.lookupNamespaceURI documentation>  lookupNamespaceURI ::@@ -205,12 +202,11 @@ lookupNamespaceURI self prefix   = liftIO       (fromMaybeJSString <$>-         (js_lookupNamespaceURI (unNode (toNode self))-            (toMaybeJSString prefix)))+         (js_lookupNamespaceURI (toNode self) (toMaybeJSString prefix)))   foreign import javascript unsafe         "$1[\"compareDocumentPosition\"]($2)" js_compareDocumentPosition ::-        JSRef Node -> JSRef Node -> IO Word+        Node -> Nullable Node -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.compareDocumentPosition Mozilla Node.compareDocumentPosition documentation>  compareDocumentPosition ::@@ -218,11 +214,11 @@                           self -> Maybe other -> m Word compareDocumentPosition self other   = liftIO-      (js_compareDocumentPosition (unNode (toNode self))-         (maybe jsNull (unNode . toNode) other))+      (js_compareDocumentPosition (toNode self)+         (maybeToNullable (fmap toNode other)))   foreign import javascript unsafe "($1[\"contains\"]($2) ? 1 : 0)"-        js_contains :: JSRef Node -> JSRef Node -> IO Bool+        js_contains :: Node -> Nullable Node -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.contains Mozilla Node.contains documentation>  contains ::@@ -230,8 +226,7 @@            self -> Maybe other -> m Bool contains self other   = liftIO-      (js_contains (unNode (toNode self))-         (maybe jsNull (unNode . toNode) other))+      (js_contains (toNode self) (maybeToNullable (fmap toNode other))) pattern ELEMENT_NODE = 1 pattern ATTRIBUTE_NODE = 2 pattern TEXT_NODE = 3@@ -252,190 +247,178 @@ pattern DOCUMENT_POSITION_IMPLEMENTATION_SPECIFIC = 32   foreign import javascript unsafe "$1[\"nodeName\"]" js_getNodeName-        :: JSRef Node -> IO (JSRef (Maybe JSString))+        :: Node -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeName Mozilla Node.nodeName documentation>  getNodeName ::             (MonadIO m, IsNode self, FromJSString result) =>               self -> m (Maybe result) getNodeName self-  = liftIO-      (fromMaybeJSString <$> (js_getNodeName (unNode (toNode self))))+  = liftIO (fromMaybeJSString <$> (js_getNodeName (toNode self)))   foreign import javascript unsafe "$1[\"nodeValue\"] = $2;"-        js_setNodeValue :: JSRef Node -> JSRef (Maybe JSString) -> IO ()+        js_setNodeValue :: Node -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeValue Mozilla Node.nodeValue documentation>  setNodeValue ::              (MonadIO m, IsNode self, ToJSString val) =>                self -> Maybe val -> m () setNodeValue self val-  = liftIO-      (js_setNodeValue (unNode (toNode self)) (toMaybeJSString val))+  = liftIO (js_setNodeValue (toNode self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"nodeValue\"]"-        js_getNodeValue :: JSRef Node -> IO (JSRef (Maybe JSString))+        js_getNodeValue :: Node -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeValue Mozilla Node.nodeValue documentation>  getNodeValue ::              (MonadIO m, IsNode self, FromJSString result) =>                self -> m (Maybe result) getNodeValue self-  = liftIO-      (fromMaybeJSString <$> (js_getNodeValue (unNode (toNode self))))+  = liftIO (fromMaybeJSString <$> (js_getNodeValue (toNode self)))   foreign import javascript unsafe "$1[\"nodeType\"]" js_getNodeType-        :: JSRef Node -> IO Word+        :: Node -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nodeType Mozilla Node.nodeType documentation>  getNodeType :: (MonadIO m, IsNode self) => self -> m Word-getNodeType self = liftIO (js_getNodeType (unNode (toNode self)))+getNodeType self = liftIO (js_getNodeType (toNode self))   foreign import javascript unsafe "$1[\"parentNode\"]"-        js_getParentNode :: JSRef Node -> IO (JSRef Node)+        js_getParentNode :: Node -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.parentNode Mozilla Node.parentNode documentation>  getParentNode :: (MonadIO m, IsNode self) => self -> m (Maybe Node) getParentNode self-  = liftIO ((js_getParentNode (unNode (toNode self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getParentNode (toNode self)))   foreign import javascript unsafe "$1[\"childNodes\"]"-        js_getChildNodes :: JSRef Node -> IO (JSRef NodeList)+        js_getChildNodes :: Node -> IO (Nullable NodeList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.childNodes Mozilla Node.childNodes documentation>  getChildNodes ::               (MonadIO m, IsNode self) => self -> m (Maybe NodeList) getChildNodes self-  = liftIO ((js_getChildNodes (unNode (toNode self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getChildNodes (toNode self)))   foreign import javascript unsafe "$1[\"firstChild\"]"-        js_getFirstChild :: JSRef Node -> IO (JSRef Node)+        js_getFirstChild :: Node -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.firstChild Mozilla Node.firstChild documentation>  getFirstChild :: (MonadIO m, IsNode self) => self -> m (Maybe Node) getFirstChild self-  = liftIO ((js_getFirstChild (unNode (toNode self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getFirstChild (toNode self)))   foreign import javascript unsafe "$1[\"lastChild\"]"-        js_getLastChild :: JSRef Node -> IO (JSRef Node)+        js_getLastChild :: Node -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.lastChild Mozilla Node.lastChild documentation>  getLastChild :: (MonadIO m, IsNode self) => self -> m (Maybe Node) getLastChild self-  = liftIO ((js_getLastChild (unNode (toNode self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getLastChild (toNode self)))   foreign import javascript unsafe "$1[\"previousSibling\"]"-        js_getPreviousSibling :: JSRef Node -> IO (JSRef Node)+        js_getPreviousSibling :: Node -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.previousSibling Mozilla Node.previousSibling documentation>  getPreviousSibling ::                    (MonadIO m, IsNode self) => self -> m (Maybe Node) getPreviousSibling self   = liftIO-      ((js_getPreviousSibling (unNode (toNode self))) >>= fromJSRef)+      (nullableToMaybe <$> (js_getPreviousSibling (toNode self)))   foreign import javascript unsafe "$1[\"nextSibling\"]"-        js_getNextSibling :: JSRef Node -> IO (JSRef Node)+        js_getNextSibling :: Node -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.nextSibling Mozilla Node.nextSibling documentation>  getNextSibling ::                (MonadIO m, IsNode self) => self -> m (Maybe Node) getNextSibling self-  = liftIO ((js_getNextSibling (unNode (toNode self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getNextSibling (toNode self)))   foreign import javascript unsafe "$1[\"ownerDocument\"]"-        js_getOwnerDocument :: JSRef Node -> IO (JSRef Document)+        js_getOwnerDocument :: Node -> IO (Nullable Document)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.ownerDocument Mozilla Node.ownerDocument documentation>  getOwnerDocument ::                  (MonadIO m, IsNode self) => self -> m (Maybe Document) getOwnerDocument self-  = liftIO-      ((js_getOwnerDocument (unNode (toNode self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getOwnerDocument (toNode self)))   foreign import javascript unsafe "$1[\"namespaceURI\"]"-        js_getNamespaceURI :: JSRef Node -> IO (JSRef (Maybe JSString))+        js_getNamespaceURI :: Node -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.namespaceURI Mozilla Node.namespaceURI documentation>  getNamespaceURI ::                 (MonadIO m, IsNode self, FromJSString result) =>                   self -> m (Maybe result) getNamespaceURI self-  = liftIO-      (fromMaybeJSString <$> (js_getNamespaceURI (unNode (toNode self))))+  = liftIO (fromMaybeJSString <$> (js_getNamespaceURI (toNode self)))   foreign import javascript unsafe "$1[\"prefix\"] = $2;"-        js_setPrefix :: JSRef Node -> JSRef (Maybe JSString) -> IO ()+        js_setPrefix :: Node -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.prefix Mozilla Node.prefix documentation>  setPrefix ::           (MonadIO m, IsNode self, ToJSString val) =>             self -> Maybe val -> m () setPrefix self val-  = liftIO-      (js_setPrefix (unNode (toNode self)) (toMaybeJSString val))+  = liftIO (js_setPrefix (toNode self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"prefix\"]" js_getPrefix ::-        JSRef Node -> IO (JSRef (Maybe JSString))+        Node -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.prefix Mozilla Node.prefix documentation>  getPrefix ::           (MonadIO m, IsNode self, FromJSString result) =>             self -> m (Maybe result) getPrefix self-  = liftIO-      (fromMaybeJSString <$> (js_getPrefix (unNode (toNode self))))+  = liftIO (fromMaybeJSString <$> (js_getPrefix (toNode self)))   foreign import javascript unsafe "$1[\"localName\"]"-        js_getLocalName :: JSRef Node -> IO (JSRef (Maybe JSString))+        js_getLocalName :: Node -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.localName Mozilla Node.localName documentation>  getLocalName ::              (MonadIO m, IsNode self, FromJSString result) =>                self -> m (Maybe result) getLocalName self-  = liftIO-      (fromMaybeJSString <$> (js_getLocalName (unNode (toNode self))))+  = liftIO (fromMaybeJSString <$> (js_getLocalName (toNode self)))   foreign import javascript unsafe "$1[\"baseURI\"]" js_getBaseURI ::-        JSRef Node -> IO (JSRef (Maybe JSString))+        Node -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.baseURI Mozilla Node.baseURI documentation>  getBaseURI ::            (MonadIO m, IsNode self, FromJSString result) =>              self -> m (Maybe result) getBaseURI self-  = liftIO-      (fromMaybeJSString <$> (js_getBaseURI (unNode (toNode self))))+  = liftIO (fromMaybeJSString <$> (js_getBaseURI (toNode self)))   foreign import javascript unsafe "$1[\"textContent\"] = $2;"-        js_setTextContent :: JSRef Node -> JSRef (Maybe JSString) -> IO ()+        js_setTextContent :: Node -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.textContent Mozilla Node.textContent documentation>  setTextContent ::                (MonadIO m, IsNode self, ToJSString val) =>                  self -> Maybe val -> m () setTextContent self val-  = liftIO-      (js_setTextContent (unNode (toNode self)) (toMaybeJSString val))+  = liftIO (js_setTextContent (toNode self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"textContent\"]"-        js_getTextContent :: JSRef Node -> IO (JSRef (Maybe JSString))+        js_getTextContent :: Node -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.textContent Mozilla Node.textContent documentation>  getTextContent ::                (MonadIO m, IsNode self, FromJSString result) =>                  self -> m (Maybe result) getTextContent self-  = liftIO-      (fromMaybeJSString <$> (js_getTextContent (unNode (toNode self))))+  = liftIO (fromMaybeJSString <$> (js_getTextContent (toNode self)))   foreign import javascript unsafe "$1[\"parentElement\"]"-        js_getParentElement :: JSRef Node -> IO (JSRef Element)+        js_getParentElement :: Node -> IO (Nullable Element)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Node.parentElement Mozilla Node.parentElement documentation>  getParentElement ::                  (MonadIO m, IsNode self) => self -> m (Maybe Element) getParentElement self-  = liftIO-      ((js_getParentElement (unNode (toNode self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getParentElement (toNode self)))
src/GHCJS/DOM/JSFFI/Generated/NodeFilter.hs view
@@ -12,7 +12,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -26,15 +26,13 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"acceptNode\"]($2)"-        js_acceptNode :: JSRef NodeFilter -> JSRef Node -> IO Int+        js_acceptNode :: NodeFilter -> Nullable Node -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeFilter.acceptNode Mozilla NodeFilter.acceptNode documentation>  acceptNode ::            (MonadIO m, IsNode n) => NodeFilter -> Maybe n -> m Int acceptNode self n-  = liftIO-      (js_acceptNode (unNodeFilter self)-         (maybe jsNull (unNode . toNode) n))+  = liftIO (js_acceptNode (self) (maybeToNullable (fmap toNode n))) pattern FILTER_ACCEPT = 1 pattern FILTER_REJECT = 2 pattern FILTER_SKIP = 3
src/GHCJS/DOM/JSFFI/Generated/NodeIterator.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,76 +23,71 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"nextNode\"]()" js_nextNode-        :: JSRef NodeIterator -> IO (JSRef Node)+        :: NodeIterator -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.nextNode Mozilla NodeIterator.nextNode documentation>  nextNode :: (MonadIO m) => NodeIterator -> m (Maybe Node)-nextNode self-  = liftIO ((js_nextNode (unNodeIterator self)) >>= fromJSRef)+nextNode self = liftIO (nullableToMaybe <$> (js_nextNode (self)))   foreign import javascript unsafe "$1[\"previousNode\"]()"-        js_previousNode :: JSRef NodeIterator -> IO (JSRef Node)+        js_previousNode :: NodeIterator -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.previousNode Mozilla NodeIterator.previousNode documentation>  previousNode :: (MonadIO m) => NodeIterator -> m (Maybe Node) previousNode self-  = liftIO ((js_previousNode (unNodeIterator self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_previousNode (self)))   foreign import javascript unsafe "$1[\"detach\"]()" js_detach ::-        JSRef NodeIterator -> IO ()+        NodeIterator -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.detach Mozilla NodeIterator.detach documentation>  detach :: (MonadIO m) => NodeIterator -> m ()-detach self = liftIO (js_detach (unNodeIterator self))+detach self = liftIO (js_detach (self))   foreign import javascript unsafe "$1[\"root\"]" js_getRoot ::-        JSRef NodeIterator -> IO (JSRef Node)+        NodeIterator -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.root Mozilla NodeIterator.root documentation>  getRoot :: (MonadIO m) => NodeIterator -> m (Maybe Node)-getRoot self-  = liftIO ((js_getRoot (unNodeIterator self)) >>= fromJSRef)+getRoot self = liftIO (nullableToMaybe <$> (js_getRoot (self)))   foreign import javascript unsafe "$1[\"whatToShow\"]"-        js_getWhatToShow :: JSRef NodeIterator -> IO Word+        js_getWhatToShow :: NodeIterator -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.whatToShow Mozilla NodeIterator.whatToShow documentation>  getWhatToShow :: (MonadIO m) => NodeIterator -> m Word-getWhatToShow self-  = liftIO (js_getWhatToShow (unNodeIterator self))+getWhatToShow self = liftIO (js_getWhatToShow (self))   foreign import javascript unsafe "$1[\"filter\"]" js_getFilter ::-        JSRef NodeIterator -> IO (JSRef NodeFilter)+        NodeIterator -> IO (Nullable NodeFilter)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.filter Mozilla NodeIterator.filter documentation>  getFilter :: (MonadIO m) => NodeIterator -> m (Maybe NodeFilter)-getFilter self-  = liftIO ((js_getFilter (unNodeIterator self)) >>= fromJSRef)+getFilter self = liftIO (nullableToMaybe <$> (js_getFilter (self)))   foreign import javascript unsafe         "($1[\"expandEntityReferences\"] ? 1 : 0)"-        js_getExpandEntityReferences :: JSRef NodeIterator -> IO Bool+        js_getExpandEntityReferences :: NodeIterator -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.expandEntityReferences Mozilla NodeIterator.expandEntityReferences documentation>  getExpandEntityReferences :: (MonadIO m) => NodeIterator -> m Bool getExpandEntityReferences self-  = liftIO (js_getExpandEntityReferences (unNodeIterator self))+  = liftIO (js_getExpandEntityReferences (self))   foreign import javascript unsafe "$1[\"referenceNode\"]"-        js_getReferenceNode :: JSRef NodeIterator -> IO (JSRef Node)+        js_getReferenceNode :: NodeIterator -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.referenceNode Mozilla NodeIterator.referenceNode documentation>  getReferenceNode :: (MonadIO m) => NodeIterator -> m (Maybe Node) getReferenceNode self-  = liftIO-      ((js_getReferenceNode (unNodeIterator self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getReferenceNode (self)))   foreign import javascript unsafe         "($1[\"pointerBeforeReferenceNode\"] ? 1 : 0)"-        js_getPointerBeforeReferenceNode :: JSRef NodeIterator -> IO Bool+        js_getPointerBeforeReferenceNode :: NodeIterator -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeIterator.pointerBeforeReferenceNode Mozilla NodeIterator.pointerBeforeReferenceNode documentation>  getPointerBeforeReferenceNode ::                               (MonadIO m) => NodeIterator -> m Bool getPointerBeforeReferenceNode self-  = liftIO (js_getPointerBeforeReferenceNode (unNodeIterator self))+  = liftIO (js_getPointerBeforeReferenceNode (self))
src/GHCJS/DOM/JSFFI/Generated/NodeList.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,19 +19,17 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef NodeList -> Word -> IO (JSRef Node)+        NodeList -> Word -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeList.item Mozilla NodeList.item documentation>  item ::      (MonadIO m, IsNodeList self) => self -> Word -> m (Maybe Node) item self index-  = liftIO-      ((js_item (unNodeList (toNodeList self)) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_item (toNodeList self) index))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef NodeList -> IO Word+        NodeList -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NodeList.length Mozilla NodeList.length documentation>  getLength :: (MonadIO m, IsNodeList self) => self -> m Word-getLength self-  = liftIO (js_getLength (unNodeList (toNodeList self)))+getLength self = liftIO (js_getLength (toNodeList self))
src/GHCJS/DOM/JSFFI/Generated/Notification.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,11 +19,11 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"show\"]()" js_show ::-        JSRef Notification -> IO ()+        Notification -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.show Mozilla Notification.show documentation>  show :: (MonadIO m) => Notification -> m ()-show self = liftIO (js_show (unNotification self))+show self = liftIO (js_show (self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Notification.onshow Mozilla Notification.onshow documentation>  showEvent :: EventName Notification MouseEvent
src/GHCJS/DOM/JSFFI/Generated/NotificationCenter.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,8 +22,8 @@   foreign import javascript unsafe         "$1[\"createNotification\"]($2, $3,\n$4)" js_createNotification ::-        JSRef NotificationCenter ->-          JSString -> JSString -> JSString -> IO (JSRef Notification)+        NotificationCenter ->+          JSString -> JSString -> JSString -> IO (Nullable Notification)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.createNotification Mozilla NotificationCenter.createNotification documentation>  createNotification ::@@ -33,28 +33,24 @@                        iconUrl -> title -> body -> m (Maybe Notification) createNotification self iconUrl title body   = liftIO-      ((js_createNotification (unNotificationCenter self)-          (toJSString iconUrl)-          (toJSString title)-          (toJSString body))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createNotification (self) (toJSString iconUrl)+            (toJSString title)+            (toJSString body)))   foreign import javascript unsafe "$1[\"checkPermission\"]()"-        js_checkPermission :: JSRef NotificationCenter -> IO Int+        js_checkPermission :: NotificationCenter -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.checkPermission Mozilla NotificationCenter.checkPermission documentation>  checkPermission :: (MonadIO m) => NotificationCenter -> m Int-checkPermission self-  = liftIO (js_checkPermission (unNotificationCenter self))+checkPermission self = liftIO (js_checkPermission (self))   foreign import javascript unsafe "$1[\"requestPermission\"]($2)"         js_requestPermission ::-        JSRef NotificationCenter -> JSRef VoidCallback -> IO ()+        NotificationCenter -> Nullable VoidCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationCenter.requestPermission Mozilla NotificationCenter.requestPermission documentation>  requestPermission ::                   (MonadIO m) => NotificationCenter -> Maybe VoidCallback -> m () requestPermission self callback-  = liftIO-      (js_requestPermission (unNotificationCenter self)-         (maybe jsNull pToJSRef callback))+  = liftIO (js_requestPermission (self) (maybeToNullable callback))
src/GHCJS/DOM/JSFFI/Generated/NotificationPermissionCallback.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,10 +27,11 @@                                       m (NotificationPermissionCallback permission) newNotificationPermissionCallback callback   = liftIO-      (syncCallback1 ThrowWouldBlock-         (\ permission ->-            fromJSRefUnchecked permission >>=-              \ permission' -> callback permission'))+      (NotificationPermissionCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ permission ->+              fromJSRefUnchecked permission >>=+                \ permission' -> callback permission'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationPermissionCallback Mozilla NotificationPermissionCallback documentation>  newNotificationPermissionCallbackSync ::@@ -39,10 +40,11 @@                                           m (NotificationPermissionCallback permission) newNotificationPermissionCallbackSync callback   = liftIO-      (syncCallback1 ContinueAsync-         (\ permission ->-            fromJSRefUnchecked permission >>=-              \ permission' -> callback permission'))+      (NotificationPermissionCallback <$>+         syncCallback1 ContinueAsync+           (\ permission ->+              fromJSRefUnchecked permission >>=+                \ permission' -> callback permission'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/NotificationPermissionCallback Mozilla NotificationPermissionCallback documentation>  newNotificationPermissionCallbackAsync ::@@ -51,7 +53,8 @@                                            m (NotificationPermissionCallback permission) newNotificationPermissionCallbackAsync callback   = liftIO-      (asyncCallback1-         (\ permission ->-            fromJSRefUnchecked permission >>=-              \ permission' -> callback permission'))+      (NotificationPermissionCallback <$>+         asyncCallback1+           (\ permission ->+              fromJSRefUnchecked permission >>=+                \ permission' -> callback permission'))
src/GHCJS/DOM/JSFFI/Generated/OESStandardDerivatives.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))
src/GHCJS/DOM/JSFFI/Generated/OESTextureHalfFloat.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))
src/GHCJS/DOM/JSFFI/Generated/OESVertexArrayObject.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,21 +23,18 @@   foreign import javascript unsafe "$1[\"createVertexArrayOES\"]()"         js_createVertexArrayOES ::-        JSRef OESVertexArrayObject -> IO (JSRef WebGLVertexArrayObjectOES)+        OESVertexArrayObject -> IO (Nullable WebGLVertexArrayObjectOES)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.createVertexArrayOES Mozilla OESVertexArrayObject.createVertexArrayOES documentation>  createVertexArrayOES ::                      (MonadIO m) =>                        OESVertexArrayObject -> m (Maybe WebGLVertexArrayObjectOES) createVertexArrayOES self-  = liftIO-      ((js_createVertexArrayOES (unOESVertexArrayObject self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_createVertexArrayOES (self)))   foreign import javascript unsafe "$1[\"deleteVertexArrayOES\"]($2)"         js_deleteVertexArrayOES ::-        JSRef OESVertexArrayObject ->-          JSRef WebGLVertexArrayObjectOES -> IO ()+        OESVertexArrayObject -> Nullable WebGLVertexArrayObjectOES -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.deleteVertexArrayOES Mozilla OESVertexArrayObject.deleteVertexArrayOES documentation>  deleteVertexArrayOES ::@@ -45,27 +42,23 @@                        OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m () deleteVertexArrayOES self arrayObject   = liftIO-      (js_deleteVertexArrayOES (unOESVertexArrayObject self)-         (maybe jsNull pToJSRef arrayObject))+      (js_deleteVertexArrayOES (self) (maybeToNullable arrayObject))   foreign import javascript unsafe         "($1[\"isVertexArrayOES\"]($2) ? 1 : 0)" js_isVertexArrayOES ::-        JSRef OESVertexArrayObject ->-          JSRef WebGLVertexArrayObjectOES -> IO Bool+        OESVertexArrayObject ->+          Nullable WebGLVertexArrayObjectOES -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.isVertexArrayOES Mozilla OESVertexArrayObject.isVertexArrayOES documentation>  isVertexArrayOES ::                  (MonadIO m) =>                    OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m Bool isVertexArrayOES self arrayObject-  = liftIO-      (js_isVertexArrayOES (unOESVertexArrayObject self)-         (maybe jsNull pToJSRef arrayObject))+  = liftIO (js_isVertexArrayOES (self) (maybeToNullable arrayObject))   foreign import javascript unsafe "$1[\"bindVertexArrayOES\"]($2)"         js_bindVertexArrayOES ::-        JSRef OESVertexArrayObject ->-          JSRef WebGLVertexArrayObjectOES -> IO ()+        OESVertexArrayObject -> Nullable WebGLVertexArrayObjectOES -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OESVertexArrayObject.bindVertexArrayOES Mozilla OESVertexArrayObject.bindVertexArrayOES documentation>  bindVertexArrayOES ::@@ -73,6 +66,5 @@                      OESVertexArrayObject -> Maybe WebGLVertexArrayObjectOES -> m () bindVertexArrayOES self arrayObject   = liftIO-      (js_bindVertexArrayOES (unOESVertexArrayObject self)-         (maybe jsNull pToJSRef arrayObject))+      (js_bindVertexArrayOES (self) (maybeToNullable arrayObject)) pattern VERTEX_ARRAY_BINDING_OES = 34229
src/GHCJS/DOM/JSFFI/Generated/OfflineAudioCompletionEvent.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,12 +21,10 @@   foreign import javascript unsafe "$1[\"renderedBuffer\"]"         js_getRenderedBuffer ::-        JSRef OfflineAudioCompletionEvent -> IO (JSRef AudioBuffer)+        OfflineAudioCompletionEvent -> IO (Nullable AudioBuffer)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioCompletionEvent.renderedBuffer Mozilla OfflineAudioCompletionEvent.renderedBuffer documentation>  getRenderedBuffer ::                   (MonadIO m) => OfflineAudioCompletionEvent -> m (Maybe AudioBuffer) getRenderedBuffer self-  = liftIO-      ((js_getRenderedBuffer (unOfflineAudioCompletionEvent self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getRenderedBuffer (self)))
src/GHCJS/DOM/JSFFI/Generated/OfflineAudioContext.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,7 +22,7 @@ foreign import javascript unsafe         "new window[\"OfflineAudioContext\"]($1,\n$2, $3)"         js_newOfflineAudioContext ::-        Word -> Word -> Float -> IO (JSRef OfflineAudioContext)+        Word -> Word -> Float -> IO OfflineAudioContext  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OfflineAudioContext Mozilla OfflineAudioContext documentation>  newOfflineAudioContext ::@@ -30,5 +30,4 @@ newOfflineAudioContext numberOfChannels numberOfFrames sampleRate   = liftIO       (js_newOfflineAudioContext numberOfChannels numberOfFrames-         sampleRate-         >>= fromJSRefUnchecked)+         sampleRate)
src/GHCJS/DOM/JSFFI/Generated/OscillatorNode.hs view
@@ -11,7 +11,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -25,45 +25,42 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"start\"]($2)" js_start ::-        JSRef OscillatorNode -> Double -> IO ()+        OscillatorNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.start Mozilla OscillatorNode.start documentation>  start :: (MonadIO m) => OscillatorNode -> Double -> m ()-start self when = liftIO (js_start (unOscillatorNode self) when)+start self when = liftIO (js_start (self) when)   foreign import javascript unsafe "$1[\"stop\"]($2)" js_stop ::-        JSRef OscillatorNode -> Double -> IO ()+        OscillatorNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.stop Mozilla OscillatorNode.stop documentation>  stop :: (MonadIO m) => OscillatorNode -> Double -> m ()-stop self when = liftIO (js_stop (unOscillatorNode self) when)+stop self when = liftIO (js_stop (self) when)   foreign import javascript unsafe "$1[\"noteOn\"]($2)" js_noteOn ::-        JSRef OscillatorNode -> Double -> IO ()+        OscillatorNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.noteOn Mozilla OscillatorNode.noteOn documentation>  noteOn :: (MonadIO m) => OscillatorNode -> Double -> m ()-noteOn self when = liftIO (js_noteOn (unOscillatorNode self) when)+noteOn self when = liftIO (js_noteOn (self) when)   foreign import javascript unsafe "$1[\"noteOff\"]($2)" js_noteOff-        :: JSRef OscillatorNode -> Double -> IO ()+        :: OscillatorNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.noteOff Mozilla OscillatorNode.noteOff documentation>  noteOff :: (MonadIO m) => OscillatorNode -> Double -> m ()-noteOff self when-  = liftIO (js_noteOff (unOscillatorNode self) when)+noteOff self when = liftIO (js_noteOff (self) when)   foreign import javascript unsafe "$1[\"setPeriodicWave\"]($2)"         js_setPeriodicWave ::-        JSRef OscillatorNode -> JSRef PeriodicWave -> IO ()+        OscillatorNode -> Nullable PeriodicWave -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.setPeriodicWave Mozilla OscillatorNode.setPeriodicWave documentation>  setPeriodicWave ::                 (MonadIO m) => OscillatorNode -> Maybe PeriodicWave -> m () setPeriodicWave self wave-  = liftIO-      (js_setPeriodicWave (unOscillatorNode self)-         (maybe jsNull pToJSRef wave))+  = liftIO (js_setPeriodicWave (self) (maybeToNullable wave)) pattern SINE = 0 pattern SQUARE = 1 pattern SAWTOOTH = 2@@ -75,47 +72,43 @@ pattern FINISHED_STATE = 3   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        JSRef OscillatorNode -> JSString -> IO ()+        OscillatorNode -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.type Mozilla OscillatorNode.type documentation>  setType ::         (MonadIO m, ToJSString val) => OscillatorNode -> val -> m ()-setType self val-  = liftIO (js_setType (unOscillatorNode self) (toJSString val))+setType self val = liftIO (js_setType (self) (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef OscillatorNode -> IO JSString+        OscillatorNode -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.type Mozilla OscillatorNode.type documentation>  getType ::         (MonadIO m, FromJSString result) => OscillatorNode -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unOscillatorNode self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"playbackState\"]"-        js_getPlaybackState :: JSRef OscillatorNode -> IO Word+        js_getPlaybackState :: OscillatorNode -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.playbackState Mozilla OscillatorNode.playbackState documentation>  getPlaybackState :: (MonadIO m) => OscillatorNode -> m Word-getPlaybackState self-  = liftIO (js_getPlaybackState (unOscillatorNode self))+getPlaybackState self = liftIO (js_getPlaybackState (self))   foreign import javascript unsafe "$1[\"frequency\"]"-        js_getFrequency :: JSRef OscillatorNode -> IO (JSRef AudioParam)+        js_getFrequency :: OscillatorNode -> IO (Nullable AudioParam)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.frequency Mozilla OscillatorNode.frequency documentation>  getFrequency ::              (MonadIO m) => OscillatorNode -> m (Maybe AudioParam) getFrequency self-  = liftIO ((js_getFrequency (unOscillatorNode self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getFrequency (self)))   foreign import javascript unsafe "$1[\"detune\"]" js_getDetune ::-        JSRef OscillatorNode -> IO (JSRef AudioParam)+        OscillatorNode -> IO (Nullable AudioParam)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.detune Mozilla OscillatorNode.detune documentation>  getDetune :: (MonadIO m) => OscillatorNode -> m (Maybe AudioParam)-getDetune self-  = liftIO ((js_getDetune (unOscillatorNode self)) >>= fromJSRef)+getDetune self = liftIO (nullableToMaybe <$> (js_getDetune (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OscillatorNode.onended Mozilla OscillatorNode.onended documentation>  ended :: EventName OscillatorNode Event
src/GHCJS/DOM/JSFFI/Generated/OverflowEvent.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,26 +24,25 @@ pattern BOTH = 2   foreign import javascript unsafe "$1[\"orient\"]" js_getOrient ::-        JSRef OverflowEvent -> IO Word+        OverflowEvent -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OverflowEvent.orient Mozilla OverflowEvent.orient documentation>  getOrient :: (MonadIO m) => OverflowEvent -> m Word-getOrient self = liftIO (js_getOrient (unOverflowEvent self))+getOrient self = liftIO (js_getOrient (self))   foreign import javascript unsafe         "($1[\"horizontalOverflow\"] ? 1 : 0)" js_getHorizontalOverflow ::-        JSRef OverflowEvent -> IO Bool+        OverflowEvent -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OverflowEvent.horizontalOverflow Mozilla OverflowEvent.horizontalOverflow documentation>  getHorizontalOverflow :: (MonadIO m) => OverflowEvent -> m Bool getHorizontalOverflow self-  = liftIO (js_getHorizontalOverflow (unOverflowEvent self))+  = liftIO (js_getHorizontalOverflow (self))   foreign import javascript unsafe         "($1[\"verticalOverflow\"] ? 1 : 0)" js_getVerticalOverflow ::-        JSRef OverflowEvent -> IO Bool+        OverflowEvent -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/OverflowEvent.verticalOverflow Mozilla OverflowEvent.verticalOverflow documentation>  getVerticalOverflow :: (MonadIO m) => OverflowEvent -> m Bool-getVerticalOverflow self-  = liftIO (js_getVerticalOverflow (unOverflowEvent self))+getVerticalOverflow self = liftIO (js_getVerticalOverflow (self))
src/GHCJS/DOM/JSFFI/Generated/PageTransitionEvent.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,9 +19,8 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "($1[\"persisted\"] ? 1 : 0)"-        js_getPersisted :: JSRef PageTransitionEvent -> IO Bool+        js_getPersisted :: PageTransitionEvent -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PageTransitionEvent.persisted Mozilla PageTransitionEvent.persisted documentation>  getPersisted :: (MonadIO m) => PageTransitionEvent -> m Bool-getPersisted self-  = liftIO (js_getPersisted (unPageTransitionEvent self))+getPersisted self = liftIO (js_getPersisted (self))
src/GHCJS/DOM/JSFFI/Generated/PannerNode.hs view
@@ -19,7 +19,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -33,34 +33,29 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"setPosition\"]($2, $3, $4)"-        js_setPosition ::-        JSRef PannerNode -> Float -> Float -> Float -> IO ()+        js_setPosition :: PannerNode -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.setPosition Mozilla webkitAudioPannerNode.setPosition documentation>  setPosition ::             (MonadIO m) => PannerNode -> Float -> Float -> Float -> m ()-setPosition self x y z-  = liftIO (js_setPosition (unPannerNode self) x y z)+setPosition self x y z = liftIO (js_setPosition (self) x y z)   foreign import javascript unsafe         "$1[\"setOrientation\"]($2, $3, $4)" js_setOrientation ::-        JSRef PannerNode -> Float -> Float -> Float -> IO ()+        PannerNode -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.setOrientation Mozilla webkitAudioPannerNode.setOrientation documentation>  setOrientation ::                (MonadIO m) => PannerNode -> Float -> Float -> Float -> m ()-setOrientation self x y z-  = liftIO (js_setOrientation (unPannerNode self) x y z)+setOrientation self x y z = liftIO (js_setOrientation (self) x y z)   foreign import javascript unsafe "$1[\"setVelocity\"]($2, $3, $4)"-        js_setVelocity ::-        JSRef PannerNode -> Float -> Float -> Float -> IO ()+        js_setVelocity :: PannerNode -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.setVelocity Mozilla webkitAudioPannerNode.setVelocity documentation>  setVelocity ::             (MonadIO m) => PannerNode -> Float -> Float -> Float -> m ()-setVelocity self x y z-  = liftIO (js_setVelocity (unPannerNode self) x y z)+setVelocity self x y z = liftIO (js_setVelocity (self) x y z) pattern EQUALPOWER = 0 pattern HRTF = 1 pattern SOUNDFIELD = 2@@ -69,135 +64,123 @@ pattern EXPONENTIAL_DISTANCE = 2   foreign import javascript unsafe "$1[\"panningModel\"] = $2;"-        js_setPanningModel :: JSRef PannerNode -> JSString -> IO ()+        js_setPanningModel :: PannerNode -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.panningModel Mozilla webkitAudioPannerNode.panningModel documentation>  setPanningModel ::                 (MonadIO m, ToJSString val) => PannerNode -> val -> m () setPanningModel self val-  = liftIO (js_setPanningModel (unPannerNode self) (toJSString val))+  = liftIO (js_setPanningModel (self) (toJSString val))   foreign import javascript unsafe "$1[\"panningModel\"]"-        js_getPanningModel :: JSRef PannerNode -> IO JSString+        js_getPanningModel :: PannerNode -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.panningModel Mozilla webkitAudioPannerNode.panningModel documentation>  getPanningModel ::                 (MonadIO m, FromJSString result) => PannerNode -> m result getPanningModel self-  = liftIO-      (fromJSString <$> (js_getPanningModel (unPannerNode self)))+  = liftIO (fromJSString <$> (js_getPanningModel (self)))   foreign import javascript unsafe "$1[\"distanceModel\"] = $2;"-        js_setDistanceModel :: JSRef PannerNode -> JSString -> IO ()+        js_setDistanceModel :: PannerNode -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.distanceModel Mozilla webkitAudioPannerNode.distanceModel documentation>  setDistanceModel ::                  (MonadIO m, ToJSString val) => PannerNode -> val -> m () setDistanceModel self val-  = liftIO (js_setDistanceModel (unPannerNode self) (toJSString val))+  = liftIO (js_setDistanceModel (self) (toJSString val))   foreign import javascript unsafe "$1[\"distanceModel\"]"-        js_getDistanceModel :: JSRef PannerNode -> IO JSString+        js_getDistanceModel :: PannerNode -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.distanceModel Mozilla webkitAudioPannerNode.distanceModel documentation>  getDistanceModel ::                  (MonadIO m, FromJSString result) => PannerNode -> m result getDistanceModel self-  = liftIO-      (fromJSString <$> (js_getDistanceModel (unPannerNode self)))+  = liftIO (fromJSString <$> (js_getDistanceModel (self)))   foreign import javascript unsafe "$1[\"refDistance\"] = $2;"-        js_setRefDistance :: JSRef PannerNode -> Double -> IO ()+        js_setRefDistance :: PannerNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.refDistance Mozilla webkitAudioPannerNode.refDistance documentation>  setRefDistance :: (MonadIO m) => PannerNode -> Double -> m ()-setRefDistance self val-  = liftIO (js_setRefDistance (unPannerNode self) val)+setRefDistance self val = liftIO (js_setRefDistance (self) val)   foreign import javascript unsafe "$1[\"refDistance\"]"-        js_getRefDistance :: JSRef PannerNode -> IO Double+        js_getRefDistance :: PannerNode -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.refDistance Mozilla webkitAudioPannerNode.refDistance documentation>  getRefDistance :: (MonadIO m) => PannerNode -> m Double-getRefDistance self-  = liftIO (js_getRefDistance (unPannerNode self))+getRefDistance self = liftIO (js_getRefDistance (self))   foreign import javascript unsafe "$1[\"maxDistance\"] = $2;"-        js_setMaxDistance :: JSRef PannerNode -> Double -> IO ()+        js_setMaxDistance :: PannerNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.maxDistance Mozilla webkitAudioPannerNode.maxDistance documentation>  setMaxDistance :: (MonadIO m) => PannerNode -> Double -> m ()-setMaxDistance self val-  = liftIO (js_setMaxDistance (unPannerNode self) val)+setMaxDistance self val = liftIO (js_setMaxDistance (self) val)   foreign import javascript unsafe "$1[\"maxDistance\"]"-        js_getMaxDistance :: JSRef PannerNode -> IO Double+        js_getMaxDistance :: PannerNode -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.maxDistance Mozilla webkitAudioPannerNode.maxDistance documentation>  getMaxDistance :: (MonadIO m) => PannerNode -> m Double-getMaxDistance self-  = liftIO (js_getMaxDistance (unPannerNode self))+getMaxDistance self = liftIO (js_getMaxDistance (self))   foreign import javascript unsafe "$1[\"rolloffFactor\"] = $2;"-        js_setRolloffFactor :: JSRef PannerNode -> Double -> IO ()+        js_setRolloffFactor :: PannerNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.rolloffFactor Mozilla webkitAudioPannerNode.rolloffFactor documentation>  setRolloffFactor :: (MonadIO m) => PannerNode -> Double -> m ()-setRolloffFactor self val-  = liftIO (js_setRolloffFactor (unPannerNode self) val)+setRolloffFactor self val = liftIO (js_setRolloffFactor (self) val)   foreign import javascript unsafe "$1[\"rolloffFactor\"]"-        js_getRolloffFactor :: JSRef PannerNode -> IO Double+        js_getRolloffFactor :: PannerNode -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.rolloffFactor Mozilla webkitAudioPannerNode.rolloffFactor documentation>  getRolloffFactor :: (MonadIO m) => PannerNode -> m Double-getRolloffFactor self-  = liftIO (js_getRolloffFactor (unPannerNode self))+getRolloffFactor self = liftIO (js_getRolloffFactor (self))   foreign import javascript unsafe "$1[\"coneInnerAngle\"] = $2;"-        js_setConeInnerAngle :: JSRef PannerNode -> Double -> IO ()+        js_setConeInnerAngle :: PannerNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneInnerAngle Mozilla webkitAudioPannerNode.coneInnerAngle documentation>  setConeInnerAngle :: (MonadIO m) => PannerNode -> Double -> m () setConeInnerAngle self val-  = liftIO (js_setConeInnerAngle (unPannerNode self) val)+  = liftIO (js_setConeInnerAngle (self) val)   foreign import javascript unsafe "$1[\"coneInnerAngle\"]"-        js_getConeInnerAngle :: JSRef PannerNode -> IO Double+        js_getConeInnerAngle :: PannerNode -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneInnerAngle Mozilla webkitAudioPannerNode.coneInnerAngle documentation>  getConeInnerAngle :: (MonadIO m) => PannerNode -> m Double-getConeInnerAngle self-  = liftIO (js_getConeInnerAngle (unPannerNode self))+getConeInnerAngle self = liftIO (js_getConeInnerAngle (self))   foreign import javascript unsafe "$1[\"coneOuterAngle\"] = $2;"-        js_setConeOuterAngle :: JSRef PannerNode -> Double -> IO ()+        js_setConeOuterAngle :: PannerNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneOuterAngle Mozilla webkitAudioPannerNode.coneOuterAngle documentation>  setConeOuterAngle :: (MonadIO m) => PannerNode -> Double -> m () setConeOuterAngle self val-  = liftIO (js_setConeOuterAngle (unPannerNode self) val)+  = liftIO (js_setConeOuterAngle (self) val)   foreign import javascript unsafe "$1[\"coneOuterAngle\"]"-        js_getConeOuterAngle :: JSRef PannerNode -> IO Double+        js_getConeOuterAngle :: PannerNode -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneOuterAngle Mozilla webkitAudioPannerNode.coneOuterAngle documentation>  getConeOuterAngle :: (MonadIO m) => PannerNode -> m Double-getConeOuterAngle self-  = liftIO (js_getConeOuterAngle (unPannerNode self))+getConeOuterAngle self = liftIO (js_getConeOuterAngle (self))   foreign import javascript unsafe "$1[\"coneOuterGain\"] = $2;"-        js_setConeOuterGain :: JSRef PannerNode -> Double -> IO ()+        js_setConeOuterGain :: PannerNode -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneOuterGain Mozilla webkitAudioPannerNode.coneOuterGain documentation>  setConeOuterGain :: (MonadIO m) => PannerNode -> Double -> m ()-setConeOuterGain self val-  = liftIO (js_setConeOuterGain (unPannerNode self) val)+setConeOuterGain self val = liftIO (js_setConeOuterGain (self) val)   foreign import javascript unsafe "$1[\"coneOuterGain\"]"-        js_getConeOuterGain :: JSRef PannerNode -> IO Double+        js_getConeOuterGain :: PannerNode -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitAudioPannerNode.coneOuterGain Mozilla webkitAudioPannerNode.coneOuterGain documentation>  getConeOuterGain :: (MonadIO m) => PannerNode -> m Double-getConeOuterGain self-  = liftIO (js_getConeOuterGain (unPannerNode self))+getConeOuterGain self = liftIO (js_getConeOuterGain (self))
src/GHCJS/DOM/JSFFI/Generated/Path2D.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,76 +23,73 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "new window[\"Path2D\"]()"-        js_newPath2D :: IO (JSRef Path2D)+        js_newPath2D :: IO Path2D  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D Mozilla Path2D documentation>  newPath2D :: (MonadIO m) => m Path2D-newPath2D = liftIO (js_newPath2D >>= fromJSRefUnchecked)+newPath2D = liftIO (js_newPath2D)   foreign import javascript unsafe "new window[\"Path2D\"]($1)"-        js_newPath2D' :: JSRef Path2D -> IO (JSRef Path2D)+        js_newPath2D' :: Nullable Path2D -> IO Path2D  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D Mozilla Path2D documentation>  newPath2D' :: (MonadIO m) => Maybe Path2D -> m Path2D-newPath2D' path-  = liftIO-      (js_newPath2D' (maybe jsNull pToJSRef path) >>= fromJSRefUnchecked)+newPath2D' path = liftIO (js_newPath2D' (maybeToNullable path))   foreign import javascript unsafe "new window[\"Path2D\"]($1)"-        js_newPath2D'' :: JSString -> IO (JSRef Path2D)+        js_newPath2D'' :: JSString -> IO Path2D  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D Mozilla Path2D documentation>  newPath2D'' :: (MonadIO m, ToJSString text) => text -> m Path2D-newPath2D'' text-  = liftIO (js_newPath2D'' (toJSString text) >>= fromJSRefUnchecked)+newPath2D'' text = liftIO (js_newPath2D'' (toJSString text))   foreign import javascript unsafe "$1[\"addPath\"]($2, $3)"         js_addPath ::-        JSRef Path2D -> JSRef Path2D -> JSRef SVGMatrix -> IO ()+        Path2D -> Nullable Path2D -> Nullable SVGMatrix -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.addPath Mozilla Path2D.addPath documentation>  addPath ::         (MonadIO m) => Path2D -> Maybe Path2D -> Maybe SVGMatrix -> m () addPath self path transform   = liftIO-      (js_addPath (unPath2D self) (maybe jsNull pToJSRef path)-         (maybe jsNull pToJSRef transform))+      (js_addPath (self) (maybeToNullable path)+         (maybeToNullable transform))   foreign import javascript unsafe "$1[\"closePath\"]()" js_closePath-        :: JSRef Path2D -> IO ()+        :: Path2D -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.closePath Mozilla Path2D.closePath documentation>  closePath :: (MonadIO m) => Path2D -> m ()-closePath self = liftIO (js_closePath (unPath2D self))+closePath self = liftIO (js_closePath (self))   foreign import javascript unsafe "$1[\"moveTo\"]($2, $3)" js_moveTo-        :: JSRef Path2D -> Float -> Float -> IO ()+        :: Path2D -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.moveTo Mozilla Path2D.moveTo documentation>  moveTo :: (MonadIO m) => Path2D -> Float -> Float -> m ()-moveTo self x y = liftIO (js_moveTo (unPath2D self) x y)+moveTo self x y = liftIO (js_moveTo (self) x y)   foreign import javascript unsafe "$1[\"lineTo\"]($2, $3)" js_lineTo-        :: JSRef Path2D -> Float -> Float -> IO ()+        :: Path2D -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.lineTo Mozilla Path2D.lineTo documentation>  lineTo :: (MonadIO m) => Path2D -> Float -> Float -> m ()-lineTo self x y = liftIO (js_lineTo (unPath2D self) x y)+lineTo self x y = liftIO (js_lineTo (self) x y)   foreign import javascript unsafe         "$1[\"quadraticCurveTo\"]($2, $3,\n$4, $5)" js_quadraticCurveTo ::-        JSRef Path2D -> Float -> Float -> Float -> Float -> IO ()+        Path2D -> Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.quadraticCurveTo Mozilla Path2D.quadraticCurveTo documentation>  quadraticCurveTo ::                  (MonadIO m) => Path2D -> Float -> Float -> Float -> Float -> m () quadraticCurveTo self cpx cpy x y-  = liftIO (js_quadraticCurveTo (unPath2D self) cpx cpy x y)+  = liftIO (js_quadraticCurveTo (self) cpx cpy x y)   foreign import javascript unsafe         "$1[\"bezierCurveTo\"]($2, $3, $4,\n$5, $6, $7)" js_bezierCurveTo         ::-        JSRef Path2D ->+        Path2D ->           Float -> Float -> Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.bezierCurveTo Mozilla Path2D.bezierCurveTo documentation> @@ -101,32 +98,31 @@                 Path2D ->                   Float -> Float -> Float -> Float -> Float -> Float -> m () bezierCurveTo self cp1x cp1y cp2x cp2y x y-  = liftIO (js_bezierCurveTo (unPath2D self) cp1x cp1y cp2x cp2y x y)+  = liftIO (js_bezierCurveTo (self) cp1x cp1y cp2x cp2y x y)   foreign import javascript unsafe         "$1[\"arcTo\"]($2, $3, $4, $5, $6)" js_arcTo ::-        JSRef Path2D -> Float -> Float -> Float -> Float -> Float -> IO ()+        Path2D -> Float -> Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.arcTo Mozilla Path2D.arcTo documentation>  arcTo ::       (MonadIO m) =>         Path2D -> Float -> Float -> Float -> Float -> Float -> m () arcTo self x1 y1 x2 y2 radius-  = liftIO (js_arcTo (unPath2D self) x1 y1 x2 y2 radius)+  = liftIO (js_arcTo (self) x1 y1 x2 y2 radius)   foreign import javascript unsafe "$1[\"rect\"]($2, $3, $4, $5)"-        js_rect ::-        JSRef Path2D -> Float -> Float -> Float -> Float -> IO ()+        js_rect :: Path2D -> Float -> Float -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.rect Mozilla Path2D.rect documentation>  rect ::      (MonadIO m) => Path2D -> Float -> Float -> Float -> Float -> m () rect self x y width height-  = liftIO (js_rect (unPath2D self) x y width height)+  = liftIO (js_rect (self) x y width height)   foreign import javascript unsafe         "$1[\"arc\"]($2, $3, $4, $5, $6,\n$7)" js_arc ::-        JSRef Path2D ->+        Path2D ->           Float -> Float -> Float -> Float -> Float -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Path2D.arc Mozilla Path2D.arc documentation> @@ -135,5 +131,4 @@       Path2D -> Float -> Float -> Float -> Float -> Float -> Bool -> m () arc self x y radius startAngle endAngle anticlockwise   = liftIO-      (js_arc (unPath2D self) x y radius startAngle endAngle-         anticlockwise)+      (js_arc (self) x y radius startAngle endAngle anticlockwise)
src/GHCJS/DOM/JSFFI/Generated/Performance.hs view
@@ -13,7 +13,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -28,17 +28,17 @@   foreign import javascript unsafe "$1[\"webkitGetEntries\"]()"         js_webkitGetEntries ::-        JSRef Performance -> IO (JSRef PerformanceEntryList)+        Performance -> IO (Nullable PerformanceEntryList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntries Mozilla Performance.webkitGetEntries documentation>  webkitGetEntries ::                  (MonadIO m) => Performance -> m (Maybe PerformanceEntryList) webkitGetEntries self-  = liftIO ((js_webkitGetEntries (unPerformance self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_webkitGetEntries (self)))   foreign import javascript unsafe         "$1[\"webkitGetEntriesByType\"]($2)" js_webkitGetEntriesByType ::-        JSRef Performance -> JSString -> IO (JSRef PerformanceEntryList)+        Performance -> JSString -> IO (Nullable PerformanceEntryList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByType Mozilla Performance.webkitGetEntriesByType documentation>  webkitGetEntriesByType ::@@ -46,15 +46,14 @@                          Performance -> entryType -> m (Maybe PerformanceEntryList) webkitGetEntriesByType self entryType   = liftIO-      ((js_webkitGetEntriesByType (unPerformance self)-          (toJSString entryType))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_webkitGetEntriesByType (self) (toJSString entryType)))   foreign import javascript unsafe         "$1[\"webkitGetEntriesByName\"]($2,\n$3)" js_webkitGetEntriesByName         ::-        JSRef Performance ->-          JSString -> JSString -> IO (JSRef PerformanceEntryList)+        Performance ->+          JSString -> JSString -> IO (Nullable PerformanceEntryList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitGetEntriesByName Mozilla Performance.webkitGetEntriesByName documentation>  webkitGetEntriesByName ::@@ -62,53 +61,51 @@                          Performance -> name -> entryType -> m (Maybe PerformanceEntryList) webkitGetEntriesByName self name entryType   = liftIO-      ((js_webkitGetEntriesByName (unPerformance self) (toJSString name)-          (toJSString entryType))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_webkitGetEntriesByName (self) (toJSString name)+            (toJSString entryType)))   foreign import javascript unsafe         "$1[\"webkitClearResourceTimings\"]()"-        js_webkitClearResourceTimings :: JSRef Performance -> IO ()+        js_webkitClearResourceTimings :: Performance -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitClearResourceTimings Mozilla Performance.webkitClearResourceTimings documentation>  webkitClearResourceTimings :: (MonadIO m) => Performance -> m () webkitClearResourceTimings self-  = liftIO (js_webkitClearResourceTimings (unPerformance self))+  = liftIO (js_webkitClearResourceTimings (self))   foreign import javascript unsafe         "$1[\"webkitSetResourceTimingBufferSize\"]($2)"         js_webkitSetResourceTimingBufferSize ::-        JSRef Performance -> Word -> IO ()+        Performance -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitSetResourceTimingBufferSize Mozilla Performance.webkitSetResourceTimingBufferSize documentation>  webkitSetResourceTimingBufferSize ::                                   (MonadIO m) => Performance -> Word -> m () webkitSetResourceTimingBufferSize self maxSize-  = liftIO-      (js_webkitSetResourceTimingBufferSize (unPerformance self) maxSize)+  = liftIO (js_webkitSetResourceTimingBufferSize (self) maxSize)   foreign import javascript unsafe "$1[\"webkitMark\"]($2)"-        js_webkitMark :: JSRef Performance -> JSString -> IO ()+        js_webkitMark :: Performance -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitMark Mozilla Performance.webkitMark documentation>  webkitMark ::            (MonadIO m, ToJSString markName) => Performance -> markName -> m () webkitMark self markName-  = liftIO (js_webkitMark (unPerformance self) (toJSString markName))+  = liftIO (js_webkitMark (self) (toJSString markName))   foreign import javascript unsafe "$1[\"webkitClearMarks\"]($2)"-        js_webkitClearMarks :: JSRef Performance -> JSString -> IO ()+        js_webkitClearMarks :: Performance -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitClearMarks Mozilla Performance.webkitClearMarks documentation>  webkitClearMarks ::                  (MonadIO m, ToJSString markName) => Performance -> markName -> m () webkitClearMarks self markName-  = liftIO-      (js_webkitClearMarks (unPerformance self) (toJSString markName))+  = liftIO (js_webkitClearMarks (self) (toJSString markName))   foreign import javascript unsafe         "$1[\"webkitMeasure\"]($2, $3, $4)" js_webkitMeasure ::-        JSRef Performance -> JSString -> JSString -> JSString -> IO ()+        Performance -> JSString -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitMeasure Mozilla Performance.webkitMeasure documentation>  webkitMeasure ::@@ -117,47 +114,44 @@                 Performance -> measureName -> startMark -> endMark -> m () webkitMeasure self measureName startMark endMark   = liftIO-      (js_webkitMeasure (unPerformance self) (toJSString measureName)+      (js_webkitMeasure (self) (toJSString measureName)          (toJSString startMark)          (toJSString endMark))   foreign import javascript unsafe "$1[\"webkitClearMeasures\"]($2)"-        js_webkitClearMeasures :: JSRef Performance -> JSString -> IO ()+        js_webkitClearMeasures :: Performance -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.webkitClearMeasures Mozilla Performance.webkitClearMeasures documentation>  webkitClearMeasures ::                     (MonadIO m, ToJSString measureName) =>                       Performance -> measureName -> m () webkitClearMeasures self measureName-  = liftIO-      (js_webkitClearMeasures (unPerformance self)-         (toJSString measureName))+  = liftIO (js_webkitClearMeasures (self) (toJSString measureName))   foreign import javascript unsafe "$1[\"now\"]()" js_now ::-        JSRef Performance -> IO Double+        Performance -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.now Mozilla Performance.now documentation>  now :: (MonadIO m) => Performance -> m Double-now self = liftIO (js_now (unPerformance self))+now self = liftIO (js_now (self))   foreign import javascript unsafe "$1[\"navigation\"]"         js_getNavigation ::-        JSRef Performance -> IO (JSRef PerformanceNavigation)+        Performance -> IO (Nullable PerformanceNavigation)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.navigation Mozilla Performance.navigation documentation>  getNavigation ::               (MonadIO m) => Performance -> m (Maybe PerformanceNavigation) getNavigation self-  = liftIO ((js_getNavigation (unPerformance self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getNavigation (self)))   foreign import javascript unsafe "$1[\"timing\"]" js_getTiming ::-        JSRef Performance -> IO (JSRef PerformanceTiming)+        Performance -> IO (Nullable PerformanceTiming)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.timing Mozilla Performance.timing documentation>  getTiming ::           (MonadIO m) => Performance -> m (Maybe PerformanceTiming)-getTiming self-  = liftIO ((js_getTiming (unPerformance self)) >>= fromJSRef)+getTiming self = liftIO (nullableToMaybe <$> (js_getTiming (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Performance.onwebkitresourcetimingbufferfull Mozilla Performance.onwebkitresourcetimingbufferfull documentation>  webKitResourceTimingBufferFull :: EventName Performance Event
src/GHCJS/DOM/JSFFI/Generated/PerformanceEntry.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,19 +21,17 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef PerformanceEntry -> IO JSString+        PerformanceEntry -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.name Mozilla PerformanceEntry.name documentation>  getName ::         (MonadIO m, IsPerformanceEntry self, FromJSString result) =>           self -> m result getName self-  = liftIO-      (fromJSString <$>-         (js_getName (unPerformanceEntry (toPerformanceEntry self))))+  = liftIO (fromJSString <$> (js_getName (toPerformanceEntry self)))   foreign import javascript unsafe "$1[\"entryType\"]"-        js_getEntryType :: JSRef PerformanceEntry -> IO JSString+        js_getEntryType :: PerformanceEntry -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.entryType Mozilla PerformanceEntry.entryType documentation>  getEntryType ::@@ -41,25 +39,22 @@                self -> m result getEntryType self   = liftIO-      (fromJSString <$>-         (js_getEntryType (unPerformanceEntry (toPerformanceEntry self))))+      (fromJSString <$> (js_getEntryType (toPerformanceEntry self)))   foreign import javascript unsafe "$1[\"startTime\"]"-        js_getStartTime :: JSRef PerformanceEntry -> IO Double+        js_getStartTime :: PerformanceEntry -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.startTime Mozilla PerformanceEntry.startTime documentation>  getStartTime ::              (MonadIO m, IsPerformanceEntry self) => self -> m Double getStartTime self-  = liftIO-      (js_getStartTime (unPerformanceEntry (toPerformanceEntry self)))+  = liftIO (js_getStartTime (toPerformanceEntry self))   foreign import javascript unsafe "$1[\"duration\"]" js_getDuration-        :: JSRef PerformanceEntry -> IO Double+        :: PerformanceEntry -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntry.duration Mozilla PerformanceEntry.duration documentation>  getDuration ::             (MonadIO m, IsPerformanceEntry self) => self -> m Double getDuration self-  = liftIO-      (js_getDuration (unPerformanceEntry (toPerformanceEntry self)))+  = liftIO (js_getDuration (toPerformanceEntry self))
src/GHCJS/DOM/JSFFI/Generated/PerformanceEntryList.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,20 +19,18 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef PerformanceEntryList -> Word -> IO (JSRef PerformanceEntry)+        PerformanceEntryList -> Word -> IO (Nullable PerformanceEntry)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList.item Mozilla PerformanceEntryList.item documentation>  item ::      (MonadIO m) =>        PerformanceEntryList -> Word -> m (Maybe PerformanceEntry) item self index-  = liftIO-      ((js_item (unPerformanceEntryList self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef PerformanceEntryList -> IO Word+        PerformanceEntryList -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceEntryList.length Mozilla PerformanceEntryList.length documentation>  getLength :: (MonadIO m) => PerformanceEntryList -> m Word-getLength self-  = liftIO (js_getLength (unPerformanceEntryList self))+getLength self = liftIO (js_getLength (self))
src/GHCJS/DOM/JSFFI/Generated/PerformanceNavigation.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -26,16 +26,15 @@ pattern TYPE_RESERVED = 255   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef PerformanceNavigation -> IO Word+        PerformanceNavigation -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceNavigation.type Mozilla PerformanceNavigation.type documentation>  getType :: (MonadIO m) => PerformanceNavigation -> m Word-getType self = liftIO (js_getType (unPerformanceNavigation self))+getType self = liftIO (js_getType (self))   foreign import javascript unsafe "$1[\"redirectCount\"]"-        js_getRedirectCount :: JSRef PerformanceNavigation -> IO Word+        js_getRedirectCount :: PerformanceNavigation -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceNavigation.redirectCount Mozilla PerformanceNavigation.redirectCount documentation>  getRedirectCount :: (MonadIO m) => PerformanceNavigation -> m Word-getRedirectCount self-  = liftIO (js_getRedirectCount (unPerformanceNavigation self))+getRedirectCount self = liftIO (js_getRedirectCount (self))
src/GHCJS/DOM/JSFFI/Generated/PerformanceResourceTiming.hs view
@@ -12,7 +12,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -26,109 +26,93 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"initiatorType\"]"-        js_getInitiatorType ::-        JSRef PerformanceResourceTiming -> IO JSString+        js_getInitiatorType :: PerformanceResourceTiming -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.initiatorType Mozilla PerformanceResourceTiming.initiatorType documentation>  getInitiatorType ::                  (MonadIO m, FromJSString result) =>                    PerformanceResourceTiming -> m result getInitiatorType self-  = liftIO-      (fromJSString <$>-         (js_getInitiatorType (unPerformanceResourceTiming self)))+  = liftIO (fromJSString <$> (js_getInitiatorType (self)))   foreign import javascript unsafe "$1[\"redirectStart\"]"-        js_getRedirectStart :: JSRef PerformanceResourceTiming -> IO Double+        js_getRedirectStart :: PerformanceResourceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.redirectStart Mozilla PerformanceResourceTiming.redirectStart documentation>  getRedirectStart ::                  (MonadIO m) => PerformanceResourceTiming -> m Double-getRedirectStart self-  = liftIO (js_getRedirectStart (unPerformanceResourceTiming self))+getRedirectStart self = liftIO (js_getRedirectStart (self))   foreign import javascript unsafe "$1[\"redirectEnd\"]"-        js_getRedirectEnd :: JSRef PerformanceResourceTiming -> IO Double+        js_getRedirectEnd :: PerformanceResourceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.redirectEnd Mozilla PerformanceResourceTiming.redirectEnd documentation>  getRedirectEnd ::                (MonadIO m) => PerformanceResourceTiming -> m Double-getRedirectEnd self-  = liftIO (js_getRedirectEnd (unPerformanceResourceTiming self))+getRedirectEnd self = liftIO (js_getRedirectEnd (self))   foreign import javascript unsafe "$1[\"fetchStart\"]"-        js_getFetchStart :: JSRef PerformanceResourceTiming -> IO Double+        js_getFetchStart :: PerformanceResourceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.fetchStart Mozilla PerformanceResourceTiming.fetchStart documentation>  getFetchStart ::               (MonadIO m) => PerformanceResourceTiming -> m Double-getFetchStart self-  = liftIO (js_getFetchStart (unPerformanceResourceTiming self))+getFetchStart self = liftIO (js_getFetchStart (self))   foreign import javascript unsafe "$1[\"domainLookupStart\"]"-        js_getDomainLookupStart ::-        JSRef PerformanceResourceTiming -> IO Double+        js_getDomainLookupStart :: PerformanceResourceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.domainLookupStart Mozilla PerformanceResourceTiming.domainLookupStart documentation>  getDomainLookupStart ::                      (MonadIO m) => PerformanceResourceTiming -> m Double-getDomainLookupStart self-  = liftIO-      (js_getDomainLookupStart (unPerformanceResourceTiming self))+getDomainLookupStart self = liftIO (js_getDomainLookupStart (self))   foreign import javascript unsafe "$1[\"domainLookupEnd\"]"-        js_getDomainLookupEnd ::-        JSRef PerformanceResourceTiming -> IO Double+        js_getDomainLookupEnd :: PerformanceResourceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.domainLookupEnd Mozilla PerformanceResourceTiming.domainLookupEnd documentation>  getDomainLookupEnd ::                    (MonadIO m) => PerformanceResourceTiming -> m Double-getDomainLookupEnd self-  = liftIO (js_getDomainLookupEnd (unPerformanceResourceTiming self))+getDomainLookupEnd self = liftIO (js_getDomainLookupEnd (self))   foreign import javascript unsafe "$1[\"connectStart\"]"-        js_getConnectStart :: JSRef PerformanceResourceTiming -> IO Double+        js_getConnectStart :: PerformanceResourceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.connectStart Mozilla PerformanceResourceTiming.connectStart documentation>  getConnectStart ::                 (MonadIO m) => PerformanceResourceTiming -> m Double-getConnectStart self-  = liftIO (js_getConnectStart (unPerformanceResourceTiming self))+getConnectStart self = liftIO (js_getConnectStart (self))   foreign import javascript unsafe "$1[\"connectEnd\"]"-        js_getConnectEnd :: JSRef PerformanceResourceTiming -> IO Double+        js_getConnectEnd :: PerformanceResourceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.connectEnd Mozilla PerformanceResourceTiming.connectEnd documentation>  getConnectEnd ::               (MonadIO m) => PerformanceResourceTiming -> m Double-getConnectEnd self-  = liftIO (js_getConnectEnd (unPerformanceResourceTiming self))+getConnectEnd self = liftIO (js_getConnectEnd (self))   foreign import javascript unsafe "$1[\"secureConnectionStart\"]"         js_getSecureConnectionStart ::-        JSRef PerformanceResourceTiming -> IO Double+        PerformanceResourceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.secureConnectionStart Mozilla PerformanceResourceTiming.secureConnectionStart documentation>  getSecureConnectionStart ::                          (MonadIO m) => PerformanceResourceTiming -> m Double getSecureConnectionStart self-  = liftIO-      (js_getSecureConnectionStart (unPerformanceResourceTiming self))+  = liftIO (js_getSecureConnectionStart (self))   foreign import javascript unsafe "$1[\"requestStart\"]"-        js_getRequestStart :: JSRef PerformanceResourceTiming -> IO Double+        js_getRequestStart :: PerformanceResourceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.requestStart Mozilla PerformanceResourceTiming.requestStart documentation>  getRequestStart ::                 (MonadIO m) => PerformanceResourceTiming -> m Double-getRequestStart self-  = liftIO (js_getRequestStart (unPerformanceResourceTiming self))+getRequestStart self = liftIO (js_getRequestStart (self))   foreign import javascript unsafe "$1[\"responseEnd\"]"-        js_getResponseEnd :: JSRef PerformanceResourceTiming -> IO Double+        js_getResponseEnd :: PerformanceResourceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceResourceTiming.responseEnd Mozilla PerformanceResourceTiming.responseEnd documentation>  getResponseEnd ::                (MonadIO m) => PerformanceResourceTiming -> m Double-getResponseEnd self-  = liftIO (js_getResponseEnd (unPerformanceResourceTiming self))+getResponseEnd self = liftIO (js_getResponseEnd (self))
src/GHCJS/DOM/JSFFI/Generated/PerformanceTiming.hs view
@@ -20,7 +20,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -34,194 +34,168 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"navigationStart\"]"-        js_getNavigationStart :: JSRef PerformanceTiming -> IO Double+        js_getNavigationStart :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.navigationStart Mozilla PerformanceTiming.navigationStart documentation>  getNavigationStart :: (MonadIO m) => PerformanceTiming -> m Word64 getNavigationStart self-  = liftIO-      (round <$> (js_getNavigationStart (unPerformanceTiming self)))+  = liftIO (round <$> (js_getNavigationStart (self)))   foreign import javascript unsafe "$1[\"unloadEventStart\"]"-        js_getUnloadEventStart :: JSRef PerformanceTiming -> IO Double+        js_getUnloadEventStart :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.unloadEventStart Mozilla PerformanceTiming.unloadEventStart documentation>  getUnloadEventStart :: (MonadIO m) => PerformanceTiming -> m Word64 getUnloadEventStart self-  = liftIO-      (round <$> (js_getUnloadEventStart (unPerformanceTiming self)))+  = liftIO (round <$> (js_getUnloadEventStart (self)))   foreign import javascript unsafe "$1[\"unloadEventEnd\"]"-        js_getUnloadEventEnd :: JSRef PerformanceTiming -> IO Double+        js_getUnloadEventEnd :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.unloadEventEnd Mozilla PerformanceTiming.unloadEventEnd documentation>  getUnloadEventEnd :: (MonadIO m) => PerformanceTiming -> m Word64 getUnloadEventEnd self-  = liftIO-      (round <$> (js_getUnloadEventEnd (unPerformanceTiming self)))+  = liftIO (round <$> (js_getUnloadEventEnd (self)))   foreign import javascript unsafe "$1[\"redirectStart\"]"-        js_getRedirectStart :: JSRef PerformanceTiming -> IO Double+        js_getRedirectStart :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.redirectStart Mozilla PerformanceTiming.redirectStart documentation>  getRedirectStart :: (MonadIO m) => PerformanceTiming -> m Word64 getRedirectStart self-  = liftIO-      (round <$> (js_getRedirectStart (unPerformanceTiming self)))+  = liftIO (round <$> (js_getRedirectStart (self)))   foreign import javascript unsafe "$1[\"redirectEnd\"]"-        js_getRedirectEnd :: JSRef PerformanceTiming -> IO Double+        js_getRedirectEnd :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.redirectEnd Mozilla PerformanceTiming.redirectEnd documentation>  getRedirectEnd :: (MonadIO m) => PerformanceTiming -> m Word64-getRedirectEnd self-  = liftIO (round <$> (js_getRedirectEnd (unPerformanceTiming self)))+getRedirectEnd self = liftIO (round <$> (js_getRedirectEnd (self)))   foreign import javascript unsafe "$1[\"fetchStart\"]"-        js_getFetchStart :: JSRef PerformanceTiming -> IO Double+        js_getFetchStart :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.fetchStart Mozilla PerformanceTiming.fetchStart documentation>  getFetchStart :: (MonadIO m) => PerformanceTiming -> m Word64-getFetchStart self-  = liftIO (round <$> (js_getFetchStart (unPerformanceTiming self)))+getFetchStart self = liftIO (round <$> (js_getFetchStart (self)))   foreign import javascript unsafe "$1[\"domainLookupStart\"]"-        js_getDomainLookupStart :: JSRef PerformanceTiming -> IO Double+        js_getDomainLookupStart :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domainLookupStart Mozilla PerformanceTiming.domainLookupStart documentation>  getDomainLookupStart ::                      (MonadIO m) => PerformanceTiming -> m Word64 getDomainLookupStart self-  = liftIO-      (round <$> (js_getDomainLookupStart (unPerformanceTiming self)))+  = liftIO (round <$> (js_getDomainLookupStart (self)))   foreign import javascript unsafe "$1[\"domainLookupEnd\"]"-        js_getDomainLookupEnd :: JSRef PerformanceTiming -> IO Double+        js_getDomainLookupEnd :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domainLookupEnd Mozilla PerformanceTiming.domainLookupEnd documentation>  getDomainLookupEnd :: (MonadIO m) => PerformanceTiming -> m Word64 getDomainLookupEnd self-  = liftIO-      (round <$> (js_getDomainLookupEnd (unPerformanceTiming self)))+  = liftIO (round <$> (js_getDomainLookupEnd (self)))   foreign import javascript unsafe "$1[\"connectStart\"]"-        js_getConnectStart :: JSRef PerformanceTiming -> IO Double+        js_getConnectStart :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.connectStart Mozilla PerformanceTiming.connectStart documentation>  getConnectStart :: (MonadIO m) => PerformanceTiming -> m Word64 getConnectStart self-  = liftIO-      (round <$> (js_getConnectStart (unPerformanceTiming self)))+  = liftIO (round <$> (js_getConnectStart (self)))   foreign import javascript unsafe "$1[\"connectEnd\"]"-        js_getConnectEnd :: JSRef PerformanceTiming -> IO Double+        js_getConnectEnd :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.connectEnd Mozilla PerformanceTiming.connectEnd documentation>  getConnectEnd :: (MonadIO m) => PerformanceTiming -> m Word64-getConnectEnd self-  = liftIO (round <$> (js_getConnectEnd (unPerformanceTiming self)))+getConnectEnd self = liftIO (round <$> (js_getConnectEnd (self)))   foreign import javascript unsafe "$1[\"secureConnectionStart\"]"-        js_getSecureConnectionStart :: JSRef PerformanceTiming -> IO Double+        js_getSecureConnectionStart :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.secureConnectionStart Mozilla PerformanceTiming.secureConnectionStart documentation>  getSecureConnectionStart ::                          (MonadIO m) => PerformanceTiming -> m Word64 getSecureConnectionStart self-  = liftIO-      (round <$>-         (js_getSecureConnectionStart (unPerformanceTiming self)))+  = liftIO (round <$> (js_getSecureConnectionStart (self)))   foreign import javascript unsafe "$1[\"requestStart\"]"-        js_getRequestStart :: JSRef PerformanceTiming -> IO Double+        js_getRequestStart :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.requestStart Mozilla PerformanceTiming.requestStart documentation>  getRequestStart :: (MonadIO m) => PerformanceTiming -> m Word64 getRequestStart self-  = liftIO-      (round <$> (js_getRequestStart (unPerformanceTiming self)))+  = liftIO (round <$> (js_getRequestStart (self)))   foreign import javascript unsafe "$1[\"responseStart\"]"-        js_getResponseStart :: JSRef PerformanceTiming -> IO Double+        js_getResponseStart :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.responseStart Mozilla PerformanceTiming.responseStart documentation>  getResponseStart :: (MonadIO m) => PerformanceTiming -> m Word64 getResponseStart self-  = liftIO-      (round <$> (js_getResponseStart (unPerformanceTiming self)))+  = liftIO (round <$> (js_getResponseStart (self)))   foreign import javascript unsafe "$1[\"responseEnd\"]"-        js_getResponseEnd :: JSRef PerformanceTiming -> IO Double+        js_getResponseEnd :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.responseEnd Mozilla PerformanceTiming.responseEnd documentation>  getResponseEnd :: (MonadIO m) => PerformanceTiming -> m Word64-getResponseEnd self-  = liftIO (round <$> (js_getResponseEnd (unPerformanceTiming self)))+getResponseEnd self = liftIO (round <$> (js_getResponseEnd (self)))   foreign import javascript unsafe "$1[\"domLoading\"]"-        js_getDomLoading :: JSRef PerformanceTiming -> IO Double+        js_getDomLoading :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domLoading Mozilla PerformanceTiming.domLoading documentation>  getDomLoading :: (MonadIO m) => PerformanceTiming -> m Word64-getDomLoading self-  = liftIO (round <$> (js_getDomLoading (unPerformanceTiming self)))+getDomLoading self = liftIO (round <$> (js_getDomLoading (self)))   foreign import javascript unsafe "$1[\"domInteractive\"]"-        js_getDomInteractive :: JSRef PerformanceTiming -> IO Double+        js_getDomInteractive :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domInteractive Mozilla PerformanceTiming.domInteractive documentation>  getDomInteractive :: (MonadIO m) => PerformanceTiming -> m Word64 getDomInteractive self-  = liftIO-      (round <$> (js_getDomInteractive (unPerformanceTiming self)))+  = liftIO (round <$> (js_getDomInteractive (self)))   foreign import javascript unsafe         "$1[\"domContentLoadedEventStart\"]"-        js_getDomContentLoadedEventStart ::-        JSRef PerformanceTiming -> IO Double+        js_getDomContentLoadedEventStart :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domContentLoadedEventStart Mozilla PerformanceTiming.domContentLoadedEventStart documentation>  getDomContentLoadedEventStart ::                               (MonadIO m) => PerformanceTiming -> m Word64 getDomContentLoadedEventStart self-  = liftIO-      (round <$>-         (js_getDomContentLoadedEventStart (unPerformanceTiming self)))+  = liftIO (round <$> (js_getDomContentLoadedEventStart (self)))   foreign import javascript unsafe "$1[\"domContentLoadedEventEnd\"]"-        js_getDomContentLoadedEventEnd ::-        JSRef PerformanceTiming -> IO Double+        js_getDomContentLoadedEventEnd :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domContentLoadedEventEnd Mozilla PerformanceTiming.domContentLoadedEventEnd documentation>  getDomContentLoadedEventEnd ::                             (MonadIO m) => PerformanceTiming -> m Word64 getDomContentLoadedEventEnd self-  = liftIO-      (round <$>-         (js_getDomContentLoadedEventEnd (unPerformanceTiming self)))+  = liftIO (round <$> (js_getDomContentLoadedEventEnd (self)))   foreign import javascript unsafe "$1[\"domComplete\"]"-        js_getDomComplete :: JSRef PerformanceTiming -> IO Double+        js_getDomComplete :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.domComplete Mozilla PerformanceTiming.domComplete documentation>  getDomComplete :: (MonadIO m) => PerformanceTiming -> m Word64-getDomComplete self-  = liftIO (round <$> (js_getDomComplete (unPerformanceTiming self)))+getDomComplete self = liftIO (round <$> (js_getDomComplete (self)))   foreign import javascript unsafe "$1[\"loadEventStart\"]"-        js_getLoadEventStart :: JSRef PerformanceTiming -> IO Double+        js_getLoadEventStart :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.loadEventStart Mozilla PerformanceTiming.loadEventStart documentation>  getLoadEventStart :: (MonadIO m) => PerformanceTiming -> m Word64 getLoadEventStart self-  = liftIO-      (round <$> (js_getLoadEventStart (unPerformanceTiming self)))+  = liftIO (round <$> (js_getLoadEventStart (self)))   foreign import javascript unsafe "$1[\"loadEventEnd\"]"-        js_getLoadEventEnd :: JSRef PerformanceTiming -> IO Double+        js_getLoadEventEnd :: PerformanceTiming -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PerformanceTiming.loadEventEnd Mozilla PerformanceTiming.loadEventEnd documentation>  getLoadEventEnd :: (MonadIO m) => PerformanceTiming -> m Word64 getLoadEventEnd self-  = liftIO-      (round <$> (js_getLoadEventEnd (unPerformanceTiming self)))+  = liftIO (round <$> (js_getLoadEventEnd (self)))
src/GHCJS/DOM/JSFFI/Generated/Plugin.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,15 +20,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef Plugin -> Word -> IO (JSRef MimeType)+        Plugin -> Word -> IO (Nullable MimeType)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.item Mozilla Plugin.item documentation>  item :: (MonadIO m) => Plugin -> Word -> m (Maybe MimeType) item self index-  = liftIO ((js_item (unPlugin self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        js_namedItem :: JSRef Plugin -> JSString -> IO (JSRef MimeType)+        js_namedItem :: Plugin -> JSString -> IO (Nullable MimeType)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.namedItem Mozilla Plugin.namedItem documentation>  namedItem ::@@ -36,37 +36,36 @@             Plugin -> name -> m (Maybe MimeType) namedItem self name   = liftIO-      ((js_namedItem (unPlugin self) (toJSString name)) >>= fromJSRef)+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"name\"]" js_getName ::-        JSRef Plugin -> IO JSString+        Plugin -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.name Mozilla Plugin.name documentation>  getName :: (MonadIO m, FromJSString result) => Plugin -> m result-getName self-  = liftIO (fromJSString <$> (js_getName (unPlugin self)))+getName self = liftIO (fromJSString <$> (js_getName (self)))   foreign import javascript unsafe "$1[\"filename\"]" js_getFilename-        :: JSRef Plugin -> IO JSString+        :: Plugin -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.filename Mozilla Plugin.filename documentation>  getFilename ::             (MonadIO m, FromJSString result) => Plugin -> m result getFilename self-  = liftIO (fromJSString <$> (js_getFilename (unPlugin self)))+  = liftIO (fromJSString <$> (js_getFilename (self)))   foreign import javascript unsafe "$1[\"description\"]"-        js_getDescription :: JSRef Plugin -> IO JSString+        js_getDescription :: Plugin -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.description Mozilla Plugin.description documentation>  getDescription ::                (MonadIO m, FromJSString result) => Plugin -> m result getDescription self-  = liftIO (fromJSString <$> (js_getDescription (unPlugin self)))+  = liftIO (fromJSString <$> (js_getDescription (self)))   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef Plugin -> IO Word+        Plugin -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Plugin.length Mozilla Plugin.length documentation>  getLength :: (MonadIO m) => Plugin -> m Word-getLength self = liftIO (js_getLength (unPlugin self))+getLength self = liftIO (js_getLength (self))
src/GHCJS/DOM/JSFFI/Generated/PluginArray.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,15 +20,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef PluginArray -> Word -> IO (JSRef Plugin)+        PluginArray -> Word -> IO (Nullable Plugin)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.item Mozilla PluginArray.item documentation>  item :: (MonadIO m) => PluginArray -> Word -> m (Maybe Plugin) item self index-  = liftIO ((js_item (unPluginArray self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_item (self) index))   foreign import javascript unsafe "$1[\"namedItem\"]($2)"-        js_namedItem :: JSRef PluginArray -> JSString -> IO (JSRef Plugin)+        js_namedItem :: PluginArray -> JSString -> IO (Nullable Plugin)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.namedItem Mozilla PluginArray.namedItem documentation>  namedItem ::@@ -36,20 +36,18 @@             PluginArray -> name -> m (Maybe Plugin) namedItem self name   = liftIO-      ((js_namedItem (unPluginArray self) (toJSString name)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))   foreign import javascript unsafe "$1[\"refresh\"]($2)" js_refresh-        :: JSRef PluginArray -> Bool -> IO ()+        :: PluginArray -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.refresh Mozilla PluginArray.refresh documentation>  refresh :: (MonadIO m) => PluginArray -> Bool -> m ()-refresh self reload-  = liftIO (js_refresh (unPluginArray self) reload)+refresh self reload = liftIO (js_refresh (self) reload)   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef PluginArray -> IO Word+        PluginArray -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PluginArray.length Mozilla PluginArray.length documentation>  getLength :: (MonadIO m) => PluginArray -> m Word-getLength self = liftIO (js_getLength (unPluginArray self))+getLength self = liftIO (js_getLength (self))
src/GHCJS/DOM/JSFFI/Generated/PopStateEvent.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,8 +19,8 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"state\"]" js_getState ::-        JSRef PopStateEvent -> IO (JSRef a)+        PopStateEvent -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PopStateEvent.state Mozilla PopStateEvent.state documentation> -getState :: (MonadIO m) => PopStateEvent -> m (JSRef a)-getState self = liftIO (js_getState (unPopStateEvent self))+getState :: (MonadIO m) => PopStateEvent -> m JSRef+getState self = liftIO (js_getState (self))
src/GHCJS/DOM/JSFFI/Generated/PositionCallback.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,24 +23,27 @@                     (MonadIO m) => (Maybe Geoposition -> IO ()) -> m PositionCallback newPositionCallback callback   = liftIO-      (syncCallback1 ThrowWouldBlock-         (\ position ->-            fromJSRefUnchecked position >>= \ position' -> callback position'))+      (PositionCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ position ->+              fromJSRefUnchecked position >>= \ position' -> callback position'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionCallback Mozilla PositionCallback documentation>  newPositionCallbackSync ::                         (MonadIO m) => (Maybe Geoposition -> IO ()) -> m PositionCallback newPositionCallbackSync callback   = liftIO-      (syncCallback1 ContinueAsync-         (\ position ->-            fromJSRefUnchecked position >>= \ position' -> callback position'))+      (PositionCallback <$>+         syncCallback1 ContinueAsync+           (\ position ->+              fromJSRefUnchecked position >>= \ position' -> callback position'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionCallback Mozilla PositionCallback documentation>  newPositionCallbackAsync ::                          (MonadIO m) => (Maybe Geoposition -> IO ()) -> m PositionCallback newPositionCallbackAsync callback   = liftIO-      (asyncCallback1-         (\ position ->-            fromJSRefUnchecked position >>= \ position' -> callback position'))+      (PositionCallback <$>+         asyncCallback1+           (\ position ->+              fromJSRefUnchecked position >>= \ position' -> callback position'))
src/GHCJS/DOM/JSFFI/Generated/PositionError.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,17 +23,16 @@ pattern TIMEOUT = 3   foreign import javascript unsafe "$1[\"code\"]" js_getCode ::-        JSRef PositionError -> IO Word+        PositionError -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionError.code Mozilla PositionError.code documentation>  getCode :: (MonadIO m) => PositionError -> m Word-getCode self = liftIO (js_getCode (unPositionError self))+getCode self = liftIO (js_getCode (self))   foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::-        JSRef PositionError -> IO JSString+        PositionError -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionError.message Mozilla PositionError.message documentation>  getMessage ::            (MonadIO m, FromJSString result) => PositionError -> m result-getMessage self-  = liftIO (fromJSString <$> (js_getMessage (unPositionError self)))+getMessage self = liftIO (fromJSString <$> (js_getMessage (self)))
src/GHCJS/DOM/JSFFI/Generated/PositionErrorCallback.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,9 +24,10 @@                            (Maybe PositionError -> IO ()) -> m PositionErrorCallback newPositionErrorCallback callback   = liftIO-      (syncCallback1 ThrowWouldBlock-         (\ error ->-            fromJSRefUnchecked error >>= \ error' -> callback error'))+      (PositionErrorCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ error ->+              fromJSRefUnchecked error >>= \ error' -> callback error'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionErrorCallback Mozilla PositionErrorCallback documentation>  newPositionErrorCallbackSync ::@@ -34,9 +35,10 @@                                (Maybe PositionError -> IO ()) -> m PositionErrorCallback newPositionErrorCallbackSync callback   = liftIO-      (syncCallback1 ContinueAsync-         (\ error ->-            fromJSRefUnchecked error >>= \ error' -> callback error'))+      (PositionErrorCallback <$>+         syncCallback1 ContinueAsync+           (\ error ->+              fromJSRefUnchecked error >>= \ error' -> callback error'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/PositionErrorCallback Mozilla PositionErrorCallback documentation>  newPositionErrorCallbackAsync ::@@ -44,6 +46,7 @@                                 (Maybe PositionError -> IO ()) -> m PositionErrorCallback newPositionErrorCallbackAsync callback   = liftIO-      (asyncCallback1-         (\ error ->-            fromJSRefUnchecked error >>= \ error' -> callback error'))+      (PositionErrorCallback <$>+         asyncCallback1+           (\ error ->+              fromJSRefUnchecked error >>= \ error' -> callback error'))
src/GHCJS/DOM/JSFFI/Generated/ProcessingInstruction.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,23 +20,19 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::-        JSRef ProcessingInstruction -> IO (JSRef (Maybe JSString))+        ProcessingInstruction -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.target Mozilla ProcessingInstruction.target documentation>  getTarget ::           (MonadIO m, FromJSString result) =>             ProcessingInstruction -> m (Maybe result) getTarget self-  = liftIO-      (fromMaybeJSString <$>-         (js_getTarget (unProcessingInstruction self)))+  = liftIO (fromMaybeJSString <$> (js_getTarget (self)))   foreign import javascript unsafe "$1[\"sheet\"]" js_getSheet ::-        JSRef ProcessingInstruction -> IO (JSRef StyleSheet)+        ProcessingInstruction -> IO (Nullable StyleSheet)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ProcessingInstruction.sheet Mozilla ProcessingInstruction.sheet documentation>  getSheet ::          (MonadIO m) => ProcessingInstruction -> m (Maybe StyleSheet)-getSheet self-  = liftIO-      ((js_getSheet (unProcessingInstruction self)) >>= fromJSRef)+getSheet self = liftIO (nullableToMaybe <$> (js_getSheet (self)))
src/GHCJS/DOM/JSFFI/Generated/ProgressEvent.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,29 +22,26 @@   foreign import javascript unsafe         "($1[\"lengthComputable\"] ? 1 : 0)" js_getLengthComputable ::-        JSRef ProgressEvent -> IO Bool+        ProgressEvent -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ProgressEvent.lengthComputable Mozilla ProgressEvent.lengthComputable documentation>  getLengthComputable ::                     (MonadIO m, IsProgressEvent self) => self -> m Bool getLengthComputable self-  = liftIO-      (js_getLengthComputable (unProgressEvent (toProgressEvent self)))+  = liftIO (js_getLengthComputable (toProgressEvent self))   foreign import javascript unsafe "$1[\"loaded\"]" js_getLoaded ::-        JSRef ProgressEvent -> IO Double+        ProgressEvent -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ProgressEvent.loaded Mozilla ProgressEvent.loaded documentation>  getLoaded :: (MonadIO m, IsProgressEvent self) => self -> m Word64 getLoaded self-  = liftIO-      (round <$> (js_getLoaded (unProgressEvent (toProgressEvent self))))+  = liftIO (round <$> (js_getLoaded (toProgressEvent self)))   foreign import javascript unsafe "$1[\"total\"]" js_getTotal ::-        JSRef ProgressEvent -> IO Double+        ProgressEvent -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ProgressEvent.total Mozilla ProgressEvent.total documentation>  getTotal :: (MonadIO m, IsProgressEvent self) => self -> m Word64 getTotal self-  = liftIO-      (round <$> (js_getTotal (unProgressEvent (toProgressEvent self))))+  = liftIO (round <$> (js_getTotal (toProgressEvent self)))
src/GHCJS/DOM/JSFFI/Generated/QuickTimePluginReplacement.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,52 +22,42 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"postEvent\"]($2)"-        js_postEvent ::-        JSRef QuickTimePluginReplacement -> JSString -> IO ()+        js_postEvent :: QuickTimePluginReplacement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.postEvent Mozilla QuickTimePluginReplacement.postEvent documentation>  postEvent ::           (MonadIO m, ToJSString eventName) =>             QuickTimePluginReplacement -> eventName -> m () postEvent self eventName-  = liftIO-      (js_postEvent (unQuickTimePluginReplacement self)-         (toJSString eventName))+  = liftIO (js_postEvent (self) (toJSString eventName))   foreign import javascript unsafe "$1[\"movieSize\"]"-        js_getMovieSize :: JSRef QuickTimePluginReplacement -> IO Double+        js_getMovieSize :: QuickTimePluginReplacement -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.movieSize Mozilla QuickTimePluginReplacement.movieSize documentation>  getMovieSize ::              (MonadIO m) => QuickTimePluginReplacement -> m Word64-getMovieSize self-  = liftIO-      (round <$> (js_getMovieSize (unQuickTimePluginReplacement self)))+getMovieSize self = liftIO (round <$> (js_getMovieSize (self)))   foreign import javascript unsafe "$1[\"timedMetaData\"]"-        js_getTimedMetaData ::-        JSRef QuickTimePluginReplacement -> IO (JSRef a)+        js_getTimedMetaData :: QuickTimePluginReplacement -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.timedMetaData Mozilla QuickTimePluginReplacement.timedMetaData documentation>  getTimedMetaData ::-                 (MonadIO m) => QuickTimePluginReplacement -> m (JSRef a)-getTimedMetaData self-  = liftIO (js_getTimedMetaData (unQuickTimePluginReplacement self))+                 (MonadIO m) => QuickTimePluginReplacement -> m JSRef+getTimedMetaData self = liftIO (js_getTimedMetaData (self))   foreign import javascript unsafe "$1[\"accessLog\"]"-        js_getAccessLog :: JSRef QuickTimePluginReplacement -> IO (JSRef a)+        js_getAccessLog :: QuickTimePluginReplacement -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.accessLog Mozilla QuickTimePluginReplacement.accessLog documentation>  getAccessLog ::-             (MonadIO m) => QuickTimePluginReplacement -> m (JSRef a)-getAccessLog self-  = liftIO (js_getAccessLog (unQuickTimePluginReplacement self))+             (MonadIO m) => QuickTimePluginReplacement -> m JSRef+getAccessLog self = liftIO (js_getAccessLog (self))   foreign import javascript unsafe "$1[\"errorLog\"]" js_getErrorLog-        :: JSRef QuickTimePluginReplacement -> IO (JSRef a)+        :: QuickTimePluginReplacement -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/QuickTimePluginReplacement.errorLog Mozilla QuickTimePluginReplacement.errorLog documentation> -getErrorLog ::-            (MonadIO m) => QuickTimePluginReplacement -> m (JSRef a)-getErrorLog self-  = liftIO (js_getErrorLog (unQuickTimePluginReplacement self))+getErrorLog :: (MonadIO m) => QuickTimePluginReplacement -> m JSRef+getErrorLog self = liftIO (js_getErrorLog (self))
src/GHCJS/DOM/JSFFI/Generated/RGBColor.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,24 +19,22 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"red\"]" js_getRed ::-        JSRef RGBColor -> IO (JSRef CSSPrimitiveValue)+        RGBColor -> IO (Nullable CSSPrimitiveValue)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.red Mozilla RGBColor.red documentation>  getRed :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue)-getRed self = liftIO ((js_getRed (unRGBColor self)) >>= fromJSRef)+getRed self = liftIO (nullableToMaybe <$> (js_getRed (self)))   foreign import javascript unsafe "$1[\"green\"]" js_getGreen ::-        JSRef RGBColor -> IO (JSRef CSSPrimitiveValue)+        RGBColor -> IO (Nullable CSSPrimitiveValue)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.green Mozilla RGBColor.green documentation>  getGreen :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue)-getGreen self-  = liftIO ((js_getGreen (unRGBColor self)) >>= fromJSRef)+getGreen self = liftIO (nullableToMaybe <$> (js_getGreen (self)))   foreign import javascript unsafe "$1[\"blue\"]" js_getBlue ::-        JSRef RGBColor -> IO (JSRef CSSPrimitiveValue)+        RGBColor -> IO (Nullable CSSPrimitiveValue)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RGBColor.blue Mozilla RGBColor.blue documentation>  getBlue :: (MonadIO m) => RGBColor -> m (Maybe CSSPrimitiveValue)-getBlue self-  = liftIO ((js_getBlue (unRGBColor self)) >>= fromJSRef)+getBlue self = liftIO (nullableToMaybe <$> (js_getBlue (self)))
src/GHCJS/DOM/JSFFI/Generated/RTCConfiguration.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,37 +20,28 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"iceServers\"]"-        js_getIceServers ::-        JSRef RTCConfiguration -> IO (JSRef [Maybe RTCIceServer])+        js_getIceServers :: RTCConfiguration -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCConfiguration.iceServers Mozilla RTCConfiguration.iceServers documentation>  getIceServers ::               (MonadIO m) => RTCConfiguration -> m [Maybe RTCIceServer] getIceServers self-  = liftIO-      ((js_getIceServers (unRTCConfiguration self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getIceServers (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"iceTransports\"]"-        js_getIceTransports ::-        JSRef RTCConfiguration -> IO (JSRef RTCIceTransportsEnum)+        js_getIceTransports :: RTCConfiguration -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCConfiguration.iceTransports Mozilla RTCConfiguration.iceTransports documentation>  getIceTransports ::                  (MonadIO m) => RTCConfiguration -> m RTCIceTransportsEnum getIceTransports self-  = liftIO-      ((js_getIceTransports (unRTCConfiguration self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getIceTransports (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"requestIdentity\"]"-        js_getRequestIdentity ::-        JSRef RTCConfiguration -> IO (JSRef RTCIdentityOptionEnum)+        js_getRequestIdentity :: RTCConfiguration -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCConfiguration.requestIdentity Mozilla RTCConfiguration.requestIdentity documentation>  getRequestIdentity ::                    (MonadIO m) => RTCConfiguration -> m RTCIdentityOptionEnum getRequestIdentity self-  = liftIO-      ((js_getRequestIdentity (unRTCConfiguration self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getRequestIdentity (self)) >>= fromJSRefUnchecked)
src/GHCJS/DOM/JSFFI/Generated/RTCDTMFSender.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,8 +21,7 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"insertDTMF\"]($2, $3, $4)"-        js_insertDTMF ::-        JSRef RTCDTMFSender -> JSString -> Int -> Int -> IO ()+        js_insertDTMF :: RTCDTMFSender -> JSString -> Int -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.insertDTMF Mozilla RTCDTMFSender.insertDTMF documentation>  insertDTMF ::@@ -30,50 +29,45 @@              RTCDTMFSender -> tones -> Int -> Int -> m () insertDTMF self tones duration interToneGap   = liftIO-      (js_insertDTMF (unRTCDTMFSender self) (toJSString tones) duration-         interToneGap)+      (js_insertDTMF (self) (toJSString tones) duration interToneGap)   foreign import javascript unsafe "($1[\"canInsertDTMF\"] ? 1 : 0)"-        js_getCanInsertDTMF :: JSRef RTCDTMFSender -> IO Bool+        js_getCanInsertDTMF :: RTCDTMFSender -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.canInsertDTMF Mozilla RTCDTMFSender.canInsertDTMF documentation>  getCanInsertDTMF :: (MonadIO m) => RTCDTMFSender -> m Bool-getCanInsertDTMF self-  = liftIO (js_getCanInsertDTMF (unRTCDTMFSender self))+getCanInsertDTMF self = liftIO (js_getCanInsertDTMF (self))   foreign import javascript unsafe "$1[\"track\"]" js_getTrack ::-        JSRef RTCDTMFSender -> IO (JSRef MediaStreamTrack)+        RTCDTMFSender -> IO (Nullable MediaStreamTrack)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.track Mozilla RTCDTMFSender.track documentation>  getTrack ::          (MonadIO m) => RTCDTMFSender -> m (Maybe MediaStreamTrack)-getTrack self-  = liftIO ((js_getTrack (unRTCDTMFSender self)) >>= fromJSRef)+getTrack self = liftIO (nullableToMaybe <$> (js_getTrack (self)))   foreign import javascript unsafe "$1[\"toneBuffer\"]"-        js_getToneBuffer :: JSRef RTCDTMFSender -> IO JSString+        js_getToneBuffer :: RTCDTMFSender -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.toneBuffer Mozilla RTCDTMFSender.toneBuffer documentation>  getToneBuffer ::               (MonadIO m, FromJSString result) => RTCDTMFSender -> m result getToneBuffer self-  = liftIO-      (fromJSString <$> (js_getToneBuffer (unRTCDTMFSender self)))+  = liftIO (fromJSString <$> (js_getToneBuffer (self)))   foreign import javascript unsafe "$1[\"duration\"]" js_getDuration-        :: JSRef RTCDTMFSender -> IO Int+        :: RTCDTMFSender -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.duration Mozilla RTCDTMFSender.duration documentation>  getDuration :: (MonadIO m) => RTCDTMFSender -> m Int-getDuration self = liftIO (js_getDuration (unRTCDTMFSender self))+getDuration self = liftIO (js_getDuration (self))   foreign import javascript unsafe "$1[\"interToneGap\"]"-        js_getInterToneGap :: JSRef RTCDTMFSender -> IO Int+        js_getInterToneGap :: RTCDTMFSender -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.interToneGap Mozilla RTCDTMFSender.interToneGap documentation>  getInterToneGap :: (MonadIO m) => RTCDTMFSender -> m Int-getInterToneGap self-  = liftIO (js_getInterToneGap (unRTCDTMFSender self))+getInterToneGap self = liftIO (js_getInterToneGap (self))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFSender.ontonechange Mozilla RTCDTMFSender.ontonechange documentation>  toneChange :: EventName RTCDTMFSender Event
src/GHCJS/DOM/JSFFI/Generated/RTCDTMFToneChangeEvent.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,12 +19,10 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"tone\"]" js_getTone ::-        JSRef RTCDTMFToneChangeEvent -> IO JSString+        RTCDTMFToneChangeEvent -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDTMFToneChangeEvent.tone Mozilla RTCDTMFToneChangeEvent.tone documentation>  getTone ::         (MonadIO m, FromJSString result) =>           RTCDTMFToneChangeEvent -> m result-getTone self-  = liftIO-      (fromJSString <$> (js_getTone (unRTCDTMFToneChangeEvent self)))+getTone self = liftIO (fromJSString <$> (js_getTone (self)))
src/GHCJS/DOM/JSFFI/Generated/RTCDataChannel.hs view
@@ -13,7 +13,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,7 +27,7 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"send\"]($2)" js_send ::-        JSRef RTCDataChannel -> JSRef ArrayBuffer -> IO ()+        RTCDataChannel -> Nullable ArrayBuffer -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.send Mozilla RTCDataChannel.send documentation>  send ::@@ -35,11 +35,10 @@        RTCDataChannel -> Maybe data' -> m () send self data'   = liftIO-      (js_send (unRTCDataChannel self)-         (maybe jsNull (unArrayBuffer . toArrayBuffer) data'))+      (js_send (self) (maybeToNullable (fmap toArrayBuffer data')))   foreign import javascript unsafe "$1[\"send\"]($2)" js_sendView ::-        JSRef RTCDataChannel -> JSRef ArrayBufferView -> IO ()+        RTCDataChannel -> Nullable ArrayBufferView -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.send Mozilla RTCDataChannel.send documentation>  sendView ::@@ -47,130 +46,119 @@            RTCDataChannel -> Maybe data' -> m () sendView self data'   = liftIO-      (js_sendView (unRTCDataChannel self)-         (maybe jsNull (unArrayBufferView . toArrayBufferView) data'))+      (js_sendView (self)+         (maybeToNullable (fmap toArrayBufferView data')))   foreign import javascript unsafe "$1[\"send\"]($2)" js_sendBlob ::-        JSRef RTCDataChannel -> JSRef Blob -> IO ()+        RTCDataChannel -> Nullable Blob -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.send Mozilla RTCDataChannel.send documentation>  sendBlob ::          (MonadIO m, IsBlob data') => RTCDataChannel -> Maybe data' -> m () sendBlob self data'-  = liftIO-      (js_sendBlob (unRTCDataChannel self)-         (maybe jsNull (unBlob . toBlob) data'))+  = liftIO (js_sendBlob (self) (maybeToNullable (fmap toBlob data')))   foreign import javascript unsafe "$1[\"send\"]($2)" js_sendString-        :: JSRef RTCDataChannel -> JSString -> IO ()+        :: RTCDataChannel -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.send Mozilla RTCDataChannel.send documentation>  sendString ::            (MonadIO m, ToJSString data') => RTCDataChannel -> data' -> m () sendString self data'-  = liftIO (js_sendString (unRTCDataChannel self) (toJSString data'))+  = liftIO (js_sendString (self) (toJSString data'))   foreign import javascript unsafe "$1[\"close\"]()" js_close ::-        JSRef RTCDataChannel -> IO ()+        RTCDataChannel -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.close Mozilla RTCDataChannel.close documentation>  close :: (MonadIO m) => RTCDataChannel -> m ()-close self = liftIO (js_close (unRTCDataChannel self))+close self = liftIO (js_close (self))   foreign import javascript unsafe "$1[\"label\"]" js_getLabel ::-        JSRef RTCDataChannel -> IO JSString+        RTCDataChannel -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.label Mozilla RTCDataChannel.label documentation>  getLabel ::          (MonadIO m, FromJSString result) => RTCDataChannel -> m result-getLabel self-  = liftIO (fromJSString <$> (js_getLabel (unRTCDataChannel self)))+getLabel self = liftIO (fromJSString <$> (js_getLabel (self)))   foreign import javascript unsafe "($1[\"ordered\"] ? 1 : 0)"-        js_getOrdered :: JSRef RTCDataChannel -> IO Bool+        js_getOrdered :: RTCDataChannel -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.ordered Mozilla RTCDataChannel.ordered documentation>  getOrdered :: (MonadIO m) => RTCDataChannel -> m Bool-getOrdered self = liftIO (js_getOrdered (unRTCDataChannel self))+getOrdered self = liftIO (js_getOrdered (self))   foreign import javascript unsafe "$1[\"maxRetransmitTime\"]"-        js_getMaxRetransmitTime :: JSRef RTCDataChannel -> IO Word+        js_getMaxRetransmitTime :: RTCDataChannel -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.maxRetransmitTime Mozilla RTCDataChannel.maxRetransmitTime documentation>  getMaxRetransmitTime :: (MonadIO m) => RTCDataChannel -> m Word-getMaxRetransmitTime self-  = liftIO (js_getMaxRetransmitTime (unRTCDataChannel self))+getMaxRetransmitTime self = liftIO (js_getMaxRetransmitTime (self))   foreign import javascript unsafe "$1[\"maxRetransmits\"]"-        js_getMaxRetransmits :: JSRef RTCDataChannel -> IO Word+        js_getMaxRetransmits :: RTCDataChannel -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.maxRetransmits Mozilla RTCDataChannel.maxRetransmits documentation>  getMaxRetransmits :: (MonadIO m) => RTCDataChannel -> m Word-getMaxRetransmits self-  = liftIO (js_getMaxRetransmits (unRTCDataChannel self))+getMaxRetransmits self = liftIO (js_getMaxRetransmits (self))   foreign import javascript unsafe "$1[\"protocol\"]" js_getProtocol-        :: JSRef RTCDataChannel -> IO JSString+        :: RTCDataChannel -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.protocol Mozilla RTCDataChannel.protocol documentation>  getProtocol ::             (MonadIO m, FromJSString result) => RTCDataChannel -> m result getProtocol self-  = liftIO-      (fromJSString <$> (js_getProtocol (unRTCDataChannel self)))+  = liftIO (fromJSString <$> (js_getProtocol (self)))   foreign import javascript unsafe "($1[\"negotiated\"] ? 1 : 0)"-        js_getNegotiated :: JSRef RTCDataChannel -> IO Bool+        js_getNegotiated :: RTCDataChannel -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.negotiated Mozilla RTCDataChannel.negotiated documentation>  getNegotiated :: (MonadIO m) => RTCDataChannel -> m Bool-getNegotiated self-  = liftIO (js_getNegotiated (unRTCDataChannel self))+getNegotiated self = liftIO (js_getNegotiated (self))   foreign import javascript unsafe "$1[\"id\"]" js_getId ::-        JSRef RTCDataChannel -> IO Word+        RTCDataChannel -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.id Mozilla RTCDataChannel.id documentation>  getId :: (MonadIO m) => RTCDataChannel -> m Word-getId self = liftIO (js_getId (unRTCDataChannel self))+getId self = liftIO (js_getId (self))   foreign import javascript unsafe "$1[\"readyState\"]"-        js_getReadyState :: JSRef RTCDataChannel -> IO JSString+        js_getReadyState :: RTCDataChannel -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.readyState Mozilla RTCDataChannel.readyState documentation>  getReadyState ::               (MonadIO m, FromJSString result) => RTCDataChannel -> m result getReadyState self-  = liftIO-      (fromJSString <$> (js_getReadyState (unRTCDataChannel self)))+  = liftIO (fromJSString <$> (js_getReadyState (self)))   foreign import javascript unsafe "$1[\"bufferedAmount\"]"-        js_getBufferedAmount :: JSRef RTCDataChannel -> IO Word+        js_getBufferedAmount :: RTCDataChannel -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.bufferedAmount Mozilla RTCDataChannel.bufferedAmount documentation>  getBufferedAmount :: (MonadIO m) => RTCDataChannel -> m Word-getBufferedAmount self-  = liftIO (js_getBufferedAmount (unRTCDataChannel self))+getBufferedAmount self = liftIO (js_getBufferedAmount (self))   foreign import javascript unsafe "$1[\"binaryType\"] = $2;"-        js_setBinaryType :: JSRef RTCDataChannel -> JSString -> IO ()+        js_setBinaryType :: RTCDataChannel -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.binaryType Mozilla RTCDataChannel.binaryType documentation>  setBinaryType ::               (MonadIO m, ToJSString val) => RTCDataChannel -> val -> m () setBinaryType self val-  = liftIO-      (js_setBinaryType (unRTCDataChannel self) (toJSString val))+  = liftIO (js_setBinaryType (self) (toJSString val))   foreign import javascript unsafe "$1[\"binaryType\"]"-        js_getBinaryType :: JSRef RTCDataChannel -> IO JSString+        js_getBinaryType :: RTCDataChannel -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.binaryType Mozilla RTCDataChannel.binaryType documentation>  getBinaryType ::               (MonadIO m, FromJSString result) => RTCDataChannel -> m result getBinaryType self-  = liftIO-      (fromJSString <$> (js_getBinaryType (unRTCDataChannel self)))+  = liftIO (fromJSString <$> (js_getBinaryType (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannel.onopen Mozilla RTCDataChannel.onopen documentation>  open :: EventName RTCDataChannel Event
src/GHCJS/DOM/JSFFI/Generated/RTCDataChannelEvent.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,11 +19,10 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"channel\"]" js_getChannel ::-        JSRef RTCDataChannelEvent -> IO (JSRef RTCDataChannel)+        RTCDataChannelEvent -> IO (Nullable RTCDataChannel)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCDataChannelEvent.channel Mozilla RTCDataChannelEvent.channel documentation>  getChannel ::            (MonadIO m) => RTCDataChannelEvent -> m (Maybe RTCDataChannel) getChannel self-  = liftIO-      ((js_getChannel (unRTCDataChannelEvent self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getChannel (self)))
src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidate.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,7 +22,7 @@   foreign import javascript unsafe         "new window[\"RTCIceCandidate\"]($1)" js_newRTCIceCandidate ::-        JSRef Dictionary -> IO (JSRef RTCIceCandidate)+        Nullable Dictionary -> IO RTCIceCandidate  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate Mozilla RTCIceCandidate documentation>  newRTCIceCandidate ::@@ -31,32 +31,28 @@ newRTCIceCandidate dictionary   = liftIO       (js_newRTCIceCandidate-         (maybe jsNull (unDictionary . toDictionary) dictionary)-         >>= fromJSRefUnchecked)+         (maybeToNullable (fmap toDictionary dictionary)))   foreign import javascript unsafe "$1[\"candidate\"]"-        js_getCandidate :: JSRef RTCIceCandidate -> IO JSString+        js_getCandidate :: RTCIceCandidate -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate.candidate Mozilla RTCIceCandidate.candidate documentation>  getCandidate ::              (MonadIO m, FromJSString result) => RTCIceCandidate -> m result getCandidate self-  = liftIO-      (fromJSString <$> (js_getCandidate (unRTCIceCandidate self)))+  = liftIO (fromJSString <$> (js_getCandidate (self)))   foreign import javascript unsafe "$1[\"sdpMid\"]" js_getSdpMid ::-        JSRef RTCIceCandidate -> IO JSString+        RTCIceCandidate -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate.sdpMid Mozilla RTCIceCandidate.sdpMid documentation>  getSdpMid ::           (MonadIO m, FromJSString result) => RTCIceCandidate -> m result-getSdpMid self-  = liftIO (fromJSString <$> (js_getSdpMid (unRTCIceCandidate self)))+getSdpMid self = liftIO (fromJSString <$> (js_getSdpMid (self)))   foreign import javascript unsafe "$1[\"sdpMLineIndex\"]"-        js_getSdpMLineIndex :: JSRef RTCIceCandidate -> IO Word+        js_getSdpMLineIndex :: RTCIceCandidate -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidate.sdpMLineIndex Mozilla RTCIceCandidate.sdpMLineIndex documentation>  getSdpMLineIndex :: (MonadIO m) => RTCIceCandidate -> m Word-getSdpMLineIndex self-  = liftIO (js_getSdpMLineIndex (unRTCIceCandidate self))+getSdpMLineIndex self = liftIO (js_getSdpMLineIndex (self))
src/GHCJS/DOM/JSFFI/Generated/RTCIceCandidateEvent.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,11 +20,10 @@   foreign import javascript unsafe "$1[\"candidate\"]"         js_getCandidate ::-        JSRef RTCIceCandidateEvent -> IO (JSRef RTCIceCandidate)+        RTCIceCandidateEvent -> IO (Nullable RTCIceCandidate)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceCandidateEvent.candidate Mozilla RTCIceCandidateEvent.candidate documentation>  getCandidate ::              (MonadIO m) => RTCIceCandidateEvent -> m (Maybe RTCIceCandidate) getCandidate self-  = liftIO-      ((js_getCandidate (unRTCIceCandidateEvent self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getCandidate (self)))
src/GHCJS/DOM/JSFFI/Generated/RTCIceServer.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,30 +20,27 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"urls\"]" js_getUrls ::-        JSRef RTCIceServer -> IO (JSRef [result])+        RTCIceServer -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceServer.urls Mozilla RTCIceServer.urls documentation>  getUrls ::         (MonadIO m, FromJSString result) => RTCIceServer -> m [result]-getUrls self-  = liftIO-      ((js_getUrls (unRTCIceServer self)) >>= fromJSRefUnchecked)+getUrls self = liftIO ((js_getUrls (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"username\"]" js_getUsername-        :: JSRef RTCIceServer -> IO JSString+        :: RTCIceServer -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceServer.username Mozilla RTCIceServer.username documentation>  getUsername ::             (MonadIO m, FromJSString result) => RTCIceServer -> m result getUsername self-  = liftIO (fromJSString <$> (js_getUsername (unRTCIceServer self)))+  = liftIO (fromJSString <$> (js_getUsername (self)))   foreign import javascript unsafe "$1[\"credential\"]"-        js_getCredential :: JSRef RTCIceServer -> IO JSString+        js_getCredential :: RTCIceServer -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCIceServer.credential Mozilla RTCIceServer.credential documentation>  getCredential ::               (MonadIO m, FromJSString result) => RTCIceServer -> m result getCredential self-  = liftIO-      (fromJSString <$> (js_getCredential (unRTCIceServer self)))+  = liftIO (fromJSString <$> (js_getCredential (self)))
src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnection.hs view
@@ -20,7 +20,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -36,7 +36,7 @@ foreign import javascript unsafe         "new window[\"webkitRTCPeerConnection\"]($1)"         js_newRTCPeerConnection ::-        JSRef Dictionary -> IO (JSRef RTCPeerConnection)+        Nullable Dictionary -> IO RTCPeerConnection  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection Mozilla webkitRTCPeerConnection documentation>  newRTCPeerConnection ::@@ -45,14 +45,14 @@ newRTCPeerConnection rtcConfiguration   = liftIO       (js_newRTCPeerConnection-         (maybe jsNull (unDictionary . toDictionary) rtcConfiguration)-         >>= fromJSRefUnchecked)+         (maybeToNullable (fmap toDictionary rtcConfiguration)))   foreign import javascript unsafe "$1[\"createOffer\"]($2, $3, $4)"         js_createOffer ::-        JSRef RTCPeerConnection ->-          JSRef RTCSessionDescriptionCallback ->-            JSRef RTCPeerConnectionErrorCallback -> JSRef Dictionary -> IO ()+        RTCPeerConnection ->+          Nullable RTCSessionDescriptionCallback ->+            Nullable RTCPeerConnectionErrorCallback ->+              Nullable Dictionary -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createOffer Mozilla webkitRTCPeerConnection.createOffer documentation>  createOffer ::@@ -62,16 +62,16 @@                   Maybe RTCPeerConnectionErrorCallback -> Maybe offerOptions -> m () createOffer self successCallback failureCallback offerOptions   = liftIO-      (js_createOffer (unRTCPeerConnection self)-         (maybe jsNull pToJSRef successCallback)-         (maybe jsNull pToJSRef failureCallback)-         (maybe jsNull (unDictionary . toDictionary) offerOptions))+      (js_createOffer (self) (maybeToNullable successCallback)+         (maybeToNullable failureCallback)+         (maybeToNullable (fmap toDictionary offerOptions)))   foreign import javascript unsafe "$1[\"createAnswer\"]($2, $3, $4)"         js_createAnswer ::-        JSRef RTCPeerConnection ->-          JSRef RTCSessionDescriptionCallback ->-            JSRef RTCPeerConnectionErrorCallback -> JSRef Dictionary -> IO ()+        RTCPeerConnection ->+          Nullable RTCSessionDescriptionCallback ->+            Nullable RTCPeerConnectionErrorCallback ->+              Nullable Dictionary -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createAnswer Mozilla webkitRTCPeerConnection.createAnswer documentation>  createAnswer ::@@ -81,17 +81,17 @@                    Maybe RTCPeerConnectionErrorCallback -> Maybe answerOptions -> m () createAnswer self successCallback failureCallback answerOptions   = liftIO-      (js_createAnswer (unRTCPeerConnection self)-         (maybe jsNull pToJSRef successCallback)-         (maybe jsNull pToJSRef failureCallback)-         (maybe jsNull (unDictionary . toDictionary) answerOptions))+      (js_createAnswer (self) (maybeToNullable successCallback)+         (maybeToNullable failureCallback)+         (maybeToNullable (fmap toDictionary answerOptions)))   foreign import javascript unsafe         "$1[\"setLocalDescription\"]($2,\n$3, $4)" js_setLocalDescription         ::-        JSRef RTCPeerConnection ->-          JSRef RTCSessionDescription ->-            JSRef VoidCallback -> JSRef RTCPeerConnectionErrorCallback -> IO ()+        RTCPeerConnection ->+          Nullable RTCSessionDescription ->+            Nullable VoidCallback ->+              Nullable RTCPeerConnectionErrorCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.setLocalDescription Mozilla webkitRTCPeerConnection.setLocalDescription documentation>  setLocalDescription ::@@ -102,17 +102,17 @@ setLocalDescription self description successCallback   failureCallback   = liftIO-      (js_setLocalDescription (unRTCPeerConnection self)-         (maybe jsNull pToJSRef description)-         (maybe jsNull pToJSRef successCallback)-         (maybe jsNull pToJSRef failureCallback))+      (js_setLocalDescription (self) (maybeToNullable description)+         (maybeToNullable successCallback)+         (maybeToNullable failureCallback))   foreign import javascript unsafe         "$1[\"setRemoteDescription\"]($2,\n$3, $4)" js_setRemoteDescription         ::-        JSRef RTCPeerConnection ->-          JSRef RTCSessionDescription ->-            JSRef VoidCallback -> JSRef RTCPeerConnectionErrorCallback -> IO ()+        RTCPeerConnection ->+          Nullable RTCSessionDescription ->+            Nullable VoidCallback ->+              Nullable RTCPeerConnectionErrorCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.setRemoteDescription Mozilla webkitRTCPeerConnection.setRemoteDescription documentation>  setRemoteDescription ::@@ -123,14 +123,12 @@ setRemoteDescription self description successCallback   failureCallback   = liftIO-      (js_setRemoteDescription (unRTCPeerConnection self)-         (maybe jsNull pToJSRef description)-         (maybe jsNull pToJSRef successCallback)-         (maybe jsNull pToJSRef failureCallback))+      (js_setRemoteDescription (self) (maybeToNullable description)+         (maybeToNullable successCallback)+         (maybeToNullable failureCallback))   foreign import javascript unsafe "$1[\"updateIce\"]($2)"-        js_updateIce ::-        JSRef RTCPeerConnection -> JSRef Dictionary -> IO ()+        js_updateIce :: RTCPeerConnection -> Nullable Dictionary -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.updateIce Mozilla webkitRTCPeerConnection.updateIce documentation>  updateIce ::@@ -138,14 +136,15 @@             RTCPeerConnection -> Maybe configuration -> m () updateIce self configuration   = liftIO-      (js_updateIce (unRTCPeerConnection self)-         (maybe jsNull (unDictionary . toDictionary) configuration))+      (js_updateIce (self)+         (maybeToNullable (fmap toDictionary configuration)))   foreign import javascript unsafe         "$1[\"addIceCandidate\"]($2, $3,\n$4)" js_addIceCandidate ::-        JSRef RTCPeerConnection ->-          JSRef RTCIceCandidate ->-            JSRef VoidCallback -> JSRef RTCPeerConnectionErrorCallback -> IO ()+        RTCPeerConnection ->+          Nullable RTCIceCandidate ->+            Nullable VoidCallback ->+              Nullable RTCPeerConnectionErrorCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.addIceCandidate Mozilla webkitRTCPeerConnection.addIceCandidate documentation>  addIceCandidate ::@@ -155,38 +154,31 @@                       Maybe VoidCallback -> Maybe RTCPeerConnectionErrorCallback -> m () addIceCandidate self candidate successCallback failureCallback   = liftIO-      (js_addIceCandidate (unRTCPeerConnection self)-         (maybe jsNull pToJSRef candidate)-         (maybe jsNull pToJSRef successCallback)-         (maybe jsNull pToJSRef failureCallback))+      (js_addIceCandidate (self) (maybeToNullable candidate)+         (maybeToNullable successCallback)+         (maybeToNullable failureCallback))   foreign import javascript unsafe "$1[\"getLocalStreams\"]()"-        js_getLocalStreams ::-        JSRef RTCPeerConnection -> IO (JSRef [Maybe MediaStream])+        js_getLocalStreams :: RTCPeerConnection -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getLocalStreams Mozilla webkitRTCPeerConnection.getLocalStreams documentation>  getLocalStreams ::                 (MonadIO m) => RTCPeerConnection -> m [Maybe MediaStream] getLocalStreams self-  = liftIO-      ((js_getLocalStreams (unRTCPeerConnection self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getLocalStreams (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"getRemoteStreams\"]()"-        js_getRemoteStreams ::-        JSRef RTCPeerConnection -> IO (JSRef [Maybe MediaStream])+        js_getRemoteStreams :: RTCPeerConnection -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getRemoteStreams Mozilla webkitRTCPeerConnection.getRemoteStreams documentation>  getRemoteStreams ::                  (MonadIO m) => RTCPeerConnection -> m [Maybe MediaStream] getRemoteStreams self-  = liftIO-      ((js_getRemoteStreams (unRTCPeerConnection self)) >>=-         fromJSRefUnchecked)+  = liftIO ((js_getRemoteStreams (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"getStreamById\"]($2)"         js_getStreamById ::-        JSRef RTCPeerConnection -> JSString -> IO (JSRef MediaStream)+        RTCPeerConnection -> JSString -> IO (Nullable MediaStream)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getStreamById Mozilla webkitRTCPeerConnection.getStreamById documentation>  getStreamById ::@@ -194,51 +186,44 @@                 RTCPeerConnection -> streamId -> m (Maybe MediaStream) getStreamById self streamId   = liftIO-      ((js_getStreamById (unRTCPeerConnection self)-          (toJSString streamId))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getStreamById (self) (toJSString streamId)))   foreign import javascript unsafe "$1[\"getConfiguration\"]()"         js_getConfiguration ::-        JSRef RTCPeerConnection -> IO (JSRef RTCConfiguration)+        RTCPeerConnection -> IO (Nullable RTCConfiguration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getConfiguration Mozilla webkitRTCPeerConnection.getConfiguration documentation>  getConfiguration ::                  (MonadIO m) => RTCPeerConnection -> m (Maybe RTCConfiguration) getConfiguration self-  = liftIO-      ((js_getConfiguration (unRTCPeerConnection self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getConfiguration (self)))   foreign import javascript unsafe "$1[\"addStream\"]($2)"-        js_addStream ::-        JSRef RTCPeerConnection -> JSRef MediaStream -> IO ()+        js_addStream :: RTCPeerConnection -> Nullable MediaStream -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.addStream Mozilla webkitRTCPeerConnection.addStream documentation>  addStream ::           (MonadIO m) => RTCPeerConnection -> Maybe MediaStream -> m () addStream self stream-  = liftIO-      (js_addStream (unRTCPeerConnection self)-         (maybe jsNull pToJSRef stream))+  = liftIO (js_addStream (self) (maybeToNullable stream))   foreign import javascript unsafe "$1[\"removeStream\"]($2)"         js_removeStream ::-        JSRef RTCPeerConnection -> JSRef MediaStream -> IO ()+        RTCPeerConnection -> Nullable MediaStream -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.removeStream Mozilla webkitRTCPeerConnection.removeStream documentation>  removeStream ::              (MonadIO m) => RTCPeerConnection -> Maybe MediaStream -> m () removeStream self stream-  = liftIO-      (js_removeStream (unRTCPeerConnection self)-         (maybe jsNull pToJSRef stream))+  = liftIO (js_removeStream (self) (maybeToNullable stream))   foreign import javascript unsafe "$1[\"getStats\"]($2, $3, $4)"         js_getStats ::-        JSRef RTCPeerConnection ->-          JSRef RTCStatsCallback ->-            JSRef RTCPeerConnectionErrorCallback ->-              JSRef MediaStreamTrack -> IO ()+        RTCPeerConnection ->+          Nullable RTCStatsCallback ->+            Nullable RTCPeerConnectionErrorCallback ->+              Nullable MediaStreamTrack -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.getStats Mozilla webkitRTCPeerConnection.getStats documentation>  getStats ::@@ -248,16 +233,15 @@                Maybe RTCPeerConnectionErrorCallback -> Maybe selector -> m () getStats self successCallback failureCallback selector   = liftIO-      (js_getStats (unRTCPeerConnection self)-         (maybe jsNull pToJSRef successCallback)-         (maybe jsNull pToJSRef failureCallback)-         (maybe jsNull (unMediaStreamTrack . toMediaStreamTrack) selector))+      (js_getStats (self) (maybeToNullable successCallback)+         (maybeToNullable failureCallback)+         (maybeToNullable (fmap toMediaStreamTrack selector)))   foreign import javascript unsafe         "$1[\"createDataChannel\"]($2, $3)" js_createDataChannel ::-        JSRef RTCPeerConnection ->-          JSRef (Maybe JSString) ->-            JSRef Dictionary -> IO (JSRef RTCDataChannel)+        RTCPeerConnection ->+          Nullable JSString ->+            Nullable Dictionary -> IO (Nullable RTCDataChannel)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDataChannel Mozilla webkitRTCPeerConnection.createDataChannel documentation>  createDataChannel ::@@ -266,15 +250,14 @@                       Maybe label -> Maybe options -> m (Maybe RTCDataChannel) createDataChannel self label options   = liftIO-      ((js_createDataChannel (unRTCPeerConnection self)-          (toMaybeJSString label)-          (maybe jsNull (unDictionary . toDictionary) options))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createDataChannel (self) (toMaybeJSString label)+            (maybeToNullable (fmap toDictionary options))))   foreign import javascript unsafe "$1[\"createDTMFSender\"]($2)"         js_createDTMFSender ::-        JSRef RTCPeerConnection ->-          JSRef MediaStreamTrack -> IO (JSRef RTCDTMFSender)+        RTCPeerConnection ->+          Nullable MediaStreamTrack -> IO (Nullable RTCDTMFSender)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.createDTMFSender Mozilla webkitRTCPeerConnection.createDTMFSender documentation>  createDTMFSender ::@@ -282,72 +265,63 @@                    RTCPeerConnection -> Maybe track -> m (Maybe RTCDTMFSender) createDTMFSender self track   = liftIO-      ((js_createDTMFSender (unRTCPeerConnection self)-          (maybe jsNull (unMediaStreamTrack . toMediaStreamTrack) track))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createDTMFSender (self)+            (maybeToNullable (fmap toMediaStreamTrack track))))   foreign import javascript unsafe "$1[\"close\"]()" js_close ::-        JSRef RTCPeerConnection -> IO ()+        RTCPeerConnection -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.close Mozilla webkitRTCPeerConnection.close documentation>  close :: (MonadIO m) => RTCPeerConnection -> m ()-close self = liftIO (js_close (unRTCPeerConnection self))+close self = liftIO (js_close (self))   foreign import javascript unsafe "$1[\"localDescription\"]"         js_getLocalDescription ::-        JSRef RTCPeerConnection -> IO (JSRef RTCSessionDescription)+        RTCPeerConnection -> IO (Nullable RTCSessionDescription)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.localDescription Mozilla webkitRTCPeerConnection.localDescription documentation>  getLocalDescription ::                     (MonadIO m) => RTCPeerConnection -> m (Maybe RTCSessionDescription) getLocalDescription self-  = liftIO-      ((js_getLocalDescription (unRTCPeerConnection self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getLocalDescription (self)))   foreign import javascript unsafe "$1[\"remoteDescription\"]"         js_getRemoteDescription ::-        JSRef RTCPeerConnection -> IO (JSRef RTCSessionDescription)+        RTCPeerConnection -> IO (Nullable RTCSessionDescription)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.remoteDescription Mozilla webkitRTCPeerConnection.remoteDescription documentation>  getRemoteDescription ::                      (MonadIO m) => RTCPeerConnection -> m (Maybe RTCSessionDescription) getRemoteDescription self-  = liftIO-      ((js_getRemoteDescription (unRTCPeerConnection self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getRemoteDescription (self)))   foreign import javascript unsafe "$1[\"signalingState\"]"-        js_getSignalingState :: JSRef RTCPeerConnection -> IO JSString+        js_getSignalingState :: RTCPeerConnection -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.signalingState Mozilla webkitRTCPeerConnection.signalingState documentation>  getSignalingState ::                   (MonadIO m, FromJSString result) => RTCPeerConnection -> m result getSignalingState self-  = liftIO-      (fromJSString <$>-         (js_getSignalingState (unRTCPeerConnection self)))+  = liftIO (fromJSString <$> (js_getSignalingState (self)))   foreign import javascript unsafe "$1[\"iceGatheringState\"]"-        js_getIceGatheringState :: JSRef RTCPeerConnection -> IO JSString+        js_getIceGatheringState :: RTCPeerConnection -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.iceGatheringState Mozilla webkitRTCPeerConnection.iceGatheringState documentation>  getIceGatheringState ::                      (MonadIO m, FromJSString result) => RTCPeerConnection -> m result getIceGatheringState self-  = liftIO-      (fromJSString <$>-         (js_getIceGatheringState (unRTCPeerConnection self)))+  = liftIO (fromJSString <$> (js_getIceGatheringState (self)))   foreign import javascript unsafe "$1[\"iceConnectionState\"]"-        js_getIceConnectionState :: JSRef RTCPeerConnection -> IO JSString+        js_getIceConnectionState :: RTCPeerConnection -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.iceConnectionState Mozilla webkitRTCPeerConnection.iceConnectionState documentation>  getIceConnectionState ::                       (MonadIO m, FromJSString result) => RTCPeerConnection -> m result getIceConnectionState self-  = liftIO-      (fromJSString <$>-         (js_getIceConnectionState (unRTCPeerConnection self)))+  = liftIO (fromJSString <$> (js_getIceConnectionState (self)))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/webkitRTCPeerConnection.onnegotiationneeded Mozilla webkitRTCPeerConnection.onnegotiationneeded documentation>  negotiationNeeded :: EventName RTCPeerConnection Event
src/GHCJS/DOM/JSFFI/Generated/RTCPeerConnectionErrorCallback.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -26,9 +26,10 @@                                     (Maybe DOMError -> IO ()) -> m RTCPeerConnectionErrorCallback newRTCPeerConnectionErrorCallback callback   = liftIO-      (syncCallback1 ThrowWouldBlock-         (\ error ->-            fromJSRefUnchecked error >>= \ error' -> callback error'))+      (RTCPeerConnectionErrorCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ error ->+              fromJSRefUnchecked error >>= \ error' -> callback error'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnectionErrorCallback Mozilla RTCPeerConnectionErrorCallback documentation>  newRTCPeerConnectionErrorCallbackSync ::@@ -37,9 +38,10 @@                                           m RTCPeerConnectionErrorCallback newRTCPeerConnectionErrorCallbackSync callback   = liftIO-      (syncCallback1 ContinueAsync-         (\ error ->-            fromJSRefUnchecked error >>= \ error' -> callback error'))+      (RTCPeerConnectionErrorCallback <$>+         syncCallback1 ContinueAsync+           (\ error ->+              fromJSRefUnchecked error >>= \ error' -> callback error'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCPeerConnectionErrorCallback Mozilla RTCPeerConnectionErrorCallback documentation>  newRTCPeerConnectionErrorCallbackAsync ::@@ -48,6 +50,7 @@                                            m RTCPeerConnectionErrorCallback newRTCPeerConnectionErrorCallbackAsync callback   = liftIO-      (asyncCallback1-         (\ error ->-            fromJSRefUnchecked error >>= \ error' -> callback error'))+      (RTCPeerConnectionErrorCallback <$>+         asyncCallback1+           (\ error ->+              fromJSRefUnchecked error >>= \ error' -> callback error'))
src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescription.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,7 +23,7 @@ foreign import javascript unsafe         "new window[\"RTCSessionDescription\"]($1)"         js_newRTCSessionDescription ::-        JSRef Dictionary -> IO (JSRef RTCSessionDescription)+        Nullable Dictionary -> IO RTCSessionDescription  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription Mozilla RTCSessionDescription documentation>  newRTCSessionDescription ::@@ -32,47 +32,38 @@ newRTCSessionDescription dictionary   = liftIO       (js_newRTCSessionDescription-         (maybe jsNull (unDictionary . toDictionary) dictionary)-         >>= fromJSRefUnchecked)+         (maybeToNullable (fmap toDictionary dictionary)))   foreign import javascript unsafe "$1[\"type\"] = $2;" js_setType ::-        JSRef RTCSessionDescription -> JSString -> IO ()+        RTCSessionDescription -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription.type Mozilla RTCSessionDescription.type documentation>  setType ::         (MonadIO m, ToJSString val) => RTCSessionDescription -> val -> m ()-setType self val-  = liftIO-      (js_setType (unRTCSessionDescription self) (toJSString val))+setType self val = liftIO (js_setType (self) (toJSString val))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef RTCSessionDescription -> IO JSString+        RTCSessionDescription -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription.type Mozilla RTCSessionDescription.type documentation>  getType ::         (MonadIO m, FromJSString result) =>           RTCSessionDescription -> m result-getType self-  = liftIO-      (fromJSString <$> (js_getType (unRTCSessionDescription self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"sdp\"] = $2;" js_setSdp ::-        JSRef RTCSessionDescription -> JSString -> IO ()+        RTCSessionDescription -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription.sdp Mozilla RTCSessionDescription.sdp documentation>  setSdp ::        (MonadIO m, ToJSString val) => RTCSessionDescription -> val -> m ()-setSdp self val-  = liftIO-      (js_setSdp (unRTCSessionDescription self) (toJSString val))+setSdp self val = liftIO (js_setSdp (self) (toJSString val))   foreign import javascript unsafe "$1[\"sdp\"]" js_getSdp ::-        JSRef RTCSessionDescription -> IO JSString+        RTCSessionDescription -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescription.sdp Mozilla RTCSessionDescription.sdp documentation>  getSdp ::        (MonadIO m, FromJSString result) =>          RTCSessionDescription -> m result-getSdp self-  = liftIO-      (fromJSString <$> (js_getSdp (unRTCSessionDescription self)))+getSdp self = liftIO (fromJSString <$> (js_getSdp (self)))
src/GHCJS/DOM/JSFFI/Generated/RTCSessionDescriptionCallback.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,8 +27,9 @@                                      m RTCSessionDescriptionCallback newRTCSessionDescriptionCallback callback   = liftIO-      (syncCallback1 ThrowWouldBlock-         (\ sdp -> fromJSRefUnchecked sdp >>= \ sdp' -> callback sdp'))+      (RTCSessionDescriptionCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ sdp -> fromJSRefUnchecked sdp >>= \ sdp' -> callback sdp'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescriptionCallback Mozilla RTCSessionDescriptionCallback documentation>  newRTCSessionDescriptionCallbackSync ::@@ -37,8 +38,9 @@                                          m RTCSessionDescriptionCallback newRTCSessionDescriptionCallbackSync callback   = liftIO-      (syncCallback1 ContinueAsync-         (\ sdp -> fromJSRefUnchecked sdp >>= \ sdp' -> callback sdp'))+      (RTCSessionDescriptionCallback <$>+         syncCallback1 ContinueAsync+           (\ sdp -> fromJSRefUnchecked sdp >>= \ sdp' -> callback sdp'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCSessionDescriptionCallback Mozilla RTCSessionDescriptionCallback documentation>  newRTCSessionDescriptionCallbackAsync ::@@ -47,5 +49,6 @@                                           m RTCSessionDescriptionCallback newRTCSessionDescriptionCallbackAsync callback   = liftIO-      (asyncCallback1-         (\ sdp -> fromJSRefUnchecked sdp >>= \ sdp' -> callback sdp'))+      (RTCSessionDescriptionCallback <$>+         asyncCallback1+           (\ sdp -> fromJSRefUnchecked sdp >>= \ sdp' -> callback sdp'))
src/GHCJS/DOM/JSFFI/Generated/RTCStatsCallback.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,9 +24,10 @@                       (Maybe RTCStatsResponse -> IO ()) -> m RTCStatsCallback newRTCStatsCallback callback   = liftIO-      (syncCallback1 ThrowWouldBlock-         (\ response ->-            fromJSRefUnchecked response >>= \ response' -> callback response'))+      (RTCStatsCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ response ->+              fromJSRefUnchecked response >>= \ response' -> callback response'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsCallback Mozilla RTCStatsCallback documentation>  newRTCStatsCallbackSync ::@@ -34,9 +35,10 @@                           (Maybe RTCStatsResponse -> IO ()) -> m RTCStatsCallback newRTCStatsCallbackSync callback   = liftIO-      (syncCallback1 ContinueAsync-         (\ response ->-            fromJSRefUnchecked response >>= \ response' -> callback response'))+      (RTCStatsCallback <$>+         syncCallback1 ContinueAsync+           (\ response ->+              fromJSRefUnchecked response >>= \ response' -> callback response'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsCallback Mozilla RTCStatsCallback documentation>  newRTCStatsCallbackAsync ::@@ -44,6 +46,7 @@                            (Maybe RTCStatsResponse -> IO ()) -> m RTCStatsCallback newRTCStatsCallbackAsync callback   = liftIO-      (asyncCallback1-         (\ response ->-            fromJSRefUnchecked response >>= \ response' -> callback response'))+      (RTCStatsCallback <$>+         asyncCallback1+           (\ response ->+              fromJSRefUnchecked response >>= \ response' -> callback response'))
src/GHCJS/DOM/JSFFI/Generated/RTCStatsReport.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,67 +21,59 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"stat\"]($2)" js_stat ::-        JSRef RTCStatsReport -> JSString -> IO JSString+        RTCStatsReport -> JSString -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.stat Mozilla RTCStatsReport.stat documentation>  stat ::      (MonadIO m, ToJSString name, FromJSString result) =>        RTCStatsReport -> name -> m result stat self name-  = liftIO-      (fromJSString <$>-         (js_stat (unRTCStatsReport self) (toJSString name)))+  = liftIO (fromJSString <$> (js_stat (self) (toJSString name)))   foreign import javascript unsafe "$1[\"names\"]()" js_names ::-        JSRef RTCStatsReport -> IO (JSRef [result])+        RTCStatsReport -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.names Mozilla RTCStatsReport.names documentation>  names ::       (MonadIO m, FromJSString result) => RTCStatsReport -> m [result]-names self-  = liftIO-      ((js_names (unRTCStatsReport self)) >>= fromJSRefUnchecked)+names self = liftIO ((js_names (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"timestamp\"]"-        js_getTimestamp :: JSRef RTCStatsReport -> IO (JSRef Date)+        js_getTimestamp :: RTCStatsReport -> IO (Nullable Date)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.timestamp Mozilla RTCStatsReport.timestamp documentation>  getTimestamp :: (MonadIO m) => RTCStatsReport -> m (Maybe Date) getTimestamp self-  = liftIO ((js_getTimestamp (unRTCStatsReport self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getTimestamp (self)))   foreign import javascript unsafe "$1[\"id\"]" js_getId ::-        JSRef RTCStatsReport -> IO JSString+        RTCStatsReport -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.id Mozilla RTCStatsReport.id documentation>  getId ::       (MonadIO m, FromJSString result) => RTCStatsReport -> m result-getId self-  = liftIO (fromJSString <$> (js_getId (unRTCStatsReport self)))+getId self = liftIO (fromJSString <$> (js_getId (self)))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef RTCStatsReport -> IO JSString+        RTCStatsReport -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.type Mozilla RTCStatsReport.type documentation>  getType ::         (MonadIO m, FromJSString result) => RTCStatsReport -> m result-getType self-  = liftIO (fromJSString <$> (js_getType (unRTCStatsReport self)))+getType self = liftIO (fromJSString <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"local\"]" js_getLocal ::-        JSRef RTCStatsReport -> IO (JSRef RTCStatsReport)+        RTCStatsReport -> IO (Nullable RTCStatsReport)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.local Mozilla RTCStatsReport.local documentation>  getLocal ::          (MonadIO m) => RTCStatsReport -> m (Maybe RTCStatsReport)-getLocal self-  = liftIO ((js_getLocal (unRTCStatsReport self)) >>= fromJSRef)+getLocal self = liftIO (nullableToMaybe <$> (js_getLocal (self)))   foreign import javascript unsafe "$1[\"remote\"]" js_getRemote ::-        JSRef RTCStatsReport -> IO (JSRef RTCStatsReport)+        RTCStatsReport -> IO (Nullable RTCStatsReport)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsReport.remote Mozilla RTCStatsReport.remote documentation>  getRemote ::           (MonadIO m) => RTCStatsReport -> m (Maybe RTCStatsReport)-getRemote self-  = liftIO ((js_getRemote (unRTCStatsReport self)) >>= fromJSRef)+getRemote self = liftIO (nullableToMaybe <$> (js_getRemote (self)))
src/GHCJS/DOM/JSFFI/Generated/RTCStatsResponse.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,18 +19,16 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"result\"]()" js_result ::-        JSRef RTCStatsResponse -> IO (JSRef [Maybe RTCStatsReport])+        RTCStatsResponse -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.result Mozilla RTCStatsResponse.result documentation>  result ::        (MonadIO m) => RTCStatsResponse -> m [Maybe RTCStatsReport]-result self-  = liftIO-      ((js_result (unRTCStatsResponse self)) >>= fromJSRefUnchecked)+result self = liftIO ((js_result (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"namedItem\"]($2)"         js_namedItem ::-        JSRef RTCStatsResponse -> JSString -> IO (JSRef RTCStatsReport)+        RTCStatsResponse -> JSString -> IO (Nullable RTCStatsReport)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RTCStatsResponse.namedItem Mozilla RTCStatsResponse.namedItem documentation>  namedItem ::@@ -38,5 +36,4 @@             RTCStatsResponse -> name -> m (Maybe RTCStatsReport) namedItem self name   = liftIO-      ((js_namedItem (unRTCStatsResponse self) (toJSString name)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_namedItem (self) (toJSString name)))
src/GHCJS/DOM/JSFFI/Generated/RadioNodeList.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,27 +19,25 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"_get\"]($2)" js__get ::-        JSRef RadioNodeList -> Word -> IO (JSRef Node)+        RadioNodeList -> Word -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList._get Mozilla RadioNodeList._get documentation>  _get :: (MonadIO m) => RadioNodeList -> Word -> m (Maybe Node) _get self index-  = liftIO ((js__get (unRadioNodeList self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js__get (self) index))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef RadioNodeList -> JSString -> IO ()+        :: RadioNodeList -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList.value Mozilla RadioNodeList.value documentation>  setValue ::          (MonadIO m, ToJSString val) => RadioNodeList -> val -> m ()-setValue self val-  = liftIO (js_setValue (unRadioNodeList self) (toJSString val))+setValue self val = liftIO (js_setValue (self) (toJSString val))   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef RadioNodeList -> IO JSString+        RadioNodeList -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RadioNodeList.value Mozilla RadioNodeList.value documentation>  getValue ::          (MonadIO m, FromJSString result) => RadioNodeList -> m result-getValue self-  = liftIO (fromJSString <$> (js_getValue (unRadioNodeList self)))+getValue self = liftIO (fromJSString <$> (js_getValue (self)))
src/GHCJS/DOM/JSFFI/Generated/Range.hs view
@@ -25,7 +25,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -39,14 +39,14 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "new window[\"Range\"]()"-        js_newRange :: IO (JSRef Range)+        js_newRange :: IO Range  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range Mozilla Range documentation>  newRange :: (MonadIO m) => m Range-newRange = liftIO (js_newRange >>= fromJSRefUnchecked)+newRange = liftIO (js_newRange)   foreign import javascript unsafe "$1[\"setStart\"]($2, $3)"-        js_setStart :: JSRef Range -> JSRef Node -> Int -> IO ()+        js_setStart :: Range -> Nullable Node -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setStart Mozilla Range.setStart documentation>  setStart ::@@ -54,12 +54,10 @@            Range -> Maybe refNode -> Int -> m () setStart self refNode offset   = liftIO-      (js_setStart (unRange self)-         (maybe jsNull (unNode . toNode) refNode)-         offset)+      (js_setStart (self) (maybeToNullable (fmap toNode refNode)) offset)   foreign import javascript unsafe "$1[\"setEnd\"]($2, $3)" js_setEnd-        :: JSRef Range -> JSRef Node -> Int -> IO ()+        :: Range -> Nullable Node -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setEnd Mozilla Range.setEnd documentation>  setEnd ::@@ -67,183 +65,174 @@          Range -> Maybe refNode -> Int -> m () setEnd self refNode offset   = liftIO-      (js_setEnd (unRange self) (maybe jsNull (unNode . toNode) refNode)-         offset)+      (js_setEnd (self) (maybeToNullable (fmap toNode refNode)) offset)   foreign import javascript unsafe "$1[\"setStartBefore\"]($2)"-        js_setStartBefore :: JSRef Range -> JSRef Node -> IO ()+        js_setStartBefore :: Range -> Nullable Node -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setStartBefore Mozilla Range.setStartBefore documentation>  setStartBefore ::                (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m () setStartBefore self refNode   = liftIO-      (js_setStartBefore (unRange self)-         (maybe jsNull (unNode . toNode) refNode))+      (js_setStartBefore (self) (maybeToNullable (fmap toNode refNode)))   foreign import javascript unsafe "$1[\"setStartAfter\"]($2)"-        js_setStartAfter :: JSRef Range -> JSRef Node -> IO ()+        js_setStartAfter :: Range -> Nullable Node -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setStartAfter Mozilla Range.setStartAfter documentation>  setStartAfter ::               (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m () setStartAfter self refNode   = liftIO-      (js_setStartAfter (unRange self)-         (maybe jsNull (unNode . toNode) refNode))+      (js_setStartAfter (self) (maybeToNullable (fmap toNode refNode)))   foreign import javascript unsafe "$1[\"setEndBefore\"]($2)"-        js_setEndBefore :: JSRef Range -> JSRef Node -> IO ()+        js_setEndBefore :: Range -> Nullable Node -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setEndBefore Mozilla Range.setEndBefore documentation>  setEndBefore ::              (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m () setEndBefore self refNode   = liftIO-      (js_setEndBefore (unRange self)-         (maybe jsNull (unNode . toNode) refNode))+      (js_setEndBefore (self) (maybeToNullable (fmap toNode refNode)))   foreign import javascript unsafe "$1[\"setEndAfter\"]($2)"-        js_setEndAfter :: JSRef Range -> JSRef Node -> IO ()+        js_setEndAfter :: Range -> Nullable Node -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.setEndAfter Mozilla Range.setEndAfter documentation>  setEndAfter ::             (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m () setEndAfter self refNode   = liftIO-      (js_setEndAfter (unRange self)-         (maybe jsNull (unNode . toNode) refNode))+      (js_setEndAfter (self) (maybeToNullable (fmap toNode refNode)))   foreign import javascript unsafe "$1[\"collapse\"]($2)" js_collapse-        :: JSRef Range -> Bool -> IO ()+        :: Range -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.collapse Mozilla Range.collapse documentation>  collapse :: (MonadIO m) => Range -> Bool -> m ()-collapse self toStart = liftIO (js_collapse (unRange self) toStart)+collapse self toStart = liftIO (js_collapse (self) toStart)   foreign import javascript unsafe "$1[\"selectNode\"]($2)"-        js_selectNode :: JSRef Range -> JSRef Node -> IO ()+        js_selectNode :: Range -> Nullable Node -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.selectNode Mozilla Range.selectNode documentation>  selectNode ::            (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m () selectNode self refNode   = liftIO-      (js_selectNode (unRange self)-         (maybe jsNull (unNode . toNode) refNode))+      (js_selectNode (self) (maybeToNullable (fmap toNode refNode)))   foreign import javascript unsafe "$1[\"selectNodeContents\"]($2)"-        js_selectNodeContents :: JSRef Range -> JSRef Node -> IO ()+        js_selectNodeContents :: Range -> Nullable Node -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.selectNodeContents Mozilla Range.selectNodeContents documentation>  selectNodeContents ::                    (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m () selectNodeContents self refNode   = liftIO-      (js_selectNodeContents (unRange self)-         (maybe jsNull (unNode . toNode) refNode))+      (js_selectNodeContents (self)+         (maybeToNullable (fmap toNode refNode)))   foreign import javascript unsafe         "$1[\"compareBoundaryPoints\"]($2,\n$3)" js_compareBoundaryPoints-        :: JSRef Range -> Word -> JSRef Range -> IO Int+        :: Range -> Word -> Nullable Range -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.compareBoundaryPoints Mozilla Range.compareBoundaryPoints documentation>  compareBoundaryPoints ::                       (MonadIO m) => Range -> Word -> Maybe Range -> m Int compareBoundaryPoints self how sourceRange   = liftIO-      (js_compareBoundaryPoints (unRange self) how-         (maybe jsNull pToJSRef sourceRange))+      (js_compareBoundaryPoints (self) how (maybeToNullable sourceRange))   foreign import javascript unsafe "$1[\"deleteContents\"]()"-        js_deleteContents :: JSRef Range -> IO ()+        js_deleteContents :: Range -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.deleteContents Mozilla Range.deleteContents documentation>  deleteContents :: (MonadIO m) => Range -> m ()-deleteContents self = liftIO (js_deleteContents (unRange self))+deleteContents self = liftIO (js_deleteContents (self))   foreign import javascript unsafe "$1[\"extractContents\"]()"-        js_extractContents :: JSRef Range -> IO (JSRef DocumentFragment)+        js_extractContents :: Range -> IO (Nullable DocumentFragment)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.extractContents Mozilla Range.extractContents documentation>  extractContents ::                 (MonadIO m) => Range -> m (Maybe DocumentFragment) extractContents self-  = liftIO ((js_extractContents (unRange self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_extractContents (self)))   foreign import javascript unsafe "$1[\"cloneContents\"]()"-        js_cloneContents :: JSRef Range -> IO (JSRef DocumentFragment)+        js_cloneContents :: Range -> IO (Nullable DocumentFragment)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneContents Mozilla Range.cloneContents documentation>  cloneContents :: (MonadIO m) => Range -> m (Maybe DocumentFragment) cloneContents self-  = liftIO ((js_cloneContents (unRange self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_cloneContents (self)))   foreign import javascript unsafe "$1[\"insertNode\"]($2)"-        js_insertNode :: JSRef Range -> JSRef Node -> IO ()+        js_insertNode :: Range -> Nullable Node -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.insertNode Mozilla Range.insertNode documentation>  insertNode ::            (MonadIO m, IsNode newNode) => Range -> Maybe newNode -> m () insertNode self newNode   = liftIO-      (js_insertNode (unRange self)-         (maybe jsNull (unNode . toNode) newNode))+      (js_insertNode (self) (maybeToNullable (fmap toNode newNode)))   foreign import javascript unsafe "$1[\"surroundContents\"]($2)"-        js_surroundContents :: JSRef Range -> JSRef Node -> IO ()+        js_surroundContents :: Range -> Nullable Node -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.surroundContents Mozilla Range.surroundContents documentation>  surroundContents ::                  (MonadIO m, IsNode newParent) => Range -> Maybe newParent -> m () surroundContents self newParent   = liftIO-      (js_surroundContents (unRange self)-         (maybe jsNull (unNode . toNode) newParent))+      (js_surroundContents (self)+         (maybeToNullable (fmap toNode newParent)))   foreign import javascript unsafe "$1[\"cloneRange\"]()"-        js_cloneRange :: JSRef Range -> IO (JSRef Range)+        js_cloneRange :: Range -> IO (Nullable Range)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.cloneRange Mozilla Range.cloneRange documentation>  cloneRange :: (MonadIO m) => Range -> m (Maybe Range) cloneRange self-  = liftIO ((js_cloneRange (unRange self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_cloneRange (self)))   foreign import javascript unsafe "$1[\"toString\"]()" js_toString-        :: JSRef Range -> IO JSString+        :: Range -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.toString Mozilla Range.toString documentation>  toString :: (MonadIO m, FromJSString result) => Range -> m result-toString self-  = liftIO (fromJSString <$> (js_toString (unRange self)))+toString self = liftIO (fromJSString <$> (js_toString (self)))   foreign import javascript unsafe "$1[\"detach\"]()" js_detach ::-        JSRef Range -> IO ()+        Range -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.detach Mozilla Range.detach documentation>  detach :: (MonadIO m) => Range -> m ()-detach self = liftIO (js_detach (unRange self))+detach self = liftIO (js_detach (self))   foreign import javascript unsafe "$1[\"getClientRects\"]()"-        js_getClientRects :: JSRef Range -> IO (JSRef ClientRectList)+        js_getClientRects :: Range -> IO (Nullable ClientRectList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getClientRects Mozilla Range.getClientRects documentation>  getClientRects :: (MonadIO m) => Range -> m (Maybe ClientRectList) getClientRects self-  = liftIO ((js_getClientRects (unRange self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getClientRects (self)))   foreign import javascript unsafe "$1[\"getBoundingClientRect\"]()"-        js_getBoundingClientRect :: JSRef Range -> IO (JSRef ClientRect)+        js_getBoundingClientRect :: Range -> IO (Nullable ClientRect)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.getBoundingClientRect Mozilla Range.getBoundingClientRect documentation>  getBoundingClientRect ::                       (MonadIO m) => Range -> m (Maybe ClientRect) getBoundingClientRect self-  = liftIO ((js_getBoundingClientRect (unRange self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getBoundingClientRect (self)))   foreign import javascript unsafe         "$1[\"createContextualFragment\"]($2)" js_createContextualFragment-        :: JSRef Range -> JSString -> IO (JSRef DocumentFragment)+        :: Range -> JSString -> IO (Nullable DocumentFragment)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.createContextualFragment Mozilla Range.createContextualFragment documentation>  createContextualFragment ::@@ -251,34 +240,32 @@                            Range -> html -> m (Maybe DocumentFragment) createContextualFragment self html   = liftIO-      ((js_createContextualFragment (unRange self) (toJSString html)) >>=-         fromJSRef)+      (nullableToMaybe <$>+         (js_createContextualFragment (self) (toJSString html)))   foreign import javascript unsafe         "($1[\"intersectsNode\"]($2) ? 1 : 0)" js_intersectsNode ::-        JSRef Range -> JSRef Node -> IO Bool+        Range -> Nullable Node -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.intersectsNode Mozilla Range.intersectsNode documentation>  intersectsNode ::                (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m Bool intersectsNode self refNode   = liftIO-      (js_intersectsNode (unRange self)-         (maybe jsNull (unNode . toNode) refNode))+      (js_intersectsNode (self) (maybeToNullable (fmap toNode refNode)))   foreign import javascript unsafe "$1[\"compareNode\"]($2)"-        js_compareNode :: JSRef Range -> JSRef Node -> IO Int+        js_compareNode :: Range -> Nullable Node -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.compareNode Mozilla Range.compareNode documentation>  compareNode ::             (MonadIO m, IsNode refNode) => Range -> Maybe refNode -> m Int compareNode self refNode   = liftIO-      (js_compareNode (unRange self)-         (maybe jsNull (unNode . toNode) refNode))+      (js_compareNode (self) (maybeToNullable (fmap toNode refNode)))   foreign import javascript unsafe "$1[\"comparePoint\"]($2, $3)"-        js_comparePoint :: JSRef Range -> JSRef Node -> Int -> IO Int+        js_comparePoint :: Range -> Nullable Node -> Int -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.comparePoint Mozilla Range.comparePoint documentation>  comparePoint ::@@ -286,13 +273,12 @@                Range -> Maybe refNode -> Int -> m Int comparePoint self refNode offset   = liftIO-      (js_comparePoint (unRange self)-         (maybe jsNull (unNode . toNode) refNode)+      (js_comparePoint (self) (maybeToNullable (fmap toNode refNode))          offset)   foreign import javascript unsafe         "($1[\"isPointInRange\"]($2,\n$3) ? 1 : 0)" js_isPointInRange ::-        JSRef Range -> JSRef Node -> Int -> IO Bool+        Range -> Nullable Node -> Int -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.isPointInRange Mozilla Range.isPointInRange documentation>  isPointInRange ::@@ -300,17 +286,15 @@                  Range -> Maybe refNode -> Int -> m Bool isPointInRange self refNode offset   = liftIO-      (js_isPointInRange (unRange self)-         (maybe jsNull (unNode . toNode) refNode)+      (js_isPointInRange (self) (maybeToNullable (fmap toNode refNode))          offset)   foreign import javascript unsafe "$1[\"expand\"]($2)" js_expand ::-        JSRef Range -> JSString -> IO ()+        Range -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.expand Mozilla Range.expand documentation>  expand :: (MonadIO m, ToJSString unit) => Range -> unit -> m ()-expand self unit-  = liftIO (js_expand (unRange self) (toJSString unit))+expand self unit = liftIO (js_expand (self) (toJSString unit)) pattern START_TO_START = 0 pattern START_TO_END = 1 pattern END_TO_END = 2@@ -321,48 +305,48 @@ pattern NODE_INSIDE = 3   foreign import javascript unsafe "$1[\"startContainer\"]"-        js_getStartContainer :: JSRef Range -> IO (JSRef Node)+        js_getStartContainer :: Range -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.startContainer Mozilla Range.startContainer documentation>  getStartContainer :: (MonadIO m) => Range -> m (Maybe Node) getStartContainer self-  = liftIO ((js_getStartContainer (unRange self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getStartContainer (self)))   foreign import javascript unsafe "$1[\"startOffset\"]"-        js_getStartOffset :: JSRef Range -> IO Int+        js_getStartOffset :: Range -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.startOffset Mozilla Range.startOffset documentation>  getStartOffset :: (MonadIO m) => Range -> m Int-getStartOffset self = liftIO (js_getStartOffset (unRange self))+getStartOffset self = liftIO (js_getStartOffset (self))   foreign import javascript unsafe "$1[\"endContainer\"]"-        js_getEndContainer :: JSRef Range -> IO (JSRef Node)+        js_getEndContainer :: Range -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.endContainer Mozilla Range.endContainer documentation>  getEndContainer :: (MonadIO m) => Range -> m (Maybe Node) getEndContainer self-  = liftIO ((js_getEndContainer (unRange self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getEndContainer (self)))   foreign import javascript unsafe "$1[\"endOffset\"]"-        js_getEndOffset :: JSRef Range -> IO Int+        js_getEndOffset :: Range -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.endOffset Mozilla Range.endOffset documentation>  getEndOffset :: (MonadIO m) => Range -> m Int-getEndOffset self = liftIO (js_getEndOffset (unRange self))+getEndOffset self = liftIO (js_getEndOffset (self))   foreign import javascript unsafe "($1[\"collapsed\"] ? 1 : 0)"-        js_getCollapsed :: JSRef Range -> IO Bool+        js_getCollapsed :: Range -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.collapsed Mozilla Range.collapsed documentation>  getCollapsed :: (MonadIO m) => Range -> m Bool-getCollapsed self = liftIO (js_getCollapsed (unRange self))+getCollapsed self = liftIO (js_getCollapsed (self))   foreign import javascript unsafe "$1[\"commonAncestorContainer\"]"-        js_getCommonAncestorContainer :: JSRef Range -> IO (JSRef Node)+        js_getCommonAncestorContainer :: Range -> IO (Nullable Node)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Range.commonAncestorContainer Mozilla Range.commonAncestorContainer documentation>  getCommonAncestorContainer ::                            (MonadIO m) => Range -> m (Maybe Node) getCommonAncestorContainer self   = liftIO-      ((js_getCommonAncestorContainer (unRange self)) >>= fromJSRef)+      (nullableToMaybe <$> (js_getCommonAncestorContainer (self)))
src/GHCJS/DOM/JSFFI/Generated/ReadableStream.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,23 +23,22 @@   foreign import javascript unsafe         "new window[\"ReadableStream\"]($1)" js_newReadableStream ::-        JSRef a -> IO (JSRef ReadableStream)+        JSRef -> IO ReadableStream  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream Mozilla ReadableStream documentation> -newReadableStream :: (MonadIO m) => JSRef a -> m ReadableStream+newReadableStream :: (MonadIO m) => JSRef -> m ReadableStream newReadableStream properties-  = liftIO (js_newReadableStream properties >>= fromJSRefUnchecked)+  = liftIO (js_newReadableStream properties)   foreign import javascript unsafe "$1[\"read\"]()" js_read ::-        JSRef ReadableStream -> IO (JSRef GObject)+        ReadableStream -> IO (Nullable GObject)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.read Mozilla ReadableStream.read documentation>  read :: (MonadIO m) => ReadableStream -> m (Maybe GObject)-read self-  = liftIO ((js_read (unReadableStream self)) >>= fromJSRef)+read self = liftIO (nullableToMaybe <$> (js_read (self)))   foreign import javascript unsafe "$1[\"cancel\"]($2)" js_cancel ::-        JSRef ReadableStream -> JSString -> IO (JSRef Promise)+        ReadableStream -> JSString -> IO (Nullable Promise)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.cancel Mozilla ReadableStream.cancel documentation>  cancel ::@@ -47,55 +46,48 @@          ReadableStream -> reason -> m (Maybe Promise) cancel self reason   = liftIO-      ((js_cancel (unReadableStream self) (toJSString reason)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_cancel (self) (toJSString reason)))   foreign import javascript unsafe "$1[\"pipeTo\"]($2, $3)" js_pipeTo-        :: JSRef ReadableStream -> JSRef a -> JSRef a -> IO (JSRef Promise)+        :: ReadableStream -> JSRef -> JSRef -> IO (Nullable Promise)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeTo Mozilla ReadableStream.pipeTo documentation>  pipeTo ::        (MonadIO m) =>-         ReadableStream -> JSRef a -> JSRef a -> m (Maybe Promise)+         ReadableStream -> JSRef -> JSRef -> m (Maybe Promise) pipeTo self streams options-  = liftIO-      ((js_pipeTo (unReadableStream self) streams options) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_pipeTo (self) streams options))   foreign import javascript unsafe "$1[\"pipeThrough\"]($2, $3)"         js_pipeThrough ::-        JSRef ReadableStream -> JSRef a -> JSRef a -> IO (JSRef GObject)+        ReadableStream -> JSRef -> JSRef -> IO (Nullable GObject)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.pipeThrough Mozilla ReadableStream.pipeThrough documentation>  pipeThrough ::             (MonadIO m) =>-              ReadableStream -> JSRef a -> JSRef a -> m (Maybe GObject)+              ReadableStream -> JSRef -> JSRef -> m (Maybe GObject) pipeThrough self dest options-  = liftIO-      ((js_pipeThrough (unReadableStream self) dest options) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_pipeThrough (self) dest options))   foreign import javascript unsafe "$1[\"state\"]" js_getState ::-        JSRef ReadableStream -> IO (JSRef ReadableStreamStateType)+        ReadableStream -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.state Mozilla ReadableStream.state documentation>  getState ::          (MonadIO m) => ReadableStream -> m ReadableStreamStateType getState self-  = liftIO-      ((js_getState (unReadableStream self)) >>= fromJSRefUnchecked)+  = liftIO ((js_getState (self)) >>= fromJSRefUnchecked)   foreign import javascript unsafe "$1[\"closed\"]" js_getClosed ::-        JSRef ReadableStream -> IO (JSRef Promise)+        ReadableStream -> IO (Nullable Promise)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.closed Mozilla ReadableStream.closed documentation>  getClosed :: (MonadIO m) => ReadableStream -> m (Maybe Promise)-getClosed self-  = liftIO ((js_getClosed (unReadableStream self)) >>= fromJSRef)+getClosed self = liftIO (nullableToMaybe <$> (js_getClosed (self)))   foreign import javascript unsafe "$1[\"ready\"]" js_getReady ::-        JSRef ReadableStream -> IO (JSRef Promise)+        ReadableStream -> IO (Nullable Promise)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/ReadableStream.ready Mozilla ReadableStream.ready documentation>  getReady :: (MonadIO m) => ReadableStream -> m (Maybe Promise)-getReady self-  = liftIO ((js_getReady (unReadableStream self)) >>= fromJSRef)+getReady self = liftIO (nullableToMaybe <$> (js_getReady (self)))
src/GHCJS/DOM/JSFFI/Generated/Rect.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,30 +19,29 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"top\"]" js_getTop ::-        JSRef Rect -> IO (JSRef CSSPrimitiveValue)+        Rect -> IO (Nullable CSSPrimitiveValue)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.top Mozilla Rect.top documentation>  getTop :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue)-getTop self = liftIO ((js_getTop (unRect self)) >>= fromJSRef)+getTop self = liftIO (nullableToMaybe <$> (js_getTop (self)))   foreign import javascript unsafe "$1[\"right\"]" js_getRight ::-        JSRef Rect -> IO (JSRef CSSPrimitiveValue)+        Rect -> IO (Nullable CSSPrimitiveValue)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.right Mozilla Rect.right documentation>  getRight :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue)-getRight self = liftIO ((js_getRight (unRect self)) >>= fromJSRef)+getRight self = liftIO (nullableToMaybe <$> (js_getRight (self)))   foreign import javascript unsafe "$1[\"bottom\"]" js_getBottom ::-        JSRef Rect -> IO (JSRef CSSPrimitiveValue)+        Rect -> IO (Nullable CSSPrimitiveValue)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.bottom Mozilla Rect.bottom documentation>  getBottom :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue)-getBottom self-  = liftIO ((js_getBottom (unRect self)) >>= fromJSRef)+getBottom self = liftIO (nullableToMaybe <$> (js_getBottom (self)))   foreign import javascript unsafe "$1[\"left\"]" js_getLeft ::-        JSRef Rect -> IO (JSRef CSSPrimitiveValue)+        Rect -> IO (Nullable CSSPrimitiveValue)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/Rect.left Mozilla Rect.left documentation>  getLeft :: (MonadIO m) => Rect -> m (Maybe CSSPrimitiveValue)-getLeft self = liftIO ((js_getLeft (unRect self)) >>= fromJSRef)+getLeft self = liftIO (nullableToMaybe <$> (js_getLeft (self)))
src/GHCJS/DOM/JSFFI/Generated/RequestAnimationFrameCallback.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -25,10 +25,11 @@                                  (MonadIO m) => (Double -> IO ()) -> m RequestAnimationFrameCallback newRequestAnimationFrameCallback callback   = liftIO-      (syncCallback1 ThrowWouldBlock-         (\ highResTime ->-            fromJSRefUnchecked highResTime >>=-              \ highResTime' -> callback highResTime'))+      (RequestAnimationFrameCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ highResTime ->+              fromJSRefUnchecked highResTime >>=+                \ highResTime' -> callback highResTime'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RequestAnimationFrameCallback Mozilla RequestAnimationFrameCallback documentation>  newRequestAnimationFrameCallbackSync ::@@ -36,10 +37,11 @@                                        (Double -> IO ()) -> m RequestAnimationFrameCallback newRequestAnimationFrameCallbackSync callback   = liftIO-      (syncCallback1 ContinueAsync-         (\ highResTime ->-            fromJSRefUnchecked highResTime >>=-              \ highResTime' -> callback highResTime'))+      (RequestAnimationFrameCallback <$>+         syncCallback1 ContinueAsync+           (\ highResTime ->+              fromJSRefUnchecked highResTime >>=+                \ highResTime' -> callback highResTime'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/RequestAnimationFrameCallback Mozilla RequestAnimationFrameCallback documentation>  newRequestAnimationFrameCallbackAsync ::@@ -47,7 +49,8 @@                                         (Double -> IO ()) -> m RequestAnimationFrameCallback newRequestAnimationFrameCallbackAsync callback   = liftIO-      (asyncCallback1-         (\ highResTime ->-            fromJSRefUnchecked highResTime >>=-              \ highResTime' -> callback highResTime'))+      (RequestAnimationFrameCallback <$>+         asyncCallback1+           (\ highResTime ->+              fromJSRefUnchecked highResTime >>=+                \ highResTime' -> callback highResTime'))
src/GHCJS/DOM/JSFFI/Generated/SQLError.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -29,17 +29,16 @@ pattern TIMEOUT_ERR = 7   foreign import javascript unsafe "$1[\"code\"]" js_getCode ::-        JSRef SQLError -> IO Word+        SQLError -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLError.code Mozilla SQLError.code documentation>  getCode :: (MonadIO m) => SQLError -> m Word-getCode self = liftIO (js_getCode (unSQLError self))+getCode self = liftIO (js_getCode (self))   foreign import javascript unsafe "$1[\"message\"]" js_getMessage ::-        JSRef SQLError -> IO JSString+        SQLError -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLError.message Mozilla SQLError.message documentation>  getMessage ::            (MonadIO m, FromJSString result) => SQLError -> m result-getMessage self-  = liftIO (fromJSString <$> (js_getMessage (unSQLError self)))+getMessage self = liftIO (fromJSString <$> (js_getMessage (self)))
src/GHCJS/DOM/JSFFI/Generated/SQLResultSet.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,25 +20,23 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"rows\"]" js_getRows ::-        JSRef SQLResultSet -> IO (JSRef SQLResultSetRowList)+        SQLResultSet -> IO (Nullable SQLResultSetRowList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.rows Mozilla SQLResultSet.rows documentation>  getRows ::         (MonadIO m) => SQLResultSet -> m (Maybe SQLResultSetRowList)-getRows self-  = liftIO ((js_getRows (unSQLResultSet self)) >>= fromJSRef)+getRows self = liftIO (nullableToMaybe <$> (js_getRows (self)))   foreign import javascript unsafe "$1[\"insertId\"]" js_getInsertId-        :: JSRef SQLResultSet -> IO Int+        :: SQLResultSet -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.insertId Mozilla SQLResultSet.insertId documentation>  getInsertId :: (MonadIO m) => SQLResultSet -> m Int-getInsertId self = liftIO (js_getInsertId (unSQLResultSet self))+getInsertId self = liftIO (js_getInsertId (self))   foreign import javascript unsafe "$1[\"rowsAffected\"]"-        js_getRowsAffected :: JSRef SQLResultSet -> IO Int+        js_getRowsAffected :: SQLResultSet -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSet.rowsAffected Mozilla SQLResultSet.rowsAffected documentation>  getRowsAffected :: (MonadIO m) => SQLResultSet -> m Int-getRowsAffected self-  = liftIO (js_getRowsAffected (unSQLResultSet self))+getRowsAffected self = liftIO (js_getRowsAffected (self))
src/GHCJS/DOM/JSFFI/Generated/SQLResultSetRowList.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,16 +19,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"item\"]($2)" js_item ::-        JSRef SQLResultSetRowList -> Word -> IO (JSRef a)+        SQLResultSetRowList -> Word -> IO JSRef  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSetRowList.item Mozilla SQLResultSetRowList.item documentation> -item :: (MonadIO m) => SQLResultSetRowList -> Word -> m (JSRef a)-item self index-  = liftIO (js_item (unSQLResultSetRowList self) index)+item :: (MonadIO m) => SQLResultSetRowList -> Word -> m JSRef+item self index = liftIO (js_item (self) index)   foreign import javascript unsafe "$1[\"length\"]" js_getLength ::-        JSRef SQLResultSetRowList -> IO Word+        SQLResultSetRowList -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLResultSetRowList.length Mozilla SQLResultSetRowList.length documentation>  getLength :: (MonadIO m) => SQLResultSetRowList -> m Word-getLength self = liftIO (js_getLength (unSQLResultSetRowList self))+getLength self = liftIO (js_getLength (self))
src/GHCJS/DOM/JSFFI/Generated/SQLStatementCallback.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -25,13 +25,14 @@                             m SQLStatementCallback newSQLStatementCallback callback   = liftIO-      (syncCallback2 ThrowWouldBlock-         (\ transaction resultSet ->-            fromJSRefUnchecked resultSet >>=-              \ resultSet' ->-                fromJSRefUnchecked transaction >>=-                  \ transaction' -> callback transaction'-                  resultSet'))+      (SQLStatementCallback <$>+         syncCallback2 ThrowWouldBlock+           (\ transaction resultSet ->+              fromJSRefUnchecked resultSet >>=+                \ resultSet' ->+                  fromJSRefUnchecked transaction >>=+                    \ transaction' -> callback transaction'+                    resultSet'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation>  newSQLStatementCallbackSync ::@@ -40,13 +41,14 @@                                 m SQLStatementCallback newSQLStatementCallbackSync callback   = liftIO-      (syncCallback2 ContinueAsync-         (\ transaction resultSet ->-            fromJSRefUnchecked resultSet >>=-              \ resultSet' ->-                fromJSRefUnchecked transaction >>=-                  \ transaction' -> callback transaction'-                  resultSet'))+      (SQLStatementCallback <$>+         syncCallback2 ContinueAsync+           (\ transaction resultSet ->+              fromJSRefUnchecked resultSet >>=+                \ resultSet' ->+                  fromJSRefUnchecked transaction >>=+                    \ transaction' -> callback transaction'+                    resultSet'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementCallback Mozilla SQLStatementCallback documentation>  newSQLStatementCallbackAsync ::@@ -55,10 +57,11 @@                                  m SQLStatementCallback newSQLStatementCallbackAsync callback   = liftIO-      (asyncCallback2-         (\ transaction resultSet ->-            fromJSRefUnchecked resultSet >>=-              \ resultSet' ->-                fromJSRefUnchecked transaction >>=-                  \ transaction' -> callback transaction'-                  resultSet'))+      (SQLStatementCallback <$>+         asyncCallback2+           (\ transaction resultSet ->+              fromJSRefUnchecked resultSet >>=+                \ resultSet' ->+                  fromJSRefUnchecked transaction >>=+                    \ transaction' -> callback transaction'+                    resultSet'))
src/GHCJS/DOM/JSFFI/Generated/SQLStatementErrorCallback.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -25,13 +25,14 @@                                  m SQLStatementErrorCallback newSQLStatementErrorCallback callback   = liftIO-      (syncCallback2 ThrowWouldBlock-         (\ transaction error ->-            fromJSRefUnchecked error >>=-              \ error' ->-                fromJSRefUnchecked transaction >>=-                  \ transaction' -> callback transaction'-                  error'))+      (SQLStatementErrorCallback <$>+         syncCallback2 ThrowWouldBlock+           (\ transaction error ->+              fromJSRefUnchecked error >>=+                \ error' ->+                  fromJSRefUnchecked transaction >>=+                    \ transaction' -> callback transaction'+                    error'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementErrorCallback Mozilla SQLStatementErrorCallback documentation>  newSQLStatementErrorCallbackSync ::@@ -40,13 +41,14 @@                                      m SQLStatementErrorCallback newSQLStatementErrorCallbackSync callback   = liftIO-      (syncCallback2 ContinueAsync-         (\ transaction error ->-            fromJSRefUnchecked error >>=-              \ error' ->-                fromJSRefUnchecked transaction >>=-                  \ transaction' -> callback transaction'-                  error'))+      (SQLStatementErrorCallback <$>+         syncCallback2 ContinueAsync+           (\ transaction error ->+              fromJSRefUnchecked error >>=+                \ error' ->+                  fromJSRefUnchecked transaction >>=+                    \ transaction' -> callback transaction'+                    error'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLStatementErrorCallback Mozilla SQLStatementErrorCallback documentation>  newSQLStatementErrorCallbackAsync ::@@ -55,10 +57,11 @@                                       m SQLStatementErrorCallback newSQLStatementErrorCallbackAsync callback   = liftIO-      (asyncCallback2-         (\ transaction error ->-            fromJSRefUnchecked error >>=-              \ error' ->-                fromJSRefUnchecked transaction >>=-                  \ transaction' -> callback transaction'-                  error'))+      (SQLStatementErrorCallback <$>+         asyncCallback2+           (\ transaction error ->+              fromJSRefUnchecked error >>=+                \ error' ->+                  fromJSRefUnchecked transaction >>=+                    \ transaction' -> callback transaction'+                    error'))
src/GHCJS/DOM/JSFFI/Generated/SQLTransaction.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,11 +20,11 @@   foreign import javascript unsafe         "$1[\"executeSql\"]($2, $3, $4, $5)" js_executeSql ::-        JSRef SQLTransaction ->+        SQLTransaction ->           JSString ->-            JSRef ObjectArray ->-              JSRef SQLStatementCallback ->-                JSRef SQLStatementErrorCallback -> IO ()+            Nullable ObjectArray ->+              Nullable SQLStatementCallback ->+                Nullable SQLStatementErrorCallback -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransaction.executeSql Mozilla SQLTransaction.executeSql documentation>  executeSql ::@@ -36,7 +36,7 @@                      Maybe SQLStatementErrorCallback -> m () executeSql self sqlStatement arguments callback errorCallback   = liftIO-      (js_executeSql (unSQLTransaction self) (toJSString sqlStatement)-         (maybe jsNull (unObjectArray . toObjectArray) arguments)-         (maybe jsNull pToJSRef callback)-         (maybe jsNull pToJSRef errorCallback))+      (js_executeSql (self) (toJSString sqlStatement)+         (maybeToNullable (fmap toObjectArray arguments))+         (maybeToNullable callback)+         (maybeToNullable errorCallback))
src/GHCJS/DOM/JSFFI/Generated/SQLTransactionCallback.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,10 +24,11 @@                             (Maybe SQLTransaction -> IO ()) -> m SQLTransactionCallback newSQLTransactionCallback callback   = liftIO-      (syncCallback1 ThrowWouldBlock-         (\ transaction ->-            fromJSRefUnchecked transaction >>=-              \ transaction' -> callback transaction'))+      (SQLTransactionCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ transaction ->+              fromJSRefUnchecked transaction >>=+                \ transaction' -> callback transaction'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionCallback Mozilla SQLTransactionCallback documentation>  newSQLTransactionCallbackSync ::@@ -35,10 +36,11 @@                                 (Maybe SQLTransaction -> IO ()) -> m SQLTransactionCallback newSQLTransactionCallbackSync callback   = liftIO-      (syncCallback1 ContinueAsync-         (\ transaction ->-            fromJSRefUnchecked transaction >>=-              \ transaction' -> callback transaction'))+      (SQLTransactionCallback <$>+         syncCallback1 ContinueAsync+           (\ transaction ->+              fromJSRefUnchecked transaction >>=+                \ transaction' -> callback transaction'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionCallback Mozilla SQLTransactionCallback documentation>  newSQLTransactionCallbackAsync ::@@ -46,7 +48,8 @@                                  (Maybe SQLTransaction -> IO ()) -> m SQLTransactionCallback newSQLTransactionCallbackAsync callback   = liftIO-      (asyncCallback1-         (\ transaction ->-            fromJSRefUnchecked transaction >>=-              \ transaction' -> callback transaction'))+      (SQLTransactionCallback <$>+         asyncCallback1+           (\ transaction ->+              fromJSRefUnchecked transaction >>=+                \ transaction' -> callback transaction'))
src/GHCJS/DOM/JSFFI/Generated/SQLTransactionErrorCallback.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -25,9 +25,10 @@                                  (Maybe SQLError -> IO ()) -> m SQLTransactionErrorCallback newSQLTransactionErrorCallback callback   = liftIO-      (syncCallback1 ThrowWouldBlock-         (\ error ->-            fromJSRefUnchecked error >>= \ error' -> callback error'))+      (SQLTransactionErrorCallback <$>+         syncCallback1 ThrowWouldBlock+           (\ error ->+              fromJSRefUnchecked error >>= \ error' -> callback error'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionErrorCallback Mozilla SQLTransactionErrorCallback documentation>  newSQLTransactionErrorCallbackSync ::@@ -35,9 +36,10 @@                                      (Maybe SQLError -> IO ()) -> m SQLTransactionErrorCallback newSQLTransactionErrorCallbackSync callback   = liftIO-      (syncCallback1 ContinueAsync-         (\ error ->-            fromJSRefUnchecked error >>= \ error' -> callback error'))+      (SQLTransactionErrorCallback <$>+         syncCallback1 ContinueAsync+           (\ error ->+              fromJSRefUnchecked error >>= \ error' -> callback error'))  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SQLTransactionErrorCallback Mozilla SQLTransactionErrorCallback documentation>  newSQLTransactionErrorCallbackAsync ::@@ -45,6 +47,7 @@                                       (Maybe SQLError -> IO ()) -> m SQLTransactionErrorCallback newSQLTransactionErrorCallbackAsync callback   = liftIO-      (asyncCallback1-         (\ error ->-            fromJSRefUnchecked error >>= \ error' -> callback error'))+      (SQLTransactionErrorCallback <$>+         asyncCallback1+           (\ error ->+              fromJSRefUnchecked error >>= \ error' -> callback error'))
src/GHCJS/DOM/JSFFI/Generated/SVGAElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,10 +19,9 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"target\"]" js_getTarget ::-        JSRef SVGAElement -> IO (JSRef SVGAnimatedString)+        SVGAElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAElement.target Mozilla SVGAElement.target documentation>  getTarget ::           (MonadIO m) => SVGAElement -> m (Maybe SVGAnimatedString)-getTarget self-  = liftIO ((js_getTarget (unSVGAElement self)) >>= fromJSRef)+getTarget self = liftIO (nullableToMaybe <$> (js_getTarget (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAltGlyphElement.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,41 +21,35 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"glyphRef\"] = $2;"-        js_setGlyphRef :: JSRef SVGAltGlyphElement -> JSString -> IO ()+        js_setGlyphRef :: SVGAltGlyphElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement.glyphRef Mozilla SVGAltGlyphElement.glyphRef documentation>  setGlyphRef ::             (MonadIO m, ToJSString val) => SVGAltGlyphElement -> val -> m () setGlyphRef self val-  = liftIO-      (js_setGlyphRef (unSVGAltGlyphElement self) (toJSString val))+  = liftIO (js_setGlyphRef (self) (toJSString val))   foreign import javascript unsafe "$1[\"glyphRef\"]" js_getGlyphRef-        :: JSRef SVGAltGlyphElement -> IO JSString+        :: SVGAltGlyphElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement.glyphRef Mozilla SVGAltGlyphElement.glyphRef documentation>  getGlyphRef ::             (MonadIO m, FromJSString result) => SVGAltGlyphElement -> m result getGlyphRef self-  = liftIO-      (fromJSString <$> (js_getGlyphRef (unSVGAltGlyphElement self)))+  = liftIO (fromJSString <$> (js_getGlyphRef (self)))   foreign import javascript unsafe "$1[\"format\"] = $2;"-        js_setFormat :: JSRef SVGAltGlyphElement -> JSString -> IO ()+        js_setFormat :: SVGAltGlyphElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement.format Mozilla SVGAltGlyphElement.format documentation>  setFormat ::           (MonadIO m, ToJSString val) => SVGAltGlyphElement -> val -> m ()-setFormat self val-  = liftIO-      (js_setFormat (unSVGAltGlyphElement self) (toJSString val))+setFormat self val = liftIO (js_setFormat (self) (toJSString val))   foreign import javascript unsafe "$1[\"format\"]" js_getFormat ::-        JSRef SVGAltGlyphElement -> IO JSString+        SVGAltGlyphElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAltGlyphElement.format Mozilla SVGAltGlyphElement.format documentation>  getFormat ::           (MonadIO m, FromJSString result) => SVGAltGlyphElement -> m result-getFormat self-  = liftIO-      (fromJSString <$> (js_getFormat (unSVGAltGlyphElement self)))+getFormat self = liftIO (fromJSString <$> (js_getFormat (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAngle.hs view
@@ -13,7 +13,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -28,24 +28,23 @@   foreign import javascript unsafe         "$1[\"newValueSpecifiedUnits\"]($2,\n$3)" js_newValueSpecifiedUnits-        :: JSRef SVGAngle -> Word -> Float -> IO ()+        :: SVGAngle -> Word -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.newValueSpecifiedUnits Mozilla SVGAngle.newValueSpecifiedUnits documentation>  newValueSpecifiedUnits ::                        (MonadIO m) => SVGAngle -> Word -> Float -> m () newValueSpecifiedUnits self unitType valueInSpecifiedUnits   = liftIO-      (js_newValueSpecifiedUnits (unSVGAngle self) unitType-         valueInSpecifiedUnits)+      (js_newValueSpecifiedUnits (self) unitType valueInSpecifiedUnits)   foreign import javascript unsafe         "$1[\"convertToSpecifiedUnits\"]($2)" js_convertToSpecifiedUnits ::-        JSRef SVGAngle -> Word -> IO ()+        SVGAngle -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.convertToSpecifiedUnits Mozilla SVGAngle.convertToSpecifiedUnits documentation>  convertToSpecifiedUnits :: (MonadIO m) => SVGAngle -> Word -> m () convertToSpecifiedUnits self unitType-  = liftIO (js_convertToSpecifiedUnits (unSVGAngle self) unitType)+  = liftIO (js_convertToSpecifiedUnits (self) unitType) pattern SVG_ANGLETYPE_UNKNOWN = 0 pattern SVG_ANGLETYPE_UNSPECIFIED = 1 pattern SVG_ANGLETYPE_DEG = 2@@ -53,62 +52,58 @@ pattern SVG_ANGLETYPE_GRAD = 4   foreign import javascript unsafe "$1[\"unitType\"]" js_getUnitType-        :: JSRef SVGAngle -> IO Word+        :: SVGAngle -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.unitType Mozilla SVGAngle.unitType documentation>  getUnitType :: (MonadIO m) => SVGAngle -> m Word-getUnitType self = liftIO (js_getUnitType (unSVGAngle self))+getUnitType self = liftIO (js_getUnitType (self))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef SVGAngle -> Float -> IO ()+        :: SVGAngle -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.value Mozilla SVGAngle.value documentation>  setValue :: (MonadIO m) => SVGAngle -> Float -> m ()-setValue self val = liftIO (js_setValue (unSVGAngle self) val)+setValue self val = liftIO (js_setValue (self) val)   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef SVGAngle -> IO Float+        SVGAngle -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.value Mozilla SVGAngle.value documentation>  getValue :: (MonadIO m) => SVGAngle -> m Float-getValue self = liftIO (js_getValue (unSVGAngle self))+getValue self = liftIO (js_getValue (self))   foreign import javascript unsafe         "$1[\"valueInSpecifiedUnits\"] = $2;" js_setValueInSpecifiedUnits-        :: JSRef SVGAngle -> Float -> IO ()+        :: SVGAngle -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueInSpecifiedUnits Mozilla SVGAngle.valueInSpecifiedUnits documentation>  setValueInSpecifiedUnits ::                          (MonadIO m) => SVGAngle -> Float -> m () setValueInSpecifiedUnits self val-  = liftIO (js_setValueInSpecifiedUnits (unSVGAngle self) val)+  = liftIO (js_setValueInSpecifiedUnits (self) val)   foreign import javascript unsafe "$1[\"valueInSpecifiedUnits\"]"-        js_getValueInSpecifiedUnits :: JSRef SVGAngle -> IO Float+        js_getValueInSpecifiedUnits :: SVGAngle -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueInSpecifiedUnits Mozilla SVGAngle.valueInSpecifiedUnits documentation>  getValueInSpecifiedUnits :: (MonadIO m) => SVGAngle -> m Float getValueInSpecifiedUnits self-  = liftIO (js_getValueInSpecifiedUnits (unSVGAngle self))+  = liftIO (js_getValueInSpecifiedUnits (self))   foreign import javascript unsafe "$1[\"valueAsString\"] = $2;"-        js_setValueAsString ::-        JSRef SVGAngle -> JSRef (Maybe JSString) -> IO ()+        js_setValueAsString :: SVGAngle -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueAsString Mozilla SVGAngle.valueAsString documentation>  setValueAsString ::                  (MonadIO m, ToJSString val) => SVGAngle -> Maybe val -> m () setValueAsString self val-  = liftIO-      (js_setValueAsString (unSVGAngle self) (toMaybeJSString val))+  = liftIO (js_setValueAsString (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"valueAsString\"]"-        js_getValueAsString ::-        JSRef SVGAngle -> IO (JSRef (Maybe JSString))+        js_getValueAsString :: SVGAngle -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAngle.valueAsString Mozilla SVGAngle.valueAsString documentation>  getValueAsString ::                  (MonadIO m, FromJSString result) => SVGAngle -> m (Maybe result) getValueAsString self-  = liftIO-      (fromMaybeJSString <$> (js_getValueAsString (unSVGAngle self)))+  = liftIO (fromMaybeJSString <$> (js_getValueAsString (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedAngle.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,17 +19,17 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::-        JSRef SVGAnimatedAngle -> IO (JSRef SVGAngle)+        SVGAnimatedAngle -> IO (Nullable SVGAngle)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.baseVal Mozilla SVGAnimatedAngle.baseVal documentation>  getBaseVal :: (MonadIO m) => SVGAnimatedAngle -> m (Maybe SVGAngle) getBaseVal self-  = liftIO ((js_getBaseVal (unSVGAnimatedAngle self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::-        JSRef SVGAnimatedAngle -> IO (JSRef SVGAngle)+        SVGAnimatedAngle -> IO (Nullable SVGAngle)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedAngle.animVal Mozilla SVGAnimatedAngle.animVal documentation>  getAnimVal :: (MonadIO m) => SVGAnimatedAngle -> m (Maybe SVGAngle) getAnimVal self-  = liftIO ((js_getAnimVal (unSVGAnimatedAngle self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedBoolean.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,25 +20,22 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"baseVal\"] = $2;"-        js_setBaseVal :: JSRef SVGAnimatedBoolean -> Bool -> IO ()+        js_setBaseVal :: SVGAnimatedBoolean -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedBoolean.baseVal Mozilla SVGAnimatedBoolean.baseVal documentation>  setBaseVal :: (MonadIO m) => SVGAnimatedBoolean -> Bool -> m ()-setBaseVal self val-  = liftIO (js_setBaseVal (unSVGAnimatedBoolean self) val)+setBaseVal self val = liftIO (js_setBaseVal (self) val)   foreign import javascript unsafe "($1[\"baseVal\"] ? 1 : 0)"-        js_getBaseVal :: JSRef SVGAnimatedBoolean -> IO Bool+        js_getBaseVal :: SVGAnimatedBoolean -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedBoolean.baseVal Mozilla SVGAnimatedBoolean.baseVal documentation>  getBaseVal :: (MonadIO m) => SVGAnimatedBoolean -> m Bool-getBaseVal self-  = liftIO (js_getBaseVal (unSVGAnimatedBoolean self))+getBaseVal self = liftIO (js_getBaseVal (self))   foreign import javascript unsafe "($1[\"animVal\"] ? 1 : 0)"-        js_getAnimVal :: JSRef SVGAnimatedBoolean -> IO Bool+        js_getAnimVal :: SVGAnimatedBoolean -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedBoolean.animVal Mozilla SVGAnimatedBoolean.animVal documentation>  getAnimVal :: (MonadIO m) => SVGAnimatedBoolean -> m Bool-getAnimVal self-  = liftIO (js_getAnimVal (unSVGAnimatedBoolean self))+getAnimVal self = liftIO (js_getAnimVal (self))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedEnumeration.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,25 +20,22 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"baseVal\"] = $2;"-        js_setBaseVal :: JSRef SVGAnimatedEnumeration -> Word -> IO ()+        js_setBaseVal :: SVGAnimatedEnumeration -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedEnumeration.baseVal Mozilla SVGAnimatedEnumeration.baseVal documentation>  setBaseVal :: (MonadIO m) => SVGAnimatedEnumeration -> Word -> m ()-setBaseVal self val-  = liftIO (js_setBaseVal (unSVGAnimatedEnumeration self) val)+setBaseVal self val = liftIO (js_setBaseVal (self) val)   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::-        JSRef SVGAnimatedEnumeration -> IO Word+        SVGAnimatedEnumeration -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedEnumeration.baseVal Mozilla SVGAnimatedEnumeration.baseVal documentation>  getBaseVal :: (MonadIO m) => SVGAnimatedEnumeration -> m Word-getBaseVal self-  = liftIO (js_getBaseVal (unSVGAnimatedEnumeration self))+getBaseVal self = liftIO (js_getBaseVal (self))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::-        JSRef SVGAnimatedEnumeration -> IO Word+        SVGAnimatedEnumeration -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedEnumeration.animVal Mozilla SVGAnimatedEnumeration.animVal documentation>  getAnimVal :: (MonadIO m) => SVGAnimatedEnumeration -> m Word-getAnimVal self-  = liftIO (js_getAnimVal (unSVGAnimatedEnumeration self))+getAnimVal self = liftIO (js_getAnimVal (self))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedInteger.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,25 +20,22 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"baseVal\"] = $2;"-        js_setBaseVal :: JSRef SVGAnimatedInteger -> Int -> IO ()+        js_setBaseVal :: SVGAnimatedInteger -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedInteger.baseVal Mozilla SVGAnimatedInteger.baseVal documentation>  setBaseVal :: (MonadIO m) => SVGAnimatedInteger -> Int -> m ()-setBaseVal self val-  = liftIO (js_setBaseVal (unSVGAnimatedInteger self) val)+setBaseVal self val = liftIO (js_setBaseVal (self) val)   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::-        JSRef SVGAnimatedInteger -> IO Int+        SVGAnimatedInteger -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedInteger.baseVal Mozilla SVGAnimatedInteger.baseVal documentation>  getBaseVal :: (MonadIO m) => SVGAnimatedInteger -> m Int-getBaseVal self-  = liftIO (js_getBaseVal (unSVGAnimatedInteger self))+getBaseVal self = liftIO (js_getBaseVal (self))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::-        JSRef SVGAnimatedInteger -> IO Int+        SVGAnimatedInteger -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedInteger.animVal Mozilla SVGAnimatedInteger.animVal documentation>  getAnimVal :: (MonadIO m) => SVGAnimatedInteger -> m Int-getAnimVal self-  = liftIO (js_getAnimVal (unSVGAnimatedInteger self))+getAnimVal self = liftIO (js_getAnimVal (self))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLength.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,19 +19,19 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::-        JSRef SVGAnimatedLength -> IO (JSRef SVGLength)+        SVGAnimatedLength -> IO (Nullable SVGLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.baseVal Mozilla SVGAnimatedLength.baseVal documentation>  getBaseVal ::            (MonadIO m) => SVGAnimatedLength -> m (Maybe SVGLength) getBaseVal self-  = liftIO ((js_getBaseVal (unSVGAnimatedLength self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::-        JSRef SVGAnimatedLength -> IO (JSRef SVGLength)+        SVGAnimatedLength -> IO (Nullable SVGLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLength.animVal Mozilla SVGAnimatedLength.animVal documentation>  getAnimVal ::            (MonadIO m) => SVGAnimatedLength -> m (Maybe SVGLength) getAnimVal self-  = liftIO ((js_getAnimVal (unSVGAnimatedLength self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedLengthList.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,21 +20,19 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::-        JSRef SVGAnimatedLengthList -> IO (JSRef SVGLengthList)+        SVGAnimatedLengthList -> IO (Nullable SVGLengthList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.baseVal Mozilla SVGAnimatedLengthList.baseVal documentation>  getBaseVal ::            (MonadIO m) => SVGAnimatedLengthList -> m (Maybe SVGLengthList) getBaseVal self-  = liftIO-      ((js_getBaseVal (unSVGAnimatedLengthList self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::-        JSRef SVGAnimatedLengthList -> IO (JSRef SVGLengthList)+        SVGAnimatedLengthList -> IO (Nullable SVGLengthList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedLengthList.animVal Mozilla SVGAnimatedLengthList.animVal documentation>  getAnimVal ::            (MonadIO m) => SVGAnimatedLengthList -> m (Maybe SVGLengthList) getAnimVal self-  = liftIO-      ((js_getAnimVal (unSVGAnimatedLengthList self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumber.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,23 +20,22 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"baseVal\"] = $2;"-        js_setBaseVal :: JSRef SVGAnimatedNumber -> Float -> IO ()+        js_setBaseVal :: SVGAnimatedNumber -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumber.baseVal Mozilla SVGAnimatedNumber.baseVal documentation>  setBaseVal :: (MonadIO m) => SVGAnimatedNumber -> Float -> m ()-setBaseVal self val-  = liftIO (js_setBaseVal (unSVGAnimatedNumber self) val)+setBaseVal self val = liftIO (js_setBaseVal (self) val)   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::-        JSRef SVGAnimatedNumber -> IO Float+        SVGAnimatedNumber -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumber.baseVal Mozilla SVGAnimatedNumber.baseVal documentation>  getBaseVal :: (MonadIO m) => SVGAnimatedNumber -> m Float-getBaseVal self = liftIO (js_getBaseVal (unSVGAnimatedNumber self))+getBaseVal self = liftIO (js_getBaseVal (self))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::-        JSRef SVGAnimatedNumber -> IO Float+        SVGAnimatedNumber -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumber.animVal Mozilla SVGAnimatedNumber.animVal documentation>  getAnimVal :: (MonadIO m) => SVGAnimatedNumber -> m Float-getAnimVal self = liftIO (js_getAnimVal (unSVGAnimatedNumber self))+getAnimVal self = liftIO (js_getAnimVal (self))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedNumberList.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,21 +20,19 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::-        JSRef SVGAnimatedNumberList -> IO (JSRef SVGNumberList)+        SVGAnimatedNumberList -> IO (Nullable SVGNumberList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.baseVal Mozilla SVGAnimatedNumberList.baseVal documentation>  getBaseVal ::            (MonadIO m) => SVGAnimatedNumberList -> m (Maybe SVGNumberList) getBaseVal self-  = liftIO-      ((js_getBaseVal (unSVGAnimatedNumberList self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::-        JSRef SVGAnimatedNumberList -> IO (JSRef SVGNumberList)+        SVGAnimatedNumberList -> IO (Nullable SVGNumberList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedNumberList.animVal Mozilla SVGAnimatedNumberList.animVal documentation>  getAnimVal ::            (MonadIO m) => SVGAnimatedNumberList -> m (Maybe SVGNumberList) getAnimVal self-  = liftIO-      ((js_getAnimVal (unSVGAnimatedNumberList self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedPreserveAspectRatio.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,27 +21,23 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::-        JSRef SVGAnimatedPreserveAspectRatio ->-          IO (JSRef SVGPreserveAspectRatio)+        SVGAnimatedPreserveAspectRatio ->+          IO (Nullable SVGPreserveAspectRatio)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.baseVal Mozilla SVGAnimatedPreserveAspectRatio.baseVal documentation>  getBaseVal ::            (MonadIO m) =>              SVGAnimatedPreserveAspectRatio -> m (Maybe SVGPreserveAspectRatio) getBaseVal self-  = liftIO-      ((js_getBaseVal (unSVGAnimatedPreserveAspectRatio self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::-        JSRef SVGAnimatedPreserveAspectRatio ->-          IO (JSRef SVGPreserveAspectRatio)+        SVGAnimatedPreserveAspectRatio ->+          IO (Nullable SVGPreserveAspectRatio)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedPreserveAspectRatio.animVal Mozilla SVGAnimatedPreserveAspectRatio.animVal documentation>  getAnimVal ::            (MonadIO m) =>              SVGAnimatedPreserveAspectRatio -> m (Maybe SVGPreserveAspectRatio) getAnimVal self-  = liftIO-      ((js_getAnimVal (unSVGAnimatedPreserveAspectRatio self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedRect.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,17 +19,17 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::-        JSRef SVGAnimatedRect -> IO (JSRef SVGRect)+        SVGAnimatedRect -> IO (Nullable SVGRect)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.baseVal Mozilla SVGAnimatedRect.baseVal documentation>  getBaseVal :: (MonadIO m) => SVGAnimatedRect -> m (Maybe SVGRect) getBaseVal self-  = liftIO ((js_getBaseVal (unSVGAnimatedRect self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::-        JSRef SVGAnimatedRect -> IO (JSRef SVGRect)+        SVGAnimatedRect -> IO (Nullable SVGRect)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedRect.animVal Mozilla SVGAnimatedRect.animVal documentation>  getAnimVal :: (MonadIO m) => SVGAnimatedRect -> m (Maybe SVGRect) getAnimVal self-  = liftIO ((js_getAnimVal (unSVGAnimatedRect self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedString.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,31 +20,26 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"baseVal\"] = $2;"-        js_setBaseVal :: JSRef SVGAnimatedString -> JSString -> IO ()+        js_setBaseVal :: SVGAnimatedString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedString.baseVal Mozilla SVGAnimatedString.baseVal documentation>  setBaseVal ::            (MonadIO m, ToJSString val) => SVGAnimatedString -> val -> m () setBaseVal self val-  = liftIO-      (js_setBaseVal (unSVGAnimatedString self) (toJSString val))+  = liftIO (js_setBaseVal (self) (toJSString val))   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::-        JSRef SVGAnimatedString -> IO JSString+        SVGAnimatedString -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedString.baseVal Mozilla SVGAnimatedString.baseVal documentation>  getBaseVal ::            (MonadIO m, FromJSString result) => SVGAnimatedString -> m result-getBaseVal self-  = liftIO-      (fromJSString <$> (js_getBaseVal (unSVGAnimatedString self)))+getBaseVal self = liftIO (fromJSString <$> (js_getBaseVal (self)))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::-        JSRef SVGAnimatedString -> IO JSString+        SVGAnimatedString -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedString.animVal Mozilla SVGAnimatedString.animVal documentation>  getAnimVal ::            (MonadIO m, FromJSString result) => SVGAnimatedString -> m result-getAnimVal self-  = liftIO-      (fromJSString <$> (js_getAnimVal (unSVGAnimatedString self)))+getAnimVal self = liftIO (fromJSString <$> (js_getAnimVal (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimatedTransformList.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,23 +20,21 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"baseVal\"]" js_getBaseVal ::-        JSRef SVGAnimatedTransformList -> IO (JSRef SVGTransformList)+        SVGAnimatedTransformList -> IO (Nullable SVGTransformList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.baseVal Mozilla SVGAnimatedTransformList.baseVal documentation>  getBaseVal ::            (MonadIO m) =>              SVGAnimatedTransformList -> m (Maybe SVGTransformList) getBaseVal self-  = liftIO-      ((js_getBaseVal (unSVGAnimatedTransformList self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getBaseVal (self)))   foreign import javascript unsafe "$1[\"animVal\"]" js_getAnimVal ::-        JSRef SVGAnimatedTransformList -> IO (JSRef SVGTransformList)+        SVGAnimatedTransformList -> IO (Nullable SVGTransformList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimatedTransformList.animVal Mozilla SVGAnimatedTransformList.animVal documentation>  getAnimVal ::            (MonadIO m) =>              SVGAnimatedTransformList -> m (Maybe SVGTransformList) getAnimVal self-  = liftIO-      ((js_getAnimVal (unSVGAnimatedTransformList self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAnimVal (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGAnimationElement.hs view
@@ -10,7 +10,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,87 +24,71 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"getStartTime\"]()"-        js_getStartTime :: JSRef SVGAnimationElement -> IO Float+        js_getStartTime :: SVGAnimationElement -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.getStartTime Mozilla SVGAnimationElement.getStartTime documentation>  getStartTime ::              (MonadIO m, IsSVGAnimationElement self) => self -> m Float getStartTime self-  = liftIO-      (js_getStartTime-         (unSVGAnimationElement (toSVGAnimationElement self)))+  = liftIO (js_getStartTime (toSVGAnimationElement self))   foreign import javascript unsafe "$1[\"getCurrentTime\"]()"-        js_getCurrentTime :: JSRef SVGAnimationElement -> IO Float+        js_getCurrentTime :: SVGAnimationElement -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.getCurrentTime Mozilla SVGAnimationElement.getCurrentTime documentation>  getCurrentTime ::                (MonadIO m, IsSVGAnimationElement self) => self -> m Float getCurrentTime self-  = liftIO-      (js_getCurrentTime-         (unSVGAnimationElement (toSVGAnimationElement self)))+  = liftIO (js_getCurrentTime (toSVGAnimationElement self))   foreign import javascript unsafe "$1[\"getSimpleDuration\"]()"-        js_getSimpleDuration :: JSRef SVGAnimationElement -> IO Float+        js_getSimpleDuration :: SVGAnimationElement -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.getSimpleDuration Mozilla SVGAnimationElement.getSimpleDuration documentation>  getSimpleDuration ::                   (MonadIO m, IsSVGAnimationElement self) => self -> m Float getSimpleDuration self-  = liftIO-      (js_getSimpleDuration-         (unSVGAnimationElement (toSVGAnimationElement self)))+  = liftIO (js_getSimpleDuration (toSVGAnimationElement self))   foreign import javascript unsafe "$1[\"beginElement\"]()"-        js_beginElement :: JSRef SVGAnimationElement -> IO ()+        js_beginElement :: SVGAnimationElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.beginElement Mozilla SVGAnimationElement.beginElement documentation>  beginElement ::              (MonadIO m, IsSVGAnimationElement self) => self -> m () beginElement self-  = liftIO-      (js_beginElement-         (unSVGAnimationElement (toSVGAnimationElement self)))+  = liftIO (js_beginElement (toSVGAnimationElement self))   foreign import javascript unsafe "$1[\"beginElementAt\"]($2)"-        js_beginElementAt :: JSRef SVGAnimationElement -> Float -> IO ()+        js_beginElementAt :: SVGAnimationElement -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.beginElementAt Mozilla SVGAnimationElement.beginElementAt documentation>  beginElementAt ::                (MonadIO m, IsSVGAnimationElement self) => self -> Float -> m () beginElementAt self offset-  = liftIO-      (js_beginElementAt-         (unSVGAnimationElement (toSVGAnimationElement self))-         offset)+  = liftIO (js_beginElementAt (toSVGAnimationElement self) offset)   foreign import javascript unsafe "$1[\"endElement\"]()"-        js_endElement :: JSRef SVGAnimationElement -> IO ()+        js_endElement :: SVGAnimationElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.endElement Mozilla SVGAnimationElement.endElement documentation>  endElement ::            (MonadIO m, IsSVGAnimationElement self) => self -> m () endElement self-  = liftIO-      (js_endElement-         (unSVGAnimationElement (toSVGAnimationElement self)))+  = liftIO (js_endElement (toSVGAnimationElement self))   foreign import javascript unsafe "$1[\"endElementAt\"]($2)"-        js_endElementAt :: JSRef SVGAnimationElement -> Float -> IO ()+        js_endElementAt :: SVGAnimationElement -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.endElementAt Mozilla SVGAnimationElement.endElementAt documentation>  endElementAt ::              (MonadIO m, IsSVGAnimationElement self) => self -> Float -> m () endElementAt self offset-  = liftIO-      (js_endElementAt-         (unSVGAnimationElement (toSVGAnimationElement self))-         offset)+  = liftIO (js_endElementAt (toSVGAnimationElement self) offset)   foreign import javascript unsafe "$1[\"targetElement\"]"         js_getTargetElement ::-        JSRef SVGAnimationElement -> IO (JSRef SVGElement)+        SVGAnimationElement -> IO (Nullable SVGElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGAnimationElement.targetElement Mozilla SVGAnimationElement.targetElement documentation>  getTargetElement ::@@ -112,6 +96,5 @@                    self -> m (Maybe SVGElement) getTargetElement self   = liftIO-      ((js_getTargetElement-          (unSVGAnimationElement (toSVGAnimationElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getTargetElement (toSVGAnimationElement self)))
src/GHCJS/DOM/JSFFI/Generated/SVGCircleElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,28 +19,25 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"cx\"]" js_getCx ::-        JSRef SVGCircleElement -> IO (JSRef SVGAnimatedLength)+        SVGCircleElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cx Mozilla SVGCircleElement.cx documentation>  getCx ::       (MonadIO m) => SVGCircleElement -> m (Maybe SVGAnimatedLength)-getCx self-  = liftIO ((js_getCx (unSVGCircleElement self)) >>= fromJSRef)+getCx self = liftIO (nullableToMaybe <$> (js_getCx (self)))   foreign import javascript unsafe "$1[\"cy\"]" js_getCy ::-        JSRef SVGCircleElement -> IO (JSRef SVGAnimatedLength)+        SVGCircleElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.cy Mozilla SVGCircleElement.cy documentation>  getCy ::       (MonadIO m) => SVGCircleElement -> m (Maybe SVGAnimatedLength)-getCy self-  = liftIO ((js_getCy (unSVGCircleElement self)) >>= fromJSRef)+getCy self = liftIO (nullableToMaybe <$> (js_getCy (self)))   foreign import javascript unsafe "$1[\"r\"]" js_getR ::-        JSRef SVGCircleElement -> IO (JSRef SVGAnimatedLength)+        SVGCircleElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCircleElement.r Mozilla SVGCircleElement.r documentation>  getR ::      (MonadIO m) => SVGCircleElement -> m (Maybe SVGAnimatedLength)-getR self-  = liftIO ((js_getR (unSVGCircleElement self)) >>= fromJSRef)+getR self = liftIO (nullableToMaybe <$> (js_getR (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGClipPathElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,12 +20,11 @@   foreign import javascript unsafe "$1[\"clipPathUnits\"]"         js_getClipPathUnits ::-        JSRef SVGClipPathElement -> IO (JSRef SVGAnimatedEnumeration)+        SVGClipPathElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGClipPathElement.clipPathUnits Mozilla SVGClipPathElement.clipPathUnits documentation>  getClipPathUnits ::                  (MonadIO m) =>                    SVGClipPathElement -> m (Maybe SVGAnimatedEnumeration) getClipPathUnits self-  = liftIO-      ((js_getClipPathUnits (unSVGClipPathElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getClipPathUnits (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGColor.hs view
@@ -10,7 +10,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,20 +24,18 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"setRGBColor\"]($2)"-        js_setRGBColor :: JSRef SVGColor -> JSString -> IO ()+        js_setRGBColor :: SVGColor -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.setRGBColor Mozilla SVGColor.setRGBColor documentation>  setRGBColor ::             (MonadIO m, IsSVGColor self, ToJSString rgbColor) =>               self -> rgbColor -> m () setRGBColor self rgbColor-  = liftIO-      (js_setRGBColor (unSVGColor (toSVGColor self))-         (toJSString rgbColor))+  = liftIO (js_setRGBColor (toSVGColor self) (toJSString rgbColor))   foreign import javascript unsafe         "$1[\"setRGBColorICCColor\"]($2,\n$3)" js_setRGBColorICCColor ::-        JSRef SVGColor -> JSString -> JSString -> IO ()+        SVGColor -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.setRGBColorICCColor Mozilla SVGColor.setRGBColorICCColor documentation>  setRGBColorICCColor ::@@ -46,13 +44,11 @@                       self -> rgbColor -> iccColor -> m () setRGBColorICCColor self rgbColor iccColor   = liftIO-      (js_setRGBColorICCColor (unSVGColor (toSVGColor self))-         (toJSString rgbColor)+      (js_setRGBColorICCColor (toSVGColor self) (toJSString rgbColor)          (toJSString iccColor))   foreign import javascript unsafe "$1[\"setColor\"]($2, $3, $4)"-        js_setColor ::-        JSRef SVGColor -> Word -> JSString -> JSString -> IO ()+        js_setColor :: SVGColor -> Word -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.setColor Mozilla SVGColor.setColor documentation>  setColor ::@@ -61,8 +57,7 @@            self -> Word -> rgbColor -> iccColor -> m () setColor self colorType rgbColor iccColor   = liftIO-      (js_setColor (unSVGColor (toSVGColor self)) colorType-         (toJSString rgbColor)+      (js_setColor (toSVGColor self) colorType (toJSString rgbColor)          (toJSString iccColor)) pattern SVG_COLORTYPE_UNKNOWN = 0 pattern SVG_COLORTYPE_RGBCOLOR = 1@@ -70,19 +65,17 @@ pattern SVG_COLORTYPE_CURRENTCOLOR = 3   foreign import javascript unsafe "$1[\"colorType\"]"-        js_getColorType :: JSRef SVGColor -> IO Word+        js_getColorType :: SVGColor -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.colorType Mozilla SVGColor.colorType documentation>  getColorType :: (MonadIO m, IsSVGColor self) => self -> m Word-getColorType self-  = liftIO (js_getColorType (unSVGColor (toSVGColor self)))+getColorType self = liftIO (js_getColorType (toSVGColor self))   foreign import javascript unsafe "$1[\"rgbColor\"]" js_getRgbColor-        :: JSRef SVGColor -> IO (JSRef RGBColor)+        :: SVGColor -> IO (Nullable RGBColor)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGColor.rgbColor Mozilla SVGColor.rgbColor documentation>  getRgbColor ::             (MonadIO m, IsSVGColor self) => self -> m (Maybe RGBColor) getRgbColor self-  = liftIO-      ((js_getRgbColor (unSVGColor (toSVGColor self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getRgbColor (toSVGColor self)))
src/GHCJS/DOM/JSFFI/Generated/SVGComponentTransferFunctionElement.hs view
@@ -17,7 +17,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -37,8 +37,8 @@ pattern SVG_FECOMPONENTTRANSFER_TYPE_GAMMA = 5   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef SVGComponentTransferFunctionElement ->-          IO (JSRef SVGAnimatedEnumeration)+        SVGComponentTransferFunctionElement ->+          IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.type Mozilla SVGComponentTransferFunctionElement.type documentation>  getType ::@@ -46,15 +46,13 @@           self -> m (Maybe SVGAnimatedEnumeration) getType self   = liftIO-      ((js_getType-          (unSVGComponentTransferFunctionElement-             (toSVGComponentTransferFunctionElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getType (toSVGComponentTransferFunctionElement self)))   foreign import javascript unsafe "$1[\"tableValues\"]"         js_getTableValues ::-        JSRef SVGComponentTransferFunctionElement ->-          IO (JSRef SVGAnimatedNumberList)+        SVGComponentTransferFunctionElement ->+          IO (Nullable SVGAnimatedNumberList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.tableValues Mozilla SVGComponentTransferFunctionElement.tableValues documentation>  getTableValues ::@@ -62,14 +60,12 @@                  self -> m (Maybe SVGAnimatedNumberList) getTableValues self   = liftIO-      ((js_getTableValues-          (unSVGComponentTransferFunctionElement-             (toSVGComponentTransferFunctionElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getTableValues (toSVGComponentTransferFunctionElement self)))   foreign import javascript unsafe "$1[\"slope\"]" js_getSlope ::-        JSRef SVGComponentTransferFunctionElement ->-          IO (JSRef SVGAnimatedNumber)+        SVGComponentTransferFunctionElement ->+          IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.slope Mozilla SVGComponentTransferFunctionElement.slope documentation>  getSlope ::@@ -77,15 +73,13 @@            self -> m (Maybe SVGAnimatedNumber) getSlope self   = liftIO-      ((js_getSlope-          (unSVGComponentTransferFunctionElement-             (toSVGComponentTransferFunctionElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getSlope (toSVGComponentTransferFunctionElement self)))   foreign import javascript unsafe "$1[\"intercept\"]"         js_getIntercept ::-        JSRef SVGComponentTransferFunctionElement ->-          IO (JSRef SVGAnimatedNumber)+        SVGComponentTransferFunctionElement ->+          IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.intercept Mozilla SVGComponentTransferFunctionElement.intercept documentation>  getIntercept ::@@ -93,15 +87,13 @@                self -> m (Maybe SVGAnimatedNumber) getIntercept self   = liftIO-      ((js_getIntercept-          (unSVGComponentTransferFunctionElement-             (toSVGComponentTransferFunctionElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getIntercept (toSVGComponentTransferFunctionElement self)))   foreign import javascript unsafe "$1[\"amplitude\"]"         js_getAmplitude ::-        JSRef SVGComponentTransferFunctionElement ->-          IO (JSRef SVGAnimatedNumber)+        SVGComponentTransferFunctionElement ->+          IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.amplitude Mozilla SVGComponentTransferFunctionElement.amplitude documentation>  getAmplitude ::@@ -109,15 +101,13 @@                self -> m (Maybe SVGAnimatedNumber) getAmplitude self   = liftIO-      ((js_getAmplitude-          (unSVGComponentTransferFunctionElement-             (toSVGComponentTransferFunctionElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getAmplitude (toSVGComponentTransferFunctionElement self)))   foreign import javascript unsafe "$1[\"exponent\"]" js_getExponent         ::-        JSRef SVGComponentTransferFunctionElement ->-          IO (JSRef SVGAnimatedNumber)+        SVGComponentTransferFunctionElement ->+          IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.exponent Mozilla SVGComponentTransferFunctionElement.exponent documentation>  getExponent ::@@ -125,14 +115,12 @@               self -> m (Maybe SVGAnimatedNumber) getExponent self   = liftIO-      ((js_getExponent-          (unSVGComponentTransferFunctionElement-             (toSVGComponentTransferFunctionElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getExponent (toSVGComponentTransferFunctionElement self)))   foreign import javascript unsafe "$1[\"offset\"]" js_getOffset ::-        JSRef SVGComponentTransferFunctionElement ->-          IO (JSRef SVGAnimatedNumber)+        SVGComponentTransferFunctionElement ->+          IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGComponentTransferFunctionElement.offset Mozilla SVGComponentTransferFunctionElement.offset documentation>  getOffset ::@@ -140,7 +128,5 @@             self -> m (Maybe SVGAnimatedNumber) getOffset self   = liftIO-      ((js_getOffset-          (unSVGComponentTransferFunctionElement-             (toSVGComponentTransferFunctionElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getOffset (toSVGComponentTransferFunctionElement self)))
src/GHCJS/DOM/JSFFI/Generated/SVGCursorElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,19 +19,17 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGCursorElement -> IO (JSRef SVGAnimatedLength)+        SVGCursorElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.x Mozilla SVGCursorElement.x documentation>  getX ::      (MonadIO m) => SVGCursorElement -> m (Maybe SVGAnimatedLength)-getX self-  = liftIO ((js_getX (unSVGCursorElement self)) >>= fromJSRef)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGCursorElement -> IO (JSRef SVGAnimatedLength)+        SVGCursorElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGCursorElement.y Mozilla SVGCursorElement.y documentation>  getY ::      (MonadIO m) => SVGCursorElement -> m (Maybe SVGAnimatedLength)-getY self-  = liftIO ((js_getY (unSVGCursorElement self)) >>= fromJSRef)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGDocument.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,7 +19,7 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"createEvent\"]($2)"-        js_createEvent :: JSRef SVGDocument -> JSString -> IO (JSRef Event)+        js_createEvent :: SVGDocument -> JSString -> IO (Nullable Event)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.createEvent Mozilla SVGDocument.createEvent documentation>  createEvent ::@@ -27,14 +27,14 @@               SVGDocument -> eventType -> m (Maybe Event) createEvent self eventType   = liftIO-      ((js_createEvent (unSVGDocument self) (toJSString eventType)) >>=-         fromJSRef)+      (nullableToMaybe <$>+         (js_createEvent (self) (toJSString eventType)))   foreign import javascript unsafe "$1[\"rootElement\"]"-        js_getRootElement :: JSRef SVGDocument -> IO (JSRef SVGSVGElement)+        js_getRootElement :: SVGDocument -> IO (Nullable SVGSVGElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGDocument.rootElement Mozilla SVGDocument.rootElement documentation>  getRootElement ::                (MonadIO m) => SVGDocument -> m (Maybe SVGSVGElement) getRootElement self-  = liftIO ((js_getRootElement (unSVGDocument self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getRootElement (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGElement.hs view
@@ -12,7 +12,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,7 +27,7 @@   foreign import javascript unsafe         "$1[\"getPresentationAttribute\"]($2)" js_getPresentationAttribute-        :: JSRef SVGElement -> JSString -> IO (JSRef CSSValue)+        :: SVGElement -> JSString -> IO (Nullable CSSValue)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.getPresentationAttribute Mozilla SVGElement.getPresentationAttribute documentation>  getPresentationAttribute ::@@ -35,25 +35,22 @@                            self -> name -> m (Maybe CSSValue) getPresentationAttribute self name   = liftIO-      ((js_getPresentationAttribute (unSVGElement (toSVGElement self))-          (toJSString name))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getPresentationAttribute (toSVGElement self)+            (toJSString name)))   foreign import javascript unsafe "$1[\"xmlbase\"] = $2;"-        js_setXmlbase ::-        JSRef SVGElement -> JSRef (Maybe JSString) -> IO ()+        js_setXmlbase :: SVGElement -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlbase Mozilla SVGElement.xmlbase documentation>  setXmlbase ::            (MonadIO m, IsSVGElement self, ToJSString val) =>              self -> Maybe val -> m () setXmlbase self val-  = liftIO-      (js_setXmlbase (unSVGElement (toSVGElement self))-         (toMaybeJSString val))+  = liftIO (js_setXmlbase (toSVGElement self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"xmlbase\"]" js_getXmlbase ::-        JSRef SVGElement -> IO (JSRef (Maybe JSString))+        SVGElement -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlbase Mozilla SVGElement.xmlbase documentation>  getXmlbase ::@@ -61,81 +58,70 @@              self -> m (Maybe result) getXmlbase self   = liftIO-      (fromMaybeJSString <$>-         (js_getXmlbase (unSVGElement (toSVGElement self))))+      (fromMaybeJSString <$> (js_getXmlbase (toSVGElement self)))   foreign import javascript unsafe "$1[\"ownerSVGElement\"]"-        js_getOwnerSVGElement ::-        JSRef SVGElement -> IO (JSRef SVGSVGElement)+        js_getOwnerSVGElement :: SVGElement -> IO (Nullable SVGSVGElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.ownerSVGElement Mozilla SVGElement.ownerSVGElement documentation>  getOwnerSVGElement ::                    (MonadIO m, IsSVGElement self) => self -> m (Maybe SVGSVGElement) getOwnerSVGElement self   = liftIO-      ((js_getOwnerSVGElement (unSVGElement (toSVGElement self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getOwnerSVGElement (toSVGElement self)))   foreign import javascript unsafe "$1[\"viewportElement\"]"-        js_getViewportElement :: JSRef SVGElement -> IO (JSRef SVGElement)+        js_getViewportElement :: SVGElement -> IO (Nullable SVGElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.viewportElement Mozilla SVGElement.viewportElement documentation>  getViewportElement ::                    (MonadIO m, IsSVGElement self) => self -> m (Maybe SVGElement) getViewportElement self   = liftIO-      ((js_getViewportElement (unSVGElement (toSVGElement self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getViewportElement (toSVGElement self)))   foreign import javascript unsafe "$1[\"xmllang\"] = $2;"-        js_setXmllang :: JSRef SVGElement -> JSString -> IO ()+        js_setXmllang :: SVGElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmllang Mozilla SVGElement.xmllang documentation>  setXmllang ::            (MonadIO m, IsSVGElement self, ToJSString val) =>              self -> val -> m () setXmllang self val-  = liftIO-      (js_setXmllang (unSVGElement (toSVGElement self)) (toJSString val))+  = liftIO (js_setXmllang (toSVGElement self) (toJSString val))   foreign import javascript unsafe "$1[\"xmllang\"]" js_getXmllang ::-        JSRef SVGElement -> IO JSString+        SVGElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmllang Mozilla SVGElement.xmllang documentation>  getXmllang ::            (MonadIO m, IsSVGElement self, FromJSString result) =>              self -> m result getXmllang self-  = liftIO-      (fromJSString <$>-         (js_getXmllang (unSVGElement (toSVGElement self))))+  = liftIO (fromJSString <$> (js_getXmllang (toSVGElement self)))   foreign import javascript unsafe "$1[\"xmlspace\"] = $2;"-        js_setXmlspace :: JSRef SVGElement -> JSString -> IO ()+        js_setXmlspace :: SVGElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlspace Mozilla SVGElement.xmlspace documentation>  setXmlspace ::             (MonadIO m, IsSVGElement self, ToJSString val) =>               self -> val -> m () setXmlspace self val-  = liftIO-      (js_setXmlspace (unSVGElement (toSVGElement self))-         (toJSString val))+  = liftIO (js_setXmlspace (toSVGElement self) (toJSString val))   foreign import javascript unsafe "$1[\"xmlspace\"]" js_getXmlspace-        :: JSRef SVGElement -> IO JSString+        :: SVGElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.xmlspace Mozilla SVGElement.xmlspace documentation>  getXmlspace ::             (MonadIO m, IsSVGElement self, FromJSString result) =>               self -> m result getXmlspace self-  = liftIO-      (fromJSString <$>-         (js_getXmlspace (unSVGElement (toSVGElement self))))+  = liftIO (fromJSString <$> (js_getXmlspace (toSVGElement self)))   foreign import javascript unsafe "$1[\"className\"]"-        js_getClassName :: JSRef SVGElement -> IO (JSRef SVGAnimatedString)+        js_getClassName :: SVGElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.className Mozilla SVGElement.className documentation>  getClassName ::@@ -143,33 +129,30 @@                self -> m (Maybe SVGAnimatedString) getClassName self   = liftIO-      ((js_getClassName (unSVGElement (toSVGElement self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getClassName (toSVGElement self)))   foreign import javascript unsafe "$1[\"style\"]" js_getStyle ::-        JSRef SVGElement -> IO (JSRef CSSStyleDeclaration)+        SVGElement -> IO (Nullable CSSStyleDeclaration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.style Mozilla SVGElement.style documentation>  getStyle ::          (MonadIO m, IsSVGElement self) =>            self -> m (Maybe CSSStyleDeclaration) getStyle self-  = liftIO-      ((js_getStyle (unSVGElement (toSVGElement self))) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getStyle (toSVGElement self)))   foreign import javascript unsafe "$1[\"tabIndex\"] = $2;"-        js_setTabIndex :: JSRef SVGElement -> Int -> IO ()+        js_setTabIndex :: SVGElement -> Int -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.tabIndex Mozilla SVGElement.tabIndex documentation>  setTabIndex ::             (MonadIO m, IsSVGElement self) => self -> Int -> m () setTabIndex self val-  = liftIO (js_setTabIndex (unSVGElement (toSVGElement self)) val)+  = liftIO (js_setTabIndex (toSVGElement self) val)   foreign import javascript unsafe "$1[\"tabIndex\"]" js_getTabIndex-        :: JSRef SVGElement -> IO Int+        :: SVGElement -> IO Int  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGElement.tabIndex Mozilla SVGElement.tabIndex documentation>  getTabIndex :: (MonadIO m, IsSVGElement self) => self -> m Int-getTabIndex self-  = liftIO (js_getTabIndex (unSVGElement (toSVGElement self)))+getTabIndex self = liftIO (js_getTabIndex (toSVGElement self))
src/GHCJS/DOM/JSFFI/Generated/SVGEllipseElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,37 +20,33 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"cx\"]" js_getCx ::-        JSRef SVGEllipseElement -> IO (JSRef SVGAnimatedLength)+        SVGEllipseElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cx Mozilla SVGEllipseElement.cx documentation>  getCx ::       (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength)-getCx self-  = liftIO ((js_getCx (unSVGEllipseElement self)) >>= fromJSRef)+getCx self = liftIO (nullableToMaybe <$> (js_getCx (self)))   foreign import javascript unsafe "$1[\"cy\"]" js_getCy ::-        JSRef SVGEllipseElement -> IO (JSRef SVGAnimatedLength)+        SVGEllipseElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.cy Mozilla SVGEllipseElement.cy documentation>  getCy ::       (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength)-getCy self-  = liftIO ((js_getCy (unSVGEllipseElement self)) >>= fromJSRef)+getCy self = liftIO (nullableToMaybe <$> (js_getCy (self)))   foreign import javascript unsafe "$1[\"rx\"]" js_getRx ::-        JSRef SVGEllipseElement -> IO (JSRef SVGAnimatedLength)+        SVGEllipseElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.rx Mozilla SVGEllipseElement.rx documentation>  getRx ::       (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength)-getRx self-  = liftIO ((js_getRx (unSVGEllipseElement self)) >>= fromJSRef)+getRx self = liftIO (nullableToMaybe <$> (js_getRx (self)))   foreign import javascript unsafe "$1[\"ry\"]" js_getRy ::-        JSRef SVGEllipseElement -> IO (JSRef SVGAnimatedLength)+        SVGEllipseElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGEllipseElement.ry Mozilla SVGEllipseElement.ry documentation>  getRy ::       (MonadIO m) => SVGEllipseElement -> m (Maybe SVGAnimatedLength)-getRy self-  = liftIO ((js_getRy (unSVGEllipseElement self)) >>= fromJSRef)+getRy self = liftIO (nullableToMaybe <$> (js_getRy (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGExternalResourcesRequired.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,8 +21,7 @@   foreign import javascript unsafe         "$1[\"externalResourcesRequired\"]" js_getExternalResourcesRequired-        ::-        JSRef SVGExternalResourcesRequired -> IO (JSRef SVGAnimatedBoolean)+        :: SVGExternalResourcesRequired -> IO (Nullable SVGAnimatedBoolean)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGExternalResourcesRequired.externalResourcesRequired Mozilla SVGExternalResourcesRequired.externalResourcesRequired documentation>  getExternalResourcesRequired ::@@ -30,6 +29,4 @@                                SVGExternalResourcesRequired -> m (Maybe SVGAnimatedBoolean) getExternalResourcesRequired self   = liftIO-      ((js_getExternalResourcesRequired-          (unSVGExternalResourcesRequired self))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_getExternalResourcesRequired (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEBlendElement.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -28,29 +28,26 @@ pattern SVG_FEBLEND_MODE_LIGHTEN = 5   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::-        JSRef SVGFEBlendElement -> IO (JSRef SVGAnimatedString)+        SVGFEBlendElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.in1 Mozilla SVGFEBlendElement.in1 documentation>  getIn1 ::        (MonadIO m) => SVGFEBlendElement -> m (Maybe SVGAnimatedString)-getIn1 self-  = liftIO ((js_getIn1 (unSVGFEBlendElement self)) >>= fromJSRef)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"in2\"]" js_getIn2 ::-        JSRef SVGFEBlendElement -> IO (JSRef SVGAnimatedString)+        SVGFEBlendElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.in2 Mozilla SVGFEBlendElement.in2 documentation>  getIn2 ::        (MonadIO m) => SVGFEBlendElement -> m (Maybe SVGAnimatedString)-getIn2 self-  = liftIO ((js_getIn2 (unSVGFEBlendElement self)) >>= fromJSRef)+getIn2 self = liftIO (nullableToMaybe <$> (js_getIn2 (self)))   foreign import javascript unsafe "$1[\"mode\"]" js_getMode ::-        JSRef SVGFEBlendElement -> IO (JSRef SVGAnimatedEnumeration)+        SVGFEBlendElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEBlendElement.mode Mozilla SVGFEBlendElement.mode documentation>  getMode ::         (MonadIO m) =>           SVGFEBlendElement -> m (Maybe SVGAnimatedEnumeration)-getMode self-  = liftIO ((js_getMode (unSVGFEBlendElement self)) >>= fromJSRef)+getMode self = liftIO (nullableToMaybe <$> (js_getMode (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEColorMatrixElement.hs view
@@ -11,7 +11,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -30,34 +30,28 @@ pattern SVG_FECOLORMATRIX_TYPE_LUMINANCETOALPHA = 4   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::-        JSRef SVGFEColorMatrixElement -> IO (JSRef SVGAnimatedString)+        SVGFEColorMatrixElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.in1 Mozilla SVGFEColorMatrixElement.in1 documentation>  getIn1 ::        (MonadIO m) =>          SVGFEColorMatrixElement -> m (Maybe SVGAnimatedString)-getIn1 self-  = liftIO-      ((js_getIn1 (unSVGFEColorMatrixElement self)) >>= fromJSRef)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef SVGFEColorMatrixElement -> IO (JSRef SVGAnimatedEnumeration)+        SVGFEColorMatrixElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.type Mozilla SVGFEColorMatrixElement.type documentation>  getType ::         (MonadIO m) =>           SVGFEColorMatrixElement -> m (Maybe SVGAnimatedEnumeration)-getType self-  = liftIO-      ((js_getType (unSVGFEColorMatrixElement self)) >>= fromJSRef)+getType self = liftIO (nullableToMaybe <$> (js_getType (self)))   foreign import javascript unsafe "$1[\"values\"]" js_getValues ::-        JSRef SVGFEColorMatrixElement -> IO (JSRef SVGAnimatedNumberList)+        SVGFEColorMatrixElement -> IO (Nullable SVGAnimatedNumberList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEColorMatrixElement.values Mozilla SVGFEColorMatrixElement.values documentation>  getValues ::           (MonadIO m) =>             SVGFEColorMatrixElement -> m (Maybe SVGAnimatedNumberList)-getValues self-  = liftIO-      ((js_getValues (unSVGFEColorMatrixElement self)) >>= fromJSRef)+getValues self = liftIO (nullableToMaybe <$> (js_getValues (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEComponentTransferElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,12 +20,10 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::-        JSRef SVGFEComponentTransferElement -> IO (JSRef SVGAnimatedString)+        SVGFEComponentTransferElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEComponentTransferElement.in1 Mozilla SVGFEComponentTransferElement.in1 documentation>  getIn1 ::        (MonadIO m) =>          SVGFEComponentTransferElement -> m (Maybe SVGAnimatedString)-getIn1 self-  = liftIO-      ((js_getIn1 (unSVGFEComponentTransferElement self)) >>= fromJSRef)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFECompositeElement.hs view
@@ -14,7 +14,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -35,66 +35,59 @@ pattern SVG_FECOMPOSITE_OPERATOR_ARITHMETIC = 6   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::-        JSRef SVGFECompositeElement -> IO (JSRef SVGAnimatedString)+        SVGFECompositeElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.in1 Mozilla SVGFECompositeElement.in1 documentation>  getIn1 ::        (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedString)-getIn1 self-  = liftIO ((js_getIn1 (unSVGFECompositeElement self)) >>= fromJSRef)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"in2\"]" js_getIn2 ::-        JSRef SVGFECompositeElement -> IO (JSRef SVGAnimatedString)+        SVGFECompositeElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.in2 Mozilla SVGFECompositeElement.in2 documentation>  getIn2 ::        (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedString)-getIn2 self-  = liftIO ((js_getIn2 (unSVGFECompositeElement self)) >>= fromJSRef)+getIn2 self = liftIO (nullableToMaybe <$> (js_getIn2 (self)))   foreign import javascript unsafe "$1[\"operator\"]" js_getOperator-        :: JSRef SVGFECompositeElement -> IO (JSRef SVGAnimatedEnumeration)+        :: SVGFECompositeElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.operator Mozilla SVGFECompositeElement.operator documentation>  getOperator ::             (MonadIO m) =>               SVGFECompositeElement -> m (Maybe SVGAnimatedEnumeration) getOperator self-  = liftIO-      ((js_getOperator (unSVGFECompositeElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getOperator (self)))   foreign import javascript unsafe "$1[\"k1\"]" js_getK1 ::-        JSRef SVGFECompositeElement -> IO (JSRef SVGAnimatedNumber)+        SVGFECompositeElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k1 Mozilla SVGFECompositeElement.k1 documentation>  getK1 ::       (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber)-getK1 self-  = liftIO ((js_getK1 (unSVGFECompositeElement self)) >>= fromJSRef)+getK1 self = liftIO (nullableToMaybe <$> (js_getK1 (self)))   foreign import javascript unsafe "$1[\"k2\"]" js_getK2 ::-        JSRef SVGFECompositeElement -> IO (JSRef SVGAnimatedNumber)+        SVGFECompositeElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k2 Mozilla SVGFECompositeElement.k2 documentation>  getK2 ::       (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber)-getK2 self-  = liftIO ((js_getK2 (unSVGFECompositeElement self)) >>= fromJSRef)+getK2 self = liftIO (nullableToMaybe <$> (js_getK2 (self)))   foreign import javascript unsafe "$1[\"k3\"]" js_getK3 ::-        JSRef SVGFECompositeElement -> IO (JSRef SVGAnimatedNumber)+        SVGFECompositeElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k3 Mozilla SVGFECompositeElement.k3 documentation>  getK3 ::       (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber)-getK3 self-  = liftIO ((js_getK3 (unSVGFECompositeElement self)) >>= fromJSRef)+getK3 self = liftIO (nullableToMaybe <$> (js_getK3 (self)))   foreign import javascript unsafe "$1[\"k4\"]" js_getK4 ::-        JSRef SVGFECompositeElement -> IO (JSRef SVGAnimatedNumber)+        SVGFECompositeElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFECompositeElement.k4 Mozilla SVGFECompositeElement.k4 documentation>  getK4 ::       (MonadIO m) => SVGFECompositeElement -> m (Maybe SVGAnimatedNumber)-getK4 self-  = liftIO ((js_getK4 (unSVGFECompositeElement self)) >>= fromJSRef)+getK4 self = liftIO (nullableToMaybe <$> (js_getK4 (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEConvolveMatrixElement.hs view
@@ -13,7 +13,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -31,145 +31,122 @@ pattern SVG_EDGEMODE_NONE = 3   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::-        JSRef SVGFEConvolveMatrixElement -> IO (JSRef SVGAnimatedString)+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.in1 Mozilla SVGFEConvolveMatrixElement.in1 documentation>  getIn1 ::        (MonadIO m) =>          SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedString)-getIn1 self-  = liftIO-      ((js_getIn1 (unSVGFEConvolveMatrixElement self)) >>= fromJSRef)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"orderX\"]" js_getOrderX ::-        JSRef SVGFEConvolveMatrixElement -> IO (JSRef SVGAnimatedInteger)+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedInteger)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.orderX Mozilla SVGFEConvolveMatrixElement.orderX documentation>  getOrderX ::           (MonadIO m) =>             SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger)-getOrderX self-  = liftIO-      ((js_getOrderX (unSVGFEConvolveMatrixElement self)) >>= fromJSRef)+getOrderX self = liftIO (nullableToMaybe <$> (js_getOrderX (self)))   foreign import javascript unsafe "$1[\"orderY\"]" js_getOrderY ::-        JSRef SVGFEConvolveMatrixElement -> IO (JSRef SVGAnimatedInteger)+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedInteger)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.orderY Mozilla SVGFEConvolveMatrixElement.orderY documentation>  getOrderY ::           (MonadIO m) =>             SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger)-getOrderY self-  = liftIO-      ((js_getOrderY (unSVGFEConvolveMatrixElement self)) >>= fromJSRef)+getOrderY self = liftIO (nullableToMaybe <$> (js_getOrderY (self)))   foreign import javascript unsafe "$1[\"kernelMatrix\"]"         js_getKernelMatrix ::-        JSRef SVGFEConvolveMatrixElement ->-          IO (JSRef SVGAnimatedNumberList)+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumberList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelMatrix Mozilla SVGFEConvolveMatrixElement.kernelMatrix documentation>  getKernelMatrix ::                 (MonadIO m) =>                   SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumberList) getKernelMatrix self-  = liftIO-      ((js_getKernelMatrix (unSVGFEConvolveMatrixElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getKernelMatrix (self)))   foreign import javascript unsafe "$1[\"divisor\"]" js_getDivisor ::-        JSRef SVGFEConvolveMatrixElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.divisor Mozilla SVGFEConvolveMatrixElement.divisor documentation>  getDivisor ::            (MonadIO m) =>              SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber) getDivisor self-  = liftIO-      ((js_getDivisor (unSVGFEConvolveMatrixElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getDivisor (self)))   foreign import javascript unsafe "$1[\"bias\"]" js_getBias ::-        JSRef SVGFEConvolveMatrixElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.bias Mozilla SVGFEConvolveMatrixElement.bias documentation>  getBias ::         (MonadIO m) =>           SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber)-getBias self-  = liftIO-      ((js_getBias (unSVGFEConvolveMatrixElement self)) >>= fromJSRef)+getBias self = liftIO (nullableToMaybe <$> (js_getBias (self)))   foreign import javascript unsafe "$1[\"targetX\"]" js_getTargetX ::-        JSRef SVGFEConvolveMatrixElement -> IO (JSRef SVGAnimatedInteger)+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedInteger)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.targetX Mozilla SVGFEConvolveMatrixElement.targetX documentation>  getTargetX ::            (MonadIO m) =>              SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger) getTargetX self-  = liftIO-      ((js_getTargetX (unSVGFEConvolveMatrixElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getTargetX (self)))   foreign import javascript unsafe "$1[\"targetY\"]" js_getTargetY ::-        JSRef SVGFEConvolveMatrixElement -> IO (JSRef SVGAnimatedInteger)+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedInteger)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.targetY Mozilla SVGFEConvolveMatrixElement.targetY documentation>  getTargetY ::            (MonadIO m) =>              SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedInteger) getTargetY self-  = liftIO-      ((js_getTargetY (unSVGFEConvolveMatrixElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getTargetY (self)))   foreign import javascript unsafe "$1[\"edgeMode\"]" js_getEdgeMode         ::-        JSRef SVGFEConvolveMatrixElement ->-          IO (JSRef SVGAnimatedEnumeration)+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.edgeMode Mozilla SVGFEConvolveMatrixElement.edgeMode documentation>  getEdgeMode ::             (MonadIO m) =>               SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedEnumeration) getEdgeMode self-  = liftIO-      ((js_getEdgeMode (unSVGFEConvolveMatrixElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getEdgeMode (self)))   foreign import javascript unsafe "$1[\"kernelUnitLengthX\"]"         js_getKernelUnitLengthX ::-        JSRef SVGFEConvolveMatrixElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelUnitLengthX Mozilla SVGFEConvolveMatrixElement.kernelUnitLengthX documentation>  getKernelUnitLengthX ::                      (MonadIO m) =>                        SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber) getKernelUnitLengthX self-  = liftIO-      ((js_getKernelUnitLengthX (unSVGFEConvolveMatrixElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthX (self)))   foreign import javascript unsafe "$1[\"kernelUnitLengthY\"]"         js_getKernelUnitLengthY ::-        JSRef SVGFEConvolveMatrixElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.kernelUnitLengthY Mozilla SVGFEConvolveMatrixElement.kernelUnitLengthY documentation>  getKernelUnitLengthY ::                      (MonadIO m) =>                        SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedNumber) getKernelUnitLengthY self-  = liftIO-      ((js_getKernelUnitLengthY (unSVGFEConvolveMatrixElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthY (self)))   foreign import javascript unsafe "$1[\"preserveAlpha\"]"         js_getPreserveAlpha ::-        JSRef SVGFEConvolveMatrixElement -> IO (JSRef SVGAnimatedBoolean)+        SVGFEConvolveMatrixElement -> IO (Nullable SVGAnimatedBoolean)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEConvolveMatrixElement.preserveAlpha Mozilla SVGFEConvolveMatrixElement.preserveAlpha documentation>  getPreserveAlpha ::                  (MonadIO m) =>                    SVGFEConvolveMatrixElement -> m (Maybe SVGAnimatedBoolean) getPreserveAlpha self-  = liftIO-      ((js_getPreserveAlpha (unSVGFEConvolveMatrixElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPreserveAlpha (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEDiffuseLightingElement.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,64 +23,54 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::-        JSRef SVGFEDiffuseLightingElement -> IO (JSRef SVGAnimatedString)+        SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.in1 Mozilla SVGFEDiffuseLightingElement.in1 documentation>  getIn1 ::        (MonadIO m) =>          SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedString)-getIn1 self-  = liftIO-      ((js_getIn1 (unSVGFEDiffuseLightingElement self)) >>= fromJSRef)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"surfaceScale\"]"         js_getSurfaceScale ::-        JSRef SVGFEDiffuseLightingElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.surfaceScale Mozilla SVGFEDiffuseLightingElement.surfaceScale documentation>  getSurfaceScale ::                 (MonadIO m) =>                   SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber) getSurfaceScale self-  = liftIO-      ((js_getSurfaceScale (unSVGFEDiffuseLightingElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSurfaceScale (self)))   foreign import javascript unsafe "$1[\"diffuseConstant\"]"         js_getDiffuseConstant ::-        JSRef SVGFEDiffuseLightingElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.diffuseConstant Mozilla SVGFEDiffuseLightingElement.diffuseConstant documentation>  getDiffuseConstant ::                    (MonadIO m) =>                      SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber) getDiffuseConstant self-  = liftIO-      ((js_getDiffuseConstant (unSVGFEDiffuseLightingElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getDiffuseConstant (self)))   foreign import javascript unsafe "$1[\"kernelUnitLengthX\"]"         js_getKernelUnitLengthX ::-        JSRef SVGFEDiffuseLightingElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.kernelUnitLengthX Mozilla SVGFEDiffuseLightingElement.kernelUnitLengthX documentation>  getKernelUnitLengthX ::                      (MonadIO m) =>                        SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber) getKernelUnitLengthX self-  = liftIO-      ((js_getKernelUnitLengthX (unSVGFEDiffuseLightingElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthX (self)))   foreign import javascript unsafe "$1[\"kernelUnitLengthY\"]"         js_getKernelUnitLengthY ::-        JSRef SVGFEDiffuseLightingElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEDiffuseLightingElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDiffuseLightingElement.kernelUnitLengthY Mozilla SVGFEDiffuseLightingElement.kernelUnitLengthY documentation>  getKernelUnitLengthY ::                      (MonadIO m) =>                        SVGFEDiffuseLightingElement -> m (Maybe SVGAnimatedNumber) getKernelUnitLengthY self-  = liftIO-      ((js_getKernelUnitLengthY (unSVGFEDiffuseLightingElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getKernelUnitLengthY (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEDisplacementMapElement.hs view
@@ -10,7 +10,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -29,62 +29,50 @@ pattern SVG_CHANNEL_A = 4   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::-        JSRef SVGFEDisplacementMapElement -> IO (JSRef SVGAnimatedString)+        SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.in1 Mozilla SVGFEDisplacementMapElement.in1 documentation>  getIn1 ::        (MonadIO m) =>          SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedString)-getIn1 self-  = liftIO-      ((js_getIn1 (unSVGFEDisplacementMapElement self)) >>= fromJSRef)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"in2\"]" js_getIn2 ::-        JSRef SVGFEDisplacementMapElement -> IO (JSRef SVGAnimatedString)+        SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.in2 Mozilla SVGFEDisplacementMapElement.in2 documentation>  getIn2 ::        (MonadIO m) =>          SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedString)-getIn2 self-  = liftIO-      ((js_getIn2 (unSVGFEDisplacementMapElement self)) >>= fromJSRef)+getIn2 self = liftIO (nullableToMaybe <$> (js_getIn2 (self)))   foreign import javascript unsafe "$1[\"scale\"]" js_getScale ::-        JSRef SVGFEDisplacementMapElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.scale Mozilla SVGFEDisplacementMapElement.scale documentation>  getScale ::          (MonadIO m) =>            SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedNumber)-getScale self-  = liftIO-      ((js_getScale (unSVGFEDisplacementMapElement self)) >>= fromJSRef)+getScale self = liftIO (nullableToMaybe <$> (js_getScale (self)))   foreign import javascript unsafe "$1[\"xChannelSelector\"]"         js_getXChannelSelector ::-        JSRef SVGFEDisplacementMapElement ->-          IO (JSRef SVGAnimatedEnumeration)+        SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.xChannelSelector Mozilla SVGFEDisplacementMapElement.xChannelSelector documentation>  getXChannelSelector ::                     (MonadIO m) =>                       SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedEnumeration) getXChannelSelector self-  = liftIO-      ((js_getXChannelSelector (unSVGFEDisplacementMapElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getXChannelSelector (self)))   foreign import javascript unsafe "$1[\"yChannelSelector\"]"         js_getYChannelSelector ::-        JSRef SVGFEDisplacementMapElement ->-          IO (JSRef SVGAnimatedEnumeration)+        SVGFEDisplacementMapElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDisplacementMapElement.yChannelSelector Mozilla SVGFEDisplacementMapElement.yChannelSelector documentation>  getYChannelSelector ::                     (MonadIO m) =>                       SVGFEDisplacementMapElement -> m (Maybe SVGAnimatedEnumeration) getYChannelSelector self-  = liftIO-      ((js_getYChannelSelector (unSVGFEDisplacementMapElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getYChannelSelector (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEDistantLightElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,24 +20,22 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"azimuth\"]" js_getAzimuth ::-        JSRef SVGFEDistantLightElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEDistantLightElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDistantLightElement.azimuth Mozilla SVGFEDistantLightElement.azimuth documentation>  getAzimuth ::            (MonadIO m) =>              SVGFEDistantLightElement -> m (Maybe SVGAnimatedNumber) getAzimuth self-  = liftIO-      ((js_getAzimuth (unSVGFEDistantLightElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAzimuth (self)))   foreign import javascript unsafe "$1[\"elevation\"]"         js_getElevation ::-        JSRef SVGFEDistantLightElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEDistantLightElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDistantLightElement.elevation Mozilla SVGFEDistantLightElement.elevation documentation>  getElevation ::              (MonadIO m) =>                SVGFEDistantLightElement -> m (Maybe SVGAnimatedNumber) getElevation self-  = liftIO-      ((js_getElevation (unSVGFEDistantLightElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getElevation (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEDropShadowElement.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,69 +22,59 @@   foreign import javascript unsafe "$1[\"setStdDeviation\"]($2, $3)"         js_setStdDeviation ::-        JSRef SVGFEDropShadowElement -> Float -> Float -> IO ()+        SVGFEDropShadowElement -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.setStdDeviation Mozilla SVGFEDropShadowElement.setStdDeviation documentation>  setStdDeviation ::                 (MonadIO m) => SVGFEDropShadowElement -> Float -> Float -> m () setStdDeviation self stdDeviationX stdDeviationY-  = liftIO-      (js_setStdDeviation (unSVGFEDropShadowElement self) stdDeviationX-         stdDeviationY)+  = liftIO (js_setStdDeviation (self) stdDeviationX stdDeviationY)   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::-        JSRef SVGFEDropShadowElement -> IO (JSRef SVGAnimatedString)+        SVGFEDropShadowElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.in1 Mozilla SVGFEDropShadowElement.in1 documentation>  getIn1 ::        (MonadIO m) =>          SVGFEDropShadowElement -> m (Maybe SVGAnimatedString)-getIn1 self-  = liftIO-      ((js_getIn1 (unSVGFEDropShadowElement self)) >>= fromJSRef)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"dx\"]" js_getDx ::-        JSRef SVGFEDropShadowElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEDropShadowElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.dx Mozilla SVGFEDropShadowElement.dx documentation>  getDx ::       (MonadIO m) =>         SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber)-getDx self-  = liftIO ((js_getDx (unSVGFEDropShadowElement self)) >>= fromJSRef)+getDx self = liftIO (nullableToMaybe <$> (js_getDx (self)))   foreign import javascript unsafe "$1[\"dy\"]" js_getDy ::-        JSRef SVGFEDropShadowElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEDropShadowElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.dy Mozilla SVGFEDropShadowElement.dy documentation>  getDy ::       (MonadIO m) =>         SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber)-getDy self-  = liftIO ((js_getDy (unSVGFEDropShadowElement self)) >>= fromJSRef)+getDy self = liftIO (nullableToMaybe <$> (js_getDy (self)))   foreign import javascript unsafe "$1[\"stdDeviationX\"]"         js_getStdDeviationX ::-        JSRef SVGFEDropShadowElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEDropShadowElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.stdDeviationX Mozilla SVGFEDropShadowElement.stdDeviationX documentation>  getStdDeviationX ::                  (MonadIO m) =>                    SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber) getStdDeviationX self-  = liftIO-      ((js_getStdDeviationX (unSVGFEDropShadowElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getStdDeviationX (self)))   foreign import javascript unsafe "$1[\"stdDeviationY\"]"         js_getStdDeviationY ::-        JSRef SVGFEDropShadowElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEDropShadowElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEDropShadowElement.stdDeviationY Mozilla SVGFEDropShadowElement.stdDeviationY documentation>  getStdDeviationY ::                  (MonadIO m) =>                    SVGFEDropShadowElement -> m (Maybe SVGAnimatedNumber) getStdDeviationY self-  = liftIO-      ((js_getStdDeviationY (unSVGFEDropShadowElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getStdDeviationY (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEGaussianBlurElement.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,65 +24,55 @@   foreign import javascript unsafe "$1[\"setStdDeviation\"]($2, $3)"         js_setStdDeviation ::-        JSRef SVGFEGaussianBlurElement -> Float -> Float -> IO ()+        SVGFEGaussianBlurElement -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.setStdDeviation Mozilla SVGFEGaussianBlurElement.setStdDeviation documentation>  setStdDeviation ::                 (MonadIO m) => SVGFEGaussianBlurElement -> Float -> Float -> m () setStdDeviation self stdDeviationX stdDeviationY-  = liftIO-      (js_setStdDeviation (unSVGFEGaussianBlurElement self) stdDeviationX-         stdDeviationY)+  = liftIO (js_setStdDeviation (self) stdDeviationX stdDeviationY) pattern SVG_EDGEMODE_UNKNOWN = 0 pattern SVG_EDGEMODE_DUPLICATE = 1 pattern SVG_EDGEMODE_WRAP = 2 pattern SVG_EDGEMODE_NONE = 3   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::-        JSRef SVGFEGaussianBlurElement -> IO (JSRef SVGAnimatedString)+        SVGFEGaussianBlurElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.in1 Mozilla SVGFEGaussianBlurElement.in1 documentation>  getIn1 ::        (MonadIO m) =>          SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedString)-getIn1 self-  = liftIO-      ((js_getIn1 (unSVGFEGaussianBlurElement self)) >>= fromJSRef)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"stdDeviationX\"]"         js_getStdDeviationX ::-        JSRef SVGFEGaussianBlurElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEGaussianBlurElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.stdDeviationX Mozilla SVGFEGaussianBlurElement.stdDeviationX documentation>  getStdDeviationX ::                  (MonadIO m) =>                    SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedNumber) getStdDeviationX self-  = liftIO-      ((js_getStdDeviationX (unSVGFEGaussianBlurElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getStdDeviationX (self)))   foreign import javascript unsafe "$1[\"stdDeviationY\"]"         js_getStdDeviationY ::-        JSRef SVGFEGaussianBlurElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEGaussianBlurElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.stdDeviationY Mozilla SVGFEGaussianBlurElement.stdDeviationY documentation>  getStdDeviationY ::                  (MonadIO m) =>                    SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedNumber) getStdDeviationY self-  = liftIO-      ((js_getStdDeviationY (unSVGFEGaussianBlurElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getStdDeviationY (self)))   foreign import javascript unsafe "$1[\"edgeMode\"]" js_getEdgeMode-        ::-        JSRef SVGFEGaussianBlurElement -> IO (JSRef SVGAnimatedEnumeration)+        :: SVGFEGaussianBlurElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEGaussianBlurElement.edgeMode Mozilla SVGFEGaussianBlurElement.edgeMode documentation>  getEdgeMode ::             (MonadIO m) =>               SVGFEGaussianBlurElement -> m (Maybe SVGAnimatedEnumeration) getEdgeMode self-  = liftIO-      ((js_getEdgeMode (unSVGFEGaussianBlurElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getEdgeMode (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEImageElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,14 +20,11 @@   foreign import javascript unsafe "$1[\"preserveAspectRatio\"]"         js_getPreserveAspectRatio ::-        JSRef SVGFEImageElement ->-          IO (JSRef SVGAnimatedPreserveAspectRatio)+        SVGFEImageElement -> IO (Nullable SVGAnimatedPreserveAspectRatio)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEImageElement.preserveAspectRatio Mozilla SVGFEImageElement.preserveAspectRatio documentation>  getPreserveAspectRatio ::                        (MonadIO m) =>                          SVGFEImageElement -> m (Maybe SVGAnimatedPreserveAspectRatio) getPreserveAspectRatio self-  = liftIO-      ((js_getPreserveAspectRatio (unSVGFEImageElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPreserveAspectRatio (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEMergeNodeElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,10 +19,9 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::-        JSRef SVGFEMergeNodeElement -> IO (JSRef SVGAnimatedString)+        SVGFEMergeNodeElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMergeNodeElement.in1 Mozilla SVGFEMergeNodeElement.in1 documentation>  getIn1 ::        (MonadIO m) => SVGFEMergeNodeElement -> m (Maybe SVGAnimatedString)-getIn1 self-  = liftIO ((js_getIn1 (unSVGFEMergeNodeElement self)) >>= fromJSRef)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEMorphologyElement.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,60 +23,52 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"setRadius\"]($2, $3)"-        js_setRadius ::-        JSRef SVGFEMorphologyElement -> Float -> Float -> IO ()+        js_setRadius :: SVGFEMorphologyElement -> Float -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.setRadius Mozilla SVGFEMorphologyElement.setRadius documentation>  setRadius ::           (MonadIO m) => SVGFEMorphologyElement -> Float -> Float -> m () setRadius self radiusX radiusY-  = liftIO-      (js_setRadius (unSVGFEMorphologyElement self) radiusX radiusY)+  = liftIO (js_setRadius (self) radiusX radiusY) pattern SVG_MORPHOLOGY_OPERATOR_UNKNOWN = 0 pattern SVG_MORPHOLOGY_OPERATOR_ERODE = 1 pattern SVG_MORPHOLOGY_OPERATOR_DILATE = 2   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::-        JSRef SVGFEMorphologyElement -> IO (JSRef SVGAnimatedString)+        SVGFEMorphologyElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.in1 Mozilla SVGFEMorphologyElement.in1 documentation>  getIn1 ::        (MonadIO m) =>          SVGFEMorphologyElement -> m (Maybe SVGAnimatedString)-getIn1 self-  = liftIO-      ((js_getIn1 (unSVGFEMorphologyElement self)) >>= fromJSRef)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"operator\"]" js_getOperator-        ::-        JSRef SVGFEMorphologyElement -> IO (JSRef SVGAnimatedEnumeration)+        :: SVGFEMorphologyElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.operator Mozilla SVGFEMorphologyElement.operator documentation>  getOperator ::             (MonadIO m) =>               SVGFEMorphologyElement -> m (Maybe SVGAnimatedEnumeration) getOperator self-  = liftIO-      ((js_getOperator (unSVGFEMorphologyElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getOperator (self)))   foreign import javascript unsafe "$1[\"radiusX\"]" js_getRadiusX ::-        JSRef SVGFEMorphologyElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEMorphologyElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.radiusX Mozilla SVGFEMorphologyElement.radiusX documentation>  getRadiusX ::            (MonadIO m) =>              SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber) getRadiusX self-  = liftIO-      ((js_getRadiusX (unSVGFEMorphologyElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getRadiusX (self)))   foreign import javascript unsafe "$1[\"radiusY\"]" js_getRadiusY ::-        JSRef SVGFEMorphologyElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEMorphologyElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEMorphologyElement.radiusY Mozilla SVGFEMorphologyElement.radiusY documentation>  getRadiusY ::            (MonadIO m) =>              SVGFEMorphologyElement -> m (Maybe SVGAnimatedNumber) getRadiusY self-  = liftIO-      ((js_getRadiusY (unSVGFEMorphologyElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getRadiusY (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEOffsetElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,28 +20,25 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::-        JSRef SVGFEOffsetElement -> IO (JSRef SVGAnimatedString)+        SVGFEOffsetElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.in1 Mozilla SVGFEOffsetElement.in1 documentation>  getIn1 ::        (MonadIO m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedString)-getIn1 self-  = liftIO ((js_getIn1 (unSVGFEOffsetElement self)) >>= fromJSRef)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"dx\"]" js_getDx ::-        JSRef SVGFEOffsetElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEOffsetElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.dx Mozilla SVGFEOffsetElement.dx documentation>  getDx ::       (MonadIO m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedNumber)-getDx self-  = liftIO ((js_getDx (unSVGFEOffsetElement self)) >>= fromJSRef)+getDx self = liftIO (nullableToMaybe <$> (js_getDx (self)))   foreign import javascript unsafe "$1[\"dy\"]" js_getDy ::-        JSRef SVGFEOffsetElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEOffsetElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEOffsetElement.dy Mozilla SVGFEOffsetElement.dy documentation>  getDy ::       (MonadIO m) => SVGFEOffsetElement -> m (Maybe SVGAnimatedNumber)-getDy self-  = liftIO ((js_getDy (unSVGFEOffsetElement self)) >>= fromJSRef)+getDy self = liftIO (nullableToMaybe <$> (js_getDy (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFEPointLightElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,31 +20,28 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGFEPointLightElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEPointLightElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.x Mozilla SVGFEPointLightElement.x documentation>  getX ::      (MonadIO m) =>        SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber)-getX self-  = liftIO ((js_getX (unSVGFEPointLightElement self)) >>= fromJSRef)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGFEPointLightElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEPointLightElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.y Mozilla SVGFEPointLightElement.y documentation>  getY ::      (MonadIO m) =>        SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber)-getY self-  = liftIO ((js_getY (unSVGFEPointLightElement self)) >>= fromJSRef)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"z\"]" js_getZ ::-        JSRef SVGFEPointLightElement -> IO (JSRef SVGAnimatedNumber)+        SVGFEPointLightElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFEPointLightElement.z Mozilla SVGFEPointLightElement.z documentation>  getZ ::      (MonadIO m) =>        SVGFEPointLightElement -> m (Maybe SVGAnimatedNumber)-getZ self-  = liftIO ((js_getZ (unSVGFEPointLightElement self)) >>= fromJSRef)+getZ self = liftIO (nullableToMaybe <$> (js_getZ (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFESpecularLightingElement.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,51 +22,43 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::-        JSRef SVGFESpecularLightingElement -> IO (JSRef SVGAnimatedString)+        SVGFESpecularLightingElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.in1 Mozilla SVGFESpecularLightingElement.in1 documentation>  getIn1 ::        (MonadIO m) =>          SVGFESpecularLightingElement -> m (Maybe SVGAnimatedString)-getIn1 self-  = liftIO-      ((js_getIn1 (unSVGFESpecularLightingElement self)) >>= fromJSRef)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))   foreign import javascript unsafe "$1[\"surfaceScale\"]"         js_getSurfaceScale ::-        JSRef SVGFESpecularLightingElement -> IO (JSRef SVGAnimatedNumber)+        SVGFESpecularLightingElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.surfaceScale Mozilla SVGFESpecularLightingElement.surfaceScale documentation>  getSurfaceScale ::                 (MonadIO m) =>                   SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber) getSurfaceScale self-  = liftIO-      ((js_getSurfaceScale (unSVGFESpecularLightingElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSurfaceScale (self)))   foreign import javascript unsafe "$1[\"specularConstant\"]"         js_getSpecularConstant ::-        JSRef SVGFESpecularLightingElement -> IO (JSRef SVGAnimatedNumber)+        SVGFESpecularLightingElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.specularConstant Mozilla SVGFESpecularLightingElement.specularConstant documentation>  getSpecularConstant ::                     (MonadIO m) =>                       SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber) getSpecularConstant self-  = liftIO-      ((js_getSpecularConstant (unSVGFESpecularLightingElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSpecularConstant (self)))   foreign import javascript unsafe "$1[\"specularExponent\"]"         js_getSpecularExponent ::-        JSRef SVGFESpecularLightingElement -> IO (JSRef SVGAnimatedNumber)+        SVGFESpecularLightingElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpecularLightingElement.specularExponent Mozilla SVGFESpecularLightingElement.specularExponent documentation>  getSpecularExponent ::                     (MonadIO m) =>                       SVGFESpecularLightingElement -> m (Maybe SVGAnimatedNumber) getSpecularExponent self-  = liftIO-      ((js_getSpecularExponent (unSVGFESpecularLightingElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSpecularExponent (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFESpotLightElement.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,85 +23,75 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGFESpotLightElement -> IO (JSRef SVGAnimatedNumber)+        SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.x Mozilla SVGFESpotLightElement.x documentation>  getX ::      (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)-getX self-  = liftIO ((js_getX (unSVGFESpotLightElement self)) >>= fromJSRef)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGFESpotLightElement -> IO (JSRef SVGAnimatedNumber)+        SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.y Mozilla SVGFESpotLightElement.y documentation>  getY ::      (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)-getY self-  = liftIO ((js_getY (unSVGFESpotLightElement self)) >>= fromJSRef)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"z\"]" js_getZ ::-        JSRef SVGFESpotLightElement -> IO (JSRef SVGAnimatedNumber)+        SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.z Mozilla SVGFESpotLightElement.z documentation>  getZ ::      (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber)-getZ self-  = liftIO ((js_getZ (unSVGFESpotLightElement self)) >>= fromJSRef)+getZ self = liftIO (nullableToMaybe <$> (js_getZ (self)))   foreign import javascript unsafe "$1[\"pointsAtX\"]"         js_getPointsAtX ::-        JSRef SVGFESpotLightElement -> IO (JSRef SVGAnimatedNumber)+        SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtX Mozilla SVGFESpotLightElement.pointsAtX documentation>  getPointsAtX ::              (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getPointsAtX self-  = liftIO-      ((js_getPointsAtX (unSVGFESpotLightElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPointsAtX (self)))   foreign import javascript unsafe "$1[\"pointsAtY\"]"         js_getPointsAtY ::-        JSRef SVGFESpotLightElement -> IO (JSRef SVGAnimatedNumber)+        SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtY Mozilla SVGFESpotLightElement.pointsAtY documentation>  getPointsAtY ::              (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getPointsAtY self-  = liftIO-      ((js_getPointsAtY (unSVGFESpotLightElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPointsAtY (self)))   foreign import javascript unsafe "$1[\"pointsAtZ\"]"         js_getPointsAtZ ::-        JSRef SVGFESpotLightElement -> IO (JSRef SVGAnimatedNumber)+        SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.pointsAtZ Mozilla SVGFESpotLightElement.pointsAtZ documentation>  getPointsAtZ ::              (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getPointsAtZ self-  = liftIO-      ((js_getPointsAtZ (unSVGFESpotLightElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPointsAtZ (self)))   foreign import javascript unsafe "$1[\"specularExponent\"]"         js_getSpecularExponent ::-        JSRef SVGFESpotLightElement -> IO (JSRef SVGAnimatedNumber)+        SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.specularExponent Mozilla SVGFESpotLightElement.specularExponent documentation>  getSpecularExponent ::                     (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getSpecularExponent self-  = liftIO-      ((js_getSpecularExponent (unSVGFESpotLightElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getSpecularExponent (self)))   foreign import javascript unsafe "$1[\"limitingConeAngle\"]"         js_getLimitingConeAngle ::-        JSRef SVGFESpotLightElement -> IO (JSRef SVGAnimatedNumber)+        SVGFESpotLightElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFESpotLightElement.limitingConeAngle Mozilla SVGFESpotLightElement.limitingConeAngle documentation>  getLimitingConeAngle ::                      (MonadIO m) => SVGFESpotLightElement -> m (Maybe SVGAnimatedNumber) getLimitingConeAngle self-  = liftIO-      ((js_getLimitingConeAngle (unSVGFESpotLightElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getLimitingConeAngle (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFETileElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,10 +19,9 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"in1\"]" js_getIn1 ::-        JSRef SVGFETileElement -> IO (JSRef SVGAnimatedString)+        SVGFETileElement -> IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETileElement.in1 Mozilla SVGFETileElement.in1 documentation>  getIn1 ::        (MonadIO m) => SVGFETileElement -> m (Maybe SVGAnimatedString)-getIn1 self-  = liftIO ((js_getIn1 (unSVGFETileElement self)) >>= fromJSRef)+getIn1 self = liftIO (nullableToMaybe <$> (js_getIn1 (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFETurbulenceElement.hs view
@@ -13,7 +13,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -34,72 +34,62 @@   foreign import javascript unsafe "$1[\"baseFrequencyX\"]"         js_getBaseFrequencyX ::-        JSRef SVGFETurbulenceElement -> IO (JSRef SVGAnimatedNumber)+        SVGFETurbulenceElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.baseFrequencyX Mozilla SVGFETurbulenceElement.baseFrequencyX documentation>  getBaseFrequencyX ::                   (MonadIO m) =>                     SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber) getBaseFrequencyX self-  = liftIO-      ((js_getBaseFrequencyX (unSVGFETurbulenceElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getBaseFrequencyX (self)))   foreign import javascript unsafe "$1[\"baseFrequencyY\"]"         js_getBaseFrequencyY ::-        JSRef SVGFETurbulenceElement -> IO (JSRef SVGAnimatedNumber)+        SVGFETurbulenceElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.baseFrequencyY Mozilla SVGFETurbulenceElement.baseFrequencyY documentation>  getBaseFrequencyY ::                   (MonadIO m) =>                     SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber) getBaseFrequencyY self-  = liftIO-      ((js_getBaseFrequencyY (unSVGFETurbulenceElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getBaseFrequencyY (self)))   foreign import javascript unsafe "$1[\"numOctaves\"]"         js_getNumOctaves ::-        JSRef SVGFETurbulenceElement -> IO (JSRef SVGAnimatedInteger)+        SVGFETurbulenceElement -> IO (Nullable SVGAnimatedInteger)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.numOctaves Mozilla SVGFETurbulenceElement.numOctaves documentation>  getNumOctaves ::               (MonadIO m) =>                 SVGFETurbulenceElement -> m (Maybe SVGAnimatedInteger) getNumOctaves self-  = liftIO-      ((js_getNumOctaves (unSVGFETurbulenceElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getNumOctaves (self)))   foreign import javascript unsafe "$1[\"seed\"]" js_getSeed ::-        JSRef SVGFETurbulenceElement -> IO (JSRef SVGAnimatedNumber)+        SVGFETurbulenceElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.seed Mozilla SVGFETurbulenceElement.seed documentation>  getSeed ::         (MonadIO m) =>           SVGFETurbulenceElement -> m (Maybe SVGAnimatedNumber)-getSeed self-  = liftIO-      ((js_getSeed (unSVGFETurbulenceElement self)) >>= fromJSRef)+getSeed self = liftIO (nullableToMaybe <$> (js_getSeed (self)))   foreign import javascript unsafe "$1[\"stitchTiles\"]"         js_getStitchTiles ::-        JSRef SVGFETurbulenceElement -> IO (JSRef SVGAnimatedEnumeration)+        SVGFETurbulenceElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.stitchTiles Mozilla SVGFETurbulenceElement.stitchTiles documentation>  getStitchTiles ::                (MonadIO m) =>                  SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration) getStitchTiles self-  = liftIO-      ((js_getStitchTiles (unSVGFETurbulenceElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getStitchTiles (self)))   foreign import javascript unsafe "$1[\"type\"]" js_getType ::-        JSRef SVGFETurbulenceElement -> IO (JSRef SVGAnimatedEnumeration)+        SVGFETurbulenceElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFETurbulenceElement.type Mozilla SVGFETurbulenceElement.type documentation>  getType ::         (MonadIO m) =>           SVGFETurbulenceElement -> m (Maybe SVGAnimatedEnumeration)-getType self-  = liftIO-      ((js_getType (unSVGFETurbulenceElement self)) >>= fromJSRef)+getType self = liftIO (nullableToMaybe <$> (js_getType (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFilterElement.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,91 +22,82 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"setFilterRes\"]($2, $3)"-        js_setFilterRes :: JSRef SVGFilterElement -> Word -> Word -> IO ()+        js_setFilterRes :: SVGFilterElement -> Word -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.setFilterRes Mozilla SVGFilterElement.setFilterRes documentation>  setFilterRes ::              (MonadIO m) => SVGFilterElement -> Word -> Word -> m () setFilterRes self filterResX filterResY-  = liftIO-      (js_setFilterRes (unSVGFilterElement self) filterResX filterResY)+  = liftIO (js_setFilterRes (self) filterResX filterResY)   foreign import javascript unsafe "$1[\"filterUnits\"]"         js_getFilterUnits ::-        JSRef SVGFilterElement -> IO (JSRef SVGAnimatedEnumeration)+        SVGFilterElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterUnits Mozilla SVGFilterElement.filterUnits documentation>  getFilterUnits ::                (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedEnumeration) getFilterUnits self-  = liftIO-      ((js_getFilterUnits (unSVGFilterElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getFilterUnits (self)))   foreign import javascript unsafe "$1[\"primitiveUnits\"]"         js_getPrimitiveUnits ::-        JSRef SVGFilterElement -> IO (JSRef SVGAnimatedEnumeration)+        SVGFilterElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.primitiveUnits Mozilla SVGFilterElement.primitiveUnits documentation>  getPrimitiveUnits ::                   (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedEnumeration) getPrimitiveUnits self-  = liftIO-      ((js_getPrimitiveUnits (unSVGFilterElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPrimitiveUnits (self)))   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGFilterElement -> IO (JSRef SVGAnimatedLength)+        SVGFilterElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.x Mozilla SVGFilterElement.x documentation>  getX ::      (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedLength)-getX self-  = liftIO ((js_getX (unSVGFilterElement self)) >>= fromJSRef)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGFilterElement -> IO (JSRef SVGAnimatedLength)+        SVGFilterElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.y Mozilla SVGFilterElement.y documentation>  getY ::      (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedLength)-getY self-  = liftIO ((js_getY (unSVGFilterElement self)) >>= fromJSRef)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef SVGFilterElement -> IO (JSRef SVGAnimatedLength)+        SVGFilterElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.width Mozilla SVGFilterElement.width documentation>  getWidth ::          (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedLength)-getWidth self-  = liftIO ((js_getWidth (unSVGFilterElement self)) >>= fromJSRef)+getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef SVGFilterElement -> IO (JSRef SVGAnimatedLength)+        SVGFilterElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.height Mozilla SVGFilterElement.height documentation>  getHeight ::           (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedLength)-getHeight self-  = liftIO ((js_getHeight (unSVGFilterElement self)) >>= fromJSRef)+getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"filterResX\"]"         js_getFilterResX ::-        JSRef SVGFilterElement -> IO (JSRef SVGAnimatedInteger)+        SVGFilterElement -> IO (Nullable SVGAnimatedInteger)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterResX Mozilla SVGFilterElement.filterResX documentation>  getFilterResX ::               (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedInteger) getFilterResX self-  = liftIO-      ((js_getFilterResX (unSVGFilterElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getFilterResX (self)))   foreign import javascript unsafe "$1[\"filterResY\"]"         js_getFilterResY ::-        JSRef SVGFilterElement -> IO (JSRef SVGAnimatedInteger)+        SVGFilterElement -> IO (Nullable SVGAnimatedInteger)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterElement.filterResY Mozilla SVGFilterElement.filterResY documentation>  getFilterResY ::               (MonadIO m) => SVGFilterElement -> m (Maybe SVGAnimatedInteger) getFilterResY self-  = liftIO-      ((js_getFilterResY (unSVGFilterElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getFilterResY (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFilterPrimitiveStandardAttributes.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,66 +22,51 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGFilterPrimitiveStandardAttributes ->-          IO (JSRef SVGAnimatedLength)+        SVGFilterPrimitiveStandardAttributes ->+          IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.x Mozilla SVGFilterPrimitiveStandardAttributes.x documentation>  getX ::      (MonadIO m) =>        SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength)-getX self-  = liftIO-      ((js_getX (unSVGFilterPrimitiveStandardAttributes self)) >>=-         fromJSRef)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGFilterPrimitiveStandardAttributes ->-          IO (JSRef SVGAnimatedLength)+        SVGFilterPrimitiveStandardAttributes ->+          IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.y Mozilla SVGFilterPrimitiveStandardAttributes.y documentation>  getY ::      (MonadIO m) =>        SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength)-getY self-  = liftIO-      ((js_getY (unSVGFilterPrimitiveStandardAttributes self)) >>=-         fromJSRef)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef SVGFilterPrimitiveStandardAttributes ->-          IO (JSRef SVGAnimatedLength)+        SVGFilterPrimitiveStandardAttributes ->+          IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.width Mozilla SVGFilterPrimitiveStandardAttributes.width documentation>  getWidth ::          (MonadIO m) =>            SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength)-getWidth self-  = liftIO-      ((js_getWidth (unSVGFilterPrimitiveStandardAttributes self)) >>=-         fromJSRef)+getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef SVGFilterPrimitiveStandardAttributes ->-          IO (JSRef SVGAnimatedLength)+        SVGFilterPrimitiveStandardAttributes ->+          IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.height Mozilla SVGFilterPrimitiveStandardAttributes.height documentation>  getHeight ::           (MonadIO m) =>             SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedLength)-getHeight self-  = liftIO-      ((js_getHeight (unSVGFilterPrimitiveStandardAttributes self)) >>=-         fromJSRef)+getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"result\"]" js_getResult ::-        JSRef SVGFilterPrimitiveStandardAttributes ->-          IO (JSRef SVGAnimatedString)+        SVGFilterPrimitiveStandardAttributes ->+          IO (Nullable SVGAnimatedString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFilterPrimitiveStandardAttributes.result Mozilla SVGFilterPrimitiveStandardAttributes.result documentation>  getResult ::           (MonadIO m) =>             SVGFilterPrimitiveStandardAttributes -> m (Maybe SVGAnimatedString)-getResult self-  = liftIO-      ((js_getResult (unSVGFilterPrimitiveStandardAttributes self)) >>=-         fromJSRef)+getResult self = liftIO (nullableToMaybe <$> (js_getResult (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGFitToViewBox.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,23 +20,21 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"viewBox\"]" js_getViewBox ::-        JSRef SVGFitToViewBox -> IO (JSRef SVGAnimatedRect)+        SVGFitToViewBox -> IO (Nullable SVGAnimatedRect)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFitToViewBox.viewBox Mozilla SVGFitToViewBox.viewBox documentation>  getViewBox ::            (MonadIO m) => SVGFitToViewBox -> m (Maybe SVGAnimatedRect) getViewBox self-  = liftIO ((js_getViewBox (unSVGFitToViewBox self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getViewBox (self)))   foreign import javascript unsafe "$1[\"preserveAspectRatio\"]"         js_getPreserveAspectRatio ::-        JSRef SVGFitToViewBox -> IO (JSRef SVGAnimatedPreserveAspectRatio)+        SVGFitToViewBox -> IO (Nullable SVGAnimatedPreserveAspectRatio)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGFitToViewBox.preserveAspectRatio Mozilla SVGFitToViewBox.preserveAspectRatio documentation>  getPreserveAspectRatio ::                        (MonadIO m) =>                          SVGFitToViewBox -> m (Maybe SVGAnimatedPreserveAspectRatio) getPreserveAspectRatio self-  = liftIO-      ((js_getPreserveAspectRatio (unSVGFitToViewBox self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPreserveAspectRatio (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGForeignObjectElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,43 +20,37 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGForeignObjectElement -> IO (JSRef SVGAnimatedLength)+        SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.x Mozilla SVGForeignObjectElement.x documentation>  getX ::      (MonadIO m) =>        SVGForeignObjectElement -> m (Maybe SVGAnimatedLength)-getX self-  = liftIO ((js_getX (unSVGForeignObjectElement self)) >>= fromJSRef)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGForeignObjectElement -> IO (JSRef SVGAnimatedLength)+        SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.y Mozilla SVGForeignObjectElement.y documentation>  getY ::      (MonadIO m) =>        SVGForeignObjectElement -> m (Maybe SVGAnimatedLength)-getY self-  = liftIO ((js_getY (unSVGForeignObjectElement self)) >>= fromJSRef)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef SVGForeignObjectElement -> IO (JSRef SVGAnimatedLength)+        SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.width Mozilla SVGForeignObjectElement.width documentation>  getWidth ::          (MonadIO m) =>            SVGForeignObjectElement -> m (Maybe SVGAnimatedLength)-getWidth self-  = liftIO-      ((js_getWidth (unSVGForeignObjectElement self)) >>= fromJSRef)+getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef SVGForeignObjectElement -> IO (JSRef SVGAnimatedLength)+        SVGForeignObjectElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGForeignObjectElement.height Mozilla SVGForeignObjectElement.height documentation>  getHeight ::           (MonadIO m) =>             SVGForeignObjectElement -> m (Maybe SVGAnimatedLength)-getHeight self-  = liftIO-      ((js_getHeight (unSVGForeignObjectElement self)) >>= fromJSRef)+getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGGlyphRefElement.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,97 +23,91 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"glyphRef\"] = $2;"-        js_setGlyphRef :: JSRef SVGGlyphRefElement -> JSString -> IO ()+        js_setGlyphRef :: SVGGlyphRefElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.glyphRef Mozilla SVGGlyphRefElement.glyphRef documentation>  setGlyphRef ::             (MonadIO m, ToJSString val) => SVGGlyphRefElement -> val -> m () setGlyphRef self val-  = liftIO-      (js_setGlyphRef (unSVGGlyphRefElement self) (toJSString val))+  = liftIO (js_setGlyphRef (self) (toJSString val))   foreign import javascript unsafe "$1[\"glyphRef\"]" js_getGlyphRef-        :: JSRef SVGGlyphRefElement -> IO JSString+        :: SVGGlyphRefElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.glyphRef Mozilla SVGGlyphRefElement.glyphRef documentation>  getGlyphRef ::             (MonadIO m, FromJSString result) => SVGGlyphRefElement -> m result getGlyphRef self-  = liftIO-      (fromJSString <$> (js_getGlyphRef (unSVGGlyphRefElement self)))+  = liftIO (fromJSString <$> (js_getGlyphRef (self)))   foreign import javascript unsafe "$1[\"format\"] = $2;"-        js_setFormat :: JSRef SVGGlyphRefElement -> JSString -> IO ()+        js_setFormat :: SVGGlyphRefElement -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.format Mozilla SVGGlyphRefElement.format documentation>  setFormat ::           (MonadIO m, ToJSString val) => SVGGlyphRefElement -> val -> m ()-setFormat self val-  = liftIO-      (js_setFormat (unSVGGlyphRefElement self) (toJSString val))+setFormat self val = liftIO (js_setFormat (self) (toJSString val))   foreign import javascript unsafe "$1[\"format\"]" js_getFormat ::-        JSRef SVGGlyphRefElement -> IO JSString+        SVGGlyphRefElement -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.format Mozilla SVGGlyphRefElement.format documentation>  getFormat ::           (MonadIO m, FromJSString result) => SVGGlyphRefElement -> m result-getFormat self-  = liftIO-      (fromJSString <$> (js_getFormat (unSVGGlyphRefElement self)))+getFormat self = liftIO (fromJSString <$> (js_getFormat (self)))   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGGlyphRefElement -> Float -> IO ()+        SVGGlyphRefElement -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.x Mozilla SVGGlyphRefElement.x documentation>  setX :: (MonadIO m) => SVGGlyphRefElement -> Float -> m ()-setX self val = liftIO (js_setX (unSVGGlyphRefElement self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGGlyphRefElement -> IO Float+        SVGGlyphRefElement -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.x Mozilla SVGGlyphRefElement.x documentation>  getX :: (MonadIO m) => SVGGlyphRefElement -> m Float-getX self = liftIO (js_getX (unSVGGlyphRefElement self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGGlyphRefElement -> Float -> IO ()+        SVGGlyphRefElement -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.y Mozilla SVGGlyphRefElement.y documentation>  setY :: (MonadIO m) => SVGGlyphRefElement -> Float -> m ()-setY self val = liftIO (js_setY (unSVGGlyphRefElement self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGGlyphRefElement -> IO Float+        SVGGlyphRefElement -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.y Mozilla SVGGlyphRefElement.y documentation>  getY :: (MonadIO m) => SVGGlyphRefElement -> m Float-getY self = liftIO (js_getY (unSVGGlyphRefElement self))+getY self = liftIO (js_getY (self))   foreign import javascript unsafe "$1[\"dx\"] = $2;" js_setDx ::-        JSRef SVGGlyphRefElement -> Float -> IO ()+        SVGGlyphRefElement -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.dx Mozilla SVGGlyphRefElement.dx documentation>  setDx :: (MonadIO m) => SVGGlyphRefElement -> Float -> m ()-setDx self val = liftIO (js_setDx (unSVGGlyphRefElement self) val)+setDx self val = liftIO (js_setDx (self) val)   foreign import javascript unsafe "$1[\"dx\"]" js_getDx ::-        JSRef SVGGlyphRefElement -> IO Float+        SVGGlyphRefElement -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.dx Mozilla SVGGlyphRefElement.dx documentation>  getDx :: (MonadIO m) => SVGGlyphRefElement -> m Float-getDx self = liftIO (js_getDx (unSVGGlyphRefElement self))+getDx self = liftIO (js_getDx (self))   foreign import javascript unsafe "$1[\"dy\"] = $2;" js_setDy ::-        JSRef SVGGlyphRefElement -> Float -> IO ()+        SVGGlyphRefElement -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.dy Mozilla SVGGlyphRefElement.dy documentation>  setDy :: (MonadIO m) => SVGGlyphRefElement -> Float -> m ()-setDy self val = liftIO (js_setDy (unSVGGlyphRefElement self) val)+setDy self val = liftIO (js_setDy (self) val)   foreign import javascript unsafe "$1[\"dy\"]" js_getDy ::-        JSRef SVGGlyphRefElement -> IO Float+        SVGGlyphRefElement -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGlyphRefElement.dy Mozilla SVGGlyphRefElement.dy documentation>  getDy :: (MonadIO m) => SVGGlyphRefElement -> m Float-getDy self = liftIO (js_getDy (unSVGGlyphRefElement self))+getDy self = liftIO (js_getDy (self))
src/GHCJS/DOM/JSFFI/Generated/SVGGradientElement.hs view
@@ -10,7 +10,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -29,7 +29,7 @@   foreign import javascript unsafe "$1[\"gradientUnits\"]"         js_getGradientUnits ::-        JSRef SVGGradientElement -> IO (JSRef SVGAnimatedEnumeration)+        SVGGradientElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.gradientUnits Mozilla SVGGradientElement.gradientUnits documentation>  getGradientUnits ::@@ -37,13 +37,12 @@                    self -> m (Maybe SVGAnimatedEnumeration) getGradientUnits self   = liftIO-      ((js_getGradientUnits-          (unSVGGradientElement (toSVGGradientElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getGradientUnits (toSVGGradientElement self)))   foreign import javascript unsafe "$1[\"gradientTransform\"]"         js_getGradientTransform ::-        JSRef SVGGradientElement -> IO (JSRef SVGAnimatedTransformList)+        SVGGradientElement -> IO (Nullable SVGAnimatedTransformList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.gradientTransform Mozilla SVGGradientElement.gradientTransform documentation>  getGradientTransform ::@@ -51,13 +50,12 @@                        self -> m (Maybe SVGAnimatedTransformList) getGradientTransform self   = liftIO-      ((js_getGradientTransform-          (unSVGGradientElement (toSVGGradientElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getGradientTransform (toSVGGradientElement self)))   foreign import javascript unsafe "$1[\"spreadMethod\"]"         js_getSpreadMethod ::-        JSRef SVGGradientElement -> IO (JSRef SVGAnimatedEnumeration)+        SVGGradientElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGradientElement.spreadMethod Mozilla SVGGradientElement.spreadMethod documentation>  getSpreadMethod ::@@ -65,6 +63,5 @@                   self -> m (Maybe SVGAnimatedEnumeration) getSpreadMethod self   = liftIO-      ((js_getSpreadMethod-          (unSVGGradientElement (toSVGGradientElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getSpreadMethod (toSVGGradientElement self)))
src/GHCJS/DOM/JSFFI/Generated/SVGGraphicsElement.hs view
@@ -10,7 +10,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -24,18 +24,17 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"getBBox\"]()" js_getBBox ::-        JSRef SVGGraphicsElement -> IO (JSRef SVGRect)+        SVGGraphicsElement -> IO (Nullable SVGRect)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getBBox Mozilla SVGGraphicsElement.getBBox documentation>  getBBox ::         (MonadIO m, IsSVGGraphicsElement self) => self -> m (Maybe SVGRect) getBBox self   = liftIO-      ((js_getBBox (unSVGGraphicsElement (toSVGGraphicsElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_getBBox (toSVGGraphicsElement self)))   foreign import javascript unsafe "$1[\"getCTM\"]()" js_getCTM ::-        JSRef SVGGraphicsElement -> IO (JSRef SVGMatrix)+        SVGGraphicsElement -> IO (Nullable SVGMatrix)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getCTM Mozilla SVGGraphicsElement.getCTM documentation>  getCTM ::@@ -43,11 +42,10 @@          self -> m (Maybe SVGMatrix) getCTM self   = liftIO-      ((js_getCTM (unSVGGraphicsElement (toSVGGraphicsElement self))) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getCTM (toSVGGraphicsElement self)))   foreign import javascript unsafe "$1[\"getScreenCTM\"]()"-        js_getScreenCTM :: JSRef SVGGraphicsElement -> IO (JSRef SVGMatrix)+        js_getScreenCTM :: SVGGraphicsElement -> IO (Nullable SVGMatrix)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getScreenCTM Mozilla SVGGraphicsElement.getScreenCTM documentation>  getScreenCTM ::@@ -55,14 +53,12 @@                self -> m (Maybe SVGMatrix) getScreenCTM self   = liftIO-      ((js_getScreenCTM-          (unSVGGraphicsElement (toSVGGraphicsElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_getScreenCTM (toSVGGraphicsElement self)))   foreign import javascript unsafe         "$1[\"getTransformToElement\"]($2)" js_getTransformToElement ::-        JSRef SVGGraphicsElement ->-          JSRef SVGElement -> IO (JSRef SVGMatrix)+        SVGGraphicsElement ->+          Nullable SVGElement -> IO (Nullable SVGMatrix)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.getTransformToElement Mozilla SVGGraphicsElement.getTransformToElement documentation>  getTransformToElement ::@@ -70,14 +66,13 @@                         self -> Maybe element -> m (Maybe SVGMatrix) getTransformToElement self element   = liftIO-      ((js_getTransformToElement-          (unSVGGraphicsElement (toSVGGraphicsElement self))-          (maybe jsNull (unSVGElement . toSVGElement) element))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getTransformToElement (toSVGGraphicsElement self)+            (maybeToNullable (fmap toSVGElement element))))   foreign import javascript unsafe "$1[\"transform\"]"         js_getTransform ::-        JSRef SVGGraphicsElement -> IO (JSRef SVGAnimatedTransformList)+        SVGGraphicsElement -> IO (Nullable SVGAnimatedTransformList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.transform Mozilla SVGGraphicsElement.transform documentation>  getTransform ::@@ -85,13 +80,11 @@                self -> m (Maybe SVGAnimatedTransformList) getTransform self   = liftIO-      ((js_getTransform-          (unSVGGraphicsElement (toSVGGraphicsElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_getTransform (toSVGGraphicsElement self)))   foreign import javascript unsafe "$1[\"nearestViewportElement\"]"         js_getNearestViewportElement ::-        JSRef SVGGraphicsElement -> IO (JSRef SVGElement)+        SVGGraphicsElement -> IO (Nullable SVGElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.nearestViewportElement Mozilla SVGGraphicsElement.nearestViewportElement documentation>  getNearestViewportElement ::@@ -99,13 +92,12 @@                             self -> m (Maybe SVGElement) getNearestViewportElement self   = liftIO-      ((js_getNearestViewportElement-          (unSVGGraphicsElement (toSVGGraphicsElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getNearestViewportElement (toSVGGraphicsElement self)))   foreign import javascript unsafe "$1[\"farthestViewportElement\"]"         js_getFarthestViewportElement ::-        JSRef SVGGraphicsElement -> IO (JSRef SVGElement)+        SVGGraphicsElement -> IO (Nullable SVGElement)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGGraphicsElement.farthestViewportElement Mozilla SVGGraphicsElement.farthestViewportElement documentation>  getFarthestViewportElement ::@@ -113,6 +105,5 @@                              self -> m (Maybe SVGElement) getFarthestViewportElement self   = liftIO-      ((js_getFarthestViewportElement-          (unSVGGraphicsElement (toSVGGraphicsElement self)))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_getFarthestViewportElement (toSVGGraphicsElement self)))
src/GHCJS/DOM/JSFFI/Generated/SVGImageElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,50 +20,44 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGImageElement -> IO (JSRef SVGAnimatedLength)+        SVGImageElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.x Mozilla SVGImageElement.x documentation>  getX ::      (MonadIO m) => SVGImageElement -> m (Maybe SVGAnimatedLength)-getX self-  = liftIO ((js_getX (unSVGImageElement self)) >>= fromJSRef)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGImageElement -> IO (JSRef SVGAnimatedLength)+        SVGImageElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.y Mozilla SVGImageElement.y documentation>  getY ::      (MonadIO m) => SVGImageElement -> m (Maybe SVGAnimatedLength)-getY self-  = liftIO ((js_getY (unSVGImageElement self)) >>= fromJSRef)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef SVGImageElement -> IO (JSRef SVGAnimatedLength)+        SVGImageElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.width Mozilla SVGImageElement.width documentation>  getWidth ::          (MonadIO m) => SVGImageElement -> m (Maybe SVGAnimatedLength)-getWidth self-  = liftIO ((js_getWidth (unSVGImageElement self)) >>= fromJSRef)+getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef SVGImageElement -> IO (JSRef SVGAnimatedLength)+        SVGImageElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.height Mozilla SVGImageElement.height documentation>  getHeight ::           (MonadIO m) => SVGImageElement -> m (Maybe SVGAnimatedLength)-getHeight self-  = liftIO ((js_getHeight (unSVGImageElement self)) >>= fromJSRef)+getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"preserveAspectRatio\"]"         js_getPreserveAspectRatio ::-        JSRef SVGImageElement -> IO (JSRef SVGAnimatedPreserveAspectRatio)+        SVGImageElement -> IO (Nullable SVGAnimatedPreserveAspectRatio)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGImageElement.preserveAspectRatio Mozilla SVGImageElement.preserveAspectRatio documentation>  getPreserveAspectRatio ::                        (MonadIO m) =>                          SVGImageElement -> m (Maybe SVGAnimatedPreserveAspectRatio) getPreserveAspectRatio self-  = liftIO-      ((js_getPreserveAspectRatio (unSVGImageElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPreserveAspectRatio (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGLength.hs view
@@ -16,7 +16,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -31,24 +31,23 @@   foreign import javascript unsafe         "$1[\"newValueSpecifiedUnits\"]($2,\n$3)" js_newValueSpecifiedUnits-        :: JSRef SVGLength -> Word -> Float -> IO ()+        :: SVGLength -> Word -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.newValueSpecifiedUnits Mozilla SVGLength.newValueSpecifiedUnits documentation>  newValueSpecifiedUnits ::                        (MonadIO m) => SVGLength -> Word -> Float -> m () newValueSpecifiedUnits self unitType valueInSpecifiedUnits   = liftIO-      (js_newValueSpecifiedUnits (unSVGLength self) unitType-         valueInSpecifiedUnits)+      (js_newValueSpecifiedUnits (self) unitType valueInSpecifiedUnits)   foreign import javascript unsafe         "$1[\"convertToSpecifiedUnits\"]($2)" js_convertToSpecifiedUnits ::-        JSRef SVGLength -> Word -> IO ()+        SVGLength -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.convertToSpecifiedUnits Mozilla SVGLength.convertToSpecifiedUnits documentation>  convertToSpecifiedUnits :: (MonadIO m) => SVGLength -> Word -> m () convertToSpecifiedUnits self unitType-  = liftIO (js_convertToSpecifiedUnits (unSVGLength self) unitType)+  = liftIO (js_convertToSpecifiedUnits (self) unitType) pattern SVG_LENGTHTYPE_UNKNOWN = 0 pattern SVG_LENGTHTYPE_NUMBER = 1 pattern SVG_LENGTHTYPE_PERCENTAGE = 2@@ -62,62 +61,58 @@ pattern SVG_LENGTHTYPE_PC = 10   foreign import javascript unsafe "$1[\"unitType\"]" js_getUnitType-        :: JSRef SVGLength -> IO Word+        :: SVGLength -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.unitType Mozilla SVGLength.unitType documentation>  getUnitType :: (MonadIO m) => SVGLength -> m Word-getUnitType self = liftIO (js_getUnitType (unSVGLength self))+getUnitType self = liftIO (js_getUnitType (self))   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef SVGLength -> Float -> IO ()+        :: SVGLength -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.value Mozilla SVGLength.value documentation>  setValue :: (MonadIO m) => SVGLength -> Float -> m ()-setValue self val = liftIO (js_setValue (unSVGLength self) val)+setValue self val = liftIO (js_setValue (self) val)   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef SVGLength -> IO Float+        SVGLength -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.value Mozilla SVGLength.value documentation>  getValue :: (MonadIO m) => SVGLength -> m Float-getValue self = liftIO (js_getValue (unSVGLength self))+getValue self = liftIO (js_getValue (self))   foreign import javascript unsafe         "$1[\"valueInSpecifiedUnits\"] = $2;" js_setValueInSpecifiedUnits-        :: JSRef SVGLength -> Float -> IO ()+        :: SVGLength -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueInSpecifiedUnits Mozilla SVGLength.valueInSpecifiedUnits documentation>  setValueInSpecifiedUnits ::                          (MonadIO m) => SVGLength -> Float -> m () setValueInSpecifiedUnits self val-  = liftIO (js_setValueInSpecifiedUnits (unSVGLength self) val)+  = liftIO (js_setValueInSpecifiedUnits (self) val)   foreign import javascript unsafe "$1[\"valueInSpecifiedUnits\"]"-        js_getValueInSpecifiedUnits :: JSRef SVGLength -> IO Float+        js_getValueInSpecifiedUnits :: SVGLength -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueInSpecifiedUnits Mozilla SVGLength.valueInSpecifiedUnits documentation>  getValueInSpecifiedUnits :: (MonadIO m) => SVGLength -> m Float getValueInSpecifiedUnits self-  = liftIO (js_getValueInSpecifiedUnits (unSVGLength self))+  = liftIO (js_getValueInSpecifiedUnits (self))   foreign import javascript unsafe "$1[\"valueAsString\"] = $2;"-        js_setValueAsString ::-        JSRef SVGLength -> JSRef (Maybe JSString) -> IO ()+        js_setValueAsString :: SVGLength -> Nullable JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueAsString Mozilla SVGLength.valueAsString documentation>  setValueAsString ::                  (MonadIO m, ToJSString val) => SVGLength -> Maybe val -> m () setValueAsString self val-  = liftIO-      (js_setValueAsString (unSVGLength self) (toMaybeJSString val))+  = liftIO (js_setValueAsString (self) (toMaybeJSString val))   foreign import javascript unsafe "$1[\"valueAsString\"]"-        js_getValueAsString ::-        JSRef SVGLength -> IO (JSRef (Maybe JSString))+        js_getValueAsString :: SVGLength -> IO (Nullable JSString)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLength.valueAsString Mozilla SVGLength.valueAsString documentation>  getValueAsString ::                  (MonadIO m, FromJSString result) => SVGLength -> m (Maybe result) getValueAsString self-  = liftIO-      (fromMaybeJSString <$> (js_getValueAsString (unSVGLength self)))+  = liftIO (fromMaybeJSString <$> (js_getValueAsString (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGLengthList.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,15 +22,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::-        JSRef SVGLengthList -> IO ()+        SVGLengthList -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.clear Mozilla SVGLengthList.clear documentation>  clear :: (MonadIO m) => SVGLengthList -> m ()-clear self = liftIO (js_clear (unSVGLengthList self))+clear self = liftIO (js_clear (self))   foreign import javascript unsafe "$1[\"initialize\"]($2)"         js_initialize ::-        JSRef SVGLengthList -> JSRef SVGLength -> IO (JSRef SVGLength)+        SVGLengthList -> Nullable SVGLength -> IO (Nullable SVGLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.initialize Mozilla SVGLengthList.initialize documentation>  initialize ::@@ -38,23 +38,21 @@              SVGLengthList -> Maybe SVGLength -> m (Maybe SVGLength) initialize self item   = liftIO-      ((js_initialize (unSVGLengthList self)-          (maybe jsNull pToJSRef item))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_initialize (self) (maybeToNullable item)))   foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem-        :: JSRef SVGLengthList -> Word -> IO (JSRef SVGLength)+        :: SVGLengthList -> Word -> IO (Nullable SVGLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.getItem Mozilla SVGLengthList.getItem documentation>  getItem ::         (MonadIO m) => SVGLengthList -> Word -> m (Maybe SVGLength) getItem self index-  = liftIO ((js_getItem (unSVGLengthList self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getItem (self) index))   foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)"         js_insertItemBefore ::-        JSRef SVGLengthList ->-          JSRef SVGLength -> Word -> IO (JSRef SVGLength)+        SVGLengthList ->+          Nullable SVGLength -> Word -> IO (Nullable SVGLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.insertItemBefore Mozilla SVGLengthList.insertItemBefore documentation>  insertItemBefore ::@@ -62,15 +60,13 @@                    SVGLengthList -> Maybe SVGLength -> Word -> m (Maybe SVGLength) insertItemBefore self item index   = liftIO-      ((js_insertItemBefore (unSVGLengthList self)-          (maybe jsNull pToJSRef item)-          index)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_insertItemBefore (self) (maybeToNullable item) index))   foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)"         js_replaceItem ::-        JSRef SVGLengthList ->-          JSRef SVGLength -> Word -> IO (JSRef SVGLength)+        SVGLengthList ->+          Nullable SVGLength -> Word -> IO (Nullable SVGLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.replaceItem Mozilla SVGLengthList.replaceItem documentation>  replaceItem ::@@ -78,25 +74,21 @@               SVGLengthList -> Maybe SVGLength -> Word -> m (Maybe SVGLength) replaceItem self item index   = liftIO-      ((js_replaceItem (unSVGLengthList self)-          (maybe jsNull pToJSRef item)-          index)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_replaceItem (self) (maybeToNullable item) index))   foreign import javascript unsafe "$1[\"removeItem\"]($2)"-        js_removeItem ::-        JSRef SVGLengthList -> Word -> IO (JSRef SVGLength)+        js_removeItem :: SVGLengthList -> Word -> IO (Nullable SVGLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.removeItem Mozilla SVGLengthList.removeItem documentation>  removeItem ::            (MonadIO m) => SVGLengthList -> Word -> m (Maybe SVGLength) removeItem self index-  = liftIO-      ((js_removeItem (unSVGLengthList self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_removeItem (self) index))   foreign import javascript unsafe "$1[\"appendItem\"]($2)"         js_appendItem ::-        JSRef SVGLengthList -> JSRef SVGLength -> IO (JSRef SVGLength)+        SVGLengthList -> Nullable SVGLength -> IO (Nullable SVGLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.appendItem Mozilla SVGLengthList.appendItem documentation>  appendItem ::@@ -104,14 +96,11 @@              SVGLengthList -> Maybe SVGLength -> m (Maybe SVGLength) appendItem self item   = liftIO-      ((js_appendItem (unSVGLengthList self)-          (maybe jsNull pToJSRef item))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_appendItem (self) (maybeToNullable item)))   foreign import javascript unsafe "$1[\"numberOfItems\"]"-        js_getNumberOfItems :: JSRef SVGLengthList -> IO Word+        js_getNumberOfItems :: SVGLengthList -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLengthList.numberOfItems Mozilla SVGLengthList.numberOfItems documentation>  getNumberOfItems :: (MonadIO m) => SVGLengthList -> m Word-getNumberOfItems self-  = liftIO (js_getNumberOfItems (unSVGLengthList self))+getNumberOfItems self = liftIO (js_getNumberOfItems (self))
src/GHCJS/DOM/JSFFI/Generated/SVGLineElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,37 +19,33 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x1\"]" js_getX1 ::-        JSRef SVGLineElement -> IO (JSRef SVGAnimatedLength)+        SVGLineElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.x1 Mozilla SVGLineElement.x1 documentation>  getX1 ::       (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength)-getX1 self-  = liftIO ((js_getX1 (unSVGLineElement self)) >>= fromJSRef)+getX1 self = liftIO (nullableToMaybe <$> (js_getX1 (self)))   foreign import javascript unsafe "$1[\"y1\"]" js_getY1 ::-        JSRef SVGLineElement -> IO (JSRef SVGAnimatedLength)+        SVGLineElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.y1 Mozilla SVGLineElement.y1 documentation>  getY1 ::       (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength)-getY1 self-  = liftIO ((js_getY1 (unSVGLineElement self)) >>= fromJSRef)+getY1 self = liftIO (nullableToMaybe <$> (js_getY1 (self)))   foreign import javascript unsafe "$1[\"x2\"]" js_getX2 ::-        JSRef SVGLineElement -> IO (JSRef SVGAnimatedLength)+        SVGLineElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.x2 Mozilla SVGLineElement.x2 documentation>  getX2 ::       (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength)-getX2 self-  = liftIO ((js_getX2 (unSVGLineElement self)) >>= fromJSRef)+getX2 self = liftIO (nullableToMaybe <$> (js_getX2 (self)))   foreign import javascript unsafe "$1[\"y2\"]" js_getY2 ::-        JSRef SVGLineElement -> IO (JSRef SVGAnimatedLength)+        SVGLineElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLineElement.y2 Mozilla SVGLineElement.y2 documentation>  getY2 ::       (MonadIO m) => SVGLineElement -> m (Maybe SVGAnimatedLength)-getY2 self-  = liftIO ((js_getY2 (unSVGLineElement self)) >>= fromJSRef)+getY2 self = liftIO (nullableToMaybe <$> (js_getY2 (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGLinearGradientElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,45 +20,37 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x1\"]" js_getX1 ::-        JSRef SVGLinearGradientElement -> IO (JSRef SVGAnimatedLength)+        SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.x1 Mozilla SVGLinearGradientElement.x1 documentation>  getX1 ::       (MonadIO m) =>         SVGLinearGradientElement -> m (Maybe SVGAnimatedLength)-getX1 self-  = liftIO-      ((js_getX1 (unSVGLinearGradientElement self)) >>= fromJSRef)+getX1 self = liftIO (nullableToMaybe <$> (js_getX1 (self)))   foreign import javascript unsafe "$1[\"y1\"]" js_getY1 ::-        JSRef SVGLinearGradientElement -> IO (JSRef SVGAnimatedLength)+        SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.y1 Mozilla SVGLinearGradientElement.y1 documentation>  getY1 ::       (MonadIO m) =>         SVGLinearGradientElement -> m (Maybe SVGAnimatedLength)-getY1 self-  = liftIO-      ((js_getY1 (unSVGLinearGradientElement self)) >>= fromJSRef)+getY1 self = liftIO (nullableToMaybe <$> (js_getY1 (self)))   foreign import javascript unsafe "$1[\"x2\"]" js_getX2 ::-        JSRef SVGLinearGradientElement -> IO (JSRef SVGAnimatedLength)+        SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.x2 Mozilla SVGLinearGradientElement.x2 documentation>  getX2 ::       (MonadIO m) =>         SVGLinearGradientElement -> m (Maybe SVGAnimatedLength)-getX2 self-  = liftIO-      ((js_getX2 (unSVGLinearGradientElement self)) >>= fromJSRef)+getX2 self = liftIO (nullableToMaybe <$> (js_getX2 (self)))   foreign import javascript unsafe "$1[\"y2\"]" js_getY2 ::-        JSRef SVGLinearGradientElement -> IO (JSRef SVGAnimatedLength)+        SVGLinearGradientElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGLinearGradientElement.y2 Mozilla SVGLinearGradientElement.y2 documentation>  getY2 ::       (MonadIO m) =>         SVGLinearGradientElement -> m (Maybe SVGAnimatedLength)-getY2 self-  = liftIO-      ((js_getY2 (unSVGLinearGradientElement self)) >>= fromJSRef)+getY2 self = liftIO (nullableToMaybe <$> (js_getY2 (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGMarkerElement.hs view
@@ -13,7 +13,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,24 +27,21 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"setOrientToAuto\"]()"-        js_setOrientToAuto :: JSRef SVGMarkerElement -> IO ()+        js_setOrientToAuto :: SVGMarkerElement -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.setOrientToAuto Mozilla SVGMarkerElement.setOrientToAuto documentation>  setOrientToAuto :: (MonadIO m) => SVGMarkerElement -> m ()-setOrientToAuto self-  = liftIO (js_setOrientToAuto (unSVGMarkerElement self))+setOrientToAuto self = liftIO (js_setOrientToAuto (self))   foreign import javascript unsafe "$1[\"setOrientToAngle\"]($2)"         js_setOrientToAngle ::-        JSRef SVGMarkerElement -> JSRef SVGAngle -> IO ()+        SVGMarkerElement -> Nullable SVGAngle -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.setOrientToAngle Mozilla SVGMarkerElement.setOrientToAngle documentation>  setOrientToAngle ::                  (MonadIO m) => SVGMarkerElement -> Maybe SVGAngle -> m () setOrientToAngle self angle-  = liftIO-      (js_setOrientToAngle (unSVGMarkerElement self)-         (maybe jsNull pToJSRef angle))+  = liftIO (js_setOrientToAngle (self) (maybeToNullable angle)) pattern SVG_MARKERUNITS_UNKNOWN = 0 pattern SVG_MARKERUNITS_USERSPACEONUSE = 1 pattern SVG_MARKERUNITS_STROKEWIDTH = 2@@ -53,74 +50,67 @@ pattern SVG_MARKER_ORIENT_ANGLE = 2   foreign import javascript unsafe "$1[\"refX\"]" js_getRefX ::-        JSRef SVGMarkerElement -> IO (JSRef SVGAnimatedLength)+        SVGMarkerElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.refX Mozilla SVGMarkerElement.refX documentation>  getRefX ::         (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)-getRefX self-  = liftIO ((js_getRefX (unSVGMarkerElement self)) >>= fromJSRef)+getRefX self = liftIO (nullableToMaybe <$> (js_getRefX (self)))   foreign import javascript unsafe "$1[\"refY\"]" js_getRefY ::-        JSRef SVGMarkerElement -> IO (JSRef SVGAnimatedLength)+        SVGMarkerElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.refY Mozilla SVGMarkerElement.refY documentation>  getRefY ::         (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)-getRefY self-  = liftIO ((js_getRefY (unSVGMarkerElement self)) >>= fromJSRef)+getRefY self = liftIO (nullableToMaybe <$> (js_getRefY (self)))   foreign import javascript unsafe "$1[\"markerUnits\"]"         js_getMarkerUnits ::-        JSRef SVGMarkerElement -> IO (JSRef SVGAnimatedEnumeration)+        SVGMarkerElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerUnits Mozilla SVGMarkerElement.markerUnits documentation>  getMarkerUnits ::                (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration) getMarkerUnits self-  = liftIO-      ((js_getMarkerUnits (unSVGMarkerElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getMarkerUnits (self)))   foreign import javascript unsafe "$1[\"markerWidth\"]"         js_getMarkerWidth ::-        JSRef SVGMarkerElement -> IO (JSRef SVGAnimatedLength)+        SVGMarkerElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerWidth Mozilla SVGMarkerElement.markerWidth documentation>  getMarkerWidth ::                (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getMarkerWidth self-  = liftIO-      ((js_getMarkerWidth (unSVGMarkerElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getMarkerWidth (self)))   foreign import javascript unsafe "$1[\"markerHeight\"]"         js_getMarkerHeight ::-        JSRef SVGMarkerElement -> IO (JSRef SVGAnimatedLength)+        SVGMarkerElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.markerHeight Mozilla SVGMarkerElement.markerHeight documentation>  getMarkerHeight ::                 (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength) getMarkerHeight self-  = liftIO-      ((js_getMarkerHeight (unSVGMarkerElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getMarkerHeight (self)))   foreign import javascript unsafe "$1[\"orientType\"]"         js_getOrientType ::-        JSRef SVGMarkerElement -> IO (JSRef SVGAnimatedEnumeration)+        SVGMarkerElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.orientType Mozilla SVGMarkerElement.orientType documentation>  getOrientType ::               (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration) getOrientType self-  = liftIO-      ((js_getOrientType (unSVGMarkerElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getOrientType (self)))   foreign import javascript unsafe "$1[\"orientAngle\"]"         js_getOrientAngle ::-        JSRef SVGMarkerElement -> IO (JSRef SVGAnimatedAngle)+        SVGMarkerElement -> IO (Nullable SVGAnimatedAngle)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMarkerElement.orientAngle Mozilla SVGMarkerElement.orientAngle documentation>  getOrientAngle ::                (MonadIO m) => SVGMarkerElement -> m (Maybe SVGAnimatedAngle) getOrientAngle self-  = liftIO-      ((js_getOrientAngle (unSVGMarkerElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getOrientAngle (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGMaskElement.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,57 +22,52 @@   foreign import javascript unsafe "$1[\"maskUnits\"]"         js_getMaskUnits ::-        JSRef SVGMaskElement -> IO (JSRef SVGAnimatedEnumeration)+        SVGMaskElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.maskUnits Mozilla SVGMaskElement.maskUnits documentation>  getMaskUnits ::              (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedEnumeration) getMaskUnits self-  = liftIO ((js_getMaskUnits (unSVGMaskElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getMaskUnits (self)))   foreign import javascript unsafe "$1[\"maskContentUnits\"]"         js_getMaskContentUnits ::-        JSRef SVGMaskElement -> IO (JSRef SVGAnimatedEnumeration)+        SVGMaskElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.maskContentUnits Mozilla SVGMaskElement.maskContentUnits documentation>  getMaskContentUnits ::                     (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedEnumeration) getMaskContentUnits self-  = liftIO-      ((js_getMaskContentUnits (unSVGMaskElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getMaskContentUnits (self)))   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGMaskElement -> IO (JSRef SVGAnimatedLength)+        SVGMaskElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.x Mozilla SVGMaskElement.x documentation>  getX ::      (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength)-getX self-  = liftIO ((js_getX (unSVGMaskElement self)) >>= fromJSRef)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGMaskElement -> IO (JSRef SVGAnimatedLength)+        SVGMaskElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.y Mozilla SVGMaskElement.y documentation>  getY ::      (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength)-getY self-  = liftIO ((js_getY (unSVGMaskElement self)) >>= fromJSRef)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef SVGMaskElement -> IO (JSRef SVGAnimatedLength)+        SVGMaskElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.width Mozilla SVGMaskElement.width documentation>  getWidth ::          (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength)-getWidth self-  = liftIO ((js_getWidth (unSVGMaskElement self)) >>= fromJSRef)+getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef SVGMaskElement -> IO (JSRef SVGAnimatedLength)+        SVGMaskElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMaskElement.height Mozilla SVGMaskElement.height documentation>  getHeight ::           (MonadIO m) => SVGMaskElement -> m (Maybe SVGAnimatedLength)-getHeight self-  = liftIO ((js_getHeight (unSVGMaskElement self)) >>= fromJSRef)+getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGMatrix.hs view
@@ -11,7 +11,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -25,184 +25,181 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"multiply\"]($2)" js_multiply-        :: JSRef SVGMatrix -> JSRef SVGMatrix -> IO (JSRef SVGMatrix)+        :: SVGMatrix -> Nullable SVGMatrix -> IO (Nullable SVGMatrix)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.multiply Mozilla SVGMatrix.multiply documentation>  multiply ::          (MonadIO m) => SVGMatrix -> Maybe SVGMatrix -> m (Maybe SVGMatrix) multiply self secondMatrix   = liftIO-      ((js_multiply (unSVGMatrix self)-          (maybe jsNull pToJSRef secondMatrix))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_multiply (self) (maybeToNullable secondMatrix)))   foreign import javascript unsafe "$1[\"inverse\"]()" js_inverse ::-        JSRef SVGMatrix -> IO (JSRef SVGMatrix)+        SVGMatrix -> IO (Nullable SVGMatrix)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.inverse Mozilla SVGMatrix.inverse documentation>  inverse :: (MonadIO m) => SVGMatrix -> m (Maybe SVGMatrix)-inverse self-  = liftIO ((js_inverse (unSVGMatrix self)) >>= fromJSRef)+inverse self = liftIO (nullableToMaybe <$> (js_inverse (self)))   foreign import javascript unsafe "$1[\"translate\"]($2, $3)"         js_translate ::-        JSRef SVGMatrix -> Float -> Float -> IO (JSRef SVGMatrix)+        SVGMatrix -> Float -> Float -> IO (Nullable SVGMatrix)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.translate Mozilla SVGMatrix.translate documentation>  translate ::           (MonadIO m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix) translate self x y-  = liftIO ((js_translate (unSVGMatrix self) x y) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_translate (self) x y))   foreign import javascript unsafe "$1[\"scale\"]($2)" js_scale ::-        JSRef SVGMatrix -> Float -> IO (JSRef SVGMatrix)+        SVGMatrix -> Float -> IO (Nullable SVGMatrix)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.scale Mozilla SVGMatrix.scale documentation>  scale :: (MonadIO m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) scale self scaleFactor-  = liftIO ((js_scale (unSVGMatrix self) scaleFactor) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_scale (self) scaleFactor))   foreign import javascript unsafe "$1[\"scaleNonUniform\"]($2, $3)"         js_scaleNonUniform ::-        JSRef SVGMatrix -> Float -> Float -> IO (JSRef SVGMatrix)+        SVGMatrix -> Float -> Float -> IO (Nullable SVGMatrix)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.scaleNonUniform Mozilla SVGMatrix.scaleNonUniform documentation>  scaleNonUniform ::                 (MonadIO m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix) scaleNonUniform self scaleFactorX scaleFactorY   = liftIO-      ((js_scaleNonUniform (unSVGMatrix self) scaleFactorX scaleFactorY)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_scaleNonUniform (self) scaleFactorX scaleFactorY))   foreign import javascript unsafe "$1[\"rotate\"]($2)" js_rotate ::-        JSRef SVGMatrix -> Float -> IO (JSRef SVGMatrix)+        SVGMatrix -> Float -> IO (Nullable SVGMatrix)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.rotate Mozilla SVGMatrix.rotate documentation>  rotate :: (MonadIO m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) rotate self angle-  = liftIO ((js_rotate (unSVGMatrix self) angle) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_rotate (self) angle))   foreign import javascript unsafe "$1[\"rotateFromVector\"]($2, $3)"         js_rotateFromVector ::-        JSRef SVGMatrix -> Float -> Float -> IO (JSRef SVGMatrix)+        SVGMatrix -> Float -> Float -> IO (Nullable SVGMatrix)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.rotateFromVector Mozilla SVGMatrix.rotateFromVector documentation>  rotateFromVector ::                  (MonadIO m) => SVGMatrix -> Float -> Float -> m (Maybe SVGMatrix) rotateFromVector self x y-  = liftIO-      ((js_rotateFromVector (unSVGMatrix self) x y) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_rotateFromVector (self) x y))   foreign import javascript unsafe "$1[\"flipX\"]()" js_flipX ::-        JSRef SVGMatrix -> IO (JSRef SVGMatrix)+        SVGMatrix -> IO (Nullable SVGMatrix)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipX Mozilla SVGMatrix.flipX documentation>  flipX :: (MonadIO m) => SVGMatrix -> m (Maybe SVGMatrix)-flipX self = liftIO ((js_flipX (unSVGMatrix self)) >>= fromJSRef)+flipX self = liftIO (nullableToMaybe <$> (js_flipX (self)))   foreign import javascript unsafe "$1[\"flipY\"]()" js_flipY ::-        JSRef SVGMatrix -> IO (JSRef SVGMatrix)+        SVGMatrix -> IO (Nullable SVGMatrix)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.flipY Mozilla SVGMatrix.flipY documentation>  flipY :: (MonadIO m) => SVGMatrix -> m (Maybe SVGMatrix)-flipY self = liftIO ((js_flipY (unSVGMatrix self)) >>= fromJSRef)+flipY self = liftIO (nullableToMaybe <$> (js_flipY (self)))   foreign import javascript unsafe "$1[\"skewX\"]($2)" js_skewX ::-        JSRef SVGMatrix -> Float -> IO (JSRef SVGMatrix)+        SVGMatrix -> Float -> IO (Nullable SVGMatrix)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewX Mozilla SVGMatrix.skewX documentation>  skewX :: (MonadIO m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) skewX self angle-  = liftIO ((js_skewX (unSVGMatrix self) angle) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_skewX (self) angle))   foreign import javascript unsafe "$1[\"skewY\"]($2)" js_skewY ::-        JSRef SVGMatrix -> Float -> IO (JSRef SVGMatrix)+        SVGMatrix -> Float -> IO (Nullable SVGMatrix)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.skewY Mozilla SVGMatrix.skewY documentation>  skewY :: (MonadIO m) => SVGMatrix -> Float -> m (Maybe SVGMatrix) skewY self angle-  = liftIO ((js_skewY (unSVGMatrix self) angle) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_skewY (self) angle))   foreign import javascript unsafe "$1[\"a\"] = $2;" js_setA ::-        JSRef SVGMatrix -> Double -> IO ()+        SVGMatrix -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.a Mozilla SVGMatrix.a documentation>  setA :: (MonadIO m) => SVGMatrix -> Double -> m ()-setA self val = liftIO (js_setA (unSVGMatrix self) val)+setA self val = liftIO (js_setA (self) val)   foreign import javascript unsafe "$1[\"a\"]" js_getA ::-        JSRef SVGMatrix -> IO Double+        SVGMatrix -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.a Mozilla SVGMatrix.a documentation>  getA :: (MonadIO m) => SVGMatrix -> m Double-getA self = liftIO (js_getA (unSVGMatrix self))+getA self = liftIO (js_getA (self))   foreign import javascript unsafe "$1[\"b\"] = $2;" js_setB ::-        JSRef SVGMatrix -> Double -> IO ()+        SVGMatrix -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.b Mozilla SVGMatrix.b documentation>  setB :: (MonadIO m) => SVGMatrix -> Double -> m ()-setB self val = liftIO (js_setB (unSVGMatrix self) val)+setB self val = liftIO (js_setB (self) val)   foreign import javascript unsafe "$1[\"b\"]" js_getB ::-        JSRef SVGMatrix -> IO Double+        SVGMatrix -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.b Mozilla SVGMatrix.b documentation>  getB :: (MonadIO m) => SVGMatrix -> m Double-getB self = liftIO (js_getB (unSVGMatrix self))+getB self = liftIO (js_getB (self))   foreign import javascript unsafe "$1[\"c\"] = $2;" js_setC ::-        JSRef SVGMatrix -> Double -> IO ()+        SVGMatrix -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.c Mozilla SVGMatrix.c documentation>  setC :: (MonadIO m) => SVGMatrix -> Double -> m ()-setC self val = liftIO (js_setC (unSVGMatrix self) val)+setC self val = liftIO (js_setC (self) val)   foreign import javascript unsafe "$1[\"c\"]" js_getC ::-        JSRef SVGMatrix -> IO Double+        SVGMatrix -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.c Mozilla SVGMatrix.c documentation>  getC :: (MonadIO m) => SVGMatrix -> m Double-getC self = liftIO (js_getC (unSVGMatrix self))+getC self = liftIO (js_getC (self))   foreign import javascript unsafe "$1[\"d\"] = $2;" js_setD ::-        JSRef SVGMatrix -> Double -> IO ()+        SVGMatrix -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.d Mozilla SVGMatrix.d documentation>  setD :: (MonadIO m) => SVGMatrix -> Double -> m ()-setD self val = liftIO (js_setD (unSVGMatrix self) val)+setD self val = liftIO (js_setD (self) val)   foreign import javascript unsafe "$1[\"d\"]" js_getD ::-        JSRef SVGMatrix -> IO Double+        SVGMatrix -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.d Mozilla SVGMatrix.d documentation>  getD :: (MonadIO m) => SVGMatrix -> m Double-getD self = liftIO (js_getD (unSVGMatrix self))+getD self = liftIO (js_getD (self))   foreign import javascript unsafe "$1[\"e\"] = $2;" js_setE ::-        JSRef SVGMatrix -> Double -> IO ()+        SVGMatrix -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.e Mozilla SVGMatrix.e documentation>  setE :: (MonadIO m) => SVGMatrix -> Double -> m ()-setE self val = liftIO (js_setE (unSVGMatrix self) val)+setE self val = liftIO (js_setE (self) val)   foreign import javascript unsafe "$1[\"e\"]" js_getE ::-        JSRef SVGMatrix -> IO Double+        SVGMatrix -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.e Mozilla SVGMatrix.e documentation>  getE :: (MonadIO m) => SVGMatrix -> m Double-getE self = liftIO (js_getE (unSVGMatrix self))+getE self = liftIO (js_getE (self))   foreign import javascript unsafe "$1[\"f\"] = $2;" js_setF ::-        JSRef SVGMatrix -> Double -> IO ()+        SVGMatrix -> Double -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.f Mozilla SVGMatrix.f documentation>  setF :: (MonadIO m) => SVGMatrix -> Double -> m ()-setF self val = liftIO (js_setF (unSVGMatrix self) val)+setF self val = liftIO (js_setF (self) val)   foreign import javascript unsafe "$1[\"f\"]" js_getF ::-        JSRef SVGMatrix -> IO Double+        SVGMatrix -> IO Double  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGMatrix.f Mozilla SVGMatrix.f documentation>  getF :: (MonadIO m) => SVGMatrix -> m Double-getF self = liftIO (js_getF (unSVGMatrix self))+getF self = liftIO (js_getF (self))
src/GHCJS/DOM/JSFFI/Generated/SVGNumber.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,15 +19,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"value\"] = $2;" js_setValue-        :: JSRef SVGNumber -> Float -> IO ()+        :: SVGNumber -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumber.value Mozilla SVGNumber.value documentation>  setValue :: (MonadIO m) => SVGNumber -> Float -> m ()-setValue self val = liftIO (js_setValue (unSVGNumber self) val)+setValue self val = liftIO (js_setValue (self) val)   foreign import javascript unsafe "$1[\"value\"]" js_getValue ::-        JSRef SVGNumber -> IO Float+        SVGNumber -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumber.value Mozilla SVGNumber.value documentation>  getValue :: (MonadIO m) => SVGNumber -> m Float-getValue self = liftIO (js_getValue (unSVGNumber self))+getValue self = liftIO (js_getValue (self))
src/GHCJS/DOM/JSFFI/Generated/SVGNumberList.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,15 +22,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::-        JSRef SVGNumberList -> IO ()+        SVGNumberList -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.clear Mozilla SVGNumberList.clear documentation>  clear :: (MonadIO m) => SVGNumberList -> m ()-clear self = liftIO (js_clear (unSVGNumberList self))+clear self = liftIO (js_clear (self))   foreign import javascript unsafe "$1[\"initialize\"]($2)"         js_initialize ::-        JSRef SVGNumberList -> JSRef SVGNumber -> IO (JSRef SVGNumber)+        SVGNumberList -> Nullable SVGNumber -> IO (Nullable SVGNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.initialize Mozilla SVGNumberList.initialize documentation>  initialize ::@@ -38,23 +38,21 @@              SVGNumberList -> Maybe SVGNumber -> m (Maybe SVGNumber) initialize self item   = liftIO-      ((js_initialize (unSVGNumberList self)-          (maybe jsNull pToJSRef item))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_initialize (self) (maybeToNullable item)))   foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem-        :: JSRef SVGNumberList -> Word -> IO (JSRef SVGNumber)+        :: SVGNumberList -> Word -> IO (Nullable SVGNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.getItem Mozilla SVGNumberList.getItem documentation>  getItem ::         (MonadIO m) => SVGNumberList -> Word -> m (Maybe SVGNumber) getItem self index-  = liftIO ((js_getItem (unSVGNumberList self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getItem (self) index))   foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)"         js_insertItemBefore ::-        JSRef SVGNumberList ->-          JSRef SVGNumber -> Word -> IO (JSRef SVGNumber)+        SVGNumberList ->+          Nullable SVGNumber -> Word -> IO (Nullable SVGNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.insertItemBefore Mozilla SVGNumberList.insertItemBefore documentation>  insertItemBefore ::@@ -62,15 +60,13 @@                    SVGNumberList -> Maybe SVGNumber -> Word -> m (Maybe SVGNumber) insertItemBefore self item index   = liftIO-      ((js_insertItemBefore (unSVGNumberList self)-          (maybe jsNull pToJSRef item)-          index)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_insertItemBefore (self) (maybeToNullable item) index))   foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)"         js_replaceItem ::-        JSRef SVGNumberList ->-          JSRef SVGNumber -> Word -> IO (JSRef SVGNumber)+        SVGNumberList ->+          Nullable SVGNumber -> Word -> IO (Nullable SVGNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.replaceItem Mozilla SVGNumberList.replaceItem documentation>  replaceItem ::@@ -78,25 +74,21 @@               SVGNumberList -> Maybe SVGNumber -> Word -> m (Maybe SVGNumber) replaceItem self item index   = liftIO-      ((js_replaceItem (unSVGNumberList self)-          (maybe jsNull pToJSRef item)-          index)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_replaceItem (self) (maybeToNullable item) index))   foreign import javascript unsafe "$1[\"removeItem\"]($2)"-        js_removeItem ::-        JSRef SVGNumberList -> Word -> IO (JSRef SVGNumber)+        js_removeItem :: SVGNumberList -> Word -> IO (Nullable SVGNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.removeItem Mozilla SVGNumberList.removeItem documentation>  removeItem ::            (MonadIO m) => SVGNumberList -> Word -> m (Maybe SVGNumber) removeItem self index-  = liftIO-      ((js_removeItem (unSVGNumberList self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_removeItem (self) index))   foreign import javascript unsafe "$1[\"appendItem\"]($2)"         js_appendItem ::-        JSRef SVGNumberList -> JSRef SVGNumber -> IO (JSRef SVGNumber)+        SVGNumberList -> Nullable SVGNumber -> IO (Nullable SVGNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.appendItem Mozilla SVGNumberList.appendItem documentation>  appendItem ::@@ -104,14 +96,11 @@              SVGNumberList -> Maybe SVGNumber -> m (Maybe SVGNumber) appendItem self item   = liftIO-      ((js_appendItem (unSVGNumberList self)-          (maybe jsNull pToJSRef item))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_appendItem (self) (maybeToNullable item)))   foreign import javascript unsafe "$1[\"numberOfItems\"]"-        js_getNumberOfItems :: JSRef SVGNumberList -> IO Word+        js_getNumberOfItems :: SVGNumberList -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGNumberList.numberOfItems Mozilla SVGNumberList.numberOfItems documentation>  getNumberOfItems :: (MonadIO m) => SVGNumberList -> m Word-getNumberOfItems self-  = liftIO (js_getNumberOfItems (unSVGNumberList self))+getNumberOfItems self = liftIO (js_getNumberOfItems (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPaint.hs view
@@ -13,7 +13,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -27,16 +27,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"setUri\"]($2)" js_setUri ::-        JSRef SVGPaint -> JSString -> IO ()+        SVGPaint -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint.setUri Mozilla SVGPaint.setUri documentation>  setUri :: (MonadIO m, ToJSString uri) => SVGPaint -> uri -> m ()-setUri self uri-  = liftIO (js_setUri (unSVGPaint self) (toJSString uri))+setUri self uri = liftIO (js_setUri (self) (toJSString uri))   foreign import javascript unsafe "$1[\"setPaint\"]($2, $3, $4, $5)"         js_setPaint ::-        JSRef SVGPaint -> Word -> JSString -> JSString -> JSString -> IO ()+        SVGPaint -> Word -> JSString -> JSString -> JSString -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint.setPaint Mozilla SVGPaint.setPaint documentation>  setPaint ::@@ -45,7 +44,7 @@            SVGPaint -> Word -> uri -> rgbColor -> iccColor -> m () setPaint self paintType uri rgbColor iccColor   = liftIO-      (js_setPaint (unSVGPaint self) paintType (toJSString uri)+      (js_setPaint (self) paintType (toJSString uri)          (toJSString rgbColor)          (toJSString iccColor)) pattern SVG_PAINTTYPE_UNKNOWN = 0@@ -60,16 +59,15 @@ pattern SVG_PAINTTYPE_URI = 107   foreign import javascript unsafe "$1[\"paintType\"]"-        js_getPaintType :: JSRef SVGPaint -> IO Word+        js_getPaintType :: SVGPaint -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint.paintType Mozilla SVGPaint.paintType documentation>  getPaintType :: (MonadIO m) => SVGPaint -> m Word-getPaintType self = liftIO (js_getPaintType (unSVGPaint self))+getPaintType self = liftIO (js_getPaintType (self))   foreign import javascript unsafe "$1[\"uri\"]" js_getUri ::-        JSRef SVGPaint -> IO JSString+        SVGPaint -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPaint.uri Mozilla SVGPaint.uri documentation>  getUri :: (MonadIO m, FromJSString result) => SVGPaint -> m result-getUri self-  = liftIO (fromJSString <$> (js_getUri (unSVGPaint self)))+getUri self = liftIO (fromJSString <$> (js_getUri (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGPathElement.hs view
@@ -41,7 +41,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -55,51 +55,48 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"getTotalLength\"]()"-        js_getTotalLength :: JSRef SVGPathElement -> IO Float+        js_getTotalLength :: SVGPathElement -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getTotalLength Mozilla SVGPathElement.getTotalLength documentation>  getTotalLength :: (MonadIO m) => SVGPathElement -> m Float-getTotalLength self-  = liftIO (js_getTotalLength (unSVGPathElement self))+getTotalLength self = liftIO (js_getTotalLength (self))   foreign import javascript unsafe "$1[\"getPointAtLength\"]($2)"         js_getPointAtLength ::-        JSRef SVGPathElement -> Float -> IO (JSRef SVGPoint)+        SVGPathElement -> Float -> IO (Nullable SVGPoint)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getPointAtLength Mozilla SVGPathElement.getPointAtLength documentation>  getPointAtLength ::                  (MonadIO m) => SVGPathElement -> Float -> m (Maybe SVGPoint) getPointAtLength self distance   = liftIO-      ((js_getPointAtLength (unSVGPathElement self) distance) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getPointAtLength (self) distance))   foreign import javascript unsafe "$1[\"getPathSegAtLength\"]($2)"-        js_getPathSegAtLength :: JSRef SVGPathElement -> Float -> IO Word+        js_getPathSegAtLength :: SVGPathElement -> Float -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.getPathSegAtLength Mozilla SVGPathElement.getPathSegAtLength documentation>  getPathSegAtLength ::                    (MonadIO m) => SVGPathElement -> Float -> m Word getPathSegAtLength self distance-  = liftIO (js_getPathSegAtLength (unSVGPathElement self) distance)+  = liftIO (js_getPathSegAtLength (self) distance)   foreign import javascript unsafe         "$1[\"createSVGPathSegClosePath\"]()" js_createSVGPathSegClosePath-        :: JSRef SVGPathElement -> IO (JSRef SVGPathSegClosePath)+        :: SVGPathElement -> IO (Nullable SVGPathSegClosePath)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegClosePath Mozilla SVGPathElement.createSVGPathSegClosePath documentation>  createSVGPathSegClosePath ::                           (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegClosePath) createSVGPathSegClosePath self   = liftIO-      ((js_createSVGPathSegClosePath (unSVGPathElement self)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_createSVGPathSegClosePath (self)))   foreign import javascript unsafe         "$1[\"createSVGPathSegMovetoAbs\"]($2,\n$3)"         js_createSVGPathSegMovetoAbs ::-        JSRef SVGPathElement ->-          Float -> Float -> IO (JSRef SVGPathSegMovetoAbs)+        SVGPathElement ->+          Float -> Float -> IO (Nullable SVGPathSegMovetoAbs)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegMovetoAbs Mozilla SVGPathElement.createSVGPathSegMovetoAbs documentation>  createSVGPathSegMovetoAbs ::@@ -107,14 +104,13 @@                             SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegMovetoAbs) createSVGPathSegMovetoAbs self x y   = liftIO-      ((js_createSVGPathSegMovetoAbs (unSVGPathElement self) x y) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_createSVGPathSegMovetoAbs (self) x y))   foreign import javascript unsafe         "$1[\"createSVGPathSegMovetoRel\"]($2,\n$3)"         js_createSVGPathSegMovetoRel ::-        JSRef SVGPathElement ->-          Float -> Float -> IO (JSRef SVGPathSegMovetoRel)+        SVGPathElement ->+          Float -> Float -> IO (Nullable SVGPathSegMovetoRel)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegMovetoRel Mozilla SVGPathElement.createSVGPathSegMovetoRel documentation>  createSVGPathSegMovetoRel ::@@ -122,14 +118,13 @@                             SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegMovetoRel) createSVGPathSegMovetoRel self x y   = liftIO-      ((js_createSVGPathSegMovetoRel (unSVGPathElement self) x y) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_createSVGPathSegMovetoRel (self) x y))   foreign import javascript unsafe         "$1[\"createSVGPathSegLinetoAbs\"]($2,\n$3)"         js_createSVGPathSegLinetoAbs ::-        JSRef SVGPathElement ->-          Float -> Float -> IO (JSRef SVGPathSegLinetoAbs)+        SVGPathElement ->+          Float -> Float -> IO (Nullable SVGPathSegLinetoAbs)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoAbs Mozilla SVGPathElement.createSVGPathSegLinetoAbs documentation>  createSVGPathSegLinetoAbs ::@@ -137,14 +132,13 @@                             SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegLinetoAbs) createSVGPathSegLinetoAbs self x y   = liftIO-      ((js_createSVGPathSegLinetoAbs (unSVGPathElement self) x y) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_createSVGPathSegLinetoAbs (self) x y))   foreign import javascript unsafe         "$1[\"createSVGPathSegLinetoRel\"]($2,\n$3)"         js_createSVGPathSegLinetoRel ::-        JSRef SVGPathElement ->-          Float -> Float -> IO (JSRef SVGPathSegLinetoRel)+        SVGPathElement ->+          Float -> Float -> IO (Nullable SVGPathSegLinetoRel)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoRel Mozilla SVGPathElement.createSVGPathSegLinetoRel documentation>  createSVGPathSegLinetoRel ::@@ -152,17 +146,16 @@                             SVGPathElement -> Float -> Float -> m (Maybe SVGPathSegLinetoRel) createSVGPathSegLinetoRel self x y   = liftIO-      ((js_createSVGPathSegLinetoRel (unSVGPathElement self) x y) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_createSVGPathSegLinetoRel (self) x y))   foreign import javascript unsafe         "$1[\"createSVGPathSegCurvetoCubicAbs\"]($2,\n$3, $4, $5, $6, $7)"         js_createSVGPathSegCurvetoCubicAbs ::-        JSRef SVGPathElement ->+        SVGPathElement ->           Float ->             Float ->               Float ->-                Float -> Float -> Float -> IO (JSRef SVGPathSegCurvetoCubicAbs)+                Float -> Float -> Float -> IO (Nullable SVGPathSegCurvetoCubicAbs)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicAbs Mozilla SVGPathElement.createSVGPathSegCurvetoCubicAbs documentation>  createSVGPathSegCurvetoCubicAbs ::@@ -175,20 +168,17 @@                                             Float -> Float -> m (Maybe SVGPathSegCurvetoCubicAbs) createSVGPathSegCurvetoCubicAbs self x y x1 y1 x2 y2   = liftIO-      ((js_createSVGPathSegCurvetoCubicAbs (unSVGPathElement self) x y x1-          y1-          x2-          y2)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createSVGPathSegCurvetoCubicAbs (self) x y x1 y1 x2 y2))   foreign import javascript unsafe         "$1[\"createSVGPathSegCurvetoCubicRel\"]($2,\n$3, $4, $5, $6, $7)"         js_createSVGPathSegCurvetoCubicRel ::-        JSRef SVGPathElement ->+        SVGPathElement ->           Float ->             Float ->               Float ->-                Float -> Float -> Float -> IO (JSRef SVGPathSegCurvetoCubicRel)+                Float -> Float -> Float -> IO (Nullable SVGPathSegCurvetoCubicRel)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicRel Mozilla SVGPathElement.createSVGPathSegCurvetoCubicRel documentation>  createSVGPathSegCurvetoCubicRel ::@@ -201,18 +191,16 @@                                             Float -> Float -> m (Maybe SVGPathSegCurvetoCubicRel) createSVGPathSegCurvetoCubicRel self x y x1 y1 x2 y2   = liftIO-      ((js_createSVGPathSegCurvetoCubicRel (unSVGPathElement self) x y x1-          y1-          x2-          y2)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createSVGPathSegCurvetoCubicRel (self) x y x1 y1 x2 y2))   foreign import javascript unsafe         "$1[\"createSVGPathSegCurvetoQuadraticAbs\"]($2,\n$3, $4, $5)"         js_createSVGPathSegCurvetoQuadraticAbs ::-        JSRef SVGPathElement ->+        SVGPathElement ->           Float ->-            Float -> Float -> Float -> IO (JSRef SVGPathSegCurvetoQuadraticAbs)+            Float ->+              Float -> Float -> IO (Nullable SVGPathSegCurvetoQuadraticAbs)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticAbs Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticAbs documentation>  createSVGPathSegCurvetoQuadraticAbs ::@@ -224,18 +212,16 @@                                               Float -> m (Maybe SVGPathSegCurvetoQuadraticAbs) createSVGPathSegCurvetoQuadraticAbs self x y x1 y1   = liftIO-      ((js_createSVGPathSegCurvetoQuadraticAbs (unSVGPathElement self) x-          y-          x1-          y1)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createSVGPathSegCurvetoQuadraticAbs (self) x y x1 y1))   foreign import javascript unsafe         "$1[\"createSVGPathSegCurvetoQuadraticRel\"]($2,\n$3, $4, $5)"         js_createSVGPathSegCurvetoQuadraticRel ::-        JSRef SVGPathElement ->+        SVGPathElement ->           Float ->-            Float -> Float -> Float -> IO (JSRef SVGPathSegCurvetoQuadraticRel)+            Float ->+              Float -> Float -> IO (Nullable SVGPathSegCurvetoQuadraticRel)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticRel Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticRel documentation>  createSVGPathSegCurvetoQuadraticRel ::@@ -247,20 +233,17 @@                                               Float -> m (Maybe SVGPathSegCurvetoQuadraticRel) createSVGPathSegCurvetoQuadraticRel self x y x1 y1   = liftIO-      ((js_createSVGPathSegCurvetoQuadraticRel (unSVGPathElement self) x-          y-          x1-          y1)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createSVGPathSegCurvetoQuadraticRel (self) x y x1 y1))   foreign import javascript unsafe         "$1[\"createSVGPathSegArcAbs\"]($2,\n$3, $4, $5, $6, $7, $8)"         js_createSVGPathSegArcAbs ::-        JSRef SVGPathElement ->+        SVGPathElement ->           Float ->             Float ->               Float ->-                Float -> Float -> Bool -> Bool -> IO (JSRef SVGPathSegArcAbs)+                Float -> Float -> Bool -> Bool -> IO (Nullable SVGPathSegArcAbs)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegArcAbs Mozilla SVGPathElement.createSVGPathSegArcAbs documentation>  createSVGPathSegArcAbs ::@@ -272,19 +255,18 @@                                  Float -> Float -> Bool -> Bool -> m (Maybe SVGPathSegArcAbs) createSVGPathSegArcAbs self x y r1 r2 angle largeArcFlag sweepFlag   = liftIO-      ((js_createSVGPathSegArcAbs (unSVGPathElement self) x y r1 r2 angle-          largeArcFlag-          sweepFlag)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createSVGPathSegArcAbs (self) x y r1 r2 angle largeArcFlag+            sweepFlag))   foreign import javascript unsafe         "$1[\"createSVGPathSegArcRel\"]($2,\n$3, $4, $5, $6, $7, $8)"         js_createSVGPathSegArcRel ::-        JSRef SVGPathElement ->+        SVGPathElement ->           Float ->             Float ->               Float ->-                Float -> Float -> Bool -> Bool -> IO (JSRef SVGPathSegArcRel)+                Float -> Float -> Bool -> Bool -> IO (Nullable SVGPathSegArcRel)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegArcRel Mozilla SVGPathElement.createSVGPathSegArcRel documentation>  createSVGPathSegArcRel ::@@ -296,16 +278,15 @@                                  Float -> Float -> Bool -> Bool -> m (Maybe SVGPathSegArcRel) createSVGPathSegArcRel self x y r1 r2 angle largeArcFlag sweepFlag   = liftIO-      ((js_createSVGPathSegArcRel (unSVGPathElement self) x y r1 r2 angle-          largeArcFlag-          sweepFlag)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createSVGPathSegArcRel (self) x y r1 r2 angle largeArcFlag+            sweepFlag))   foreign import javascript unsafe         "$1[\"createSVGPathSegLinetoHorizontalAbs\"]($2)"         js_createSVGPathSegLinetoHorizontalAbs ::-        JSRef SVGPathElement ->-          Float -> IO (JSRef SVGPathSegLinetoHorizontalAbs)+        SVGPathElement ->+          Float -> IO (Nullable SVGPathSegLinetoHorizontalAbs)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoHorizontalAbs Mozilla SVGPathElement.createSVGPathSegLinetoHorizontalAbs documentation>  createSVGPathSegLinetoHorizontalAbs ::@@ -314,14 +295,14 @@                                         Float -> m (Maybe SVGPathSegLinetoHorizontalAbs) createSVGPathSegLinetoHorizontalAbs self x   = liftIO-      ((js_createSVGPathSegLinetoHorizontalAbs (unSVGPathElement self) x)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createSVGPathSegLinetoHorizontalAbs (self) x))   foreign import javascript unsafe         "$1[\"createSVGPathSegLinetoHorizontalRel\"]($2)"         js_createSVGPathSegLinetoHorizontalRel ::-        JSRef SVGPathElement ->-          Float -> IO (JSRef SVGPathSegLinetoHorizontalRel)+        SVGPathElement ->+          Float -> IO (Nullable SVGPathSegLinetoHorizontalRel)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoHorizontalRel Mozilla SVGPathElement.createSVGPathSegLinetoHorizontalRel documentation>  createSVGPathSegLinetoHorizontalRel ::@@ -330,14 +311,14 @@                                         Float -> m (Maybe SVGPathSegLinetoHorizontalRel) createSVGPathSegLinetoHorizontalRel self x   = liftIO-      ((js_createSVGPathSegLinetoHorizontalRel (unSVGPathElement self) x)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createSVGPathSegLinetoHorizontalRel (self) x))   foreign import javascript unsafe         "$1[\"createSVGPathSegLinetoVerticalAbs\"]($2)"         js_createSVGPathSegLinetoVerticalAbs ::-        JSRef SVGPathElement ->-          Float -> IO (JSRef SVGPathSegLinetoVerticalAbs)+        SVGPathElement ->+          Float -> IO (Nullable SVGPathSegLinetoVerticalAbs)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoVerticalAbs Mozilla SVGPathElement.createSVGPathSegLinetoVerticalAbs documentation>  createSVGPathSegLinetoVerticalAbs ::@@ -345,14 +326,14 @@                                     SVGPathElement -> Float -> m (Maybe SVGPathSegLinetoVerticalAbs) createSVGPathSegLinetoVerticalAbs self y   = liftIO-      ((js_createSVGPathSegLinetoVerticalAbs (unSVGPathElement self) y)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createSVGPathSegLinetoVerticalAbs (self) y))   foreign import javascript unsafe         "$1[\"createSVGPathSegLinetoVerticalRel\"]($2)"         js_createSVGPathSegLinetoVerticalRel ::-        JSRef SVGPathElement ->-          Float -> IO (JSRef SVGPathSegLinetoVerticalRel)+        SVGPathElement ->+          Float -> IO (Nullable SVGPathSegLinetoVerticalRel)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegLinetoVerticalRel Mozilla SVGPathElement.createSVGPathSegLinetoVerticalRel documentation>  createSVGPathSegLinetoVerticalRel ::@@ -360,16 +341,16 @@                                     SVGPathElement -> Float -> m (Maybe SVGPathSegLinetoVerticalRel) createSVGPathSegLinetoVerticalRel self y   = liftIO-      ((js_createSVGPathSegLinetoVerticalRel (unSVGPathElement self) y)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createSVGPathSegLinetoVerticalRel (self) y))   foreign import javascript unsafe         "$1[\"createSVGPathSegCurvetoCubicSmoothAbs\"]($2,\n$3, $4, $5)"         js_createSVGPathSegCurvetoCubicSmoothAbs ::-        JSRef SVGPathElement ->+        SVGPathElement ->           Float ->             Float ->-              Float -> Float -> IO (JSRef SVGPathSegCurvetoCubicSmoothAbs)+              Float -> Float -> IO (Nullable SVGPathSegCurvetoCubicSmoothAbs)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicSmoothAbs Mozilla SVGPathElement.createSVGPathSegCurvetoCubicSmoothAbs documentation>  createSVGPathSegCurvetoCubicSmoothAbs ::@@ -381,20 +362,16 @@                                                 Float -> m (Maybe SVGPathSegCurvetoCubicSmoothAbs) createSVGPathSegCurvetoCubicSmoothAbs self x y x2 y2   = liftIO-      ((js_createSVGPathSegCurvetoCubicSmoothAbs (unSVGPathElement self)-          x-          y-          x2-          y2)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createSVGPathSegCurvetoCubicSmoothAbs (self) x y x2 y2))   foreign import javascript unsafe         "$1[\"createSVGPathSegCurvetoCubicSmoothRel\"]($2,\n$3, $4, $5)"         js_createSVGPathSegCurvetoCubicSmoothRel ::-        JSRef SVGPathElement ->+        SVGPathElement ->           Float ->             Float ->-              Float -> Float -> IO (JSRef SVGPathSegCurvetoCubicSmoothRel)+              Float -> Float -> IO (Nullable SVGPathSegCurvetoCubicSmoothRel)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoCubicSmoothRel Mozilla SVGPathElement.createSVGPathSegCurvetoCubicSmoothRel documentation>  createSVGPathSegCurvetoCubicSmoothRel ::@@ -406,18 +383,14 @@                                                 Float -> m (Maybe SVGPathSegCurvetoCubicSmoothRel) createSVGPathSegCurvetoCubicSmoothRel self x y x2 y2   = liftIO-      ((js_createSVGPathSegCurvetoCubicSmoothRel (unSVGPathElement self)-          x-          y-          x2-          y2)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createSVGPathSegCurvetoCubicSmoothRel (self) x y x2 y2))   foreign import javascript unsafe         "$1[\"createSVGPathSegCurvetoQuadraticSmoothAbs\"]($2,\n$3)"         js_createSVGPathSegCurvetoQuadraticSmoothAbs ::-        JSRef SVGPathElement ->-          Float -> Float -> IO (JSRef SVGPathSegCurvetoQuadraticSmoothAbs)+        SVGPathElement ->+          Float -> Float -> IO (Nullable SVGPathSegCurvetoQuadraticSmoothAbs)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothAbs Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothAbs documentation>  createSVGPathSegCurvetoQuadraticSmoothAbs ::@@ -428,17 +401,14 @@                                                   m (Maybe SVGPathSegCurvetoQuadraticSmoothAbs) createSVGPathSegCurvetoQuadraticSmoothAbs self x y   = liftIO-      ((js_createSVGPathSegCurvetoQuadraticSmoothAbs-          (unSVGPathElement self)-          x-          y)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createSVGPathSegCurvetoQuadraticSmoothAbs (self) x y))   foreign import javascript unsafe         "$1[\"createSVGPathSegCurvetoQuadraticSmoothRel\"]($2,\n$3)"         js_createSVGPathSegCurvetoQuadraticSmoothRel ::-        JSRef SVGPathElement ->-          Float -> Float -> IO (JSRef SVGPathSegCurvetoQuadraticSmoothRel)+        SVGPathElement ->+          Float -> Float -> IO (Nullable SVGPathSegCurvetoQuadraticSmoothRel)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothRel Mozilla SVGPathElement.createSVGPathSegCurvetoQuadraticSmoothRel documentation>  createSVGPathSegCurvetoQuadraticSmoothRel ::@@ -449,65 +419,56 @@                                                   m (Maybe SVGPathSegCurvetoQuadraticSmoothRel) createSVGPathSegCurvetoQuadraticSmoothRel self x y   = liftIO-      ((js_createSVGPathSegCurvetoQuadraticSmoothRel-          (unSVGPathElement self)-          x-          y)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_createSVGPathSegCurvetoQuadraticSmoothRel (self) x y))   foreign import javascript unsafe "$1[\"pathLength\"]"         js_getPathLength ::-        JSRef SVGPathElement -> IO (JSRef SVGAnimatedNumber)+        SVGPathElement -> IO (Nullable SVGAnimatedNumber)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.pathLength Mozilla SVGPathElement.pathLength documentation>  getPathLength ::               (MonadIO m) => SVGPathElement -> m (Maybe SVGAnimatedNumber) getPathLength self-  = liftIO ((js_getPathLength (unSVGPathElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPathLength (self)))   foreign import javascript unsafe "$1[\"pathSegList\"]"-        js_getPathSegList ::-        JSRef SVGPathElement -> IO (JSRef SVGPathSegList)+        js_getPathSegList :: SVGPathElement -> IO (Nullable SVGPathSegList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.pathSegList Mozilla SVGPathElement.pathSegList documentation>  getPathSegList ::                (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegList) getPathSegList self-  = liftIO-      ((js_getPathSegList (unSVGPathElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPathSegList (self)))   foreign import javascript unsafe "$1[\"normalizedPathSegList\"]"         js_getNormalizedPathSegList ::-        JSRef SVGPathElement -> IO (JSRef SVGPathSegList)+        SVGPathElement -> IO (Nullable SVGPathSegList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.normalizedPathSegList Mozilla SVGPathElement.normalizedPathSegList documentation>  getNormalizedPathSegList ::                          (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegList) getNormalizedPathSegList self-  = liftIO-      ((js_getNormalizedPathSegList (unSVGPathElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getNormalizedPathSegList (self)))   foreign import javascript unsafe "$1[\"animatedPathSegList\"]"         js_getAnimatedPathSegList ::-        JSRef SVGPathElement -> IO (JSRef SVGPathSegList)+        SVGPathElement -> IO (Nullable SVGPathSegList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.animatedPathSegList Mozilla SVGPathElement.animatedPathSegList documentation>  getAnimatedPathSegList ::                        (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegList) getAnimatedPathSegList self-  = liftIO-      ((js_getAnimatedPathSegList (unSVGPathElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAnimatedPathSegList (self)))   foreign import javascript unsafe         "$1[\"animatedNormalizedPathSegList\"]"         js_getAnimatedNormalizedPathSegList ::-        JSRef SVGPathElement -> IO (JSRef SVGPathSegList)+        SVGPathElement -> IO (Nullable SVGPathSegList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathElement.animatedNormalizedPathSegList Mozilla SVGPathElement.animatedNormalizedPathSegList documentation>  getAnimatedNormalizedPathSegList ::                                  (MonadIO m) => SVGPathElement -> m (Maybe SVGPathSegList) getAnimatedNormalizedPathSegList self   = liftIO-      ((js_getAnimatedNormalizedPathSegList (unSVGPathElement self)) >>=-         fromJSRef)+      (nullableToMaybe <$> (js_getAnimatedNormalizedPathSegList (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSeg.hs view
@@ -21,7 +21,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -55,15 +55,15 @@ pattern PATHSEG_CURVETO_QUADRATIC_SMOOTH_REL = 19   foreign import javascript unsafe "$1[\"pathSegType\"]"-        js_getPathSegType :: JSRef SVGPathSeg -> IO Word+        js_getPathSegType :: SVGPathSeg -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSeg.pathSegType Mozilla SVGPathSeg.pathSegType documentation>  getPathSegType :: (MonadIO m, IsSVGPathSeg self) => self -> m Word getPathSegType self-  = liftIO (js_getPathSegType (unSVGPathSeg (toSVGPathSeg self)))+  = liftIO (js_getPathSegType (toSVGPathSeg self))   foreign import javascript unsafe "$1[\"pathSegTypeAsLetter\"]"-        js_getPathSegTypeAsLetter :: JSRef SVGPathSeg -> IO JSString+        js_getPathSegTypeAsLetter :: SVGPathSeg -> IO JSString  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSeg.pathSegTypeAsLetter Mozilla SVGPathSeg.pathSegTypeAsLetter documentation>  getPathSegTypeAsLetter ::@@ -71,5 +71,4 @@                          self -> m result getPathSegTypeAsLetter self   = liftIO-      (fromJSString <$>-         (js_getPathSegTypeAsLetter (unSVGPathSeg (toSVGPathSeg self))))+      (fromJSString <$> (js_getPathSegTypeAsLetter (toSVGPathSeg self)))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcAbs.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,104 +23,99 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPathSegArcAbs -> Float -> IO ()+        SVGPathSegArcAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.x Mozilla SVGPathSegArcAbs.x documentation>  setX :: (MonadIO m) => SVGPathSegArcAbs -> Float -> m ()-setX self val = liftIO (js_setX (unSVGPathSegArcAbs self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPathSegArcAbs -> IO Float+        SVGPathSegArcAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.x Mozilla SVGPathSegArcAbs.x documentation>  getX :: (MonadIO m) => SVGPathSegArcAbs -> m Float-getX self = liftIO (js_getX (unSVGPathSegArcAbs self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPathSegArcAbs -> Float -> IO ()+        SVGPathSegArcAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.y Mozilla SVGPathSegArcAbs.y documentation>  setY :: (MonadIO m) => SVGPathSegArcAbs -> Float -> m ()-setY self val = liftIO (js_setY (unSVGPathSegArcAbs self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPathSegArcAbs -> IO Float+        SVGPathSegArcAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.y Mozilla SVGPathSegArcAbs.y documentation>  getY :: (MonadIO m) => SVGPathSegArcAbs -> m Float-getY self = liftIO (js_getY (unSVGPathSegArcAbs self))+getY self = liftIO (js_getY (self))   foreign import javascript unsafe "$1[\"r1\"] = $2;" js_setR1 ::-        JSRef SVGPathSegArcAbs -> Float -> IO ()+        SVGPathSegArcAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.r1 Mozilla SVGPathSegArcAbs.r1 documentation>  setR1 :: (MonadIO m) => SVGPathSegArcAbs -> Float -> m ()-setR1 self val = liftIO (js_setR1 (unSVGPathSegArcAbs self) val)+setR1 self val = liftIO (js_setR1 (self) val)   foreign import javascript unsafe "$1[\"r1\"]" js_getR1 ::-        JSRef SVGPathSegArcAbs -> IO Float+        SVGPathSegArcAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.r1 Mozilla SVGPathSegArcAbs.r1 documentation>  getR1 :: (MonadIO m) => SVGPathSegArcAbs -> m Float-getR1 self = liftIO (js_getR1 (unSVGPathSegArcAbs self))+getR1 self = liftIO (js_getR1 (self))   foreign import javascript unsafe "$1[\"r2\"] = $2;" js_setR2 ::-        JSRef SVGPathSegArcAbs -> Float -> IO ()+        SVGPathSegArcAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.r2 Mozilla SVGPathSegArcAbs.r2 documentation>  setR2 :: (MonadIO m) => SVGPathSegArcAbs -> Float -> m ()-setR2 self val = liftIO (js_setR2 (unSVGPathSegArcAbs self) val)+setR2 self val = liftIO (js_setR2 (self) val)   foreign import javascript unsafe "$1[\"r2\"]" js_getR2 ::-        JSRef SVGPathSegArcAbs -> IO Float+        SVGPathSegArcAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.r2 Mozilla SVGPathSegArcAbs.r2 documentation>  getR2 :: (MonadIO m) => SVGPathSegArcAbs -> m Float-getR2 self = liftIO (js_getR2 (unSVGPathSegArcAbs self))+getR2 self = liftIO (js_getR2 (self))   foreign import javascript unsafe "$1[\"angle\"] = $2;" js_setAngle-        :: JSRef SVGPathSegArcAbs -> Float -> IO ()+        :: SVGPathSegArcAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.angle Mozilla SVGPathSegArcAbs.angle documentation>  setAngle :: (MonadIO m) => SVGPathSegArcAbs -> Float -> m ()-setAngle self val-  = liftIO (js_setAngle (unSVGPathSegArcAbs self) val)+setAngle self val = liftIO (js_setAngle (self) val)   foreign import javascript unsafe "$1[\"angle\"]" js_getAngle ::-        JSRef SVGPathSegArcAbs -> IO Float+        SVGPathSegArcAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.angle Mozilla SVGPathSegArcAbs.angle documentation>  getAngle :: (MonadIO m) => SVGPathSegArcAbs -> m Float-getAngle self = liftIO (js_getAngle (unSVGPathSegArcAbs self))+getAngle self = liftIO (js_getAngle (self))   foreign import javascript unsafe "$1[\"largeArcFlag\"] = $2;"-        js_setLargeArcFlag :: JSRef SVGPathSegArcAbs -> Bool -> IO ()+        js_setLargeArcFlag :: SVGPathSegArcAbs -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.largeArcFlag Mozilla SVGPathSegArcAbs.largeArcFlag documentation>  setLargeArcFlag :: (MonadIO m) => SVGPathSegArcAbs -> Bool -> m ()-setLargeArcFlag self val-  = liftIO (js_setLargeArcFlag (unSVGPathSegArcAbs self) val)+setLargeArcFlag self val = liftIO (js_setLargeArcFlag (self) val)   foreign import javascript unsafe "($1[\"largeArcFlag\"] ? 1 : 0)"-        js_getLargeArcFlag :: JSRef SVGPathSegArcAbs -> IO Bool+        js_getLargeArcFlag :: SVGPathSegArcAbs -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.largeArcFlag Mozilla SVGPathSegArcAbs.largeArcFlag documentation>  getLargeArcFlag :: (MonadIO m) => SVGPathSegArcAbs -> m Bool-getLargeArcFlag self-  = liftIO (js_getLargeArcFlag (unSVGPathSegArcAbs self))+getLargeArcFlag self = liftIO (js_getLargeArcFlag (self))   foreign import javascript unsafe "$1[\"sweepFlag\"] = $2;"-        js_setSweepFlag :: JSRef SVGPathSegArcAbs -> Bool -> IO ()+        js_setSweepFlag :: SVGPathSegArcAbs -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.sweepFlag Mozilla SVGPathSegArcAbs.sweepFlag documentation>  setSweepFlag :: (MonadIO m) => SVGPathSegArcAbs -> Bool -> m ()-setSweepFlag self val-  = liftIO (js_setSweepFlag (unSVGPathSegArcAbs self) val)+setSweepFlag self val = liftIO (js_setSweepFlag (self) val)   foreign import javascript unsafe "($1[\"sweepFlag\"] ? 1 : 0)"-        js_getSweepFlag :: JSRef SVGPathSegArcAbs -> IO Bool+        js_getSweepFlag :: SVGPathSegArcAbs -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcAbs.sweepFlag Mozilla SVGPathSegArcAbs.sweepFlag documentation>  getSweepFlag :: (MonadIO m) => SVGPathSegArcAbs -> m Bool-getSweepFlag self-  = liftIO (js_getSweepFlag (unSVGPathSegArcAbs self))+getSweepFlag self = liftIO (js_getSweepFlag (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegArcRel.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,104 +23,99 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPathSegArcRel -> Float -> IO ()+        SVGPathSegArcRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.x Mozilla SVGPathSegArcRel.x documentation>  setX :: (MonadIO m) => SVGPathSegArcRel -> Float -> m ()-setX self val = liftIO (js_setX (unSVGPathSegArcRel self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPathSegArcRel -> IO Float+        SVGPathSegArcRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.x Mozilla SVGPathSegArcRel.x documentation>  getX :: (MonadIO m) => SVGPathSegArcRel -> m Float-getX self = liftIO (js_getX (unSVGPathSegArcRel self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPathSegArcRel -> Float -> IO ()+        SVGPathSegArcRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.y Mozilla SVGPathSegArcRel.y documentation>  setY :: (MonadIO m) => SVGPathSegArcRel -> Float -> m ()-setY self val = liftIO (js_setY (unSVGPathSegArcRel self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPathSegArcRel -> IO Float+        SVGPathSegArcRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.y Mozilla SVGPathSegArcRel.y documentation>  getY :: (MonadIO m) => SVGPathSegArcRel -> m Float-getY self = liftIO (js_getY (unSVGPathSegArcRel self))+getY self = liftIO (js_getY (self))   foreign import javascript unsafe "$1[\"r1\"] = $2;" js_setR1 ::-        JSRef SVGPathSegArcRel -> Float -> IO ()+        SVGPathSegArcRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.r1 Mozilla SVGPathSegArcRel.r1 documentation>  setR1 :: (MonadIO m) => SVGPathSegArcRel -> Float -> m ()-setR1 self val = liftIO (js_setR1 (unSVGPathSegArcRel self) val)+setR1 self val = liftIO (js_setR1 (self) val)   foreign import javascript unsafe "$1[\"r1\"]" js_getR1 ::-        JSRef SVGPathSegArcRel -> IO Float+        SVGPathSegArcRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.r1 Mozilla SVGPathSegArcRel.r1 documentation>  getR1 :: (MonadIO m) => SVGPathSegArcRel -> m Float-getR1 self = liftIO (js_getR1 (unSVGPathSegArcRel self))+getR1 self = liftIO (js_getR1 (self))   foreign import javascript unsafe "$1[\"r2\"] = $2;" js_setR2 ::-        JSRef SVGPathSegArcRel -> Float -> IO ()+        SVGPathSegArcRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.r2 Mozilla SVGPathSegArcRel.r2 documentation>  setR2 :: (MonadIO m) => SVGPathSegArcRel -> Float -> m ()-setR2 self val = liftIO (js_setR2 (unSVGPathSegArcRel self) val)+setR2 self val = liftIO (js_setR2 (self) val)   foreign import javascript unsafe "$1[\"r2\"]" js_getR2 ::-        JSRef SVGPathSegArcRel -> IO Float+        SVGPathSegArcRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.r2 Mozilla SVGPathSegArcRel.r2 documentation>  getR2 :: (MonadIO m) => SVGPathSegArcRel -> m Float-getR2 self = liftIO (js_getR2 (unSVGPathSegArcRel self))+getR2 self = liftIO (js_getR2 (self))   foreign import javascript unsafe "$1[\"angle\"] = $2;" js_setAngle-        :: JSRef SVGPathSegArcRel -> Float -> IO ()+        :: SVGPathSegArcRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.angle Mozilla SVGPathSegArcRel.angle documentation>  setAngle :: (MonadIO m) => SVGPathSegArcRel -> Float -> m ()-setAngle self val-  = liftIO (js_setAngle (unSVGPathSegArcRel self) val)+setAngle self val = liftIO (js_setAngle (self) val)   foreign import javascript unsafe "$1[\"angle\"]" js_getAngle ::-        JSRef SVGPathSegArcRel -> IO Float+        SVGPathSegArcRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.angle Mozilla SVGPathSegArcRel.angle documentation>  getAngle :: (MonadIO m) => SVGPathSegArcRel -> m Float-getAngle self = liftIO (js_getAngle (unSVGPathSegArcRel self))+getAngle self = liftIO (js_getAngle (self))   foreign import javascript unsafe "$1[\"largeArcFlag\"] = $2;"-        js_setLargeArcFlag :: JSRef SVGPathSegArcRel -> Bool -> IO ()+        js_setLargeArcFlag :: SVGPathSegArcRel -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.largeArcFlag Mozilla SVGPathSegArcRel.largeArcFlag documentation>  setLargeArcFlag :: (MonadIO m) => SVGPathSegArcRel -> Bool -> m ()-setLargeArcFlag self val-  = liftIO (js_setLargeArcFlag (unSVGPathSegArcRel self) val)+setLargeArcFlag self val = liftIO (js_setLargeArcFlag (self) val)   foreign import javascript unsafe "($1[\"largeArcFlag\"] ? 1 : 0)"-        js_getLargeArcFlag :: JSRef SVGPathSegArcRel -> IO Bool+        js_getLargeArcFlag :: SVGPathSegArcRel -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.largeArcFlag Mozilla SVGPathSegArcRel.largeArcFlag documentation>  getLargeArcFlag :: (MonadIO m) => SVGPathSegArcRel -> m Bool-getLargeArcFlag self-  = liftIO (js_getLargeArcFlag (unSVGPathSegArcRel self))+getLargeArcFlag self = liftIO (js_getLargeArcFlag (self))   foreign import javascript unsafe "$1[\"sweepFlag\"] = $2;"-        js_setSweepFlag :: JSRef SVGPathSegArcRel -> Bool -> IO ()+        js_setSweepFlag :: SVGPathSegArcRel -> Bool -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.sweepFlag Mozilla SVGPathSegArcRel.sweepFlag documentation>  setSweepFlag :: (MonadIO m) => SVGPathSegArcRel -> Bool -> m ()-setSweepFlag self val-  = liftIO (js_setSweepFlag (unSVGPathSegArcRel self) val)+setSweepFlag self val = liftIO (js_setSweepFlag (self) val)   foreign import javascript unsafe "($1[\"sweepFlag\"] ? 1 : 0)"-        js_getSweepFlag :: JSRef SVGPathSegArcRel -> IO Bool+        js_getSweepFlag :: SVGPathSegArcRel -> IO Bool  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegArcRel.sweepFlag Mozilla SVGPathSegArcRel.sweepFlag documentation>  getSweepFlag :: (MonadIO m) => SVGPathSegArcRel -> m Bool-getSweepFlag self-  = liftIO (js_getSweepFlag (unSVGPathSegArcRel self))+getSweepFlag self = liftIO (js_getSweepFlag (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicAbs.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,91 +22,85 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPathSegCurvetoCubicAbs -> Float -> IO ()+        SVGPathSegCurvetoCubicAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x Mozilla SVGPathSegCurvetoCubicAbs.x documentation>  setX :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()-setX self val-  = liftIO (js_setX (unSVGPathSegCurvetoCubicAbs self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPathSegCurvetoCubicAbs -> IO Float+        SVGPathSegCurvetoCubicAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x Mozilla SVGPathSegCurvetoCubicAbs.x documentation>  getX :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float-getX self = liftIO (js_getX (unSVGPathSegCurvetoCubicAbs self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPathSegCurvetoCubicAbs -> Float -> IO ()+        SVGPathSegCurvetoCubicAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y Mozilla SVGPathSegCurvetoCubicAbs.y documentation>  setY :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()-setY self val-  = liftIO (js_setY (unSVGPathSegCurvetoCubicAbs self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPathSegCurvetoCubicAbs -> IO Float+        SVGPathSegCurvetoCubicAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y Mozilla SVGPathSegCurvetoCubicAbs.y documentation>  getY :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float-getY self = liftIO (js_getY (unSVGPathSegCurvetoCubicAbs self))+getY self = liftIO (js_getY (self))   foreign import javascript unsafe "$1[\"x1\"] = $2;" js_setX1 ::-        JSRef SVGPathSegCurvetoCubicAbs -> Float -> IO ()+        SVGPathSegCurvetoCubicAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x1 Mozilla SVGPathSegCurvetoCubicAbs.x1 documentation>  setX1 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()-setX1 self val-  = liftIO (js_setX1 (unSVGPathSegCurvetoCubicAbs self) val)+setX1 self val = liftIO (js_setX1 (self) val)   foreign import javascript unsafe "$1[\"x1\"]" js_getX1 ::-        JSRef SVGPathSegCurvetoCubicAbs -> IO Float+        SVGPathSegCurvetoCubicAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x1 Mozilla SVGPathSegCurvetoCubicAbs.x1 documentation>  getX1 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float-getX1 self = liftIO (js_getX1 (unSVGPathSegCurvetoCubicAbs self))+getX1 self = liftIO (js_getX1 (self))   foreign import javascript unsafe "$1[\"y1\"] = $2;" js_setY1 ::-        JSRef SVGPathSegCurvetoCubicAbs -> Float -> IO ()+        SVGPathSegCurvetoCubicAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y1 Mozilla SVGPathSegCurvetoCubicAbs.y1 documentation>  setY1 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()-setY1 self val-  = liftIO (js_setY1 (unSVGPathSegCurvetoCubicAbs self) val)+setY1 self val = liftIO (js_setY1 (self) val)   foreign import javascript unsafe "$1[\"y1\"]" js_getY1 ::-        JSRef SVGPathSegCurvetoCubicAbs -> IO Float+        SVGPathSegCurvetoCubicAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y1 Mozilla SVGPathSegCurvetoCubicAbs.y1 documentation>  getY1 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float-getY1 self = liftIO (js_getY1 (unSVGPathSegCurvetoCubicAbs self))+getY1 self = liftIO (js_getY1 (self))   foreign import javascript unsafe "$1[\"x2\"] = $2;" js_setX2 ::-        JSRef SVGPathSegCurvetoCubicAbs -> Float -> IO ()+        SVGPathSegCurvetoCubicAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x2 Mozilla SVGPathSegCurvetoCubicAbs.x2 documentation>  setX2 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()-setX2 self val-  = liftIO (js_setX2 (unSVGPathSegCurvetoCubicAbs self) val)+setX2 self val = liftIO (js_setX2 (self) val)   foreign import javascript unsafe "$1[\"x2\"]" js_getX2 ::-        JSRef SVGPathSegCurvetoCubicAbs -> IO Float+        SVGPathSegCurvetoCubicAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.x2 Mozilla SVGPathSegCurvetoCubicAbs.x2 documentation>  getX2 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float-getX2 self = liftIO (js_getX2 (unSVGPathSegCurvetoCubicAbs self))+getX2 self = liftIO (js_getX2 (self))   foreign import javascript unsafe "$1[\"y2\"] = $2;" js_setY2 ::-        JSRef SVGPathSegCurvetoCubicAbs -> Float -> IO ()+        SVGPathSegCurvetoCubicAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y2 Mozilla SVGPathSegCurvetoCubicAbs.y2 documentation>  setY2 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> Float -> m ()-setY2 self val-  = liftIO (js_setY2 (unSVGPathSegCurvetoCubicAbs self) val)+setY2 self val = liftIO (js_setY2 (self) val)   foreign import javascript unsafe "$1[\"y2\"]" js_getY2 ::-        JSRef SVGPathSegCurvetoCubicAbs -> IO Float+        SVGPathSegCurvetoCubicAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicAbs.y2 Mozilla SVGPathSegCurvetoCubicAbs.y2 documentation>  getY2 :: (MonadIO m) => SVGPathSegCurvetoCubicAbs -> m Float-getY2 self = liftIO (js_getY2 (unSVGPathSegCurvetoCubicAbs self))+getY2 self = liftIO (js_getY2 (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicRel.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,91 +22,85 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPathSegCurvetoCubicRel -> Float -> IO ()+        SVGPathSegCurvetoCubicRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x Mozilla SVGPathSegCurvetoCubicRel.x documentation>  setX :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m ()-setX self val-  = liftIO (js_setX (unSVGPathSegCurvetoCubicRel self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPathSegCurvetoCubicRel -> IO Float+        SVGPathSegCurvetoCubicRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x Mozilla SVGPathSegCurvetoCubicRel.x documentation>  getX :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float-getX self = liftIO (js_getX (unSVGPathSegCurvetoCubicRel self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPathSegCurvetoCubicRel -> Float -> IO ()+        SVGPathSegCurvetoCubicRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y Mozilla SVGPathSegCurvetoCubicRel.y documentation>  setY :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m ()-setY self val-  = liftIO (js_setY (unSVGPathSegCurvetoCubicRel self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPathSegCurvetoCubicRel -> IO Float+        SVGPathSegCurvetoCubicRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y Mozilla SVGPathSegCurvetoCubicRel.y documentation>  getY :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float-getY self = liftIO (js_getY (unSVGPathSegCurvetoCubicRel self))+getY self = liftIO (js_getY (self))   foreign import javascript unsafe "$1[\"x1\"] = $2;" js_setX1 ::-        JSRef SVGPathSegCurvetoCubicRel -> Float -> IO ()+        SVGPathSegCurvetoCubicRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x1 Mozilla SVGPathSegCurvetoCubicRel.x1 documentation>  setX1 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m ()-setX1 self val-  = liftIO (js_setX1 (unSVGPathSegCurvetoCubicRel self) val)+setX1 self val = liftIO (js_setX1 (self) val)   foreign import javascript unsafe "$1[\"x1\"]" js_getX1 ::-        JSRef SVGPathSegCurvetoCubicRel -> IO Float+        SVGPathSegCurvetoCubicRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x1 Mozilla SVGPathSegCurvetoCubicRel.x1 documentation>  getX1 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float-getX1 self = liftIO (js_getX1 (unSVGPathSegCurvetoCubicRel self))+getX1 self = liftIO (js_getX1 (self))   foreign import javascript unsafe "$1[\"y1\"] = $2;" js_setY1 ::-        JSRef SVGPathSegCurvetoCubicRel -> Float -> IO ()+        SVGPathSegCurvetoCubicRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y1 Mozilla SVGPathSegCurvetoCubicRel.y1 documentation>  setY1 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m ()-setY1 self val-  = liftIO (js_setY1 (unSVGPathSegCurvetoCubicRel self) val)+setY1 self val = liftIO (js_setY1 (self) val)   foreign import javascript unsafe "$1[\"y1\"]" js_getY1 ::-        JSRef SVGPathSegCurvetoCubicRel -> IO Float+        SVGPathSegCurvetoCubicRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y1 Mozilla SVGPathSegCurvetoCubicRel.y1 documentation>  getY1 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float-getY1 self = liftIO (js_getY1 (unSVGPathSegCurvetoCubicRel self))+getY1 self = liftIO (js_getY1 (self))   foreign import javascript unsafe "$1[\"x2\"] = $2;" js_setX2 ::-        JSRef SVGPathSegCurvetoCubicRel -> Float -> IO ()+        SVGPathSegCurvetoCubicRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x2 Mozilla SVGPathSegCurvetoCubicRel.x2 documentation>  setX2 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m ()-setX2 self val-  = liftIO (js_setX2 (unSVGPathSegCurvetoCubicRel self) val)+setX2 self val = liftIO (js_setX2 (self) val)   foreign import javascript unsafe "$1[\"x2\"]" js_getX2 ::-        JSRef SVGPathSegCurvetoCubicRel -> IO Float+        SVGPathSegCurvetoCubicRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.x2 Mozilla SVGPathSegCurvetoCubicRel.x2 documentation>  getX2 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float-getX2 self = liftIO (js_getX2 (unSVGPathSegCurvetoCubicRel self))+getX2 self = liftIO (js_getX2 (self))   foreign import javascript unsafe "$1[\"y2\"] = $2;" js_setY2 ::-        JSRef SVGPathSegCurvetoCubicRel -> Float -> IO ()+        SVGPathSegCurvetoCubicRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y2 Mozilla SVGPathSegCurvetoCubicRel.y2 documentation>  setY2 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> Float -> m ()-setY2 self val-  = liftIO (js_setY2 (unSVGPathSegCurvetoCubicRel self) val)+setY2 self val = liftIO (js_setY2 (self) val)   foreign import javascript unsafe "$1[\"y2\"]" js_getY2 ::-        JSRef SVGPathSegCurvetoCubicRel -> IO Float+        SVGPathSegCurvetoCubicRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicRel.y2 Mozilla SVGPathSegCurvetoCubicRel.y2 documentation>  getY2 :: (MonadIO m) => SVGPathSegCurvetoCubicRel -> m Float-getY2 self = liftIO (js_getY2 (unSVGPathSegCurvetoCubicRel self))+getY2 self = liftIO (js_getY2 (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothAbs.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,69 +22,61 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO ()+        SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.x Mozilla SVGPathSegCurvetoCubicSmoothAbs.x documentation>  setX ::      (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m ()-setX self val-  = liftIO (js_setX (unSVGPathSegCurvetoCubicSmoothAbs self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPathSegCurvetoCubicSmoothAbs -> IO Float+        SVGPathSegCurvetoCubicSmoothAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.x Mozilla SVGPathSegCurvetoCubicSmoothAbs.x documentation>  getX :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float-getX self-  = liftIO (js_getX (unSVGPathSegCurvetoCubicSmoothAbs self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO ()+        SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.y Mozilla SVGPathSegCurvetoCubicSmoothAbs.y documentation>  setY ::      (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m ()-setY self val-  = liftIO (js_setY (unSVGPathSegCurvetoCubicSmoothAbs self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPathSegCurvetoCubicSmoothAbs -> IO Float+        SVGPathSegCurvetoCubicSmoothAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.y Mozilla SVGPathSegCurvetoCubicSmoothAbs.y documentation>  getY :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float-getY self-  = liftIO (js_getY (unSVGPathSegCurvetoCubicSmoothAbs self))+getY self = liftIO (js_getY (self))   foreign import javascript unsafe "$1[\"x2\"] = $2;" js_setX2 ::-        JSRef SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO ()+        SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.x2 Mozilla SVGPathSegCurvetoCubicSmoothAbs.x2 documentation>  setX2 ::       (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m ()-setX2 self val-  = liftIO (js_setX2 (unSVGPathSegCurvetoCubicSmoothAbs self) val)+setX2 self val = liftIO (js_setX2 (self) val)   foreign import javascript unsafe "$1[\"x2\"]" js_getX2 ::-        JSRef SVGPathSegCurvetoCubicSmoothAbs -> IO Float+        SVGPathSegCurvetoCubicSmoothAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.x2 Mozilla SVGPathSegCurvetoCubicSmoothAbs.x2 documentation>  getX2 :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float-getX2 self-  = liftIO (js_getX2 (unSVGPathSegCurvetoCubicSmoothAbs self))+getX2 self = liftIO (js_getX2 (self))   foreign import javascript unsafe "$1[\"y2\"] = $2;" js_setY2 ::-        JSRef SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO ()+        SVGPathSegCurvetoCubicSmoothAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.y2 Mozilla SVGPathSegCurvetoCubicSmoothAbs.y2 documentation>  setY2 ::       (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> Float -> m ()-setY2 self val-  = liftIO (js_setY2 (unSVGPathSegCurvetoCubicSmoothAbs self) val)+setY2 self val = liftIO (js_setY2 (self) val)   foreign import javascript unsafe "$1[\"y2\"]" js_getY2 ::-        JSRef SVGPathSegCurvetoCubicSmoothAbs -> IO Float+        SVGPathSegCurvetoCubicSmoothAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothAbs.y2 Mozilla SVGPathSegCurvetoCubicSmoothAbs.y2 documentation>  getY2 :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothAbs -> m Float-getY2 self-  = liftIO (js_getY2 (unSVGPathSegCurvetoCubicSmoothAbs self))+getY2 self = liftIO (js_getY2 (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoCubicSmoothRel.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,69 +22,61 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPathSegCurvetoCubicSmoothRel -> Float -> IO ()+        SVGPathSegCurvetoCubicSmoothRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.x Mozilla SVGPathSegCurvetoCubicSmoothRel.x documentation>  setX ::      (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m ()-setX self val-  = liftIO (js_setX (unSVGPathSegCurvetoCubicSmoothRel self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPathSegCurvetoCubicSmoothRel -> IO Float+        SVGPathSegCurvetoCubicSmoothRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.x Mozilla SVGPathSegCurvetoCubicSmoothRel.x documentation>  getX :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> m Float-getX self-  = liftIO (js_getX (unSVGPathSegCurvetoCubicSmoothRel self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPathSegCurvetoCubicSmoothRel -> Float -> IO ()+        SVGPathSegCurvetoCubicSmoothRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.y Mozilla SVGPathSegCurvetoCubicSmoothRel.y documentation>  setY ::      (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m ()-setY self val-  = liftIO (js_setY (unSVGPathSegCurvetoCubicSmoothRel self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPathSegCurvetoCubicSmoothRel -> IO Float+        SVGPathSegCurvetoCubicSmoothRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.y Mozilla SVGPathSegCurvetoCubicSmoothRel.y documentation>  getY :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> m Float-getY self-  = liftIO (js_getY (unSVGPathSegCurvetoCubicSmoothRel self))+getY self = liftIO (js_getY (self))   foreign import javascript unsafe "$1[\"x2\"] = $2;" js_setX2 ::-        JSRef SVGPathSegCurvetoCubicSmoothRel -> Float -> IO ()+        SVGPathSegCurvetoCubicSmoothRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.x2 Mozilla SVGPathSegCurvetoCubicSmoothRel.x2 documentation>  setX2 ::       (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m ()-setX2 self val-  = liftIO (js_setX2 (unSVGPathSegCurvetoCubicSmoothRel self) val)+setX2 self val = liftIO (js_setX2 (self) val)   foreign import javascript unsafe "$1[\"x2\"]" js_getX2 ::-        JSRef SVGPathSegCurvetoCubicSmoothRel -> IO Float+        SVGPathSegCurvetoCubicSmoothRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.x2 Mozilla SVGPathSegCurvetoCubicSmoothRel.x2 documentation>  getX2 :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> m Float-getX2 self-  = liftIO (js_getX2 (unSVGPathSegCurvetoCubicSmoothRel self))+getX2 self = liftIO (js_getX2 (self))   foreign import javascript unsafe "$1[\"y2\"] = $2;" js_setY2 ::-        JSRef SVGPathSegCurvetoCubicSmoothRel -> Float -> IO ()+        SVGPathSegCurvetoCubicSmoothRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.y2 Mozilla SVGPathSegCurvetoCubicSmoothRel.y2 documentation>  setY2 ::       (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> Float -> m ()-setY2 self val-  = liftIO (js_setY2 (unSVGPathSegCurvetoCubicSmoothRel self) val)+setY2 self val = liftIO (js_setY2 (self) val)   foreign import javascript unsafe "$1[\"y2\"]" js_getY2 ::-        JSRef SVGPathSegCurvetoCubicSmoothRel -> IO Float+        SVGPathSegCurvetoCubicSmoothRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoCubicSmoothRel.y2 Mozilla SVGPathSegCurvetoCubicSmoothRel.y2 documentation>  getY2 :: (MonadIO m) => SVGPathSegCurvetoCubicSmoothRel -> m Float-getY2 self-  = liftIO (js_getY2 (unSVGPathSegCurvetoCubicSmoothRel self))+getY2 self = liftIO (js_getY2 (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticAbs.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,67 +21,61 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPathSegCurvetoQuadraticAbs -> Float -> IO ()+        SVGPathSegCurvetoQuadraticAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.x Mozilla SVGPathSegCurvetoQuadraticAbs.x documentation>  setX ::      (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m ()-setX self val-  = liftIO (js_setX (unSVGPathSegCurvetoQuadraticAbs self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPathSegCurvetoQuadraticAbs -> IO Float+        SVGPathSegCurvetoQuadraticAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.x Mozilla SVGPathSegCurvetoQuadraticAbs.x documentation>  getX :: (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> m Float-getX self = liftIO (js_getX (unSVGPathSegCurvetoQuadraticAbs self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPathSegCurvetoQuadraticAbs -> Float -> IO ()+        SVGPathSegCurvetoQuadraticAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.y Mozilla SVGPathSegCurvetoQuadraticAbs.y documentation>  setY ::      (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m ()-setY self val-  = liftIO (js_setY (unSVGPathSegCurvetoQuadraticAbs self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPathSegCurvetoQuadraticAbs -> IO Float+        SVGPathSegCurvetoQuadraticAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.y Mozilla SVGPathSegCurvetoQuadraticAbs.y documentation>  getY :: (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> m Float-getY self = liftIO (js_getY (unSVGPathSegCurvetoQuadraticAbs self))+getY self = liftIO (js_getY (self))   foreign import javascript unsafe "$1[\"x1\"] = $2;" js_setX1 ::-        JSRef SVGPathSegCurvetoQuadraticAbs -> Float -> IO ()+        SVGPathSegCurvetoQuadraticAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.x1 Mozilla SVGPathSegCurvetoQuadraticAbs.x1 documentation>  setX1 ::       (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m ()-setX1 self val-  = liftIO (js_setX1 (unSVGPathSegCurvetoQuadraticAbs self) val)+setX1 self val = liftIO (js_setX1 (self) val)   foreign import javascript unsafe "$1[\"x1\"]" js_getX1 ::-        JSRef SVGPathSegCurvetoQuadraticAbs -> IO Float+        SVGPathSegCurvetoQuadraticAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.x1 Mozilla SVGPathSegCurvetoQuadraticAbs.x1 documentation>  getX1 :: (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> m Float-getX1 self-  = liftIO (js_getX1 (unSVGPathSegCurvetoQuadraticAbs self))+getX1 self = liftIO (js_getX1 (self))   foreign import javascript unsafe "$1[\"y1\"] = $2;" js_setY1 ::-        JSRef SVGPathSegCurvetoQuadraticAbs -> Float -> IO ()+        SVGPathSegCurvetoQuadraticAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.y1 Mozilla SVGPathSegCurvetoQuadraticAbs.y1 documentation>  setY1 ::       (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> Float -> m ()-setY1 self val-  = liftIO (js_setY1 (unSVGPathSegCurvetoQuadraticAbs self) val)+setY1 self val = liftIO (js_setY1 (self) val)   foreign import javascript unsafe "$1[\"y1\"]" js_getY1 ::-        JSRef SVGPathSegCurvetoQuadraticAbs -> IO Float+        SVGPathSegCurvetoQuadraticAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticAbs.y1 Mozilla SVGPathSegCurvetoQuadraticAbs.y1 documentation>  getY1 :: (MonadIO m) => SVGPathSegCurvetoQuadraticAbs -> m Float-getY1 self-  = liftIO (js_getY1 (unSVGPathSegCurvetoQuadraticAbs self))+getY1 self = liftIO (js_getY1 (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticRel.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,67 +21,61 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPathSegCurvetoQuadraticRel -> Float -> IO ()+        SVGPathSegCurvetoQuadraticRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.x Mozilla SVGPathSegCurvetoQuadraticRel.x documentation>  setX ::      (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> Float -> m ()-setX self val-  = liftIO (js_setX (unSVGPathSegCurvetoQuadraticRel self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPathSegCurvetoQuadraticRel -> IO Float+        SVGPathSegCurvetoQuadraticRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.x Mozilla SVGPathSegCurvetoQuadraticRel.x documentation>  getX :: (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> m Float-getX self = liftIO (js_getX (unSVGPathSegCurvetoQuadraticRel self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPathSegCurvetoQuadraticRel -> Float -> IO ()+        SVGPathSegCurvetoQuadraticRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.y Mozilla SVGPathSegCurvetoQuadraticRel.y documentation>  setY ::      (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> Float -> m ()-setY self val-  = liftIO (js_setY (unSVGPathSegCurvetoQuadraticRel self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPathSegCurvetoQuadraticRel -> IO Float+        SVGPathSegCurvetoQuadraticRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.y Mozilla SVGPathSegCurvetoQuadraticRel.y documentation>  getY :: (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> m Float-getY self = liftIO (js_getY (unSVGPathSegCurvetoQuadraticRel self))+getY self = liftIO (js_getY (self))   foreign import javascript unsafe "$1[\"x1\"] = $2;" js_setX1 ::-        JSRef SVGPathSegCurvetoQuadraticRel -> Float -> IO ()+        SVGPathSegCurvetoQuadraticRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.x1 Mozilla SVGPathSegCurvetoQuadraticRel.x1 documentation>  setX1 ::       (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> Float -> m ()-setX1 self val-  = liftIO (js_setX1 (unSVGPathSegCurvetoQuadraticRel self) val)+setX1 self val = liftIO (js_setX1 (self) val)   foreign import javascript unsafe "$1[\"x1\"]" js_getX1 ::-        JSRef SVGPathSegCurvetoQuadraticRel -> IO Float+        SVGPathSegCurvetoQuadraticRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.x1 Mozilla SVGPathSegCurvetoQuadraticRel.x1 documentation>  getX1 :: (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> m Float-getX1 self-  = liftIO (js_getX1 (unSVGPathSegCurvetoQuadraticRel self))+getX1 self = liftIO (js_getX1 (self))   foreign import javascript unsafe "$1[\"y1\"] = $2;" js_setY1 ::-        JSRef SVGPathSegCurvetoQuadraticRel -> Float -> IO ()+        SVGPathSegCurvetoQuadraticRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.y1 Mozilla SVGPathSegCurvetoQuadraticRel.y1 documentation>  setY1 ::       (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> Float -> m ()-setY1 self val-  = liftIO (js_setY1 (unSVGPathSegCurvetoQuadraticRel self) val)+setY1 self val = liftIO (js_setY1 (self) val)   foreign import javascript unsafe "$1[\"y1\"]" js_getY1 ::-        JSRef SVGPathSegCurvetoQuadraticRel -> IO Float+        SVGPathSegCurvetoQuadraticRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticRel.y1 Mozilla SVGPathSegCurvetoQuadraticRel.y1 documentation>  getY1 :: (MonadIO m) => SVGPathSegCurvetoQuadraticRel -> m Float-getY1 self-  = liftIO (js_getY1 (unSVGPathSegCurvetoQuadraticRel self))+getY1 self = liftIO (js_getY1 (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothAbs.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,37 +21,33 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> IO ()+        SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs.x Mozilla SVGPathSegCurvetoQuadraticSmoothAbs.x documentation>  setX ::      (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> m ()-setX self val-  = liftIO (js_setX (unSVGPathSegCurvetoQuadraticSmoothAbs self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPathSegCurvetoQuadraticSmoothAbs -> IO Float+        SVGPathSegCurvetoQuadraticSmoothAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs.x Mozilla SVGPathSegCurvetoQuadraticSmoothAbs.x documentation>  getX ::      (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothAbs -> m Float-getX self-  = liftIO (js_getX (unSVGPathSegCurvetoQuadraticSmoothAbs self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> IO ()+        SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs.y Mozilla SVGPathSegCurvetoQuadraticSmoothAbs.y documentation>  setY ::      (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothAbs -> Float -> m ()-setY self val-  = liftIO (js_setY (unSVGPathSegCurvetoQuadraticSmoothAbs self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPathSegCurvetoQuadraticSmoothAbs -> IO Float+        SVGPathSegCurvetoQuadraticSmoothAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothAbs.y Mozilla SVGPathSegCurvetoQuadraticSmoothAbs.y documentation>  getY ::      (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothAbs -> m Float-getY self-  = liftIO (js_getY (unSVGPathSegCurvetoQuadraticSmoothAbs self))+getY self = liftIO (js_getY (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegCurvetoQuadraticSmoothRel.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,37 +21,33 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPathSegCurvetoQuadraticSmoothRel -> Float -> IO ()+        SVGPathSegCurvetoQuadraticSmoothRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel.x Mozilla SVGPathSegCurvetoQuadraticSmoothRel.x documentation>  setX ::      (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothRel -> Float -> m ()-setX self val-  = liftIO (js_setX (unSVGPathSegCurvetoQuadraticSmoothRel self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPathSegCurvetoQuadraticSmoothRel -> IO Float+        SVGPathSegCurvetoQuadraticSmoothRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel.x Mozilla SVGPathSegCurvetoQuadraticSmoothRel.x documentation>  getX ::      (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothRel -> m Float-getX self-  = liftIO (js_getX (unSVGPathSegCurvetoQuadraticSmoothRel self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPathSegCurvetoQuadraticSmoothRel -> Float -> IO ()+        SVGPathSegCurvetoQuadraticSmoothRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel.y Mozilla SVGPathSegCurvetoQuadraticSmoothRel.y documentation>  setY ::      (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothRel -> Float -> m ()-setY self val-  = liftIO (js_setY (unSVGPathSegCurvetoQuadraticSmoothRel self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPathSegCurvetoQuadraticSmoothRel -> IO Float+        SVGPathSegCurvetoQuadraticSmoothRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegCurvetoQuadraticSmoothRel.y Mozilla SVGPathSegCurvetoQuadraticSmoothRel.y documentation>  getY ::      (MonadIO m) => SVGPathSegCurvetoQuadraticSmoothRel -> m Float-getY self-  = liftIO (js_getY (unSVGPathSegCurvetoQuadraticSmoothRel self))+getY self = liftIO (js_getY (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoAbs.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,29 +20,29 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPathSegLinetoAbs -> Float -> IO ()+        SVGPathSegLinetoAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs.x Mozilla SVGPathSegLinetoAbs.x documentation>  setX :: (MonadIO m) => SVGPathSegLinetoAbs -> Float -> m ()-setX self val = liftIO (js_setX (unSVGPathSegLinetoAbs self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPathSegLinetoAbs -> IO Float+        SVGPathSegLinetoAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs.x Mozilla SVGPathSegLinetoAbs.x documentation>  getX :: (MonadIO m) => SVGPathSegLinetoAbs -> m Float-getX self = liftIO (js_getX (unSVGPathSegLinetoAbs self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPathSegLinetoAbs -> Float -> IO ()+        SVGPathSegLinetoAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs.y Mozilla SVGPathSegLinetoAbs.y documentation>  setY :: (MonadIO m) => SVGPathSegLinetoAbs -> Float -> m ()-setY self val = liftIO (js_setY (unSVGPathSegLinetoAbs self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPathSegLinetoAbs -> IO Float+        SVGPathSegLinetoAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoAbs.y Mozilla SVGPathSegLinetoAbs.y documentation>  getY :: (MonadIO m) => SVGPathSegLinetoAbs -> m Float-getY self = liftIO (js_getY (unSVGPathSegLinetoAbs self))+getY self = liftIO (js_getY (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalAbs.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,17 +20,16 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPathSegLinetoHorizontalAbs -> Float -> IO ()+        SVGPathSegLinetoHorizontalAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalAbs.x Mozilla SVGPathSegLinetoHorizontalAbs.x documentation>  setX ::      (MonadIO m) => SVGPathSegLinetoHorizontalAbs -> Float -> m ()-setX self val-  = liftIO (js_setX (unSVGPathSegLinetoHorizontalAbs self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPathSegLinetoHorizontalAbs -> IO Float+        SVGPathSegLinetoHorizontalAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalAbs.x Mozilla SVGPathSegLinetoHorizontalAbs.x documentation>  getX :: (MonadIO m) => SVGPathSegLinetoHorizontalAbs -> m Float-getX self = liftIO (js_getX (unSVGPathSegLinetoHorizontalAbs self))+getX self = liftIO (js_getX (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoHorizontalRel.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,17 +20,16 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPathSegLinetoHorizontalRel -> Float -> IO ()+        SVGPathSegLinetoHorizontalRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalRel.x Mozilla SVGPathSegLinetoHorizontalRel.x documentation>  setX ::      (MonadIO m) => SVGPathSegLinetoHorizontalRel -> Float -> m ()-setX self val-  = liftIO (js_setX (unSVGPathSegLinetoHorizontalRel self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPathSegLinetoHorizontalRel -> IO Float+        SVGPathSegLinetoHorizontalRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoHorizontalRel.x Mozilla SVGPathSegLinetoHorizontalRel.x documentation>  getX :: (MonadIO m) => SVGPathSegLinetoHorizontalRel -> m Float-getX self = liftIO (js_getX (unSVGPathSegLinetoHorizontalRel self))+getX self = liftIO (js_getX (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoRel.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,29 +20,29 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPathSegLinetoRel -> Float -> IO ()+        SVGPathSegLinetoRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel.x Mozilla SVGPathSegLinetoRel.x documentation>  setX :: (MonadIO m) => SVGPathSegLinetoRel -> Float -> m ()-setX self val = liftIO (js_setX (unSVGPathSegLinetoRel self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPathSegLinetoRel -> IO Float+        SVGPathSegLinetoRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel.x Mozilla SVGPathSegLinetoRel.x documentation>  getX :: (MonadIO m) => SVGPathSegLinetoRel -> m Float-getX self = liftIO (js_getX (unSVGPathSegLinetoRel self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPathSegLinetoRel -> Float -> IO ()+        SVGPathSegLinetoRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel.y Mozilla SVGPathSegLinetoRel.y documentation>  setY :: (MonadIO m) => SVGPathSegLinetoRel -> Float -> m ()-setY self val = liftIO (js_setY (unSVGPathSegLinetoRel self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPathSegLinetoRel -> IO Float+        SVGPathSegLinetoRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoRel.y Mozilla SVGPathSegLinetoRel.y documentation>  getY :: (MonadIO m) => SVGPathSegLinetoRel -> m Float-getY self = liftIO (js_getY (unSVGPathSegLinetoRel self))+getY self = liftIO (js_getY (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalAbs.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,16 +20,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPathSegLinetoVerticalAbs -> Float -> IO ()+        SVGPathSegLinetoVerticalAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalAbs.y Mozilla SVGPathSegLinetoVerticalAbs.y documentation>  setY :: (MonadIO m) => SVGPathSegLinetoVerticalAbs -> Float -> m ()-setY self val-  = liftIO (js_setY (unSVGPathSegLinetoVerticalAbs self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPathSegLinetoVerticalAbs -> IO Float+        SVGPathSegLinetoVerticalAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalAbs.y Mozilla SVGPathSegLinetoVerticalAbs.y documentation>  getY :: (MonadIO m) => SVGPathSegLinetoVerticalAbs -> m Float-getY self = liftIO (js_getY (unSVGPathSegLinetoVerticalAbs self))+getY self = liftIO (js_getY (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegLinetoVerticalRel.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,16 +20,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPathSegLinetoVerticalRel -> Float -> IO ()+        SVGPathSegLinetoVerticalRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalRel.y Mozilla SVGPathSegLinetoVerticalRel.y documentation>  setY :: (MonadIO m) => SVGPathSegLinetoVerticalRel -> Float -> m ()-setY self val-  = liftIO (js_setY (unSVGPathSegLinetoVerticalRel self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPathSegLinetoVerticalRel -> IO Float+        SVGPathSegLinetoVerticalRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegLinetoVerticalRel.y Mozilla SVGPathSegLinetoVerticalRel.y documentation>  getY :: (MonadIO m) => SVGPathSegLinetoVerticalRel -> m Float-getY self = liftIO (js_getY (unSVGPathSegLinetoVerticalRel self))+getY self = liftIO (js_getY (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegList.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,15 +22,15 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::-        JSRef SVGPathSegList -> IO ()+        SVGPathSegList -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.clear Mozilla SVGPathSegList.clear documentation>  clear :: (MonadIO m) => SVGPathSegList -> m ()-clear self = liftIO (js_clear (unSVGPathSegList self))+clear self = liftIO (js_clear (self))   foreign import javascript unsafe "$1[\"initialize\"]($2)"         js_initialize ::-        JSRef SVGPathSegList -> JSRef SVGPathSeg -> IO (JSRef SVGPathSeg)+        SVGPathSegList -> Nullable SVGPathSeg -> IO (Nullable SVGPathSeg)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.initialize Mozilla SVGPathSegList.initialize documentation>  initialize ::@@ -38,23 +38,23 @@              SVGPathSegList -> Maybe newItem -> m (Maybe SVGPathSeg) initialize self newItem   = liftIO-      ((js_initialize (unSVGPathSegList self)-          (maybe jsNull (unSVGPathSeg . toSVGPathSeg) newItem))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_initialize (self)+            (maybeToNullable (fmap toSVGPathSeg newItem))))   foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem-        :: JSRef SVGPathSegList -> Word -> IO (JSRef SVGPathSeg)+        :: SVGPathSegList -> Word -> IO (Nullable SVGPathSeg)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.getItem Mozilla SVGPathSegList.getItem documentation>  getItem ::         (MonadIO m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg) getItem self index-  = liftIO ((js_getItem (unSVGPathSegList self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getItem (self) index))   foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)"         js_insertItemBefore ::-        JSRef SVGPathSegList ->-          JSRef SVGPathSeg -> Word -> IO (JSRef SVGPathSeg)+        SVGPathSegList ->+          Nullable SVGPathSeg -> Word -> IO (Nullable SVGPathSeg)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.insertItemBefore Mozilla SVGPathSegList.insertItemBefore documentation>  insertItemBefore ::@@ -62,15 +62,15 @@                    SVGPathSegList -> Maybe newItem -> Word -> m (Maybe SVGPathSeg) insertItemBefore self newItem index   = liftIO-      ((js_insertItemBefore (unSVGPathSegList self)-          (maybe jsNull (unSVGPathSeg . toSVGPathSeg) newItem)-          index)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_insertItemBefore (self)+            (maybeToNullable (fmap toSVGPathSeg newItem))+            index))   foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)"         js_replaceItem ::-        JSRef SVGPathSegList ->-          JSRef SVGPathSeg -> Word -> IO (JSRef SVGPathSeg)+        SVGPathSegList ->+          Nullable SVGPathSeg -> Word -> IO (Nullable SVGPathSeg)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.replaceItem Mozilla SVGPathSegList.replaceItem documentation>  replaceItem ::@@ -78,25 +78,23 @@               SVGPathSegList -> Maybe newItem -> Word -> m (Maybe SVGPathSeg) replaceItem self newItem index   = liftIO-      ((js_replaceItem (unSVGPathSegList self)-          (maybe jsNull (unSVGPathSeg . toSVGPathSeg) newItem)-          index)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_replaceItem (self)+            (maybeToNullable (fmap toSVGPathSeg newItem))+            index))   foreign import javascript unsafe "$1[\"removeItem\"]($2)"-        js_removeItem ::-        JSRef SVGPathSegList -> Word -> IO (JSRef SVGPathSeg)+        js_removeItem :: SVGPathSegList -> Word -> IO (Nullable SVGPathSeg)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.removeItem Mozilla SVGPathSegList.removeItem documentation>  removeItem ::            (MonadIO m) => SVGPathSegList -> Word -> m (Maybe SVGPathSeg) removeItem self index-  = liftIO-      ((js_removeItem (unSVGPathSegList self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_removeItem (self) index))   foreign import javascript unsafe "$1[\"appendItem\"]($2)"         js_appendItem ::-        JSRef SVGPathSegList -> JSRef SVGPathSeg -> IO (JSRef SVGPathSeg)+        SVGPathSegList -> Nullable SVGPathSeg -> IO (Nullable SVGPathSeg)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.appendItem Mozilla SVGPathSegList.appendItem documentation>  appendItem ::@@ -104,14 +102,13 @@              SVGPathSegList -> Maybe newItem -> m (Maybe SVGPathSeg) appendItem self newItem   = liftIO-      ((js_appendItem (unSVGPathSegList self)-          (maybe jsNull (unSVGPathSeg . toSVGPathSeg) newItem))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_appendItem (self)+            (maybeToNullable (fmap toSVGPathSeg newItem))))   foreign import javascript unsafe "$1[\"numberOfItems\"]"-        js_getNumberOfItems :: JSRef SVGPathSegList -> IO Word+        js_getNumberOfItems :: SVGPathSegList -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegList.numberOfItems Mozilla SVGPathSegList.numberOfItems documentation>  getNumberOfItems :: (MonadIO m) => SVGPathSegList -> m Word-getNumberOfItems self-  = liftIO (js_getNumberOfItems (unSVGPathSegList self))+getNumberOfItems self = liftIO (js_getNumberOfItems (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoAbs.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,29 +20,29 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPathSegMovetoAbs -> Float -> IO ()+        SVGPathSegMovetoAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs.x Mozilla SVGPathSegMovetoAbs.x documentation>  setX :: (MonadIO m) => SVGPathSegMovetoAbs -> Float -> m ()-setX self val = liftIO (js_setX (unSVGPathSegMovetoAbs self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPathSegMovetoAbs -> IO Float+        SVGPathSegMovetoAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs.x Mozilla SVGPathSegMovetoAbs.x documentation>  getX :: (MonadIO m) => SVGPathSegMovetoAbs -> m Float-getX self = liftIO (js_getX (unSVGPathSegMovetoAbs self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPathSegMovetoAbs -> Float -> IO ()+        SVGPathSegMovetoAbs -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs.y Mozilla SVGPathSegMovetoAbs.y documentation>  setY :: (MonadIO m) => SVGPathSegMovetoAbs -> Float -> m ()-setY self val = liftIO (js_setY (unSVGPathSegMovetoAbs self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPathSegMovetoAbs -> IO Float+        SVGPathSegMovetoAbs -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoAbs.y Mozilla SVGPathSegMovetoAbs.y documentation>  getY :: (MonadIO m) => SVGPathSegMovetoAbs -> m Float-getY self = liftIO (js_getY (unSVGPathSegMovetoAbs self))+getY self = liftIO (js_getY (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPathSegMovetoRel.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,29 +20,29 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPathSegMovetoRel -> Float -> IO ()+        SVGPathSegMovetoRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel.x Mozilla SVGPathSegMovetoRel.x documentation>  setX :: (MonadIO m) => SVGPathSegMovetoRel -> Float -> m ()-setX self val = liftIO (js_setX (unSVGPathSegMovetoRel self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPathSegMovetoRel -> IO Float+        SVGPathSegMovetoRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel.x Mozilla SVGPathSegMovetoRel.x documentation>  getX :: (MonadIO m) => SVGPathSegMovetoRel -> m Float-getX self = liftIO (js_getX (unSVGPathSegMovetoRel self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPathSegMovetoRel -> Float -> IO ()+        SVGPathSegMovetoRel -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel.y Mozilla SVGPathSegMovetoRel.y documentation>  setY :: (MonadIO m) => SVGPathSegMovetoRel -> Float -> m ()-setY self val = liftIO (js_setY (unSVGPathSegMovetoRel self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPathSegMovetoRel -> IO Float+        SVGPathSegMovetoRel -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPathSegMovetoRel.y Mozilla SVGPathSegMovetoRel.y documentation>  getY :: (MonadIO m) => SVGPathSegMovetoRel -> m Float-getY self = liftIO (js_getY (unSVGPathSegMovetoRel self))+getY self = liftIO (js_getY (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPatternElement.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -23,73 +23,65 @@   foreign import javascript unsafe "$1[\"patternUnits\"]"         js_getPatternUnits ::-        JSRef SVGPatternElement -> IO (JSRef SVGAnimatedEnumeration)+        SVGPatternElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternUnits Mozilla SVGPatternElement.patternUnits documentation>  getPatternUnits ::                 (MonadIO m) =>                   SVGPatternElement -> m (Maybe SVGAnimatedEnumeration) getPatternUnits self-  = liftIO-      ((js_getPatternUnits (unSVGPatternElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPatternUnits (self)))   foreign import javascript unsafe "$1[\"patternContentUnits\"]"         js_getPatternContentUnits ::-        JSRef SVGPatternElement -> IO (JSRef SVGAnimatedEnumeration)+        SVGPatternElement -> IO (Nullable SVGAnimatedEnumeration)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternContentUnits Mozilla SVGPatternElement.patternContentUnits documentation>  getPatternContentUnits ::                        (MonadIO m) =>                          SVGPatternElement -> m (Maybe SVGAnimatedEnumeration) getPatternContentUnits self-  = liftIO-      ((js_getPatternContentUnits (unSVGPatternElement self)) >>=-         fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPatternContentUnits (self)))   foreign import javascript unsafe "$1[\"patternTransform\"]"         js_getPatternTransform ::-        JSRef SVGPatternElement -> IO (JSRef SVGAnimatedTransformList)+        SVGPatternElement -> IO (Nullable SVGAnimatedTransformList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.patternTransform Mozilla SVGPatternElement.patternTransform documentation>  getPatternTransform ::                     (MonadIO m) =>                       SVGPatternElement -> m (Maybe SVGAnimatedTransformList) getPatternTransform self-  = liftIO-      ((js_getPatternTransform (unSVGPatternElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getPatternTransform (self)))   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPatternElement -> IO (JSRef SVGAnimatedLength)+        SVGPatternElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.x Mozilla SVGPatternElement.x documentation>  getX ::      (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength)-getX self-  = liftIO ((js_getX (unSVGPatternElement self)) >>= fromJSRef)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPatternElement -> IO (JSRef SVGAnimatedLength)+        SVGPatternElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.y Mozilla SVGPatternElement.y documentation>  getY ::      (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength)-getY self-  = liftIO ((js_getY (unSVGPatternElement self)) >>= fromJSRef)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef SVGPatternElement -> IO (JSRef SVGAnimatedLength)+        SVGPatternElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.width Mozilla SVGPatternElement.width documentation>  getWidth ::          (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength)-getWidth self-  = liftIO ((js_getWidth (unSVGPatternElement self)) >>= fromJSRef)+getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef SVGPatternElement -> IO (JSRef SVGAnimatedLength)+        SVGPatternElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPatternElement.height Mozilla SVGPatternElement.height documentation>  getHeight ::           (MonadIO m) => SVGPatternElement -> m (Maybe SVGAnimatedLength)-getHeight self-  = liftIO ((js_getHeight (unSVGPatternElement self)) >>= fromJSRef)+getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGPoint.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,41 +21,40 @@   foreign import javascript unsafe "$1[\"matrixTransform\"]($2)"         js_matrixTransform ::-        JSRef SVGPoint -> JSRef SVGMatrix -> IO (JSRef SVGPoint)+        SVGPoint -> Nullable SVGMatrix -> IO (Nullable SVGPoint)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.matrixTransform Mozilla SVGPoint.matrixTransform documentation>  matrixTransform ::                 (MonadIO m) => SVGPoint -> Maybe SVGMatrix -> m (Maybe SVGPoint) matrixTransform self matrix   = liftIO-      ((js_matrixTransform (unSVGPoint self)-          (maybe jsNull pToJSRef matrix))-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_matrixTransform (self) (maybeToNullable matrix)))   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGPoint -> Float -> IO ()+        SVGPoint -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.x Mozilla SVGPoint.x documentation>  setX :: (MonadIO m) => SVGPoint -> Float -> m ()-setX self val = liftIO (js_setX (unSVGPoint self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGPoint -> IO Float+        SVGPoint -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.x Mozilla SVGPoint.x documentation>  getX :: (MonadIO m) => SVGPoint -> m Float-getX self = liftIO (js_getX (unSVGPoint self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGPoint -> Float -> IO ()+        SVGPoint -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.y Mozilla SVGPoint.y documentation>  setY :: (MonadIO m) => SVGPoint -> Float -> m ()-setY self val = liftIO (js_setY (unSVGPoint self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGPoint -> IO Float+        SVGPoint -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPoint.y Mozilla SVGPoint.y documentation>  getY :: (MonadIO m) => SVGPoint -> m Float-getY self = liftIO (js_getY (unSVGPoint self))+getY self = liftIO (js_getY (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPointList.hs view
@@ -8,7 +8,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -22,36 +22,35 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"clear\"]()" js_clear ::-        JSRef SVGPointList -> IO ()+        SVGPointList -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.clear Mozilla SVGPointList.clear documentation>  clear :: (MonadIO m) => SVGPointList -> m ()-clear self = liftIO (js_clear (unSVGPointList self))+clear self = liftIO (js_clear (self))   foreign import javascript unsafe "$1[\"initialize\"]($2)"         js_initialize ::-        JSRef SVGPointList -> JSRef SVGPoint -> IO (JSRef SVGPoint)+        SVGPointList -> Nullable SVGPoint -> IO (Nullable SVGPoint)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.initialize Mozilla SVGPointList.initialize documentation>  initialize ::            (MonadIO m) => SVGPointList -> Maybe SVGPoint -> m (Maybe SVGPoint) initialize self item   = liftIO-      ((js_initialize (unSVGPointList self) (maybe jsNull pToJSRef item))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_initialize (self) (maybeToNullable item)))   foreign import javascript unsafe "$1[\"getItem\"]($2)" js_getItem-        :: JSRef SVGPointList -> Word -> IO (JSRef SVGPoint)+        :: SVGPointList -> Word -> IO (Nullable SVGPoint)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.getItem Mozilla SVGPointList.getItem documentation>  getItem ::         (MonadIO m) => SVGPointList -> Word -> m (Maybe SVGPoint) getItem self index-  = liftIO ((js_getItem (unSVGPointList self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getItem (self) index))   foreign import javascript unsafe "$1[\"insertItemBefore\"]($2, $3)"         js_insertItemBefore ::-        JSRef SVGPointList -> JSRef SVGPoint -> Word -> IO (JSRef SVGPoint)+        SVGPointList -> Nullable SVGPoint -> Word -> IO (Nullable SVGPoint)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.insertItemBefore Mozilla SVGPointList.insertItemBefore documentation>  insertItemBefore ::@@ -59,14 +58,12 @@                    SVGPointList -> Maybe SVGPoint -> Word -> m (Maybe SVGPoint) insertItemBefore self item index   = liftIO-      ((js_insertItemBefore (unSVGPointList self)-          (maybe jsNull pToJSRef item)-          index)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_insertItemBefore (self) (maybeToNullable item) index))   foreign import javascript unsafe "$1[\"replaceItem\"]($2, $3)"         js_replaceItem ::-        JSRef SVGPointList -> JSRef SVGPoint -> Word -> IO (JSRef SVGPoint)+        SVGPointList -> Nullable SVGPoint -> Word -> IO (Nullable SVGPoint)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.replaceItem Mozilla SVGPointList.replaceItem documentation>  replaceItem ::@@ -74,36 +71,32 @@               SVGPointList -> Maybe SVGPoint -> Word -> m (Maybe SVGPoint) replaceItem self item index   = liftIO-      ((js_replaceItem (unSVGPointList self) (maybe jsNull pToJSRef item)-          index)-         >>= fromJSRef)+      (nullableToMaybe <$>+         (js_replaceItem (self) (maybeToNullable item) index))   foreign import javascript unsafe "$1[\"removeItem\"]($2)"-        js_removeItem :: JSRef SVGPointList -> Word -> IO (JSRef SVGPoint)+        js_removeItem :: SVGPointList -> Word -> IO (Nullable SVGPoint)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.removeItem Mozilla SVGPointList.removeItem documentation>  removeItem ::            (MonadIO m) => SVGPointList -> Word -> m (Maybe SVGPoint) removeItem self index-  = liftIO-      ((js_removeItem (unSVGPointList self) index) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_removeItem (self) index))   foreign import javascript unsafe "$1[\"appendItem\"]($2)"         js_appendItem ::-        JSRef SVGPointList -> JSRef SVGPoint -> IO (JSRef SVGPoint)+        SVGPointList -> Nullable SVGPoint -> IO (Nullable SVGPoint)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.appendItem Mozilla SVGPointList.appendItem documentation>  appendItem ::            (MonadIO m) => SVGPointList -> Maybe SVGPoint -> m (Maybe SVGPoint) appendItem self item   = liftIO-      ((js_appendItem (unSVGPointList self) (maybe jsNull pToJSRef item))-         >>= fromJSRef)+      (nullableToMaybe <$> (js_appendItem (self) (maybeToNullable item)))   foreign import javascript unsafe "$1[\"numberOfItems\"]"-        js_getNumberOfItems :: JSRef SVGPointList -> IO Word+        js_getNumberOfItems :: SVGPointList -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPointList.numberOfItems Mozilla SVGPointList.numberOfItems documentation>  getNumberOfItems :: (MonadIO m) => SVGPointList -> m Word-getNumberOfItems self-  = liftIO (js_getNumberOfItems (unSVGPointList self))+getNumberOfItems self = liftIO (js_getNumberOfItems (self))
src/GHCJS/DOM/JSFFI/Generated/SVGPolygonElement.hs view
@@ -5,7 +5,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -19,21 +19,19 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"points\"]" js_getPoints ::-        JSRef SVGPolygonElement -> IO (JSRef SVGPointList)+        SVGPolygonElement -> IO (Nullable SVGPointList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolygonElement.points Mozilla SVGPolygonElement.points documentation>  getPoints ::           (MonadIO m) => SVGPolygonElement -> m (Maybe SVGPointList)-getPoints self-  = liftIO ((js_getPoints (unSVGPolygonElement self)) >>= fromJSRef)+getPoints self = liftIO (nullableToMaybe <$> (js_getPoints (self)))   foreign import javascript unsafe "$1[\"animatedPoints\"]"         js_getAnimatedPoints ::-        JSRef SVGPolygonElement -> IO (JSRef SVGPointList)+        SVGPolygonElement -> IO (Nullable SVGPointList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolygonElement.animatedPoints Mozilla SVGPolygonElement.animatedPoints documentation>  getAnimatedPoints ::                   (MonadIO m) => SVGPolygonElement -> m (Maybe SVGPointList) getAnimatedPoints self-  = liftIO-      ((js_getAnimatedPoints (unSVGPolygonElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAnimatedPoints (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGPolylineElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,21 +20,19 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"points\"]" js_getPoints ::-        JSRef SVGPolylineElement -> IO (JSRef SVGPointList)+        SVGPolylineElement -> IO (Nullable SVGPointList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolylineElement.points Mozilla SVGPolylineElement.points documentation>  getPoints ::           (MonadIO m) => SVGPolylineElement -> m (Maybe SVGPointList)-getPoints self-  = liftIO ((js_getPoints (unSVGPolylineElement self)) >>= fromJSRef)+getPoints self = liftIO (nullableToMaybe <$> (js_getPoints (self)))   foreign import javascript unsafe "$1[\"animatedPoints\"]"         js_getAnimatedPoints ::-        JSRef SVGPolylineElement -> IO (JSRef SVGPointList)+        SVGPolylineElement -> IO (Nullable SVGPointList)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPolylineElement.animatedPoints Mozilla SVGPolylineElement.animatedPoints documentation>  getAnimatedPoints ::                   (MonadIO m) => SVGPolylineElement -> m (Maybe SVGPointList) getAnimatedPoints self-  = liftIO-      ((js_getAnimatedPoints (unSVGPolylineElement self)) >>= fromJSRef)+  = liftIO (nullableToMaybe <$> (js_getAnimatedPoints (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGPreserveAspectRatio.hs view
@@ -19,7 +19,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -47,34 +47,30 @@ pattern SVG_MEETORSLICE_SLICE = 2   foreign import javascript unsafe "$1[\"align\"] = $2;" js_setAlign-        :: JSRef SVGPreserveAspectRatio -> Word -> IO ()+        :: SVGPreserveAspectRatio -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPreserveAspectRatio.align Mozilla SVGPreserveAspectRatio.align documentation>  setAlign :: (MonadIO m) => SVGPreserveAspectRatio -> Word -> m ()-setAlign self val-  = liftIO (js_setAlign (unSVGPreserveAspectRatio self) val)+setAlign self val = liftIO (js_setAlign (self) val)   foreign import javascript unsafe "$1[\"align\"]" js_getAlign ::-        JSRef SVGPreserveAspectRatio -> IO Word+        SVGPreserveAspectRatio -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPreserveAspectRatio.align Mozilla SVGPreserveAspectRatio.align documentation>  getAlign :: (MonadIO m) => SVGPreserveAspectRatio -> m Word-getAlign self-  = liftIO (js_getAlign (unSVGPreserveAspectRatio self))+getAlign self = liftIO (js_getAlign (self))   foreign import javascript unsafe "$1[\"meetOrSlice\"] = $2;"-        js_setMeetOrSlice :: JSRef SVGPreserveAspectRatio -> Word -> IO ()+        js_setMeetOrSlice :: SVGPreserveAspectRatio -> Word -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPreserveAspectRatio.meetOrSlice Mozilla SVGPreserveAspectRatio.meetOrSlice documentation>  setMeetOrSlice ::                (MonadIO m) => SVGPreserveAspectRatio -> Word -> m ()-setMeetOrSlice self val-  = liftIO (js_setMeetOrSlice (unSVGPreserveAspectRatio self) val)+setMeetOrSlice self val = liftIO (js_setMeetOrSlice (self) val)   foreign import javascript unsafe "$1[\"meetOrSlice\"]"-        js_getMeetOrSlice :: JSRef SVGPreserveAspectRatio -> IO Word+        js_getMeetOrSlice :: SVGPreserveAspectRatio -> IO Word  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGPreserveAspectRatio.meetOrSlice Mozilla SVGPreserveAspectRatio.meetOrSlice documentation>  getMeetOrSlice :: (MonadIO m) => SVGPreserveAspectRatio -> m Word-getMeetOrSlice self-  = liftIO (js_getMeetOrSlice (unSVGPreserveAspectRatio self))+getMeetOrSlice self = liftIO (js_getMeetOrSlice (self))
src/GHCJS/DOM/JSFFI/Generated/SVGRadialGradientElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,67 +20,55 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"cx\"]" js_getCx ::-        JSRef SVGRadialGradientElement -> IO (JSRef SVGAnimatedLength)+        SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.cx Mozilla SVGRadialGradientElement.cx documentation>  getCx ::       (MonadIO m) =>         SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)-getCx self-  = liftIO-      ((js_getCx (unSVGRadialGradientElement self)) >>= fromJSRef)+getCx self = liftIO (nullableToMaybe <$> (js_getCx (self)))   foreign import javascript unsafe "$1[\"cy\"]" js_getCy ::-        JSRef SVGRadialGradientElement -> IO (JSRef SVGAnimatedLength)+        SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.cy Mozilla SVGRadialGradientElement.cy documentation>  getCy ::       (MonadIO m) =>         SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)-getCy self-  = liftIO-      ((js_getCy (unSVGRadialGradientElement self)) >>= fromJSRef)+getCy self = liftIO (nullableToMaybe <$> (js_getCy (self)))   foreign import javascript unsafe "$1[\"r\"]" js_getR ::-        JSRef SVGRadialGradientElement -> IO (JSRef SVGAnimatedLength)+        SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.r Mozilla SVGRadialGradientElement.r documentation>  getR ::      (MonadIO m) =>        SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)-getR self-  = liftIO-      ((js_getR (unSVGRadialGradientElement self)) >>= fromJSRef)+getR self = liftIO (nullableToMaybe <$> (js_getR (self)))   foreign import javascript unsafe "$1[\"fx\"]" js_getFx ::-        JSRef SVGRadialGradientElement -> IO (JSRef SVGAnimatedLength)+        SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fx Mozilla SVGRadialGradientElement.fx documentation>  getFx ::       (MonadIO m) =>         SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)-getFx self-  = liftIO-      ((js_getFx (unSVGRadialGradientElement self)) >>= fromJSRef)+getFx self = liftIO (nullableToMaybe <$> (js_getFx (self)))   foreign import javascript unsafe "$1[\"fy\"]" js_getFy ::-        JSRef SVGRadialGradientElement -> IO (JSRef SVGAnimatedLength)+        SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fy Mozilla SVGRadialGradientElement.fy documentation>  getFy ::       (MonadIO m) =>         SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)-getFy self-  = liftIO-      ((js_getFy (unSVGRadialGradientElement self)) >>= fromJSRef)+getFy self = liftIO (nullableToMaybe <$> (js_getFy (self)))   foreign import javascript unsafe "$1[\"fr\"]" js_getFr ::-        JSRef SVGRadialGradientElement -> IO (JSRef SVGAnimatedLength)+        SVGRadialGradientElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRadialGradientElement.fr Mozilla SVGRadialGradientElement.fr documentation>  getFr ::       (MonadIO m) =>         SVGRadialGradientElement -> m (Maybe SVGAnimatedLength)-getFr self-  = liftIO-      ((js_getFr (unSVGRadialGradientElement self)) >>= fromJSRef)+getFr self = liftIO (nullableToMaybe <$> (js_getFr (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGRect.hs view
@@ -7,7 +7,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -21,57 +21,57 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"] = $2;" js_setX ::-        JSRef SVGRect -> Float -> IO ()+        SVGRect -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.x Mozilla SVGRect.x documentation>  setX :: (MonadIO m) => SVGRect -> Float -> m ()-setX self val = liftIO (js_setX (unSVGRect self) val)+setX self val = liftIO (js_setX (self) val)   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGRect -> IO Float+        SVGRect -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.x Mozilla SVGRect.x documentation>  getX :: (MonadIO m) => SVGRect -> m Float-getX self = liftIO (js_getX (unSVGRect self))+getX self = liftIO (js_getX (self))   foreign import javascript unsafe "$1[\"y\"] = $2;" js_setY ::-        JSRef SVGRect -> Float -> IO ()+        SVGRect -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.y Mozilla SVGRect.y documentation>  setY :: (MonadIO m) => SVGRect -> Float -> m ()-setY self val = liftIO (js_setY (unSVGRect self) val)+setY self val = liftIO (js_setY (self) val)   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGRect -> IO Float+        SVGRect -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.y Mozilla SVGRect.y documentation>  getY :: (MonadIO m) => SVGRect -> m Float-getY self = liftIO (js_getY (unSVGRect self))+getY self = liftIO (js_getY (self))   foreign import javascript unsafe "$1[\"width\"] = $2;" js_setWidth-        :: JSRef SVGRect -> Float -> IO ()+        :: SVGRect -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.width Mozilla SVGRect.width documentation>  setWidth :: (MonadIO m) => SVGRect -> Float -> m ()-setWidth self val = liftIO (js_setWidth (unSVGRect self) val)+setWidth self val = liftIO (js_setWidth (self) val)   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef SVGRect -> IO Float+        SVGRect -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.width Mozilla SVGRect.width documentation>  getWidth :: (MonadIO m) => SVGRect -> m Float-getWidth self = liftIO (js_getWidth (unSVGRect self))+getWidth self = liftIO (js_getWidth (self))   foreign import javascript unsafe "$1[\"height\"] = $2;"-        js_setHeight :: JSRef SVGRect -> Float -> IO ()+        js_setHeight :: SVGRect -> Float -> IO ()  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.height Mozilla SVGRect.height documentation>  setHeight :: (MonadIO m) => SVGRect -> Float -> m ()-setHeight self val = liftIO (js_setHeight (unSVGRect self) val)+setHeight self val = liftIO (js_setHeight (self) val)   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef SVGRect -> IO Float+        SVGRect -> IO Float  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRect.height Mozilla SVGRect.height documentation>  getHeight :: (MonadIO m) => SVGRect -> m Float-getHeight self = liftIO (js_getHeight (unSVGRect self))+getHeight self = liftIO (js_getHeight (self))
src/GHCJS/DOM/JSFFI/Generated/SVGRectElement.hs view
@@ -6,7 +6,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))@@ -20,55 +20,49 @@ import GHCJS.DOM.Enums   foreign import javascript unsafe "$1[\"x\"]" js_getX ::-        JSRef SVGRectElement -> IO (JSRef SVGAnimatedLength)+        SVGRectElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.x Mozilla SVGRectElement.x documentation>  getX ::      (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength)-getX self-  = liftIO ((js_getX (unSVGRectElement self)) >>= fromJSRef)+getX self = liftIO (nullableToMaybe <$> (js_getX (self)))   foreign import javascript unsafe "$1[\"y\"]" js_getY ::-        JSRef SVGRectElement -> IO (JSRef SVGAnimatedLength)+        SVGRectElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.y Mozilla SVGRectElement.y documentation>  getY ::      (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength)-getY self-  = liftIO ((js_getY (unSVGRectElement self)) >>= fromJSRef)+getY self = liftIO (nullableToMaybe <$> (js_getY (self)))   foreign import javascript unsafe "$1[\"width\"]" js_getWidth ::-        JSRef SVGRectElement -> IO (JSRef SVGAnimatedLength)+        SVGRectElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.width Mozilla SVGRectElement.width documentation>  getWidth ::          (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength)-getWidth self-  = liftIO ((js_getWidth (unSVGRectElement self)) >>= fromJSRef)+getWidth self = liftIO (nullableToMaybe <$> (js_getWidth (self)))   foreign import javascript unsafe "$1[\"height\"]" js_getHeight ::-        JSRef SVGRectElement -> IO (JSRef SVGAnimatedLength)+        SVGRectElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.height Mozilla SVGRectElement.height documentation>  getHeight ::           (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength)-getHeight self-  = liftIO ((js_getHeight (unSVGRectElement self)) >>= fromJSRef)+getHeight self = liftIO (nullableToMaybe <$> (js_getHeight (self)))   foreign import javascript unsafe "$1[\"rx\"]" js_getRx ::-        JSRef SVGRectElement -> IO (JSRef SVGAnimatedLength)+        SVGRectElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.rx Mozilla SVGRectElement.rx documentation>  getRx ::       (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength)-getRx self-  = liftIO ((js_getRx (unSVGRectElement self)) >>= fromJSRef)+getRx self = liftIO (nullableToMaybe <$> (js_getRx (self)))   foreign import javascript unsafe "$1[\"ry\"]" js_getRy ::-        JSRef SVGRectElement -> IO (JSRef SVGAnimatedLength)+        SVGRectElement -> IO (Nullable SVGAnimatedLength)  -- | <https://developer.mozilla.org/en-US/docs/Web/API/SVGRectElement.ry Mozilla SVGRectElement.ry documentation>  getRy ::       (MonadIO m) => SVGRectElement -> m (Maybe SVGAnimatedLength)-getRy self-  = liftIO ((js_getRy (unSVGRectElement self)) >>= fromJSRef)+getRy self = liftIO (nullableToMaybe <$> (js_getRy (self)))
src/GHCJS/DOM/JSFFI/Generated/SVGRenderingIntent.hs view
@@ -9,7 +9,7 @@        where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable)-import GHCJS.Types (JSRef(..), JSString, castRef)+import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..))
src/GHCJS/DOM/JSFFI/Generated/SVGSVGElement.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

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

file too large to diff

src/GHCJS/DOM/JSFFI/Geolocation.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/MediaStreamTrack.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/Navigator.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/RTCPeerConnection.hs view

file too large to diff

src/GHCJS/DOM/JSFFI/SQLTransaction.hs view

file too large to diff

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

file too large to diff

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

file too large to diff

src/GHCJS/DOM/Types.hs view

file too large to diff